Movatterモバイル変換

{-# LANGUAGE CPP #-}{-# LANGUAGE DerivingStrategies #-}{-# LANGUAGE GeneralizedNewtypeDeriving #-}{-# LANGUAGE MagicHash #-}{-# LANGUAGE NoImplicitPrelude #-}{-# LANGUAGE StandaloneDeriving #-}{-# LANGUAGE Trustworthy #-}------------------------------------------------------------------------------- |-- Module      :  System.Posix.Types-- Copyright   :  (c) The University of Glasgow 2002-- License     :  BSD-style (see the file libraries/base/LICENSE)---- Maintainer  :  libraries@haskell.org-- Stability   :  provisional-- Portability :  non-portable (requires POSIX)---- POSIX data types: Haskell equivalents of the types defined by the-- @\<sys\/types.h>@ C header on a POSIX system.-------------------------------------------------------------------------------#include "HsBaseConfig.h"moduleSystem.Posix.Types(-- * POSIX data types-- ** Platform differences-- | This module contains platform specific information about types.--   __/As such the types presented on this page reflect the platform--   on which the documentation was generated and may not coincide with--   the types on your platform./__#if defined(HTYPE_DEV_T)CDev(..),#endif#if defined(HTYPE_INO_T)CIno(..),#endif#if defined(HTYPE_MODE_T)CMode(..),#endif#if defined(HTYPE_OFF_T)COff(..),#endif#if defined(HTYPE_PID_T)CPid(..),#endif#if defined(HTYPE_SSIZE_T)CSsize(..),#endif#if defined(HTYPE_GID_T)CGid(..),#endif#if defined(HTYPE_NLINK_T)CNlink(..),#endif#if defined(HTYPE_UID_T)CUid(..),#endif#if defined(HTYPE_CC_T)CCc(..),#endif#if defined(HTYPE_SPEED_T)CSpeed(..),#endif#if defined(HTYPE_TCFLAG_T)CTcflag(..),#endif#if defined(HTYPE_RLIM_T)CRLim(..),#endif#if defined(HTYPE_BLKSIZE_T)CBlkSize(..),#endif#if defined(HTYPE_BLKCNT_T)CBlkCnt(..),#endif#if defined(HTYPE_CLOCKID_T)CClockId(..),#endif#if defined(HTYPE_FSBLKCNT_T)CFsBlkCnt(..),#endif#if defined(HTYPE_FSFILCNT_T)CFsFilCnt(..),#endif#if defined(HTYPE_ID_T)CId(..),#endif#if defined(HTYPE_KEY_T)CKey(..),#endif#if defined(HTYPE_TIMER_T)CTimer(..),#endifFd(..),-- See Note [Exporting constructors of marshallable foreign types]-- in Foreign.Ptr for why the constructors for these newtypes are-- exported.#if defined(HTYPE_NLINK_T)LinkCount,#endif#if defined(HTYPE_UID_T)UserID,#endif#if defined(HTYPE_GID_T)GroupID,#endifByteCount,ClockTick,EpochTime,FileOffset,ProcessID,ProcessGroupID,DeviceID,FileID,FileMode,Limit)whereimportForeignimportForeign.C-- import Data.BitsimportGHC.BaseimportGHC.EnumimportGHC.NumimportGHC.Real-- import GHC.PrimimportGHC.ReadimportGHC.Show#include "CTypes.h"#if defined(HTYPE_DEV_T)INTEGRAL_TYPE(CDev,HTYPE_DEV_T)#endif#if defined(HTYPE_INO_T)INTEGRAL_TYPE(CIno,HTYPE_INO_T)#endif#if defined(HTYPE_MODE_T)INTEGRAL_TYPE_WITH_CTYPE(CMode,mode_t,HTYPE_MODE_T)#endif#if defined(HTYPE_OFF_T)INTEGRAL_TYPE(COff,HTYPE_OFF_T)#endif#if defined(HTYPE_PID_T)INTEGRAL_TYPE(CPid,HTYPE_PID_T)#endif#if defined(HTYPE_SSIZE_T)INTEGRAL_TYPE(CSsize,HTYPE_SSIZE_T)#endif#if defined(HTYPE_GID_T)INTEGRAL_TYPE(CGid,HTYPE_GID_T)#endif#if defined(HTYPE_NLINK_T)INTEGRAL_TYPE(CNlink,HTYPE_NLINK_T)#endif#if defined(HTYPE_UID_T)INTEGRAL_TYPE(CUid,HTYPE_UID_T)#endif#if defined(HTYPE_CC_T)ARITHMETIC_TYPE(CCc,HTYPE_CC_T)#endif#if defined(HTYPE_SPEED_T)ARITHMETIC_TYPE(CSpeed,HTYPE_SPEED_T)#endif#if defined(HTYPE_TCFLAG_T)INTEGRAL_TYPE(CTcflag,HTYPE_TCFLAG_T)#endif#if defined(HTYPE_RLIM_T)INTEGRAL_TYPE(CRLim,HTYPE_RLIM_T)#endif#if defined(HTYPE_BLKSIZE_T)-- | @since 4.10.0.0INTEGRAL_TYPE_WITH_CTYPE(CBlkSize,blksize_t,HTYPE_BLKSIZE_T)#endif#if defined(HTYPE_BLKCNT_T)-- | @since 4.10.0.0INTEGRAL_TYPE_WITH_CTYPE(CBlkCnt,blkcnt_t,HTYPE_BLKCNT_T)#endif#if defined(HTYPE_CLOCKID_T)-- | @since 4.10.0.0INTEGRAL_TYPE_WITH_CTYPE(CClockId,clockid_t,HTYPE_CLOCKID_T)#endif#if defined(HTYPE_FSBLKCNT_T)-- | @since 4.10.0.0INTEGRAL_TYPE_WITH_CTYPE(CFsBlkCnt,fsblkcnt_t,HTYPE_FSBLKCNT_T)#endif#if defined(HTYPE_FSFILCNT_T)-- | @since 4.10.0.0INTEGRAL_TYPE_WITH_CTYPE(CFsFilCnt,fsfilcnt_t,HTYPE_FSFILCNT_T)#endif#if defined(HTYPE_ID_T)-- | @since 4.10.0.0INTEGRAL_TYPE_WITH_CTYPE(CId,id_t,HTYPE_ID_T)#endif#if defined(HTYPE_KEY_T)-- | @since 4.10.0.0INTEGRAL_TYPE_WITH_CTYPE(CKey,key_t,HTYPE_KEY_T)#endif#if defined(HTYPE_TIMER_T)-- | @since 4.10.0.0OPAQUE_TYPE_WITH_CTYPE(CTimer,timer_t,HTYPE_TIMER_T)#endif-- Make an Fd type rather than using CInt everywhereINTEGRAL_TYPE(Fd,CInt)-- nicer names, and backwards compatibility with POSIX library:#if defined(HTYPE_NLINK_T)typeLinkCount=CNlink#endif#if defined(HTYPE_UID_T)typeUserID=CUid#endif#if defined(HTYPE_GID_T)typeGroupID=CGid#endiftypeByteCount=CSizetypeClockTick=CClocktypeEpochTime=CTimetypeDeviceID=CDevtypeFileID=CInotypeFileMode=CModetypeProcessID=CPidtypeFileOffset=COfftypeProcessGroupID=CPidtypeLimit=CLong