octave-lyh: scripts/miscellaneous/tempdir.m annotate

annotate scripts/miscellaneous/tempdir.m @ 15466:d174210ce1ec stable

use ' instead of ` in error messages, warnings and most comments * intro.txi, io.txi, munge-texi.cc, octave.texi, cmd-edit.cc, data-conv.cc, file-ops.cc, glob-match.h, kpse.cc, oct-env.cc, oct-locbuf.h, oct-md5.cc, oct-rand.cc, general/interp2.m, doc.m, get_first_help_sentence.m, help.m, print_usage.m, __additional_help_message__.m, type.m, unimplemented.m, which.m, cast.m, dir.m, license.m, mkoctfile.m, recycle.m, tempdir.m, optimset.m, pkg/pkg.m, closereq.m, colstyle.m, __fltk_print__.m, __gnuplot_print__.m, __go_draw_figure__.m, __pie__.m, __pltopt__.m, __print_parse_opts__.m, uigetdir.m, uigetfile.m, uiputfile.m, stft.m, mean.m, anova.m, cor_test.m, t_test_regression.m, __magick_read__.cc, dlmread.cc, schur.cc, data.cc, debug.cc, defun-dld.h, defun.cc, defun.h, dynamic-ld.cc, error.cc, error.h, gl-render.cc, graphics.cc, gripes.cc, input.cc, lex.ll, load-path.cc, load-save.cc, ls-hdf5.cc, ls-mat-ascii.cc, ls-mat4.cc, ls-mat5.cc, ls-oct-ascii.cc, ls-oct-binary.cc, oct-hist.cc, oct-parse.yy, oct-stream.cc, oct-stream.h, octave.cc, ov-base-diag.cc, ov-base.cc, ov-class.cc, ov-colon.h, ov-struct.cc, ov-typeinfo.cc, ov.cc, pager.cc, pr-output.cc, pt-binop.cc, pt-eval.cc, pt-id.cc, pt-idx.cc, pt-misc.cc, pt-unop.cc, symtab.cc, symtab.h, toplev.cc, txt-eng-ft.cc, utils.cc, variables.cc, test_eval-catch.m, test_try.m: Use ' instead of ` in error messages, warnings, and most comments.

author	John W. Eaton <jwe@octave.org>
date	Mon, 01 Oct 2012 17:18:49 -0400
parents	72c96de7a403
children	333243133364

rev	line source
14138 72c96de7a403 maint: update copyright notices for 2012 John W. Eaton <jwe@octave.org> parents: 13141 diff changeset	1 ## Copyright (C) 2003-2012 John W. Eaton
4266 1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	2 ##
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	3 ## This file is part of Octave.
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	4 ##
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	6 ## under the terms of the GNU General Public License as published by
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 5307 diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 5307 diff changeset	8 ## your option) any later version.
4266 1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	9 ##
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	13 ## General Public License for more details.
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	14 ##
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	15 ## You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 5307 diff changeset	16 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 5307 diff changeset	17 ## <http://www.gnu.org/licenses/>.
4266 1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	18
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	19 ## -- texinfo --
7670 7a5dbd31eb76 Fix tempdir's documention string to point at tempdir weber@num.uni-sb.de parents: 7540 diff changeset	20 ## @deftypefn {Function File} {@var{dir} =} tempdir ()
4350 b4661459eff7 [project @ 2003-02-21 19:29:43 by jwe] jwe parents: 4266 diff changeset	21 ## Return the name of the system's directory for temporary files.
4266 1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	22 ## @end deftypefn
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	23
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	24 function dirname = tempdir ()
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	25
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	26 dirname = getenv ("TMPDIR");
7430 8b7c7998d78f [project @ 2008-01-30 07:57:35 by jwe] jwe parents: 7017 diff changeset	27 if (isempty (dirname))
4266 1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	28 dirname = P_tmpdir;
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	29 endif
1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	30
7430 8b7c7998d78f [project @ 2008-01-30 07:57:35 by jwe] jwe parents: 7017 diff changeset	31 if (! strcmp (dirname(end), filesep))
10631 10df75a24242 Add filesep to end of tempdir (bug #29864). Rik <octave@nomad.inbox5.com> parents: 8920 diff changeset	32 dirname = cstrcat (dirname, filesep);
7430 8b7c7998d78f [project @ 2008-01-30 07:57:35 by jwe] jwe parents: 7017 diff changeset	33 endif
8b7c7998d78f [project @ 2008-01-30 07:57:35 by jwe] jwe parents: 7017 diff changeset	34
8b7c7998d78f [project @ 2008-01-30 07:57:35 by jwe] jwe parents: 7017 diff changeset	35 if (! isdir (dirname))
15466 d174210ce1ec use ' instead of ` in error messages, warnings and most comments John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	36 warning ("tempdir: '%s' does not exist or is not a directory", dirname);
7430 8b7c7998d78f [project @ 2008-01-30 07:57:35 by jwe] jwe parents: 7017 diff changeset	37 endif
8b7c7998d78f [project @ 2008-01-30 07:57:35 by jwe] jwe parents: 7017 diff changeset	38
4266 1086ac09a411 [project @ 2003-01-03 06:22:54 by jwe] jwe parents: diff changeset	39 endfunction
13072 39814ef3278b codesprint: Add tests for tempdir Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	40
39814ef3278b codesprint: Add tests for tempdir Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	41
39814ef3278b codesprint: Add tests for tempdir Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	42 %!assert (ischar (tempdir ()))
39814ef3278b codesprint: Add tests for tempdir Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	43
39814ef3278b codesprint: Add tests for tempdir Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	44 %!test
39814ef3278b codesprint: Add tests for tempdir Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	45 %! old_wstate = warning ("query");
39814ef3278b codesprint: Add tests for tempdir Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	46 %! warning ("off");
39814ef3278b codesprint: Add tests for tempdir Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	47 %! old_tmpdir = getenv ("TMPDIR");
39814ef3278b codesprint: Add tests for tempdir Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	48 %! unwind_protect
39814ef3278b codesprint: Add tests for tempdir Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	49 %! setenv ("TMPDIR", "__MY_TMP_DIR__");
13141 e81ddf9cacd5 maint: untabify and remove trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 13072 diff changeset	50 %! assert (tempdir (), ["__MY_TMP_DIR__" filesep()]);
13072 39814ef3278b codesprint: Add tests for tempdir Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	51 %! unwind_protect_cleanup
39814ef3278b codesprint: Add tests for tempdir Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	52 %! setenv ("TMPDIR", old_tmpdir);
39814ef3278b codesprint: Add tests for tempdir Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	53 %! warning (old_wstate);
13141 e81ddf9cacd5 maint: untabify and remove trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 13072 diff changeset	54 %! end_unwind_protect
13072 39814ef3278b codesprint: Add tests for tempdir Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	55

Mercurial > hg > octave-lyh

annotate scripts/miscellaneous/tempdir.m @ 15466:d174210ce1ec stable