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

Make smaller SISR code for tokens.

Browse Source
This commit is contained in:
bringert
2006-12-20 20:22:08 +00:00
parent 8424b23765
commit a7f2010c6a
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/GF/Speech/SISR.hs
View File

@@ -60,8 +60,12 @@ catSISR t (c,i) fmt
| otherwise = [] | otherwise = []
profileFinalSISR :: CFTerm -> SISRFormat -> SISRTag profileFinalSISR :: CFTerm -> SISRFormat -> SISRTag
profileFinalSISR term fmt = [fmtOut fmt `ass` f term] profileFinalSISR term fmt = g term
where f (CFObj n ts) = where
-- optimization for tokens
g (CFObj n []) = [field (fmtOut fmt) "name" `ass` JS.EStr (prIdent n)]
g t = [fmtOut fmt `ass` f t]
f (CFObj n ts) =
JS.ESeq $ [ret `ass` JS.ENew (JS.Ident "Object") [], JS.ESeq $ [ret `ass` JS.ENew (JS.Ident "Object") [],
field ret "name" `ass` JS.EStr (prIdent n)] field ret "name" `ass` JS.EStr (prIdent n)]
++ [field ret ("arg"++show i) `ass` f t ++ [field ret ("arg"++show i) `ass` f t