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

annotate scripts/miscellaneous/tempdir.m @ 13141:e81ddf9cacd5

maint: untabify and remove trailing whitespace from source files * bicg.m, gmres.m, pkg.m: Untabify and remove trailing whitespace. * libcruft/Makefile.am, libcruft/blas-xtra/cdotc3.f, libcruft/blas-xtra/cmatm3.f, libcruft/blas-xtra/ddot3.f, libcruft/blas-xtra/dmatm3.f, libcruft/blas-xtra/sdot3.f, libcruft/blas-xtra/smatm3.f, libcruft/blas-xtra/zdotc3.f, libcruft/blas-xtra/zmatm3.f, libcruft/lapack-xtra/crsf2csf.f, libcruft/lapack-xtra/zrsf2csf.f, liboctave/Array.cc, liboctave/DASPK-opts.in, liboctave/DASRT-opts.in, liboctave/DASSL-opts.in, liboctave/LSODE-opts.in, liboctave/Makefile.a,mliboctave/Quad-opts.in, liboctave/Sparse-perm-op-defs.h, scripts/Makefile.a,mscripts/deprecated/glpkmex.m, scripts/general/blkdiag.m, scripts/general/interp1.m, scripts/general/profshow.m, scripts/general/quadl.m, scripts/general/triplequad.m, scripts/help/__makeinfo__.m, scripts/io/strread.m, scripts/io/textread.m, scripts/io/textscan.m, scripts/linear-algebra/rank.m, scripts/miscellaneous/gzip.m, scripts/miscellaneous/private/__xzip__.m, scripts/miscellaneous/tempdir.m, scripts/miscellaneous/unpack.m, scripts/pkg/pkg.m, scripts/plot/allchild.m, scripts/plot/ancestor.m, scripts/plot/cla.m, scripts/plot/clf.m, scripts/plot/findall.m, scripts/plot/findobj.m, scripts/plot/gca.m, scripts/plot/gcf.m, scripts/plot/hggroup.m, scripts/plot/isfigure.m, scripts/plot/ishghandle.m, scripts/plot/legend.m, scripts/plot/line.m, scripts/plot/loglog.m, scripts/plot/patch.m, scripts/plot/print.m, scripts/plot/private/__quiver__.m, scripts/plot/private/__scatter__.m, scripts/plot/rectangle.m, scripts/plot/semilogx.m, scripts/plot/semilogy.m, scripts/plot/surface.m, scripts/plot/text.m, scripts/plot/title.m, scripts/plot/trisurf.m, scripts/plot/view.m, scripts/plot/whitebg.m, scripts/plot/xlabel.m, scripts/plot/xlim.m, scripts/plot/ylabel.m, scripts/plot/ylim.m, scripts/plot/zlabel.m, scripts/plot/zlim.m, scripts/polynomial/mkpp.m, scripts/polynomial/polygcd.m, scripts/polynomial/ppint.m, scripts/polynomial/ppjumps.m, scripts/polynomial/ppval.m, scripts/set/setxor.m, scripts/sparse/bicgstab.m, scripts/sparse/cgs.m, scripts/sparse/spconvert.m, scripts/specfun/nthroot.m, scripts/strings/strmatch.m, scripts/strings/untabify.m, scripts/testfun/demo.m, scripts/testfun/example.m, src/DLD-FUNCTIONS/filter.cc, src/DLD-FUNCTIONS/mgorth.cc, src/DLD-FUNCTIONS/quadcc.cc, src/DLD-FUNCTIONS/str2double.cc, src/Makefile.a,msrc/gl-render.cc, src/gl2ps-renderer.cc, src/graphics.cc, src/octave-config.cc.in, src/octave-config.in, src/ov-class.h, src/ov-fcn.h, src/profiler.cc, src/profiler.h, src/pt-binop.cc, src/pt-unop.cc, src/symtab.cc, src/txt-eng-ft.cc: Remove trailing whitespace.

author	John W. Eaton <jwe@octave.org>
date	Thu, 15 Sep 2011 12:51:10 -0400
parents	39814ef3278b
children	72c96de7a403

rev	line source
11523 fd0a3ac60b0e update copyright notices John W. Eaton <jwe@octave.org> parents: 10631 diff changeset	1 ## Copyright (C) 2003-2011 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))
8b7c7998d78f [project @ 2008-01-30 07:57:35 by jwe] jwe parents: 7017 diff changeset	36 warning ("tempdir: `%s' does not exist or is not a directory", dirname);
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 @ 13141:e81ddf9cacd5