Mercurial > hg > octave-lojdl
changeset 1764:4688b760ccb2
[project @ 1996-01-23 01:34:07 by jwe]
author | jwe |
---|---|
date | Tue, 23 Jan 1996 01:34:13 +0000 |
parents | 78d87372e601 |
children | a51354c34bea |
files | src/dirfns.cc src/dirfns.h |
diffstat | 2 files changed, 0 insertions(+), 26 deletions(-) [+] |
line wrap: on
line diff
--- a/src/dirfns.cc +++ b/src/dirfns.cc @@ -239,31 +239,6 @@ return current_path; } -// Has file `A' been modified after time `T'? -// -// case: -// -// a newer than t returns 1 -// a older than t returns 0 -// stat on a fails returns -1 - -int -is_newer (const string& fa, time_t t) -{ - struct stat fa_sb; - register int fa_stat; - register int status = 0; - - fa_stat = stat (fa.c_str (), &fa_sb); - if (fa_stat != 0) - status = -1; - - if (status != 0) - return status; - - return (fa_sb.st_mtime > t); -} - // Return a consed string which is the current working directory. // FOR_WHOM is the name of the caller for error printing.
--- a/src/dirfns.h +++ b/src/dirfns.h @@ -33,7 +33,6 @@ extern int absolute_program (const string&); extern string base_pathname (const string&); extern string make_absolute (const string&, const string&); -extern int is_newer (const string&, time_t); extern string get_working_directory (const string&); #endif