octave: liboctave/system/file-stat.cc annotate

annotate liboctave/system/file-stat.cc @ 21942:aab79a1885cc

limit gnulib headers to liboctave/wrappers directory * libinterp/module.mk, liboctave/module.mk, src/module.mk, libgui/src/module.mk: Don't include libgnu directory in lists of include directories. * c-file-ptr-stream.cc, data.cc, dirfns.cc, file-io.cc, ft-text-renderer.cc, gcd.cc, gl2ps-print.cc, graphics.cc, mex.cc, oct-fstrm.cc, oct-procbuf.cc, oct-tex-lexer.in.ll, oct-tex-parser.in.yy, pr-output.cc, quadcc.cc, rand.cc, toplev.cc, utils.cc, __delaunayn__.cc, __init_fltk__.cc, __voronoi__.cc, convhulln.cc, ov-cell.cc, ov-float.cc, ov-scalar.cc, lex.ll, oct-parse.in.yy, Range.cc, idx-vector.cc, Faddeeva/Faddeeva.cc, lo-mappers.cc, lo-specfun.cc, randgamma.cc, randmtzig.cc, randpoisson.cc, dir-ops.cc, file-ops.cc, file-stat.cc, oct-env.cc, oct-syscalls.cc, oct-time.cc, oct-uname.cc, cmd-edit.cc, cmd-hist.cc, lo-utils.cc, oct-inttypes.cc, oct-shlib.cc, sparse-util.cc, mkoctfile.in.cc: Use std:: instead of gnulib:: namespace. * oct-conf-post.in.h: Don't define GNULIB_NAMESPACE.

author	John W. Eaton <jwe@octave.org>
date	Fri, 17 Jun 2016 13:45:04 -0400
parents	2f33052c68ff
children	baeffde5c87d

rev	line source
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	1 /*
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	2
19697 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 17769 diff changeset	3 Copyright (C) 1996-2015 John W. Eaton
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	4
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	5 This file is part of Octave.
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	6
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	7 Octave is free software; you can redistribute it and/or modify it
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	8 under the terms of the GNU General Public License as published by the
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6810 diff changeset	9 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6810 diff changeset	10 option) any later version.
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	11
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	15 for more details.
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	16
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	17 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6810 diff changeset	18 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6810 diff changeset	19 <http://www.gnu.org/licenses/>.
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	20
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	21 */
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	22
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21301 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"
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	25 #endif
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	26
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	27 #include <cerrno>
10463 bbe99b2a5ba7 undo recent gnulib-related changes John W. Eaton <jwe@octave.org> parents: 10447 diff changeset	28 #include <cstring>
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	29
5871 b9fd54407c8d [project @ 2006-06-30 16:48:39 by jwe] jwe parents: 5775 diff changeset	30 #include "file-ops.h"
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	31 #include "file-stat.h"
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	32 #include "stat-wrappers.h"
21901 7338be52b892 hide gnulib filemode header John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	33 #include "strmode-wrapper.h"
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	34
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	35 namespace octave
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11569 diff changeset	36 {
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	37 namespace sys
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	38 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	39 // FIXME: the is_* and mode_as_string functions are only valid
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	40 // for initialized objects. If called for an object that is not
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	41 // initialized, they should throw an exception.
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	42
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	43 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	44 base_file_stat::is_blk (void) const
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	45 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	46 return exists () && is_blk (m_mode);
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	47 }
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	48
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	49 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	50 base_file_stat::is_chr (void) const
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	51 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	52 return exists () && is_chr (m_mode);
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	53 }
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	54
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	55 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	56 base_file_stat::is_dir (void) const
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	57 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	58 return exists () && is_dir (m_mode);
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	59 }
5476 941f0fc6b596 [project @ 2005-09-29 22:46:07 by jwe] jwe parents: 5307 diff changeset	60
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	61 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	62 base_file_stat::is_fifo (void) const
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	63 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	64 return exists () && is_fifo (m_mode);
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	65 }
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	66
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	67 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	68 base_file_stat::is_lnk (void) const
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	69 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	70 return exists () && is_lnk (m_mode);
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	71 }
5476 941f0fc6b596 [project @ 2005-09-29 22:46:07 by jwe] jwe parents: 5307 diff changeset	72
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	73 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	74 base_file_stat::is_reg (void) const
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	75 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	76 return exists () && is_reg (m_mode);
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	77 }
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	78
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	79 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	80 base_file_stat::is_sock (void) const
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	81 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	82 return exists () && is_sock (m_mode);
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	83 }
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	84
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	85 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	86 base_file_stat::is_blk (mode_t mode)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	87 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	88 return octave_is_blk_wrapper (mode);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	89 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	90
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	91 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	92 base_file_stat::is_chr (mode_t mode)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	93 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	94 return octave_is_chr_wrapper (mode);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	95 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	96
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	97 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	98 base_file_stat::is_dir (mode_t mode)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	99 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	100 return octave_is_dir_wrapper (mode);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	101 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	102
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	103 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	104 base_file_stat::is_fifo (mode_t mode)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	105 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	106 return octave_is_fifo_wrapper (mode);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	107 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	108
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	109 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	110 base_file_stat::is_lnk (mode_t mode)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	111 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	112 return octave_is_lnk_wrapper (mode);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	113 }
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	114
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	115 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	116 base_file_stat::is_reg (mode_t mode)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	117 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	118 return octave_is_reg_wrapper (mode);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	119 }
5476 941f0fc6b596 [project @ 2005-09-29 22:46:07 by jwe] jwe parents: 5307 diff changeset	120
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	121 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	122 base_file_stat::is_sock (mode_t mode)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	123 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	124 return octave_is_sock_wrapper (mode);
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	125 }
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	126
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	127 bool
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	128 base_file_stat::have_struct_stat_st_rdev (void)
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	129 {
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	130 return ::octave_have_struct_stat_st_rdev ();
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	131 }
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	132
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	133 bool
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	134 base_file_stat::have_struct_stat_st_blksize (void)
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	135 {
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	136 return octave_have_struct_stat_st_blksize ();
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	137 }
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	138
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	139 bool
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	140 base_file_stat::have_struct_stat_st_blocks (void)
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	141 {
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	142 return octave_have_struct_stat_st_blocks ();
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	143 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	144
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	145 std::string
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	146 base_file_stat::mode_as_string (void) const
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	147 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	148 char buf[12];
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	149
21901 7338be52b892 hide gnulib filemode header John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	150 octave_strmode_wrapper (m_mode, buf);
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	151
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	152 return std::string (buf);
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	153 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	154
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	155 // Has FILE been modified since TIME? Returns 1 for yes, 0 for no,
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	156 // and -1 for any error.
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	157
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	158 int
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	159 base_file_stat::is_newer (const std::string& file,
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	160 const octave::sys::time& time)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	161 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	162 file_stat fs (file);
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	163
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	164 return fs ? fs.is_newer (time) : -1;
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	165 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	166
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	167 // Private stuff:
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	168
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	169 void
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	170 file_stat::update_internal (bool force)
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	171 {
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	172 if (! initialized \|\| force)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	173 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	174 initialized = false;
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	175 fail = false;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11569 diff changeset	176
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	177 std::string full_file_name = octave::sys::file_ops::tilde_expand (file_name);
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	178
6810 56a7de3f6451 [project @ 2007-08-10 18:53:49 by jwe] jwe parents: 5871 diff changeset	179 #if defined (__WIN32__)
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	180 // Remove trailing slash.
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	181 if (octave::sys::file_ops::is_dir_sep (full_file_name[full_file_name.length () - 1])
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	182 && full_file_name.length () != 1
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	183 && ! (full_file_name.length () == 3 && full_file_name[1] == ':'))
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	184 full_file_name.resize (full_file_name.length () - 1);
6810 56a7de3f6451 [project @ 2007-08-10 18:53:49 by jwe] jwe parents: 5871 diff changeset	185 #endif
56a7de3f6451 [project @ 2007-08-10 18:53:49 by jwe] jwe parents: 5871 diff changeset	186
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	187 const char *cname = full_file_name.c_str ();
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	188
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	189 time_t sys_atime, sys_mtime, sys_ctime;
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	190
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	191 int status
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	192 = (follow_links
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	193 ? octave_stat_wrapper (cname, &m_mode, &m_ino, &m_dev,
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	194 &m_nlink, &m_uid, &m_gid, &m_size,
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	195 &sys_atime, &sys_mtime, &sys_ctime,
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	196 &m_rdev, &m_blksize, &m_blocks)
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	197 : octave_lstat_wrapper (cname, &m_mode, &m_ino, &m_dev,
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	198 &m_nlink, &m_uid, &m_gid, &m_size,
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	199 &sys_atime, &sys_mtime, &sys_ctime,
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	200 &m_rdev, &m_blksize, &m_blocks));
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	201
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	202 if (status < 0)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	203 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	204 fail = true;
21942 aab79a1885cc limit gnulib headers to liboctave/wrappers directory John W. Eaton <jwe@octave.org> parents: 21935 diff changeset	205 errmsg = std::strerror (errno);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	206 }
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	207 else
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	208 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	209 m_atime = octave::sys::time (sys_atime);
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	210 m_mtime = octave::sys::time (sys_mtime);
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	211 m_ctime = octave::sys::time (sys_ctime);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	212 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	213
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	214 initialized = true;
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	215 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	216 }
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	217
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	218 void
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	219 file_fstat::update_internal (bool force)
8549 424ba638d8f1 [mq]: fstat file-io.cc (Ffstat): new function parents: 7705 diff changeset	220 {
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	221 if (! initialized \|\| force)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	222 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	223 initialized = false;
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	224 fail = false;
8549 424ba638d8f1 [mq]: fstat file-io.cc (Ffstat): new function parents: 7705 diff changeset	225
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	226 time_t sys_atime, sys_mtime, sys_ctime;
8549 424ba638d8f1 [mq]: fstat file-io.cc (Ffstat): new function parents: 7705 diff changeset	227
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	228 int status
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	229 = octave_fstat_wrapper (fid, &m_mode, &m_ino, &m_dev,
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	230 &m_nlink, &m_uid, &m_gid, &m_size,
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	231 &sys_atime, &sys_mtime, &sys_ctime,
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	232 &m_rdev, &m_blksize, &m_blocks);
8549 424ba638d8f1 [mq]: fstat file-io.cc (Ffstat): new function parents: 7705 diff changeset	233
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	234 if (status < 0)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	235 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	236 fail = true;
21942 aab79a1885cc limit gnulib headers to liboctave/wrappers directory John W. Eaton <jwe@octave.org> parents: 21935 diff changeset	237 errmsg = std::strerror (errno);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	238 }
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	239 else
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	240 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	241 m_atime = octave::sys::time (sys_atime);
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	242 m_mtime = octave::sys::time (sys_mtime);
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	243 m_ctime = octave::sys::time (sys_ctime);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	244 }
8549 424ba638d8f1 [mq]: fstat file-io.cc (Ffstat): new function parents: 7705 diff changeset	245
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	246 initialized = true;
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	247 }
8549 424ba638d8f1 [mq]: fstat file-io.cc (Ffstat): new function parents: 7705 diff changeset	248 }
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	249 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	250 }

Mercurial > octave

annotate liboctave/system/file-stat.cc @ 21942:aab79a1885cc