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

annotate liboctave/system/file-stat.cc @ 23219:3ac9f9ecfae5 stable

maint: Update copyright dates.

author	John W. Eaton <jwe@octave.org>
date	Wed, 22 Feb 2017 12:39:29 -0500
parents	525c36d5f985
children	092078913d54 a6e4157694ef

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
23219 3ac9f9ecfae5 maint: Update copyright dates. John W. Eaton <jwe@octave.org> parents: 23206 diff changeset	3 Copyright (C) 1996-2017 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
21949 baeffde5c87d fix build for Windows systems John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	27 #include <ctime>
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	28 #include <cerrno>
10463 bbe99b2a5ba7 undo recent gnulib-related changes John W. Eaton <jwe@octave.org> parents: 10447 diff changeset	29 #include <cstring>
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	30
5871 b9fd54407c8d [project @ 2006-06-30 16:48:39 by jwe] jwe parents: 5775 diff changeset	31 #include "file-ops.h"
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	32 #include "file-stat.h"
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	33 #include "stat-wrappers.h"
21901 7338be52b892 hide gnulib filemode header John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	34 #include "strmode-wrapper.h"
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	35
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	36 namespace octave
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11569 diff changeset	37 {
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	38 namespace sys
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	39 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	40 // 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	41 // 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	42 // initialized, they should throw an exception.
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	43
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	44 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	45 base_file_stat::is_blk (void) const
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	46 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	47 return exists () && is_blk (m_mode);
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
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	50 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	51 base_file_stat::is_chr (void) const
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	52 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	53 return exists () && is_chr (m_mode);
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
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	56 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	57 base_file_stat::is_dir (void) const
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	58 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	59 return exists () && is_dir (m_mode);
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	60 }
5476 941f0fc6b596 [project @ 2005-09-29 22:46:07 by jwe] jwe parents: 5307 diff changeset	61
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	62 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	63 base_file_stat::is_fifo (void) const
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	64 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	65 return exists () && is_fifo (m_mode);
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
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	68 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	69 base_file_stat::is_lnk (void) const
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	70 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	71 return exists () && is_lnk (m_mode);
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	72 }
5476 941f0fc6b596 [project @ 2005-09-29 22:46:07 by jwe] jwe parents: 5307 diff changeset	73
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	74 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	75 base_file_stat::is_reg (void) const
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	76 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	77 return exists () && is_reg (m_mode);
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
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	80 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	81 base_file_stat::is_sock (void) const
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	82 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	83 return exists () && is_sock (m_mode);
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
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	86 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	87 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	88 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	89 return octave_is_blk_wrapper (mode);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	90 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	91
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	92 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	93 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	94 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	95 return octave_is_chr_wrapper (mode);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	96 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	97
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	98 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	99 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	100 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	101 return octave_is_dir_wrapper (mode);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	102 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	103
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	104 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	105 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	106 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	107 return octave_is_fifo_wrapper (mode);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	108 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	109
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	110 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	111 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	112 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	113 return octave_is_lnk_wrapper (mode);
21736 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
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	116 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	117 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	118 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	119 return octave_is_reg_wrapper (mode);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	120 }
5476 941f0fc6b596 [project @ 2005-09-29 22:46:07 by jwe] jwe parents: 5307 diff changeset	121
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	122 bool
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	123 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	124 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	125 return octave_is_sock_wrapper (mode);
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
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	128 bool
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	129 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	130 {
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	131 return ::octave_have_struct_stat_st_rdev ();
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
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	134 bool
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	135 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	136 {
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	137 return octave_have_struct_stat_st_blksize ();
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
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	140 bool
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	141 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	142 {
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	143 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	144 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	145
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	146 std::string
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	147 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	148 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	149 char buf[12];
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	150
21901 7338be52b892 hide gnulib filemode header John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	151 octave_strmode_wrapper (m_mode, buf);
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	152
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	153 return std::string (buf);
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	154 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	155
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	156 // 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	157 // and -1 for any error.
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	158
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	159 int
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	160 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	161 const octave::sys::time& time)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	162 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	163 file_stat fs (file);
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	164
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	165 return fs ? fs.is_newer (time) : -1;
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	166 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	167
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	168 // Private stuff:
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	169
23206 525c36d5f985 Workaround segfault in file_stat (bug #50234). Rik <rik@octave.org> parents: 23083 diff changeset	170 file_stat::file_stat (const std::string& n, bool fl)
525c36d5f985 Workaround segfault in file_stat (bug #50234). Rik <rik@octave.org> parents: 23083 diff changeset	171 : base_file_stat (), file_name (n), follow_links (fl)
525c36d5f985 Workaround segfault in file_stat (bug #50234). Rik <rik@octave.org> parents: 23083 diff changeset	172 {
525c36d5f985 Workaround segfault in file_stat (bug #50234). Rik <rik@octave.org> parents: 23083 diff changeset	173 if (! file_name.empty ())
525c36d5f985 Workaround segfault in file_stat (bug #50234). Rik <rik@octave.org> parents: 23083 diff changeset	174 update_internal ();
525c36d5f985 Workaround segfault in file_stat (bug #50234). Rik <rik@octave.org> parents: 23083 diff changeset	175 }
525c36d5f985 Workaround segfault in file_stat (bug #50234). Rik <rik@octave.org> parents: 23083 diff changeset	176
525c36d5f985 Workaround segfault in file_stat (bug #50234). Rik <rik@octave.org> parents: 23083 diff changeset	177 inline file_stat::~file_stat () { }
525c36d5f985 Workaround segfault in file_stat (bug #50234). Rik <rik@octave.org> parents: 23083 diff changeset	178
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	179 void
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	180 file_stat::update_internal (bool force)
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	181 {
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	182 if (! initialized \|\| force)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	183 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	184 initialized = false;
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	185 fail = false;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11569 diff changeset	186
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	187 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	188
6810 56a7de3f6451 [project @ 2007-08-10 18:53:49 by jwe] jwe parents: 5871 diff changeset	189 #if defined (__WIN32__)
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	190 // Remove trailing slash.
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	191 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	192 && full_file_name.length () != 1
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	193 && ! (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	194 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	195 #endif
56a7de3f6451 [project @ 2007-08-10 18:53:49 by jwe] jwe parents: 5871 diff changeset	196
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	197 const char *cname = full_file_name.c_str ();
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	198
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	199 time_t sys_atime, sys_mtime, sys_ctime;
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	200
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	201 int status
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	202 = (follow_links
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	203 ? 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	204 &m_nlink, &m_uid, &m_gid, &m_size,
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	205 &sys_atime, &sys_mtime, &sys_ctime,
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	206 &m_rdev, &m_blksize, &m_blocks)
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	207 : 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	208 &m_nlink, &m_uid, &m_gid, &m_size,
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	209 &sys_atime, &sys_mtime, &sys_ctime,
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	210 &m_rdev, &m_blksize, &m_blocks));
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	211
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	212 if (status < 0)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	213 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	214 fail = true;
21942 aab79a1885cc limit gnulib headers to liboctave/wrappers directory John W. Eaton <jwe@octave.org> parents: 21935 diff changeset	215 errmsg = std::strerror (errno);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	216 }
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	217 else
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	218 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	219 m_atime = octave::sys::time (sys_atime);
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	220 m_mtime = octave::sys::time (sys_mtime);
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	221 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	222 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	223
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	224 initialized = true;
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	225 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	226 }
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	227
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	228 void
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	229 file_fstat::update_internal (bool force)
8549 424ba638d8f1 [mq]: fstat file-io.cc (Ffstat): new function parents: 7705 diff changeset	230 {
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	231 if (! initialized \|\| force)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	232 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	233 initialized = false;
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	234 fail = false;
8549 424ba638d8f1 [mq]: fstat file-io.cc (Ffstat): new function parents: 7705 diff changeset	235
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	236 time_t sys_atime, sys_mtime, sys_ctime;
8549 424ba638d8f1 [mq]: fstat file-io.cc (Ffstat): new function parents: 7705 diff changeset	237
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	238 int status
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	239 = 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	240 &m_nlink, &m_uid, &m_gid, &m_size,
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	241 &sys_atime, &sys_mtime, &sys_ctime,
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	242 &m_rdev, &m_blksize, &m_blocks);
8549 424ba638d8f1 [mq]: fstat file-io.cc (Ffstat): new function parents: 7705 diff changeset	243
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	244 if (status < 0)
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	245 {
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	246 fail = true;
21942 aab79a1885cc limit gnulib headers to liboctave/wrappers directory John W. Eaton <jwe@octave.org> parents: 21935 diff changeset	247 errmsg = std::strerror (errno);
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	248 }
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	249 else
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	250 {
21935 2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	251 m_atime = octave::sys::time (sys_atime);
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	252 m_mtime = octave::sys::time (sys_mtime);
2f33052c68ff hide sys/stat.h header John W. Eaton <jwe@octave.org> parents: 21901 diff changeset	253 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	254 }
8549 424ba638d8f1 [mq]: fstat file-io.cc (Ffstat): new function parents: 7705 diff changeset	255
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	256 initialized = true;
0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	257 }
8549 424ba638d8f1 [mq]: fstat file-io.cc (Ffstat): new function parents: 7705 diff changeset	258 }
21736 0504351a45e6 use namespace for file_stat classes John W. Eaton <jwe@octave.org> parents: 21733 diff changeset	259 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: diff changeset	260 }

Mercurial > octave

annotate liboctave/system/file-stat.cc @ 23219:3ac9f9ecfae5 stable