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

Added --output-format=ebnf.

Browse Source
This commit is contained in:
bjorn
2008-09-26 09:20:39 +00:00
parent 8fa99886b3
commit 92c76a6265
5 changed files with 29 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/GF/Speech/RegExp.hs
View File

@@ -130,14 +130,14 @@ symbolsRE (RESymbol x) = [x]
-- Debugging
prRE :: RE String -> String
prRE :: (a -> String) -> RE a -> String
prRE = prRE' 0
prRE' _ (REUnion []) = "<NULL>"
prRE' n (REUnion xs) = p n 1 (concat (intersperse " | " (map (prRE' 1) xs)))
prRE' n (REConcat xs) = p n 2 (unwords (map (prRE' 2) xs))
prRE' n (RERepeat x) = p n 3 (prRE' 3 x) ++ "*"
prRE' _ (RESymbol s) = s
prRE' _ _ (REUnion []) = "<NULL>"
prRE' n f (REUnion xs) = p n 1 (concat (intersperse " | " (map (prRE' 1 f) xs)))
prRE' n f (REConcat xs) = p n 2 (unwords (map (prRE' 2 f) xs))
prRE' n f (RERepeat x) = p n 3 (prRE' 3 f x) ++ "*"
prRE' _ f (RESymbol s) = f s
p n m s | n >= m = "(" ++ s ++ ")"
| True = s