diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:43:48 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:43:48 +0000 |
| commit | b96b36f43de3e2f8b58d5f539daa6f6d47f25870 (patch) | |
| tree | 0992334be13cec6538a1dea22fbbf26ad6bdf224 /src/GF/Compile/NoParse.hs | |
| parent | fe367412e0aeb4ad5c02de68e6eca382e0f96984 (diff) | |
removed src for 2.9
Diffstat (limited to 'src/GF/Compile/NoParse.hs')
| -rw-r--r-- | src/GF/Compile/NoParse.hs | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/src/GF/Compile/NoParse.hs b/src/GF/Compile/NoParse.hs deleted file mode 100644 index c8f828970..000000000 --- a/src/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 - _ -> [] |