command language and gfcc term parser in bnfc

This commit is contained in:
aarne
2007-11-03 22:00:08 +00:00
parent 7003654ca6
commit f91e19f0d8
9 changed files with 1424 additions and 3 deletions

View File

@@ -21,6 +21,7 @@ import GF.GFCC.Macros
import GF.GFCC.DataGFCC
import GF.GFCC.AbsGFCC
import GF.GFCC.ParGFCC
import GF.Command.PPrTree
import GF.GFCC.ErrM
@@ -105,9 +106,9 @@ generateRandom mgr cat = do
generateAll mgr cat = generate (gfcc mgr) (CId cat)
readTree _ = err (const exp0) id . (pExp . myLexer)
readTree _ = pTree
showTree = prt
showTree = prExp
languages mgr = [l | CId l <- cncnames (gfcc mgr)]