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

move GF.Devel.PrintGFCC to GF.GFCC.PrintGFCC

Browse Source
This commit is contained in:
kr.angelov
2008-05-22 15:41:17 +00:00
parent 359647445a
commit d7bad70865
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src-3.0/GF/GFCC/PrintGFCC.hs Normal file
View File

@@ -0,0 +1,21 @@
module GF.GFCC.PrintGFCC where
import GF.GFCC.DataGFCC (GFCC)
import GF.GFCC.Raw.ConvertGFCC (fromGFCC)
import GF.GFCC.Raw.PrintGFCCRaw (printTree)
import GF.Devel.GFCCtoHaskell
import GF.Devel.GFCCtoJS
import GF.Text.UTF8
-- top-level access to code generation
prGFCC :: String -> GFCC -> String
prGFCC printer gr = case printer of
"haskell" -> grammar2haskell gr
"haskell_gadt" -> grammar2haskellGADT gr
"js" -> gfcc2js gr
_ -> printGFCC gr
printGFCC :: GFCC -> String
printGFCC = encodeUTF8 . printTree . fromGFCC