From 7faaa9772b8fc3d358c472e0a8620d4cff6adcc4 Mon Sep 17 00:00:00 2001 From: bringert Date: Thu, 5 Jan 2006 19:34:12 +0000 Subject: Added monolithic SLF builind back in. --- src/GF/UseGrammar/Custom.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src/GF/UseGrammar') 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) -- cgit v1.2.3