Changeset 6248 for src/Pugs/CodeGen/Perl5.hs

Timestamp:

08/14/05 17:32:14 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

8452

Message:

* -CBinary - dump PIL1 tree as opaque GhcBinary? file for fast loading.

Files:

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

src/Pugs/CodeGen/Perl5.hs

@@ -6 +6 @@
 import Pugs.AST
 import Pugs.Compile
+import Pugs.PIL1
 import DrIFT.Perl5
 
 genPerl5 :: Eval Val
 genPerl5 = do
-    glob        <- askGlobal
-    main        <- asks envBody
-    globPIL     <- compile glob :: Eval [PIL_Decl]
-    mainPIL     <- compile main :: Eval PIL_Stmts
+    penv <- compile ()
     return . VStr . unlines $
         [ "bless({"
-        , "    pilMain => " ++ showPerl5 mainPIL ++ ","
-        , "    pilGlob => " ++ showPerl5 globPIL
+        , "    pilMain => " ++ showPerl5 (pilMain penv) ++ ","
+        , "    pilGlob => " ++ showPerl5 (pilGlob penv)
         , "} => 'PIL::Environment')"
         ]