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

Use _cat category as root in SRGS ABNF and JSGF. SRGS XML already did this.

Browse Source
This commit is contained in:
bringert
2007-01-21 17:10:10 +00:00
parent 71111e0a7c
commit abeb18fb20
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Speech/PrJSGF.hs
View File

@@ -55,7 +55,9 @@ prJSGF sisr srg@(SRG{grammarName=name,grammarLanguage=ml,
text ("grammar " ++ name ++ ";") text ("grammar " ++ name ++ ";")
lang = maybe empty text ml lang = maybe empty text ml
mainCat = comment ("Start category: " ++ origStart) $$ mainCat = comment ("Start category: " ++ origStart) $$
rule True "MAIN" [prCat start] case cfgCatToGFCat origStart of
Just c -> rule True "MAIN" [prCat (catFormId c)]
Nothing -> empty
prRule (SRGRule cat origCat rhs) = prRule (SRGRule cat origCat rhs) =
comment origCat $$ comment origCat $$
rule False cat (map prAlt (ebnfSRGAlts rhs)) rule False cat (map prAlt (ebnfSRGAlts rhs))

4
src/GF/Speech/PrSRGS_ABNF.hs
View File

@@ -60,7 +60,9 @@ prABNF sisr probs srg@(SRG{grammarName=name,grammarLanguage=ml,
language = maybe empty (\l -> text "language" <+> text l <> char ';') ml language = maybe empty (\l -> text "language" <+> text l <> char ';') ml
tagFormat | isJust sisr = text "tag-format" <+> text "<semantics/1.0>" <> char ';' tagFormat | isJust sisr = text "tag-format" <+> text "<semantics/1.0>" <> char ';'
| otherwise = empty | otherwise = empty
mainCat = text "root" <+> prCat start <> char ';' mainCat = case cfgCatToGFCat origStart of
Just c -> text "root" <+> prCat (catFormId c) <> char ';'
Nothing -> empty
prRule (SRGRule cat origCat rhs) = prRule (SRGRule cat origCat rhs) =
comment origCat $$ comment origCat $$
rule False cat (map prAlt (ebnfSRGAlts rhs)) rule False cat (map prAlt (ebnfSRGAlts rhs))