From 1b4f7c9741b87f7085f0a8b70034e5ce7cfe668a Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 5 Oct 2007 13:01:05 +0000 Subject: updated gfcc to new gfcc, now with parsing --- src/GF/GFCC/API.hs | 25 +++++++++++-------------- 1 file changed, 11 insertions(+), 14 deletions(-) (limited to 'src/GF/GFCC/API.hs') diff --git a/src/GF/GFCC/API.hs b/src/GF/GFCC/API.hs index 27ee47aa8..dd45770e2 100644 --- a/src/GF/GFCC/API.hs +++ b/src/GF/GFCC/API.hs @@ -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 = -- cgit v1.2.3