From b96b36f43de3e2f8b58d5f539daa6f6d47f25870 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 25 Jun 2008 16:43:48 +0000
Subject: removed src for 2.9

---
 src/GF/OldParsing/ParseCFG.hs | 43 -------------------------------------------
 1 file changed, 43 deletions(-)
 delete mode 100644 src/GF/OldParsing/ParseCFG.hs

(limited to 'src/GF/OldParsing/ParseCFG.hs')

diff --git a/src/GF/OldParsing/ParseCFG.hs b/src/GF/OldParsing/ParseCFG.hs
deleted file mode 100644
index 03c1d7dcc..000000000
--- a/src/GF/OldParsing/ParseCFG.hs
+++ /dev/null
@@ -1,43 +0,0 @@
-----------------------------------------------------------------------
--- |
--- Module      : ParseCFG
--- Maintainer  : PL
--- Stability   : (stable)
--- Portability : (portable)
---
--- > CVS $Date: 2005/04/21 16:22:49 $ 
--- > CVS $Author: bringert $
--- > CVS $Revision: 1.2 $
---
--- Main parsing module for context-free grammars
------------------------------------------------------------------------------
-
-
-module GF.OldParsing.ParseCFG (parse) where
-
-import Data.Char (toLower)
-import GF.OldParsing.Utilities
-import GF.OldParsing.CFGrammar
-import qualified GF.OldParsing.ParseCFG.General as PGen
-import qualified GF.OldParsing.ParseCFG.Incremental as PInc
-
-
-parse :: (Ord n, Ord c, Ord t, Show t) => 
-	 String -> CFParser n c t
-parse = decodeParser . map toLower
-
-decodeParser ['g',s]   = PGen.parse (decodeStrategy s)
-decodeParser ['i',s,f] = PInc.parse (decodeStrategy s, decodeFilter f)
-decodeParser _ = decodeParser "ibn"
-
-decodeStrategy 'b' = (True, False)
-decodeStrategy 't' = (False, True)
-
-decodeFilter 'a' = (True, True)
-decodeFilter 'b' = (True, False)
-decodeFilter 't' = (False, True)
-decodeFilter 'n' = (False, False)
-
-
-
-
-- 
cgit v1.2.3