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

updated gfcc to new gfcc, now with parsing

Browse Source
This commit is contained in:
aarne
2007-10-05 13:01:05 +00:00
parent 122546b9d6
commit 074ef6e09f
3 changed files with 15 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -24,8 +24,8 @@ import GF.GFCC.ParGFCC
import GF.GFCC.ErrM
----import GF.Parsing.FCFG
----import GF.Conversion.SimpleToFCFG (convertGrammar,FCat(..))
import GF.Parsing.FCFG
import GF.Conversion.SimpleToFCFG (convertGrammar,FCat(..))
--import GF.Data.Operations
--import GF.Infra.UseIO
@@ -42,8 +42,7 @@ import System.Directory (doesFileExist)
-- Interface
---------------------------------------------------
----data MultiGrammar = MultiGrammar {gfcc :: GFCC, parsers :: [(Language,FCFPInfo)]}
data MultiGrammar = MultiGrammar {gfcc :: GFCC, parsers :: [(Language,())]}
data MultiGrammar = MultiGrammar {gfcc :: GFCC, parsers :: [(Language,FCFPInfo)]}
type Language = String
type Category = String
type Tree = Exp
@@ -76,22 +75,20 @@ startCat :: MultiGrammar -> Category
file2grammar f = do
gfcc <- file2gfcc f
---- let fcfgs = convertGrammar gfcc
---- return (MultiGrammar gfcc [(lang, buildFCFPInfo fcfg) | (CId lang,fcfg) <- fcfgs])
return (MultiGrammar gfcc [])
let fcfgs = convertGrammar gfcc
return (MultiGrammar gfcc [(lang, buildFCFPInfo fcfg) | (CId lang,fcfg) <- fcfgs])
file2gfcc f =
readFileIf f >>= err (error) (return . mkGFCC) . pGrammar . myLexer
linearize mgr lang = GF.GFCC.Linearize.linearize (gfcc mgr) (CId lang)
parse mgr lang cat s = error "no parser"
----parse mgr lang cat s =
---- case lookup lang (parsers mgr) of
---- Nothing -> error "no parser"
---- Just pinfo -> case parseFCF "bottomup" pinfo (CId cat) (words s) of
---- Ok x -> x
---- Bad s -> error s
parse mgr lang cat s =
case lookup lang (parsers mgr) of
Nothing -> error "no parser"
Just pinfo -> case parseFCF "bottomup" pinfo (CId cat) (words s) of
Ok x -> x
Bad s -> error s
linearizeAll mgr = map snd . linearizeAllLang mgr
linearizeAllLang mgr t =