From 5956ba6b38f56c4aa41f7216f7dabade368bb2f2 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 3 Nov 2007 22:00:08 +0000 Subject: command language and gfcc term parser in bnfc --- src/GF/GFCC/API.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/GF/GFCC') diff --git a/src/GF/GFCC/API.hs b/src/GF/GFCC/API.hs index 0199dcf7e..39f44e2a3 100644 --- a/src/GF/GFCC/API.hs +++ b/src/GF/GFCC/API.hs @@ -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)] -- cgit v1.2.3