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)
15 type ProcessGroupID = 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_ #-}