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

Moved profile stuff to GF.Speech.SRG, to allow other SRG formats to include SISR.

Browse Source
This commit is contained in:
bringert
2006-12-12 11:59:12 +00:00
parent ca356c2a36
commit ebb3382418
4 changed files with 40 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Speech/PrGSL.hs
View File

@@ -50,7 +50,7 @@ prGSL (SRG{grammarName=name,startCat=start,origStartCat=origStart,rules=rs})
. prCat cat . sp . wrap "[" (unwordsS (map prAlt rhs)) "]" . nl
-- FIXME: use the probability
prAlt (SRGAlt mp _ rhs) = wrap "(" (unwordsS (map prSymbol rhs)) ")"
prSymbol (Cat c) = prCat c
prSymbol (Cat (c,_)) = prCat c
prSymbol (Tok t) = wrap "\"" (showString (showToken t)) "\""
-- GSL requires an upper case letter in category names
prCat c = showString (firstToUpper c)