Mercurial > hg > octave-nkf

changeset 1764:4688b760ccb2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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