GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 00:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Devel/GF3: experimentally putting together all functionalities for the first time

Browse Source
This commit is contained in:
aarne
2007-11-06 14:44:17 +00:00
parent 49b81e4af5
commit 6a716b0f68
5 changed files with 104 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -76,9 +76,10 @@ 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 (gfcc2parsers gfcc))
gfcc2parsers gfcc =
[(lang, buildFCFPInfo fcfg) | (CId lang,fcfg) <- convertGrammar gfcc]
file2gfcc f =
readFileIf f >>= err (error) (return . mkGFCC) . pGrammar . myLexer
@@ -117,6 +118,8 @@ categories mgr = [c | CId c <- Map.keys (cats (abstract (gfcc mgr)))]
startCat mgr = "S" ----
emptyMultiGrammar = MultiGrammar emptyGFCC []
------------ for internal use only
linearThis = GF.GFCC.API.linearize