msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

changed js and hs file names in gfcc output to expected ones

Browse Source
This commit is contained in:
aarne
2007-11-09 10:08:07 +00:00
parent 1ad7527f65
commit e66aab0978
2 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/GF/Devel/GFC.hs
View File

@@ -16,7 +16,7 @@ main = do
xx <- getArgs
let (opts,fs) = getOptions "-" xx
case opts of
_ | oElem (iOpt "help") opts -> putStrLn "usage: gfc (--make) FILES"
_ | oElem (iOpt "help") opts -> putStrLn usageMsg
_ | oElem (iOpt "-make") opts -> do
gr <- batchCompile opts fs
let name = justModuleName (last fs)
@@ -50,14 +50,20 @@ file2gfcc f =
---- TODO: nicer and richer print options
alsoPrint opts abs gr (opt,suff) =
alsoPrint opts abs gr (opt,name) =
if oElem (iOpt opt) opts
then do
let outfile = abs ++ "." ++ suff
let outfile = name
let output = prGFCC opt gr
writeFile outfile output
putStrLn $ "wrote file " ++ outfile
else return ()
printOptions = [("haskell","hs"),("haskell_gadt","hs"),("js","js")]
printOptions = [
("haskell","GSyntax.hs"),
("haskell_gadt","GSyntax.hs"),
("js","grammar.js")
]
usageMsg =
"usage: gfc (-h | --make (-noopt) (-js | -haskell | -haskell_gadt)) (-src) FILES"