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/Compile/NoParse.hs | 49 -------------------------------------------
 1 file changed, 49 deletions(-)
 delete mode 100644 src-3.0/GF/Compile/NoParse.hs

(limited to 'src-3.0/GF/Compile/NoParse.hs')

diff --git a/src-3.0/GF/Compile/NoParse.hs b/src-3.0/GF/Compile/NoParse.hs
deleted file mode 100644
index c8f828970..000000000
--- a/src-3.0/GF/Compile/NoParse.hs
+++ /dev/null
@@ -1,49 +0,0 @@
-----------------------------------------------------------------------
--- |
--- Module      : NoParse
--- Maintainer  : AR
--- Stability   : (stable)
--- Portability : (portable)
---
--- > CVS $Date: 2005/11/14 16:03:41 $ 
--- > CVS $Author: aarne $
--- > CVS $Revision: 1.1 $
---
--- Probabilistic abstract syntax. AR 30\/10\/2005
---
--- (c) Aarne Ranta 2005 under GNU GPL
---
--- Contents: decide what lin rules no parser is generated.
--- Usually a list of noparse idents from 'i -boparse=file'.
-
------------------------------------------------------------------------------
-
-module GF.Compile.NoParse (
-  NoParse             -- =  Ident -> Bool
- ,getNoparseFromFile  -- :: Opts -> IO NoParse
- ,doParseAll          -- :: NoParse
-  ) where
-
-import GF.Infra.Ident
-import GF.Data.Operations
-import GF.Infra.Option
-
-
-type NoParse = (Ident -> Bool)
-
-doParseAll :: NoParse
-doParseAll = const False
-
-getNoparseFromFile :: Options -> FilePath -> IO NoParse
-getNoparseFromFile opts file = do 
-  let f = maybe file id $ getOptVal opts noparseFile
-  s <- readFile f
-  let tree = buildTree $ flip zip (repeat ()) $ concat $ map getIgnores $ lines s
-  tree `seq` return $ igns tree
- where
-  igns tree i = isInBinTree i tree
-
--- where
-getIgnores s = case dropWhile (/="--#") (words s) of
-     _:"noparse":fs -> map identC fs
-     _ -> []
-- 
cgit v1.2.3