msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

divided DataGFCC

Browse Source
This commit is contained in:
aarne
2007-10-05 07:33:33 +00:00
parent 953ad2cf4c
commit 02dea19cac
5 changed files with 160 additions and 126 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/GF/GFCC/API.hs
View File

@@ -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)]