diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-01-05 19:34:12 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-01-05 19:34:12 +0000 |
| commit | 7faaa9772b8fc3d358c472e0a8620d4cff6adcc4 (patch) | |
| tree | 17a74af3cf0f263f44160cc500df77a5ce6df00c /src/GF/UseGrammar/Custom.hs | |
| parent | 7ee1ba000163e0744f43a8304d08a050bae20b90 (diff) | |
Added monolithic SLF builind back in.
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index f888c22ab..b65c6d815 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -58,7 +58,7 @@ import GF.CF.CFtoSRG import GF.Speech.PrGSL (gslPrinter) import GF.Speech.PrJSGF (jsgfPrinter) import GF.Speech.PrSRGS (srgsXmlPrinter) -import GF.Speech.PrSLF (slfPrinter,slfGraphvizPrinter) +import GF.Speech.PrSLF import GF.Speech.PrFA (faGraphvizPrinter,regularPrinter,faCPrinter) import GF.Data.Zipper @@ -259,6 +259,12 @@ customGrammarPrinter = ,(strCI "slf_graphviz", \s -> let opts = stateOptions s name = cncId s in slfGraphvizPrinter name opts $ stateCFG s) + ,(strCI "slf_sub", \s -> let opts = stateOptions s + name = cncId s + in slfSubPrinter name opts $ stateCFG s) + ,(strCI "slf_sub_graphviz", \s -> let opts = stateOptions s + name = cncId s + in slfSubGraphvizPrinter name opts $ stateCFG s) ,(strCI "fa_graphviz", \s -> let opts = stateOptions s name = cncId s in faGraphvizPrinter name opts $ stateCFG s) |