diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-05-21 09:26:44 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-05-21 09:26:44 +0000 |
| commit | 055c0d0d5a5bb0dc75904fe53df7f2e4f5732a8f (patch) | |
| tree | 0e63fb68c69c8f6ad0f78893c63420f0a3600e1c /src-2.9/GF/Canon/AbsToBNF.hs | |
| parent | 915a1de71783ab8446b1af9e72c7ba7dfbc12d3f (diff) | |
GF/src is now for 2.9, and the new sources are in src-3.0 - keep it this way until the release of GF 3
Diffstat (limited to 'src-2.9/GF/Canon/AbsToBNF.hs')
| -rw-r--r-- | src-2.9/GF/Canon/AbsToBNF.hs | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/src-2.9/GF/Canon/AbsToBNF.hs b/src-2.9/GF/Canon/AbsToBNF.hs deleted file mode 100644 index e30e836da..000000000 --- a/src-2.9/GF/Canon/AbsToBNF.hs +++ /dev/null @@ -1,38 +0,0 @@ -module GF.Canon.AbsToBNF where - -import GF.Grammar.SGrammar -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 - -sgrammar2bnf :: SGrammar -> String -sgrammar2bnf = unlines . map (prBNFRule . mkBNF) . allRules - -prBNFRule :: BNFRule -> String -prBNFRule = id - -type BNFRule = String - -mkBNF :: SRule -> BNFRule -mkBNF (pfun,(args,cat)) = - fun ++ "." +++ gfId cat +++ "::=" +++ rhs +++ ";" - where - fun = gfId (snd pfun) - rhs = case args of - [] -> prQuotedString (snd pfun) - _ -> unwords (map gfId args) - --- good for GF -gfId i = i - --- good for BNFC -gfIdd i = case i of - "Int" -> "Integer" - "String" -> i - "Float" -> "Double" - _ -> "G" ++ i ++ "_" |