src/GF/Devel/PrintGFCC.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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
  _ -> printGFCC gr