[project @ 1996-01-08 20:28:12 by partain]
[ghc.git] / ghc / lib / haskell-1.3 / LibPosixUtil_mc.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface LibPosixUtil where
3 import PreludeArray(_ByteArray)
4 import PreludeGlaST(_MutableByteArray)
5 import PreludeIOError(IOError13)
6 import PreludeMonadicIO(Either)
7 type ByteCount = Int
8 type Channel = Int
9 type ClockTick = Int
10 type EpochTime = Int
11 type FileOffset = Int
12 type GroupID = Int
13 type Limit = Int
14 type LinkCount = Int
15 type ProcessGroupID = Int
16 type ProcessID = Int
17 type UserID = Int
18 data _ByteArray a       {-# GHC_PRAGMA _ByteArray (a, a) ByteArray# #-}
19 data _MutableByteArray a b      {-# GHC_PRAGMA _MutableByteArray (b, b) (MutableByteArray# a) #-}
20 allocChars :: Int -> _State a -> (_MutableByteArray a (), _State a)
21         {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
22 allocWords :: Int -> _State a -> (_MutableByteArray a (), _State a)
23         {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
24 freeze :: _MutableByteArray a () -> _State a -> (_ByteArray (), _State a)
25         {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(LP)U(P)" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
26 strcpy :: _Addr -> _State _RealWorld -> ([Char], _State _RealWorld)
27         {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
28 syserr :: [Char] -> _State _RealWorld -> (Either IOError13 a, _State _RealWorld)
29         {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LU(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
30 unvectorize :: _Addr -> Int -> _State _RealWorld -> ([[Char]], _State _RealWorld)
31         {-# GHC_PRAGMA _A_ 3 _U_ 111 _N_ _S_ "U(P)U(P)U(P)" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
32 vectorize :: [[Char]] -> _State _RealWorld -> (_ByteArray (), _State _RealWorld)
33         {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "SU(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
34