Changeset 5667 for src/Pugs/Compile.hs

Timestamp:

07/18/05 17:53:32 (3 years ago)

Author:

iblech

svk:copy_cache_prev:

7648

Message:

* Pugs.Compile -- loop foo; ; bar {baz} should be compiled as loop foo;

bool::true; bar {baz}.

* PIL2JS: jspugs.pl -- Empty lines don't cause a compile now.
* PIL2JS: PIL::Nodes, PIL::Parser -- Support for VBool.

Files:

• src/Pugs/Compile.hs (modified) (1 diff)

src/Pugs/Compile.hs

@@ -261 +261 @@
     compile (Syn "loop" [pre, cond, post, (Syn "block" [body])]) = do
         preC    <- compile pre
-        condC   <- compile cond
+        -- loop ...; ; ... {...} ->
+        -- loop ...; bool::true; ... {...}
+        let cond' | unwrap cond == Noop
+                  = return $ PStmts (PStmt . PLit . PVal $ VBool True) PNil
+                  | otherwise
+                  = compile cond
+        condC   <- cond'
         bodyC   <- compile body
         postC   <- compile post