diff --git a/Control/Applicative.hs b/Control/Applicative.hs --- a/Control/Applicative.hs +++ b/Control/Applicative.hs @@ -45,6 +45,7 @@ (<$>), (<$), (<**>), liftA, liftA3, optional, + asum, ) where import Control.Category hiding ((.), id) @@ -53,7 +54,7 @@ import Data.Tuple import Data.Eq import Data.Ord -import Data.Foldable (Foldable(..)) +import Data.Foldable (Foldable(..), asum) import Data.Functor ((<$>)) import Data.Functor.Const (Const(..)) @@ -63,6 +64,9 @@ import GHC.Read (Read) import GHC.Show (Show) +-- $setup +-- >>> import Prelude + newtype WrappedMonad m a = WrapMonad { unwrapMonad :: m a } deriving ( Generic -- ^ @since 4.7.0.0 , Generic1 -- ^ @since 4.7.0.0 @@ -146,7 +150,9 @@ -- -- ==== __Examples__ -- --- Using the 'Alternative' instance of `Control.Monad.Except`, the following functions: +-- Using the 'Alternative' instance of "Control.Monad.Except", the following functions: +-- +-- >>> import Control.Monad.Except -- -- >>> canFail = throwError "it failed" :: Except String Int -- >>> final = return 42 :: Except String Int diff --git a/Control/Concurrent/Chan.hs b/Control/Concurrent/Chan.hs --- a/Control/Concurrent/Chan.hs +++ b/Control/Concurrent/Chan.hs @@ -105,7 +105,7 @@ -- Throws 'Control.Exception.BlockedIndefinitelyOnMVar' when the channel is -- empty and no other thread holds a reference to the channel. readChan :: Chan a -> IO a -readChan (Chan readVar _) = do +readChan (Chan readVar _) = modifyMVar readVar $ \read_end -> do (ChItem val new_read_end) <- readMVar read_end -- Use readMVar here, not takeMVar, diff --git a/Control/Concurrent/QSem.hs b/Control/Concurrent/QSem.hs --- a/Control/Concurrent/QSem.hs +++ b/Control/Concurrent/QSem.hs @@ -82,7 +82,7 @@ putMVar m (z, b1, b2) return () where - wait b = takeMVar b `onException` do + wait b = takeMVar b `onException` (uninterruptibleMask_ $ do -- Note [signal uninterruptible] (i,b1,b2) <- takeMVar m r <- tryTakeMVar b diff --git a/Control/Concurrent/QSemN.hs b/Control/Concurrent/QSemN.hs --- a/Control/Concurrent/QSemN.hs +++ b/Control/Concurrent/QSemN.hs @@ -1,5 +1,4 @@ {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE BangPatterns #-} {-# OPTIONS_GHC -funbox-strict-fields #-} ----------------------------------------------------------------------------- @@ -94,7 +93,7 @@ JustMV b -> wait b where wait :: MVar () -> IO () - wait b = do + wait b = takeMVar b `onException` do already_filled <- not <$> tryPutMVar b () when already_filled $ signalQSemN qs sz diff --git a/Control/Exception/Base.hs b/Control/Exception/Base.hs --- a/Control/Exception/Base.hs +++ b/Control/Exception/Base.hs @@ -1,6 +1,6 @@ -{-# LANGUAGE Trustworthy #-} -{-# LANGUAGE NoImplicitPrelude, MagicHash #-} -{-# LANGUAGE StandaloneDeriving #-} +{-# LANGUAGE MagicHash #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE Trustworthy #-} ----------------------------------------------------------------------------- -- | @@ -95,19 +95,19 @@ -- * Calls for GHC runtime recSelError, recConError, runtimeError, nonExhaustiveGuardsError, patError, noMethodBindingError, - absentError, typeError, + typeError, nonTermination, nestedAtomically, ) where -import GHC.Base -import GHC.IO hiding (bracket,finally,onException) -import GHC.IO.Exception -import GHC.Exception -import GHC.Show +import GHC.Base +import GHC.Exception +import GHC.IO hiding (bracket, finally, onException) +import GHC.IO.Exception +import GHC.Show -- import GHC.Exception hiding ( Exception ) -import GHC.Conc.Sync +import GHC.Conc.Sync -import Data.Either +import Data.Either ----------------------------------------------------------------------------- -- Catching exceptions @@ -214,6 +214,22 @@ -- -- > withFile name mode = bracket (openFile name mode) hClose -- +-- Bracket wraps the release action with 'mask', which is sufficient to ensure +-- that the release action executes to completion when it does not invoke any +-- interruptible actions, even in the presence of asynchronous exceptions. For +-- example, `hClose` is uninterruptible when it is not racing other uses of the +-- handle. Similarly, closing a socket (from \"network\" package) is also +-- uninterruptible under similar conditions. An example of an interruptible +-- action is 'killThread'. Completion of interruptible release actions can be +-- ensured by wrapping them in in 'uninterruptibleMask_', but this risks making +-- the program non-responsive to @Control-C@, or timeouts. Another option is to +-- run the release action asynchronously in its own thread: +-- +-- > void $ uninterruptibleMask_ $ forkIO $ do { ... } +-- +-- The resource will be released as soon as possible, but the thread that invoked +-- bracket will not block in an uninterruptible state. +-- bracket :: IO a -- ^ computation to run first (\"acquire resource\") -> (a -> IO b) -- ^ computation to run last (\"release resource\") @@ -375,15 +391,15 @@ ----- +-- See Note [Compiler error functions] in ghc-prim:GHC.Prim.Panic recSelError, recConError, runtimeError, nonExhaustiveGuardsError, patError, noMethodBindingError, - absentError, typeError + typeError :: Addr# -> a -- All take a UTF8-encoded C string recSelError s = throw (RecSelError ("No match in record selector " ++ unpackCStringUtf8# s)) -- No location info unfortunately runtimeError s = errorWithoutStackTrace (unpackCStringUtf8# s) -- No location info unfortunately -absentError s = errorWithoutStackTrace ("Oops! Entered absent arg " ++ unpackCStringUtf8# s) nonExhaustiveGuardsError s = throw (PatternMatchFail (untangle s "Non-exhaustive guards in")) recConError s = throw (RecConError (untangle s "Missing field in record construction")) diff --git a/Control/Monad.hs b/Control/Monad.hs --- a/Control/Monad.hs +++ b/Control/Monad.hs @@ -85,6 +85,10 @@ import GHC.List ( zipWith, unzip ) import GHC.Num ( (-) ) +-- $setup +-- >>> import Prelude +-- >>> let safeDiv x y = guard (y /= 0) >> Just (x `div` y :: Int) + -- ----------------------------------------------------------------------------- -- Functions mandated by the Prelude @@ -106,12 +110,11 @@ -- 'Nothing' when the denominator @y@ is zero and @'Just' (x \`div\` -- y)@ otherwise. For example: -- --- @ -- >>> safeDiv 4 0 -- Nothing +-- -- >>> safeDiv 4 2 -- Just 2 --- @ -- -- A definition of @safeDiv@ using guards, but not 'guard': -- @@ -281,10 +284,11 @@ -- and then returns the list of results: -- -- ==== __Examples__ --- >>> replicateM 3 (putStrLn "a") --- a --- a --- a +-- +-- >>> import Control.Monad.State +-- >>> runState (replicateM 3 $ state $ \s -> (s, s + 1)) 1 +-- ([1,2,3],4) +-- replicateM :: (Applicative m) => Int -> m a -> m [a] {-# INLINABLE replicateM #-} {-# SPECIALISE replicateM :: Int -> IO a -> IO [a] #-} @@ -297,6 +301,14 @@ | otherwise = liftA2 (:) f (loop (cnt - 1)) -- | Like 'replicateM', but discards the result. +-- +-- ==== __Examples__ +-- +-- >>> replicateM_ 3 (putStrLn "a") +-- a +-- a +-- a +-- replicateM_ :: (Applicative m) => Int -> m a -> m () {-# INLINABLE replicateM_ #-} {-# SPECIALISE replicateM_ :: Int -> IO a -> IO () #-} @@ -345,12 +357,11 @@ -- -- An example using 'mfilter' with the 'Maybe' monad: -- --- @ -- >>> mfilter odd (Just 1) -- Just 1 -- >>> mfilter odd (Just 2) -- Nothing --- @ +-- mfilter :: (MonadPlus m) => (a -> Bool) -> m a -> m a {-# INLINABLE mfilter #-} mfilter p ma = do diff --git a/Control/Monad/ST/Lazy/Imp.hs b/Control/Monad/ST/Lazy/Imp.hs --- a/Control/Monad/ST/Lazy/Imp.hs +++ b/Control/Monad/ST/Lazy/Imp.hs @@ -42,7 +42,7 @@ import qualified Control.Monad.ST as ST import qualified Control.Monad.ST.Unsafe as ST -import qualified GHC.ST as GHC.ST +import qualified GHC.ST import GHC.Base -- | The lazy @'ST'@ monad. diff --git a/Data/Bifoldable.hs b/Data/Bifoldable.hs --- a/Data/Bifoldable.hs +++ b/Data/Bifoldable.hs @@ -295,6 +295,7 @@ -- -- >>> bifoldr1 (+) (BiList [] []) -- *** Exception: bifoldr1: empty structure +-- ... -- -- @since 4.10.0.0 bifoldr1 :: Bifoldable t => (a -> a -> a) -> t a a -> a @@ -356,6 +357,7 @@ -- -- >>> bifoldl1 (+) (BiList [] []) -- *** Exception: bifoldl1: empty structure +-- ... -- -- @since 4.10.0.0 bifoldl1 :: Bifoldable t => (a -> a -> a) -> t a a -> a @@ -640,6 +642,7 @@ -- -- >>> bimaximum (BiList [] []) -- *** Exception: bimaximum: empty structure +-- ... -- -- @since 4.10.0.0 bimaximum :: forall t a. (Bifoldable t, Ord a) => t a a -> a @@ -669,6 +672,7 @@ -- -- >>> biminimum (BiList [] []) -- *** Exception: biminimum: empty structure +-- ... -- -- @since 4.10.0.0 biminimum :: forall t a. (Bifoldable t, Ord a) => t a a -> a @@ -922,6 +926,7 @@ -- -- >>> bimaximumBy compare (BiList [] []) -- *** Exception: bifoldr1: empty structure +-- ... -- -- @since 4.10.0.0 bimaximumBy :: Bifoldable t => (a -> a -> Ordering) -> t a a -> a @@ -950,6 +955,7 @@ -- -- >>> biminimumBy compare (BiList [] []) -- *** Exception: bifoldr1: empty structure +-- ... -- -- @since 4.10.0.0 biminimumBy :: Bifoldable t => (a -> a -> Ordering) -> t a a -> a diff --git a/Data/Bitraversable.hs b/Data/Bitraversable.hs --- a/Data/Bitraversable.hs +++ b/Data/Bitraversable.hs @@ -34,6 +34,11 @@ import Data.Functor.Utils (StateL(..), StateR(..)) import GHC.Generics (K1(..)) +-- $setup +-- >>> import Prelude +-- >>> import Data.Maybe +-- >>> import Data.List (find) + -- | 'Bitraversable' identifies bifunctorial data structures whose elements can -- be traversed in order, performing 'Applicative' or 'Monad' actions at each -- element, and collecting a result structure with the same shape. diff --git a/Data/Bits.hs b/Data/Bits.hs --- a/Data/Bits.hs +++ b/Data/Bits.hs @@ -1,5 +1,7 @@ +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE CPP, NoImplicitPrelude, BangPatterns, MagicHash #-} ----------------------------------------------------------------------------- -- | @@ -20,6 +22,7 @@ ----------------------------------------------------------------------------- module Data.Bits ( + -- * Type classes Bits( (.&.), (.|.), xor, complement, @@ -44,674 +47,162 @@ countLeadingZeros, countTrailingZeros ), - + -- * Extra functions bitDefault, testBitDefault, popCountDefault, - toIntegralSized + toIntegralSized, + oneBits, + -- * Newtypes + And(..), Ior(..), Xor(..), Iff(..) ) where --- Defines the @Bits@ class containing bit-based operations. --- See library document for details on the semantics of the --- individual operations. - -#include "MachDeps.h" - -import Data.Maybe -import GHC.Num import GHC.Base -import GHC.Real - -infixl 8 `shift`, `rotate`, `shiftL`, `shiftR`, `rotateL`, `rotateR` -infixl 7 .&. -infixl 6 `xor` -infixl 5 .|. - -{-# DEPRECATED bitSize "Use 'bitSizeMaybe' or 'finiteBitSize' instead" #-} -- deprecated in 7.8 - --- | The 'Bits' class defines bitwise operations over integral types. --- --- * Bits are numbered from 0 with bit 0 being the least --- significant bit. -class Eq a => Bits a where - {-# MINIMAL (.&.), (.|.), xor, complement, - (shift | (shiftL, shiftR)), - (rotate | (rotateL, rotateR)), - bitSize, bitSizeMaybe, isSigned, testBit, bit, popCount #-} - - -- | Bitwise \"and\" - (.&.) :: a -> a -> a - - -- | Bitwise \"or\" - (.|.) :: a -> a -> a - - -- | Bitwise \"xor\" - xor :: a -> a -> a - - {-| Reverse all the bits in the argument -} - complement :: a -> a - - {-| @'shift' x i@ shifts @x@ left by @i@ bits if @i@ is positive, - or right by @-i@ bits otherwise. - Right shifts perform sign extension on signed number types; - i.e. they fill the top bits with 1 if the @x@ is negative - and with 0 otherwise. - - An instance can define either this unified 'shift' or 'shiftL' and - 'shiftR', depending on which is more convenient for the type in - question. -} - shift :: a -> Int -> a - - x `shift` i | i<0 = x `shiftR` (-i) - | i>0 = x `shiftL` i - | otherwise = x - - {-| @'rotate' x i@ rotates @x@ left by @i@ bits if @i@ is positive, - or right by @-i@ bits otherwise. - - For unbounded types like 'Integer', 'rotate' is equivalent to 'shift'. - - An instance can define either this unified 'rotate' or 'rotateL' and - 'rotateR', depending on which is more convenient for the type in - question. -} - rotate :: a -> Int -> a - - x `rotate` i | i<0 = x `rotateR` (-i) - | i>0 = x `rotateL` i - | otherwise = x - - {- - -- Rotation can be implemented in terms of two shifts, but care is - -- needed for negative values. This suggested implementation assumes - -- 2's-complement arithmetic. It is commented out because it would - -- require an extra context (Ord a) on the signature of 'rotate'. - x `rotate` i | i<0 && isSigned x && x<0 - = let left = i+bitSize x in - ((x `shift` i) .&. complement ((-1) `shift` left)) - .|. (x `shift` left) - | i<0 = (x `shift` i) .|. (x `shift` (i+bitSize x)) - | i==0 = x - | i>0 = (x `shift` i) .|. (x `shift` (i-bitSize x)) - -} - - -- | 'zeroBits' is the value with all bits unset. - -- - -- The following laws ought to hold (for all valid bit indices @/n/@): - -- - -- * @'clearBit' 'zeroBits' /n/ == 'zeroBits'@ - -- * @'setBit' 'zeroBits' /n/ == 'bit' /n/@ - -- * @'testBit' 'zeroBits' /n/ == False@ - -- * @'popCount' 'zeroBits' == 0@ - -- - -- This method uses @'clearBit' ('bit' 0) 0@ as its default - -- implementation (which ought to be equivalent to 'zeroBits' for - -- types which possess a 0th bit). - -- - -- @since 4.7.0.0 - zeroBits :: a - zeroBits = clearBit (bit 0) 0 - - -- | @bit /i/@ is a value with the @/i/@th bit set and all other bits clear. - -- - -- Can be implemented using `bitDefault' if @a@ is also an - -- instance of 'Num'. - -- - -- See also 'zeroBits'. - bit :: Int -> a - - -- | @x \`setBit\` i@ is the same as @x .|. bit i@ - setBit :: a -> Int -> a - - -- | @x \`clearBit\` i@ is the same as @x .&. complement (bit i)@ - clearBit :: a -> Int -> a - - -- | @x \`complementBit\` i@ is the same as @x \`xor\` bit i@ - complementBit :: a -> Int -> a - - {-| @x \`testBit\` i@ is the same as @x .&. bit n /= 0@ - - In other words it returns True if the bit at offset @n - is set. - - Can be implemented using `testBitDefault' if @a@ is also an - instance of 'Num'. - -} - testBit :: a -> Int -> Bool - - {-| Return the number of bits in the type of the argument. The actual - value of the argument is ignored. Returns Nothing - for types that do not have a fixed bitsize, like 'Integer'. - - @since 4.7.0.0 - -} - bitSizeMaybe :: a -> Maybe Int - - {-| Return the number of bits in the type of the argument. The actual - value of the argument is ignored. The function 'bitSize' is - undefined for types that do not have a fixed bitsize, like 'Integer'. - - Default implementation based upon 'bitSizeMaybe' provided since - 4.12.0.0. - -} - bitSize :: a -> Int - bitSize b = fromMaybe (error "bitSize is undefined") (bitSizeMaybe b) - - {-| Return 'True' if the argument is a signed type. The actual - value of the argument is ignored -} - isSigned :: a -> Bool - - {-# INLINE setBit #-} - {-# INLINE clearBit #-} - {-# INLINE complementBit #-} - x `setBit` i = x .|. bit i - x `clearBit` i = x .&. complement (bit i) - x `complementBit` i = x `xor` bit i - - {-| Shift the argument left by the specified number of bits - (which must be non-negative). Some instances may throw an - 'Control.Exception.Overflow' exception if given a negative input. - - An instance can define either this and 'shiftR' or the unified - 'shift', depending on which is more convenient for the type in - question. -} - shiftL :: a -> Int -> a - {-# INLINE shiftL #-} - x `shiftL` i = x `shift` i - - {-| Shift the argument left by the specified number of bits. The - result is undefined for negative shift amounts and shift amounts - greater or equal to the 'bitSize'. - - Defaults to 'shiftL' unless defined explicitly by an instance. - - @since 4.5.0.0 -} - unsafeShiftL :: a -> Int -> a - {-# INLINE unsafeShiftL #-} - x `unsafeShiftL` i = x `shiftL` i - - {-| Shift the first argument right by the specified number of bits. The - result is undefined for negative shift amounts and shift amounts - greater or equal to the 'bitSize'. Some instances may throw an - 'Control.Exception.Overflow' exception if given a negative input. - - Right shifts perform sign extension on signed number types; - i.e. they fill the top bits with 1 if the @x@ is negative - and with 0 otherwise. - - An instance can define either this and 'shiftL' or the unified - 'shift', depending on which is more convenient for the type in - question. -} - shiftR :: a -> Int -> a - {-# INLINE shiftR #-} - x `shiftR` i = x `shift` (-i) - - {-| Shift the first argument right by the specified number of bits, which - must be non-negative and smaller than the number of bits in the type. - - Right shifts perform sign extension on signed number types; - i.e. they fill the top bits with 1 if the @x@ is negative - and with 0 otherwise. - - Defaults to 'shiftR' unless defined explicitly by an instance. - - @since 4.5.0.0 -} - unsafeShiftR :: a -> Int -> a - {-# INLINE unsafeShiftR #-} - x `unsafeShiftR` i = x `shiftR` i - - {-| Rotate the argument left by the specified number of bits - (which must be non-negative). - - An instance can define either this and 'rotateR' or the unified - 'rotate', depending on which is more convenient for the type in - question. -} - rotateL :: a -> Int -> a - {-# INLINE rotateL #-} - x `rotateL` i = x `rotate` i - - {-| Rotate the argument right by the specified number of bits - (which must be non-negative). - - An instance can define either this and 'rotateL' or the unified - 'rotate', depending on which is more convenient for the type in - question. -} - rotateR :: a -> Int -> a - {-# INLINE rotateR #-} - x `rotateR` i = x `rotate` (-i) - - {-| Return the number of set bits in the argument. This number is - known as the population count or the Hamming weight. - - Can be implemented using `popCountDefault' if @a@ is also an - instance of 'Num'. +import GHC.Bits +import GHC.Enum +import GHC.Read +import GHC.Show - @since 4.5.0.0 -} - popCount :: a -> Int +-- $setup +-- >>> import Prelude +-- >>> import Data.Word --- |The 'FiniteBits' class denotes types with a finite, fixed number of bits. +-- | A more concise version of @complement zeroBits@. -- --- @since 4.7.0.0 -class Bits b => FiniteBits b where - -- | Return the number of bits in the type of the argument. - -- The actual value of the argument is ignored. Moreover, 'finiteBitSize' - -- is total, in contrast to the deprecated 'bitSize' function it replaces. - -- - -- @ - -- 'finiteBitSize' = 'bitSize' - -- 'bitSizeMaybe' = 'Just' . 'finiteBitSize' - -- @ - -- - -- @since 4.7.0.0 - finiteBitSize :: b -> Int - - -- | Count number of zero bits preceding the most significant set bit. - -- - -- @ - -- 'countLeadingZeros' ('zeroBits' :: a) = finiteBitSize ('zeroBits' :: a) - -- @ - -- - -- 'countLeadingZeros' can be used to compute log base 2 via - -- - -- @ - -- logBase2 x = 'finiteBitSize' x - 1 - 'countLeadingZeros' x - -- @ - -- - -- Note: The default implementation for this method is intentionally - -- naive. However, the instances provided for the primitive - -- integral types are implemented using CPU specific machine - -- instructions. - -- - -- @since 4.8.0.0 - countLeadingZeros :: b -> Int - countLeadingZeros x = (w-1) - go (w-1) - where - go i | i < 0 = i -- no bit set - | testBit x i = i - | otherwise = go (i-1) - - w = finiteBitSize x - - -- | Count number of zero bits following the least significant set bit. - -- - -- @ - -- 'countTrailingZeros' ('zeroBits' :: a) = finiteBitSize ('zeroBits' :: a) - -- 'countTrailingZeros' . 'negate' = 'countTrailingZeros' - -- @ - -- - -- The related - -- - -- can be expressed in terms of 'countTrailingZeros' as follows - -- - -- @ - -- findFirstSet x = 1 + 'countTrailingZeros' x - -- @ - -- - -- Note: The default implementation for this method is intentionally - -- naive. However, the instances provided for the primitive - -- integral types are implemented using CPU specific machine - -- instructions. - -- - -- @since 4.8.0.0 - countTrailingZeros :: b -> Int - countTrailingZeros x = go 0 - where - go i | i >= w = i - | testBit x i = i - | otherwise = go (i+1) - - w = finiteBitSize x - - --- The defaults below are written with lambdas so that e.g. --- bit = bitDefault --- is fully applied, so inlining will happen - --- | Default implementation for 'bit'. +-- >>> complement (zeroBits :: Word) == (oneBits :: Word) +-- True -- --- Note that: @bitDefault i = 1 `shiftL` i@ +-- >>> complement (oneBits :: Word) == (zeroBits :: Word) +-- True -- --- @since 4.6.0.0 -bitDefault :: (Bits a, Num a) => Int -> a -bitDefault = \i -> 1 `shiftL` i -{-# INLINE bitDefault #-} - --- | Default implementation for 'testBit'. +-- = Note -- --- Note that: @testBitDefault x i = (x .&. bit i) /= 0@ +-- The constraint on 'oneBits' is arguably too strong. However, as some types +-- (such as 'Natural') have undefined 'complement', this is the only safe +-- choice. -- --- @since 4.6.0.0 -testBitDefault :: (Bits a, Num a) => a -> Int -> Bool -testBitDefault = \x i -> (x .&. bit i) /= 0 -{-# INLINE testBitDefault #-} +-- @since 4.16 +oneBits :: (FiniteBits a) => a +oneBits = complement zeroBits +{-# INLINE oneBits #-} --- | Default implementation for 'popCount'. +-- | Monoid under bitwise AND. -- --- This implementation is intentionally naive. Instances are expected to provide --- an optimized implementation for their size. +-- >>> getAnd (And 0xab <> And 0x12) :: Word8 +-- 2 -- --- @since 4.6.0.0 -popCountDefault :: (Bits a, Num a) => a -> Int -popCountDefault = go 0 - where - go !c 0 = c - go c w = go (c+1) (w .&. (w - 1)) -- clear the least significant -{-# INLINABLE popCountDefault #-} +-- @since 4.16 +newtype And a = And { getAnd :: a } + deriving newtype ( + Bounded, -- ^ @since 4.16 + Enum, -- ^ @since 4.16 + Bits, -- ^ @since 4.16 + FiniteBits, -- ^ @since 4.16 + Eq -- ^ @since 4.16 + ) + deriving stock ( + Show, -- ^ @since 4.16 + Read -- ^ @since 4.16 + ) +-- | @since 4.16 +instance (Bits a) => Semigroup (And a) where + And x <> And y = And (x .&. y) --- | Interpret 'Bool' as 1-bit bit-field +-- | This constraint is arguably too strong. However, +-- as some types (such as 'Natural') have undefined 'complement', this is the +-- only safe choice. -- --- @since 4.7.0.0 -instance Bits Bool where - (.&.) = (&&) - - (.|.) = (||) - - xor = (/=) - - complement = not - - shift x 0 = x - shift _ _ = False - - rotate x _ = x - - bit 0 = True - bit _ = False - - testBit x 0 = x - testBit _ _ = False - - bitSizeMaybe _ = Just 1 - - bitSize _ = 1 - - isSigned _ = False - - popCount False = 0 - popCount True = 1 - --- | @since 4.7.0.0 -instance FiniteBits Bool where - finiteBitSize _ = 1 - countTrailingZeros x = if x then 0 else 1 - countLeadingZeros x = if x then 0 else 1 - --- | @since 2.01 -instance Bits Int where - {-# INLINE shift #-} - {-# INLINE bit #-} - {-# INLINE testBit #-} - -- We want popCnt# to be inlined in user code so that `ghc -msse4.2` - -- can compile it down to a popcnt instruction without an extra function call - {-# INLINE popCount #-} - - zeroBits = 0 - - bit = bitDefault - - testBit = testBitDefault - - (I# x#) .&. (I# y#) = I# (x# `andI#` y#) - (I# x#) .|. (I# y#) = I# (x# `orI#` y#) - (I# x#) `xor` (I# y#) = I# (x# `xorI#` y#) - complement (I# x#) = I# (notI# x#) - (I# x#) `shift` (I# i#) - | isTrue# (i# >=# 0#) = I# (x# `iShiftL#` i#) - | otherwise = I# (x# `iShiftRA#` negateInt# i#) - (I# x#) `shiftL` (I# i#) - | isTrue# (i# >=# 0#) = I# (x# `iShiftL#` i#) - | otherwise = overflowError - (I# x#) `unsafeShiftL` (I# i#) = I# (x# `uncheckedIShiftL#` i#) - (I# x#) `shiftR` (I# i#) - | isTrue# (i# >=# 0#) = I# (x# `iShiftRA#` i#) - | otherwise = overflowError - (I# x#) `unsafeShiftR` (I# i#) = I# (x# `uncheckedIShiftRA#` i#) - - {-# INLINE rotate #-} -- See Note [Constant folding for rotate] - (I# x#) `rotate` (I# i#) = - I# ((x# `uncheckedIShiftL#` i'#) `orI#` (x# `uncheckedIShiftRL#` (wsib -# i'#))) - where - !i'# = i# `andI#` (wsib -# 1#) - !wsib = WORD_SIZE_IN_BITS# {- work around preprocessor problem (??) -} - bitSizeMaybe i = Just (finiteBitSize i) - bitSize i = finiteBitSize i - - popCount (I# x#) = I# (word2Int# (popCnt# (int2Word# x#))) - - isSigned _ = True - --- | @since 4.6.0.0 -instance FiniteBits Int where - finiteBitSize _ = WORD_SIZE_IN_BITS - countLeadingZeros (I# x#) = I# (word2Int# (clz# (int2Word# x#))) - {-# INLINE countLeadingZeros #-} - countTrailingZeros (I# x#) = I# (word2Int# (ctz# (int2Word# x#))) - {-# INLINE countTrailingZeros #-} - --- | @since 2.01 -instance Bits Word where - {-# INLINE shift #-} - {-# INLINE bit #-} - {-# INLINE testBit #-} - {-# INLINE popCount #-} - - (W# x#) .&. (W# y#) = W# (x# `and#` y#) - (W# x#) .|. (W# y#) = W# (x# `or#` y#) - (W# x#) `xor` (W# y#) = W# (x# `xor#` y#) - complement (W# x#) = W# (not# x#) - (W# x#) `shift` (I# i#) - | isTrue# (i# >=# 0#) = W# (x# `shiftL#` i#) - | otherwise = W# (x# `shiftRL#` negateInt# i#) - (W# x#) `shiftL` (I# i#) - | isTrue# (i# >=# 0#) = W# (x# `shiftL#` i#) - | otherwise = overflowError - (W# x#) `unsafeShiftL` (I# i#) = W# (x# `uncheckedShiftL#` i#) - (W# x#) `shiftR` (I# i#) - | isTrue# (i# >=# 0#) = W# (x# `shiftRL#` i#) - | otherwise = overflowError - (W# x#) `unsafeShiftR` (I# i#) = W# (x# `uncheckedShiftRL#` i#) - (W# x#) `rotate` (I# i#) - | isTrue# (i'# ==# 0#) = W# x# - | otherwise = W# ((x# `uncheckedShiftL#` i'#) `or#` (x# `uncheckedShiftRL#` (wsib -# i'#))) - where - !i'# = i# `andI#` (wsib -# 1#) - !wsib = WORD_SIZE_IN_BITS# {- work around preprocessor problem (??) -} - bitSizeMaybe i = Just (finiteBitSize i) - bitSize i = finiteBitSize i - isSigned _ = False - popCount (W# x#) = I# (word2Int# (popCnt# x#)) - bit = bitDefault - testBit = testBitDefault - --- | @since 4.6.0.0 -instance FiniteBits Word where - finiteBitSize _ = WORD_SIZE_IN_BITS - countLeadingZeros (W# x#) = I# (word2Int# (clz# x#)) - {-# INLINE countLeadingZeros #-} - countTrailingZeros (W# x#) = I# (word2Int# (ctz# x#)) - {-# INLINE countTrailingZeros #-} - --- | @since 2.01 -instance Bits Integer where - (.&.) = integerAnd - (.|.) = integerOr - xor = integerXor - complement = integerComplement - unsafeShiftR x i = integerShiftR x (fromIntegral i) - unsafeShiftL x i = integerShiftL x (fromIntegral i) - shiftR x i@(I# i#) - | isTrue# (i# >=# 0#) = unsafeShiftR x i - | otherwise = overflowError - shiftL x i@(I# i#) - | isTrue# (i# >=# 0#) = unsafeShiftL x i - | otherwise = overflowError - shift x i | i >= 0 = integerShiftL x (fromIntegral i) - | otherwise = integerShiftR x (fromIntegral (negate i)) - testBit x i = integerTestBit x (fromIntegral i) - zeroBits = integerZero - - bit (I# i) = integerBit# (int2Word# i) - popCount x = I# (integerPopCount# x) - - rotate x i = shift x i -- since an Integer never wraps around - - bitSizeMaybe _ = Nothing - bitSize _ = errorWithoutStackTrace "Data.Bits.bitSize(Integer)" - isSigned _ = True - --- | @since 4.8.0 -instance Bits Natural where - (.&.) = naturalAnd - (.|.) = naturalOr - xor = naturalXor - complement _ = errorWithoutStackTrace - "Bits.complement: Natural complement undefined" - unsafeShiftR x i = naturalShiftR x (fromIntegral i) - unsafeShiftL x i = naturalShiftL x (fromIntegral i) - shiftR x i@(I# i#) - | isTrue# (i# >=# 0#) = unsafeShiftR x i - | otherwise = overflowError - shiftL x i@(I# i#) - | isTrue# (i# >=# 0#) = unsafeShiftL x i - | otherwise = overflowError - shift x i - | i >= 0 = naturalShiftL x (fromIntegral i) - | otherwise = naturalShiftR x (fromIntegral (negate i)) - testBit x i = naturalTestBit x (fromIntegral i) - zeroBits = naturalZero - clearBit x i = x `xor` (bit i .&. x) - - bit (I# i) = naturalBit# (int2Word# i) - popCount x = I# (word2Int# (naturalPopCount# x)) - - rotate x i = shift x i -- since an Natural never wraps around - - bitSizeMaybe _ = Nothing - bitSize _ = errorWithoutStackTrace "Data.Bits.bitSize(Natural)" - isSigned _ = False - ------------------------------------------------------------------------------ +-- @since 4.16 +instance (FiniteBits a) => Monoid (And a) where + mempty = And oneBits --- | Attempt to convert an 'Integral' type @a@ to an 'Integral' type @b@ using --- the size of the types as measured by 'Bits' methods. --- --- A simpler version of this function is: --- --- > toIntegral :: (Integral a, Integral b) => a -> Maybe b --- > toIntegral x --- > | toInteger x == y = Just (fromInteger y) --- > | otherwise = Nothing --- > where --- > y = toInteger x +-- | Monoid under bitwise inclusive OR. -- --- This version requires going through 'Integer', which can be inefficient. --- However, @toIntegralSized@ is optimized to allow GHC to statically determine --- the relative type sizes (as measured by 'bitSizeMaybe' and 'isSigned') and --- avoid going through 'Integer' for many types. (The implementation uses --- 'fromIntegral', which is itself optimized with rules for @base@ types but may --- go through 'Integer' for some type pairs.) +-- >>> getIor (Ior 0xab <> Ior 0x12) :: Word8 +-- 187 -- --- @since 4.8.0.0 - -toIntegralSized :: (Integral a, Integral b, Bits a, Bits b) => a -> Maybe b -toIntegralSized x -- See Note [toIntegralSized optimization] - | maybe True (<= x) yMinBound - , maybe True (x <=) yMaxBound = Just y - | otherwise = Nothing - where - y = fromIntegral x - - xWidth = bitSizeMaybe x - yWidth = bitSizeMaybe y - - yMinBound - | isBitSubType x y = Nothing - | isSigned x, not (isSigned y) = Just 0 - | isSigned x, isSigned y - , Just yW <- yWidth = Just (negate $ bit (yW-1)) -- Assumes sub-type - | otherwise = Nothing - - yMaxBound - | isBitSubType x y = Nothing - | isSigned x, not (isSigned y) - , Just xW <- xWidth, Just yW <- yWidth - , xW <= yW+1 = Nothing -- Max bound beyond a's domain - | Just yW <- yWidth = if isSigned y - then Just (bit (yW-1)-1) - else Just (bit yW-1) - | otherwise = Nothing -{-# INLINABLE toIntegralSized #-} - --- | 'True' if the size of @a@ is @<=@ the size of @b@, where size is measured --- by 'bitSizeMaybe' and 'isSigned'. -isBitSubType :: (Bits a, Bits b) => a -> b -> Bool -isBitSubType x y - -- Reflexive - | xWidth == yWidth, xSigned == ySigned = True - - -- Every integer is a subset of 'Integer' - | ySigned, Nothing == yWidth = True - | not xSigned, not ySigned, Nothing == yWidth = True +-- @since 4.16 +newtype Ior a = Ior { getIor :: a } + deriving newtype ( + Bounded, -- ^ @since 4.16 + Enum, -- ^ @since 4.16 + Bits, -- ^ @since 4.16 + FiniteBits, -- ^ @since 4.16 + Eq -- ^ @since 4.16 + ) + deriving stock ( + Show, -- ^ @since 4.16 + Read -- ^ @since 4.16 + ) - -- Sub-type relations between fixed-with types - | xSigned == ySigned, Just xW <- xWidth, Just yW <- yWidth = xW <= yW - | not xSigned, ySigned, Just xW <- xWidth, Just yW <- yWidth = xW < yW +-- | @since 4.16 +instance (Bits a) => Semigroup (Ior a) where + Ior x <> Ior y = Ior (x .|. y) - | otherwise = False - where - xWidth = bitSizeMaybe x - xSigned = isSigned x +-- | @since 4.16 +instance (Bits a) => Monoid (Ior a) where + mempty = Ior zeroBits - yWidth = bitSizeMaybe y - ySigned = isSigned y -{-# INLINE isBitSubType #-} +-- | Monoid under bitwise XOR. +-- +-- >>> getXor (Xor 0xab <> Xor 0x12) :: Word8 +-- 185 +-- +-- @since 4.16 +newtype Xor a = Xor { getXor :: a } + deriving newtype ( + Bounded, -- ^ @since 4.16 + Enum, -- ^ @since 4.16 + Bits, -- ^ @since 4.16 + FiniteBits, -- ^ @since 4.16 + Eq -- ^ @since 4.16 + ) + deriving stock ( + Show, -- ^ @since 4.16 + Read -- ^ @since 4.16 + ) -{- Note [Constant folding for rotate] - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -The INLINE on the Int instance of rotate enables it to be constant -folded. For example: - sumU . mapU (`rotate` 3) . replicateU 10000000 $ (7 :: Int) -goes to: - Main.$wfold = - \ (ww_sO7 :: Int#) (ww1_sOb :: Int#) -> - case ww1_sOb of wild_XM { - __DEFAULT -> Main.$wfold (+# ww_sO7 56) (+# wild_XM 1); - 10000000 -> ww_sO7 -whereas before it was left as a call to $wrotate. +-- | @since 4.16 +instance (Bits a) => Semigroup (Xor a) where + Xor x <> Xor y = Xor (x `xor` y) -All other Bits instances seem to inline well enough on their -own to enable constant folding; for example 'shift': - sumU . mapU (`shift` 3) . replicateU 10000000 $ (7 :: Int) - goes to: - Main.$wfold = - \ (ww_sOb :: Int#) (ww1_sOf :: Int#) -> - case ww1_sOf of wild_XM { - __DEFAULT -> Main.$wfold (+# ww_sOb 56) (+# wild_XM 1); - 10000000 -> ww_sOb - } --} +-- | @since 4.16 +instance (Bits a) => Monoid (Xor a) where + mempty = Xor zeroBits --- Note [toIntegralSized optimization] --- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- The code in 'toIntegralSized' relies on GHC optimizing away statically --- decidable branches. --- --- If both integral types are statically known, GHC will be able optimize the --- code significantly (for @-O1@ and better). +-- | Monoid under bitwise \'equality\'; defined as @1@ if the corresponding +-- bits match, and @0@ otherwise. -- --- For instance (as of GHC 7.8.1) the following definitions: +-- >>> getIff (Iff 0xab <> Iff 0x12) :: Word8 +-- 70 -- --- > w16_to_i32 = toIntegralSized :: Word16 -> Maybe Int32 --- > --- > i16_to_w16 = toIntegralSized :: Int16 -> Maybe Word16 +-- @since 4.16 +newtype Iff a = Iff { getIff :: a } + deriving newtype ( + Bounded, -- ^ @since 4.16 + Enum, -- ^ @since 4.16 + Bits, -- ^ @since 4.16 + FiniteBits, -- ^ @since 4.16 + Eq -- ^ @since 4.16 + ) + deriving stock ( + Show, -- ^ @since 4.16 + Read -- ^ @since 4.16 + ) + +-- | This constraint is arguably +-- too strong. However, as some types (such as 'Natural') have undefined +-- 'complement', this is the only safe choice. -- --- are translated into the following (simplified) /GHC Core/ language: +-- @since 4.16 +instance (FiniteBits a) => Semigroup (Iff a) where + Iff x <> Iff y = Iff . complement $ (x `xor` y) + +-- | This constraint is arguably +-- too strong. However, as some types (such as 'Natural') have undefined +-- 'complement', this is the only safe choice. -- --- > w16_to_i32 = \x -> Just (case x of _ { W16# x# -> I32# (word2Int# x#) }) --- > --- > i16_to_w16 = \x -> case eta of _ --- > { I16# b1 -> case tagToEnum# (<=# 0 b1) of _ --- > { False -> Nothing --- > ; True -> Just (W16# (narrow16Word# (int2Word# b1))) --- > } --- > } +-- @since 4.16 +instance (FiniteBits a) => Monoid (Iff a) where + mempty = Iff oneBits diff --git a/Data/Bool.hs b/Data/Bool.hs --- a/Data/Bool.hs +++ b/Data/Bool.hs @@ -28,6 +28,9 @@ import GHC.Base +-- $setup +-- >>> import Prelude + -- | Case analysis for the 'Bool' type. @'bool' x y p@ evaluates to @x@ -- when @p@ is 'False', and evaluates to @y@ when @p@ is 'True'. -- diff --git a/Data/Coerce.hs b/Data/Coerce.hs --- a/Data/Coerce.hs +++ b/Data/Coerce.hs @@ -1,6 +1,5 @@ {-# LANGUAGE Unsafe #-} {-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE MagicHash #-} ----------------------------------------------------------------------------- -- | diff --git a/Data/Complex.hs b/Data/Complex.hs --- a/Data/Complex.hs +++ b/Data/Complex.hs @@ -1,6 +1,5 @@ {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE StandaloneDeriving #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE DeriveTraversable #-} diff --git a/Data/Data.hs b/Data/Data.hs --- a/Data/Data.hs +++ b/Data/Data.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE BangPatterns #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleInstances #-} @@ -86,6 +85,7 @@ Fixity(..), -- ** Constructors mkConstr, + mkConstrTag, mkIntegralConstr, mkRealConstr, mkCharConstr, @@ -121,6 +121,7 @@ import Data.Maybe import Data.Monoid import Data.Ord +import Data.List (findIndex) import Data.Typeable import Data.Version( Version(..) ) import GHC.Base hiding (Any, IntRep, FloatRep) @@ -630,10 +631,9 @@ , datarep = AlgRep cs } - -- | Constructs a constructor -mkConstr :: DataType -> String -> [String] -> Fixity -> Constr -mkConstr dt str fields fix = +mkConstrTag :: DataType -> String -> Int -> [String] -> Fixity -> Constr +mkConstrTag dt str idx fields fix = Constr { conrep = AlgConstr idx , constring = str @@ -641,9 +641,15 @@ , confixity = fix , datatype = dt } + +-- | Constructs a constructor +mkConstr :: DataType -> String -> [String] -> Fixity -> Constr +mkConstr dt str fields fix = mkConstrTag dt str idx fields fix where - idx = head [ i | (c,i) <- dataTypeConstrs dt `zip` [1..], - showConstr c == str ] + idx = case findIndex (\c -> showConstr c == str) (dataTypeConstrs dt) of + Just i -> i+1 -- ConTag starts at 1 + Nothing -> errorWithoutStackTrace $ + "Data.Data.mkConstr: couldn't find constructor " ++ str -- | Gets the constructors of an algebraic datatype diff --git a/Data/Dynamic.hs b/Data/Dynamic.hs --- a/Data/Dynamic.hs +++ b/Data/Dynamic.hs @@ -1,9 +1,7 @@ -{-# LANGUAGE Trustworthy #-} -{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE GADTs #-} -{-# LANGUAGE ExplicitForAll #-} -{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE ScopedTypeVariables #-} +{-# LANGUAGE Trustworthy #-} {-# LANGUAGE TypeApplications #-} ----------------------------------------------------------------------------- diff --git a/Data/Either.hs b/Data/Either.hs --- a/Data/Either.hs +++ b/Data/Either.hs @@ -1,8 +1,10 @@ {-# LANGUAGE CPP #-} -{-# LANGUAGE Trustworthy #-} +{-# LANGUAGE DataKinds #-} {-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE StandaloneDeriving #-} -{-# LANGUAGE PolyKinds, DataKinds, TypeFamilies, TypeOperators, UndecidableInstances #-} +{-# LANGUAGE PolyKinds #-} +{-# LANGUAGE Trustworthy #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE UndecidableInstances #-} ----------------------------------------------------------------------------- -- | @@ -36,7 +38,7 @@ -- $setup -- Allow the use of some Prelude functions in doctests. --- >>> import Prelude ( (+), (*), length, putStrLn ) +-- >>> import Prelude {- -- just for testing diff --git a/Data/Functor.hs b/Data/Functor.hs --- a/Data/Functor.hs +++ b/Data/Functor.hs @@ -96,7 +96,7 @@ (<$>) :: Functor f => (a -> b) -> f a -> f b (<$>) = fmap -infixl 4 $> +infixl 1 <&> -- | Flipped version of '<$>'. -- @@ -121,7 +121,7 @@ (<&>) :: Functor f => f a -> (a -> b) -> f b as <&> f = f <$> as -infixl 1 <&> +infixl 4 $> -- | Flipped version of '<$'. -- diff --git a/Data/Functor/Classes.hs b/Data/Functor/Classes.hs --- a/Data/Functor/Classes.hs +++ b/Data/Functor/Classes.hs @@ -70,6 +70,7 @@ import Data.Proxy (Proxy(Proxy)) import Data.List.NonEmpty (NonEmpty(..)) import Data.Ord (Down(Down)) +import Data.Complex (Complex((:+))) import GHC.Tuple (Solo (..)) import GHC.Read (expectP, list, paren) @@ -79,6 +80,11 @@ import Text.Read.Lex (Lexeme(..)) import Text.Show (showListWith) +-- $setup +-- >>> import Prelude +-- >>> import Data.Complex (Complex (..)) +-- >>> import Text.ParserCombinators.ReadPrec + -- | Lifting of the 'Eq' class to unary type constructors. -- -- @since 4.9.0.0 @@ -475,6 +481,7 @@ liftShowsPrec shwP shwL p (a :| as) = showParen (p > 5) $ shwP 6 a . showString " :| " . shwL as + -- | @since 4.9.0.0 instance Eq2 (,) where liftEq2 e1 e2 (x1, y1) (x2, y2) = e1 x1 x2 && e2 y1 y2 @@ -538,6 +545,149 @@ instance (Show a) => Show1 ((,) a) where liftShowsPrec = liftShowsPrec2 showsPrec showList + +-- | @since 4.16.0.0 +-- +-- >>> eq2 ('x', True, "str") ('x', True, "str") +-- True +-- +instance Eq a => Eq2 ((,,) a) where + liftEq2 e1 e2 (u1, x1, y1) (v1, x2, y2) = + u1 == v1 && + e1 x1 x2 && e2 y1 y2 + +-- | @since 4.16.0.0 +-- +-- >>> compare2 ('x', True, "aaa") ('x', True, "zzz") +-- LT +instance Ord a => Ord2 ((,,) a) where + liftCompare2 comp1 comp2 (u1, x1, y1) (v1, x2, y2) = + compare u1 v1 `mappend` + comp1 x1 x2 `mappend` comp2 y1 y2 + +-- | @since 4.16.0.0 +-- +-- >>> readPrec_to_S readPrec2 0 "('x', True, 2)" :: [((Char, Bool, Int), String)] +-- [(('x',True,2),"")] +-- +instance Read a => Read2 ((,,) a) where + liftReadPrec2 rp1 _ rp2 _ = parens $ paren $ do + x1 <- readPrec + expectP (Punc ",") + y1 <- rp1 + expectP (Punc ",") + y2 <- rp2 + return (x1,y1,y2) + + liftReadListPrec2 = liftReadListPrec2Default + liftReadList2 = liftReadList2Default + +-- | @since 4.16.0.0 +-- +-- >>> showsPrec2 0 ('x', True, 2 :: Int) "" +-- "('x',True,2)" +-- +instance Show a => Show2 ((,,) a) where + liftShowsPrec2 sp1 _ sp2 _ _ (x1,y1,y2) + = showChar '(' . showsPrec 0 x1 + . showChar ',' . sp1 0 y1 + . showChar ',' . sp2 0 y2 + . showChar ')' + +-- | @since 4.16.0.0 +instance (Eq a, Eq b) => Eq1 ((,,) a b) where + liftEq = liftEq2 (==) + +-- | @since 4.16.0.0 +instance (Ord a, Ord b) => Ord1 ((,,) a b) where + liftCompare = liftCompare2 compare + +-- | @since 4.16.0.0 +instance (Read a, Read b) => Read1 ((,,) a b) where + liftReadPrec = liftReadPrec2 readPrec readListPrec + + liftReadListPrec = liftReadListPrecDefault + liftReadList = liftReadListDefault + +-- | @since 4.16.0.0 +instance (Show a, Show b) => Show1 ((,,) a b) where + liftShowsPrec = liftShowsPrec2 showsPrec showList + + +-- | @since 4.16.0.0 +-- +-- >>> eq2 ('x', True, "str", 2) ('x', True, "str", 2 :: Int) +-- True +-- +instance (Eq a, Eq b) => Eq2 ((,,,) a b) where + liftEq2 e1 e2 (u1, u2, x1, y1) (v1, v2, x2, y2) = + u1 == v1 && + u2 == v2 && + e1 x1 x2 && e2 y1 y2 + +-- | @since 4.16.0.0 +-- +-- >>> compare2 ('x', True, "str", 2) ('x', True, "str", 3 :: Int) +-- LT +-- +instance (Ord a, Ord b) => Ord2 ((,,,) a b) where + liftCompare2 comp1 comp2 (u1, u2, x1, y1) (v1, v2, x2, y2) = + compare u1 v1 `mappend` + compare u2 v2 `mappend` + comp1 x1 x2 `mappend` comp2 y1 y2 + +-- | @since 4.16.0.0 +-- +-- >>> readPrec_to_S readPrec2 0 "('x', True, 2, 4.5)" :: [((Char, Bool, Int, Double), String)] +-- [(('x',True,2,4.5),"")] +-- +instance (Read a, Read b) => Read2 ((,,,) a b) where + liftReadPrec2 rp1 _ rp2 _ = parens $ paren $ do + x1 <- readPrec + expectP (Punc ",") + x2 <- readPrec + expectP (Punc ",") + y1 <- rp1 + expectP (Punc ",") + y2 <- rp2 + return (x1,x2,y1,y2) + + liftReadListPrec2 = liftReadListPrec2Default + liftReadList2 = liftReadList2Default + +-- | @since 4.16.0.0 +-- +-- >>> showsPrec2 0 ('x', True, 2 :: Int, 4.5 :: Double) "" +-- "('x',True,2,4.5)" +-- +instance (Show a, Show b) => Show2 ((,,,) a b) where + liftShowsPrec2 sp1 _ sp2 _ _ (x1,x2,y1,y2) + = showChar '(' . showsPrec 0 x1 + . showChar ',' . showsPrec 0 x2 + . showChar ',' . sp1 0 y1 + . showChar ',' . sp2 0 y2 + . showChar ')' + +-- | @since 4.16.0.0 +instance (Eq a, Eq b, Eq c) => Eq1 ((,,,) a b c) where + liftEq = liftEq2 (==) + +-- | @since 4.16.0.0 +instance (Ord a, Ord b, Ord c) => Ord1 ((,,,) a b c) where + liftCompare = liftCompare2 compare + +-- | @since 4.16.0.0 +instance (Read a, Read b, Read c) => Read1 ((,,,) a b c) where + liftReadPrec = liftReadPrec2 readPrec readListPrec + + liftReadListPrec = liftReadListPrecDefault + liftReadList = liftReadListDefault + +-- | @since 4.16.0.0 +instance (Show a, Show b, Show c) => Show1 ((,,,) a b c) where + liftShowsPrec = liftShowsPrec2 showsPrec showList + + -- | @since 4.9.0.0 instance Eq2 Either where liftEq2 e1 _ (Left x) (Left y) = e1 x y @@ -681,6 +831,44 @@ instance Show1 Down where liftShowsPrec sp _ d (Down x) = showsUnaryWith sp "Down" d x +-- | @since 4.16.0.0 +-- +-- >>> eq1 (1 :+ 2) (1 :+ 2) +-- True +-- +-- >>> eq1 (1 :+ 2) (1 :+ 3) +-- False +-- +instance Eq1 Complex where + liftEq eq (x :+ y) (u :+ v) = eq x u && eq y v + +-- | @since 4.16.0.0 +-- +-- >>> readPrec_to_S readPrec1 0 "(2 % 3) :+ (3 % 4)" :: [(Complex Rational, String)] +-- [(2 % 3 :+ 3 % 4,"")] +-- +instance Read1 Complex where + liftReadPrec rp _ = parens $ prec complexPrec $ do + x <- step rp + expectP (Symbol ":+") + y <- step rp + return (x :+ y) + where + complexPrec = 6 + + liftReadListPrec = liftReadListPrecDefault + liftReadList = liftReadListDefault + +-- | @since 4.16.0.0 +-- +-- >>> showsPrec1 0 (2 :+ 3) "" +-- "2 :+ 3" +-- +instance Show1 Complex where + liftShowsPrec sp _ d (x :+ y) = showParen (d > complexPrec) $ + sp (complexPrec+1) x . showString " :+ " . sp (complexPrec+1) y + where + complexPrec = 6 -- Building blocks diff --git a/Data/Functor/Compose.hs b/Data/Functor/Compose.hs --- a/Data/Functor/Compose.hs +++ b/Data/Functor/Compose.hs @@ -1,10 +1,11 @@ {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE GADTs #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE PolyKinds #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE TypeOperators #-} + ----------------------------------------------------------------------------- -- | -- Module : Data.Functor.Compose @@ -42,6 +43,8 @@ deriving ( Data -- ^ @since 4.9.0.0 , Generic -- ^ @since 4.9.0.0 , Generic1 -- ^ @since 4.9.0.0 + , Semigroup -- ^ @since 4.16.0.0 + , Monoid -- ^ @since 4.16.0.0 ) -- Instances of lifted Prelude classes diff --git a/Data/Functor/Contravariant.hs b/Data/Functor/Contravariant.hs --- a/Data/Functor/Contravariant.hs +++ b/Data/Functor/Contravariant.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE DerivingStrategies #-} {-# LANGUAGE DerivingVia #-} {-# LANGUAGE EmptyCase #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} diff --git a/Data/Functor/Identity.hs b/Data/Functor/Identity.hs --- a/Data/Functor/Identity.hs +++ b/Data/Functor/Identity.hs @@ -1,6 +1,4 @@ -{-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE DeriveTraversable #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE Trustworthy #-} diff --git a/Data/Functor/Product.hs b/Data/Functor/Product.hs --- a/Data/Functor/Product.hs +++ b/Data/Functor/Product.hs @@ -124,3 +124,11 @@ -- | @since 4.9.0.0 instance (MonadZip f, MonadZip g) => MonadZip (Product f g) where mzipWith f (Pair x1 y1) (Pair x2 y2) = Pair (mzipWith f x1 x2) (mzipWith f y1 y2) + +-- | @since 4.16.0.0 +instance (Semigroup (f a), Semigroup (g a)) => Semigroup (Product f g a) where + Pair x1 y1 <> Pair x2 y2 = Pair (x1 <> x2) (y1 <> y2) + +-- | @since 4.16.0.0 +instance (Monoid (f a), Monoid (g a)) => Monoid (Product f g a) where + mempty = Pair mempty mempty diff --git a/Data/IORef.hs b/Data/IORef.hs --- a/Data/IORef.hs +++ b/Data/IORef.hs @@ -1,7 +1,7 @@ +{-# LANGUAGE MagicHash #-} +{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples #-} -{-# LANGUAGE BangPatterns #-} - +{-# LANGUAGE UnboxedTuples #-} ----------------------------------------------------------------------------- -- | -- Module : Data.IORef @@ -17,7 +17,7 @@ ----------------------------------------------------------------------------- module Data.IORef - ( + ( -- * IORefs IORef, -- abstract, instance of: Eq, Typeable newIORef, diff --git a/Data/List/NonEmpty.hs b/Data/List/NonEmpty.hs --- a/Data/List/NonEmpty.hs +++ b/Data/List/NonEmpty.hs @@ -1,5 +1,3 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE Trustworthy #-} -- can't use Safe due to IsList instance {-# LANGUAGE TypeFamilies #-} @@ -50,6 +48,9 @@ , reverse -- :: NonEmpty a -> NonEmpty a , inits -- :: Foldable f => f a -> NonEmpty a , tails -- :: Foldable f => f a -> NonEmpty a + , append -- :: NonEmpty a -> NonEmpty a -> NonEmpty a + , appendList -- :: NonEmpty a -> [a] -> NonEmpty a + , prependList -- :: [a] -> NonEmpty a -> NonEmpty a -- * Building streams , iterate -- :: (a -> a) -> a -> NonEmpty a , repeat -- :: a -> NonEmpty a @@ -112,6 +113,9 @@ infixr 5 <| +-- $setup +-- >>> import Prelude (negate) + -- | Number of elements in 'NonEmpty' list. length :: NonEmpty a -> Int length (_ :| xs) = 1 + Prelude.length xs @@ -155,11 +159,11 @@ -- | Extract the first element of the stream. head :: NonEmpty a -> a -head ~(a :| _) = a +head (a :| _) = a -- | Extract the possibly-empty tail of the stream. tail :: NonEmpty a -> [a] -tail ~(_ :| as) = as +tail (_ :| as) = as -- | Extract the last element of the stream. last :: NonEmpty a -> a @@ -450,3 +454,38 @@ -- > sortBy . comparing sortWith :: Ord o => (a -> o) -> NonEmpty a -> NonEmpty a sortWith = sortBy . comparing + +-- | A monomorphic version of '<>' for 'NonEmpty'. +-- +-- >>> append (1 :| []) (2 :| [3]) +-- 1 :| [2,3] +-- +-- @since 4.16 +append :: NonEmpty a -> NonEmpty a -> NonEmpty a +append = (<>) + +-- | Attach a list at the end of a 'NonEmpty'. +-- +-- >>> appendList (1 :| [2,3]) [] +-- 1 :| [2,3] +-- +-- >>> appendList (1 :| [2,3]) [4,5] +-- 1 :| [2,3,4,5] +-- +-- @since 4.16 +appendList :: NonEmpty a -> [a] -> NonEmpty a +appendList (x :| xs) ys = x :| xs <> ys + +-- | Attach a list at the beginning of a 'NonEmpty'. +-- +-- >>> prependList [] (1 :| [2,3]) +-- 1 :| [2,3] +-- +-- >>> prependList [negate 1, 0] (1 :| [2, 3]) +-- -1 :| [0,1,2,3] +-- +-- @since 4.16 +prependList :: [a] -> NonEmpty a -> NonEmpty a +prependList ls ne = case ls of + [] -> ne + (x : xs) -> x :| xs <> toList ne diff --git a/Data/Maybe.hs b/Data/Maybe.hs --- a/Data/Maybe.hs +++ b/Data/Maybe.hs @@ -36,7 +36,7 @@ -- $setup -- Allow the use of some Prelude functions in doctests. --- >>> import Prelude ( (*), odd, show, sum ) +-- >>> import Prelude -- --------------------------------------------------------------------------- -- Functions over Maybe @@ -143,6 +143,7 @@ -- -- >>> 2 * (fromJust Nothing) -- *** Exception: Maybe.fromJust: Nothing +-- ... -- fromJust :: HasCallStack => Maybe a -> a fromJust Nothing = error "Maybe.fromJust: Nothing" -- yuck @@ -256,8 +257,8 @@ -- >>> catMaybes $ [readMaybe x :: Maybe Int | x <- ["1", "Foo", "3"] ] -- [1,3] -- -catMaybes :: [Maybe a] -> [a] -catMaybes ls = [x | Just x <- ls] +catMaybes :: [Maybe a] -> [a] +catMaybes = mapMaybe id -- use mapMaybe to allow fusion (#18574) -- | The 'mapMaybe' function is a version of 'map' which can throw -- out elements. In particular, the functional argument returns diff --git a/Data/Monoid.hs b/Data/Monoid.hs --- a/Data/Monoid.hs +++ b/Data/Monoid.hs @@ -30,7 +30,7 @@ -- The 'Sum' monoid is defined by the numerical addition operator and `0` as neutral element: -- -- >>> mempty :: Sum Int --- Sum 0 +-- Sum {getSum = 0} -- >>> Sum 1 <> Sum 2 <> Sum 3 <> Sum 4 :: Sum Int -- Sum {getSum = 10} -- diff --git a/Data/OldList.hs b/Data/OldList.hs --- a/Data/OldList.hs +++ b/Data/OldList.hs @@ -547,13 +547,57 @@ -- -- >>> transpose [[10,11],[20],[],[30,31,32]] -- [[10,20,30],[11,31],[32]] -transpose :: [[a]] -> [[a]] -transpose [] = [] -transpose ([] : xss) = transpose xss -transpose ((x:xs) : xss) = (x : [h | (h:_) <- xss]) : transpose (xs : [ t | (_:t) <- xss]) +transpose :: [[a]] -> [[a]] +transpose [] = [] +transpose ([] : xss) = transpose xss +transpose ((x : xs) : xss) = combine x hds xs tls + where + -- We tie the calculations of heads and tails together + -- to prevent heads from leaking into tails and vice versa. + -- unzip makes the selector thunk arrangements we need to + -- ensure everything gets cleaned up properly. + (hds, tls) = unzip [(hd, tl) | hd : tl <- xss] + combine y h ys t = (y:h) : transpose (ys:t) + {-# NOINLINE combine #-} + {- Implementation note: + If the bottom part of the function was written as such: + ``` + transpose ((x : xs) : xss) = (x:hds) : transpose (xs:tls) + where + (hds,tls) = hdstls + hdstls = unzip [(hd, tl) | hd : tl <- xss] + {-# NOINLINE hdstls #-} + ``` + Here are the steps that would take place: --- | The 'partition' function takes a predicate a list and returns + 1. We allocate a thunk, `hdstls`, representing the result of unzipping. + 2. We allocate selector thunks, `hds` and `tls`, that deconstruct `hdstls`. + 3. Install `hds` as the tail of the result head and pass `xs:tls` to + the recursive call in the result tail. + + Once optimised, this code would amount to: + + ``` + transpose ((x : xs) : xss) = (x:hds) : (let tls = snd hdstls in transpose (xs:tls)) + where + hds = fst hdstls + hdstls = unzip [(hd, tl) | hd : tl <- xss] + {-# NOINLINE hdstls #-} + ``` + + In particular, GHC does not produce the `tls` selector thunk immediately; + rather, it waits to do so until the tail of the result is actually demanded. + So when `hds` is demanded, that does not resolve `snd hdstls`; the tail of the + result keeps `hdstls` alive. + + By writing `combine` and making it NOINLINE, we prevent GHC from delaying + the selector thunk allocation, requiring that `hds` and `tls` are actually + allocated to be passed to `combine`. + -} + + +-- | The 'partition' function takes a predicate and a list, and returns -- the pair of lists of elements which do and do not satisfy the -- predicate, respectively; i.e., -- diff --git a/Data/Ord.hs b/Data/Ord.hs --- a/Data/Ord.hs +++ b/Data/Ord.hs @@ -21,6 +21,7 @@ Ordering(..), Down(..), comparing, + clamp, ) where import Data.Bits (Bits, FiniteBits) @@ -34,6 +35,9 @@ import GHC.Real (Fractional, Real, RealFrac) import GHC.Show +-- $setup +-- >>> import Prelude + -- | -- > comparing p x y = compare (p x) (p y) -- @@ -43,6 +47,25 @@ -- > ... sortBy (comparing fst) ... comparing :: (Ord a) => (b -> a) -> b -> b -> Ordering comparing p x y = compare (p x) (p y) + +-- | +-- > clamp (low, high) a = min high (max a low) +-- +-- Function for ensursing the value @a@ is within the inclusive bounds given by +-- @low@ and @high@. If it is, @a@ is returned unchanged. The result +-- is otherwise @low@ if @a <= low@, or @high@ if @high <= a@. +-- +-- When clamp is used at Double and Float, it has NaN propagating semantics in +-- its second argument. That is, @clamp (l,h) NaN = NaN@, but @clamp (NaN, NaN) +-- x = x@. +-- +-- >>> clamp (0, 10) 2 +-- 2 +-- +-- >>> clamp ('a', 'm') 'x' +-- 'm' +clamp :: (Ord a) => (a, a) -> a -> a +clamp (low, high) a = min high (max a low) -- | The 'Down' type allows you to reverse sort order conveniently. A value of type -- @'Down' a@ contains a value of type @a@ (represented as @'Down' a@). diff --git a/Data/STRef.hs b/Data/STRef.hs --- a/Data/STRef.hs +++ b/Data/STRef.hs @@ -27,6 +27,10 @@ import GHC.ST import GHC.STRef +-- $setup +-- >>> import Prelude +-- >>> import Control.Monad.ST + -- | Mutate the contents of an 'STRef'. -- -- >>> :{ diff --git a/Data/Semigroup.hs b/Data/Semigroup.hs --- a/Data/Semigroup.hs +++ b/Data/Semigroup.hs @@ -1,13 +1,10 @@ {-# LANGUAGE CPP #-} -{-# LANGUAGE DefaultSignatures #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE PolyKinds #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE TypeOperators #-} ----------------------------------------------------------------------------- -- | @@ -23,7 +20,7 @@ -- that lets you combine any two values of type @a@ into one. Where being -- associative means that the following must always hold: -- --- >>> (a <> b) <> c == a <> (b <> c) +-- prop> (a <> b) <> c == a <> (b <> c) -- -- ==== __Examples__ -- @@ -39,9 +36,10 @@ -- can never be empty: -- -- >>> (1 :| []) --- 1 :| [] -- equivalent to [1] but guaranteed to be non-empty +-- 1 :| [] -- equivalent to [1] but guaranteed to be non-empty. +-- -- >>> (1 :| [2, 3, 4]) --- 1 :| [2,3,4] -- equivalent to [1,2,3,4] but guaranteed to be non-empty +-- 1 :| [2,3,4] -- equivalent to [1,2,3,4] but guaranteed to be non-empty. -- -- Equipped with this guaranteed to be non-empty data structure, we can combine -- values using 'sconcat' and a 'Semigroup' of our choosing. We can try the 'Min' @@ -91,9 +89,6 @@ , Any(..) , Sum(..) , Product(..) - -- * A better monoid for Maybe - , Option(..) - , option -- * Difference lists of a semigroup , diff , cycle1 @@ -110,7 +105,6 @@ import Data.Semigroup.Internal import Control.Applicative -import Control.Monad import Control.Monad.Fix import Data.Bifoldable import Data.Bifunctor @@ -119,6 +113,10 @@ import Data.Data import GHC.Generics +-- $setup +-- >>> import Prelude +-- >>> import Data.List.NonEmpty (NonEmpty (..)) + -- | A generalization of 'Data.List.cycle' to an arbitrary 'Semigroup'. -- May fail to terminate for some values in some semigroups. cycle1 :: Semigroup m => m -> m @@ -509,87 +507,3 @@ mtimesDefault n x | n == 0 = mempty | otherwise = unwrapMonoid (stimes n (WrapMonoid x)) - -{-# DEPRECATED Option, option "will be removed in GHC 9.2; use 'Maybe' instead." #-} - --- | 'Option' is effectively 'Maybe' with a better instance of --- 'Monoid', built off of an underlying 'Semigroup' instead of an --- underlying 'Monoid'. --- --- Ideally, this type would not exist at all and we would just fix the --- 'Monoid' instance of 'Maybe'. --- --- In GHC 8.4 and higher, the 'Monoid' instance for 'Maybe' has been --- corrected to lift a 'Semigroup' instance instead of a 'Monoid' --- instance. Consequently, this type is no longer useful. -newtype Option a = Option { getOption :: Maybe a } - deriving ( Eq -- ^ @since 4.9.0.0 - , Ord -- ^ @since 4.9.0.0 - , Show -- ^ @since 4.9.0.0 - , Read -- ^ @since 4.9.0.0 - , Data -- ^ @since 4.9.0.0 - , Generic -- ^ @since 4.9.0.0 - , Generic1 -- ^ @since 4.9.0.0 - ) - --- | @since 4.9.0.0 -instance Functor Option where - fmap f (Option a) = Option (fmap f a) - --- | @since 4.9.0.0 -instance Applicative Option where - pure a = Option (Just a) - Option a <*> Option b = Option (a <*> b) - liftA2 f (Option x) (Option y) = Option (liftA2 f x y) - - Option Nothing *> _ = Option Nothing - _ *> b = b - --- | @since 4.9.0.0 -instance Monad Option where - Option (Just a) >>= k = k a - _ >>= _ = Option Nothing - (>>) = (*>) - --- | @since 4.9.0.0 -instance Alternative Option where - empty = Option Nothing - Option Nothing <|> b = b - a <|> _ = a - --- | @since 4.9.0.0 -instance MonadPlus Option - --- | @since 4.9.0.0 -instance MonadFix Option where - mfix f = Option (mfix (getOption . f)) - --- | @since 4.9.0.0 -instance Foldable Option where - foldMap f (Option (Just m)) = f m - foldMap _ (Option Nothing) = mempty - --- | @since 4.9.0.0 -instance Traversable Option where - traverse f (Option (Just a)) = Option . Just <$> f a - traverse _ (Option Nothing) = pure (Option Nothing) - --- | Fold an 'Option' case-wise, just like 'maybe'. -option :: b -> (a -> b) -> Option a -> b -option n j (Option m) = maybe n j m - --- | @since 4.9.0.0 -instance Semigroup a => Semigroup (Option a) where - (<>) = coerce ((<>) :: Maybe a -> Maybe a -> Maybe a) -#if !defined(__HADDOCK_VERSION__) - -- workaround https://github.com/haskell/haddock/issues/680 - stimes _ (Option Nothing) = Option Nothing - stimes n (Option (Just a)) = case compare n 0 of - LT -> errorWithoutStackTrace "stimes: Option, negative multiplier" - EQ -> Option Nothing - GT -> Option (Just (stimes n a)) -#endif - --- | @since 4.9.0.0 -instance Semigroup a => Monoid (Option a) where - mempty = Option Nothing diff --git a/Data/String.hs b/Data/String.hs --- a/Data/String.hs +++ b/Data/String.hs @@ -1,6 +1,7 @@ {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE PolyKinds #-} {-# LANGUAGE StandaloneDeriving #-} {-# LANGUAGE Trustworthy #-} {-# LANGUAGE TypeFamilies #-} @@ -87,7 +88,7 @@ fromString xs = xs -- | @since 4.9.0.0 -deriving instance IsString a => IsString (Const a b) +deriving instance IsString a => IsString (Const a (b :: k)) -- | @since 4.9.0.0 deriving instance IsString a => IsString (Identity a) diff --git a/Data/Traversable.hs b/Data/Traversable.hs --- a/Data/Traversable.hs +++ b/Data/Traversable.hs @@ -1314,9 +1314,7 @@ -- -- #ziplist# -- As a warm-up for looking at the 'ZipList' 'Applicative' functor, we'll first --- look at a simpler analogue. First define a fixed width 2-element @Vec2@ --- type, whose 'Applicative' instance combines a pair of functions with a pair of --- values by applying each function to the corresponding value slot: +-- look at a simpler fixed-width analogue. -- -- > data Vec2 a = Vec2 a a -- > instance Functor Vec2 where @@ -1329,9 +1327,7 @@ -- > foldMap f (Vec2 a b) = f a <> f b -- > instance Traversable Vec2 where -- > traverse f (Vec2 a b) = Vec2 <$> f a <*> f b --- --- Along with a similar definition for fixed width 3-element vectors: --- +-- > -- > data Vec3 a = Vec3 a a a -- > instance Functor Vec3 where -- > fmap f (Vec3 x y z) = Vec3 (f x) (f y) (f z) @@ -1342,11 +1338,7 @@ -- > foldr f z (Vec3 a b c) = f a (f b (f c z)) -- > foldMap f (Vec3 a b c) = f a <> f b <> f c -- > instance Traversable Vec3 where --- > traverse f (Vec3 a b c) = Vec3 <$> f a <*> f b <*> f c --- --- With the above definitions, @'sequenceA'@ (same as @'traverse' 'id'@) acts --- as a /matrix transpose/ operation on @Vec2 (Vec3 Int)@ producing a --- corresponding @Vec3 (Vec2 Int)@: +-- > traverse f (Vec3 a b) = Vec3 <$> f a <*> f b <*> f c -- -- Let __@t = Vec2 (Vec3 1 2 3) (Vec3 4 5 6)@__ be our 'Traversable' structure, -- and __@g = id :: Vec3 Int -> Vec3 Int@__ be the function used to traverse @@ -1355,10 +1347,9 @@ -- > traverse g t = Vec2 <$> (Vec3 1 2 3) <*> (Vec3 4 5 6) -- > = Vec3 (Vec2 1 4) (Vec2 2 5) (Vec2 3 6) -- --- This construction can be generalised from fixed width vectors to variable --- length lists via 'Control.Applicative.ZipList'. This gives a transpose --- operation that works well for lists of equal length. If some of the lists --- are longer than others, they're truncated to the longest common length. +-- And since __@traverse id@__ is just 'sequenceA', we see that the effect of +-- 'sequenceA' on the structure __@t@__ is to perform a matrix /transpose/. +-- Below we look at an analogue of the above for 'Control.Applicative.ZipList'. -- -- We've already looked at the standard 'Applicative' instance of @List@ for -- which applying __@m@__ functions __@f1, f2, ..., fm@__ to __@n@__ input diff --git a/Data/Tuple.hs b/Data/Tuple.hs --- a/Data/Tuple.hs +++ b/Data/Tuple.hs @@ -16,7 +16,8 @@ ----------------------------------------------------------------------------- module Data.Tuple - ( fst + ( Solo (..) + , fst , snd , curry , uncurry @@ -24,6 +25,7 @@ ) where import GHC.Base () -- Note [Depend on GHC.Tuple] +import GHC.Tuple (Solo (..)) default () -- Double isn't available yet diff --git a/Data/Type/Bool.hs b/Data/Type/Bool.hs --- a/Data/Type/Bool.hs +++ b/Data/Type/Bool.hs @@ -1,5 +1,9 @@ -{-# LANGUAGE TypeFamilyDependencies, Safe, PolyKinds #-} -{-# LANGUAGE TypeFamilies, TypeOperators, DataKinds, NoImplicitPrelude #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE PolyKinds #-} +{-# LANGUAGE Safe #-} +{-# LANGUAGE TypeFamilyDependencies #-} +{-# LANGUAGE TypeOperators #-} ----------------------------------------------------------------------------- -- | diff --git a/Data/Type/Coercion.hs b/Data/Type/Coercion.hs --- a/Data/Type/Coercion.hs +++ b/Data/Type/Coercion.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE TypeOperators #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE ScopedTypeVariables #-} @@ -8,7 +7,6 @@ {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE PolyKinds #-} {-# LANGUAGE RankNTypes #-} -{-# LANGUAGE MagicHash #-} ----------------------------------------------------------------------------- -- | diff --git a/Data/Type/Equality.hs b/Data/Type/Equality.hs --- a/Data/Type/Equality.hs +++ b/Data/Type/Equality.hs @@ -1,19 +1,16 @@ -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE TypeOperators #-} -{-# LANGUAGE GADTs #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE StandaloneDeriving #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE RankNTypes #-} -{-# LANGUAGE TypeFamilies #-} -{-# LANGUAGE UndecidableInstances #-} -{-# LANGUAGE ExplicitNamespaces #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE FunctionalDependencies #-} -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE PolyKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE GADTs #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE PolyKinds #-} +{-# LANGUAGE RankNTypes #-} +{-# LANGUAGE StandaloneDeriving #-} {-# LANGUAGE StandaloneKindSignatures #-} -{-# LANGUAGE Trustworthy #-} +{-# LANGUAGE Trustworthy #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} +{-# LANGUAGE UndecidableInstances #-} ----------------------------------------------------------------------------- -- | diff --git a/Data/Type/Ord.hs b/Data/Type/Ord.hs new file mode 100644 --- /dev/null +++ b/Data/Type/Ord.hs @@ -0,0 +1,125 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE GADTs #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE PolyKinds #-} +{-# LANGUAGE Safe #-} +{-# LANGUAGE StandaloneDeriving #-} +{-# LANGUAGE StandaloneKindSignatures #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} +{-# LANGUAGE UndecidableInstances #-} + +----------------------------------------------------------------------------- +-- | +-- Module : Data.Type.Ord +-- License : BSD-style (see the LICENSE file in the distribution) +-- +-- Maintainer : libraries@haskell.org +-- Stability : experimental +-- Portability : not portable +-- +-- Basic operations on type-level Orderings. +-- +-- @since 4.16.0.0 +----------------------------------------------------------------------------- + +module Data.Type.Ord ( + Compare, OrderingI(..) + , type (<=), type (<=?) + , type (>=), type (>=?) + , type (>), type (>?) + , type (<), type ( k -> Ordering +type family Compare a b + +type instance Compare (a :: Natural) b = CmpNat a b +type instance Compare (a :: Symbol) b = CmpSymbol a b +type instance Compare (a :: Char) b = CmpChar a b + +-- | Ordering data type for type literals that provides proof of their ordering. +-- @since 4.16.0.0 +data OrderingI a b where + LTI :: Compare a b ~ 'LT => OrderingI a b + EQI :: Compare a a ~ 'EQ => OrderingI a a + GTI :: Compare a b ~ 'GT => OrderingI a b + +deriving instance Show (OrderingI a b) +deriving instance Eq (OrderingI a b) + + +infix 4 <=?, <=, >=?, >=, ?, > + +-- | Comparison (<=) of comparable types, as a constraint. +-- @since 4.16.0.0 +type x <= y = (x <=? y) ~ 'True + +-- | Comparison (>=) of comparable types, as a constraint. +-- @since 4.16.0.0 +type x >= y = (x >=? y) ~ 'True + +-- | Comparison (<) of comparable types, as a constraint. +-- @since 4.16.0.0 +type x < y = (x >? y) ~ 'True + +-- | Comparison (>) of comparable types, as a constraint. +-- @since 4.16.0.0 +type x > y = (x >? y) ~ 'True + + +-- | Comparison (<=) of comparable types, as a function. +-- @since 4.16.0.0 +type (<=?) :: k -> k -> Bool +type m <=? n = OrdCond (Compare m n) 'True 'True 'False + +-- | Comparison (>=) of comparable types, as a function. +-- @since 4.16.0.0 +type (>=?) :: k -> k -> Bool +type m >=? n = OrdCond (Compare m n) 'False 'True 'True + +-- | Comparison (<) of comparable types, as a function. +-- @since 4.16.0.0 +type ( k -> Bool +type m ) of comparable types, as a function. +-- @since 4.16.0.0 +type (>?) :: k -> k -> Bool +type m >? n = OrdCond (Compare m n) 'False 'False 'True + + +-- | Maximum between two comparable types. +-- @since 4.16.0.0 +type Max :: k -> k -> k +type Max m n = OrdCond (Compare m n) n n m + +-- | Minimum between two comparable types. +-- @since 4.16.0.0 +type Min :: k -> k -> k +type Min m n = OrdCond (Compare m n) m m n + + +-- | A case statement on `Ordering`. +-- `Ordering c l e g` is `l` when `c ~ LT`, `e` when `c ~ EQ`, and `g` when +-- `c ~ GT`. +-- @since 4.16.0.0 +type OrdCond :: Ordering -> k -> k -> k -> k +type family OrdCond o lt eq gt where + OrdCond 'LT lt eq gt = lt + OrdCond 'EQ lt eq gt = eq + OrdCond 'GT lt eq gt = gt diff --git a/Data/Typeable.hs b/Data/Typeable.hs --- a/Data/Typeable.hs +++ b/Data/Typeable.hs @@ -1,10 +1,9 @@ -{-# LANGUAGE Trustworthy #-} +{-# LANGUAGE ConstraintKinds #-} {-# LANGUAGE GADTs #-} {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE PolyKinds #-} {-# LANGUAGE ScopedTypeVariables #-} -{-# LANGUAGE ConstraintKinds #-} -{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE Trustworthy #-} {-# LANGUAGE TypeOperators #-} ----------------------------------------------------------------------------- @@ -90,6 +89,8 @@ -- * For backwards compatibility , typeOf1, typeOf2, typeOf3, typeOf4, typeOf5, typeOf6, typeOf7 + -- Jank + , I.trLiftedRep ) where import qualified Data.Typeable.Internal as I diff --git a/Data/Typeable/Internal.hs b/Data/Typeable/Internal.hs --- a/Data/Typeable/Internal.hs +++ b/Data/Typeable/Internal.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE UnliftedFFITypes #-} {-# LANGUAGE AllowAmbiguousTypes #-} {-# LANGUAGE Trustworthy #-} {-# LANGUAGE ViewPatterns #-} @@ -79,7 +80,10 @@ -- | These are for internal use only mkTrType, mkTrCon, mkTrApp, mkTrAppChecked, mkTrFun, mkTyCon, mkTyCon#, - typeSymbolTypeRep, typeNatTypeRep, + typeSymbolTypeRep, typeNatTypeRep, typeCharTypeRep, + + -- * For internal use + trLiftedRep ) where import GHC.Prim ( FUN ) @@ -90,8 +94,8 @@ import GHC.List ( splitAt, foldl', elem ) import GHC.Word import GHC.Show -import GHC.TypeLits ( KnownSymbol, symbolVal', AppendSymbol ) -import GHC.TypeNats ( KnownNat, natVal' ) +import GHC.TypeLits ( KnownChar, charVal', KnownSymbol, symbolVal', AppendSymbol ) +import GHC.TypeNats ( KnownNat, Nat, natVal' ) import Unsafe.Coerce ( unsafeCoerce ) import GHC.Fingerprint.Type @@ -375,7 +379,12 @@ -- constructor, so we need to build it here. fpTYPELiftedRep :: Fingerprint fpTYPELiftedRep = fingerprintFingerprints - [tyConFingerprint tyConTYPE, typeRepFingerprint trLiftedRep] + [ tyConFingerprint tyConTYPE + , fingerprintFingerprints + [ tyConFingerprint tyCon'BoxedRep + , tyConFingerprint tyCon'Lifted + ] + ] -- There is absolutely nothing to gain and everything to lose -- by inlining the worker. The wrapper should inline anyway. {-# NOINLINE fpTYPELiftedRep #-} @@ -383,7 +392,7 @@ trTYPE :: TypeRep TYPE trTYPE = typeRep -trLiftedRep :: TypeRep 'LiftedRep +trLiftedRep :: TypeRep ('BoxedRep 'Lifted) trLiftedRep = typeRep trMany :: TypeRep 'Many @@ -623,7 +632,7 @@ = SomeTypeRep $ mkTrApp (unsafeCoerceRep $ go f) (unsafeCoerceRep $ go a) go (KindRepFun a b) = SomeTypeRep $ mkTrFun trMany (unsafeCoerceRep $ go a) (unsafeCoerceRep $ go b) - go (KindRepTYPE LiftedRep) = SomeTypeRep TrType + go (KindRepTYPE (BoxedRep Lifted)) = SomeTypeRep TrType go (KindRepTYPE r) = unkindedTypeRep $ tYPE `kApp` runtimeRepTypeRep r go (KindRepTypeLitS sort s) = mkTypeLitFromString sort (unpackCStringUtf8# s) @@ -662,8 +671,9 @@ runtimeRepTypeRep :: RuntimeRep -> SomeKindedTypeRep RuntimeRep runtimeRepTypeRep r = case r of - LiftedRep -> rep @'LiftedRep - UnliftedRep -> rep @'UnliftedRep + BoxedRep Lifted -> SomeKindedTypeRep trLiftedRep + BoxedRep v -> kindedTypeRep @_ @'BoxedRep + `kApp` levityTypeRep v VecRep c e -> kindedTypeRep @_ @'VecRep `kApp` vecCountTypeRep c `kApp` vecElemTypeRep e @@ -688,6 +698,15 @@ rep :: forall (a :: RuntimeRep). Typeable a => SomeKindedTypeRep RuntimeRep rep = kindedTypeRep @RuntimeRep @a +levityTypeRep :: Levity -> SomeKindedTypeRep Levity +levityTypeRep c = + case c of + Lifted -> rep @'Lifted + Unlifted -> rep @'Unlifted + where + rep :: forall (a :: Levity). Typeable a => SomeKindedTypeRep Levity + rep = kindedTypeRep @Levity @a + vecCountTypeRep :: VecCount -> SomeKindedTypeRep VecCount vecCountTypeRep c = case c of @@ -840,14 +859,41 @@ -- produce a TypeRep for without difficulty), and then just substitute in the -- appropriate module and constructor names. -- +-- Prior to the introduction of BoxedRep, this was bad, but now it is +-- even worse! We have to construct several different TyCons by hand +-- so that we can build the fingerprint for TYPE ('BoxedRep 'LiftedRep). +-- If we call `typeRep @('BoxedRep 'LiftedRep)` while trying to compute +-- the fingerprint of `TYPE ('BoxedRep 'LiftedRep)`, we get a loop. +-- -- The ticket to find a better way to deal with this is -- #14480. + +tyConRuntimeRep :: TyCon +tyConRuntimeRep = mkTyCon ghcPrimPackage "GHC.Types" "RuntimeRep" 0 + (KindRepTYPE (BoxedRep Lifted)) + tyConTYPE :: TyCon -tyConTYPE = mkTyCon (tyConPackage liftedRepTyCon) "GHC.Prim" "TYPE" 0 - (KindRepFun (KindRepTyConApp liftedRepTyCon []) (KindRepTYPE LiftedRep)) - where - liftedRepTyCon = typeRepTyCon (typeRep @RuntimeRep) +tyConTYPE = mkTyCon ghcPrimPackage "GHC.Prim" "TYPE" 0 + (KindRepFun + (KindRepTyConApp tyConRuntimeRep []) + (KindRepTYPE (BoxedRep Lifted)) + ) +tyConLevity :: TyCon +tyConLevity = mkTyCon ghcPrimPackage "GHC.Types" "Levity" 0 + (KindRepTYPE (BoxedRep Lifted)) + +tyCon'Lifted :: TyCon +tyCon'Lifted = mkTyCon ghcPrimPackage "GHC.Types" "'Lifted" 0 + (KindRepTyConApp tyConLevity []) + +tyCon'BoxedRep :: TyCon +tyCon'BoxedRep = mkTyCon ghcPrimPackage "GHC.Types" "'BoxedRep" 0 + (KindRepFun (KindRepTyConApp tyConLevity []) (KindRepTyConApp tyConRuntimeRep [])) + +ghcPrimPackage :: String +ghcPrimPackage = tyConPackage (typeRepTyCon (typeRep @Bool)) + funTyCon :: TyCon funTyCon = typeRepTyCon (typeRep @(->)) @@ -979,24 +1025,33 @@ where kind = KindRepTyConApp kind_tycon [] -- | Used to make `'Typeable' instance for things of kind Nat -typeNatTypeRep :: KnownNat a => Proxy# a -> TypeRep a -typeNatTypeRep p = typeLitTypeRep (show (natVal' p)) tcNat +typeNatTypeRep :: forall a. KnownNat a => TypeRep a +typeNatTypeRep = typeLitTypeRep (show (natVal' (proxy# @a))) tcNat -- | Used to make `'Typeable' instance for things of kind Symbol -typeSymbolTypeRep :: KnownSymbol a => Proxy# a -> TypeRep a -typeSymbolTypeRep p = typeLitTypeRep (show (symbolVal' p)) tcSymbol +typeSymbolTypeRep :: forall a. KnownSymbol a => TypeRep a +typeSymbolTypeRep = typeLitTypeRep (show (symbolVal' (proxy# @a))) tcSymbol +-- | Used to make `'Typeable' instance for things of kind Char +typeCharTypeRep :: forall a. KnownChar a => TypeRep a +typeCharTypeRep = typeLitTypeRep (show (charVal' (proxy# @a))) tcChar + mkTypeLitFromString :: TypeLitSort -> String -> SomeTypeRep mkTypeLitFromString TypeLitSymbol s = SomeTypeRep $ (typeLitTypeRep s tcSymbol :: TypeRep Symbol) mkTypeLitFromString TypeLitNat s = SomeTypeRep $ (typeLitTypeRep s tcNat :: TypeRep Nat) +mkTypeLitFromString TypeLitChar s = + SomeTypeRep $ (typeLitTypeRep s tcChar :: TypeRep Char) tcSymbol :: TyCon tcSymbol = typeRepTyCon (typeRep @Symbol) tcNat :: TyCon tcNat = typeRepTyCon (typeRep @Nat) + +tcChar :: TyCon +tcChar = typeRepTyCon (typeRep @Char) -- | An internal function, to make representations for type literals. typeLitTypeRep :: forall k (a :: k). (Typeable k) => diff --git a/Data/Unique.hs b/Data/Unique.hs --- a/Data/Unique.hs +++ b/Data/Unique.hs @@ -1,5 +1,4 @@ {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE MagicHash #-} ----------------------------------------------------------------------------- -- | @@ -26,6 +25,9 @@ import GHC.Num import Data.IORef + +-- $setup +-- >>> import Prelude -- | An abstract unique object. Objects of type 'Unique' may be -- compared for equality and ordering and hashed into 'Int'. diff --git a/Data/Void.hs b/Data/Void.hs --- a/Data/Void.hs +++ b/Data/Void.hs @@ -3,7 +3,6 @@ {-# LANGUAGE EmptyCase #-} {-# LANGUAGE EmptyDataDeriving #-} {-# LANGUAGE Safe #-} -{-# LANGUAGE StandaloneDeriving #-} ----------------------------------------------------------------------------- -- | @@ -30,6 +29,9 @@ import Data.Ix import GHC.Generics import Data.Semigroup (Semigroup(..), stimesIdempotent) + +-- $setup +-- >>> import Prelude -- | Uninhabited data type -- diff --git a/Debug/Trace.hs b/Debug/Trace.hs --- a/Debug/Trace.hs +++ b/Debug/Trace.hs @@ -37,6 +37,7 @@ -- $eventlog_tracing traceEvent, traceEventIO, + flushEventLog, -- * Execution phase markers -- $markers @@ -78,7 +79,7 @@ -- -- @since 4.5.0.0 traceIO :: String -> IO () -traceIO msg = do +traceIO msg = withCString "%s\n" $ \cfmt -> do -- NB: debugBelch can't deal with null bytes, so filter them -- out so we don't accidentally truncate the message. See #9395 @@ -105,12 +106,13 @@ The 'trace' function outputs the trace message given as its first argument, before returning the second argument as its result. -For example, this returns the value of @f x@ but first outputs the message. +For example, this returns the value of @f x@ and outputs the message to stderr. +Depending on your terminal (settings), they may or may not be mixed. >>> let x = 123; f = show >>> trace ("calling f with x = " ++ show x) (f x) -"calling f with x = 123 -123" +calling f with x = 123 +"123" The 'trace' function should /only/ be used for debugging, or for monitoring execution. The function is not referentially transparent: its type indicates @@ -126,8 +128,8 @@ Like 'trace' but returns the message instead of a third value. >>> traceId "hello" -"hello -hello" +hello +"hello" @since 4.7.0.0 -} @@ -319,3 +321,11 @@ traceMarkerIO msg = GHC.Foreign.withCString utf8 msg $ \(Ptr p) -> IO $ \s -> case traceMarker# p s of s' -> (# s', () #) + +-- | Immediately flush the event log, if enabled. +-- +-- @since 4.15.0.0 +flushEventLog :: IO () +flushEventLog = c_flushEventLog nullPtr + +foreign import ccall "flushEventLog" c_flushEventLog :: Ptr () -> IO () diff --git a/Foreign/C/Types.hs b/Foreign/C/Types.hs --- a/Foreign/C/Types.hs +++ b/Foreign/C/Types.hs @@ -1,9 +1,7 @@ {-# LANGUAGE CPP #-} {-# LANGUAGE DerivingStrategies #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# LANGUAGE MagicHash #-} {-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE StandaloneDeriving #-} {-# LANGUAGE Trustworthy #-} {-# OPTIONS_GHC -Wno-unused-binds #-} -- XXX -Wno-unused-binds stops us warning about unused constructors, @@ -148,33 +146,6 @@ -- @since 4.10.0.0 INTEGRAL_TYPE_WITH_CTYPE(CBool,bool,HTYPE_BOOL) -{-# RULES -"fromIntegral/a->CChar" fromIntegral = \x -> CChar (fromIntegral x) -"fromIntegral/a->CSChar" fromIntegral = \x -> CSChar (fromIntegral x) -"fromIntegral/a->CUChar" fromIntegral = \x -> CUChar (fromIntegral x) -"fromIntegral/a->CShort" fromIntegral = \x -> CShort (fromIntegral x) -"fromIntegral/a->CUShort" fromIntegral = \x -> CUShort (fromIntegral x) -"fromIntegral/a->CInt" fromIntegral = \x -> CInt (fromIntegral x) -"fromIntegral/a->CUInt" fromIntegral = \x -> CUInt (fromIntegral x) -"fromIntegral/a->CLong" fromIntegral = \x -> CLong (fromIntegral x) -"fromIntegral/a->CULong" fromIntegral = \x -> CULong (fromIntegral x) -"fromIntegral/a->CLLong" fromIntegral = \x -> CLLong (fromIntegral x) -"fromIntegral/a->CULLong" fromIntegral = \x -> CULLong (fromIntegral x) - -"fromIntegral/CChar->a" fromIntegral = \(CChar x) -> fromIntegral x -"fromIntegral/CSChar->a" fromIntegral = \(CSChar x) -> fromIntegral x -"fromIntegral/CUChar->a" fromIntegral = \(CUChar x) -> fromIntegral x -"fromIntegral/CShort->a" fromIntegral = \(CShort x) -> fromIntegral x -"fromIntegral/CUShort->a" fromIntegral = \(CUShort x) -> fromIntegral x -"fromIntegral/CInt->a" fromIntegral = \(CInt x) -> fromIntegral x -"fromIntegral/CUInt->a" fromIntegral = \(CUInt x) -> fromIntegral x -"fromIntegral/CLong->a" fromIntegral = \(CLong x) -> fromIntegral x -"fromIntegral/CULong->a" fromIntegral = \(CULong x) -> fromIntegral x -"fromIntegral/CLLong->a" fromIntegral = \(CLLong x) -> fromIntegral x -"fromIntegral/CULLong->a" fromIntegral = \(CULLong x) -> fromIntegral x -"fromIntegral/CBool->a" fromIntegral = \(CBool x) -> fromIntegral x - #-} - -- | Haskell type representing the C @float@ type. -- /(The concrete types of "Foreign.C.Types#platform" are platform-specific.)/ FLOATING_TYPE(CFloat,HTYPE_FLOAT) @@ -208,18 +179,6 @@ -- /(The concrete types of "Foreign.C.Types#platform" are platform-specific.)/ INTEGRAL_TYPE(CSigAtomic,HTYPE_SIG_ATOMIC_T) -{-# RULES -"fromIntegral/a->CPtrdiff" fromIntegral = \x -> CPtrdiff (fromIntegral x) -"fromIntegral/a->CSize" fromIntegral = \x -> CSize (fromIntegral x) -"fromIntegral/a->CWchar" fromIntegral = \x -> CWchar (fromIntegral x) -"fromIntegral/a->CSigAtomic" fromIntegral = \x -> CSigAtomic (fromIntegral x) - -"fromIntegral/CPtrdiff->a" fromIntegral = \(CPtrdiff x) -> fromIntegral x -"fromIntegral/CSize->a" fromIntegral = \(CSize x) -> fromIntegral x -"fromIntegral/CWchar->a" fromIntegral = \(CWchar x) -> fromIntegral x -"fromIntegral/CSigAtomic->a" fromIntegral = \(CSigAtomic x) -> fromIntegral x - #-} - -- | Haskell type representing the C @clock_t@ type. -- /(The concrete types of "Foreign.C.Types#platform" are platform-specific.)/ ARITHMETIC_TYPE(CClock,HTYPE_CLOCK_T) @@ -253,13 +212,6 @@ INTEGRAL_TYPE(CUIntPtr,HTYPE_UINTPTR_T) INTEGRAL_TYPE(CIntMax,HTYPE_INTMAX_T) INTEGRAL_TYPE(CUIntMax,HTYPE_UINTMAX_T) - -{-# RULES -"fromIntegral/a->CIntPtr" fromIntegral = \x -> CIntPtr (fromIntegral x) -"fromIntegral/a->CUIntPtr" fromIntegral = \x -> CUIntPtr (fromIntegral x) -"fromIntegral/a->CIntMax" fromIntegral = \x -> CIntMax (fromIntegral x) -"fromIntegral/a->CUIntMax" fromIntegral = \x -> CUIntMax (fromIntegral x) - #-} -- C99 types which are still missing include: -- wint_t, wctrans_t, wctype_t diff --git a/Foreign/Marshal/Alloc.hs b/Foreign/Marshal/Alloc.hs --- a/Foreign/Marshal/Alloc.hs +++ b/Foreign/Marshal/Alloc.hs @@ -1,6 +1,6 @@ {-# LANGUAGE Trustworthy #-} {-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples, - ScopedTypeVariables #-} + ScopedTypeVariables, BangPatterns #-} ----------------------------------------------------------------------------- -- | @@ -60,12 +60,15 @@ finalizerFree ) where +import Data.Bits ( Bits, (.&.) ) import Data.Maybe import Foreign.C.Types ( CSize(..) ) import Foreign.Storable ( Storable(sizeOf,alignment) ) import Foreign.ForeignPtr ( FinalizerPtr ) import GHC.IO.Exception +import GHC.Num import GHC.Real +import GHC.Show import GHC.Ptr import GHC.Base @@ -99,7 +102,7 @@ mallocBytes :: Int -> IO (Ptr a) mallocBytes size = failWhenNULL "malloc" (_malloc (fromIntegral size)) --- |Llike 'mallocBytes' but memory is filled with bytes of value zero. +-- |Like 'mallocBytes', but memory is filled with bytes of value zero. -- callocBytes :: Int -> IO (Ptr a) callocBytes size = failWhenNULL "calloc" $ _calloc 1 (fromIntegral size) @@ -133,8 +136,31 @@ keepAlive# barr# s2 action' }}} +-- |@'allocaBytesAligned' size align f@ executes the computation @f@, +-- passing as argument a pointer to a temporarily allocated block of memory +-- of @size@ bytes and aligned to @align@ bytes. The value of @align@ must +-- be a power of two. +-- +-- The memory is freed when @f@ terminates (either normally or via an +-- exception), so the pointer passed to @f@ must /not/ be used after this. +-- allocaBytesAligned :: Int -> Int -> (Ptr a -> IO b) -> IO b -allocaBytesAligned (I# size) (I# align) action = IO $ \ s0 -> +allocaBytesAligned !_size !align !_action + | not $ isPowerOfTwo align = + ioError $ + IOError Nothing InvalidArgument + "allocaBytesAligned" + ("alignment (="++show align++") must be a power of two!") + Nothing Nothing + where + isPowerOfTwo :: (Bits i, Integral i) => i -> Bool + isPowerOfTwo x = x .&. (x-1) == 0 +allocaBytesAligned !size !align !action = + allocaBytesAlignedAndUnchecked size align action +{-# INLINABLE allocaBytesAligned #-} + +allocaBytesAlignedAndUnchecked :: Int -> Int -> (Ptr a -> IO b) -> IO b +allocaBytesAlignedAndUnchecked (I# size) (I# align) action = IO $ \ s0 -> case newAlignedPinnedByteArray# size align s0 of { (# s1, mbarr# #) -> case unsafeFreezeByteArray# mbarr# s1 of { (# s2, barr# #) -> let addr = Ptr (byteArrayContents# barr#) in diff --git a/Foreign/Marshal/Array.hs b/Foreign/Marshal/Array.hs --- a/Foreign/Marshal/Array.hs +++ b/Foreign/Marshal/Array.hs @@ -214,11 +214,9 @@ withArrayLen0 marker vals f = allocaArray0 len $ \ptr -> do pokeArray0 marker ptr vals - res <- f len ptr - return res + f len ptr where len = length vals - -- copying (argument order: destination, source) -- ------- diff --git a/Foreign/Marshal/Utils.hs b/Foreign/Marshal/Utils.hs --- a/Foreign/Marshal/Utils.hs +++ b/Foreign/Marshal/Utils.hs @@ -89,9 +89,7 @@ with val f = alloca $ \ptr -> do poke ptr val - res <- f ptr - return res - + f ptr -- marshalling of Boolean values (non-zero corresponds to 'True') -- ----------------------------- diff --git a/Foreign/Ptr.hs b/Foreign/Ptr.hs --- a/Foreign/Ptr.hs +++ b/Foreign/Ptr.hs @@ -3,7 +3,6 @@ {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE MagicHash #-} {-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE StandaloneDeriving #-} {-# LANGUAGE Trustworthy #-} ----------------------------------------------------------------------------- diff --git a/Foreign/Storable.hs b/Foreign/Storable.hs --- a/Foreign/Storable.hs +++ b/Foreign/Storable.hs @@ -84,7 +84,9 @@ alignment :: a -> Int -- ^ Computes the alignment constraint of the argument. An -- alignment constraint @x@ is fulfilled by any address divisible - -- by @x@. The value of the argument is not used. + -- by @x@. The alignment must be a power of two if this instance + -- is to be used with 'alloca' or 'allocaArray'. The value of + -- the argument is not used. peekElemOff :: Ptr a -> Int -> IO a -- ^ Read a value from a memory area regarded as an array diff --git a/GHC/Base.hs b/GHC/Base.hs --- a/GHC/Base.hs +++ b/GHC/Base.hs @@ -62,19 +62,17 @@ Other Prelude modules are much easier with fewer complex dependencies. -} +{-# LANGUAGE BangPatterns #-} +{-# LANGUAGE CPP #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE ExistentialQuantification #-} +{-# LANGUAGE MagicHash #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE PolyKinds #-} +{-# LANGUAGE RankNTypes #-} +{-# LANGUAGE UnboxedTuples #-} {-# LANGUAGE Unsafe #-} -{-# LANGUAGE CPP - , NoImplicitPrelude - , BangPatterns - , ExplicitForAll - , MagicHash - , UnboxedTuples - , ExistentialQuantification - , RankNTypes - , KindSignatures - , PolyKinds - , DataKinds - #-} + -- -Wno-orphans is needed for things like: -- Orphan rule: "x# -# x#" ALWAYS forall x# :: Int# -# x# x# = 0 {-# OPTIONS_GHC -Wno-orphans #-} @@ -149,35 +147,37 @@ Note [Depend on GHC.Num.Integer] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -The Integer type is special because GHC.Iface.Tidy uses constructors in -GHC.Num.Integer to construct Integer literal values. Currently it reads the -interface file whether or not the current module *has* any Integer literals, so -it's important that GHC.Num.Integer is compiled before any other module. - -(There's a hack in GHC to disable this for packages ghc-prim and ghc-bignum -which aren't allowed to contain any Integer literals.) - -Likewise we implicitly need Integer when deriving things like Eq instances. +The Integer type is special because GHC.CoreToStg.Prep.mkConvertNumLiteral +lookups names in ghc-bignum interfaces to construct Integer literal values. +Currently it reads the interface file whether or not the current module *has* +any Integer literals, so it's important that GHC.Num.Integer is compiled before +any other module. -The danger is that if the build system doesn't know about the dependency -on Integer, it'll compile some base module before GHC.Num.Integer, +The danger is that if the build system doesn't know about the implicit +dependency on Integer, it'll compile some base module before GHC.Num.Integer, resulting in: Failed to load interface for ‘GHC.Num.Integer’ There are files missing in the ‘ghc-bignum’ package, -Bottom line: we make GHC.Base depend on GHC.Num.Integer; and everything -else either depends on GHC.Base, or does not have NoImplicitPrelude -(and hence depends on Prelude). - -Note: this is only a problem with the make-based build system. Hadrian doesn't -seem to interleave compilation of modules from separate packages and respects +Note that this is only a problem with the make-based build system. Hadrian +doesn't interleave compilation of modules from separate packages and respects the dependency between `base` and `ghc-bignum`. +To ensure that GHC.Num.Integer is there, we must ensure that there is a visible +dependency on GHC.Num.Integer from every module in base. We make GHC.Base +depend on GHC.Num.Integer; and everything else either depends on GHC.Base, +directly on GHC.Num.Integer, or does not have NoImplicitPrelude (and hence +depends on Prelude). + +The lookup is only disabled for packages ghc-prim and ghc-bignum, which aren't +allowed to contain any Integer literal. + + Note [Depend on GHC.Tuple] ~~~~~~~~~~~~~~~~~~~~~~~~~~ Similarly, tuple syntax (or ()) creates an implicit dependency on GHC.Tuple, so we use the same rule as for Integer --- see Note [Depend on -GHC.Integer] --- to explain this to the build system. We make GHC.Base +GHC.Num.Integer] --- to explain this to the build system. We make GHC.Base depend on GHC.Tuple, and everything else depends on GHC.Base or Prelude. -} @@ -524,6 +524,7 @@ -- -- Some type constructors with two parameters or more have a @'Data.Bifunctor'@ instance that allows -- both the last and the penultimate parameters to be mapped over. + -- -- ==== __Examples__ -- -- Convert from a @'Data.Maybe.Maybe' Int@ to a @Maybe String@ @@ -555,11 +556,11 @@ -- It may seem surprising that the function is only applied to the last element of the tuple -- compared to the list example above which applies it to every element in the list. -- To understand, remember that tuples are type constructors with multiple type parameters: - -- a tuple of 3 elements `(a,b,c)` can also be written `(,,) a b c` and its `Functor` instance - -- is defined for `Functor ((,,) a b)` (i.e., only the third parameter is free to be mapped over - -- with `fmap`). + -- a tuple of 3 elements @(a,b,c)@ can also be written @(,,) a b c@ and its @Functor@ instance + -- is defined for @Functor ((,,) a b)@ (i.e., only the third parameter is free to be mapped over + -- with @fmap@). -- - -- It explains why `fmap` can be used with tuples containing values of different types as in the + -- It explains why @fmap@ can be used with tuples containing values of different types as in the -- following example: -- -- >>> fmap even ("hello", 1.0, 4) @@ -1517,6 +1518,7 @@ -- the function with that value. ($!) :: forall r a (b :: TYPE r). (a -> b) -> a -> b +{-# INLINE ($!) #-} f $! x = let !vx = x in f vx -- see #2273 -- | @'until' p f@ yields the result of applying @f@ until @p@ holds. @@ -1599,8 +1601,13 @@ -- Definitions of the boxed PrimOps; these will be -- used in the case of partial applications, etc. +-- See Note [INLINE division wrappers] {-# INLINE quotInt #-} {-# INLINE remInt #-} +{-# INLINE divInt #-} +{-# INLINE modInt #-} +{-# INLINE quotRemInt #-} +{-# INLINE divModInt #-} quotInt, remInt, divInt, modInt :: Int -> Int -> Int (I# x) `quotInt` (I# y) = I# (x `quotInt#` y) @@ -1627,6 +1634,17 @@ (# q, r #) -> (# q -# 1#, r +# y# -# 1# #) | otherwise = x# `quotRemInt#` y# + +{- Note [INLINE division wrappers] +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +The Int division functions such as 'quotRemInt' and 'divModInt' have +been manually worker/wrappered, presumably because they construct +*nested* products. +We intend to preserve the exact worker/wrapper split, hence we mark +the wrappers INLINE (#19267). That makes sure the optimiser doesn't +accidentally inline the worker into the wrapper, undoing the manual +split again. +-} -- Wrappers for the shift operations. The uncheckedShift# family are -- undefined when the amount being shifted by is greater than the size diff --git a/GHC/Bits.hs b/GHC/Bits.hs new file mode 100644 --- /dev/null +++ b/GHC/Bits.hs @@ -0,0 +1,719 @@ +{-# LANGUAGE BangPatterns #-} +{-# LANGUAGE CPP #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE MagicHash #-} +{-# LANGUAGE Trustworthy #-} + +----------------------------------------------------------------------------- +-- | +-- Module : GHC.Bits +-- Copyright : (c) The University of Glasgow 2001 +-- License : BSD-style (see the file libraries/base/LICENSE) +-- +-- Maintainer : libraries@haskell.org +-- Stability : experimental +-- Portability : portable +-- +-- This module defines bitwise operations for signed and unsigned +-- integers. Instances of the class 'Bits' for the 'Int' and +-- 'Integer' types are available from this module, and instances for +-- explicitly sized integral types are available from the +-- "Data.Int" and "Data.Word" modules. +-- +----------------------------------------------------------------------------- + +module GHC.Bits ( + Bits( + (.&.), (.|.), xor, + complement, + shift, + rotate, + zeroBits, + bit, + setBit, + clearBit, + complementBit, + testBit, + bitSizeMaybe, + bitSize, + isSigned, + shiftL, shiftR, + unsafeShiftL, unsafeShiftR, + rotateL, rotateR, + popCount + ), + FiniteBits( + finiteBitSize, + countLeadingZeros, + countTrailingZeros + ), + + bitDefault, + testBitDefault, + popCountDefault, + toIntegralSized, + ) where + +-- Defines the @Bits@ class containing bit-based operations. +-- See library document for details on the semantics of the +-- individual operations. + +#include "MachDeps.h" + +import Data.Maybe +import GHC.Num +import GHC.Base +import GHC.Real + +infixl 8 `shift`, `rotate`, `shiftL`, `shiftR`, `rotateL`, `rotateR` +infixl 7 .&. +infixl 6 `xor` +infixl 5 .|. + +{-# DEPRECATED bitSize "Use 'bitSizeMaybe' or 'finiteBitSize' instead" #-} -- deprecated in 7.8 + +-- | The 'Bits' class defines bitwise operations over integral types. +-- +-- * Bits are numbered from 0 with bit 0 being the least +-- significant bit. +class Eq a => Bits a where + {-# MINIMAL (.&.), (.|.), xor, complement, + (shift | (shiftL, shiftR)), + (rotate | (rotateL, rotateR)), + bitSize, bitSizeMaybe, isSigned, testBit, bit, popCount #-} + + -- | Bitwise \"and\" + (.&.) :: a -> a -> a + + -- | Bitwise \"or\" + (.|.) :: a -> a -> a + + -- | Bitwise \"xor\" + xor :: a -> a -> a + + {-| Reverse all the bits in the argument -} + complement :: a -> a + + {-| @'shift' x i@ shifts @x@ left by @i@ bits if @i@ is positive, + or right by @-i@ bits otherwise. + Right shifts perform sign extension on signed number types; + i.e. they fill the top bits with 1 if the @x@ is negative + and with 0 otherwise. + + An instance can define either this unified 'shift' or 'shiftL' and + 'shiftR', depending on which is more convenient for the type in + question. -} + shift :: a -> Int -> a + + x `shift` i | i<0 = x `shiftR` (-i) + | i>0 = x `shiftL` i + | otherwise = x + + {-| @'rotate' x i@ rotates @x@ left by @i@ bits if @i@ is positive, + or right by @-i@ bits otherwise. + + For unbounded types like 'Integer', 'rotate' is equivalent to 'shift'. + + An instance can define either this unified 'rotate' or 'rotateL' and + 'rotateR', depending on which is more convenient for the type in + question. -} + rotate :: a -> Int -> a + + x `rotate` i | i<0 = x `rotateR` (-i) + | i>0 = x `rotateL` i + | otherwise = x + + {- + -- Rotation can be implemented in terms of two shifts, but care is + -- needed for negative values. This suggested implementation assumes + -- 2's-complement arithmetic. It is commented out because it would + -- require an extra context (Ord a) on the signature of 'rotate'. + x `rotate` i | i<0 && isSigned x && x<0 + = let left = i+bitSize x in + ((x `shift` i) .&. complement ((-1) `shift` left)) + .|. (x `shift` left) + | i<0 = (x `shift` i) .|. (x `shift` (i+bitSize x)) + | i==0 = x + | i>0 = (x `shift` i) .|. (x `shift` (i-bitSize x)) + -} + + -- | 'zeroBits' is the value with all bits unset. + -- + -- The following laws ought to hold (for all valid bit indices @/n/@): + -- + -- * @'clearBit' 'zeroBits' /n/ == 'zeroBits'@ + -- * @'setBit' 'zeroBits' /n/ == 'bit' /n/@ + -- * @'testBit' 'zeroBits' /n/ == False@ + -- * @'popCount' 'zeroBits' == 0@ + -- + -- This method uses @'clearBit' ('bit' 0) 0@ as its default + -- implementation (which ought to be equivalent to 'zeroBits' for + -- types which possess a 0th bit). + -- + -- @since 4.7.0.0 + zeroBits :: a + zeroBits = clearBit (bit 0) 0 + + -- | @bit /i/@ is a value with the @/i/@th bit set and all other bits clear. + -- + -- Can be implemented using `bitDefault' if @a@ is also an + -- instance of 'Num'. + -- + -- See also 'zeroBits'. + bit :: Int -> a + + -- | @x \`setBit\` i@ is the same as @x .|. bit i@ + setBit :: a -> Int -> a + + -- | @x \`clearBit\` i@ is the same as @x .&. complement (bit i)@ + clearBit :: a -> Int -> a + + -- | @x \`complementBit\` i@ is the same as @x \`xor\` bit i@ + complementBit :: a -> Int -> a + + {-| @x \`testBit\` i@ is the same as @x .&. bit n /= 0@ + + In other words it returns True if the bit at offset @n + is set. + + Can be implemented using `testBitDefault' if @a@ is also an + instance of 'Num'. + -} + testBit :: a -> Int -> Bool + + {-| Return the number of bits in the type of the argument. The actual + value of the argument is ignored. Returns Nothing + for types that do not have a fixed bitsize, like 'Integer'. + + @since 4.7.0.0 + -} + bitSizeMaybe :: a -> Maybe Int + + {-| Return the number of bits in the type of the argument. The actual + value of the argument is ignored. The function 'bitSize' is + undefined for types that do not have a fixed bitsize, like 'Integer'. + + Default implementation based upon 'bitSizeMaybe' provided since + 4.12.0.0. + -} + bitSize :: a -> Int + bitSize b = fromMaybe (error "bitSize is undefined") (bitSizeMaybe b) + + {-| Return 'True' if the argument is a signed type. The actual + value of the argument is ignored -} + isSigned :: a -> Bool + + {-# INLINE setBit #-} + {-# INLINE clearBit #-} + {-# INLINE complementBit #-} + x `setBit` i = x .|. bit i + x `clearBit` i = x .&. complement (bit i) + x `complementBit` i = x `xor` bit i + + {-| Shift the argument left by the specified number of bits + (which must be non-negative). Some instances may throw an + 'Control.Exception.Overflow' exception if given a negative input. + + An instance can define either this and 'shiftR' or the unified + 'shift', depending on which is more convenient for the type in + question. -} + shiftL :: a -> Int -> a + {-# INLINE shiftL #-} + x `shiftL` i = x `shift` i + + {-| Shift the argument left by the specified number of bits. The + result is undefined for negative shift amounts and shift amounts + greater or equal to the 'bitSize'. + + Defaults to 'shiftL' unless defined explicitly by an instance. + + @since 4.5.0.0 -} + unsafeShiftL :: a -> Int -> a + {-# INLINE unsafeShiftL #-} + x `unsafeShiftL` i = x `shiftL` i + + {-| Shift the first argument right by the specified number of bits. The + result is undefined for negative shift amounts and shift amounts + greater or equal to the 'bitSize'. Some instances may throw an + 'Control.Exception.Overflow' exception if given a negative input. + + Right shifts perform sign extension on signed number types; + i.e. they fill the top bits with 1 if the @x@ is negative + and with 0 otherwise. + + An instance can define either this and 'shiftL' or the unified + 'shift', depending on which is more convenient for the type in + question. -} + shiftR :: a -> Int -> a + {-# INLINE shiftR #-} + x `shiftR` i = x `shift` (-i) + + {-| Shift the first argument right by the specified number of bits, which + must be non-negative and smaller than the number of bits in the type. + + Right shifts perform sign extension on signed number types; + i.e. they fill the top bits with 1 if the @x@ is negative + and with 0 otherwise. + + Defaults to 'shiftR' unless defined explicitly by an instance. + + @since 4.5.0.0 -} + unsafeShiftR :: a -> Int -> a + {-# INLINE unsafeShiftR #-} + x `unsafeShiftR` i = x `shiftR` i + + {-| Rotate the argument left by the specified number of bits + (which must be non-negative). + + An instance can define either this and 'rotateR' or the unified + 'rotate', depending on which is more convenient for the type in + question. -} + rotateL :: a -> Int -> a + {-# INLINE rotateL #-} + x `rotateL` i = x `rotate` i + + {-| Rotate the argument right by the specified number of bits + (which must be non-negative). + + An instance can define either this and 'rotateL' or the unified + 'rotate', depending on which is more convenient for the type in + question. -} + rotateR :: a -> Int -> a + {-# INLINE rotateR #-} + x `rotateR` i = x `rotate` (-i) + + {-| Return the number of set bits in the argument. This number is + known as the population count or the Hamming weight. + + Can be implemented using `popCountDefault' if @a@ is also an + instance of 'Num'. + + @since 4.5.0.0 -} + popCount :: a -> Int + +-- |The 'FiniteBits' class denotes types with a finite, fixed number of bits. +-- +-- @since 4.7.0.0 +class Bits b => FiniteBits b where + -- | Return the number of bits in the type of the argument. + -- The actual value of the argument is ignored. Moreover, 'finiteBitSize' + -- is total, in contrast to the deprecated 'bitSize' function it replaces. + -- + -- @ + -- 'finiteBitSize' = 'bitSize' + -- 'bitSizeMaybe' = 'Just' . 'finiteBitSize' + -- @ + -- + -- @since 4.7.0.0 + finiteBitSize :: b -> Int + + -- | Count number of zero bits preceding the most significant set bit. + -- + -- @ + -- 'countLeadingZeros' ('zeroBits' :: a) = finiteBitSize ('zeroBits' :: a) + -- @ + -- + -- 'countLeadingZeros' can be used to compute log base 2 via + -- + -- @ + -- logBase2 x = 'finiteBitSize' x - 1 - 'countLeadingZeros' x + -- @ + -- + -- Note: The default implementation for this method is intentionally + -- naive. However, the instances provided for the primitive + -- integral types are implemented using CPU specific machine + -- instructions. + -- + -- @since 4.8.0.0 + countLeadingZeros :: b -> Int + countLeadingZeros x = (w-1) - go (w-1) + where + go i | i < 0 = i -- no bit set + | testBit x i = i + | otherwise = go (i-1) + + w = finiteBitSize x + + -- | Count number of zero bits following the least significant set bit. + -- + -- @ + -- 'countTrailingZeros' ('zeroBits' :: a) = finiteBitSize ('zeroBits' :: a) + -- 'countTrailingZeros' . 'negate' = 'countTrailingZeros' + -- @ + -- + -- The related + -- + -- can be expressed in terms of 'countTrailingZeros' as follows + -- + -- @ + -- findFirstSet x = 1 + 'countTrailingZeros' x + -- @ + -- + -- Note: The default implementation for this method is intentionally + -- naive. However, the instances provided for the primitive + -- integral types are implemented using CPU specific machine + -- instructions. + -- + -- @since 4.8.0.0 + countTrailingZeros :: b -> Int + countTrailingZeros x = go 0 + where + go i | i >= w = i + | testBit x i = i + | otherwise = go (i+1) + + w = finiteBitSize x + + +-- The defaults below are written with lambdas so that e.g. +-- bit = bitDefault +-- is fully applied, so inlining will happen + +-- | Default implementation for 'bit'. +-- +-- Note that: @bitDefault i = 1 `shiftL` i@ +-- +-- @since 4.6.0.0 +bitDefault :: (Bits a, Num a) => Int -> a +bitDefault = \i -> 1 `shiftL` i +{-# INLINE bitDefault #-} + +-- | Default implementation for 'testBit'. +-- +-- Note that: @testBitDefault x i = (x .&. bit i) /= 0@ +-- +-- @since 4.6.0.0 +testBitDefault :: (Bits a, Num a) => a -> Int -> Bool +testBitDefault = \x i -> (x .&. bit i) /= 0 +{-# INLINE testBitDefault #-} + +-- | Default implementation for 'popCount'. +-- +-- This implementation is intentionally naive. Instances are expected to provide +-- an optimized implementation for their size. +-- +-- @since 4.6.0.0 +popCountDefault :: (Bits a, Num a) => a -> Int +popCountDefault = go 0 + where + go !c 0 = c + go c w = go (c+1) (w .&. (w - 1)) -- clear the least significant +{-# INLINABLE popCountDefault #-} + +-- | Interpret 'Bool' as 1-bit bit-field +-- +-- @since 4.7.0.0 +instance Bits Bool where + (.&.) = (&&) + + (.|.) = (||) + + xor = (/=) + + complement = not + + shift x 0 = x + shift _ _ = False + + rotate x _ = x + + bit 0 = True + bit _ = False + + testBit x 0 = x + testBit _ _ = False + + bitSizeMaybe _ = Just 1 + + bitSize _ = 1 + + isSigned _ = False + + popCount False = 0 + popCount True = 1 + +-- | @since 4.7.0.0 +instance FiniteBits Bool where + finiteBitSize _ = 1 + countTrailingZeros x = if x then 0 else 1 + countLeadingZeros x = if x then 0 else 1 + +-- | @since 2.01 +instance Bits Int where + {-# INLINE shift #-} + {-# INLINE bit #-} + {-# INLINE testBit #-} + -- We want popCnt# to be inlined in user code so that `ghc -msse4.2` + -- can compile it down to a popcnt instruction without an extra function call + {-# INLINE popCount #-} + + zeroBits = 0 + + bit = bitDefault + + testBit = testBitDefault + + (I# x#) .&. (I# y#) = I# (x# `andI#` y#) + (I# x#) .|. (I# y#) = I# (x# `orI#` y#) + (I# x#) `xor` (I# y#) = I# (x# `xorI#` y#) + complement (I# x#) = I# (notI# x#) + (I# x#) `shift` (I# i#) + | isTrue# (i# >=# 0#) = I# (x# `iShiftL#` i#) + | otherwise = I# (x# `iShiftRA#` negateInt# i#) + (I# x#) `shiftL` (I# i#) + | isTrue# (i# >=# 0#) = I# (x# `iShiftL#` i#) + | otherwise = overflowError + (I# x#) `unsafeShiftL` (I# i#) = I# (x# `uncheckedIShiftL#` i#) + (I# x#) `shiftR` (I# i#) + | isTrue# (i# >=# 0#) = I# (x# `iShiftRA#` i#) + | otherwise = overflowError + (I# x#) `unsafeShiftR` (I# i#) = I# (x# `uncheckedIShiftRA#` i#) + + {-# INLINE rotate #-} -- See Note [Constant folding for rotate] + (I# x#) `rotate` (I# i#) = + I# ((x# `uncheckedIShiftL#` i'#) `orI#` (x# `uncheckedIShiftRL#` (wsib -# i'#))) + where + !i'# = i# `andI#` (wsib -# 1#) + !wsib = WORD_SIZE_IN_BITS# {- work around preprocessor problem (??) -} + bitSizeMaybe i = Just (finiteBitSize i) + bitSize i = finiteBitSize i + + popCount (I# x#) = I# (word2Int# (popCnt# (int2Word# x#))) + + isSigned _ = True + +-- | @since 4.6.0.0 +instance FiniteBits Int where + finiteBitSize _ = WORD_SIZE_IN_BITS + countLeadingZeros (I# x#) = I# (word2Int# (clz# (int2Word# x#))) + {-# INLINE countLeadingZeros #-} + countTrailingZeros (I# x#) = I# (word2Int# (ctz# (int2Word# x#))) + {-# INLINE countTrailingZeros #-} + +-- | @since 2.01 +instance Bits Word where + {-# INLINE shift #-} + {-# INLINE bit #-} + {-# INLINE testBit #-} + {-# INLINE popCount #-} + + (W# x#) .&. (W# y#) = W# (x# `and#` y#) + (W# x#) .|. (W# y#) = W# (x# `or#` y#) + (W# x#) `xor` (W# y#) = W# (x# `xor#` y#) + complement (W# x#) = W# (not# x#) + (W# x#) `shift` (I# i#) + | isTrue# (i# >=# 0#) = W# (x# `shiftL#` i#) + | otherwise = W# (x# `shiftRL#` negateInt# i#) + (W# x#) `shiftL` (I# i#) + | isTrue# (i# >=# 0#) = W# (x# `shiftL#` i#) + | otherwise = overflowError + (W# x#) `unsafeShiftL` (I# i#) = W# (x# `uncheckedShiftL#` i#) + (W# x#) `shiftR` (I# i#) + | isTrue# (i# >=# 0#) = W# (x# `shiftRL#` i#) + | otherwise = overflowError + (W# x#) `unsafeShiftR` (I# i#) = W# (x# `uncheckedShiftRL#` i#) + (W# x#) `rotate` (I# i#) + | isTrue# (i'# ==# 0#) = W# x# + | otherwise = W# ((x# `uncheckedShiftL#` i'#) `or#` (x# `uncheckedShiftRL#` (wsib -# i'#))) + where + !i'# = i# `andI#` (wsib -# 1#) + !wsib = WORD_SIZE_IN_BITS# {- work around preprocessor problem (??) -} + bitSizeMaybe i = Just (finiteBitSize i) + bitSize i = finiteBitSize i + isSigned _ = False + popCount (W# x#) = I# (word2Int# (popCnt# x#)) + bit = bitDefault + testBit = testBitDefault + +-- | @since 4.6.0.0 +instance FiniteBits Word where + finiteBitSize _ = WORD_SIZE_IN_BITS + countLeadingZeros (W# x#) = I# (word2Int# (clz# x#)) + {-# INLINE countLeadingZeros #-} + countTrailingZeros (W# x#) = I# (word2Int# (ctz# x#)) + {-# INLINE countTrailingZeros #-} + +-- | @since 2.01 +instance Bits Integer where + (.&.) = integerAnd + (.|.) = integerOr + xor = integerXor + complement = integerComplement + unsafeShiftR x i = integerShiftR x (fromIntegral i) + unsafeShiftL x i = integerShiftL x (fromIntegral i) + shiftR x i@(I# i#) + | isTrue# (i# >=# 0#) = unsafeShiftR x i + | otherwise = overflowError + shiftL x i@(I# i#) + | isTrue# (i# >=# 0#) = unsafeShiftL x i + | otherwise = overflowError + shift x i | i >= 0 = integerShiftL x (fromIntegral i) + | otherwise = integerShiftR x (fromIntegral (negate i)) + testBit x i = integerTestBit x (fromIntegral i) + zeroBits = integerZero + + bit (I# i) = integerBit# (int2Word# i) + popCount x = I# (integerPopCount# x) + + rotate x i = shift x i -- since an Integer never wraps around + + bitSizeMaybe _ = Nothing + bitSize _ = errorWithoutStackTrace "Data.Bits.bitSize(Integer)" + isSigned _ = True + +-- | @since 4.8.0 +instance Bits Natural where + (.&.) = naturalAnd + (.|.) = naturalOr + xor = naturalXor + complement _ = errorWithoutStackTrace + "Bits.complement: Natural complement undefined" + unsafeShiftR x i = naturalShiftR x (fromIntegral i) + unsafeShiftL x i = naturalShiftL x (fromIntegral i) + shiftR x i@(I# i#) + | isTrue# (i# >=# 0#) = unsafeShiftR x i + | otherwise = overflowError + shiftL x i@(I# i#) + | isTrue# (i# >=# 0#) = unsafeShiftL x i + | otherwise = overflowError + shift x i + | i >= 0 = naturalShiftL x (fromIntegral i) + | otherwise = naturalShiftR x (fromIntegral (negate i)) + testBit x i = naturalTestBit x (fromIntegral i) + zeroBits = naturalZero + clearBit x i = x `xor` (bit i .&. x) + + bit (I# i) = naturalBit# (int2Word# i) + popCount x = I# (word2Int# (naturalPopCount# x)) + + rotate x i = shift x i -- since an Natural never wraps around + + bitSizeMaybe _ = Nothing + bitSize _ = errorWithoutStackTrace "Data.Bits.bitSize(Natural)" + isSigned _ = False + +----------------------------------------------------------------------------- + +-- | Attempt to convert an 'Integral' type @a@ to an 'Integral' type @b@ using +-- the size of the types as measured by 'Bits' methods. +-- +-- A simpler version of this function is: +-- +-- > toIntegral :: (Integral a, Integral b) => a -> Maybe b +-- > toIntegral x +-- > | toInteger x == y = Just (fromInteger y) +-- > | otherwise = Nothing +-- > where +-- > y = toInteger x +-- +-- This version requires going through 'Integer', which can be inefficient. +-- However, @toIntegralSized@ is optimized to allow GHC to statically determine +-- the relative type sizes (as measured by 'bitSizeMaybe' and 'isSigned') and +-- avoid going through 'Integer' for many types. (The implementation uses +-- 'fromIntegral', which is itself optimized with rules for @base@ types but may +-- go through 'Integer' for some type pairs.) +-- +-- @since 4.8.0.0 + +toIntegralSized :: (Integral a, Integral b, Bits a, Bits b) => a -> Maybe b +toIntegralSized x -- See Note [toIntegralSized optimization] + | maybe True (<= x) yMinBound + , maybe True (x <=) yMaxBound = Just y + | otherwise = Nothing + where + y = fromIntegral x + + xWidth = bitSizeMaybe x + yWidth = bitSizeMaybe y + + yMinBound + | isBitSubType x y = Nothing + | isSigned x, not (isSigned y) = Just 0 + | isSigned x, isSigned y + , Just yW <- yWidth = Just (negate $ bit (yW-1)) -- Assumes sub-type + | otherwise = Nothing + + yMaxBound + | isBitSubType x y = Nothing + | isSigned x, not (isSigned y) + , Just xW <- xWidth, Just yW <- yWidth + , xW <= yW+1 = Nothing -- Max bound beyond a's domain + | Just yW <- yWidth = if isSigned y + then Just (bit (yW-1)-1) + else Just (bit yW-1) + | otherwise = Nothing +{-# INLINABLE toIntegralSized #-} + +-- | 'True' if the size of @a@ is @<=@ the size of @b@, where size is measured +-- by 'bitSizeMaybe' and 'isSigned'. +isBitSubType :: (Bits a, Bits b) => a -> b -> Bool +isBitSubType x y + -- Reflexive + | xWidth == yWidth, xSigned == ySigned = True + + -- Every integer is a subset of 'Integer' + | ySigned, Nothing == yWidth = True + | not xSigned, not ySigned, Nothing == yWidth = True + + -- Sub-type relations between fixed-with types + | xSigned == ySigned, Just xW <- xWidth, Just yW <- yWidth = xW <= yW + | not xSigned, ySigned, Just xW <- xWidth, Just yW <- yWidth = xW < yW + + | otherwise = False + where + xWidth = bitSizeMaybe x + xSigned = isSigned x + + yWidth = bitSizeMaybe y + ySigned = isSigned y +{-# INLINE isBitSubType #-} + +{- Note [Constant folding for rotate] + ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +The INLINE on the Int instance of rotate enables it to be constant +folded. For example: + sumU . mapU (`rotate` 3) . replicateU 10000000 $ (7 :: Int) +goes to: + Main.$wfold = + \ (ww_sO7 :: Int#) (ww1_sOb :: Int#) -> + case ww1_sOb of wild_XM { + __DEFAULT -> Main.$wfold (+# ww_sO7 56) (+# wild_XM 1); + 10000000 -> ww_sO7 +whereas before it was left as a call to $wrotate. + +All other Bits instances seem to inline well enough on their +own to enable constant folding; for example 'shift': + sumU . mapU (`shift` 3) . replicateU 10000000 $ (7 :: Int) + goes to: + Main.$wfold = + \ (ww_sOb :: Int#) (ww1_sOf :: Int#) -> + case ww1_sOf of wild_XM { + __DEFAULT -> Main.$wfold (+# ww_sOb 56) (+# wild_XM 1); + 10000000 -> ww_sOb + } +-} + +-- Note [toIntegralSized optimization] +-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +-- The code in 'toIntegralSized' relies on GHC optimizing away statically +-- decidable branches. +-- +-- If both integral types are statically known, GHC will be able optimize the +-- code significantly (for @-O1@ and better). +-- +-- For instance (as of GHC 7.8.1) the following definitions: +-- +-- > w16_to_i32 = toIntegralSized :: Word16 -> Maybe Int32 +-- > +-- > i16_to_w16 = toIntegralSized :: Int16 -> Maybe Word16 +-- +-- are translated into the following (simplified) /GHC Core/ language: +-- +-- > w16_to_i32 = \x -> Just (case x of _ { W16# x# -> I32# (word2Int# x#) }) +-- > +-- > i16_to_w16 = \x -> case eta of _ +-- > { I16# b1 -> case tagToEnum# (<=# 0 b1) of _ +-- > { False -> Nothing +-- > ; True -> Just (W16# (narrow16Word# (int2Word# b1))) +-- > } +-- > } diff --git a/GHC/Conc/POSIX.hs b/GHC/Conc/POSIX.hs --- a/GHC/Conc/POSIX.hs +++ b/GHC/Conc/POSIX.hs @@ -60,7 +60,6 @@ import GHC.Real (div, fromIntegral) import GHC.Word (Word32, Word64) import GHC.Windows -import Unsafe.Coerce ( unsafeCoerceUnlifted ) -- ---------------------------------------------------------------------------- -- Thread waiting @@ -92,11 +91,11 @@ -- this better be a pinned byte array! asyncReadBA :: Int -> Int -> Int -> Int -> MutableByteArray# RealWorld -> IO (Int,Int) asyncReadBA fd isSock len off bufB = - asyncRead fd isSock len ((Ptr (byteArrayContents# (unsafeCoerceUnlifted bufB))) `plusPtr` off) + asyncRead fd isSock len ((Ptr (mutableByteArrayContents# bufB)) `plusPtr` off) asyncWriteBA :: Int -> Int -> Int -> Int -> MutableByteArray# RealWorld -> IO (Int,Int) asyncWriteBA fd isSock len off bufB = - asyncWrite fd isSock len ((Ptr (byteArrayContents# (unsafeCoerceUnlifted bufB))) `plusPtr` off) + asyncWrite fd isSock len ((Ptr (mutableByteArrayContents# bufB)) `plusPtr` off) -- ---------------------------------------------------------------------------- -- Threaded RTS implementation of threadDelay @@ -179,7 +178,7 @@ interruptIOManager = return () startIOManagerThread :: IO () -startIOManagerThread = do +startIOManagerThread = modifyMVar_ ioManagerThread $ \old -> do let create = do t <- forkIO ioManager; labelThread t "IOManagerThread"; @@ -251,7 +250,7 @@ r <- c_WaitForSingleObject wakeup timeout case r of - 0xffffffff -> do throwGetLastError "service_loop" + 0xffffffff -> throwGetLastError "service_loop" 0 -> do r2 <- c_readIOManagerEvent exit <- diff --git a/GHC/Conc/Sync.hs b/GHC/Conc/Sync.hs --- a/GHC/Conc/Sync.hs +++ b/GHC/Conc/Sync.hs @@ -1,13 +1,11 @@ +{-# LANGUAGE CPP #-} +{-# LANGUAGE MagicHash #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE RankNTypes #-} +{-# LANGUAGE UnboxedTuples #-} +{-# LANGUAGE UnliftedFFITypes #-} {-# LANGUAGE Unsafe #-} -{-# LANGUAGE CPP - , NoImplicitPrelude - , BangPatterns - , MagicHash - , UnboxedTuples - , UnliftedFFITypes - , StandaloneDeriving - , RankNTypes - #-} + {-# OPTIONS_HADDOCK not-home #-} ----------------------------------------------------------------------------- @@ -482,10 +480,10 @@ yield = IO $ \s -> case (yield# s) of s1 -> (# s1, () #) -{- | 'labelThread' stores a string as identifier for this thread if -you built a RTS with debugging support. This identifier will be used in -the debugging output to make distinction of different threads easier -(otherwise you only have the thread state object\'s address in the heap). +{- | 'labelThread' stores a string as identifier for this thread. This +identifier will be used in the debugging output to make distinction of +different threads easier (otherwise you only have the thread state object\'s +address in the heap). It also emits an event to the RTS eventlog. Other applications like the graphical Concurrent Haskell Debugger () may choose to overload @@ -499,7 +497,7 @@ case labelThread# t p s of s1 -> (# s1, () #) -- Nota Bene: 'pseq' used to be 'seq' --- but 'seq' is now defined in PrelGHC +-- but 'seq' is now defined in GHC.Prim -- -- "pseq" is defined a bit weirdly (see below) -- diff --git a/GHC/Conc/WinIO.hs b/GHC/Conc/WinIO.hs --- a/GHC/Conc/WinIO.hs +++ b/GHC/Conc/WinIO.hs @@ -1,5 +1,7 @@ +{-# LANGUAGE CPP #-} +{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE CPP, NoImplicitPrelude, MagicHash, UnboxedTuples #-} + {-# OPTIONS_HADDOCK not-home #-} ----------------------------------------------------------------------------- diff --git a/GHC/Conc/Windows.hs b/GHC/Conc/Windows.hs --- a/GHC/Conc/Windows.hs +++ b/GHC/Conc/Windows.hs @@ -48,7 +48,6 @@ import GHC.Event.Windows.ConsoleEvent import GHC.IO.SubSystem (()) import GHC.Ptr -import Unsafe.Coerce ( unsafeCoerceUnlifted ) -- ---------------------------------------------------------------------------- -- Thread waiting @@ -80,11 +79,11 @@ -- this better be a pinned byte array! asyncReadBA :: Int -> Int -> Int -> Int -> MutableByteArray# RealWorld -> IO (Int,Int) asyncReadBA fd isSock len off bufB = - asyncRead fd isSock len ((Ptr (byteArrayContents# (unsafeCoerceUnlifted bufB))) `plusPtr` off) + asyncRead fd isSock len ((Ptr (mutableByteArrayContents# bufB)) `plusPtr` off) asyncWriteBA :: Int -> Int -> Int -> Int -> MutableByteArray# RealWorld -> IO (Int,Int) asyncWriteBA fd isSock len off bufB = - asyncWrite fd isSock len ((Ptr (byteArrayContents# (unsafeCoerceUnlifted bufB))) `plusPtr` off) + asyncWrite fd isSock len ((Ptr (mutableByteArrayContents# bufB)) `plusPtr` off) -- ---------------------------------------------------------------------------- -- Threaded RTS implementation of threadDelay diff --git a/GHC/Enum.hs b/GHC/Enum.hs --- a/GHC/Enum.hs +++ b/GHC/Enum.hs @@ -36,6 +36,7 @@ import GHC.Num.Integer import GHC.Num import GHC.Show +import GHC.Tuple (Solo (..)) default () -- Double isn't available yet -- | The 'Bounded' class is used to name the upper and lower limits of a @@ -234,6 +235,22 @@ enumFromTo () () = [()] enumFromThenTo () () () = let many = ():many in many +instance Enum a => Enum (Solo a) where + succ (Solo a) = Solo (succ a) + pred (Solo a) = Solo (pred a) + + toEnum x = Solo (toEnum x) + + fromEnum (Solo x) = fromEnum x + enumFrom (Solo x) = [Solo a | a <- enumFrom x] + enumFromThen (Solo x) (Solo y) = + [Solo a | a <- enumFromThen x y] + enumFromTo (Solo x) (Solo y) = + [Solo a | a <- enumFromTo x y] + enumFromThenTo (Solo x) (Solo y) (Solo z) = + [Solo a | a <- enumFromThenTo x y z] + +deriving instance Bounded a => Bounded (Solo a) -- Report requires instances up to 15 -- | @since 2.01 deriving instance (Bounded a, Bounded b) @@ -1004,6 +1021,11 @@ -- Instances from GHC.Types + +-- | @since 4.16.0.0 +deriving instance Bounded Levity +-- | @since 4.16.0.0 +deriving instance Enum Levity -- | @since 4.10.0.0 deriving instance Bounded VecCount diff --git a/GHC/Environment.hs b/GHC/Environment.hs --- a/GHC/Environment.hs +++ b/GHC/Environment.hs @@ -26,8 +26,8 @@ -- returns a list of the program's command line arguments, starting with the -- program name, and including those normally eaten by the RTS (+RTS ... -RTS). getFullArgs :: IO [String] -getFullArgs = do - alloca $ \ p_argc -> do +getFullArgs = + alloca $ \ p_argc -> alloca $ \ p_argv -> do getFullProgArgv p_argc p_argv p <- fromIntegral `liftM` peek p_argc diff --git a/GHC/Err.hs b/GHC/Err.hs --- a/GHC/Err.hs +++ b/GHC/Err.hs @@ -26,7 +26,6 @@ import GHC.Types (Char, RuntimeRep) import GHC.Stack.Types import GHC.Prim -import GHC.Num.Integer () -- See Note [Depend on GHC.Num.Integer] in GHC.Base import {-# SOURCE #-} GHC.Exception ( errorCallWithCallStackException , errorCallException ) diff --git a/GHC/Event/Array.hs b/GHC/Event/Array.hs --- a/GHC/Event/Array.hs +++ b/GHC/Event/Array.hs @@ -128,7 +128,7 @@ unsafeWrite' ac ix a unsafeWrite' :: Storable a => AC a -> Int -> a -> IO () -unsafeWrite' (AC es _ cap) ix a = do +unsafeWrite' (AC es _ cap) ix a = CHECK_BOUNDS("unsafeWrite'",cap,ix) unsafeWithForeignPtr es $ \ptr -> pokeElemOff ptr ix a -- this is safe WRT #17760 as we assume that peekElemOff doesn't diverge @@ -164,7 +164,7 @@ writeIORef ref ac' ensureCapacity' :: Storable a => AC a -> Int -> IO (AC a) -ensureCapacity' ac@(AC es len cap) c = do +ensureCapacity' ac@(AC es len cap) c = if c > cap then do es' <- reallocArray es cap' cap @@ -188,7 +188,7 @@ writeIORef ref (AC es len' cap) clear :: Array a -> IO () -clear (Array ref) = do +clear (Array ref) = atomicModifyIORef' ref $ \(AC es _ cap) -> (AC es 0 cap, ()) diff --git a/GHC/Event/Control.hs b/GHC/Event/Control.hs --- a/GHC/Event/Control.hs +++ b/GHC/Event/Control.hs @@ -28,7 +28,6 @@ #include "EventConfig.h" -import Foreign.ForeignPtr (ForeignPtr) import GHC.Base import GHC.IORef import GHC.Conc.Signal (Signal) @@ -37,7 +36,7 @@ import GHC.Word (Word8) import Foreign.C.Error (throwErrnoIfMinus1_, throwErrno, getErrno) import Foreign.C.Types (CInt(..), CSize(..)) -import Foreign.ForeignPtr (mallocForeignPtrBytes, withForeignPtr) +import Foreign.ForeignPtr (ForeignPtr, mallocForeignPtrBytes, withForeignPtr) import Foreign.Marshal (alloca, allocaBytes) import Foreign.Marshal.Array (allocaArray) import Foreign.Ptr (castPtr) diff --git a/GHC/Event/EPoll.hsc b/GHC/Event/EPoll.hsc --- a/GHC/Event/EPoll.hsc +++ b/GHC/Event/EPoll.hsc @@ -1,8 +1,7 @@ -{-# LANGUAGE Trustworthy #-} -{-# LANGUAGE GeneralizedNewtypeDeriving - , NoImplicitPrelude - , BangPatterns - #-} +{-# LANGUAGE BangPatterns #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE Trustworthy #-} ----------------------------------------------------------------------------- -- | @@ -50,8 +49,7 @@ import GHC.Num (Num(..)) import GHC.Real (fromIntegral, div) import GHC.Show (Show) -import System.Posix.Internals (c_close) -import System.Posix.Internals (setCloseOnExec) +import System.Posix.Internals (c_close, setCloseOnExec) import System.Posix.Types (Fd(..)) import qualified GHC.Event.Array as A diff --git a/GHC/Event/IntTable.hs b/GHC/Event/IntTable.hs --- a/GHC/Event/IntTable.hs +++ b/GHC/Event/IntTable.hs @@ -17,12 +17,10 @@ import Data.Bits ((.&.), shiftL, shiftR) import Data.IORef (IORef, newIORef, readIORef, writeIORef) import Data.Maybe (Maybe(..), isJust) -import Foreign.ForeignPtr (ForeignPtr, mallocForeignPtr) -import GHC.ForeignPtr (unsafeWithForeignPtr) -import Foreign.Storable (peek, poke) import GHC.Base (Monad(..), (=<<), ($), ($!), const, liftM, otherwise, when) import GHC.Classes (Eq(..), Ord(..)) import GHC.Event.Arr (Arr) +import GHC.Event.IntVar import GHC.Num (Num(..)) import GHC.Prim (seq) import GHC.Types (Bool(..), IO(..), Int(..)) @@ -36,7 +34,7 @@ data IT a = IT { tabArr :: {-# UNPACK #-} !(Arr (Bucket a)) - , tabSize :: {-# UNPACK #-} !(ForeignPtr Int) + , tabSize :: {-# UNPACK #-} !IntVar } data Bucket a = Empty @@ -62,8 +60,7 @@ new_ :: Int -> IO (IT a) new_ capacity = do arr <- Arr.new Empty capacity - size <- mallocForeignPtr - unsafeWithForeignPtr size $ \ptr -> poke ptr 0 + size <- newIntVar 0 return IT { tabArr = arr , tabSize = size } @@ -82,7 +79,7 @@ copyBucket (m+1) bucketNext copyBucket n =<< Arr.read (tabArr oldit) i copySlot 0 0 - unsafeWithForeignPtr (tabSize newit) $ \ptr -> poke ptr size + writeIntVar (tabSize newit) size writeIORef ref newit -- | @insertWith f k v table@ inserts @k@ into @table@ with value @v@. @@ -101,13 +98,13 @@ Arr.write tabArr idx (Bucket k v' next) return (Just bucketValue) | otherwise = go bkt { bucketNext = seen } bucketNext - go seen _ = unsafeWithForeignPtr tabSize $ \ptr -> do - size <- peek ptr + go seen _ = do + size <- readIntVar tabSize if size + 1 >= Arr.size tabArr - (Arr.size tabArr `shiftR` 2) then grow it ref size >> insertWith f k v inttable else do v `seq` Arr.write tabArr idx (Bucket k v seen) - poke ptr (size + 1) + writeIntVar tabSize (size + 1) return Nothing go Empty =<< Arr.read tabArr idx {-# INLINABLE insertWith #-} @@ -139,9 +136,8 @@ (del, oldVal, newBucket) <- go `liftM` Arr.read tabArr idx when (isJust oldVal) $ do Arr.write tabArr idx newBucket - when del $ - unsafeWithForeignPtr tabSize $ \ptr -> do - size <- peek ptr - poke ptr (size - 1) + when del $ do + size <- readIntVar tabSize + writeIntVar tabSize (size - 1) return oldVal diff --git a/GHC/Event/IntVar.hs b/GHC/Event/IntVar.hs new file mode 100644 --- /dev/null +++ b/GHC/Event/IntVar.hs @@ -0,0 +1,34 @@ +{-# LANGUAGE Trustworthy #-} +{-# LANGUAGE BangPatterns #-} +{-# LANGUAGE CPP, MagicHash, NoImplicitPrelude, UnboxedTuples #-} + +module GHC.Event.IntVar + ( IntVar + , newIntVar + , readIntVar + , writeIntVar + ) where + +import GHC.Base +import GHC.Bits + +data IntVar = IntVar (MutableByteArray# RealWorld) + +newIntVar :: Int -> IO IntVar +newIntVar n = do + let !(I# size) = finiteBitSize (0 :: Int) `unsafeShiftR` 3 + iv <- IO $ \s -> + case newByteArray# size s of + (# s', mba #) -> (# s', IntVar mba #) + writeIntVar iv n + return iv + +readIntVar :: IntVar -> IO Int +readIntVar (IntVar mba) = IO $ \s -> + case readIntArray# mba 0# s of + (# s', n #) -> (# s', I# n #) + +writeIntVar :: IntVar -> Int -> IO () +writeIntVar (IntVar mba) (I# n) = IO $ \s -> + case writeIntArray# mba 0# n s of + s' -> (# s', () #) diff --git a/GHC/Event/KQueue.hsc b/GHC/Event/KQueue.hsc --- a/GHC/Event/KQueue.hsc +++ b/GHC/Event/KQueue.hsc @@ -1,10 +1,11 @@ -{-# LANGUAGE Trustworthy #-} -{-# LANGUAGE CApiFFI - , GeneralizedNewtypeDeriving - , NoImplicitPrelude - , RecordWildCards - , BangPatterns - #-} +{-# LANGUAGE BangPatterns #-} +{-# LANGUAGE CApiFFI #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE Trustworthy #-} + +{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-} +{-# HLINT ignore "Unused LANGUAGE pragma" #-} module GHC.Event.KQueue ( diff --git a/GHC/Event/Manager.hs b/GHC/Event/Manager.hs --- a/GHC/Event/Manager.hs +++ b/GHC/Event/Manager.hs @@ -1,12 +1,10 @@ +{-# LANGUAGE BangPatterns #-} +{-# LANGUAGE CPP #-} +{-# LANGUAGE ExistentialQuantification #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE RecordWildCards #-} {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE BangPatterns - , CPP - , ExistentialQuantification - , NoImplicitPrelude - , RecordWildCards - , TypeSynonymInstances - , FlexibleInstances - #-} -- | -- The event manager supports event notification on fds. Each fd may @@ -150,9 +148,7 @@ haveOneShot :: Bool {-# INLINE haveOneShot #-} -#if defined(darwin_HOST_OS) || defined(ios_HOST_OS) -haveOneShot = False -#elif defined(HAVE_EPOLL) || defined(HAVE_KQUEUE) +#if defined(HAVE_EPOLL) || defined(HAVE_KQUEUE) haveOneShot = True #else haveOneShot = False @@ -365,20 +361,9 @@ return r {-# INLINE registerFd #-} -{- - Building GHC with parallel IO manager on Mac freezes when - compiling the dph libraries in the phase 2. As workaround, we - don't use oneshot and we wake up an IO manager on Mac every time - when we register an event. - - For more information, please read: - https://gitlab.haskell.org/ghc/ghc/issues/7651 --} -- | Wake up the event manager. wakeManager :: EventManager -> IO () -#if defined(darwin_HOST_OS) || defined(ios_HOST_OS) -wakeManager mgr = sendWakeup (emControl mgr) -#elif defined(HAVE_EPOLL) || defined(HAVE_KQUEUE) +#if defined(HAVE_EPOLL) || defined(HAVE_KQUEUE) wakeManager _ = return () #else wakeManager mgr = sendWakeup (emControl mgr) @@ -417,7 +402,8 @@ wake <- unregisterFd_ mgr reg when wake $ wakeManager mgr --- | Close a file descriptor in a race-safe way. +-- | Close a file descriptor in a race-safe way. It might block, although for +-- a very short time; and thus it is interruptible by asynchronous exceptions. closeFd :: EventManager -> (Fd -> IO ()) -> Fd -> IO () closeFd mgr close fd = do fds <- withMVar (callbackTableVar mgr fd) $ \tbl -> do @@ -438,9 +424,9 @@ -- holds the callback table lock for the fd. It must hold this lock because -- this command executes a backend command on the fd. closeFd_ :: EventManager - -> IntTable [FdData] - -> Fd - -> IO (IO ()) + -> IntTable [FdData] + -> Fd + -> IO (IO ()) closeFd_ mgr tbl fd = do prev <- IT.delete (fromIntegral fd) tbl case prev of @@ -507,8 +493,8 @@ -- if there are no saved events and we registered with one-shot -- semantics then there is no need to re-arm unless (OneShot == I.elLifetime allEls - && mempty == I.elEvent savedEls) $ do - void $ I.modifyFdOnce (emBackend mgr) fd (I.elEvent savedEls) + && mempty == I.elEvent savedEls) $ + void $ I.modifyFdOnce (emBackend mgr) fd (I.elEvent savedEls) _ -> -- we need to re-arm with multi-shot semantics void $ I.modifyFd (emBackend mgr) fd diff --git a/GHC/Event/PSQ.hs b/GHC/Event/PSQ.hs --- a/GHC/Event/PSQ.hs +++ b/GHC/Event/PSQ.hs @@ -1,11 +1,7 @@ -{-# LANGUAGE Trustworthy #-} -{-# LANGUAGE BangPatterns #-} {-# LANGUAGE CPP #-} -{-# LANGUAGE DeriveFoldable #-} -{-# LANGUAGE DeriveFunctor #-} -{-# LANGUAGE DeriveTraversable #-} {-# LANGUAGE MagicHash #-} {-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE Trustworthy #-} {-# LANGUAGE UnboxedTuples #-} module GHC.Event.PSQ @@ -44,7 +40,7 @@ , atMost ) where -import GHC.Base hiding (Nat, empty) +import GHC.Base hiding (empty) import GHC.Event.Unique import GHC.Word (Word64) import GHC.Num (Num(..)) diff --git a/GHC/Event/Poll.hsc b/GHC/Event/Poll.hsc --- a/GHC/Event/Poll.hsc +++ b/GHC/Event/Poll.hsc @@ -91,7 +91,7 @@ c_pollLoop ptr (fromIntegral len) (fromTimeout tout) Nothing -> c_poll_unsafe ptr (fromIntegral len) 0 - when (n /= 0) $ do + when (n /= 0) $ A.loop a 0 $ \i e -> do let r = pfdRevents e if r /= 0 diff --git a/GHC/Event/Thread.hs b/GHC/Event/Thread.hs --- a/GHC/Event/Thread.hs +++ b/GHC/Event/Thread.hs @@ -19,6 +19,7 @@ import Control.Exception (finally, SomeException, toException) import Data.Foldable (forM_, mapM_, sequence_) import Data.IORef (IORef, newIORef, readIORef, writeIORef) +import Data.Maybe (fromMaybe) import Data.Tuple (snd) import Foreign.C.Error (eBADF, errnoToIOError) import Foreign.C.Types (CInt(..), CUInt(..)) @@ -29,7 +30,7 @@ labelThread, modifyMVar_, withMVar, newTVar, sharedCAF, getNumCapabilities, threadCapability, myThreadId, forkOn, threadStatus, writeTVar, newTVarIO, readTVar, retry,throwSTM,STM) -import GHC.IO (mask_, onException) +import GHC.IO (mask_, uninterruptibleMask_, onException) import GHC.IO.Exception (ioError) import GHC.IOArray (IOArray, newIOArray, readIOArray, writeIOArray, boundsIOArray) @@ -103,7 +104,10 @@ mgrs <- flip mapM [low..high] $ \i -> do Just (_,!mgr) <- readIOArray eventManagerArray i return mgr - mask_ $ do + -- 'takeMVar', and 'M.closeFd_' might block, although for a very short time. + -- To make 'closeFdWith' safe in presence of asynchronous exceptions we have + -- to use uninterruptible mask. + uninterruptibleMask_ $ do tables <- flip mapM mgrs $ \mgr -> takeMVar $ M.callbackTableVar mgr fd cbApps <- zipWithM (\mgr table -> M.closeFd_ mgr table fd) mgrs tables close fd `finally` sequence_ (zipWith3 finish mgrs tables cbApps) @@ -196,8 +200,7 @@ {-# NOINLINE eventManager #-} numEnabledEventManagers :: IORef Int -numEnabledEventManagers = unsafePerformIO $ do - newIORef 0 +numEnabledEventManagers = unsafePerformIO $ newIORef 0 {-# NOINLINE numEnabledEventManagers #-} foreign import ccall unsafe "getOrSetSystemEventThreadIOManagerThreadStore" @@ -212,9 +215,10 @@ sharedCAF m getOrSetSystemEventThreadIOManagerThreadStore getSystemTimerManager :: IO TM.TimerManager -getSystemTimerManager = do - Just mgr <- readIORef timerManager - return mgr +getSystemTimerManager = + fromMaybe err `fmap` readIORef timerManager + where + err = error "GHC.Event.Thread.getSystemTimerManager: the TimerManager requires linking against the threaded runtime" foreign import ccall unsafe "getOrSetSystemTimerThreadEventManagerStore" getOrSetSystemTimerThreadEventManagerStore :: Ptr a -> IO (Ptr a) @@ -323,7 +327,7 @@ foreign import ccall unsafe "rtsSupportsBoundThreads" threaded :: Bool ioManagerCapabilitiesChanged :: IO () -ioManagerCapabilitiesChanged = do +ioManagerCapabilitiesChanged = withMVar ioManagerLock $ \_ -> do new_n_caps <- getNumCapabilities numEnabled <- readIORef numEnabledEventManagers diff --git a/GHC/Event/TimerManager.hs b/GHC/Event/TimerManager.hs --- a/GHC/Event/TimerManager.hs +++ b/GHC/Event/TimerManager.hs @@ -1,11 +1,10 @@ +{-# LANGUAGE BangPatterns #-} +{-# LANGUAGE CPP #-} +{-# LANGUAGE ExistentialQuantification #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE BangPatterns - , CPP - , ExistentialQuantification - , NoImplicitPrelude - , TypeSynonymInstances - , FlexibleInstances - #-} + -- TODO: use the new Windows IO manager module GHC.Event.TimerManager ( -- * Types @@ -227,7 +226,7 @@ -- | Unregister an active timeout. unregisterTimeout :: TimerManager -> TimeoutKey -> IO () -unregisterTimeout mgr (TK key) = do +unregisterTimeout mgr (TK key) = editTimeouts mgr (Q.delete key) -- | Update an active timeout to fire in the given number of diff --git a/GHC/Event/Windows.hsc b/GHC/Event/Windows.hsc --- a/GHC/Event/Windows.hsc +++ b/GHC/Event/Windows.hsc @@ -529,12 +529,13 @@ Manager -> String -- ^ Handle name -> HANDLE -- ^ Windows handle associated with the operation. + -> Bool -> Word64 -- ^ Value to use for the @OVERLAPPED@ -- structure's Offset/OffsetHigh members. -> StartIOCallback Int -> CompletionCallback (IOResult a) -> IO (IOResult a) -withOverlappedEx mgr fname h offset startCB completionCB = do +withOverlappedEx mgr fname h async offset startCB completionCB = do signal <- newEmptyIOPort :: IO (IOPort (IOResult a)) let signalReturn a = failIfFalse_ (dbgMsg "signalReturn") $ writeIOPort signal (IOSuccess a) @@ -552,7 +553,7 @@ -- function will block until done so it can call completionCB at the end -- we can safely use dynamic memory management here and so reduce the -- possibility of memory errors. - withRequest offset callbackData $ \hs_lpol cdData -> do + withRequest async offset callbackData $ \hs_lpol cdData -> do let ptr_lpol = hs_lpol `plusPtr` cdOffset let lpol = castPtr hs_lpol -- We need to add the payload before calling startCBResult, the reason being @@ -564,7 +565,7 @@ -- relied on for non-file handles we need a way to prevent -- us from handling a request inline and handle a completion -- event handled without a queued I/O operation. Which means we - -- can't solely rely on the number of oustanding requests but most + -- can't solely rely on the number of outstanding requests but most -- also check intermediate status. reqs <- addRequest debugIO $ "+1.. " ++ show reqs ++ " requests queued. | " ++ show lpol @@ -625,11 +626,11 @@ -- Normally we'd have to clear lpol with 0 before this call, -- however the statuses we're interested in would not get to here -- so we can save the memset call. - finished <- FFI.getOverlappedResult h lpol False + finished <- FFI.getOverlappedResult h lpol (not async) + lasterr <- getLastError debugIO $ "== " ++ show (finished) status <- FFI.overlappedIOStatus lpol debugIO $ "== >< " ++ show (status) - lasterr <- getLastError -- This status indicated that we have finished early and so we -- won't have a request enqueued. Handle it inline. let done_early = status == #{const STATUS_SUCCESS} @@ -779,7 +780,8 @@ unless :: Bool -> IO () -> IO () unless p a = if p then a else return () --- Safe version of function +-- Safe version of function of withOverlappedEx that assumes your handle is +-- set up for asynchronous access. withOverlapped :: String -> HANDLE -> Word64 -- ^ Value to use for the @OVERLAPPED@ @@ -789,7 +791,7 @@ -> IO (IOResult a) withOverlapped fname h offset startCB completionCB = do mngr <- getSystemManager - withOverlappedEx mngr fname h offset startCB completionCB + withOverlappedEx mngr fname h True offset startCB completionCB ------------------------------------------------------------------------ -- Helper to check if an error code implies an operation has completed. diff --git a/GHC/Event/Windows/FFI.hsc b/GHC/Event/Windows/FFI.hsc --- a/GHC/Event/Windows/FFI.hsc +++ b/GHC/Event/Windows/FFI.hsc @@ -343,13 +343,69 @@ #{poke OVERLAPPED, OffsetHigh} lpol offsetHigh {-# INLINE pokeOffsetOverlapped #-} +-- | Set the event field in an OVERLAPPED structure. +pokeEventOverlapped :: LPOVERLAPPED -> HANDLE -> IO () +pokeEventOverlapped lpol event = do + #{poke OVERLAPPED, hEvent} lpol event +{-# INLINE pokeEventOverlapped #-} + ------------------------------------------------------------------------ -- Request management -withRequest :: Word64 -> CompletionData +-- [Note AsyncHandles] +-- In `winio` we have designed it to work in asynchronous mode always. +-- According to the MSDN documentation[1][2], when a handle is not opened +-- in asynchronous mode then the operation would simply work but operate +-- synchronously. +-- +-- This seems to happen as documented for `File` handles, but `pipes` don't +-- seem to follow this documented behavior and so are a problem. +-- Under `msys2` your standard handles are actually pipes, not console +-- handles or files. As such running under an msys2 console causes a hang +-- as the pipe read never returns. +-- +-- [1] https://docs.microsoft.com/en-us/windows/win32/fileio/synchronous-and-asynchronous-i-o +-- [2] https://docs.microsoft.com/en-us/windows/win32/sync/synchronization-and-overlapped-input-and-output +-- +-- As such we need to annotate all NativeHandles with a Boolean to indicate +-- wether it's an asynchronous handle or not. +-- This allows us to manually wait for the completion instead of relying +-- on the I/O system to do the right thing. As we have been using the +-- buffers in async mode we may not have moved the file pointer on the kernel +-- object, as such we still need to give an `OVERLAPPED` structure, but we +-- instead create an event object that we can wait on. +-- +-- As documented in MSDN this even object must be in manual reset mode. This +-- approach gives us the flexibility, with minimum impact to support both +-- synchronous and asynchronous access. +-- +-- Additional approaches explored +-- +-- Normally the I/O system is in full control of all Handles it creates, with +-- one big exception: inheritance. +-- +-- For any `HANDLE` we inherit we don't know how it's been open. A different +-- solution I have explored was to try to detect the `HANDLE` mode. +-- But this approach would never work for a few reasons: +-- +-- 1. The presence of an asynchronous flag does not indicate that we are able +-- to handle the operation asynchronously. In particular, just because a +-- `HANDLE` is open in async mode, it may not be associated with our +-- completion port. +-- 2. One can only associate a `HANDLE` to a *single* completion port. As +-- such, if the handle is opened in async mode but already registered to a +-- completion port then we can't use it asynchronously. +-- 3. You can only associate a completion port once, even if it's the same +-- port. This means were we to strap a `HANDLE` of it's `NativeHandle` +-- wrapper and then wrap it again, we can't retest as the result would be +-- invalid. This is an issue because to pass `HANDLE`s we have to pass +-- the native OS Handle not the Haskell one. i.e. remote-iserv. + +-- See [Note AsyncHandles] +withRequest :: Bool -> Word64 -> CompletionData -> (Ptr HASKELL_OVERLAPPED -> Ptr CompletionData -> IO a) -> IO a -withRequest offset cbData f = +withRequest async offset cbData f = -- Create the completion record and store it. -- We only need the record when we enqueue a request, however if we -- delay creating it then we will run into a race condition where the @@ -364,8 +420,30 @@ allocaBytes #{size HASKELL_OVERLAPPED} $ \hs_lpol -> with cbData $ \cdData -> do zeroOverlapped hs_lpol - pokeOffsetOverlapped (castPtr hs_lpol) offset - f hs_lpol cdData + let lpol = castPtr hs_lpol + pokeOffsetOverlapped lpol offset + -- If doing a synchronous request then register an event object. + -- This event object MUST be manual reset per MSDN. + case async of + True -> f hs_lpol cdData + False -> do + event <- failIfNull "withRequest (create)" $ + c_CreateEvent nullPtr True False nullPtr + debugIO $ "{{ event " ++ show event ++ " for " ++ show hs_lpol + pokeEventOverlapped lpol event + res <- f hs_lpol cdData + -- Once the request has finished, close the object and free it. + failIfFalse_ "withRequest (free)" $ c_CloseHandle event + return res + + +-- | Create an event object for use when the HANDLE isn't asynchronous +foreign import WINDOWS_CCONV unsafe "windows.h CreateEventW" + c_CreateEvent :: Ptr () -> Bool -> Bool -> LPCWSTR -> IO HANDLE + +-- | Close a handle object +foreign import WINDOWS_CCONV unsafe "windows.h CloseHandle" + c_CloseHandle :: HANDLE -> IO Bool ------------------------------------------------------------------------ -- Cancel pending I/O diff --git a/GHC/Event/Windows/ManagedThreadPool.hs b/GHC/Event/Windows/ManagedThreadPool.hs --- a/GHC/Event/Windows/ManagedThreadPool.hs +++ b/GHC/Event/Windows/ManagedThreadPool.hs @@ -1,10 +1,8 @@ {-# LANGUAGE BangPatterns #-} {-# LANGUAGE CPP #-} {-# LANGUAGE DoAndIfThenElse #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE EmptyDataDecls #-} -{-# LANGUAGE RecordWildCards #-} {-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE RecordWildCards #-} ------------------------------------------------------------------------------- -- | diff --git a/GHC/Exception.hs-boot b/GHC/Exception.hs-boot --- a/GHC/Exception.hs-boot +++ b/GHC/Exception.hs-boot @@ -14,7 +14,7 @@ GHC.Exception imports Data.Typeable -imports Data.Typeable.Internals +imports Data.Typeable.Internal imports GHC.Arr (fingerprint representation etc) imports GHC.Real imports {-# SOURCE #-} GHC.Exception diff --git a/GHC/Exception/Type.hs b/GHC/Exception/Type.hs --- a/GHC/Exception/Type.hs +++ b/GHC/Exception/Type.hs @@ -1,10 +1,7 @@ +{-# LANGUAGE ExistentialQuantification #-} +{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE NoImplicitPrelude - , ExistentialQuantification - , MagicHash - , RecordWildCards - , PatternSynonyms - #-} + {-# OPTIONS_HADDOCK not-home #-} ----------------------------------------------------------------------------- diff --git a/GHC/Exception/Type.hs-boot b/GHC/Exception/Type.hs-boot --- a/GHC/Exception/Type.hs-boot +++ b/GHC/Exception/Type.hs-boot @@ -9,7 +9,7 @@ , underflowException ) where -import GHC.Types () +import GHC.Num.Integer () -- See Note [Depend on GHC.Num.Integer] in GHC.Base data SomeException divZeroException, overflowException, diff --git a/GHC/ExecutionStack/Internal.hsc b/GHC/ExecutionStack/Internal.hsc --- a/GHC/ExecutionStack/Internal.hsc +++ b/GHC/ExecutionStack/Internal.hsc @@ -171,7 +171,7 @@ frame' = frame `plusPtr` sizeOf (undefined :: Addr) lookupFrame :: Addr -> IO (Maybe Location) - lookupFrame pc = withForeignPtr fptr $ const $ do + lookupFrame pc = withForeignPtr fptr $ const $ allocaBytes locationSize $ \buf -> do ret <- withForeignPtr sess $ \sessPtr -> libdw_lookup_location sessPtr buf pc case ret of diff --git a/GHC/Exts.hs b/GHC/Exts.hs --- a/GHC/Exts.hs +++ b/GHC/Exts.hs @@ -1,8 +1,11 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MagicHash #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE UnboxedTuples #-} {-# LANGUAGE Unsafe #-} -{-# LANGUAGE MagicHash, UnboxedTuples, TypeFamilies, DeriveDataTypeable, - MultiParamTypeClasses, FlexibleInstances, NoImplicitPrelude #-} - -{-# OPTIONS_HADDOCK not-home #-} +{-# LANGUAGE DeriveDataTypeable #-} ----------------------------------------------------------------------------- -- | @@ -34,9 +37,8 @@ module GHC.Prim, module GHC.Prim.Ext, shiftL#, shiftRL#, iShiftL#, iShiftRA#, iShiftRL#, - uncheckedShiftL64#, uncheckedShiftRL64#, - uncheckedIShiftL64#, uncheckedIShiftRA64#, isTrue#, + Void#, -- Previously exported by GHC.Prim -- * Compat wrapper atomicModifyMutVar#, @@ -67,7 +69,7 @@ breakpoint, breakpointCond, -- * Ids with special behaviour - inline, noinline, lazy, oneShot, SPEC (..), + inline, noinline, lazy, oneShot, considerAccessible, SPEC (..), -- * Running 'RealWorld' state thread runRW#, @@ -86,7 +88,9 @@ type (~~), -- * Representation polymorphism - GHC.Prim.TYPE, RuntimeRep(..), VecCount(..), VecElem(..), + GHC.Prim.TYPE, RuntimeRep(..), Levity(..), + LiftedRep, UnliftedRep, UnliftedType, + VecCount(..), VecElem(..), -- * Transform comprehensions Down(..), groupWith, sortWith, the, @@ -114,8 +118,6 @@ import qualified GHC.Prim import qualified GHC.Prim.Ext import GHC.Base hiding ( coerce ) -import GHC.Word -import GHC.Int import GHC.Ptr import GHC.Stack @@ -132,7 +134,7 @@ -- XXX This should really be in Data.Tuple, where the definitions are maxTupleSize :: Int -maxTupleSize = 62 +maxTupleSize = 64 -- | 'the' ensures that all the elements of the list are identical -- and then returns that unique element @@ -209,8 +211,8 @@ fromList :: [Item l] -> l -- | The 'fromListN' function takes the input list's length and potentially - -- uses it to construct the structure @l@ more efficiently compared to - -- 'fromList'. If the given number does not equal to the input list's length + -- uses it to construct the structure @l@ more efficiently compared to + -- 'fromList'. If the given number does not equal to the input list's length -- the behaviour of 'fromListN' is not specified. -- -- prop> fromListN (length xs) xs == fromList xs @@ -311,3 +313,27 @@ (# s2, arr1 #) -> case copySmallMutableArray# arr0 0# arr1 0# szOld s2 of s3 -> (# s3, arr1 #) else (# s1, arr0 #) + +-- | Semantically, @considerAccessible = True@. But it has special meaning +-- to the pattern-match checker, which will never flag the clause in which +-- 'considerAccessible' occurs as a guard as redundant or inaccessible. +-- Example: +-- +-- > case (x, x) of +-- > (True, True) -> 1 +-- > (False, False) -> 2 +-- > (True, False) -> 3 -- Warning: redundant +-- +-- The pattern-match checker will warn here that the third clause is redundant. +-- It will stop doing so if the clause is adorned with 'considerAccessible': +-- +-- > case (x, x) of +-- > (True, True) -> 1 +-- > (False, False) -> 2 +-- > (True, False) | considerAccessible -> 3 -- No warning +-- +-- Put 'considerAccessible' as the last statement of the guard to avoid get +-- confusing results from the pattern-match checker, which takes \"consider +-- accessible\" by word. +considerAccessible :: Bool +considerAccessible = True diff --git a/GHC/Fingerprint.hs b/GHC/Fingerprint.hs --- a/GHC/Fingerprint.hs +++ b/GHC/Fingerprint.hs @@ -1,8 +1,6 @@ -{-# LANGUAGE Trustworthy #-} -{-# LANGUAGE CPP - , NoImplicitPrelude - , BangPatterns - #-} +{-# LANGUAGE CPP #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE Trustworthy #-} -- ---------------------------------------------------------------------------- -- @@ -44,11 +42,11 @@ fingerprintFingerprints :: [Fingerprint] -> Fingerprint fingerprintFingerprints fs = unsafeDupablePerformIO $ - withArrayLen fs $ \len p -> do + withArrayLen fs $ \len p -> fingerprintData (castPtr p) (len * sizeOf (head fs)) fingerprintData :: Ptr Word8 -> Int -> IO Fingerprint -fingerprintData buf len = do +fingerprintData buf len = allocaBytes SIZEOF_STRUCT_MD5CONTEXT $ \pctxt -> do c_MD5Init pctxt c_MD5Update pctxt buf (fromIntegral len) @@ -73,7 +71,7 @@ -- -- @since 4.7.0.0 getFileHash :: FilePath -> IO Fingerprint -getFileHash path = withBinaryFile path ReadMode $ \h -> do +getFileHash path = withBinaryFile path ReadMode $ \h -> allocaBytes SIZEOF_STRUCT_MD5CONTEXT $ \pctxt -> do c_MD5Init pctxt diff --git a/GHC/Float.hs b/GHC/Float.hs --- a/GHC/Float.hs +++ b/GHC/Float.hs @@ -1,5 +1,6 @@ {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE CPP +{-# LANGUAGE BangPatterns + , CPP , GHCForeignImportPrim , NoImplicitPrelude , MagicHash @@ -55,8 +56,8 @@ import Data.Maybe -import Data.Bits import GHC.Base +import GHC.Bits import GHC.List import GHC.Enum import GHC.Show @@ -299,6 +300,22 @@ {-# INLINE fromInteger #-} fromInteger i = F# (integerToFloat# i) +-- | Convert an Integer to a Float# +integerToFloat# :: Integer -> Float# +{-# NOINLINE integerToFloat# #-} +integerToFloat# (IS i) = int2Float# i +integerToFloat# i@(IP _) = case integerToBinaryFloat' i of + F# x -> x +integerToFloat# (IN bn) = case integerToBinaryFloat' (IP bn) of + F# x -> negateFloat# x + +-- | Convert a Natural to a Float# +naturalToFloat# :: Natural -> Float# +{-# NOINLINE naturalToFloat# #-} +naturalToFloat# (NS w) = word2Float# w +naturalToFloat# (NB b) = case integerToBinaryFloat' (IP b) of + F# x -> x + -- | @since 2.01 instance Real Float where toRational (F# x#) = @@ -494,7 +511,23 @@ {-# INLINE fromInteger #-} fromInteger i = D# (integerToDouble# i) +-- | Convert an Integer to a Double# +integerToDouble# :: Integer -> Double# +{-# NOINLINE integerToDouble# #-} +integerToDouble# (IS i) = int2Double# i +integerToDouble# i@(IP _) = case integerToBinaryFloat' i of + D# x -> x +integerToDouble# (IN bn) = case integerToBinaryFloat' (IP bn) of + D# x -> negateDouble# x +-- | Encode a Natural (mantissa) into a Double# +naturalToDouble# :: Natural -> Double# +{-# NOINLINE naturalToDouble# #-} +naturalToDouble# (NS w) = word2Double# w +naturalToDouble# (NB b) = case integerToBinaryFloat' (IP b) of + D# x -> x + + -- | @since 2.01 instance Real Double where toRational (D# x#) = @@ -920,9 +953,41 @@ (map fromIntegral (reverse rds), k) ------------------------------------------------------------------------ --- Converting from a Rational to a RealFloa +-- Converting from an Integer to a RealFloat ------------------------------------------------------------------------ +{-# SPECIALISE integerToBinaryFloat' :: Integer -> Float, + Integer -> Double #-} +-- | Converts a positive integer to a floating-point value. +-- +-- The value nearest to the argument will be returned. +-- If there are two such values, the one with an even significand will +-- be returned (i.e. IEEE roundTiesToEven). +-- +-- The argument must be strictly positive, and @floatRadix (undefined :: a)@ must be 2. +integerToBinaryFloat' :: RealFloat a => Integer -> a +integerToBinaryFloat' n = result + where + mantDigs = floatDigits result + k = I# (word2Int# (integerLog2# n)) + result = if k < mantDigs then + encodeFloat n 0 + else + let !e@(I# e#) = k - mantDigs + 1 + q = n `unsafeShiftR` e + n' = case roundingMode# n (e# -# 1#) of + 0# -> q + 1# -> if integerToInt q .&. 1 == 0 then + q + else + q + 1 + _ {- 2# -} -> q + 1 + in encodeFloat n' e + +------------------------------------------------------------------------ +-- Converting from a Rational to a RealFloat +------------------------------------------------------------------------ + {- [In response to a request for documentation of how fromRational works, Joe Fasel writes:] A quite reasonable request! This code was added to @@ -1291,10 +1356,6 @@ word2Float (W# w) = F# (word2Float# w) {-# RULES -"fromIntegral/Int->Float" fromIntegral = int2Float -"fromIntegral/Int->Double" fromIntegral = int2Double -"fromIntegral/Word->Float" fromIntegral = word2Float -"fromIntegral/Word->Double" fromIntegral = word2Double "realToFrac/Float->Float" realToFrac = id :: Float -> Float "realToFrac/Float->Double" realToFrac = float2Double "realToFrac/Double->Float" realToFrac = double2Float @@ -1397,7 +1458,7 @@ castWord32ToFloat (W32# w#) = F# (stgWord32ToFloat w#) foreign import prim "stg_word32ToFloatzh" - stgWord32ToFloat :: Word# -> Float# + stgWord32ToFloat :: Word32# -> Float# -- | @'castFloatToWord32' f@ does a bit-for-bit copy from a floating-point value @@ -1410,7 +1471,7 @@ castFloatToWord32 (F# f#) = W32# (stgFloatToWord32 f#) foreign import prim "stg_floatToWord32zh" - stgFloatToWord32 :: Float# -> Word# + stgFloatToWord32 :: Float# -> Word32# diff --git a/GHC/Float/ConversionUtils.hs b/GHC/Float/ConversionUtils.hs --- a/GHC/Float/ConversionUtils.hs +++ b/GHC/Float/ConversionUtils.hs @@ -23,9 +23,6 @@ import GHC.Base import GHC.Num.Integer -#if WORD_SIZE_IN_BITS < 64 -import GHC.IntWord64 -#endif default () @@ -33,13 +30,10 @@ #define TO64 integerToInt64# -toByte64# :: Int64# -> Int# -toByte64# i = word2Int# (and# 255## (int2Word# (int64ToInt# i))) - -- Double mantissae have 53 bits, too much for Int# elim64# :: Int64# -> Int# -> (# Integer, Int# #) elim64# n e = - case zeroCount (toByte64# n) of + case zeroCount (int64ToInt# n) of t | isTrue# (e <=# t) -> (# integerFromInt64# (uncheckedIShiftRA64# n e), 0# #) | isTrue# (t <# 8#) -> (# integerFromInt64# (uncheckedIShiftRA64# n t), e -# t #) | otherwise -> elim64# (uncheckedIShiftRA64# n 8#) (e -# 8#) @@ -60,41 +54,13 @@ elimZerosInt# :: Int# -> Int# -> (# Integer, Int# #) elimZerosInt# n e = - case zeroCount (toByte# n) of + case zeroCount n of t | isTrue# (e <=# t) -> (# IS (uncheckedIShiftRA# n e), 0# #) | isTrue# (t <# 8#) -> (# IS (uncheckedIShiftRA# n t), e -# t #) | otherwise -> elimZerosInt# (uncheckedIShiftRA# n 8#) (e -# 8#) -{-# INLINE zeroCount #-} +-- | Number of trailing zero bits in a byte zeroCount :: Int# -> Int# -zeroCount i = - case zeroCountArr of - BA ba -> indexInt8Array# ba i - -toByte# :: Int# -> Int# -toByte# i = word2Int# (and# 255## (int2Word# i)) - - -data BA = BA ByteArray# - --- Number of trailing zero bits in a byte -zeroCountArr :: BA -zeroCountArr = - let mkArr s = - case newByteArray# 256# s of - (# s1, mba #) -> - case writeInt8Array# mba 0# 8# s1 of - s2 -> - let fillA step val idx st - | isTrue# (idx <# 256#) = - case writeInt8Array# mba idx val st of - nx -> fillA step val (idx +# step) nx - | isTrue# (step <# 256#) = - fillA (2# *# step) (val +# 1#) step st - | otherwise = st - in case fillA 2# 0# 1# s2 of - s3 -> case unsafeFreezeByteArray# mba s3 of - (# _, ba #) -> ba - in case mkArr realWorld# of - b -> BA b - +zeroCount i = int8ToInt# (indexInt8OffAddr# arr (word2Int# (narrow8Word# (int2Word# i)))) -- index must be in [0,255] + where + arr = "\8\0\1\0\2\0\1\0\3\0\1\0\2\0\1\0\4\0\1\0\2\0\1\0\3\0\1\0\2\0\1\0\5\0\1\0\2\0\1\0\3\0\1\0\2\0\1\0\4\0\1\0\2\0\1\0\3\0\1\0\2\0\1\0\6\0\1\0\2\0\1\0\3\0\1\0\2\0\1\0\4\0\1\0\2\0\1\0\3\0\1\0\2\0\1\0\5\0\1\0\2\0\1\0\3\0\1\0\2\0\1\0\4\0\1\0\2\0\1\0\3\0\1\0\2\0\1\0\7\0\1\0\2\0\1\0\3\0\1\0\2\0\1\0\4\0\1\0\2\0\1\0\3\0\1\0\2\0\1\0\5\0\1\0\2\0\1\0\3\0\1\0\2\0\1\0\4\0\1\0\2\0\1\0\3\0\1\0\2\0\1\0\6\0\1\0\2\0\1\0\3\0\1\0\2\0\1\0\4\0\1\0\2\0\1\0\3\0\1\0\2\0\1\0\5\0\1\0\2\0\1\0\3\0\1\0\2\0\1\0\4\0\1\0\2\0\1\0\3\0\1\0\2\0\1\0"# diff --git a/GHC/Float/RealFracMethods.hs b/GHC/Float/RealFracMethods.hs --- a/GHC/Float/RealFracMethods.hs +++ b/GHC/Float/RealFracMethods.hs @@ -61,11 +61,9 @@ #if WORD_SIZE_IN_BITS < 64 -import GHC.IntWord64 - #define TO64 integerToInt64# #define FROM64 integerFromInt64# -#define MINUS64 minusInt64# +#define MINUS64 subInt64# #define NEGATE64 negateInt64# #else diff --git a/GHC/ForeignPtr.hs b/GHC/ForeignPtr.hs --- a/GHC/ForeignPtr.hs +++ b/GHC/ForeignPtr.hs @@ -1,11 +1,10 @@ +{-# LANGUAGE BangPatterns #-} +{-# LANGUAGE MagicHash #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE UnboxedTuples #-} {-# LANGUAGE Unsafe #-} -{-# LANGUAGE NoImplicitPrelude - , BangPatterns - , MagicHash - , UnboxedTuples - #-} + {-# OPTIONS_HADDOCK not-home #-} -{-# LANGUAGE StandaloneDeriving #-} ----------------------------------------------------------------------------- -- | @@ -65,7 +64,7 @@ import GHC.STRef ( STRef(..) ) import GHC.Ptr ( Ptr(..), FunPtr(..) ) -import Unsafe.Coerce ( unsafeCoerce, unsafeCoerceUnlifted ) +import Unsafe.Coerce ( unsafeCoerce ) -- |The type 'ForeignPtr' represents references to objects that are -- maintained in a foreign language, i.e., that are not part of the @@ -138,7 +137,7 @@ -- reachable (by GC) whenever the 'ForeignPtr' is reachable. When the -- 'ForeignPtr' becomes unreachable, the runtime\'s normal GC recovers -- the memory backing it. Here, the finalizer function intended to be used - -- to @free()@ any ancilliary *unmanaged* memory pointed to by the + -- to @free()@ any ancillary *unmanaged* memory pointed to by the -- 'MutableByteArray#'. See the @zlib@ library for an example of this use. -- -- 1. Invariant: The 'Addr#' in the parent 'ForeignPtr' is an interior @@ -283,7 +282,7 @@ r <- newIORef NoFinalizers IO $ \s -> case newAlignedPinnedByteArray# size align s of { (# s', mbarr# #) -> - (# s', ForeignPtr (byteArrayContents# (unsafeCoerceUnlifted mbarr#)) + (# s', ForeignPtr (mutableByteArrayContents# mbarr#) (MallocPtr mbarr# r) #) } where !(I# size) = sizeOf a @@ -298,7 +297,7 @@ r <- newIORef NoFinalizers IO $ \s -> case newPinnedByteArray# size s of { (# s', mbarr# #) -> - (# s', ForeignPtr (byteArrayContents# (unsafeCoerceUnlifted mbarr#)) + (# s', ForeignPtr (mutableByteArrayContents# mbarr#) (MallocPtr mbarr# r) #) } @@ -312,7 +311,7 @@ r <- newIORef NoFinalizers IO $ \s -> case newAlignedPinnedByteArray# size align s of { (# s', mbarr# #) -> - (# s', ForeignPtr (byteArrayContents# (unsafeCoerceUnlifted mbarr#)) + (# s', ForeignPtr (mutableByteArrayContents# mbarr#) (MallocPtr mbarr# r) #) } @@ -336,7 +335,7 @@ | I# size < 0 = errorWithoutStackTrace "mallocForeignPtr: size must be >= 0" | otherwise = IO $ \s -> case newAlignedPinnedByteArray# size align s of { (# s', mbarr# #) -> - (# s', ForeignPtr (byteArrayContents# (unsafeCoerceUnlifted mbarr#)) + (# s', ForeignPtr (mutableByteArrayContents# mbarr#) (PlainPtr mbarr#) #) } where !(I# size) = sizeOf a @@ -351,7 +350,7 @@ errorWithoutStackTrace "mallocPlainForeignPtrBytes: size must be >= 0" mallocPlainForeignPtrBytes (I# size) = IO $ \s -> case newPinnedByteArray# size s of { (# s', mbarr# #) -> - (# s', ForeignPtr (byteArrayContents# (unsafeCoerceUnlifted mbarr#)) + (# s', ForeignPtr (mutableByteArrayContents# mbarr#) (PlainPtr mbarr#) #) } @@ -364,7 +363,7 @@ errorWithoutStackTrace "mallocPlainForeignPtrAlignedBytes: size must be >= 0" mallocPlainForeignPtrAlignedBytes (I# size) (I# align) = IO $ \s -> case newAlignedPinnedByteArray# size align s of { (# s', mbarr# #) -> - (# s', ForeignPtr (byteArrayContents# (unsafeCoerceUnlifted mbarr#)) + (# s', ForeignPtr (mutableByteArrayContents# mbarr#) (PlainPtr mbarr#) #) } diff --git a/GHC/Generics.hs b/GHC/Generics.hs --- a/GHC/Generics.hs +++ b/GHC/Generics.hs @@ -7,7 +7,6 @@ {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE GADTs #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# LANGUAGE KindSignatures #-} {-# LANGUAGE MagicHash #-} {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE PolyKinds #-} @@ -16,7 +15,6 @@ {-# LANGUAGE Trustworthy #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE TypeOperators #-} -{-# LANGUAGE TypeSynonymInstances #-} {-# LANGUAGE UndecidableInstances #-} ----------------------------------------------------------------------------- @@ -319,17 +317,17 @@ -- -- | -- --- The instance for 'V1' is slightly awkward (but also rarely used): +-- To deal with the 'V1' case, we use the following code (which requires the pragma @EmptyCase@): -- -- @ -- instance Encode' 'V1' where --- encode' x = undefined +-- encode' x = case x of { } -- @ -- --- There are no values of type @V1 p@ to pass (except undefined), so this is --- actually impossible. One can ask why it is useful to define an instance for --- 'V1' at all in this case? Well, an empty type can be used as an argument to --- a non-empty type, and you might still want to encode the resulting type. +-- There are no values of type @V1 p@ to pass, so it is impossible for this +-- function to be invoked. One can ask why it is useful to define an instance +-- for 'V1' at all in this case? Well, an empty type can be used as an argument +-- to a non-empty type, and you might still want to encode the resulting type. -- As a somewhat contrived example, consider @[Empty]@, which is not an empty -- type, but contains just the empty list. The 'V1' instance ensures that we -- can call the generic function on such types. @@ -751,7 +749,7 @@ -- Needed for metadata import Data.Proxy ( Proxy(..) ) -import GHC.TypeLits ( KnownSymbol, KnownNat, symbolVal, natVal ) +import GHC.TypeLits ( KnownSymbol, KnownNat, Nat, symbolVal, natVal ) -------------------------------------------------------------------------------- -- Representation types @@ -1441,6 +1439,30 @@ -- | @since 4.6.0.0 deriving instance Generic ((,,,,,,) a b c d e f g) +-- | @since 4.16.0.0 +deriving instance Generic ((,,,,,,,) a b c d e f g h) + +-- | @since 4.16.0.0 +deriving instance Generic ((,,,,,,,,) a b c d e f g h i) + +-- | @since 4.16.0.0 +deriving instance Generic ((,,,,,,,,,) a b c d e f g h i j) + +-- | @since 4.16.0.0 +deriving instance Generic ((,,,,,,,,,,) a b c d e f g h i j k) + +-- | @since 4.16.0.0 +deriving instance Generic ((,,,,,,,,,,,) a b c d e f g h i j k l) + +-- | @since 4.16.0.0 +deriving instance Generic ((,,,,,,,,,,,,) a b c d e f g h i j k l m) + +-- | @since 4.16.0.0 +deriving instance Generic ((,,,,,,,,,,,,,) a b c d e f g h i j k l m n) + +-- | @since 4.16.0.0 +deriving instance Generic ((,,,,,,,,,,,,,,) a b c d e f g h i j k l m n o) + -- | @since 4.12.0.0 deriving instance Generic (Down a) @@ -1488,6 +1510,30 @@ -- | @since 4.6.0.0 deriving instance Generic1 ((,,,,,,) a b c d e f) + +-- | @since 4.16.0.0 +deriving instance Generic1 ((,,,,,,,) a b c d e f g) + +-- | @since 4.16.0.0 +deriving instance Generic1 ((,,,,,,,,) a b c d e f g h) + +-- | @since 4.16.0.0 +deriving instance Generic1 ((,,,,,,,,,) a b c d e f g h i) + +-- | @since 4.16.0.0 +deriving instance Generic1 ((,,,,,,,,,,) a b c d e f g h i j) + +-- | @since 4.16.0.0 +deriving instance Generic1 ((,,,,,,,,,,,) a b c d e f g h i j k) + +-- | @since 4.16.0.0 +deriving instance Generic1 ((,,,,,,,,,,,,) a b c d e f g h i j k l) + +-- | @since 4.16.0.0 +deriving instance Generic1 ((,,,,,,,,,,,,,) a b c d e f g h i j k l m) + +-- | @since 4.16.0.0 +deriving instance Generic1 ((,,,,,,,,,,,,,,) a b c d e f g h i j k l m n) -- | @since 4.12.0.0 deriving instance Generic1 Down diff --git a/GHC/IO.hs b/GHC/IO.hs --- a/GHC/IO.hs +++ b/GHC/IO.hs @@ -173,7 +173,7 @@ -- @IO Int -> (ArithException -> IO Int) -> IO Int@ then the handler may -- get run with @DivideByZero@ as an argument, or an @ErrorCall \"urk\"@ -- exception may be propagated further up. If you call it again, you --- might get a the opposite behaviour. This is ok, because 'catch' is an +-- might get the opposite behaviour. This is ok, because 'catch' is an -- 'IO' computation. -- catch :: Exception e diff --git a/GHC/IO.hs-boot b/GHC/IO.hs-boot --- a/GHC/IO.hs-boot +++ b/GHC/IO.hs-boot @@ -4,7 +4,6 @@ module GHC.IO where import GHC.Types -import GHC.Num.Integer () -- See Note [Depend on GHC.Num.Integer] in GHC.Base import {-# SOURCE #-} GHC.Exception.Type (SomeException) mplusIO :: IO a -> IO a -> IO a diff --git a/GHC/IO/Buffer.hs b/GHC/IO/Buffer.hs --- a/GHC/IO/Buffer.hs +++ b/GHC/IO/Buffer.hs @@ -320,7 +320,7 @@ -- operation, a read buffer always has at least one character of space. checkBuffer :: Buffer a -> IO () -checkBuffer buf@Buffer{ bufState = state, bufL=r, bufR=w, bufSize=size } = do +checkBuffer buf@Buffer{ bufState = state, bufL=r, bufR=w, bufSize=size } = check buf ( size > 0 && r <= w diff --git a/GHC/IO/Device.hs b/GHC/IO/Device.hs --- a/GHC/IO/Device.hs +++ b/GHC/IO/Device.hs @@ -1,5 +1,5 @@ {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE NoImplicitPrelude, BangPatterns #-} +{-# LANGUAGE NoImplicitPrelude #-} ----------------------------------------------------------------------------- -- | diff --git a/GHC/IO/Encoding/CodePage.hs b/GHC/IO/Encoding/CodePage.hs --- a/GHC/IO/Encoding/CodePage.hs +++ b/GHC/IO/Encoding/CodePage.hs @@ -1,6 +1,9 @@ +{-# LANGUAGE BangPatterns #-} +{-# LANGUAGE CPP #-} +{-# LANGUAGE MagicHash #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE NondecreasingIndentation #-} {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE CPP, BangPatterns, NoImplicitPrelude, - NondecreasingIndentation, MagicHash #-} module GHC.IO.Encoding.CodePage( #if defined(mingw32_HOST_OS) @@ -167,7 +170,7 @@ {-# INLINE indexInt #-} indexInt :: ConvArray Int -> Int -> Int -indexInt (ConvArray p) (I# i) = I# (indexInt16OffAddr# p i) +indexInt (ConvArray p) (I# i) = I# (int16ToInt# (indexInt16OffAddr# p i)) {-# INLINE indexWord8 #-} indexWord8 :: ConvArray Word8 -> Int -> Word8 @@ -175,7 +178,7 @@ {-# INLINE indexChar #-} indexChar :: ConvArray Char -> Int -> Char -indexChar (ConvArray p) (I# i) = C# (chr# (indexInt16OffAddr# p i)) +indexChar (ConvArray p) (I# i) = C# (chr# (int16ToInt# (indexInt16OffAddr# p i))) #endif diff --git a/GHC/IO/Encoding/Failure.hs b/GHC/IO/Encoding/Failure.hs --- a/GHC/IO/Encoding/Failure.hs +++ b/GHC/IO/Encoding/Failure.hs @@ -146,7 +146,7 @@ recoverDecode :: CodingFailureMode -> Buffer Word8 -> Buffer Char -> IO (Buffer Word8, Buffer Char) recoverDecode cfm input@Buffer{ bufRaw=iraw, bufL=ir, bufR=_ } - output@Buffer{ bufRaw=oraw, bufL=_, bufR=ow } = do + output@Buffer{ bufRaw=oraw, bufL=_, bufR=ow } = --puts $ "recoverDecode " ++ show ir case cfm of ErrorOnCodingFailure -> ioe_decodingError diff --git a/GHC/IO/Encoding/Iconv.hs b/GHC/IO/Encoding/Iconv.hs --- a/GHC/IO/Encoding/Iconv.hs +++ b/GHC/IO/Encoding/Iconv.hs @@ -177,7 +177,7 @@ iconv_trace ("iconvRecode after, input=" ++ show (summaryBuffer new_input)) iconv_trace ("iconvRecode after, output=" ++ show (summaryBuffer new_output)) if (res /= -1) - then do -- all input translated + then -- all input translated return (InputUnderflow, new_input, new_output) else do errno <- getErrno diff --git a/GHC/IO/Encoding/UTF16.hs b/GHC/IO/Encoding/UTF16.hs --- a/GHC/IO/Encoding/UTF16.hs +++ b/GHC/IO/Encoding/UTF16.hs @@ -342,8 +342,8 @@ chr2 :: Word16 -> Word16 -> Char chr2 (W16# a#) (W16# b#) = C# (chr# (upper# +# lower# +# 0x10000#)) where - !x# = word2Int# a# - !y# = word2Int# b# + !x# = word2Int# (word16ToWord# a#) + !y# = word2Int# (word16ToWord# b#) !upper# = uncheckedIShiftL# (x# -# 0xD800#) 10# !lower# = y# -# 0xDC00# {-# INLINE chr2 #-} @@ -356,4 +356,3 @@ validate2 x1 x2 = x1 >= 0xD800 && x1 <= 0xDBFF && x2 >= 0xDC00 && x2 <= 0xDFFF {-# INLINE validate2 #-} - diff --git a/GHC/IO/Encoding/UTF32.hs b/GHC/IO/Encoding/UTF32.hs --- a/GHC/IO/Encoding/UTF32.hs +++ b/GHC/IO/Encoding/UTF32.hs @@ -309,10 +309,10 @@ chr4 (W8# x1#) (W8# x2#) (W8# x3#) (W8# x4#) = C# (chr# (z1# +# z2# +# z3# +# z4#)) where - !y1# = word2Int# x1# - !y2# = word2Int# x2# - !y3# = word2Int# x3# - !y4# = word2Int# x4# + !y1# = word2Int# (word8ToWord# x1#) + !y2# = word2Int# (word8ToWord# x2#) + !y3# = word2Int# (word8ToWord# x3#) + !y4# = word2Int# (word8ToWord# x4#) !z1# = uncheckedIShiftL# y1# 24# !z2# = uncheckedIShiftL# y2# 16# !z3# = uncheckedIShiftL# y3# 8# @@ -333,4 +333,3 @@ validate c = (x1 >= 0x0 && x1 < 0xD800) || (x1 > 0xDFFF && x1 <= 0x10FFFF) where x1 = ord c {-# INLINE validate #-} - diff --git a/GHC/IO/Encoding/UTF8.hs b/GHC/IO/Encoding/UTF8.hs --- a/GHC/IO/Encoding/UTF8.hs +++ b/GHC/IO/Encoding/UTF8.hs @@ -11,7 +11,7 @@ -- Module : GHC.IO.Encoding.UTF8 -- Copyright : (c) The University of Glasgow, 2009 -- License : see libraries/base/LICENSE --- +-- -- Maintainer : libraries@haskell.org -- Stability : internal -- Portability : non-portable @@ -144,17 +144,17 @@ bom2 = 0xbf utf8_decode :: DecodeBuffer -utf8_decode +utf8_decode input@Buffer{ bufRaw=iraw, bufL=ir0, bufR=iw, bufSize=_ } output@Buffer{ bufRaw=oraw, bufL=_, bufR=ow0, bufSize=os } - = let + = let loop !ir !ow | ow >= os = done OutputUnderflow ir ow | ir >= iw = done InputUnderflow ir ow | otherwise = do c0 <- readWord8Buf iraw ir case c0 of - _ | c0 <= 0x7f -> do + _ | c0 <= 0x7f -> do ow' <- writeCharBuf oraw ow (unsafeChr (fromIntegral c0)) loop (ir+1) ow' | c0 >= 0xc0 && c0 <= 0xc1 -> invalid -- Overlong forms @@ -170,7 +170,7 @@ 2 -> do -- check for an error even when we don't have -- the full sequence yet (#3341) c1 <- readWord8Buf iraw (ir+1) - if not (validate3 c0 c1 0x80) + if not (validate3 c0 c1 0x80) then invalid else done InputUnderflow ir ow _ -> do c1 <- readWord8Buf iraw (ir+1) @@ -215,7 +215,7 @@ utf8_encode input@Buffer{ bufRaw=iraw, bufL=ir0, bufR=iw, bufSize=_ } output@Buffer{ bufRaw=oraw, bufL=_, bufR=ow0, bufSize=os } - = let + = let done why !ir !ow = return (why, if ir == iw then input{ bufL=0, bufR=0 } else input{ bufL=ir }, @@ -255,7 +255,7 @@ -- ----------------------------------------------------------------------------- -- UTF-8 primitives, lifted from Data.Text.Fusion.Utf8 - + ord2 :: Char -> (Word8,Word8) ord2 c = assert (n >= 0x80 && n <= 0x07ff) (x1,x2) where @@ -283,8 +283,8 @@ chr2 :: Word8 -> Word8 -> Char chr2 (W8# x1#) (W8# x2#) = C# (chr# (z1# +# z2#)) where - !y1# = word2Int# x1# - !y2# = word2Int# x2# + !y1# = word2Int# (word8ToWord# x1#) + !y2# = word2Int# (word8ToWord# x2#) !z1# = uncheckedIShiftL# (y1# -# 0xC0#) 6# !z2# = y2# -# 0x80# {-# INLINE chr2 #-} @@ -292,9 +292,9 @@ chr3 :: Word8 -> Word8 -> Word8 -> Char chr3 (W8# x1#) (W8# x2#) (W8# x3#) = C# (chr# (z1# +# z2# +# z3#)) where - !y1# = word2Int# x1# - !y2# = word2Int# x2# - !y3# = word2Int# x3# + !y1# = word2Int# (word8ToWord# x1#) + !y2# = word2Int# (word8ToWord# x2#) + !y3# = word2Int# (word8ToWord# x3#) !z1# = uncheckedIShiftL# (y1# -# 0xE0#) 12# !z2# = uncheckedIShiftL# (y2# -# 0x80#) 6# !z3# = y3# -# 0x80# @@ -304,10 +304,10 @@ chr4 (W8# x1#) (W8# x2#) (W8# x3#) (W8# x4#) = C# (chr# (z1# +# z2# +# z3# +# z4#)) where - !y1# = word2Int# x1# - !y2# = word2Int# x2# - !y3# = word2Int# x3# - !y4# = word2Int# x4# + !y1# = word2Int# (word8ToWord# x1#) + !y2# = word2Int# (word8ToWord# x2#) + !y3# = word2Int# (word8ToWord# x3#) + !y4# = word2Int# (word8ToWord# x4#) !z1# = uncheckedIShiftL# (y1# -# 0xF0#) 18# !z2# = uncheckedIShiftL# (y2# -# 0x80#) 12# !z3# = uncheckedIShiftL# (y3# -# 0x80#) 6# @@ -346,7 +346,7 @@ validate4 x1 x2 x3 x4 = validate4_1 || validate4_2 || validate4_3 - where + where validate4_1 = x1 == 0xF0 && between x2 0x90 0xBF && between x3 0x80 0xBF && @@ -359,4 +359,3 @@ between x2 0x80 0x8F && between x3 0x80 0xBF && between x4 0x80 0xBF - diff --git a/GHC/IO/FD.hs b/GHC/IO/FD.hs --- a/GHC/IO/FD.hs +++ b/GHC/IO/FD.hs @@ -2,6 +2,7 @@ {-# LANGUAGE CPP , NoImplicitPrelude , BangPatterns + , RankNTypes #-} {-# OPTIONS_GHC -Wno-identities #-} -- Whether there are identities depends on the platform @@ -22,7 +23,7 @@ module GHC.IO.FD ( FD(..), - openFile, mkFD, release, + openFileWith, openFile, mkFD, release, setNonBlockingMode, readRawBufferPtr, readRawBufferPtrNoBlock, writeRawBufferPtr, stdin, stdout, stderr @@ -166,17 +167,86 @@ -- ----------------------------------------------------------------------------- -- opening files --- | Open a file and make an 'FD' for it. Truncates the file to zero --- size when the `IOMode` is `WriteMode`. -openFile +-- | A wrapper for 'System.Posix.Internals.c_interruptible_open' that takes +-- two actions, @act1@ and @act2@, to perform after opening the file. +-- +-- @act1@ is passed a file descriptor for the newly opened file. If +-- an exception occurs in @act1@, then the file will be closed. +-- @act1@ /must not/ close the file itself. If it does so and then +-- receives an exception, then the exception handler will attempt to +-- close it again, which is impermissable. +-- +-- @act2@ is performed with asynchronous exceptions masked. It is passed a +-- function to restore the masking state and the result of @act1@. +-- It /must not/ throw an exception (or deliver one via an interruptible +-- operation) without first closing the file or arranging for it to be +-- closed. @act2@ /may/ close the file, but is not required to do so. +-- If @act2@ leaves the file open, then the file will remain open on +-- return from `c_interruptible_open_with`. +-- +-- Code calling `c_interruptible_open_with` that wishes to install a finalizer +-- to close the file should do so in @act2@. Doing so in @act1@ could +-- potentially close the file in the finalizer first and then in the +-- exception handler. + +c_interruptible_open_with + :: System.Posix.Internals.CFilePath -- ^ The file to open + -> CInt -- ^ The flags to pass to open + -> CMode -- ^ The permission mode to use for file creation + -> (CInt -> IO r) -- ^ @act1@: An action to perform on the file descriptor + -- with the masking state restored and an exception + -- handler that closes the file on exception. + -> ((forall x. IO x -> IO x) -> r -> IO s) + -- ^ @act2@: An action to perform with async exceptions + -- masked and no exception handler. + -> IO s +c_interruptible_open_with path oflags mode act1 act2 = + mask $ \restore -> do + fd <- throwErrnoIfMinus1Retry "openFile" $ + c_interruptible_open path oflags mode + r <- restore (act1 fd) `onException` c_close fd + act2 restore r + +-- | Open a file and make an 'FD' for it. Truncates the file to zero size when +-- the `IOMode` is `WriteMode`. +-- +-- `openFileWith` takes two actions, @act1@ and @act2@, to perform after +-- opening the file. +-- +-- @act1@ is passed a file descriptor and I/O device type for the newly opened +-- file. If an exception occurs in @act1@, then the file will be closed. +-- @act1@ /must not/ close the file itself. If it does so and then receives an +-- exception, then the exception handler will attempt to close it again, which +-- is impermissable. +-- +-- @act2@ is performed with asynchronous exceptions masked. It is passed a +-- function to restore the masking state and the result of @act1@. It /must +-- not/ throw an exception (or deliver one via an interruptible operation) +-- without first closing the file or arranging for it to be closed. @act2@ +-- /may/ close the file, but is not required to do so. If @act2@ leaves the +-- file open, then the file will remain open on return from `openFileWith`. +-- +-- Code calling `openFileWith` that wishes to install a finalizer to close +-- the file should do so in @act2@. Doing so in @act1@ could potentially close +-- the file in the finalizer first and then in the exception handler. See +-- 'GHC.IO.Handle.FD.openFile'' for an example of this use. Regardless, the +-- caller is responsible for ensuring that the file is eventually closed, +-- perhaps using 'Control.Exception.bracket'. + +openFileWith :: FilePath -- ^ file to open -> IOMode -- ^ mode in which to open the file -> Bool -- ^ open the file in non-blocking mode? - -> IO (FD,IODeviceType) - -openFile filepath iomode non_blocking = + -> (FD -> IODeviceType -> IO r) -- ^ @act1@: An action to perform + -- on the file descriptor with the masking state + -- restored and an exception handler that closes + -- the file on exception. + -> ((forall x. IO x -> IO x) -> r -> IO s) + -- ^ @act2@: An action to perform with async exceptions + -- masked and no exception handler. + -> IO s +openFileWith filepath iomode non_blocking act1 act2 = withFilePath filepath $ \ f -> - let oflags1 = case iomode of ReadMode -> read_flags @@ -195,25 +265,38 @@ oflags | non_blocking = oflags2 .|. nonblock_flags | otherwise = oflags2 in do - - -- NB. always use a safe open(), because we don't know whether open() - -- will be fast or not. It can be slow on NFS and FUSE filesystems, - -- for example. - fd <- throwErrnoIfMinus1Retry "openFile" $ c_safe_open f oflags 0o666 - - (fD,fd_type) <- mkFD fd iomode Nothing{-no stat-} - False{-not a socket-} - non_blocking - `catchAny` \e -> do _ <- c_close fd - throwIO e - - -- we want to truncate() if this is an open in WriteMode, but only - -- if the target is a RegularFile. ftruncate() fails on special files - -- like /dev/null. - when (iomode == WriteMode && fd_type == RegularFile) $ - setSize fD 0 + -- We want to be sure all the arguments to c_interruptible_open_with + -- are fully evaluated *before* it slips under a mask (assuming we're + -- not already under a user-imposed mask). + oflags' <- evaluate oflags + -- NB. always use a safe open(), because we don't know whether open() + -- will be fast or not. It can be slow on NFS and FUSE filesystems, + -- for example. + c_interruptible_open_with f oflags' 0o666 ( \ fileno -> do + (fD,fd_type) <- mkFD fileno iomode Nothing{-no stat-} + False{-not a socket-} + non_blocking + -- we want to truncate() if this is an open in WriteMode, but only + -- if the target is a RegularFile. ftruncate() fails on special files + -- like /dev/null. + when (iomode == WriteMode && fd_type == RegularFile) $ + setSize fD 0 + act1 fD fd_type ) act2 - return (fD,fd_type) +-- | Open a file and make an 'FD' for it. Truncates the file to zero +-- size when the `IOMode` is `WriteMode`. This function is difficult +-- to use without potentially leaking the file descriptor on exception. +-- In particular, it must be used with exceptions masked, which is a +-- bit rude because the thread will be uninterruptible while the file +-- path is being encoded. Use 'openFileWith' instead. +openFile + :: FilePath -- ^ file to open + -> IOMode -- ^ mode in which to open the file + -> Bool -- ^ open the file in non-blocking mode? + -> IO (FD,IODeviceType) +openFile filepath iomode non_blocking = + openFileWith filepath iomode non_blocking + (\ fd fd_type -> pure (fd, fd_type)) (\_ r -> pure r) std_flags, output_flags, read_flags, write_flags, rw_flags, append_flags, nonblock_flags :: CInt @@ -379,8 +462,8 @@ getSize fd = fdFileSize (fdFD fd) setSize :: FD -> Integer -> IO () -setSize fd size = do - throwErrnoIf_ (/=0) "GHC.IO.FD.setSize" $ +setSize fd size = + throwErrnoIf_ (/=0) "GHC.IO.FD.setSize" $ c_ftruncate (fdFD fd) (fromIntegral size) devType :: FD -> IO IODeviceType @@ -689,7 +772,7 @@ if err == eINTR then throwErrnoIfMinus1RetryOnBlock loc f on_block else if err == eWOULDBLOCK || err == eAGAIN - then do on_block + then on_block else throwErrno loc else return res #endif diff --git a/GHC/IO/Handle.hs b/GHC/IO/Handle.hs --- a/GHC/IO/Handle.hs +++ b/GHC/IO/Handle.hs @@ -85,27 +85,13 @@ -- If 'hClose' fails for any reason, any further operations (apart from -- 'hClose') on the handle will still fail as if @hdl@ had been successfully -- closed. - +-- +-- 'hClose' is an /interruptible operation/ in the sense described in +-- "Control.Exception". If 'hClose' is interrupted by an asynchronous +-- exception in the process of flushing its buffers, then the I/O device +-- (e.g., file) will be closed anyway. hClose :: Handle -> IO () -hClose h@(FileHandle _ m) = do - mb_exc <- hClose' h m - hClose_maybethrow mb_exc h -hClose h@(DuplexHandle _ r w) = do - excs <- mapM (hClose' h) [r,w] - hClose_maybethrow (listToMaybe (catMaybes excs)) h - -hClose_maybethrow :: Maybe SomeException -> Handle -> IO () -hClose_maybethrow Nothing h = return () -hClose_maybethrow (Just e) h = hClose_rethrow e h - -hClose_rethrow :: SomeException -> Handle -> IO () -hClose_rethrow e h = - case fromException e of - Just ioe -> ioError (augmentIOError ioe "hClose" h) - Nothing -> throwIO e - -hClose' :: Handle -> MVar Handle__ -> IO (Maybe SomeException) -hClose' h m = withHandle' "hClose" h m $ hClose_help +hClose = hClose_impl ----------------------------------------------------------------------------- -- Detecting and changing the size of a file @@ -266,7 +252,7 @@ -- the encoding. -- hSetEncoding :: Handle -> TextEncoding -> IO () -hSetEncoding hdl encoding = do +hSetEncoding hdl encoding = withAllHandles__ "hSetEncoding" hdl $ \h_@Handle__{..} -> do flushCharBuffer h_ closeTextCodecs h_ @@ -579,7 +565,7 @@ -- | Is the handle connected to a terminal? hIsTerminalDevice :: Handle -> IO Bool -hIsTerminalDevice handle = do +hIsTerminalDevice handle = withHandle_ "hIsTerminalDevice" handle $ \ Handle__{..} -> do case haType of ClosedHandle -> ioe_closedHandle @@ -641,7 +627,7 @@ -- before the handle is duplicated. hDuplicate :: Handle -> IO Handle -hDuplicate h@(FileHandle path m) = do +hDuplicate h@(FileHandle path m) = withHandle_' "hDuplicate" h m $ \h_ -> dupHandle path h Nothing h_ (Just handleFinalizer) hDuplicate h@(DuplexHandle path r w) = do @@ -667,7 +653,7 @@ new_dev <- IODevice.dup haDevice dupHandle_ new_dev filepath other_side h_ mb_finalizer Just r -> - withHandle_' "dupHandle" h r $ \Handle__{haDevice=dev} -> do + withHandle_' "dupHandle" h r $ \Handle__{haDevice=dev} -> dupHandle_ dev filepath other_side h_ mb_finalizer dupHandle_ :: (RawIO dev, IODevice dev, BufferedIO dev, Typeable dev) => dev @@ -697,19 +683,19 @@ -} hDuplicateTo :: Handle -> Handle -> IO () -hDuplicateTo h1@(FileHandle path m1) h2@(FileHandle _ m2) = do +hDuplicateTo h1@(FileHandle path m1) h2@(FileHandle _ m2) = withHandle__' "hDuplicateTo" h2 m2 $ \h2_ -> do try $ flushWriteBuffer h2_ - withHandle_' "hDuplicateTo" h1 m1 $ \h1_ -> do + withHandle_' "hDuplicateTo" h1 m1 $ \h1_ -> dupHandleTo path h1 Nothing h2_ h1_ (Just handleFinalizer) hDuplicateTo h1@(DuplexHandle path r1 w1) h2@(DuplexHandle _ r2 w2) = do withHandle__' "hDuplicateTo" h2 w2 $ \w2_ -> do try $ flushWriteBuffer w2_ - withHandle_' "hDuplicateTo" h1 w1 $ \w1_ -> do + withHandle_' "hDuplicateTo" h1 w1 $ \w1_ -> dupHandleTo path h1 Nothing w2_ w1_ (Just handleFinalizer) withHandle__' "hDuplicateTo" h2 r2 $ \r2_ -> do try $ flushWriteBuffer r2_ - withHandle_' "hDuplicateTo" h1 r1 $ \r1_ -> do + withHandle_' "hDuplicateTo" h1 r1 $ \r1_ -> dupHandleTo path h1 (Just w1) r2_ r1_ Nothing hDuplicateTo h1 _ = ioe_dupHandlesNotCompatible h1 diff --git a/GHC/IO/Handle/FD.hs b/GHC/IO/Handle/FD.hs --- a/GHC/IO/Handle/FD.hs +++ b/GHC/IO/Handle/FD.hs @@ -17,7 +17,9 @@ module GHC.IO.Handle.FD ( stdin, stdout, stderr, - openFile, openBinaryFile, openFileBlocking, + openFile, withFile, + openBinaryFile, withBinaryFile, + openFileBlocking, withFileBlocking, mkHandleFromFD, fdToHandle, fdToHandle', handleToFd ) where @@ -138,6 +140,9 @@ -- * 'System.IO.Error.isPermissionError' if the user does not have permission -- to open the file. -- +-- On POSIX systems, 'openFile' is an /interruptible operation/ as +-- described in "Control.Exception". +-- -- Note: if you will be working with files containing binary data, you'll want to -- be using 'openBinaryFile'. openFile :: FilePath -> IOMode -> IO Handle @@ -146,23 +151,50 @@ (openFile' fp im dEFAULT_OPEN_IN_BINARY_MODE True) (\e -> ioError (addFilePathToIOError "openFile" fp e)) +-- | @'withFile' name mode act@ opens a file like 'openFile' and passes +-- the resulting handle to the computation @act@. The handle will be +-- closed on exit from 'withFile', whether by normal termination or by +-- raising an exception. If closing the handle raises an exception, then +-- this exception will be raised by 'withFile' rather than any exception +-- raised by @act@. +withFile :: FilePath -> IOMode -> (Handle -> IO r) -> IO r +withFile fp im act = + catchException + (withFile' fp im dEFAULT_OPEN_IN_BINARY_MODE True act) + (\e -> ioError (addFilePathToIOError "withFile" fp e)) + -- | Like 'openFile', but opens the file in ordinary blocking mode. -- This can be useful for opening a FIFO for writing: if we open in -- non-blocking mode then the open will fail if there are no readers, -- whereas a blocking open will block until a reader appear. --- +-- -- Note: when blocking happens, an OS thread becomes tied up with the -- processing, so the program must have at least another OS thread if -- it wants to unblock itself. By corollary, a non-threaded runtime -- will need a process-external trigger in order to become unblocked. -- +-- On POSIX systems, 'openFileBlocking' is an /interruptible operation/ as +-- described in "Control.Exception". +-- -- @since 4.4.0.0 openFileBlocking :: FilePath -> IOMode -> IO Handle openFileBlocking fp im = catchException (openFile' fp im dEFAULT_OPEN_IN_BINARY_MODE False) - (\e -> ioError (addFilePathToIOError "openFile" fp e)) + (\e -> ioError (addFilePathToIOError "openFileBlocking" fp e)) +-- | @'withFileBlocking' name mode act@ opens a file like 'openFileBlocking' +-- and passes the resulting handle to the computation @act@. The handle will +-- be closed on exit from 'withFileBlocking', whether by normal termination or +-- by raising an exception. If closing the handle raises an exception, then +-- this exception will be raised by 'withFile' rather than any exception raised +-- by @act@. +withFileBlocking :: FilePath -> IOMode -> (Handle -> IO r) -> IO r +withFileBlocking fp im act = + catchException + (withFile' fp im dEFAULT_OPEN_IN_BINARY_MODE False act) + (\e -> ioError (addFilePathToIOError "withFileBlocking" fp e)) + -- | Like 'openFile', but open the file in binary mode. -- On Windows, reading a file in text mode (which is the default) -- will translate CRLF to LF, and writing will translate LF to CRLF. @@ -172,35 +204,72 @@ -- treatment of end-of-line and end-of-file characters. -- (See also 'System.IO.hSetBinaryMode'.) +-- On POSIX systems, 'openBinaryFile' is an /interruptible operation/ as +-- described in "Control.Exception". openBinaryFile :: FilePath -> IOMode -> IO Handle openBinaryFile fp m = catchException (openFile' fp m True True) (\e -> ioError (addFilePathToIOError "openBinaryFile" fp e)) -openFile' :: String -> IOMode -> Bool -> Bool -> IO Handle -openFile' filepath iomode binary non_blocking = do +-- | A version of `openBinaryFile` that takes an action to perform +-- with the handle. If an exception occurs in the action, then +-- the file will be closed automatically. The action /should/ +-- close the file when finished with it so the file does not remain +-- open until the garbage collector collects the handle. +withBinaryFile :: FilePath -> IOMode -> (Handle -> IO r) -> IO r +withBinaryFile fp im act = + catchException + (withFile' fp im True True act) + (\e -> ioError (addFilePathToIOError "withBinaryFile" fp e)) + +-- | Open a file and perform an action with it. If the action throws an +-- exception, then the file will be closed. If the last argument is 'True', +-- then the file will be closed on successful completion as well. We use this to +-- implement both the `withFile` family of functions (via `withFile'`) and the +-- `openFile` family (via `openFile'`). +withOpenFile' :: String -> IOMode -> Bool -> Bool -> (Handle -> IO r) -> Bool -> IO r +withOpenFile' filepath iomode binary non_blocking act close_finally = -- first open the file to get an FD - (fd, fd_type) <- FD.openFile filepath iomode non_blocking + FD.openFileWith filepath iomode non_blocking (\fd fd_type -> do - mb_codec <- if binary then return Nothing else fmap Just getLocaleEncoding + mb_codec <- if binary then return Nothing else fmap Just getLocaleEncoding - -- then use it to make a Handle - mkHandleFromFD fd fd_type filepath iomode - False {- do not *set* non-blocking mode -} - mb_codec - `onException` IODevice.close fd - -- NB. don't forget to close the FD if mkHandleFromFD fails, otherwise - -- this FD leaks. + -- Then use it to make a Handle. If this fails, openFileWith + -- will take care of closing the file. + mkHandleFromFDNoFinalizer fd fd_type filepath iomode + False {- do not *set* non-blocking mode -} + mb_codec) + + -- Add a finalizer to the handle. This is done under a mask, + -- so there are no asynchronous exceptions, and (satisfying + -- the conditions of openFileWith), addHandleFinalizer + -- cannot throw a synchronous exception. + (\restore hndl -> do + addHandleFinalizer hndl handleFinalizer + r <- restore (act hndl) `onException` hClose_impl hndl + when close_finally $ hClose_impl hndl + pure r + ) + -- ASSERT: if we just created the file, then fdToHandle' won't fail -- (so we don't need to worry about removing the newly created file -- in the event of an error). +-- | Open a file and perform an action with it. When the action +-- completes or throws/receives an exception, the file will be closed. +withFile' :: String -> IOMode -> Bool -> Bool -> (Handle -> IO r) -> IO r +withFile' filepath iomode binary non_blocking act = + withOpenFile' filepath iomode binary non_blocking act True +openFile' :: String -> IOMode -> Bool -> Bool -> IO Handle +openFile' filepath iomode binary non_blocking = + withOpenFile' filepath iomode binary non_blocking pure False + -- --------------------------------------------------------------------------- -- Converting file descriptors from/to Handles -mkHandleFromFD +mkHandleFromFDNoFinalizer :: FD.FD -> IODeviceType -> FilePath -- a string describing this file descriptor (e.g. the filename) @@ -209,7 +278,7 @@ -> Maybe TextEncoding -> IO Handle -mkHandleFromFD fd0 fd_type filepath iomode set_non_blocking mb_codec +mkHandleFromFDNoFinalizer fd0 fd_type filepath iomode set_non_blocking mb_codec = do #if !defined(mingw32_HOST_OS) -- turn on non-blocking mode @@ -233,11 +302,24 @@ -- only *Streams* can be DuplexHandles. Other read/write -- Handles must share a buffer. | ReadWriteMode <- iomode -> - mkDuplexHandle fd filepath mb_codec nl - + mkDuplexHandleNoFinalizer fd filepath mb_codec nl _other -> - mkFileHandle fd filepath iomode mb_codec nl + mkFileHandleNoFinalizer fd filepath iomode mb_codec nl + +mkHandleFromFD + :: FD.FD + -> IODeviceType + -> FilePath -- a string describing this file descriptor (e.g. the filename) + -> IOMode + -> Bool -- *set* non-blocking mode on the FD + -> Maybe TextEncoding + -> IO Handle +mkHandleFromFD fd0 fd_type filepath iomode set_non_blocking mb_codec = do + h <- mkHandleFromFDNoFinalizer fd0 fd_type filepath iomode + set_non_blocking mb_codec + addHandleFinalizer h handleFinalizer + pure h -- | Old API kept to avoid breaking clients fdToHandle' :: CInt diff --git a/GHC/IO/Handle/Internals.hs b/GHC/IO/Handle/Internals.hs --- a/GHC/IO/Handle/Internals.hs +++ b/GHC/IO/Handle/Internals.hs @@ -32,7 +32,9 @@ wantWritableHandle, wantReadableHandle, wantReadableHandle_, wantSeekableHandle, - mkHandle, mkFileHandle, mkDuplexHandle, + mkHandle, + mkFileHandle, mkFileHandleNoFinalizer, mkDuplexHandle, mkDuplexHandleNoFinalizer, + addHandleFinalizer, openTextEncoding, closeTextCodecs, initBufferState, dEFAULT_CHAR_BUFFER_SIZE, @@ -47,7 +49,7 @@ ioe_EOF, ioe_notReadable, ioe_notWritable, ioe_finalizedHandle, ioe_bufsiz, - hClose_help, hLookAhead_, + hClose_impl, hClose_help, hLookAhead_, HandleFinalizer, handleFinalizer, @@ -90,16 +92,19 @@ type HandleFinalizer = FilePath -> MVar Handle__ -> IO () -newFileHandle :: FilePath -> Maybe HandleFinalizer -> Handle__ -> IO Handle -newFileHandle filepath mb_finalizer hc = do - m <- newMVar hc - case mb_finalizer of - Just finalizer -> do debugIO $ "Registering finalizer: " ++ show filepath - addMVarFinalizer m (finalizer filepath m) - Nothing -> do debugIO $ "No finalizer: " ++ show filepath - return () - return (FileHandle filepath m) +-- | Add a finalizer to a 'Handle'. Specifically, the finalizer +-- will be added to the 'MVar' of a file handle or the write-side +-- 'MVar' of a duplex handle. See Handle Finalizers for details. +addHandleFinalizer :: Handle -> HandleFinalizer -> IO () +addHandleFinalizer handle finalizer = do + debugIO $ "Registering finalizer: " ++ show filepath + addMVarFinalizer mv (finalizer filepath mv) + where + !(filepath, !mv) = case handle of + FileHandle fp m -> (fp, m) + DuplexHandle fp _ write_m -> (fp, write_m) + -- --------------------------------------------------------------------------- -- Working with Handles @@ -477,10 +482,10 @@ flushBuffer h_@Handle__{..} = do buf <- readIORef haCharBuffer case bufState buf of - ReadBuffer -> do + ReadBuffer -> do flushCharReadBuffer h_ flushByteReadBuffer h_ - WriteBuffer -> do + WriteBuffer -> flushByteWriteBuffer h_ -- | flushes the Char buffer only. Works on all Handles. @@ -488,7 +493,7 @@ flushCharBuffer h_@Handle__{..} = do cbuf <- readIORef haCharBuffer case bufState cbuf of - ReadBuffer -> do + ReadBuffer -> flushCharReadBuffer h_ WriteBuffer -> -- Nothing to do here. Char buffer on a write Handle is always empty @@ -581,7 +586,7 @@ else do case haDecoder of - Nothing -> do + Nothing -> writeIORef haByteBuffer bbuf0 { bufL = bufL bbuf0 + bufL cbuf0 } -- no decoder: the number of bytes to decode is the same as the -- number of chars we have used up. @@ -649,16 +654,17 @@ the offset accordingly. This is only required for WINIO. -} -mkHandle :: (RawIO dev, IODevice dev, BufferedIO dev, Typeable dev) => dev +-- | Make an @'MVar' 'Handle__'@ for use in a 'Handle'. This function +-- does not install a finalizer; that must be done by the caller. +mkHandleMVar :: (RawIO dev, IODevice dev, BufferedIO dev, Typeable dev) => dev -> FilePath -> HandleType -> Bool -- buffered? -> Maybe TextEncoding -> NewlineMode - -> Maybe HandleFinalizer -> Maybe (MVar Handle__) - -> IO Handle -mkHandle dev filepath ha_type buffered mb_codec nl finalizer other_side = + -> IO (MVar Handle__) +mkHandleMVar dev filepath ha_type buffered mb_codec nl other_side = openTextEncoding mb_codec ha_type $ \ mb_encoder mb_decoder -> do let !buf_state = initBufferState ha_type @@ -675,8 +681,7 @@ spares <- newIORef BufferListNil debugIO $ "making handle for " ++ filepath - newFileHandle filepath finalizer - (Handle__ { haDevice = dev, + newMVar $ Handle__ { haDevice = dev, haType = ha_type, haBufferMode = bmode, haByteBuffer = bbufref, @@ -689,7 +694,7 @@ haInputNL = inputNL nl, haOutputNL = outputNL nl, haOtherSide = other_side - }) + } where -- See Note [Making offsets for append] initHandleOffset @@ -699,6 +704,45 @@ return (fromIntegral size :: Word64) | otherwise = return 0 +mkHandle :: (RawIO dev, IODevice dev, BufferedIO dev, Typeable dev) => dev + -> FilePath + -> HandleType + -> Bool -- buffered? + -> Maybe TextEncoding + -> NewlineMode + -> Maybe HandleFinalizer + -> Maybe (MVar Handle__) + -> IO Handle +mkHandle dev filepath ha_type buffered mb_codec nl mb_finalizer other_side = do + mv <- mkHandleMVar dev filepath ha_type buffered mb_codec nl other_side + let handle = FileHandle filepath mv + case mb_finalizer of + Nothing -> pure () + Just finalizer -> addHandleFinalizer handle finalizer + pure handle + +-- | makes a new 'Handle' without a finalizer. +mkFileHandleNoFinalizer + :: (RawIO dev, IODevice dev, BufferedIO dev, Typeable dev) + => dev -- ^ the underlying IO device, which must support + -- 'IODevice', 'BufferedIO' and 'Typeable' + -> FilePath + -- ^ a string describing the 'Handle', e.g. the file + -- path for a file. Used in error messages. + -> IOMode + -- The mode in which the 'Handle' is to be used + -> Maybe TextEncoding + -- Create the 'Handle' with no text encoding? + -> NewlineMode + -- Translate newlines? + -> IO Handle +mkFileHandleNoFinalizer dev filepath iomode mb_codec tr_newlines = do + mv <- mkHandleMVar dev filepath (ioModeToHandleType iomode) True{-buffered-} + mb_codec + tr_newlines + Nothing{-other_side-} + pure (FileHandle filepath mv) + -- | makes a new 'Handle' mkFileHandle :: (RawIO dev, IODevice dev, BufferedIO dev, Typeable dev) => dev -- ^ the underlying IO device, which must support @@ -713,32 +757,42 @@ -> NewlineMode -- Translate newlines? -> IO Handle + mkFileHandle dev filepath iomode mb_codec tr_newlines = do - mkHandle dev filepath (ioModeToHandleType iomode) True{-buffered-} mb_codec - tr_newlines - (Just handleFinalizer) Nothing{-other_side-} + h <- mkFileHandleNoFinalizer dev filepath iomode mb_codec tr_newlines + addHandleFinalizer h handleFinalizer + pure h -- | like 'mkFileHandle', except that a 'Handle' is created with two -- independent buffers, one for reading and one for writing. Used for -- full-duplex streams, such as network sockets. -mkDuplexHandle :: (RawIO dev, IODevice dev, BufferedIO dev, Typeable dev) => dev - -> FilePath -> Maybe TextEncoding -> NewlineMode -> IO Handle -mkDuplexHandle dev filepath mb_codec tr_newlines = do +mkDuplexHandleNoFinalizer :: + (RawIO dev, IODevice dev, BufferedIO dev, Typeable dev) + => dev -> FilePath -> Maybe TextEncoding -> NewlineMode -> IO Handle +mkDuplexHandleNoFinalizer dev filepath mb_codec tr_newlines = do - write_side@(FileHandle _ write_m) <- - mkHandle dev filepath WriteHandle True mb_codec + write_m <- + mkHandleMVar dev filepath WriteHandle True mb_codec tr_newlines - (Just handleFinalizer) - Nothing -- no othersie + Nothing -- no other side - read_side@(FileHandle _ read_m) <- - mkHandle dev filepath ReadHandle True mb_codec + read_m <- + mkHandleMVar dev filepath ReadHandle True mb_codec tr_newlines - Nothing -- no finalizer (Just write_m) return (DuplexHandle filepath read_m write_m) +-- | like 'mkFileHandle', except that a 'Handle' is created with two +-- independent buffers, one for reading and one for writing. Used for +-- full-duplex streams, such as network sockets. +mkDuplexHandle :: (RawIO dev, IODevice dev, BufferedIO dev, Typeable dev) => dev + -> FilePath -> Maybe TextEncoding -> NewlineMode -> IO Handle +mkDuplexHandle dev filepath mb_codec tr_newlines = do + handle <- mkDuplexHandleNoFinalizer dev filepath mb_codec tr_newlines + addHandleFinalizer handle handleFinalizer + pure handle + ioModeToHandleType :: IOMode -> HandleType ioModeToHandleType ReadMode = ReadHandle ioModeToHandleType WriteMode = WriteHandle @@ -775,7 +829,30 @@ case haEncoder of Nothing -> return (); Just d -> Encoding.close d -- --------------------------------------------------------------------------- --- closing Handles +-- Closing a handle + +-- | This function exists temporarily to avoid an unused import warning in +-- `bytestring`. +hClose_impl :: Handle -> IO () +hClose_impl h@(FileHandle _ m) = do + mb_exc <- hClose' h m + hClose_maybethrow mb_exc h +hClose_impl h@(DuplexHandle _ r w) = do + excs <- mapM (hClose' h) [r,w] + hClose_maybethrow (listToMaybe (catMaybes excs)) h + +hClose_maybethrow :: Maybe SomeException -> Handle -> IO () +hClose_maybethrow Nothing h = return () +hClose_maybethrow (Just e) h = hClose_rethrow e h + +hClose_rethrow :: SomeException -> Handle -> IO () +hClose_rethrow e h = + case fromException e of + Just ioe -> ioError (augmentIOError ioe "hClose" h) + Nothing -> throwIO e + +hClose' :: Handle -> MVar Handle__ -> IO (Maybe SomeException) +hClose' h m = withHandle' "hClose" h m $ hClose_help -- hClose_help is also called by lazyRead (in GHC.IO.Handle.Text) when -- EOF is read or an IO error occurs on a lazy stream. The diff --git a/GHC/IO/Handle/Lock.hs b/GHC/IO/Handle/Lock.hs --- a/GHC/IO/Handle/Lock.hs +++ b/GHC/IO/Handle/Lock.hs @@ -1,7 +1,5 @@ {-# LANGUAGE CPP #-} {-# LANGUAGE InterruptibleFFI #-} -{-# LANGUAGE LambdaCase #-} -{-# LANGUAGE MultiWayIf #-} {-# LANGUAGE NoImplicitPrelude #-} module GHC.IO.Handle.Lock ( @@ -53,6 +51,8 @@ hLock h mode = void $ lockImpl h "hLock" mode True -- | Non-blocking version of 'hLock'. +-- +-- Returns 'True' if taking the lock was successful and 'False' otherwise. -- -- @since 4.10.0.0 hTryLock :: Handle -> LockMode -> IO Bool diff --git a/GHC/IO/Handle/Lock/LinuxOFD.hsc b/GHC/IO/Handle/Lock/LinuxOFD.hsc --- a/GHC/IO/Handle/Lock/LinuxOFD.hsc +++ b/GHC/IO/Handle/Lock/LinuxOFD.hsc @@ -1,4 +1,6 @@ +{-# LANGUAGE CApiFFI #-} {-# LANGUAGE CPP #-} +{-# LANGUAGE CApiFFI #-} {-# LANGUAGE InterruptibleFFI #-} {-# LANGUAGE MultiWayIf #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -40,7 +42,7 @@ -- use ordinary POSIX file locking due to its peculiar semantics under -- multi-threaded environments. -foreign import ccall interruptible "fcntl" +foreign import capi interruptible "fcntl.h fcntl" c_fcntl :: CInt -> CInt -> Ptr FLock -> IO CInt data FLock = FLock { l_type :: CShort @@ -60,7 +62,7 @@ #{poke struct flock, l_start} ptr (l_start x) #{poke struct flock, l_len} ptr (l_len x) #{poke struct flock, l_pid} ptr (l_pid x) - peek ptr = do + peek ptr = FLock <$> #{peek struct flock, l_type} ptr <*> #{peek struct flock, l_whence} ptr <*> #{peek struct flock, l_start} ptr diff --git a/GHC/IO/Handle/Lock/Windows.hsc b/GHC/IO/Handle/Lock/Windows.hsc --- a/GHC/IO/Handle/Lock/Windows.hsc +++ b/GHC/IO/Handle/Lock/Windows.hsc @@ -1,8 +1,8 @@ {-# LANGUAGE CPP #-} {-# LANGUAGE InterruptibleFFI #-} +{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE MultiWayIf #-} -{-# LANGUAGE NoImplicitPrelude #-} -- | File locking for Windows. module GHC.IO.Handle.Lock.Windows where diff --git a/GHC/IO/Handle/Text.hs b/GHC/IO/Handle/Text.hs --- a/GHC/IO/Handle/Text.hs +++ b/GHC/IO/Handle/Text.hs @@ -87,7 +87,7 @@ -- hWaitForInput :: Handle -> Int -> IO Bool -hWaitForInput h msecs = do +hWaitForInput h msecs = wantReadableHandle_ "hWaitForInput" h $ \ handle_@Handle__{..} -> do cbuf <- readIORef haCharBuffer @@ -185,8 +185,8 @@ hGetLine :: Handle -> IO String hGetLine h = - wantReadableHandle_ "hGetLine" h $ \ handle_ -> do - hGetLineBuffered handle_ + wantReadableHandle_ "hGetLine" h $ \ handle_ -> + hGetLineBuffered handle_ hGetLineBuffered :: Handle__ -> IO String hGetLineBuffered handle_@Handle__{..} = do @@ -299,12 +299,12 @@ c <- peekElemOff pbuf i if (c == '\n' && i > r) then do - c1 <- peekElemOff pbuf (i-1) - if (c1 == '\r') - then unpackRB ('\n':acc) (i-2) - else unpackRB ('\n':acc) (i-1) - else do - unpackRB (c : acc) (i-1) + c1 <- peekElemOff pbuf (i-1) + if (c1 == '\r') + then unpackRB ('\n':acc) (i-2) + else unpackRB ('\n':acc) (i-1) + else + unpackRB (c : acc) (i-1) in do c <- peekElemOff pbuf (w-1) if (c == '\r') @@ -437,15 +437,16 @@ 1 | haInputNL == CRLF -> do (c,_) <- readCharBuf bufRaw bufL if c == '\r' - then do -- shuffle the '\r' to the beginning. This is only safe - -- if we're about to call readTextDevice, otherwise it - -- would mess up flushCharBuffer. - -- See [note Buffer Flushing], GHC.IO.Handle.Types - _ <- writeCharBuf bufRaw 0 '\r' - let buf' = buf{ bufL=0, bufR=1 } - readTextDevice handle_ buf' - else do - return buf + then do + -- shuffle the '\r' to the beginning. This is only safe + -- if we're about to call readTextDevice, otherwise it + -- would mess up flushCharBuffer. + -- See [note Buffer Flushing], GHC.IO.Handle.Types + _ <- writeCharBuf bufRaw 0 '\r' + let buf' = buf{ bufL=0, bufR=1 } + readTextDevice handle_ buf' + else + return buf -- buffer has some chars in it already: just return it _otherwise -> @@ -551,27 +552,27 @@ hPutChar :: Handle -> Char -> IO () hPutChar handle c = do c `seq` return () - wantWritableHandle "hPutChar" handle $ \ handle_ -> do - hPutcBuffered handle_ c + wantWritableHandle "hPutChar" handle $ \ handle_ -> + hPutcBuffered handle_ c hPutcBuffered :: Handle__ -> Char -> IO () hPutcBuffered handle_@Handle__{..} c = do buf <- readIORef haCharBuffer if c == '\n' then do buf1 <- if haOutputNL == CRLF - then do - buf1 <- putc buf '\r' - putc buf1 '\n' - else do - putc buf '\n' + then do + buf1 <- putc buf '\r' + putc buf1 '\n' + else + putc buf '\n' writeCharBuffer handle_ buf1 - when is_line $ flushByteWriteBuffer handle_ + when isLine $ flushByteWriteBuffer handle_ else do buf1 <- putc buf c writeCharBuffer handle_ buf1 return () where - is_line = case haBufferMode of + isLine = case haBufferMode of LineBuffering -> True _ -> False @@ -632,9 +633,9 @@ (NoBuffering, _) -> do hPutChars handle str -- v. slow, but we don't care when add_nl $ hPutChar handle '\n' - (LineBuffering, buf) -> do + (LineBuffering, buf) -> writeBlocks handle True add_nl nl buf str - (BlockBuffering _, buf) -> do + (BlockBuffering _, buf) -> writeBlocks handle False add_nl nl buf str hPutChars :: Handle -> [Char] -> IO () @@ -643,10 +644,7 @@ -- Buffer offset is always zero. getSpareBuffer :: Handle__ -> IO (BufferMode, CharBuffer) -getSpareBuffer Handle__{haCharBuffer=ref, - haBuffers=spare_ref, - haBufferMode=mode} - = do +getSpareBuffer Handle__{haCharBuffer=ref, haBuffers=spare_ref, haBufferMode=mode} = case mode of NoBuffering -> return (mode, errorWithoutStackTrace "no buffer!") _ -> do @@ -667,9 +665,9 @@ buf@Buffer{ bufRaw=raw, bufSize=len } s = let shoveString :: Int -> [Char] -> [Char] -> IO () - shoveString !n [] [] = do + shoveString !n [] [] = commitBuffer hdl raw len n False{-no flush-} True{-release-} - shoveString !n [] rest = do + shoveString !n [] rest = shoveString n rest [] shoveString !n (c:cs) rest -- n+1 so we have enough room to write '\r\n' if necessary @@ -678,18 +676,18 @@ shoveString 0 (c:cs) rest | c == '\n' = do n' <- if nl == CRLF - then do - n1 <- writeCharBuf raw n '\r' - writeCharBuf raw n1 '\n' - else do - writeCharBuf raw n c + then do + n1 <- writeCharBuf raw n '\r' + writeCharBuf raw n1 '\n' + else + writeCharBuf raw n c if line_buffered - then do - -- end of line, so write and flush - commitBuffer hdl raw len n' True{-flush-} False - shoveString 0 cs rest - else do - shoveString n' cs rest + then do + -- end of line, so write and flush + commitBuffer hdl raw len n' True{-flush-} False + shoveString 0 cs rest + else + shoveString n' cs rest | otherwise = do n' <- writeCharBuf raw n c shoveString n' cs rest @@ -701,36 +699,31 @@ -- -- Write the contents of the buffer 'buf' ('sz' bytes long, containing -- 'count' bytes of data) to handle (handle must be block or line buffered). -commitBuffer - :: Handle -- handle to commit to - -> RawCharBuffer -> Int -- address and size (in bytes) of buffer - -> Int -- number of bytes of data in buffer - -> Bool -- True <=> flush the handle afterward - -> Bool -- release the buffer? - -> IO () - +commitBuffer :: Handle -- handle to commit to + -> RawCharBuffer -> Int -- address and size (in bytes) of buffer + -> Int -- number of bytes of data in buffer + -> Bool -- True <=> flush the handle afterward + -> Bool -- release the buffer? + -> IO () commitBuffer hdl !raw !sz !count flush release = wantWritableHandle "commitBuffer" hdl $ \h_@Handle__{..} -> do - debugIO ("commitBuffer: sz=" ++ show sz ++ ", count=" ++ show count - ++ ", flush=" ++ show flush ++ ", release=" ++ show release ++ ", handle=" ++ show hdl) - + let debugMsg = ("commitBuffer: sz=" ++ show sz ++ ", count=" ++ show count + ++ ", flush=" ++ show flush ++ ", release=" ++ show release + ++ ", handle=" ++ show hdl) + debugIO debugMsg -- Offset taken from handle - writeCharBuffer h_ Buffer{ bufRaw=raw, bufState=WriteBuffer, bufOffset=0, - bufL=0, bufR=count, bufSize=sz } - - when flush $ flushByteWriteBuffer h_ - - -- release the buffer if necessary - when release $ do - -- find size of current buffer - old_buf@Buffer{ bufSize=size } <- readIORef haCharBuffer - when (sz == size) $ do - spare_bufs <- readIORef haBuffers - writeIORef haBuffers (BufferListCons raw spare_bufs) - - -- bb <- readIORef haByteBuffer - -- debugIO ("commitBuffer: buffer=" ++ summaryBuffer bb ++ ", handle=" ++ show hdl) - return () + writeCharBuffer h_ Buffer{ bufRaw=raw, bufState=WriteBuffer, bufOffset=0, + bufL=0, bufR=count, bufSize=sz } + when flush $ flushByteWriteBuffer h_ + -- release the buffer if necessary + when release $ do + -- find size of current buffer + old_buf@Buffer{ bufSize=size } <- readIORef haCharBuffer + when (sz == size) $ do + spare_bufs <- readIORef haBuffers + writeIORef haBuffers (BufferListCons raw spare_bufs) + -- bb <- readIORef haByteBuffer + -- debugIO ("commitBuffer: buffer=" ++ summaryBuffer bb ++ ", handle=" ++ show hdl) -- backwards compatibility; the text package uses this commitBuffer' :: RawCharBuffer -> Int -> Int -> Bool -> Bool -> Handle__ @@ -812,8 +805,8 @@ -- it is set to LineBuffering, be conservative and flush -- anyway (we didn't check for newlines in the data). case haBufferMode of - BlockBuffering _ -> do return () - _line_or_no_buffering -> do flushWriteBuffer h_ + BlockBuffering _ -> return () + _line_or_no_buffering -> flushWriteBuffer h_ return r -- TODO: Possible optimisation: @@ -842,7 +835,7 @@ else do let offset = bufOffset flushed_buf !bytes <- if can_block - then do writeChunk h_ (castPtr ptr) offset count + then writeChunk h_ (castPtr ptr) offset count else writeChunkNonBlocking h_ (castPtr ptr) offset count -- Update buffer with actual bytes written. writeIORef haByteBuffer $! bufferAddOffset bytes flushed_buf @@ -852,7 +845,7 @@ -- Flush the given buffer via the handle, return the flushed buffer flushByteWriteBufferGiven :: Handle__ -> Buffer Word8 -> IO (Buffer Word8) -flushByteWriteBufferGiven h_@Handle__{..} bbuf = do +flushByteWriteBufferGiven h_@Handle__{..} bbuf = if (not (isEmptyBuffer bbuf)) then do bbuf' <- Buffered.flushWriteBuffer haDevice bbuf @@ -878,7 +871,7 @@ debugIO "hPutBuf: flushing full buffer after writing" _ <- flushByteWriteBufferGiven h_ copied_buf return () - else do + else writeIORef haByteBuffer copied_buf return count diff --git a/GHC/IO/Handle/Windows.hs b/GHC/IO/Handle/Windows.hs --- a/GHC/IO/Handle/Windows.hs +++ b/GHC/IO/Handle/Windows.hs @@ -62,7 +62,7 @@ case isTerm of True -> mkHandle dev filepath ha_type buffered mb_codec nl finalizer other_side - False -> mkHandle (Win.convertHandle dev) filepath ha_type buffered + False -> mkHandle (Win.convertHandle dev False) filepath ha_type buffered mb_codec nl finalizer other_side -- | A handle managing input from the Haskell program's standard input channel. diff --git a/GHC/IO/StdHandles.hs b/GHC/IO/StdHandles.hs --- a/GHC/IO/StdHandles.hs +++ b/GHC/IO/StdHandles.hs @@ -20,7 +20,8 @@ module GHC.IO.StdHandles ( -- std handles stdin, stdout, stderr, - openFile, openBinaryFile, openFileBlocking + openFile, openBinaryFile, openFileBlocking, + withFile, withBinaryFile, withFileBlocking ) where import GHC.IO @@ -31,6 +32,7 @@ #if defined(mingw32_HOST_OS) import GHC.IO.SubSystem import qualified GHC.IO.Handle.Windows as Win +import GHC.IO.Handle.Internals (hClose_impl) stdin :: Handle stdin = POSIX.stdin Win.stdin @@ -44,12 +46,28 @@ openFile :: FilePath -> IOMode -> IO Handle openFile = POSIX.openFile Win.openFile +-- TODO: implement as for POSIX +withFile :: FilePath -> IOMode -> (Handle -> IO r) -> IO r +withFile = POSIX.withFile wf + where + wf path mode act = bracket (Win.openFile path mode) hClose_impl act + openBinaryFile :: FilePath -> IOMode -> IO Handle openBinaryFile = POSIX.openBinaryFile Win.openBinaryFile +withBinaryFile :: FilePath -> IOMode -> (Handle -> IO r) -> IO r +withBinaryFile = POSIX.withBinaryFile wf + where + wf path mode act = bracket (Win.openBinaryFile path mode) hClose_impl act + openFileBlocking :: FilePath -> IOMode -> IO Handle openFileBlocking = POSIX.openFileBlocking Win.openFileBlocking +withFileBlocking :: FilePath -> IOMode -> (Handle -> IO r) -> IO r +withFileBlocking = POSIX.withFileBlocking wf + where + wf path mode act = bracket (Win.openFileBlocking path mode) hClose_impl act + #else stdin :: Handle @@ -64,10 +82,19 @@ openFile :: FilePath -> IOMode -> IO Handle openFile = POSIX.openFile +withFile :: FilePath -> IOMode -> (Handle -> IO r) -> IO r +withFile = POSIX.withFile + openBinaryFile :: FilePath -> IOMode -> IO Handle openBinaryFile = POSIX.openBinaryFile +withBinaryFile :: FilePath -> IOMode -> (Handle -> IO r) -> IO r +withBinaryFile = POSIX.withBinaryFile + openFileBlocking :: FilePath -> IOMode -> IO Handle openFileBlocking = POSIX.openFileBlocking + +withFileBlocking :: FilePath -> IOMode -> (Handle -> IO r) -> IO r +withFileBlocking = POSIX.withFileBlocking #endif diff --git a/GHC/IO/Unsafe.hs b/GHC/IO/Unsafe.hs --- a/GHC/IO/Unsafe.hs +++ b/GHC/IO/Unsafe.hs @@ -40,7 +40,7 @@ It's super-important that the `let r = f x` is lazy. If the demand analyser sees that `r` is sure to be demanded, it'll use call-by-value for (f x), that will try to lock the already-locked table => deadlock. -See #19181. +See #19181 and #19413. Now `r` doesn't look strict, because it's wrapped in a `return`. But if we were to define unsafePerformIO like this diff --git a/GHC/IO/Windows/Encoding.hs b/GHC/IO/Windows/Encoding.hs --- a/GHC/IO/Windows/Encoding.hs +++ b/GHC/IO/Windows/Encoding.hs @@ -9,7 +9,7 @@ Stability : Provisional Portability : Non-portable (Win32 API) - Enocode/Decode mutibyte charactor using Win32 API. + Enocode/Decode mutibyte character using Win32 API. -} module GHC.IO.Windows.Encoding diff --git a/GHC/IO/Windows/Handle.hsc b/GHC/IO/Windows/Handle.hsc --- a/GHC/IO/Windows/Handle.hsc +++ b/GHC/IO/Windows/Handle.hsc @@ -36,6 +36,7 @@ toHANDLE, fromHANDLE, handleToMode, + isAsynchronous, optimizeFileAccess, -- * Standard Handles @@ -77,7 +78,7 @@ import GHC.IO.Windows.Paths (getDevicePath) import GHC.IO.Handle.Internals (debugIO) import GHC.IORef -import GHC.Event.Windows (LPOVERLAPPED, withOverlapped, IOResult(..)) +import GHC.Event.Windows (LPOVERLAPPED, withOverlappedEx, IOResult(..)) import Foreign.Ptr import Foreign.C import Foreign.Marshal.Array (pokeArray) @@ -103,7 +104,12 @@ -- We can't store it separately because we don't know when the handle will -- be destroyed or invalidated. data IoHandle a where - NativeHandle :: { getNativeHandle :: HANDLE } -> IoHandle NativeHandle + NativeHandle :: { getNativeHandle :: HANDLE + -- In certain cases we have inherited a handle and the + -- handle and it may not have been created for async + -- access. In those case we can't issue a completion + -- request as it would never finish and we'd deadlock. + , isAsynchronous :: Bool } -> IoHandle NativeHandle ConsoleHandle :: { getConsoleHandle :: HANDLE , cookedHandle :: IORef Bool } -> IoHandle ConsoleHandle @@ -112,8 +118,10 @@ -- | Convert a ConsoleHandle into a general FileHandle -- This will change which DeviceIO is used. -convertHandle :: Io ConsoleHandle -> Io NativeHandle -convertHandle = fromHANDLE . toHANDLE +convertHandle :: Io ConsoleHandle -> Bool -> Io NativeHandle +convertHandle io async + = let !hwnd = getConsoleHandle io + in NativeHandle hwnd async -- | @since 4.11.0.0 instance Show (Io NativeHandle) where @@ -148,7 +156,9 @@ instance RawHandle (Io NativeHandle) where toHANDLE = getNativeHandle - fromHANDLE = NativeHandle + -- In order to convert to a native handle we have to check to see + -- is the handle can be used async or not. + fromHANDLE = flip NativeHandle True isLockable _ = True setCooked = const . return isCooked _ = return False @@ -184,7 +194,7 @@ -- | @since 4.11.0.0 instance GHC.IO.Device.IODevice (Io ConsoleHandle) where ready = handle_ready - close = handle_close . convertHandle + close = handle_close . flip convertHandle False isTerminal = handle_is_console isSeekable = handle_is_seekable seek = handle_console_seek @@ -420,9 +430,11 @@ -- am choosing never to let this block. But this can be easily accomplished by -- a getOverlappedResult call with True hwndRead :: Io NativeHandle -> Ptr Word8 -> Word64 -> Int -> IO Int -hwndRead hwnd ptr offset bytes - = fmap fromIntegral $ Mgr.withException "hwndRead" $ - withOverlapped "hwndRead" (toHANDLE hwnd) offset (startCB ptr) completionCB +hwndRead hwnd ptr offset bytes = do + mngr <- Mgr.getSystemManager + fmap fromIntegral $ Mgr.withException "hwndRead" $ + withOverlappedEx mngr "hwndRead" (toHANDLE hwnd) (isAsynchronous hwnd) + offset (startCB ptr) completionCB where startCB outBuf lpOverlapped = do debugIO ":: hwndRead" @@ -448,8 +460,10 @@ hwndReadNonBlocking :: Io NativeHandle -> Ptr Word8 -> Word64 -> Int -> IO (Maybe Int) hwndReadNonBlocking hwnd ptr offset bytes - = do val <- withOverlapped "hwndReadNonBlocking" (toHANDLE hwnd) offset - (startCB ptr) completionCB + = do mngr <- Mgr.getSystemManager + val <- withOverlappedEx mngr "hwndReadNonBlocking" (toHANDLE hwnd) + (isAsynchronous hwnd) offset (startCB ptr) + completionCB return $ ioValue val where startCB inputBuf lpOverlapped = do @@ -471,9 +485,11 @@ hwndWrite :: Io NativeHandle -> Ptr Word8 -> Word64 -> Int -> IO () hwndWrite hwnd ptr offset bytes - = do _ <- Mgr.withException "hwndWrite" $ - withOverlapped "hwndWrite" (toHANDLE hwnd) offset (startCB ptr) - completionCB + = do mngr <- Mgr.getSystemManager + _ <- Mgr.withException "hwndWrite" $ + withOverlappedEx mngr "hwndWrite" (toHANDLE hwnd) + (isAsynchronous hwnd) offset (startCB ptr) + completionCB return () where startCB outBuf lpOverlapped = do @@ -490,8 +506,10 @@ hwndWriteNonBlocking :: Io NativeHandle -> Ptr Word8 -> Word64 -> Int -> IO Int hwndWriteNonBlocking hwnd ptr offset bytes - = do val <- withOverlapped "hwndReadNonBlocking" (toHANDLE hwnd) offset - (startCB ptr) completionCB + = do mngr <- Mgr.getSystemManager + val <- withOverlappedEx mngr "hwndReadNonBlocking" (toHANDLE hwnd) + (isAsynchronous hwnd) offset (startCB ptr) + completionCB return $ fromIntegral $ ioValue val where startCB :: Ptr a -> LPOVERLAPPED -> IO (Mgr.CbResult a1) @@ -884,7 +902,7 @@ -- on the Haskell side by using existing mechanisms such as MVar -- or IOPorts. then #{const FILE_FLAG_OVERLAPPED} - -- I beleive most haskell programs do sequential scans, so + -- I believe most haskell programs do sequential scans, so -- optimize for the common case. Though ideally, this would -- be parameterized by openFile. This will absolutely trash -- the cache on reverse scans. diff --git a/GHC/Int.hs b/GHC/Int.hs --- a/GHC/Int.hs +++ b/GHC/Int.hs @@ -1,6 +1,11 @@ +{-# LANGUAGE BangPatterns #-} +{-# LANGUAGE CPP #-} +{-# LANGUAGE MagicHash #-} +{-# LANGUAGE NegativeLiterals #-} +{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE CPP, NoImplicitPrelude, BangPatterns, MagicHash, UnboxedTuples, - StandaloneDeriving, NegativeLiterals #-} +{-# LANGUAGE UnboxedTuples #-} + {-# OPTIONS_HADDOCK not-home #-} ----------------------------------------------------------------------------- @@ -35,7 +40,7 @@ import Data.Maybe #if WORD_SIZE_IN_BITS < 64 -import GHC.IntWord64 +import GHC.Prim #endif import GHC.Base @@ -44,7 +49,6 @@ import GHC.Real import GHC.Read import GHC.Arr -import GHC.Word hiding (uncheckedShiftL64#, uncheckedShiftRL64#) import GHC.Show ------------------------------------------------------------------------ @@ -54,7 +58,7 @@ -- Int8 is represented in the same way as Int. Operations may assume -- and must ensure that it holds only values from its logical range. -data {-# CTYPE "HsInt8" #-} Int8 = I8# Int# +data {-# CTYPE "HsInt8" #-} Int8 = I8# Int8# -- ^ 8-bit signed integer type -- See GHC.Classes#matching_overloaded_methods_in_rules @@ -64,8 +68,8 @@ (/=) = neInt8 eqInt8, neInt8 :: Int8 -> Int8 -> Bool -eqInt8 (I8# x) (I8# y) = isTrue# (x ==# y) -neInt8 (I8# x) (I8# y) = isTrue# (x /=# y) +eqInt8 (I8# x) (I8# y) = isTrue# ((int8ToInt# x) ==# (int8ToInt# y)) +neInt8 (I8# x) (I8# y) = isTrue# ((int8ToInt# x) /=# (int8ToInt# y)) {-# INLINE [1] eqInt8 #-} {-# INLINE [1] neInt8 #-} @@ -81,10 +85,10 @@ {-# INLINE [1] ltInt8 #-} {-# INLINE [1] leInt8 #-} gtInt8, geInt8, ltInt8, leInt8 :: Int8 -> Int8 -> Bool -(I8# x) `gtInt8` (I8# y) = isTrue# (x ># y) -(I8# x) `geInt8` (I8# y) = isTrue# (x >=# y) -(I8# x) `ltInt8` (I8# y) = isTrue# (x <# y) -(I8# x) `leInt8` (I8# y) = isTrue# (x <=# y) +(I8# x) `gtInt8` (I8# y) = isTrue# (x `gtInt8#` y) +(I8# x) `geInt8` (I8# y) = isTrue# (x `geInt8#` y) +(I8# x) `ltInt8` (I8# y) = isTrue# (x `ltInt8#` y) +(I8# x) `leInt8` (I8# y) = isTrue# (x `leInt8#` y) -- | @since 2.01 instance Show Int8 where @@ -92,16 +96,16 @@ -- | @since 2.01 instance Num Int8 where - (I8# x#) + (I8# y#) = I8# (narrow8Int# (x# +# y#)) - (I8# x#) - (I8# y#) = I8# (narrow8Int# (x# -# y#)) - (I8# x#) * (I8# y#) = I8# (narrow8Int# (x# *# y#)) - negate (I8# x#) = I8# (narrow8Int# (negateInt# x#)) + (I8# x#) + (I8# y#) = I8# (intToInt8# ((int8ToInt# x#) +# (int8ToInt# y#))) + (I8# x#) - (I8# y#) = I8# (intToInt8# ((int8ToInt# x#) -# (int8ToInt# y#))) + (I8# x#) * (I8# y#) = I8# (intToInt8# ((int8ToInt# x#) *# (int8ToInt# y#))) + negate (I8# x#) = I8# (intToInt8# (negateInt# (int8ToInt# x#))) abs x | x >= 0 = x | otherwise = negate x signum x | x > 0 = 1 signum 0 = 0 signum _ = -1 - fromInteger i = I8# (narrow8Int# (integerToInt# i)) + fromInteger i = I8# (intToInt8# (integerToInt# i)) -- | @since 2.01 instance Real Int8 where @@ -117,14 +121,10 @@ | otherwise = predError "Int8" toEnum i@(I# i#) | i >= fromIntegral (minBound::Int8) && i <= fromIntegral (maxBound::Int8) - = I8# i# + = I8# (intToInt8# i#) | otherwise = toEnumError "Int8" i (minBound::Int8, maxBound::Int8) - fromEnum (I8# x#) = I# x# - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFrom #-} + fromEnum (I8# x#) = I# (int8ToInt# x#) enumFrom = boundedEnumFrom - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFromThen #-} enumFromThen = boundedEnumFromThen -- | @since 2.01 @@ -132,34 +132,44 @@ quot x@(I8# x#) y@(I8# y#) | y == 0 = divZeroError | y == (-1) && x == minBound = overflowError -- Note [Order of tests] - | otherwise = I8# (narrow8Int# (x# `quotInt#` y#)) + | otherwise = I8# (intToInt8# ((int8ToInt# x#) `quotInt#` (int8ToInt# y#))) rem (I8# x#) y@(I8# y#) | y == 0 = divZeroError - | otherwise = I8# (narrow8Int# (x# `remInt#` y#)) + -- The quotRem CPU instruction might fail for 'minBound + -- `quotRem` -1' if it is an instruction for exactly this + -- width of signed integer. But, 'minBound `rem` -1' is + -- well-defined (0). We therefore special-case it. + | y == (-1) = 0 + | otherwise = I8# (intToInt8# ((int8ToInt# x#) `remInt#` (int8ToInt# y#))) div x@(I8# x#) y@(I8# y#) | y == 0 = divZeroError | y == (-1) && x == minBound = overflowError -- Note [Order of tests] - | otherwise = I8# (narrow8Int# (x# `divInt#` y#)) + | otherwise = I8# (intToInt8# ((int8ToInt# x#) `divInt#` (int8ToInt# y#))) mod (I8# x#) y@(I8# y#) | y == 0 = divZeroError - | otherwise = I8# (narrow8Int# (x# `modInt#` y#)) + -- The divMod CPU instruction might fail for 'minBound + -- `divMod` -1' if it is an instruction for exactly this + -- width of signed integer. But, 'minBound `mod` -1' is + -- well-defined (0). We therefore special-case it. + | y == (-1) = 0 + | otherwise = I8# (intToInt8# ((int8ToInt# x#) `modInt#` (int8ToInt# y#))) quotRem x@(I8# x#) y@(I8# y#) | y == 0 = divZeroError -- Note [Order of tests] | y == (-1) && x == minBound = (overflowError, 0) - | otherwise = case x# `quotRemInt#` y# of + | otherwise = case (int8ToInt# x#) `quotRemInt#` (int8ToInt# y#) of (# q, r #) -> - (I8# (narrow8Int# q), - I8# (narrow8Int# r)) + (I8# (intToInt8# q), + I8# (intToInt8# r)) divMod x@(I8# x#) y@(I8# y#) | y == 0 = divZeroError -- Note [Order of tests] | y == (-1) && x == minBound = (overflowError, 0) - | otherwise = case x# `divModInt#` y# of + | otherwise = case (int8ToInt# x#) `divModInt#` (int8ToInt# y#) of (# d, m #) -> - (I8# (narrow8Int# d), - I8# (narrow8Int# m)) - toInteger (I8# x#) = IS x# + (I8# (intToInt8# d), + I8# (intToInt8# m)) + toInteger (I8# x#) = IS (int8ToInt# x#) -- | @since 2.01 instance Bounded Int8 where @@ -183,34 +193,34 @@ {-# INLINE testBit #-} {-# INLINE popCount #-} - (I8# x#) .&. (I8# y#) = I8# (x# `andI#` y#) - (I8# x#) .|. (I8# y#) = I8# (x# `orI#` y#) - (I8# x#) `xor` (I8# y#) = I8# (x# `xorI#` y#) - complement (I8# x#) = I8# (notI# x#) + (I8# x#) .&. (I8# y#) = I8# (intToInt8# ((int8ToInt# x#) `andI#` (int8ToInt# y#))) + (I8# x#) .|. (I8# y#) = I8# (intToInt8# ((int8ToInt# x#) `orI#` (int8ToInt# y#))) + (I8# x#) `xor` (I8# y#) = I8# (intToInt8# ((int8ToInt# x#) `xorI#` (int8ToInt# y#))) + complement (I8# x#) = I8# (intToInt8# (notI# (int8ToInt# x#))) (I8# x#) `shift` (I# i#) - | isTrue# (i# >=# 0#) = I8# (narrow8Int# (x# `iShiftL#` i#)) - | otherwise = I8# (x# `iShiftRA#` negateInt# i#) + | isTrue# (i# >=# 0#) = I8# (intToInt8# ((int8ToInt# x#) `iShiftL#` i#)) + | otherwise = I8# (intToInt8# ((int8ToInt# x#) `iShiftRA#` negateInt# i#)) (I8# x#) `shiftL` (I# i#) - | isTrue# (i# >=# 0#) = I8# (narrow8Int# (x# `iShiftL#` i#)) + | isTrue# (i# >=# 0#) = I8# (intToInt8# ((int8ToInt# x#) `iShiftL#` i#)) | otherwise = overflowError - (I8# x#) `unsafeShiftL` (I# i#) = I8# (narrow8Int# (x# `uncheckedIShiftL#` i#)) + (I8# x#) `unsafeShiftL` (I# i#) = I8# (intToInt8# ((int8ToInt# x#) `uncheckedIShiftL#` i#)) (I8# x#) `shiftR` (I# i#) - | isTrue# (i# >=# 0#) = I8# (x# `iShiftRA#` i#) + | isTrue# (i# >=# 0#) = I8# (intToInt8# ((int8ToInt# x#) `iShiftRA#` i#)) | otherwise = overflowError - (I8# x#) `unsafeShiftR` (I# i#) = I8# (x# `uncheckedIShiftRA#` i#) + (I8# x#) `unsafeShiftR` (I# i#) = I8# (intToInt8# ((int8ToInt# x#) `uncheckedIShiftRA#` i#)) (I8# x#) `rotate` (I# i#) | isTrue# (i'# ==# 0#) = I8# x# | otherwise - = I8# (narrow8Int# (word2Int# ((x'# `uncheckedShiftL#` i'#) `or#` + = I8# (intToInt8# (word2Int# ((x'# `uncheckedShiftL#` i'#) `or#` (x'# `uncheckedShiftRL#` (8# -# i'#))))) where - !x'# = narrow8Word# (int2Word# x#) + !x'# = narrow8Word# (int2Word# (int8ToInt# x#)) !i'# = word2Int# (int2Word# i# `and#` 7##) bitSizeMaybe i = Just (finiteBitSize i) bitSize i = finiteBitSize i isSigned _ = True - popCount (I8# x#) = I# (word2Int# (popCnt8# (int2Word# x#))) + popCount (I8# x#) = I# (word2Int# (popCnt8# (int2Word# (int8ToInt# x#)))) bit = bitDefault testBit = testBitDefault @@ -219,14 +229,8 @@ {-# INLINE countLeadingZeros #-} {-# INLINE countTrailingZeros #-} finiteBitSize _ = 8 - countLeadingZeros (I8# x#) = I# (word2Int# (clz8# (int2Word# x#))) - countTrailingZeros (I8# x#) = I# (word2Int# (ctz8# (int2Word# x#))) - -{-# RULES -"fromIntegral/Int8->Int8" fromIntegral = id :: Int8 -> Int8 -"fromIntegral/a->Int8" fromIntegral = \x -> case fromIntegral x of I# x# -> I8# (narrow8Int# x#) -"fromIntegral/Int8->a" fromIntegral = \(I8# x#) -> fromIntegral (I# x#) - #-} + countLeadingZeros (I8# x#) = I# (word2Int# (clz8# (int2Word# (int8ToInt# x#)))) + countTrailingZeros (I8# x#) = I# (word2Int# (ctz8# (int2Word# (int8ToInt# x#)))) {-# RULES "properFraction/Float->(Int8,Float)" @@ -265,7 +269,7 @@ -- Int16 is represented in the same way as Int. Operations may assume -- and must ensure that it holds only values from its logical range. -data {-# CTYPE "HsInt16" #-} Int16 = I16# Int# +data {-# CTYPE "HsInt16" #-} Int16 = I16# Int16# -- ^ 16-bit signed integer type -- See GHC.Classes#matching_overloaded_methods_in_rules @@ -275,8 +279,8 @@ (/=) = neInt16 eqInt16, neInt16 :: Int16 -> Int16 -> Bool -eqInt16 (I16# x) (I16# y) = isTrue# (x ==# y) -neInt16 (I16# x) (I16# y) = isTrue# (x /=# y) +eqInt16 (I16# x) (I16# y) = isTrue# ((int16ToInt# x) ==# (int16ToInt# y)) +neInt16 (I16# x) (I16# y) = isTrue# ((int16ToInt# x) /=# (int16ToInt# y)) {-# INLINE [1] eqInt16 #-} {-# INLINE [1] neInt16 #-} @@ -292,10 +296,10 @@ {-# INLINE [1] ltInt16 #-} {-# INLINE [1] leInt16 #-} gtInt16, geInt16, ltInt16, leInt16 :: Int16 -> Int16 -> Bool -(I16# x) `gtInt16` (I16# y) = isTrue# (x ># y) -(I16# x) `geInt16` (I16# y) = isTrue# (x >=# y) -(I16# x) `ltInt16` (I16# y) = isTrue# (x <# y) -(I16# x) `leInt16` (I16# y) = isTrue# (x <=# y) +(I16# x) `gtInt16` (I16# y) = isTrue# (x `gtInt16#` y) +(I16# x) `geInt16` (I16# y) = isTrue# (x `geInt16#` y) +(I16# x) `ltInt16` (I16# y) = isTrue# (x `ltInt16#` y) +(I16# x) `leInt16` (I16# y) = isTrue# (x `leInt16#` y) -- | @since 2.01 instance Show Int16 where @@ -303,16 +307,16 @@ -- | @since 2.01 instance Num Int16 where - (I16# x#) + (I16# y#) = I16# (narrow16Int# (x# +# y#)) - (I16# x#) - (I16# y#) = I16# (narrow16Int# (x# -# y#)) - (I16# x#) * (I16# y#) = I16# (narrow16Int# (x# *# y#)) - negate (I16# x#) = I16# (narrow16Int# (negateInt# x#)) + (I16# x#) + (I16# y#) = I16# (intToInt16# ((int16ToInt# x#) +# (int16ToInt# y#))) + (I16# x#) - (I16# y#) = I16# (intToInt16# ((int16ToInt# x#) -# (int16ToInt# y#))) + (I16# x#) * (I16# y#) = I16# (intToInt16# ((int16ToInt# x#) *# (int16ToInt# y#))) + negate (I16# x#) = I16# (intToInt16# (negateInt# (int16ToInt# x#))) abs x | x >= 0 = x | otherwise = negate x signum x | x > 0 = 1 signum 0 = 0 signum _ = -1 - fromInteger i = I16# (narrow16Int# (integerToInt# i)) + fromInteger i = I16# (intToInt16# (integerToInt# i)) -- | @since 2.01 instance Real Int16 where @@ -328,14 +332,10 @@ | otherwise = predError "Int16" toEnum i@(I# i#) | i >= fromIntegral (minBound::Int16) && i <= fromIntegral (maxBound::Int16) - = I16# i# + = I16# (intToInt16# i#) | otherwise = toEnumError "Int16" i (minBound::Int16, maxBound::Int16) - fromEnum (I16# x#) = I# x# - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFrom #-} + fromEnum (I16# x#) = I# (int16ToInt# x#) enumFrom = boundedEnumFrom - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFromThen #-} enumFromThen = boundedEnumFromThen -- | @since 2.01 @@ -343,34 +343,44 @@ quot x@(I16# x#) y@(I16# y#) | y == 0 = divZeroError | y == (-1) && x == minBound = overflowError -- Note [Order of tests] - | otherwise = I16# (narrow16Int# (x# `quotInt#` y#)) + | otherwise = I16# (intToInt16# ((int16ToInt# x#) `quotInt#` (int16ToInt# y#))) rem (I16# x#) y@(I16# y#) | y == 0 = divZeroError - | otherwise = I16# (narrow16Int# (x# `remInt#` y#)) + -- The quotRem CPU instruction might fail for 'minBound + -- `quotRem` -1' if it is an instruction for exactly this + -- width of signed integer. But, 'minBound `rem` -1' is + -- well-defined (0). We therefore special-case it. + | y == (-1) = 0 + | otherwise = I16# (intToInt16# ((int16ToInt# x#) `remInt#` (int16ToInt# y#))) div x@(I16# x#) y@(I16# y#) | y == 0 = divZeroError | y == (-1) && x == minBound = overflowError -- Note [Order of tests] - | otherwise = I16# (narrow16Int# (x# `divInt#` y#)) + | otherwise = I16# (intToInt16# ((int16ToInt# x#) `divInt#` (int16ToInt# y#))) mod (I16# x#) y@(I16# y#) | y == 0 = divZeroError - | otherwise = I16# (narrow16Int# (x# `modInt#` y#)) + -- The divMod CPU instruction might fail for 'minBound + -- `divMod` -1' if it is an instruction for exactly this + -- width of signed integer. But, 'minBound `mod` -1' is + -- well-defined (0). We therefore special-case it. + | y == (-1) = 0 + | otherwise = I16# (intToInt16# ((int16ToInt# x#) `modInt#` (int16ToInt# y#))) quotRem x@(I16# x#) y@(I16# y#) | y == 0 = divZeroError -- Note [Order of tests] | y == (-1) && x == minBound = (overflowError, 0) - | otherwise = case x# `quotRemInt#` y# of + | otherwise = case (int16ToInt# x#) `quotRemInt#` (int16ToInt# y#) of (# q, r #) -> - (I16# (narrow16Int# q), - I16# (narrow16Int# r)) + (I16# (intToInt16# q), + I16# (intToInt16# r)) divMod x@(I16# x#) y@(I16# y#) | y == 0 = divZeroError -- Note [Order of tests] | y == (-1) && x == minBound = (overflowError, 0) - | otherwise = case x# `divModInt#` y# of + | otherwise = case (int16ToInt# x#) `divModInt#` (int16ToInt# y#) of (# d, m #) -> - (I16# (narrow16Int# d), - I16# (narrow16Int# m)) - toInteger (I16# x#) = IS x# + (I16# (intToInt16# d), + I16# (intToInt16# m)) + toInteger (I16# x#) = IS (int16ToInt# x#) -- | @since 2.01 instance Bounded Int16 where @@ -394,34 +404,34 @@ {-# INLINE testBit #-} {-# INLINE popCount #-} - (I16# x#) .&. (I16# y#) = I16# (x# `andI#` y#) - (I16# x#) .|. (I16# y#) = I16# (x# `orI#` y#) - (I16# x#) `xor` (I16# y#) = I16# (x# `xorI#` y#) - complement (I16# x#) = I16# (notI# x#) + (I16# x#) .&. (I16# y#) = I16# (intToInt16# ((int16ToInt# x#) `andI#` (int16ToInt# y#))) + (I16# x#) .|. (I16# y#) = I16# (intToInt16# ((int16ToInt# x#) `orI#` (int16ToInt# y#))) + (I16# x#) `xor` (I16# y#) = I16# (intToInt16# ((int16ToInt# x#) `xorI#` (int16ToInt# y#))) + complement (I16# x#) = I16# (intToInt16# (notI# (int16ToInt# x#))) (I16# x#) `shift` (I# i#) - | isTrue# (i# >=# 0#) = I16# (narrow16Int# (x# `iShiftL#` i#)) - | otherwise = I16# (x# `iShiftRA#` negateInt# i#) + | isTrue# (i# >=# 0#) = I16# (intToInt16# ((int16ToInt# x#) `iShiftL#` i#)) + | otherwise = I16# (intToInt16# ((int16ToInt# x#) `iShiftRA#` negateInt# i#)) (I16# x#) `shiftL` (I# i#) - | isTrue# (i# >=# 0#) = I16# (narrow16Int# (x# `iShiftL#` i#)) + | isTrue# (i# >=# 0#) = I16# (intToInt16# ((int16ToInt# x#) `iShiftL#` i#)) | otherwise = overflowError - (I16# x#) `unsafeShiftL` (I# i#) = I16# (narrow16Int# (x# `uncheckedIShiftL#` i#)) + (I16# x#) `unsafeShiftL` (I# i#) = I16# (intToInt16# ((int16ToInt# x#) `uncheckedIShiftL#` i#)) (I16# x#) `shiftR` (I# i#) - | isTrue# (i# >=# 0#) = I16# (x# `iShiftRA#` i#) + | isTrue# (i# >=# 0#) = I16# (intToInt16# ((int16ToInt# x#) `iShiftRA#` i#)) | otherwise = overflowError - (I16# x#) `unsafeShiftR` (I# i#) = I16# (x# `uncheckedIShiftRA#` i#) + (I16# x#) `unsafeShiftR` (I# i#) = I16# (intToInt16# ((int16ToInt# x#) `uncheckedIShiftRA#` i#)) (I16# x#) `rotate` (I# i#) | isTrue# (i'# ==# 0#) = I16# x# | otherwise - = I16# (narrow16Int# (word2Int# ((x'# `uncheckedShiftL#` i'#) `or#` + = I16# (intToInt16# (word2Int# ((x'# `uncheckedShiftL#` i'#) `or#` (x'# `uncheckedShiftRL#` (16# -# i'#))))) where - !x'# = narrow16Word# (int2Word# x#) + !x'# = narrow16Word# (int2Word# (int16ToInt# x#)) !i'# = word2Int# (int2Word# i# `and#` 15##) bitSizeMaybe i = Just (finiteBitSize i) bitSize i = finiteBitSize i isSigned _ = True - popCount (I16# x#) = I# (word2Int# (popCnt16# (int2Word# x#))) + popCount (I16# x#) = I# (word2Int# (popCnt16# (int2Word# (int16ToInt# x#)))) bit = bitDefault testBit = testBitDefault @@ -430,16 +440,8 @@ {-# INLINE countLeadingZeros #-} {-# INLINE countTrailingZeros #-} finiteBitSize _ = 16 - countLeadingZeros (I16# x#) = I# (word2Int# (clz16# (int2Word# x#))) - countTrailingZeros (I16# x#) = I# (word2Int# (ctz16# (int2Word# x#))) - -{-# RULES -"fromIntegral/Word8->Int16" fromIntegral = \(W8# x#) -> I16# (word2Int# x#) -"fromIntegral/Int8->Int16" fromIntegral = \(I8# x#) -> I16# x# -"fromIntegral/Int16->Int16" fromIntegral = id :: Int16 -> Int16 -"fromIntegral/a->Int16" fromIntegral = \x -> case fromIntegral x of I# x# -> I16# (narrow16Int# x#) -"fromIntegral/Int16->a" fromIntegral = \(I16# x#) -> fromIntegral (I# x#) - #-} + countLeadingZeros (I16# x#) = I# (word2Int# (clz16# (int2Word# (int16ToInt# x#)))) + countTrailingZeros (I16# x#) = I# (word2Int# (ctz16# (int2Word# (int16ToInt# x#)))) {-# RULES "properFraction/Float->(Int16,Float)" @@ -475,13 +477,7 @@ -- type Int32 ------------------------------------------------------------------------ --- Int32 is represented in the same way as Int. -#if WORD_SIZE_IN_BITS > 32 --- Operations may assume and must ensure that it holds only values --- from its logical range. -#endif - -data {-# CTYPE "HsInt32" #-} Int32 = I32# Int# +data {-# CTYPE "HsInt32" #-} Int32 = I32# Int32# -- ^ 32-bit signed integer type -- See GHC.Classes#matching_overloaded_methods_in_rules @@ -491,8 +487,8 @@ (/=) = neInt32 eqInt32, neInt32 :: Int32 -> Int32 -> Bool -eqInt32 (I32# x) (I32# y) = isTrue# (x ==# y) -neInt32 (I32# x) (I32# y) = isTrue# (x /=# y) +eqInt32 (I32# x) (I32# y) = isTrue# ((int32ToInt# x) ==# (int32ToInt# y)) +neInt32 (I32# x) (I32# y) = isTrue# ((int32ToInt# x) /=# (int32ToInt# y)) {-# INLINE [1] eqInt32 #-} {-# INLINE [1] neInt32 #-} @@ -508,10 +504,10 @@ {-# INLINE [1] ltInt32 #-} {-# INLINE [1] leInt32 #-} gtInt32, geInt32, ltInt32, leInt32 :: Int32 -> Int32 -> Bool -(I32# x) `gtInt32` (I32# y) = isTrue# (x ># y) -(I32# x) `geInt32` (I32# y) = isTrue# (x >=# y) -(I32# x) `ltInt32` (I32# y) = isTrue# (x <# y) -(I32# x) `leInt32` (I32# y) = isTrue# (x <=# y) +(I32# x) `gtInt32` (I32# y) = isTrue# (x `gtInt32#` y) +(I32# x) `geInt32` (I32# y) = isTrue# (x `geInt32#` y) +(I32# x) `ltInt32` (I32# y) = isTrue# (x `ltInt32#` y) +(I32# x) `leInt32` (I32# y) = isTrue# (x `leInt32#` y) -- | @since 2.01 instance Show Int32 where @@ -519,16 +515,16 @@ -- | @since 2.01 instance Num Int32 where - (I32# x#) + (I32# y#) = I32# (narrow32Int# (x# +# y#)) - (I32# x#) - (I32# y#) = I32# (narrow32Int# (x# -# y#)) - (I32# x#) * (I32# y#) = I32# (narrow32Int# (x# *# y#)) - negate (I32# x#) = I32# (narrow32Int# (negateInt# x#)) + (I32# x#) + (I32# y#) = I32# (intToInt32# ((int32ToInt# x#) +# (int32ToInt# y#))) + (I32# x#) - (I32# y#) = I32# (intToInt32# ((int32ToInt# x#) -# (int32ToInt# y#))) + (I32# x#) * (I32# y#) = I32# (intToInt32# ((int32ToInt# x#) *# (int32ToInt# y#))) + negate (I32# x#) = I32# (intToInt32# (negateInt# (int32ToInt# x#))) abs x | x >= 0 = x | otherwise = negate x signum x | x > 0 = 1 signum 0 = 0 signum _ = -1 - fromInteger i = I32# (narrow32Int# (integerToInt# i)) + fromInteger i = I32# (intToInt32# (integerToInt# i)) -- | @since 2.01 instance Enum Int32 where @@ -539,19 +535,15 @@ | x /= minBound = x - 1 | otherwise = predError "Int32" #if WORD_SIZE_IN_BITS == 32 - toEnum (I# i#) = I32# i# + toEnum (I# i#) = I32# (intToInt32# i#) #else toEnum i@(I# i#) | i >= fromIntegral (minBound::Int32) && i <= fromIntegral (maxBound::Int32) - = I32# i# + = I32# (intToInt32# i#) | otherwise = toEnumError "Int32" i (minBound::Int32, maxBound::Int32) #endif - fromEnum (I32# x#) = I# x# - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFrom #-} + fromEnum (I32# x#) = I# (int32ToInt# x#) enumFrom = boundedEnumFrom - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFromThen #-} enumFromThen = boundedEnumFromThen -- | @since 2.01 @@ -559,42 +551,44 @@ quot x@(I32# x#) y@(I32# y#) | y == 0 = divZeroError | y == (-1) && x == minBound = overflowError -- Note [Order of tests] - | otherwise = I32# (narrow32Int# (x# `quotInt#` y#)) + | otherwise = I32# (intToInt32# ((int32ToInt# x#) `quotInt#` (int32ToInt# y#))) rem (I32# x#) y@(I32# y#) | y == 0 = divZeroError - -- The quotRem CPU instruction fails for minBound `quotRem` -1, - -- but minBound `rem` -1 is well-defined (0). We therefore - -- special-case it. + -- The quotRem CPU instruction might fail for 'minBound + -- `quotRem` -1' if it is an instruction for exactly this + -- width of signed integer. But, 'minBound `rem` -1' is + -- well-defined (0). We therefore special-case it. | y == (-1) = 0 - | otherwise = I32# (narrow32Int# (x# `remInt#` y#)) + | otherwise = I32# (intToInt32# ((int32ToInt# x#) `remInt#` (int32ToInt# y#))) div x@(I32# x#) y@(I32# y#) | y == 0 = divZeroError | y == (-1) && x == minBound = overflowError -- Note [Order of tests] - | otherwise = I32# (narrow32Int# (x# `divInt#` y#)) + | otherwise = I32# (intToInt32# ((int32ToInt# x#) `divInt#` (int32ToInt# y#))) mod (I32# x#) y@(I32# y#) | y == 0 = divZeroError - -- The divMod CPU instruction fails for minBound `divMod` -1, - -- but minBound `mod` -1 is well-defined (0). We therefore - -- special-case it. + -- The divMod CPU instruction might fail for 'minBound + -- `divMod` -1' if it is an instruction for exactly this + -- width of signed integer. But, 'minBound `mod` -1' is + -- well-defined (0). We therefore special-case it. | y == (-1) = 0 - | otherwise = I32# (narrow32Int# (x# `modInt#` y#)) + | otherwise = I32# (intToInt32# ((int32ToInt# x#) `modInt#` (int32ToInt# y#))) quotRem x@(I32# x#) y@(I32# y#) | y == 0 = divZeroError -- Note [Order of tests] | y == (-1) && x == minBound = (overflowError, 0) - | otherwise = case x# `quotRemInt#` y# of + | otherwise = case (int32ToInt# x#) `quotRemInt#` (int32ToInt# y#) of (# q, r #) -> - (I32# (narrow32Int# q), - I32# (narrow32Int# r)) + (I32# (intToInt32# q), + I32# (intToInt32# r)) divMod x@(I32# x#) y@(I32# y#) | y == 0 = divZeroError -- Note [Order of tests] | y == (-1) && x == minBound = (overflowError, 0) - | otherwise = case x# `divModInt#` y# of + | otherwise = case (int32ToInt# x#) `divModInt#` (int32ToInt# y#) of (# d, m #) -> - (I32# (narrow32Int# d), - I32# (narrow32Int# m)) - toInteger (I32# x#) = IS x# + (I32# (intToInt32# d), + I32# (intToInt32# m)) + toInteger (I32# x#) = IS (int32ToInt# x#) -- | @since 2.01 instance Read Int32 where @@ -607,35 +601,35 @@ {-# INLINE testBit #-} {-# INLINE popCount #-} - (I32# x#) .&. (I32# y#) = I32# (x# `andI#` y#) - (I32# x#) .|. (I32# y#) = I32# (x# `orI#` y#) - (I32# x#) `xor` (I32# y#) = I32# (x# `xorI#` y#) - complement (I32# x#) = I32# (notI# x#) + (I32# x#) .&. (I32# y#) = I32# (intToInt32# ((int32ToInt# x#) `andI#` (int32ToInt# y#))) + (I32# x#) .|. (I32# y#) = I32# (intToInt32# ((int32ToInt# x#) `orI#` (int32ToInt# y#))) + (I32# x#) `xor` (I32# y#) = I32# (intToInt32# ((int32ToInt# x#) `xorI#` (int32ToInt# y#))) + complement (I32# x#) = I32# (intToInt32# (notI# (int32ToInt# x#))) (I32# x#) `shift` (I# i#) - | isTrue# (i# >=# 0#) = I32# (narrow32Int# (x# `iShiftL#` i#)) - | otherwise = I32# (x# `iShiftRA#` negateInt# i#) + | isTrue# (i# >=# 0#) = I32# (intToInt32# ((int32ToInt# x#) `iShiftL#` i#)) + | otherwise = I32# (intToInt32# ((int32ToInt# x#) `iShiftRA#` negateInt# i#)) (I32# x#) `shiftL` (I# i#) - | isTrue# (i# >=# 0#) = I32# (narrow32Int# (x# `iShiftL#` i#)) + | isTrue# (i# >=# 0#) = I32# (intToInt32# ((int32ToInt# x#) `iShiftL#` i#)) | otherwise = overflowError (I32# x#) `unsafeShiftL` (I# i#) = - I32# (narrow32Int# (x# `uncheckedIShiftL#` i#)) + I32# (intToInt32# ((int32ToInt# x#) `uncheckedIShiftL#` i#)) (I32# x#) `shiftR` (I# i#) - | isTrue# (i# >=# 0#) = I32# (x# `iShiftRA#` i#) + | isTrue# (i# >=# 0#) = I32# (intToInt32# ((int32ToInt# x#) `iShiftRA#` i#)) | otherwise = overflowError - (I32# x#) `unsafeShiftR` (I# i#) = I32# (x# `uncheckedIShiftRA#` i#) + (I32# x#) `unsafeShiftR` (I# i#) = I32# (intToInt32# ((int32ToInt# x#) `uncheckedIShiftRA#` i#)) (I32# x#) `rotate` (I# i#) | isTrue# (i'# ==# 0#) = I32# x# | otherwise - = I32# (narrow32Int# (word2Int# ((x'# `uncheckedShiftL#` i'#) `or#` + = I32# (intToInt32# (word2Int# ((x'# `uncheckedShiftL#` i'#) `or#` (x'# `uncheckedShiftRL#` (32# -# i'#))))) where - !x'# = narrow32Word# (int2Word# x#) + !x'# = narrow32Word# (int2Word# (int32ToInt# x#)) !i'# = word2Int# (int2Word# i# `and#` 31##) bitSizeMaybe i = Just (finiteBitSize i) bitSize i = finiteBitSize i isSigned _ = True - popCount (I32# x#) = I# (word2Int# (popCnt32# (int2Word# x#))) + popCount (I32# x#) = I# (word2Int# (popCnt32# (int2Word# (int32ToInt# x#)))) bit = bitDefault testBit = testBitDefault @@ -644,18 +638,8 @@ {-# INLINE countLeadingZeros #-} {-# INLINE countTrailingZeros #-} finiteBitSize _ = 32 - countLeadingZeros (I32# x#) = I# (word2Int# (clz32# (int2Word# x#))) - countTrailingZeros (I32# x#) = I# (word2Int# (ctz32# (int2Word# x#))) - -{-# RULES -"fromIntegral/Word8->Int32" fromIntegral = \(W8# x#) -> I32# (word2Int# x#) -"fromIntegral/Word16->Int32" fromIntegral = \(W16# x#) -> I32# (word2Int# x#) -"fromIntegral/Int8->Int32" fromIntegral = \(I8# x#) -> I32# x# -"fromIntegral/Int16->Int32" fromIntegral = \(I16# x#) -> I32# x# -"fromIntegral/Int32->Int32" fromIntegral = id :: Int32 -> Int32 -"fromIntegral/a->Int32" fromIntegral = \x -> case fromIntegral x of I# x# -> I32# (narrow32Int# x#) -"fromIntegral/Int32->a" fromIntegral = \(I32# x#) -> fromIntegral (I# x#) - #-} + countLeadingZeros (I32# x#) = I# (word2Int# (clz32# (int2Word# (int32ToInt# x#)))) + countTrailingZeros (I32# x#) = I# (word2Int# (ctz32# (int2Word# (int32ToInt# x#)))) {-# RULES "properFraction/Float->(Int32,Float)" @@ -747,7 +731,7 @@ -- | @since 2.01 instance Num Int64 where (I64# x#) + (I64# y#) = I64# (x# `plusInt64#` y#) - (I64# x#) - (I64# y#) = I64# (x# `minusInt64#` y#) + (I64# x#) - (I64# y#) = I64# (x# `subInt64#` y#) (I64# x#) * (I64# y#) = I64# (x# `timesInt64#` y#) negate (I64# x#) = I64# (negateInt64# x#) abs x | x >= 0 = x @@ -770,17 +754,9 @@ | x >= fromIntegral (minBound::Int) && x <= fromIntegral (maxBound::Int) = I# (int64ToInt# x#) | otherwise = fromEnumError "Int64" x - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFrom #-} enumFrom = integralEnumFrom - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFromThen #-} enumFromThen = integralEnumFromThen - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFromTo #-} enumFromTo = integralEnumFromTo - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFromThenTo #-} enumFromThenTo = integralEnumFromThenTo -- | @since 2.01 @@ -791,9 +767,10 @@ | otherwise = I64# (x# `quotInt64#` y#) rem (I64# x#) y@(I64# y#) | y == 0 = divZeroError - -- The quotRem CPU instruction fails for minBound `quotRem` -1, - -- but minBound `rem` -1 is well-defined (0). We therefore - -- special-case it. + -- The quotRem CPU instruction might fail for 'minBound + -- `quotRem` -1' if it is an instruction for exactly this + -- width of signed integer. But, 'minBound `rem` -1' is + -- well-defined (0). We therefore special-case it. | y == (-1) = 0 | otherwise = I64# (x# `remInt64#` y#) div x@(I64# x#) y@(I64# y#) @@ -802,9 +779,10 @@ | otherwise = I64# (x# `divInt64#` y#) mod (I64# x#) y@(I64# y#) | y == 0 = divZeroError - -- The divMod CPU instruction fails for minBound `divMod` -1, - -- but minBound `mod` -1 is well-defined (0). We therefore - -- special-case it. + -- The divMod CPU instruction might fail for 'minBound + -- `divMod` -1' if it is an instruction for exactly this + -- width of signed integer. But, 'minBound `mod` -1' is + -- well-defined (0). We therefore special-case it. | y == (-1) = 0 | otherwise = I64# (x# `modInt64#` y#) quotRem x@(I64# x#) y@(I64# y#) @@ -827,9 +805,9 @@ -- Define div in terms of quot, being careful to avoid overflow (#7233) x# `divInt64#` y# | isTrue# (x# `gtInt64#` zero) && isTrue# (y# `ltInt64#` zero) - = ((x# `minusInt64#` one) `quotInt64#` y#) `minusInt64#` one + = ((x# `subInt64#` one) `quotInt64#` y#) `subInt64#` one | isTrue# (x# `ltInt64#` zero) && isTrue# (y# `gtInt64#` zero) - = ((x# `plusInt64#` one) `quotInt64#` y#) `minusInt64#` one + = ((x# `plusInt64#` one) `quotInt64#` y#) `subInt64#` one | otherwise = x# `quotInt64#` y# where @@ -903,16 +881,6 @@ else intToInt64# 0# | otherwise = a `uncheckedIShiftRA64#` b -{-# RULES -"fromIntegral/Int->Int64" fromIntegral = \(I# x#) -> I64# (intToInt64# x#) -"fromIntegral/Word->Int64" fromIntegral = \(W# x#) -> I64# (word64ToInt64# (wordToWord64# x#)) -"fromIntegral/Word64->Int64" fromIntegral = \(W64# x#) -> I64# (word64ToInt64# x#) -"fromIntegral/Int64->Int" fromIntegral = \(I64# x#) -> I# (int64ToInt# x#) -"fromIntegral/Int64->Word" fromIntegral = \(I64# x#) -> W# (int2Word# (int64ToInt# x#)) -"fromIntegral/Int64->Word64" fromIntegral = \(I64# x#) -> W64# (int64ToWord64# x#) -"fromIntegral/Int64->Int64" fromIntegral = id :: Int64 -> Int64 - #-} - -- No RULES for RealFrac methods if Int is smaller than Int64, we can't -- go through Int and whether going through Integer is faster is uncertain. #else @@ -980,11 +948,7 @@ | otherwise = predError "Int64" toEnum (I# i#) = I64# i# fromEnum (I64# x#) = I# x# - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFrom #-} enumFrom = boundedEnumFrom - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFromThen #-} enumFromThen = boundedEnumFromThen -- | @since 2.01 @@ -995,9 +959,10 @@ | otherwise = I64# (x# `quotInt#` y#) rem (I64# x#) y@(I64# y#) | y == 0 = divZeroError - -- The quotRem CPU instruction fails for minBound `quotRem` -1, - -- but minBound `rem` -1 is well-defined (0). We therefore - -- special-case it. + -- The quotRem CPU instruction might fail for 'minBound + -- `quotRem` -1' if it is an instruction for exactly this + -- width of signed integer. But, 'minBound `rem` -1' is + -- well-defined (0). We therefore special-case it. | y == (-1) = 0 | otherwise = I64# (x# `remInt#` y#) div x@(I64# x#) y@(I64# y#) @@ -1006,9 +971,10 @@ | otherwise = I64# (x# `divInt#` y#) mod (I64# x#) y@(I64# y#) | y == 0 = divZeroError - -- The divMod CPU instruction fails for minBound `divMod` -1, - -- but minBound `mod` -1 is well-defined (0). We therefore - -- special-case it. + -- The divMod CPU instruction might fail for 'minBound + -- `divMod` -1' if it is an instruction for exactly this + -- width of signed integer. But, 'minBound `mod` -1' is + -- well-defined (0). We therefore special-case it. | y == (-1) = 0 | otherwise = I64# (x# `modInt#` y#) quotRem x@(I64# x#) y@(I64# y#) @@ -1070,11 +1036,6 @@ testBit = testBitDefault {-# RULES -"fromIntegral/a->Int64" fromIntegral = \x -> case fromIntegral x of I# x# -> I64# x# -"fromIntegral/Int64->a" fromIntegral = \(I64# x#) -> fromIntegral (I# x#) - #-} - -{-# RULES "properFraction/Float->(Int64,Float)" properFraction = \x -> case properFraction x of { @@ -1140,35 +1101,6 @@ inRange (m,n) i = m <= i && i <= n ------------------------------------------------------------------------------- - -{-# RULES -"fromIntegral/Natural->Int8" - fromIntegral = (fromIntegral :: Int -> Int8) . fromIntegral . naturalToWord -"fromIntegral/Natural->Int16" - fromIntegral = (fromIntegral :: Int -> Int16) . fromIntegral . naturalToWord -"fromIntegral/Natural->Int32" - fromIntegral = (fromIntegral :: Int -> Int32) . fromIntegral . naturalToWord - #-} - -{-# RULES -"fromIntegral/Int8->Natural" - fromIntegral = naturalFromWord . fromIntegral . (fromIntegral :: Int8 -> Int) -"fromIntegral/Int16->Natural" - fromIntegral = naturalFromWord . fromIntegral . (fromIntegral :: Int16 -> Int) -"fromIntegral/Int32->Natural" - fromIntegral = naturalFromWord . fromIntegral . (fromIntegral :: Int32 -> Int) - #-} - -#if WORD_SIZE_IN_BITS == 64 --- these RULES are valid for Word==Word64 & Int==Int64 -{-# RULES -"fromIntegral/Natural->Int64" - fromIntegral = (fromIntegral :: Int -> Int64) . fromIntegral . naturalToWord -"fromIntegral/Int64->Natural" - fromIntegral = naturalFromWord . fromIntegral . (fromIntegral :: Int64 -> Int) - #-} -#endif - {- Note [Order of tests] ~~~~~~~~~~~~~~~~~~~~~~~~~ diff --git a/GHC/Integer.hs b/GHC/Integer.hs --- a/GHC/Integer.hs +++ b/GHC/Integer.hs @@ -23,8 +23,7 @@ #endif -- * Helpers for 'RealFloat' type-class operations - encodeFloatInteger, floatFromInteger, - encodeDoubleInteger, decodeDoubleInteger, doubleFromInteger, + encodeFloatInteger, encodeDoubleInteger, decodeDoubleInteger, -- * Arithmetic operations plusInteger, minusInteger, timesInteger, negateInteger, @@ -95,14 +94,8 @@ encodeFloatInteger :: Integer -> Int# -> Float# encodeFloatInteger = I.integerEncodeFloat# -floatFromInteger :: Integer -> Float# -floatFromInteger = I.integerToFloat# - encodeDoubleInteger :: Integer -> Int# -> Double# encodeDoubleInteger = I.integerEncodeDouble# - -doubleFromInteger :: Integer -> Double# -doubleFromInteger = I.integerToDouble# decodeDoubleInteger :: Double# -> (# Integer, Int# #) decodeDoubleInteger = I.integerDecodeDouble# diff --git a/GHC/Ix.hs b/GHC/Ix.hs --- a/GHC/Ix.hs +++ b/GHC/Ix.hs @@ -1,4 +1,6 @@ -{-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples #-} +{-# LANGUAGE MagicHash #-} +{-# LANGUAGE NoImplicitPrelude #-} + {-# OPTIONS_HADDOCK not-home #-} ----------------------------------------------------------------------------- @@ -24,6 +26,7 @@ import GHC.Base import GHC.Real( fromIntegral ) import GHC.Show +import GHC.Tuple (Solo (..)) -- | The 'Ix' class is used to map a contiguous subrange of values in -- a type onto integers. It is used primarily for array indexing @@ -263,6 +266,23 @@ {-# INLINE index #-} -- See Note [Inlining index] index b i = unsafeIndex b i + +instance Ix a => Ix (Solo a) where -- as derived + {-# SPECIALISE instance Ix (Solo Int) #-} + + {-# INLINE range #-} + range (Solo l, Solo u) = + [ Solo i | i <- range (l,u) ] + + {-# INLINE unsafeIndex #-} + unsafeIndex (Solo l, Solo u) (Solo i) = + unsafeIndex (l,u) i + + {-# INLINE inRange #-} + inRange (Solo l, Solo u) (Solo i) = + inRange (l, u) i + + -- Default method for index ---------------------------------------------------------------------- -- | @since 2.01 diff --git a/GHC/List.hs b/GHC/List.hs --- a/GHC/List.hs +++ b/GHC/List.hs @@ -1,5 +1,5 @@ {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE CPP, NoImplicitPrelude, ScopedTypeVariables, MagicHash #-} +{-# LANGUAGE CPP, NoImplicitPrelude, ScopedTypeVariables #-} {-# LANGUAGE BangPatterns #-} {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} @@ -63,7 +63,7 @@ -- >>> head [1..] -- 1 -- >>> head [] --- Exception: Prelude.head: empty list +-- *** Exception: Prelude.head: empty list head :: [a] -> a head (x:_) = x head [] = badHead @@ -107,7 +107,7 @@ -- >>> tail [1] -- [] -- >>> tail [] --- Exception: Prelude.tail: empty list +-- *** Exception: Prelude.tail: empty list tail :: [a] -> [a] tail (_:xs) = xs tail [] = errorEmptyList "tail" @@ -120,7 +120,7 @@ -- >>> last [1..] -- * Hangs forever * -- >>> last [] --- Exception: Prelude.last: empty list +-- *** Exception: Prelude.last: empty list last :: [a] -> a #if defined(USE_REPORT_PRELUDE) last [x] = x @@ -146,7 +146,7 @@ -- >>> init [1] -- [] -- >>> init [] --- Exception: Prelude.init: empty list +-- *** Exception: Prelude.init: empty list init :: [a] -> [a] #if defined(USE_REPORT_PRELUDE) init [x] = [] @@ -316,7 +316,7 @@ -- >>> foldl1 (+) [1..4] -- 10 -- >>> foldl1 (+) [] --- Exception: Prelude.foldl1: empty list +-- *** Exception: Prelude.foldl1: empty list -- >>> foldl1 (-) [1..4] -- -8 -- >>> foldl1 (&&) [True, False, True, True] @@ -351,7 +351,7 @@ -- * Hangs forever * sum :: (Num a) => [a] -> a {-# INLINE sum #-} -sum = foldl (+) 0 +sum = foldl' (+) 0 -- | The 'product' function computes the product of a finite list of numbers. -- @@ -367,7 +367,7 @@ -- * Hangs forever * product :: (Num a) => [a] -> a {-# INLINE product #-} -product = foldl (*) 1 +product = foldl' (*) 1 -- | \(\mathcal{O}(n)\). 'scanl' is similar to 'foldl', but returns a list of -- successive reduced values from the left: @@ -507,7 +507,7 @@ -- >>> foldr1 (+) [1..4] -- 10 -- >>> foldr1 (+) [] --- Exception: Prelude.foldr1: empty list +-- *** Exception: Prelude.foldr1: empty list -- >>> foldr1 (-) [1..4] -- -2 -- >>> foldr1 (&&) [True, False, True, True] @@ -615,7 +615,7 @@ -- programmer to supply their own comparison function. -- -- >>> maximum [] --- Exception: Prelude.maximum: empty list +-- *** Exception: Prelude.maximum: empty list -- >>> maximum [42] -- 42 -- >>> maximum [55, -12, 7, 0, -89] @@ -625,7 +625,7 @@ maximum :: (Ord a) => [a] -> a {-# INLINABLE maximum #-} maximum [] = errorEmptyList "maximum" -maximum xs = foldl1 max xs +maximum xs = foldl1' max xs -- We want this to be specialized so that with a strict max function, GHC -- produces good code. Note that to see if this is happending, one has to @@ -639,7 +639,7 @@ -- programmer to supply their own comparison function. -- -- >>> minimum [] --- Exception: Prelude.minimum: empty list +-- *** Exception: Prelude.minimum: empty list -- >>> minimum [42] -- 42 -- >>> minimum [55, -12, 7, 0, -89] @@ -649,7 +649,7 @@ minimum :: (Ord a) => [a] -> a {-# INLINABLE minimum #-} minimum [] = errorEmptyList "minimum" -minimum xs = foldl1 min xs +minimum xs = foldl1' min xs {-# SPECIALIZE minimum :: [Int] -> Int #-} {-# SPECIALIZE minimum :: [Integer] -> Integer #-} @@ -1253,9 +1253,9 @@ -- >>> ['a', 'b', 'c'] !! 2 -- 'c' -- >>> ['a', 'b', 'c'] !! 3 --- Exception: Prelude.!!: index too large +-- *** Exception: Prelude.!!: index too large -- >>> ['a', 'b', 'c'] !! (-1) --- Exception: Prelude.!!: negative index +-- *** Exception: Prelude.!!: negative index (!!) :: [a] -> Int -> a #if defined(USE_REPORT_PRELUDE) xs !! n | n < 0 = errorWithoutStackTrace "Prelude.!!: negative index" @@ -1383,15 +1383,15 @@ -- corresponding pairs. -- -- >>> zip [1, 2] ['a', 'b'] --- [(1, 'a'), (2, 'b')] +-- [(1,'a'),(2,'b')] -- -- If one input list is shorter than the other, excess elements of the longer -- list are discarded, even if one of the lists is infinite: -- -- >>> zip [1] ['a', 'b'] --- [(1, 'a')] +-- [(1,'a')] -- >>> zip [1, 2] ['a'] --- [(1, 'a')] +-- [(1,'a')] -- >>> zip [] [1..] -- [] -- >>> zip [1..] [] @@ -1399,10 +1399,11 @@ -- -- 'zip' is right-lazy: -- --- >>> zip [] _|_ +-- >>> zip [] undefined -- [] --- >>> zip _|_ [] --- _|_ +-- >>> zip undefined [] +-- *** Exception: Prelude.undefined +-- ... -- -- 'zip' is capable of list fusion, but it is restricted to its -- first list argument and its resulting list. @@ -1460,7 +1461,8 @@ -- -- 'zipWith' is right-lazy: -- --- >>> zipWith f [] _|_ +-- >>> let f = undefined +-- >>> zipWith f [] undefined -- [] -- -- 'zipWith' is capable of list fusion, but it is restricted to its diff --git a/GHC/Natural.hs b/GHC/Natural.hs --- a/GHC/Natural.hs +++ b/GHC/Natural.hs @@ -98,7 +98,7 @@ -- @since 4.8.0.0 minusNaturalMaybe :: Natural -> Natural -> Maybe Natural minusNaturalMaybe x y = case N.naturalSub x y of - (# _ | #) -> Nothing + (# (# #) | #) -> Nothing (# | n #) -> Just n -- | 'Natural' multiplication diff --git a/GHC/Num.hs b/GHC/Num.hs --- a/GHC/Num.hs +++ b/GHC/Num.hs @@ -97,7 +97,7 @@ subtract x y = y - x -- | @since 2.01 -instance Num Int where +instance Num Int where I# x + I# y = I# (x +# y) I# x - I# y = I# (x -# y) negate (I# x) = I# (negateInt# x) @@ -108,8 +108,7 @@ | n `eqInt` 0 = 0 | otherwise = 1 - {-# INLINE fromInteger #-} -- Just to be sure! - fromInteger i = integerToInt i + fromInteger i = I# (integerToInt# i) -- | @since 2.01 instance Num Word where @@ -120,15 +119,15 @@ abs x = x signum 0 = 0 signum _ = 1 - fromInteger i = integerToWord i + fromInteger i = W# (integerToWord# i) -- | @since 2.01 -instance Num Integer where +instance Num Integer where (+) = integerAdd (-) = integerSub (*) = integerMul negate = integerNegate - fromInteger x = x + fromInteger i = i abs = integerAbs signum = integerSignum @@ -137,12 +136,12 @@ -- additive inverse. It is a semiring though. -- -- @since 4.8.0.0 -instance Num Natural where +instance Num Natural where (+) = naturalAdd (-) = naturalSubThrow (*) = naturalMul negate = naturalNegate - fromInteger = integerToNaturalThrow + fromInteger i = integerToNaturalThrow i abs = id signum = naturalSignum diff --git a/GHC/OverloadedLabels.hs b/GHC/OverloadedLabels.hs --- a/GHC/OverloadedLabels.hs +++ b/GHC/OverloadedLabels.hs @@ -1,11 +1,9 @@ -{-# LANGUAGE AllowAmbiguousTypes - , DataKinds - , FlexibleInstances - , KindSignatures - , MultiParamTypeClasses - , ScopedTypeVariables - , TypeApplications - #-} +{-# LANGUAGE AllowAmbiguousTypes #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE KindSignatures #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE ScopedTypeVariables #-} ----------------------------------------------------------------------------- -- | diff --git a/GHC/Profiling.hs b/GHC/Profiling.hs --- a/GHC/Profiling.hs +++ b/GHC/Profiling.hs @@ -2,7 +2,14 @@ {-# LANGUAGE NoImplicitPrelude #-} -- | @since 4.7.0.0 -module GHC.Profiling where +module GHC.Profiling ( -- * Cost Centre Profiling + startProfTimer + , stopProfTimer + -- * Heap Profiling + , startHeapProfTimer + , stopHeapProfTimer + , requestHeapCensus + )where import GHC.Base @@ -17,3 +24,26 @@ -- -- @since 4.7.0.0 foreign import ccall startProfTimer :: IO () + +-- | Request a heap census on the next context switch. The census can be +-- requested whether or not the heap profiling timer is running. +-- Note: This won't do anything unless you also specify a profiling mode on the +-- command line using the normal RTS options. +-- +-- @since 4.16.0.0 +foreign import ccall requestHeapCensus :: IO () + +-- | Start heap profiling. This is called normally by the RTS on start-up, +-- but can be disabled using the rts flag `--no-automatic-heap-samples` +-- Note: This won't do anything unless you also specify a profiling mode on the +-- command line using the normal RTS options. +-- +-- @since 4.16.0.0 +foreign import ccall startHeapProfTimer :: IO () + +-- | Stop heap profiling. +-- Note: This won't do anything unless you also specify a profiling mode on the +-- command line using the normal RTS options. +-- +-- @since 4.16.0.0 +foreign import ccall stopHeapProfTimer :: IO () diff --git a/GHC/RTS/Flags.hsc b/GHC/RTS/Flags.hsc --- a/GHC/RTS/Flags.hsc +++ b/GHC/RTS/Flags.hsc @@ -1,6 +1,5 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE RecordWildCards #-} -- | Accessors to GHC RTS flags. -- Descriptions of flags can be seen in @@ -132,6 +131,7 @@ , heapSizeSuggestion :: Word32 , heapSizeSuggestionAuto :: Bool , oldGenFactor :: Double + , returnDecayFactor :: Double , pcFreeHeap :: Double , generations :: Word32 , squeezeUpdFrames :: Bool @@ -257,6 +257,7 @@ | HeapByRetainer | HeapByLDV | HeapByClosureType + | HeapByInfoTable deriving ( Show -- ^ @since 4.8.0.0 , Generic -- ^ @since 4.15.0.0 ) @@ -271,6 +272,7 @@ fromEnum HeapByRetainer = #{const HEAP_BY_RETAINER} fromEnum HeapByLDV = #{const HEAP_BY_LDV} fromEnum HeapByClosureType = #{const HEAP_BY_CLOSURE_TYPE} + fromEnum HeapByInfoTable = #{const HEAP_BY_INFO_TABLE} toEnum #{const NO_HEAP_PROFILING} = NoHeapProfiling toEnum #{const HEAP_BY_CCS} = HeapByCCS @@ -280,6 +282,7 @@ toEnum #{const HEAP_BY_RETAINER} = HeapByRetainer toEnum #{const HEAP_BY_LDV} = HeapByLDV toEnum #{const HEAP_BY_CLOSURE_TYPE} = HeapByClosureType + toEnum #{const HEAP_BY_INFO_TABLE} = HeapByInfoTable toEnum e = errorWithoutStackTrace ("invalid enum for DoHeapProfile: " ++ show e) -- | Parameters of the cost-center profiler @@ -289,7 +292,7 @@ { doHeapProfile :: DoHeapProfile , heapProfileInterval :: RtsTime -- ^ time between samples , heapProfileIntervalTicks :: Word -- ^ ticks between samples (derived) - , includeTSOs :: Bool + , startHeapProfileAtStartup :: Bool , showCCSOnException :: Bool , maxRetainerSetSize :: Word , ccsLength :: Word @@ -392,7 +395,7 @@ foreign import ccall "&RtsFlags" rtsFlagsPtr :: Ptr RTSFlags getRTSFlags :: IO RTSFlags -getRTSFlags = do +getRTSFlags = RTSFlags <$> getGCFlags <*> getConcFlags <*> getMiscFlags @@ -433,6 +436,7 @@ <*> (toBool <$> (#{peek GC_FLAGS, heapSizeSuggestionAuto} ptr :: IO CBool)) <*> #{peek GC_FLAGS, oldGenFactor} ptr + <*> #{peek GC_FLAGS, returnDecayFactor} ptr <*> #{peek GC_FLAGS, pcFreeHeap} ptr <*> #{peek GC_FLAGS, generations} ptr <*> (toBool <$> @@ -586,7 +590,7 @@ <*> #{peek PROFILING_FLAGS, heapProfileInterval} ptr <*> #{peek PROFILING_FLAGS, heapProfileIntervalTicks} ptr <*> (toBool <$> - (#{peek PROFILING_FLAGS, includeTSOs} ptr :: IO CBool)) + (#{peek PROFILING_FLAGS, startHeapProfileAtStartup} ptr :: IO CBool)) <*> (toBool <$> (#{peek PROFILING_FLAGS, showCCSOnException} ptr :: IO CBool)) <*> #{peek PROFILING_FLAGS, maxRetainerSetSize} ptr diff --git a/GHC/Real.hs b/GHC/Real.hs --- a/GHC/Real.hs +++ b/GHC/Real.hs @@ -455,7 +455,7 @@ -- | @since 4.8.0.0 instance Integral Natural where - toInteger = integerFromNatural + toInteger x = integerFromNatural x {-# INLINE quot #-} _ `quot` 0 = divZeroError @@ -565,54 +565,13 @@ -------------------------------------------------------------- -- | general coercion from integral types -{-# NOINLINE [1] fromIntegral #-} +{-# INLINE fromIntegral #-} + -- Inlined to allow built-in rules to match. + -- See Note [Optimising conversions between numeric types] + -- in GHC.Core.Opt.ConstantFold fromIntegral :: (Integral a, Num b) => a -> b fromIntegral = fromInteger . toInteger -{-# RULES -"fromIntegral/Int->Int" fromIntegral = id :: Int -> Int - #-} - -{-# RULES -"fromIntegral/Int->Word" fromIntegral = \(I# x#) -> W# (int2Word# x#) -"fromIntegral/Word->Int" fromIntegral = \(W# x#) -> I# (word2Int# x#) -"fromIntegral/Word->Word" fromIntegral = id :: Word -> Word - #-} - -{-# RULES -"fromIntegral/Natural->Natural" fromIntegral = id :: Natural -> Natural -"fromIntegral/Natural->Integer" fromIntegral = toInteger :: Natural -> Integer -"fromIntegral/Natural->Word" fromIntegral = naturalToWord :: Natural -> Word - #-} - --- Don't forget the type signatures in the following rules! Without a type --- signature we ended up with the rule: --- --- "fromIntegral/Int->Natural" forall a (d::Integral a). --- fromIntegral @a @Natural = naturalFromWord . fromIntegral @a d --- --- but this rule is certainly not valid for every Integral type a! --- --- This rule wraps any Integral input into Word's range. As a consequence, --- (2^64 :: Integer) was incorrectly wrapped to (0 :: Natural), see #19345. --- --- A follow-up issue with this rule was that no underflow exception was raised --- for negative Int values (see #20066). We now use a naturalFromInt helper --- function to restore this behavior. - -{-# RULES -"fromIntegral/Word->Natural" fromIntegral = naturalFromWord :: Word -> Natural -"fromIntegral/Int->Natural" fromIntegral = naturalFromInt :: Int -> Natural - #-} - --- | Convert an Int into a Natural, throwing an underflow exception for negative --- values. -naturalFromInt :: Int -> Natural -{-# INLINE naturalFromInt #-} -naturalFromInt x - | x < 0 = underflowError - | otherwise = naturalFromWord (fromIntegral x) - -- | general coercion to fractional types realToFrac :: (Real a, Fractional b) => a -> b {-# NOINLINE [1] realToFrac #-} @@ -812,13 +771,9 @@ "gcd/Word->Word->Word" gcd = gcdWord #-} --- See Note [Stable Unfolding for list producers] in GHC.Enum -{-# INLINABLE integralEnumFrom #-} integralEnumFrom :: (Integral a, Bounded a) => a -> [a] integralEnumFrom n = map fromInteger [toInteger n .. toInteger (maxBound `asTypeOf` n)] --- See Note [Stable Unfolding for list producers] in GHC.Enum -{-# INLINABLE integralEnumFromThen #-} integralEnumFromThen :: (Integral a, Bounded a) => a -> a -> [a] integralEnumFromThen n1 n2 | i_n2 >= i_n1 = map fromInteger [i_n1, i_n2 .. toInteger (maxBound `asTypeOf` n1)] @@ -827,13 +782,28 @@ i_n1 = toInteger n1 i_n2 = toInteger n2 --- See Note [Stable Unfolding for list producers] in GHC.Enum -{-# INLINABLE integralEnumFromTo #-} integralEnumFromTo :: Integral a => a -> a -> [a] integralEnumFromTo n m = map fromInteger [toInteger n .. toInteger m] --- See Note [Stable Unfolding for list producers] in GHC.Enum -{-# INLINABLE integralEnumFromThenTo #-} integralEnumFromThenTo :: Integral a => a -> a -> a -> [a] integralEnumFromThenTo n1 n2 m = map fromInteger [toInteger n1, toInteger n2 .. toInteger m] + +-- mkRational related code + +data FractionalExponentBase + = Base2 + | Base10 + deriving (Show) + +mkRationalBase2 :: Rational -> Integer -> Rational +mkRationalBase2 r e = mkRationalWithExponentBase r e Base2 + +mkRationalBase10 :: Rational -> Integer -> Rational +mkRationalBase10 r e = mkRationalWithExponentBase r e Base10 + +mkRationalWithExponentBase :: Rational -> Integer + -> FractionalExponentBase -> Rational +mkRationalWithExponentBase r e feb = r * (eb ^^ e) + -- See Note [fractional exponent bases] for why only these bases. + where eb = case feb of Base2 -> 2 ; Base10 -> 10 diff --git a/GHC/Records.hs b/GHC/Records.hs --- a/GHC/Records.hs +++ b/GHC/Records.hs @@ -1,9 +1,6 @@ -{-# LANGUAGE AllowAmbiguousTypes - , FunctionalDependencies - , KindSignatures - , MultiParamTypeClasses - , PolyKinds - #-} +{-# LANGUAGE AllowAmbiguousTypes #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE PolyKinds #-} ----------------------------------------------------------------------------- -- | diff --git a/GHC/STRef.hs b/GHC/STRef.hs --- a/GHC/STRef.hs +++ b/GHC/STRef.hs @@ -25,7 +25,8 @@ import GHC.Base -- $setup --- import Prelude +-- >>> import Prelude +-- >>> import Control.Monad.ST data STRef s a = STRef (MutVar# s a) -- ^ a value of type @STRef s a@ is a mutable variable in state thread @s@, diff --git a/GHC/Show.hs b/GHC/Show.hs --- a/GHC/Show.hs +++ b/GHC/Show.hs @@ -598,6 +598,9 @@ . showString " " . showsPrec 11 q +-- | @since 4.15.0.0 +deriving instance Show Levity + -- | @since 4.11.0.0 deriving instance Show RuntimeRep diff --git a/GHC/StableName.hs b/GHC/StableName.hs --- a/GHC/StableName.hs +++ b/GHC/StableName.hs @@ -1,6 +1,5 @@ -{-# LANGUAGE Trustworthy #-} -{-# LANGUAGE StandaloneDeriving #-} {-# LANGUAGE MagicHash #-} +{-# LANGUAGE Trustworthy #-} {-# LANGUAGE UnboxedTuples #-} ----------------------------------------------------------------------------- diff --git a/GHC/Stack.hs b/GHC/Stack.hs --- a/GHC/Stack.hs +++ b/GHC/Stack.hs @@ -1,3 +1,6 @@ +{-# LANGUAGE ImplicitParams #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE RankNTypes #-} {-# LANGUAGE Trustworthy #-} ----------------------------------------------------------------------------- @@ -15,7 +18,6 @@ -- @since 4.5.0.0 ----------------------------------------------------------------------------- -{-# LANGUAGE MagicHash, NoImplicitPrelude, ImplicitParams, RankNTypes #-} module GHC.Stack ( errorWithStackTrace, diff --git a/GHC/Stack/CCS.hsc b/GHC/Stack/CCS.hsc --- a/GHC/Stack/CCS.hsc +++ b/GHC/Stack/CCS.hsc @@ -20,6 +20,7 @@ -- * Call stacks currentCallStack, whoCreated, + whereFrom, -- * Internals CostCentreStack, @@ -135,3 +136,55 @@ renderStack :: [String] -> String renderStack strs = "CallStack (from -prof):" ++ concatMap ("\n "++) (reverse strs) + +-- Static Closure Information + +data InfoProv +data InfoProvEnt + +getIPE :: a -> IO (Ptr InfoProvEnt) +getIPE obj = IO $ \s -> + case whereFrom## obj s of + (## s', addr ##) -> (## s', Ptr addr ##) + +ipeProv :: Ptr InfoProvEnt -> Ptr InfoProv +ipeProv p = (#ptr InfoProvEnt, prov) p + +ipName, ipDesc, ipLabel, ipModule, ipSrcLoc, ipTyDesc :: Ptr InfoProv -> IO CString +ipName p = (# peek InfoProv, table_name) p +ipDesc p = (# peek InfoProv, closure_desc) p +ipLabel p = (# peek InfoProv, label) p +ipModule p = (# peek InfoProv, module) p +ipSrcLoc p = (# peek InfoProv, srcloc) p +ipTyDesc p = (# peek InfoProv, ty_desc) p + +infoProvToStrings :: Ptr InfoProv -> IO [String] +infoProvToStrings infop = do + name <- GHC.peekCString utf8 =<< ipName infop + desc <- GHC.peekCString utf8 =<< ipDesc infop + ty_desc <- GHC.peekCString utf8 =<< ipTyDesc infop + label <- GHC.peekCString utf8 =<< ipLabel infop + mod <- GHC.peekCString utf8 =<< ipModule infop + loc <- GHC.peekCString utf8 =<< ipSrcLoc infop + return [name, desc, ty_desc, label, mod, loc] + +-- TODO: Add structured output of whereFrom +-- | Get information about where a value originated from. +-- This information is stored statically in a binary when `-finfo-table-map` is +-- enabled. The source positions will be greatly improved by also enabled debug +-- information with `-g3`. Finally you can enable `-fdistinct-constructor-tables` to +-- get more precise information about data constructor allocations. +-- +-- The information is collect by looking at the info table address of a specific closure and +-- then consulting a specially generated map (by `-finfo-table-map`) to find out where we think +-- the best source position to describe that info table arose from. +whereFrom :: a -> IO [String] +whereFrom obj = do + ipe <- getIPE obj + -- The primop returns the null pointer in two situations at the moment + -- 1. The lookup fails for whatever reason + -- 2. -finfo-table-map is not enabled. + -- It would be good to distinguish between these two cases somehow. + if ipe == nullPtr + then return [] + else infoProvToStrings (ipeProv ipe) diff --git a/GHC/Stack/Types.hs b/GHC/Stack/Types.hs --- a/GHC/Stack/Types.hs +++ b/GHC/Stack/Types.hs @@ -1,7 +1,6 @@ -{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE ConstraintKinds #-} {-# LANGUAGE ImplicitParams #-} -{-# LANGUAGE KindSignatures #-} +{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE PolyKinds #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE Trustworthy #-} @@ -54,6 +53,10 @@ import GHC.Tuple () -- See Note [Depend on GHC.Tuple] in GHC.Base import GHC.Num.Integer () -- See Note [Depend on GHC.Num.Integer] in GHC.Base +-- $setup +-- >>> import Prelude +-- >>> import GHC.Stack (prettyCallStack, callStack) + ---------------------------------------------------------------------- -- Explicit call-stacks built via ImplicitParams ---------------------------------------------------------------------- @@ -82,12 +85,12 @@ -- along with the string given as argument. We can access the -- call-stack inside @putStrLnWithCallStack@ with 'GHC.Stack.callStack'. -- --- @ +-- >>> :{ -- putStrLnWithCallStack :: HasCallStack => String -> IO () -- putStrLnWithCallStack msg = do -- putStrLn msg -- putStrLn (prettyCallStack callStack) --- @ +-- :} -- -- Thus, if we call @putStrLnWithCallStack@ we will get a formatted call-stack -- alongside our string. @@ -96,7 +99,7 @@ -- >>> putStrLnWithCallStack "hello" -- hello -- CallStack (from HasCallStack): --- putStrLnWithCallStack, called at :2:1 in interactive:Ghci1 +-- putStrLnWithCallStack, called at :... in interactive:Ghci... -- -- -- GHC solves 'HasCallStack' constraints in three steps: diff --git a/GHC/TopHandler.hs b/GHC/TopHandler.hs --- a/GHC/TopHandler.hs +++ b/GHC/TopHandler.hs @@ -1,10 +1,9 @@ +{-# LANGUAGE CPP #-} +{-# LANGUAGE MagicHash #-} +{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE CPP - , NoImplicitPrelude - , MagicHash - , UnboxedTuples - , UnliftedFFITypes - #-} +{-# LANGUAGE UnliftedFFITypes #-} + {-# OPTIONS_HADDOCK not-home #-} ----------------------------------------------------------------------------- diff --git a/GHC/TypeLits.hs b/GHC/TypeLits.hs --- a/GHC/TypeLits.hs +++ b/GHC/TypeLits.hs @@ -1,6 +1,5 @@ {-# LANGUAGE Trustworthy #-} {-# LANGUAGE DataKinds #-} -{-# LANGUAGE KindSignatures #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE TypeOperators #-} {-# LANGUAGE FlexibleInstances #-} @@ -14,11 +13,10 @@ {-# LANGUAGE PolyKinds #-} {-| - GHC's @DataKinds@ language extension lifts data constructors, natural numbers, and strings to the type level. This module provides the -primitives needed for working with type-level numbers (the 'Nat' kind) -and strings (the 'Symbol') kind. It also defines the 'TypeError' type +primitives needed for working with type-level numbers (the 'Nat' kind), +strings (the 'Symbol' kind), and characters (the 'Char' kind). It also defines the 'TypeError' type family, a feature that makes use of type-level strings to support user defined type errors. @@ -33,21 +31,26 @@ module GHC.TypeLits ( -- * Kinds - Nat, Symbol -- Both declared in GHC.Types in package ghc-prim + N.Natural, N.Nat, Symbol -- Symbol is declared in GHC.Types in package ghc-prim -- * Linking type and value level , N.KnownNat, natVal, natVal' , KnownSymbol, symbolVal, symbolVal' - , N.SomeNat(..), SomeSymbol(..) - , someNatVal, someSymbolVal - , N.sameNat, sameSymbol + , KnownChar, charVal, charVal' + , N.SomeNat(..), SomeSymbol(..), SomeChar(..) + , someNatVal, someSymbolVal, someCharVal + , N.sameNat, sameSymbol, sameChar + , OrderingI(..) + , N.cmpNat, cmpSymbol, cmpChar -- * Functions on type literals , type (N.<=), type (N.<=?), type (N.+), type (N.*), type (N.^), type (N.-) , type N.Div, type N.Mod, type N.Log2 , AppendSymbol - , N.CmpNat, CmpSymbol + , N.CmpNat, CmpSymbol, CmpChar + , ConsSymbol, UnconsSymbol + , CharToNat, NatToChar -- * User-defined type errors , TypeError @@ -55,10 +58,9 @@ ) where -import GHC.Base(Eq(..), Ord(..), Ordering(..), otherwise) -import GHC.Types( Nat, Symbol ) +import GHC.Base(Eq(..), Ord(..), Ordering(..), String, otherwise) +import GHC.Types(Symbol, Char) import GHC.Num(Integer, fromInteger) -import GHC.Base(String) import GHC.Show(Show(..)) import GHC.Read(Read(..)) import GHC.Real(toInteger) @@ -66,9 +68,10 @@ import Data.Maybe(Maybe(..)) import Data.Proxy (Proxy(..)) import Data.Type.Equality((:~:)(Refl)) +import Data.Type.Ord(OrderingI(..)) import Unsafe.Coerce(unsafeCoerce) -import GHC.TypeNats (KnownNat) +import GHC.TypeLits.Internal(CmpSymbol, CmpChar) import qualified GHC.TypeNats as N -------------------------------------------------------------------------------- @@ -81,7 +84,7 @@ symbolSing :: SSymbol n -- | @since 4.7.0.0 -natVal :: forall n proxy. KnownNat n => proxy n -> Integer +natVal :: forall n proxy. N.KnownNat n => proxy n -> Integer natVal p = toInteger (N.natVal p) -- | @since 4.7.0.0 @@ -90,7 +93,7 @@ SSymbol x -> x -- | @since 4.8.0.0 -natVal' :: forall n. KnownNat n => Proxy# n -> Integer +natVal' :: forall n. N.KnownNat n => Proxy# n -> Integer natVal' p = toInteger (N.natVal' p) -- | @since 4.8.0.0 @@ -103,6 +106,20 @@ data SomeSymbol = forall n. KnownSymbol n => SomeSymbol (Proxy n) -- ^ @since 4.7.0.0 +-- | @since 4.16.0.0 +class KnownChar (n :: Char) where + charSing :: SChar n + +charVal :: forall n proxy. KnownChar n => proxy n -> Char +charVal _ = case charSing :: SChar n of + SChar x -> x + +charVal' :: forall n. KnownChar n => Proxy# n -> Char +charVal' _ = case charSing :: SChar n of + SChar x -> x + +data SomeChar = forall n. KnownChar n => SomeChar (Proxy n) + -- | Convert an integer into an unknown type-level natural. -- -- @since 4.7.0.0 @@ -136,13 +153,28 @@ instance Read SomeSymbol where readsPrec p xs = [ (someSymbolVal a, ys) | (a,ys) <- readsPrec p xs ] --------------------------------------------------------------------------------- --- | Comparison of type-level symbols, as a function. +-- | Convert a character into an unknown type-level char. -- --- @since 4.7.0.0 -type family CmpSymbol (m :: Symbol) (n :: Symbol) :: Ordering +-- | @since 4.16.0.0 +someCharVal :: Char -> SomeChar +someCharVal n = withSChar SomeChar (SChar n) Proxy +{-# NOINLINE someCharVal #-} +instance Eq SomeChar where + SomeChar x == SomeChar y = charVal x == charVal y + +instance Ord SomeChar where + compare (SomeChar x) (SomeChar y) = compare (charVal x) (charVal y) + +instance Show SomeChar where + showsPrec p (SomeChar x) = showsPrec p (charVal x) + +instance Read SomeChar where + readsPrec p xs = [ (someCharVal a, ys) | (a,ys) <- readsPrec p xs ] + +-------------------------------------------------------------------------------- + -- | Concatenation of type-level symbols. -- -- @since 4.10.0.0 @@ -196,6 +228,29 @@ type family TypeError (a :: ErrorMessage) :: b where +-- Char-related type families + +-- | Extending a type-level symbol with a type-level character +-- +-- @since 4.16.0.0 +type family ConsSymbol (a :: Char) (b :: Symbol) :: Symbol + +-- | This type family yields type-level `Just` storing the first character +-- of a symbol and its tail if it is defined and `Nothing` otherwise. +-- +-- @since 4.16.0.0 +type family UnconsSymbol (a :: Symbol) :: Maybe (Char, Symbol) + +-- | Convert a character to its Unicode code point (cf. `Data.Char.ord`) +-- +-- @since 4.16.0.0 +type family CharToNat (c :: Char) :: N.Nat + +-- | Convert a Unicode code point to a character (cf. `Data.Char.chr`) +-- +-- @since 4.16.0.0 +type family NatToChar (n :: N.Nat) :: Char + -------------------------------------------------------------------------------- -- | We either get evidence that this function was instantiated with the @@ -208,6 +263,44 @@ | symbolVal x == symbolVal y = Just (unsafeCoerce Refl) | otherwise = Nothing + +-- | We either get evidence that this function was instantiated with the +-- same type-level characters, or 'Nothing'. +-- +-- @since 4.16.0.0 +sameChar :: (KnownChar a, KnownChar b) => + proxy1 a -> proxy2 b -> Maybe (a :~: b) +sameChar x y + | charVal x == charVal y = Just (unsafeCoerce Refl) + | otherwise = Nothing + +-- | Like 'sameSymbol', but if the symbols aren't equal, this additionally +-- provides proof of LT or GT. +-- @since 4.16.0.0 +cmpSymbol :: forall a b proxy1 proxy2. (KnownSymbol a, KnownSymbol b) + => proxy1 a -> proxy2 b -> OrderingI a b +cmpSymbol x y = case compare (symbolVal x) (symbolVal y) of + EQ -> case unsafeCoerce (Refl, Refl) :: (CmpSymbol a b :~: 'EQ, a :~: b) of + (Refl, Refl) -> EQI + LT -> case unsafeCoerce Refl :: (CmpSymbol a b :~: 'LT) of + Refl -> LTI + GT -> case unsafeCoerce Refl :: (CmpSymbol a b :~: 'GT) of + Refl -> GTI + +-- | Like 'sameChar', but if the Chars aren't equal, this additionally +-- provides proof of LT or GT. +-- @since 4.16.0.0 +cmpChar :: forall a b proxy1 proxy2. (KnownChar a, KnownChar b) + => proxy1 a -> proxy2 b -> OrderingI a b +cmpChar x y = case compare (charVal x) (charVal y) of + EQ -> case unsafeCoerce (Refl, Refl) :: (CmpChar a b :~: 'EQ, a :~: b) of + (Refl, Refl) -> EQI + LT -> case unsafeCoerce Refl :: (CmpChar a b :~: 'LT) of + Refl -> LTI + GT -> case unsafeCoerce Refl :: (CmpChar a b :~: 'GT) of + Refl -> GTI + + -------------------------------------------------------------------------------- -- PRIVATE: @@ -219,3 +312,12 @@ withSSymbol :: (KnownSymbol a => Proxy a -> b) -> SSymbol a -> Proxy a -> b withSSymbol f x y = magicDict (WrapS f) x y + +newtype SChar (s :: Char) = SChar Char + +data WrapC a b = WrapC (KnownChar a => Proxy a -> b) + +-- See Note [q] in "basicType/MkId.hs" +withSChar :: (KnownChar a => Proxy a -> b) + -> SChar a -> Proxy a -> b +withSChar f x y = magicDict (WrapC f) x y diff --git a/GHC/TypeLits/Internal.hs b/GHC/TypeLits/Internal.hs new file mode 100644 --- /dev/null +++ b/GHC/TypeLits/Internal.hs @@ -0,0 +1,33 @@ +{-# LANGUAGE Trustworthy #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_HADDOCK not-home #-} + +{-| +This module exports the Type Literal kinds as well as the comparison type +families for those kinds. It is needed to prevent module cycles while still +allowing these identifiers to be improted in 'Data.Type.Ord'. + +@since 4.16.0.0 +-} + +module GHC.TypeLits.Internal + ( Symbol + , CmpSymbol, CmpChar + ) where + +import GHC.Base(Ordering) +import GHC.Types(Symbol, Char) + +-- | Comparison of type-level symbols, as a function. +-- +-- @since 4.7.0.0 +type family CmpSymbol (m :: Symbol) (n :: Symbol) :: Ordering + +-- Char-related type families + +-- | Comparison of type-level characters. +-- +-- @since 4.16.0.0 +type family CmpChar (a :: Char) (b :: Char) :: Ordering diff --git a/GHC/TypeNats.hs b/GHC/TypeNats.hs --- a/GHC/TypeNats.hs +++ b/GHC/TypeNats.hs @@ -1,6 +1,5 @@ {-# LANGUAGE Trustworthy #-} {-# LANGUAGE DataKinds #-} -{-# LANGUAGE KindSignatures #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE TypeOperators #-} {-# LANGUAGE NoStarIsType #-} @@ -23,8 +22,8 @@ module GHC.TypeNats ( -- * Nat Kind - Nat -- declared in GHC.Types in package ghc-prim - + Natural -- declared in GHC.Num.Natural in package ghc-bignum + , Nat -- * Linking type and value level , KnownNat, natVal, natVal' , SomeNat(..) @@ -34,12 +33,13 @@ -- * Functions on type literals , type (<=), type (<=?), type (+), type (*), type (^), type (-) , CmpNat + , cmpNat , Div, Mod, Log2 ) where -import GHC.Base(Eq(..), Ord(..), Bool(True), Ordering(..), otherwise) -import GHC.Types( Nat ) +import GHC.Base(Eq(..), Ord(..), otherwise) +import GHC.Types import GHC.Num.Natural(Natural) import GHC.Show(Show(..)) import GHC.Read(Read(..)) @@ -47,8 +47,17 @@ import Data.Maybe(Maybe(..)) import Data.Proxy (Proxy(..)) import Data.Type.Equality((:~:)(Refl)) +import Data.Type.Ord(OrderingI(..), type (<=), type (<=?)) import Unsafe.Coerce(unsafeCoerce) +import GHC.TypeNats.Internal(CmpNat) + +-- | A type synonym for 'Natural'. +-- +-- Prevously, this was an opaque data type, but it was changed to a type synonym +-- @since @base-4.15.0.0@. + +type Nat = Natural -------------------------------------------------------------------------------- -- | This class gives the integer associated with a type-level natural. @@ -83,7 +92,7 @@ {- Note [NOINLINE someNatVal] `someNatVal` converts a natural number to an existentially quantified -dictionary for `KnowNat` (aka `SomeNat`). The existential quantification +dictionary for `KnownNat` (aka `SomeNat`). The existential quantification is very important, as it captures the fact that we don't know the type statically, although we do know that it exists. Because this type is fully opaque, we should never be able to prove that it matches anything else. @@ -157,27 +166,10 @@ -------------------------------------------------------------------------------- -infix 4 <=?, <= infixl 6 +, - infixl 7 *, `Div`, `Mod` infixr 8 ^ --- | Comparison of type-level naturals, as a constraint. --- --- @since 4.7.0.0 -type x <= y = (x <=? y) ~ 'True - --- | Comparison of type-level naturals, as a function. --- --- @since 4.7.0.0 -type family CmpNat (m :: Nat) (n :: Nat) :: Ordering - -{- | Comparison of type-level naturals, as a function. -NOTE: The functionality for this function should be subsumed -by 'CmpNat', so this might go away in the future. -Please let us know, if you encounter discrepancies between the two. -} -type family (m :: Nat) <=? (n :: Nat) :: Bool - -- | Addition of type-level naturals. -- -- @since 4.7.0.0 @@ -227,6 +219,21 @@ sameNat x y | natVal x == natVal y = Just (unsafeCoerce Refl) | otherwise = Nothing + +-- | Like 'sameNat', but if the numbers aren't equal, this additionally +-- provides proof of LT or GT. +-- @since 4.16.0.0 +cmpNat :: forall a b proxy1 proxy2. (KnownNat a, KnownNat b) + => proxy1 a -> proxy2 b -> OrderingI a b +cmpNat x y = case compare (natVal x) (natVal y) of + EQ -> case unsafeCoerce (Refl, Refl) :: (CmpNat a b :~: 'EQ, a :~: b) of + (Refl, Refl) -> EQI + LT -> case unsafeCoerce Refl :: (CmpNat a b :~: 'LT) of + Refl -> LTI + GT -> case unsafeCoerce Refl :: (CmpNat a b :~: 'GT) of + Refl -> GTI + + -------------------------------------------------------------------------------- -- PRIVATE: diff --git a/GHC/TypeNats/Internal.hs b/GHC/TypeNats/Internal.hs new file mode 100644 --- /dev/null +++ b/GHC/TypeNats/Internal.hs @@ -0,0 +1,26 @@ +{-# LANGUAGE Trustworthy #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_HADDOCK not-home #-} + +{-| +This module exports the Type Nat kind as well as the comparison type +family for that kinds. It is needed to prevent module cycles while still +allowing these identifiers to be improted in 'Data.Type.Ord'. + +@since 4.16.0.0 +-} + +module GHC.TypeNats.Internal + ( Natural + , CmpNat + ) where + +import GHC.Base(Ordering) +import GHC.Num.Natural(Natural) + +-- | Comparison of type-level naturals, as a function. +-- +-- @since 4.7.0.0 +type family CmpNat (m :: Natural) (n :: Natural) :: Ordering diff --git a/GHC/Unicode.hs b/GHC/Unicode.hs --- a/GHC/Unicode.hs +++ b/GHC/Unicode.hs @@ -1,5 +1,7 @@ +{-# LANGUAGE CPP #-} +{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE CPP, NoImplicitPrelude, StandaloneDeriving #-} + {-# OPTIONS_HADDOCK not-home #-} ----------------------------------------------------------------------------- @@ -42,6 +44,9 @@ -- Data.Char.chr already imports this and we need to define a Show instance -- for GeneralCategory import GHC.Show ( Show ) + +-- $setup +-- >>> import Prelude #include "HsBaseConfig.h" #include "UnicodeVersion.h" diff --git a/GHC/Weak.hs b/GHC/Weak.hs --- a/GHC/Weak.hs +++ b/GHC/Weak.hs @@ -1,10 +1,9 @@ +{-# LANGUAGE BangPatterns #-} +{-# LANGUAGE MagicHash #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE UnboxedTuples #-} {-# LANGUAGE Unsafe #-} -{-# LANGUAGE NoImplicitPrelude - , BangPatterns - , MagicHash - , UnboxedTuples - , StandaloneDeriving - #-} + {-# OPTIONS_HADDOCK not-home #-} ----------------------------------------------------------------------------- diff --git a/GHC/Windows.hs b/GHC/Windows.hs --- a/GHC/Windows.hs +++ b/GHC/Windows.hs @@ -74,7 +74,7 @@ nullHANDLE, ) where -import Data.Bits (shiftL, shiftR, (.|.), (.&.)) +import Data.Bits (finiteBitSize, shiftL, shiftR, (.|.), (.&.)) import Data.Char import Data.OldList import Data.Maybe @@ -92,15 +92,6 @@ import System.IO.Error import qualified Numeric - -#if MIN_VERSION_base(4,7,0) -import Data.Bits (finiteBitSize) -#else -import Data.Bits (Bits, bitSize) - -finiteBitSize :: (Bits a) => a -> Int -finiteBitSize = bitSize -#endif #include "windows_cconv.h" diff --git a/GHC/Word.hs b/GHC/Word.hs --- a/GHC/Word.hs +++ b/GHC/Word.hs @@ -46,14 +46,14 @@ eqWord64, neWord64, gtWord64, geWord64, ltWord64, leWord64 ) where -import Data.Bits import Data.Maybe #if WORD_SIZE_IN_BITS < 64 -import GHC.IntWord64 +import GHC.Prim #endif import GHC.Base +import GHC.Bits import GHC.Enum import GHC.Num import GHC.Real @@ -67,7 +67,10 @@ -- Word8 is represented in the same way as Word. Operations may assume -- and must ensure that it holds only values from its logical range. -data {-# CTYPE "HsWord8" #-} Word8 = W8# Word# +data {-# CTYPE "HsWord8" #-} Word8 + = W8# Word8# + + -- ^ 8-bit unsigned integer type -- See GHC.Classes#matching_overloaded_methods_in_rules @@ -77,8 +80,8 @@ (/=) = neWord8 eqWord8, neWord8 :: Word8 -> Word8 -> Bool -eqWord8 (W8# x) (W8# y) = isTrue# (x `eqWord#` y) -neWord8 (W8# x) (W8# y) = isTrue# (x `neWord#` y) +eqWord8 (W8# x) (W8# y) = isTrue# ((word8ToWord# x) `eqWord#` (word8ToWord# y)) +neWord8 (W8# x) (W8# y) = isTrue# ((word8ToWord# x) `neWord#` (word8ToWord# y)) {-# INLINE [1] eqWord8 #-} {-# INLINE [1] neWord8 #-} @@ -94,10 +97,10 @@ {-# INLINE [1] ltWord8 #-} {-# INLINE [1] leWord8 #-} gtWord8, geWord8, ltWord8, leWord8 :: Word8 -> Word8 -> Bool -(W8# x) `gtWord8` (W8# y) = isTrue# (x `gtWord#` y) -(W8# x) `geWord8` (W8# y) = isTrue# (x `geWord#` y) -(W8# x) `ltWord8` (W8# y) = isTrue# (x `ltWord#` y) -(W8# x) `leWord8` (W8# y) = isTrue# (x `leWord#` y) +(W8# x) `gtWord8` (W8# y) = isTrue# (x `gtWord8#` y) +(W8# x) `geWord8` (W8# y) = isTrue# (x `geWord8#` y) +(W8# x) `ltWord8` (W8# y) = isTrue# (x `ltWord8#` y) +(W8# x) `leWord8` (W8# y) = isTrue# (x `leWord8#` y) -- | @since 2.01 instance Show Word8 where @@ -105,14 +108,14 @@ -- | @since 2.01 instance Num Word8 where - (W8# x#) + (W8# y#) = W8# (narrow8Word# (x# `plusWord#` y#)) - (W8# x#) - (W8# y#) = W8# (narrow8Word# (x# `minusWord#` y#)) - (W8# x#) * (W8# y#) = W8# (narrow8Word# (x# `timesWord#` y#)) - negate (W8# x#) = W8# (narrow8Word# (int2Word# (negateInt# (word2Int# x#)))) + (W8# x#) + (W8# y#) = W8# (wordToWord8# ((word8ToWord# x#) `plusWord#` (word8ToWord# y#))) + (W8# x#) - (W8# y#) = W8# (wordToWord8# ((word8ToWord# x#) `minusWord#` (word8ToWord# y#))) + (W8# x#) * (W8# y#) = W8# (wordToWord8# ((word8ToWord# x#) `timesWord#` (word8ToWord# y#))) + negate (W8# x#) = W8# (wordToWord8# (int2Word# (negateInt# (word2Int# ((word8ToWord# x#)))))) abs x = x signum 0 = 0 signum _ = 1 - fromInteger i = W8# (narrow8Word# (integerToWord# i)) + fromInteger i = W8# (wordToWord8# (integerToWord# i)) -- | @since 2.01 instance Real Word8 where @@ -128,39 +131,36 @@ | otherwise = predError "Word8" toEnum i@(I# i#) | i >= 0 && i <= fromIntegral (maxBound::Word8) - = W8# (int2Word# i#) + = W8# (wordToWord8# (int2Word# i#)) | otherwise = toEnumError "Word8" i (minBound::Word8, maxBound::Word8) - fromEnum (W8# x#) = I# (word2Int# x#) - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFrom #-} + fromEnum (W8# x#) = I# (word2Int# (word8ToWord# x#)) enumFrom = boundedEnumFrom - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFromThen #-} enumFromThen = boundedEnumFromThen -- | @since 2.01 instance Integral Word8 where quot (W8# x#) y@(W8# y#) - | y /= 0 = W8# (x# `quotWord#` y#) + | y /= 0 = W8# (wordToWord8# ((word8ToWord# x#) `quotWord#` (word8ToWord# y#))) | otherwise = divZeroError rem (W8# x#) y@(W8# y#) - | y /= 0 = W8# (x# `remWord#` y#) + | y /= 0 = W8# (wordToWord8# ((word8ToWord# x#) `remWord#` (word8ToWord# y#))) | otherwise = divZeroError div (W8# x#) y@(W8# y#) - | y /= 0 = W8# (x# `quotWord#` y#) + | y /= 0 = W8# (wordToWord8# ((word8ToWord# x#) `quotWord#` (word8ToWord# y#))) | otherwise = divZeroError mod (W8# x#) y@(W8# y#) - | y /= 0 = W8# (x# `remWord#` y#) + | y /= 0 = W8# (wordToWord8# ((word8ToWord# x#) `remWord#` (word8ToWord# y#))) | otherwise = divZeroError quotRem (W8# x#) y@(W8# y#) - | y /= 0 = case x# `quotRemWord#` y# of + | y /= 0 = case (word8ToWord# x#) `quotRemWord#` (word8ToWord# y#) of (# q, r #) -> - (W8# q, W8# r) + (W8# (wordToWord8# q), W8# (wordToWord8# r)) | otherwise = divZeroError divMod (W8# x#) y@(W8# y#) - | y /= 0 = (W8# (x# `quotWord#` y#), W8# (x# `remWord#` y#)) + | y /= 0 = (W8# (wordToWord8# ((word8ToWord# x#) `quotWord#` (word8ToWord# y#))) + ,W8# (wordToWord8# ((word8ToWord# x#) `remWord#` (word8ToWord# y#)))) | otherwise = divZeroError - toInteger (W8# x#) = IS (word2Int# x#) + toInteger (W8# x#) = IS (word2Int# (word8ToWord# x#)) -- | @since 2.01 instance Bounded Word8 where @@ -180,33 +180,32 @@ {-# INLINE testBit #-} {-# INLINE popCount #-} - (W8# x#) .&. (W8# y#) = W8# (x# `and#` y#) - (W8# x#) .|. (W8# y#) = W8# (x# `or#` y#) - (W8# x#) `xor` (W8# y#) = W8# (x# `xor#` y#) - complement (W8# x#) = W8# (x# `xor#` mb#) - where !(W8# mb#) = maxBound + (W8# x#) .&. (W8# y#) = W8# (wordToWord8# ((word8ToWord# x#) `and#` (word8ToWord# y#))) + (W8# x#) .|. (W8# y#) = W8# (wordToWord8# ((word8ToWord# x#) `or#` (word8ToWord# y#))) + (W8# x#) `xor` (W8# y#) = W8# (wordToWord8# ((word8ToWord# x#) `xor#` (word8ToWord# y#))) + complement (W8# x#) = W8# (wordToWord8# (not# (word8ToWord# x#))) (W8# x#) `shift` (I# i#) - | isTrue# (i# >=# 0#) = W8# (narrow8Word# (x# `shiftL#` i#)) - | otherwise = W8# (x# `shiftRL#` negateInt# i#) + | isTrue# (i# >=# 0#) = W8# (wordToWord8# ((word8ToWord# x#) `shiftL#` i#)) + | otherwise = W8# (wordToWord8# ((word8ToWord# x#) `shiftRL#` negateInt# i#)) (W8# x#) `shiftL` (I# i#) - | isTrue# (i# >=# 0#) = W8# (narrow8Word# (x# `shiftL#` i#)) + | isTrue# (i# >=# 0#) = W8# (wordToWord8# ((word8ToWord# x#) `shiftL#` i#)) | otherwise = overflowError (W8# x#) `unsafeShiftL` (I# i#) = - W8# (narrow8Word# (x# `uncheckedShiftL#` i#)) + W8# (wordToWord8# ((word8ToWord# x#) `uncheckedShiftL#` i#)) (W8# x#) `shiftR` (I# i#) - | isTrue# (i# >=# 0#) = W8# (x# `shiftRL#` i#) + | isTrue# (i# >=# 0#) = W8# (wordToWord8# ((word8ToWord# x#) `shiftRL#` i#)) | otherwise = overflowError - (W8# x#) `unsafeShiftR` (I# i#) = W8# (x# `uncheckedShiftRL#` i#) + (W8# x#) `unsafeShiftR` (I# i#) = W8# (wordToWord8# ((word8ToWord# x#) `uncheckedShiftRL#` i#)) (W8# x#) `rotate` (I# i#) | isTrue# (i'# ==# 0#) = W8# x# - | otherwise = W8# (narrow8Word# ((x# `uncheckedShiftL#` i'#) `or#` - (x# `uncheckedShiftRL#` (8# -# i'#)))) + | otherwise = W8# (wordToWord8# (((word8ToWord# x#) `uncheckedShiftL#` i'#) `or#` + ((word8ToWord# x#) `uncheckedShiftRL#` (8# -# i'#)))) where !i'# = word2Int# (int2Word# i# `and#` 7##) bitSizeMaybe i = Just (finiteBitSize i) bitSize i = finiteBitSize i isSigned _ = False - popCount (W8# x#) = I# (word2Int# (popCnt8# x#)) + popCount (W8# x#) = I# (word2Int# (popCnt8# (word8ToWord# x#))) bit = bitDefault testBit = testBitDefault @@ -215,15 +214,8 @@ {-# INLINE countLeadingZeros #-} {-# INLINE countTrailingZeros #-} finiteBitSize _ = 8 - countLeadingZeros (W8# x#) = I# (word2Int# (clz8# x#)) - countTrailingZeros (W8# x#) = I# (word2Int# (ctz8# x#)) - -{-# RULES -"fromIntegral/Word8->Word8" fromIntegral = id :: Word8 -> Word8 -"fromIntegral/Word8->Integer" fromIntegral = toInteger :: Word8 -> Integer -"fromIntegral/a->Word8" fromIntegral = \x -> case fromIntegral x of W# x# -> W8# (narrow8Word# x#) -"fromIntegral/Word8->a" fromIntegral = \(W8# x#) -> fromIntegral (W# x#) - #-} + countLeadingZeros (W8# x#) = I# (word2Int# (clz8# (word8ToWord# x#))) + countTrailingZeros (W8# x#) = I# (word2Int# (ctz8# (word8ToWord# x#))) {-# RULES "properFraction/Float->(Word8,Float)" @@ -262,7 +254,7 @@ -- Word16 is represented in the same way as Word. Operations may assume -- and must ensure that it holds only values from its logical range. -data {-# CTYPE "HsWord16" #-} Word16 = W16# Word# +data {-# CTYPE "HsWord16" #-} Word16 = W16# Word16# -- ^ 16-bit unsigned integer type -- See GHC.Classes#matching_overloaded_methods_in_rules @@ -272,8 +264,8 @@ (/=) = neWord16 eqWord16, neWord16 :: Word16 -> Word16 -> Bool -eqWord16 (W16# x) (W16# y) = isTrue# (x `eqWord#` y) -neWord16 (W16# x) (W16# y) = isTrue# (x `neWord#` y) +eqWord16 (W16# x) (W16# y) = isTrue# ((word16ToWord# x) `eqWord#` (word16ToWord# y)) +neWord16 (W16# x) (W16# y) = isTrue# ((word16ToWord# x) `neWord#` (word16ToWord# y)) {-# INLINE [1] eqWord16 #-} {-# INLINE [1] neWord16 #-} @@ -289,10 +281,10 @@ {-# INLINE [1] ltWord16 #-} {-# INLINE [1] leWord16 #-} gtWord16, geWord16, ltWord16, leWord16 :: Word16 -> Word16 -> Bool -(W16# x) `gtWord16` (W16# y) = isTrue# (x `gtWord#` y) -(W16# x) `geWord16` (W16# y) = isTrue# (x `geWord#` y) -(W16# x) `ltWord16` (W16# y) = isTrue# (x `ltWord#` y) -(W16# x) `leWord16` (W16# y) = isTrue# (x `leWord#` y) +(W16# x) `gtWord16` (W16# y) = isTrue# (x `gtWord16#` y) +(W16# x) `geWord16` (W16# y) = isTrue# (x `geWord16#` y) +(W16# x) `ltWord16` (W16# y) = isTrue# (x `ltWord16#` y) +(W16# x) `leWord16` (W16# y) = isTrue# (x `leWord16#` y) -- | @since 2.01 instance Show Word16 where @@ -300,14 +292,14 @@ -- | @since 2.01 instance Num Word16 where - (W16# x#) + (W16# y#) = W16# (narrow16Word# (x# `plusWord#` y#)) - (W16# x#) - (W16# y#) = W16# (narrow16Word# (x# `minusWord#` y#)) - (W16# x#) * (W16# y#) = W16# (narrow16Word# (x# `timesWord#` y#)) - negate (W16# x#) = W16# (narrow16Word# (int2Word# (negateInt# (word2Int# x#)))) + (W16# x#) + (W16# y#) = W16# (wordToWord16# ((word16ToWord# x#) `plusWord#` (word16ToWord# y#))) + (W16# x#) - (W16# y#) = W16# (wordToWord16# ((word16ToWord# x#) `minusWord#` (word16ToWord# y#))) + (W16# x#) * (W16# y#) = W16# (wordToWord16# ((word16ToWord# x#) `timesWord#` (word16ToWord# y#))) + negate (W16# x#) = W16# (wordToWord16# (int2Word# (negateInt# (word2Int# (word16ToWord# x#))))) abs x = x signum 0 = 0 signum _ = 1 - fromInteger i = W16# (narrow16Word# (integerToWord# i)) + fromInteger i = W16# (wordToWord16# (integerToWord# i)) -- | @since 2.01 instance Real Word16 where @@ -323,39 +315,36 @@ | otherwise = predError "Word16" toEnum i@(I# i#) | i >= 0 && i <= fromIntegral (maxBound::Word16) - = W16# (int2Word# i#) + = W16# (wordToWord16# (int2Word# i#)) | otherwise = toEnumError "Word16" i (minBound::Word16, maxBound::Word16) - fromEnum (W16# x#) = I# (word2Int# x#) - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFrom #-} + fromEnum (W16# x#) = I# (word2Int# (word16ToWord# x#)) enumFrom = boundedEnumFrom - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFromThen #-} enumFromThen = boundedEnumFromThen -- | @since 2.01 instance Integral Word16 where quot (W16# x#) y@(W16# y#) - | y /= 0 = W16# (x# `quotWord#` y#) + | y /= 0 = W16# (wordToWord16# ((word16ToWord# x#) `quotWord#` (word16ToWord# y#))) | otherwise = divZeroError rem (W16# x#) y@(W16# y#) - | y /= 0 = W16# (x# `remWord#` y#) + | y /= 0 = W16# (wordToWord16# ((word16ToWord# x#) `remWord#` (word16ToWord# y#))) | otherwise = divZeroError div (W16# x#) y@(W16# y#) - | y /= 0 = W16# (x# `quotWord#` y#) + | y /= 0 = W16# (wordToWord16# ((word16ToWord# x#) `quotWord#` (word16ToWord# y#))) | otherwise = divZeroError mod (W16# x#) y@(W16# y#) - | y /= 0 = W16# (x# `remWord#` y#) + | y /= 0 = W16# (wordToWord16# ((word16ToWord# x#) `remWord#` (word16ToWord# y#))) | otherwise = divZeroError quotRem (W16# x#) y@(W16# y#) - | y /= 0 = case x# `quotRemWord#` y# of + | y /= 0 = case (word16ToWord# x#) `quotRemWord#` (word16ToWord# y#) of (# q, r #) -> - (W16# q, W16# r) + (W16# (wordToWord16# q), W16# (wordToWord16# r)) | otherwise = divZeroError divMod (W16# x#) y@(W16# y#) - | y /= 0 = (W16# (x# `quotWord#` y#), W16# (x# `remWord#` y#)) + | y /= 0 = (W16# (wordToWord16# ((word16ToWord# x#) `quotWord#` (word16ToWord# y#))) + ,W16# (wordToWord16# ((word16ToWord# x#) `remWord#` (word16ToWord# y#)))) | otherwise = divZeroError - toInteger (W16# x#) = IS (word2Int# x#) + toInteger (W16# x#) = IS (word2Int# (word16ToWord# x#)) -- | @since 2.01 instance Bounded Word16 where @@ -375,33 +364,32 @@ {-# INLINE testBit #-} {-# INLINE popCount #-} - (W16# x#) .&. (W16# y#) = W16# (x# `and#` y#) - (W16# x#) .|. (W16# y#) = W16# (x# `or#` y#) - (W16# x#) `xor` (W16# y#) = W16# (x# `xor#` y#) - complement (W16# x#) = W16# (x# `xor#` mb#) - where !(W16# mb#) = maxBound + (W16# x#) .&. (W16# y#) = W16# (wordToWord16# ((word16ToWord# x#) `and#` (word16ToWord# y#))) + (W16# x#) .|. (W16# y#) = W16# (wordToWord16# ((word16ToWord# x#) `or#` (word16ToWord# y#))) + (W16# x#) `xor` (W16# y#) = W16# (wordToWord16# ((word16ToWord# x#) `xor#` (word16ToWord# y#))) + complement (W16# x#) = W16# (wordToWord16# (not# (word16ToWord# x#))) (W16# x#) `shift` (I# i#) - | isTrue# (i# >=# 0#) = W16# (narrow16Word# (x# `shiftL#` i#)) - | otherwise = W16# (x# `shiftRL#` negateInt# i#) + | isTrue# (i# >=# 0#) = W16# (wordToWord16# ((word16ToWord# x#) `shiftL#` i#)) + | otherwise = W16# (wordToWord16# ((word16ToWord# x#) `shiftRL#` negateInt# i#)) (W16# x#) `shiftL` (I# i#) - | isTrue# (i# >=# 0#) = W16# (narrow16Word# (x# `shiftL#` i#)) + | isTrue# (i# >=# 0#) = W16# (wordToWord16# ((word16ToWord# x#) `shiftL#` i#)) | otherwise = overflowError (W16# x#) `unsafeShiftL` (I# i#) = - W16# (narrow16Word# (x# `uncheckedShiftL#` i#)) + W16# (wordToWord16# ((word16ToWord# x#) `uncheckedShiftL#` i#)) (W16# x#) `shiftR` (I# i#) - | isTrue# (i# >=# 0#) = W16# (x# `shiftRL#` i#) + | isTrue# (i# >=# 0#) = W16# (wordToWord16# ((word16ToWord# x#) `shiftRL#` i#)) | otherwise = overflowError - (W16# x#) `unsafeShiftR` (I# i#) = W16# (x# `uncheckedShiftRL#` i#) + (W16# x#) `unsafeShiftR` (I# i#) = W16# (wordToWord16# ((word16ToWord# x#) `uncheckedShiftRL#` i#)) (W16# x#) `rotate` (I# i#) | isTrue# (i'# ==# 0#) = W16# x# - | otherwise = W16# (narrow16Word# ((x# `uncheckedShiftL#` i'#) `or#` - (x# `uncheckedShiftRL#` (16# -# i'#)))) + | otherwise = W16# (wordToWord16# (((word16ToWord# x#) `uncheckedShiftL#` i'#) `or#` + ((word16ToWord# x#) `uncheckedShiftRL#` (16# -# i'#)))) where !i'# = word2Int# (int2Word# i# `and#` 15##) bitSizeMaybe i = Just (finiteBitSize i) bitSize i = finiteBitSize i isSigned _ = False - popCount (W16# x#) = I# (word2Int# (popCnt16# x#)) + popCount (W16# x#) = I# (word2Int# (popCnt16# (word16ToWord# x#))) bit = bitDefault testBit = testBitDefault @@ -410,22 +398,14 @@ {-# INLINE countLeadingZeros #-} {-# INLINE countTrailingZeros #-} finiteBitSize _ = 16 - countLeadingZeros (W16# x#) = I# (word2Int# (clz16# x#)) - countTrailingZeros (W16# x#) = I# (word2Int# (ctz16# x#)) + countLeadingZeros (W16# x#) = I# (word2Int# (clz16# (word16ToWord# x#))) + countTrailingZeros (W16# x#) = I# (word2Int# (ctz16# (word16ToWord# x#))) -- | Reverse order of bytes in 'Word16'. -- -- @since 4.7.0.0 byteSwap16 :: Word16 -> Word16 -byteSwap16 (W16# w#) = W16# (narrow16Word# (byteSwap16# w#)) - -{-# RULES -"fromIntegral/Word8->Word16" fromIntegral = \(W8# x#) -> W16# x# -"fromIntegral/Word16->Word16" fromIntegral = id :: Word16 -> Word16 -"fromIntegral/Word16->Integer" fromIntegral = toInteger :: Word16 -> Integer -"fromIntegral/a->Word16" fromIntegral = \x -> case fromIntegral x of W# x# -> W16# (narrow16Word# x#) -"fromIntegral/Word16->a" fromIntegral = \(W16# x#) -> fromIntegral (W# x#) - #-} +byteSwap16 (W16# w#) = W16# (wordToWord16# (byteSwap16# (word16ToWord# w#))) {-# RULES "properFraction/Float->(Word16,Float)" @@ -500,7 +480,7 @@ #endif -data {-# CTYPE "HsWord32" #-} Word32 = W32# Word# +data {-# CTYPE "HsWord32" #-} Word32 = W32# Word32# -- ^ 32-bit unsigned integer type -- See GHC.Classes#matching_overloaded_methods_in_rules @@ -510,8 +490,8 @@ (/=) = neWord32 eqWord32, neWord32 :: Word32 -> Word32 -> Bool -eqWord32 (W32# x) (W32# y) = isTrue# (x `eqWord#` y) -neWord32 (W32# x) (W32# y) = isTrue# (x `neWord#` y) +eqWord32 (W32# x) (W32# y) = isTrue# ((word32ToWord# x) `eqWord#` (word32ToWord# y)) +neWord32 (W32# x) (W32# y) = isTrue# ((word32ToWord# x) `neWord#` (word32ToWord# y)) {-# INLINE [1] eqWord32 #-} {-# INLINE [1] neWord32 #-} @@ -527,21 +507,21 @@ {-# INLINE [1] ltWord32 #-} {-# INLINE [1] leWord32 #-} gtWord32, geWord32, ltWord32, leWord32 :: Word32 -> Word32 -> Bool -(W32# x) `gtWord32` (W32# y) = isTrue# (x `gtWord#` y) -(W32# x) `geWord32` (W32# y) = isTrue# (x `geWord#` y) -(W32# x) `ltWord32` (W32# y) = isTrue# (x `ltWord#` y) -(W32# x) `leWord32` (W32# y) = isTrue# (x `leWord#` y) +(W32# x) `gtWord32` (W32# y) = isTrue# (x `gtWord32#` y) +(W32# x) `geWord32` (W32# y) = isTrue# (x `geWord32#` y) +(W32# x) `ltWord32` (W32# y) = isTrue# (x `ltWord32#` y) +(W32# x) `leWord32` (W32# y) = isTrue# (x `leWord32#` y) -- | @since 2.01 instance Num Word32 where - (W32# x#) + (W32# y#) = W32# (narrow32Word# (x# `plusWord#` y#)) - (W32# x#) - (W32# y#) = W32# (narrow32Word# (x# `minusWord#` y#)) - (W32# x#) * (W32# y#) = W32# (narrow32Word# (x# `timesWord#` y#)) - negate (W32# x#) = W32# (narrow32Word# (int2Word# (negateInt# (word2Int# x#)))) + (W32# x#) + (W32# y#) = W32# (wordToWord32# ((word32ToWord# x#) `plusWord#` (word32ToWord# y#))) + (W32# x#) - (W32# y#) = W32# (wordToWord32# ((word32ToWord# x#) `minusWord#` (word32ToWord# y#))) + (W32# x#) * (W32# y#) = W32# (wordToWord32# ((word32ToWord# x#) `timesWord#` (word32ToWord# y#))) + negate (W32# x#) = W32# (wordToWord32# (int2Word# (negateInt# (word2Int# (word32ToWord# x#))))) abs x = x signum 0 = 0 signum _ = 1 - fromInteger i = W32# (narrow32Word# (integerToWord# i)) + fromInteger i = W32# (wordToWord32# (integerToWord# i)) -- | @since 2.01 instance Enum Word32 where @@ -556,58 +536,47 @@ #if WORD_SIZE_IN_BITS > 32 && i <= fromIntegral (maxBound::Word32) #endif - = W32# (int2Word# i#) + = W32# (wordToWord32# (int2Word# i#)) | otherwise = toEnumError "Word32" i (minBound::Word32, maxBound::Word32) #if WORD_SIZE_IN_BITS == 32 fromEnum x@(W32# x#) | x <= fromIntegral (maxBound::Int) - = I# (word2Int# x#) + = I# (word2Int# (word32ToWord# x#)) | otherwise = fromEnumError "Word32" x enumFrom = integralEnumFrom enumFromThen = integralEnumFromThen enumFromTo = integralEnumFromTo enumFromThenTo = integralEnumFromThenTo #else - fromEnum (W32# x#) = I# (word2Int# x#) - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFrom #-} + fromEnum (W32# x#) = I# (word2Int# (word32ToWord# x#)) enumFrom = boundedEnumFrom - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFromThen #-} enumFromThen = boundedEnumFromThen #endif -- | @since 2.01 instance Integral Word32 where quot (W32# x#) y@(W32# y#) - | y /= 0 = W32# (x# `quotWord#` y#) + | y /= 0 = W32# (wordToWord32# ((word32ToWord# x#) `quotWord#` (word32ToWord# y#))) | otherwise = divZeroError rem (W32# x#) y@(W32# y#) - | y /= 0 = W32# (x# `remWord#` y#) + | y /= 0 = W32# (wordToWord32# ((word32ToWord# x#) `remWord#` (word32ToWord# y#))) | otherwise = divZeroError div (W32# x#) y@(W32# y#) - | y /= 0 = W32# (x# `quotWord#` y#) + | y /= 0 = W32# (wordToWord32# ((word32ToWord# x#) `quotWord#` (word32ToWord# y#))) | otherwise = divZeroError mod (W32# x#) y@(W32# y#) - | y /= 0 = W32# (x# `remWord#` y#) + | y /= 0 = W32# (wordToWord32# ((word32ToWord# x#) `remWord#` (word32ToWord# y#))) | otherwise = divZeroError quotRem (W32# x#) y@(W32# y#) - | y /= 0 = case x# `quotRemWord#` y# of + | y /= 0 = case (word32ToWord# x#) `quotRemWord#` (word32ToWord# y#) of (# q, r #) -> - (W32# q, W32# r) + (W32# (wordToWord32# q), W32# (wordToWord32# r)) | otherwise = divZeroError divMod (W32# x#) y@(W32# y#) - | y /= 0 = (W32# (x# `quotWord#` y#), W32# (x# `remWord#` y#)) + | y /= 0 = (W32# (wordToWord32# ((word32ToWord# x#) `quotWord#` (word32ToWord# y#))) + ,W32# (wordToWord32# ((word32ToWord# x#) `remWord#` (word32ToWord# y#)))) | otherwise = divZeroError - toInteger (W32# x#) -#if WORD_SIZE_IN_BITS == 32 - | isTrue# (i# >=# 0#) = IS i# - | otherwise = integerFromWord# x# - where - !i# = word2Int# x# -#else - = IS (word2Int# x#) -#endif + toInteger (W32# x#) = integerFromWord# (word32ToWord# x#) -- | @since 2.01 instance Bits Word32 where @@ -616,33 +585,32 @@ {-# INLINE testBit #-} {-# INLINE popCount #-} - (W32# x#) .&. (W32# y#) = W32# (x# `and#` y#) - (W32# x#) .|. (W32# y#) = W32# (x# `or#` y#) - (W32# x#) `xor` (W32# y#) = W32# (x# `xor#` y#) - complement (W32# x#) = W32# (x# `xor#` mb#) - where !(W32# mb#) = maxBound + (W32# x#) .&. (W32# y#) = W32# (wordToWord32# ((word32ToWord# x#) `and#` (word32ToWord# y#))) + (W32# x#) .|. (W32# y#) = W32# (wordToWord32# ((word32ToWord# x#) `or#` (word32ToWord# y#))) + (W32# x#) `xor` (W32# y#) = W32# (wordToWord32# ((word32ToWord# x#) `xor#` (word32ToWord# y#))) + complement (W32# x#) = W32# (wordToWord32# (not# (word32ToWord# x#))) (W32# x#) `shift` (I# i#) - | isTrue# (i# >=# 0#) = W32# (narrow32Word# (x# `shiftL#` i#)) - | otherwise = W32# (x# `shiftRL#` negateInt# i#) + | isTrue# (i# >=# 0#) = W32# (wordToWord32# ((word32ToWord# x#) `shiftL#` i#)) + | otherwise = W32# (wordToWord32# ((word32ToWord# x#) `shiftRL#` negateInt# i#)) (W32# x#) `shiftL` (I# i#) - | isTrue# (i# >=# 0#) = W32# (narrow32Word# (x# `shiftL#` i#)) + | isTrue# (i# >=# 0#) = W32# (wordToWord32# ((word32ToWord# x#) `shiftL#` i#)) | otherwise = overflowError (W32# x#) `unsafeShiftL` (I# i#) = - W32# (narrow32Word# (x# `uncheckedShiftL#` i#)) + W32# (wordToWord32# ((word32ToWord# x#) `uncheckedShiftL#` i#)) (W32# x#) `shiftR` (I# i#) - | isTrue# (i# >=# 0#) = W32# (x# `shiftRL#` i#) + | isTrue# (i# >=# 0#) = W32# (wordToWord32# ((word32ToWord# x#) `shiftRL#` i#)) | otherwise = overflowError - (W32# x#) `unsafeShiftR` (I# i#) = W32# (x# `uncheckedShiftRL#` i#) + (W32# x#) `unsafeShiftR` (I# i#) = W32# (wordToWord32# ((word32ToWord# x#) `uncheckedShiftRL#` i#)) (W32# x#) `rotate` (I# i#) | isTrue# (i'# ==# 0#) = W32# x# - | otherwise = W32# (narrow32Word# ((x# `uncheckedShiftL#` i'#) `or#` - (x# `uncheckedShiftRL#` (32# -# i'#)))) + | otherwise = W32# (wordToWord32# (((word32ToWord# x#) `uncheckedShiftL#` i'#) `or#` + ((word32ToWord# x#) `uncheckedShiftRL#` (32# -# i'#)))) where !i'# = word2Int# (int2Word# i# `and#` 31##) bitSizeMaybe i = Just (finiteBitSize i) bitSize i = finiteBitSize i isSigned _ = False - popCount (W32# x#) = I# (word2Int# (popCnt32# x#)) + popCount (W32# x#) = I# (word2Int# (popCnt32# (word32ToWord# x#))) bit = bitDefault testBit = testBitDefault @@ -651,17 +619,8 @@ {-# INLINE countLeadingZeros #-} {-# INLINE countTrailingZeros #-} finiteBitSize _ = 32 - countLeadingZeros (W32# x#) = I# (word2Int# (clz32# x#)) - countTrailingZeros (W32# x#) = I# (word2Int# (ctz32# x#)) - -{-# RULES -"fromIntegral/Word8->Word32" fromIntegral = \(W8# x#) -> W32# x# -"fromIntegral/Word16->Word32" fromIntegral = \(W16# x#) -> W32# x# -"fromIntegral/Word32->Word32" fromIntegral = id :: Word32 -> Word32 -"fromIntegral/Word32->Integer" fromIntegral = toInteger :: Word32 -> Integer -"fromIntegral/a->Word32" fromIntegral = \x -> case fromIntegral x of W# x# -> W32# (narrow32Word# x#) -"fromIntegral/Word32->a" fromIntegral = \(W32# x#) -> fromIntegral (W# x#) - #-} + countLeadingZeros (W32# x#) = I# (word2Int# (clz32# (word32ToWord# x#))) + countTrailingZeros (W32# x#) = I# (word2Int# (ctz32# (word32ToWord# x#))) -- | @since 2.01 instance Show Word32 where @@ -691,7 +650,7 @@ -- -- @since 4.7.0.0 byteSwap32 :: Word32 -> Word32 -byteSwap32 (W32# w#) = W32# (narrow32Word# (byteSwap32# w#)) +byteSwap32 (W32# w#) = W32# (wordToWord32# (byteSwap32# (word32ToWord# w#))) ------------------------------------------------------------------------ -- type Word64 @@ -734,7 +693,7 @@ -- | @since 2.01 instance Num Word64 where (W64# x#) + (W64# y#) = W64# (int64ToWord64# (word64ToInt64# x# `plusInt64#` word64ToInt64# y#)) - (W64# x#) - (W64# y#) = W64# (int64ToWord64# (word64ToInt64# x# `minusInt64#` word64ToInt64# y#)) + (W64# x#) - (W64# y#) = W64# (int64ToWord64# (word64ToInt64# x# `subInt64#` word64ToInt64# y#)) (W64# x#) * (W64# y#) = W64# (int64ToWord64# (word64ToInt64# x# `timesInt64#` word64ToInt64# y#)) negate (W64# x#) = W64# (int64ToWord64# (negateInt64# (word64ToInt64# x#))) abs x = x @@ -757,17 +716,9 @@ | x <= fromIntegral (maxBound::Int) = I# (word2Int# (word64ToWord# x#)) | otherwise = fromEnumError "Word64" x - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFrom #-} enumFrom = integralEnumFrom - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFromThen #-} enumFromThen = integralEnumFromThen - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFromTo #-} enumFromTo = integralEnumFromTo - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFromThenTo #-} enumFromThenTo = integralEnumFromThenTo -- | @since 2.01 @@ -840,14 +791,6 @@ a `shiftRL64#` b | isTrue# (b >=# 64#) = wordToWord64# 0## | otherwise = a `uncheckedShiftRL64#` b -{-# RULES -"fromIntegral/Int->Word64" fromIntegral = \(I# x#) -> W64# (int64ToWord64# (intToInt64# x#)) -"fromIntegral/Word->Word64" fromIntegral = \(W# x#) -> W64# (wordToWord64# x#) -"fromIntegral/Word64->Int" fromIntegral = \(W64# x#) -> I# (word2Int# (word64ToWord# x#)) -"fromIntegral/Word64->Word" fromIntegral = \(W64# x#) -> W# (word64ToWord# x#) -"fromIntegral/Word64->Word64" fromIntegral = id :: Word64 -> Word64 - #-} - #else -- Word64 is represented in the same way as Word. @@ -914,18 +857,10 @@ | otherwise = fromEnumError "Word64" x #if WORD_SIZE_IN_BITS < 64 - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFrom #-} - enumFrom = integralEnumFrom - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFromThen #-} - enumFromThen = integralEnumFromThen - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFromTo #-} - enumFromTo = integralEnumFromTo - -- See Note [Stable Unfolding for list producers] in GHC.Enum - {-# INLINE enumFromThenTo #-} - enumFromThenTo = integralEnumFromThenTo + enumFrom = integralEnumFrom + enumFromThen = integralEnumFromThen + enumFromTo = integralEnumFromTo + enumFromThenTo = integralEnumFromThenTo #else -- See Note [Stable Unfolding for list producers] in GHC.Enum {-# INLINABLE enumFrom #-} @@ -981,11 +916,7 @@ divMod (W64# x#) y@(W64# y#) | y /= 0 = (W64# (x# `quotWord#` y#), W64# (x# `remWord#` y#)) | otherwise = divZeroError - toInteger (W64# x#) - | isTrue# (i# >=# 0#) = IS i# - | otherwise = integerFromWord# x# - where - !i# = word2Int# x# + toInteger (W64# x#) = integerFromWord# x# -- | @since 2.01 instance Bits Word64 where @@ -997,8 +928,7 @@ (W64# x#) .&. (W64# y#) = W64# (x# `and#` y#) (W64# x#) .|. (W64# y#) = W64# (x# `or#` y#) (W64# x#) `xor` (W64# y#) = W64# (x# `xor#` y#) - complement (W64# x#) = W64# (x# `xor#` mb#) - where !(W64# mb#) = maxBound + complement (W64# x#) = W64# (not# x#) (W64# x#) `shift` (I# i#) | isTrue# (i# >=# 0#) = W64# (x# `shiftL#` i#) | otherwise = W64# (x# `shiftRL#` negateInt# i#) @@ -1023,11 +953,6 @@ bit = bitDefault testBit = testBitDefault -{-# RULES -"fromIntegral/a->Word64" fromIntegral = \x -> case fromIntegral x of W# x# -> W64# x# -"fromIntegral/Word64->a" fromIntegral = \(W64# x#) -> fromIntegral (W# x#) - #-} - uncheckedShiftL64# :: Word# -> Int# -> Word# uncheckedShiftL64# = uncheckedShiftL# @@ -1078,19 +1003,19 @@ -- -- @since 4.12.0.0 bitReverse8 :: Word8 -> Word8 -bitReverse8 (W8# w#) = W8# (narrow8Word# (bitReverse8# w#)) +bitReverse8 (W8# w#) = W8# (wordToWord8# (bitReverse8# (word8ToWord# w#))) -- | Reverse the order of the bits in a 'Word16'. -- -- @since 4.12.0.0 bitReverse16 :: Word16 -> Word16 -bitReverse16 (W16# w#) = W16# (narrow16Word# (bitReverse16# w#)) +bitReverse16 (W16# w#) = W16# (wordToWord16# (bitReverse16# (word16ToWord# w#))) -- | Reverse the order of the bits in a 'Word32'. -- -- @since 4.12.0.0 bitReverse32 :: Word32 -> Word32 -bitReverse32 (W32# w#) = W32# (narrow32Word# (bitReverse32# w#)) +bitReverse32 (W32# w#) = W32# (wordToWord32# (bitReverse32# (word32ToWord# w#))) -- | Reverse the order of the bits in a 'Word64'. -- @@ -1103,32 +1028,3 @@ bitReverse64 (W64# w#) = W64# (bitReverse# w#) #endif -------------------------------------------------------------------------------- - -{-# RULES -"fromIntegral/Natural->Word8" - fromIntegral = (fromIntegral :: Word -> Word8) . naturalToWord -"fromIntegral/Natural->Word16" - fromIntegral = (fromIntegral :: Word -> Word16) . naturalToWord -"fromIntegral/Natural->Word32" - fromIntegral = (fromIntegral :: Word -> Word32) . naturalToWord - #-} - -{-# RULES -"fromIntegral/Word8->Natural" - fromIntegral = naturalFromWord . (fromIntegral :: Word8 -> Word) -"fromIntegral/Word16->Natural" - fromIntegral = naturalFromWord . (fromIntegral :: Word16 -> Word) -"fromIntegral/Word32->Natural" - fromIntegral = naturalFromWord . (fromIntegral :: Word32 -> Word) - #-} - -#if WORD_SIZE_IN_BITS == 64 --- these RULES are valid for Word==Word64 -{-# RULES -"fromIntegral/Natural->Word64" - fromIntegral = (fromIntegral :: Word -> Word64) . naturalToWord -"fromIntegral/Word64->Natural" - fromIntegral = naturalFromWord . (fromIntegral :: Word64 -> Word) - #-} -#endif diff --git a/Numeric.hs b/Numeric.hs --- a/Numeric.hs +++ b/Numeric.hs @@ -24,6 +24,7 @@ showIntAtBase, showInt, + showBin, showHex, showOct, @@ -46,6 +47,7 @@ readSigned, readInt, + readBin, readDec, readOct, readHex, @@ -84,6 +86,13 @@ -> ReadS a readInt base isDigit valDigit = readP_to_S (L.readIntP base isDigit valDigit) +-- | Read an unsigned number in binary notation. +-- +-- >>> readBin "10011" +-- [(19,"")] +readBin :: (Eq a, Num a) => ReadS a +readBin = readP_to_S L.readBinP + -- | Read an unsigned number in octal notation. -- -- >>> readOct "0644" @@ -289,3 +298,7 @@ -- | Show /non-negative/ 'Integral' numbers in base 8. showOct :: (Integral a, Show a) => a -> ShowS showOct = showIntAtBase 8 intToDigit + +-- | Show /non-negative/ 'Integral' numbers in base 2. +showBin :: (Integral a, Show a) => a -> ShowS +showBin = showIntAtBase 2 intToDigit diff --git a/System/Environment/ExecutablePath.hsc b/System/Environment/ExecutablePath.hsc --- a/System/Environment/ExecutablePath.hsc +++ b/System/Environment/ExecutablePath.hsc @@ -132,7 +132,7 @@ -- See readlink(2) readSymbolicLink :: FilePath -> IO FilePath readSymbolicLink file = - allocaArray0 4096 $ \buf -> do + allocaArray0 4096 $ \buf -> withFilePath file $ \s -> do len <- throwErrnoPathIfMinus1 "readSymbolicLink" file $ c_readlink s buf 4096 diff --git a/System/IO.hs b/System/IO.hs --- a/System/IO.hs +++ b/System/IO.hs @@ -347,7 +347,9 @@ -- @since 4.15.0.0 readFile' :: FilePath -> IO String -readFile' name = openFile name ReadMode >>= hGetContents' +-- There's a bit of overkill here—both withFile and +-- hGetContents' will close the file in the end. +readFile' name = withFile name ReadMode hGetContents' -- | The computation 'writeFile' @file str@ function writes the string @str@, -- to the file @file@. @@ -368,10 +370,8 @@ -- | The 'readLn' function combines 'getLine' and 'readIO'. -readLn :: Read a => IO a -readLn = do l <- getLine - r <- readIO l - return r +readLn :: Read a => IO a +readLn = getLine >>= readIO -- | The 'readIO' function is similar to 'read' except that it signals -- parse failure to the 'IO' monad instead of terminating the program. @@ -415,21 +415,6 @@ hPrint :: Show a => Handle -> a -> IO () hPrint hdl = hPutStrLn hdl . show --- | @'withFile' name mode act@ opens a file using 'openFile' and passes --- the resulting handle to the computation @act@. The handle will be --- closed on exit from 'withFile', whether by normal termination or by --- raising an exception. If closing the handle raises an exception, then --- this exception will be raised by 'withFile' rather than any exception --- raised by @act@. -withFile :: FilePath -> IOMode -> (Handle -> IO r) -> IO r -withFile name mode = bracket (openFile name mode) hClose - --- | @'withBinaryFile' name mode act@ opens a file using 'openBinaryFile' --- and passes the resulting handle to the computation @act@. The handle --- will be closed on exit from 'withBinaryFile', whether by normal --- termination or by raising an exception. -withBinaryFile :: FilePath -> IOMode -> (Handle -> IO r) -> IO r -withBinaryFile name mode = bracket (openBinaryFile name mode) hClose -- --------------------------------------------------------------------------- -- fixIO diff --git a/System/Mem/Weak.hs b/System/Mem/Weak.hs --- a/System/Mem/Weak.hs +++ b/System/Mem/Weak.hs @@ -147,22 +147,16 @@ {- $notes A finalizer is not always called after its weak pointer\'s object becomes -unreachable. There are two situations that can cause this: - - * If the object becomes unreachable right before the program exits, - then GC may not be performed. Finalizers run during GC, so finalizers - associated with the object do not run if GC does not happen. +unreachable. If the object becomes unreachable right before the program exits, +then GC may not be performed. Finalizers run during GC, so finalizers associated +with the object do not run if GC does not happen. - * If a finalizer throws an exception, subsequent finalizers that had - been queued to run after it do not get run. This behavior may change - in a future release. See issue - on the issue tracker. Writing a finalizer that throws exceptions is - discouraged. +Other than the above caveat, users can always expect that a finalizer will be +run after its weak pointer\'s object becomes unreachable. -Other than these two caveats, users can always expect that a finalizer -will be run after its weak pointer\'s object becomes unreachable. However, -the second caveat means that users need to trust that all of their -transitive dependencies do not throw exceptions in finalizers, since -any finalizers can end up queued together. +If a finalizer throws an exception, the exception is silently caught without +notice. See the commit of issue + for details. Writing a +finalizer that throws exceptions is discouraged. -} diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs --- a/System/Posix/Internals.hs +++ b/System/Posix/Internals.hs @@ -1,5 +1,9 @@ {-# LANGUAGE Trustworthy #-} +{-# LANGUAGE InterruptibleFFI #-} {-# LANGUAGE CPP, NoImplicitPrelude, CApiFFI #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE UnboxedTuples #-} +{-# LANGUAGE MagicHash #-} {-# OPTIONS_HADDOCK not-home #-} ----------------------------------------------------------------------------- @@ -94,7 +98,7 @@ fileType :: FilePath -> IO IODeviceType fileType file = - allocaBytes sizeof_stat $ \ p_stat -> do + allocaBytes sizeof_stat $ \ p_stat -> withFilePath file $ \p_file -> do throwErrnoIfMinus1Retry_ "fileType" $ c_stat p_file p_stat @@ -186,7 +190,7 @@ #if defined(HTYPE_TCFLAG_T) setEcho :: FD -> Bool -> IO () -setEcho fd on = do +setEcho fd on = tcSetAttr fd $ \ p_tios -> do lflag <- c_lflag p_tios :: IO CTcflag let new_lflag @@ -195,7 +199,7 @@ poke_c_lflag p_tios (new_lflag :: CTcflag) getEcho :: FD -> IO Bool -getEcho fd = do +getEcho fd = tcSetAttr fd $ \ p_tios -> do lflag <- c_lflag p_tios :: IO CTcflag return ((lflag .&. fromIntegral const_echo) /= 0) @@ -219,7 +223,7 @@ poke vtime 0 tcSetAttr :: FD -> (Ptr CTermios -> IO a) -> IO a -tcSetAttr fd fun = do +tcSetAttr fd fun = allocaBytes sizeof_termios $ \p_tios -> do throwErrnoIfMinus1Retry_ "tcSetAttr" (c_tcgetattr fd p_tios) @@ -238,7 +242,7 @@ -- in its terminal flags (try it...). This function provides a -- wrapper which temporarily blocks SIGTTOU around the call, making it -- transparent. - allocaBytes sizeof_sigset_t $ \ p_sigset -> do + allocaBytes sizeof_sigset_t $ \ p_sigset -> allocaBytes sizeof_sigset_t $ \ p_old_sigset -> do throwErrnoIfMinus1_ "sigemptyset" $ c_sigemptyset p_sigset @@ -338,7 +342,7 @@ #if !defined(mingw32_HOST_OS) setCloseOnExec :: FD -> IO () -setCloseOnExec fd = do +setCloseOnExec fd = throwErrnoIfMinus1_ "setCloseOnExec" $ c_fcntl_write fd const_f_setfd const_fd_cloexec #endif @@ -355,8 +359,70 @@ foreign import ccall unsafe "HsBase.h __hscore_open" c_open :: CFilePath -> CInt -> CMode -> IO CInt +-- | The same as 'c_safe_open', but an /interruptible operation/ +-- as described in "Control.Exception"—it respects `uninterruptibleMask` +-- but not `mask`. +-- +-- We want to be able to interrupt an openFile call if +-- it's expensive (NFS, FUSE, etc.), and we especially +-- need to be able to interrupt a blocking open call. +-- See #17912. +c_interruptible_open :: CFilePath -> CInt -> CMode -> IO CInt +c_interruptible_open filepath oflags mode = + getMaskingState >>= \case + -- If we're in an uninterruptible mask, there's basically + -- no point in using an interruptible FFI call. The open system call + -- will be interrupted, but the exception won't be delivered + -- unless the caller manually futzes with the masking state. So + -- then the caller (assuming they're following the usual conventions) + -- will retry the call (in response to EINTR), and we've just + -- wasted everyone's time. + MaskedUninterruptible -> c_safe_open_ filepath oflags mode + _ -> do + open_res <- c_interruptible_open_ filepath oflags mode + -- c_interruptible_open_ is an interruptible foreign call. + -- If the call is interrupted by an exception handler + -- before the system call has returned (so the file is + -- not yet open), we want to deliver the exception. + -- In point of fact, we deliver any pending exception + -- here regardless of the *reason* the system call + -- fails. + when (open_res == -1) $ + if hostIsThreaded + then + -- Control.Exception.allowInterrupt, inlined to avoid + -- messing with any Haddock links. + interruptible (pure ()) + else + -- Try to make this work somewhat better on the non-threaded + -- RTS. See #8684. This inlines the definition of `yield`; module + -- dependencies look pretty hairy here and I don't want to make + -- things worse for one little wrapper. + interruptible (IO $ \s -> (# yield# s, () #)) + pure open_res + +foreign import ccall interruptible "HsBase.h __hscore_open" + c_interruptible_open_ :: CFilePath -> CInt -> CMode -> IO CInt + +-- | Consult the RTS to find whether it is threaded. +hostIsThreaded :: Bool +hostIsThreaded = rtsIsThreaded_ /= 0 + +foreign import ccall unsafe "rts_isThreaded" rtsIsThreaded_ :: Int + +c_safe_open :: CFilePath -> CInt -> CMode -> IO CInt +c_safe_open filepath oflags mode = + getMaskingState >>= \case + -- When exceptions are unmasked, we use an interruptible + -- open call. If the system call is successfully + -- interrupted, the situation will be the same as if + -- the exception had arrived before this function was + -- called. + Unmasked -> c_interruptible_open_ filepath oflags mode + _ -> c_safe_open_ filepath oflags mode + foreign import ccall safe "HsBase.h __hscore_open" - c_safe_open :: CFilePath -> CInt -> CMode -> IO CInt + c_safe_open_ :: CFilePath -> CInt -> CMode -> IO CInt foreign import ccall unsafe "HsBase.h __hscore_fstat" c_fstat :: CInt -> Ptr CStat -> IO CInt diff --git a/System/Posix/Types.hs b/System/Posix/Types.hs --- a/System/Posix/Types.hs +++ b/System/Posix/Types.hs @@ -1,9 +1,7 @@ {-# LANGUAGE CPP #-} {-# LANGUAGE DerivingStrategies #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# LANGUAGE MagicHash #-} {-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE StandaloneDeriving #-} {-# LANGUAGE Trustworthy #-} ----------------------------------------------------------------------------- diff --git a/System/Timeout.hs b/System/Timeout.hs --- a/System/Timeout.hs +++ b/System/Timeout.hs @@ -1,6 +1,5 @@ -{-# LANGUAGE Safe #-} {-# LANGUAGE CPP #-} -{-# LANGUAGE StandaloneDeriving #-} +{-# LANGUAGE Safe #-} ------------------------------------------------------------------------------- -- | @@ -30,6 +29,10 @@ asyncExceptionToException, asyncExceptionFromException) import Data.Unique (Unique, newUnique) + +-- $setup +-- >>> import Prelude +-- >>> import Control.Concurrent (threadDelay) -- An internal type that is thrown as a dynamic exception to -- interrupt the running IO computation when the timeout has diff --git a/Text/ParserCombinators/ReadP.hs b/Text/ParserCombinators/ReadP.hs --- a/Text/ParserCombinators/ReadP.hs +++ b/Text/ParserCombinators/ReadP.hs @@ -278,9 +278,9 @@ -- ^ Parses and returns the specified string. string this = do s <- look; scan this s where - scan [] _ = do return this + scan [] _ = return this scan (x:xs) (y:ys) | x == y = do _ <- get; scan xs ys - scan _ _ = do pfail + scan _ _ = pfail munch :: (Char -> Bool) -> ReadP String -- ^ Parses the first zero or more characters satisfying the predicate. @@ -291,7 +291,7 @@ scan s where scan (c:cs) | p c = do _ <- get; s <- scan cs; return (c:s) - scan _ = do return "" + scan _ = return "" munch1 :: (Char -> Bool) -> ReadP String -- ^ Parses the first one or more characters satisfying the predicate. @@ -315,7 +315,7 @@ skip s where skip (c:s) | isSpace c = do _ <- get; skip s - skip _ = do return () + skip _ = return () count :: Int -> ReadP a -> ReadP [a] -- ^ @count n p@ parses @n@ occurrences of @p@ in sequence. A list of diff --git a/Text/Printf.hs b/Text/Printf.hs --- a/Text/Printf.hs +++ b/Text/Printf.hs @@ -100,6 +100,9 @@ import Numeric.Natural import System.IO +-- $setup +-- >>> import Prelude + ------------------- -- | Format a variable number of arguments with the C-style formatting string. @@ -292,7 +295,7 @@ -- | @since 4.7.0.0 instance (a ~ ()) => HPrintfType (IO a) where - hspr hdl fmts args = do + hspr hdl fmts args = hPutStr hdl (uprintf fmts (reverse args)) -- | @since 2.01 diff --git a/Text/Read.hs b/Text/Read.hs --- a/Text/Read.hs +++ b/Text/Read.hs @@ -51,6 +51,9 @@ import Text.ParserCombinators.ReadPrec import qualified Text.Read.Lex as L +-- $setup +-- >>> import Prelude + ------------------------------------------------------------------------ -- utility functions diff --git a/Text/Read/Lex.hs b/Text/Read/Lex.hs --- a/Text/Read/Lex.hs +++ b/Text/Read/Lex.hs @@ -26,6 +26,7 @@ , hsLex , lexChar + , readBinP , readIntP , readOctP , readDecP @@ -273,7 +274,7 @@ do c1 <- get if c1 == '\\' then do c2 <- lexEsc; return (c2, True) - else do return (c1, False) + else return (c1, False) where lexEsc = lexEscChar @@ -341,7 +342,7 @@ _ -> pfail lexAscii = - do choice + choice [ (string "SOH" >> return '\SOH') <++ (string "SO" >> return '\SO') -- \SO and \SOH need maximal-munch treatment @@ -404,9 +405,9 @@ do _ <- char '\\' c <- get case c of - '&' -> do return () + '&' -> return () _ | isSpace c -> do skipSpaces; _ <- char '\\'; return () - _ -> do pfail + _ -> pfail -- --------------------------------------------------------------------------- -- Lexing numbers @@ -429,13 +430,14 @@ lexBaseChar :: ReadP Int -- Lex a single character indicating the base; fail if not there -lexBaseChar = do { c <- get; - case c of - 'o' -> return 8 - 'O' -> return 8 - 'x' -> return 16 - 'X' -> return 16 - _ -> pfail } +lexBaseChar = do + c <- get + case c of + 'o' -> return 8 + 'O' -> return 8 + 'x' -> return 16 + 'X' -> return 16 + _ -> pfail lexDecNumber :: ReadP Lexeme lexDecNumber = @@ -471,8 +473,8 @@ where scan (c:cs) f = case valDig base c of Just n -> do _ <- get; scan cs (f.(n:)) - Nothing -> do return (f []) - scan [] f = do return (f []) + Nothing -> return (f []) + scan [] f = return (f []) lexInteger :: Base -> ReadP Integer lexInteger base = @@ -540,6 +542,10 @@ mant' = mant * 10 + fromIntegral d valDig :: (Eq a, Num a) => a -> Char -> Maybe Int +valDig 2 c + | '0' <= c && c <= '1' = Just (ord c - ord '0') + | otherwise = Nothing + valDig 8 c | '0' <= c && c <= '7' = Just (ord c - ord '0') | otherwise = Nothing @@ -576,10 +582,12 @@ valDigit c = maybe 0 id (valDig base c) {-# SPECIALISE readIntP' :: Integer -> ReadP Integer #-} -readOctP, readDecP, readHexP :: (Eq a, Num a) => ReadP a +readBinP, readOctP, readDecP, readHexP :: (Eq a, Num a) => ReadP a +readBinP = readIntP' 2 readOctP = readIntP' 8 readDecP = readIntP' 10 readHexP = readIntP' 16 +{-# SPECIALISE readBinP :: ReadP Integer #-} {-# SPECIALISE readOctP :: ReadP Integer #-} {-# SPECIALISE readDecP :: ReadP Integer #-} {-# SPECIALISE readHexP :: ReadP Integer #-} diff --git a/Unsafe/Coerce.hs b/Unsafe/Coerce.hs --- a/Unsafe/Coerce.hs +++ b/Unsafe/Coerce.hs @@ -3,9 +3,14 @@ -- Note [Implementing unsafeCoerce] {-# OPTIONS_GHC -fno-strictness #-} -{-# LANGUAGE Unsafe, NoImplicitPrelude, MagicHash, GADTs, TypeApplications, - ScopedTypeVariables, TypeOperators, KindSignatures, PolyKinds, - StandaloneKindSignatures, DataKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE GADTs #-} +{-# LANGUAGE MagicHash #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE PolyKinds #-} +{-# LANGUAGE ScopedTypeVariables #-} +{-# LANGUAGE TypeApplications #-} +{-# LANGUAGE Unsafe #-} module Unsafe.Coerce ( unsafeCoerce, unsafeCoerceUnlifted, unsafeCoerceAddr @@ -16,7 +21,6 @@ import GHC.Arr (amap) -- For amap/unsafeCoerce rule import GHC.Base -import GHC.Num.Integer () -- See Note [Depend on GHC.Num.Integer] in GHC.Base import GHC.Types @@ -266,7 +270,7 @@ unsafeCoerce :: forall (a :: Type) (b :: Type) . a -> b unsafeCoerce x = case unsafeEqualityProof @a @b of UnsafeRefl -> x -unsafeCoerceUnlifted :: forall (a :: TYPE 'UnliftedRep) (b :: TYPE 'UnliftedRep) . a -> b +unsafeCoerceUnlifted :: forall (a :: TYPE ('BoxedRep 'Unlifted)) (b :: TYPE ('BoxedRep 'Unlifted)) . a -> b -- Kind-homogeneous, but levity monomorphic (TYPE UnliftedRep) unsafeCoerceUnlifted x = case unsafeEqualityProof @a @b of UnsafeRefl -> x diff --git a/base.cabal b/base.cabal --- a/base.cabal +++ b/base.cabal @@ -1,6 +1,6 @@ cabal-version: 3.0 name: base -version: 4.15.1.0 +version: 4.16.0.0 -- NOTE: Don't forget to update ./changelog.md license: BSD-3-Clause @@ -88,7 +88,7 @@ build-depends: rts == 1.0.*, - ghc-prim >= 0.5.1.0 && < 0.8, + ghc-prim >= 0.5.1.0 && < 0.9, ghc-bignum >= 1.0 && < 2.0 exposed-modules: @@ -159,6 +159,7 @@ Data.Type.Bool Data.Type.Coercion Data.Type.Equality + Data.Type.Ord Data.Typeable Data.Unique Data.Version @@ -188,6 +189,7 @@ Foreign.Storable GHC.Arr GHC.Base + GHC.Bits GHC.ByteOrder GHC.Char GHC.Clock @@ -276,7 +278,9 @@ GHC.Storable GHC.TopHandler GHC.TypeLits + GHC.TypeLits.Internal GHC.TypeNats + GHC.TypeNats.Internal GHC.Unicode GHC.Weak GHC.Word @@ -405,6 +409,7 @@ GHC.Event.Arr GHC.Event.Array GHC.Event.IntTable + GHC.Event.IntVar GHC.Event.PSQ GHC.Event.Unique System.CPUTime.Windows @@ -422,6 +427,7 @@ GHC.Event.Control GHC.Event.EPoll GHC.Event.IntTable + GHC.Event.IntVar GHC.Event.Internal GHC.Event.KQueue GHC.Event.Manager diff --git a/cbits/WCsubst.c b/cbits/WCsubst.c --- a/cbits/WCsubst.c +++ b/cbits/WCsubst.c @@ -1,6 +1,6 @@ /*------------------------------------------------------------------------- This is an automatically generated file: do not edit -Generated by ubconfc at Mon Feb 10 11:42:51 EST 2020 +Generated by ubconfc at Fri Sep 24 05:07:27 PM EDT 2021 @generated -------------------------------------------------------------------------*/ @@ -90,11 +90,11 @@ #define GENCAT_MN 2097152 #define GENCAT_LO 16384 #define MAX_UNI_CHAR 1114109 -#define NUM_BLOCKS 3351 -#define NUM_CONVBLOCKS 1326 +#define NUM_BLOCKS 3467 +#define NUM_CONVBLOCKS 1348 #define NUM_SPACEBLOCKS 7 #define NUM_LAT1BLOCKS 63 -#define NUM_RULES 205 +#define NUM_RULES 207 static const struct _convrule_ rule183={GENCAT_LU, NUMCAT_LU, 1, 0, -35332, 0}; static const struct _convrule_ rule171={GENCAT_SO, NUMCAT_SO, 1, -26, 0, -26}; static const struct _convrule_ rule182={GENCAT_LL, NUMCAT_LL, 1, -7264, 0, -7264}; @@ -115,6 +115,7 @@ static const struct _convrule_ rule149={GENCAT_LL, NUMCAT_LL, 1, 112, 0, 112}; static const struct _convrule_ rule71={GENCAT_LL, NUMCAT_LL, 1, -207, 0, -207}; static const struct _convrule_ rule125={GENCAT_LU, NUMCAT_LU, 1, 0, 7264, 0}; +static const struct _convrule_ rule204={GENCAT_LL, NUMCAT_LL, 1, -39, 0, -39}; static const struct _convrule_ rule166={GENCAT_LU, NUMCAT_LU, 1, 0, 28, 0}; static const struct _convrule_ rule173={GENCAT_LU, NUMCAT_LU, 1, 0, -3814, 0}; static const struct _convrule_ rule45={GENCAT_LU, NUMCAT_LU, 1, 0, 219, 0}; @@ -123,6 +124,7 @@ static const struct _convrule_ rule99={GENCAT_LL, NUMCAT_LL, 1, -38, 0, -38}; static const struct _convrule_ rule97={GENCAT_LU, NUMCAT_LU, 1, 0, 64, 0}; static const struct _convrule_ rule1={GENCAT_ZS, NUMCAT_ZS, 0, 0, 0, 0}; +static const struct _convrule_ rule203={GENCAT_LU, NUMCAT_LU, 1, 0, 39, 0}; static const struct _convrule_ rule89={GENCAT_LL, NUMCAT_LL, 1, 42261, 0, 42261}; static const struct _convrule_ rule29={GENCAT_LU, NUMCAT_LU, 1, 0, 210, 0}; static const struct _convrule_ rule35={GENCAT_LU, NUMCAT_LU, 1, 0, 207, 0}; @@ -145,7 +147,7 @@ static const struct _convrule_ rule95={GENCAT_LU, NUMCAT_LU, 1, 0, 38, 0}; static const struct _convrule_ rule140={GENCAT_LL, NUMCAT_LL, 1, 35384, 0, 35384}; static const struct _convrule_ rule101={GENCAT_LL, NUMCAT_LL, 1, -31, 0, -31}; -static const struct _convrule_ rule204={GENCAT_LL, NUMCAT_LL, 1, -34, 0, -34}; +static const struct _convrule_ rule206={GENCAT_LL, NUMCAT_LL, 1, -34, 0, -34}; static const struct _convrule_ rule107={GENCAT_LU, NUMCAT_LU, 0, 0, 0, 0}; static const struct _convrule_ rule11={GENCAT_PC, NUMCAT_PC, 0, 0, 0, 0}; static const struct _convrule_ rule192={GENCAT_LU, NUMCAT_LU, 1, 0, -42261, 0}; @@ -255,7 +257,7 @@ static const struct _convrule_ rule81={GENCAT_LL, NUMCAT_LL, 1, 10727, 0, 10727}; static const struct _convrule_ rule62={GENCAT_LL, NUMCAT_LL, 1, 10780, 0, 10780}; static const struct _convrule_ rule41={GENCAT_LL, NUMCAT_LL, 1, 130, 0, 130}; -static const struct _convrule_ rule203={GENCAT_LU, NUMCAT_LU, 1, 0, 34, 0}; +static const struct _convrule_ rule205={GENCAT_LU, NUMCAT_LU, 1, 0, 34, 0}; static const struct _convrule_ rule134={GENCAT_LL, NUMCAT_LL, 1, -6236, 0, -6236}; static const struct _convrule_ rule68={GENCAT_LL, NUMCAT_LL, 1, -203, 0, -203}; static const struct _convrule_ rule65={GENCAT_LL, NUMCAT_LL, 1, -206, 0, -206}; @@ -1066,7 +1068,7 @@ {1552, 11, &rule92}, {1563, 1, &rule2}, {1564, 1, &rule16}, - {1566, 2, &rule2}, + {1565, 3, &rule2}, {1568, 32, &rule14}, {1600, 1, &rule91}, {1601, 10, &rule14}, @@ -1122,9 +1124,14 @@ {2137, 3, &rule92}, {2142, 1, &rule2}, {2144, 11, &rule14}, - {2208, 21, &rule14}, - {2230, 8, &rule14}, - {2259, 15, &rule92}, + {2160, 24, &rule14}, + {2184, 1, &rule10}, + {2185, 6, &rule14}, + {2192, 2, &rule16}, + {2200, 8, &rule92}, + {2208, 41, &rule14}, + {2249, 1, &rule91}, + {2250, 24, &rule92}, {2274, 1, &rule16}, {2275, 32, &rule92}, {2307, 1, &rule124}, @@ -1239,7 +1246,7 @@ {2887, 2, &rule124}, {2891, 2, &rule124}, {2893, 1, &rule92}, - {2902, 1, &rule92}, + {2901, 2, &rule92}, {2903, 1, &rule124}, {2908, 2, &rule14}, {2911, 3, &rule14}, @@ -1279,6 +1286,7 @@ {3086, 3, &rule14}, {3090, 23, &rule14}, {3114, 16, &rule14}, + {3132, 1, &rule92}, {3133, 1, &rule14}, {3134, 3, &rule92}, {3137, 4, &rule124}, @@ -1286,6 +1294,7 @@ {3146, 4, &rule92}, {3157, 2, &rule92}, {3160, 3, &rule14}, + {3165, 1, &rule14}, {3168, 2, &rule14}, {3170, 2, &rule92}, {3174, 10, &rule8}, @@ -1311,14 +1320,14 @@ {3274, 2, &rule124}, {3276, 2, &rule92}, {3285, 2, &rule124}, - {3294, 1, &rule14}, + {3293, 2, &rule14}, {3296, 2, &rule14}, {3298, 2, &rule92}, {3302, 10, &rule8}, {3313, 2, &rule14}, {3328, 2, &rule92}, {3330, 2, &rule124}, - {3333, 8, &rule14}, + {3332, 9, &rule14}, {3342, 3, &rule14}, {3346, 41, &rule14}, {3387, 2, &rule92}, @@ -1339,6 +1348,7 @@ {3440, 9, &rule17}, {3449, 1, &rule13}, {3450, 6, &rule14}, + {3457, 1, &rule92}, {3458, 2, &rule124}, {3461, 18, &rule14}, {3482, 24, &rule14}, @@ -1496,11 +1506,12 @@ {5867, 3, &rule2}, {5870, 3, &rule128}, {5873, 8, &rule14}, - {5888, 13, &rule14}, - {5902, 4, &rule14}, + {5888, 18, &rule14}, {5906, 3, &rule92}, - {5920, 18, &rule14}, - {5938, 3, &rule92}, + {5909, 1, &rule124}, + {5919, 19, &rule14}, + {5938, 2, &rule92}, + {5940, 1, &rule124}, {5941, 2, &rule2}, {5952, 18, &rule14}, {5970, 2, &rule92}, @@ -1528,6 +1539,7 @@ {6151, 4, &rule2}, {6155, 3, &rule92}, {6158, 1, &rule16}, + {6159, 1, &rule92}, {6160, 10, &rule8}, {6176, 35, &rule14}, {6211, 1, &rule91}, @@ -1582,6 +1594,7 @@ {6824, 6, &rule2}, {6832, 14, &rule92}, {6846, 1, &rule119}, + {6847, 16, &rule92}, {6912, 4, &rule92}, {6916, 1, &rule124}, {6917, 47, &rule14}, @@ -1593,12 +1606,13 @@ {6973, 5, &rule124}, {6978, 1, &rule92}, {6979, 2, &rule124}, - {6981, 7, &rule14}, + {6981, 8, &rule14}, {6992, 10, &rule8}, {7002, 7, &rule2}, {7009, 10, &rule13}, {7019, 9, &rule92}, {7028, 9, &rule13}, + {7037, 2, &rule2}, {7040, 2, &rule92}, {7042, 1, &rule124}, {7043, 30, &rule14}, @@ -1667,8 +1681,7 @@ {7566, 1, &rule140}, {7567, 12, &rule20}, {7579, 37, &rule91}, - {7616, 58, &rule92}, - {7675, 5, &rule92}, + {7616, 64, &rule92}, {7680, 1, &rule22}, {7681, 1, &rule23}, {7682, 1, &rule22}, @@ -2041,7 +2054,7 @@ {8333, 1, &rule4}, {8334, 1, &rule5}, {8336, 13, &rule91}, - {8352, 32, &rule3}, + {8352, 33, &rule3}, {8400, 13, &rule92}, {8413, 4, &rule119}, {8417, 1, &rule92}, @@ -2221,9 +2234,9 @@ {11079, 6, &rule6}, {11085, 39, &rule13}, {11126, 32, &rule13}, - {11160, 104, &rule13}, - {11264, 47, &rule122}, - {11312, 47, &rule123}, + {11159, 105, &rule13}, + {11264, 48, &rule122}, + {11312, 48, &rule123}, {11360, 1, &rule22}, {11361, 1, &rule23}, {11362, 1, &rule172}, @@ -2417,6 +2430,17 @@ {11841, 1, &rule2}, {11842, 1, &rule4}, {11843, 13, &rule2}, + {11856, 2, &rule13}, + {11858, 3, &rule2}, + {11861, 1, &rule4}, + {11862, 1, &rule5}, + {11863, 1, &rule4}, + {11864, 1, &rule5}, + {11865, 1, &rule4}, + {11866, 1, &rule5}, + {11867, 1, &rule4}, + {11868, 1, &rule5}, + {11869, 1, &rule7}, {11904, 26, &rule13}, {11931, 89, &rule13}, {12032, 214, &rule13}, @@ -2476,7 +2500,7 @@ {12688, 2, &rule13}, {12690, 4, &rule17}, {12694, 10, &rule13}, - {12704, 27, &rule14}, + {12704, 32, &rule14}, {12736, 36, &rule13}, {12784, 16, &rule14}, {12800, 31, &rule13}, @@ -2490,10 +2514,9 @@ {12938, 39, &rule13}, {12977, 15, &rule17}, {12992, 320, &rule13}, - {13312, 6582, &rule14}, + {13312, 6592, &rule14}, {19904, 64, &rule13}, - {19968, 20976, &rule14}, - {40960, 21, &rule14}, + {19968, 21013, &rule14}, {40981, 1, &rule91}, {40982, 1143, &rule14}, {42128, 55, &rule13}, @@ -2745,11 +2768,28 @@ {42941, 1, &rule23}, {42942, 1, &rule22}, {42943, 1, &rule23}, + {42944, 1, &rule22}, + {42945, 1, &rule23}, {42946, 1, &rule22}, {42947, 1, &rule23}, {42948, 1, &rule194}, {42949, 1, &rule195}, {42950, 1, &rule196}, + {42951, 1, &rule22}, + {42952, 1, &rule23}, + {42953, 1, &rule22}, + {42954, 1, &rule23}, + {42960, 1, &rule22}, + {42961, 1, &rule23}, + {42963, 1, &rule20}, + {42965, 1, &rule20}, + {42966, 1, &rule22}, + {42967, 1, &rule23}, + {42968, 1, &rule22}, + {42969, 1, &rule23}, + {42994, 3, &rule91}, + {42997, 1, &rule22}, + {42998, 1, &rule23}, {42999, 1, &rule14}, {43000, 2, &rule91}, {43002, 1, &rule20}, @@ -2764,6 +2804,7 @@ {43045, 2, &rule92}, {43047, 1, &rule124}, {43048, 4, &rule13}, + {43052, 1, &rule92}, {43056, 6, &rule17}, {43062, 2, &rule13}, {43064, 1, &rule3}, @@ -2865,7 +2906,9 @@ {43860, 7, &rule20}, {43867, 1, &rule10}, {43868, 4, &rule91}, - {43872, 8, &rule20}, + {43872, 9, &rule20}, + {43881, 1, &rule91}, + {43882, 2, &rule10}, {43888, 80, &rule198}, {43968, 35, &rule14}, {44003, 2, &rule124}, @@ -2898,15 +2941,17 @@ {64320, 2, &rule14}, {64323, 2, &rule14}, {64326, 108, &rule14}, - {64434, 16, &rule10}, + {64434, 17, &rule10}, {64467, 363, &rule14}, {64830, 1, &rule5}, {64831, 1, &rule4}, + {64832, 16, &rule13}, {64848, 64, &rule14}, {64914, 54, &rule14}, + {64975, 1, &rule13}, {65008, 12, &rule14}, {65020, 1, &rule3}, - {65021, 1, &rule13}, + {65021, 3, &rule13}, {65024, 16, &rule92}, {65040, 7, &rule2}, {65047, 1, &rule4}, @@ -3022,7 +3067,7 @@ {65913, 17, &rule13}, {65930, 2, &rule17}, {65932, 3, &rule13}, - {65936, 12, &rule13}, + {65936, 13, &rule13}, {65952, 1, &rule13}, {66000, 45, &rule13}, {66045, 1, &rule92}, @@ -3053,9 +3098,20 @@ {66816, 40, &rule14}, {66864, 52, &rule14}, {66927, 1, &rule2}, + {66928, 11, &rule203}, + {66940, 15, &rule203}, + {66956, 7, &rule203}, + {66964, 2, &rule203}, + {66967, 11, &rule204}, + {66979, 15, &rule204}, + {66995, 7, &rule204}, + {67003, 2, &rule204}, {67072, 311, &rule14}, {67392, 22, &rule14}, {67424, 8, &rule14}, + {67456, 6, &rule91}, + {67463, 42, &rule91}, + {67506, 9, &rule91}, {67584, 6, &rule14}, {67592, 1, &rule14}, {67594, 44, &rule14}, @@ -3121,6 +3177,10 @@ {68900, 4, &rule92}, {68912, 10, &rule8}, {69216, 31, &rule17}, + {69248, 42, &rule14}, + {69291, 2, &rule92}, + {69293, 1, &rule7}, + {69296, 2, &rule14}, {69376, 29, &rule14}, {69405, 10, &rule17}, {69415, 1, &rule14}, @@ -3128,6 +3188,11 @@ {69446, 11, &rule92}, {69457, 4, &rule17}, {69461, 5, &rule2}, + {69488, 18, &rule14}, + {69506, 4, &rule92}, + {69510, 4, &rule2}, + {69552, 21, &rule14}, + {69573, 7, &rule17}, {69600, 23, &rule14}, {69632, 1, &rule124}, {69633, 1, &rule92}, @@ -3137,6 +3202,10 @@ {69703, 7, &rule2}, {69714, 20, &rule17}, {69734, 10, &rule8}, + {69744, 1, &rule92}, + {69745, 2, &rule14}, + {69747, 2, &rule92}, + {69749, 1, &rule14}, {69759, 3, &rule92}, {69762, 1, &rule124}, {69763, 45, &rule14}, @@ -3147,6 +3216,7 @@ {69819, 2, &rule2}, {69821, 1, &rule16}, {69822, 4, &rule2}, + {69826, 1, &rule92}, {69837, 1, &rule16}, {69840, 25, &rule14}, {69872, 10, &rule8}, @@ -3159,6 +3229,7 @@ {69952, 4, &rule2}, {69956, 1, &rule14}, {69957, 2, &rule124}, + {69959, 1, &rule14}, {69968, 35, &rule14}, {70003, 1, &rule92}, {70004, 2, &rule2}, @@ -3173,6 +3244,8 @@ {70085, 4, &rule2}, {70089, 4, &rule92}, {70093, 1, &rule2}, + {70094, 1, &rule124}, + {70095, 1, &rule92}, {70096, 10, &rule8}, {70106, 1, &rule14}, {70107, 1, &rule2}, @@ -3231,10 +3304,10 @@ {70727, 4, &rule14}, {70731, 5, &rule2}, {70736, 10, &rule8}, - {70747, 1, &rule2}, + {70746, 2, &rule2}, {70749, 1, &rule2}, {70750, 1, &rule92}, - {70751, 1, &rule14}, + {70751, 3, &rule14}, {70784, 48, &rule14}, {70832, 3, &rule124}, {70835, 6, &rule92}, @@ -3278,6 +3351,7 @@ {71350, 1, &rule124}, {71351, 1, &rule92}, {71352, 1, &rule14}, + {71353, 1, &rule2}, {71360, 10, &rule8}, {71424, 27, &rule14}, {71453, 3, &rule92}, @@ -3289,6 +3363,7 @@ {71482, 2, &rule17}, {71484, 3, &rule2}, {71487, 1, &rule13}, + {71488, 7, &rule14}, {71680, 44, &rule14}, {71724, 3, &rule124}, {71727, 9, &rule92}, @@ -3299,7 +3374,23 @@ {71872, 32, &rule12}, {71904, 10, &rule8}, {71914, 9, &rule17}, - {71935, 1, &rule14}, + {71935, 8, &rule14}, + {71945, 1, &rule14}, + {71948, 8, &rule14}, + {71957, 2, &rule14}, + {71960, 24, &rule14}, + {71984, 6, &rule124}, + {71991, 2, &rule124}, + {71995, 2, &rule92}, + {71997, 1, &rule124}, + {71998, 1, &rule92}, + {71999, 1, &rule14}, + {72000, 1, &rule124}, + {72001, 1, &rule14}, + {72002, 1, &rule124}, + {72003, 1, &rule92}, + {72004, 3, &rule2}, + {72016, 10, &rule8}, {72096, 8, &rule14}, {72106, 39, &rule14}, {72145, 3, &rule124}, @@ -3331,7 +3422,7 @@ {72346, 3, &rule2}, {72349, 1, &rule14}, {72350, 5, &rule2}, - {72384, 57, &rule14}, + {72368, 73, &rule14}, {72704, 9, &rule14}, {72714, 37, &rule14}, {72751, 1, &rule124}, @@ -3377,6 +3468,7 @@ {73459, 2, &rule92}, {73461, 2, &rule124}, {73463, 2, &rule2}, + {73648, 1, &rule14}, {73664, 21, &rule17}, {73685, 8, &rule13}, {73693, 4, &rule3}, @@ -3386,6 +3478,8 @@ {74752, 111, &rule128}, {74864, 5, &rule2}, {74880, 196, &rule14}, + {77712, 97, &rule14}, + {77809, 2, &rule2}, {77824, 1071, &rule14}, {78896, 9, &rule16}, {82944, 583, &rule14}, @@ -3393,6 +3487,8 @@ {92736, 31, &rule14}, {92768, 10, &rule8}, {92782, 2, &rule2}, + {92784, 79, &rule14}, + {92864, 10, &rule8}, {92880, 30, &rule14}, {92912, 5, &rule92}, {92917, 1, &rule2}, @@ -3420,9 +3516,15 @@ {94176, 2, &rule91}, {94178, 1, &rule2}, {94179, 1, &rule91}, + {94180, 1, &rule92}, + {94192, 2, &rule124}, {94208, 6136, &rule14}, - {100352, 755, &rule14}, - {110592, 287, &rule14}, + {100352, 1238, &rule14}, + {101632, 9, &rule14}, + {110576, 4, &rule91}, + {110581, 7, &rule91}, + {110589, 2, &rule91}, + {110592, 291, &rule14}, {110928, 3, &rule14}, {110948, 4, &rule14}, {110960, 396, &rule14}, @@ -3434,6 +3536,9 @@ {113821, 2, &rule92}, {113823, 1, &rule2}, {113824, 4, &rule16}, + {118528, 46, &rule92}, + {118576, 23, &rule92}, + {118608, 116, &rule13}, {118784, 246, &rule13}, {119040, 39, &rule13}, {119081, 60, &rule13}, @@ -3447,7 +3552,7 @@ {119173, 7, &rule92}, {119180, 30, &rule13}, {119210, 4, &rule92}, - {119214, 59, &rule13}, + {119214, 61, &rule13}, {119296, 66, &rule13}, {119362, 3, &rule92}, {119365, 1, &rule13}, @@ -3536,6 +3641,9 @@ {121479, 5, &rule2}, {121499, 5, &rule92}, {121505, 15, &rule92}, + {122624, 10, &rule20}, + {122634, 1, &rule14}, + {122635, 20, &rule20}, {122880, 7, &rule92}, {122888, 17, &rule92}, {122907, 7, &rule92}, @@ -3547,15 +3655,21 @@ {123200, 10, &rule8}, {123214, 1, &rule14}, {123215, 1, &rule13}, + {123536, 30, &rule14}, + {123566, 1, &rule92}, {123584, 44, &rule14}, {123628, 4, &rule92}, {123632, 10, &rule8}, {123647, 1, &rule3}, + {124896, 7, &rule14}, + {124904, 4, &rule14}, + {124909, 2, &rule14}, + {124912, 15, &rule14}, {124928, 197, &rule14}, {125127, 9, &rule17}, {125136, 7, &rule92}, - {125184, 34, &rule203}, - {125218, 34, &rule204}, + {125184, 34, &rule205}, + {125218, 34, &rule206}, {125252, 7, &rule92}, {125259, 1, &rule91}, {125264, 10, &rule8}, @@ -3609,8 +3723,7 @@ {127169, 15, &rule13}, {127185, 37, &rule13}, {127232, 13, &rule17}, - {127248, 93, &rule13}, - {127344, 61, &rule13}, + {127245, 161, &rule13}, {127462, 29, &rule13}, {127504, 44, &rule13}, {127552, 9, &rule13}, @@ -3618,35 +3731,40 @@ {127584, 6, &rule13}, {127744, 251, &rule13}, {127995, 5, &rule10}, - {128000, 726, &rule13}, - {128736, 13, &rule13}, - {128752, 11, &rule13}, + {128000, 728, &rule13}, + {128733, 16, &rule13}, + {128752, 13, &rule13}, {128768, 116, &rule13}, {128896, 89, &rule13}, {128992, 12, &rule13}, + {129008, 1, &rule13}, {129024, 12, &rule13}, {129040, 56, &rule13}, {129104, 10, &rule13}, {129120, 40, &rule13}, {129168, 30, &rule13}, - {129280, 12, &rule13}, - {129293, 101, &rule13}, - {129395, 4, &rule13}, - {129402, 41, &rule13}, - {129445, 6, &rule13}, - {129454, 29, &rule13}, - {129485, 135, &rule13}, + {129200, 2, &rule13}, + {129280, 340, &rule13}, {129632, 14, &rule13}, - {129648, 4, &rule13}, - {129656, 3, &rule13}, - {129664, 3, &rule13}, - {129680, 6, &rule13}, - {131072, 42711, &rule14}, - {173824, 4149, &rule14}, + {129648, 5, &rule13}, + {129656, 5, &rule13}, + {129664, 7, &rule13}, + {129680, 29, &rule13}, + {129712, 11, &rule13}, + {129728, 6, &rule13}, + {129744, 10, &rule13}, + {129760, 8, &rule13}, + {129776, 7, &rule13}, + {129792, 147, &rule13}, + {129940, 55, &rule13}, + {130032, 10, &rule8}, + {131072, 42720, &rule14}, + {173824, 4153, &rule14}, {177984, 222, &rule14}, {178208, 5762, &rule14}, {183984, 7473, &rule14}, {194560, 542, &rule14}, + {196608, 4939, &rule14}, {917505, 1, &rule16}, {917536, 96, &rule16}, {917760, 240, &rule92}, @@ -4612,8 +4730,8 @@ {8580, 1, &rule23}, {9398, 26, &rule170}, {9424, 26, &rule171}, - {11264, 47, &rule122}, - {11312, 47, &rule123}, + {11264, 48, &rule122}, + {11312, 48, &rule123}, {11360, 1, &rule22}, {11361, 1, &rule23}, {11362, 1, &rule172}, @@ -4959,11 +5077,25 @@ {42941, 1, &rule23}, {42942, 1, &rule22}, {42943, 1, &rule23}, + {42944, 1, &rule22}, + {42945, 1, &rule23}, {42946, 1, &rule22}, {42947, 1, &rule23}, {42948, 1, &rule194}, {42949, 1, &rule195}, {42950, 1, &rule196}, + {42951, 1, &rule22}, + {42952, 1, &rule23}, + {42953, 1, &rule22}, + {42954, 1, &rule23}, + {42960, 1, &rule22}, + {42961, 1, &rule23}, + {42966, 1, &rule22}, + {42967, 1, &rule23}, + {42968, 1, &rule22}, + {42969, 1, &rule23}, + {42997, 1, &rule22}, + {42998, 1, &rule23}, {43859, 1, &rule197}, {43888, 80, &rule198}, {65313, 26, &rule9}, @@ -4972,14 +5104,22 @@ {66600, 40, &rule202}, {66736, 36, &rule201}, {66776, 36, &rule202}, + {66928, 11, &rule203}, + {66940, 15, &rule203}, + {66956, 7, &rule203}, + {66964, 2, &rule203}, + {66967, 11, &rule204}, + {66979, 15, &rule204}, + {66995, 7, &rule204}, + {67003, 2, &rule204}, {68736, 51, &rule97}, {68800, 51, &rule102}, {71840, 32, &rule9}, {71872, 32, &rule12}, {93760, 32, &rule9}, {93792, 32, &rule12}, - {125184, 34, &rule203}, - {125218, 34, &rule204} + {125184, 34, &rule205}, + {125218, 34, &rule206} }; static const struct _charblock_ spacechars[]={ {32, 1, &rule1}, diff --git a/cbits/fs.c b/cbits/fs.c --- a/cbits/fs.c +++ b/cbits/fs.c @@ -21,8 +21,6 @@ #include #include #include -#include -#include #include #include diff --git a/changelog.md b/changelog.md --- a/changelog.md +++ b/changelog.md @@ -1,38 +1,61 @@ # Changelog for [`base` package](http://hackage.haskell.org/package/base) +\ +## 4.16.0.0 *Nov 2021* -## 4.15.1.0 *December 2021* + * Shipped with GHC 9.2.1 - * Bundled with GHC 9.0.2 + * The unary tuple type, `Solo`, is now exported by `Data.Tuple`. - * Various documentation improvements and fixes + * Add a `Typeable` constraint to `fromStaticPtr` in the class `GHC.StaticPtr.IsStatic`. - * `GHC.Event.Manager`: Don't use one-shot kqueue on macOS. - This reverts a commit that removed the workaround for a - [bug](https://gitlab.haskell.org/ghc/ghc/-/issues/7651) in the OSX - implementation of kqueue. It turns out the bug still affects modern - macOS versions, so we keep the workaround for now. + * Make it possible to promote `Natural`s and remove the separate `Nat` kind. + For backwards compatibility, `Nat` is now a type synonym for `Natural`. + As a consequence, one must enable `TypeSynonymInstances` + in order to define instances for `Nat`. Also, different instances for `Nat` and `Natural` + won't typecheck anymore. - * Check the buffer size *before* calling the continuation in withEncodedCString (#20107) + * Add `Data.Type.Ord` as a module for type-level comparison operations. The + `(<=?)` type operator from `GHC.TypeNats`, previously kind-specific to + `Nat`, is now kind-polymorphic and governed by the `Compare` type family in + `Data.Type.Ord`. Note that this means GHC will no longer deduce `0 <= n` + for all `n` any more. - * Pass -DLIBICONV_PLUG when building base library on FreeBSD (#19958) + * Add `cmpNat`, `cmpSymbol`, and `cmpChar` to `GHC.TypeNats` and `GHC.TypeLits`. - * Detect underflow in fromIntegral/Int->Natural rule (#20066) + * Add `CmpChar`, `ConsSymbol`, `UnconsSymbol`, `CharToNat`, and `NatToChar` + type families to `GHC.TypeLits`. - * Make unsafeDupablePerformIO have a lazy demand (#19181) + * Add the `KnownChar` class, `charVal` and `charVal'` to `GHC.TypeLits`. - * fix bogus rewrite rule for "fromIntegral/Int->Natural" `fromIntegral = - naturalFromWord . fromIntegral` (#19345) + * Add `Semigroup` and `Monoid` instances for `Data.Functor.Product` and + `Data.Functor.Compose`. - * Fix accidental unsoundness in Data.Typeable.Internal.mkTypeLitFromString (#19288) + * Add `Functor`, `Applicative`, `Monad`, `MonadFix`, `Foldable`, `Traversable`, + `Eq`, `Ord`, `Show`, `Read`, `Eq1`, `Ord1`, `Show1`, `Read1`, `Generic`, + `Generic1`, and `Data` instances for `GHC.Tuple.Solo`. -## 4.15.0.0 *January 2021* + * Add `Eq1`, `Read1` and `Show1` instances for `Complex`; + add `Eq1/2`, `Ord1/2`, `Show1/2` and `Read1/2` instances for 3 and 4-tuples. - * Bundled with GHC 9.0.1 + * Remove `Data.Semigroup.Option` and the accompanying `option` function. - * Add `Functor`, `Applicative`, `Monad`, `MonadFix`, `Foldable`, `Traversable`, - `Eq`, `Ord`, `Show`, `Read`, `Eq1`, `Ord1`, `Show1`, `Read1`, `Generic`, + * Make `allocaBytesAligned` and `alloca` throw an IOError when the + alignment is not a power-of-two. The underlying primop + `newAlignedPinnedByteArray#` actually always assumed this but we didn't + document this fact in the user facing API until now. + `Generic1`, and `Data` instances for `GHC.Tuple.Solo`. + * Under POSIX, `System.IO.openFile` will no longer leak a file descriptor if it + is interrupted by an asynchronous exception (#19114, #19115). + + * Additionally export `asum` from `Control.Applicative` + + * `fromInteger :: Integer -> Float/Double` now consistently round to the + nearest value, with ties to even. + +## 4.15.0.0 *Feb 2021* + * `openFile` now calls the `open` system call with an `interruptible` FFI call, ensuring that the call can be interrupted with `SIGINT` on POSIX systems. @@ -67,6 +90,9 @@ * Correct `Bounded` instance and remove `Enum` and `Integral` instances for `Data.Ord.Down`. + * `catMaybes` is now implemented using `mapMaybe`, so that it is both a "good + consumer" and "good producer" for list-fusion (#18574) + * `Foreign.ForeignPtr.withForeignPtr` is now less aggressively optimised, avoiding the soundness issue reported in [#17760](https://gitlab.haskell.org/ghc/ghc/-/issues/17760) in exchange for @@ -75,11 +101,11 @@ diverge then the previous optimisation behavior can be recovered by instead using `GHC.ForeignPtr.unsafeWithForeignPtr`. -## 4.14.1.0 *Jul 2020* - - * Bundled with GHC 8.10.2 + * Correct `Bounded` instance and remove `Enum` and `Integral` instances for + `Data.Ord.Down`. - * Fix a precision issue in `log1mexp` (#17125) + * `Data.Foldable` methods `maximum{,By}`, `minimum{,By}`, `product` and `sum` + are now stricter by default, as well as in the class implementation for List. ## 4.14.0.0 *Jan 2020* * Bundled with GHC 8.10.1 diff --git a/config.guess b/config.guess --- a/config.guess +++ b/config.guess @@ -1,8 +1,8 @@ #! /bin/sh # Attempt to guess a canonical system name. -# Copyright 1992-2021 Free Software Foundation, Inc. +# Copyright 1992-2019 Free Software Foundation, Inc. -timestamp='2021-01-25' +timestamp='2019-03-04' # This file is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by @@ -27,12 +27,12 @@ # Originally written by Per Bothner; maintained since 2000 by Ben Elliston. # # You can get the latest version of this script from: -# https://git.savannah.gnu.org/cgit/config.git/plain/config.guess +# https://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess # # Please send patches to . -me=$(echo "$0" | sed -e 's,.*/,,') +me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] @@ -50,7 +50,7 @@ GNU config.guess ($timestamp) Originally written by Per Bothner. -Copyright 1992-2021 Free Software Foundation, Inc. +Copyright 1992-2019 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." @@ -99,11 +99,9 @@ trap 'test -z "$tmp" || rm -fr "$tmp"' 0 1 2 13 15 set_cc_for_build() { - # prevent multiple calls if $tmp is already set - test "$tmp" && return 0 : "${TMPDIR=/tmp}" # shellcheck disable=SC2039 - { tmp=$( (umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null) && test -n "$tmp" && test -d "$tmp" ; } || + { tmp=`(umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } || { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir "$tmp" 2>/dev/null) ; } || { tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir "$tmp" 2>/dev/null) && echo "Warning: creating insecure temp directory" >&2 ; } || { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } @@ -131,14 +129,16 @@ PATH=$PATH:/.attbin ; export PATH fi -UNAME_MACHINE=$( (uname -m) 2>/dev/null) || UNAME_MACHINE=unknown -UNAME_RELEASE=$( (uname -r) 2>/dev/null) || UNAME_RELEASE=unknown -UNAME_SYSTEM=$( (uname -s) 2>/dev/null) || UNAME_SYSTEM=unknown -UNAME_VERSION=$( (uname -v) 2>/dev/null) || UNAME_VERSION=unknown +UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown +UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown +UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown +UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown case "$UNAME_SYSTEM" in Linux|GNU|GNU/*) - LIBC=unknown + # If the system lacks a compiler, then just pick glibc. + # We could probably try harder. + LIBC=gnu set_cc_for_build cat <<-EOF > "$dummy.c" @@ -147,29 +147,17 @@ LIBC=uclibc #elif defined(__dietlibc__) LIBC=dietlibc - #elif defined(__GLIBC__) - LIBC=gnu #else - #include - /* First heuristic to detect musl libc. */ - #ifdef __DEFINED_va_list - LIBC=musl - #endif + LIBC=gnu #endif EOF - eval "$($CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^LIBC' | sed 's, ,,g')" - - # Second heuristic to detect musl libc. - if [ "$LIBC" = unknown ] && - command -v ldd >/dev/null && - ldd --version 2>&1 | grep -q ^musl; then - LIBC=musl - fi + eval "`$CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^LIBC' | sed 's, ,,g'`" - # If the system lacks a compiler, then just pick glibc. - # We could probably try harder. - if [ "$LIBC" = unknown ]; then - LIBC=gnu + # If ldd exists, use it to detect musl libc. + if command -v ldd >/dev/null && \ + ldd --version 2>&1 | grep -q ^musl + then + LIBC=musl fi ;; esac @@ -188,20 +176,20 @@ # # Note: NetBSD doesn't particularly care about the vendor # portion of the name. We always set it to "unknown". - UNAME_MACHINE_ARCH=$( (uname -p 2>/dev/null || \ - /sbin/sysctl -n hw.machine_arch 2>/dev/null || \ - /usr/sbin/sysctl -n hw.machine_arch 2>/dev/null || \ - echo unknown)) + sysctl="sysctl -n hw.machine_arch" + UNAME_MACHINE_ARCH=`(uname -p 2>/dev/null || \ + "/sbin/$sysctl" 2>/dev/null || \ + "/usr/sbin/$sysctl" 2>/dev/null || \ + echo unknown)` case "$UNAME_MACHINE_ARCH" in - aarch64eb) machine=aarch64_be-unknown ;; armeb) machine=armeb-unknown ;; arm*) machine=arm-unknown ;; sh3el) machine=shl-unknown ;; sh3eb) machine=sh-unknown ;; sh5el) machine=sh5le-unknown ;; earmv*) - arch=$(echo "$UNAME_MACHINE_ARCH" | sed -e 's,^e\(armv[0-9]\).*$,\1,') - endian=$(echo "$UNAME_MACHINE_ARCH" | sed -ne 's,^.*\(eb\)$,\1,p') + arch=`echo "$UNAME_MACHINE_ARCH" | sed -e 's,^e\(armv[0-9]\).*$,\1,'` + endian=`echo "$UNAME_MACHINE_ARCH" | sed -ne 's,^.*\(eb\)$,\1,p'` machine="${arch}${endian}"-unknown ;; *) machine="$UNAME_MACHINE_ARCH"-unknown ;; @@ -232,7 +220,7 @@ case "$UNAME_MACHINE_ARCH" in earm*) expr='s/^earmv[0-9]/-eabi/;s/eb$//' - abi=$(echo "$UNAME_MACHINE_ARCH" | sed -e "$expr") + abi=`echo "$UNAME_MACHINE_ARCH" | sed -e "$expr"` ;; esac # The OS release @@ -245,7 +233,7 @@ release='-gnu' ;; *) - release=$(echo "$UNAME_RELEASE" | sed -e 's/[-_].*//' | cut -d. -f1,2) + release=`echo "$UNAME_RELEASE" | sed -e 's/[-_].*//' | cut -d. -f1,2` ;; esac # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM: @@ -254,15 +242,15 @@ echo "$machine-${os}${release}${abi-}" exit ;; *:Bitrig:*:*) - UNAME_MACHINE_ARCH=$(arch | sed 's/Bitrig.//') + UNAME_MACHINE_ARCH=`arch | sed 's/Bitrig.//'` echo "$UNAME_MACHINE_ARCH"-unknown-bitrig"$UNAME_RELEASE" exit ;; *:OpenBSD:*:*) - UNAME_MACHINE_ARCH=$(arch | sed 's/OpenBSD.//') + UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'` echo "$UNAME_MACHINE_ARCH"-unknown-openbsd"$UNAME_RELEASE" exit ;; *:LibertyBSD:*:*) - UNAME_MACHINE_ARCH=$(arch | sed 's/^.*BSD\.//') + UNAME_MACHINE_ARCH=`arch | sed 's/^.*BSD\.//'` echo "$UNAME_MACHINE_ARCH"-unknown-libertybsd"$UNAME_RELEASE" exit ;; *:MidnightBSD:*:*) @@ -274,9 +262,6 @@ *:SolidBSD:*:*) echo "$UNAME_MACHINE"-unknown-solidbsd"$UNAME_RELEASE" exit ;; - *:OS108:*:*) - echo "$UNAME_MACHINE"-unknown-os108_"$UNAME_RELEASE" - exit ;; macppc:MirBSD:*:*) echo powerpc-unknown-mirbsd"$UNAME_RELEASE" exit ;; @@ -286,29 +271,26 @@ *:Sortix:*:*) echo "$UNAME_MACHINE"-unknown-sortix exit ;; - *:Twizzler:*:*) - echo "$UNAME_MACHINE"-unknown-twizzler - exit ;; *:Redox:*:*) echo "$UNAME_MACHINE"-unknown-redox exit ;; mips:OSF1:*.*) - echo mips-dec-osf1 - exit ;; + echo mips-dec-osf1 + exit ;; alpha:OSF1:*:*) case $UNAME_RELEASE in *4.0) - UNAME_RELEASE=$(/usr/sbin/sizer -v | awk '{print $3}') + UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'` ;; *5.*) - UNAME_RELEASE=$(/usr/sbin/sizer -v | awk '{print $4}') + UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'` ;; esac # According to Compaq, /usr/sbin/psrinfo has been available on # OSF/1 and Tru64 systems produced since 1995. I hope that # covers most systems running today. This code pipes the CPU # types through head -n 1, so we only detect the type of CPU 0. - ALPHA_CPU_TYPE=$(/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1) + ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1` case "$ALPHA_CPU_TYPE" in "EV4 (21064)") UNAME_MACHINE=alpha ;; @@ -346,7 +328,7 @@ # A Tn.n version is a released field test version. # A Xn.n version is an unreleased experimental baselevel. # 1.2 uses "1.2" for uname -r. - echo "$UNAME_MACHINE"-dec-osf"$(echo "$UNAME_RELEASE" | sed -e 's/^[PVTX]//' | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz)" + echo "$UNAME_MACHINE"-dec-osf"`echo "$UNAME_RELEASE" | sed -e 's/^[PVTX]//' | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz`" # Reset EXIT trap before exiting to avoid spurious non-zero exit code. exitcode=$? trap '' 0 @@ -380,7 +362,7 @@ exit ;; Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*) # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE. - if test "$( (/bin/universe) 2>/dev/null)" = att ; then + if test "`(/bin/universe) 2>/dev/null`" = att ; then echo pyramid-pyramid-sysv3 else echo pyramid-pyramid-bsd @@ -393,17 +375,17 @@ echo sparc-icl-nx6 exit ;; DRS?6000:UNIX_SV:4.2*:7* | DRS?6000:isis:4.2*:7*) - case $(/usr/bin/uname -p) in + case `/usr/bin/uname -p` in sparc) echo sparc-icl-nx7; exit ;; esac ;; s390x:SunOS:*:*) - echo "$UNAME_MACHINE"-ibm-solaris2"$(echo "$UNAME_RELEASE" | sed -e 's/[^.]*//')" + echo "$UNAME_MACHINE"-ibm-solaris2"`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`" exit ;; sun4H:SunOS:5.*:*) - echo sparc-hal-solaris2"$(echo "$UNAME_RELEASE"|sed -e 's/[^.]*//')" + echo sparc-hal-solaris2"`echo "$UNAME_RELEASE"|sed -e 's/[^.]*//'`" exit ;; sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*) - echo sparc-sun-solaris2"$(echo "$UNAME_RELEASE" | sed -e 's/[^.]*//')" + echo sparc-sun-solaris2"`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`" exit ;; i86pc:AuroraUX:5.*:* | i86xen:AuroraUX:5.*:*) echo i386-pc-auroraux"$UNAME_RELEASE" @@ -414,7 +396,7 @@ # If there is a compiler, see if it is configured for 64-bit objects. # Note that the Sun cc does not turn __LP64__ into 1 like gcc does. # This test works for both compilers. - if test "$CC_FOR_BUILD" != no_compiler_found; then + if [ "$CC_FOR_BUILD" != no_compiler_found ]; then if (echo '#ifdef __amd64'; echo IS_64BIT_ARCH; echo '#endif') | \ (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \ grep IS_64BIT_ARCH >/dev/null @@ -422,30 +404,30 @@ SUN_ARCH=x86_64 fi fi - echo "$SUN_ARCH"-pc-solaris2"$(echo "$UNAME_RELEASE"|sed -e 's/[^.]*//')" + echo "$SUN_ARCH"-pc-solaris2"`echo "$UNAME_RELEASE"|sed -e 's/[^.]*//'`" exit ;; sun4*:SunOS:6*:*) # According to config.sub, this is the proper way to canonicalize # SunOS6. Hard to guess exactly what SunOS6 will be like, but # it's likely to be more like Solaris than SunOS4. - echo sparc-sun-solaris3"$(echo "$UNAME_RELEASE"|sed -e 's/[^.]*//')" + echo sparc-sun-solaris3"`echo "$UNAME_RELEASE"|sed -e 's/[^.]*//'`" exit ;; sun4*:SunOS:*:*) - case "$(/usr/bin/arch -k)" in + case "`/usr/bin/arch -k`" in Series*|S4*) - UNAME_RELEASE=$(uname -v) + UNAME_RELEASE=`uname -v` ;; esac # Japanese Language versions have a version number like `4.1.3-JL'. - echo sparc-sun-sunos"$(echo "$UNAME_RELEASE"|sed -e 's/-/_/')" + echo sparc-sun-sunos"`echo "$UNAME_RELEASE"|sed -e 's/-/_/'`" exit ;; sun3*:SunOS:*:*) echo m68k-sun-sunos"$UNAME_RELEASE" exit ;; sun*:*:4.2BSD:*) - UNAME_RELEASE=$( (sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null) + UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null` test "x$UNAME_RELEASE" = x && UNAME_RELEASE=3 - case "$(/bin/arch)" in + case "`/bin/arch`" in sun3) echo m68k-sun-sunos"$UNAME_RELEASE" ;; @@ -525,8 +507,8 @@ } EOF $CC_FOR_BUILD -o "$dummy" "$dummy.c" && - dummyarg=$(echo "$UNAME_RELEASE" | sed -n 's/\([0-9]*\).*/\1/p') && - SYSTEM_NAME=$("$dummy" "$dummyarg") && + dummyarg=`echo "$UNAME_RELEASE" | sed -n 's/\([0-9]*\).*/\1/p'` && + SYSTEM_NAME=`"$dummy" "$dummyarg"` && { echo "$SYSTEM_NAME"; exit; } echo mips-mips-riscos"$UNAME_RELEASE" exit ;; @@ -553,11 +535,11 @@ exit ;; AViiON:dgux:*:*) # DG/UX returns AViiON for all architectures - UNAME_PROCESSOR=$(/usr/bin/uname -p) - if test "$UNAME_PROCESSOR" = mc88100 || test "$UNAME_PROCESSOR" = mc88110 + UNAME_PROCESSOR=`/usr/bin/uname -p` + if [ "$UNAME_PROCESSOR" = mc88100 ] || [ "$UNAME_PROCESSOR" = mc88110 ] then - if test "$TARGET_BINARY_INTERFACE"x = m88kdguxelfx || \ - test "$TARGET_BINARY_INTERFACE"x = x + if [ "$TARGET_BINARY_INTERFACE"x = m88kdguxelfx ] || \ + [ "$TARGET_BINARY_INTERFACE"x = x ] then echo m88k-dg-dgux"$UNAME_RELEASE" else @@ -581,17 +563,17 @@ echo m68k-tektronix-bsd exit ;; *:IRIX*:*:*) - echo mips-sgi-irix"$(echo "$UNAME_RELEASE"|sed -e 's/-/_/g')" + echo mips-sgi-irix"`echo "$UNAME_RELEASE"|sed -e 's/-/_/g'`" exit ;; ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX. echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id - exit ;; # Note that: echo "'$(uname -s)'" gives 'AIX ' + exit ;; # Note that: echo "'`uname -s`'" gives 'AIX ' i*86:AIX:*:*) echo i386-ibm-aix exit ;; ia64:AIX:*:*) - if test -x /usr/bin/oslevel ; then - IBM_REV=$(/usr/bin/oslevel) + if [ -x /usr/bin/oslevel ] ; then + IBM_REV=`/usr/bin/oslevel` else IBM_REV="$UNAME_VERSION.$UNAME_RELEASE" fi @@ -611,7 +593,7 @@ exit(0); } EOF - if $CC_FOR_BUILD -o "$dummy" "$dummy.c" && SYSTEM_NAME=$("$dummy") + if $CC_FOR_BUILD -o "$dummy" "$dummy.c" && SYSTEM_NAME=`"$dummy"` then echo "$SYSTEM_NAME" else @@ -624,15 +606,15 @@ fi exit ;; *:AIX:*:[4567]) - IBM_CPU_ID=$(/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }') + IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'` if /usr/sbin/lsattr -El "$IBM_CPU_ID" | grep ' POWER' >/dev/null 2>&1; then IBM_ARCH=rs6000 else IBM_ARCH=powerpc fi - if test -x /usr/bin/lslpp ; then - IBM_REV=$(/usr/bin/lslpp -Lqc bos.rte.libc | - awk -F: '{ print $3 }' | sed s/[0-9]*$/0/) + if [ -x /usr/bin/lslpp ] ; then + IBM_REV=`/usr/bin/lslpp -Lqc bos.rte.libc | + awk -F: '{ print $3 }' | sed s/[0-9]*$/0/` else IBM_REV="$UNAME_VERSION.$UNAME_RELEASE" fi @@ -660,14 +642,14 @@ echo m68k-hp-bsd4.4 exit ;; 9000/[34678]??:HP-UX:*:*) - HPUX_REV=$(echo "$UNAME_RELEASE"|sed -e 's/[^.]*.[0B]*//') + HPUX_REV=`echo "$UNAME_RELEASE"|sed -e 's/[^.]*.[0B]*//'` case "$UNAME_MACHINE" in 9000/31?) HP_ARCH=m68000 ;; 9000/[34]??) HP_ARCH=m68k ;; 9000/[678][0-9][0-9]) - if test -x /usr/bin/getconf; then - sc_cpu_version=$(/usr/bin/getconf SC_CPU_VERSION 2>/dev/null) - sc_kernel_bits=$(/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null) + if [ -x /usr/bin/getconf ]; then + sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null` + sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null` case "$sc_cpu_version" in 523) HP_ARCH=hppa1.0 ;; # CPU_PA_RISC1_0 528) HP_ARCH=hppa1.1 ;; # CPU_PA_RISC1_1 @@ -679,7 +661,7 @@ esac ;; esac fi - if test "$HP_ARCH" = ""; then + if [ "$HP_ARCH" = "" ]; then set_cc_for_build sed 's/^ //' << EOF > "$dummy.c" @@ -714,11 +696,11 @@ exit (0); } EOF - (CCOPTS="" $CC_FOR_BUILD -o "$dummy" "$dummy.c" 2>/dev/null) && HP_ARCH=$("$dummy") + (CCOPTS="" $CC_FOR_BUILD -o "$dummy" "$dummy.c" 2>/dev/null) && HP_ARCH=`"$dummy"` test -z "$HP_ARCH" && HP_ARCH=hppa fi ;; esac - if test "$HP_ARCH" = hppa2.0w + if [ "$HP_ARCH" = hppa2.0w ] then set_cc_for_build @@ -742,7 +724,7 @@ echo "$HP_ARCH"-hp-hpux"$HPUX_REV" exit ;; ia64:HP-UX:*:*) - HPUX_REV=$(echo "$UNAME_RELEASE"|sed -e 's/[^.]*.[0B]*//') + HPUX_REV=`echo "$UNAME_RELEASE"|sed -e 's/[^.]*.[0B]*//'` echo ia64-hp-hpux"$HPUX_REV" exit ;; 3050*:HI-UX:*:*) @@ -772,7 +754,7 @@ exit (0); } EOF - $CC_FOR_BUILD -o "$dummy" "$dummy.c" && SYSTEM_NAME=$("$dummy") && + $CC_FOR_BUILD -o "$dummy" "$dummy.c" && SYSTEM_NAME=`"$dummy"` && { echo "$SYSTEM_NAME"; exit; } echo unknown-hitachi-hiuxwe2 exit ;; @@ -792,7 +774,7 @@ echo hppa1.0-hp-osf exit ;; i*86:OSF1:*:*) - if test -x /usr/sbin/sysversion ; then + if [ -x /usr/sbin/sysversion ] ; then echo "$UNAME_MACHINE"-unknown-osf1mk else echo "$UNAME_MACHINE"-unknown-osf1 @@ -841,14 +823,14 @@ echo craynv-cray-unicosmp"$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/' exit ;; F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*) - FUJITSU_PROC=$(uname -m | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz) - FUJITSU_SYS=$(uname -p | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/\///') - FUJITSU_REL=$(echo "$UNAME_RELEASE" | sed -e 's/ /_/') + FUJITSU_PROC=`uname -m | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz` + FUJITSU_SYS=`uname -p | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/\///'` + FUJITSU_REL=`echo "$UNAME_RELEASE" | sed -e 's/ /_/'` echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; 5000:UNIX_System_V:4.*:*) - FUJITSU_SYS=$(uname -p | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/\///') - FUJITSU_REL=$(echo "$UNAME_RELEASE" | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/ /_/') + FUJITSU_SYS=`uname -p | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/\///'` + FUJITSU_REL=`echo "$UNAME_RELEASE" | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/ /_/'` echo "sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*) @@ -861,25 +843,25 @@ echo "$UNAME_MACHINE"-unknown-bsdi"$UNAME_RELEASE" exit ;; arm:FreeBSD:*:*) - UNAME_PROCESSOR=$(uname -p) + UNAME_PROCESSOR=`uname -p` set_cc_for_build if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ARM_PCS_VFP then - echo "${UNAME_PROCESSOR}"-unknown-freebsd"$(echo ${UNAME_RELEASE}|sed -e 's/[-(].*//')"-gnueabi + echo "${UNAME_PROCESSOR}"-unknown-freebsd"`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`"-gnueabi else - echo "${UNAME_PROCESSOR}"-unknown-freebsd"$(echo ${UNAME_RELEASE}|sed -e 's/[-(].*//')"-gnueabihf + echo "${UNAME_PROCESSOR}"-unknown-freebsd"`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`"-gnueabihf fi exit ;; *:FreeBSD:*:*) - UNAME_PROCESSOR=$(/usr/bin/uname -p) + UNAME_PROCESSOR=`/usr/bin/uname -p` case "$UNAME_PROCESSOR" in amd64) UNAME_PROCESSOR=x86_64 ;; i386) UNAME_PROCESSOR=i586 ;; esac - echo "$UNAME_PROCESSOR"-unknown-freebsd"$(echo "$UNAME_RELEASE"|sed -e 's/[-(].*//')" + echo "$UNAME_PROCESSOR"-unknown-freebsd"`echo "$UNAME_RELEASE"|sed -e 's/[-(].*//'`" exit ;; i*:CYGWIN*:*) echo "$UNAME_MACHINE"-pc-cygwin @@ -915,15 +897,15 @@ echo x86_64-pc-cygwin exit ;; prep*:SunOS:5.*:*) - echo powerpcle-unknown-solaris2"$(echo "$UNAME_RELEASE"|sed -e 's/[^.]*//')" + echo powerpcle-unknown-solaris2"`echo "$UNAME_RELEASE"|sed -e 's/[^.]*//'`" exit ;; *:GNU:*:*) # the GNU system - echo "$(echo "$UNAME_MACHINE"|sed -e 's,[-/].*$,,')-unknown-$LIBC$(echo "$UNAME_RELEASE"|sed -e 's,/.*$,,')" + echo "`echo "$UNAME_MACHINE"|sed -e 's,[-/].*$,,'`-unknown-$LIBC`echo "$UNAME_RELEASE"|sed -e 's,/.*$,,'`" exit ;; *:GNU/*:*:*) # other systems with GNU libc and userland - echo "$UNAME_MACHINE-unknown-$(echo "$UNAME_SYSTEM" | sed 's,^[^/]*/,,' | tr "[:upper:]" "[:lower:]")$(echo "$UNAME_RELEASE"|sed -e 's/[-(].*//')-$LIBC" + echo "$UNAME_MACHINE-unknown-`echo "$UNAME_SYSTEM" | sed 's,^[^/]*/,,' | tr "[:upper:]" "[:lower:]"``echo "$UNAME_RELEASE"|sed -e 's/[-(].*//'`-$LIBC" exit ;; *:Minix:*:*) echo "$UNAME_MACHINE"-unknown-minix @@ -936,7 +918,7 @@ echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; alpha:Linux:*:*) - case $(sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' /proc/cpuinfo 2>/dev/null) in + case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` in EV5) UNAME_MACHINE=alphaev5 ;; EV56) UNAME_MACHINE=alphaev56 ;; PCA56) UNAME_MACHINE=alphapca56 ;; @@ -995,9 +977,6 @@ k1om:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; - loongarch32:Linux:*:* | loongarch64:Linux:*:* | loongarchx32:Linux:*:*) - echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" - exit ;; m32r*:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; @@ -1048,7 +1027,7 @@ #endif #endif EOF - eval "$($CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^CPU\|^MIPS_ENDIAN\|^LIBCABI')" + eval "`$CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^CPU\|^MIPS_ENDIAN\|^LIBCABI'`" test "x$CPU" != x && { echo "$CPU${MIPS_ENDIAN}-unknown-linux-$LIBCABI"; exit; } ;; mips64el:Linux:*:*) @@ -1068,7 +1047,7 @@ exit ;; parisc:Linux:*:* | hppa:Linux:*:*) # Look for CPU level - case $(grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2) in + case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in PA7*) echo hppa1.1-unknown-linux-"$LIBC" ;; PA8*) echo hppa2.0-unknown-linux-"$LIBC" ;; *) echo hppa-unknown-linux-"$LIBC" ;; @@ -1086,7 +1065,7 @@ ppcle:Linux:*:*) echo powerpcle-unknown-linux-"$LIBC" exit ;; - riscv32:Linux:*:* | riscv32be:Linux:*:* | riscv64:Linux:*:* | riscv64be:Linux:*:*) + riscv32:Linux:*:* | riscv64:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" exit ;; s390:Linux:*:* | s390x:Linux:*:*) @@ -1108,17 +1087,7 @@ echo "$UNAME_MACHINE"-dec-linux-"$LIBC" exit ;; x86_64:Linux:*:*) - set_cc_for_build - LIBCABI=$LIBC - if test "$CC_FOR_BUILD" != no_compiler_found; then - if (echo '#ifdef __ILP32__'; echo IS_X32; echo '#endif') | \ - (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \ - grep IS_X32 >/dev/null - then - LIBCABI="$LIBC"x32 - fi - fi - echo "$UNAME_MACHINE"-pc-linux-"$LIBCABI" + echo "$UNAME_MACHINE"-pc-linux-"$LIBC" exit ;; xtensa*:Linux:*:*) echo "$UNAME_MACHINE"-unknown-linux-"$LIBC" @@ -1158,7 +1127,7 @@ echo "$UNAME_MACHINE"-pc-msdosdjgpp exit ;; i*86:*:4.*:*) - UNAME_REL=$(echo "$UNAME_RELEASE" | sed 's/\/MP$//') + UNAME_REL=`echo "$UNAME_RELEASE" | sed 's/\/MP$//'` if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then echo "$UNAME_MACHINE"-univel-sysv"$UNAME_REL" else @@ -1167,7 +1136,7 @@ exit ;; i*86:*:5:[678]*) # UnixWare 7.x, OpenUNIX and OpenServer 6. - case $(/bin/uname -X | grep "^Machine") in + case `/bin/uname -X | grep "^Machine"` in *486*) UNAME_MACHINE=i486 ;; *Pentium) UNAME_MACHINE=i586 ;; *Pent*|*Celeron) UNAME_MACHINE=i686 ;; @@ -1176,10 +1145,10 @@ exit ;; i*86:*:3.2:*) if test -f /usr/options/cb.name; then - UNAME_REL=$(sed -n 's/.*Version //p' /dev/null >/dev/null ; then - UNAME_REL=$( (/bin/uname -X|grep Release|sed -e 's/.*= //')) + UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')` (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486 (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \ && UNAME_MACHINE=i586 @@ -1229,7 +1198,7 @@ 3[345]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0 | S7501*:*:4.0:3.0) OS_REL='' test -r /etc/.relid \ - && OS_REL=.$(sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid) + && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4.3"$OS_REL"; exit; } /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ @@ -1240,7 +1209,7 @@ NCR*:*:4.2:* | MPRAS*:*:4.2:*) OS_REL='.3' test -r /etc/.relid \ - && OS_REL=.$(sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid) + && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4.3"$OS_REL"; exit; } /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ @@ -1273,7 +1242,7 @@ exit ;; *:SINIX-*:*:*) if uname -p 2>/dev/null >/dev/null ; then - UNAME_MACHINE=$( (uname -p) 2>/dev/null) + UNAME_MACHINE=`(uname -p) 2>/dev/null` echo "$UNAME_MACHINE"-sni-sysv4 else echo ns32k-sni-sysv @@ -1307,7 +1276,7 @@ echo mips-sony-newsos6 exit ;; R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*) - if test -d /usr/nec; then + if [ -d /usr/nec ]; then echo mips-nec-sysv"$UNAME_RELEASE" else echo mips-unknown-sysv"$UNAME_RELEASE" @@ -1355,48 +1324,44 @@ *:Rhapsody:*:*) echo "$UNAME_MACHINE"-apple-rhapsody"$UNAME_RELEASE" exit ;; - arm64:Darwin:*:*) - echo aarch64-apple-darwin"$UNAME_RELEASE" - exit ;; *:Darwin:*:*) - UNAME_PROCESSOR=$(uname -p) - case $UNAME_PROCESSOR in - unknown) UNAME_PROCESSOR=powerpc ;; - esac - if command -v xcode-select > /dev/null 2> /dev/null && \ - ! xcode-select --print-path > /dev/null 2> /dev/null ; then - # Avoid executing cc if there is no toolchain installed as - # cc will be a stub that puts up a graphical alert - # prompting the user to install developer tools. - CC_FOR_BUILD=no_compiler_found - else - set_cc_for_build + UNAME_PROCESSOR=`uname -p` || UNAME_PROCESSOR=unknown + set_cc_for_build + if test "$UNAME_PROCESSOR" = unknown ; then + UNAME_PROCESSOR=powerpc fi - if test "$CC_FOR_BUILD" != no_compiler_found; then - if (echo '#ifdef __LP64__'; echo IS_64BIT_ARCH; echo '#endif') | \ - (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \ - grep IS_64BIT_ARCH >/dev/null - then - case $UNAME_PROCESSOR in - i386) UNAME_PROCESSOR=x86_64 ;; - powerpc) UNAME_PROCESSOR=powerpc64 ;; - esac - fi - # On 10.4-10.6 one might compile for PowerPC via gcc -arch ppc - if (echo '#ifdef __POWERPC__'; echo IS_PPC; echo '#endif') | \ - (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \ - grep IS_PPC >/dev/null - then - UNAME_PROCESSOR=powerpc + if test "`echo "$UNAME_RELEASE" | sed -e 's/\..*//'`" -le 10 ; then + if [ "$CC_FOR_BUILD" != no_compiler_found ]; then + if (echo '#ifdef __LP64__'; echo IS_64BIT_ARCH; echo '#endif') | \ + (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \ + grep IS_64BIT_ARCH >/dev/null + then + case $UNAME_PROCESSOR in + i386) UNAME_PROCESSOR=x86_64 ;; + powerpc) UNAME_PROCESSOR=powerpc64 ;; + esac + fi + # On 10.4-10.6 one might compile for PowerPC via gcc -arch ppc + if (echo '#ifdef __POWERPC__'; echo IS_PPC; echo '#endif') | \ + (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \ + grep IS_PPC >/dev/null + then + UNAME_PROCESSOR=powerpc + fi fi elif test "$UNAME_PROCESSOR" = i386 ; then - # uname -m returns i386 or x86_64 - UNAME_PROCESSOR=$UNAME_MACHINE + # Avoid executing cc on OS X 10.9, as it ships with a stub + # that puts up a graphical alert prompting to install + # developer tools. Any system running Mac OS X 10.7 or + # later (Darwin 11 and later) is required to have a 64-bit + # processor. This is not true of the ARM version of Darwin + # that Apple uses in portable devices. + UNAME_PROCESSOR=x86_64 fi echo "$UNAME_PROCESSOR"-apple-darwin"$UNAME_RELEASE" exit ;; *:procnto*:*:* | *:QNX:[0123456789]*:*) - UNAME_PROCESSOR=$(uname -p) + UNAME_PROCESSOR=`uname -p` if test "$UNAME_PROCESSOR" = x86; then UNAME_PROCESSOR=i386 UNAME_MACHINE=pc @@ -1464,10 +1429,10 @@ echo mips-sei-seiux"$UNAME_RELEASE" exit ;; *:DragonFly:*:*) - echo "$UNAME_MACHINE"-unknown-dragonfly"$(echo "$UNAME_RELEASE"|sed -e 's/[-(].*//')" + echo "$UNAME_MACHINE"-unknown-dragonfly"`echo "$UNAME_RELEASE"|sed -e 's/[-(].*//'`" exit ;; *:*VMS:*:*) - UNAME_MACHINE=$( (uname -p) 2>/dev/null) + UNAME_MACHINE=`(uname -p) 2>/dev/null` case "$UNAME_MACHINE" in A*) echo alpha-dec-vms ; exit ;; I*) echo ia64-dec-vms ; exit ;; @@ -1477,13 +1442,13 @@ echo i386-pc-xenix exit ;; i*86:skyos:*:*) - echo "$UNAME_MACHINE"-pc-skyos"$(echo "$UNAME_RELEASE" | sed -e 's/ .*$//')" + echo "$UNAME_MACHINE"-pc-skyos"`echo "$UNAME_RELEASE" | sed -e 's/ .*$//'`" exit ;; i*86:rdos:*:*) echo "$UNAME_MACHINE"-pc-rdos exit ;; - *:AROS:*:*) - echo "$UNAME_MACHINE"-unknown-aros + i*86:AROS:*:*) + echo "$UNAME_MACHINE"-pc-aros exit ;; x86_64:VMkernel:*:*) echo "$UNAME_MACHINE"-unknown-esx @@ -1503,14 +1468,6 @@ #include #include #endif -#if defined(ultrix) || defined(_ultrix) || defined(__ultrix) || defined(__ultrix__) -#if defined (vax) || defined (__vax) || defined (__vax__) || defined(mips) || defined(__mips) || defined(__mips__) || defined(MIPS) || defined(__MIPS__) -#include -#if defined(_SIZE_T_) || defined(SIGLOST) -#include -#endif -#endif -#endif main () { #if defined (sony) @@ -1535,7 +1492,7 @@ #define __ARCHITECTURE__ "m68k" #endif int version; - version=$( (hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null); + version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`; if (version < 4) printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version); else @@ -1598,26 +1555,21 @@ printf ("vax-dec-bsd\n"); exit (0); #endif #else -#if defined(_SIZE_T_) || defined(SIGLOST) - struct utsname un; - uname (&un); - printf ("vax-dec-ultrix%s\n", un.release); exit (0); -#else printf ("vax-dec-ultrix\n"); exit (0); #endif #endif -#endif #if defined(ultrix) || defined(_ultrix) || defined(__ultrix) || defined(__ultrix__) #if defined(mips) || defined(__mips) || defined(__mips__) || defined(MIPS) || defined(__MIPS__) -#if defined(_SIZE_T_) || defined(SIGLOST) - struct utsname *un; - uname (&un); - printf ("mips-dec-ultrix%s\n", un.release); exit (0); +#include +#if defined(_SIZE_T_) /* >= ULTRIX4 */ + printf ("mips-dec-ultrix4\n"); exit (0); #else - printf ("mips-dec-ultrix\n"); exit (0); +#if defined(ULTRIX3) || defined(ultrix3) || defined(SIGLOST) + printf ("mips-dec-ultrix3\n"); exit (0); #endif #endif #endif +#endif #if defined (alliant) && defined (i860) printf ("i860-alliant-bsd\n"); exit (0); @@ -1627,7 +1579,7 @@ } EOF -$CC_FOR_BUILD -o "$dummy" "$dummy.c" 2>/dev/null && SYSTEM_NAME=$($dummy) && +$CC_FOR_BUILD -o "$dummy" "$dummy.c" 2>/dev/null && SYSTEM_NAME=`$dummy` && { echo "$SYSTEM_NAME"; exit; } # Apollos put the system type in the environment. @@ -1652,15 +1604,9 @@ operating system you are using. If your script is old, overwrite *all* copies of config.guess and config.sub with the latest versions from: - https://git.savannah.gnu.org/cgit/config.git/plain/config.guess + https://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess and - https://git.savannah.gnu.org/cgit/config.git/plain/config.sub -EOF - -year=$(echo $timestamp | sed 's,-.*,,') -# shellcheck disable=SC2003 -if test "$(expr "$(date +%Y)" - "$year")" -lt 3 ; then - cat >&2 </dev/null || echo unknown) -uname -r = $( (uname -r) 2>/dev/null || echo unknown) -uname -s = $( (uname -s) 2>/dev/null || echo unknown) -uname -v = $( (uname -v) 2>/dev/null || echo unknown) +uname -m = `(uname -m) 2>/dev/null || echo unknown` +uname -r = `(uname -r) 2>/dev/null || echo unknown` +uname -s = `(uname -s) 2>/dev/null || echo unknown` +uname -v = `(uname -v) 2>/dev/null || echo unknown` -/usr/bin/uname -p = $( (/usr/bin/uname -p) 2>/dev/null) -/bin/uname -X = $( (/bin/uname -X) 2>/dev/null) +/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null` +/bin/uname -X = `(/bin/uname -X) 2>/dev/null` -hostinfo = $( (hostinfo) 2>/dev/null) -/bin/universe = $( (/bin/universe) 2>/dev/null) -/usr/bin/arch -k = $( (/usr/bin/arch -k) 2>/dev/null) -/bin/arch = $( (/bin/arch) 2>/dev/null) -/usr/bin/oslevel = $( (/usr/bin/oslevel) 2>/dev/null) -/usr/convex/getsysinfo = $( (/usr/convex/getsysinfo) 2>/dev/null) +hostinfo = `(hostinfo) 2>/dev/null` +/bin/universe = `(/bin/universe) 2>/dev/null` +/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null` +/bin/arch = `(/bin/arch) 2>/dev/null` +/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null` +/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null` UNAME_MACHINE = "$UNAME_MACHINE" UNAME_RELEASE = "$UNAME_RELEASE" UNAME_SYSTEM = "$UNAME_SYSTEM" UNAME_VERSION = "$UNAME_VERSION" EOF -fi exit 1 diff --git a/config.sub b/config.sub --- a/config.sub +++ b/config.sub @@ -1,8 +1,8 @@ #! /bin/sh # Configuration validation subroutine script. -# Copyright 1992-2021 Free Software Foundation, Inc. +# Copyright 1992-2020 Free Software Foundation, Inc. -timestamp='2021-01-08' +timestamp='2020-09-08' # This file is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by @@ -33,7 +33,7 @@ # Otherwise, we print the canonical config type on stdout and succeed. # You can get the latest version of this script from: -# https://git.savannah.gnu.org/cgit/config.git/plain/config.sub +# https://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub # This file is supposed to be the same for all GNU packages # and recognize all the CPU types, system types and aliases @@ -50,7 +50,7 @@ # CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM # It is wrong to echo any other type of specification. -me=$(echo "$0" | sed -e 's,.*/,,') +me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] CPU-MFR-OPSYS or ALIAS @@ -67,7 +67,7 @@ version="\ GNU config.sub ($timestamp) -Copyright 1992-2021 Free Software Foundation, Inc. +Copyright 1992-2020 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." @@ -769,22 +769,22 @@ vendor=hp ;; i*86v32) - cpu=$(echo "$1" | sed -e 's/86.*/86/') + cpu=`echo "$1" | sed -e 's/86.*/86/'` vendor=pc basic_os=sysv32 ;; i*86v4*) - cpu=$(echo "$1" | sed -e 's/86.*/86/') + cpu=`echo "$1" | sed -e 's/86.*/86/'` vendor=pc basic_os=sysv4 ;; i*86v) - cpu=$(echo "$1" | sed -e 's/86.*/86/') + cpu=`echo "$1" | sed -e 's/86.*/86/'` vendor=pc basic_os=sysv ;; i*86sol2) - cpu=$(echo "$1" | sed -e 's/86.*/86/') + cpu=`echo "$1" | sed -e 's/86.*/86/'` vendor=pc basic_os=solaris2 ;; @@ -917,7 +917,7 @@ ;; leon-*|leon[3-9]-*) cpu=sparc - vendor=$(echo "$basic_machine" | sed 's/-.*//') + vendor=`echo "$basic_machine" | sed 's/-.*//'` ;; *-*) @@ -1084,7 +1084,7 @@ cpu=mipsisa64sb1el ;; sh5e[lb]-*) - cpu=$(echo "$cpu" | sed 's/^\(sh.\)e\(.\)$/\1\2e/') + cpu=`echo "$cpu" | sed 's/^\(sh.\)e\(.\)$/\1\2e/'` ;; spur-*) cpu=spur @@ -1102,7 +1102,7 @@ cpu=x86_64 ;; xscale-* | xscalee[bl]-*) - cpu=$(echo "$cpu" | sed 's/^xscale/arm/') + cpu=`echo "$cpu" | sed 's/^xscale/arm/'` ;; arm64-*) cpu=aarch64 @@ -1185,7 +1185,6 @@ | k1om \ | le32 | le64 \ | lm32 \ - | loongarch32 | loongarch64 | loongarchx32 \ | m32c | m32r | m32rle \ | m5200 | m68000 | m680[012346]0 | m68360 | m683?2 | m68k \ | m6811 | m68hc11 | m6812 | m68hc12 | m68hcs12x \ @@ -1230,7 +1229,7 @@ | powerpc | powerpc64 | powerpc64le | powerpcle | powerpcspe \ | pru \ | pyramid \ - | riscv | riscv32 | riscv32be | riscv64 | riscv64be \ + | riscv | riscv32 | riscv64 \ | rl78 | romp | rs6000 | rx \ | s390 | s390x \ | score \ @@ -1242,7 +1241,6 @@ | sparcv8 | sparcv9 | sparcv9b | sparcv9v | sv1 | sx* \ | spu \ | tahoe \ - | thumbv7* \ | tic30 | tic4x | tic54x | tic55x | tic6x | tic80 \ | tron \ | ubicom32 \ @@ -1288,15 +1286,11 @@ case $basic_os in gnu/linux*) kernel=linux - os=$(echo $basic_os | sed -e 's|gnu/linux|gnu|') - ;; - os2-emx) - kernel=os2 - os=$(echo $basic_os | sed -e 's|os2-emx|emx|') + os=`echo $basic_os | sed -e 's|gnu/linux|gnu|'` ;; nto-qnx*) kernel=nto - os=$(echo $basic_os | sed -e 's|nto-qnx|qnx|') + os=`echo $basic_os | sed -e 's|nto-qnx|qnx|'` ;; *-*) # shellcheck disable=SC2162 @@ -1307,11 +1301,11 @@ # Default OS when just kernel was specified nto*) kernel=nto - os=$(echo $basic_os | sed -e 's|nto|qnx|') + os=`echo $basic_os | sed -e 's|nto|qnx|'` ;; linux*) kernel=linux - os=$(echo $basic_os | sed -e 's|linux|gnu|') + os=`echo $basic_os | sed -e 's|linux|gnu|'` ;; *) kernel= @@ -1332,7 +1326,7 @@ os=cnk ;; solaris1 | solaris1.*) - os=$(echo $os | sed -e 's|solaris1|sunos4|') + os=`echo $os | sed -e 's|solaris1|sunos4|'` ;; solaris) os=solaris2 @@ -1361,7 +1355,7 @@ os=sco3.2v4 ;; sco3.2.[4-9]*) - os=$(echo $os | sed -e 's/sco3.2./sco3.2v/') + os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` ;; sco*v* | scout) # Don't match below @@ -1391,7 +1385,7 @@ os=lynxos ;; mac[0-9]*) - os=$(echo "$os" | sed -e 's|mac|macos|') + os=`echo "$os" | sed -e 's|mac|macos|'` ;; opened*) os=openedition @@ -1400,10 +1394,10 @@ os=os400 ;; sunos5*) - os=$(echo "$os" | sed -e 's|sunos5|solaris2|') + os=`echo "$os" | sed -e 's|sunos5|solaris2|'` ;; sunos6*) - os=$(echo "$os" | sed -e 's|sunos6|solaris3|') + os=`echo "$os" | sed -e 's|sunos6|solaris3|'` ;; wince*) os=wince @@ -1437,7 +1431,7 @@ ;; # Preserve the version number of sinix5. sinix5.*) - os=$(echo $os | sed -e 's|sinix|sysv|') + os=`echo $os | sed -e 's|sinix|sysv|'` ;; sinix*) os=sysv4 @@ -1683,14 +1677,11 @@ # Now, validate our (potentially fixed-up) OS. case $os in - # Sometimes we do "kernel-libc", so those need to count as OSes. + # Sometimes we do "kernel-abi", so those need to count as OSes. musl* | newlib* | uclibc*) ;; - # Likewise for "kernel-abi" - eabi* | gnueabi*) - ;; - # VxWorks passes extra cpu info in the 4th filed. - simlinux | simwindows | spe) + # Likewise for "kernel-libc" + eabi | eabihf | gnueabi | gnueabihf) ;; # Now accept the basic system types. # The portable systems comes first. @@ -1725,7 +1716,7 @@ | skyos* | haiku* | rdos* | toppers* | drops* | es* \ | onefs* | tirtos* | phoenix* | fuchsia* | redox* | bme* \ | midnightbsd* | amdhsa* | unleashed* | emscripten* | wasi* \ - | nsk* | powerunix* | genode* | zvmoe* | qnx* | emx*) + | nsk* | powerunix* | genode* | zvmoe* | qnx* ) ;; # This one is extra strict with allowed versions sco3.2v2 | sco3.2v[4-9]* | sco5v6*) @@ -1744,8 +1735,6 @@ case $kernel-$os in linux-gnu* | linux-dietlibc* | linux-android* | linux-newlib* | linux-musl* | linux-uclibc* ) ;; - uclinux-uclibc* ) - ;; -dietlibc* | -newlib* | -musl* | -uclibc* ) # These are just libc implementations, not actual OSes, and thus # require a kernel. @@ -1754,11 +1743,7 @@ ;; kfreebsd*-gnu* | kopensolaris*-gnu*) ;; - vxworks-simlinux | vxworks-simwindows | vxworks-spe) - ;; nto-qnx*) - ;; - os2-emx) ;; *-eabi* | *-gnueabi*) ;; diff --git a/configure b/configure --- a/configure +++ b/configure @@ -1,34001 +1,32947 @@ #! /bin/sh # Guess values for system-dependent variables and create Makefiles. -# Generated by GNU Autoconf 2.71 for Haskell base package 1.0. -# -# Report bugs to . -# -# -# Copyright (C) 1992-1996, 1998-2017, 2020-2021 Free Software Foundation, -# Inc. -# -# -# This configure script is free software; the Free Software Foundation -# gives unlimited permission to copy, distribute and modify it. -## -------------------- ## -## M4sh Initialization. ## -## -------------------- ## - -# Be more Bourne compatible -DUALCASE=1; export DUALCASE # for MKS sh -as_nop=: -if test ${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1 -then : - emulate sh - NULLCMD=: - # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which - # is contrary to our usage. Disable this feature. - alias -g '${1+"$@"}'='"$@"' - setopt NO_GLOB_SUBST -else $as_nop - case `(set -o) 2>/dev/null` in #( - *posix*) : - set -o posix ;; #( - *) : - ;; -esac -fi - - - -# Reset variables that may have inherited troublesome values from -# the environment. - -# IFS needs to be set, to space, tab, and newline, in precisely that order. -# (If _AS_PATH_WALK were called with IFS unset, it would have the -# side effect of setting IFS to empty, thus disabling word splitting.) -# Quoting is to prevent editors from complaining about space-tab. -as_nl=' -' -export as_nl -IFS=" "" $as_nl" - -PS1='$ ' -PS2='> ' -PS4='+ ' - -# Ensure predictable behavior from utilities with locale-dependent output. -LC_ALL=C -export LC_ALL -LANGUAGE=C -export LANGUAGE - -# We cannot yet rely on "unset" to work, but we need these variables -# to be unset--not just set to an empty or harmless value--now, to -# avoid bugs in old shells (e.g. pre-3.0 UWIN ksh). This construct -# also avoids known problems related to "unset" and subshell syntax -# in other old shells (e.g. bash 2.01 and pdksh 5.2.14). -for as_var in BASH_ENV ENV MAIL MAILPATH CDPATH -do eval test \${$as_var+y} \ - && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : -done - -# Ensure that fds 0, 1, and 2 are open. -if (exec 3>&0) 2>/dev/null; then :; else exec 0&1) 2>/dev/null; then :; else exec 1>/dev/null; fi -if (exec 3>&2) ; then :; else exec 2>/dev/null; fi - -# The user is always right. -if ${PATH_SEPARATOR+false} :; then - PATH_SEPARATOR=: - (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { - (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || - PATH_SEPARATOR=';' - } -fi - - -# Find who we are. Look in the path if we contain no directory separator. -as_myself= -case $0 in #(( - *[\\/]* ) as_myself=$0 ;; - *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - case $as_dir in #((( - '') as_dir=./ ;; - */) ;; - *) as_dir=$as_dir/ ;; - esac - test -r "$as_dir$0" && as_myself=$as_dir$0 && break - done -IFS=$as_save_IFS - - ;; -esac -# We did not find ourselves, most probably we were run as `sh COMMAND' -# in which case we are not to be found in the path. -if test "x$as_myself" = x; then - as_myself=$0 -fi -if test ! -f "$as_myself"; then - printf "%s\n" "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 - exit 1 -fi - - -# Use a proper internal environment variable to ensure we don't fall - # into an infinite loop, continuously re-executing ourselves. - if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then - _as_can_reexec=no; export _as_can_reexec; - # We cannot yet assume a decent shell, so we have to provide a -# neutralization value for shells without unset; and this also -# works around shells that cannot unset nonexistent variables. -# Preserve -v and -x to the replacement shell. -BASH_ENV=/dev/null -ENV=/dev/null -(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV -case $- in # (((( - *v*x* | *x*v* ) as_opts=-vx ;; - *v* ) as_opts=-v ;; - *x* ) as_opts=-x ;; - * ) as_opts= ;; -esac -exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} -# Admittedly, this is quite paranoid, since all the known shells bail -# out after a failed `exec'. -printf "%s\n" "$0: could not re-execute with $CONFIG_SHELL" >&2 -exit 255 - fi - # We don't want this to propagate to other subprocesses. - { _as_can_reexec=; unset _as_can_reexec;} -if test "x$CONFIG_SHELL" = x; then - as_bourne_compatible="as_nop=: -if test \${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1 -then : - emulate sh - NULLCMD=: - # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which - # is contrary to our usage. Disable this feature. - alias -g '\${1+\"\$@\"}'='\"\$@\"' - setopt NO_GLOB_SUBST -else \$as_nop - case \`(set -o) 2>/dev/null\` in #( - *posix*) : - set -o posix ;; #( - *) : - ;; -esac -fi -" - as_required="as_fn_return () { (exit \$1); } -as_fn_success () { as_fn_return 0; } -as_fn_failure () { as_fn_return 1; } -as_fn_ret_success () { return 0; } -as_fn_ret_failure () { return 1; } - -exitcode=0 -as_fn_success || { exitcode=1; echo as_fn_success failed.; } -as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } -as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } -as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } -if ( set x; as_fn_ret_success y && test x = \"\$1\" ) -then : - -else \$as_nop - exitcode=1; echo positional parameters were not saved. -fi -test x\$exitcode = x0 || exit 1 -blah=\$(echo \$(echo blah)) -test x\"\$blah\" = xblah || exit 1 -test -x / || exit 1" - as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO - as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO - eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && - test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 -test \$(( 1 + 1 )) = 2 || exit 1" - if (eval "$as_required") 2>/dev/null -then : - as_have_required=yes -else $as_nop - as_have_required=no -fi - if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null -then : - -else $as_nop - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -as_found=false -for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH -do - IFS=$as_save_IFS - case $as_dir in #((( - '') as_dir=./ ;; - */) ;; - *) as_dir=$as_dir/ ;; - esac - as_found=: - case $as_dir in #( - /*) - for as_base in sh bash ksh sh5; do - # Try only shells that exist, to save several forks. - as_shell=$as_dir$as_base - if { test -f "$as_shell" || test -f "$as_shell.exe"; } && - as_run=a "$as_shell" -c "$as_bourne_compatible""$as_required" 2>/dev/null -then : - CONFIG_SHELL=$as_shell as_have_required=yes - if as_run=a "$as_shell" -c "$as_bourne_compatible""$as_suggested" 2>/dev/null -then : - break 2 -fi -fi - done;; - esac - as_found=false -done -IFS=$as_save_IFS -if $as_found -then : - -else $as_nop - if { test -f "$SHELL" || test -f "$SHELL.exe"; } && - as_run=a "$SHELL" -c "$as_bourne_compatible""$as_required" 2>/dev/null -then : - CONFIG_SHELL=$SHELL as_have_required=yes -fi -fi - - - if test "x$CONFIG_SHELL" != x -then : - export CONFIG_SHELL - # We cannot yet assume a decent shell, so we have to provide a -# neutralization value for shells without unset; and this also -# works around shells that cannot unset nonexistent variables. -# Preserve -v and -x to the replacement shell. -BASH_ENV=/dev/null -ENV=/dev/null -(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV -case $- in # (((( - *v*x* | *x*v* ) as_opts=-vx ;; - *v* ) as_opts=-v ;; - *x* ) as_opts=-x ;; - * ) as_opts= ;; -esac -exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} -# Admittedly, this is quite paranoid, since all the known shells bail -# out after a failed `exec'. -printf "%s\n" "$0: could not re-execute with $CONFIG_SHELL" >&2 -exit 255 -fi - - if test x$as_have_required = xno -then : - printf "%s\n" "$0: This script requires a shell more modern than all" - printf "%s\n" "$0: the shells that I found on your system." - if test ${ZSH_VERSION+y} ; then - printf "%s\n" "$0: In particular, zsh $ZSH_VERSION has bugs and should" - printf "%s\n" "$0: be upgraded to zsh 4.3.4 or later." - else - printf "%s\n" "$0: Please tell bug-autoconf@gnu.org and -$0: libraries@haskell.org about your system, including any -$0: error possibly output before this message. Then install -$0: a modern shell, or manually run the script under such a -$0: shell if you do have one." - fi - exit 1 -fi -fi -fi -SHELL=${CONFIG_SHELL-/bin/sh} -export SHELL -# Unset more variables known to interfere with behavior of common tools. -CLICOLOR_FORCE= GREP_OPTIONS= -unset CLICOLOR_FORCE GREP_OPTIONS - -## --------------------- ## -## M4sh Shell Functions. ## -## --------------------- ## -# as_fn_unset VAR -# --------------- -# Portably unset VAR. -as_fn_unset () -{ - { eval $1=; unset $1;} -} -as_unset=as_fn_unset - - -# as_fn_set_status STATUS -# ----------------------- -# Set $? to STATUS, without forking. -as_fn_set_status () -{ - return $1 -} # as_fn_set_status - -# as_fn_exit STATUS -# ----------------- -# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. -as_fn_exit () -{ - set +e - as_fn_set_status $1 - exit $1 -} # as_fn_exit -# as_fn_nop -# --------- -# Do nothing but, unlike ":", preserve the value of $?. -as_fn_nop () -{ - return $? -} -as_nop=as_fn_nop - -# as_fn_mkdir_p -# ------------- -# Create "$as_dir" as a directory, including parents if necessary. -as_fn_mkdir_p () -{ - - case $as_dir in #( - -*) as_dir=./$as_dir;; - esac - test -d "$as_dir" || eval $as_mkdir_p || { - as_dirs= - while :; do - case $as_dir in #( - *\'*) as_qdir=`printf "%s\n" "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( - *) as_qdir=$as_dir;; - esac - as_dirs="'$as_qdir' $as_dirs" - as_dir=`$as_dirname -- "$as_dir" || -$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_dir" : 'X\(//\)[^/]' \| \ - X"$as_dir" : 'X\(//\)$' \| \ - X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || -printf "%s\n" X"$as_dir" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - test -d "$as_dir" && break - done - test -z "$as_dirs" || eval "mkdir $as_dirs" - } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" - - -} # as_fn_mkdir_p - -# as_fn_executable_p FILE -# ----------------------- -# Test if FILE is an executable regular file. -as_fn_executable_p () -{ - test -f "$1" && test -x "$1" -} # as_fn_executable_p -# as_fn_append VAR VALUE -# ---------------------- -# Append the text in VALUE to the end of the definition contained in VAR. Take -# advantage of any shell optimizations that allow amortized linear growth over -# repeated appends, instead of the typical quadratic growth present in naive -# implementations. -if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null -then : - eval 'as_fn_append () - { - eval $1+=\$2 - }' -else $as_nop - as_fn_append () - { - eval $1=\$$1\$2 - } -fi # as_fn_append - -# as_fn_arith ARG... -# ------------------ -# Perform arithmetic evaluation on the ARGs, and store the result in the -# global $as_val. Take advantage of shells that can avoid forks. The arguments -# must be portable across $(()) and expr. -if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null -then : - eval 'as_fn_arith () - { - as_val=$(( $* )) - }' -else $as_nop - as_fn_arith () - { - as_val=`expr "$@" || test $? -eq 1` - } -fi # as_fn_arith - -# as_fn_nop -# --------- -# Do nothing but, unlike ":", preserve the value of $?. -as_fn_nop () -{ - return $? -} -as_nop=as_fn_nop - -# as_fn_error STATUS ERROR [LINENO LOG_FD] -# ---------------------------------------- -# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are -# provided, also output the error to LOG_FD, referencing LINENO. Then exit the -# script with STATUS, using 1 if that was 0. -as_fn_error () -{ - as_status=$1; test $as_status -eq 0 && as_status=1 - if test "$4"; then - as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 - fi - printf "%s\n" "$as_me: error: $2" >&2 - as_fn_exit $as_status -} # as_fn_error - -if expr a : '\(a\)' >/dev/null 2>&1 && - test "X`expr 00001 : '.*\(...\)'`" = X001; then - as_expr=expr -else - as_expr=false -fi - -if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then - as_basename=basename -else - as_basename=false -fi - -if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then - as_dirname=dirname -else - as_dirname=false -fi - -as_me=`$as_basename -- "$0" || -$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ - X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)' \| . 2>/dev/null || -printf "%s\n" X/"$0" | - sed '/^.*\/\([^/][^/]*\)\/*$/{ - s//\1/ - q - } - /^X\/\(\/\/\)$/{ - s//\1/ - q - } - /^X\/\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - -# Avoid depending upon Character Ranges. -as_cr_letters='abcdefghijklmnopqrstuvwxyz' -as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' -as_cr_Letters=$as_cr_letters$as_cr_LETTERS -as_cr_digits='0123456789' -as_cr_alnum=$as_cr_Letters$as_cr_digits - - - as_lineno_1=$LINENO as_lineno_1a=$LINENO - as_lineno_2=$LINENO as_lineno_2a=$LINENO - eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && - test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { - # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) - sed -n ' - p - /[$]LINENO/= - ' <$as_myself | - sed ' - s/[$]LINENO.*/&-/ - t lineno - b - :lineno - N - :loop - s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ - t loop - s/-\n.*// - ' >$as_me.lineno && - chmod +x "$as_me.lineno" || - { printf "%s\n" "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } - - # If we had to re-execute with $CONFIG_SHELL, we're ensured to have - # already done that, so ensure we don't try to do so again and fall - # in an infinite loop. This has already happened in practice. - _as_can_reexec=no; export _as_can_reexec - # Don't try to exec as it changes $[0], causing all sort of problems - # (the dirname of $[0] is not the place where we might find the - # original and so on. Autoconf is especially sensitive to this). - . "./$as_me.lineno" - # Exit status is that of the last command. - exit -} - - -# Determine whether it's possible to make 'echo' print without a newline. -# These variables are no longer used directly by Autoconf, but are AC_SUBSTed -# for compatibility with existing Makefiles. -ECHO_C= ECHO_N= ECHO_T= -case `echo -n x` in #((((( --n*) - case `echo 'xy\c'` in - *c*) ECHO_T=' ';; # ECHO_T is single tab character. - xy) ECHO_C='\c';; - *) echo `echo ksh88 bug on AIX 6.1` > /dev/null - ECHO_T=' ';; - esac;; -*) - ECHO_N='-n';; -esac - -# For backward compatibility with old third-party macros, we provide -# the shell variables $as_echo and $as_echo_n. New code should use -# AS_ECHO(["message"]) and AS_ECHO_N(["message"]), respectively. -as_echo='printf %s\n' -as_echo_n='printf %s' - - -rm -f conf$$ conf$$.exe conf$$.file -if test -d conf$$.dir; then - rm -f conf$$.dir/conf$$.file -else - rm -f conf$$.dir - mkdir conf$$.dir 2>/dev/null -fi -if (echo >conf$$.file) 2>/dev/null; then - if ln -s conf$$.file conf$$ 2>/dev/null; then - as_ln_s='ln -s' - # ... but there are two gotchas: - # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. - # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. - # In both cases, we have to default to `cp -pR'. - ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || - as_ln_s='cp -pR' - elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln - else - as_ln_s='cp -pR' - fi -else - as_ln_s='cp -pR' -fi -rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file -rmdir conf$$.dir 2>/dev/null - -if mkdir -p . 2>/dev/null; then - as_mkdir_p='mkdir -p "$as_dir"' -else - test -d ./-p && rmdir ./-p - as_mkdir_p=false -fi - -as_test_x='test -x' -as_executable_p=as_fn_executable_p - -# Sed expression to map a string onto a valid CPP name. -as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" - -# Sed expression to map a string onto a valid variable name. -as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" - - -test -n "$DJDIR" || exec 7<&0 &1 - -# Name of the host. -# hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status, -# so uname gets run too. -ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` - -# -# Initializations. -# -ac_default_prefix=/usr/local -ac_clean_files= -ac_config_libobj_dir=. -LIBOBJS= -cross_compiling=no -subdirs= -MFLAGS= -MAKEFLAGS= - -# Identity of this package. -PACKAGE_NAME='Haskell base package' -PACKAGE_TARNAME='base' -PACKAGE_VERSION='1.0' -PACKAGE_STRING='Haskell base package 1.0' -PACKAGE_BUGREPORT='libraries@haskell.org' -PACKAGE_URL='' - -ac_unique_file="include/HsBase.h" -# Factoring default headers for most tests. -ac_includes_default="\ -#include -#ifdef HAVE_STDIO_H -# include -#endif -#ifdef HAVE_STDLIB_H -# include -#endif -#ifdef HAVE_STRING_H -# include -#endif -#ifdef HAVE_INTTYPES_H -# include -#endif -#ifdef HAVE_STDINT_H -# include -#endif -#ifdef HAVE_STRINGS_H -# include -#endif -#ifdef HAVE_SYS_TYPES_H -# include -#endif -#ifdef HAVE_SYS_STAT_H -# include -#endif -#ifdef HAVE_UNISTD_H -# include -#endif" - -ac_header_c_list= -ac_subst_vars='LTLIBOBJS -LIBOBJS -EXTRA_LIBS -ICONV_LIB_DIRS -ICONV_INCLUDE_DIRS -EGREP -GREP -CPP -OBJEXT -EXEEXT -ac_ct_CC -CPPFLAGS -LDFLAGS -CFLAGS -CC -target_alias -host_alias -build_alias -LIBS -ECHO_T -ECHO_N -ECHO_C -DEFS -mandir -localedir -libdir -psdir -pdfdir -dvidir -htmldir -infodir -docdir -oldincludedir -includedir -runstatedir -localstatedir -sharedstatedir -sysconfdir -datadir -datarootdir -libexecdir -sbindir -bindir -program_transform_name -prefix -exec_prefix -PACKAGE_URL -PACKAGE_BUGREPORT -PACKAGE_STRING -PACKAGE_VERSION -PACKAGE_TARNAME -PACKAGE_NAME -PATH_SEPARATOR -SHELL' -ac_subst_files='' -ac_user_opts=' -enable_option_checking -enable_largefile -with_iconv_includes -with_iconv_libraries -with_libcharset -' - ac_precious_vars='build_alias -host_alias -target_alias -CC -CFLAGS -LDFLAGS -LIBS -CPPFLAGS -CPP' - - -# Initialize some variables set by options. -ac_init_help= -ac_init_version=false -ac_unrecognized_opts= -ac_unrecognized_sep= -# The variables have the same names as the options, with -# dashes changed to underlines. -cache_file=/dev/null -exec_prefix=NONE -no_create= -no_recursion= -prefix=NONE -program_prefix=NONE -program_suffix=NONE -program_transform_name=s,x,x, -silent= -site= -srcdir= -verbose= -x_includes=NONE -x_libraries=NONE - -# Installation directory options. -# These are left unexpanded so users can "make install exec_prefix=/foo" -# and all the variables that are supposed to be based on exec_prefix -# by default will actually change. -# Use braces instead of parens because sh, perl, etc. also accept them. -# (The list follows the same order as the GNU Coding Standards.) -bindir='${exec_prefix}/bin' -sbindir='${exec_prefix}/sbin' -libexecdir='${exec_prefix}/libexec' -datarootdir='${prefix}/share' -datadir='${datarootdir}' -sysconfdir='${prefix}/etc' -sharedstatedir='${prefix}/com' -localstatedir='${prefix}/var' -runstatedir='${localstatedir}/run' -includedir='${prefix}/include' -oldincludedir='/usr/include' -docdir='${datarootdir}/doc/${PACKAGE_TARNAME}' -infodir='${datarootdir}/info' -htmldir='${docdir}' -dvidir='${docdir}' -pdfdir='${docdir}' -psdir='${docdir}' -libdir='${exec_prefix}/lib' -localedir='${datarootdir}/locale' -mandir='${datarootdir}/man' - -ac_prev= -ac_dashdash= -for ac_option -do - # If the previous option needs an argument, assign it. - if test -n "$ac_prev"; then - eval $ac_prev=\$ac_option - ac_prev= - continue - fi - - case $ac_option in - *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; - *=) ac_optarg= ;; - *) ac_optarg=yes ;; - esac - - case $ac_dashdash$ac_option in - --) - ac_dashdash=yes ;; - - -bindir | --bindir | --bindi | --bind | --bin | --bi) - ac_prev=bindir ;; - -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) - bindir=$ac_optarg ;; - - -build | --build | --buil | --bui | --bu) - ac_prev=build_alias ;; - -build=* | --build=* | --buil=* | --bui=* | --bu=*) - build_alias=$ac_optarg ;; - - -cache-file | --cache-file | --cache-fil | --cache-fi \ - | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) - ac_prev=cache_file ;; - -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ - | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) - cache_file=$ac_optarg ;; - - --config-cache | -C) - cache_file=config.cache ;; - - -datadir | --datadir | --datadi | --datad) - ac_prev=datadir ;; - -datadir=* | --datadir=* | --datadi=* | --datad=*) - datadir=$ac_optarg ;; - - -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ - | --dataroo | --dataro | --datar) - ac_prev=datarootdir ;; - -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ - | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) - datarootdir=$ac_optarg ;; - - -disable-* | --disable-*) - ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` - # Reject names that are not valid shell variable names. - expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && - as_fn_error $? "invalid feature name: \`$ac_useropt'" - ac_useropt_orig=$ac_useropt - ac_useropt=`printf "%s\n" "$ac_useropt" | sed 's/[-+.]/_/g'` - case $ac_user_opts in - *" -"enable_$ac_useropt" -"*) ;; - *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig" - ac_unrecognized_sep=', ';; - esac - eval enable_$ac_useropt=no ;; - - -docdir | --docdir | --docdi | --doc | --do) - ac_prev=docdir ;; - -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) - docdir=$ac_optarg ;; - - -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) - ac_prev=dvidir ;; - -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) - dvidir=$ac_optarg ;; - - -enable-* | --enable-*) - ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` - # Reject names that are not valid shell variable names. - expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && - as_fn_error $? "invalid feature name: \`$ac_useropt'" - ac_useropt_orig=$ac_useropt - ac_useropt=`printf "%s\n" "$ac_useropt" | sed 's/[-+.]/_/g'` - case $ac_user_opts in - *" -"enable_$ac_useropt" -"*) ;; - *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig" - ac_unrecognized_sep=', ';; - esac - eval enable_$ac_useropt=\$ac_optarg ;; - - -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ - | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ - | --exec | --exe | --ex) - ac_prev=exec_prefix ;; - -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ - | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ - | --exec=* | --exe=* | --ex=*) - exec_prefix=$ac_optarg ;; - - -gas | --gas | --ga | --g) - # Obsolete; use --with-gas. - with_gas=yes ;; - - -help | --help | --hel | --he | -h) - ac_init_help=long ;; - -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) - ac_init_help=recursive ;; - -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) - ac_init_help=short ;; - - -host | --host | --hos | --ho) - ac_prev=host_alias ;; - -host=* | --host=* | --hos=* | --ho=*) - host_alias=$ac_optarg ;; - - -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) - ac_prev=htmldir ;; - -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ - | --ht=*) - htmldir=$ac_optarg ;; - - -includedir | --includedir | --includedi | --included | --include \ - | --includ | --inclu | --incl | --inc) - ac_prev=includedir ;; - -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ - | --includ=* | --inclu=* | --incl=* | --inc=*) - includedir=$ac_optarg ;; - - -infodir | --infodir | --infodi | --infod | --info | --inf) - ac_prev=infodir ;; - -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) - infodir=$ac_optarg ;; - - -libdir | --libdir | --libdi | --libd) - ac_prev=libdir ;; - -libdir=* | --libdir=* | --libdi=* | --libd=*) - libdir=$ac_optarg ;; - - -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ - | --libexe | --libex | --libe) - ac_prev=libexecdir ;; - -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ - | --libexe=* | --libex=* | --libe=*) - libexecdir=$ac_optarg ;; - - -localedir | --localedir | --localedi | --localed | --locale) - ac_prev=localedir ;; - -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) - localedir=$ac_optarg ;; - - -localstatedir | --localstatedir | --localstatedi | --localstated \ - | --localstate | --localstat | --localsta | --localst | --locals) - ac_prev=localstatedir ;; - -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ - | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) - localstatedir=$ac_optarg ;; - - -mandir | --mandir | --mandi | --mand | --man | --ma | --m) - ac_prev=mandir ;; - -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) - mandir=$ac_optarg ;; - - -nfp | --nfp | --nf) - # Obsolete; use --without-fp. - with_fp=no ;; - - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c | -n) - no_create=yes ;; - - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) - no_recursion=yes ;; - - -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ - | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ - | --oldin | --oldi | --old | --ol | --o) - ac_prev=oldincludedir ;; - -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ - | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ - | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) - oldincludedir=$ac_optarg ;; - - -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) - ac_prev=prefix ;; - -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) - prefix=$ac_optarg ;; - - -program-prefix | --program-prefix | --program-prefi | --program-pref \ - | --program-pre | --program-pr | --program-p) - ac_prev=program_prefix ;; - -program-prefix=* | --program-prefix=* | --program-prefi=* \ - | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) - program_prefix=$ac_optarg ;; - - -program-suffix | --program-suffix | --program-suffi | --program-suff \ - | --program-suf | --program-su | --program-s) - ac_prev=program_suffix ;; - -program-suffix=* | --program-suffix=* | --program-suffi=* \ - | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) - program_suffix=$ac_optarg ;; - - -program-transform-name | --program-transform-name \ - | --program-transform-nam | --program-transform-na \ - | --program-transform-n | --program-transform- \ - | --program-transform | --program-transfor \ - | --program-transfo | --program-transf \ - | --program-trans | --program-tran \ - | --progr-tra | --program-tr | --program-t) - ac_prev=program_transform_name ;; - -program-transform-name=* | --program-transform-name=* \ - | --program-transform-nam=* | --program-transform-na=* \ - | --program-transform-n=* | --program-transform-=* \ - | --program-transform=* | --program-transfor=* \ - | --program-transfo=* | --program-transf=* \ - | --program-trans=* | --program-tran=* \ - | --progr-tra=* | --program-tr=* | --program-t=*) - program_transform_name=$ac_optarg ;; - - -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) - ac_prev=pdfdir ;; - -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) - pdfdir=$ac_optarg ;; - - -psdir | --psdir | --psdi | --psd | --ps) - ac_prev=psdir ;; - -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) - psdir=$ac_optarg ;; - - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil) - silent=yes ;; - - -runstatedir | --runstatedir | --runstatedi | --runstated \ - | --runstate | --runstat | --runsta | --runst | --runs \ - | --run | --ru | --r) - ac_prev=runstatedir ;; - -runstatedir=* | --runstatedir=* | --runstatedi=* | --runstated=* \ - | --runstate=* | --runstat=* | --runsta=* | --runst=* | --runs=* \ - | --run=* | --ru=* | --r=*) - runstatedir=$ac_optarg ;; - - -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) - ac_prev=sbindir ;; - -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ - | --sbi=* | --sb=*) - sbindir=$ac_optarg ;; - - -sharedstatedir | --sharedstatedir | --sharedstatedi \ - | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ - | --sharedst | --shareds | --shared | --share | --shar \ - | --sha | --sh) - ac_prev=sharedstatedir ;; - -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ - | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ - | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ - | --sha=* | --sh=*) - sharedstatedir=$ac_optarg ;; - - -site | --site | --sit) - ac_prev=site ;; - -site=* | --site=* | --sit=*) - site=$ac_optarg ;; - - -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) - ac_prev=srcdir ;; - -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) - srcdir=$ac_optarg ;; - - -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ - | --syscon | --sysco | --sysc | --sys | --sy) - ac_prev=sysconfdir ;; - -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ - | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) - sysconfdir=$ac_optarg ;; - - -target | --target | --targe | --targ | --tar | --ta | --t) - ac_prev=target_alias ;; - -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) - target_alias=$ac_optarg ;; - - -v | -verbose | --verbose | --verbos | --verbo | --verb) - verbose=yes ;; - - -version | --version | --versio | --versi | --vers | -V) - ac_init_version=: ;; - - -with-* | --with-*) - ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` - # Reject names that are not valid shell variable names. - expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && - as_fn_error $? "invalid package name: \`$ac_useropt'" - ac_useropt_orig=$ac_useropt - ac_useropt=`printf "%s\n" "$ac_useropt" | sed 's/[-+.]/_/g'` - case $ac_user_opts in - *" -"with_$ac_useropt" -"*) ;; - *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig" - ac_unrecognized_sep=', ';; - esac - eval with_$ac_useropt=\$ac_optarg ;; - - -without-* | --without-*) - ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` - # Reject names that are not valid shell variable names. - expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && - as_fn_error $? "invalid package name: \`$ac_useropt'" - ac_useropt_orig=$ac_useropt - ac_useropt=`printf "%s\n" "$ac_useropt" | sed 's/[-+.]/_/g'` - case $ac_user_opts in - *" -"with_$ac_useropt" -"*) ;; - *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig" - ac_unrecognized_sep=', ';; - esac - eval with_$ac_useropt=no ;; - - --x) - # Obsolete; use --with-x. - with_x=yes ;; - - -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ - | --x-incl | --x-inc | --x-in | --x-i) - ac_prev=x_includes ;; - -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ - | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) - x_includes=$ac_optarg ;; - - -x-libraries | --x-libraries | --x-librarie | --x-librari \ - | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) - ac_prev=x_libraries ;; - -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ - | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) - x_libraries=$ac_optarg ;; - - -*) as_fn_error $? "unrecognized option: \`$ac_option' -Try \`$0 --help' for more information" - ;; - - *=*) - ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` - # Reject names that are not valid shell variable names. - case $ac_envvar in #( - '' | [0-9]* | *[!_$as_cr_alnum]* ) - as_fn_error $? "invalid variable name: \`$ac_envvar'" ;; - esac - eval $ac_envvar=\$ac_optarg - export $ac_envvar ;; - - *) - # FIXME: should be removed in autoconf 3.0. - printf "%s\n" "$as_me: WARNING: you should use --build, --host, --target" >&2 - expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && - printf "%s\n" "$as_me: WARNING: invalid host type: $ac_option" >&2 - : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}" - ;; - - esac -done - -if test -n "$ac_prev"; then - ac_option=--`echo $ac_prev | sed 's/_/-/g'` - as_fn_error $? "missing argument to $ac_option" -fi - -if test -n "$ac_unrecognized_opts"; then - case $enable_option_checking in - no) ;; - fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;; - *) printf "%s\n" "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; - esac -fi - -# Check all directory arguments for consistency. -for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ - datadir sysconfdir sharedstatedir localstatedir includedir \ - oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ - libdir localedir mandir runstatedir -do - eval ac_val=\$$ac_var - # Remove trailing slashes. - case $ac_val in - */ ) - ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'` - eval $ac_var=\$ac_val;; - esac - # Be sure to have absolute directory names. - case $ac_val in - [\\/$]* | ?:[\\/]* ) continue;; - NONE | '' ) case $ac_var in *prefix ) continue;; esac;; - esac - as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val" -done - -# There might be people who depend on the old broken behavior: `$host' -# used to hold the argument of --host etc. -# FIXME: To remove some day. -build=$build_alias -host=$host_alias -target=$target_alias - -# FIXME: To remove some day. -if test "x$host_alias" != x; then - if test "x$build_alias" = x; then - cross_compiling=maybe - elif test "x$build_alias" != "x$host_alias"; then - cross_compiling=yes - fi -fi - -ac_tool_prefix= -test -n "$host_alias" && ac_tool_prefix=$host_alias- - -test "$silent" = yes && exec 6>/dev/null - - -ac_pwd=`pwd` && test -n "$ac_pwd" && -ac_ls_di=`ls -di .` && -ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || - as_fn_error $? "working directory cannot be determined" -test "X$ac_ls_di" = "X$ac_pwd_ls_di" || - as_fn_error $? "pwd does not report name of working directory" - - -# Find the source files, if location was not specified. -if test -z "$srcdir"; then - ac_srcdir_defaulted=yes - # Try the directory containing this script, then the parent directory. - ac_confdir=`$as_dirname -- "$as_myself" || -$as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_myself" : 'X\(//\)[^/]' \| \ - X"$as_myself" : 'X\(//\)$' \| \ - X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || -printf "%s\n" X"$as_myself" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - srcdir=$ac_confdir - if test ! -r "$srcdir/$ac_unique_file"; then - srcdir=.. - fi -else - ac_srcdir_defaulted=no -fi -if test ! -r "$srcdir/$ac_unique_file"; then - test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." - as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir" -fi -ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" -ac_abs_confdir=`( - cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg" - pwd)` -# When building in place, set srcdir=. -if test "$ac_abs_confdir" = "$ac_pwd"; then - srcdir=. -fi -# Remove unnecessary trailing slashes from srcdir. -# Double slashes in file names in object file debugging info -# mess up M-x gdb in Emacs. -case $srcdir in -*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; -esac -for ac_var in $ac_precious_vars; do - eval ac_env_${ac_var}_set=\${${ac_var}+set} - eval ac_env_${ac_var}_value=\$${ac_var} - eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} - eval ac_cv_env_${ac_var}_value=\$${ac_var} -done - -# -# Report the --help message. -# -if test "$ac_init_help" = "long"; then - # Omit some internal or obsolete options to make the list less imposing. - # This message is too long to be a string in the A/UX 3.1 sh. - cat <<_ACEOF -\`configure' configures Haskell base package 1.0 to adapt to many kinds of systems. - -Usage: $0 [OPTION]... [VAR=VALUE]... - -To assign environment variables (e.g., CC, CFLAGS...), specify them as -VAR=VALUE. See below for descriptions of some of the useful variables. - -Defaults for the options are specified in brackets. - -Configuration: - -h, --help display this help and exit - --help=short display options specific to this package - --help=recursive display the short help of all the included packages - -V, --version display version information and exit - -q, --quiet, --silent do not print \`checking ...' messages - --cache-file=FILE cache test results in FILE [disabled] - -C, --config-cache alias for \`--cache-file=config.cache' - -n, --no-create do not create output files - --srcdir=DIR find the sources in DIR [configure dir or \`..'] - -Installation directories: - --prefix=PREFIX install architecture-independent files in PREFIX - [$ac_default_prefix] - --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX - [PREFIX] - -By default, \`make install' will install all the files in -\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify -an installation prefix other than \`$ac_default_prefix' using \`--prefix', -for instance \`--prefix=\$HOME'. - -For better control, use the options below. - -Fine tuning of the installation directories: - --bindir=DIR user executables [EPREFIX/bin] - --sbindir=DIR system admin executables [EPREFIX/sbin] - --libexecdir=DIR program executables [EPREFIX/libexec] - --sysconfdir=DIR read-only single-machine data [PREFIX/etc] - --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] - --localstatedir=DIR modifiable single-machine data [PREFIX/var] - --runstatedir=DIR modifiable per-process data [LOCALSTATEDIR/run] - --libdir=DIR object code libraries [EPREFIX/lib] - --includedir=DIR C header files [PREFIX/include] - --oldincludedir=DIR C header files for non-gcc [/usr/include] - --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] - --datadir=DIR read-only architecture-independent data [DATAROOTDIR] - --infodir=DIR info documentation [DATAROOTDIR/info] - --localedir=DIR locale-dependent data [DATAROOTDIR/locale] - --mandir=DIR man documentation [DATAROOTDIR/man] - --docdir=DIR documentation root [DATAROOTDIR/doc/base] - --htmldir=DIR html documentation [DOCDIR] - --dvidir=DIR dvi documentation [DOCDIR] - --pdfdir=DIR pdf documentation [DOCDIR] - --psdir=DIR ps documentation [DOCDIR] -_ACEOF - - cat <<\_ACEOF -_ACEOF -fi - -if test -n "$ac_init_help"; then - case $ac_init_help in - short | recursive ) echo "Configuration of Haskell base package 1.0:";; - esac - cat <<\_ACEOF - -Optional Features: - --disable-option-checking ignore unrecognized --enable/--with options - --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) - --enable-FEATURE[=ARG] include FEATURE [ARG=yes] - --disable-largefile omit support for large files - -Optional Packages: - --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] - --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) - --with-iconv-includes directory containing iconv.h - --with-iconv-libraries directory containing iconv library - --with-libcharset Use libcharset [default=only if available] - -Some influential environment variables: - CC C compiler command - CFLAGS C compiler flags - LDFLAGS linker flags, e.g. -L if you have libraries in a - nonstandard directory - LIBS libraries to pass to the linker, e.g. -l - CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I if - you have headers in a nonstandard directory - CPP C preprocessor - -Use these variables to override the choices made by `configure' or to help -it to find libraries and programs with nonstandard names/locations. - -Report bugs to . -_ACEOF -ac_status=$? -fi - -if test "$ac_init_help" = "recursive"; then - # If there are subdirs, report their specific --help. - for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue - test -d "$ac_dir" || - { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } || - continue - ac_builddir=. - -case "$ac_dir" in -.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; -*) - ac_dir_suffix=/`printf "%s\n" "$ac_dir" | sed 's|^\.[\\/]||'` - # A ".." for each directory in $ac_dir_suffix. - ac_top_builddir_sub=`printf "%s\n" "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` - case $ac_top_builddir_sub in - "") ac_top_builddir_sub=. ac_top_build_prefix= ;; - *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; - esac ;; -esac -ac_abs_top_builddir=$ac_pwd -ac_abs_builddir=$ac_pwd$ac_dir_suffix -# for backward compatibility: -ac_top_builddir=$ac_top_build_prefix - -case $srcdir in - .) # We are building in place. - ac_srcdir=. - ac_top_srcdir=$ac_top_builddir_sub - ac_abs_top_srcdir=$ac_pwd ;; - [\\/]* | ?:[\\/]* ) # Absolute name. - ac_srcdir=$srcdir$ac_dir_suffix; - ac_top_srcdir=$srcdir - ac_abs_top_srcdir=$srcdir ;; - *) # Relative name. - ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix - ac_top_srcdir=$ac_top_build_prefix$srcdir - ac_abs_top_srcdir=$ac_pwd/$srcdir ;; -esac -ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix - - cd "$ac_dir" || { ac_status=$?; continue; } - # Check for configure.gnu first; this name is used for a wrapper for - # Metaconfig's "Configure" on case-insensitive file systems. - if test -f "$ac_srcdir/configure.gnu"; then - echo && - $SHELL "$ac_srcdir/configure.gnu" --help=recursive - elif test -f "$ac_srcdir/configure"; then - echo && - $SHELL "$ac_srcdir/configure" --help=recursive - else - printf "%s\n" "$as_me: WARNING: no configuration information is in $ac_dir" >&2 - fi || ac_status=$? - cd "$ac_pwd" || { ac_status=$?; break; } - done -fi - -test -n "$ac_init_help" && exit $ac_status -if $ac_init_version; then - cat <<\_ACEOF -Haskell base package configure 1.0 -generated by GNU Autoconf 2.71 - -Copyright (C) 2021 Free Software Foundation, Inc. -This configure script is free software; the Free Software Foundation -gives unlimited permission to copy, distribute and modify it. -_ACEOF - exit -fi - -## ------------------------ ## -## Autoconf initialization. ## -## ------------------------ ## - -# ac_fn_c_try_compile LINENO -# -------------------------- -# Try to compile conftest.$ac_ext, and return whether this succeeded. -ac_fn_c_try_compile () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - rm -f conftest.$ac_objext conftest.beam - if { { ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -printf "%s\n" "$ac_try_echo"; } >&5 - (eval "$ac_compile") 2>conftest.err - ac_status=$? - if test -s conftest.err; then - grep -v '^ *+' conftest.err >conftest.er1 - cat conftest.er1 >&5 - mv -f conftest.er1 conftest.err - fi - printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext -then : - ac_retval=0 -else $as_nop - printf "%s\n" "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_retval=1 -fi - eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno - as_fn_set_status $ac_retval - -} # ac_fn_c_try_compile - -# ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES -# ------------------------------------------------------- -# Tests whether HEADER exists and can be compiled using the include files in -# INCLUDES, setting the cache variable VAR accordingly. -ac_fn_c_check_header_compile () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 -printf %s "checking for $2... " >&6; } -if eval test \${$3+y} -then : - printf %s "(cached) " >&6 -else $as_nop - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -#include <$2> -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - eval "$3=yes" -else $as_nop - eval "$3=no" -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext -fi -eval ac_res=\$$3 - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -printf "%s\n" "$ac_res" >&6; } - eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno - -} # ac_fn_c_check_header_compile - -# ac_fn_c_check_type LINENO TYPE VAR INCLUDES -# ------------------------------------------- -# Tests whether TYPE exists after having included INCLUDES, setting cache -# variable VAR accordingly. -ac_fn_c_check_type () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 -printf %s "checking for $2... " >&6; } -if eval test \${$3+y} -then : - printf %s "(cached) " >&6 -else $as_nop - eval "$3=no" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -int -main (void) -{ -if (sizeof ($2)) - return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -int -main (void) -{ -if (sizeof (($2))) - return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - -else $as_nop - eval "$3=yes" -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext -fi -eval ac_res=\$$3 - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -printf "%s\n" "$ac_res" >&6; } - eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno - -} # ac_fn_c_check_type - -# ac_fn_c_try_link LINENO -# ----------------------- -# Try to link conftest.$ac_ext, and return whether this succeeded. -ac_fn_c_try_link () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - rm -f conftest.$ac_objext conftest.beam conftest$ac_exeext - if { { ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -printf "%s\n" "$ac_try_echo"; } >&5 - (eval "$ac_link") 2>conftest.err - ac_status=$? - if test -s conftest.err; then - grep -v '^ *+' conftest.err >conftest.er1 - cat conftest.er1 >&5 - mv -f conftest.er1 conftest.err - fi - printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest$ac_exeext && { - test "$cross_compiling" = yes || - test -x conftest$ac_exeext - } -then : - ac_retval=0 -else $as_nop - printf "%s\n" "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_retval=1 -fi - # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information - # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would - # interfere with the next link command; also delete a directory that is - # left behind by Apple's compiler. We do this before executing the actions. - rm -rf conftest.dSYM conftest_ipa8_conftest.oo - eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno - as_fn_set_status $ac_retval - -} # ac_fn_c_try_link - -# ac_fn_c_check_func LINENO FUNC VAR -# ---------------------------------- -# Tests whether FUNC exists, setting the cache variable VAR accordingly -ac_fn_c_check_func () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 -printf %s "checking for $2... " >&6; } -if eval test \${$3+y} -then : - printf %s "(cached) " >&6 -else $as_nop - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -/* Define $2 to an innocuous variant, in case declares $2. - For example, HP-UX 11i declares gettimeofday. */ -#define $2 innocuous_$2 - -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $2 (); below. */ - -#include -#undef $2 - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char $2 (); -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined __stub_$2 || defined __stub___$2 -choke me -#endif - -int -main (void) -{ -return $2 (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO" -then : - eval "$3=yes" -else $as_nop - eval "$3=no" -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam \ - conftest$ac_exeext conftest.$ac_ext -fi -eval ac_res=\$$3 - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -printf "%s\n" "$ac_res" >&6; } - eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno - -} # ac_fn_c_check_func - -# ac_fn_c_try_run LINENO -# ---------------------- -# Try to run conftest.$ac_ext, and return whether this succeeded. Assumes that -# executables *can* be run. -ac_fn_c_try_run () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - if { { ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -printf "%s\n" "$ac_try_echo"; } >&5 - (eval "$ac_link") 2>&5 - ac_status=$? - printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' - { { case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -printf "%s\n" "$ac_try_echo"; } >&5 - (eval "$ac_try") 2>&5 - ac_status=$? - printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; }; } -then : - ac_retval=0 -else $as_nop - printf "%s\n" "$as_me: program exited with status $ac_status" >&5 - printf "%s\n" "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_retval=$ac_status -fi - rm -rf conftest.dSYM conftest_ipa8_conftest.oo - eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno - as_fn_set_status $ac_retval - -} # ac_fn_c_try_run - -# ac_fn_c_compute_int LINENO EXPR VAR INCLUDES -# -------------------------------------------- -# Tries to find the compile-time value of EXPR in a program that includes -# INCLUDES, setting VAR accordingly. Returns whether the value could be -# computed -ac_fn_c_compute_int () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - if test "$cross_compiling" = yes; then - # Depending upon the size, compute the lo and hi bounds. -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -int -main (void) -{ -static int test_array [1 - 2 * !(($2) >= 0)]; -test_array [0] = 0; -return test_array [0]; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - ac_lo=0 ac_mid=0 - while :; do - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -int -main (void) -{ -static int test_array [1 - 2 * !(($2) <= $ac_mid)]; -test_array [0] = 0; -return test_array [0]; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - ac_hi=$ac_mid; break -else $as_nop - as_fn_arith $ac_mid + 1 && ac_lo=$as_val - if test $ac_lo -le $ac_mid; then - ac_lo= ac_hi= - break - fi - as_fn_arith 2 '*' $ac_mid + 1 && ac_mid=$as_val -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - done -else $as_nop - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -int -main (void) -{ -static int test_array [1 - 2 * !(($2) < 0)]; -test_array [0] = 0; -return test_array [0]; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - ac_hi=-1 ac_mid=-1 - while :; do - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -int -main (void) -{ -static int test_array [1 - 2 * !(($2) >= $ac_mid)]; -test_array [0] = 0; -return test_array [0]; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - ac_lo=$ac_mid; break -else $as_nop - as_fn_arith '(' $ac_mid ')' - 1 && ac_hi=$as_val - if test $ac_mid -le $ac_hi; then - ac_lo= ac_hi= - break - fi - as_fn_arith 2 '*' $ac_mid && ac_mid=$as_val -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - done -else $as_nop - ac_lo= ac_hi= -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext -# Binary search between lo and hi bounds. -while test "x$ac_lo" != "x$ac_hi"; do - as_fn_arith '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo && ac_mid=$as_val - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -int -main (void) -{ -static int test_array [1 - 2 * !(($2) <= $ac_mid)]; -test_array [0] = 0; -return test_array [0]; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - ac_hi=$ac_mid -else $as_nop - as_fn_arith '(' $ac_mid ')' + 1 && ac_lo=$as_val -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext -done -case $ac_lo in #(( -?*) eval "$3=\$ac_lo"; ac_retval=0 ;; -'') ac_retval=1 ;; -esac - else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -static long int longval (void) { return $2; } -static unsigned long int ulongval (void) { return $2; } -#include -#include -int -main (void) -{ - - FILE *f = fopen ("conftest.val", "w"); - if (! f) - return 1; - if (($2) < 0) - { - long int i = longval (); - if (i != ($2)) - return 1; - fprintf (f, "%ld", i); - } - else - { - unsigned long int i = ulongval (); - if (i != ($2)) - return 1; - fprintf (f, "%lu", i); - } - /* Do not output a trailing newline, as this causes \r\n confusion - on some platforms. */ - return ferror (f) || fclose (f) != 0; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_run "$LINENO" -then : - echo >>conftest.val; read $3 &5 -printf %s "checking whether $as_decl_name is declared... " >&6; } -if eval test \${$3+y} -then : - printf %s "(cached) " >&6 -else $as_nop - as_decl_use=`echo $2|sed -e 's/(/((/' -e 's/)/) 0&/' -e 's/,/) 0& (/g'` - eval ac_save_FLAGS=\$$6 - as_fn_append $6 " $5" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -int -main (void) -{ -#ifndef $as_decl_name -#ifdef __cplusplus - (void) $as_decl_use; -#else - (void) $as_decl_name; -#endif -#endif - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - eval "$3=yes" -else $as_nop - eval "$3=no" -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - eval $6=\$ac_save_FLAGS - -fi -eval ac_res=\$$3 - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -printf "%s\n" "$ac_res" >&6; } - eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno - -} # ac_fn_check_decl - -# ac_fn_c_try_cpp LINENO -# ---------------------- -# Try to preprocess conftest.$ac_ext, and return whether this succeeded. -ac_fn_c_try_cpp () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - if { { ac_try="$ac_cpp conftest.$ac_ext" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -printf "%s\n" "$ac_try_echo"; } >&5 - (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err - ac_status=$? - if test -s conftest.err; then - grep -v '^ *+' conftest.err >conftest.er1 - cat conftest.er1 >&5 - mv -f conftest.er1 conftest.err - fi - printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } > conftest.i && { - test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || - test ! -s conftest.err - } -then : - ac_retval=0 -else $as_nop - printf "%s\n" "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_retval=1 -fi - eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno - as_fn_set_status $ac_retval - -} # ac_fn_c_try_cpp -ac_configure_args_raw= -for ac_arg -do - case $ac_arg in - *\'*) - ac_arg=`printf "%s\n" "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; - esac - as_fn_append ac_configure_args_raw " '$ac_arg'" -done - -case $ac_configure_args_raw in - *$as_nl*) - ac_safe_unquote= ;; - *) - ac_unsafe_z='|&;<>()$`\\"*?[ '' ' # This string ends in space, tab. - ac_unsafe_a="$ac_unsafe_z#~" - ac_safe_unquote="s/ '\\([^$ac_unsafe_a][^$ac_unsafe_z]*\\)'/ \\1/g" - ac_configure_args_raw=` printf "%s\n" "$ac_configure_args_raw" | sed "$ac_safe_unquote"`;; -esac - -cat >config.log <<_ACEOF -This file contains any messages produced by compilers while -running configure, to aid debugging if configure makes a mistake. - -It was created by Haskell base package $as_me 1.0, which was -generated by GNU Autoconf 2.71. Invocation command line was - - $ $0$ac_configure_args_raw - -_ACEOF -exec 5>>config.log -{ -cat <<_ASUNAME -## --------- ## -## Platform. ## -## --------- ## - -hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` -uname -m = `(uname -m) 2>/dev/null || echo unknown` -uname -r = `(uname -r) 2>/dev/null || echo unknown` -uname -s = `(uname -s) 2>/dev/null || echo unknown` -uname -v = `(uname -v) 2>/dev/null || echo unknown` - -/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` -/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` - -/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` -/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` -/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` -/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` -/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` -/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` -/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` - -_ASUNAME - -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - case $as_dir in #((( - '') as_dir=./ ;; - */) ;; - *) as_dir=$as_dir/ ;; - esac - printf "%s\n" "PATH: $as_dir" - done -IFS=$as_save_IFS - -} >&5 - -cat >&5 <<_ACEOF - - -## ----------- ## -## Core tests. ## -## ----------- ## - -_ACEOF - - -# Keep a trace of the command line. -# Strip out --no-create and --no-recursion so they do not pile up. -# Strip out --silent because we don't want to record it for future runs. -# Also quote any args containing shell meta-characters. -# Make two passes to allow for proper duplicate-argument suppression. -ac_configure_args= -ac_configure_args0= -ac_configure_args1= -ac_must_keep_next=false -for ac_pass in 1 2 -do - for ac_arg - do - case $ac_arg in - -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil) - continue ;; - *\'*) - ac_arg=`printf "%s\n" "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; - esac - case $ac_pass in - 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; - 2) - as_fn_append ac_configure_args1 " '$ac_arg'" - if test $ac_must_keep_next = true; then - ac_must_keep_next=false # Got value, back to normal. - else - case $ac_arg in - *=* | --config-cache | -C | -disable-* | --disable-* \ - | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ - | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ - | -with-* | --with-* | -without-* | --without-* | --x) - case "$ac_configure_args0 " in - "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; - esac - ;; - -* ) ac_must_keep_next=true ;; - esac - fi - as_fn_append ac_configure_args " '$ac_arg'" - ;; - esac - done -done -{ ac_configure_args0=; unset ac_configure_args0;} -{ ac_configure_args1=; unset ac_configure_args1;} - -# When interrupted or exit'd, cleanup temporary files, and complete -# config.log. We remove comments because anyway the quotes in there -# would cause problems or look ugly. -# WARNING: Use '\'' to represent an apostrophe within the trap. -# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. -trap 'exit_status=$? - # Sanitize IFS. - IFS=" "" $as_nl" - # Save into config.log some information that might help in debugging. - { - echo - - printf "%s\n" "## ---------------- ## -## Cache variables. ## -## ---------------- ##" - echo - # The following way of writing the cache mishandles newlines in values, -( - for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do - eval ac_val=\$$ac_var - case $ac_val in #( - *${as_nl}*) - case $ac_var in #( - *_cv_*) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 -printf "%s\n" "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; - esac - case $ac_var in #( - _ | IFS | as_nl) ;; #( - BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( - *) { eval $ac_var=; unset $ac_var;} ;; - esac ;; - esac - done - (set) 2>&1 | - case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( - *${as_nl}ac_space=\ *) - sed -n \ - "s/'\''/'\''\\\\'\'''\''/g; - s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" - ;; #( - *) - sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" - ;; - esac | - sort -) - echo - - printf "%s\n" "## ----------------- ## -## Output variables. ## -## ----------------- ##" - echo - for ac_var in $ac_subst_vars - do - eval ac_val=\$$ac_var - case $ac_val in - *\'\''*) ac_val=`printf "%s\n" "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; - esac - printf "%s\n" "$ac_var='\''$ac_val'\''" - done | sort - echo - - if test -n "$ac_subst_files"; then - printf "%s\n" "## ------------------- ## -## File substitutions. ## -## ------------------- ##" - echo - for ac_var in $ac_subst_files - do - eval ac_val=\$$ac_var - case $ac_val in - *\'\''*) ac_val=`printf "%s\n" "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; - esac - printf "%s\n" "$ac_var='\''$ac_val'\''" - done | sort - echo - fi - - if test -s confdefs.h; then - printf "%s\n" "## ----------- ## -## confdefs.h. ## -## ----------- ##" - echo - cat confdefs.h - echo - fi - test "$ac_signal" != 0 && - printf "%s\n" "$as_me: caught signal $ac_signal" - printf "%s\n" "$as_me: exit $exit_status" - } >&5 - rm -f core *.core core.conftest.* && - rm -f -r conftest* confdefs* conf$$* $ac_clean_files && - exit $exit_status -' 0 -for ac_signal in 1 2 13 15; do - trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal -done -ac_signal=0 - -# confdefs.h avoids OS command line length limits that DEFS can exceed. -rm -f -r conftest* confdefs.h - -printf "%s\n" "/* confdefs.h */" > confdefs.h - -# Predefined preprocessor variables. - -printf "%s\n" "#define PACKAGE_NAME \"$PACKAGE_NAME\"" >>confdefs.h - -printf "%s\n" "#define PACKAGE_TARNAME \"$PACKAGE_TARNAME\"" >>confdefs.h - -printf "%s\n" "#define PACKAGE_VERSION \"$PACKAGE_VERSION\"" >>confdefs.h - -printf "%s\n" "#define PACKAGE_STRING \"$PACKAGE_STRING\"" >>confdefs.h - -printf "%s\n" "#define PACKAGE_BUGREPORT \"$PACKAGE_BUGREPORT\"" >>confdefs.h - -printf "%s\n" "#define PACKAGE_URL \"$PACKAGE_URL\"" >>confdefs.h - - -# Let the site file select an alternate cache file if it wants to. -# Prefer an explicitly selected file to automatically selected ones. -if test -n "$CONFIG_SITE"; then - ac_site_files="$CONFIG_SITE" -elif test "x$prefix" != xNONE; then - ac_site_files="$prefix/share/config.site $prefix/etc/config.site" -else - ac_site_files="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" -fi - -for ac_site_file in $ac_site_files -do - case $ac_site_file in #( - */*) : - ;; #( - *) : - ac_site_file=./$ac_site_file ;; -esac - if test -f "$ac_site_file" && test -r "$ac_site_file"; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 -printf "%s\n" "$as_me: loading site script $ac_site_file" >&6;} - sed 's/^/| /' "$ac_site_file" >&5 - . "$ac_site_file" \ - || { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error $? "failed to load site script $ac_site_file -See \`config.log' for more details" "$LINENO" 5; } - fi -done - -if test -r "$cache_file"; then - # Some versions of bash will fail to source /dev/null (special files - # actually), so we avoid doing that. DJGPP emulates it as a regular file. - if test /dev/null != "$cache_file" && test -f "$cache_file"; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 -printf "%s\n" "$as_me: loading cache $cache_file" >&6;} - case $cache_file in - [\\/]* | ?:[\\/]* ) . "$cache_file";; - *) . "./$cache_file";; - esac - fi -else - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 -printf "%s\n" "$as_me: creating cache $cache_file" >&6;} - >$cache_file -fi - -# Test code for whether the C compiler supports C89 (global declarations) -ac_c_conftest_c89_globals=' -/* Does the compiler advertise C89 conformance? - Do not test the value of __STDC__, because some compilers set it to 0 - while being otherwise adequately conformant. */ -#if !defined __STDC__ -# error "Compiler does not advertise C89 conformance" -#endif - -#include -#include -struct stat; -/* Most of the following tests are stolen from RCS 5.7 src/conf.sh. */ -struct buf { int x; }; -struct buf * (*rcsopen) (struct buf *, struct stat *, int); -static char *e (p, i) - char **p; - int i; -{ - return p[i]; -} -static char *f (char * (*g) (char **, int), char **p, ...) -{ - char *s; - va_list v; - va_start (v,p); - s = g (p, va_arg (v,int)); - va_end (v); - return s; -} - -/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has - function prototypes and stuff, but not \xHH hex character constants. - These do not provoke an error unfortunately, instead are silently treated - as an "x". The following induces an error, until -std is added to get - proper ANSI mode. Curiously \x00 != x always comes out true, for an - array size at least. It is necessary to write \x00 == 0 to get something - that is true only with -std. */ -int osf4_cc_array ['\''\x00'\'' == 0 ? 1 : -1]; - -/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters - inside strings and character constants. */ -#define FOO(x) '\''x'\'' -int xlc6_cc_array[FOO(a) == '\''x'\'' ? 1 : -1]; - -int test (int i, double x); -struct s1 {int (*f) (int a);}; -struct s2 {int (*f) (double a);}; -int pairnames (int, char **, int *(*)(struct buf *, struct stat *, int), - int, int);' - -# Test code for whether the C compiler supports C89 (body of main). -ac_c_conftest_c89_main=' -ok |= (argc == 0 || f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]); -' - -# Test code for whether the C compiler supports C99 (global declarations) -ac_c_conftest_c99_globals=' -// Does the compiler advertise C99 conformance? -#if !defined __STDC_VERSION__ || __STDC_VERSION__ < 199901L -# error "Compiler does not advertise C99 conformance" -#endif - -#include -extern int puts (const char *); -extern int printf (const char *, ...); -extern int dprintf (int, const char *, ...); -extern void *malloc (size_t); - -// Check varargs macros. These examples are taken from C99 6.10.3.5. -// dprintf is used instead of fprintf to avoid needing to declare -// FILE and stderr. -#define debug(...) dprintf (2, __VA_ARGS__) -#define showlist(...) puts (#__VA_ARGS__) -#define report(test,...) ((test) ? puts (#test) : printf (__VA_ARGS__)) -static void -test_varargs_macros (void) -{ - int x = 1234; - int y = 5678; - debug ("Flag"); - debug ("X = %d\n", x); - showlist (The first, second, and third items.); - report (x>y, "x is %d but y is %d", x, y); -} - -// Check long long types. -#define BIG64 18446744073709551615ull -#define BIG32 4294967295ul -#define BIG_OK (BIG64 / BIG32 == 4294967297ull && BIG64 % BIG32 == 0) -#if !BIG_OK - #error "your preprocessor is broken" -#endif -#if BIG_OK -#else - #error "your preprocessor is broken" -#endif -static long long int bignum = -9223372036854775807LL; -static unsigned long long int ubignum = BIG64; - -struct incomplete_array -{ - int datasize; - double data[]; -}; - -struct named_init { - int number; - const wchar_t *name; - double average; -}; - -typedef const char *ccp; - -static inline int -test_restrict (ccp restrict text) -{ - // See if C++-style comments work. - // Iterate through items via the restricted pointer. - // Also check for declarations in for loops. - for (unsigned int i = 0; *(text+i) != '\''\0'\''; ++i) - continue; - return 0; -} - -// Check varargs and va_copy. -static bool -test_varargs (const char *format, ...) -{ - va_list args; - va_start (args, format); - va_list args_copy; - va_copy (args_copy, args); - - const char *str = ""; - int number = 0; - float fnumber = 0; - - while (*format) - { - switch (*format++) - { - case '\''s'\'': // string - str = va_arg (args_copy, const char *); - break; - case '\''d'\'': // int - number = va_arg (args_copy, int); - break; - case '\''f'\'': // float - fnumber = va_arg (args_copy, double); - break; - default: - break; - } - } - va_end (args_copy); - va_end (args); - - return *str && number && fnumber; -} -' - -# Test code for whether the C compiler supports C99 (body of main). -ac_c_conftest_c99_main=' - // Check bool. - _Bool success = false; - success |= (argc != 0); - - // Check restrict. - if (test_restrict ("String literal") == 0) - success = true; - char *restrict newvar = "Another string"; - - // Check varargs. - success &= test_varargs ("s, d'\'' f .", "string", 65, 34.234); - test_varargs_macros (); - - // Check flexible array members. - struct incomplete_array *ia = - malloc (sizeof (struct incomplete_array) + (sizeof (double) * 10)); - ia->datasize = 10; - for (int i = 0; i < ia->datasize; ++i) - ia->data[i] = i * 1.234; - - // Check named initializers. - struct named_init ni = { - .number = 34, - .name = L"Test wide string", - .average = 543.34343, - }; - - ni.number = 58; - - int dynamic_array[ni.number]; - dynamic_array[0] = argv[0][0]; - dynamic_array[ni.number - 1] = 543; - - // work around unused variable warnings - ok |= (!success || bignum == 0LL || ubignum == 0uLL || newvar[0] == '\''x'\'' - || dynamic_array[ni.number - 1] != 543); -' - -# Test code for whether the C compiler supports C11 (global declarations) -ac_c_conftest_c11_globals=' -// Does the compiler advertise C11 conformance? -#if !defined __STDC_VERSION__ || __STDC_VERSION__ < 201112L -# error "Compiler does not advertise C11 conformance" -#endif - -// Check _Alignas. -char _Alignas (double) aligned_as_double; -char _Alignas (0) no_special_alignment; -extern char aligned_as_int; -char _Alignas (0) _Alignas (int) aligned_as_int; - -// Check _Alignof. -enum -{ - int_alignment = _Alignof (int), - int_array_alignment = _Alignof (int[100]), - char_alignment = _Alignof (char) -}; -_Static_assert (0 < -_Alignof (int), "_Alignof is signed"); - -// Check _Noreturn. -int _Noreturn does_not_return (void) { for (;;) continue; } - -// Check _Static_assert. -struct test_static_assert -{ - int x; - _Static_assert (sizeof (int) <= sizeof (long int), - "_Static_assert does not work in struct"); - long int y; -}; - -// Check UTF-8 literals. -#define u8 syntax error! -char const utf8_literal[] = u8"happens to be ASCII" "another string"; - -// Check duplicate typedefs. -typedef long *long_ptr; -typedef long int *long_ptr; -typedef long_ptr long_ptr; - -// Anonymous structures and unions -- taken from C11 6.7.2.1 Example 1. -struct anonymous -{ - union { - struct { int i; int j; }; - struct { int k; long int l; } w; - }; - int m; -} v1; -' - -# Test code for whether the C compiler supports C11 (body of main). -ac_c_conftest_c11_main=' - _Static_assert ((offsetof (struct anonymous, i) - == offsetof (struct anonymous, w.k)), - "Anonymous union alignment botch"); - v1.i = 2; - v1.w.k = 5; - ok |= v1.i != 5; -' - -# Test code for whether the C compiler supports C11 (complete). -ac_c_conftest_c11_program="${ac_c_conftest_c89_globals} -${ac_c_conftest_c99_globals} -${ac_c_conftest_c11_globals} - -int -main (int argc, char **argv) -{ - int ok = 0; - ${ac_c_conftest_c89_main} - ${ac_c_conftest_c99_main} - ${ac_c_conftest_c11_main} - return ok; -} -" - -# Test code for whether the C compiler supports C99 (complete). -ac_c_conftest_c99_program="${ac_c_conftest_c89_globals} -${ac_c_conftest_c99_globals} - -int -main (int argc, char **argv) -{ - int ok = 0; - ${ac_c_conftest_c89_main} - ${ac_c_conftest_c99_main} - return ok; -} -" - -# Test code for whether the C compiler supports C89 (complete). -ac_c_conftest_c89_program="${ac_c_conftest_c89_globals} - -int -main (int argc, char **argv) -{ - int ok = 0; - ${ac_c_conftest_c89_main} - return ok; -} -" - -as_fn_append ac_header_c_list " stdio.h stdio_h HAVE_STDIO_H" -as_fn_append ac_header_c_list " stdlib.h stdlib_h HAVE_STDLIB_H" -as_fn_append ac_header_c_list " string.h string_h HAVE_STRING_H" -as_fn_append ac_header_c_list " inttypes.h inttypes_h HAVE_INTTYPES_H" -as_fn_append ac_header_c_list " stdint.h stdint_h HAVE_STDINT_H" -as_fn_append ac_header_c_list " strings.h strings_h HAVE_STRINGS_H" -as_fn_append ac_header_c_list " sys/stat.h sys_stat_h HAVE_SYS_STAT_H" -as_fn_append ac_header_c_list " sys/types.h sys_types_h HAVE_SYS_TYPES_H" -as_fn_append ac_header_c_list " unistd.h unistd_h HAVE_UNISTD_H" -as_fn_append ac_header_c_list " wchar.h wchar_h HAVE_WCHAR_H" -as_fn_append ac_header_c_list " minix/config.h minix_config_h HAVE_MINIX_CONFIG_H" -# Check that the precious variables saved in the cache have kept the same -# value. -ac_cache_corrupted=false -for ac_var in $ac_precious_vars; do - eval ac_old_set=\$ac_cv_env_${ac_var}_set - eval ac_new_set=\$ac_env_${ac_var}_set - eval ac_old_val=\$ac_cv_env_${ac_var}_value - eval ac_new_val=\$ac_env_${ac_var}_value - case $ac_old_set,$ac_new_set in - set,) - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 -printf "%s\n" "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} - ac_cache_corrupted=: ;; - ,set) - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 -printf "%s\n" "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} - ac_cache_corrupted=: ;; - ,);; - *) - if test "x$ac_old_val" != "x$ac_new_val"; then - # differences in whitespace do not lead to failure. - ac_old_val_w=`echo x $ac_old_val` - ac_new_val_w=`echo x $ac_new_val` - if test "$ac_old_val_w" != "$ac_new_val_w"; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 -printf "%s\n" "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} - ac_cache_corrupted=: - else - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 -printf "%s\n" "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} - eval $ac_var=\$ac_old_val - fi - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 -printf "%s\n" "$as_me: former value: \`$ac_old_val'" >&2;} - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 -printf "%s\n" "$as_me: current value: \`$ac_new_val'" >&2;} - fi;; - esac - # Pass precious variables to config.status. - if test "$ac_new_set" = set; then - case $ac_new_val in - *\'*) ac_arg=$ac_var=`printf "%s\n" "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; - *) ac_arg=$ac_var=$ac_new_val ;; - esac - case " $ac_configure_args " in - *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. - *) as_fn_append ac_configure_args " '$ac_arg'" ;; - esac - fi -done -if $ac_cache_corrupted; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 -printf "%s\n" "$as_me: error: changes in the environment can compromise the build" >&2;} - as_fn_error $? "run \`${MAKE-make} distclean' and/or \`rm $cache_file' - and start over" "$LINENO" 5 -fi -## -------------------- ## -## Main body of script. ## -## -------------------- ## - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - - - -# Safety check: Ensure that we are in the correct source directory. - - -ac_config_headers="$ac_config_headers include/HsBaseConfig.h include/EventConfig.h" - - - - - - - - - - - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu -if test -n "$ac_tool_prefix"; then - # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. -set dummy ${ac_tool_prefix}gcc; ac_word=$2 -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -printf %s "checking for $ac_word... " >&6; } -if test ${ac_cv_prog_CC+y} -then : - printf %s "(cached) " >&6 -else $as_nop - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - case $as_dir in #((( - '') as_dir=./ ;; - */) ;; - *) as_dir=$as_dir/ ;; - esac - for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then - ac_cv_prog_CC="${ac_tool_prefix}gcc" - printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -printf "%s\n" "$CC" >&6; } -else - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 -printf "%s\n" "no" >&6; } -fi - - -fi -if test -z "$ac_cv_prog_CC"; then - ac_ct_CC=$CC - # Extract the first word of "gcc", so it can be a program name with args. -set dummy gcc; ac_word=$2 -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -printf %s "checking for $ac_word... " >&6; } -if test ${ac_cv_prog_ac_ct_CC+y} -then : - printf %s "(cached) " >&6 -else $as_nop - if test -n "$ac_ct_CC"; then - ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - case $as_dir in #((( - '') as_dir=./ ;; - */) ;; - *) as_dir=$as_dir/ ;; - esac - for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then - ac_cv_prog_ac_ct_CC="gcc" - printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -ac_ct_CC=$ac_cv_prog_ac_ct_CC -if test -n "$ac_ct_CC"; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 -printf "%s\n" "$ac_ct_CC" >&6; } -else - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 -printf "%s\n" "no" >&6; } -fi - - if test "x$ac_ct_CC" = x; then - CC="" - else - case $cross_compiling:$ac_tool_warned in -yes:) -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 -printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} -ac_tool_warned=yes ;; -esac - CC=$ac_ct_CC - fi -else - CC="$ac_cv_prog_CC" -fi - -if test -z "$CC"; then - if test -n "$ac_tool_prefix"; then - # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. -set dummy ${ac_tool_prefix}cc; ac_word=$2 -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -printf %s "checking for $ac_word... " >&6; } -if test ${ac_cv_prog_CC+y} -then : - printf %s "(cached) " >&6 -else $as_nop - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - case $as_dir in #((( - '') as_dir=./ ;; - */) ;; - *) as_dir=$as_dir/ ;; - esac - for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then - ac_cv_prog_CC="${ac_tool_prefix}cc" - printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -printf "%s\n" "$CC" >&6; } -else - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 -printf "%s\n" "no" >&6; } -fi - - - fi -fi -if test -z "$CC"; then - # Extract the first word of "cc", so it can be a program name with args. -set dummy cc; ac_word=$2 -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -printf %s "checking for $ac_word... " >&6; } -if test ${ac_cv_prog_CC+y} -then : - printf %s "(cached) " >&6 -else $as_nop - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - ac_prog_rejected=no -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - case $as_dir in #((( - '') as_dir=./ ;; - */) ;; - *) as_dir=$as_dir/ ;; - esac - for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then - if test "$as_dir$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then - ac_prog_rejected=yes - continue - fi - ac_cv_prog_CC="cc" - printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -if test $ac_prog_rejected = yes; then - # We found a bogon in the path, so make sure we never use it. - set dummy $ac_cv_prog_CC - shift - if test $# != 0; then - # We chose a different compiler from the bogus one. - # However, it has the same basename, so the bogon will be chosen - # first if we set CC to just the basename; use the full file name. - shift - ac_cv_prog_CC="$as_dir$ac_word${1+' '}$@" - fi -fi -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -printf "%s\n" "$CC" >&6; } -else - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 -printf "%s\n" "no" >&6; } -fi - - -fi -if test -z "$CC"; then - if test -n "$ac_tool_prefix"; then - for ac_prog in cl.exe - do - # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. -set dummy $ac_tool_prefix$ac_prog; ac_word=$2 -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -printf %s "checking for $ac_word... " >&6; } -if test ${ac_cv_prog_CC+y} -then : - printf %s "(cached) " >&6 -else $as_nop - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - case $as_dir in #((( - '') as_dir=./ ;; - */) ;; - *) as_dir=$as_dir/ ;; - esac - for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then - ac_cv_prog_CC="$ac_tool_prefix$ac_prog" - printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -printf "%s\n" "$CC" >&6; } -else - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 -printf "%s\n" "no" >&6; } -fi - - - test -n "$CC" && break - done -fi -if test -z "$CC"; then - ac_ct_CC=$CC - for ac_prog in cl.exe -do - # Extract the first word of "$ac_prog", so it can be a program name with args. -set dummy $ac_prog; ac_word=$2 -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -printf %s "checking for $ac_word... " >&6; } -if test ${ac_cv_prog_ac_ct_CC+y} -then : - printf %s "(cached) " >&6 -else $as_nop - if test -n "$ac_ct_CC"; then - ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - case $as_dir in #((( - '') as_dir=./ ;; - */) ;; - *) as_dir=$as_dir/ ;; - esac - for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then - ac_cv_prog_ac_ct_CC="$ac_prog" - printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -ac_ct_CC=$ac_cv_prog_ac_ct_CC -if test -n "$ac_ct_CC"; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 -printf "%s\n" "$ac_ct_CC" >&6; } -else - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 -printf "%s\n" "no" >&6; } -fi - - - test -n "$ac_ct_CC" && break -done - - if test "x$ac_ct_CC" = x; then - CC="" - else - case $cross_compiling:$ac_tool_warned in -yes:) -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 -printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} -ac_tool_warned=yes ;; -esac - CC=$ac_ct_CC - fi -fi - -fi -if test -z "$CC"; then - if test -n "$ac_tool_prefix"; then - # Extract the first word of "${ac_tool_prefix}clang", so it can be a program name with args. -set dummy ${ac_tool_prefix}clang; ac_word=$2 -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -printf %s "checking for $ac_word... " >&6; } -if test ${ac_cv_prog_CC+y} -then : - printf %s "(cached) " >&6 -else $as_nop - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - case $as_dir in #((( - '') as_dir=./ ;; - */) ;; - *) as_dir=$as_dir/ ;; - esac - for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then - ac_cv_prog_CC="${ac_tool_prefix}clang" - printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -printf "%s\n" "$CC" >&6; } -else - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 -printf "%s\n" "no" >&6; } -fi - - -fi -if test -z "$ac_cv_prog_CC"; then - ac_ct_CC=$CC - # Extract the first word of "clang", so it can be a program name with args. -set dummy clang; ac_word=$2 -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -printf %s "checking for $ac_word... " >&6; } -if test ${ac_cv_prog_ac_ct_CC+y} -then : - printf %s "(cached) " >&6 -else $as_nop - if test -n "$ac_ct_CC"; then - ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - case $as_dir in #((( - '') as_dir=./ ;; - */) ;; - *) as_dir=$as_dir/ ;; - esac - for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then - ac_cv_prog_ac_ct_CC="clang" - printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -ac_ct_CC=$ac_cv_prog_ac_ct_CC -if test -n "$ac_ct_CC"; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 -printf "%s\n" "$ac_ct_CC" >&6; } -else - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 -printf "%s\n" "no" >&6; } -fi - - if test "x$ac_ct_CC" = x; then - CC="" - else - case $cross_compiling:$ac_tool_warned in -yes:) -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 -printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} -ac_tool_warned=yes ;; -esac - CC=$ac_ct_CC - fi -else - CC="$ac_cv_prog_CC" -fi - -fi - - -test -z "$CC" && { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error $? "no acceptable C compiler found in \$PATH -See \`config.log' for more details" "$LINENO" 5; } - -# Provide some information about the compiler. -printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 -set X $ac_compile -ac_compiler=$2 -for ac_option in --version -v -V -qversion -version; do - { { ac_try="$ac_compiler $ac_option >&5" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -printf "%s\n" "$ac_try_echo"; } >&5 - (eval "$ac_compiler $ac_option >&5") 2>conftest.err - ac_status=$? - if test -s conftest.err; then - sed '10a\ -... rest of stderr output deleted ... - 10q' conftest.err >conftest.er1 - cat conftest.er1 >&5 - fi - rm -f conftest.er1 conftest.err - printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } -done - -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main (void) -{ - - ; - return 0; -} -_ACEOF -ac_clean_files_save=$ac_clean_files -ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out" -# Try to create an executable without -o first, disregard a.out. -# It will help us diagnose broken compilers, and finding out an intuition -# of exeext. -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 -printf %s "checking whether the C compiler works... " >&6; } -ac_link_default=`printf "%s\n" "$ac_link" | sed 's/ -o *conftest[^ ]*//'` - -# The possible output files: -ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" - -ac_rmfiles= -for ac_file in $ac_files -do - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; - * ) ac_rmfiles="$ac_rmfiles $ac_file";; - esac -done -rm -f $ac_rmfiles - -if { { ac_try="$ac_link_default" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -printf "%s\n" "$ac_try_echo"; } >&5 - (eval "$ac_link_default") 2>&5 - ac_status=$? - printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } -then : - # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. -# So ignore a value of `no', otherwise this would lead to `EXEEXT = no' -# in a Makefile. We should not override ac_cv_exeext if it was cached, -# so that the user can short-circuit this test for compilers unknown to -# Autoconf. -for ac_file in $ac_files '' -do - test -f "$ac_file" || continue - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) - ;; - [ab].out ) - # We found the default executable, but exeext='' is most - # certainly right. - break;; - *.* ) - if test ${ac_cv_exeext+y} && test "$ac_cv_exeext" != no; - then :; else - ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` - fi - # We set ac_cv_exeext here because the later test for it is not - # safe: cross compilers may not add the suffix if given an `-o' - # argument, so we may need to know it at that point already. - # Even if this section looks crufty: it has the advantage of - # actually working. - break;; - * ) - break;; - esac -done -test "$ac_cv_exeext" = no && ac_cv_exeext= - -else $as_nop - ac_file='' -fi -if test -z "$ac_file" -then : - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 -printf "%s\n" "no" >&6; } -printf "%s\n" "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -{ { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error 77 "C compiler cannot create executables -See \`config.log' for more details" "$LINENO" 5; } -else $as_nop - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -printf "%s\n" "yes" >&6; } -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 -printf %s "checking for C compiler default output file name... " >&6; } -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 -printf "%s\n" "$ac_file" >&6; } -ac_exeext=$ac_cv_exeext - -rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out -ac_clean_files=$ac_clean_files_save -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 -printf %s "checking for suffix of executables... " >&6; } -if { { ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -printf "%s\n" "$ac_try_echo"; } >&5 - (eval "$ac_link") 2>&5 - ac_status=$? - printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } -then : - # If both `conftest.exe' and `conftest' are `present' (well, observable) -# catch `conftest.exe'. For instance with Cygwin, `ls conftest' will -# work properly (i.e., refer to `conftest.exe'), while it won't with -# `rm'. -for ac_file in conftest.exe conftest conftest.*; do - test -f "$ac_file" || continue - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; - *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` - break;; - * ) break;; - esac -done -else $as_nop - { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error $? "cannot compute suffix of executables: cannot compile and link -See \`config.log' for more details" "$LINENO" 5; } -fi -rm -f conftest conftest$ac_cv_exeext -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 -printf "%s\n" "$ac_cv_exeext" >&6; } - -rm -f conftest.$ac_ext -EXEEXT=$ac_cv_exeext -ac_exeext=$EXEEXT -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -int -main (void) -{ -FILE *f = fopen ("conftest.out", "w"); - return ferror (f) || fclose (f) != 0; - - ; - return 0; -} -_ACEOF -ac_clean_files="$ac_clean_files conftest.out" -# Check that the compiler produces executables we can run. If not, either -# the compiler is broken, or we cross compile. -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 -printf %s "checking whether we are cross compiling... " >&6; } -if test "$cross_compiling" != yes; then - { { ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -printf "%s\n" "$ac_try_echo"; } >&5 - (eval "$ac_link") 2>&5 - ac_status=$? - printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - if { ac_try='./conftest$ac_cv_exeext' - { { case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -printf "%s\n" "$ac_try_echo"; } >&5 - (eval "$ac_try") 2>&5 - ac_status=$? - printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; }; }; then - cross_compiling=no - else - if test "$cross_compiling" = maybe; then - cross_compiling=yes - else - { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error 77 "cannot run C compiled programs. -If you meant to cross compile, use \`--host'. -See \`config.log' for more details" "$LINENO" 5; } - fi - fi -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 -printf "%s\n" "$cross_compiling" >&6; } - -rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out -ac_clean_files=$ac_clean_files_save -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 -printf %s "checking for suffix of object files... " >&6; } -if test ${ac_cv_objext+y} -then : - printf %s "(cached) " >&6 -else $as_nop - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main (void) -{ - - ; - return 0; -} -_ACEOF -rm -f conftest.o conftest.obj -if { { ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -printf "%s\n" "$ac_try_echo"; } >&5 - (eval "$ac_compile") 2>&5 - ac_status=$? - printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } -then : - for ac_file in conftest.o conftest.obj conftest.*; do - test -f "$ac_file" || continue; - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;; - *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` - break;; - esac -done -else $as_nop - printf "%s\n" "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -{ { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error $? "cannot compute suffix of object files: cannot compile -See \`config.log' for more details" "$LINENO" 5; } -fi -rm -f conftest.$ac_cv_objext conftest.$ac_ext -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 -printf "%s\n" "$ac_cv_objext" >&6; } -OBJEXT=$ac_cv_objext -ac_objext=$OBJEXT -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the compiler supports GNU C" >&5 -printf %s "checking whether the compiler supports GNU C... " >&6; } -if test ${ac_cv_c_compiler_gnu+y} -then : - printf %s "(cached) " >&6 -else $as_nop - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main (void) -{ -#ifndef __GNUC__ - choke me -#endif - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - ac_compiler_gnu=yes -else $as_nop - ac_compiler_gnu=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext -ac_cv_c_compiler_gnu=$ac_compiler_gnu - -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 -printf "%s\n" "$ac_cv_c_compiler_gnu" >&6; } -ac_compiler_gnu=$ac_cv_c_compiler_gnu - -if test $ac_compiler_gnu = yes; then - GCC=yes -else - GCC= -fi -ac_test_CFLAGS=${CFLAGS+y} -ac_save_CFLAGS=$CFLAGS -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 -printf %s "checking whether $CC accepts -g... " >&6; } -if test ${ac_cv_prog_cc_g+y} -then : - printf %s "(cached) " >&6 -else $as_nop - ac_save_c_werror_flag=$ac_c_werror_flag - ac_c_werror_flag=yes - ac_cv_prog_cc_g=no - CFLAGS="-g" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main (void) -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - ac_cv_prog_cc_g=yes -else $as_nop - CFLAGS="" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main (void) -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - -else $as_nop - ac_c_werror_flag=$ac_save_c_werror_flag - CFLAGS="-g" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main (void) -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - ac_cv_prog_cc_g=yes -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - ac_c_werror_flag=$ac_save_c_werror_flag -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 -printf "%s\n" "$ac_cv_prog_cc_g" >&6; } -if test $ac_test_CFLAGS; then - CFLAGS=$ac_save_CFLAGS -elif test $ac_cv_prog_cc_g = yes; then - if test "$GCC" = yes; then - CFLAGS="-g -O2" - else - CFLAGS="-g" - fi -else - if test "$GCC" = yes; then - CFLAGS="-O2" - else - CFLAGS= - fi -fi -ac_prog_cc_stdc=no -if test x$ac_prog_cc_stdc = xno -then : - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C11 features" >&5 -printf %s "checking for $CC option to enable C11 features... " >&6; } -if test ${ac_cv_prog_cc_c11+y} -then : - printf %s "(cached) " >&6 -else $as_nop - ac_cv_prog_cc_c11=no -ac_save_CC=$CC -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$ac_c_conftest_c11_program -_ACEOF -for ac_arg in '' -std=gnu11 -do - CC="$ac_save_CC $ac_arg" - if ac_fn_c_try_compile "$LINENO" -then : - ac_cv_prog_cc_c11=$ac_arg -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam - test "x$ac_cv_prog_cc_c11" != "xno" && break -done -rm -f conftest.$ac_ext -CC=$ac_save_CC -fi - -if test "x$ac_cv_prog_cc_c11" = xno -then : - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 -printf "%s\n" "unsupported" >&6; } -else $as_nop - if test "x$ac_cv_prog_cc_c11" = x -then : - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 -printf "%s\n" "none needed" >&6; } -else $as_nop - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c11" >&5 -printf "%s\n" "$ac_cv_prog_cc_c11" >&6; } - CC="$CC $ac_cv_prog_cc_c11" -fi - ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c11 - ac_prog_cc_stdc=c11 -fi -fi -if test x$ac_prog_cc_stdc = xno -then : - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C99 features" >&5 -printf %s "checking for $CC option to enable C99 features... " >&6; } -if test ${ac_cv_prog_cc_c99+y} -then : - printf %s "(cached) " >&6 -else $as_nop - ac_cv_prog_cc_c99=no -ac_save_CC=$CC -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$ac_c_conftest_c99_program -_ACEOF -for ac_arg in '' -std=gnu99 -std=c99 -c99 -qlanglvl=extc1x -qlanglvl=extc99 -AC99 -D_STDC_C99= -do - CC="$ac_save_CC $ac_arg" - if ac_fn_c_try_compile "$LINENO" -then : - ac_cv_prog_cc_c99=$ac_arg -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam - test "x$ac_cv_prog_cc_c99" != "xno" && break -done -rm -f conftest.$ac_ext -CC=$ac_save_CC -fi - -if test "x$ac_cv_prog_cc_c99" = xno -then : - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 -printf "%s\n" "unsupported" >&6; } -else $as_nop - if test "x$ac_cv_prog_cc_c99" = x -then : - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 -printf "%s\n" "none needed" >&6; } -else $as_nop - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c99" >&5 -printf "%s\n" "$ac_cv_prog_cc_c99" >&6; } - CC="$CC $ac_cv_prog_cc_c99" -fi - ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c99 - ac_prog_cc_stdc=c99 -fi -fi -if test x$ac_prog_cc_stdc = xno -then : - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C89 features" >&5 -printf %s "checking for $CC option to enable C89 features... " >&6; } -if test ${ac_cv_prog_cc_c89+y} -then : - printf %s "(cached) " >&6 -else $as_nop - ac_cv_prog_cc_c89=no -ac_save_CC=$CC -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$ac_c_conftest_c89_program -_ACEOF -for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" -do - CC="$ac_save_CC $ac_arg" - if ac_fn_c_try_compile "$LINENO" -then : - ac_cv_prog_cc_c89=$ac_arg -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam - test "x$ac_cv_prog_cc_c89" != "xno" && break -done -rm -f conftest.$ac_ext -CC=$ac_save_CC -fi - -if test "x$ac_cv_prog_cc_c89" = xno -then : - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 -printf "%s\n" "unsupported" >&6; } -else $as_nop - if test "x$ac_cv_prog_cc_c89" = x -then : - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 -printf "%s\n" "none needed" >&6; } -else $as_nop - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 -printf "%s\n" "$ac_cv_prog_cc_c89" >&6; } - CC="$CC $ac_cv_prog_cc_c89" -fi - ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c89 - ac_prog_cc_stdc=c89 -fi -fi - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - - -ac_header= ac_cache= -for ac_item in $ac_header_c_list -do - if test $ac_cache; then - ac_fn_c_check_header_compile "$LINENO" $ac_header ac_cv_header_$ac_cache "$ac_includes_default" - if eval test \"x\$ac_cv_header_$ac_cache\" = xyes; then - printf "%s\n" "#define $ac_item 1" >> confdefs.h - fi - ac_header= ac_cache= - elif test $ac_header; then - ac_cache=$ac_item - else - ac_header=$ac_item - fi -done - - - - - - - - -if test $ac_cv_header_stdlib_h = yes && test $ac_cv_header_string_h = yes -then : - -printf "%s\n" "#define STDC_HEADERS 1" >>confdefs.h - -fi - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether it is safe to define __EXTENSIONS__" >&5 -printf %s "checking whether it is safe to define __EXTENSIONS__... " >&6; } -if test ${ac_cv_safe_to_define___extensions__+y} -then : - printf %s "(cached) " >&6 -else $as_nop - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -# define __EXTENSIONS__ 1 - $ac_includes_default -int -main (void) -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - ac_cv_safe_to_define___extensions__=yes -else $as_nop - ac_cv_safe_to_define___extensions__=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_safe_to_define___extensions__" >&5 -printf "%s\n" "$ac_cv_safe_to_define___extensions__" >&6; } - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether _XOPEN_SOURCE should be defined" >&5 -printf %s "checking whether _XOPEN_SOURCE should be defined... " >&6; } -if test ${ac_cv_should_define__xopen_source+y} -then : - printf %s "(cached) " >&6 -else $as_nop - ac_cv_should_define__xopen_source=no - if test $ac_cv_header_wchar_h = yes -then : - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - - #include - mbstate_t x; -int -main (void) -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - -else $as_nop - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - - #define _XOPEN_SOURCE 500 - #include - mbstate_t x; -int -main (void) -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - ac_cv_should_define__xopen_source=yes -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext -fi -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_should_define__xopen_source" >&5 -printf "%s\n" "$ac_cv_should_define__xopen_source" >&6; } - - printf "%s\n" "#define _ALL_SOURCE 1" >>confdefs.h - - printf "%s\n" "#define _DARWIN_C_SOURCE 1" >>confdefs.h - - printf "%s\n" "#define _GNU_SOURCE 1" >>confdefs.h - - printf "%s\n" "#define _HPUX_ALT_XOPEN_SOCKET_API 1" >>confdefs.h - - printf "%s\n" "#define _NETBSD_SOURCE 1" >>confdefs.h - - printf "%s\n" "#define _OPENBSD_SOURCE 1" >>confdefs.h - - printf "%s\n" "#define _POSIX_PTHREAD_SEMANTICS 1" >>confdefs.h - - printf "%s\n" "#define __STDC_WANT_IEC_60559_ATTRIBS_EXT__ 1" >>confdefs.h - - printf "%s\n" "#define __STDC_WANT_IEC_60559_BFP_EXT__ 1" >>confdefs.h - - printf "%s\n" "#define __STDC_WANT_IEC_60559_DFP_EXT__ 1" >>confdefs.h - - printf "%s\n" "#define __STDC_WANT_IEC_60559_FUNCS_EXT__ 1" >>confdefs.h - - printf "%s\n" "#define __STDC_WANT_IEC_60559_TYPES_EXT__ 1" >>confdefs.h - - printf "%s\n" "#define __STDC_WANT_LIB_EXT2__ 1" >>confdefs.h - - printf "%s\n" "#define __STDC_WANT_MATH_SPEC_FUNCS__ 1" >>confdefs.h - - printf "%s\n" "#define _TANDEM_SOURCE 1" >>confdefs.h - - if test $ac_cv_header_minix_config_h = yes -then : - MINIX=yes - printf "%s\n" "#define _MINIX 1" >>confdefs.h - - printf "%s\n" "#define _POSIX_SOURCE 1" >>confdefs.h - - printf "%s\n" "#define _POSIX_1_SOURCE 2" >>confdefs.h - -else $as_nop - MINIX= -fi - if test $ac_cv_safe_to_define___extensions__ = yes -then : - printf "%s\n" "#define __EXTENSIONS__ 1" >>confdefs.h - -fi - if test $ac_cv_should_define__xopen_source = yes -then : - printf "%s\n" "#define _XOPEN_SOURCE 500" >>confdefs.h - -fi - - -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for WINDOWS platform" >&5 -printf %s "checking for WINDOWS platform... " >&6; } -case $host_alias in - *mingw32*|*mingw64*|*cygwin*|*msys*) - WINDOWS=YES;; - *) - WINDOWS=NO;; -esac -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $WINDOWS" >&5 -printf "%s\n" "$WINDOWS" >&6; } - -# do we have long longs? -ac_fn_c_check_type "$LINENO" "long long" "ac_cv_type_long_long" "$ac_includes_default" -if test "x$ac_cv_type_long_long" = xyes -then : - -printf "%s\n" "#define HAVE_LONG_LONG 1" >>confdefs.h - - -fi - - -# check for specific header (.h) files that we are interested in -ac_fn_c_check_header_compile "$LINENO" "ctype.h" "ac_cv_header_ctype_h" "$ac_includes_default" -if test "x$ac_cv_header_ctype_h" = xyes -then : - printf "%s\n" "#define HAVE_CTYPE_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "errno.h" "ac_cv_header_errno_h" "$ac_includes_default" -if test "x$ac_cv_header_errno_h" = xyes -then : - printf "%s\n" "#define HAVE_ERRNO_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "fcntl.h" "ac_cv_header_fcntl_h" "$ac_includes_default" -if test "x$ac_cv_header_fcntl_h" = xyes -then : - printf "%s\n" "#define HAVE_FCNTL_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "inttypes.h" "ac_cv_header_inttypes_h" "$ac_includes_default" -if test "x$ac_cv_header_inttypes_h" = xyes -then : - printf "%s\n" "#define HAVE_INTTYPES_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "limits.h" "ac_cv_header_limits_h" "$ac_includes_default" -if test "x$ac_cv_header_limits_h" = xyes -then : - printf "%s\n" "#define HAVE_LIMITS_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "signal.h" "ac_cv_header_signal_h" "$ac_includes_default" -if test "x$ac_cv_header_signal_h" = xyes -then : - printf "%s\n" "#define HAVE_SIGNAL_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "sys/file.h" "ac_cv_header_sys_file_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_file_h" = xyes -then : - printf "%s\n" "#define HAVE_SYS_FILE_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "sys/resource.h" "ac_cv_header_sys_resource_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_resource_h" = xyes -then : - printf "%s\n" "#define HAVE_SYS_RESOURCE_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "sys/select.h" "ac_cv_header_sys_select_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_select_h" = xyes -then : - printf "%s\n" "#define HAVE_SYS_SELECT_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "sys/stat.h" "ac_cv_header_sys_stat_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_stat_h" = xyes -then : - printf "%s\n" "#define HAVE_SYS_STAT_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "sys/syscall.h" "ac_cv_header_sys_syscall_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_syscall_h" = xyes -then : - printf "%s\n" "#define HAVE_SYS_SYSCALL_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "sys/time.h" "ac_cv_header_sys_time_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_time_h" = xyes -then : - printf "%s\n" "#define HAVE_SYS_TIME_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "sys/timeb.h" "ac_cv_header_sys_timeb_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_timeb_h" = xyes -then : - printf "%s\n" "#define HAVE_SYS_TIMEB_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "sys/timers.h" "ac_cv_header_sys_timers_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_timers_h" = xyes -then : - printf "%s\n" "#define HAVE_SYS_TIMERS_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "sys/times.h" "ac_cv_header_sys_times_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_times_h" = xyes -then : - printf "%s\n" "#define HAVE_SYS_TIMES_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "sys/types.h" "ac_cv_header_sys_types_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_types_h" = xyes -then : - printf "%s\n" "#define HAVE_SYS_TYPES_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "sys/utsname.h" "ac_cv_header_sys_utsname_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_utsname_h" = xyes -then : - printf "%s\n" "#define HAVE_SYS_UTSNAME_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "sys/wait.h" "ac_cv_header_sys_wait_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_wait_h" = xyes -then : - printf "%s\n" "#define HAVE_SYS_WAIT_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "termios.h" "ac_cv_header_termios_h" "$ac_includes_default" -if test "x$ac_cv_header_termios_h" = xyes -then : - printf "%s\n" "#define HAVE_TERMIOS_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "time.h" "ac_cv_header_time_h" "$ac_includes_default" -if test "x$ac_cv_header_time_h" = xyes -then : - printf "%s\n" "#define HAVE_TIME_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "unistd.h" "ac_cv_header_unistd_h" "$ac_includes_default" -if test "x$ac_cv_header_unistd_h" = xyes -then : - printf "%s\n" "#define HAVE_UNISTD_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "utime.h" "ac_cv_header_utime_h" "$ac_includes_default" -if test "x$ac_cv_header_utime_h" = xyes -then : - printf "%s\n" "#define HAVE_UTIME_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "windows.h" "ac_cv_header_windows_h" "$ac_includes_default" -if test "x$ac_cv_header_windows_h" = xyes -then : - printf "%s\n" "#define HAVE_WINDOWS_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "winsock.h" "ac_cv_header_winsock_h" "$ac_includes_default" -if test "x$ac_cv_header_winsock_h" = xyes -then : - printf "%s\n" "#define HAVE_WINSOCK_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "langinfo.h" "ac_cv_header_langinfo_h" "$ac_includes_default" -if test "x$ac_cv_header_langinfo_h" = xyes -then : - printf "%s\n" "#define HAVE_LANGINFO_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "poll.h" "ac_cv_header_poll_h" "$ac_includes_default" -if test "x$ac_cv_header_poll_h" = xyes -then : - printf "%s\n" "#define HAVE_POLL_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "sys/epoll.h" "ac_cv_header_sys_epoll_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_epoll_h" = xyes -then : - printf "%s\n" "#define HAVE_SYS_EPOLL_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "sys/event.h" "ac_cv_header_sys_event_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_event_h" = xyes -then : - printf "%s\n" "#define HAVE_SYS_EVENT_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "sys/eventfd.h" "ac_cv_header_sys_eventfd_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_eventfd_h" = xyes -then : - printf "%s\n" "#define HAVE_SYS_EVENTFD_H 1" >>confdefs.h - -fi -ac_fn_c_check_header_compile "$LINENO" "sys/socket.h" "ac_cv_header_sys_socket_h" "$ac_includes_default" -if test "x$ac_cv_header_sys_socket_h" = xyes -then : - printf "%s\n" "#define HAVE_SYS_SOCKET_H 1" >>confdefs.h - -fi - - -# Enable large file support. Do this before testing the types ino_t, off_t, and -# rlim_t, because it will affect the result of that test. -# Check whether --enable-largefile was given. -if test ${enable_largefile+y} -then : - enableval=$enable_largefile; -fi - -if test "$enable_largefile" != no; then - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for special C compiler options needed for large files" >&5 -printf %s "checking for special C compiler options needed for large files... " >&6; } -if test ${ac_cv_sys_largefile_CC+y} -then : - printf %s "(cached) " >&6 -else $as_nop - ac_cv_sys_largefile_CC=no - if test "$GCC" != yes; then - ac_save_CC=$CC - while :; do - # IRIX 6.2 and later do not support large files by default, - # so use the C compiler's -n32 option if that helps. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - /* Check that off_t can represent 2**63 - 1 correctly. - We can't simply define LARGE_OFF_T to be 9223372036854775807, - since some C++ compilers masquerading as C compilers - incorrectly reject 9223372036854775807. */ -#define LARGE_OFF_T (((off_t) 1 << 31 << 31) - 1 + ((off_t) 1 << 31 << 31)) - int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 - && LARGE_OFF_T % 2147483647 == 1) - ? 1 : -1]; -int -main (void) -{ - - ; - return 0; -} -_ACEOF - if ac_fn_c_try_compile "$LINENO" -then : - break -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam - CC="$CC -n32" - if ac_fn_c_try_compile "$LINENO" -then : - ac_cv_sys_largefile_CC=' -n32'; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam - break - done - CC=$ac_save_CC - rm -f conftest.$ac_ext - fi -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_largefile_CC" >&5 -printf "%s\n" "$ac_cv_sys_largefile_CC" >&6; } - if test "$ac_cv_sys_largefile_CC" != no; then - CC=$CC$ac_cv_sys_largefile_CC - fi - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for _FILE_OFFSET_BITS value needed for large files" >&5 -printf %s "checking for _FILE_OFFSET_BITS value needed for large files... " >&6; } -if test ${ac_cv_sys_file_offset_bits+y} -then : - printf %s "(cached) " >&6 -else $as_nop - while :; do - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - /* Check that off_t can represent 2**63 - 1 correctly. - We can't simply define LARGE_OFF_T to be 9223372036854775807, - since some C++ compilers masquerading as C compilers - incorrectly reject 9223372036854775807. */ -#define LARGE_OFF_T (((off_t) 1 << 31 << 31) - 1 + ((off_t) 1 << 31 << 31)) - int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 - && LARGE_OFF_T % 2147483647 == 1) - ? 1 : -1]; -int -main (void) -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - ac_cv_sys_file_offset_bits=no; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#define _FILE_OFFSET_BITS 64 -#include - /* Check that off_t can represent 2**63 - 1 correctly. - We can't simply define LARGE_OFF_T to be 9223372036854775807, - since some C++ compilers masquerading as C compilers - incorrectly reject 9223372036854775807. */ -#define LARGE_OFF_T (((off_t) 1 << 31 << 31) - 1 + ((off_t) 1 << 31 << 31)) - int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 - && LARGE_OFF_T % 2147483647 == 1) - ? 1 : -1]; -int -main (void) -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - ac_cv_sys_file_offset_bits=64; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - ac_cv_sys_file_offset_bits=unknown - break -done -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_file_offset_bits" >&5 -printf "%s\n" "$ac_cv_sys_file_offset_bits" >&6; } -case $ac_cv_sys_file_offset_bits in #( - no | unknown) ;; - *) -printf "%s\n" "#define _FILE_OFFSET_BITS $ac_cv_sys_file_offset_bits" >>confdefs.h -;; -esac -rm -rf conftest* - if test $ac_cv_sys_file_offset_bits = unknown; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for _LARGE_FILES value needed for large files" >&5 -printf %s "checking for _LARGE_FILES value needed for large files... " >&6; } -if test ${ac_cv_sys_large_files+y} -then : - printf %s "(cached) " >&6 -else $as_nop - while :; do - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - /* Check that off_t can represent 2**63 - 1 correctly. - We can't simply define LARGE_OFF_T to be 9223372036854775807, - since some C++ compilers masquerading as C compilers - incorrectly reject 9223372036854775807. */ -#define LARGE_OFF_T (((off_t) 1 << 31 << 31) - 1 + ((off_t) 1 << 31 << 31)) - int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 - && LARGE_OFF_T % 2147483647 == 1) - ? 1 : -1]; -int -main (void) -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - ac_cv_sys_large_files=no; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#define _LARGE_FILES 1 -#include - /* Check that off_t can represent 2**63 - 1 correctly. - We can't simply define LARGE_OFF_T to be 9223372036854775807, - since some C++ compilers masquerading as C compilers - incorrectly reject 9223372036854775807. */ -#define LARGE_OFF_T (((off_t) 1 << 31 << 31) - 1 + ((off_t) 1 << 31 << 31)) - int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 - && LARGE_OFF_T % 2147483647 == 1) - ? 1 : -1]; -int -main (void) -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - ac_cv_sys_large_files=1; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - ac_cv_sys_large_files=unknown - break -done -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_large_files" >&5 -printf "%s\n" "$ac_cv_sys_large_files" >&6; } -case $ac_cv_sys_large_files in #( - no | unknown) ;; - *) -printf "%s\n" "#define _LARGE_FILES $ac_cv_sys_large_files" >>confdefs.h -;; -esac -rm -rf conftest* - fi -fi - - - for ac_header in wctype.h -do : - ac_fn_c_check_header_compile "$LINENO" "wctype.h" "ac_cv_header_wctype_h" "$ac_includes_default" -if test "x$ac_cv_header_wctype_h" = xyes -then : - printf "%s\n" "#define HAVE_WCTYPE_H 1" >>confdefs.h - ac_fn_c_check_func "$LINENO" "iswspace" "ac_cv_func_iswspace" -if test "x$ac_cv_func_iswspace" = xyes -then : - printf "%s\n" "#define HAVE_ISWSPACE 1" >>confdefs.h - -fi - -fi - -done - -ac_fn_c_check_func "$LINENO" "lstat" "ac_cv_func_lstat" -if test "x$ac_cv_func_lstat" = xyes -then : - printf "%s\n" "#define HAVE_LSTAT 1" >>confdefs.h - -fi - -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for clock_gettime in -lrt" >&5 -printf %s "checking for clock_gettime in -lrt... " >&6; } -if test ${ac_cv_lib_rt_clock_gettime+y} -then : - printf %s "(cached) " >&6 -else $as_nop - ac_check_lib_save_LIBS=$LIBS -LIBS="-lrt $LIBS" -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -char clock_gettime (); -int -main (void) -{ -return clock_gettime (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO" -then : - ac_cv_lib_rt_clock_gettime=yes -else $as_nop - ac_cv_lib_rt_clock_gettime=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam \ - conftest$ac_exeext conftest.$ac_ext -LIBS=$ac_check_lib_save_LIBS -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_rt_clock_gettime" >&5 -printf "%s\n" "$ac_cv_lib_rt_clock_gettime" >&6; } -if test "x$ac_cv_lib_rt_clock_gettime" = xyes -then : - printf "%s\n" "#define HAVE_LIBRT 1" >>confdefs.h - - LIBS="-lrt $LIBS" - -fi - -ac_fn_c_check_func "$LINENO" "clock_gettime" "ac_cv_func_clock_gettime" -if test "x$ac_cv_func_clock_gettime" = xyes -then : - printf "%s\n" "#define HAVE_CLOCK_GETTIME 1" >>confdefs.h - -fi - -ac_fn_c_check_func "$LINENO" "getclock" "ac_cv_func_getclock" -if test "x$ac_cv_func_getclock" = xyes -then : - printf "%s\n" "#define HAVE_GETCLOCK 1" >>confdefs.h - -fi -ac_fn_c_check_func "$LINENO" "getrusage" "ac_cv_func_getrusage" -if test "x$ac_cv_func_getrusage" = xyes -then : - printf "%s\n" "#define HAVE_GETRUSAGE 1" >>confdefs.h - -fi -ac_fn_c_check_func "$LINENO" "times" "ac_cv_func_times" -if test "x$ac_cv_func_times" = xyes -then : - printf "%s\n" "#define HAVE_TIMES 1" >>confdefs.h - -fi - -ac_fn_c_check_func "$LINENO" "_chsize" "ac_cv_func__chsize" -if test "x$ac_cv_func__chsize" = xyes -then : - printf "%s\n" "#define HAVE__CHSIZE 1" >>confdefs.h - -fi -ac_fn_c_check_func "$LINENO" "ftruncate" "ac_cv_func_ftruncate" -if test "x$ac_cv_func_ftruncate" = xyes -then : - printf "%s\n" "#define HAVE_FTRUNCATE 1" >>confdefs.h - -fi - - -ac_fn_c_check_func "$LINENO" "epoll_ctl" "ac_cv_func_epoll_ctl" -if test "x$ac_cv_func_epoll_ctl" = xyes -then : - printf "%s\n" "#define HAVE_EPOLL_CTL 1" >>confdefs.h - -fi -ac_fn_c_check_func "$LINENO" "eventfd" "ac_cv_func_eventfd" -if test "x$ac_cv_func_eventfd" = xyes -then : - printf "%s\n" "#define HAVE_EVENTFD 1" >>confdefs.h - -fi -ac_fn_c_check_func "$LINENO" "kevent" "ac_cv_func_kevent" -if test "x$ac_cv_func_kevent" = xyes -then : - printf "%s\n" "#define HAVE_KEVENT 1" >>confdefs.h - -fi -ac_fn_c_check_func "$LINENO" "kevent64" "ac_cv_func_kevent64" -if test "x$ac_cv_func_kevent64" = xyes -then : - printf "%s\n" "#define HAVE_KEVENT64 1" >>confdefs.h - -fi -ac_fn_c_check_func "$LINENO" "kqueue" "ac_cv_func_kqueue" -if test "x$ac_cv_func_kqueue" = xyes -then : - printf "%s\n" "#define HAVE_KQUEUE 1" >>confdefs.h - -fi -ac_fn_c_check_func "$LINENO" "poll" "ac_cv_func_poll" -if test "x$ac_cv_func_poll" = xyes -then : - printf "%s\n" "#define HAVE_POLL 1" >>confdefs.h - -fi - - -# event-related fun - -if test "$ac_cv_header_sys_epoll_h" = yes && test "$ac_cv_func_epoll_ctl" = yes; then - -printf "%s\n" "#define HAVE_EPOLL 1" >>confdefs.h - -fi - -if test "$ac_cv_header_sys_event_h" = yes && test "$ac_cv_func_kqueue" = yes; then - -printf "%s\n" "#define HAVE_KQUEUE 1" >>confdefs.h - - - # The cast to long int works around a bug in the HP C Compiler -# version HP92453-01 B.11.11.23709.GP, which incorrectly rejects -# declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. -# This bug is HP SR number 8606223364. -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking size of kev.filter" >&5 -printf %s "checking size of kev.filter... " >&6; } -if test ${ac_cv_sizeof_kev_filter+y} -then : - printf %s "(cached) " >&6 -else $as_nop - if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (kev.filter))" "ac_cv_sizeof_kev_filter" "#include -struct kevent kev; -" -then : - -else $as_nop - if test "$ac_cv_type_kev_filter" = yes; then - { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error 77 "cannot compute sizeof (kev.filter) -See \`config.log' for more details" "$LINENO" 5; } - else - ac_cv_sizeof_kev_filter=0 - fi -fi - -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_kev_filter" >&5 -printf "%s\n" "$ac_cv_sizeof_kev_filter" >&6; } - - - -printf "%s\n" "#define SIZEOF_KEV_FILTER $ac_cv_sizeof_kev_filter" >>confdefs.h - - - - # The cast to long int works around a bug in the HP C Compiler -# version HP92453-01 B.11.11.23709.GP, which incorrectly rejects -# declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. -# This bug is HP SR number 8606223364. -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking size of kev.flags" >&5 -printf %s "checking size of kev.flags... " >&6; } -if test ${ac_cv_sizeof_kev_flags+y} -then : - printf %s "(cached) " >&6 -else $as_nop - if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (kev.flags))" "ac_cv_sizeof_kev_flags" "#include -struct kevent kev; -" -then : - -else $as_nop - if test "$ac_cv_type_kev_flags" = yes; then - { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error 77 "cannot compute sizeof (kev.flags) -See \`config.log' for more details" "$LINENO" 5; } - else - ac_cv_sizeof_kev_flags=0 - fi -fi - -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_kev_flags" >&5 -printf "%s\n" "$ac_cv_sizeof_kev_flags" >&6; } - - - -printf "%s\n" "#define SIZEOF_KEV_FLAGS $ac_cv_sizeof_kev_flags" >>confdefs.h - - -fi - -if test "$ac_cv_header_poll_h" = yes && test "$ac_cv_func_poll" = yes; then - -printf "%s\n" "#define HAVE_POLL 1" >>confdefs.h - -fi - -# Linux open file descriptor locks -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC options needed to detect all undeclared functions" >&5 -printf %s "checking for $CC options needed to detect all undeclared functions... " >&6; } -if test ${ac_cv_c_undeclared_builtin_options+y} -then : - printf %s "(cached) " >&6 -else $as_nop - ac_save_CFLAGS=$CFLAGS - ac_cv_c_undeclared_builtin_options='cannot detect' - for ac_arg in '' -fno-builtin; do - CFLAGS="$ac_save_CFLAGS $ac_arg" - # This test program should *not* compile successfully. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main (void) -{ -(void) strchr; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - -else $as_nop - # This test program should compile successfully. - # No library function is consistently available on - # freestanding implementations, so test against a dummy - # declaration. Include always-available headers on the - # off chance that they somehow elicit warnings. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -#include -#include -#include -extern void ac_decl (int, char *); - -int -main (void) -{ -(void) ac_decl (0, (char *) 0); - (void) ac_decl; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - if test x"$ac_arg" = x -then : - ac_cv_c_undeclared_builtin_options='none needed' -else $as_nop - ac_cv_c_undeclared_builtin_options=$ac_arg -fi - break -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - done - CFLAGS=$ac_save_CFLAGS - -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_undeclared_builtin_options" >&5 -printf "%s\n" "$ac_cv_c_undeclared_builtin_options" >&6; } - case $ac_cv_c_undeclared_builtin_options in #( - 'cannot detect') : - { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error $? "cannot make $CC report undeclared builtins -See \`config.log' for more details" "$LINENO" 5; } ;; #( - 'none needed') : - ac_c_undeclared_builtin_options='' ;; #( - *) : - ac_c_undeclared_builtin_options=$ac_cv_c_undeclared_builtin_options ;; -esac - -ac_fn_check_decl "$LINENO" "F_OFD_SETLK" "ac_cv_have_decl_F_OFD_SETLK" " - #include - #include - -" "$ac_c_undeclared_builtin_options" "CFLAGS" -if test "x$ac_cv_have_decl_F_OFD_SETLK" = xyes -then : - - -printf "%s\n" "#define HAVE_OFD_LOCKING 1" >>confdefs.h - - -fi - -# flock -ac_fn_c_check_func "$LINENO" "flock" "ac_cv_func_flock" -if test "x$ac_cv_func_flock" = xyes -then : - printf "%s\n" "#define HAVE_FLOCK 1" >>confdefs.h - -fi - -if test "$ac_cv_header_sys_file_h" = yes && test "$ac_cv_func_flock" = yes; then - -printf "%s\n" "#define HAVE_FLOCK 1" >>confdefs.h - -fi - -# unsetenv -ac_fn_c_check_func "$LINENO" "unsetenv" "ac_cv_func_unsetenv" -if test "x$ac_cv_func_unsetenv" = xyes -then : - printf "%s\n" "#define HAVE_UNSETENV 1" >>confdefs.h - -fi - - -### POSIX.1003.1 unsetenv returns 0 or -1 (EINVAL), but older implementations -### in common use return void. -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 -printf %s "checking how to run the C preprocessor... " >&6; } -# On Suns, sometimes $CPP names a directory. -if test -n "$CPP" && test -d "$CPP"; then - CPP= -fi -if test -z "$CPP"; then - if test ${ac_cv_prog_CPP+y} -then : - printf %s "(cached) " >&6 -else $as_nop - # Double quotes because $CC needs to be expanded - for CPP in "$CC -E" "$CC -E -traditional-cpp" cpp /lib/cpp - do - ac_preproc_ok=false -for ac_c_preproc_warn_flag in '' yes -do - # Use a header file that comes with gcc, so configuring glibc - # with a fresh cross-compiler works. - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. "Syntax error" is here to catch this case. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - Syntax error -_ACEOF -if ac_fn_c_try_cpp "$LINENO" -then : - -else $as_nop - # Broken: fails on valid input. -continue -fi -rm -f conftest.err conftest.i conftest.$ac_ext - - # OK, works on sane cases. Now check whether nonexistent headers - # can be detected and how. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -_ACEOF -if ac_fn_c_try_cpp "$LINENO" -then : - # Broken: success on invalid input. -continue -else $as_nop - # Passes both tests. -ac_preproc_ok=: -break -fi -rm -f conftest.err conftest.i conftest.$ac_ext - -done -# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. -rm -f conftest.i conftest.err conftest.$ac_ext -if $ac_preproc_ok -then : - break -fi - - done - ac_cv_prog_CPP=$CPP - -fi - CPP=$ac_cv_prog_CPP -else - ac_cv_prog_CPP=$CPP -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 -printf "%s\n" "$CPP" >&6; } -ac_preproc_ok=false -for ac_c_preproc_warn_flag in '' yes -do - # Use a header file that comes with gcc, so configuring glibc - # with a fresh cross-compiler works. - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. "Syntax error" is here to catch this case. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - Syntax error -_ACEOF -if ac_fn_c_try_cpp "$LINENO" -then : - -else $as_nop - # Broken: fails on valid input. -continue -fi -rm -f conftest.err conftest.i conftest.$ac_ext - - # OK, works on sane cases. Now check whether nonexistent headers - # can be detected and how. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -_ACEOF -if ac_fn_c_try_cpp "$LINENO" -then : - # Broken: success on invalid input. -continue -else $as_nop - # Passes both tests. -ac_preproc_ok=: -break -fi -rm -f conftest.err conftest.i conftest.$ac_ext - -done -# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. -rm -f conftest.i conftest.err conftest.$ac_ext -if $ac_preproc_ok -then : - -else $as_nop - { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error $? "C preprocessor \"$CPP\" fails sanity check -See \`config.log' for more details" "$LINENO" 5; } -fi - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - - -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5 -printf %s "checking for grep that handles long lines and -e... " >&6; } -if test ${ac_cv_path_GREP+y} -then : - printf %s "(cached) " >&6 -else $as_nop - if test -z "$GREP"; then - ac_path_GREP_found=false - # Loop through the user's path and test for each of PROGNAME-LIST - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin -do - IFS=$as_save_IFS - case $as_dir in #((( - '') as_dir=./ ;; - */) ;; - *) as_dir=$as_dir/ ;; - esac - for ac_prog in grep ggrep - do - for ac_exec_ext in '' $ac_executable_extensions; do - ac_path_GREP="$as_dir$ac_prog$ac_exec_ext" - as_fn_executable_p "$ac_path_GREP" || continue -# Check for GNU ac_path_GREP and select it if it is found. - # Check for GNU $ac_path_GREP -case `"$ac_path_GREP" --version 2>&1` in -*GNU*) - ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; -*) - ac_count=0 - printf %s 0123456789 >"conftest.in" - while : - do - cat "conftest.in" "conftest.in" >"conftest.tmp" - mv "conftest.tmp" "conftest.in" - cp "conftest.in" "conftest.nl" - printf "%s\n" 'GREP' >> "conftest.nl" - "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break - diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break - as_fn_arith $ac_count + 1 && ac_count=$as_val - if test $ac_count -gt ${ac_path_GREP_max-0}; then - # Best one so far, save it but keep looking for a better one - ac_cv_path_GREP="$ac_path_GREP" - ac_path_GREP_max=$ac_count - fi - # 10*(2^10) chars as input seems more than enough - test $ac_count -gt 10 && break - done - rm -f conftest.in conftest.tmp conftest.nl conftest.out;; -esac - - $ac_path_GREP_found && break 3 - done - done - done -IFS=$as_save_IFS - if test -z "$ac_cv_path_GREP"; then - as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 - fi -else - ac_cv_path_GREP=$GREP -fi - -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5 -printf "%s\n" "$ac_cv_path_GREP" >&6; } - GREP="$ac_cv_path_GREP" - - -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5 -printf %s "checking for egrep... " >&6; } -if test ${ac_cv_path_EGREP+y} -then : - printf %s "(cached) " >&6 -else $as_nop - if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 - then ac_cv_path_EGREP="$GREP -E" - else - if test -z "$EGREP"; then - ac_path_EGREP_found=false - # Loop through the user's path and test for each of PROGNAME-LIST - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin -do - IFS=$as_save_IFS - case $as_dir in #((( - '') as_dir=./ ;; - */) ;; - *) as_dir=$as_dir/ ;; - esac - for ac_prog in egrep - do - for ac_exec_ext in '' $ac_executable_extensions; do - ac_path_EGREP="$as_dir$ac_prog$ac_exec_ext" - as_fn_executable_p "$ac_path_EGREP" || continue -# Check for GNU ac_path_EGREP and select it if it is found. - # Check for GNU $ac_path_EGREP -case `"$ac_path_EGREP" --version 2>&1` in -*GNU*) - ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; -*) - ac_count=0 - printf %s 0123456789 >"conftest.in" - while : - do - cat "conftest.in" "conftest.in" >"conftest.tmp" - mv "conftest.tmp" "conftest.in" - cp "conftest.in" "conftest.nl" - printf "%s\n" 'EGREP' >> "conftest.nl" - "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break - diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break - as_fn_arith $ac_count + 1 && ac_count=$as_val - if test $ac_count -gt ${ac_path_EGREP_max-0}; then - # Best one so far, save it but keep looking for a better one - ac_cv_path_EGREP="$ac_path_EGREP" - ac_path_EGREP_max=$ac_count - fi - # 10*(2^10) chars as input seems more than enough - test $ac_count -gt 10 && break - done - rm -f conftest.in conftest.tmp conftest.nl conftest.out;; -esac - - $ac_path_EGREP_found && break 3 - done - done - done -IFS=$as_save_IFS - if test -z "$ac_cv_path_EGREP"; then - as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 - fi -else - ac_cv_path_EGREP=$EGREP -fi - - fi -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5 -printf "%s\n" "$ac_cv_path_EGREP" >&6; } - EGREP="$ac_cv_path_EGREP" - - -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking return type of unsetenv" >&5 -printf %s "checking return type of unsetenv... " >&6; } -if test ${fptools_cv_func_unsetenv_return_type+y} -then : - printf %s "(cached) " >&6 -else $as_nop - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "void[ ]+unsetenv" >/dev/null 2>&1 -then : - fptools_cv_func_unsetenv_return_type=void -else $as_nop - fptools_cv_func_unsetenv_return_type=int -fi -rm -rf conftest* - -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_func_unsetenv_return_type" >&5 -printf "%s\n" "$fptools_cv_func_unsetenv_return_type" >&6; } -case "$fptools_cv_func_unsetenv_return_type" in - "void" ) - -printf "%s\n" "#define UNSETENV_RETURNS_VOID 1" >>confdefs.h - - ;; -esac - - - -# Check whether --with-iconv-includes was given. -if test ${with_iconv_includes+y} -then : - withval=$with_iconv_includes; ICONV_INCLUDE_DIRS=$withval; CPPFLAGS="-I$withval $CPPFLAGS" -else $as_nop - ICONV_INCLUDE_DIRS= -fi - - - -# Check whether --with-iconv-libraries was given. -if test ${with_iconv_libraries+y} -then : - withval=$with_iconv_libraries; ICONV_LIB_DIRS=$withval; LDFLAGS="-L$withval $LDFLAGS" -else $as_nop - ICONV_LIB_DIRS= -fi - - - - - -# map standard C types and ISO types to Haskell types - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for char" >&5 -printf %s "checking Haskell type for char... " >&6; } - if test ${fptools_cv_htype_char+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_char=yes - if ac_fn_c_compute_int "$LINENO" "(char)0.2 - (char)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -char val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_char="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(char) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_char=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(char) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_char=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(char) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_char=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_char=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_char=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_char=LDouble - else - fptools_cv_htype_sup_char=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((char)(-1)) < ((char)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_char=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(char) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_char=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_char="Word$HTYPE_SIZE" - else - fptools_cv_htype_char="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_char" = no - then - - fptools_cv_htype_char=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_char" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_char" >&5 -printf "%s\n" "$fptools_cv_htype_char" >&6; } - -printf "%s\n" "#define HTYPE_CHAR $fptools_cv_htype_char" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for signed char" >&5 -printf %s "checking Haskell type for signed char... " >&6; } - if test ${fptools_cv_htype_signed_char+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_signed_char=yes - if ac_fn_c_compute_int "$LINENO" "(signed char)0.2 - (signed char)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -signed char val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_signed_char="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(signed char) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_signed_char=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(signed char) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_signed_char=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(signed char) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_signed_char=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_signed_char=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_signed_char=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_signed_char=LDouble - else - fptools_cv_htype_sup_signed_char=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((signed char)(-1)) < ((signed char)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_signed_char=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(signed char) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_signed_char=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_signed_char="Word$HTYPE_SIZE" - else - fptools_cv_htype_signed_char="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_signed_char" = no - then - - fptools_cv_htype_signed_char=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_signed_char" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_signed_char" >&5 -printf "%s\n" "$fptools_cv_htype_signed_char" >&6; } - -printf "%s\n" "#define HTYPE_SIGNED_CHAR $fptools_cv_htype_signed_char" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for unsigned char" >&5 -printf %s "checking Haskell type for unsigned char... " >&6; } - if test ${fptools_cv_htype_unsigned_char+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_unsigned_char=yes - if ac_fn_c_compute_int "$LINENO" "(unsigned char)0.2 - (unsigned char)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -unsigned char val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_unsigned_char="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned char) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_char=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned char) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_char=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned char) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_char=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_unsigned_char=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_unsigned_char=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_unsigned_char=LDouble - else - fptools_cv_htype_sup_unsigned_char=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((unsigned char)(-1)) < ((unsigned char)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_char=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned char) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_char=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_unsigned_char="Word$HTYPE_SIZE" - else - fptools_cv_htype_unsigned_char="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_unsigned_char" = no - then - - fptools_cv_htype_unsigned_char=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_unsigned_char" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_unsigned_char" >&5 -printf "%s\n" "$fptools_cv_htype_unsigned_char" >&6; } - -printf "%s\n" "#define HTYPE_UNSIGNED_CHAR $fptools_cv_htype_unsigned_char" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for short" >&5 -printf %s "checking Haskell type for short... " >&6; } - if test ${fptools_cv_htype_short+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_short=yes - if ac_fn_c_compute_int "$LINENO" "(short)0.2 - (short)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -short val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_short="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(short) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_short=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(short) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_short=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(short) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_short=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_short=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_short=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_short=LDouble - else - fptools_cv_htype_sup_short=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((short)(-1)) < ((short)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_short=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(short) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_short=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_short="Word$HTYPE_SIZE" - else - fptools_cv_htype_short="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_short" = no - then - - fptools_cv_htype_short=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_short" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_short" >&5 -printf "%s\n" "$fptools_cv_htype_short" >&6; } - -printf "%s\n" "#define HTYPE_SHORT $fptools_cv_htype_short" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for unsigned short" >&5 -printf %s "checking Haskell type for unsigned short... " >&6; } - if test ${fptools_cv_htype_unsigned_short+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_unsigned_short=yes - if ac_fn_c_compute_int "$LINENO" "(unsigned short)0.2 - (unsigned short)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -unsigned short val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_unsigned_short="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned short) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_short=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned short) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_short=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned short) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_short=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_unsigned_short=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_unsigned_short=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_unsigned_short=LDouble - else - fptools_cv_htype_sup_unsigned_short=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((unsigned short)(-1)) < ((unsigned short)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_short=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned short) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_short=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_unsigned_short="Word$HTYPE_SIZE" - else - fptools_cv_htype_unsigned_short="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_unsigned_short" = no - then - - fptools_cv_htype_unsigned_short=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_unsigned_short" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_unsigned_short" >&5 -printf "%s\n" "$fptools_cv_htype_unsigned_short" >&6; } - -printf "%s\n" "#define HTYPE_UNSIGNED_SHORT $fptools_cv_htype_unsigned_short" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for int" >&5 -printf %s "checking Haskell type for int... " >&6; } - if test ${fptools_cv_htype_int+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_int=yes - if ac_fn_c_compute_int "$LINENO" "(int)0.2 - (int)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -int val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_int="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(int) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_int=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(int) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_int=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(int) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_int=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_int=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_int=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_int=LDouble - else - fptools_cv_htype_sup_int=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((int)(-1)) < ((int)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_int=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(int) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_int=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_int="Word$HTYPE_SIZE" - else - fptools_cv_htype_int="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_int" = no - then - - fptools_cv_htype_int=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_int" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_int" >&5 -printf "%s\n" "$fptools_cv_htype_int" >&6; } - -printf "%s\n" "#define HTYPE_INT $fptools_cv_htype_int" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for unsigned int" >&5 -printf %s "checking Haskell type for unsigned int... " >&6; } - if test ${fptools_cv_htype_unsigned_int+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_unsigned_int=yes - if ac_fn_c_compute_int "$LINENO" "(unsigned int)0.2 - (unsigned int)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -unsigned int val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_unsigned_int="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned int) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_int=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned int) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_int=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned int) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_int=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_unsigned_int=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_unsigned_int=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_unsigned_int=LDouble - else - fptools_cv_htype_sup_unsigned_int=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((unsigned int)(-1)) < ((unsigned int)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_int=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned int) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_int=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_unsigned_int="Word$HTYPE_SIZE" - else - fptools_cv_htype_unsigned_int="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_unsigned_int" = no - then - - fptools_cv_htype_unsigned_int=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_unsigned_int" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_unsigned_int" >&5 -printf "%s\n" "$fptools_cv_htype_unsigned_int" >&6; } - -printf "%s\n" "#define HTYPE_UNSIGNED_INT $fptools_cv_htype_unsigned_int" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for long" >&5 -printf %s "checking Haskell type for long... " >&6; } - if test ${fptools_cv_htype_long+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_long=yes - if ac_fn_c_compute_int "$LINENO" "(long)0.2 - (long)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -long val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_long="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(long) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_long=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(long) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_long=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(long) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_long=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_long=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_long=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_long=LDouble - else - fptools_cv_htype_sup_long=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((long)(-1)) < ((long)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_long=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(long) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_long=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_long="Word$HTYPE_SIZE" - else - fptools_cv_htype_long="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_long" = no - then - - fptools_cv_htype_long=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_long" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_long" >&5 -printf "%s\n" "$fptools_cv_htype_long" >&6; } - -printf "%s\n" "#define HTYPE_LONG $fptools_cv_htype_long" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for unsigned long" >&5 -printf %s "checking Haskell type for unsigned long... " >&6; } - if test ${fptools_cv_htype_unsigned_long+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_unsigned_long=yes - if ac_fn_c_compute_int "$LINENO" "(unsigned long)0.2 - (unsigned long)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -unsigned long val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_unsigned_long="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned long) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_long=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned long) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_long=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned long) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_long=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_unsigned_long=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_unsigned_long=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_unsigned_long=LDouble - else - fptools_cv_htype_sup_unsigned_long=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((unsigned long)(-1)) < ((unsigned long)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_long=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned long) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_long=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_unsigned_long="Word$HTYPE_SIZE" - else - fptools_cv_htype_unsigned_long="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_unsigned_long" = no - then - - fptools_cv_htype_unsigned_long=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_unsigned_long" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_unsigned_long" >&5 -printf "%s\n" "$fptools_cv_htype_unsigned_long" >&6; } - -printf "%s\n" "#define HTYPE_UNSIGNED_LONG $fptools_cv_htype_unsigned_long" >>confdefs.h - - fi - - -if test "$ac_cv_type_long_long" = yes; then - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for long long" >&5 -printf %s "checking Haskell type for long long... " >&6; } - if test ${fptools_cv_htype_long_long+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_long_long=yes - if ac_fn_c_compute_int "$LINENO" "(long long)0.2 - (long long)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -long long val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_long_long="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(long long) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_long_long=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(long long) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_long_long=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(long long) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_long_long=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_long_long=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_long_long=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_long_long=LDouble - else - fptools_cv_htype_sup_long_long=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((long long)(-1)) < ((long long)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_long_long=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(long long) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_long_long=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_long_long="Word$HTYPE_SIZE" - else - fptools_cv_htype_long_long="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_long_long" = no - then - - fptools_cv_htype_long_long=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_long_long" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_long_long" >&5 -printf "%s\n" "$fptools_cv_htype_long_long" >&6; } - -printf "%s\n" "#define HTYPE_LONG_LONG $fptools_cv_htype_long_long" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for unsigned long long" >&5 -printf %s "checking Haskell type for unsigned long long... " >&6; } - if test ${fptools_cv_htype_unsigned_long_long+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_unsigned_long_long=yes - if ac_fn_c_compute_int "$LINENO" "(unsigned long long)0.2 - (unsigned long long)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -unsigned long long val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_unsigned_long_long="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned long long) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_long_long=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned long long) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_long_long=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned long long) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_long_long=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_unsigned_long_long=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_unsigned_long_long=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_unsigned_long_long=LDouble - else - fptools_cv_htype_sup_unsigned_long_long=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((unsigned long long)(-1)) < ((unsigned long long)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_long_long=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned long long) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_unsigned_long_long=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_unsigned_long_long="Word$HTYPE_SIZE" - else - fptools_cv_htype_unsigned_long_long="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_unsigned_long_long" = no - then - - fptools_cv_htype_unsigned_long_long=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_unsigned_long_long" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_unsigned_long_long" >&5 -printf "%s\n" "$fptools_cv_htype_unsigned_long_long" >&6; } - -printf "%s\n" "#define HTYPE_UNSIGNED_LONG_LONG $fptools_cv_htype_unsigned_long_long" >>confdefs.h - - fi - - -fi - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for bool" >&5 -printf %s "checking Haskell type for bool... " >&6; } - if test ${fptools_cv_htype_bool+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_bool=yes - if ac_fn_c_compute_int "$LINENO" "(bool)0.2 - (bool)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -bool val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_bool="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(bool) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_bool=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(bool) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_bool=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(bool) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_bool=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_bool=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_bool=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_bool=LDouble - else - fptools_cv_htype_sup_bool=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((bool)(-1)) < ((bool)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_bool=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(bool) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_bool=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_bool="Word$HTYPE_SIZE" - else - fptools_cv_htype_bool="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_bool" = no - then - - fptools_cv_htype_bool=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_bool" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_bool" >&5 -printf "%s\n" "$fptools_cv_htype_bool" >&6; } - -printf "%s\n" "#define HTYPE_BOOL $fptools_cv_htype_bool" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for float" >&5 -printf %s "checking Haskell type for float... " >&6; } - if test ${fptools_cv_htype_float+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_float=yes - if ac_fn_c_compute_int "$LINENO" "(float)0.2 - (float)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -float val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_float="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(float) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_float=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(float) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_float=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(float) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_float=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_float=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_float=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_float=LDouble - else - fptools_cv_htype_sup_float=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((float)(-1)) < ((float)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_float=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(float) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_float=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_float="Word$HTYPE_SIZE" - else - fptools_cv_htype_float="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_float" = no - then - - fptools_cv_htype_float=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_float" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_float" >&5 -printf "%s\n" "$fptools_cv_htype_float" >&6; } - -printf "%s\n" "#define HTYPE_FLOAT $fptools_cv_htype_float" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for double" >&5 -printf %s "checking Haskell type for double... " >&6; } - if test ${fptools_cv_htype_double+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_double=yes - if ac_fn_c_compute_int "$LINENO" "(double)0.2 - (double)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -double val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_double="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(double) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_double=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(double) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_double=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(double) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_double=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_double=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_double=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_double=LDouble - else - fptools_cv_htype_sup_double=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((double)(-1)) < ((double)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_double=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(double) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_double=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_double="Word$HTYPE_SIZE" - else - fptools_cv_htype_double="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_double" = no - then - - fptools_cv_htype_double=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_double" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_double" >&5 -printf "%s\n" "$fptools_cv_htype_double" >&6; } - -printf "%s\n" "#define HTYPE_DOUBLE $fptools_cv_htype_double" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for ptrdiff_t" >&5 -printf %s "checking Haskell type for ptrdiff_t... " >&6; } - if test ${fptools_cv_htype_ptrdiff_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_ptrdiff_t=yes - if ac_fn_c_compute_int "$LINENO" "(ptrdiff_t)0.2 - (ptrdiff_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -ptrdiff_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_ptrdiff_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(ptrdiff_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_ptrdiff_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(ptrdiff_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_ptrdiff_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(ptrdiff_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_ptrdiff_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_ptrdiff_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_ptrdiff_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_ptrdiff_t=LDouble - else - fptools_cv_htype_sup_ptrdiff_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((ptrdiff_t)(-1)) < ((ptrdiff_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_ptrdiff_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(ptrdiff_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_ptrdiff_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_ptrdiff_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_ptrdiff_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_ptrdiff_t" = no - then - - fptools_cv_htype_ptrdiff_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_ptrdiff_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_ptrdiff_t" >&5 -printf "%s\n" "$fptools_cv_htype_ptrdiff_t" >&6; } - -printf "%s\n" "#define HTYPE_PTRDIFF_T $fptools_cv_htype_ptrdiff_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for size_t" >&5 -printf %s "checking Haskell type for size_t... " >&6; } - if test ${fptools_cv_htype_size_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_size_t=yes - if ac_fn_c_compute_int "$LINENO" "(size_t)0.2 - (size_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -size_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_size_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(size_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_size_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(size_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_size_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(size_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_size_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_size_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_size_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_size_t=LDouble - else - fptools_cv_htype_sup_size_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((size_t)(-1)) < ((size_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_size_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(size_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_size_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_size_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_size_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_size_t" = no - then - - fptools_cv_htype_size_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_size_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_size_t" >&5 -printf "%s\n" "$fptools_cv_htype_size_t" >&6; } - -printf "%s\n" "#define HTYPE_SIZE_T $fptools_cv_htype_size_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for wchar_t" >&5 -printf %s "checking Haskell type for wchar_t... " >&6; } - if test ${fptools_cv_htype_wchar_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_wchar_t=yes - if ac_fn_c_compute_int "$LINENO" "(wchar_t)0.2 - (wchar_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -wchar_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_wchar_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(wchar_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_wchar_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(wchar_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_wchar_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(wchar_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_wchar_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_wchar_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_wchar_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_wchar_t=LDouble - else - fptools_cv_htype_sup_wchar_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((wchar_t)(-1)) < ((wchar_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_wchar_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(wchar_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_wchar_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_wchar_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_wchar_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_wchar_t" = no - then - - fptools_cv_htype_wchar_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_wchar_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_wchar_t" >&5 -printf "%s\n" "$fptools_cv_htype_wchar_t" >&6; } - -printf "%s\n" "#define HTYPE_WCHAR_T $fptools_cv_htype_wchar_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for sig_atomic_t" >&5 -printf %s "checking Haskell type for sig_atomic_t... " >&6; } - if test ${fptools_cv_htype_sig_atomic_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_sig_atomic_t=yes - if ac_fn_c_compute_int "$LINENO" "(sig_atomic_t)0.2 - (sig_atomic_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -sig_atomic_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_sig_atomic_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(sig_atomic_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_sig_atomic_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(sig_atomic_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_sig_atomic_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(sig_atomic_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_sig_atomic_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_sig_atomic_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_sig_atomic_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_sig_atomic_t=LDouble - else - fptools_cv_htype_sup_sig_atomic_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((sig_atomic_t)(-1)) < ((sig_atomic_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_sig_atomic_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(sig_atomic_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_sig_atomic_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_sig_atomic_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_sig_atomic_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_sig_atomic_t" = no - then - - fptools_cv_htype_sig_atomic_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_sig_atomic_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_sig_atomic_t" >&5 -printf "%s\n" "$fptools_cv_htype_sig_atomic_t" >&6; } - -printf "%s\n" "#define HTYPE_SIG_ATOMIC_T $fptools_cv_htype_sig_atomic_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for clock_t" >&5 -printf %s "checking Haskell type for clock_t... " >&6; } - if test ${fptools_cv_htype_clock_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_clock_t=yes - if ac_fn_c_compute_int "$LINENO" "(clock_t)0.2 - (clock_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -clock_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_clock_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(clock_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_clock_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(clock_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_clock_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(clock_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_clock_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_clock_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_clock_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_clock_t=LDouble - else - fptools_cv_htype_sup_clock_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((clock_t)(-1)) < ((clock_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_clock_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(clock_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_clock_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_clock_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_clock_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_clock_t" = no - then - - fptools_cv_htype_clock_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_clock_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_clock_t" >&5 -printf "%s\n" "$fptools_cv_htype_clock_t" >&6; } - -printf "%s\n" "#define HTYPE_CLOCK_T $fptools_cv_htype_clock_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for time_t" >&5 -printf %s "checking Haskell type for time_t... " >&6; } - if test ${fptools_cv_htype_time_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_time_t=yes - if ac_fn_c_compute_int "$LINENO" "(time_t)0.2 - (time_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -time_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_time_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(time_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_time_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(time_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_time_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(time_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_time_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_time_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_time_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_time_t=LDouble - else - fptools_cv_htype_sup_time_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((time_t)(-1)) < ((time_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_time_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(time_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_time_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_time_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_time_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_time_t" = no - then - - fptools_cv_htype_time_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_time_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_time_t" >&5 -printf "%s\n" "$fptools_cv_htype_time_t" >&6; } - -printf "%s\n" "#define HTYPE_TIME_T $fptools_cv_htype_time_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for useconds_t" >&5 -printf %s "checking Haskell type for useconds_t... " >&6; } - if test ${fptools_cv_htype_useconds_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_useconds_t=yes - if ac_fn_c_compute_int "$LINENO" "(useconds_t)0.2 - (useconds_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -useconds_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_useconds_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(useconds_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_useconds_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(useconds_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_useconds_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(useconds_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_useconds_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_useconds_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_useconds_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_useconds_t=LDouble - else - fptools_cv_htype_sup_useconds_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((useconds_t)(-1)) < ((useconds_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_useconds_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(useconds_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_useconds_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_useconds_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_useconds_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_useconds_t" = no - then - - fptools_cv_htype_useconds_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_useconds_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_useconds_t" >&5 -printf "%s\n" "$fptools_cv_htype_useconds_t" >&6; } - -printf "%s\n" "#define HTYPE_USECONDS_T $fptools_cv_htype_useconds_t" >>confdefs.h - - fi - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for suseconds_t" >&5 -printf %s "checking Haskell type for suseconds_t... " >&6; } - if test ${fptools_cv_htype_suseconds_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_suseconds_t=yes - if ac_fn_c_compute_int "$LINENO" "(suseconds_t)0.2 - (suseconds_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -suseconds_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_suseconds_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(suseconds_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_suseconds_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(suseconds_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_suseconds_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(suseconds_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_suseconds_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_suseconds_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_suseconds_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_suseconds_t=LDouble - else - fptools_cv_htype_sup_suseconds_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((suseconds_t)(-1)) < ((suseconds_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_suseconds_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(suseconds_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_suseconds_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_suseconds_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_suseconds_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_suseconds_t" = no - then - if test "$WINDOWS" = "YES" - then - fptools_cv_htype_suseconds_t=Int32 - fptools_cv_htype_sup_suseconds_t=yes - else - as_fn_error $? "type not found" "$LINENO" 5 - fi - fi - - if test "$fptools_cv_htype_sup_suseconds_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_suseconds_t" >&5 -printf "%s\n" "$fptools_cv_htype_suseconds_t" >&6; } - -printf "%s\n" "#define HTYPE_SUSECONDS_T $fptools_cv_htype_suseconds_t" >>confdefs.h - - fi - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for dev_t" >&5 -printf %s "checking Haskell type for dev_t... " >&6; } - if test ${fptools_cv_htype_dev_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_dev_t=yes - if ac_fn_c_compute_int "$LINENO" "(dev_t)0.2 - (dev_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -dev_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_dev_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(dev_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_dev_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(dev_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_dev_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(dev_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_dev_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_dev_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_dev_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_dev_t=LDouble - else - fptools_cv_htype_sup_dev_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((dev_t)(-1)) < ((dev_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_dev_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(dev_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_dev_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_dev_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_dev_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_dev_t" = no - then - - fptools_cv_htype_dev_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_dev_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_dev_t" >&5 -printf "%s\n" "$fptools_cv_htype_dev_t" >&6; } - -printf "%s\n" "#define HTYPE_DEV_T $fptools_cv_htype_dev_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for ino_t" >&5 -printf %s "checking Haskell type for ino_t... " >&6; } - if test ${fptools_cv_htype_ino_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_ino_t=yes - if ac_fn_c_compute_int "$LINENO" "(ino_t)0.2 - (ino_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -ino_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_ino_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(ino_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_ino_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(ino_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_ino_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(ino_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_ino_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_ino_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_ino_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_ino_t=LDouble - else - fptools_cv_htype_sup_ino_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((ino_t)(-1)) < ((ino_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_ino_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(ino_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_ino_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_ino_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_ino_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_ino_t" = no - then - - fptools_cv_htype_ino_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_ino_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_ino_t" >&5 -printf "%s\n" "$fptools_cv_htype_ino_t" >&6; } - -printf "%s\n" "#define HTYPE_INO_T $fptools_cv_htype_ino_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for mode_t" >&5 -printf %s "checking Haskell type for mode_t... " >&6; } - if test ${fptools_cv_htype_mode_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_mode_t=yes - if ac_fn_c_compute_int "$LINENO" "(mode_t)0.2 - (mode_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -mode_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_mode_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(mode_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_mode_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(mode_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_mode_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(mode_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_mode_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_mode_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_mode_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_mode_t=LDouble - else - fptools_cv_htype_sup_mode_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((mode_t)(-1)) < ((mode_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_mode_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(mode_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_mode_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_mode_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_mode_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_mode_t" = no - then - - fptools_cv_htype_mode_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_mode_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_mode_t" >&5 -printf "%s\n" "$fptools_cv_htype_mode_t" >&6; } - -printf "%s\n" "#define HTYPE_MODE_T $fptools_cv_htype_mode_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for off_t" >&5 -printf %s "checking Haskell type for off_t... " >&6; } - if test ${fptools_cv_htype_off_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_off_t=yes - if ac_fn_c_compute_int "$LINENO" "(off_t)0.2 - (off_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -off_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_off_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(off_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_off_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(off_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_off_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(off_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_off_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_off_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_off_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_off_t=LDouble - else - fptools_cv_htype_sup_off_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((off_t)(-1)) < ((off_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_off_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(off_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_off_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_off_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_off_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_off_t" = no - then - - fptools_cv_htype_off_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_off_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_off_t" >&5 -printf "%s\n" "$fptools_cv_htype_off_t" >&6; } - -printf "%s\n" "#define HTYPE_OFF_T $fptools_cv_htype_off_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for pid_t" >&5 -printf %s "checking Haskell type for pid_t... " >&6; } - if test ${fptools_cv_htype_pid_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_pid_t=yes - if ac_fn_c_compute_int "$LINENO" "(pid_t)0.2 - (pid_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -pid_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_pid_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(pid_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_pid_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(pid_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_pid_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(pid_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_pid_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_pid_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_pid_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_pid_t=LDouble - else - fptools_cv_htype_sup_pid_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((pid_t)(-1)) < ((pid_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_pid_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(pid_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_pid_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_pid_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_pid_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_pid_t" = no - then - - fptools_cv_htype_pid_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_pid_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_pid_t" >&5 -printf "%s\n" "$fptools_cv_htype_pid_t" >&6; } - -printf "%s\n" "#define HTYPE_PID_T $fptools_cv_htype_pid_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for gid_t" >&5 -printf %s "checking Haskell type for gid_t... " >&6; } - if test ${fptools_cv_htype_gid_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_gid_t=yes - if ac_fn_c_compute_int "$LINENO" "(gid_t)0.2 - (gid_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -gid_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_gid_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(gid_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_gid_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(gid_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_gid_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(gid_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_gid_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_gid_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_gid_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_gid_t=LDouble - else - fptools_cv_htype_sup_gid_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((gid_t)(-1)) < ((gid_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_gid_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(gid_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_gid_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_gid_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_gid_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_gid_t" = no - then - - fptools_cv_htype_gid_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_gid_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_gid_t" >&5 -printf "%s\n" "$fptools_cv_htype_gid_t" >&6; } - -printf "%s\n" "#define HTYPE_GID_T $fptools_cv_htype_gid_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for uid_t" >&5 -printf %s "checking Haskell type for uid_t... " >&6; } - if test ${fptools_cv_htype_uid_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_uid_t=yes - if ac_fn_c_compute_int "$LINENO" "(uid_t)0.2 - (uid_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -uid_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_uid_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(uid_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_uid_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(uid_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_uid_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(uid_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_uid_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_uid_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_uid_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_uid_t=LDouble - else - fptools_cv_htype_sup_uid_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((uid_t)(-1)) < ((uid_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_uid_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(uid_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_uid_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_uid_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_uid_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_uid_t" = no - then - - fptools_cv_htype_uid_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_uid_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_uid_t" >&5 -printf "%s\n" "$fptools_cv_htype_uid_t" >&6; } - -printf "%s\n" "#define HTYPE_UID_T $fptools_cv_htype_uid_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for cc_t" >&5 -printf %s "checking Haskell type for cc_t... " >&6; } - if test ${fptools_cv_htype_cc_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_cc_t=yes - if ac_fn_c_compute_int "$LINENO" "(cc_t)0.2 - (cc_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -cc_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_cc_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(cc_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_cc_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(cc_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_cc_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(cc_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_cc_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_cc_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_cc_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_cc_t=LDouble - else - fptools_cv_htype_sup_cc_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((cc_t)(-1)) < ((cc_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_cc_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(cc_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_cc_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_cc_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_cc_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_cc_t" = no - then - - fptools_cv_htype_cc_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_cc_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_cc_t" >&5 -printf "%s\n" "$fptools_cv_htype_cc_t" >&6; } - -printf "%s\n" "#define HTYPE_CC_T $fptools_cv_htype_cc_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for speed_t" >&5 -printf %s "checking Haskell type for speed_t... " >&6; } - if test ${fptools_cv_htype_speed_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_speed_t=yes - if ac_fn_c_compute_int "$LINENO" "(speed_t)0.2 - (speed_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -speed_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_speed_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(speed_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_speed_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(speed_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_speed_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(speed_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_speed_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_speed_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_speed_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_speed_t=LDouble - else - fptools_cv_htype_sup_speed_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((speed_t)(-1)) < ((speed_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_speed_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(speed_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_speed_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_speed_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_speed_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_speed_t" = no - then - - fptools_cv_htype_speed_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_speed_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_speed_t" >&5 -printf "%s\n" "$fptools_cv_htype_speed_t" >&6; } - -printf "%s\n" "#define HTYPE_SPEED_T $fptools_cv_htype_speed_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for tcflag_t" >&5 -printf %s "checking Haskell type for tcflag_t... " >&6; } - if test ${fptools_cv_htype_tcflag_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_tcflag_t=yes - if ac_fn_c_compute_int "$LINENO" "(tcflag_t)0.2 - (tcflag_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -tcflag_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_tcflag_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(tcflag_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_tcflag_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(tcflag_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_tcflag_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(tcflag_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_tcflag_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_tcflag_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_tcflag_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_tcflag_t=LDouble - else - fptools_cv_htype_sup_tcflag_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((tcflag_t)(-1)) < ((tcflag_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_tcflag_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(tcflag_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_tcflag_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_tcflag_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_tcflag_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_tcflag_t" = no - then - - fptools_cv_htype_tcflag_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_tcflag_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_tcflag_t" >&5 -printf "%s\n" "$fptools_cv_htype_tcflag_t" >&6; } - -printf "%s\n" "#define HTYPE_TCFLAG_T $fptools_cv_htype_tcflag_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for nlink_t" >&5 -printf %s "checking Haskell type for nlink_t... " >&6; } - if test ${fptools_cv_htype_nlink_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_nlink_t=yes - if ac_fn_c_compute_int "$LINENO" "(nlink_t)0.2 - (nlink_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -nlink_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_nlink_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(nlink_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_nlink_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(nlink_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_nlink_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(nlink_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_nlink_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_nlink_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_nlink_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_nlink_t=LDouble - else - fptools_cv_htype_sup_nlink_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((nlink_t)(-1)) < ((nlink_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_nlink_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(nlink_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_nlink_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_nlink_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_nlink_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_nlink_t" = no - then - - fptools_cv_htype_nlink_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_nlink_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_nlink_t" >&5 -printf "%s\n" "$fptools_cv_htype_nlink_t" >&6; } - -printf "%s\n" "#define HTYPE_NLINK_T $fptools_cv_htype_nlink_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for ssize_t" >&5 -printf %s "checking Haskell type for ssize_t... " >&6; } - if test ${fptools_cv_htype_ssize_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_ssize_t=yes - if ac_fn_c_compute_int "$LINENO" "(ssize_t)0.2 - (ssize_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -ssize_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_ssize_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(ssize_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_ssize_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(ssize_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_ssize_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(ssize_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_ssize_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_ssize_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_ssize_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_ssize_t=LDouble - else - fptools_cv_htype_sup_ssize_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((ssize_t)(-1)) < ((ssize_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_ssize_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(ssize_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_ssize_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_ssize_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_ssize_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_ssize_t" = no - then - - fptools_cv_htype_ssize_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_ssize_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_ssize_t" >&5 -printf "%s\n" "$fptools_cv_htype_ssize_t" >&6; } - -printf "%s\n" "#define HTYPE_SSIZE_T $fptools_cv_htype_ssize_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for rlim_t" >&5 -printf %s "checking Haskell type for rlim_t... " >&6; } - if test ${fptools_cv_htype_rlim_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_rlim_t=yes - if ac_fn_c_compute_int "$LINENO" "(rlim_t)0.2 - (rlim_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -rlim_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_rlim_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(rlim_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_rlim_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(rlim_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_rlim_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(rlim_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_rlim_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_rlim_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_rlim_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_rlim_t=LDouble - else - fptools_cv_htype_sup_rlim_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((rlim_t)(-1)) < ((rlim_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_rlim_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(rlim_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_rlim_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_rlim_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_rlim_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_rlim_t" = no - then - - fptools_cv_htype_rlim_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_rlim_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_rlim_t" >&5 -printf "%s\n" "$fptools_cv_htype_rlim_t" >&6; } - -printf "%s\n" "#define HTYPE_RLIM_T $fptools_cv_htype_rlim_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for blksize_t" >&5 -printf %s "checking Haskell type for blksize_t... " >&6; } - if test ${fptools_cv_htype_blksize_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_blksize_t=yes - if ac_fn_c_compute_int "$LINENO" "(blksize_t)0.2 - (blksize_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -blksize_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_blksize_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(blksize_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_blksize_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(blksize_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_blksize_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(blksize_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_blksize_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_blksize_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_blksize_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_blksize_t=LDouble - else - fptools_cv_htype_sup_blksize_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((blksize_t)(-1)) < ((blksize_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_blksize_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(blksize_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_blksize_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_blksize_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_blksize_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_blksize_t" = no - then - - fptools_cv_htype_blksize_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_blksize_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_blksize_t" >&5 -printf "%s\n" "$fptools_cv_htype_blksize_t" >&6; } - -printf "%s\n" "#define HTYPE_BLKSIZE_T $fptools_cv_htype_blksize_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for blkcnt_t" >&5 -printf %s "checking Haskell type for blkcnt_t... " >&6; } - if test ${fptools_cv_htype_blkcnt_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_blkcnt_t=yes - if ac_fn_c_compute_int "$LINENO" "(blkcnt_t)0.2 - (blkcnt_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -blkcnt_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_blkcnt_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(blkcnt_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_blkcnt_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(blkcnt_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_blkcnt_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(blkcnt_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_blkcnt_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_blkcnt_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_blkcnt_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_blkcnt_t=LDouble - else - fptools_cv_htype_sup_blkcnt_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((blkcnt_t)(-1)) < ((blkcnt_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_blkcnt_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(blkcnt_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_blkcnt_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_blkcnt_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_blkcnt_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_blkcnt_t" = no - then - - fptools_cv_htype_blkcnt_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_blkcnt_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_blkcnt_t" >&5 -printf "%s\n" "$fptools_cv_htype_blkcnt_t" >&6; } - -printf "%s\n" "#define HTYPE_BLKCNT_T $fptools_cv_htype_blkcnt_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for clockid_t" >&5 -printf %s "checking Haskell type for clockid_t... " >&6; } - if test ${fptools_cv_htype_clockid_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_clockid_t=yes - if ac_fn_c_compute_int "$LINENO" "(clockid_t)0.2 - (clockid_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -clockid_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_clockid_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(clockid_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_clockid_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(clockid_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_clockid_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(clockid_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_clockid_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_clockid_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_clockid_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_clockid_t=LDouble - else - fptools_cv_htype_sup_clockid_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((clockid_t)(-1)) < ((clockid_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_clockid_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(clockid_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_clockid_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_clockid_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_clockid_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_clockid_t" = no - then - - fptools_cv_htype_clockid_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_clockid_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_clockid_t" >&5 -printf "%s\n" "$fptools_cv_htype_clockid_t" >&6; } - -printf "%s\n" "#define HTYPE_CLOCKID_T $fptools_cv_htype_clockid_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for fsblkcnt_t" >&5 -printf %s "checking Haskell type for fsblkcnt_t... " >&6; } - if test ${fptools_cv_htype_fsblkcnt_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_fsblkcnt_t=yes - if ac_fn_c_compute_int "$LINENO" "(fsblkcnt_t)0.2 - (fsblkcnt_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -fsblkcnt_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_fsblkcnt_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(fsblkcnt_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_fsblkcnt_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(fsblkcnt_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_fsblkcnt_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(fsblkcnt_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_fsblkcnt_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_fsblkcnt_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_fsblkcnt_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_fsblkcnt_t=LDouble - else - fptools_cv_htype_sup_fsblkcnt_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((fsblkcnt_t)(-1)) < ((fsblkcnt_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_fsblkcnt_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(fsblkcnt_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_fsblkcnt_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_fsblkcnt_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_fsblkcnt_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_fsblkcnt_t" = no - then - - fptools_cv_htype_fsblkcnt_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_fsblkcnt_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_fsblkcnt_t" >&5 -printf "%s\n" "$fptools_cv_htype_fsblkcnt_t" >&6; } - -printf "%s\n" "#define HTYPE_FSBLKCNT_T $fptools_cv_htype_fsblkcnt_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for fsfilcnt_t" >&5 -printf %s "checking Haskell type for fsfilcnt_t... " >&6; } - if test ${fptools_cv_htype_fsfilcnt_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_fsfilcnt_t=yes - if ac_fn_c_compute_int "$LINENO" "(fsfilcnt_t)0.2 - (fsfilcnt_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -fsfilcnt_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_fsfilcnt_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(fsfilcnt_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_fsfilcnt_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(fsfilcnt_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_fsfilcnt_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(fsfilcnt_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_fsfilcnt_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_fsfilcnt_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_fsfilcnt_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_fsfilcnt_t=LDouble - else - fptools_cv_htype_sup_fsfilcnt_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((fsfilcnt_t)(-1)) < ((fsfilcnt_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_fsfilcnt_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(fsfilcnt_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_fsfilcnt_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_fsfilcnt_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_fsfilcnt_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_fsfilcnt_t" = no - then - - fptools_cv_htype_fsfilcnt_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_fsfilcnt_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_fsfilcnt_t" >&5 -printf "%s\n" "$fptools_cv_htype_fsfilcnt_t" >&6; } - -printf "%s\n" "#define HTYPE_FSFILCNT_T $fptools_cv_htype_fsfilcnt_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for id_t" >&5 -printf %s "checking Haskell type for id_t... " >&6; } - if test ${fptools_cv_htype_id_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_id_t=yes - if ac_fn_c_compute_int "$LINENO" "(id_t)0.2 - (id_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -id_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_id_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(id_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_id_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(id_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_id_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(id_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_id_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_id_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_id_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_id_t=LDouble - else - fptools_cv_htype_sup_id_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((id_t)(-1)) < ((id_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_id_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(id_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_id_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_id_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_id_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_id_t" = no - then - - fptools_cv_htype_id_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_id_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_id_t" >&5 -printf "%s\n" "$fptools_cv_htype_id_t" >&6; } - -printf "%s\n" "#define HTYPE_ID_T $fptools_cv_htype_id_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for key_t" >&5 -printf %s "checking Haskell type for key_t... " >&6; } - if test ${fptools_cv_htype_key_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_key_t=yes - if ac_fn_c_compute_int "$LINENO" "(key_t)0.2 - (key_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -key_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_key_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(key_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_key_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(key_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_key_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(key_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_key_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_key_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_key_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_key_t=LDouble - else - fptools_cv_htype_sup_key_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((key_t)(-1)) < ((key_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_key_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(key_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_key_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_key_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_key_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_key_t" = no - then - - fptools_cv_htype_key_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_key_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_key_t" >&5 -printf "%s\n" "$fptools_cv_htype_key_t" >&6; } - -printf "%s\n" "#define HTYPE_KEY_T $fptools_cv_htype_key_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for timer_t" >&5 -printf %s "checking Haskell type for timer_t... " >&6; } - if test ${fptools_cv_htype_timer_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_timer_t=yes - if ac_fn_c_compute_int "$LINENO" "(timer_t)0.2 - (timer_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -timer_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_timer_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(timer_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_timer_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(timer_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_timer_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(timer_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_timer_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_timer_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_timer_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_timer_t=LDouble - else - fptools_cv_htype_sup_timer_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((timer_t)(-1)) < ((timer_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_timer_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(timer_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_timer_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_timer_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_timer_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_timer_t" = no - then - - fptools_cv_htype_timer_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_timer_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_timer_t" >&5 -printf "%s\n" "$fptools_cv_htype_timer_t" >&6; } - -printf "%s\n" "#define HTYPE_TIMER_T $fptools_cv_htype_timer_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for socklen_t" >&5 -printf %s "checking Haskell type for socklen_t... " >&6; } - if test ${fptools_cv_htype_socklen_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_socklen_t=yes - if ac_fn_c_compute_int "$LINENO" "(socklen_t)0.2 - (socklen_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -socklen_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_socklen_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(socklen_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_socklen_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(socklen_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_socklen_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(socklen_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_socklen_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_socklen_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_socklen_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_socklen_t=LDouble - else - fptools_cv_htype_sup_socklen_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((socklen_t)(-1)) < ((socklen_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_socklen_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(socklen_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_socklen_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_socklen_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_socklen_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_socklen_t" = no - then - - fptools_cv_htype_socklen_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_socklen_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_socklen_t" >&5 -printf "%s\n" "$fptools_cv_htype_socklen_t" >&6; } - -printf "%s\n" "#define HTYPE_SOCKLEN_T $fptools_cv_htype_socklen_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for nfds_t" >&5 -printf %s "checking Haskell type for nfds_t... " >&6; } - if test ${fptools_cv_htype_nfds_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_nfds_t=yes - if ac_fn_c_compute_int "$LINENO" "(nfds_t)0.2 - (nfds_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -nfds_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_nfds_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(nfds_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_nfds_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(nfds_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_nfds_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(nfds_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_nfds_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_nfds_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_nfds_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_nfds_t=LDouble - else - fptools_cv_htype_sup_nfds_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((nfds_t)(-1)) < ((nfds_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_nfds_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(nfds_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_nfds_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_nfds_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_nfds_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_nfds_t" = no - then - - fptools_cv_htype_nfds_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_nfds_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_nfds_t" >&5 -printf "%s\n" "$fptools_cv_htype_nfds_t" >&6; } - -printf "%s\n" "#define HTYPE_NFDS_T $fptools_cv_htype_nfds_t" >>confdefs.h - - fi - - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for intptr_t" >&5 -printf %s "checking Haskell type for intptr_t... " >&6; } - if test ${fptools_cv_htype_intptr_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_intptr_t=yes - if ac_fn_c_compute_int "$LINENO" "(intptr_t)0.2 - (intptr_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -intptr_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_intptr_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(intptr_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_intptr_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(intptr_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_intptr_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(intptr_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_intptr_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_intptr_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_intptr_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_intptr_t=LDouble - else - fptools_cv_htype_sup_intptr_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((intptr_t)(-1)) < ((intptr_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_intptr_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(intptr_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_intptr_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_intptr_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_intptr_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_intptr_t" = no - then - - fptools_cv_htype_intptr_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_intptr_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_intptr_t" >&5 -printf "%s\n" "$fptools_cv_htype_intptr_t" >&6; } - -printf "%s\n" "#define HTYPE_INTPTR_T $fptools_cv_htype_intptr_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for uintptr_t" >&5 -printf %s "checking Haskell type for uintptr_t... " >&6; } - if test ${fptools_cv_htype_uintptr_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_uintptr_t=yes - if ac_fn_c_compute_int "$LINENO" "(uintptr_t)0.2 - (uintptr_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -uintptr_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_uintptr_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(uintptr_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_uintptr_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(uintptr_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_uintptr_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(uintptr_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_uintptr_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_uintptr_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_uintptr_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_uintptr_t=LDouble - else - fptools_cv_htype_sup_uintptr_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((uintptr_t)(-1)) < ((uintptr_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_uintptr_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(uintptr_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_uintptr_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_uintptr_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_uintptr_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_uintptr_t" = no - then - - fptools_cv_htype_uintptr_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_uintptr_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_uintptr_t" >&5 -printf "%s\n" "$fptools_cv_htype_uintptr_t" >&6; } - -printf "%s\n" "#define HTYPE_UINTPTR_T $fptools_cv_htype_uintptr_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for intmax_t" >&5 -printf %s "checking Haskell type for intmax_t... " >&6; } - if test ${fptools_cv_htype_intmax_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_intmax_t=yes - if ac_fn_c_compute_int "$LINENO" "(intmax_t)0.2 - (intmax_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -intmax_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_intmax_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(intmax_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_intmax_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(intmax_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_intmax_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(intmax_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_intmax_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_intmax_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_intmax_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_intmax_t=LDouble - else - fptools_cv_htype_sup_intmax_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((intmax_t)(-1)) < ((intmax_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_intmax_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(intmax_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_intmax_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_intmax_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_intmax_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_intmax_t" = no - then - - fptools_cv_htype_intmax_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_intmax_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_intmax_t" >&5 -printf "%s\n" "$fptools_cv_htype_intmax_t" >&6; } - -printf "%s\n" "#define HTYPE_INTMAX_T $fptools_cv_htype_intmax_t" >>confdefs.h - - fi - - - - - - - - - - - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Haskell type for uintmax_t" >&5 -printf %s "checking Haskell type for uintmax_t... " >&6; } - if test ${fptools_cv_htype_uintmax_t+y} -then : - printf %s "(cached) " >&6 -else $as_nop - - fptools_cv_htype_sup_uintmax_t=yes - if ac_fn_c_compute_int "$LINENO" "(uintmax_t)0.2 - (uintmax_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - HTYPE_IS_INTEGRAL=0 -fi - - - if test "$HTYPE_IS_INTEGRAL" -eq 0 - then - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include - -int -main (void) -{ -uintmax_t val; *val; - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO" -then : - HTYPE_IS_POINTER=yes -else $as_nop - HTYPE_IS_POINTER=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext - - if test "$HTYPE_IS_POINTER" = yes - then - fptools_cv_htype_uintmax_t="Ptr ()" - else - if ac_fn_c_compute_int "$LINENO" "sizeof(uintmax_t) == sizeof(float)" "HTYPE_IS_FLOAT" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_uintmax_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(uintmax_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_uintmax_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(uintmax_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_uintmax_t=no -fi - - if test "$HTYPE_IS_FLOAT" -eq 1 - then - fptools_cv_htype_uintmax_t=Float - elif test "$HTYPE_IS_DOUBLE" -eq 1 - then - fptools_cv_htype_uintmax_t=Double - elif test "$HTYPE_IS_LDOUBLE" -eq 1 - then - fptools_cv_htype_uintmax_t=LDouble - else - fptools_cv_htype_sup_uintmax_t=no - fi - fi - else - if ac_fn_c_compute_int "$LINENO" "((uintmax_t)(-1)) < ((uintmax_t)0)" "HTYPE_IS_SIGNED" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_uintmax_t=no -fi - - if ac_fn_c_compute_int "$LINENO" "sizeof(uintmax_t) * 8" "HTYPE_SIZE" " -#include -#include -#include - -#if HAVE_SYS_TYPES_H -# include -#endif - -#if HAVE_UNISTD_H -# include -#endif - -#if HAVE_SYS_STAT_H -# include -#endif - -#if HAVE_FCNTL_H -# include -#endif - -#if HAVE_SIGNAL_H -# include -#endif - -#if HAVE_TIME_H -# include -#endif - -#if HAVE_TERMIOS_H -# include -#endif - -#if HAVE_STRING_H -# include -#endif - -#if HAVE_CTYPE_H -# include -#endif - -#if HAVE_INTTYPES_H -# include -#else -# if HAVE_STDINT_H -# include -# endif -#endif - -#if HAVE_SYS_RESOURCE_H -# include -#endif - -#if HAVE_POLL_H -# include -#endif - -#if HAVE_SYS_SOCKET_H -# include -#endif - -#include -" -then : - -else $as_nop - fptools_cv_htype_sup_uintmax_t=no -fi - - if test "$HTYPE_IS_SIGNED" -eq 0 - then - fptools_cv_htype_uintmax_t="Word$HTYPE_SIZE" - else - fptools_cv_htype_uintmax_t="Int$HTYPE_SIZE" - fi - fi - -fi - - if test "$fptools_cv_htype_sup_uintmax_t" = no - then - - fptools_cv_htype_uintmax_t=NotReallyAType - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 -printf "%s\n" "not supported" >&6; } - - fi - - if test "$fptools_cv_htype_sup_uintmax_t" = yes; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_uintmax_t" >&5 -printf "%s\n" "$fptools_cv_htype_uintmax_t" >&6; } - -printf "%s\n" "#define HTYPE_UINTMAX_T $fptools_cv_htype_uintmax_t" >>confdefs.h - - fi - - - -# test errno values -for fp_const_name in E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EADV EAFNOSUPPORT EAGAIN EALREADY EBADF EBADMSG EBADRPC EBUSY ECHILD ECOMM ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDIRTY EDOM EDQUOT EEXIST EFAULT EFBIG EFTYPE EHOSTDOWN EHOSTUNREACH EIDRM EILSEQ EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK EMSGSIZE EMULTIHOP ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS ENODATA ENODEV ENOENT ENOEXEC ENOLCK ENOLINK ENOMEM ENOMSG ENONET ENOPROTOOPT ENOSPC ENOSR ENOSTR ENOSYS ENOTBLK ENOTCONN ENOTDIR ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM EPFNOSUPPORT EPIPE EPROCLIM EPROCUNAVAIL EPROGMISMATCH EPROGUNAVAIL EPROTO EPROTONOSUPPORT EPROTOTYPE ERANGE EREMCHG EREMOTE EROFS ERPCMISMATCH ERREMOTE ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESRMNT ESTALE ETIME ETIMEDOUT ETOOMANYREFS ETXTBSY EUSERS EWOULDBLOCK EXDEV ENOCIGAR ENOTSUP -do -as_fp_Cache=`printf "%s\n" "fp_cv_const_$fp_const_name" | $as_tr_sh` -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking value of $fp_const_name" >&5 -printf %s "checking value of $fp_const_name... " >&6; } -if eval test \${$as_fp_Cache+y} -then : - printf %s "(cached) " >&6 -else $as_nop - if ac_fn_c_compute_int "$LINENO" "$fp_const_name" "fp_check_const_result" "#include -#include -" -then : - -else $as_nop - fp_check_const_result='-1' -fi - -eval "$as_fp_Cache=\$fp_check_const_result" -fi -eval ac_res=\$$as_fp_Cache - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -printf "%s\n" "$ac_res" >&6; } -cat >>confdefs.h <<_ACEOF -#define `printf "%s\n" "CONST_$fp_const_name" | $as_tr_cpp` `eval 'as_val=${'$as_fp_Cache'};printf "%s\n" "$as_val"'` -_ACEOF - -done - - -# we need SIGINT in TopHandler.lhs -for fp_const_name in SIGINT -do -as_fp_Cache=`printf "%s\n" "fp_cv_const_$fp_const_name" | $as_tr_sh` -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking value of $fp_const_name" >&5 -printf %s "checking value of $fp_const_name... " >&6; } -if eval test \${$as_fp_Cache+y} -then : - printf %s "(cached) " >&6 -else $as_nop - if ac_fn_c_compute_int "$LINENO" "$fp_const_name" "fp_check_const_result" " -#if HAVE_SIGNAL_H -#include -#endif -" -then : - -else $as_nop - fp_check_const_result='-1' -fi - -eval "$as_fp_Cache=\$fp_check_const_result" -fi -eval ac_res=\$$as_fp_Cache - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -printf "%s\n" "$ac_res" >&6; } -cat >>confdefs.h <<_ACEOF -#define `printf "%s\n" "CONST_$fp_const_name" | $as_tr_cpp` `eval 'as_val=${'$as_fp_Cache'};printf "%s\n" "$as_val"'` -_ACEOF - -done - - -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking value of O_BINARY" >&5 -printf %s "checking value of O_BINARY... " >&6; } -if test ${fp_cv_const_O_BINARY+y} -then : - printf %s "(cached) " >&6 -else $as_nop - if ac_fn_c_compute_int "$LINENO" "O_BINARY" "fp_check_const_result" "#include -" -then : - -else $as_nop - fp_check_const_result=0 -fi - -fp_cv_const_O_BINARY=$fp_check_const_result -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $fp_cv_const_O_BINARY" >&5 -printf "%s\n" "$fp_cv_const_O_BINARY" >&6; } -printf "%s\n" "#define CONST_O_BINARY $fp_cv_const_O_BINARY" >>confdefs.h - - -# We don't use iconv or libcharset on Windows, but if configure finds -# them then it can cause problems. So we don't even try looking if -# we are on Windows. -# See http://www.haskell.org/pipermail/cvs-ghc/2011-September/065980.html -if test "$WINDOWS" = "NO" -then - -# We can't just use AC_SEARCH_LIBS for this, as on OpenBSD the iconv.h -# header needs to be included as iconv_open is #define'd to something -# else. We therefore use our own FP_SEARCH_LIBS_PROTO, which allows us -# to give prototype text. -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for library containing iconv" >&5 -printf %s "checking for library containing iconv... " >&6; } -if test ${ac_cv_search_iconv+y} -then : - printf %s "(cached) " >&6 -else $as_nop - ac_func_search_save_LIBS=$LIBS -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -#include -#include - -int -main (void) -{ -iconv_t cd; - cd = iconv_open("", ""); - iconv(cd,NULL,NULL,NULL,NULL); - iconv_close(cd); - ; - return 0; -} -_ACEOF -for ac_lib in '' iconv; do - if test -z "$ac_lib"; then - ac_res="none required" - else - ac_res=-l$ac_lib - LIBS="-l$ac_lib $ac_func_search_save_LIBS" - fi - if ac_fn_c_try_link "$LINENO" -then : - ac_cv_search_iconv=$ac_res -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam \ - conftest$ac_exeext - if test ${ac_cv_search_iconv+y} -then : - break -fi -done -if test ${ac_cv_search_iconv+y} -then : - -else $as_nop - ac_cv_search_iconv=no -fi -rm conftest.$ac_ext -LIBS=$ac_func_search_save_LIBS -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_iconv" >&5 -printf "%s\n" "$ac_cv_search_iconv" >&6; } -ac_res=$ac_cv_search_iconv -if test "$ac_res" != no -then : - test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" - EXTRA_LIBS="$EXTRA_LIBS $ac_lib" -else $as_nop - as_fn_error $? "iconv is required on non-Windows platforms" "$LINENO" 5 -fi - -# If possible, we use libcharset instead of nl_langinfo(CODESET) to -# determine the current locale's character encoding. Allow the user -# to disable this with --without-libcharset if they don't want a -# dependency on libcharset. - -# Check whether --with-libcharset was given. -if test ${with_libcharset+y} -then : - withval=$with_libcharset; -else $as_nop - with_libcharset=check -fi - - -if test "x$with_libcharset" != xno -then : - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for library containing locale_charset" >&5 -printf %s "checking for library containing locale_charset... " >&6; } -if test ${ac_cv_search_locale_charset+y} -then : - printf %s "(cached) " >&6 -else $as_nop - ac_func_search_save_LIBS=$LIBS -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -int -main (void) -{ -const char* charset = locale_charset(); - ; - return 0; -} -_ACEOF -for ac_lib in '' charset; do - if test -z "$ac_lib"; then - ac_res="none required" - else - ac_res=-l$ac_lib - LIBS="-l$ac_lib $ac_func_search_save_LIBS" - fi - if ac_fn_c_try_link "$LINENO" -then : - ac_cv_search_locale_charset=$ac_res -fi -rm -f core conftest.err conftest.$ac_objext conftest.beam \ - conftest$ac_exeext - if test ${ac_cv_search_locale_charset+y} -then : - break -fi -done -if test ${ac_cv_search_locale_charset+y} -then : - -else $as_nop - ac_cv_search_locale_charset=no -fi -rm conftest.$ac_ext -LIBS=$ac_func_search_save_LIBS -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_locale_charset" >&5 -printf "%s\n" "$ac_cv_search_locale_charset" >&6; } -ac_res=$ac_cv_search_locale_charset -if test "$ac_res" != no -then : - test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" - -printf "%s\n" "#define HAVE_LIBCHARSET 1" >>confdefs.h - - EXTRA_LIBS="$EXTRA_LIBS $ac_lib" - -fi -fi - -fi - -ac_fn_c_check_type "$LINENO" "struct MD5Context" "ac_cv_type_struct_MD5Context" "#include \"include/md5.h\" -" -if test "x$ac_cv_type_struct_MD5Context" = xyes -then : - -else $as_nop - as_fn_error $? "internal error" "$LINENO" 5 -fi - -# The cast to long int works around a bug in the HP C Compiler -# version HP92453-01 B.11.11.23709.GP, which incorrectly rejects -# declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. -# This bug is HP SR number 8606223364. -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking size of struct MD5Context" >&5 -printf %s "checking size of struct MD5Context... " >&6; } -if test ${ac_cv_sizeof_struct_MD5Context+y} -then : - printf %s "(cached) " >&6 -else $as_nop - if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (struct MD5Context))" "ac_cv_sizeof_struct_MD5Context" "#include \"include/md5.h\" -" -then : - -else $as_nop - if test "$ac_cv_type_struct_MD5Context" = yes; then - { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error 77 "cannot compute sizeof (struct MD5Context) -See \`config.log' for more details" "$LINENO" 5; } - else - ac_cv_sizeof_struct_MD5Context=0 - fi -fi - -fi -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_struct_MD5Context" >&5 -printf "%s\n" "$ac_cv_sizeof_struct_MD5Context" >&6; } - - - -printf "%s\n" "#define SIZEOF_STRUCT_MD5CONTEXT $ac_cv_sizeof_struct_MD5Context" >>confdefs.h - - - - -ac_config_files="$ac_config_files base.buildinfo" - - -cat >confcache <<\_ACEOF -# This file is a shell script that caches the results of configure -# tests run on this system so they can be shared between configure -# scripts and configure runs, see configure's option --config-cache. -# It is not useful on other systems. If it contains results you don't -# want to keep, you may remove or edit it. -# -# config.status only pays attention to the cache file if you give it -# the --recheck option to rerun configure. -# -# `ac_cv_env_foo' variables (set or unset) will be overridden when -# loading this file, other *unset* `ac_cv_foo' will be assigned the -# following values. - -_ACEOF - -# The following way of writing the cache mishandles newlines in values, -# but we know of no workaround that is simple, portable, and efficient. -# So, we kill variables containing newlines. -# Ultrix sh set writes to stderr and can't be redirected directly, -# and sets the high bit in the cache file unless we assign to the vars. -( - for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do - eval ac_val=\$$ac_var - case $ac_val in #( - *${as_nl}*) - case $ac_var in #( - *_cv_*) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 -printf "%s\n" "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; - esac - case $ac_var in #( - _ | IFS | as_nl) ;; #( - BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( - *) { eval $ac_var=; unset $ac_var;} ;; - esac ;; - esac - done - - (set) 2>&1 | - case $as_nl`(ac_space=' '; set) 2>&1` in #( - *${as_nl}ac_space=\ *) - # `set' does not quote correctly, so add quotes: double-quote - # substitution turns \\\\ into \\, and sed turns \\ into \. - sed -n \ - "s/'/'\\\\''/g; - s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" - ;; #( - *) - # `set' quotes correctly as required by POSIX, so do not add quotes. - sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" - ;; - esac | - sort -) | - sed ' - /^ac_cv_env_/b end - t clear - :clear - s/^\([^=]*\)=\(.*[{}].*\)$/test ${\1+y} || &/ - t end - s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ - :end' >>confcache -if diff "$cache_file" confcache >/dev/null 2>&1; then :; else - if test -w "$cache_file"; then - if test "x$cache_file" != "x/dev/null"; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 -printf "%s\n" "$as_me: updating cache $cache_file" >&6;} - if test ! -f "$cache_file" || test -h "$cache_file"; then - cat confcache >"$cache_file" - else - case $cache_file in #( - */* | ?:*) - mv -f confcache "$cache_file"$$ && - mv -f "$cache_file"$$ "$cache_file" ;; #( - *) - mv -f confcache "$cache_file" ;; - esac - fi - fi - else - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 -printf "%s\n" "$as_me: not updating unwritable cache $cache_file" >&6;} - fi -fi -rm -f confcache - -test "x$prefix" = xNONE && prefix=$ac_default_prefix -# Let make expand exec_prefix. -test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' - -DEFS=-DHAVE_CONFIG_H - -ac_libobjs= -ac_ltlibobjs= -U= -for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue - # 1. Remove the extension, and $U if already installed. - ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' - ac_i=`printf "%s\n" "$ac_i" | sed "$ac_script"` - # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR - # will be set to the directory where LIBOBJS objects are built. - as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" - as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' -done -LIBOBJS=$ac_libobjs - -LTLIBOBJS=$ac_ltlibobjs - - - -: "${CONFIG_STATUS=./config.status}" -ac_write_fail=0 -ac_clean_files_save=$ac_clean_files -ac_clean_files="$ac_clean_files $CONFIG_STATUS" -{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 -printf "%s\n" "$as_me: creating $CONFIG_STATUS" >&6;} -as_write_fail=0 -cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 -#! $SHELL -# Generated by $as_me. -# Run this file to recreate the current configuration. -# Compiler output produced by configure, useful for debugging -# configure, is in config.log if it exists. - -debug=false -ac_cs_recheck=false -ac_cs_silent=false - -SHELL=\${CONFIG_SHELL-$SHELL} -export SHELL -_ASEOF -cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 -## -------------------- ## -## M4sh Initialization. ## -## -------------------- ## - -# Be more Bourne compatible -DUALCASE=1; export DUALCASE # for MKS sh -as_nop=: -if test ${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1 -then : - emulate sh - NULLCMD=: - # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which - # is contrary to our usage. Disable this feature. - alias -g '${1+"$@"}'='"$@"' - setopt NO_GLOB_SUBST -else $as_nop - case `(set -o) 2>/dev/null` in #( - *posix*) : - set -o posix ;; #( - *) : - ;; -esac -fi - - - -# Reset variables that may have inherited troublesome values from -# the environment. - -# IFS needs to be set, to space, tab, and newline, in precisely that order. -# (If _AS_PATH_WALK were called with IFS unset, it would have the -# side effect of setting IFS to empty, thus disabling word splitting.) -# Quoting is to prevent editors from complaining about space-tab. -as_nl=' -' -export as_nl -IFS=" "" $as_nl" - -PS1='$ ' -PS2='> ' -PS4='+ ' - -# Ensure predictable behavior from utilities with locale-dependent output. -LC_ALL=C -export LC_ALL -LANGUAGE=C -export LANGUAGE - -# We cannot yet rely on "unset" to work, but we need these variables -# to be unset--not just set to an empty or harmless value--now, to -# avoid bugs in old shells (e.g. pre-3.0 UWIN ksh). This construct -# also avoids known problems related to "unset" and subshell syntax -# in other old shells (e.g. bash 2.01 and pdksh 5.2.14). -for as_var in BASH_ENV ENV MAIL MAILPATH CDPATH -do eval test \${$as_var+y} \ - && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : -done - -# Ensure that fds 0, 1, and 2 are open. -if (exec 3>&0) 2>/dev/null; then :; else exec 0&1) 2>/dev/null; then :; else exec 1>/dev/null; fi -if (exec 3>&2) ; then :; else exec 2>/dev/null; fi - -# The user is always right. -if ${PATH_SEPARATOR+false} :; then - PATH_SEPARATOR=: - (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { - (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || - PATH_SEPARATOR=';' - } -fi - - -# Find who we are. Look in the path if we contain no directory separator. -as_myself= -case $0 in #(( - *[\\/]* ) as_myself=$0 ;; - *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - case $as_dir in #((( - '') as_dir=./ ;; - */) ;; - *) as_dir=$as_dir/ ;; - esac - test -r "$as_dir$0" && as_myself=$as_dir$0 && break - done -IFS=$as_save_IFS - - ;; -esac -# We did not find ourselves, most probably we were run as `sh COMMAND' -# in which case we are not to be found in the path. -if test "x$as_myself" = x; then - as_myself=$0 -fi -if test ! -f "$as_myself"; then - printf "%s\n" "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 - exit 1 -fi - - - -# as_fn_error STATUS ERROR [LINENO LOG_FD] -# ---------------------------------------- -# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are -# provided, also output the error to LOG_FD, referencing LINENO. Then exit the -# script with STATUS, using 1 if that was 0. -as_fn_error () -{ - as_status=$1; test $as_status -eq 0 && as_status=1 - if test "$4"; then - as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 - fi - printf "%s\n" "$as_me: error: $2" >&2 - as_fn_exit $as_status -} # as_fn_error - - - -# as_fn_set_status STATUS -# ----------------------- -# Set $? to STATUS, without forking. -as_fn_set_status () -{ - return $1 -} # as_fn_set_status - -# as_fn_exit STATUS -# ----------------- -# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. -as_fn_exit () -{ - set +e - as_fn_set_status $1 - exit $1 -} # as_fn_exit - -# as_fn_unset VAR -# --------------- -# Portably unset VAR. -as_fn_unset () -{ - { eval $1=; unset $1;} -} -as_unset=as_fn_unset - -# as_fn_append VAR VALUE -# ---------------------- -# Append the text in VALUE to the end of the definition contained in VAR. Take -# advantage of any shell optimizations that allow amortized linear growth over -# repeated appends, instead of the typical quadratic growth present in naive -# implementations. -if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null -then : - eval 'as_fn_append () - { - eval $1+=\$2 - }' -else $as_nop - as_fn_append () - { - eval $1=\$$1\$2 - } -fi # as_fn_append - -# as_fn_arith ARG... -# ------------------ -# Perform arithmetic evaluation on the ARGs, and store the result in the -# global $as_val. Take advantage of shells that can avoid forks. The arguments -# must be portable across $(()) and expr. -if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null -then : - eval 'as_fn_arith () - { - as_val=$(( $* )) - }' -else $as_nop - as_fn_arith () - { - as_val=`expr "$@" || test $? -eq 1` - } -fi # as_fn_arith - - -if expr a : '\(a\)' >/dev/null 2>&1 && - test "X`expr 00001 : '.*\(...\)'`" = X001; then - as_expr=expr -else - as_expr=false -fi - -if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then - as_basename=basename -else - as_basename=false -fi - -if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then - as_dirname=dirname -else - as_dirname=false -fi - -as_me=`$as_basename -- "$0" || -$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ - X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)' \| . 2>/dev/null || -printf "%s\n" X/"$0" | - sed '/^.*\/\([^/][^/]*\)\/*$/{ - s//\1/ - q - } - /^X\/\(\/\/\)$/{ - s//\1/ - q - } - /^X\/\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - -# Avoid depending upon Character Ranges. -as_cr_letters='abcdefghijklmnopqrstuvwxyz' -as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' -as_cr_Letters=$as_cr_letters$as_cr_LETTERS -as_cr_digits='0123456789' -as_cr_alnum=$as_cr_Letters$as_cr_digits - - -# Determine whether it's possible to make 'echo' print without a newline. -# These variables are no longer used directly by Autoconf, but are AC_SUBSTed -# for compatibility with existing Makefiles. -ECHO_C= ECHO_N= ECHO_T= -case `echo -n x` in #((((( --n*) - case `echo 'xy\c'` in - *c*) ECHO_T=' ';; # ECHO_T is single tab character. - xy) ECHO_C='\c';; - *) echo `echo ksh88 bug on AIX 6.1` > /dev/null - ECHO_T=' ';; - esac;; -*) - ECHO_N='-n';; -esac - -# For backward compatibility with old third-party macros, we provide -# the shell variables $as_echo and $as_echo_n. New code should use -# AS_ECHO(["message"]) and AS_ECHO_N(["message"]), respectively. -as_echo='printf %s\n' -as_echo_n='printf %s' - -rm -f conf$$ conf$$.exe conf$$.file -if test -d conf$$.dir; then - rm -f conf$$.dir/conf$$.file -else - rm -f conf$$.dir - mkdir conf$$.dir 2>/dev/null -fi -if (echo >conf$$.file) 2>/dev/null; then - if ln -s conf$$.file conf$$ 2>/dev/null; then - as_ln_s='ln -s' - # ... but there are two gotchas: - # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. - # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. - # In both cases, we have to default to `cp -pR'. - ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || - as_ln_s='cp -pR' - elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln - else - as_ln_s='cp -pR' - fi -else - as_ln_s='cp -pR' -fi -rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file -rmdir conf$$.dir 2>/dev/null - - -# as_fn_mkdir_p -# ------------- -# Create "$as_dir" as a directory, including parents if necessary. -as_fn_mkdir_p () -{ - - case $as_dir in #( - -*) as_dir=./$as_dir;; - esac - test -d "$as_dir" || eval $as_mkdir_p || { - as_dirs= - while :; do - case $as_dir in #( - *\'*) as_qdir=`printf "%s\n" "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( - *) as_qdir=$as_dir;; - esac - as_dirs="'$as_qdir' $as_dirs" - as_dir=`$as_dirname -- "$as_dir" || -$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_dir" : 'X\(//\)[^/]' \| \ - X"$as_dir" : 'X\(//\)$' \| \ - X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || -printf "%s\n" X"$as_dir" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - test -d "$as_dir" && break - done - test -z "$as_dirs" || eval "mkdir $as_dirs" - } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" - - -} # as_fn_mkdir_p -if mkdir -p . 2>/dev/null; then - as_mkdir_p='mkdir -p "$as_dir"' -else - test -d ./-p && rmdir ./-p - as_mkdir_p=false -fi - - -# as_fn_executable_p FILE -# ----------------------- -# Test if FILE is an executable regular file. -as_fn_executable_p () -{ - test -f "$1" && test -x "$1" -} # as_fn_executable_p -as_test_x='test -x' -as_executable_p=as_fn_executable_p - -# Sed expression to map a string onto a valid CPP name. -as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" - -# Sed expression to map a string onto a valid variable name. -as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" - - -exec 6>&1 -## ----------------------------------- ## -## Main body of $CONFIG_STATUS script. ## -## ----------------------------------- ## -_ASEOF -test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 - -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 -# Save the log message, to keep $0 and so on meaningful, and to -# report actual input values of CONFIG_FILES etc. instead of their -# values after options handling. -ac_log=" -This file was extended by Haskell base package $as_me 1.0, which was -generated by GNU Autoconf 2.71. Invocation command line was - - CONFIG_FILES = $CONFIG_FILES - CONFIG_HEADERS = $CONFIG_HEADERS - CONFIG_LINKS = $CONFIG_LINKS - CONFIG_COMMANDS = $CONFIG_COMMANDS - $ $0 $@ - -on `(hostname || uname -n) 2>/dev/null | sed 1q` -" - -_ACEOF - -case $ac_config_files in *" -"*) set x $ac_config_files; shift; ac_config_files=$*;; -esac - -case $ac_config_headers in *" -"*) set x $ac_config_headers; shift; ac_config_headers=$*;; -esac - - -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 -# Files that config.status was made for. -config_files="$ac_config_files" -config_headers="$ac_config_headers" - -_ACEOF - -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 -ac_cs_usage="\ -\`$as_me' instantiates files and other configuration actions -from templates according to the current configuration. Unless the files -and actions are specified as TAGs, all are instantiated by default. - -Usage: $0 [OPTION]... [TAG]... - - -h, --help print this help, then exit - -V, --version print version number and configuration settings, then exit - --config print configuration, then exit - -q, --quiet, --silent - do not print progress messages - -d, --debug don't remove temporary files - --recheck update $as_me by reconfiguring in the same conditions - --file=FILE[:TEMPLATE] - instantiate the configuration file FILE - --header=FILE[:TEMPLATE] - instantiate the configuration header FILE - -Configuration files: -$config_files - -Configuration headers: -$config_headers - -Report bugs to ." - -_ACEOF -ac_cs_config=`printf "%s\n" "$ac_configure_args" | sed "$ac_safe_unquote"` -ac_cs_config_escaped=`printf "%s\n" "$ac_cs_config" | sed "s/^ //; s/'/'\\\\\\\\''/g"` -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 -ac_cs_config='$ac_cs_config_escaped' -ac_cs_version="\\ -Haskell base package config.status 1.0 -configured by $0, generated by GNU Autoconf 2.71, - with options \\"\$ac_cs_config\\" - -Copyright (C) 2021 Free Software Foundation, Inc. -This config.status script is free software; the Free Software Foundation -gives unlimited permission to copy, distribute and modify it." - -ac_pwd='$ac_pwd' -srcdir='$srcdir' -test -n "\$AWK" || AWK=awk -_ACEOF - -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 -# The default lists apply if the user does not specify any file. -ac_need_defaults=: -while test $# != 0 -do - case $1 in - --*=?*) - ac_option=`expr "X$1" : 'X\([^=]*\)='` - ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` - ac_shift=: - ;; - --*=) - ac_option=`expr "X$1" : 'X\([^=]*\)='` - ac_optarg= - ac_shift=: - ;; - *) - ac_option=$1 - ac_optarg=$2 - ac_shift=shift - ;; - esac - - case $ac_option in - # Handling of the options. - -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) - ac_cs_recheck=: ;; - --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) - printf "%s\n" "$ac_cs_version"; exit ;; - --config | --confi | --conf | --con | --co | --c ) - printf "%s\n" "$ac_cs_config"; exit ;; - --debug | --debu | --deb | --de | --d | -d ) - debug=: ;; - --file | --fil | --fi | --f ) - $ac_shift - case $ac_optarg in - *\'*) ac_optarg=`printf "%s\n" "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; - '') as_fn_error $? "missing file argument" ;; - esac - as_fn_append CONFIG_FILES " '$ac_optarg'" - ac_need_defaults=false;; - --header | --heade | --head | --hea ) - $ac_shift - case $ac_optarg in - *\'*) ac_optarg=`printf "%s\n" "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; - esac - as_fn_append CONFIG_HEADERS " '$ac_optarg'" - ac_need_defaults=false;; - --he | --h) - # Conflict between --help and --header - as_fn_error $? "ambiguous option: \`$1' -Try \`$0 --help' for more information.";; - --help | --hel | -h ) - printf "%s\n" "$ac_cs_usage"; exit ;; - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil | --si | --s) - ac_cs_silent=: ;; - - # This is an error. - -*) as_fn_error $? "unrecognized option: \`$1' -Try \`$0 --help' for more information." ;; - - *) as_fn_append ac_config_targets " $1" - ac_need_defaults=false ;; - - esac - shift -done - -ac_configure_extra_args= - -if $ac_cs_silent; then - exec 6>/dev/null - ac_configure_extra_args="$ac_configure_extra_args --silent" -fi - -_ACEOF -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 -if \$ac_cs_recheck; then - set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion - shift - \printf "%s\n" "running CONFIG_SHELL=$SHELL \$*" >&6 - CONFIG_SHELL='$SHELL' - export CONFIG_SHELL - exec "\$@" -fi - -_ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 -exec 5>>config.log -{ - echo - sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX -## Running $as_me. ## -_ASBOX - printf "%s\n" "$ac_log" -} >&5 - -_ACEOF -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 -_ACEOF - -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 - -# Handling of arguments. -for ac_config_target in $ac_config_targets -do - case $ac_config_target in - "include/HsBaseConfig.h") CONFIG_HEADERS="$CONFIG_HEADERS include/HsBaseConfig.h" ;; - "include/EventConfig.h") CONFIG_HEADERS="$CONFIG_HEADERS include/EventConfig.h" ;; - "base.buildinfo") CONFIG_FILES="$CONFIG_FILES base.buildinfo" ;; - - *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; - esac -done - - -# If the user did not use the arguments to specify the items to instantiate, -# then the envvar interface is used. Set only those that are not. -# We use the long form for the default assignment because of an extremely -# bizarre bug on SunOS 4.1.3. -if $ac_need_defaults; then - test ${CONFIG_FILES+y} || CONFIG_FILES=$config_files - test ${CONFIG_HEADERS+y} || CONFIG_HEADERS=$config_headers -fi - -# Have a temporary directory for convenience. Make it in the build tree -# simply because there is no reason against having it here, and in addition, -# creating and moving files from /tmp can sometimes cause problems. -# Hook for its removal unless debugging. -# Note that there is a small window in which the directory will not be cleaned: -# after its creation but before its name has been assigned to `$tmp'. -$debug || -{ - tmp= ac_tmp= - trap 'exit_status=$? - : "${ac_tmp:=$tmp}" - { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status -' 0 - trap 'as_fn_exit 1' 1 2 13 15 -} -# Create a (secure) tmp directory for tmp files. - -{ - tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && - test -d "$tmp" -} || -{ - tmp=./conf$$-$RANDOM - (umask 077 && mkdir "$tmp") -} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 -ac_tmp=$tmp - -# Set up the scripts for CONFIG_FILES section. -# No need to generate them if there are no CONFIG_FILES. -# This happens for instance with `./config.status config.h'. -if test -n "$CONFIG_FILES"; then - - -ac_cr=`echo X | tr X '\015'` -# On cygwin, bash can eat \r inside `` if the user requested igncr. -# But we know of no other shell where ac_cr would be empty at this -# point, so we can use a bashism as a fallback. -if test "x$ac_cr" = x; then - eval ac_cr=\$\'\\r\' -fi -ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` -if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then - ac_cs_awk_cr='\\r' -else - ac_cs_awk_cr=$ac_cr -fi - -echo 'BEGIN {' >"$ac_tmp/subs1.awk" && -_ACEOF - - -{ - echo "cat >conf$$subs.awk <<_ACEOF" && - echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' && - echo "_ACEOF" -} >conf$$subs.sh || - as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 -ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'` -ac_delim='%!_!# ' -for ac_last_try in false false false false false :; do - . ./conf$$subs.sh || - as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 - - ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X` - if test $ac_delim_n = $ac_delim_num; then - break - elif $ac_last_try; then - as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 - else - ac_delim="$ac_delim!$ac_delim _$ac_delim!! " - fi -done -rm -f conf$$subs.sh - -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 -cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK && -_ACEOF -sed -n ' -h -s/^/S["/; s/!.*/"]=/ -p -g -s/^[^!]*!// -:repl -t repl -s/'"$ac_delim"'$// -t delim -:nl -h -s/\(.\{148\}\)..*/\1/ -t more1 -s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ -p -n -b repl -:more1 -s/["\\]/\\&/g; s/^/"/; s/$/"\\/ -p -g -s/.\{148\}// -t nl -:delim -h -s/\(.\{148\}\)..*/\1/ -t more2 -s/["\\]/\\&/g; s/^/"/; s/$/"/ -p -b -:more2 -s/["\\]/\\&/g; s/^/"/; s/$/"\\/ -p -g -s/.\{148\}// -t delim -' >$CONFIG_STATUS || ac_write_fail=1 -rm -f conf$$subs.awk -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 -_ACAWK -cat >>"\$ac_tmp/subs1.awk" <<_ACAWK && - for (key in S) S_is_set[key] = 1 - FS = "" - -} -{ - line = $ 0 - nfields = split(line, field, "@") - substed = 0 - len = length(field[1]) - for (i = 2; i < nfields; i++) { - key = field[i] - keylen = length(key) - if (S_is_set[key]) { - value = S[key] - line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) - len += length(value) + length(field[++i]) - substed = 1 - } else - len += 1 + keylen - } - - print line -} - -_ACAWK -_ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 -if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then - sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" -else - cat -fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ - || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 -_ACEOF - -# VPATH may cause trouble with some makes, so we remove sole $(srcdir), -# ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and -# trailing colons and then remove the whole line if VPATH becomes empty -# (actually we leave an empty line to preserve line numbers). -if test "x$srcdir" = x.; then - ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{ -h -s/// -s/^/:/ -s/[ ]*$/:/ -s/:\$(srcdir):/:/g -s/:\${srcdir}:/:/g -s/:@srcdir@:/:/g -s/^:*// -s/:*$// -x -s/\(=[ ]*\).*/\1/ -G -s/\n// -s/^[^=]*=[ ]*$// -}' -fi - -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 -fi # test -n "$CONFIG_FILES" - -# Set up the scripts for CONFIG_HEADERS section. -# No need to generate them if there are no CONFIG_HEADERS. -# This happens for instance with `./config.status Makefile'. -if test -n "$CONFIG_HEADERS"; then -cat >"$ac_tmp/defines.awk" <<\_ACAWK || -BEGIN { -_ACEOF - -# Transform confdefs.h into an awk script `defines.awk', embedded as -# here-document in config.status, that substitutes the proper values into -# config.h.in to produce config.h. - -# Create a delimiter string that does not exist in confdefs.h, to ease -# handling of long lines. -ac_delim='%!_!# ' -for ac_last_try in false false :; do - ac_tt=`sed -n "/$ac_delim/p" confdefs.h` - if test -z "$ac_tt"; then - break - elif $ac_last_try; then - as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5 - else - ac_delim="$ac_delim!$ac_delim _$ac_delim!! " - fi -done - -# For the awk script, D is an array of macro values keyed by name, -# likewise P contains macro parameters if any. Preserve backslash -# newline sequences. - -ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]* -sed -n ' -s/.\{148\}/&'"$ac_delim"'/g -t rset -:rset -s/^[ ]*#[ ]*define[ ][ ]*/ / -t def -d -:def -s/\\$// -t bsnl -s/["\\]/\\&/g -s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ -D["\1"]=" \3"/p -s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p -d -:bsnl -s/["\\]/\\&/g -s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ -D["\1"]=" \3\\\\\\n"\\/p -t cont -s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p -t cont -d -:cont -n -s/.\{148\}/&'"$ac_delim"'/g -t clear -:clear -s/\\$// -t bsnlc -s/["\\]/\\&/g; s/^/"/; s/$/"/p -d -:bsnlc -s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p -b cont -' >$CONFIG_STATUS || ac_write_fail=1 - -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 - for (key in D) D_is_set[key] = 1 - FS = "" -} -/^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ { - line = \$ 0 - split(line, arg, " ") - if (arg[1] == "#") { - defundef = arg[2] - mac1 = arg[3] - } else { - defundef = substr(arg[1], 2) - mac1 = arg[2] - } - split(mac1, mac2, "(") #) - macro = mac2[1] - prefix = substr(line, 1, index(line, defundef) - 1) - if (D_is_set[macro]) { - # Preserve the white space surrounding the "#". - print prefix "define", macro P[macro] D[macro] - next - } else { - # Replace #undef with comments. This is necessary, for example, - # in the case of _POSIX_SOURCE, which is predefined and required - # on some systems where configure will not decide to define it. - if (defundef == "undef") { - print "/*", prefix defundef, macro, "*/" - next - } - } -} -{ print } -_ACAWK -_ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 - as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 -fi # test -n "$CONFIG_HEADERS" - - -eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS " -shift -for ac_tag -do - case $ac_tag in - :[FHLC]) ac_mode=$ac_tag; continue;; - esac - case $ac_mode$ac_tag in - :[FHL]*:*);; - :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; - :[FH]-) ac_tag=-:-;; - :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; - esac - ac_save_IFS=$IFS - IFS=: - set x $ac_tag - IFS=$ac_save_IFS - shift - ac_file=$1 - shift - - case $ac_mode in - :L) ac_source=$1;; - :[FH]) - ac_file_inputs= - for ac_f - do - case $ac_f in - -) ac_f="$ac_tmp/stdin";; - *) # Look for the file first in the build tree, then in the source tree - # (if the path is not absolute). The absolute path cannot be DOS-style, - # because $ac_f cannot contain `:'. - test -f "$ac_f" || - case $ac_f in - [\\/$]*) false;; - *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; - esac || - as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; - esac - case $ac_f in *\'*) ac_f=`printf "%s\n" "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac - as_fn_append ac_file_inputs " '$ac_f'" - done - - # Let's still pretend it is `configure' which instantiates (i.e., don't - # use $as_me), people would be surprised to read: - # /* config.h. Generated by config.status. */ - configure_input='Generated from '` - printf "%s\n" "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' - `' by configure.' - if test x"$ac_file" != x-; then - configure_input="$ac_file. $configure_input" - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 -printf "%s\n" "$as_me: creating $ac_file" >&6;} - fi - # Neutralize special characters interpreted by sed in replacement strings. - case $configure_input in #( - *\&* | *\|* | *\\* ) - ac_sed_conf_input=`printf "%s\n" "$configure_input" | - sed 's/[\\\\&|]/\\\\&/g'`;; #( - *) ac_sed_conf_input=$configure_input;; - esac - - case $ac_tag in - *:-:* | *:-) cat >"$ac_tmp/stdin" \ - || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; - esac - ;; - esac - - ac_dir=`$as_dirname -- "$ac_file" || -$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$ac_file" : 'X\(//\)[^/]' \| \ - X"$ac_file" : 'X\(//\)$' \| \ - X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || -printf "%s\n" X"$ac_file" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - as_dir="$ac_dir"; as_fn_mkdir_p - ac_builddir=. - -case "$ac_dir" in -.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; -*) - ac_dir_suffix=/`printf "%s\n" "$ac_dir" | sed 's|^\.[\\/]||'` - # A ".." for each directory in $ac_dir_suffix. - ac_top_builddir_sub=`printf "%s\n" "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` - case $ac_top_builddir_sub in - "") ac_top_builddir_sub=. ac_top_build_prefix= ;; - *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; - esac ;; -esac -ac_abs_top_builddir=$ac_pwd -ac_abs_builddir=$ac_pwd$ac_dir_suffix -# for backward compatibility: -ac_top_builddir=$ac_top_build_prefix - -case $srcdir in - .) # We are building in place. - ac_srcdir=. - ac_top_srcdir=$ac_top_builddir_sub - ac_abs_top_srcdir=$ac_pwd ;; - [\\/]* | ?:[\\/]* ) # Absolute name. - ac_srcdir=$srcdir$ac_dir_suffix; - ac_top_srcdir=$srcdir - ac_abs_top_srcdir=$srcdir ;; - *) # Relative name. - ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix - ac_top_srcdir=$ac_top_build_prefix$srcdir - ac_abs_top_srcdir=$ac_pwd/$srcdir ;; -esac -ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix - - - case $ac_mode in - :F) - # - # CONFIG_FILE - # - -_ACEOF - -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 -# If the template does not know about datarootdir, expand it. -# FIXME: This hack should be removed a few years after 2.60. -ac_datarootdir_hack=; ac_datarootdir_seen= -ac_sed_dataroot=' -/datarootdir/ { - p - q -} -/@datadir@/p -/@docdir@/p -/@infodir@/p -/@localedir@/p -/@mandir@/p' -case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in -*datarootdir*) ac_datarootdir_seen=yes;; -*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 -printf "%s\n" "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} -_ACEOF -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 - ac_datarootdir_hack=' - s&@datadir@&$datadir&g - s&@docdir@&$docdir&g - s&@infodir@&$infodir&g - s&@localedir@&$localedir&g - s&@mandir@&$mandir&g - s&\\\${datarootdir}&$datarootdir&g' ;; -esac -_ACEOF - -# Neutralize VPATH when `$srcdir' = `.'. -# Shell code in configure.ac might set extrasub. -# FIXME: do we really want to maintain this feature? -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 -ac_sed_extra="$ac_vpsub -$extrasub -_ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 -:t -/@[a-zA-Z_][a-zA-Z_0-9]*@/!b -s|@configure_input@|$ac_sed_conf_input|;t t -s&@top_builddir@&$ac_top_builddir_sub&;t t -s&@top_build_prefix@&$ac_top_build_prefix&;t t -s&@srcdir@&$ac_srcdir&;t t -s&@abs_srcdir@&$ac_abs_srcdir&;t t -s&@top_srcdir@&$ac_top_srcdir&;t t -s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t -s&@builddir@&$ac_builddir&;t t -s&@abs_builddir@&$ac_abs_builddir&;t t -s&@abs_top_builddir@&$ac_abs_top_builddir&;t t -$ac_datarootdir_hack -" -eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ - >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 - -test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && - { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && - { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ - "$ac_tmp/out"`; test -z "$ac_out"; } && - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' -which seems to be undefined. Please make sure it is defined" >&5 -printf "%s\n" "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' -which seems to be undefined. Please make sure it is defined" >&2;} - - rm -f "$ac_tmp/stdin" - case $ac_file in - -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; - *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; - esac \ - || as_fn_error $? "could not create $ac_file" "$LINENO" 5 - ;; - :H) - # - # CONFIG_HEADER - # - if test x"$ac_file" != x-; then - { - printf "%s\n" "/* $configure_input */" >&1 \ - && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" - } >"$ac_tmp/config.h" \ - || as_fn_error $? "could not create $ac_file" "$LINENO" 5 - if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 -printf "%s\n" "$as_me: $ac_file is unchanged" >&6;} - else - rm -f "$ac_file" - mv "$ac_tmp/config.h" "$ac_file" \ - || as_fn_error $? "could not create $ac_file" "$LINENO" 5 - fi - else - printf "%s\n" "/* $configure_input */" >&1 \ - && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ - || as_fn_error $? "could not create -" "$LINENO" 5 - fi - ;; - - - esac - -done # for ac_tag - - -as_fn_exit 0 -_ACEOF -ac_clean_files=$ac_clean_files_save - -test $ac_write_fail = 0 || - as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5 - - -# configure is writing to config.log, and then calls config.status. -# config.status does its own redirection, appending to config.log. -# Unfortunately, on DOS this fails, as config.log is still kept open -# by configure, so config.status won't be able to write to it; its -# output is simply discarded. So we exec the FD to /dev/null, -# effectively closing config.log, so it can be properly (re)opened and -# appended to by config.status. When coming back to configure, we -# need to make the FD available again. -if test "$no_create" != yes; then - ac_cs_success=: - ac_config_status_args= - test "$silent" = yes && - ac_config_status_args="$ac_config_status_args --quiet" - exec 5>/dev/null - $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false - exec 5>>config.log - # Use ||, not &&, to avoid exiting from the if with $? = 1, which - # would make configure fail if this is the last instruction. - $ac_cs_success || as_fn_exit 1 -fi -if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then - { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 -printf "%s\n" "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} -fi - +# Generated by GNU Autoconf 2.69 for Haskell base package 1.0. +# +# Report bugs to . +# +# +# Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc. +# +# +# This configure script is free software; the Free Software Foundation +# gives unlimited permission to copy, distribute and modify it. +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +# Use a proper internal environment variable to ensure we don't fall + # into an infinite loop, continuously re-executing ourselves. + if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then + _as_can_reexec=no; export _as_can_reexec; + # We cannot yet assume a decent shell, so we have to provide a +# neutralization value for shells without unset; and this also +# works around shells that cannot unset nonexistent variables. +# Preserve -v and -x to the replacement shell. +BASH_ENV=/dev/null +ENV=/dev/null +(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV +case $- in # (((( + *v*x* | *x*v* ) as_opts=-vx ;; + *v* ) as_opts=-v ;; + *x* ) as_opts=-x ;; + * ) as_opts= ;; +esac +exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} +# Admittedly, this is quite paranoid, since all the known shells bail +# out after a failed `exec'. +$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 +as_fn_exit 255 + fi + # We don't want this to propagate to other subprocesses. + { _as_can_reexec=; unset _as_can_reexec;} +if test "x$CONFIG_SHELL" = x; then + as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which + # is contrary to our usage. Disable this feature. + alias -g '\${1+\"\$@\"}'='\"\$@\"' + setopt NO_GLOB_SUBST +else + case \`(set -o) 2>/dev/null\` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi +" + as_required="as_fn_return () { (exit \$1); } +as_fn_success () { as_fn_return 0; } +as_fn_failure () { as_fn_return 1; } +as_fn_ret_success () { return 0; } +as_fn_ret_failure () { return 1; } + +exitcode=0 +as_fn_success || { exitcode=1; echo as_fn_success failed.; } +as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } +as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } +as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } +if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : + +else + exitcode=1; echo positional parameters were not saved. +fi +test x\$exitcode = x0 || exit 1 +test -x / || exit 1" + as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO + as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO + eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && + test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 +test \$(( 1 + 1 )) = 2 || exit 1" + if (eval "$as_required") 2>/dev/null; then : + as_have_required=yes +else + as_have_required=no +fi + if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : + +else + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +as_found=false +for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + as_found=: + case $as_dir in #( + /*) + for as_base in sh bash ksh sh5; do + # Try only shells that exist, to save several forks. + as_shell=$as_dir/$as_base + if { test -f "$as_shell" || test -f "$as_shell.exe"; } && + { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : + CONFIG_SHELL=$as_shell as_have_required=yes + if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : + break 2 +fi +fi + done;; + esac + as_found=false +done +$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && + { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : + CONFIG_SHELL=$SHELL as_have_required=yes +fi; } +IFS=$as_save_IFS + + + if test "x$CONFIG_SHELL" != x; then : + export CONFIG_SHELL + # We cannot yet assume a decent shell, so we have to provide a +# neutralization value for shells without unset; and this also +# works around shells that cannot unset nonexistent variables. +# Preserve -v and -x to the replacement shell. +BASH_ENV=/dev/null +ENV=/dev/null +(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV +case $- in # (((( + *v*x* | *x*v* ) as_opts=-vx ;; + *v* ) as_opts=-v ;; + *x* ) as_opts=-x ;; + * ) as_opts= ;; +esac +exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} +# Admittedly, this is quite paranoid, since all the known shells bail +# out after a failed `exec'. +$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 +exit 255 +fi + + if test x$as_have_required = xno; then : + $as_echo "$0: This script requires a shell more modern than all" + $as_echo "$0: the shells that I found on your system." + if test x${ZSH_VERSION+set} = xset ; then + $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" + $as_echo "$0: be upgraded to zsh 4.3.4 or later." + else + $as_echo "$0: Please tell bug-autoconf@gnu.org and +$0: libraries@haskell.org about your system, including any +$0: error possibly output before this message. Then install +$0: a modern shell, or manually run the script under such a +$0: shell if you do have one." + fi + exit 1 +fi +fi +fi +SHELL=${CONFIG_SHELL-/bin/sh} +export SHELL +# Unset more variables known to interfere with behavior of common tools. +CLICOLOR_FORCE= GREP_OPTIONS= +unset CLICOLOR_FORCE GREP_OPTIONS + +## --------------------- ## +## M4sh Shell Functions. ## +## --------------------- ## +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + + + as_lineno_1=$LINENO as_lineno_1a=$LINENO + as_lineno_2=$LINENO as_lineno_2a=$LINENO + eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && + test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { + # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) + sed -n ' + p + /[$]LINENO/= + ' <$as_myself | + sed ' + s/[$]LINENO.*/&-/ + t lineno + b + :lineno + N + :loop + s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ + t loop + s/-\n.*// + ' >$as_me.lineno && + chmod +x "$as_me.lineno" || + { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } + + # If we had to re-execute with $CONFIG_SHELL, we're ensured to have + # already done that, so ensure we don't try to do so again and fall + # in an infinite loop. This has already happened in practice. + _as_can_reexec=no; export _as_can_reexec + # Don't try to exec as it changes $[0], causing all sort of problems + # (the dirname of $[0] is not the place where we might find the + # original and so on. Autoconf is especially sensitive to this). + . "./$as_me.lineno" + # Exit status is that of the last command. + exit +} + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +test -n "$DJDIR" || exec 7<&0 &1 + +# Name of the host. +# hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status, +# so uname gets run too. +ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` + +# +# Initializations. +# +ac_default_prefix=/usr/local +ac_clean_files= +ac_config_libobj_dir=. +LIBOBJS= +cross_compiling=no +subdirs= +MFLAGS= +MAKEFLAGS= + +# Identity of this package. +PACKAGE_NAME='Haskell base package' +PACKAGE_TARNAME='base' +PACKAGE_VERSION='1.0' +PACKAGE_STRING='Haskell base package 1.0' +PACKAGE_BUGREPORT='libraries@haskell.org' +PACKAGE_URL='' + +ac_unique_file="include/HsBase.h" +# Factoring default headers for most tests. +ac_includes_default="\ +#include +#ifdef HAVE_SYS_TYPES_H +# include +#endif +#ifdef HAVE_SYS_STAT_H +# include +#endif +#ifdef STDC_HEADERS +# include +# include +#else +# ifdef HAVE_STDLIB_H +# include +# endif +#endif +#ifdef HAVE_STRING_H +# if !defined STDC_HEADERS && defined HAVE_MEMORY_H +# include +# endif +# include +#endif +#ifdef HAVE_STRINGS_H +# include +#endif +#ifdef HAVE_INTTYPES_H +# include +#endif +#ifdef HAVE_STDINT_H +# include +#endif +#ifdef HAVE_UNISTD_H +# include +#endif" + +ac_subst_vars='LTLIBOBJS +LIBOBJS +EXTRA_LIBS +ICONV_LIB_DIRS +ICONV_INCLUDE_DIRS +EGREP +GREP +CPP +OBJEXT +EXEEXT +ac_ct_CC +CPPFLAGS +LDFLAGS +CFLAGS +CC +target_alias +host_alias +build_alias +LIBS +ECHO_T +ECHO_N +ECHO_C +DEFS +mandir +localedir +libdir +psdir +pdfdir +dvidir +htmldir +infodir +docdir +oldincludedir +includedir +localstatedir +sharedstatedir +sysconfdir +datadir +datarootdir +libexecdir +sbindir +bindir +program_transform_name +prefix +exec_prefix +PACKAGE_URL +PACKAGE_BUGREPORT +PACKAGE_STRING +PACKAGE_VERSION +PACKAGE_TARNAME +PACKAGE_NAME +PATH_SEPARATOR +SHELL' +ac_subst_files='' +ac_user_opts=' +enable_option_checking +enable_largefile +with_iconv_includes +with_iconv_libraries +with_libcharset +' + ac_precious_vars='build_alias +host_alias +target_alias +CC +CFLAGS +LDFLAGS +LIBS +CPPFLAGS +CPP' + + +# Initialize some variables set by options. +ac_init_help= +ac_init_version=false +ac_unrecognized_opts= +ac_unrecognized_sep= +# The variables have the same names as the options, with +# dashes changed to underlines. +cache_file=/dev/null +exec_prefix=NONE +no_create= +no_recursion= +prefix=NONE +program_prefix=NONE +program_suffix=NONE +program_transform_name=s,x,x, +silent= +site= +srcdir= +verbose= +x_includes=NONE +x_libraries=NONE + +# Installation directory options. +# These are left unexpanded so users can "make install exec_prefix=/foo" +# and all the variables that are supposed to be based on exec_prefix +# by default will actually change. +# Use braces instead of parens because sh, perl, etc. also accept them. +# (The list follows the same order as the GNU Coding Standards.) +bindir='${exec_prefix}/bin' +sbindir='${exec_prefix}/sbin' +libexecdir='${exec_prefix}/libexec' +datarootdir='${prefix}/share' +datadir='${datarootdir}' +sysconfdir='${prefix}/etc' +sharedstatedir='${prefix}/com' +localstatedir='${prefix}/var' +includedir='${prefix}/include' +oldincludedir='/usr/include' +docdir='${datarootdir}/doc/${PACKAGE_TARNAME}' +infodir='${datarootdir}/info' +htmldir='${docdir}' +dvidir='${docdir}' +pdfdir='${docdir}' +psdir='${docdir}' +libdir='${exec_prefix}/lib' +localedir='${datarootdir}/locale' +mandir='${datarootdir}/man' + +ac_prev= +ac_dashdash= +for ac_option +do + # If the previous option needs an argument, assign it. + if test -n "$ac_prev"; then + eval $ac_prev=\$ac_option + ac_prev= + continue + fi + + case $ac_option in + *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; + *=) ac_optarg= ;; + *) ac_optarg=yes ;; + esac + + # Accept the important Cygnus configure options, so we can diagnose typos. + + case $ac_dashdash$ac_option in + --) + ac_dashdash=yes ;; + + -bindir | --bindir | --bindi | --bind | --bin | --bi) + ac_prev=bindir ;; + -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) + bindir=$ac_optarg ;; + + -build | --build | --buil | --bui | --bu) + ac_prev=build_alias ;; + -build=* | --build=* | --buil=* | --bui=* | --bu=*) + build_alias=$ac_optarg ;; + + -cache-file | --cache-file | --cache-fil | --cache-fi \ + | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) + ac_prev=cache_file ;; + -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ + | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) + cache_file=$ac_optarg ;; + + --config-cache | -C) + cache_file=config.cache ;; + + -datadir | --datadir | --datadi | --datad) + ac_prev=datadir ;; + -datadir=* | --datadir=* | --datadi=* | --datad=*) + datadir=$ac_optarg ;; + + -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ + | --dataroo | --dataro | --datar) + ac_prev=datarootdir ;; + -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ + | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) + datarootdir=$ac_optarg ;; + + -disable-* | --disable-*) + ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid feature name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"enable_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval enable_$ac_useropt=no ;; + + -docdir | --docdir | --docdi | --doc | --do) + ac_prev=docdir ;; + -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) + docdir=$ac_optarg ;; + + -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) + ac_prev=dvidir ;; + -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) + dvidir=$ac_optarg ;; + + -enable-* | --enable-*) + ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid feature name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"enable_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval enable_$ac_useropt=\$ac_optarg ;; + + -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ + | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ + | --exec | --exe | --ex) + ac_prev=exec_prefix ;; + -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ + | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ + | --exec=* | --exe=* | --ex=*) + exec_prefix=$ac_optarg ;; + + -gas | --gas | --ga | --g) + # Obsolete; use --with-gas. + with_gas=yes ;; + + -help | --help | --hel | --he | -h) + ac_init_help=long ;; + -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) + ac_init_help=recursive ;; + -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) + ac_init_help=short ;; + + -host | --host | --hos | --ho) + ac_prev=host_alias ;; + -host=* | --host=* | --hos=* | --ho=*) + host_alias=$ac_optarg ;; + + -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) + ac_prev=htmldir ;; + -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ + | --ht=*) + htmldir=$ac_optarg ;; + + -includedir | --includedir | --includedi | --included | --include \ + | --includ | --inclu | --incl | --inc) + ac_prev=includedir ;; + -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ + | --includ=* | --inclu=* | --incl=* | --inc=*) + includedir=$ac_optarg ;; + + -infodir | --infodir | --infodi | --infod | --info | --inf) + ac_prev=infodir ;; + -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) + infodir=$ac_optarg ;; + + -libdir | --libdir | --libdi | --libd) + ac_prev=libdir ;; + -libdir=* | --libdir=* | --libdi=* | --libd=*) + libdir=$ac_optarg ;; + + -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ + | --libexe | --libex | --libe) + ac_prev=libexecdir ;; + -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ + | --libexe=* | --libex=* | --libe=*) + libexecdir=$ac_optarg ;; + + -localedir | --localedir | --localedi | --localed | --locale) + ac_prev=localedir ;; + -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) + localedir=$ac_optarg ;; + + -localstatedir | --localstatedir | --localstatedi | --localstated \ + | --localstate | --localstat | --localsta | --localst | --locals) + ac_prev=localstatedir ;; + -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ + | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) + localstatedir=$ac_optarg ;; + + -mandir | --mandir | --mandi | --mand | --man | --ma | --m) + ac_prev=mandir ;; + -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) + mandir=$ac_optarg ;; + + -nfp | --nfp | --nf) + # Obsolete; use --without-fp. + with_fp=no ;; + + -no-create | --no-create | --no-creat | --no-crea | --no-cre \ + | --no-cr | --no-c | -n) + no_create=yes ;; + + -no-recursion | --no-recursion | --no-recursio | --no-recursi \ + | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) + no_recursion=yes ;; + + -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ + | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ + | --oldin | --oldi | --old | --ol | --o) + ac_prev=oldincludedir ;; + -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ + | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ + | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) + oldincludedir=$ac_optarg ;; + + -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) + ac_prev=prefix ;; + -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) + prefix=$ac_optarg ;; + + -program-prefix | --program-prefix | --program-prefi | --program-pref \ + | --program-pre | --program-pr | --program-p) + ac_prev=program_prefix ;; + -program-prefix=* | --program-prefix=* | --program-prefi=* \ + | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) + program_prefix=$ac_optarg ;; + + -program-suffix | --program-suffix | --program-suffi | --program-suff \ + | --program-suf | --program-su | --program-s) + ac_prev=program_suffix ;; + -program-suffix=* | --program-suffix=* | --program-suffi=* \ + | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) + program_suffix=$ac_optarg ;; + + -program-transform-name | --program-transform-name \ + | --program-transform-nam | --program-transform-na \ + | --program-transform-n | --program-transform- \ + | --program-transform | --program-transfor \ + | --program-transfo | --program-transf \ + | --program-trans | --program-tran \ + | --progr-tra | --program-tr | --program-t) + ac_prev=program_transform_name ;; + -program-transform-name=* | --program-transform-name=* \ + | --program-transform-nam=* | --program-transform-na=* \ + | --program-transform-n=* | --program-transform-=* \ + | --program-transform=* | --program-transfor=* \ + | --program-transfo=* | --program-transf=* \ + | --program-trans=* | --program-tran=* \ + | --progr-tra=* | --program-tr=* | --program-t=*) + program_transform_name=$ac_optarg ;; + + -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) + ac_prev=pdfdir ;; + -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) + pdfdir=$ac_optarg ;; + + -psdir | --psdir | --psdi | --psd | --ps) + ac_prev=psdir ;; + -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) + psdir=$ac_optarg ;; + + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil) + silent=yes ;; + + -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) + ac_prev=sbindir ;; + -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ + | --sbi=* | --sb=*) + sbindir=$ac_optarg ;; + + -sharedstatedir | --sharedstatedir | --sharedstatedi \ + | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ + | --sharedst | --shareds | --shared | --share | --shar \ + | --sha | --sh) + ac_prev=sharedstatedir ;; + -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ + | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ + | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ + | --sha=* | --sh=*) + sharedstatedir=$ac_optarg ;; + + -site | --site | --sit) + ac_prev=site ;; + -site=* | --site=* | --sit=*) + site=$ac_optarg ;; + + -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) + ac_prev=srcdir ;; + -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) + srcdir=$ac_optarg ;; + + -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ + | --syscon | --sysco | --sysc | --sys | --sy) + ac_prev=sysconfdir ;; + -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ + | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) + sysconfdir=$ac_optarg ;; + + -target | --target | --targe | --targ | --tar | --ta | --t) + ac_prev=target_alias ;; + -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) + target_alias=$ac_optarg ;; + + -v | -verbose | --verbose | --verbos | --verbo | --verb) + verbose=yes ;; + + -version | --version | --versio | --versi | --vers | -V) + ac_init_version=: ;; + + -with-* | --with-*) + ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid package name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"with_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval with_$ac_useropt=\$ac_optarg ;; + + -without-* | --without-*) + ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid package name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"with_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval with_$ac_useropt=no ;; + + --x) + # Obsolete; use --with-x. + with_x=yes ;; + + -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ + | --x-incl | --x-inc | --x-in | --x-i) + ac_prev=x_includes ;; + -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ + | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) + x_includes=$ac_optarg ;; + + -x-libraries | --x-libraries | --x-librarie | --x-librari \ + | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) + ac_prev=x_libraries ;; + -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ + | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) + x_libraries=$ac_optarg ;; + + -*) as_fn_error $? "unrecognized option: \`$ac_option' +Try \`$0 --help' for more information" + ;; + + *=*) + ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` + # Reject names that are not valid shell variable names. + case $ac_envvar in #( + '' | [0-9]* | *[!_$as_cr_alnum]* ) + as_fn_error $? "invalid variable name: \`$ac_envvar'" ;; + esac + eval $ac_envvar=\$ac_optarg + export $ac_envvar ;; + + *) + # FIXME: should be removed in autoconf 3.0. + $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2 + expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && + $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2 + : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}" + ;; + + esac +done + +if test -n "$ac_prev"; then + ac_option=--`echo $ac_prev | sed 's/_/-/g'` + as_fn_error $? "missing argument to $ac_option" +fi + +if test -n "$ac_unrecognized_opts"; then + case $enable_option_checking in + no) ;; + fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;; + *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; + esac +fi + +# Check all directory arguments for consistency. +for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ + datadir sysconfdir sharedstatedir localstatedir includedir \ + oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ + libdir localedir mandir +do + eval ac_val=\$$ac_var + # Remove trailing slashes. + case $ac_val in + */ ) + ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'` + eval $ac_var=\$ac_val;; + esac + # Be sure to have absolute directory names. + case $ac_val in + [\\/$]* | ?:[\\/]* ) continue;; + NONE | '' ) case $ac_var in *prefix ) continue;; esac;; + esac + as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val" +done + +# There might be people who depend on the old broken behavior: `$host' +# used to hold the argument of --host etc. +# FIXME: To remove some day. +build=$build_alias +host=$host_alias +target=$target_alias + +# FIXME: To remove some day. +if test "x$host_alias" != x; then + if test "x$build_alias" = x; then + cross_compiling=maybe + elif test "x$build_alias" != "x$host_alias"; then + cross_compiling=yes + fi +fi + +ac_tool_prefix= +test -n "$host_alias" && ac_tool_prefix=$host_alias- + +test "$silent" = yes && exec 6>/dev/null + + +ac_pwd=`pwd` && test -n "$ac_pwd" && +ac_ls_di=`ls -di .` && +ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || + as_fn_error $? "working directory cannot be determined" +test "X$ac_ls_di" = "X$ac_pwd_ls_di" || + as_fn_error $? "pwd does not report name of working directory" + + +# Find the source files, if location was not specified. +if test -z "$srcdir"; then + ac_srcdir_defaulted=yes + # Try the directory containing this script, then the parent directory. + ac_confdir=`$as_dirname -- "$as_myself" || +$as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_myself" : 'X\(//\)[^/]' \| \ + X"$as_myself" : 'X\(//\)$' \| \ + X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_myself" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + srcdir=$ac_confdir + if test ! -r "$srcdir/$ac_unique_file"; then + srcdir=.. + fi +else + ac_srcdir_defaulted=no +fi +if test ! -r "$srcdir/$ac_unique_file"; then + test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." + as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir" +fi +ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" +ac_abs_confdir=`( + cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg" + pwd)` +# When building in place, set srcdir=. +if test "$ac_abs_confdir" = "$ac_pwd"; then + srcdir=. +fi +# Remove unnecessary trailing slashes from srcdir. +# Double slashes in file names in object file debugging info +# mess up M-x gdb in Emacs. +case $srcdir in +*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; +esac +for ac_var in $ac_precious_vars; do + eval ac_env_${ac_var}_set=\${${ac_var}+set} + eval ac_env_${ac_var}_value=\$${ac_var} + eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} + eval ac_cv_env_${ac_var}_value=\$${ac_var} +done + +# +# Report the --help message. +# +if test "$ac_init_help" = "long"; then + # Omit some internal or obsolete options to make the list less imposing. + # This message is too long to be a string in the A/UX 3.1 sh. + cat <<_ACEOF +\`configure' configures Haskell base package 1.0 to adapt to many kinds of systems. + +Usage: $0 [OPTION]... [VAR=VALUE]... + +To assign environment variables (e.g., CC, CFLAGS...), specify them as +VAR=VALUE. See below for descriptions of some of the useful variables. + +Defaults for the options are specified in brackets. + +Configuration: + -h, --help display this help and exit + --help=short display options specific to this package + --help=recursive display the short help of all the included packages + -V, --version display version information and exit + -q, --quiet, --silent do not print \`checking ...' messages + --cache-file=FILE cache test results in FILE [disabled] + -C, --config-cache alias for \`--cache-file=config.cache' + -n, --no-create do not create output files + --srcdir=DIR find the sources in DIR [configure dir or \`..'] + +Installation directories: + --prefix=PREFIX install architecture-independent files in PREFIX + [$ac_default_prefix] + --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX + [PREFIX] + +By default, \`make install' will install all the files in +\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify +an installation prefix other than \`$ac_default_prefix' using \`--prefix', +for instance \`--prefix=\$HOME'. + +For better control, use the options below. + +Fine tuning of the installation directories: + --bindir=DIR user executables [EPREFIX/bin] + --sbindir=DIR system admin executables [EPREFIX/sbin] + --libexecdir=DIR program executables [EPREFIX/libexec] + --sysconfdir=DIR read-only single-machine data [PREFIX/etc] + --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] + --localstatedir=DIR modifiable single-machine data [PREFIX/var] + --libdir=DIR object code libraries [EPREFIX/lib] + --includedir=DIR C header files [PREFIX/include] + --oldincludedir=DIR C header files for non-gcc [/usr/include] + --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] + --datadir=DIR read-only architecture-independent data [DATAROOTDIR] + --infodir=DIR info documentation [DATAROOTDIR/info] + --localedir=DIR locale-dependent data [DATAROOTDIR/locale] + --mandir=DIR man documentation [DATAROOTDIR/man] + --docdir=DIR documentation root [DATAROOTDIR/doc/base] + --htmldir=DIR html documentation [DOCDIR] + --dvidir=DIR dvi documentation [DOCDIR] + --pdfdir=DIR pdf documentation [DOCDIR] + --psdir=DIR ps documentation [DOCDIR] +_ACEOF + + cat <<\_ACEOF +_ACEOF +fi + +if test -n "$ac_init_help"; then + case $ac_init_help in + short | recursive ) echo "Configuration of Haskell base package 1.0:";; + esac + cat <<\_ACEOF + +Optional Features: + --disable-option-checking ignore unrecognized --enable/--with options + --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) + --enable-FEATURE[=ARG] include FEATURE [ARG=yes] + --disable-largefile omit support for large files + +Optional Packages: + --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] + --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) + --with-iconv-includes directory containing iconv.h + --with-iconv-libraries directory containing iconv library + --with-libcharset Use libcharset [default=only if available] + +Some influential environment variables: + CC C compiler command + CFLAGS C compiler flags + LDFLAGS linker flags, e.g. -L if you have libraries in a + nonstandard directory + LIBS libraries to pass to the linker, e.g. -l + CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I if + you have headers in a nonstandard directory + CPP C preprocessor + +Use these variables to override the choices made by `configure' or to help +it to find libraries and programs with nonstandard names/locations. + +Report bugs to . +_ACEOF +ac_status=$? +fi + +if test "$ac_init_help" = "recursive"; then + # If there are subdirs, report their specific --help. + for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue + test -d "$ac_dir" || + { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } || + continue + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + cd "$ac_dir" || { ac_status=$?; continue; } + # Check for guested configure. + if test -f "$ac_srcdir/configure.gnu"; then + echo && + $SHELL "$ac_srcdir/configure.gnu" --help=recursive + elif test -f "$ac_srcdir/configure"; then + echo && + $SHELL "$ac_srcdir/configure" --help=recursive + else + $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 + fi || ac_status=$? + cd "$ac_pwd" || { ac_status=$?; break; } + done +fi + +test -n "$ac_init_help" && exit $ac_status +if $ac_init_version; then + cat <<\_ACEOF +Haskell base package configure 1.0 +generated by GNU Autoconf 2.69 + +Copyright (C) 2012 Free Software Foundation, Inc. +This configure script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it. +_ACEOF + exit +fi + +## ------------------------ ## +## Autoconf initialization. ## +## ------------------------ ## + +# ac_fn_c_try_compile LINENO +# -------------------------- +# Try to compile conftest.$ac_ext, and return whether this succeeded. +ac_fn_c_try_compile () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + rm -f conftest.$ac_objext + if { { ac_try="$ac_compile" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_compile") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + grep -v '^ *+' conftest.err >conftest.er1 + cat conftest.er1 >&5 + mv -f conftest.er1 conftest.err + fi + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && { + test -z "$ac_c_werror_flag" || + test ! -s conftest.err + } && test -s conftest.$ac_objext; then : + ac_retval=0 +else + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=1 +fi + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + as_fn_set_status $ac_retval + +} # ac_fn_c_try_compile + +# ac_fn_c_try_cpp LINENO +# ---------------------- +# Try to preprocess conftest.$ac_ext, and return whether this succeeded. +ac_fn_c_try_cpp () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + if { { ac_try="$ac_cpp conftest.$ac_ext" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + grep -v '^ *+' conftest.err >conftest.er1 + cat conftest.er1 >&5 + mv -f conftest.er1 conftest.err + fi + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } > conftest.i && { + test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || + test ! -s conftest.err + }; then : + ac_retval=0 +else + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=1 +fi + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + as_fn_set_status $ac_retval + +} # ac_fn_c_try_cpp + +# ac_fn_c_check_header_mongrel LINENO HEADER VAR INCLUDES +# ------------------------------------------------------- +# Tests whether HEADER exists, giving a warning if it cannot be compiled using +# the include files in INCLUDES and setting the cache variable VAR +# accordingly. +ac_fn_c_check_header_mongrel () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + if eval \${$3+:} false; then : + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if eval \${$3+:} false; then : + $as_echo_n "(cached) " >&6 +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } +else + # Is the header compilable? +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5 +$as_echo_n "checking $2 usability... " >&6; } +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +#include <$2> +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_header_compiler=yes +else + ac_header_compiler=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5 +$as_echo "$ac_header_compiler" >&6; } + +# Is the header present? +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5 +$as_echo_n "checking $2 presence... " >&6; } +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include <$2> +_ACEOF +if ac_fn_c_try_cpp "$LINENO"; then : + ac_header_preproc=yes +else + ac_header_preproc=no +fi +rm -f conftest.err conftest.i conftest.$ac_ext +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5 +$as_echo "$ac_header_preproc" >&6; } + +# So? What about this header? +case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #(( + yes:no: ) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5 +$as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 +$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} + ;; + no:yes:* ) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5 +$as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5 +$as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5 +$as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5 +$as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 +$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} +( $as_echo "## ------------------------------------ ## +## Report this to libraries@haskell.org ## +## ------------------------------------ ##" + ) | sed "s/^/$as_me: WARNING: /" >&2 + ;; +esac + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if eval \${$3+:} false; then : + $as_echo_n "(cached) " >&6 +else + eval "$3=\$ac_header_compiler" +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } +fi + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + +} # ac_fn_c_check_header_mongrel + +# ac_fn_c_try_run LINENO +# ---------------------- +# Try to link conftest.$ac_ext, and return whether this succeeded. Assumes +# that executables *can* be run. +ac_fn_c_try_run () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + if { { ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_link") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' + { { case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_try") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; }; then : + ac_retval=0 +else + $as_echo "$as_me: program exited with status $ac_status" >&5 + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=$ac_status +fi + rm -rf conftest.dSYM conftest_ipa8_conftest.oo + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + as_fn_set_status $ac_retval + +} # ac_fn_c_try_run + +# ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES +# ------------------------------------------------------- +# Tests whether HEADER exists and can be compiled using the include files in +# INCLUDES, setting the cache variable VAR accordingly. +ac_fn_c_check_header_compile () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if eval \${$3+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +#include <$2> +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + eval "$3=yes" +else + eval "$3=no" +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + +} # ac_fn_c_check_header_compile + +# ac_fn_c_check_type LINENO TYPE VAR INCLUDES +# ------------------------------------------- +# Tests whether TYPE exists after having included INCLUDES, setting cache +# variable VAR accordingly. +ac_fn_c_check_type () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if eval \${$3+:} false; then : + $as_echo_n "(cached) " >&6 +else + eval "$3=no" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +int +main () +{ +if (sizeof ($2)) + return 0; + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +int +main () +{ +if (sizeof (($2))) + return 0; + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + +else + eval "$3=yes" +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + +} # ac_fn_c_check_type + +# ac_fn_c_try_link LINENO +# ----------------------- +# Try to link conftest.$ac_ext, and return whether this succeeded. +ac_fn_c_try_link () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + rm -f conftest.$ac_objext conftest$ac_exeext + if { { ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_link") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + grep -v '^ *+' conftest.err >conftest.er1 + cat conftest.er1 >&5 + mv -f conftest.er1 conftest.err + fi + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && { + test -z "$ac_c_werror_flag" || + test ! -s conftest.err + } && test -s conftest$ac_exeext && { + test "$cross_compiling" = yes || + test -x conftest$ac_exeext + }; then : + ac_retval=0 +else + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=1 +fi + # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information + # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would + # interfere with the next link command; also delete a directory that is + # left behind by Apple's compiler. We do this before executing the actions. + rm -rf conftest.dSYM conftest_ipa8_conftest.oo + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + as_fn_set_status $ac_retval + +} # ac_fn_c_try_link + +# ac_fn_c_check_func LINENO FUNC VAR +# ---------------------------------- +# Tests whether FUNC exists, setting the cache variable VAR accordingly +ac_fn_c_check_func () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if eval \${$3+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +/* Define $2 to an innocuous variant, in case declares $2. + For example, HP-UX 11i declares gettimeofday. */ +#define $2 innocuous_$2 + +/* System header to define __stub macros and hopefully few prototypes, + which can conflict with char $2 (); below. + Prefer to if __STDC__ is defined, since + exists even on freestanding compilers. */ + +#ifdef __STDC__ +# include +#else +# include +#endif + +#undef $2 + +/* Override any GCC internal prototype to avoid an error. + Use char because int might match the return type of a GCC + builtin and then its argument prototype would still apply. */ +#ifdef __cplusplus +extern "C" +#endif +char $2 (); +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined __stub_$2 || defined __stub___$2 +choke me +#endif + +int +main () +{ +return $2 (); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + eval "$3=yes" +else + eval "$3=no" +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + +} # ac_fn_c_check_func + +# ac_fn_c_compute_int LINENO EXPR VAR INCLUDES +# -------------------------------------------- +# Tries to find the compile-time value of EXPR in a program that includes +# INCLUDES, setting VAR accordingly. Returns whether the value could be +# computed +ac_fn_c_compute_int () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + if test "$cross_compiling" = yes; then + # Depending upon the size, compute the lo and hi bounds. +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +int +main () +{ +static int test_array [1 - 2 * !(($2) >= 0)]; +test_array [0] = 0; +return test_array [0]; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_lo=0 ac_mid=0 + while :; do + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +int +main () +{ +static int test_array [1 - 2 * !(($2) <= $ac_mid)]; +test_array [0] = 0; +return test_array [0]; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_hi=$ac_mid; break +else + as_fn_arith $ac_mid + 1 && ac_lo=$as_val + if test $ac_lo -le $ac_mid; then + ac_lo= ac_hi= + break + fi + as_fn_arith 2 '*' $ac_mid + 1 && ac_mid=$as_val +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + done +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +int +main () +{ +static int test_array [1 - 2 * !(($2) < 0)]; +test_array [0] = 0; +return test_array [0]; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_hi=-1 ac_mid=-1 + while :; do + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +int +main () +{ +static int test_array [1 - 2 * !(($2) >= $ac_mid)]; +test_array [0] = 0; +return test_array [0]; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_lo=$ac_mid; break +else + as_fn_arith '(' $ac_mid ')' - 1 && ac_hi=$as_val + if test $ac_mid -le $ac_hi; then + ac_lo= ac_hi= + break + fi + as_fn_arith 2 '*' $ac_mid && ac_mid=$as_val +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + done +else + ac_lo= ac_hi= +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +# Binary search between lo and hi bounds. +while test "x$ac_lo" != "x$ac_hi"; do + as_fn_arith '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo && ac_mid=$as_val + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +int +main () +{ +static int test_array [1 - 2 * !(($2) <= $ac_mid)]; +test_array [0] = 0; +return test_array [0]; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_hi=$ac_mid +else + as_fn_arith '(' $ac_mid ')' + 1 && ac_lo=$as_val +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +done +case $ac_lo in #(( +?*) eval "$3=\$ac_lo"; ac_retval=0 ;; +'') ac_retval=1 ;; +esac + else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +static long int longval () { return $2; } +static unsigned long int ulongval () { return $2; } +#include +#include +int +main () +{ + + FILE *f = fopen ("conftest.val", "w"); + if (! f) + return 1; + if (($2) < 0) + { + long int i = longval (); + if (i != ($2)) + return 1; + fprintf (f, "%ld", i); + } + else + { + unsigned long int i = ulongval (); + if (i != ($2)) + return 1; + fprintf (f, "%lu", i); + } + /* Do not output a trailing newline, as this causes \r\n confusion + on some platforms. */ + return ferror (f) || fclose (f) != 0; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + echo >>conftest.val; read $3 &5 +$as_echo_n "checking whether $as_decl_name is declared... " >&6; } +if eval \${$3+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +int +main () +{ +#ifndef $as_decl_name +#ifdef __cplusplus + (void) $as_decl_use; +#else + (void) $as_decl_name; +#endif +#endif + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + eval "$3=yes" +else + eval "$3=no" +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + +} # ac_fn_c_check_decl +cat >config.log <<_ACEOF +This file contains any messages produced by compilers while +running configure, to aid debugging if configure makes a mistake. + +It was created by Haskell base package $as_me 1.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + $ $0 $@ + +_ACEOF +exec 5>>config.log +{ +cat <<_ASUNAME +## --------- ## +## Platform. ## +## --------- ## + +hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` +uname -m = `(uname -m) 2>/dev/null || echo unknown` +uname -r = `(uname -r) 2>/dev/null || echo unknown` +uname -s = `(uname -s) 2>/dev/null || echo unknown` +uname -v = `(uname -v) 2>/dev/null || echo unknown` + +/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` +/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` + +/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` +/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` +/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` +/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` +/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` +/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` +/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` + +_ASUNAME + +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + $as_echo "PATH: $as_dir" + done +IFS=$as_save_IFS + +} >&5 + +cat >&5 <<_ACEOF + + +## ----------- ## +## Core tests. ## +## ----------- ## + +_ACEOF + + +# Keep a trace of the command line. +# Strip out --no-create and --no-recursion so they do not pile up. +# Strip out --silent because we don't want to record it for future runs. +# Also quote any args containing shell meta-characters. +# Make two passes to allow for proper duplicate-argument suppression. +ac_configure_args= +ac_configure_args0= +ac_configure_args1= +ac_must_keep_next=false +for ac_pass in 1 2 +do + for ac_arg + do + case $ac_arg in + -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil) + continue ;; + *\'*) + ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + case $ac_pass in + 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; + 2) + as_fn_append ac_configure_args1 " '$ac_arg'" + if test $ac_must_keep_next = true; then + ac_must_keep_next=false # Got value, back to normal. + else + case $ac_arg in + *=* | --config-cache | -C | -disable-* | --disable-* \ + | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ + | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ + | -with-* | --with-* | -without-* | --without-* | --x) + case "$ac_configure_args0 " in + "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; + esac + ;; + -* ) ac_must_keep_next=true ;; + esac + fi + as_fn_append ac_configure_args " '$ac_arg'" + ;; + esac + done +done +{ ac_configure_args0=; unset ac_configure_args0;} +{ ac_configure_args1=; unset ac_configure_args1;} + +# When interrupted or exit'd, cleanup temporary files, and complete +# config.log. We remove comments because anyway the quotes in there +# would cause problems or look ugly. +# WARNING: Use '\'' to represent an apostrophe within the trap. +# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. +trap 'exit_status=$? + # Save into config.log some information that might help in debugging. + { + echo + + $as_echo "## ---------------- ## +## Cache variables. ## +## ---------------- ##" + echo + # The following way of writing the cache mishandles newlines in values, +( + for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do + eval ac_val=\$$ac_var + case $ac_val in #( + *${as_nl}*) + case $ac_var in #( + *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 +$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; + esac + case $ac_var in #( + _ | IFS | as_nl) ;; #( + BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( + *) { eval $ac_var=; unset $ac_var;} ;; + esac ;; + esac + done + (set) 2>&1 | + case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( + *${as_nl}ac_space=\ *) + sed -n \ + "s/'\''/'\''\\\\'\'''\''/g; + s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" + ;; #( + *) + sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" + ;; + esac | + sort +) + echo + + $as_echo "## ----------------- ## +## Output variables. ## +## ----------------- ##" + echo + for ac_var in $ac_subst_vars + do + eval ac_val=\$$ac_var + case $ac_val in + *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; + esac + $as_echo "$ac_var='\''$ac_val'\''" + done | sort + echo + + if test -n "$ac_subst_files"; then + $as_echo "## ------------------- ## +## File substitutions. ## +## ------------------- ##" + echo + for ac_var in $ac_subst_files + do + eval ac_val=\$$ac_var + case $ac_val in + *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; + esac + $as_echo "$ac_var='\''$ac_val'\''" + done | sort + echo + fi + + if test -s confdefs.h; then + $as_echo "## ----------- ## +## confdefs.h. ## +## ----------- ##" + echo + cat confdefs.h + echo + fi + test "$ac_signal" != 0 && + $as_echo "$as_me: caught signal $ac_signal" + $as_echo "$as_me: exit $exit_status" + } >&5 + rm -f core *.core core.conftest.* && + rm -f -r conftest* confdefs* conf$$* $ac_clean_files && + exit $exit_status +' 0 +for ac_signal in 1 2 13 15; do + trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal +done +ac_signal=0 + +# confdefs.h avoids OS command line length limits that DEFS can exceed. +rm -f -r conftest* confdefs.h + +$as_echo "/* confdefs.h */" > confdefs.h + +# Predefined preprocessor variables. + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_NAME "$PACKAGE_NAME" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_TARNAME "$PACKAGE_TARNAME" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_VERSION "$PACKAGE_VERSION" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_STRING "$PACKAGE_STRING" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_URL "$PACKAGE_URL" +_ACEOF + + +# Let the site file select an alternate cache file if it wants to. +# Prefer an explicitly selected file to automatically selected ones. +ac_site_file1=NONE +ac_site_file2=NONE +if test -n "$CONFIG_SITE"; then + # We do not want a PATH search for config.site. + case $CONFIG_SITE in #(( + -*) ac_site_file1=./$CONFIG_SITE;; + */*) ac_site_file1=$CONFIG_SITE;; + *) ac_site_file1=./$CONFIG_SITE;; + esac +elif test "x$prefix" != xNONE; then + ac_site_file1=$prefix/share/config.site + ac_site_file2=$prefix/etc/config.site +else + ac_site_file1=$ac_default_prefix/share/config.site + ac_site_file2=$ac_default_prefix/etc/config.site +fi +for ac_site_file in "$ac_site_file1" "$ac_site_file2" +do + test "x$ac_site_file" = xNONE && continue + if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 +$as_echo "$as_me: loading site script $ac_site_file" >&6;} + sed 's/^/| /' "$ac_site_file" >&5 + . "$ac_site_file" \ + || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "failed to load site script $ac_site_file +See \`config.log' for more details" "$LINENO" 5; } + fi +done + +if test -r "$cache_file"; then + # Some versions of bash will fail to source /dev/null (special files + # actually), so we avoid doing that. DJGPP emulates it as a regular file. + if test /dev/null != "$cache_file" && test -f "$cache_file"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 +$as_echo "$as_me: loading cache $cache_file" >&6;} + case $cache_file in + [\\/]* | ?:[\\/]* ) . "$cache_file";; + *) . "./$cache_file";; + esac + fi +else + { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 +$as_echo "$as_me: creating cache $cache_file" >&6;} + >$cache_file +fi + +# Check that the precious variables saved in the cache have kept the same +# value. +ac_cache_corrupted=false +for ac_var in $ac_precious_vars; do + eval ac_old_set=\$ac_cv_env_${ac_var}_set + eval ac_new_set=\$ac_env_${ac_var}_set + eval ac_old_val=\$ac_cv_env_${ac_var}_value + eval ac_new_val=\$ac_env_${ac_var}_value + case $ac_old_set,$ac_new_set in + set,) + { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 +$as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} + ac_cache_corrupted=: ;; + ,set) + { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 +$as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} + ac_cache_corrupted=: ;; + ,);; + *) + if test "x$ac_old_val" != "x$ac_new_val"; then + # differences in whitespace do not lead to failure. + ac_old_val_w=`echo x $ac_old_val` + ac_new_val_w=`echo x $ac_new_val` + if test "$ac_old_val_w" != "$ac_new_val_w"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 +$as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} + ac_cache_corrupted=: + else + { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 +$as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} + eval $ac_var=\$ac_old_val + fi + { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 +$as_echo "$as_me: former value: \`$ac_old_val'" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 +$as_echo "$as_me: current value: \`$ac_new_val'" >&2;} + fi;; + esac + # Pass precious variables to config.status. + if test "$ac_new_set" = set; then + case $ac_new_val in + *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; + *) ac_arg=$ac_var=$ac_new_val ;; + esac + case " $ac_configure_args " in + *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. + *) as_fn_append ac_configure_args " '$ac_arg'" ;; + esac + fi +done +if $ac_cache_corrupted; then + { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 +$as_echo "$as_me: error: changes in the environment can compromise the build" >&2;} + as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5 +fi +## -------------------- ## +## Main body of script. ## +## -------------------- ## + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + + +# Safety check: Ensure that we are in the correct source directory. + + +ac_config_headers="$ac_config_headers include/HsBaseConfig.h include/EventConfig.h" + + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu +if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. +set dummy ${ac_tool_prefix}gcc; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_CC+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_CC="${ac_tool_prefix}gcc" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +$as_echo "$CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_CC"; then + ac_ct_CC=$CC + # Extract the first word of "gcc", so it can be a program name with args. +set dummy gcc; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_CC+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_CC"; then + ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_CC="gcc" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_CC=$ac_cv_prog_ac_ct_CC +if test -n "$ac_ct_CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 +$as_echo "$ac_ct_CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_CC" = x; then + CC="" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + CC=$ac_ct_CC + fi +else + CC="$ac_cv_prog_CC" +fi + +if test -z "$CC"; then + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. +set dummy ${ac_tool_prefix}cc; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_CC+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_CC="${ac_tool_prefix}cc" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +$as_echo "$CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + fi +fi +if test -z "$CC"; then + # Extract the first word of "cc", so it can be a program name with args. +set dummy cc; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_CC+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else + ac_prog_rejected=no +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then + ac_prog_rejected=yes + continue + fi + ac_cv_prog_CC="cc" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +if test $ac_prog_rejected = yes; then + # We found a bogon in the path, so make sure we never use it. + set dummy $ac_cv_prog_CC + shift + if test $# != 0; then + # We chose a different compiler from the bogus one. + # However, it has the same basename, so the bogon will be chosen + # first if we set CC to just the basename; use the full file name. + shift + ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" + fi +fi +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +$as_echo "$CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$CC"; then + if test -n "$ac_tool_prefix"; then + for ac_prog in cl.exe + do + # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. +set dummy $ac_tool_prefix$ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_CC+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_CC="$ac_tool_prefix$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +$as_echo "$CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$CC" && break + done +fi +if test -z "$CC"; then + ac_ct_CC=$CC + for ac_prog in cl.exe +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_ac_ct_CC+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_CC"; then + ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_CC="$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_CC=$ac_cv_prog_ac_ct_CC +if test -n "$ac_ct_CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 +$as_echo "$ac_ct_CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$ac_ct_CC" && break +done + + if test "x$ac_ct_CC" = x; then + CC="" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + CC=$ac_ct_CC + fi +fi + +fi + + +test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "no acceptable C compiler found in \$PATH +See \`config.log' for more details" "$LINENO" 5; } + +# Provide some information about the compiler. +$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 +set X $ac_compile +ac_compiler=$2 +for ac_option in --version -v -V -qversion; do + { { ac_try="$ac_compiler $ac_option >&5" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_compiler $ac_option >&5") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + sed '10a\ +... rest of stderr output deleted ... + 10q' conftest.err >conftest.er1 + cat conftest.er1 >&5 + fi + rm -f conftest.er1 conftest.err + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } +done + +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +ac_clean_files_save=$ac_clean_files +ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out" +# Try to create an executable without -o first, disregard a.out. +# It will help us diagnose broken compilers, and finding out an intuition +# of exeext. +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 +$as_echo_n "checking whether the C compiler works... " >&6; } +ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` + +# The possible output files: +ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" + +ac_rmfiles= +for ac_file in $ac_files +do + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; + * ) ac_rmfiles="$ac_rmfiles $ac_file";; + esac +done +rm -f $ac_rmfiles + +if { { ac_try="$ac_link_default" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_link_default") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then : + # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. +# So ignore a value of `no', otherwise this would lead to `EXEEXT = no' +# in a Makefile. We should not override ac_cv_exeext if it was cached, +# so that the user can short-circuit this test for compilers unknown to +# Autoconf. +for ac_file in $ac_files '' +do + test -f "$ac_file" || continue + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) + ;; + [ab].out ) + # We found the default executable, but exeext='' is most + # certainly right. + break;; + *.* ) + if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; + then :; else + ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` + fi + # We set ac_cv_exeext here because the later test for it is not + # safe: cross compilers may not add the suffix if given an `-o' + # argument, so we may need to know it at that point already. + # Even if this section looks crufty: it has the advantage of + # actually working. + break;; + * ) + break;; + esac +done +test "$ac_cv_exeext" = no && ac_cv_exeext= + +else + ac_file='' +fi +if test -z "$ac_file"; then : + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +$as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error 77 "C compiler cannot create executables +See \`config.log' for more details" "$LINENO" 5; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +$as_echo "yes" >&6; } +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 +$as_echo_n "checking for C compiler default output file name... " >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 +$as_echo "$ac_file" >&6; } +ac_exeext=$ac_cv_exeext + +rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out +ac_clean_files=$ac_clean_files_save +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 +$as_echo_n "checking for suffix of executables... " >&6; } +if { { ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_link") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then : + # If both `conftest.exe' and `conftest' are `present' (well, observable) +# catch `conftest.exe'. For instance with Cygwin, `ls conftest' will +# work properly (i.e., refer to `conftest.exe'), while it won't with +# `rm'. +for ac_file in conftest.exe conftest conftest.*; do + test -f "$ac_file" || continue + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; + *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` + break;; + * ) break;; + esac +done +else + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "cannot compute suffix of executables: cannot compile and link +See \`config.log' for more details" "$LINENO" 5; } +fi +rm -f conftest conftest$ac_cv_exeext +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 +$as_echo "$ac_cv_exeext" >&6; } + +rm -f conftest.$ac_ext +EXEEXT=$ac_cv_exeext +ac_exeext=$EXEEXT +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +int +main () +{ +FILE *f = fopen ("conftest.out", "w"); + return ferror (f) || fclose (f) != 0; + + ; + return 0; +} +_ACEOF +ac_clean_files="$ac_clean_files conftest.out" +# Check that the compiler produces executables we can run. If not, either +# the compiler is broken, or we cross compile. +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 +$as_echo_n "checking whether we are cross compiling... " >&6; } +if test "$cross_compiling" != yes; then + { { ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_link") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } + if { ac_try='./conftest$ac_cv_exeext' + { { case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_try") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; }; then + cross_compiling=no + else + if test "$cross_compiling" = maybe; then + cross_compiling=yes + else + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "cannot run C compiled programs. +If you meant to cross compile, use \`--host'. +See \`config.log' for more details" "$LINENO" 5; } + fi + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 +$as_echo "$cross_compiling" >&6; } + +rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out +ac_clean_files=$ac_clean_files_save +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 +$as_echo_n "checking for suffix of object files... " >&6; } +if ${ac_cv_objext+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +rm -f conftest.o conftest.obj +if { { ac_try="$ac_compile" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_compile") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then : + for ac_file in conftest.o conftest.obj conftest.*; do + test -f "$ac_file" || continue; + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;; + *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` + break;; + esac +done +else + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "cannot compute suffix of object files: cannot compile +See \`config.log' for more details" "$LINENO" 5; } +fi +rm -f conftest.$ac_cv_objext conftest.$ac_ext +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 +$as_echo "$ac_cv_objext" >&6; } +OBJEXT=$ac_cv_objext +ac_objext=$OBJEXT +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 +$as_echo_n "checking whether we are using the GNU C compiler... " >&6; } +if ${ac_cv_c_compiler_gnu+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ +#ifndef __GNUC__ + choke me +#endif + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_compiler_gnu=yes +else + ac_compiler_gnu=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +ac_cv_c_compiler_gnu=$ac_compiler_gnu + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 +$as_echo "$ac_cv_c_compiler_gnu" >&6; } +if test $ac_compiler_gnu = yes; then + GCC=yes +else + GCC= +fi +ac_test_CFLAGS=${CFLAGS+set} +ac_save_CFLAGS=$CFLAGS +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 +$as_echo_n "checking whether $CC accepts -g... " >&6; } +if ${ac_cv_prog_cc_g+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_save_c_werror_flag=$ac_c_werror_flag + ac_c_werror_flag=yes + ac_cv_prog_cc_g=no + CFLAGS="-g" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_prog_cc_g=yes +else + CFLAGS="" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + +else + ac_c_werror_flag=$ac_save_c_werror_flag + CFLAGS="-g" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_prog_cc_g=yes +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + ac_c_werror_flag=$ac_save_c_werror_flag +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 +$as_echo "$ac_cv_prog_cc_g" >&6; } +if test "$ac_test_CFLAGS" = set; then + CFLAGS=$ac_save_CFLAGS +elif test $ac_cv_prog_cc_g = yes; then + if test "$GCC" = yes; then + CFLAGS="-g -O2" + else + CFLAGS="-g" + fi +else + if test "$GCC" = yes; then + CFLAGS="-O2" + else + CFLAGS= + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 +$as_echo_n "checking for $CC option to accept ISO C89... " >&6; } +if ${ac_cv_prog_cc_c89+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_cv_prog_cc_c89=no +ac_save_CC=$CC +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +#include +struct stat; +/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ +struct buf { int x; }; +FILE * (*rcsopen) (struct buf *, struct stat *, int); +static char *e (p, i) + char **p; + int i; +{ + return p[i]; +} +static char *f (char * (*g) (char **, int), char **p, ...) +{ + char *s; + va_list v; + va_start (v,p); + s = g (p, va_arg (v,int)); + va_end (v); + return s; +} + +/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has + function prototypes and stuff, but not '\xHH' hex character constants. + These don't provoke an error unfortunately, instead are silently treated + as 'x'. The following induces an error, until -std is added to get + proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an + array size at least. It's necessary to write '\x00'==0 to get something + that's true only with -std. */ +int osf4_cc_array ['\x00' == 0 ? 1 : -1]; + +/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters + inside strings and character constants. */ +#define FOO(x) 'x' +int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; + +int test (int i, double x); +struct s1 {int (*f) (int a);}; +struct s2 {int (*f) (double a);}; +int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); +int argc; +char **argv; +int +main () +{ +return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; + ; + return 0; +} +_ACEOF +for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ + -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" +do + CC="$ac_save_CC $ac_arg" + if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_prog_cc_c89=$ac_arg +fi +rm -f core conftest.err conftest.$ac_objext + test "x$ac_cv_prog_cc_c89" != "xno" && break +done +rm -f conftest.$ac_ext +CC=$ac_save_CC + +fi +# AC_CACHE_VAL +case "x$ac_cv_prog_cc_c89" in + x) + { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 +$as_echo "none needed" >&6; } ;; + xno) + { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 +$as_echo "unsupported" >&6; } ;; + *) + CC="$CC $ac_cv_prog_cc_c89" + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 +$as_echo "$ac_cv_prog_cc_c89" >&6; } ;; +esac +if test "x$ac_cv_prog_cc_c89" != xno; then : + +fi + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 +$as_echo_n "checking how to run the C preprocessor... " >&6; } +# On Suns, sometimes $CPP names a directory. +if test -n "$CPP" && test -d "$CPP"; then + CPP= +fi +if test -z "$CPP"; then + if ${ac_cv_prog_CPP+:} false; then : + $as_echo_n "(cached) " >&6 +else + # Double quotes because CPP needs to be expanded + for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" + do + ac_preproc_ok=false +for ac_c_preproc_warn_flag in '' yes +do + # Use a header file that comes with gcc, so configuring glibc + # with a fresh cross-compiler works. + # Prefer to if __STDC__ is defined, since + # exists even on freestanding compilers. + # On the NeXT, cc -E runs the code through the compiler's parser, + # not just through cpp. "Syntax error" is here to catch this case. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#ifdef __STDC__ +# include +#else +# include +#endif + Syntax error +_ACEOF +if ac_fn_c_try_cpp "$LINENO"; then : + +else + # Broken: fails on valid input. +continue +fi +rm -f conftest.err conftest.i conftest.$ac_ext + + # OK, works on sane cases. Now check whether nonexistent headers + # can be detected and how. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +_ACEOF +if ac_fn_c_try_cpp "$LINENO"; then : + # Broken: success on invalid input. +continue +else + # Passes both tests. +ac_preproc_ok=: +break +fi +rm -f conftest.err conftest.i conftest.$ac_ext + +done +# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. +rm -f conftest.i conftest.err conftest.$ac_ext +if $ac_preproc_ok; then : + break +fi + + done + ac_cv_prog_CPP=$CPP + +fi + CPP=$ac_cv_prog_CPP +else + ac_cv_prog_CPP=$CPP +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 +$as_echo "$CPP" >&6; } +ac_preproc_ok=false +for ac_c_preproc_warn_flag in '' yes +do + # Use a header file that comes with gcc, so configuring glibc + # with a fresh cross-compiler works. + # Prefer to if __STDC__ is defined, since + # exists even on freestanding compilers. + # On the NeXT, cc -E runs the code through the compiler's parser, + # not just through cpp. "Syntax error" is here to catch this case. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#ifdef __STDC__ +# include +#else +# include +#endif + Syntax error +_ACEOF +if ac_fn_c_try_cpp "$LINENO"; then : + +else + # Broken: fails on valid input. +continue +fi +rm -f conftest.err conftest.i conftest.$ac_ext + + # OK, works on sane cases. Now check whether nonexistent headers + # can be detected and how. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +_ACEOF +if ac_fn_c_try_cpp "$LINENO"; then : + # Broken: success on invalid input. +continue +else + # Passes both tests. +ac_preproc_ok=: +break +fi +rm -f conftest.err conftest.i conftest.$ac_ext + +done +# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. +rm -f conftest.i conftest.err conftest.$ac_ext +if $ac_preproc_ok; then : + +else + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "C preprocessor \"$CPP\" fails sanity check +See \`config.log' for more details" "$LINENO" 5; } +fi + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5 +$as_echo_n "checking for grep that handles long lines and -e... " >&6; } +if ${ac_cv_path_GREP+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -z "$GREP"; then + ac_path_GREP_found=false + # Loop through the user's path and test for each of PROGNAME-LIST + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_prog in grep ggrep; do + for ac_exec_ext in '' $ac_executable_extensions; do + ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" + as_fn_executable_p "$ac_path_GREP" || continue +# Check for GNU ac_path_GREP and select it if it is found. + # Check for GNU $ac_path_GREP +case `"$ac_path_GREP" --version 2>&1` in +*GNU*) + ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; +*) + ac_count=0 + $as_echo_n 0123456789 >"conftest.in" + while : + do + cat "conftest.in" "conftest.in" >"conftest.tmp" + mv "conftest.tmp" "conftest.in" + cp "conftest.in" "conftest.nl" + $as_echo 'GREP' >> "conftest.nl" + "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break + diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break + as_fn_arith $ac_count + 1 && ac_count=$as_val + if test $ac_count -gt ${ac_path_GREP_max-0}; then + # Best one so far, save it but keep looking for a better one + ac_cv_path_GREP="$ac_path_GREP" + ac_path_GREP_max=$ac_count + fi + # 10*(2^10) chars as input seems more than enough + test $ac_count -gt 10 && break + done + rm -f conftest.in conftest.tmp conftest.nl conftest.out;; +esac + + $ac_path_GREP_found && break 3 + done + done + done +IFS=$as_save_IFS + if test -z "$ac_cv_path_GREP"; then + as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 + fi +else + ac_cv_path_GREP=$GREP +fi + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5 +$as_echo "$ac_cv_path_GREP" >&6; } + GREP="$ac_cv_path_GREP" + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5 +$as_echo_n "checking for egrep... " >&6; } +if ${ac_cv_path_EGREP+:} false; then : + $as_echo_n "(cached) " >&6 +else + if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 + then ac_cv_path_EGREP="$GREP -E" + else + if test -z "$EGREP"; then + ac_path_EGREP_found=false + # Loop through the user's path and test for each of PROGNAME-LIST + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_prog in egrep; do + for ac_exec_ext in '' $ac_executable_extensions; do + ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" + as_fn_executable_p "$ac_path_EGREP" || continue +# Check for GNU ac_path_EGREP and select it if it is found. + # Check for GNU $ac_path_EGREP +case `"$ac_path_EGREP" --version 2>&1` in +*GNU*) + ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; +*) + ac_count=0 + $as_echo_n 0123456789 >"conftest.in" + while : + do + cat "conftest.in" "conftest.in" >"conftest.tmp" + mv "conftest.tmp" "conftest.in" + cp "conftest.in" "conftest.nl" + $as_echo 'EGREP' >> "conftest.nl" + "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break + diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break + as_fn_arith $ac_count + 1 && ac_count=$as_val + if test $ac_count -gt ${ac_path_EGREP_max-0}; then + # Best one so far, save it but keep looking for a better one + ac_cv_path_EGREP="$ac_path_EGREP" + ac_path_EGREP_max=$ac_count + fi + # 10*(2^10) chars as input seems more than enough + test $ac_count -gt 10 && break + done + rm -f conftest.in conftest.tmp conftest.nl conftest.out;; +esac + + $ac_path_EGREP_found && break 3 + done + done + done +IFS=$as_save_IFS + if test -z "$ac_cv_path_EGREP"; then + as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 + fi +else + ac_cv_path_EGREP=$EGREP +fi + + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5 +$as_echo "$ac_cv_path_EGREP" >&6; } + EGREP="$ac_cv_path_EGREP" + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 +$as_echo_n "checking for ANSI C header files... " >&6; } +if ${ac_cv_header_stdc+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +#include +#include +#include + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_header_stdc=yes +else + ac_cv_header_stdc=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + +if test $ac_cv_header_stdc = yes; then + # SunOS 4.x string.h does not declare mem*, contrary to ANSI. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "memchr" >/dev/null 2>&1; then : + +else + ac_cv_header_stdc=no +fi +rm -f conftest* + +fi + +if test $ac_cv_header_stdc = yes; then + # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "free" >/dev/null 2>&1; then : + +else + ac_cv_header_stdc=no +fi +rm -f conftest* + +fi + +if test $ac_cv_header_stdc = yes; then + # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. + if test "$cross_compiling" = yes; then : + : +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +#include +#if ((' ' & 0x0FF) == 0x020) +# define ISLOWER(c) ('a' <= (c) && (c) <= 'z') +# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) +#else +# define ISLOWER(c) \ + (('a' <= (c) && (c) <= 'i') \ + || ('j' <= (c) && (c) <= 'r') \ + || ('s' <= (c) && (c) <= 'z')) +# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) +#endif + +#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) +int +main () +{ + int i; + for (i = 0; i < 256; i++) + if (XOR (islower (i), ISLOWER (i)) + || toupper (i) != TOUPPER (i)) + return 2; + return 0; +} +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + +else + ac_cv_header_stdc=no +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + +fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 +$as_echo "$ac_cv_header_stdc" >&6; } +if test $ac_cv_header_stdc = yes; then + +$as_echo "#define STDC_HEADERS 1" >>confdefs.h + +fi + +# On IRIX 5.3, sys/types and inttypes.h are conflicting. +for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ + inttypes.h stdint.h unistd.h +do : + as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` +ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default +" +if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : + cat >>confdefs.h <<_ACEOF +#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 +_ACEOF + +fi + +done + + + + ac_fn_c_check_header_mongrel "$LINENO" "minix/config.h" "ac_cv_header_minix_config_h" "$ac_includes_default" +if test "x$ac_cv_header_minix_config_h" = xyes; then : + MINIX=yes +else + MINIX= +fi + + + if test "$MINIX" = yes; then + +$as_echo "#define _POSIX_SOURCE 1" >>confdefs.h + + +$as_echo "#define _POSIX_1_SOURCE 2" >>confdefs.h + + +$as_echo "#define _MINIX 1" >>confdefs.h + + fi + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether it is safe to define __EXTENSIONS__" >&5 +$as_echo_n "checking whether it is safe to define __EXTENSIONS__... " >&6; } +if ${ac_cv_safe_to_define___extensions__+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +# define __EXTENSIONS__ 1 + $ac_includes_default +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_safe_to_define___extensions__=yes +else + ac_cv_safe_to_define___extensions__=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_safe_to_define___extensions__" >&5 +$as_echo "$ac_cv_safe_to_define___extensions__" >&6; } + test $ac_cv_safe_to_define___extensions__ = yes && + $as_echo "#define __EXTENSIONS__ 1" >>confdefs.h + + $as_echo "#define _ALL_SOURCE 1" >>confdefs.h + + $as_echo "#define _GNU_SOURCE 1" >>confdefs.h + + $as_echo "#define _POSIX_PTHREAD_SEMANTICS 1" >>confdefs.h + + $as_echo "#define _TANDEM_SOURCE 1" >>confdefs.h + + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for WINDOWS platform" >&5 +$as_echo_n "checking for WINDOWS platform... " >&6; } +case $host_alias in + *mingw32*|*mingw64*|*cygwin*|*msys*) + WINDOWS=YES;; + *) + WINDOWS=NO;; +esac +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $WINDOWS" >&5 +$as_echo "$WINDOWS" >&6; } + +# do we have long longs? +ac_fn_c_check_type "$LINENO" "long long" "ac_cv_type_long_long" "$ac_includes_default" +if test "x$ac_cv_type_long_long" = xyes; then : + +cat >>confdefs.h <<_ACEOF +#define HAVE_LONG_LONG 1 +_ACEOF + + +fi + + +# check for specific header (.h) files that we are interested in +for ac_header in ctype.h errno.h fcntl.h inttypes.h limits.h signal.h sys/file.h sys/resource.h sys/select.h sys/stat.h sys/syscall.h sys/time.h sys/timeb.h sys/timers.h sys/times.h sys/types.h sys/utsname.h sys/wait.h termios.h time.h unistd.h utime.h windows.h winsock.h langinfo.h poll.h sys/epoll.h sys/event.h sys/eventfd.h sys/socket.h +do : + as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` +ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" +if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : + cat >>confdefs.h <<_ACEOF +#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 +_ACEOF + +fi + +done + + +# Enable large file support. Do this before testing the types ino_t, off_t, and +# rlim_t, because it will affect the result of that test. +# Check whether --enable-largefile was given. +if test "${enable_largefile+set}" = set; then : + enableval=$enable_largefile; +fi + +if test "$enable_largefile" != no; then + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for special C compiler options needed for large files" >&5 +$as_echo_n "checking for special C compiler options needed for large files... " >&6; } +if ${ac_cv_sys_largefile_CC+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_cv_sys_largefile_CC=no + if test "$GCC" != yes; then + ac_save_CC=$CC + while :; do + # IRIX 6.2 and later do not support large files by default, + # so use the C compiler's -n32 option if that helps. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + /* Check that off_t can represent 2**63 - 1 correctly. + We can't simply define LARGE_OFF_T to be 9223372036854775807, + since some C++ compilers masquerading as C compilers + incorrectly reject 9223372036854775807. */ +#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62)) + int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 + && LARGE_OFF_T % 2147483647 == 1) + ? 1 : -1]; +int +main () +{ + + ; + return 0; +} +_ACEOF + if ac_fn_c_try_compile "$LINENO"; then : + break +fi +rm -f core conftest.err conftest.$ac_objext + CC="$CC -n32" + if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_sys_largefile_CC=' -n32'; break +fi +rm -f core conftest.err conftest.$ac_objext + break + done + CC=$ac_save_CC + rm -f conftest.$ac_ext + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_largefile_CC" >&5 +$as_echo "$ac_cv_sys_largefile_CC" >&6; } + if test "$ac_cv_sys_largefile_CC" != no; then + CC=$CC$ac_cv_sys_largefile_CC + fi + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for _FILE_OFFSET_BITS value needed for large files" >&5 +$as_echo_n "checking for _FILE_OFFSET_BITS value needed for large files... " >&6; } +if ${ac_cv_sys_file_offset_bits+:} false; then : + $as_echo_n "(cached) " >&6 +else + while :; do + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + /* Check that off_t can represent 2**63 - 1 correctly. + We can't simply define LARGE_OFF_T to be 9223372036854775807, + since some C++ compilers masquerading as C compilers + incorrectly reject 9223372036854775807. */ +#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62)) + int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 + && LARGE_OFF_T % 2147483647 == 1) + ? 1 : -1]; +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_sys_file_offset_bits=no; break +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#define _FILE_OFFSET_BITS 64 +#include + /* Check that off_t can represent 2**63 - 1 correctly. + We can't simply define LARGE_OFF_T to be 9223372036854775807, + since some C++ compilers masquerading as C compilers + incorrectly reject 9223372036854775807. */ +#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62)) + int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 + && LARGE_OFF_T % 2147483647 == 1) + ? 1 : -1]; +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_sys_file_offset_bits=64; break +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + ac_cv_sys_file_offset_bits=unknown + break +done +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_file_offset_bits" >&5 +$as_echo "$ac_cv_sys_file_offset_bits" >&6; } +case $ac_cv_sys_file_offset_bits in #( + no | unknown) ;; + *) +cat >>confdefs.h <<_ACEOF +#define _FILE_OFFSET_BITS $ac_cv_sys_file_offset_bits +_ACEOF +;; +esac +rm -rf conftest* + if test $ac_cv_sys_file_offset_bits = unknown; then + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for _LARGE_FILES value needed for large files" >&5 +$as_echo_n "checking for _LARGE_FILES value needed for large files... " >&6; } +if ${ac_cv_sys_large_files+:} false; then : + $as_echo_n "(cached) " >&6 +else + while :; do + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + /* Check that off_t can represent 2**63 - 1 correctly. + We can't simply define LARGE_OFF_T to be 9223372036854775807, + since some C++ compilers masquerading as C compilers + incorrectly reject 9223372036854775807. */ +#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62)) + int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 + && LARGE_OFF_T % 2147483647 == 1) + ? 1 : -1]; +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_sys_large_files=no; break +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#define _LARGE_FILES 1 +#include + /* Check that off_t can represent 2**63 - 1 correctly. + We can't simply define LARGE_OFF_T to be 9223372036854775807, + since some C++ compilers masquerading as C compilers + incorrectly reject 9223372036854775807. */ +#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62)) + int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 + && LARGE_OFF_T % 2147483647 == 1) + ? 1 : -1]; +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_sys_large_files=1; break +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + ac_cv_sys_large_files=unknown + break +done +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_large_files" >&5 +$as_echo "$ac_cv_sys_large_files" >&6; } +case $ac_cv_sys_large_files in #( + no | unknown) ;; + *) +cat >>confdefs.h <<_ACEOF +#define _LARGE_FILES $ac_cv_sys_large_files +_ACEOF +;; +esac +rm -rf conftest* + fi + + +fi + + +for ac_header in wctype.h +do : + ac_fn_c_check_header_mongrel "$LINENO" "wctype.h" "ac_cv_header_wctype_h" "$ac_includes_default" +if test "x$ac_cv_header_wctype_h" = xyes; then : + cat >>confdefs.h <<_ACEOF +#define HAVE_WCTYPE_H 1 +_ACEOF + for ac_func in iswspace +do : + ac_fn_c_check_func "$LINENO" "iswspace" "ac_cv_func_iswspace" +if test "x$ac_cv_func_iswspace" = xyes; then : + cat >>confdefs.h <<_ACEOF +#define HAVE_ISWSPACE 1 +_ACEOF + +fi +done + +fi + +done + + +for ac_func in lstat +do : + ac_fn_c_check_func "$LINENO" "lstat" "ac_cv_func_lstat" +if test "x$ac_cv_func_lstat" = xyes; then : + cat >>confdefs.h <<_ACEOF +#define HAVE_LSTAT 1 +_ACEOF + +fi +done + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for clock_gettime in -lrt" >&5 +$as_echo_n "checking for clock_gettime in -lrt... " >&6; } +if ${ac_cv_lib_rt_clock_gettime+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-lrt $LIBS" +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +/* Override any GCC internal prototype to avoid an error. + Use char because int might match the return type of a GCC + builtin and then its argument prototype would still apply. */ +#ifdef __cplusplus +extern "C" +#endif +char clock_gettime (); +int +main () +{ +return clock_gettime (); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + ac_cv_lib_rt_clock_gettime=yes +else + ac_cv_lib_rt_clock_gettime=no +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_rt_clock_gettime" >&5 +$as_echo "$ac_cv_lib_rt_clock_gettime" >&6; } +if test "x$ac_cv_lib_rt_clock_gettime" = xyes; then : + cat >>confdefs.h <<_ACEOF +#define HAVE_LIBRT 1 +_ACEOF + + LIBS="-lrt $LIBS" + +fi + +for ac_func in clock_gettime +do : + ac_fn_c_check_func "$LINENO" "clock_gettime" "ac_cv_func_clock_gettime" +if test "x$ac_cv_func_clock_gettime" = xyes; then : + cat >>confdefs.h <<_ACEOF +#define HAVE_CLOCK_GETTIME 1 +_ACEOF + +fi +done + +for ac_func in getclock getrusage times +do : + as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` +ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" +if eval test \"x\$"$as_ac_var"\" = x"yes"; then : + cat >>confdefs.h <<_ACEOF +#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1 +_ACEOF + +fi +done + +for ac_func in _chsize ftruncate +do : + as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` +ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" +if eval test \"x\$"$as_ac_var"\" = x"yes"; then : + cat >>confdefs.h <<_ACEOF +#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1 +_ACEOF + +fi +done + + +# event-related fun +# The line below already defines HAVE_KQUEUE and HAVE_POLL, so technically some of the +# subsequent portions that redefine them could be skipped. However, we keep those portions +# to keep kqueue/poll in line with HAVE_EPOLL and possible other additions in the future. You +# should be aware of this peculiarity if you try to simulate not having kqueue or poll by +# moving away header files (see also https://gitlab.haskell.org/ghc/ghc/-/issues/9283) +for ac_func in epoll_ctl eventfd kevent kevent64 kqueue poll +do : + as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` +ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" +if eval test \"x\$"$as_ac_var"\" = x"yes"; then : + cat >>confdefs.h <<_ACEOF +#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1 +_ACEOF + +fi +done + + +if test "$ac_cv_header_sys_epoll_h" = yes && test "$ac_cv_func_epoll_ctl" = yes; then + +$as_echo "#define HAVE_EPOLL 1" >>confdefs.h + +fi + +if test "$ac_cv_header_sys_event_h" = yes && test "$ac_cv_func_kqueue" = yes; then + +$as_echo "#define HAVE_KQUEUE 1" >>confdefs.h + + + # The cast to long int works around a bug in the HP C Compiler +# version HP92453-01 B.11.11.23709.GP, which incorrectly rejects +# declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. +# This bug is HP SR number 8606223364. +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking size of kev.filter" >&5 +$as_echo_n "checking size of kev.filter... " >&6; } +if ${ac_cv_sizeof_kev_filter+:} false; then : + $as_echo_n "(cached) " >&6 +else + if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (kev.filter))" "ac_cv_sizeof_kev_filter" "#include +struct kevent kev; +"; then : + +else + if test "$ac_cv_type_kev_filter" = yes; then + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error 77 "cannot compute sizeof (kev.filter) +See \`config.log' for more details" "$LINENO" 5; } + else + ac_cv_sizeof_kev_filter=0 + fi +fi + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_kev_filter" >&5 +$as_echo "$ac_cv_sizeof_kev_filter" >&6; } + + + +cat >>confdefs.h <<_ACEOF +#define SIZEOF_KEV_FILTER $ac_cv_sizeof_kev_filter +_ACEOF + + + + # The cast to long int works around a bug in the HP C Compiler +# version HP92453-01 B.11.11.23709.GP, which incorrectly rejects +# declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. +# This bug is HP SR number 8606223364. +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking size of kev.flags" >&5 +$as_echo_n "checking size of kev.flags... " >&6; } +if ${ac_cv_sizeof_kev_flags+:} false; then : + $as_echo_n "(cached) " >&6 +else + if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (kev.flags))" "ac_cv_sizeof_kev_flags" "#include +struct kevent kev; +"; then : + +else + if test "$ac_cv_type_kev_flags" = yes; then + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error 77 "cannot compute sizeof (kev.flags) +See \`config.log' for more details" "$LINENO" 5; } + else + ac_cv_sizeof_kev_flags=0 + fi +fi + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_kev_flags" >&5 +$as_echo "$ac_cv_sizeof_kev_flags" >&6; } + + + +cat >>confdefs.h <<_ACEOF +#define SIZEOF_KEV_FLAGS $ac_cv_sizeof_kev_flags +_ACEOF + + +fi + +if test "$ac_cv_header_poll_h" = yes && test "$ac_cv_func_poll" = yes; then + +$as_echo "#define HAVE_POLL 1" >>confdefs.h + +fi + +# Linux open file descriptor locks +ac_fn_c_check_decl "$LINENO" "F_OFD_SETLK" "ac_cv_have_decl_F_OFD_SETLK" " + #include + #include + +" +if test "x$ac_cv_have_decl_F_OFD_SETLK" = xyes; then : + + +$as_echo "#define HAVE_OFD_LOCKING 1" >>confdefs.h + + +fi + + +# flock +for ac_func in flock +do : + ac_fn_c_check_func "$LINENO" "flock" "ac_cv_func_flock" +if test "x$ac_cv_func_flock" = xyes; then : + cat >>confdefs.h <<_ACEOF +#define HAVE_FLOCK 1 +_ACEOF + +fi +done + +if test "$ac_cv_header_sys_file_h" = yes && test "$ac_cv_func_flock" = yes; then + +$as_echo "#define HAVE_FLOCK 1" >>confdefs.h + +fi + +# unsetenv +for ac_func in unsetenv +do : + ac_fn_c_check_func "$LINENO" "unsetenv" "ac_cv_func_unsetenv" +if test "x$ac_cv_func_unsetenv" = xyes; then : + cat >>confdefs.h <<_ACEOF +#define HAVE_UNSETENV 1 +_ACEOF + +fi +done + + +### POSIX.1003.1 unsetenv returns 0 or -1 (EINVAL), but older implementations +### in common use return void. +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking return type of unsetenv" >&5 +$as_echo_n "checking return type of unsetenv... " >&6; } +if ${fptools_cv_func_unsetenv_return_type+:} false; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "void[ ]+unsetenv" >/dev/null 2>&1; then : + fptools_cv_func_unsetenv_return_type=void +else + fptools_cv_func_unsetenv_return_type=int +fi +rm -f conftest* + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_func_unsetenv_return_type" >&5 +$as_echo "$fptools_cv_func_unsetenv_return_type" >&6; } +case "$fptools_cv_func_unsetenv_return_type" in + "void" ) + +$as_echo "#define UNSETENV_RETURNS_VOID 1" >>confdefs.h + + ;; +esac + + + +# Check whether --with-iconv-includes was given. +if test "${with_iconv_includes+set}" = set; then : + withval=$with_iconv_includes; ICONV_INCLUDE_DIRS=$withval; CPPFLAGS="-I$withval $CPPFLAGS" +else + ICONV_INCLUDE_DIRS= +fi + + + +# Check whether --with-iconv-libraries was given. +if test "${with_iconv_libraries+set}" = set; then : + withval=$with_iconv_libraries; ICONV_LIB_DIRS=$withval; LDFLAGS="-L$withval $LDFLAGS" +else + ICONV_LIB_DIRS= +fi + + + + + +# map standard C types and ISO types to Haskell types + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for char" >&5 +$as_echo_n "checking Haskell type for char... " >&6; } + if ${fptools_cv_htype_char+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_char=yes + if ac_fn_c_compute_int "$LINENO" "(char)0.2 - (char)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +char val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_char="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(char) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_char=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(char) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_char=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(char) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_char=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_char=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_char=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_char=LDouble + else + fptools_cv_htype_sup_char=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((char)(-1)) < ((char)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_char=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(char) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_char=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_char="Word$HTYPE_SIZE" + else + fptools_cv_htype_char="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_char" = no + then + + fptools_cv_htype_char=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_char" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_char" >&5 +$as_echo "$fptools_cv_htype_char" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_CHAR $fptools_cv_htype_char +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for signed char" >&5 +$as_echo_n "checking Haskell type for signed char... " >&6; } + if ${fptools_cv_htype_signed_char+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_signed_char=yes + if ac_fn_c_compute_int "$LINENO" "(signed char)0.2 - (signed char)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +signed char val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_signed_char="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(signed char) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_signed_char=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(signed char) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_signed_char=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(signed char) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_signed_char=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_signed_char=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_signed_char=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_signed_char=LDouble + else + fptools_cv_htype_sup_signed_char=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((signed char)(-1)) < ((signed char)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_signed_char=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(signed char) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_signed_char=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_signed_char="Word$HTYPE_SIZE" + else + fptools_cv_htype_signed_char="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_signed_char" = no + then + + fptools_cv_htype_signed_char=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_signed_char" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_signed_char" >&5 +$as_echo "$fptools_cv_htype_signed_char" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_SIGNED_CHAR $fptools_cv_htype_signed_char +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for unsigned char" >&5 +$as_echo_n "checking Haskell type for unsigned char... " >&6; } + if ${fptools_cv_htype_unsigned_char+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_unsigned_char=yes + if ac_fn_c_compute_int "$LINENO" "(unsigned char)0.2 - (unsigned char)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +unsigned char val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_unsigned_char="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned char) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_char=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned char) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_char=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned char) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_char=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_unsigned_char=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_unsigned_char=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_unsigned_char=LDouble + else + fptools_cv_htype_sup_unsigned_char=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((unsigned char)(-1)) < ((unsigned char)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_char=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned char) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_char=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_unsigned_char="Word$HTYPE_SIZE" + else + fptools_cv_htype_unsigned_char="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_unsigned_char" = no + then + + fptools_cv_htype_unsigned_char=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_unsigned_char" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_unsigned_char" >&5 +$as_echo "$fptools_cv_htype_unsigned_char" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_UNSIGNED_CHAR $fptools_cv_htype_unsigned_char +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for short" >&5 +$as_echo_n "checking Haskell type for short... " >&6; } + if ${fptools_cv_htype_short+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_short=yes + if ac_fn_c_compute_int "$LINENO" "(short)0.2 - (short)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +short val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_short="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(short) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_short=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(short) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_short=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(short) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_short=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_short=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_short=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_short=LDouble + else + fptools_cv_htype_sup_short=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((short)(-1)) < ((short)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_short=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(short) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_short=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_short="Word$HTYPE_SIZE" + else + fptools_cv_htype_short="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_short" = no + then + + fptools_cv_htype_short=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_short" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_short" >&5 +$as_echo "$fptools_cv_htype_short" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_SHORT $fptools_cv_htype_short +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for unsigned short" >&5 +$as_echo_n "checking Haskell type for unsigned short... " >&6; } + if ${fptools_cv_htype_unsigned_short+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_unsigned_short=yes + if ac_fn_c_compute_int "$LINENO" "(unsigned short)0.2 - (unsigned short)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +unsigned short val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_unsigned_short="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned short) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_short=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned short) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_short=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned short) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_short=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_unsigned_short=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_unsigned_short=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_unsigned_short=LDouble + else + fptools_cv_htype_sup_unsigned_short=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((unsigned short)(-1)) < ((unsigned short)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_short=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned short) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_short=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_unsigned_short="Word$HTYPE_SIZE" + else + fptools_cv_htype_unsigned_short="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_unsigned_short" = no + then + + fptools_cv_htype_unsigned_short=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_unsigned_short" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_unsigned_short" >&5 +$as_echo "$fptools_cv_htype_unsigned_short" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_UNSIGNED_SHORT $fptools_cv_htype_unsigned_short +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for int" >&5 +$as_echo_n "checking Haskell type for int... " >&6; } + if ${fptools_cv_htype_int+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_int=yes + if ac_fn_c_compute_int "$LINENO" "(int)0.2 - (int)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +int val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_int="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(int) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_int=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(int) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_int=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(int) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_int=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_int=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_int=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_int=LDouble + else + fptools_cv_htype_sup_int=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((int)(-1)) < ((int)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_int=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(int) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_int=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_int="Word$HTYPE_SIZE" + else + fptools_cv_htype_int="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_int" = no + then + + fptools_cv_htype_int=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_int" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_int" >&5 +$as_echo "$fptools_cv_htype_int" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_INT $fptools_cv_htype_int +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for unsigned int" >&5 +$as_echo_n "checking Haskell type for unsigned int... " >&6; } + if ${fptools_cv_htype_unsigned_int+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_unsigned_int=yes + if ac_fn_c_compute_int "$LINENO" "(unsigned int)0.2 - (unsigned int)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +unsigned int val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_unsigned_int="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned int) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_int=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned int) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_int=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned int) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_int=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_unsigned_int=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_unsigned_int=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_unsigned_int=LDouble + else + fptools_cv_htype_sup_unsigned_int=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((unsigned int)(-1)) < ((unsigned int)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_int=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned int) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_int=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_unsigned_int="Word$HTYPE_SIZE" + else + fptools_cv_htype_unsigned_int="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_unsigned_int" = no + then + + fptools_cv_htype_unsigned_int=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_unsigned_int" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_unsigned_int" >&5 +$as_echo "$fptools_cv_htype_unsigned_int" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_UNSIGNED_INT $fptools_cv_htype_unsigned_int +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for long" >&5 +$as_echo_n "checking Haskell type for long... " >&6; } + if ${fptools_cv_htype_long+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_long=yes + if ac_fn_c_compute_int "$LINENO" "(long)0.2 - (long)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +long val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_long="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(long) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_long=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(long) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_long=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(long) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_long=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_long=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_long=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_long=LDouble + else + fptools_cv_htype_sup_long=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((long)(-1)) < ((long)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_long=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(long) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_long=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_long="Word$HTYPE_SIZE" + else + fptools_cv_htype_long="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_long" = no + then + + fptools_cv_htype_long=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_long" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_long" >&5 +$as_echo "$fptools_cv_htype_long" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_LONG $fptools_cv_htype_long +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for unsigned long" >&5 +$as_echo_n "checking Haskell type for unsigned long... " >&6; } + if ${fptools_cv_htype_unsigned_long+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_unsigned_long=yes + if ac_fn_c_compute_int "$LINENO" "(unsigned long)0.2 - (unsigned long)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +unsigned long val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_unsigned_long="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned long) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_long=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned long) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_long=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned long) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_long=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_unsigned_long=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_unsigned_long=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_unsigned_long=LDouble + else + fptools_cv_htype_sup_unsigned_long=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((unsigned long)(-1)) < ((unsigned long)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_long=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned long) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_long=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_unsigned_long="Word$HTYPE_SIZE" + else + fptools_cv_htype_unsigned_long="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_unsigned_long" = no + then + + fptools_cv_htype_unsigned_long=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_unsigned_long" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_unsigned_long" >&5 +$as_echo "$fptools_cv_htype_unsigned_long" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_UNSIGNED_LONG $fptools_cv_htype_unsigned_long +_ACEOF + + fi + + +if test "$ac_cv_type_long_long" = yes; then + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for long long" >&5 +$as_echo_n "checking Haskell type for long long... " >&6; } + if ${fptools_cv_htype_long_long+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_long_long=yes + if ac_fn_c_compute_int "$LINENO" "(long long)0.2 - (long long)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +long long val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_long_long="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(long long) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_long_long=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(long long) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_long_long=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(long long) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_long_long=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_long_long=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_long_long=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_long_long=LDouble + else + fptools_cv_htype_sup_long_long=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((long long)(-1)) < ((long long)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_long_long=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(long long) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_long_long=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_long_long="Word$HTYPE_SIZE" + else + fptools_cv_htype_long_long="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_long_long" = no + then + + fptools_cv_htype_long_long=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_long_long" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_long_long" >&5 +$as_echo "$fptools_cv_htype_long_long" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_LONG_LONG $fptools_cv_htype_long_long +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for unsigned long long" >&5 +$as_echo_n "checking Haskell type for unsigned long long... " >&6; } + if ${fptools_cv_htype_unsigned_long_long+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_unsigned_long_long=yes + if ac_fn_c_compute_int "$LINENO" "(unsigned long long)0.2 - (unsigned long long)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +unsigned long long val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_unsigned_long_long="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned long long) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_long_long=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned long long) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_long_long=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned long long) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_long_long=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_unsigned_long_long=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_unsigned_long_long=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_unsigned_long_long=LDouble + else + fptools_cv_htype_sup_unsigned_long_long=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((unsigned long long)(-1)) < ((unsigned long long)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_long_long=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(unsigned long long) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_unsigned_long_long=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_unsigned_long_long="Word$HTYPE_SIZE" + else + fptools_cv_htype_unsigned_long_long="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_unsigned_long_long" = no + then + + fptools_cv_htype_unsigned_long_long=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_unsigned_long_long" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_unsigned_long_long" >&5 +$as_echo "$fptools_cv_htype_unsigned_long_long" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_UNSIGNED_LONG_LONG $fptools_cv_htype_unsigned_long_long +_ACEOF + + fi + + +fi + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for bool" >&5 +$as_echo_n "checking Haskell type for bool... " >&6; } + if ${fptools_cv_htype_bool+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_bool=yes + if ac_fn_c_compute_int "$LINENO" "(bool)0.2 - (bool)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +bool val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_bool="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(bool) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_bool=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(bool) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_bool=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(bool) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_bool=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_bool=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_bool=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_bool=LDouble + else + fptools_cv_htype_sup_bool=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((bool)(-1)) < ((bool)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_bool=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(bool) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_bool=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_bool="Word$HTYPE_SIZE" + else + fptools_cv_htype_bool="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_bool" = no + then + + fptools_cv_htype_bool=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_bool" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_bool" >&5 +$as_echo "$fptools_cv_htype_bool" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_BOOL $fptools_cv_htype_bool +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for float" >&5 +$as_echo_n "checking Haskell type for float... " >&6; } + if ${fptools_cv_htype_float+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_float=yes + if ac_fn_c_compute_int "$LINENO" "(float)0.2 - (float)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +float val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_float="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(float) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_float=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(float) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_float=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(float) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_float=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_float=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_float=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_float=LDouble + else + fptools_cv_htype_sup_float=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((float)(-1)) < ((float)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_float=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(float) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_float=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_float="Word$HTYPE_SIZE" + else + fptools_cv_htype_float="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_float" = no + then + + fptools_cv_htype_float=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_float" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_float" >&5 +$as_echo "$fptools_cv_htype_float" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_FLOAT $fptools_cv_htype_float +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for double" >&5 +$as_echo_n "checking Haskell type for double... " >&6; } + if ${fptools_cv_htype_double+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_double=yes + if ac_fn_c_compute_int "$LINENO" "(double)0.2 - (double)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +double val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_double="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(double) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_double=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(double) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_double=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(double) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_double=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_double=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_double=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_double=LDouble + else + fptools_cv_htype_sup_double=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((double)(-1)) < ((double)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_double=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(double) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_double=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_double="Word$HTYPE_SIZE" + else + fptools_cv_htype_double="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_double" = no + then + + fptools_cv_htype_double=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_double" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_double" >&5 +$as_echo "$fptools_cv_htype_double" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_DOUBLE $fptools_cv_htype_double +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for ptrdiff_t" >&5 +$as_echo_n "checking Haskell type for ptrdiff_t... " >&6; } + if ${fptools_cv_htype_ptrdiff_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_ptrdiff_t=yes + if ac_fn_c_compute_int "$LINENO" "(ptrdiff_t)0.2 - (ptrdiff_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +ptrdiff_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_ptrdiff_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(ptrdiff_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_ptrdiff_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(ptrdiff_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_ptrdiff_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(ptrdiff_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_ptrdiff_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_ptrdiff_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_ptrdiff_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_ptrdiff_t=LDouble + else + fptools_cv_htype_sup_ptrdiff_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((ptrdiff_t)(-1)) < ((ptrdiff_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_ptrdiff_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(ptrdiff_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_ptrdiff_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_ptrdiff_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_ptrdiff_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_ptrdiff_t" = no + then + + fptools_cv_htype_ptrdiff_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_ptrdiff_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_ptrdiff_t" >&5 +$as_echo "$fptools_cv_htype_ptrdiff_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_PTRDIFF_T $fptools_cv_htype_ptrdiff_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for size_t" >&5 +$as_echo_n "checking Haskell type for size_t... " >&6; } + if ${fptools_cv_htype_size_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_size_t=yes + if ac_fn_c_compute_int "$LINENO" "(size_t)0.2 - (size_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +size_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_size_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(size_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_size_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(size_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_size_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(size_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_size_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_size_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_size_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_size_t=LDouble + else + fptools_cv_htype_sup_size_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((size_t)(-1)) < ((size_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_size_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(size_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_size_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_size_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_size_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_size_t" = no + then + + fptools_cv_htype_size_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_size_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_size_t" >&5 +$as_echo "$fptools_cv_htype_size_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_SIZE_T $fptools_cv_htype_size_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for wchar_t" >&5 +$as_echo_n "checking Haskell type for wchar_t... " >&6; } + if ${fptools_cv_htype_wchar_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_wchar_t=yes + if ac_fn_c_compute_int "$LINENO" "(wchar_t)0.2 - (wchar_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +wchar_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_wchar_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(wchar_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_wchar_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(wchar_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_wchar_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(wchar_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_wchar_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_wchar_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_wchar_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_wchar_t=LDouble + else + fptools_cv_htype_sup_wchar_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((wchar_t)(-1)) < ((wchar_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_wchar_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(wchar_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_wchar_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_wchar_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_wchar_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_wchar_t" = no + then + + fptools_cv_htype_wchar_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_wchar_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_wchar_t" >&5 +$as_echo "$fptools_cv_htype_wchar_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_WCHAR_T $fptools_cv_htype_wchar_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for sig_atomic_t" >&5 +$as_echo_n "checking Haskell type for sig_atomic_t... " >&6; } + if ${fptools_cv_htype_sig_atomic_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_sig_atomic_t=yes + if ac_fn_c_compute_int "$LINENO" "(sig_atomic_t)0.2 - (sig_atomic_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +sig_atomic_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_sig_atomic_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(sig_atomic_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_sig_atomic_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(sig_atomic_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_sig_atomic_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(sig_atomic_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_sig_atomic_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_sig_atomic_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_sig_atomic_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_sig_atomic_t=LDouble + else + fptools_cv_htype_sup_sig_atomic_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((sig_atomic_t)(-1)) < ((sig_atomic_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_sig_atomic_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(sig_atomic_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_sig_atomic_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_sig_atomic_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_sig_atomic_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_sig_atomic_t" = no + then + + fptools_cv_htype_sig_atomic_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_sig_atomic_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_sig_atomic_t" >&5 +$as_echo "$fptools_cv_htype_sig_atomic_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_SIG_ATOMIC_T $fptools_cv_htype_sig_atomic_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for clock_t" >&5 +$as_echo_n "checking Haskell type for clock_t... " >&6; } + if ${fptools_cv_htype_clock_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_clock_t=yes + if ac_fn_c_compute_int "$LINENO" "(clock_t)0.2 - (clock_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +clock_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_clock_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(clock_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_clock_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(clock_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_clock_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(clock_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_clock_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_clock_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_clock_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_clock_t=LDouble + else + fptools_cv_htype_sup_clock_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((clock_t)(-1)) < ((clock_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_clock_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(clock_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_clock_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_clock_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_clock_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_clock_t" = no + then + + fptools_cv_htype_clock_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_clock_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_clock_t" >&5 +$as_echo "$fptools_cv_htype_clock_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_CLOCK_T $fptools_cv_htype_clock_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for time_t" >&5 +$as_echo_n "checking Haskell type for time_t... " >&6; } + if ${fptools_cv_htype_time_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_time_t=yes + if ac_fn_c_compute_int "$LINENO" "(time_t)0.2 - (time_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +time_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_time_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(time_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_time_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(time_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_time_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(time_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_time_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_time_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_time_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_time_t=LDouble + else + fptools_cv_htype_sup_time_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((time_t)(-1)) < ((time_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_time_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(time_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_time_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_time_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_time_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_time_t" = no + then + + fptools_cv_htype_time_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_time_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_time_t" >&5 +$as_echo "$fptools_cv_htype_time_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_TIME_T $fptools_cv_htype_time_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for useconds_t" >&5 +$as_echo_n "checking Haskell type for useconds_t... " >&6; } + if ${fptools_cv_htype_useconds_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_useconds_t=yes + if ac_fn_c_compute_int "$LINENO" "(useconds_t)0.2 - (useconds_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +useconds_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_useconds_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(useconds_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_useconds_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(useconds_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_useconds_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(useconds_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_useconds_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_useconds_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_useconds_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_useconds_t=LDouble + else + fptools_cv_htype_sup_useconds_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((useconds_t)(-1)) < ((useconds_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_useconds_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(useconds_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_useconds_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_useconds_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_useconds_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_useconds_t" = no + then + + fptools_cv_htype_useconds_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_useconds_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_useconds_t" >&5 +$as_echo "$fptools_cv_htype_useconds_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_USECONDS_T $fptools_cv_htype_useconds_t +_ACEOF + + fi + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for suseconds_t" >&5 +$as_echo_n "checking Haskell type for suseconds_t... " >&6; } + if ${fptools_cv_htype_suseconds_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_suseconds_t=yes + if ac_fn_c_compute_int "$LINENO" "(suseconds_t)0.2 - (suseconds_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +suseconds_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_suseconds_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(suseconds_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_suseconds_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(suseconds_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_suseconds_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(suseconds_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_suseconds_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_suseconds_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_suseconds_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_suseconds_t=LDouble + else + fptools_cv_htype_sup_suseconds_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((suseconds_t)(-1)) < ((suseconds_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_suseconds_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(suseconds_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_suseconds_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_suseconds_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_suseconds_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_suseconds_t" = no + then + if test "$WINDOWS" = "YES" + then + fptools_cv_htype_suseconds_t=Int32 + fptools_cv_htype_sup_suseconds_t=yes + else + as_fn_error $? "type not found" "$LINENO" 5 + fi + fi + + if test "$fptools_cv_htype_sup_suseconds_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_suseconds_t" >&5 +$as_echo "$fptools_cv_htype_suseconds_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_SUSECONDS_T $fptools_cv_htype_suseconds_t +_ACEOF + + fi + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for dev_t" >&5 +$as_echo_n "checking Haskell type for dev_t... " >&6; } + if ${fptools_cv_htype_dev_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_dev_t=yes + if ac_fn_c_compute_int "$LINENO" "(dev_t)0.2 - (dev_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +dev_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_dev_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(dev_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_dev_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(dev_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_dev_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(dev_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_dev_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_dev_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_dev_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_dev_t=LDouble + else + fptools_cv_htype_sup_dev_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((dev_t)(-1)) < ((dev_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_dev_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(dev_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_dev_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_dev_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_dev_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_dev_t" = no + then + + fptools_cv_htype_dev_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_dev_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_dev_t" >&5 +$as_echo "$fptools_cv_htype_dev_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_DEV_T $fptools_cv_htype_dev_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for ino_t" >&5 +$as_echo_n "checking Haskell type for ino_t... " >&6; } + if ${fptools_cv_htype_ino_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_ino_t=yes + if ac_fn_c_compute_int "$LINENO" "(ino_t)0.2 - (ino_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +ino_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_ino_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(ino_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_ino_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(ino_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_ino_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(ino_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_ino_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_ino_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_ino_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_ino_t=LDouble + else + fptools_cv_htype_sup_ino_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((ino_t)(-1)) < ((ino_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_ino_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(ino_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_ino_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_ino_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_ino_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_ino_t" = no + then + + fptools_cv_htype_ino_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_ino_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_ino_t" >&5 +$as_echo "$fptools_cv_htype_ino_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_INO_T $fptools_cv_htype_ino_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for mode_t" >&5 +$as_echo_n "checking Haskell type for mode_t... " >&6; } + if ${fptools_cv_htype_mode_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_mode_t=yes + if ac_fn_c_compute_int "$LINENO" "(mode_t)0.2 - (mode_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +mode_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_mode_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(mode_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_mode_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(mode_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_mode_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(mode_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_mode_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_mode_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_mode_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_mode_t=LDouble + else + fptools_cv_htype_sup_mode_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((mode_t)(-1)) < ((mode_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_mode_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(mode_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_mode_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_mode_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_mode_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_mode_t" = no + then + + fptools_cv_htype_mode_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_mode_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_mode_t" >&5 +$as_echo "$fptools_cv_htype_mode_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_MODE_T $fptools_cv_htype_mode_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for off_t" >&5 +$as_echo_n "checking Haskell type for off_t... " >&6; } + if ${fptools_cv_htype_off_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_off_t=yes + if ac_fn_c_compute_int "$LINENO" "(off_t)0.2 - (off_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +off_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_off_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(off_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_off_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(off_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_off_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(off_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_off_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_off_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_off_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_off_t=LDouble + else + fptools_cv_htype_sup_off_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((off_t)(-1)) < ((off_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_off_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(off_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_off_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_off_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_off_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_off_t" = no + then + + fptools_cv_htype_off_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_off_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_off_t" >&5 +$as_echo "$fptools_cv_htype_off_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_OFF_T $fptools_cv_htype_off_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for pid_t" >&5 +$as_echo_n "checking Haskell type for pid_t... " >&6; } + if ${fptools_cv_htype_pid_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_pid_t=yes + if ac_fn_c_compute_int "$LINENO" "(pid_t)0.2 - (pid_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +pid_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_pid_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(pid_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_pid_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(pid_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_pid_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(pid_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_pid_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_pid_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_pid_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_pid_t=LDouble + else + fptools_cv_htype_sup_pid_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((pid_t)(-1)) < ((pid_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_pid_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(pid_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_pid_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_pid_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_pid_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_pid_t" = no + then + + fptools_cv_htype_pid_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_pid_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_pid_t" >&5 +$as_echo "$fptools_cv_htype_pid_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_PID_T $fptools_cv_htype_pid_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for gid_t" >&5 +$as_echo_n "checking Haskell type for gid_t... " >&6; } + if ${fptools_cv_htype_gid_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_gid_t=yes + if ac_fn_c_compute_int "$LINENO" "(gid_t)0.2 - (gid_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +gid_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_gid_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(gid_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_gid_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(gid_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_gid_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(gid_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_gid_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_gid_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_gid_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_gid_t=LDouble + else + fptools_cv_htype_sup_gid_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((gid_t)(-1)) < ((gid_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_gid_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(gid_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_gid_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_gid_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_gid_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_gid_t" = no + then + + fptools_cv_htype_gid_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_gid_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_gid_t" >&5 +$as_echo "$fptools_cv_htype_gid_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_GID_T $fptools_cv_htype_gid_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for uid_t" >&5 +$as_echo_n "checking Haskell type for uid_t... " >&6; } + if ${fptools_cv_htype_uid_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_uid_t=yes + if ac_fn_c_compute_int "$LINENO" "(uid_t)0.2 - (uid_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +uid_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_uid_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(uid_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_uid_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(uid_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_uid_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(uid_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_uid_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_uid_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_uid_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_uid_t=LDouble + else + fptools_cv_htype_sup_uid_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((uid_t)(-1)) < ((uid_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_uid_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(uid_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_uid_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_uid_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_uid_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_uid_t" = no + then + + fptools_cv_htype_uid_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_uid_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_uid_t" >&5 +$as_echo "$fptools_cv_htype_uid_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_UID_T $fptools_cv_htype_uid_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for cc_t" >&5 +$as_echo_n "checking Haskell type for cc_t... " >&6; } + if ${fptools_cv_htype_cc_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_cc_t=yes + if ac_fn_c_compute_int "$LINENO" "(cc_t)0.2 - (cc_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +cc_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_cc_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(cc_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_cc_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(cc_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_cc_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(cc_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_cc_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_cc_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_cc_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_cc_t=LDouble + else + fptools_cv_htype_sup_cc_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((cc_t)(-1)) < ((cc_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_cc_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(cc_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_cc_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_cc_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_cc_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_cc_t" = no + then + + fptools_cv_htype_cc_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_cc_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_cc_t" >&5 +$as_echo "$fptools_cv_htype_cc_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_CC_T $fptools_cv_htype_cc_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for speed_t" >&5 +$as_echo_n "checking Haskell type for speed_t... " >&6; } + if ${fptools_cv_htype_speed_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_speed_t=yes + if ac_fn_c_compute_int "$LINENO" "(speed_t)0.2 - (speed_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +speed_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_speed_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(speed_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_speed_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(speed_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_speed_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(speed_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_speed_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_speed_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_speed_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_speed_t=LDouble + else + fptools_cv_htype_sup_speed_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((speed_t)(-1)) < ((speed_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_speed_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(speed_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_speed_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_speed_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_speed_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_speed_t" = no + then + + fptools_cv_htype_speed_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_speed_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_speed_t" >&5 +$as_echo "$fptools_cv_htype_speed_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_SPEED_T $fptools_cv_htype_speed_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for tcflag_t" >&5 +$as_echo_n "checking Haskell type for tcflag_t... " >&6; } + if ${fptools_cv_htype_tcflag_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_tcflag_t=yes + if ac_fn_c_compute_int "$LINENO" "(tcflag_t)0.2 - (tcflag_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +tcflag_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_tcflag_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(tcflag_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_tcflag_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(tcflag_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_tcflag_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(tcflag_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_tcflag_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_tcflag_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_tcflag_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_tcflag_t=LDouble + else + fptools_cv_htype_sup_tcflag_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((tcflag_t)(-1)) < ((tcflag_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_tcflag_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(tcflag_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_tcflag_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_tcflag_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_tcflag_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_tcflag_t" = no + then + + fptools_cv_htype_tcflag_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_tcflag_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_tcflag_t" >&5 +$as_echo "$fptools_cv_htype_tcflag_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_TCFLAG_T $fptools_cv_htype_tcflag_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for nlink_t" >&5 +$as_echo_n "checking Haskell type for nlink_t... " >&6; } + if ${fptools_cv_htype_nlink_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_nlink_t=yes + if ac_fn_c_compute_int "$LINENO" "(nlink_t)0.2 - (nlink_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +nlink_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_nlink_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(nlink_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_nlink_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(nlink_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_nlink_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(nlink_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_nlink_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_nlink_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_nlink_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_nlink_t=LDouble + else + fptools_cv_htype_sup_nlink_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((nlink_t)(-1)) < ((nlink_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_nlink_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(nlink_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_nlink_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_nlink_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_nlink_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_nlink_t" = no + then + + fptools_cv_htype_nlink_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_nlink_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_nlink_t" >&5 +$as_echo "$fptools_cv_htype_nlink_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_NLINK_T $fptools_cv_htype_nlink_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for ssize_t" >&5 +$as_echo_n "checking Haskell type for ssize_t... " >&6; } + if ${fptools_cv_htype_ssize_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_ssize_t=yes + if ac_fn_c_compute_int "$LINENO" "(ssize_t)0.2 - (ssize_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +ssize_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_ssize_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(ssize_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_ssize_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(ssize_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_ssize_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(ssize_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_ssize_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_ssize_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_ssize_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_ssize_t=LDouble + else + fptools_cv_htype_sup_ssize_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((ssize_t)(-1)) < ((ssize_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_ssize_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(ssize_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_ssize_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_ssize_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_ssize_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_ssize_t" = no + then + + fptools_cv_htype_ssize_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_ssize_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_ssize_t" >&5 +$as_echo "$fptools_cv_htype_ssize_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_SSIZE_T $fptools_cv_htype_ssize_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for rlim_t" >&5 +$as_echo_n "checking Haskell type for rlim_t... " >&6; } + if ${fptools_cv_htype_rlim_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_rlim_t=yes + if ac_fn_c_compute_int "$LINENO" "(rlim_t)0.2 - (rlim_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +rlim_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_rlim_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(rlim_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_rlim_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(rlim_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_rlim_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(rlim_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_rlim_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_rlim_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_rlim_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_rlim_t=LDouble + else + fptools_cv_htype_sup_rlim_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((rlim_t)(-1)) < ((rlim_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_rlim_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(rlim_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_rlim_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_rlim_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_rlim_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_rlim_t" = no + then + + fptools_cv_htype_rlim_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_rlim_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_rlim_t" >&5 +$as_echo "$fptools_cv_htype_rlim_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_RLIM_T $fptools_cv_htype_rlim_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for blksize_t" >&5 +$as_echo_n "checking Haskell type for blksize_t... " >&6; } + if ${fptools_cv_htype_blksize_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_blksize_t=yes + if ac_fn_c_compute_int "$LINENO" "(blksize_t)0.2 - (blksize_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +blksize_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_blksize_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(blksize_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_blksize_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(blksize_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_blksize_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(blksize_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_blksize_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_blksize_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_blksize_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_blksize_t=LDouble + else + fptools_cv_htype_sup_blksize_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((blksize_t)(-1)) < ((blksize_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_blksize_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(blksize_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_blksize_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_blksize_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_blksize_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_blksize_t" = no + then + + fptools_cv_htype_blksize_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_blksize_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_blksize_t" >&5 +$as_echo "$fptools_cv_htype_blksize_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_BLKSIZE_T $fptools_cv_htype_blksize_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for blkcnt_t" >&5 +$as_echo_n "checking Haskell type for blkcnt_t... " >&6; } + if ${fptools_cv_htype_blkcnt_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_blkcnt_t=yes + if ac_fn_c_compute_int "$LINENO" "(blkcnt_t)0.2 - (blkcnt_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +blkcnt_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_blkcnt_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(blkcnt_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_blkcnt_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(blkcnt_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_blkcnt_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(blkcnt_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_blkcnt_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_blkcnt_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_blkcnt_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_blkcnt_t=LDouble + else + fptools_cv_htype_sup_blkcnt_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((blkcnt_t)(-1)) < ((blkcnt_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_blkcnt_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(blkcnt_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_blkcnt_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_blkcnt_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_blkcnt_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_blkcnt_t" = no + then + + fptools_cv_htype_blkcnt_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_blkcnt_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_blkcnt_t" >&5 +$as_echo "$fptools_cv_htype_blkcnt_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_BLKCNT_T $fptools_cv_htype_blkcnt_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for clockid_t" >&5 +$as_echo_n "checking Haskell type for clockid_t... " >&6; } + if ${fptools_cv_htype_clockid_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_clockid_t=yes + if ac_fn_c_compute_int "$LINENO" "(clockid_t)0.2 - (clockid_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +clockid_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_clockid_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(clockid_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_clockid_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(clockid_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_clockid_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(clockid_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_clockid_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_clockid_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_clockid_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_clockid_t=LDouble + else + fptools_cv_htype_sup_clockid_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((clockid_t)(-1)) < ((clockid_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_clockid_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(clockid_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_clockid_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_clockid_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_clockid_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_clockid_t" = no + then + + fptools_cv_htype_clockid_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_clockid_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_clockid_t" >&5 +$as_echo "$fptools_cv_htype_clockid_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_CLOCKID_T $fptools_cv_htype_clockid_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for fsblkcnt_t" >&5 +$as_echo_n "checking Haskell type for fsblkcnt_t... " >&6; } + if ${fptools_cv_htype_fsblkcnt_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_fsblkcnt_t=yes + if ac_fn_c_compute_int "$LINENO" "(fsblkcnt_t)0.2 - (fsblkcnt_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +fsblkcnt_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_fsblkcnt_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(fsblkcnt_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_fsblkcnt_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(fsblkcnt_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_fsblkcnt_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(fsblkcnt_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_fsblkcnt_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_fsblkcnt_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_fsblkcnt_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_fsblkcnt_t=LDouble + else + fptools_cv_htype_sup_fsblkcnt_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((fsblkcnt_t)(-1)) < ((fsblkcnt_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_fsblkcnt_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(fsblkcnt_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_fsblkcnt_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_fsblkcnt_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_fsblkcnt_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_fsblkcnt_t" = no + then + + fptools_cv_htype_fsblkcnt_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_fsblkcnt_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_fsblkcnt_t" >&5 +$as_echo "$fptools_cv_htype_fsblkcnt_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_FSBLKCNT_T $fptools_cv_htype_fsblkcnt_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for fsfilcnt_t" >&5 +$as_echo_n "checking Haskell type for fsfilcnt_t... " >&6; } + if ${fptools_cv_htype_fsfilcnt_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_fsfilcnt_t=yes + if ac_fn_c_compute_int "$LINENO" "(fsfilcnt_t)0.2 - (fsfilcnt_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +fsfilcnt_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_fsfilcnt_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(fsfilcnt_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_fsfilcnt_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(fsfilcnt_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_fsfilcnt_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(fsfilcnt_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_fsfilcnt_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_fsfilcnt_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_fsfilcnt_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_fsfilcnt_t=LDouble + else + fptools_cv_htype_sup_fsfilcnt_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((fsfilcnt_t)(-1)) < ((fsfilcnt_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_fsfilcnt_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(fsfilcnt_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_fsfilcnt_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_fsfilcnt_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_fsfilcnt_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_fsfilcnt_t" = no + then + + fptools_cv_htype_fsfilcnt_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_fsfilcnt_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_fsfilcnt_t" >&5 +$as_echo "$fptools_cv_htype_fsfilcnt_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_FSFILCNT_T $fptools_cv_htype_fsfilcnt_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for id_t" >&5 +$as_echo_n "checking Haskell type for id_t... " >&6; } + if ${fptools_cv_htype_id_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_id_t=yes + if ac_fn_c_compute_int "$LINENO" "(id_t)0.2 - (id_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +id_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_id_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(id_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_id_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(id_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_id_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(id_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_id_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_id_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_id_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_id_t=LDouble + else + fptools_cv_htype_sup_id_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((id_t)(-1)) < ((id_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_id_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(id_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_id_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_id_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_id_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_id_t" = no + then + + fptools_cv_htype_id_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_id_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_id_t" >&5 +$as_echo "$fptools_cv_htype_id_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_ID_T $fptools_cv_htype_id_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for key_t" >&5 +$as_echo_n "checking Haskell type for key_t... " >&6; } + if ${fptools_cv_htype_key_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_key_t=yes + if ac_fn_c_compute_int "$LINENO" "(key_t)0.2 - (key_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +key_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_key_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(key_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_key_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(key_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_key_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(key_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_key_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_key_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_key_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_key_t=LDouble + else + fptools_cv_htype_sup_key_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((key_t)(-1)) < ((key_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_key_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(key_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_key_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_key_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_key_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_key_t" = no + then + + fptools_cv_htype_key_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_key_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_key_t" >&5 +$as_echo "$fptools_cv_htype_key_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_KEY_T $fptools_cv_htype_key_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for timer_t" >&5 +$as_echo_n "checking Haskell type for timer_t... " >&6; } + if ${fptools_cv_htype_timer_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_timer_t=yes + if ac_fn_c_compute_int "$LINENO" "(timer_t)0.2 - (timer_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +timer_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_timer_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(timer_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_timer_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(timer_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_timer_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(timer_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_timer_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_timer_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_timer_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_timer_t=LDouble + else + fptools_cv_htype_sup_timer_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((timer_t)(-1)) < ((timer_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_timer_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(timer_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_timer_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_timer_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_timer_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_timer_t" = no + then + + fptools_cv_htype_timer_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_timer_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_timer_t" >&5 +$as_echo "$fptools_cv_htype_timer_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_TIMER_T $fptools_cv_htype_timer_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for socklen_t" >&5 +$as_echo_n "checking Haskell type for socklen_t... " >&6; } + if ${fptools_cv_htype_socklen_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_socklen_t=yes + if ac_fn_c_compute_int "$LINENO" "(socklen_t)0.2 - (socklen_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +socklen_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_socklen_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(socklen_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_socklen_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(socklen_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_socklen_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(socklen_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_socklen_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_socklen_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_socklen_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_socklen_t=LDouble + else + fptools_cv_htype_sup_socklen_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((socklen_t)(-1)) < ((socklen_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_socklen_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(socklen_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_socklen_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_socklen_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_socklen_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_socklen_t" = no + then + + fptools_cv_htype_socklen_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_socklen_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_socklen_t" >&5 +$as_echo "$fptools_cv_htype_socklen_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_SOCKLEN_T $fptools_cv_htype_socklen_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for nfds_t" >&5 +$as_echo_n "checking Haskell type for nfds_t... " >&6; } + if ${fptools_cv_htype_nfds_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_nfds_t=yes + if ac_fn_c_compute_int "$LINENO" "(nfds_t)0.2 - (nfds_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +nfds_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_nfds_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(nfds_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_nfds_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(nfds_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_nfds_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(nfds_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_nfds_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_nfds_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_nfds_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_nfds_t=LDouble + else + fptools_cv_htype_sup_nfds_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((nfds_t)(-1)) < ((nfds_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_nfds_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(nfds_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_nfds_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_nfds_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_nfds_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_nfds_t" = no + then + + fptools_cv_htype_nfds_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_nfds_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_nfds_t" >&5 +$as_echo "$fptools_cv_htype_nfds_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_NFDS_T $fptools_cv_htype_nfds_t +_ACEOF + + fi + + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for intptr_t" >&5 +$as_echo_n "checking Haskell type for intptr_t... " >&6; } + if ${fptools_cv_htype_intptr_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_intptr_t=yes + if ac_fn_c_compute_int "$LINENO" "(intptr_t)0.2 - (intptr_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +intptr_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_intptr_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(intptr_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_intptr_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(intptr_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_intptr_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(intptr_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_intptr_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_intptr_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_intptr_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_intptr_t=LDouble + else + fptools_cv_htype_sup_intptr_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((intptr_t)(-1)) < ((intptr_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_intptr_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(intptr_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_intptr_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_intptr_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_intptr_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_intptr_t" = no + then + + fptools_cv_htype_intptr_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_intptr_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_intptr_t" >&5 +$as_echo "$fptools_cv_htype_intptr_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_INTPTR_T $fptools_cv_htype_intptr_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for uintptr_t" >&5 +$as_echo_n "checking Haskell type for uintptr_t... " >&6; } + if ${fptools_cv_htype_uintptr_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_uintptr_t=yes + if ac_fn_c_compute_int "$LINENO" "(uintptr_t)0.2 - (uintptr_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +uintptr_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_uintptr_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(uintptr_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_uintptr_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(uintptr_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_uintptr_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(uintptr_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_uintptr_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_uintptr_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_uintptr_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_uintptr_t=LDouble + else + fptools_cv_htype_sup_uintptr_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((uintptr_t)(-1)) < ((uintptr_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_uintptr_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(uintptr_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_uintptr_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_uintptr_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_uintptr_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_uintptr_t" = no + then + + fptools_cv_htype_uintptr_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_uintptr_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_uintptr_t" >&5 +$as_echo "$fptools_cv_htype_uintptr_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_UINTPTR_T $fptools_cv_htype_uintptr_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for intmax_t" >&5 +$as_echo_n "checking Haskell type for intmax_t... " >&6; } + if ${fptools_cv_htype_intmax_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_intmax_t=yes + if ac_fn_c_compute_int "$LINENO" "(intmax_t)0.2 - (intmax_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +intmax_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_intmax_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(intmax_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_intmax_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(intmax_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_intmax_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(intmax_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_intmax_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_intmax_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_intmax_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_intmax_t=LDouble + else + fptools_cv_htype_sup_intmax_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((intmax_t)(-1)) < ((intmax_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_intmax_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(intmax_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_intmax_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_intmax_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_intmax_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_intmax_t" = no + then + + fptools_cv_htype_intmax_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_intmax_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_intmax_t" >&5 +$as_echo "$fptools_cv_htype_intmax_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_INTMAX_T $fptools_cv_htype_intmax_t +_ACEOF + + fi + + + + + + + + + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking Haskell type for uintmax_t" >&5 +$as_echo_n "checking Haskell type for uintmax_t... " >&6; } + if ${fptools_cv_htype_uintmax_t+:} false; then : + $as_echo_n "(cached) " >&6 +else + + fptools_cv_htype_sup_uintmax_t=yes + if ac_fn_c_compute_int "$LINENO" "(uintmax_t)0.2 - (uintmax_t)0.4 < 0 ? 0 : 1" "HTYPE_IS_INTEGRAL" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + HTYPE_IS_INTEGRAL=0 +fi + + + if test "$HTYPE_IS_INTEGRAL" -eq 0 + then + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include + +int +main () +{ +uintmax_t val; *val; + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + HTYPE_IS_POINTER=yes +else + HTYPE_IS_POINTER=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + + if test "$HTYPE_IS_POINTER" = yes + then + fptools_cv_htype_uintmax_t="Ptr ()" + else + if ac_fn_c_compute_int "$LINENO" "sizeof(uintmax_t) == sizeof(float)" "HTYPE_IS_FLOAT" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_uintmax_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(uintmax_t) == sizeof(double)" "HTYPE_IS_DOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_uintmax_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(uintmax_t) == sizeof(long double)" "HTYPE_IS_LDOUBLE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_uintmax_t=no +fi + + if test "$HTYPE_IS_FLOAT" -eq 1 + then + fptools_cv_htype_uintmax_t=Float + elif test "$HTYPE_IS_DOUBLE" -eq 1 + then + fptools_cv_htype_uintmax_t=Double + elif test "$HTYPE_IS_LDOUBLE" -eq 1 + then + fptools_cv_htype_uintmax_t=LDouble + else + fptools_cv_htype_sup_uintmax_t=no + fi + fi + else + if ac_fn_c_compute_int "$LINENO" "((uintmax_t)(-1)) < ((uintmax_t)0)" "HTYPE_IS_SIGNED" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_uintmax_t=no +fi + + if ac_fn_c_compute_int "$LINENO" "sizeof(uintmax_t) * 8" "HTYPE_SIZE" " +#include +#include +#include + +#if HAVE_SYS_TYPES_H +# include +#endif + +#if HAVE_UNISTD_H +# include +#endif + +#if HAVE_SYS_STAT_H +# include +#endif + +#if HAVE_FCNTL_H +# include +#endif + +#if HAVE_SIGNAL_H +# include +#endif + +#if HAVE_TIME_H +# include +#endif + +#if HAVE_TERMIOS_H +# include +#endif + +#if HAVE_STRING_H +# include +#endif + +#if HAVE_CTYPE_H +# include +#endif + +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif + +#if HAVE_SYS_RESOURCE_H +# include +#endif + +#if HAVE_POLL_H +# include +#endif + +#if HAVE_SYS_SOCKET_H +# include +#endif + +#include +"; then : + +else + fptools_cv_htype_sup_uintmax_t=no +fi + + if test "$HTYPE_IS_SIGNED" -eq 0 + then + fptools_cv_htype_uintmax_t="Word$HTYPE_SIZE" + else + fptools_cv_htype_uintmax_t="Int$HTYPE_SIZE" + fi + fi + +fi + + if test "$fptools_cv_htype_sup_uintmax_t" = no + then + + fptools_cv_htype_uintmax_t=NotReallyAType + { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5 +$as_echo "not supported" >&6; } + + fi + + if test "$fptools_cv_htype_sup_uintmax_t" = yes; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $fptools_cv_htype_uintmax_t" >&5 +$as_echo "$fptools_cv_htype_uintmax_t" >&6; } + +cat >>confdefs.h <<_ACEOF +#define HTYPE_UINTMAX_T $fptools_cv_htype_uintmax_t +_ACEOF + + fi + + + +# test errno values +for fp_const_name in E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EADV EAFNOSUPPORT EAGAIN EALREADY EBADF EBADMSG EBADRPC EBUSY ECHILD ECOMM ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDIRTY EDOM EDQUOT EEXIST EFAULT EFBIG EFTYPE EHOSTDOWN EHOSTUNREACH EIDRM EILSEQ EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK EMSGSIZE EMULTIHOP ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS ENODATA ENODEV ENOENT ENOEXEC ENOLCK ENOLINK ENOMEM ENOMSG ENONET ENOPROTOOPT ENOSPC ENOSR ENOSTR ENOSYS ENOTBLK ENOTCONN ENOTDIR ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM EPFNOSUPPORT EPIPE EPROCLIM EPROCUNAVAIL EPROGMISMATCH EPROGUNAVAIL EPROTO EPROTONOSUPPORT EPROTOTYPE ERANGE EREMCHG EREMOTE EROFS ERPCMISMATCH ERREMOTE ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESRMNT ESTALE ETIME ETIMEDOUT ETOOMANYREFS ETXTBSY EUSERS EWOULDBLOCK EXDEV ENOCIGAR ENOTSUP +do +as_fp_Cache=`$as_echo "fp_cv_const_$fp_const_name" | $as_tr_sh` +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking value of $fp_const_name" >&5 +$as_echo_n "checking value of $fp_const_name... " >&6; } +if eval \${$as_fp_Cache+:} false; then : + $as_echo_n "(cached) " >&6 +else + if ac_fn_c_compute_int "$LINENO" "$fp_const_name" "fp_check_const_result" "#include +#include +"; then : + +else + fp_check_const_result='-1' +fi + +eval "$as_fp_Cache=\$fp_check_const_result" +fi +eval ac_res=\$$as_fp_Cache + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } +cat >>confdefs.h <<_ACEOF +#define `$as_echo "CONST_$fp_const_name" | $as_tr_cpp` `eval 'as_val=${'$as_fp_Cache'};$as_echo "$as_val"'` +_ACEOF + +done + + +# we need SIGINT in TopHandler.lhs +for fp_const_name in SIGINT +do +as_fp_Cache=`$as_echo "fp_cv_const_$fp_const_name" | $as_tr_sh` +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking value of $fp_const_name" >&5 +$as_echo_n "checking value of $fp_const_name... " >&6; } +if eval \${$as_fp_Cache+:} false; then : + $as_echo_n "(cached) " >&6 +else + if ac_fn_c_compute_int "$LINENO" "$fp_const_name" "fp_check_const_result" " +#if HAVE_SIGNAL_H +#include +#endif +"; then : + +else + fp_check_const_result='-1' +fi + +eval "$as_fp_Cache=\$fp_check_const_result" +fi +eval ac_res=\$$as_fp_Cache + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } +cat >>confdefs.h <<_ACEOF +#define `$as_echo "CONST_$fp_const_name" | $as_tr_cpp` `eval 'as_val=${'$as_fp_Cache'};$as_echo "$as_val"'` +_ACEOF + +done + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking value of O_BINARY" >&5 +$as_echo_n "checking value of O_BINARY... " >&6; } +if ${fp_cv_const_O_BINARY+:} false; then : + $as_echo_n "(cached) " >&6 +else + if ac_fn_c_compute_int "$LINENO" "O_BINARY" "fp_check_const_result" "#include +"; then : + +else + fp_check_const_result=0 +fi + +fp_cv_const_O_BINARY=$fp_check_const_result +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $fp_cv_const_O_BINARY" >&5 +$as_echo "$fp_cv_const_O_BINARY" >&6; } +cat >>confdefs.h <<_ACEOF +#define CONST_O_BINARY $fp_cv_const_O_BINARY +_ACEOF + + +# We don't use iconv or libcharset on Windows, but if configure finds +# them then it can cause problems. So we don't even try looking if +# we are on Windows. +# See http://www.haskell.org/pipermail/cvs-ghc/2011-September/065980.html +if test "$WINDOWS" = "NO" +then + +# We can't just use AC_SEARCH_LIBS for this, as on OpenBSD the iconv.h +# header needs to be included as iconv_open is #define'd to something +# else. We therefore use our own FP_SEARCH_LIBS_PROTO, which allows us +# to give prototype text. +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing iconv" >&5 +$as_echo_n "checking for library containing iconv... " >&6; } +if ${ac_cv_search_iconv+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_func_search_save_LIBS=$LIBS +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +#include +#include + +int +main () +{ +iconv_t cd; + cd = iconv_open("", ""); + iconv(cd,NULL,NULL,NULL,NULL); + iconv_close(cd); + ; + return 0; +} +_ACEOF +for ac_lib in '' iconv; do + if test -z "$ac_lib"; then + ac_res="none required" + else + ac_res=-l$ac_lib + LIBS="-l$ac_lib $ac_func_search_save_LIBS" + fi + if ac_fn_c_try_link "$LINENO"; then : + ac_cv_search_iconv=$ac_res +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext + if ${ac_cv_search_iconv+:} false; then : + break +fi +done +if ${ac_cv_search_iconv+:} false; then : + +else + ac_cv_search_iconv=no +fi +rm conftest.$ac_ext +LIBS=$ac_func_search_save_LIBS +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_iconv" >&5 +$as_echo "$ac_cv_search_iconv" >&6; } +ac_res=$ac_cv_search_iconv +if test "$ac_res" != no; then : + test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" + EXTRA_LIBS="$EXTRA_LIBS $ac_lib" +else + as_fn_error $? "iconv is required on non-Windows platforms" "$LINENO" 5 +fi + +# If possible, we use libcharset instead of nl_langinfo(CODESET) to +# determine the current locale's character encoding. Allow the user +# to disable this with --without-libcharset if they don't want a +# dependency on libcharset. + +# Check whether --with-libcharset was given. +if test "${with_libcharset+set}" = set; then : + withval=$with_libcharset; +else + with_libcharset=check +fi + + +if test "x$with_libcharset" != xno; then : + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing locale_charset" >&5 +$as_echo_n "checking for library containing locale_charset... " >&6; } +if ${ac_cv_search_locale_charset+:} false; then : + $as_echo_n "(cached) " >&6 +else + ac_func_search_save_LIBS=$LIBS +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +int +main () +{ +const char* charset = locale_charset(); + ; + return 0; +} +_ACEOF +for ac_lib in '' charset; do + if test -z "$ac_lib"; then + ac_res="none required" + else + ac_res=-l$ac_lib + LIBS="-l$ac_lib $ac_func_search_save_LIBS" + fi + if ac_fn_c_try_link "$LINENO"; then : + ac_cv_search_locale_charset=$ac_res +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext + if ${ac_cv_search_locale_charset+:} false; then : + break +fi +done +if ${ac_cv_search_locale_charset+:} false; then : + +else + ac_cv_search_locale_charset=no +fi +rm conftest.$ac_ext +LIBS=$ac_func_search_save_LIBS +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_locale_charset" >&5 +$as_echo "$ac_cv_search_locale_charset" >&6; } +ac_res=$ac_cv_search_locale_charset +if test "$ac_res" != no; then : + test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" + +$as_echo "#define HAVE_LIBCHARSET 1" >>confdefs.h + + EXTRA_LIBS="$EXTRA_LIBS $ac_lib" + +fi +fi + +fi + +ac_fn_c_check_type "$LINENO" "struct MD5Context" "ac_cv_type_struct_MD5Context" "#include \"include/md5.h\" +" +if test "x$ac_cv_type_struct_MD5Context" = xyes; then : + +else + as_fn_error $? "internal error" "$LINENO" 5 +fi + +# The cast to long int works around a bug in the HP C Compiler +# version HP92453-01 B.11.11.23709.GP, which incorrectly rejects +# declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. +# This bug is HP SR number 8606223364. +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking size of struct MD5Context" >&5 +$as_echo_n "checking size of struct MD5Context... " >&6; } +if ${ac_cv_sizeof_struct_MD5Context+:} false; then : + $as_echo_n "(cached) " >&6 +else + if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (struct MD5Context))" "ac_cv_sizeof_struct_MD5Context" "#include \"include/md5.h\" +"; then : + +else + if test "$ac_cv_type_struct_MD5Context" = yes; then + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error 77 "cannot compute sizeof (struct MD5Context) +See \`config.log' for more details" "$LINENO" 5; } + else + ac_cv_sizeof_struct_MD5Context=0 + fi +fi + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_struct_MD5Context" >&5 +$as_echo "$ac_cv_sizeof_struct_MD5Context" >&6; } + + + +cat >>confdefs.h <<_ACEOF +#define SIZEOF_STRUCT_MD5CONTEXT $ac_cv_sizeof_struct_MD5Context +_ACEOF + + + + +ac_config_files="$ac_config_files base.buildinfo" + + +cat >confcache <<\_ACEOF +# This file is a shell script that caches the results of configure +# tests run on this system so they can be shared between configure +# scripts and configure runs, see configure's option --config-cache. +# It is not useful on other systems. If it contains results you don't +# want to keep, you may remove or edit it. +# +# config.status only pays attention to the cache file if you give it +# the --recheck option to rerun configure. +# +# `ac_cv_env_foo' variables (set or unset) will be overridden when +# loading this file, other *unset* `ac_cv_foo' will be assigned the +# following values. + +_ACEOF + +# The following way of writing the cache mishandles newlines in values, +# but we know of no workaround that is simple, portable, and efficient. +# So, we kill variables containing newlines. +# Ultrix sh set writes to stderr and can't be redirected directly, +# and sets the high bit in the cache file unless we assign to the vars. +( + for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do + eval ac_val=\$$ac_var + case $ac_val in #( + *${as_nl}*) + case $ac_var in #( + *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 +$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; + esac + case $ac_var in #( + _ | IFS | as_nl) ;; #( + BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( + *) { eval $ac_var=; unset $ac_var;} ;; + esac ;; + esac + done + + (set) 2>&1 | + case $as_nl`(ac_space=' '; set) 2>&1` in #( + *${as_nl}ac_space=\ *) + # `set' does not quote correctly, so add quotes: double-quote + # substitution turns \\\\ into \\, and sed turns \\ into \. + sed -n \ + "s/'/'\\\\''/g; + s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" + ;; #( + *) + # `set' quotes correctly as required by POSIX, so do not add quotes. + sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" + ;; + esac | + sort +) | + sed ' + /^ac_cv_env_/b end + t clear + :clear + s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ + t end + s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ + :end' >>confcache +if diff "$cache_file" confcache >/dev/null 2>&1; then :; else + if test -w "$cache_file"; then + if test "x$cache_file" != "x/dev/null"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 +$as_echo "$as_me: updating cache $cache_file" >&6;} + if test ! -f "$cache_file" || test -h "$cache_file"; then + cat confcache >"$cache_file" + else + case $cache_file in #( + */* | ?:*) + mv -f confcache "$cache_file"$$ && + mv -f "$cache_file"$$ "$cache_file" ;; #( + *) + mv -f confcache "$cache_file" ;; + esac + fi + fi + else + { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 +$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;} + fi +fi +rm -f confcache + +test "x$prefix" = xNONE && prefix=$ac_default_prefix +# Let make expand exec_prefix. +test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' + +DEFS=-DHAVE_CONFIG_H + +ac_libobjs= +ac_ltlibobjs= +U= +for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue + # 1. Remove the extension, and $U if already installed. + ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' + ac_i=`$as_echo "$ac_i" | sed "$ac_script"` + # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR + # will be set to the directory where LIBOBJS objects are built. + as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" + as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' +done +LIBOBJS=$ac_libobjs + +LTLIBOBJS=$ac_ltlibobjs + + + +: "${CONFIG_STATUS=./config.status}" +ac_write_fail=0 +ac_clean_files_save=$ac_clean_files +ac_clean_files="$ac_clean_files $CONFIG_STATUS" +{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 +$as_echo "$as_me: creating $CONFIG_STATUS" >&6;} +as_write_fail=0 +cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 +#! $SHELL +# Generated by $as_me. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=\${CONFIG_SHELL-$SHELL} +export SHELL +_ASEOF +cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +_ASEOF +test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by Haskell base package $as_me 1.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +_ACEOF + +case $ac_config_files in *" +"*) set x $ac_config_files; shift; ac_config_files=$*;; +esac + +case $ac_config_headers in *" +"*) set x $ac_config_headers; shift; ac_config_headers=$*;; +esac + + +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +# Files that config.status was made for. +config_files="$ac_config_files" +config_headers="$ac_config_headers" + +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Report bugs to ." + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" +ac_cs_version="\\ +Haskell base package config.status 1.0 +configured by $0, generated by GNU Autoconf 2.69, + with options \\"\$ac_cs_config\\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='$ac_pwd' +srcdir='$srcdir' +test -n "\$AWK" || AWK=awk +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +if \$ac_cs_recheck; then + set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion + shift + \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6 + CONFIG_SHELL='$SHELL' + export CONFIG_SHELL + exec "\$@" +fi + +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "include/HsBaseConfig.h") CONFIG_HEADERS="$CONFIG_HEADERS include/HsBaseConfig.h" ;; + "include/EventConfig.h") CONFIG_HEADERS="$CONFIG_HEADERS include/EventConfig.h" ;; + "base.buildinfo") CONFIG_FILES="$CONFIG_FILES base.buildinfo" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +_ACEOF + + +{ + echo "cat >conf$$subs.awk <<_ACEOF" && + echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' && + echo "_ACEOF" +} >conf$$subs.sh || + as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 +ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'` +ac_delim='%!_!# ' +for ac_last_try in false false false false false :; do + . ./conf$$subs.sh || + as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 + + ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X` + if test $ac_delim_n = $ac_delim_num; then + break + elif $ac_last_try; then + as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 + else + ac_delim="$ac_delim!$ac_delim _$ac_delim!! " + fi +done +rm -f conf$$subs.sh + +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK && +_ACEOF +sed -n ' +h +s/^/S["/; s/!.*/"]=/ +p +g +s/^[^!]*!// +:repl +t repl +s/'"$ac_delim"'$// +t delim +:nl +h +s/\(.\{148\}\)..*/\1/ +t more1 +s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ +p +n +b repl +:more1 +s/["\\]/\\&/g; s/^/"/; s/$/"\\/ +p +g +s/.\{148\}// +t nl +:delim +h +s/\(.\{148\}\)..*/\1/ +t more2 +s/["\\]/\\&/g; s/^/"/; s/$/"/ +p +b +:more2 +s/["\\]/\\&/g; s/^/"/; s/$/"\\/ +p +g +s/.\{148\}// +t delim +' >$CONFIG_STATUS || ac_write_fail=1 +rm -f conf$$subs.awk +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +_ACAWK +cat >>"\$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +_ACEOF + +# VPATH may cause trouble with some makes, so we remove sole $(srcdir), +# ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and +# trailing colons and then remove the whole line if VPATH becomes empty +# (actually we leave an empty line to preserve line numbers). +if test "x$srcdir" = x.; then + ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{ +h +s/// +s/^/:/ +s/[ ]*$/:/ +s/:\$(srcdir):/:/g +s/:\${srcdir}:/:/g +s/:@srcdir@:/:/g +s/^:*// +s/:*$// +x +s/\(=[ ]*\).*/\1/ +G +s/\n// +s/^[^=]*=[ ]*$// +}' +fi + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +_ACEOF + +# Transform confdefs.h into an awk script `defines.awk', embedded as +# here-document in config.status, that substitutes the proper values into +# config.h.in to produce config.h. + +# Create a delimiter string that does not exist in confdefs.h, to ease +# handling of long lines. +ac_delim='%!_!# ' +for ac_last_try in false false :; do + ac_tt=`sed -n "/$ac_delim/p" confdefs.h` + if test -z "$ac_tt"; then + break + elif $ac_last_try; then + as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5 + else + ac_delim="$ac_delim!$ac_delim _$ac_delim!! " + fi +done + +# For the awk script, D is an array of macro values keyed by name, +# likewise P contains macro parameters if any. Preserve backslash +# newline sequences. + +ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]* +sed -n ' +s/.\{148\}/&'"$ac_delim"'/g +t rset +:rset +s/^[ ]*#[ ]*define[ ][ ]*/ / +t def +d +:def +s/\\$// +t bsnl +s/["\\]/\\&/g +s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ +D["\1"]=" \3"/p +s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p +d +:bsnl +s/["\\]/\\&/g +s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ +D["\1"]=" \3\\\\\\n"\\/p +t cont +s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p +t cont +d +:cont +n +s/.\{148\}/&'"$ac_delim"'/g +t clear +:clear +s/\\$// +t bsnlc +s/["\\]/\\&/g; s/^/"/; s/$/"/p +d +:bsnlc +s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p +b cont +' >$CONFIG_STATUS || ac_write_fail=1 + +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ { + line = \$ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS " +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 + ac_datarootdir_hack=' + s&@datadir@&$datadir&g + s&@docdir@&$docdir&g + s&@infodir@&$infodir&g + s&@localedir@&$localedir&g + s&@mandir@&$mandir&g + s&\\\${datarootdir}&$datarootdir&g' ;; +esac +_ACEOF + +# Neutralize VPATH when `$srcdir' = `.'. +# Shell code in configure.ac might set extrasub. +# FIXME: do we really want to maintain this feature? +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +ac_sed_extra="$ac_vpsub +$extrasub +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi + ;; + + + esac + +done # for ac_tag + + +as_fn_exit 0 +_ACEOF +ac_clean_files=$ac_clean_files_save + +test $ac_write_fail = 0 || + as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5 + + +# configure is writing to config.log, and then calls config.status. +# config.status does its own redirection, appending to config.log. +# Unfortunately, on DOS this fails, as config.log is still kept open +# by configure, so config.status won't be able to write to it; its +# output is simply discarded. So we exec the FD to /dev/null, +# effectively closing config.log, so it can be properly (re)opened and +# appended to by config.status. When coming back to configure, we +# need to make the FD available again. +if test "$no_create" != yes; then + ac_cs_success=: + ac_config_status_args= + test "$silent" = yes && + ac_config_status_args="$ac_config_status_args --quiet" + exec 5>/dev/null + $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false + exec 5>>config.log + # Use ||, not &&, to avoid exiting from the if with $? = 1, which + # would make configure fail if this is the last instruction. + $ac_cs_success || as_fn_exit 1 +fi +if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 +$as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} +fi diff --git a/configure.ac b/configure.ac --- a/configure.ac +++ b/configure.ac @@ -40,9 +40,13 @@ AC_CHECK_FUNCS([getclock getrusage times]) AC_CHECK_FUNCS([_chsize ftruncate]) -AC_CHECK_FUNCS([epoll_ctl eventfd kevent kevent64 kqueue poll]) - # event-related fun +# The line below already defines HAVE_KQUEUE and HAVE_POLL, so technically some of the +# subsequent portions that redefine them could be skipped. However, we keep those portions +# to keep kqueue/poll in line with HAVE_EPOLL and possible other additions in the future. You +# should be aware of this peculiarity if you try to simulate not having kqueue or poll by +# moving away header files (see also https://gitlab.haskell.org/ghc/ghc/-/issues/9283) +AC_CHECK_FUNCS([epoll_ctl eventfd kevent kevent64 kqueue poll]) if test "$ac_cv_header_sys_epoll_h" = yes && test "$ac_cv_func_epoll_ctl" = yes; then AC_DEFINE([HAVE_EPOLL], [1], [Define if you have epoll support.]) diff --git a/include/CTypes.h b/include/CTypes.h --- a/include/CTypes.h +++ b/include/CTypes.h @@ -21,28 +21,22 @@ #define OPAQUE_CLASSES Eq,Ord,Storable #define ARITHMETIC_TYPE(T,B) \ -newtype T = T B deriving (ARITHMETIC_CLASSES) \ - deriving newtype (Read, Show); +newtype T = T B deriving newtype (Read, Show, ARITHMETIC_CLASSES); #define INTEGRAL_TYPE(T,B) \ -newtype T = T B deriving (ARITHMETIC_CLASSES, INTEGRAL_CLASSES) \ - deriving newtype (Read, Show); +newtype T = T B deriving newtype (Read, Show, ARITHMETIC_CLASSES, INTEGRAL_CLASSES); #define INTEGRAL_TYPE_WITH_CTYPE(T,THE_CTYPE,B) \ newtype {-# CTYPE "THE_CTYPE" #-} T = T B \ - deriving (ARITHMETIC_CLASSES, INTEGRAL_CLASSES) \ - deriving newtype (Read, Show); + deriving newtype (Read, Show, ARITHMETIC_CLASSES, INTEGRAL_CLASSES); #define FLOATING_TYPE(T,B) \ -newtype T = T B deriving (ARITHMETIC_CLASSES, FLOATING_CLASSES) \ - deriving newtype (Read, Show); +newtype T = T B deriving newtype (Read, Show, ARITHMETIC_CLASSES, FLOATING_CLASSES); #define FLOATING_TYPE_WITH_CTYPE(T,THE_CTYPE,B) \ newtype {-# CTYPE "THE_CTYPE" #-} T = T B \ - deriving (ARITHMETIC_CLASSES, FLOATING_CLASSES) \ - deriving newtype (Read, Show); + deriving newtype (Read, Show, ARITHMETIC_CLASSES, FLOATING_CLASSES); #define OPAQUE_TYPE_WITH_CTYPE(T,THE_CTYPE,B) \ newtype {-# CTYPE "THE_CTYPE" #-} T = T (B) \ - deriving (OPAQUE_CLASSES) \ - deriving newtype Show; + deriving newtype (Show, OPAQUE_CLASSES); diff --git a/include/HsBaseConfig.h.in b/include/HsBaseConfig.h.in --- a/include/HsBaseConfig.h.in +++ b/include/HsBaseConfig.h.in @@ -372,8 +372,8 @@ /* Define to 1 if you have the `lstat' function. */ #undef HAVE_LSTAT -/* Define to 1 if you have the header file. */ -#undef HAVE_MINIX_CONFIG_H +/* Define to 1 if you have the header file. */ +#undef HAVE_MEMORY_H /* Define if you have open file descriptor lock support. */ #undef HAVE_OFD_LOCKING @@ -390,9 +390,6 @@ /* Define to 1 if you have the header file. */ #undef HAVE_STDINT_H -/* Define to 1 if you have the header file. */ -#undef HAVE_STDIO_H - /* Define to 1 if you have the header file. */ #undef HAVE_STDLIB_H @@ -468,9 +465,6 @@ /* Define to 1 if you have the header file. */ #undef HAVE_UTIME_H -/* Define to 1 if you have the header file. */ -#undef HAVE_WCHAR_H - /* Define to 1 if you have the header file. */ #undef HAVE_WCTYPE_H @@ -657,9 +651,7 @@ /* The size of `struct MD5Context', as computed by sizeof. */ #undef SIZEOF_STRUCT_MD5CONTEXT -/* Define to 1 if all of the C90 standard headers exist (not just the ones - required in a freestanding environment). This macro is provided for - backward compatibility; new code need not use it. */ +/* Define to 1 if you have the ANSI C header files. */ #undef STDC_HEADERS /* Define if stdlib.h declares unsetenv to return void. */ @@ -669,92 +661,41 @@ #ifndef _ALL_SOURCE # undef _ALL_SOURCE #endif -/* Enable general extensions on macOS. */ -#ifndef _DARWIN_C_SOURCE -# undef _DARWIN_C_SOURCE -#endif -/* Enable general extensions on Solaris. */ -#ifndef __EXTENSIONS__ -# undef __EXTENSIONS__ -#endif /* Enable GNU extensions on systems that have them. */ #ifndef _GNU_SOURCE # undef _GNU_SOURCE #endif -/* Enable X/Open compliant socket functions that do not require linking - with -lxnet on HP-UX 11.11. */ -#ifndef _HPUX_ALT_XOPEN_SOCKET_API -# undef _HPUX_ALT_XOPEN_SOCKET_API -#endif -/* Identify the host operating system as Minix. - This macro does not affect the system headers' behavior. - A future release of Autoconf may stop defining this macro. */ -#ifndef _MINIX -# undef _MINIX -#endif -/* Enable general extensions on NetBSD. - Enable NetBSD compatibility extensions on Minix. */ -#ifndef _NETBSD_SOURCE -# undef _NETBSD_SOURCE -#endif -/* Enable OpenBSD compatibility extensions on NetBSD. - Oddly enough, this does nothing on OpenBSD. */ -#ifndef _OPENBSD_SOURCE -# undef _OPENBSD_SOURCE -#endif -/* Define to 1 if needed for POSIX-compatible behavior. */ -#ifndef _POSIX_SOURCE -# undef _POSIX_SOURCE -#endif -/* Define to 2 if needed for POSIX-compatible behavior. */ -#ifndef _POSIX_1_SOURCE -# undef _POSIX_1_SOURCE -#endif -/* Enable POSIX-compatible threading on Solaris. */ +/* Enable threading extensions on Solaris. */ #ifndef _POSIX_PTHREAD_SEMANTICS # undef _POSIX_PTHREAD_SEMANTICS #endif -/* Enable extensions specified by ISO/IEC TS 18661-5:2014. */ -#ifndef __STDC_WANT_IEC_60559_ATTRIBS_EXT__ -# undef __STDC_WANT_IEC_60559_ATTRIBS_EXT__ -#endif -/* Enable extensions specified by ISO/IEC TS 18661-1:2014. */ -#ifndef __STDC_WANT_IEC_60559_BFP_EXT__ -# undef __STDC_WANT_IEC_60559_BFP_EXT__ -#endif -/* Enable extensions specified by ISO/IEC TS 18661-2:2015. */ -#ifndef __STDC_WANT_IEC_60559_DFP_EXT__ -# undef __STDC_WANT_IEC_60559_DFP_EXT__ -#endif -/* Enable extensions specified by ISO/IEC TS 18661-4:2015. */ -#ifndef __STDC_WANT_IEC_60559_FUNCS_EXT__ -# undef __STDC_WANT_IEC_60559_FUNCS_EXT__ -#endif -/* Enable extensions specified by ISO/IEC TS 18661-3:2015. */ -#ifndef __STDC_WANT_IEC_60559_TYPES_EXT__ -# undef __STDC_WANT_IEC_60559_TYPES_EXT__ -#endif -/* Enable extensions specified by ISO/IEC TR 24731-2:2010. */ -#ifndef __STDC_WANT_LIB_EXT2__ -# undef __STDC_WANT_LIB_EXT2__ -#endif -/* Enable extensions specified by ISO/IEC 24747:2009. */ -#ifndef __STDC_WANT_MATH_SPEC_FUNCS__ -# undef __STDC_WANT_MATH_SPEC_FUNCS__ -#endif /* Enable extensions on HP NonStop. */ #ifndef _TANDEM_SOURCE # undef _TANDEM_SOURCE #endif -/* Enable X/Open extensions. Define to 500 only if necessary - to make mbstate_t available. */ -#ifndef _XOPEN_SOURCE -# undef _XOPEN_SOURCE +/* Enable general extensions on Solaris. */ +#ifndef __EXTENSIONS__ +# undef __EXTENSIONS__ #endif +/* Enable large inode numbers on Mac OS X 10.5. */ +#ifndef _DARWIN_USE_64_BIT_INODE +# define _DARWIN_USE_64_BIT_INODE 1 +#endif + /* Number of bits in a file offset, on hosts where this is settable. */ #undef _FILE_OFFSET_BITS /* Define for large files, on AIX-style hosts. */ #undef _LARGE_FILES + +/* Define to 1 if on MINIX. */ +#undef _MINIX + +/* Define to 2 if the system does not provide POSIX.1 features except with + this defined. */ +#undef _POSIX_1_SOURCE + +/* Define to 1 if you need to in order for `stat' and other things to work. */ +#undef _POSIX_SOURCE diff --git a/include/fs.h b/include/fs.h --- a/include/fs.h +++ b/include/fs.h @@ -25,6 +25,12 @@ #if defined(_WIN32) #include +// N.B. defines some macro rewrites to, e.g., turn _wstat into +// _wstat64i32. We must include it here to ensure tat this rewrite applies to +// both the definition and use sites. +#include +#include + wchar_t* FS(create_device_name) (const wchar_t*); int FS(translate_mode) (const wchar_t*); int FS(swopen) (const wchar_t* filename, int oflag,