From c1592825c71867711a63293b588fcbc97e52bfc4 Mon Sep 17 00:00:00 2001 From: peb Date: Mon, 18 Apr 2005 13:55:32 +0000 Subject: "Committed_by_peb" --- src/GF/Conversion/RemoveEpsilon.hs | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 src/GF/Conversion/RemoveEpsilon.hs (limited to 'src/GF/Conversion/RemoveEpsilon.hs') diff --git a/src/GF/Conversion/RemoveEpsilon.hs b/src/GF/Conversion/RemoveEpsilon.hs new file mode 100644 index 000000000..f6e30e16d --- /dev/null +++ b/src/GF/Conversion/RemoveEpsilon.hs @@ -0,0 +1,36 @@ +---------------------------------------------------------------------- +-- | +-- Maintainer : PL +-- Stability : (stable) +-- Portability : (portable) +-- +-- > CVS $Date: 2005/04/18 14:57:29 $ +-- > CVS $Author: peb $ +-- > CVS $Revision: 1.1 $ +-- +-- Removing epsilon linearizations from MCF grammars +----------------------------------------------------------------------------- + + +module GF.Conversion.RemoveEpsilon where +-- (convertGrammar) where + +import GF.System.Tracing +import GF.Infra.Print + +import Monad +import List (mapAccumL) +import Maybe (mapMaybe) +import GF.Formalism.Utilities +import GF.Formalism.GCFG +import GF.Formalism.MCFG +import GF.Conversion.Types +import GF.Data.Assoc +import GF.Data.SortedList +import GF.NewParsing.GeneralChart + +convertGrammar :: EGrammar -> EGrammar +convertGrammar grammar = undefined + + + -- cgit v1.2.3