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 016d43e26b
commit b789031396
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.Infra.UseIO
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.Embed.EmbedCustom
@@ -68,7 +68,8 @@ categories :: MultiGrammar -> [Category]
file2grammar file = do
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 =
untok .