Remove Control.Parallel*, now in package parallel
[packages/random.git] / NHC / PosixTypes.hsc
1 {-# OPTIONS_NHC98 -I/usr/include #-}
2 -----------------------------------------------------------------------------
3 -- |
4 -- Module      :  NHC.PosixTypes
5 -- Copyright   :  (c) Malcolm Wallace 2007
6 -- License     :  BSD-style (see the file libraries/base/LICENSE)
7 -- 
8 -- Maintainer  :  libraries@haskell.org
9 -- Stability   :  provisional
10 -- Portability :  non-portable (requires POSIX)
11 --
12 -- POSIX data types: Haskell equivalents of the types defined by the
13 -- @\<sys\/types.h>@ C header on a POSIX system.
14 --
15 -----------------------------------------------------------------------------
16
17 module NHC.PosixTypes (
18
19   -- * POSIX data types
20   CDev,
21   CIno,
22   CMode,
23   COff,
24   CPid,
25   CSsize,
26
27   CGid,
28   CNlink,
29   CUid,
30   CCc,
31   CSpeed,
32   CTcflag,
33   CRLim,
34
35   Fd(..),
36
37   LinkCount,
38   UserID,
39   GroupID,
40  ) where
41
42 import Foreign
43 import Foreign.C
44 import Data.Typeable
45 import Data.Bits
46 import Unsafe.Coerce
47
48 import Control.Monad
49
50
51 -- Curious hack to ensure that the CTypes macros are expanded *after* hsc2hs.
52 ##include "CTypes.h"
53 -- C header files that contain all the types we are looking for here.
54 #if __APPLE__
55 #include <libc.h>
56 #endif
57 #include <stdlib.h>
58 #include <unistd.h>
59 #include <sys/resource.h>
60 #include <termios.h>
61
62 ARITHMETIC_TYPE(CDev,tyConCDev,"CDev",#{type dev_t})
63 INTEGRAL_TYPE(CIno,tyConCIno,"CIno",#{type ino_t})
64 INTEGRAL_TYPE(CMode,tyConCMode,"CMode",#{type mode_t})
65 INTEGRAL_TYPE(COff,tyConCOff,"COff",#{type off_t})
66 INTEGRAL_TYPE(CPid,tyConCPid,"CPid",#{type pid_t})
67
68 INTEGRAL_TYPE(CSsize,tyConCSsize,"CSsize",#{type ssize_t})
69
70 INTEGRAL_TYPE(CGid,tyConCGid,"CGid",#{type gid_t})
71 INTEGRAL_TYPE(CNlink,tyConCNlink,"CNlink",#{type nlink_t})
72
73 INTEGRAL_TYPE(CUid,tyConCUid,"CUid",#{type uid_t})
74 ARITHMETIC_TYPE(CCc,tyConCCc,"CCc",#{type cc_t})
75 ARITHMETIC_TYPE(CSpeed,tyConCSpeed,"CSpeed",#{type speed_t})
76 INTEGRAL_TYPE(CTcflag,tyConCTcflag,"CTcflag",#{type tcflag_t})
77 INTEGRAL_TYPE(CRLim,tyConCRlim,"CRLim",#{type rlim_t})
78
79 -- ToDo: blksize_t, clockid_t, blkcnt_t, fsblkcnt_t, fsfilcnt_t, id_t, key_t
80 -- suseconds_t, timer_t, useconds_t
81
82 -- Make an Fd type rather than using CInt everywhere
83 INTEGRAL_TYPE(Fd,tyConFd,"Fd",CInt)
84
85 -- nicer names, and backwards compatibility with POSIX library:
86 type LinkCount      = CNlink
87 type UserID         = CUid
88 type GroupID        = CGid