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

src/Pugs/Run.hs

@@ -36 +36 @@
 import System.IO
 import System.FilePath (joinFileName)
+import System.Posix.Time
 
 
@@ -115 +116 @@
     classes <- initClassObjects (MkObjectId $ -1) [] initTree
     strictSV <- newScalar $ VBool (name /= "-e")
+    -- XXX factor "time" and use it here and in filetime tests
+    baset <- getClockTime
 #if defined(PUGS_HAVE_HSPLUGINS)
     hspluginsSV <- newScalar (VInt 1)
@@ -164 +167 @@
         , gen "$*AUTOLOAD" $ MkRef autoSV
         , gen "$*STRICT" $ MkRef strictSV
+        -- XXX do we want hideInSafemode?
+        , gen "$*BASETIME" $ MkRef $ constScalar (VRat $ pugsTimeSpec baset)
         ] ++ classes
     -- defSVcell <- (gen "$_" . MkRef) =<< newScalar undef