Changeset 5030 for src/Pugs/CodeGen

Timestamp:

06/27/05 21:28:19 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

6880

Message:

* include prelude bindings in PIL output.

Files:

• src/Pugs/CodeGen/PIL.hs (modified) (1 diff)

src/Pugs/CodeGen/PIL.hs

@@ -8 +8 @@
 import Pugs.Compile
 
-{-| Compiles the current environment to PIR code. -}
 genPIL :: Eval Val
 genPIL = do
+    glob        <- askGlobal
     main        <- asks envBody
+    globPIL     <- compile glob :: Eval [PIL Decl]
     mainPIL     <- compile main :: Eval (PIL [Stmt])
-    return . VStr $ show mainPIL
+    return . VStr . unlines $
+        [ "PIL_Environment"
+        , "    { pilMain = (" ++ show mainPIL ++ ")"
+        , "    , pilGlob = (" ++ show globPIL ++ ")"
+        , "    }"
+        ]