diff options
Diffstat (limited to 'ghc/lib/haskell-1.3/LibPosixFiles_t.hi')
| -rw-r--r-- | ghc/lib/haskell-1.3/LibPosixFiles_t.hi | 139 |
1 files changed, 0 insertions, 139 deletions
diff --git a/ghc/lib/haskell-1.3/LibPosixFiles_t.hi b/ghc/lib/haskell-1.3/LibPosixFiles_t.hi deleted file mode 100644 index 6065a1f757..0000000000 --- a/ghc/lib/haskell-1.3/LibPosixFiles_t.hi +++ /dev/null @@ -1,139 +0,0 @@ -{-# GHC_PRAGMA INTERFACE VERSION 6 #-} -interface LibPosixFiles where -import LibDirectory(removeDirectory) -import PreludeArray(_ByteArray) -import PreludeIOError(IOError13) -import PreludeMonadicIO(Either) -import PreludeStdIO(Maybe) -type DeviceID = Int -type DirStream = _Addr -type FileID = Int -type FileMode = _Word -type FileStatus = _ByteArray () -data OpenMode = ReadOnly | WriteOnly | ReadWrite -data PathVar = LinkLimit | InputLineLimit | InputQueueLimit | FileNameLimit | PathNameLimit | PipeBufferLimit | SetOwnerAndGroupIsRestricted | FileNamesAreNotTruncated -accessModes :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -accessTime :: _ByteArray () -> Int - {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AP)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} -changeWorkingDirectory :: [Char] -> _State _RealWorld -> (Either IOError13 (), _State _RealWorld) - {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LU(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} -closeDirStream :: _Addr -> _State _RealWorld -> (Either IOError13 (), _State _RealWorld) - {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} -createDirectory :: [Char] -> _Word -> _State _RealWorld -> (Either IOError13 (), _State _RealWorld) - {-# GHC_PRAGMA _A_ 3 _U_ 212 _N_ _S_ "SU(P)L" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-} -createFile :: [Char] -> _Word -> _State _RealWorld -> (Either IOError13 Int, _State _RealWorld) - {-# GHC_PRAGMA _A_ 3 _U_ 212 _N_ _S_ "SU(P)L" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-} -createLink :: [Char] -> [Char] -> _State _RealWorld -> (Either IOError13 (), _State _RealWorld) - {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _S_ "SSL" _N_ _N_ #-} -createNamedPipe :: [Char] -> _Word -> _State _RealWorld -> (Either IOError13 (), _State _RealWorld) - {-# GHC_PRAGMA _A_ 3 _U_ 212 _N_ _S_ "SU(P)L" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-} -deviceID :: _ByteArray () -> Int - {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AP)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} -fileGroup :: _ByteArray () -> Int - {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AP)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} -fileID :: _ByteArray () -> Int - {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AP)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} -fileMode :: _ByteArray () -> _Word - {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AP)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} -fileOwner :: _ByteArray () -> Int - {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AP)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} -fileSize :: _ByteArray () -> Int - {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AP)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} -getChannelStatus :: Int -> _State _RealWorld -> (Either IOError13 (_ByteArray ()), _State _RealWorld) - {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} -getChannelVar :: PathVar -> Int -> _State _RealWorld -> (Either IOError13 Int, _State _RealWorld) - {-# GHC_PRAGMA _A_ 3 _U_ 111 _N_ _S_ "EU(P)U(P)" {_A_ 3 _U_ 122 _N_ _N_ _N_ _N_} _N_ _N_ #-} -getFileStatus :: [Char] -> _State _RealWorld -> (Either IOError13 (_ByteArray ()), _State _RealWorld) - {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "SL" _N_ _N_ #-} -getPathVar :: PathVar -> [Char] -> _State _RealWorld -> (Either IOError13 Int, _State _RealWorld) - {-# GHC_PRAGMA _A_ 3 _U_ 122 _N_ _S_ "ESL" _N_ _N_ #-} -getWorkingDirectory :: _State _RealWorld -> (Either IOError13 [Char], _State _RealWorld) - {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} -groupExecuteMode :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -groupModes :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -groupReadMode :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -groupWriteMode :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -intersectFileModes :: _Word -> _Word -> _Word - {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 3 \ (u0 :: Word#) (u1 :: Word#) -> case _#_ and# [] [u0, u1] of { _PRIM_ (u2 :: Word#) -> _!_ W# [] [u2] } _N_} _F_ _IF_ARGS_ 0 2 CC 5 \ (u0 :: _Word) (u1 :: _Word) -> case u0 of { _ALG_ W# (u2 :: Word#) -> case u1 of { _ALG_ W# (u3 :: Word#) -> case _#_ and# [] [u2, u3] of { _PRIM_ (u4 :: Word#) -> _!_ W# [] [u4] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_ #-} -isBlockDevice :: _ByteArray () -> Bool - {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AP)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} -isCharacterDevice :: _ByteArray () -> Bool - {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AP)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} -isDirectory :: _ByteArray () -> Bool - {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AP)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} -isNamedPipe :: _ByteArray () -> Bool - {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AP)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} -isRegularFile :: _ByteArray () -> Bool - {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AP)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} -linkCount :: _ByteArray () -> Int - {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AP)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} -modificationTime :: _ByteArray () -> Int - {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AP)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} -nullFileMode :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -openChannel :: [Char] -> OpenMode -> Maybe _Word -> Bool -> Bool -> Bool -> Bool -> Bool -> _State _RealWorld -> (Either IOError13 Int, _State _RealWorld) - {-# GHC_PRAGMA _A_ 9 _U_ 212111112 _N_ _S_ "SESEEEEEL" _N_ _N_ #-} -openDirStream :: [Char] -> _State _RealWorld -> (Either IOError13 _Addr, _State _RealWorld) - {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "SL" _N_ _N_ #-} -otherExecuteMode :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -otherModes :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -otherReadMode :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -otherWriteMode :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -ownerExecuteMode :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -ownerModes :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -ownerReadMode :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -ownerWriteMode :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -queryAccess :: [Char] -> Bool -> Bool -> Bool -> _State _RealWorld -> (Either IOError13 Bool, _State _RealWorld) - {-# GHC_PRAGMA _A_ 5 _U_ 21112 _N_ _S_ "SEEEL" _N_ _N_ #-} -queryFile :: [Char] -> _State _RealWorld -> (Either IOError13 Bool, _State _RealWorld) - {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "SL" _N_ _N_ #-} -readDirStream :: _Addr -> _State _RealWorld -> (Either IOError13 [Char], _State _RealWorld) - {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "LU(P)" {_A_ 2 _U_ 12 _N_ _N_ _N_ _N_} _N_ _N_ #-} -removeDirectory :: [Char] -> _State _RealWorld -> (Either IOError13 (), _State _RealWorld) - {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LU(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} -removeLink :: [Char] -> _State _RealWorld -> (Either IOError13 (), _State _RealWorld) - {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "SL" _N_ _N_ #-} -rename :: [Char] -> [Char] -> _State _RealWorld -> (Either IOError13 (), _State _RealWorld) - {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _S_ "SSL" _N_ _N_ #-} -rewindDirStream :: _Addr -> _State _RealWorld -> (Either IOError13 (), _State _RealWorld) - {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} -setFileCreationMask :: _Word -> _State _RealWorld -> (Either IOError13 _Word, _State _RealWorld) - {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} -setFileMode :: [Char] -> _Word -> _State _RealWorld -> (Either IOError13 (), _State _RealWorld) - {-# GHC_PRAGMA _A_ 3 _U_ 212 _N_ _S_ "SU(P)L" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-} -setFileTimes :: [Char] -> Int -> Int -> _State _RealWorld -> (Either IOError13 (), _State _RealWorld) - {-# GHC_PRAGMA _A_ 4 _U_ 2112 _N_ _S_ "SU(P)U(P)L" {_A_ 4 _U_ 2222 _N_ _N_ _N_ _N_} _N_ _N_ #-} -setGroupIDMode :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -setOwnerAndGroup :: [Char] -> Int -> Int -> _State _RealWorld -> (Either IOError13 (), _State _RealWorld) - {-# GHC_PRAGMA _A_ 4 _U_ 2112 _N_ _S_ "SU(P)U(P)L" {_A_ 4 _U_ 2222 _N_ _N_ _N_ _N_} _N_ _N_ #-} -setUserIDMode :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -statusChangeTime :: _ByteArray () -> Int - {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AP)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} -stdError :: Int - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _!_ I# [] [2#] _N_ #-} -stdFileMode :: _Word - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} -stdInput :: Int - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _!_ I# [] [0#] _N_ #-} -stdOutput :: Int - {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _!_ I# [] [1#] _N_ #-} -touchFile :: [Char] -> _State _RealWorld -> (Either IOError13 (), _State _RealWorld) - {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "SL" _N_ _N_ #-} -unionFileModes :: _Word -> _Word -> _Word - {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 3 \ (u0 :: Word#) (u1 :: Word#) -> case _#_ or# [] [u0, u1] of { _PRIM_ (u2 :: Word#) -> _!_ W# [] [u2] } _N_} _F_ _IF_ARGS_ 0 2 CC 5 \ (u0 :: _Word) (u1 :: _Word) -> case u0 of { _ALG_ W# (u2 :: Word#) -> case u1 of { _ALG_ W# (u3 :: Word#) -> case _#_ or# [] [u2, u3] of { _PRIM_ (u4 :: Word#) -> _!_ W# [] [u4] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_ #-} - |