Ticket #1141: readline.patch

New patches:

[Add get/set functions for the rl_attempted_completion_over variable.
judah.jacobson@gmail.com**20070211230806] {
hunk ./System/Console/Readline.hsc 243
+    setAttemptedCompletionOver,       -- :: Bool -> IO ()
+    getAttemptedCompletionOver,       -- :: IO Bool
hunk ./System/Console/Readline.hsc 1223
+foreign import ccall "&" rl_attempted_completion_over :: Ptr CInt
+
+getAttemptedCompletionOver :: IO Bool
+getAttemptedCompletionOver = 
+    liftM (/=0) (peek rl_attempted_completion_over)
+
+setAttemptedCompletionOver :: Bool -> IO ()
+setAttemptedCompletionOver over = 
+    poke rl_attempted_completion_over (if over then 1 else 0)
+
}

[Add interface for rl_completion_word_break_hook (version 5.0 or higher).
judah.jacobson@gmail.com**20070211231618] {
hunk ./System/Console/Readline.hsc 250
+#if HAVE_READLINE_5
+    ,
+    setCompletionWordBreakHook
+        -- :: Maybe (IO (Maybe String)) -> IO ()
+#endif
hunk ./System/Console/Readline.hsc 1016
+
hunk ./System/Console/Readline.hsc 1021
+#if HAVE_READLINE_5
+type StringFunc = IO (Ptr CChar)
+
+foreign import ccall "&" rl_completion_word_break_hook 
+    :: Ptr (FunPtr StringFunc)
+
+foreign import ccall "wrapper" 
+    exportStringFunc :: StringFunc -> IO (FunPtr StringFunc)
+
+setCompletionWordBreakHook
+    :: Maybe (IO (Maybe String)) -> IO ()
+setCompletionWordBreakHook fun = 
+    setFunPtr rl_completion_word_break_hook fun $ \f ->
+        exportStringFunc $ do
+            wordBreaks <- f
+            case wordBreaks of
+                Nothing -> return nullPtr
+                Just wordBreaksString -> newCString wordBreaksString
+
+#endif
+
hunk ./configure.ac 65
+  AC_CHECK_LIB(readline, rl_completion_word_break_hook,
+    [AC_DEFINE([HAVE_READLINE_5], [1], [Define to 1 if readline has version >= 5.0.])],
+    [AC_DEFINE([HAVE_READLINE_5], [0], [Define to 1 if readline has version >= 5.0.])])
hunk ./configure.ac 71
+  AC_DEFINE([HAVE_READLINE_5], [0], [Define to 1 if readline has version >= 5.0.])
}

Context:

[TAG 6.6 release
Ian Lynagh <igloo@earth.li>**20061011124740] 
[add boilerplate Setup.hs
Ross Paterson <ross@soi.city.ac.uk>**20060928231526] 
[Typo (this is the readline, not unix, package)
Ian Lynagh <igloo@earth.li>**20060823144042] 
[remove unnecessary #include "ghcconfig.h"
Ross Paterson <ross@soi.city.ac.uk>**20060809132127] 
[Make the configure test robust against libedit
Simon Marlow <simonmar@microsoft.com>**20060706120654
 See #766
 Thanks to Greg Wright for the fix.
] 
[make a start on Cabalizing readline
Ross Paterson <ross@soi.city.ac.uk>**20060609161024] 
[Move readline configuration into the readline package
Simon Marlow <simonmar@microsoft.com>**20060609135511
 
 Configuration of the readline package is now done with a
 package-private configure script, which takes it a step closer to
 being a standalone Cabal package.
 
 At the same time I added --with-readline-includes and
 --with-readline-libraries options to cater for systems where these
 libraries live in non-std places.
 
] 
[TAG Initial conversion from CVS complete
John Goerzen <jgoerzen@complete.org>**20060112154138] 
Patch bundle hash:
367b9df2a9175aa446267d40c850b20092a306e8