Changeset 16627 for src/Pugs/Compile

Timestamp:

06/04/07 10:08:30 (18 months ago)

Author:

gaal

Message:

* reintroduce the description field in CompUnit?, and chase codeGens

to use the filename where possible.
You may need to "rm blib6/lib/*yml" with this revision.
TODO: think about adding a parser revision number to the compunit

Files:

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

src/Pugs/Compile/Pugs.hs

@@ -198 +198 @@
     -}
 
-genPugs :: Eval Val
-genPugs = do
+genPugs :: FilePath -> Eval Val
+genPugs file = do
     exp             <- asks envBody
     glob            <- askGlobal
@@ -214 +214 @@
         , "import qualified Data.Set as Set"
         , ""
+        , "-- compiled from " ++ file ++ " with -CPugs"
+        , ""
         , "main = do"
         , "    glob <- globC"