diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-05-10 14:06:45 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-05-10 14:06:45 +0000 |
| commit | 97462f7e83dcc723d681a1992ad020ec3c1fb597 (patch) | |
| tree | 1092176d57251b7c1f6242f6af6399b22647247e | |
| parent | e4ef09f6aac55452031cc16def7048b0dd0d30cd (diff) | |
ids for GF rather than BNFC in AbsToBNF
| -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" |