GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-15 15:59:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

Lang modules in terms of Grammar

Browse Source
This commit is contained in:
aarne
2006-06-07 18:37:11 +00:00
parent 6c5d4da9d0
commit 3e7696ecc4
12 changed files with 19 additions and 147 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/Conversion/GFC.hs
View File

@@ -32,7 +32,7 @@ import qualified GF.Conversion.RemoveErasing as RemEra
import qualified GF.Conversion.RemoveEpsilon as RemEps
import qualified GF.Conversion.SimpleToMCFG as S2M
import qualified GF.Conversion.SimpleToFCFG as S2FM
import qualified GF.Conversion.MCFGtoFCFG as M2FM
--import qualified GF.Conversion.MCFGtoFCFG as M2FM
import qualified GF.Conversion.MCFGtoCFG as M2C
import GF.Infra.Print
@@ -58,7 +58,7 @@ convertGFC opts = \g -> let s = g2s g
Just "epsilon" -> epsilon . nondet
_ -> nondet
s2fm= S2FM.convertGrammar
m2fm= M2FM.convertGrammar
m2fm= undefined --M2FM.convertGrammar
g2s = case getOptVal opts gfcConversion of
Just "finite" -> finite . simple
Just "finite2" -> finite . finite . simple
@@ -95,7 +95,7 @@ gfc2fcfg opts g = fcfg
(_, fcfg, _) = snd (snd (convertGFC opts g))
mcfg2fcfg :: MGrammar -> FGrammar
mcfg2fcfg = M2FM.convertGrammar
mcfg2fcfg = undefined --M2FM.convertGrammar
----------------------------------------------------------------------