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

Exclude literal categories from generated VoiceXML.

Browse Source
This commit is contained in:
bjorn
2008-06-12 18:12:43 +00:00
parent e783a894bf
commit f231a75b87
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src-3.0/GF/Speech/VoiceXML.hs
View File

@@ -42,7 +42,12 @@ type Skeleton = [(CId, [(CId, [CId])])]
pgfSkeleton :: PGF -> Skeleton
pgfSkeleton pgf = [(c,[(f,fst (catSkeleton (lookType pgf f))) | f <- fs])
| (c,fs) <- Map.toList (catfuns (abstract pgf))]
| (c,fs) <- Map.toList (catfuns (abstract pgf)),
not (isLiteralCat c)]
-- FIXME: should this go in a more general module?
isLiteralCat :: CId -> Bool
isLiteralCat = (`elem` [mkCId "String", mkCId "Float", mkCId "Int"])
--
-- * Questions to ask