1 /* -----------------------------------------------------------------------------
2 * $Id: HsStd.h,v 1.4 2001/08/17 11:06:58 simonmar Exp $
4 * Definitions for package `std' which are visible in Haskell land.
6 * ---------------------------------------------------------------------------*/
13 #ifdef HAVE_SYS_TYPES_H
14 #include <sys/types.h>
19 #ifdef HAVE_SYS_STAT_H
37 #if defined(HAVE_GETTIMEOFDAY)
38 # ifdef HAVE_SYS_TIME_H
39 # include <sys/time.h>
41 #elif defined(HAVE_GETCLOCK)
42 # ifdef HAVE_SYS_TIMERS_H
44 # include <sys/timers.h>
47 #if defined(HAVE_TIME_H)
50 #ifdef HAVE_SYS_TIMEB_H
51 #include <sys/timeb.h>
56 #ifdef HAVE_SYS_TIMES_H
57 #include <sys/times.h>
60 #if !defined(mingw32_TARGET_OS) && !defined(irix_TARGET_OS)
61 # if defined(HAVE_SYS_RESOURCE_H)
62 # include <sys/resource.h>
67 #include <sys/syscall.h>
68 #define getrusage(a, b) syscall(SYS_GETRUSAGE, a, b)
69 #define HAVE_GETRUSAGE
73 #ifdef HAVE_SYS_WAIT_H
88 HsInt systemCmd(HsAddr cmd);
91 int inputReady(int fd, int msecs);
94 HsAddr get_prog_argv(void);
95 HsInt get_prog_argc();