gsl printer now figures out startcat from grammar flags

This commit is contained in:
bringert
2004-09-14 15:05:37 +00:00
parent 87eec27336
commit dabc4f1b8d
2 changed files with 27 additions and 13 deletions

View File

@@ -27,7 +27,7 @@ import PrGrammar
import PrOld
import MkGFC
import CFtoSRG
import PrGSL (prGSL)
import PrGSL (gslPrinter)
import Zipper
@@ -191,7 +191,7 @@ customGrammarPrinter =
,(strCI "cf", prCF . stateCF)
,(strCI "old", printGrammarOld . stateGrammarST)
,(strCI "srg", prSRG . stateCF)
,(strCI "gsl", prGSL . Cnv.cfg . statePInfo)
,(strCI "gsl", \s -> gslPrinter (stateOptions s) $ Cnv.cfg $ statePInfo s)
,(strCI "lbnf", prLBNF . stateCF)
,(strCI "haskell", grammar2haskell . stateGrammarST)
,(strCI "morpho", prMorpho . stateMorpho)