tools/pas2c/Main.hs
branchwebgl
changeset 7979 a3974abc62d3
parent 7975 1a8308265fdd
child 8836 7a474fcc343d
--- 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