GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 01:22:51 -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 da3a5d27e3
commit 06e8ae025e
1 changed files with 3 additions and 3 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.RemoveEpsilon as RemEps
import qualified GF.Conversion.SimpleToMCFG as S2M import qualified GF.Conversion.SimpleToMCFG as S2M
import qualified GF.Conversion.SimpleToFCFG as S2FM 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 qualified GF.Conversion.MCFGtoCFG as M2C
import GF.Infra.Print import GF.Infra.Print
@@ -58,7 +58,7 @@ convertGFC opts = \g -> let s = g2s g
Just "epsilon" -> epsilon . nondet Just "epsilon" -> epsilon . nondet
_ -> nondet _ -> nondet
s2fm= S2FM.convertGrammar s2fm= S2FM.convertGrammar
m2fm= M2FM.convertGrammar m2fm= undefined --M2FM.convertGrammar
g2s = case getOptVal opts gfcConversion of g2s = case getOptVal opts gfcConversion of
Just "finite" -> finite . simple Just "finite" -> finite . simple
Just "finite2" -> finite . finite . simple Just "finite2" -> finite . finite . simple
@@ -95,7 +95,7 @@ gfc2fcfg opts g = fcfg
(_, fcfg, _) = snd (snd (convertGFC opts g)) (_, fcfg, _) = snd (snd (convertGFC opts g))
mcfg2fcfg :: MGrammar -> FGrammar mcfg2fcfg :: MGrammar -> FGrammar
mcfg2fcfg = M2FM.convertGrammar mcfg2fcfg = undefined --M2FM.convertGrammar
---------------------------------------------------------------------- ----------------------------------------------------------------------