diff options
Diffstat (limited to 'ghc/lib/haskell-1.3/LibPosixUtil_mp.hi')
-rw-r--r-- | ghc/lib/haskell-1.3/LibPosixUtil_mp.hi | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/ghc/lib/haskell-1.3/LibPosixUtil_mp.hi b/ghc/lib/haskell-1.3/LibPosixUtil_mp.hi new file mode 100644 index 0000000000..af4cf5cec6 --- /dev/null +++ b/ghc/lib/haskell-1.3/LibPosixUtil_mp.hi @@ -0,0 +1,34 @@ +{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +interface LibPosixUtil where +import PreludeArray(_ByteArray) +import PreludeGlaST(_MutableByteArray) +import PreludeIOError(IOError13) +import PreludeMonadicIO(Either) +type ByteCount = Int +type Channel = Int +type ClockTick = Int +type EpochTime = Int +type FileOffset = Int +type GroupID = Int +type Limit = Int +type LinkCount = Int +type ProcessGroupID = Int +type ProcessID = Int +type UserID = Int +data _ByteArray a {-# GHC_PRAGMA _ByteArray (a, a) ByteArray# #-} +data _MutableByteArray a b {-# GHC_PRAGMA _MutableByteArray (b, b) (MutableByteArray# a) #-} +allocChars :: Int -> _State a -> (_MutableByteArray a (), _State a) + {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} +allocWords :: Int -> _State a -> (_MutableByteArray a (), _State a) + {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} +freeze :: _MutableByteArray a () -> _State a -> (_ByteArray (), _State a) + {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(LP)U(P)" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-} +strcpy :: _Addr -> _State _RealWorld -> ([Char], _State _RealWorld) + {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} +syserr :: [Char] -> _State _RealWorld -> (Either IOError13 a, _State _RealWorld) + {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LU(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} +unvectorize :: _Addr -> Int -> _State _RealWorld -> ([[Char]], _State _RealWorld) + {-# GHC_PRAGMA _A_ 3 _U_ 111 _N_ _S_ "U(P)U(P)U(P)" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-} +vectorize :: [[Char]] -> _State _RealWorld -> (_ByteArray (), _State _RealWorld) + {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "SU(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} + |