diff options
| author | bjorn <bjorn@bringert.net> | 2008-06-16 16:12:17 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-06-16 16:12:17 +0000 |
| commit | 5c7c010f80533fd0909893c878b500ffb00f46bb (patch) | |
| tree | 4e89cf7e1d731453b1afb17102ef5ec3abbc0797 /src-3.0/GF/Speech | |
| parent | 10d58953694a3d66067eaf24deaaab1afd922b80 (diff) | |
Added --sisr option for including SISR tags in generated SRGs.
Diffstat (limited to 'src-3.0/GF/Speech')
| -rw-r--r-- | src-3.0/GF/Speech/SISR.hs | 11 |
1 files changed, 3 insertions, 8 deletions
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" |