Changeset 14599 for src/Pugs/Prim/FileTest.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/Prim/FileTest.hs (modified) (3 diffs)

src/Pugs/Prim/FileTest.hs

@@ -3 +3 @@
     exists, isFile, isDirectory,
     fileSize, sizeIsZero,
+    fileMTime, fileCTime, fileATime,
 ) where
 import Pugs.Internals
@@ -34 +35 @@
 sizeIsZero   :: Val -> Eval Val
 sizeIsZero   = fileTestIO fileTestSizeIsZero
+fileMTime    :: Val -> Eval Val
+fileMTime    = fileTime statFileMTime
+fileCTime    :: Val -> Eval Val
+fileCTime    = fileTime statFileCTime
+fileATime    :: Val -> Eval Val
+fileATime    = fileTime statFileATime
+
+fileTime :: (FilePath -> IO Integer) -> Val -> Eval Val
+fileTime test f = do
+    t <- fileTestIO (fileTestDo test) f
+    if (t == undef) then return VUndef else do
+    t' <- fromVal t
+    b <- (readVar $ cast "$*BASETIME") >>= fromVal
+    return $ VRat $ (b - (pugsTimeSpec $ TOD t' 0)) / 86400
 
 fileTestIO :: (Value n) => (n -> IO Val) -> Val -> Eval Val
@@ -74 +89 @@
     n <- statFileSize f
     return $ if n == 0 then VBool True else VBool False
+
+fileTestDo :: (FilePath -> IO Integer) -> FilePath -> IO Val
+fileTestDo test f = test f >>= return . VInt