diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-05-10 12:51:40 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-05-10 12:51:40 +0000 |
| commit | 278a0ab45d02e85ba6d863615abaaf24bba5317b (patch) | |
| tree | 9be00a21360f6c0397760f8e181b99147607a6b1 /src/GF/UseGrammar | |
| parent | e63fcd0a1fe2ae6bb1fa27bc04bcef22772954b0 (diff) | |
printing abs as BNF
Diffstat (limited to 'src/GF/UseGrammar')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 32b7cffa0..bbfb1e09e 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -96,6 +96,7 @@ import qualified GF.Conversion.Prolog as CnvProlog import qualified GF.Conversion.TypeGraph as CnvTypeGraph import GF.Canon.Unparametrize import GF.Canon.Subexpressions +import GF.Canon.AbsToBNF import GF.Canon.GFC import qualified GF.Canon.MkGFC as MC @@ -267,6 +268,7 @@ customGrammarPrinter = ,(strCI "plbnf", \_ -> prLBNF True) ,(strCI "lbnf", \_ -> prLBNF False) ,(strCI "bnf", \_ -> prBNF False) + ,(strCI "absbnf", \_ -> abstract2bnf . stateGrammarST) ,(strCI "haskell", \_ -> grammar2haskell . stateGrammarST) ,(strCI "transfer", \_ -> grammar2transfer . stateGrammarST) ,(strCI "morpho", \_ -> prMorpho . stateMorpho) |