diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-01-17 02:13:57 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-01-17 02:13:57 +0000 |
| commit | d4d89c72f370fe4c63cc5aaa612e64cb09c6f650 (patch) | |
| tree | 1fb26d529d18f9858843439c1acc3f0d43a5a474 /src/GF/UseGrammar | |
| parent | 74c5d41152a0315e038e3d37ac992a26f975b729 (diff) | |
Use cat and language in ATK si. Support language switching with ATK.
Diffstat (limited to 'src/GF/UseGrammar')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index b65c6d815..9a6cd0e21 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -101,6 +101,7 @@ import GF.Infra.UseIO import Control.Monad import Data.Char +import Data.Maybe (fromMaybe) -- character codings import GF.Text.Unicode @@ -254,23 +255,29 @@ customGrammarPrinter = probs = stateProbs s in srgsXmlPrinter name opts (Just probs) $ stateCFG s) ,(strCI "slf", \s -> let opts = stateOptions s + start = getStartCat opts name = cncId s - in slfPrinter name opts $ stateCFG s) + in slfPrinter name start $ stateCFG s) ,(strCI "slf_graphviz", \s -> let opts = stateOptions s + start = getStartCat opts name = cncId s - in slfGraphvizPrinter name opts $ stateCFG s) + in slfGraphvizPrinter name start $ stateCFG s) ,(strCI "slf_sub", \s -> let opts = stateOptions s + start = getStartCat opts name = cncId s - in slfSubPrinter name opts $ stateCFG s) + in slfSubPrinter name start $ stateCFG s) ,(strCI "slf_sub_graphviz", \s -> let opts = stateOptions s + start = getStartCat opts name = cncId s - in slfSubGraphvizPrinter name opts $ stateCFG s) + in slfSubGraphvizPrinter name start $ stateCFG s) ,(strCI "fa_graphviz", \s -> let opts = stateOptions s + start = getStartCat opts name = cncId s - in faGraphvizPrinter name opts $ stateCFG s) + in faGraphvizPrinter name start $ stateCFG s) ,(strCI "fa_c", \s -> let opts = stateOptions s + start = getStartCat opts name = cncId s - in faCPrinter name opts $ stateCFG s) + in faCPrinter name start $ stateCFG s) ,(strCI "regular", regularPrinter . stateCFG) ,(strCI "plbnf", prLBNF True) ,(strCI "lbnf", prLBNF False) @@ -321,7 +328,8 @@ customGrammarPrinter = -- ,(strCI "cfg-old", PrtOld.prt . CnvOld.cfg . statePInfoOld) ] where stateGrammarLangOpts s = (stateOptions s, stateGrammarLang s) - + getStartCat :: Options -> String + getStartCat opts = fromMaybe "S" (getOptVal opts gStartCat) ++ "{}.s" customMultiGrammarPrinter = customData "Printers for multiple grammars, selected by option -printer=x" $ |