From 5c7c010f80533fd0909893c878b500ffb00f46bb Mon Sep 17 00:00:00 2001 From: bjorn Date: Mon, 16 Jun 2008 16:12:17 +0000 Subject: Added --sisr option for including SISR tags in generated SRGs. --- src-3.0/GF/Speech/SISR.hs | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) (limited to 'src-3.0/GF/Speech') diff --git a/src-3.0/GF/Speech/SISR.hs b/src-3.0/GF/Speech/SISR.hs index df66804d3..723dc1a49 100644 --- a/src-3.0/GF/Speech/SISR.hs +++ b/src-3.0/GF/Speech/SISR.hs @@ -12,6 +12,7 @@ import Data.List import GF.Data.Utilities import GF.Infra.Ident +import GF.Infra.Option (SISRFormat(..)) import GF.Speech.CFG import GF.Speech.SRG (SRGNT) import PGF.CId @@ -19,12 +20,6 @@ import PGF.CId import qualified GF.JavaScript.AbsJS as JS import qualified GF.JavaScript.PrintJS as JS -data SISRFormat = - -- SISR Working draft 1 April 2003 - -- http://www.w3.org/TR/2003/WD-semantic-interpretation-20030401/ - SISROld - deriving Show - type SISRTag = [JS.DeclOrExpr] @@ -62,9 +57,9 @@ profileFinalSISR term fmt = [JS.DExpr $ fmtOut fmt `ass` f term] f (CFVar v) = JS.EVar (var v) f (CFMeta typ) = obj [("name",JS.EStr "?"), ("type",JS.EStr (prCId typ))] -fmtOut SISROld = JS.EVar (JS.Ident "$") +fmtOut SISR_WD20030401 = JS.EVar (JS.Ident "$") -fmtRef SISROld c = JS.EVar (JS.Ident ("$" ++ c)) +fmtRef SISR_WD20030401 c = JS.EVar (JS.Ident ("$" ++ c)) args = JS.Ident "a" -- cgit v1.2.3