[project @ 1999-11-26 16:29:09 by simonmar]

GHC bits for new library organisation.

1 files changed, 0 insertions, 34 deletions

diff --git a/ghc/lib/misc/RegexString.lhs b/ghc/lib/misc/RegexString.lhs
deleted file mode 100644
index 8bc98a5a02..0000000000
--- a/ghc/lib/misc/RegexString.lhs
+++ /dev/null
@@ -1,34 +0,0 @@
------------------------------------------------------------------------------
-RegexString.lhs
-
-A simple high-level interface to Regex
-
-(c) Simon Marlow 1997
------------------------------------------------------------------------------
-
-> module RegexString (Regex(..), mkRegex, matchRegex) where
-
-> import Regex
-> import PackedString
-> import Array
-> import GlaExts
-
-> type Regex = PatBuffer
-> 
-> mkRegex :: String -> Regex
-> mkRegex s = unsafePerformPrimIO (
-> 	  re_compile_pattern (packString s) False False)
-> 
-> matchRegex :: Regex -> String -> Maybe [String]
-> matchRegex p s = unsafePerformPrimIO (
-> 	  re_match p str 0 True >>= \m ->
-> 	  case m of
-> 		  Nothing -> return Nothing
-> 		  Just m  -> return (Just (matches m str))
-> 	  )
->    where
->	  str = packString s
-> 
-> matches (REmatch arr _ _ _ _) s = 
-> 	  [ unpackPS (substrPS s beg (end-1)) | 
-> 		  index <- [1..], let (beg,end) = arr ! index ]