diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-10-05 07:33:33 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-10-05 07:33:33 +0000 |
| commit | 07d2910df14842b1882512af0cb3717be6c303bc (patch) | |
| tree | 4fca75cadfd308ea8cedeea978e760d0159f844b /src/GF/GFCC/API.hs | |
| parent | a0f3aecc51c341be147049162861a0892523c835 (diff) | |
divided DataGFCC
Diffstat (limited to 'src/GF/GFCC/API.hs')
| -rw-r--r-- | src/GF/GFCC/API.hs | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/GF/GFCC/API.hs b/src/GF/GFCC/API.hs index 043c429f2..27ee47aa8 100644 --- a/src/GF/GFCC/API.hs +++ b/src/GF/GFCC/API.hs @@ -15,12 +15,15 @@ module GF.GFCC.API where +import GF.GFCC.Linearize +import GF.GFCC.Generate +import GF.GFCC.Macros import GF.GFCC.DataGFCC import GF.GFCC.AbsGFCC import GF.GFCC.ParGFCC -import GF.GFCC.PrintGFCC + import GF.GFCC.ErrM -import GF.GFCC.Generate + ----import GF.Parsing.FCFG ----import GF.Conversion.SimpleToFCFG (convertGrammar,FCat(..)) @@ -80,7 +83,7 @@ file2grammar f = do file2gfcc f = readFileIf f >>= err (error) (return . mkGFCC) . pGrammar . myLexer -linearize mgr lang = GF.GFCC.DataGFCC.linearize (gfcc mgr) (CId lang) +linearize mgr lang = GF.GFCC.Linearize.linearize (gfcc mgr) (CId lang) parse mgr lang cat s = error "no parser" ----parse mgr lang cat s = @@ -107,7 +110,7 @@ generateAll mgr cat = generate (gfcc mgr) (CId cat) readTree _ = err (const exp0) id . (pExp . myLexer) -showTree t = printTree t +showTree = prt languages mgr = [l | CId l <- cncnames (gfcc mgr)] |