Mercurial Mercurial > hedgewars-draft / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
verbose pas2c for parsed args webgl
authorkoda
Wed, 07 Nov 2012 16:16:03 +0000
branchwebgl
changeset 7979 a3974abc62d3
parent 7977 4987f6f83cdf
child 7981 aac257b77842
verbose pas2c for parsed args
tools/pas2c/Main.hs file | annotate | diff | comparison | revisions 
--- a/tools/pas2c/Main.hs	Wed Nov 07 14:41:35 2012 +0000
+++ b/tools/pas2c/Main.hs	Wed Nov 07 16:16:03 2012 +0000
@@ -18,10 +18,24 @@
         case getOpt RequireOrder options args of
           (flags, [],      [])     ->
             if length args == 8 then do
+                hPutStrLn stdout $ "--------Pas2C Config--------"
+                hPutStrLn stdout $ "Main module: " ++ (args !! 1)
+                hPutStrLn stdout $ "Input path : " ++ (args !! 3)
+                hPutStrLn stdout $ "Output path: " ++ (args !! 5)
+                hPutStrLn stdout $ "Altern path: " ++ (args !! 7)
+                hPutStrLn stdout $ "----------------------------"
                 pas2C (args !! 1) ((args !! 3)++"/") ((args !! 5)++"/") ((args !! 7)++"/")
+                hPutStrLn stdout $ "----------------------------"
             else do
                 if length args == 6 then do
+                    hPutStrLn stdout $ "--------Pas2C Config--------"
+                    hPutStrLn stdout $ "Main module: " ++ (args !! 1)
+                    hPutStrLn stdout $ "Input path : " ++ (args !! 3)
+                    hPutStrLn stdout $ "Output path: " ++ (args !! 5)
+                    hPutStrLn stdout $ "Altern path: " ++ "./"
+                    hPutStrLn stdout $ "----------------------------"
                     pas2C (args !! 1) ((args !! 3)++"/") ((args !! 5)++"/") "./"
+                    hPutStrLn stdout $ "----------------------------"
                 else do
                     error $ usageInfo header options
           (_,     nonOpts, [])     -> error $ "unrecognized arguments: " ++ unwords nonOpts
hedgewars-draft