Mercurial > hg > octave-nkf
annotate liboctave/file-stat.cc @ 12583:bb29b58e650c release-3-4-x
abandon release-3-4-x branch in favor of workflow using stable and default branches and merging stable to default periodically
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Fri, 08 Apr 2011 09:06:04 -0400 |
| parents | 12df7854fa7c |
| children | 72c96de7a403 |
| rev | line source |
|---|---|
| 2926 | 1 /* |
| 2 | |
| 11523 | 3 Copyright (C) 1996-2011 John W. Eaton |
| 2926 | 4 |
| 5 This file is part of Octave. | |
| 6 | |
| 7 Octave is free software; you can redistribute it and/or modify it | |
| 8 under the terms of the GNU General Public License as published by the | |
| 7016 | 9 Free Software Foundation; either version 3 of the License, or (at your |
| 10 option) any later version. | |
| 2926 | 11 |
| 12 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 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 |
| 19 <http://www.gnu.org/licenses/>. | |
| 2926 | 20 |
| 21 */ | |
| 22 | |
| 23 #ifdef HAVE_CONFIG_H | |
| 24 #include <config.h> | |
| 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 <cstring> |
| 2926 | 29 |
| 30 #include <sys/types.h> | |
| 31 #include <unistd.h> | |
| 32 | |
|
11524
bd6e37860be5
use gnulib filemode module
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
33 #include "filemode.h" |
|
bd6e37860be5
use gnulib filemode module
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
34 |
| 5871 | 35 #include "file-ops.h" |
| 2926 | 36 #include "file-stat.h" |
| 37 #include "statdefs.h" | |
| 38 | |
| 5775 | 39 // FIXME -- the is_* and mode_as_string functions are only valid |
| 2926 | 40 // for initialized objects. If called for an object that is not |
| 41 // initialized, they should throw an exception. | |
| 42 | |
| 43 bool | |
| 8549 | 44 base_file_stat::is_blk (void) const |
| 2926 | 45 { |
|
8690
6e9887f9cf9f
file-stat.cc: use EXISTS instead of OK in previuos change
John W. Eaton <jwe@octave.org>
parents:
8689
diff
changeset
|
46 return exists () && is_blk (fs_mode); |
| 2926 | 47 } |
| 48 | |
| 49 bool | |
| 8549 | 50 base_file_stat::is_chr (void) const |
| 2926 | 51 { |
|
8690
6e9887f9cf9f
file-stat.cc: use EXISTS instead of OK in previuos change
John W. Eaton <jwe@octave.org>
parents:
8689
diff
changeset
|
52 return exists () && is_chr (fs_mode); |
| 2926 | 53 } |
| 54 | |
| 55 bool | |
| 8549 | 56 base_file_stat::is_dir (void) const |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11569
diff
changeset
|
57 { |
|
8690
6e9887f9cf9f
file-stat.cc: use EXISTS instead of OK in previuos change
John W. Eaton <jwe@octave.org>
parents:
8689
diff
changeset
|
58 return exists () && is_dir (fs_mode); |
| 5476 | 59 } |
| 60 | |
| 61 bool | |
| 8549 | 62 base_file_stat::is_fifo (void) const |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11569
diff
changeset
|
63 { |
|
8690
6e9887f9cf9f
file-stat.cc: use EXISTS instead of OK in previuos change
John W. Eaton <jwe@octave.org>
parents:
8689
diff
changeset
|
64 return exists () && is_fifo (fs_mode); |
| 5476 | 65 } |
| 66 | |
| 67 bool | |
| 8549 | 68 base_file_stat::is_lnk (void) const |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11569
diff
changeset
|
69 { |
|
8690
6e9887f9cf9f
file-stat.cc: use EXISTS instead of OK in previuos change
John W. Eaton <jwe@octave.org>
parents:
8689
diff
changeset
|
70 return exists () && is_lnk (fs_mode); |
| 5476 | 71 } |
| 72 | |
| 73 bool | |
| 8549 | 74 base_file_stat::is_reg (void) const |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11569
diff
changeset
|
75 { |
|
8690
6e9887f9cf9f
file-stat.cc: use EXISTS instead of OK in previuos change
John W. Eaton <jwe@octave.org>
parents:
8689
diff
changeset
|
76 return exists () && is_reg (fs_mode); |
| 5476 | 77 } |
| 78 | |
| 79 bool | |
| 8549 | 80 base_file_stat::is_sock (void) const |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11569
diff
changeset
|
81 { |
|
8690
6e9887f9cf9f
file-stat.cc: use EXISTS instead of OK in previuos change
John W. Eaton <jwe@octave.org>
parents:
8689
diff
changeset
|
82 return exists () && is_sock (fs_mode); |
| 5476 | 83 } |
| 84 | |
| 85 bool | |
| 8549 | 86 base_file_stat::is_blk (mode_t mode) |
| 5476 | 87 { |
| 88 #ifdef S_ISBLK | |
| 89 return S_ISBLK (mode); | |
| 2926 | 90 #else |
| 91 return false; | |
| 92 #endif | |
| 93 } | |
| 94 | |
| 95 bool | |
| 8549 | 96 base_file_stat::is_chr (mode_t mode) |
| 5476 | 97 { |
| 98 #ifdef S_ISCHR | |
| 99 return S_ISCHR (mode); | |
| 100 #else | |
| 101 return false; | |
| 102 #endif | |
| 103 } | |
| 104 | |
| 105 bool | |
| 8549 | 106 base_file_stat::is_dir (mode_t mode) |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11569
diff
changeset
|
107 { |
| 5476 | 108 #ifdef S_ISDIR |
| 109 return S_ISDIR (mode); | |
| 2926 | 110 #else |
| 111 return false; | |
| 112 #endif | |
| 113 } | |
| 114 | |
| 115 bool | |
| 8549 | 116 base_file_stat::is_fifo (mode_t mode) |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11569
diff
changeset
|
117 { |
| 5476 | 118 #ifdef S_ISFIFO |
| 119 return S_ISFIFO (mode); | |
| 2926 | 120 #else |
| 121 return false; | |
| 122 #endif | |
| 123 } | |
| 124 | |
| 125 bool | |
| 8549 | 126 base_file_stat::is_lnk (mode_t mode) |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11569
diff
changeset
|
127 { |
| 5476 | 128 #ifdef S_ISLNK |
| 129 return S_ISLNK (mode); | |
| 2926 | 130 #else |
| 131 return false; | |
| 132 #endif | |
| 133 } | |
| 134 | |
| 135 bool | |
| 8549 | 136 base_file_stat::is_reg (mode_t mode) |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11569
diff
changeset
|
137 { |
| 5476 | 138 #ifdef S_ISREG |
| 139 return S_ISREG (mode); | |
| 140 #else | |
| 141 return false; | |
| 142 #endif | |
| 143 } | |
| 144 | |
| 145 bool | |
| 8549 | 146 base_file_stat::is_sock (mode_t mode) |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11569
diff
changeset
|
147 { |
| 2926 | 148 #ifdef S_ISSOCK |
| 5476 | 149 return S_ISSOCK (mode); |
| 2926 | 150 #else |
| 151 return false; | |
| 152 #endif | |
| 153 } | |
| 154 | |
| 3504 | 155 std::string |
| 8549 | 156 base_file_stat::mode_as_string (void) const |
| 2926 | 157 { |
|
11569
7e9a111cae20
allocate sufficient space for strmode
John W. Eaton <jwe@octave.org>
parents:
11524
diff
changeset
|
158 char buf[12]; |
| 2926 | 159 |
|
11524
bd6e37860be5
use gnulib filemode module
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
160 strmode (fs_mode, buf); |
| 2926 | 161 |
| 3504 | 162 return std::string (buf); |
| 2926 | 163 } |
| 164 | |
| 165 // Has FILE been modified since TIME? Returns 1 for yes, 0 for no, | |
| 166 // and -1 for any error. | |
| 167 | |
| 168 int | |
| 8549 | 169 base_file_stat::is_newer (const std::string& file, const octave_time& time) |
| 2926 | 170 { |
| 171 file_stat fs (file); | |
| 172 | |
| 173 return fs ? fs.is_newer (time) : -1; | |
| 174 } | |
| 175 | |
| 176 // Private stuff: | |
| 177 | |
| 178 void | |
| 179 file_stat::update_internal (bool force) | |
| 180 { | |
| 181 if (! initialized || force) | |
| 182 { | |
| 183 initialized = false; | |
| 184 fail = false; | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11569
diff
changeset
|
185 |
| 5871 | 186 std::string full_file_name = file_ops::tilde_expand (file_name); |
| 2926 | 187 |
| 6810 | 188 #if defined (__WIN32__) |
| 189 // Remove trailing slash. | |
| 190 if (file_ops::is_dir_sep (full_file_name[full_file_name.length () - 1]) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
191 && full_file_name.length () != 1 |
| 6810 | 192 && ! (full_file_name.length() == 3 && full_file_name[1] == ':')) |
| 193 full_file_name.resize (full_file_name.length () - 1); | |
| 194 #endif | |
| 195 | |
| 5871 | 196 const char *cname = full_file_name.c_str (); |
| 2926 | 197 |
| 198 struct stat buf; | |
| 199 | |
| 10411 | 200 int status = follow_links |
| 201 ? stat (cname, &buf) : gnulib::lstat (cname, &buf); | |
| 2926 | 202 |
| 203 if (status < 0) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
204 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
205 fail = true; |
| 10411 | 206 errmsg = gnulib::strerror (errno); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
207 } |
| 2926 | 208 else |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
209 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
210 fs_mode = buf.st_mode; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
211 fs_ino = buf.st_ino; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
212 fs_dev = buf.st_dev; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
213 fs_nlink = buf.st_nlink; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
214 fs_uid = buf.st_uid; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
215 fs_gid = buf.st_gid; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
216 fs_size = buf.st_size; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
217 fs_atime = buf.st_atime; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
218 fs_mtime = buf.st_mtime; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
219 fs_ctime = buf.st_ctime; |
| 2926 | 220 |
| 3887 | 221 #if defined (HAVE_STRUCT_STAT_ST_RDEV) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
222 fs_rdev = buf.st_rdev; |
| 2926 | 223 #endif |
| 224 | |
| 3887 | 225 #if defined (HAVE_STRUCT_STAT_ST_BLKSIZE) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
226 fs_blksize = buf.st_blksize; |
| 2926 | 227 #endif |
| 228 | |
| 3887 | 229 #if defined (HAVE_STRUCT_STAT_ST_BLOCKS) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
230 fs_blocks = buf.st_blocks; |
| 2926 | 231 #endif |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
232 } |
| 2926 | 233 |
| 234 initialized = true; | |
| 235 } | |
| 236 } | |
| 237 | |
| 238 void | |
| 8549 | 239 file_fstat::update_internal (bool force) |
| 2926 | 240 { |
| 8549 | 241 if (! initialized || force) |
| 242 { | |
| 243 initialized = false; | |
| 244 fail = false; | |
| 245 | |
| 246 struct stat buf; | |
| 247 | |
| 10411 | 248 int status = gnulib::fstat (fid, &buf); |
| 8549 | 249 |
| 250 if (status < 0) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
251 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
252 fail = true; |
| 10411 | 253 errmsg = gnulib::strerror (errno); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
254 } |
| 8549 | 255 else |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
256 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
257 fs_mode = buf.st_mode; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
258 fs_ino = buf.st_ino; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
259 fs_dev = buf.st_dev; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
260 fs_nlink = buf.st_nlink; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
261 fs_uid = buf.st_uid; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
262 fs_gid = buf.st_gid; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
263 fs_size = buf.st_size; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
264 fs_atime = buf.st_atime; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
265 fs_mtime = buf.st_mtime; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
266 fs_ctime = buf.st_ctime; |
| 2926 | 267 |
| 3887 | 268 #if defined (HAVE_STRUCT_STAT_ST_RDEV) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
269 fs_rdev = buf.st_rdev; |
| 2926 | 270 #endif |
| 271 | |
| 3887 | 272 #if defined (HAVE_STRUCT_STAT_ST_BLKSIZE) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
273 fs_blksize = buf.st_blksize; |
| 2926 | 274 #endif |
| 275 | |
| 3887 | 276 #if defined (HAVE_STRUCT_STAT_ST_BLOCKS) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
277 fs_blocks = buf.st_blocks; |
| 2926 | 278 #endif |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10182
diff
changeset
|
279 } |
| 8549 | 280 |
| 281 initialized = true; | |
| 282 } | |
| 2926 | 283 } |