diff options
| author | bjorn <bjorn@bringert.net> | 2008-08-24 14:53:21 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-08-24 14:53:21 +0000 |
| commit | 23a6375ced4110e650cb3b4ab10614f6a5314995 (patch) | |
| tree | 68baeae075244c8e2396c497086c094f7b4b1eed /src | |
| parent | a415c833192b7b8a125c8ec3fe20375e9beab78a (diff) | |
Completed SISR 1.0 support (untested).
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Speech/SISR.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/Speech/SISR.hs b/src/GF/Speech/SISR.hs index 723dc1a49..7933a2597 100644 --- a/src/GF/Speech/SISR.hs +++ b/src/GF/Speech/SISR.hs @@ -58,8 +58,10 @@ profileFinalSISR term fmt = [JS.DExpr $ fmtOut fmt `ass` f term] f (CFMeta typ) = obj [("name",JS.EStr "?"), ("type",JS.EStr (prCId typ))] fmtOut SISR_WD20030401 = JS.EVar (JS.Ident "$") +fmtOut SISR_1_0 = JS.EVar (JS.Ident "out") fmtRef SISR_WD20030401 c = JS.EVar (JS.Ident ("$" ++ c)) +fmtRef SISR_1_0 c = field (JS.EVar (JS.Ident "rules")) c args = JS.Ident "a" |