* Changed some '#include "ghcconfig.h"' to '#include "HsBaseConfig.h"' (or added
the latter), tracking the recent autoconf-related changes.
* Continued my crusade against CVS keywords.
* Made CTypes.h self-contained.
* Protected headers against multiple inclusions.
-- calculated for us
--
#ifndef __NHC__
-#include "ghcconfig.h"
+#include "HsBaseConfig.h"
#endif
-- system dependent imports
import Foreign.Ptr
#endif
-#include "Typeable.h"
+#include "HsBaseConfig.h"
#include "CTypes.h"
-- | Haskell type representing the C @char@ type.
import Control.Monad ( liftM )
#include "MachDeps.h"
-#include "ghcconfig.h"
+#include "HsBaseConfig.h"
#ifdef __GLASGOW_HASKELL__
import GHC.Storable
module System.Posix.Internals where
#include "ghcconfig.h"
+#include "HsBaseConfig.h"
import Control.Monad
import System.Posix.Types
--
-----------------------------------------------------------------------------
-#include "ghcconfig.h"
+#include "HsBaseConfig.h"
module System.Posix.Types (
import Control.Monad
#endif
-#include "Typeable.h"
#include "CTypes.h"
#if defined(HTYPE_DEV_T)
/* -----------------------------------------------------------------------------
- * $Id: CTypes.h,v 1.8 2004/06/13 21:03:47 panne Exp $
- *
* Dirty CPP hackery for CTypes/CTypesISO
*
* (c) The FFI task force, 2000
* -------------------------------------------------------------------------- */
-#include "MachDeps.h"
+#ifndef CTYPES__H
+#define CTYPES__H
+
+#include "Typeable.h"
/* As long as there is no automatic derivation of classes for newtypes we resort
to extremely dirty cpp-hackery. :-P Some care has to be taken when the
showList = unsafeCoerce# (showList :: [B] -> ShowS); }
#endif /* __GLASGOW_HASKELL__ */
+
+#endif
* instance (Typeable a1, ..., Typeable an) => Typeable (tc a1 ... an)
* -------------------------------------------------------------------------- */
+#ifndef TYPEABLE_H
+#define TYPEABLE_H
+
#define INSTANCE_TYPEABLE0(tycon,tcname,str) \
tcname = mkTyCon str; \
instance Typeable tycon where { typeOf _ = mkTyConApp tcname [] }
typeOf = typeOfDefault }
#endif /* !__GLASGOW_HASKELL__ */
+
+#endif