GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

Use the GFCC type from DataGFCC when building VoiceXML.

Browse Source
This commit is contained in:
bringert
2007-01-05 17:05:31 +00:00
parent d45c1923cf
commit d776adc1f5
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/GF/Speech/GrammarToVoiceXML.hs
View File

@@ -12,6 +12,7 @@ module GF.Speech.GrammarToVoiceXML (grammar2vxml) where
import GF.Canon.CanonToGFCC (mkCanon2gfcc) import GF.Canon.CanonToGFCC (mkCanon2gfcc)
import qualified GF.Canon.GFCC.AbsGFCC as C import qualified GF.Canon.GFCC.AbsGFCC as C
import GF.Canon.GFCC.DataGFCC (GFCC(..), Abstr(..), mkGFCC, lookMap)
import qualified GF.Canon.GFC as GFC import qualified GF.Canon.GFC as GFC
import GF.Canon.AbsGFC (Term) import GF.Canon.AbsGFC (Term)
@@ -37,6 +38,7 @@ import GF.Data.XML
import Control.Monad (liftM) import Control.Monad (liftM)
import Data.List (isPrefixOf, find, intersperse) import Data.List (isPrefixOf, find, intersperse)
import qualified Data.Map as Map
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
import Debug.Trace import Debug.Trace
@@ -60,11 +62,14 @@ prid :: VIdent -> String
prid (C.CId x) = x prid (C.CId x) = x
vSkeleton :: GFC.CanonGrammar -> (VIdent,VSkeleton) vSkeleton :: GFC.CanonGrammar -> (VIdent,VSkeleton)
vSkeleton = gfccSkeleton . mkCanon2gfcc vSkeleton = gfccSkeleton . mkGFCC . mkCanon2gfcc
gfccSkeleton :: C.Grammar -> (VIdent,VSkeleton) gfccSkeleton :: GFCC -> (VIdent,VSkeleton)
gfccSkeleton (C.Grm (C.Hdr n _) (C.Abs as) _) = gfccSkeleton gfcc = (absname gfcc, ts)
(n, buildMultiMap [(cat,(f,args)) | C.Fun f (C.Typ args cat) _ <- as]) where a = abstract gfcc
ts = [(c,[(f,ft f) | f <- fs]) | (c,fs) <- Map.toList (cats a)]
ft f = case lookMap (error $ prid f) f (funs a) of
C.Typ args _ -> args
-- --
-- * Questions to ask -- * Questions to ask