forked from GitHub/gf-core
16 lines
391 B
Haskell
16 lines
391 B
Haskell
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
|