Mercurial > octave
annotate liboctave/system/file-ops.cc @ 25438:cb1606f78f6b
prefer <istream>, <ostream>, or <iosfwd> to <iostream> where possible
Using <iostream> brings with it a static initializer for the std::cin,
std::cout, and std::cerr streams. In most cases they are not needed
and should be avoided if possible.
Files affected:
build-aux/mk-opts.pl
libgui/qterminal/libqterminal/win32/QWinTerminalImpl.cpp
libinterp/corefcn/__dsearchn__.cc
libinterp/corefcn/c-file-ptr-stream.cc
libinterp/corefcn/c-file-ptr-stream.h
libinterp/corefcn/daspk.cc
libinterp/corefcn/dasrt.cc
libinterp/corefcn/dassl.cc
libinterp/corefcn/defaults.cc
libinterp/corefcn/defun.cc
libinterp/corefcn/file-io.cc
libinterp/corefcn/ft-text-renderer.cc
libinterp/corefcn/gl-render.cc
libinterp/corefcn/help.cc
libinterp/corefcn/ls-ascii-helper.cc
libinterp/corefcn/ls-hdf5.cc
libinterp/corefcn/ls-hdf5.h
libinterp/corefcn/ls-mat-ascii.cc
libinterp/corefcn/ls-mat4.cc
libinterp/corefcn/ls-mat5.cc
libinterp/corefcn/ls-oct-binary.cc
libinterp/corefcn/ls-oct-text.cc
libinterp/corefcn/lsode.cc
libinterp/corefcn/oct-iostrm.cc
libinterp/corefcn/oct-procbuf.cc
libinterp/corefcn/oct-stdstrm.h
libinterp/corefcn/procstream.cc
libinterp/corefcn/procstream.h
libinterp/corefcn/quad.cc
libinterp/corefcn/symscope.h
libinterp/corefcn/symtab.h
libinterp/corefcn/toplev.cc
libinterp/corefcn/urlwrite.cc
libinterp/corefcn/utils.cc
libinterp/corefcn/zfstream.cc
libinterp/dldfcn/__ode15__.cc
libinterp/dldfcn/convhulln.cc
libinterp/octave-value/ov-base-diag.cc
libinterp/octave-value/ov-base-int.cc
libinterp/octave-value/ov-base-mat.cc
libinterp/octave-value/ov-base-scalar.cc
libinterp/octave-value/ov-base-sparse.cc
libinterp/octave-value/ov-base.cc
libinterp/octave-value/ov-bool-mat.cc
libinterp/octave-value/ov-bool-sparse.cc
libinterp/octave-value/ov-bool.cc
libinterp/octave-value/ov-cell.cc
libinterp/octave-value/ov-ch-mat.cc
libinterp/octave-value/ov-class.cc
libinterp/octave-value/ov-colon.cc
libinterp/octave-value/ov-complex.cc
libinterp/octave-value/ov-cs-list.cc
libinterp/octave-value/ov-cx-mat.cc
libinterp/octave-value/ov-cx-sparse.cc
libinterp/octave-value/ov-fcn-handle.cc
libinterp/octave-value/ov-fcn-inline.cc
libinterp/octave-value/ov-float.cc
libinterp/octave-value/ov-flt-complex.cc
libinterp/octave-value/ov-flt-cx-mat.cc
libinterp/octave-value/ov-flt-re-mat.cc
libinterp/octave-value/ov-int16.cc
libinterp/octave-value/ov-int32.cc
libinterp/octave-value/ov-int64.cc
libinterp/octave-value/ov-int8.cc
libinterp/octave-value/ov-java.cc
libinterp/octave-value/ov-range.cc
libinterp/octave-value/ov-re-mat.cc
libinterp/octave-value/ov-re-sparse.cc
libinterp/octave-value/ov-scalar.cc
libinterp/octave-value/ov-str-mat.cc
libinterp/octave-value/ov-struct.cc
libinterp/octave-value/ov-typeinfo.cc
libinterp/octave-value/ov-uint16.cc
libinterp/octave-value/ov-uint32.cc
libinterp/octave-value/ov-uint64.cc
libinterp/octave-value/ov-uint8.cc
libinterp/octave.cc
libinterp/parse-tree/bp-table.cc
libinterp/parse-tree/lex.h
libinterp/parse-tree/profiler.cc
libinterp/parse-tree/pt-arg-list.cc
libinterp/parse-tree/pt-array-list.cc
libinterp/parse-tree/pt-assign.cc
libinterp/parse-tree/pt-cell.cc
libinterp/parse-tree/pt-const.cc
libinterp/parse-tree/pt-eval.cc
libinterp/parse-tree/pt-exp.cc
libinterp/parse-tree/pt-fcn-handle.cc
libinterp/parse-tree/pt-jit.cc
libinterp/parse-tree/pt-pr-code.cc
libinterp/parse-tree/pt-tm-const.cc
libinterp/parse-tree/pt.cc
liboctave/array/Array.cc
liboctave/array/CColVector.cc
liboctave/array/CDiagMatrix.cc
liboctave/array/CMatrix.cc
liboctave/array/CNDArray.cc
liboctave/array/CRowVector.cc
liboctave/array/CSparse.cc
liboctave/array/DiagArray2.cc
liboctave/array/MArray.cc
liboctave/array/Range.cc
liboctave/array/Sparse.cc
liboctave/array/boolMatrix.cc
liboctave/array/boolSparse.cc
liboctave/array/chMatrix.cc
liboctave/array/dColVector.cc
liboctave/array/dDiagMatrix.cc
liboctave/array/dMatrix.cc
liboctave/array/dNDArray.cc
liboctave/array/dRowVector.cc
liboctave/array/dSparse.cc
liboctave/array/fCColVector.cc
liboctave/array/fCDiagMatrix.cc
liboctave/array/fCMatrix.cc
liboctave/array/fCNDArray.cc
liboctave/array/fCRowVector.cc
liboctave/array/fColVector.cc
liboctave/array/fDiagMatrix.cc
liboctave/array/fMatrix.cc
liboctave/array/fNDArray.cc
liboctave/array/fRowVector.cc
liboctave/array/idx-vector.cc
liboctave/numeric/CollocWt.cc
liboctave/numeric/eigs-base.cc
liboctave/system/file-ops.cc
liboctave/system/oct-time.cc
liboctave/util/cmd-hist.cc
liboctave/util/data-conv.cc
liboctave/util/data-conv.h
liboctave/util/file-info.cc
liboctave/util/lo-utils.cc
liboctave/util/lo-utils.h
liboctave/util/quit.cc
liboctave/util/str-vec.cc
liboctave/util/url-transfer.cc
liboctave/util/url-transfer.h
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 07 Jun 2018 10:11:54 -0400 |
parents | 6652d3823428 |
children | 8945a6a6c0eb |
rev | line source |
---|---|
1765 | 1 /* |
2 | |
25054
6652d3823428
maint: Update copyright dates in all source files.
John W. Eaton <jwe@octave.org>
parents:
24739
diff
changeset
|
3 Copyright (C) 1996-2018 John W. Eaton |
1765 | 4 |
5 This file is part of Octave. | |
6 | |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
23812
diff
changeset
|
7 Octave is free software: you can redistribute it and/or modify it |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
8 under the terms of the GNU General Public License as published by |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
23812
diff
changeset
|
9 the Free Software Foundation, either version 3 of the License, or |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
10 (at your option) any later version. |
1765 | 11 |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
12 Octave is distributed in the hope that it will be useful, but |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
13 WITHOUT ANY WARRANTY; without even the implied warranty of |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
15 GNU General Public License for more details. |
1765 | 16 |
17 You should have received a copy of the GNU General Public License | |
7016 | 18 along with Octave; see the file COPYING. If not, see |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
23812
diff
changeset
|
19 <https://www.gnu.org/licenses/>. |
1765 | 20 |
21 */ | |
22 | |
21724
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21308
diff
changeset
|
23 #if defined (HAVE_CONFIG_H) |
21301
40de9f8f23a6
Use '#include "config.h"' rather than <config.h>.
Rik <rik@octave.org>
parents:
21202
diff
changeset
|
24 # include "config.h" |
1765 | 25 #endif |
26 | |
27 #include <cerrno> | |
10463
bbe99b2a5ba7
undo recent gnulib-related changes
John W. Eaton <jwe@octave.org>
parents:
10447
diff
changeset
|
28 #include <cstdio> |
bbe99b2a5ba7
undo recent gnulib-related changes
John W. Eaton <jwe@octave.org>
parents:
10447
diff
changeset
|
29 #include <cstdlib> |
bbe99b2a5ba7
undo recent gnulib-related changes
John W. Eaton <jwe@octave.org>
parents:
10447
diff
changeset
|
30 #include <cstring> |
1765 | 31 |
21896
83c824c727c9
hide gnulib pathlen header
John W. Eaton <jwe@octave.org>
parents:
21890
diff
changeset
|
32 #if (defined (OCTAVE_HAVE_WINDOWS_FILESYSTEM) && ! defined (OCTAVE_HAVE_POSIX_FILESYSTEM)) |
83c824c727c9
hide gnulib pathlen header
John W. Eaton <jwe@octave.org>
parents:
21890
diff
changeset
|
33 # include <algorithm> |
83c824c727c9
hide gnulib pathlen header
John W. Eaton <jwe@octave.org>
parents:
21890
diff
changeset
|
34 #endif |
83c824c727c9
hide gnulib pathlen header
John W. Eaton <jwe@octave.org>
parents:
21890
diff
changeset
|
35 |
4726 | 36 #include <vector> |
3040 | 37 |
21896
83c824c727c9
hide gnulib pathlen header
John W. Eaton <jwe@octave.org>
parents:
21890
diff
changeset
|
38 #include "areadlink-wrapper.h" |
21888
00f1249f2483
create wrappers for some gnulib functions
John W. Eaton <jwe@octave.org>
parents:
21885
diff
changeset
|
39 #include "canonicalize-file-name-wrapper.h" |
5476 | 40 #include "dir-ops.h" |
1765 | 41 #include "file-ops.h" |
5476 | 42 #include "file-stat.h" |
21896
83c824c727c9
hide gnulib pathlen header
John W. Eaton <jwe@octave.org>
parents:
21890
diff
changeset
|
43 #include "gen-tempname-wrapper.h" |
2926 | 44 #include "oct-env.h" |
13983
7dd7cccf0757
clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
45 #include "oct-locbuf.h" |
2934 | 46 #include "oct-passwd.h" |
5476 | 47 #include "quit.h" |
21909
d7cac41df82a
provide wrappers for some sys/stat functions
John W. Eaton <jwe@octave.org>
parents:
21896
diff
changeset
|
48 #include "stat-wrappers.h" |
2926 | 49 #include "str-vec.h" |
21910
4d723ba06b4a
provide wrappers for some unistd.h functions
John W. Eaton <jwe@octave.org>
parents:
21909
diff
changeset
|
50 #include "unistd-wrappers.h" |
20503
0829b6ff3ac9
Use backslash as windows file separator for canonicalize_file_name (Bug #45816).
Rik <rik@octave.org>
parents:
19697
diff
changeset
|
51 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
52 // The following tilde-expansion code was stolen and adapted from |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
53 // readline. |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
54 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
55 // The default value of tilde_additional_prefixes. This is set to |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
56 // whitespace preceding a tilde so that simple programs which do not |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
57 // perform any word separation get desired behavior. |
23795
980f39c3ab90
Use C++11 nullptr rather than 0 in code (bug #51565).
Rik <rik@octave.org>
parents:
23744
diff
changeset
|
58 static const char *default_prefixes[] = { " ~", "\t~", ":~", nullptr }; |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
59 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
60 // The default value of tilde_additional_suffixes. This is set to |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
61 // whitespace or newline so that simple programs which do not perform |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
62 // any word separation get desired behavior. |
23795
980f39c3ab90
Use C++11 nullptr rather than 0 in code (bug #51565).
Rik <rik@octave.org>
parents:
23744
diff
changeset
|
63 static const char *default_suffixes[] = { " ", "\n", ":", nullptr }; |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
64 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
65 static size_t |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
66 tilde_find_prefix (const std::string& s, size_t& len) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
67 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
68 len = 0; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
69 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
70 size_t s_len = s.length (); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
71 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
72 if (s_len == 0 || s[0] == '~') |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
73 return 0; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
74 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
75 string_vector prefixes = octave::sys::file_ops::tilde_additional_prefixes; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
76 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
77 if (! prefixes.empty ()) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
78 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
79 for (size_t i = 0; i < s_len; i++) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
80 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
81 for (int j = 0; j < prefixes.numel (); j++) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
82 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
83 size_t pfx_len = prefixes[j].length (); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
84 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
85 if (prefixes[j] == s.substr (i, pfx_len)) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
86 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
87 len = pfx_len - 1; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
88 return i + len; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
89 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
90 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
91 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
92 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
93 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
94 return s_len; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
95 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
96 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
97 // Find the end of a tilde expansion in S, and return the index |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
98 // of the character which ends the tilde definition. |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
99 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
100 static size_t |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
101 tilde_find_suffix (const std::string& s) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
102 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
103 size_t s_len = s.length (); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
104 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
105 string_vector suffixes = octave::sys::file_ops::tilde_additional_suffixes; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
106 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
107 size_t i = 0; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
108 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
109 for ( ; i < s_len; i++) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
110 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
111 if (octave::sys::file_ops::is_dir_sep (s[i])) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
112 break; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
113 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
114 if (! suffixes.empty ()) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
115 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
116 for (int j = 0; j < suffixes.numel (); j++) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
117 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
118 size_t sfx_len = suffixes[j].length (); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
119 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
120 if (suffixes[j] == s.substr (i, sfx_len)) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
121 return i; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
122 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
123 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
124 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
125 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
126 return i; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
127 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
128 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
129 // Take FNAME and return the tilde prefix we want expanded. |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
130 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
131 static std::string |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
132 isolate_tilde_prefix (const std::string& fname) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
133 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
134 size_t f_len = fname.length (); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
135 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
136 size_t len = 1; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
137 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
138 while (len < f_len && ! octave::sys::file_ops::is_dir_sep (fname[len])) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
139 len++; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
140 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
141 return fname.substr (1, len); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
142 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
143 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
144 // Do the work of tilde expansion on FILENAME. FILENAME starts with a |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
145 // tilde. |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
146 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
147 static std::string |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
148 tilde_expand_word (const std::string& filename) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
149 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
150 size_t f_len = filename.length (); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
151 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
152 if (f_len == 0 || filename[0] != '~') |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
153 return std::string (filename); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
154 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
155 // A leading '~/' or a bare '~' is *always* translated to the value |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
156 // of $HOME or the home directory of the current user, regardless of |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
157 // any preexpansion hook. |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
158 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
159 if (f_len == 1 || octave::sys::file_ops::is_dir_sep (filename[1])) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
160 return octave::sys::env::get_home_directory () + filename.substr (1); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
161 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
162 std::string username = isolate_tilde_prefix (filename); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
163 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
164 size_t user_len = username.length (); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
165 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
166 std::string dirname; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
167 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
168 if (octave::sys::file_ops::tilde_expansion_preexpansion_hook) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
169 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
170 std::string expansion |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
171 = octave::sys::file_ops::tilde_expansion_preexpansion_hook (username); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
172 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
173 if (! expansion.empty ()) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
174 return expansion + filename.substr (user_len+1); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
175 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
176 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
177 // No preexpansion hook, or the preexpansion hook failed. Look in the |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
178 // password database. |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
179 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
180 octave::sys::password pw = octave::sys::password::getpwnam (username); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
181 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
182 if (! pw) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
183 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
184 // If the calling program has a special syntax for expanding tildes, |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
185 // and we couldn't find a standard expansion, then let them try. |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
186 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
187 if (octave::sys::file_ops::tilde_expansion_failure_hook) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
188 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
189 std::string expansion |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
190 = octave::sys::file_ops::tilde_expansion_failure_hook (username); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
191 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
192 if (! expansion.empty ()) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
193 dirname = expansion + filename.substr (user_len+1); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
194 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
195 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
196 // If we don't have a failure hook, or if the failure hook did not |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
197 // expand the tilde, return a copy of what we were passed. |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
198 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
199 if (dirname.empty ()) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
200 dirname = filename; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
201 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
202 else |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
203 dirname = pw.dir () + filename.substr (user_len+1); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
204 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
205 return dirname; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
206 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
207 |
21734
11af9c03400c
write namespace keyword and name on same line in C++ files
John W. Eaton <jwe@octave.org>
parents:
21733
diff
changeset
|
208 namespace octave |
8007
a2ab20ba78f7
make file_ops a proper singleton class
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
209 { |
21734
11af9c03400c
write namespace keyword and name on same line in C++ files
John W. Eaton <jwe@octave.org>
parents:
21733
diff
changeset
|
210 namespace sys |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
211 { |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
212 namespace file_ops |
8007
a2ab20ba78f7
make file_ops a proper singleton class
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
213 { |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
214 char dev_sep_char (void) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
215 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
216 #if (defined (OCTAVE_HAVE_WINDOWS_FILESYSTEM) && ! defined (OCTAVE_HAVE_POSIX_FILESYSTEM)) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
217 return ':'; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
218 #else |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
219 return 0; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
220 #endif |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
221 } |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
222 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
223 char dir_sep_char (void) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
224 { |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
225 #if (defined (OCTAVE_HAVE_WINDOWS_FILESYSTEM) && ! defined (OCTAVE_HAVE_POSIX_FILESYSTEM)) |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
226 return '\\'; |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
227 #else |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
228 return '/'; |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
229 #endif |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
230 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
231 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
232 std::string dir_sep_str (void) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
233 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
234 #if (defined (OCTAVE_HAVE_WINDOWS_FILESYSTEM) && ! defined (OCTAVE_HAVE_POSIX_FILESYSTEM)) |
23804
8057d3f0673d
Use C++11 raw string literals to avoid escaping backslashes in strings.
Rik <rik@octave.org>
parents:
23795
diff
changeset
|
235 return R"(\)"; |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
236 #else |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
237 return "/"; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
238 #endif |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
239 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
240 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
241 std::string dir_sep_chars (void) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
242 { |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
243 #if defined (OCTAVE_HAVE_WINDOWS_FILESYSTEM) |
23804
8057d3f0673d
Use C++11 raw string literals to avoid escaping backslashes in strings.
Rik <rik@octave.org>
parents:
23795
diff
changeset
|
244 return R"(/\)"; |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
245 #else |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
246 return dir_sep_str (); |
5138 | 247 #endif |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
248 } |
6271 | 249 |
23795
980f39c3ab90
Use C++11 nullptr rather than 0 in code (bug #51565).
Rik <rik@octave.org>
parents:
23744
diff
changeset
|
250 tilde_expansion_hook tilde_expansion_preexpansion_hook = nullptr; |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
251 |
23795
980f39c3ab90
Use C++11 nullptr rather than 0 in code (bug #51565).
Rik <rik@octave.org>
parents:
23744
diff
changeset
|
252 tilde_expansion_hook tilde_expansion_failure_hook = nullptr; |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
253 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
254 string_vector tilde_additional_prefixes = default_prefixes; |
5138 | 255 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
256 string_vector tilde_additional_suffixes = default_suffixes; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
257 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
258 bool is_dev_sep (char c) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
259 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
260 #if (defined (OCTAVE_HAVE_WINDOWS_FILESYSTEM) && ! defined (OCTAVE_HAVE_POSIX_FILESYSTEM)) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
261 return c == dev_sep_char (); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
262 #else |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
263 octave_unused_parameter (c); |
1802 | 264 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
265 return false; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
266 #endif |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
267 } |
2926 | 268 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
269 bool is_dir_sep (char c) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
270 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
271 std::string tmp = dir_sep_chars (); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
272 return tmp.find (c) != std::string::npos; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
273 } |
3040 | 274 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
275 std::string tilde_expand (const std::string& name) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
276 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
277 if (name.find ('~') == std::string::npos) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
278 return std::string (name); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
279 else |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
280 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
281 std::string result; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
282 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
283 size_t name_len = name.length (); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
284 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
285 // Scan through S expanding tildes as we come to them. |
3040 | 286 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
287 size_t pos = 0; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
288 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
289 while (1) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
290 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
291 if (pos > name_len) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
292 break; |
3040 | 293 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
294 size_t len; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
295 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
296 // Make START point to the tilde which starts the expansion. |
3040 | 297 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
298 size_t start = tilde_find_prefix (name.substr (pos), len); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
299 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
300 result.append (name.substr (pos, start)); |
3040 | 301 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
302 // Advance STRING to the starting tilde. |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
303 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
304 pos += start; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
305 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
306 // Make FINI be the index of one after the last character of the |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
307 // username. |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
308 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
309 size_t fini = tilde_find_suffix (name.substr (pos)); |
3040 | 310 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
311 // If both START and FINI are zero, we are all done. |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
312 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
313 if (! (start || fini)) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
314 break; |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
315 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
316 // Expand the entire tilde word, and copy it into RESULT. |
3040 | 317 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
318 std::string tilde_word = name.substr (pos, fini); |
3040 | 319 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
320 pos += fini; |
3040 | 321 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
322 std::string expansion = tilde_expand_word (tilde_word); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
323 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
324 result.append (expansion); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
325 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
326 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
327 return result; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
328 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
329 } |
3040 | 330 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
331 string_vector tilde_expand (const string_vector& names) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
332 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
333 int n = names.numel (); |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
334 |
23812
057a894914df
Use C++11 string fcns back() and pop_back() to simplify code.
Rik <rik@octave.org>
parents:
23804
diff
changeset
|
335 string_vector retval (n); |
3040 | 336 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
337 for (int i = 0; i < n; i++) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
338 retval[i] = tilde_expand (names[i]); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
339 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
340 return retval; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
341 } |
3040 | 342 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
343 std::string concat (const std::string& dir, const std::string& file) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
344 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
345 return dir.empty () |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
346 ? file |
23812
057a894914df
Use C++11 string fcns back() and pop_back() to simplify code.
Rik <rik@octave.org>
parents:
23804
diff
changeset
|
347 : (is_dir_sep (dir.back ()) |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
348 ? dir + file |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
349 : dir + dir_sep_char () + file); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
350 } |
3040 | 351 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
352 std::string dirname (const std::string& path) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
353 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
354 size_t ipos = path.find_last_of (dir_sep_chars ()); |
3040 | 355 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
356 return (ipos != std::string::npos) ? path.substr (0, ipos) : ""; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
357 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
358 |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
359 std::string tail (const std::string& path) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
360 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
361 size_t ipos = path.find_last_of (dir_sep_chars ()); |
3040 | 362 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
363 if (ipos != std::string::npos) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
364 ipos++; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
365 else |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
366 ipos = 0; |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
367 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
368 return path.substr (ipos); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
369 } |
3040 | 370 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
371 std::string native_separator_path (const std::string& path) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
372 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
373 std::string retval; |
3040 | 374 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
375 if (dir_sep_char () == '/') |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
376 retval = path; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
377 else |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
378 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
379 size_t n = path.length (); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
380 for (size_t i = 0; i < n; i++) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
381 { |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
382 if (path[i] == '/') |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
383 retval += dir_sep_char(); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
384 else |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
385 retval += path[i]; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
386 } |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
387 } |
3040 | 388 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
389 return retval; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
390 } |
3040 | 391 } |
392 | |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
393 int mkdir (const std::string& nm, mode_t md) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
394 { |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
395 std::string msg; |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
396 return mkdir (nm, md, msg); |
21881
aea1bf9493c0
* file-ops.h, file-ops.cc (file_ops::file_ops): Now protected.
John W. Eaton <jwe@octave.org>
parents:
21852
diff
changeset
|
397 } |
aea1bf9493c0
* file-ops.h, file-ops.cc (file_ops::file_ops): Now protected.
John W. Eaton <jwe@octave.org>
parents:
21852
diff
changeset
|
398 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
399 int mkdir (const std::string& name, mode_t mode, std::string& msg) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
400 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
401 msg = ""; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
402 |
21909
d7cac41df82a
provide wrappers for some sys/stat functions
John W. Eaton <jwe@octave.org>
parents:
21896
diff
changeset
|
403 int status = octave_mkdir_wrapper (name.c_str (), mode); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
404 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
405 if (status < 0) |
21942
aab79a1885cc
limit gnulib headers to liboctave/wrappers directory
John W. Eaton <jwe@octave.org>
parents:
21910
diff
changeset
|
406 msg = std::strerror (errno); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
407 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
408 return status; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
409 } |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
410 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
411 int mkfifo (const std::string& nm, mode_t md) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
412 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
413 std::string msg; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
414 return mkfifo (nm, md, msg); |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
415 } |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
416 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
417 int mkfifo (const std::string& name, mode_t mode, std::string& msg) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
418 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
419 msg = ""; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
420 |
21909
d7cac41df82a
provide wrappers for some sys/stat functions
John W. Eaton <jwe@octave.org>
parents:
21896
diff
changeset
|
421 int status = octave_mkfifo_wrapper (name.c_str (), mode); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
422 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
423 if (status < 0) |
21942
aab79a1885cc
limit gnulib headers to liboctave/wrappers directory
John W. Eaton <jwe@octave.org>
parents:
21910
diff
changeset
|
424 msg = std::strerror (errno); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
425 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
426 return status; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
427 } |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
428 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
429 int link (const std::string& old_name, const std::string& new_name) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
430 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
431 std::string msg; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
432 return link (old_name, new_name, msg); |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
433 } |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
434 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
435 int link (const std::string& old_name, const std::string& new_name, |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
436 std::string& msg) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
437 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
438 msg = ""; |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
439 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
440 int status = -1; |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
441 |
21910
4d723ba06b4a
provide wrappers for some unistd.h functions
John W. Eaton <jwe@octave.org>
parents:
21909
diff
changeset
|
442 status = octave_link_wrapper (old_name.c_str (), new_name.c_str ()); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
443 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
444 if (status < 0) |
21942
aab79a1885cc
limit gnulib headers to liboctave/wrappers directory
John W. Eaton <jwe@octave.org>
parents:
21910
diff
changeset
|
445 msg = std::strerror (errno); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
446 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
447 return status; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
448 } |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
449 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
450 int symlink (const std::string& old_name, const std::string& new_name) |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
451 { |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
452 std::string msg; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
453 return symlink (old_name, new_name, msg); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
454 } |
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
455 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
456 int symlink (const std::string& old_name, const std::string& new_name, |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
457 std::string& msg) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
458 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
459 msg = ""; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
460 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
461 int status = -1; |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
462 |
21910
4d723ba06b4a
provide wrappers for some unistd.h functions
John W. Eaton <jwe@octave.org>
parents:
21909
diff
changeset
|
463 status = octave_symlink_wrapper (old_name.c_str (), new_name.c_str ()); |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
464 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
465 if (status < 0) |
21942
aab79a1885cc
limit gnulib headers to liboctave/wrappers directory
John W. Eaton <jwe@octave.org>
parents:
21910
diff
changeset
|
466 msg = std::strerror (errno); |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
467 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
468 return status; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
469 } |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
470 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
471 int readlink (const std::string& path, std::string& result) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
472 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
473 std::string msg; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
474 return readlink (path, result, msg); |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
475 } |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
476 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
477 int readlink (const std::string& path, std::string& result, std::string& msg) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
478 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
479 int status = -1; |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
480 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
481 msg = ""; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
482 |
21896
83c824c727c9
hide gnulib pathlen header
John W. Eaton <jwe@octave.org>
parents:
21890
diff
changeset
|
483 char *buf = octave_areadlink_wrapper (path.c_str ()); |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
484 |
21896
83c824c727c9
hide gnulib pathlen header
John W. Eaton <jwe@octave.org>
parents:
21890
diff
changeset
|
485 if (! buf) |
21942
aab79a1885cc
limit gnulib headers to liboctave/wrappers directory
John W. Eaton <jwe@octave.org>
parents:
21910
diff
changeset
|
486 msg = std::strerror (errno); |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
487 else |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
488 { |
21896
83c824c727c9
hide gnulib pathlen header
John W. Eaton <jwe@octave.org>
parents:
21890
diff
changeset
|
489 result = buf; |
83c824c727c9
hide gnulib pathlen header
John W. Eaton <jwe@octave.org>
parents:
21890
diff
changeset
|
490 ::free (buf); |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
491 status = 0; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
492 } |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
493 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
494 return status; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
495 } |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
496 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
497 int rename (const std::string& from, const std::string& to) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
498 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
499 std::string msg; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
500 return rename (from, to, msg); |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
501 } |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
502 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
503 int rename (const std::string& from, const std::string& to, std::string& msg) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
504 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
505 int status = -1; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
506 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
507 msg = ""; |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
508 |
21942
aab79a1885cc
limit gnulib headers to liboctave/wrappers directory
John W. Eaton <jwe@octave.org>
parents:
21910
diff
changeset
|
509 status = std::rename (from.c_str (), to.c_str ()); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
510 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
511 if (status < 0) |
21942
aab79a1885cc
limit gnulib headers to liboctave/wrappers directory
John W. Eaton <jwe@octave.org>
parents:
21910
diff
changeset
|
512 msg = std::strerror (errno); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
513 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
514 return status; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
515 } |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
516 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
517 int rmdir (const std::string& name) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
518 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
519 std::string msg; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
520 return rmdir (name, msg); |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
521 } |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
522 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
523 int rmdir (const std::string& name, std::string& msg) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
524 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
525 msg = ""; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
526 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
527 int status = -1; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
528 |
21910
4d723ba06b4a
provide wrappers for some unistd.h functions
John W. Eaton <jwe@octave.org>
parents:
21909
diff
changeset
|
529 status = octave_rmdir_wrapper (name.c_str ()); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
530 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
531 if (status < 0) |
21942
aab79a1885cc
limit gnulib headers to liboctave/wrappers directory
John W. Eaton <jwe@octave.org>
parents:
21910
diff
changeset
|
532 msg = std::strerror (errno); |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
533 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
534 return status; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
535 } |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
536 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
537 // And a version that works recursively. |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
538 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
539 int recursive_rmdir (const std::string& name) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
540 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
541 std::string msg; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
542 return recursive_rmdir (name, msg); |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
543 } |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
544 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
545 int recursive_rmdir (const std::string& name, std::string& msg) |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
546 { |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
547 msg = ""; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
548 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
549 int status = 0; |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
550 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
551 dir_entry dir (name); |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
552 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
553 if (dir) |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
554 { |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
555 string_vector dirlist = dir.read (); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
556 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
557 for (octave_idx_type i = 0; i < dirlist.numel (); i++) |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
558 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
559 octave_quit (); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
560 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
561 std::string nm = dirlist[i]; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
562 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
563 // Skip current directory and parent. |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
564 if (nm == "." || nm == "..") |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
565 continue; |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
566 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
567 std::string fullnm = name + file_ops::dir_sep_str () + nm; |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
568 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
569 // Get info about the file. Don't follow links. |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
570 file_stat fs (fullnm, false); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
571 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
572 if (fs) |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
573 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
574 if (fs.is_dir ()) |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
575 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
576 status = recursive_rmdir (fullnm, msg); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
577 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
578 if (status < 0) |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
579 break; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
580 } |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
581 else |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
582 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
583 status = unlink (fullnm, msg); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
584 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
585 if (status < 0) |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
586 break; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
587 } |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
588 } |
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
589 else |
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
590 { |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
591 msg = fs.error (); |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
592 break; |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
593 } |
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
594 } |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
595 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
596 if (status >= 0) |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
597 { |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
598 dir.close (); |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
599 status = rmdir (name, msg); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
600 } |
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
601 } |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
602 else |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
603 { |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
604 status = -1; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
605 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
606 msg = dir.error (); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
607 } |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
608 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
609 return status; |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
610 } |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
611 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
612 int umask (mode_t mode) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
613 { |
21909
d7cac41df82a
provide wrappers for some sys/stat functions
John W. Eaton <jwe@octave.org>
parents:
21896
diff
changeset
|
614 return octave_umask_wrapper (mode); |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
615 } |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
616 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
617 int unlink (const std::string& name) |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
618 { |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
619 std::string msg; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
620 return unlink (name, msg); |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
621 } |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
622 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
623 int unlink (const std::string& name, std::string& msg) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
624 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
625 msg = ""; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
626 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
627 int status = -1; |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
628 |
21910
4d723ba06b4a
provide wrappers for some unistd.h functions
John W. Eaton <jwe@octave.org>
parents:
21909
diff
changeset
|
629 status = octave_unlink_wrapper (name.c_str ()); |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
630 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
631 if (status < 0) |
21942
aab79a1885cc
limit gnulib headers to liboctave/wrappers directory
John W. Eaton <jwe@octave.org>
parents:
21910
diff
changeset
|
632 msg = std::strerror (errno); |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
633 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
634 return status; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
635 } |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
636 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
637 std::string tempnam (const std::string& dir, const std::string& pfx) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
638 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
639 std::string msg; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
640 return tempnam (dir, pfx, msg); |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
641 } |
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
642 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
643 std::string tempnam (const std::string& dir, const std::string& pfx, |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
644 std::string& msg) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
645 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
646 msg = ""; |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
647 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
648 std::string retval; |
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10189
diff
changeset
|
649 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
650 // get dir path to use for template |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
651 std::string templatename; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
652 if (dir.empty ()) |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
653 templatename = env::get_temp_directory (); |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
654 else if (! file_stat (dir, false).is_dir ()) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
655 templatename = env::get_temp_directory (); |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
656 else |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
657 templatename = dir; |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
658 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
659 // add dir sep char if it is not there |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
660 if (*templatename.rbegin () != file_ops::dir_sep_char ()) |
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
661 templatename += file_ops::dir_sep_char (); |
19420
82f2a3437e02
Fix tempname so it prioritizes user input dir rather than TMPDIR (bug #43844).
Rik <rik@octave.org>
parents:
18412
diff
changeset
|
662 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
663 if (pfx.empty ()) |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
664 templatename += "file"; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
665 else |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
666 templatename += pfx; |
19458
d8fd3842a507
Use gnulib gen_tempname to create temporary names (Bug #43872).
John Donoghue <john.donoghue@ieee.org>
parents:
19428
diff
changeset
|
667 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
668 // add the required XXXXXX for the template |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
669 templatename += "XXXXXX"; |
19428
eee9f111c164
Check if tempfile name exists when changing path of temporary file name (Bug #43872)
John Donoghue
parents:
19420
diff
changeset
|
670 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
671 // create and copy template to char array for call to gen_tempname |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
672 char tname [templatename.length () + 1]; |
19597
db92e7e28e1f
strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents:
19458
diff
changeset
|
673 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
674 strcpy (tname, templatename.c_str ()); |
10252
2fcc927a8757
liboctave/file-ops.h: avoid gnulib #define for canonicalize_file_name
John W. Eaton <jwe@octave.org>
parents:
10250
diff
changeset
|
675 |
21888
00f1249f2483
create wrappers for some gnulib functions
John W. Eaton <jwe@octave.org>
parents:
21885
diff
changeset
|
676 if (octave_gen_tempname_wrapper (tname) == -1) |
21942
aab79a1885cc
limit gnulib headers to liboctave/wrappers directory
John W. Eaton <jwe@octave.org>
parents:
21910
diff
changeset
|
677 msg = std::strerror (errno); |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
678 else |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
679 retval = tname; |
10252
2fcc927a8757
liboctave/file-ops.h: avoid gnulib #define for canonicalize_file_name
John W. Eaton <jwe@octave.org>
parents:
10250
diff
changeset
|
680 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
681 return retval; |
10252
2fcc927a8757
liboctave/file-ops.h: avoid gnulib #define for canonicalize_file_name
John W. Eaton <jwe@octave.org>
parents:
10250
diff
changeset
|
682 } |
2fcc927a8757
liboctave/file-ops.h: avoid gnulib #define for canonicalize_file_name
John W. Eaton <jwe@octave.org>
parents:
10250
diff
changeset
|
683 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
684 std::string canonicalize_file_name (const std::string& name) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
685 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
686 std::string msg; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
687 return canonicalize_file_name (name, msg); |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
688 } |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
689 |
23744
ae74608b6a5d
don't use singleton pattern for file_ops
John W. Eaton <jwe@octave.org>
parents:
23696
diff
changeset
|
690 std::string canonicalize_file_name (const std::string& name, std::string& msg) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
691 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
692 msg = ""; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
693 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
694 std::string retval; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
695 |
21888
00f1249f2483
create wrappers for some gnulib functions
John W. Eaton <jwe@octave.org>
parents:
21885
diff
changeset
|
696 char *tmp = octave_canonicalize_file_name_wrapper (name.c_str ()); |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
697 |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
698 if (tmp) |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
699 { |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
700 retval = tmp; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
701 free (tmp); |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
702 } |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
703 |
20503
0829b6ff3ac9
Use backslash as windows file separator for canonicalize_file_name (Bug #45816).
Rik <rik@octave.org>
parents:
19697
diff
changeset
|
704 #if (defined (OCTAVE_HAVE_WINDOWS_FILESYSTEM) && ! defined (OCTAVE_HAVE_POSIX_FILESYSTEM)) |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
705 // Canonical Windows file separator is backslash. |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
706 std::replace (retval.begin (), retval.end (), '/', '\\'); |
20503
0829b6ff3ac9
Use backslash as windows file separator for canonicalize_file_name (Bug #45816).
Rik <rik@octave.org>
parents:
19697
diff
changeset
|
707 #endif |
0829b6ff3ac9
Use backslash as windows file separator for canonicalize_file_name (Bug #45816).
Rik <rik@octave.org>
parents:
19697
diff
changeset
|
708 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
709 if (retval.empty ()) |
21942
aab79a1885cc
limit gnulib headers to liboctave/wrappers directory
John W. Eaton <jwe@octave.org>
parents:
21910
diff
changeset
|
710 msg = std::strerror (errno); |
10252
2fcc927a8757
liboctave/file-ops.h: avoid gnulib #define for canonicalize_file_name
John W. Eaton <jwe@octave.org>
parents:
10250
diff
changeset
|
711 |
21733
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
712 return retval; |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
713 } |
cb0fdd941d84
use namespace for system file_ops class
John W. Eaton <jwe@octave.org>
parents:
21732
diff
changeset
|
714 } |
10252
2fcc927a8757
liboctave/file-ops.h: avoid gnulib #define for canonicalize_file_name
John W. Eaton <jwe@octave.org>
parents:
10250
diff
changeset
|
715 } |