[project @ 2003-09-12 13:05:19 by simonmar]

Implement pathconf()/fpathconf() wrappers.

diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs
index 931aec2..3cdb618 100644 (file)
--- a/System/Posix/Internals.hs
+++ b/System/Posix/Internals.hs
@@ -391,18 +391,12 @@ foreign import ccall unsafe "HsBase.h fork"
 foreign import ccall unsafe "HsBase.h getpid"
    c_getpid :: IO CPid
 
-foreign import ccall unsafe "HsBase.h fpathconf"
-   c_fpathconf :: CInt -> CInt -> IO CLong
-
 foreign import ccall unsafe "HsBase.h link"
    c_link :: CString -> CString -> IO CInt
 
 foreign import ccall unsafe "HsBase.h mkfifo"
    c_mkfifo :: CString -> CMode -> IO CInt
 
-foreign import ccall unsafe "HsBase.h pathconf"
-   c_pathconf :: CString -> CInt -> IO CLong
-
 foreign import ccall unsafe "HsBase.h pipe"
    c_pipe :: Ptr CInt -> IO CInt
 

diff --git a/System/Posix/Types.hs b/System/Posix/Types.hs
index 7a9d6da..cc04f32 100644 (file)
--- a/System/Posix/Types.hs
+++ b/System/Posix/Types.hs
@@ -42,7 +42,8 @@ module System.Posix.Types (
   ProcessGroupID,
   DeviceID,
   FileID,
-  FileMode
+  FileMode,
+  Limit
  ) where
 
 import Foreign
@@ -109,3 +110,5 @@ type FileMode       = CMode
 type ProcessID      = CPid
 type FileOffset     = COff
 type ProcessGroupID = CPid
+type Limit         = CLong
+