Imper

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

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)