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

src/Pugs/AST.hs

@@ -342 +342 @@
     isPrimVal _ = False
 
+{-|
+Filter out reserved symbols from the specified Pad.
+-}
 filterUserDefinedPad :: Pad -> Pad
 filterUserDefinedPad (MkPad pad) = MkPad $ Map.filterWithKey doFilter pad
@@ -347 +350 @@
     doFilter key _ = (not . Set.member key) _reserved
 
+{-|
+Symbols which are reserved for the current interpreter/compiler instance and
+should not be set from the preamble or other sources.  See
+@Pugs.AST.filterUserDefinedPad@.
+-}
 _reserved :: Set Var
 _reserved = Set.fromList . cast . words $
@@ -352 +360 @@
     "$*PROGRAM_NAME $*PID $*UID $*EUID $*GID $*EGID @*CHECK @*INIT $*IN " ++
     "$*OUT $*ERR $*ARGS $/ %*ENV $*CWD @=POD $=POD $?PUGS_VERSION " ++
-    "$*OS %?CONFIG $*_ $*AUTOLOAD $*PUGS_VERSION"
+    "$*OS %?CONFIG $*_ $*AUTOLOAD $*PUGS_VERSION $*BASETIME"
 
 typeOfParam :: Param -> Type