- Libraries - Haskell.org

POSIX named semaphore and shared memory object bindings
by Daniel Franke 03 May '07

03 May '07

I've written some bindings for POSIX named semaphores and shared memory objects, which I'd like to submit for inclusion into the `unix' package. However, I can't seem to do so through the proper channels, as a couple things seem to be broken at the moment: 1. Account creation on http://hackage.haskell.org/trac isn't working: [Errno 13] Permission denied: '/srv/trac/ghc/trac.htpasswd' . 2. The HEAD version of `unix' depends on the HEAD version of `Cabal', which currently won't build: Distribution/Compat/TempFile.hs:6:7: Could not find module `IO': it is a member of package haskell98, which is hidden As soon as these things are resolved I'll submit a proper patch. For the time being, I've put the extensions into a separate package, attached. -- Daniel Franke df(a)dfranke.us http://www.dfranke.us |----| =|\ \\\\ || * | -|-\--------- Man is free at the instant he wants to be. -----| =| \ /// --Voltaire

2 2

Test, please ignore
by Simon Marlow 03 May '07

03 May '07

I've had a report of difficulty posting to the list, and we haven't had any posts in a couple of days, so this is a test.

1 0

FilePath documentation differences
by Neil Mitchell 01 May '07

01 May '07

Hi, The filepath documentation seems to be different on my machine, versus on Haskell.org: My locally generated copy: http://www.cs.york.ac.uk/fp/haddock/filepath/System-FilePath-Posix.html GHC version: http://www.haskell.org/ghc/docs/latest/html/libraries/filepath/System-FileP… It is missing the description and examples at the top. Is this intentional? Thanks Neil

2 2

What about tuple accessor function for (,,) ... ?
by Marc Weber 26 Apr '07

26 Apr '07

There is a fst and a snd function. What about fstOf3 ( \(x,_,_) -> x ) sndOf3 ( \(_,x,_) -> x ) thrdOf3 ( \(_,_,x) -> x ) ? ... or using overloading ? fst snd thrd _4th _5th I think its easier to type/ read than \(_,_,x,_) -> x class Second a b | a -> b where t2 :: a -> b instance Second (a,b) b where t2 (a,b) = b instance Second (a,b,c) b where t2 (a,b,c) = b instance Second (a,b,c,d) b where t2 (a,b,c,d) = b instance Second (a,b,c,d,e) b where t2 (a,b,c,d,e) = b Or is there any drawback I didn't see? I'd like to see them in Data.Tuple Marc

3 3

darcs patch: Use "Wide" API if System has it to suppo... (and 1 more)
by shelarcy 26 Apr '07

26 Apr '07

DarcsURL: http://darcs.haskell.org/ghc-6.6/packages/base MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=_" --=_ Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Wed Apr 25 01:35:54 =93=8C=8B=9E (=95W=8F=80=8E=9E) 2007 shelarcy(a)gmail.co= m * Use "Wide" API if System has it to support "wide" character's FilePath Wed Apr 25 13:08:43 =93=8C=8B=9E (=95W=8F=80=8E=9E) 2007 shelarcy <shelarc= y(a)gmail.com> * fix typo in "Wide" API support --=_ Content-Type: text/x-darcs-patch; name="use-_wide_-api-if-system-has-it-to-support-_wide_-character_s-filepath.dpatch" Content-Transfer-Encoding: quoted-printable Content-Description: A darcs patch for your repository! New patches: [Use "Wide" API if System has it to support "wide" character's FilePath shelarcy(a)gmail.com**20070424163554] { hunk ./GHC/Handle.hs 787 +#if defined(mingw32_HOST_OS) || HAVE_WOPEN + withCWString filepath $ \ f -> +#else hunk ./GHC/Handle.hs 791 +#endif hunk ./GHC/Handle.hs 871 +#if defined(mingw32_HOST_OS) || HAVE_WOPEN + fd <- withCWString filepath $ \ f -> +#else hunk ./GHC/Handle.hs 875 +#endif hunk ./System/Directory.hs 156 +#if defined(mingw32_HOST_OS) || HAVE_WACESS + withCWString name $ \s -> do +#else hunk ./System/Directory.hs 160 +#endif hunk ./System/Directory.hs 190 +#if defined(mingw32_HOST_OS) || HAVE_WCHMOD + withCWString name $ \p_name -> do +#else hunk ./System/Directory.hs 194 +#endif hunk ./System/Directory.hs 212 +#if defined(mingw32_HOST_OS) || HAVE_WCHMOD + withCWString source $ \p_source -> do + withCWString dest $ \p_dest -> do +#else hunk ./System/Directory.hs 218 +#endif hunk ./System/Directory.hs 266 +#if defined(mingw32_HOST_OS) || HAVE_WMKDIR + withCWString path $ \s -> do +#else hunk ./System/Directory.hs 270 +#endif hunk ./System/Directory.hs 341 +#if defined(mingw32_HOST_OS) || HAVE_WRMDIR + withCWString path $ \s -> +#else hunk ./System/Directory.hs 345 +#endif hunk ./System/Directory.hs 405 +#if defined(mingw32_HOST_OS) || HAVE_WUNLINK + withCWString path $ \s -> +#else hunk ./System/Directory.hs 409 +#endif hunk ./System/Directory.hs 469 - +#if defined(mingw32_HOST_OS) || HAVE_WRENAME + withCWString opath $ \s1 -> + withCWString npath $ \s2 -> +#else hunk ./System/Directory.hs 474 - withCString npath $ \s2 -> + withCString npath $ \s2 -> +#endif hunk ./System/Directory.hs 530 - +#if defined(mingw32_HOST_OS) || HAVE_WRENAME + withCWString opath $ \s1 -> + withCWString npath $ \s2 -> +#else hunk ./System/Directory.hs 535 - withCString npath $ \s2 -> + withCString npath $ \s2 -> +#endif hunk ./System/Directory.hs 610 +#if defined(mingw32_HOST_OS) || HAVE_WREALPATH + withCWString fpath $ \pInPath -> +#else hunk ./System/Directory.hs 614 +#endif hunk ./System/Directory.hs 622 +#if defined(mingw32_HOST_OS) || HAVE_WREALPATH + peekCWString pOutPath +#else hunk ./System/Directory.hs 626 +#endif hunk ./System/Directory.hs 629 -foreign import stdcall unsafe "GetFullPathNameA" - c_GetFullPathName :: CString +foreign import stdcall unsafe "GetFullPathNameW" + c_GetFullPathName :: CWString hunk ./System/Directory.hs 632 - -> CString - -> Ptr CString + -> CWString + -> Ptr CWString hunk ./System/Directory.hs 635 +#elif HAVE_WREALPATH +foreign import ccall unsafe "wrealpath" + c_realpath :: CWString + -> CWString + -> IO CWString hunk ./System/Directory.hs 660 - withCString binary $ \c_binary -> - withCString ('.':exeExtension) $ \c_ext -> + withCWString binary $ \c_binary -> + withCWString ('.':exeExtension) $ \c_ext -> hunk ./System/Directory.hs 666 - then do fpath <- peekCString pOutPath + then do fpath <- peekCWString pOutPath hunk ./System/Directory.hs 670 -foreign import stdcall unsafe "SearchPathA" - c_SearchPath :: CString - -> CString - -> CString +foreign import stdcall unsafe "SearchPathW" + c_SearchPath :: CWString + -> CWString + -> CWString hunk ./System/Directory.hs 675 - -> CString - -> Ptr CString + -> CWString + -> Ptr CWString hunk ./System/Directory.hs 736 - (withCString path $ \s -> = +#if defined(mingw32_HOST_OS) || HAVE_WOPENDIR + (withCWString path $ \s -> = +#else + (withCString path $ \s -> +#endif hunk ./System/Directory.hs 757 +#if defined(mingw32_HOST_OS) || HAVE_WREADDIR + entry <- (d_name dEnt >>=3D peekCWString) +#else hunk ./System/Directory.hs 761 +#endif hunk ./System/Directory.hs 807 +#if defined(mingw32_HOST_OS) || HAVE_WGETCWD + then do s <- peekCWString p' +#else hunk ./System/Directory.hs 811 +#endif hunk ./System/Directory.hs 856 +#if defined(mingw32_HOST_OS) || HAVE_WCHDIR + withCWString path $ \s -> = +#else hunk ./System/Directory.hs 860 +#endif hunk ./System/Directory.hs 905 +#if defined(mingw32_HOST_OS) || HAVE_WSTAT + withCWString (fileNameEndClean name) $ \s -> do +#else hunk ./System/Directory.hs 909 +#endif hunk ./System/Directory.hs 917 +#if defined(mingw32_HOST_OS) || HAVE_WLSTAT || HAVE_WSTAT + withCWString name $ \s -> do +#else hunk ./System/Directory.hs 921 +#endif hunk ./System/Directory.hs 990 - peekCString pPath + peekCWString pPath hunk ./System/Directory.hs 1028 - s <- peekCString pPath + s <- peekCWString pPath hunk ./System/Directory.hs 1062 - peekCString pPath + peekCWString pPath hunk ./System/Directory.hs 1098 - peekCString pPath + peekCWString pPath hunk ./System/Directory.hs 1109 - -> CString = + -> CWString = hunk ./System/Directory.hs 1116 -foreign import stdcall unsafe "GetTempPathA" c_GetTempPath :: CInt -> CStr= ing -> IO CInt +foreign import stdcall unsafe "GetTempPathW" c_GetTempPath :: CInt -> CWSt= ring -> IO CInt hunk ./System/Posix/Internals.hs 93 +#if (defined(mingw32_HOST_OS) || defined(__MINGW32__)) || HAVE_WSTAT + withCWString file $ \p_file -> do +#else hunk ./System/Posix/Internals.hs 97 +#endif hunk ./System/Posix/Internals.hs 314 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) +foreign import ccall unsafe "HsBase.h _waccess" +#elif HAVE_WACCESS +foreign import ccall unsafe "HsBase.h waccess" +#else hunk ./System/Posix/Internals.hs 320 +#endif +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WACCESS + c_access :: CWString -> CInt -> IO CInt +#else hunk ./System/Posix/Internals.hs 325 +#endif hunk ./System/Posix/Internals.hs 327 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) +foreign import ccall unsafe "HsBase.h _wchmod" +#elif HAVE_WCHMOD +foreign import ccall unsafe "HsBase.h wchmod" +#else hunk ./System/Posix/Internals.hs 333 +#endif +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WCHMOD + c_chmod :: CWString -> CMode -> IO CInt +#else hunk ./System/Posix/Internals.hs 338 +#endif hunk ./System/Posix/Internals.hs 340 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) +foreign import ccall unsafe "HsBase.h _wchdir" +#elif HAVE_WCHDIR +foreign import ccall unsafe "HsBase.h wchdir" +#else hunk ./System/Posix/Internals.hs 346 +#endif +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WCHDIR + c_chdir :: CWString -> IO CInt +#else hunk ./System/Posix/Internals.hs 351 +#endif hunk ./System/Posix/Internals.hs 356 -foreign import ccall unsafe "HsBase.h closedir" = +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) +foreign import ccall unsafe "HsBase.h _wclosedir" +#elif HAVE_WCLOSEDIR +foreign import ccall unsafe "HsBase.h wclosedir" +#else +foreign import ccall unsafe "HsBase.h closedir" +#endif hunk ./System/Posix/Internals.hs 377 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) +foreign import ccall unsafe "HsBase.h _wgetcwd" +#elif HAVE_WGETCWD +foreign import ccall unsafe "HsBase.h wgetcwd" +#else hunk ./System/Posix/Internals.hs 383 +#endif +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WGETCWD + c_getcwd :: Ptr CWchar -> CSize -> IO (Ptr CWchar) +#else hunk ./System/Posix/Internals.hs 388 +#endif hunk ./System/Posix/Internals.hs 397 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WLSTAT || HAV= E_WSTAT + lstat :: CWString -> Ptr CStat -> IO CInt +#else hunk ./System/Posix/Internals.hs 401 +#endif hunk ./System/Posix/Internals.hs 404 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WOPEN + c_open :: CWString -> CInt -> CMode -> IO CInt +#else hunk ./System/Posix/Internals.hs 408 +#endif hunk ./System/Posix/Internals.hs 410 -foreign import ccall unsafe "HsBase.h opendir" = - c_opendir :: CString -> IO (Ptr CDir) +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) +foreign import ccall unsafe "HsBase.h _wopendir" +#elif HAVE_WOPENDIR +foreign import ccall unsafe "HsBase.h wopendir" +#else +foreign import ccall unsafe "HsBase.h opendir" +#endif +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WOPENDIR + c_opendir :: CWString -> IO (Ptr CDir) +#else + c_opendir :: CString -> IO (Ptr CDir) +#endif hunk ./System/Posix/Internals.hs 424 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WMKDIR + mkdir :: CWString -> CInt -> IO CInt +#else hunk ./System/Posix/Internals.hs 428 +#endif hunk ./System/Posix/Internals.hs 434 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WRENAME + c_rename :: CWString -> CWString -> IO CInt +#else hunk ./System/Posix/Internals.hs 438 +#endif hunk ./System/Posix/Internals.hs 443 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) +foreign import ccall unsafe "HsBase.h _wrmdir" +#elif HAVE_WRMDIR +foreign import ccall unsafe "HsBase.h wrmdir" +#else hunk ./System/Posix/Internals.hs 449 +#endif +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WRMDIR + c_rmdir :: CWString -> IO CInt +#else hunk ./System/Posix/Internals.hs 454 +#endif hunk ./System/Posix/Internals.hs 457 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WSTAT + c_stat :: CWString -> Ptr CStat -> IO CInt +#else hunk ./System/Posix/Internals.hs 461 +#endif hunk ./System/Posix/Internals.hs 472 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) +foreign import ccall unsafe "HsBase.h _wunlink" +#elif HACE_WUNLINK +foreign import ccall unsafe "HsBase.h wunlink" +#else hunk ./System/Posix/Internals.hs 478 +#endif +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WUNLINK + c_unlink :: CWString -> IO CInt +#else hunk ./System/Posix/Internals.hs 483 +#endif hunk ./System/Posix/Internals.hs 501 -foreign import ccall unsafe "HsBase.h link" +#if HAVE_WLINK +foreign import ccall unsafe "HsBase.h wlink" + c_link :: CWString -> CWString -> IO CInt +#else +foreign import ccall unsafe "HsBase.h wlink" hunk ./System/Posix/Internals.hs 507 +#endif hunk ./System/Posix/Internals.hs 558 +#if defined(mingw32_HOST_OS) || HAVE_WREAD_DIR + d_name :: Ptr CDirent -> IO CWString +#else hunk ./System/Posix/Internals.hs 562 +#endif hunk ./System/Process/Internals.hs 239 - maybeWith withCString mb_cwd $ \pWorkDir -> do + maybeWith withCWString mb_cwd $ \pWorkDir -> do hunk ./System/Process/Internals.hs 243 - withCString cmdline $ \pcmdline -> do + withCWString cmdline $ \pcmdline -> do hunk ./System/Process/Internals.hs 251 - :: CString - -> CString + :: CWString + -> CWString hunk ./System/Process/Internals.hs 427 - in withCString env' (act . castPtr) + in withCWString env' (act . castPtr) hunk ./System/Process.hs 193 - withCString cmdline $ \pcmdline -> + withCWString cmdline $ \pcmdline -> hunk ./System/Process.hs 198 - maybeWith withCString workDir $ \pWorkDir -> do + maybeWith withCWString workDir $ \pWorkDir -> do hunk ./System/Process.hs 210 - :: CString = - -> CString + :: CWString = + -> CWString hunk ./cbits/dirUtils.c 63 -#if HAVE_READDIR_R +#if HAVE_READDIR_R || HAVE_WREADDIR_R +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) + struct _wdirent* p; +#elif HAVE_WDIRENT + struct wdirent* p; +#else hunk ./cbits/dirUtils.c 70 +#endif hunk ./cbits/dirUtils.c 86 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) + p =3D (struct _wdirent*)malloc(sizeof(struct _wdirent) + nm_max); +#elif HAVE_WREADDIR + P =3D (struct wdirent*)malloc(sizeof(struct wdirent) + nm_max); +#else hunk ./cbits/dirUtils.c 92 +#endif hunk ./cbits/dirUtils.c 94 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) + res =3D _wreaddir_r(dirPtr, p, pDirEnt); +#elif HAVE_WREADDIR_R + res =3D wreaddir_r(dirPtr, p, pDirEnt); +#else hunk ./cbits/dirUtils.c 100 +#endif hunk ./cbits/dirUtils.c 116 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) + *pDirEnt =3D _wreaddir(dirPtr); +#elif HAVE_WREADDIR + *pDirEnt =3D wreaddir(dirPtr); +#else hunk ./cbits/dirUtils.c 122 +#endif hunk ./cbits/dirUtils.c 141 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) || HAVE_W= RENAME +__hscore_renameFile( wchar_t *src, wchar_t *dest) +#else hunk ./cbits/dirUtils.c 145 +#endif hunk ./cbits/dirUtils.c 151 - if (MoveFileA(src, dest)) { + if (MoveFileW(src, dest)) { hunk ./cbits/dirUtils.c 158 - if ( !GetFileAttributes(dest) ) { + if ( !GetFileAttributesW(dest) ) { hunk ./cbits/dirUtils.c 176 - if ( MoveFileExA(src, dest, MOVEFILE_REPLACE_EXISTING) ) { + if ( MoveFileExW(src, dest, MOVEFILE_REPLACE_EXISTING) ) { hunk ./cbits/dirUtils.c 186 - if (DeleteFileA(dest)) { - if (MoveFileA(src,dest)) { + if (DeleteFileW(dest)) { + if (MoveFileW(src,dest)) { hunk ./cbits/dirUtils.c 197 +#elif HAVE_WRENAME + return wrename(src,dest); hunk ./cbits/dirUtils.c 212 -typedef HRESULT (*HSCORE_GETAPPFOLDERFUNTY)(HWND,int,HANDLE,DWORD,char*); +typedef HRESULT (*HSCORE_GETAPPFOLDERFUNTY)(HWND,int,HANDLE,DWORD,wchar_t*= ); hunk ./cbits/dirUtils.c 218 - char* pszPath) + wchar_t* pszPath) hunk ./cbits/runProcess.c 311 -runProcess (char *cmd, char *workingDirectory, void *environment, +runProcess (wchar_t *cmd, wchar_t *workingDirectory, void *environment, hunk ./cbits/runProcess.c 341 - if (!CreateProcess(NULL, cmd, NULL, NULL, TRUE, flags, environment, worki= ngDirectory, &sInfo, &pInfo)) + if (!CreateProcessW(NULL, cmd, NULL, NULL, TRUE, flags, environment, work= ingDirectory, &sInfo, &pInfo)) hunk ./cbits/runProcess.c 352 -runInteractiveProcess (char *cmd, char *workingDirectory, void *environmen= t, +runInteractiveProcess (wchar_t *cmd, wchar_t *workingDirectory, void *envi= ronment, hunk ./cbits/runProcess.c 387 - if (!CreateProcess(NULL, cmd, NULL, NULL, TRUE, CREATE_NO_WINDOW, environ= ment, workingDirectory, &sInfo, &pInfo)) + if (!CreateProcessW(NULL, cmd, NULL, NULL, TRUE, CREATE_NO_WINDOW, enviro= nment, workingDirectory, &sInfo, &pInfo)) hunk ./configure.ac 31 + +dnl Unixs systems have just partial "wide" api insted of all "wide" api. +dnl But Windows (MinGW) has that. +AC_CHECK_FUNCS([wlstat wstat wopen wrename wmkdir wreaddir wreaddir_r wrea= lpath waccess wchmod wchdir wclosedir wgetcwd wcopendir wrmdir wunlink wlin= k]) +AC_CHECK_TYPES([wdirent]) hunk ./include/HsBase.h 465 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) || HAVE_W= MKDIR +__hscore_mkdir( wchar_t *pathName, int mode ) +#else hunk ./include/HsBase.h 469 +#endif hunk ./include/HsBase.h 472 - return mkdir(pathName); + return _wmkdir(pathName); +#elif HAVE_WMKDIR + return wmkdir(pathName,mode); hunk ./include/HsBase.h 481 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) || HAVE_W= STAT || HAVE_WLSTAT +__hscore_lstat( const wchar_t *fname, struct stat *st ) +#else hunk ./include/HsBase.h 485 +#endif hunk ./include/HsBase.h 488 +#if HAVE_WLSTAT + return wlstat(fname, st); +#else hunk ./include/HsBase.h 492 +#endif +#else +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) + return _wstat(fname, st); +#elif HAVE_WSTAT + return wstat(fname, st); hunk ./include/HsBase.h 501 +#endif hunk ./include/HsBase.h 534 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) +INLINE wchar_t * +__hscore_d_name( struct _wdirent* d ) +#elif HAVE_WDIRENT +INLINE wchar_t * +__hscore_d_name( struct wdirent* d ) +#else hunk ./include/HsBase.h 543 +#endif hunk ./include/HsBase.h 706 +#if defined(__MINGW32__) || HAVE_WOPEN +INLINE int __hscore_open(wchar_t *file, int how, mode_t mode) { +#else hunk ./include/HsBase.h 710 +#endif hunk ./include/HsBase.h 713 - return _sopen(file,how,_SH_DENYRW,mode); + return _wsopen(file,how,_SH_DENYRW,mode); hunk ./include/HsBase.h 715 - return _sopen(file,how,_SH_DENYWR,mode); + return _wsopen(file,how,_SH_DENYWR,mode); +#elif HAVE_WOPEN + return wopen(file,how,mode); hunk ./include/HsBase.h 731 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) || HAVE_W= STAT +INLINE int __hscore_stat(wchar_t *file, struct stat *buf) { +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) + return (_wstat(file,buf)); +#else + return (wstat(file,buf)); +#endif +} +#else hunk ./include/HsBase.h 743 +#endif hunk ./include/dirUtils.h 10 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) || HAVE_W= RENAME +extern int __hscore_renameFile(wchar_t *src, wchar_t *dest); +#else hunk ./include/dirUtils.h 14 +#endif hunk ./include/dirUtils.h 21 - char* pszPath); + wchar_t* pszPath); hunk ./include/runProcess.h 31 -extern ProcHandle runProcess( char *cmd, = - char *workingDirectory, void *environment, = +extern ProcHandle runProcess( wchar_t *cmd, = + wchar_t *workingDirectory, void *environment, = hunk ./include/runProcess.h 35 -extern ProcHandle runInteractiveProcess( char *cmd, = - char *workingDirectory, = +extern ProcHandle runInteractiveProcess( wchar_t *cmd, = + wchar_t *workingDirectory, = } [fix typo in "Wide" API support shelarcy <shelarcy(a)gmail.com>**20070425040843] { hunk ./System/Posix/Internals.hs 505 -foreign import ccall unsafe "HsBase.h wlink" +foreign import ccall unsafe "HsBase.h link" } Context: [Bump version number to 2.1.1 Ian Lynagh <igloo(a)earth.li>**20070422163350] = [Some people (e.g. binary) are using the stg_ names, so revert the change t= o hs_ Ian Lynagh <igloo(a)earth.li>**20070422162751 They probably shouldn't be, but it's simplest not to change them for now. ] = [fix ugly uses of memcpy foreign import inside ST Simon Marlow <simonmar(a)microsoft.com>**20070405083758 fixes cg026 ] = [Convert some fd's to CInts on Windows Ian Lynagh <igloo(a)earth.li>**20070404235132] = [stg_* -> hs_* Ian Lynagh <igloo(a)earth.li>**20070405000723] = [HsByteArray doesn't exist Ian Lynagh <igloo(a)earth.li>**20070404234642] = [Don't use Fd/FD in foreign decls Ian Lynagh <igloo(a)earth.li>**20070404164305 Using CInt makes it much easier to verify that it is right, and we won't get caught out by possible newtype switches between CInt/Int. ] = [HsByteArray doesn't exist Ian Lynagh <igloo(a)earth.li>**20070404155748] = [MERGED: Fix C/Haskell type mismatches Ian Lynagh <igloo(a)earth.li>**20070404144220] = [MERGED: Fix type mismatches between foreign imports and HsBase.h Ian Lynagh <igloo(a)earth.li>**20070404135908] = [Function crossMapP for fixing desugaring of comprehensions Manuel M T Chakravarty <chak(a)cse.unsw.edu.au>**20070402082906 = Merge into 6.6 branch. ] = [Fix the type of wgencat Ian Lynagh <igloo(a)earth.li>**20070329164223] = [fix strictness of foldr/build rule for take, see #1219 Simon Marlow <simonmar(a)microsoft.com>**20070327103941] = [Prevent duplication of unsafePerformIO on a multiprocessor Simon Marlow <simonmar(a)microsoft.com>**20070306145424 Fixes #986. The idea is to add a new operation = noDuplicate :: IO () = it is guaranteed that if two threads have executed noDuplicate, then they are not duplicating any computation. = We now provide two new unsafe operations: = unsafeDupablePerformIO :: IO a -> a unsafeDupableInterleaveIO :: IO a -> IO a = which are equivalent to the old unsafePerformIO and unsafeInterleaveIO respectively. The new versions of these functions are defined as: = unsafePerformIO m =3D unsafeDupablePerformIO (noDuplicate >> m) unsafeInterleaveIO m =3D unsafeDupableInterleaveIO (noDuplicate >> m) ] = [Fixed PArr.dropP Manuel M T Chakravarty <chak(a)cse.unsw.edu.au>**20070222032405 - Thanks to Audrey Tang for the bug report ] = [GHC.PArr: add bounds checking Manuel M T Chakravarty <chak(a)cse.unsw.edu.au>**20070302053224] = [PArr: fixed permutations Manuel M T Chakravarty <chak(a)cse.unsw.edu.au>**20070305055807] = [copyBytes copies bytes, not elements; fixes trac #1203 Ian Lynagh <igloo(a)earth.li>**20070312113555] = [fix race condition in prodServiceThread Simon Marlow <simonmar(a)microsoft.com>**20070307134330 See #1187 ] = [MERGED: Keep the same FD in both halves of a duplex handle when dup'ing Ian Lynagh <igloo(a)earth.li>**20070220141712 Tue Feb 20 14:10:39 GMT 2007 Ian Lynagh <igloo(a)earth.li> Otherwise we only close one of the FDs when closing the handle. Fixes trac #1149. ] = [fix for hashString, from Jan-Willem Maessen (see #1137) Simon Marlow <simonmar(a)microsoft.com>**20070215094304 = ] = [fix to getUSecOfDay(): arithmetic was overflowing Simon Marlow <simonmar(a)microsoft.com>**20070214161719] = [The Windows counterpart to 'wrapround of thread delays' Ian Lynagh <igloo(a)earth.li>**20070209173510] = [wrapround of thread delays Neil Davies <SemanticPhilosopher(a)gmail.com>**20070129160519 = * made the wrapround of the underlying O/S occur before the wrapround of the delayed threads by making threads delay in microseconds since O/S epoch (1970 - Unix, 1601 - Windows) stored in Word64. * removed redundant calls reading O/S realtime clock * removed rounding to 1/50th of sec for timers * Only for Unix version of scheduler. ] = [dos2unix Simon Marlow <simonmar(a)microsoft.com>**20061204095439] = [fix threadDelay Simon Marlow <simonmar(a)microsoft.com>**20070117091702 In "Add support for the IO manager thread" I accidentally spammed part of "Make sure the threaded threadDelay sleeps at least as long as it is asked", which is why the ThreadDelay001 test has been failing. ] = [Use static inline rather than extern inline/inline Ian Lynagh <igloo(a)earth.li>**20070205203628 I understand this is more portable, and it also fixes warnings when C things we are wrapping are themselves static inlines (which FD_ISSET is on ppc OS X). ] = [add doc pointers to Foldable Ross Paterson <ross(a)soi.city.ac.uk>**20070202110931 = Could be applied to STABLE. ] = [Don't require GHC/Prim.hs when booting from HC files Ian Lynagh <igloo(a)earth.li>**20070119135114] = [Added examples, more detailed documentation to Data.List Extracting sublis= ts functions Andriy Palamarchuk <apa3a(a)yahoo.com>**20061204164710] = [Fix crash with (minBound :: Int*) `div (-1) as result is maxBound + 1. Ian Lynagh <igloo(a)earth.li>**20070115142005] = [update section on "blocking" Simon Marlow <simonmar(a)microsoft.com>**20070116124328] = [don't try to compile this on Unix Simon Marlow <simonmar(a)microsoft.com>**20061204095427] = [Add support for the IO manager thread on Windows Simon Marlow <simonmar(a)microsoft.com>**20061201152042 Fixes #637. The test program in that report now works for me with -threaded, but it doesn't work without -threaded (I don't know if that's new behaviour or not, though). ] = [documentation for installHandler Simon Marlow <simonmar(a)microsoft.com>**20061205154927 merge to 6.6 ] = [Fix missing comma in Fractional documentation Alec Berryman <alec(a)thened.net>**20061201173237] = [Make sure the threaded threadDelay sleeps at least as long as it is asked = to Ian Lynagh <igloo(a)earth.li>**20061128204807] = [Update documentation for hWaitForInput Simon Marlow <simonmar(a)microsoft.com>**20061107111430 See #972 Merge to 6.6 branch. ] = [`par` should be infixr 0 Simon Marlow <simonmar(a)microsoft.com>**20061027130800 Alas, I didn't spot this due to lack of testing, and the symptom is that an expression like x `par` y `seq z will have exactly the wrong parallelism properties. The workaround is to add parantheses. = I think we could push this to the 6.6 branch. ] = [TAG 6.6 release Ian Lynagh <igloo(a)earth.li>**20061011124740] = Patch bundle hash: a39cd956fcc335af2e2f0189a76096cb6db538b8 --=_-- .

1 0

run..Process borrow handles and escape argumentes - missing function?
by Marc Weber 26 Apr '07

26 Apr '07

Couldn't find a function which does this: use stdin/out/err of the main application and escapes the passed arguments automatically. I want to call "ssh user@host command" (runCommand :: String -> IO () ) command may contain redirection > so I would have to escape them. I don't want to have to do that I can pass a list of args to runProcess.. fine. So I can use runProcess ... (Just stdin) (Just stdout) ... to borrow the handles ? No: the comments say: -- Any 'Handle's passed to 'runProcess' are placed immediately in the closed state. That's not what I want. So I think there is still a function missing ? Cale has pointed me to hsh so I'll have a look there.. Marc

2 3

Location of inlinePerformIO
by Neil Mitchell 24 Apr '07

24 Apr '07

Hi I was looking for the function inlinePerformIO, and was quite shocked when I found it in the module "Data.ByteString.Base". This is clearly entirely the wrong place for it to go, so could we get it moved before it has to remain in this totally non-logical place forever? Thanks Neil

4 6

cabal ignores ld-options?
by Frederik Eaton 24 Apr '07

24 Apr '07

Hello, I am trying to get cabal to link an object file with a library. I tried naming it in an ld-options: line, but it didn't show up in the arguments to 'ld'. Is this the correct behaviour? I am using ghc-6.6.20070420. Thanks, Frederik

4 10

problem with unix package
by Frederik Eaton 23 Apr '07

23 Apr '07

Hello, I am having trouble loading the unix package. I am not sure what I am doing wrong. I have just installed it from hackage. As you can see below, the error message complains about an unknown symbol 'lstat', which is not in libc. [1]$ ghci -package unix ___ ___ _ / _ \ /\ /\/ __(_) / /_\// /_/ / / | | GHC Interactive, version 6.6, for Haskell 98. / /_\\/ __ / /___| | http://www.haskell.org/ghc/ \____/\/ /_/\____/|_| Type :? for help. Loading package base ... linking ... done. ghc-6.6: /home/frederik/lib/unix-2.0/ghc-6.6/HSunix-2.0.o: unknown symbol `lstat' Loading package unix-2.0 ... linking ... ghc-6.6: unable to load package `unix-2.0' [1]$ nm -D /lib/libc-2.5.so | grep -w lstat [1]$ This is an unstable Debian installation. When I try the same on a system with ghc 6.4.2 and unix-1.0, there is no problem. That system has libc 2.3.6, which also lacks an 'lstat' symbol. Thank you for your help. Frederik

5 16

filepath broken with Cabal 1.1.6
by Neil Mitchell 22 Apr '07

22 Apr '07

Hi, For users of Cabal 1.1.6, the currently checked in filepath Setup.hs script won't work - it gives: >runghc Setup.hs configure Setup.hs:17:30: Couldn't match expected type `UserHooks' against inferred type `Maybe UserHooks' Expected type: Hook a Inferred type: PackageDescription -> LocalBuildInfo -> Maybe UserHooks -> BuildFlags -> IO () In the second argument of `($)', namely `buildHook defaultUserHooks' In the `buildHook' field of a record Can this be fixed? I know the Setup.hs only really serves GHC's purposes, and I think its Ian's work. I also think its possibly the same for other packages? It would be a shame if we make everyone upgrade to have a libary which we've not put in base so they can upgrade it separately... Thanks Neil

2 2