diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/CF/PrLBNF.hs | 12 | ||||
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 1 |
2 files changed, 12 insertions, 1 deletions
diff --git a/src/GF/CF/PrLBNF.hs b/src/GF/CF/PrLBNF.hs index 345863456..59067c39b 100644 --- a/src/GF/CF/PrLBNF.hs +++ b/src/GF/CF/PrLBNF.hs @@ -1,4 +1,4 @@ -module PrLBNF (prLBNF) where +module PrLBNF (prLBNF,prBNF) where import CF import CFIdent @@ -16,6 +16,16 @@ import Char prLBNF :: CF -> String prLBNF = unlines . (map prCFRule) . rulesOfCF -- hiding the literal recogn function +-- a hack to hide the LBNF details +prBNF :: CF -> String +prBNF = unlines . (map (unwords . unLBNF . drop 1 . words . prCFRule)) . rulesOfCF + where + unLBNF r = case r of + "---":ts -> ts + ";":"---":ts -> ts + c:ts -> c : unLBNF ts + _ -> r + prCFRule :: CFRule -> String prCFRule (fun,(cat,its)) = prCFFun fun ++ "." +++ prCFCat True cat +++ "::=" +++ --- err in cat -> in syntax diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 229b94fc7..9587038be 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -195,6 +195,7 @@ customGrammarPrinter = name = cncId s in gslPrinter name opts $ Cnv.cfg $ statePInfo s) ,(strCI "lbnf", prLBNF . stateCF) + ,(strCI "bnf", prBNF . stateCF) ,(strCI "haskell", grammar2haskell . stateGrammarST) ,(strCI "morpho", prMorpho . stateMorpho) ,(strCI "fullform",prFullForm . stateMorpho) |