diff options
Diffstat (limited to 'src/GF/CF')
| -rw-r--r-- | src/GF/CF/PrLBNF.hs | 12 |
1 files changed, 11 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 |