msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

ids for GF rather than BNFC in AbsToBNF

Browse Source
This commit is contained in:
aarne
2007-05-10 14:06:45 +00:00
parent e4ef09f6aa
commit 97462f7e83
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/GF/Canon/AbsToBNF.hs
View File

@@ -5,6 +5,8 @@ import GF.Data.Operations
import GF.Infra.Option import GF.Infra.Option
import GF.Canon.GFC (CanonGrammar) import GF.Canon.GFC (CanonGrammar)
-- AR 10/5/2007
abstract2bnf :: CanonGrammar -> String abstract2bnf :: CanonGrammar -> String
abstract2bnf = sgrammar2bnf . gr2sgr noOptions emptyProbs abstract2bnf = sgrammar2bnf . gr2sgr noOptions emptyProbs
@@ -25,7 +27,11 @@ mkBNF (pfun,(args,cat)) =
[] -> prQuotedString (snd pfun) [] -> prQuotedString (snd pfun)
_ -> unwords (map gfId args) _ -> 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" "Int" -> "Integer"
"String" -> i "String" -> i
"Float" -> "Double" "Float" -> "Double"