Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tools/pas2c/Pas2C.hs
branchwebgl
changeset 9982 24ea101fdc7f
parent 9964 12b0ed9910cd
child 10015 4feced261c68 
--- a/tools/pas2c/Pas2C.hs	Wed Jan 08 23:49:08 2014 +0100
+++ b/tools/pas2c/Pas2C.hs	Thu Jan 09 23:54:40 2014 +0400
@@ -96,8 +96,8 @@
 docToLower :: Doc -> Doc
 docToLower = text . map toLower . render
 
-pas2C :: String -> String -> String -> String -> IO ()
-pas2C fn inputPath outputPath alternateInputPath = do
+pas2C :: String -> String -> String -> String -> [String] -> IO ()
+pas2C fn inputPath outputPath alternateInputPath symbols = do
     s <- flip execStateT initState $ f fn
     renderCFiles s outputPath
     where
@@ -111,7 +111,7 @@
             print ("Preprocessing '" ++ fileName ++ ".pas'... ")
             fc' <- liftIO
                 $ tryJust (guard . isDoesNotExistError)
-                $ preprocess inputPath alternateInputPath (fileName ++ ".pas")
+                $ preprocess inputPath alternateInputPath (fileName ++ ".pas") symbols
             case fc' of
                 (Left a) -> do
                     modify (Map.insert fileName (System []))
hedgewars