diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:43:48 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:43:48 +0000 |
| commit | b96b36f43de3e2f8b58d5f539daa6f6d47f25870 (patch) | |
| tree | 0992334be13cec6538a1dea22fbbf26ad6bdf224 /src/GF/Parsing/MCFG.hs | |
| parent | fe367412e0aeb4ad5c02de68e6eca382e0f96984 (diff) | |
removed src for 2.9
Diffstat (limited to 'src/GF/Parsing/MCFG.hs')
| -rw-r--r-- | src/GF/Parsing/MCFG.hs | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/src/GF/Parsing/MCFG.hs b/src/GF/Parsing/MCFG.hs deleted file mode 100644 index bda3af675..000000000 --- a/src/GF/Parsing/MCFG.hs +++ /dev/null @@ -1,68 +0,0 @@ ----------------------------------------------------------------------- --- | --- Maintainer : PL --- Stability : (stable) --- Portability : (portable) --- --- > CVS $Date: 2005/05/11 10:28:16 $ --- > CVS $Author: peb $ --- > CVS $Revision: 1.5 $ --- --- MCFG parsing ------------------------------------------------------------------------------ - -module GF.Parsing.MCFG - (parseMCF, module GF.Parsing.MCFG.PInfo) where - -import GF.Data.Operations (Err(..)) - -import GF.Formalism.Utilities -import GF.Formalism.GCFG -import GF.Formalism.MCFG -import GF.Parsing.MCFG.PInfo - -import qualified GF.Parsing.MCFG.Naive as Naive -import qualified GF.Parsing.MCFG.Active as Active -import qualified GF.Parsing.MCFG.FastActive as FastActive --- import qualified GF.Parsing.MCFG.Active2 as Active2 -import qualified GF.Parsing.MCFG.Incremental as Incremental --- import qualified GF.Parsing.MCFG.Incremental2 as Incremental2 - ----------------------------------------------------------------------- --- parsing - -parseMCF :: (Ord c, Ord n, Ord l, Ord t) => String -> Err (MCFParser c n l t) -parseMCF prs | prs `elem` strategies = Ok $ parseMCF' prs - | otherwise = Bad $ "MCFG parsing strategy not defined: " ++ prs - - -strategies = words "bottomup topdown n an ab at i rn ran rab rat ri ft fb" - - -parseMCF' :: (Ord c, Ord n, Ord l, Ord t) => String -> MCFParser c n l t - -parseMCF' "bottomup" pinfo starts toks = parseMCF' "fb" pinfo starts toks -parseMCF' "topdown" pinfo starts toks = parseMCF' "ft" pinfo starts toks - -parseMCF' "n" pinfo starts toks = Naive.parse pinfo starts toks -parseMCF' "an" pinfo starts toks = Active.parse "n" pinfo starts toks -parseMCF' "ab" pinfo starts toks = Active.parse "b" pinfo starts toks -parseMCF' "at" pinfo starts toks = Active.parse "t" pinfo starts toks -parseMCF' "i" pinfo starts toks = Incremental.parse pinfo starts toks - --- parseMCF' "an2" pinfo starts toks = Active2.parse "n" pinfo starts toks --- parseMCF' "ab2" pinfo starts toks = Active2.parse "b" pinfo starts toks --- parseMCF' "at2" pinfo starts toks = Active2.parse "t" pinfo starts toks --- parseMCF' "i2" pinfo starts toks = Incremental2.parse pinfo starts toks - -parseMCF' "rn" pinfo starts toks = Naive.parseR (rrP pinfo toks) starts -parseMCF' "ran" pinfo starts toks = Active.parseR "n" (rrP pinfo toks) starts -parseMCF' "rab" pinfo starts toks = Active.parseR "b" (rrP pinfo toks) starts -parseMCF' "rat" pinfo starts toks = Active.parseR "t" (rrP pinfo toks) starts -parseMCF' "ri" pinfo starts toks = Incremental.parseR (rrP pinfo toks) starts ntoks - where ntoks = snd (inputBounds toks) - -parseMCF' "fb" pinfo starts toks = FastActive.parse "b" (rrP pinfo toks) starts -parseMCF' "ft" pinfo starts toks = FastActive.parse "t" (rrP pinfo toks) starts - -rrP pi = rangeRestrictPInfo pi |