Changeset 22186 for src/Pugs/CodeGen

Timestamp:

09/07/08 22:26:47 (3 months ago)

Author:

pmurias

Message:

[pugs-m0ld] pugs -Cm0ld compiles 'say 42', it needs runtime support

Files:

• src/Pugs/CodeGen/M0ld.hs (modified) (3 diffs)

src/Pugs/CodeGen/M0ld.hs

@@ -18 +18 @@
     emit :: a -> [Char] -> State Int [Char]
 
+lexicalPrelude = "my $interpreter;\n"
+            ++ "my $scope;\n" 
+            ++ "my $void;\n"
+            ++ "my $Code_scalar = $scope.\"postcircumfix:{ }\"(\"Code\");\n"
+            ++ "my $Code = $Code_scalar.\"FETCH\"();\n"
+
 instance EmitM0ld PIL_Environment where
-    emit env r = emit (pilMain env) r
+    emit env r = do
+        main <- emit (pilMain env) r
+        return $ lexicalPrelude ++ main
 instance EmitM0ld PIL_Stmts where
     emit statement r = case statement of
@@ -27 +35 @@
         PStmts{pStmt=stmt,pStmts=rest} -> do 
             stmt <- emit stmt void
-            rest <- emit rest void
+            rest <- emit rest r
             return $ stmt ++ rest
 
@@ -42 +50 @@
             ret <- uniqueId
             body <- emit body ret
-            return ("my " ++ r ++ " = $Code.\"new\"(mold {\n"
+            return ("my " ++ r ++ " = $Code.\"new\"(:\"outer\"($scope),:\"mold\"(mold {\n"
+                ++ lexicalPrelude
                 ++ body
                 ++ void ++ " = $interpreter.\"return\"(" ++ ret ++ ");\n"
-                ++ "});\n")
+                ++ "}));\n")
         PLit {pLit=lit} -> emit lit r
         other -> placeholder other r