diff options
| author | peb <unknown> | 2005-05-17 12:38:46 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-05-17 12:38:46 +0000 |
| commit | 31044ec728d3a9a56a660fdd32d880d13dc9ffbf (patch) | |
| tree | 5e6d3cd1b9b5e950d5247f04d12d9e4553a0992c /src/GF/Conversion | |
| parent | b12608fb0947122fe65d9736eabf59266ad08252 (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/Conversion')
| -rw-r--r-- | src/GF/Conversion/GFC.hs | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/src/GF/Conversion/GFC.hs b/src/GF/Conversion/GFC.hs index a2c2c9c91..a0f611286 100644 --- a/src/GF/Conversion/GFC.hs +++ b/src/GF/Conversion/GFC.hs @@ -4,9 +4,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/05/17 11:20:25 $ +-- > CVS $Date: 2005/05/17 13:38:46 $ -- > CVS $Author: peb $ --- > CVS $Revision: 1.10 $ +-- > CVS $Revision: 1.11 $ -- -- All conversions from GFC ----------------------------------------------------------------------------- @@ -46,10 +46,12 @@ gfc2mcfg2cfg opts = \g -> let e = g2e g in trace2 "Options" (show opts) (e2m e, Just cat -> flip removeErasing [identC cat] Nothing -> flip removeErasing [] g2e = case getOptVal opts gfcConversion of - Just "strict" -> simple2mcfg_strict . gfc2simple - Just "finite" -> simple2mcfg_nondet . gfc2finite - Just "finite-strict" -> simple2mcfg_strict . gfc2finite - _ -> simple2mcfg_nondet . gfc2simple + Just "strict" -> simple2mcfg_strict . gfc2simple + Just "finite" -> simple2mcfg_nondet . simple2finite . gfc2simple + Just "singletons" -> simple2mcfg_nondet . removeSingletons . gfc2simple + Just "finite-singletons" -> simple2mcfg_nondet . removeSingletons . simple2finite . gfc2simple + Just "finite-strict" -> simple2mcfg_strict . simple2finite . gfc2simple + _ -> simple2mcfg_nondet . gfc2simple gfc2mcfg :: Options -> (CanonGrammar, Ident) -> MGrammar gfc2mcfg opts = fst . gfc2mcfg2cfg opts @@ -69,9 +71,6 @@ simple2finite = S2Fin.convertGrammar removeSingletons :: SGrammar -> SGrammar removeSingletons = RemSing.convertGrammar -gfc2finite :: (CanonGrammar, Ident) -> SGrammar -gfc2finite = removeSingletons . simple2finite . gfc2simple - simple2mcfg_nondet :: SGrammar -> EGrammar simple2mcfg_nondet = S2M.convertGrammarNondet |