From fd0dfd7d4d9885b8b4cac7bd60308e2890a05caa Mon Sep 17 00:00:00 2001 From: bringert Date: Wed, 1 Feb 2006 16:23:14 +0000 Subject: First version of SRGS with semantic tags. --- src/GF/UseGrammar/Custom.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/GF/UseGrammar') 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 -- cgit v1.2.3