blob: 864fc07c0816001dba63c3bbc34cdda94ea3e562 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module GF.Devel.PrintGFCC where
import GF.GFCC.DataGFCC (GFCC,printGFCC)
import GF.Devel.GFCCtoHaskell
import GF.Devel.GFCCtoJS
-- 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
"jsref" -> gfcc2grammarRef gr
_ -> printGFCC gr
|
