[project @ 2002-08-30 14:54:58 by simonpj]
[ghc-base.git] / include / HsBase.h
index f15fc83..0dbc776 100644 (file)
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: HsBase.h,v 1.7 2002/04/02 15:33:34 sof Exp $
+ * $Id: HsBase.h,v 1.12 2002/08/30 14:54:58 simonpj Exp $
  *
  * (c) The University of Glasgow 2001-2002
  *
@@ -15,6 +15,7 @@
 
 #include <stdio.h>
 #include <stdlib.h>
+#include <math.h>
 
 #ifdef HAVE_SYS_TYPES_H
 #include <sys/types.h>
@@ -110,6 +111,9 @@ int *ghcErrno(void);
 /* in system.c */
 HsInt systemCmd(HsAddr cmd);
 
+/* in rawSystem.c */
+HsInt rawSystemCmd(HsAddr cmd);
+
 /* in inputReady.c */
 int inputReady(int fd, int msecs, int isSock);
 
@@ -581,5 +585,7 @@ __hscore_f_setfl( void )
 #endif
 }
 
+INLINE int __hscore_hs_fileno (FILE *f) { return fileno (f); }
+
 #endif