Changeset 14599 for src/Pugs/Compat.hs

Timestamp:

11/03/06 05:30:51 (2 years ago)

Author:

allbery_b

svk:copy_cache_prev:

41990

Message:

AUTHORS: hello, world\n :)
src/Pugs/Compat.hs: added file time tests
src/Pugs/Internals.hs, src/Pugs/Prim.hs: abstract out guts of "time" for

use in $*BASETIME and file tests

src/Pugs/Run.hs: add $*BASETIME
src/Pugs/AST.hs: document _reserved and filterUserDefinedPad; add $*BASETIME

to _reserved

src/Pugs/Prim.hs: add file time operators -M, -C, -A
src/Pugs/Prim/FileTest.hs: add implementation of file time operators
t/operators/filetest.t: correct existing file time operator tests, add a few

more, add all of them to the plan

Files:

• src/Pugs/Compat.hs (modified) (2 diffs)

src/Pugs/Compat.hs

@@ -25 +25 @@
     getArg0,
     statFileSize,
+    statFileMTime,
+    statFileCTime,
+    statFileATime,
     getProcessID,
     getRealUserID,
@@ -97 +100 @@
     return (toInteger (fileSize s))
 
+statFileTime :: (FileStatus -> EpochTime) -> FilePath -> IO Integer
+statFileTime op f = do
+    s <- getFileStatus f
+    return (toInteger $ fromEnum $ op s)
+
+statFileMTime :: FilePath -> IO Integer
+statFileMTime f = statFileTime modificationTime f >>= return
+
+statFileCTime :: FilePath -> IO Integer
+statFileCTime f = statFileTime statusChangeTime f >>= return
+
+statFileATime :: FilePath -> IO Integer
+statFileATime f = statFileTime accessTime f >>= return
+
 type Signal = System.Posix.Signals.Signal
 signalProcess :: Signal -> ProcessID -> IO ()