From df0c4f81fa9c620d7c63af79c0b183a6beccf0bd Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@chalmers.se>
Date: Thu, 22 May 2008 11:59:31 +0000
Subject: remove all files that aren't used in GF-3.0

---
 src-3.0/GF/Parsing/CFG.hs | 51 -----------------------------------------------
 1 file changed, 51 deletions(-)
 delete mode 100644 src-3.0/GF/Parsing/CFG.hs

(limited to 'src-3.0/GF/Parsing/CFG.hs')

diff --git a/src-3.0/GF/Parsing/CFG.hs b/src-3.0/GF/Parsing/CFG.hs
deleted file mode 100644
index f64ce55f1..000000000
--- a/src-3.0/GF/Parsing/CFG.hs
+++ /dev/null
@@ -1,51 +0,0 @@
-----------------------------------------------------------------------
--- |
--- Maintainer  : PL
--- Stability   : (stable)
--- Portability : (portable)
---
--- > CVS $Date: 2005/05/11 10:28:16 $ 
--- > CVS $Author: peb $
--- > CVS $Revision: 1.5 $
---
--- CFG parsing
------------------------------------------------------------------------------
-
-module GF.Parsing.CFG
-    (parseCF, module GF.Parsing.CFG.PInfo) where
-
-import GF.Data.Operations (Err(..))
-
-import GF.Formalism.Utilities
-import GF.Formalism.CFG
-import GF.Parsing.CFG.PInfo
-
-import qualified GF.Parsing.CFG.Incremental as Inc
-import qualified GF.Parsing.CFG.General as Gen
-
-----------------------------------------------------------------------
--- parsing
-
-parseCF :: (Ord n, Ord c, Ord t) => String -> Err (CFParser c n t) 
-
-parseCF "bottomup" = Ok $ Gen.parse bottomup
-parseCF "topdown"  = Ok $ Gen.parse topdown
-
-parseCF "gb"    = Ok $ Gen.parse bottomup
-parseCF "gt"    = Ok $ Gen.parse topdown
-parseCF "ib"    = Ok $ Inc.parse (bottomup, noFilter)
-parseCF "it"    = Ok $ Inc.parse (topdown, noFilter)
-parseCF "ibFT"  = Ok $ Inc.parse (bottomup, topdown)
-parseCF "ibFB"  = Ok $ Inc.parse (bottomup, bottomup)
-parseCF "ibFTB" = Ok $ Inc.parse (bottomup, bothFilters)
-parseCF "itF"   = Ok $ Inc.parse (topdown, bottomup)
-
--- error parser:
-parseCF prs = Bad $ "CFG parsing strategy not defined: " ++ prs
-
-bottomup = (True, False)
-topdown = (False, True)
-noFilter = (False, False)
-bothFilters = (True, True)
-
-
-- 
cgit v1.2.3