diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Canon/AbsToBNF.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/GF/Canon/AbsToBNF.hs b/src/GF/Canon/AbsToBNF.hs index 71845971c..e30e836da 100644 --- a/src/GF/Canon/AbsToBNF.hs +++ b/src/GF/Canon/AbsToBNF.hs @@ -5,6 +5,8 @@ import GF.Data.Operations import GF.Infra.Option import GF.Canon.GFC (CanonGrammar) +-- AR 10/5/2007 + abstract2bnf :: CanonGrammar -> String abstract2bnf = sgrammar2bnf . gr2sgr noOptions emptyProbs @@ -25,7 +27,11 @@ mkBNF (pfun,(args,cat)) = [] -> prQuotedString (snd pfun) _ -> unwords (map gfId args) -gfId i = case i of +-- good for GF +gfId i = i + +-- good for BNFC +gfIdd i = case i of "Int" -> "Integer" "String" -> i "Float" -> "Double" |