GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-01 07:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Handled renaming external SRG categories centrally.

Browse Source
This commit is contained in:
bjorn
2008-06-16 16:44:33 +00:00
parent 5c7c010f80
commit a47fcbcbf2
4 changed files with 28 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src-3.0/GF/Speech/JSGF.hs
View File

@@ -44,10 +44,8 @@ prJSGF sisr srg
comment "Generated by GF" $$
text ("grammar " ++ srgName srg ++ ";")
lang = maybe empty text (srgLanguage srg)
mainCat = rule True "MAIN" [prCat (externalCat (srgStartCat srg))]
prRule (SRGRule cat rhs)
| isExternalCat srg cat = rule True (externalCat cat) (map prAlt rhs)
| otherwise = rule False cat (map prAlt rhs)
mainCat = rule True "MAIN" [prCat (srgStartCat srg)]
prRule (SRGRule cat rhs) = rule (isExternalCat srg cat) cat (map prAlt rhs)
prAlt (SRGAlt mp n rhs) = sep [initTag, p (prItem sisr n rhs), finalTag]
where initTag | isEmpty t = empty
| otherwise = text "<NULL>" <+> t
@@ -55,9 +53,6 @@ prJSGF sisr srg
finalTag = tag sisr (profileFinalSISR n)
p = if isEmpty initTag && isEmpty finalTag then id else parens
externalCat :: Cat -> Cat
externalCat c = c ++ "_cat"
prCat :: Cat -> Doc
prCat c = char '<' <> text c <> char '>'