diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-11-03 22:00:08 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-11-03 22:00:08 +0000 |
| commit | 5956ba6b38f56c4aa41f7216f7dabade368bb2f2 (patch) | |
| tree | 991102baba1f7b26e258c7b0965362a0e99ad980 /src/GF/GFCC/API.hs | |
| parent | ed4b43961deb37ee2592e60db0c182c7efa5528f (diff) | |
command language and gfcc term parser in bnfc
Diffstat (limited to 'src/GF/GFCC/API.hs')
| -rw-r--r-- | src/GF/GFCC/API.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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)] |