Changeset 22251 for src/Pugs/CodeGen

Timestamp:

09/15/08 10:58:57 (3 months ago)

Author:

pmurias

Message:

[smop/pugs]
switched to method postcircumfix:<( )> (|$capture) {...}
interpreter dies on an unknown method
pugs emits correct m0ld for $*OUT.print("1..1\nok 1\n")

Files:

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

src/Pugs/CodeGen/M0ld.hs

@@ -21 +21 @@
             ++ "my $scope;\n" 
             ++ "my $void;\n"
-            ++ "my $Code_scalar = $scope.\"postcircumfix:{ }\"(\"Code\");\n"
+            ++ "my $Code_scalar = $scope.\"lookup\"(\"Code\");\n"
             ++ "my $Code = $Code_scalar.\"FETCH\"();\n"
 
@@ -53 +53 @@
                 ++ lexicalPrelude
                 ++ body
-                ++ void ++ " = $interpreter.\"return\"(" ++ ret ++ ");\n"
+                ++ "my $continuation = $interpreter.\"continuation\"();\n"
+                ++ "my $back = $continuation.\"back\"();\n"
+                ++ "my $void = $back.\"setr\"(" ++ ret ++ ");\n"
+                ++ "$void = $interpreter.\"goto\"($back);\n"
+--                ++ void ++ " = $interpreter.\"return\"(" ++ ret ++ ");\n"
                 ++ "}));\n")
         PLit {pLit=lit} -> emit lit r
@@ -82 +86 @@
             methodCall inv method args r
         PVar {pVarName=name} -> do
-            return $ "my " ++ r ++ " = $scope.\"postcircumfix:{ }\"(\"" ++ name ++ "\");\n"
+            scalar <- uniqueId
+            return $ "my " ++ scalar ++ " = $scope.\"lookup\"(\"" ++ name ++ "\");\n"
+                ++ "my " ++ r ++ " = " ++ scalar ++ ".\"FETCH\"();\n"
         other -> return $ (show other) ++ ";\n"