Changeset 3646 for src/Pugs/Run.hs

Timestamp:

05/22/05 15:58:46 (4 years ago)

Author:

iblech

svk:copy_cache_prev:

5201

Message:

* INIT {...} blocks in void context and as rvalues. :)
* Added a test for them (t/statements/init.t).
* Usual svn props added to t/rules/named_rule_capture.t.

Files:

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

src/Pugs/Run.hs

@@ -78 +78 @@
     progSV  <- newScalar (VStr name)
     endAV   <- newArray []
+    initAV  <- newArray []
     matchAV <- newScalar (VMatch mkMatchFail)
     incAV   <- newArray (map VStr libs)
@@ -108 +109 @@
         , genSym "$*EGID"       $ MkRef egidSV
         , genSym "@*END"        $ MkRef endAV
+        , genSym "@?INIT"       $ MkRef initAV
         , genSym "$*IN"         $ MkRef inGV
         , genSym "$*OUT"        $ MkRef outGV