Changeset 6589 for src/Pugs/Compile.hs

Timestamp:

08/30/05 20:53:24 (3 years ago)

Author:

putter

Message:

Compile.hs: -CPIL -e 'class C {...}' now works (no longer fails with an error). Next step - remember package/module/class/grammar flavor, so it can tell you what C is.

Files:

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

src/Pugs/Compile.hs

@@ -317 +317 @@
     compile (Syn "but" [obj, block]) =
         compile $ App (Var "&Pugs::Internals::but_block") Nothing [obj, block]
+    compile exp@(Syn "namespace" _) = do
+        -- XXX - Is there a better way to wrap Stmts as LValue?
+        compile $ App (Syn "sub"
+            [ Val . VCode $ mkSub
+                { subBody   = Stmts Noop exp
+                , subParams = []
+                }
+            ]) Nothing []
     compile exp = compError exp