Changeset 22313 for src/Pugs/Compile.hs

Timestamp:

09/22/08 19:30:53 (2 months ago)

Author:

pmurias

Message:

[pugs][smop]
lexical variable work in pugs -Cm0ld
Pugs.Compile.compile marks lexical delarations in PIL1 although not fully correctly

Files:

• src/Pugs/Compile.hs (modified) (3 diffs)

src/Pugs/Compile.hs

@@ -26 +26 @@
 import Language.PIR
 import Text.PrettyPrint
+import qualified Data.ByteString.Char8 as BS
 
 tcVoid, tcLValue :: TCxt
@@ -384 +385 @@
 _PVar = PVar . cast
 
+addPad stmt entry = PPad{pStmts=stmt,pScope=SMy,pSyms=[((BS.unpack $ cast $ fst entry),PRawName "...")]}
 {-| Compiles various 'Exp's to 'PIL_Expr's. -}
 instance Compile Exp PIL_Expr where
@@ -399 +401 @@
         bodyC   <- compile body
         return $ PExp $ PApp cxt (pBlock bodyC) Nothing []
-    compile (Syn "sub" [Val (VCode sub)]) = do
+    compile (Syn "sub" [Val (VCode sub)]) =  do
         bodyC   <- enter sub $ compile $ case subBody sub of
             Syn "block" [exp]   -> exp
             exp                 -> exp
         paramsC <- compile $ subParams sub
-        return $ PCode (subType sub) paramsC (subLValue sub) (isMulti sub) bodyC
+        return $ PCode (subType sub) paramsC (subLValue sub) (isMulti sub) (foldl addPad bodyC (padToList $ subInnerPad sub))
     compile (Syn "module" _) = compile Noop
     compile (Syn "match" exp) = compile $ Syn "rx" exp -- wrong