content: {-# LANGUAGE CPP #-}
  {-# LANGUAGE DerivingStrategies #-}
  {-# LANGUAGE GeneralizedNewtypeDeriving #-}
  {-# LANGUAGE NoImplicitPrelude #-}
  {-# LANGUAGE Trustworthy #-}
  
  -----------------------------------------------------------------------------
  -- |
  -- Module      :  GHC.Internal.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"
  
  module GHC.Internal.System.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(..),
  #endif
  #if defined(HTYPE_SOCKLEN_T)
    CSocklen(..),
  #endif
  #if defined(HTYPE_NFDS_T)
    CNfds(..),
  #endif
  
    Fd(..),
  
    -- See Note [Exporting constructors of marshallable foreign types]
    -- in GHC.Internal.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,
  #endif
  
    ByteCount,
    ClockTick,
    EpochTime,
    FileOffset,
    ProcessID,
    ProcessGroupID,
    DeviceID,
    FileID,
    FileMode,
    Limit
   ) where
  
  import GHC.Internal.Foreign.C.Types
  import GHC.Internal.Bits
  import GHC.Internal.Base
  import GHC.Internal.Foreign.Storable
  import GHC.Internal.Enum
  import GHC.Internal.Int
  import GHC.Internal.Word
  import GHC.Internal.Ix
  import GHC.Internal.Num
  import GHC.Internal.Read
  import GHC.Internal.Real
  import GHC.Internal.Show
  
  #include "CTypes.h"
  
  #if defined(HTYPE_DEV_T)
  INTEGRAL_TYPE(CDev,"dev_t",HTYPE_DEV_T)
  #endif
  #if defined(HTYPE_INO_T)
  INTEGRAL_TYPE(CIno,"ino_t",HTYPE_INO_T)
  #endif
  #if defined(HTYPE_MODE_T)
  INTEGRAL_TYPE(CMode,"mode_t",HTYPE_MODE_T)
  #endif
  #if defined(HTYPE_OFF_T)
  INTEGRAL_TYPE(COff,"off_t",HTYPE_OFF_T)
  #endif
  #if defined(HTYPE_PID_T)
  INTEGRAL_TYPE(CPid,"pid_t",HTYPE_PID_T)
  #endif
  
  #if defined(HTYPE_SSIZE_T)
  INTEGRAL_TYPE(CSsize,"ssize_t",HTYPE_SSIZE_T)
  #endif
  
  #if defined(HTYPE_GID_T)
  INTEGRAL_TYPE(CGid,"gid_t",HTYPE_GID_T)
  #endif
  #if defined(HTYPE_NLINK_T)
  INTEGRAL_TYPE(CNlink,"nlink_t",HTYPE_NLINK_T)
  #endif
  
  #if defined(HTYPE_UID_T)
  INTEGRAL_TYPE(CUid,"uid_t",HTYPE_UID_T)
  #endif
  #if defined(HTYPE_CC_T)
  ARITHMETIC_TYPE(CCc,"cc_t",HTYPE_CC_T)
  #endif
  #if defined(HTYPE_SPEED_T)
  ARITHMETIC_TYPE(CSpeed,"speed_t",HTYPE_SPEED_T)
  #endif
  #if defined(HTYPE_TCFLAG_T)
  INTEGRAL_TYPE(CTcflag,"tcflag_t",HTYPE_TCFLAG_T)
  #endif
  #if defined(HTYPE_RLIM_T)
  INTEGRAL_TYPE(CRLim,"rlim_t",HTYPE_RLIM_T)
  #endif
  
  #if defined(HTYPE_BLKSIZE_T)
  -- | @since base-4.10.0.0
  INTEGRAL_TYPE(CBlkSize,"blksize_t",HTYPE_BLKSIZE_T)
  #endif
  #if defined(HTYPE_BLKCNT_T)
  -- | @since base-4.10.0.0
  INTEGRAL_TYPE(CBlkCnt,"blkcnt_t",HTYPE_BLKCNT_T)
  #endif
  #if defined(HTYPE_CLOCKID_T)
  -- | @since base-4.10.0.0
  INTEGRAL_TYPE(CClockId,"clockid_t",HTYPE_CLOCKID_T)
  #endif
  #if defined(HTYPE_FSBLKCNT_T)
  -- | @since base-4.10.0.0
  INTEGRAL_TYPE(CFsBlkCnt,"fsblkcnt_t",HTYPE_FSBLKCNT_T)
  #endif
  #if defined(HTYPE_FSFILCNT_T)
  -- | @since base-4.10.0.0
  INTEGRAL_TYPE(CFsFilCnt,"fsfilcnt_t",HTYPE_FSFILCNT_T)
  #endif
  #if defined(HTYPE_ID_T)
  -- | @since base-4.10.0.0
  INTEGRAL_TYPE(CId,"id_t",HTYPE_ID_T)
  #endif
  #if defined(HTYPE_KEY_T)
  -- | @since base-4.10.0.0
  INTEGRAL_TYPE(CKey,"key_t",HTYPE_KEY_T)
  #endif
  #if defined(HTYPE_TIMER_T)
  -- | @since base-4.10.0.0
  OPAQUE_TYPE(CTimer,"timer_t",HTYPE_TIMER_T)
  #endif
  
  #if defined(HTYPE_SOCKLEN_T)
  -- | @since base-4.14.0.0
  INTEGRAL_TYPE(CSocklen,"socklen_t",HTYPE_SOCKLEN_T)
  #endif
  #if defined(HTYPE_NFDS_T)
  -- | @since base-4.14.0.0
  INTEGRAL_TYPE(CNfds,"nfds_t",HTYPE_NFDS_T)
  #endif
  
  -- Make an Fd type rather than using CInt everywhere
  INTEGRAL_TYPE(Fd,"int",CInt)
  
  -- nicer names, and backwards compatibility with POSIX library:
  #if defined(HTYPE_NLINK_T)
  type LinkCount      = CNlink
  #endif
  #if defined(HTYPE_UID_T)
  type UserID         = CUid
  #endif
  #if defined(HTYPE_GID_T)
  type GroupID        = CGid
  #endif
  
  type ByteCount      = CSize
  type ClockTick      = CClock
  type EpochTime      = CTime
  type DeviceID       = CDev
  type FileID         = CIno
  type FileMode       = CMode
  type ProcessID      = CPid
  type FileOffset     = COff
  type ProcessGroupID = CPid
  type Limit          = CLong
  