diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-02-01 16:23:14 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-02-01 16:23:14 +0000 |
| commit | fd0dfd7d4d9885b8b4cac7bd60308e2890a05caa (patch) | |
| tree | 73613f4cc00fac0d683220bcc4258bdb99179914 /src/GF/UseGrammar | |
| parent | 992e212bccec9f30ee7b4f5e764b0bd793ccc651 (diff) | |
First version of SRGS with semantic tags.
Diffstat (limited to 'src/GF/UseGrammar')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 9a6cd0e21..0d6a143ef 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -249,11 +249,14 @@ customGrammarPrinter = in jsgfPrinter name opts Nothing $ stateCFG s) ,(strCI "srgs_xml", \s -> let opts = stateOptions s name = cncId s - in srgsXmlPrinter name opts Nothing $ stateCFG s) + in srgsXmlPrinter name opts False Nothing $ stateCFG s) ,(strCI "srgs_xml_prob", \s -> let opts = stateOptions s name = cncId s probs = stateProbs s - in srgsXmlPrinter name opts (Just probs) $ stateCFG s) + in srgsXmlPrinter name opts False (Just probs) $ stateCFG s) + ,(strCI "srgs_xml_ms_sem", \s -> let opts = stateOptions s + name = cncId s + in srgsXmlPrinter name opts True Nothing $ stateCFG s) ,(strCI "slf", \s -> let opts = stateOptions s start = getStartCat opts name = cncId s |