hunk ./Curses.hsc 490 -foreign import ccall threadsafe +foreign import ccall safe hunk ./Curses.hsc 559 -foreign import ccall threadsafe getch :: IO CInt +foreign import ccall safe getch :: IO CInt hunk ./FastIO.hs 2 --- Copyright (c) 2005-2008 Don Stewart - http://www.cse.unsw.edu.au/~dons +-- Copyright (c) 2005-2010 Don Stewart - http://www.cse.unsw.edu.au/~dons hunk ./FastIO.hs 83 - r <- readdir dir ptr_dEnt + r <- c_readdir dir ptr_dEnt hunk ./FastIO.hs 226 -foreign import ccall safe "utils.h getline" +foreign import ccall safe "utils.h hmp3_getline" hunk ./FastIO.hs 247 + +------------------------------------------------------------------------ +-- Bunch of magic from System.Posix.Internals -- ah, those were the days. + +foreign import ccall unsafe "__hsunix_opendir" + c_opendir :: CString -> IO (Ptr CDir) + +foreign import ccall unsafe "closedir" + c_closedir :: Ptr CDir -> IO CInt + +foreign import ccall unsafe "__hscore_readdir" + c_readdir :: Ptr CDir -> Ptr (Ptr CDirent) -> IO CInt + +type CDir = () +type CDirent = () + +foreign import ccall unsafe "HsBase.h __hscore_end_of_dir" + end_of_dir :: CInt + +foreign import ccall unsafe "HsBase.h __hscore_d_name" + d_name :: Ptr CDirent -> IO CString + +foreign import ccall unsafe "HsBase.h __hscore_free_dirent" + freeDirEnt :: Ptr CDirent -> IO () hunk ./Style.hs 1 +{-# OPTIONS_GHC -O0 #-} hunk ./Style.hs 3 --- Copyright (c) 2004-2008 Don Stewart - http://www.cse.unsw.edu.au/~dons +-- Copyright (c) 2004-2010 Don Stewart - http://www.cse.unsw.edu.au/~dons hunk ./cbits/utils.c 41 -int getline(char *buf, FILE *hdl) { +int hmp3_getline(char *buf, FILE *hdl) { hunk ./cbits/utils.c 55 - return getline(buf,hdl); /* read another line */ + return hmp3_getline(buf,hdl); /* read another line */ hunk ./cbits/utils.h 15 -int getline(char *buf, FILE *hdl); +int hmp3_getline(char *buf, FILE *hdl); hunk ./cbits/utils.h 17 + hunk ./hmp3.cabal 2 -version: 1.5.3 +version: 1.5.4 hunk ./hmp3.cabal 7 +copyright: Don Stewart 2005-2010 hunk ./hmp3.cabal 31 - build-depends: base >= 3, + build-depends: base >= 3 && < 4, hunk ./hmp3.cabal 41 - ghc-options: -Wall -funbox-strict-fields -threaded + ghc-options: -Wall -O2 -funbox-strict-fields -threaded