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

Fixed use of -unlexer in EmbedAPI. Before, EmbedAPI.linearize ignored the flags in the grammar.

Browse Source
This commit is contained in:
bringert
2007-04-21 16:20:02 +00:00
parent 7f76f013c9
commit aab4187aa8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -15,7 +15,7 @@
module GF.Embed.EmbedAPI where
import GF.Compile.ShellState (ShellState,grammar2shellState,canModules,stateGrammarOfLang,abstract,grammar,firstStateGrammar,allLanguages,allCategories)
import GF.Compile.ShellState (ShellState,grammar2shellState,canModules,stateGrammarOfLang,abstract,grammar,firstStateGrammar,allLanguages,allCategories,stateOptions)
import GF.UseGrammar.Linear (linTree2string)
import GF.UseGrammar.GetTree (string2tree)
import GF.Embed.EmbedParsing (parseString)
@@ -79,7 +79,7 @@ linearize mgr lang =
where
gr = grammar sgr
sgr = stateGrammarOfLang mgr (zIdent lang)
untok = customOrDefault noOptions useUntokenizer customUntokenizer sgr
untok = customOrDefault (stateOptions sgr) useUntokenizer customUntokenizer sgr
parse mgr lang cat =
map tree2exp .