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

parsing method in EmbedAPI

Browse Source
This commit is contained in:
aarne
2007-02-28 10:37:37 +00:00
parent becea4c52d
commit e03c2cb4ad
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/GF/Embed/EmbedAPI.hs
View File

@@ -31,7 +31,7 @@ import GF.Infra.Modules (emptyMGrammar)
import GF.CF.CFIdent (string2CFCat) import GF.CF.CFIdent (string2CFCat)
import GF.Infra.UseIO import GF.Infra.UseIO
import GF.Data.Operations import GF.Data.Operations
import GF.Infra.Option (noOptions,useUntokenizer) import GF.Infra.Option (noOptions,useUntokenizer,options,iOpt)
import GF.Infra.Ident (prIdent) import GF.Infra.Ident (prIdent)
import GF.Embed.EmbedCustom import GF.Embed.EmbedCustom
@@ -68,7 +68,8 @@ categories :: MultiGrammar -> [Category]
file2grammar file = do file2grammar file = do
can <- useIOE (error "cannot parse grammar file") $ getCanonGrammar file can <- useIOE (error "cannot parse grammar file") $ getCanonGrammar file
return $ errVal (error "cannot build multigrammar") $ grammar2shellState noOptions (can,emptyMGrammar) return $ errVal (error "cannot build multigrammar") $
grammar2shellState (options [iOpt "docf"]) (can,emptyMGrammar)
linearize mgr lang = linearize mgr lang =
untok . untok .