From b78c0ee07cce01ee9269cbb2199fdb4bdb817d5a Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Wed, 25 Sep 2002 23:01:11 +0000
Subject: [PATCH] [project @ 2002-09-25 23:01:11 by ross] (Hugs only) conform
 to the current FFI spec.  This code makes the additional
 assumption that a finalizer added with
 addForeignPtrFinalizer runs before any existing finalizers
 on the same object.

---
 Text/Regex/Posix.hsc |   16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/Text/Regex/Posix.hsc b/Text/Regex/Posix.hsc
index 08565b5..8d2fc53 100644
--- a/Text/Regex/Posix.hsc
+++ b/Text/Regex/Posix.hsc
@@ -56,19 +56,28 @@ regcomp
   -> Int    	-- ^ Flags (summed together)
   -> IO Regex  	-- ^ Returns: the compiled regular expression
 regcomp pattern flags = do
+#ifdef __HUGS__
+  regex_fptr <- mallocForeignPtrBytes (#const sizeof(regex_t))
+#else
   regex_ptr <- mallocBytes (#const sizeof(regex_t))
   regex_fptr <- newForeignPtr regex_ptr (regfree regex_ptr)
+#endif /* __HUGS__ */
   r <- withCString pattern $ \cstr ->
     	 withForeignPtr regex_fptr $ \p ->
            c_regcomp p cstr (fromIntegral flags)
+#ifdef __HUGS__
+  addForeignPtrFinalizer regex_fptr ptr_regfree
+#endif
   if (r == 0)
      then return (Regex regex_fptr)
      else error "Text.Regex.Posix.regcomp: error in pattern" -- ToDo
 
+#ifndef __HUGS__
 regfree :: Ptr CRegex -> IO ()
 regfree p_regex = do
   c_regfree p_regex
   free p_regex
+#endif /* __HUGS__ */
 
 -- -----------------------------------------------------------------------------
 -- regexec
@@ -130,7 +139,7 @@ unpack string p_match = do
 -- Flags for regexec
 #enum Int,, \
 	REG_NOTBOL, \
-	REG_NOTEOL \
+	REG_NOTEOL
 
 -- Return values from regexec
 #enum Int,, \
@@ -165,8 +174,13 @@ type CRegMatch = ()
 foreign import ccall unsafe "regcomp"
   c_regcomp :: Ptr CRegex -> CString -> CInt -> IO CInt
 
+#ifdef __HUGS__
+foreign import ccall  unsafe "&regfree"
+  ptr_regfree :: FunPtr (Ptr CRegex -> IO ())
+#else
 foreign import ccall  unsafe "regfree"
   c_regfree :: Ptr CRegex -> IO ()
+#endif /* __HUGS__ */
 
 foreign import ccall unsafe "regexec"
   c_regexec :: Ptr CRegex -> CString -> CSize
-- 
1.7.10.4