summaryrefslogtreecommitdiff
path: root/src-3.0/GF/OldParsing/ParseMCFG.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src-3.0/GF/OldParsing/ParseMCFG.hs')
-rw-r--r--src-3.0/GF/OldParsing/ParseMCFG.hs37
1 files changed, 0 insertions, 37 deletions
diff --git a/src-3.0/GF/OldParsing/ParseMCFG.hs b/src-3.0/GF/OldParsing/ParseMCFG.hs
deleted file mode 100644
index c845a76b3..000000000
--- a/src-3.0/GF/OldParsing/ParseMCFG.hs
+++ /dev/null
@@ -1,37 +0,0 @@
-----------------------------------------------------------------------
--- |
--- Module : ParseMCFG
--- Maintainer : PL
--- Stability : (stable)
--- Portability : (portable)
---
--- > CVS $Date: 2005/04/21 16:22:52 $
--- > CVS $Author: bringert $
--- > CVS $Revision: 1.2 $
---
--- Main module for MCFG parsing
------------------------------------------------------------------------------
-
-
-module GF.OldParsing.ParseMCFG (parse) where
-
-import Data.Char (toLower)
-import GF.OldParsing.Utilities
-import GF.OldParsing.MCFGrammar
-import qualified GF.OldParsing.ParseMCFG.Basic as PBas
-import GF.Printing.PrintParser
----- import qualified MCFParserBasic2 as PBas2 -- file not found AR
-
-
-parse :: (Ord n, Ord c, Ord l, Ord t,
- Print n, Print c, Print l, Print t) =>
- String -> MCFParser n c l t
-parse str = decodeParser (map toLower str)
-
-decodeParser "b" = PBas.parse
----- decodeParser "c" = PBas2.parse
-decodeParser _ = decodeParser "b"
-
-
-
-