diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-09-20 13:26:59 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-09-20 13:26:59 +0000 |
| commit | 74ad9aa2fd7a9cbd4fb011cd445cd1e47a03e8ef (patch) | |
| tree | e162194d717ff5126b8653e7422d6cda7dce061b /src/GF/UseGrammar | |
| parent | 8bf5ff0a9423be908502a0ad4c5f91ff00f342e4 (diff) | |
printing GSyntax with GFCC trees
Diffstat (limited to 'src/GF/UseGrammar')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 6737247ef..ea115b207 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -35,6 +35,8 @@ import qualified GF.Grammar.Grammar as G import qualified GF.Canon.AbsGFC as A import qualified GF.Canon.GFC as C import qualified GF.Canon.CanonToGFCC as GFCC +import qualified GF.Canon.GFCC.GFCCToHaskell as CCH +import qualified GF.Canon.GFCC.DataGFCC as DataGFCC import qualified GF.Canon.CanonToJS as JS (prCanon2js) import qualified GF.Source.AbsGF as GF import qualified GF.Grammar.MMacros as MM @@ -273,6 +275,8 @@ customGrammarPrinter = ,(strCI "bnf", \_ -> prBNF False) ,(strCI "absbnf", \_ -> abstract2bnf . stateGrammarST) ,(strCI "haskell", \_ -> grammar2haskell . stateGrammarST) + ,(strCI "gfcc_haskell", \_ -> CCH.grammar2haskell . DataGFCC.mkGFCC . + GFCC.mkCanon2gfcc . stateGrammarST) ,(strCI "haskell_gadt", \_ -> grammar2haskellGADT . stateGrammarST) ,(strCI "transfer", \_ -> grammar2transfer . stateGrammarST) ,(strCI "morpho", \_ -> prMorpho . stateMorpho) |