Some some
This commit is contained in:
120
unix/include/HsUnix.h
Normal file
120
unix/include/HsUnix.h
Normal file
@@ -0,0 +1,120 @@
|
||||
/* -----------------------------------------------------------------------------
|
||||
*
|
||||
* (c) The University of Glasgow 2002
|
||||
*
|
||||
* Definitions for package `unix' which are visible in Haskell land.
|
||||
*
|
||||
* ---------------------------------------------------------------------------*/
|
||||
|
||||
#ifndef HSUNIX_H
|
||||
#define HSUNIX_H
|
||||
|
||||
#include "HsUnixConfig.h"
|
||||
#include "HsFFI.h"
|
||||
|
||||
/* ultra-evil... */
|
||||
#undef PACKAGE_BUGREPORT
|
||||
#undef PACKAGE_NAME
|
||||
#undef PACKAGE_STRING
|
||||
#undef PACKAGE_TARNAME
|
||||
#undef PACKAGE_VERSION
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <stdio.h>
|
||||
|
||||
#ifdef HAVE_STRING_H
|
||||
#include <string.h>
|
||||
#endif
|
||||
#ifdef HAVE_SYS_TIMES_H
|
||||
#include <sys/times.h>
|
||||
#endif
|
||||
#ifdef HAVE_SYS_TIME_H
|
||||
#include <sys/time.h>
|
||||
#endif
|
||||
#ifdef HAVE_SYS_RESOURCE_H
|
||||
#include <sys/resource.h>
|
||||
#endif
|
||||
#ifdef HAVE_SYS_WAIT_H
|
||||
#include <sys/wait.h>
|
||||
#endif
|
||||
#ifdef HAVE_SYS_STAT_H
|
||||
#include <sys/stat.h>
|
||||
#endif
|
||||
#ifdef HAVE_TIME_H
|
||||
#include <time.h>
|
||||
#endif
|
||||
#ifdef HAVE_UNISTD_H
|
||||
#include <unistd.h>
|
||||
#endif
|
||||
#ifdef HAVE_UTIME_H
|
||||
#include <utime.h>
|
||||
#endif
|
||||
#ifdef HAVE_FCNTL_H
|
||||
#include <fcntl.h>
|
||||
#endif
|
||||
#ifdef HAVE_LIMITS_H
|
||||
#include <limits.h>
|
||||
#endif
|
||||
#ifdef HAVE_TERMIOS_H
|
||||
#include <termios.h>
|
||||
#endif
|
||||
#ifdef HAVE_SYS_UTSNAME_H
|
||||
#include <sys/utsname.h>
|
||||
#endif
|
||||
#ifdef HAVE_PWD_H
|
||||
#include <pwd.h>
|
||||
#endif
|
||||
#ifdef HAVE_GRP_H
|
||||
#include <grp.h>
|
||||
#endif
|
||||
#ifdef HAVE_DIRENT_H
|
||||
#include <dirent.h>
|
||||
#endif
|
||||
|
||||
#if defined(HAVE_BSD_LIBUTIL_H)
|
||||
#include <bsd/libutil.h>
|
||||
#elif defined(HAVE_LIBUTIL_H)
|
||||
#include <libutil.h>
|
||||
#endif
|
||||
#ifdef HAVE_PTY_H
|
||||
#include <pty.h>
|
||||
#endif
|
||||
#ifdef HAVE_UTMP_H
|
||||
#include <utmp.h>
|
||||
#endif
|
||||
|
||||
#include <dlfcn.h>
|
||||
|
||||
#ifdef HAVE_SIGNAL_H
|
||||
#include <signal.h>
|
||||
#endif
|
||||
|
||||
/* defined in rts/posix/Signals.c */
|
||||
extern HsInt nocldstop;
|
||||
|
||||
/* defined in libc */
|
||||
extern char **environ;
|
||||
|
||||
#ifdef HAVE_RTLDNEXT
|
||||
void *__hsunix_rtldNext (void);
|
||||
#endif
|
||||
|
||||
#ifdef HAVE_RTLDDEFAULT
|
||||
void *__hsunix_rtldDefault (void);
|
||||
#endif
|
||||
|
||||
/* O_SYNC doesn't exist on Mac OS X and (at least some versions of) FreeBSD,
|
||||
fall back to O_FSYNC, which should be the same */
|
||||
#ifndef O_SYNC
|
||||
# define O_SYNC O_FSYNC
|
||||
#endif
|
||||
|
||||
// not part of POSIX, hence may not be always defined
|
||||
#ifndef WCOREDUMP
|
||||
# define WCOREDUMP(s) 0
|
||||
#endif
|
||||
|
||||
// push a SVR4 STREAMS module; do nothing if STREAMS not available
|
||||
int __hsunix_push_module(int fd, const char *module);
|
||||
|
||||
#endif
|
||||
13
unix/include/execvpe.h
Normal file
13
unix/include/execvpe.h
Normal file
@@ -0,0 +1,13 @@
|
||||
/* ----------------------------------------------------------------------------
|
||||
(c) The University of Glasgow 2004
|
||||
|
||||
Interface for code in cbits/execvpe.c
|
||||
------------------------------------------------------------------------- */
|
||||
|
||||
#ifndef HSUNIX_EXECVPE_H
|
||||
#define HSUNIX_EXECVPE_H
|
||||
|
||||
extern int
|
||||
__hsunix_execvpe(const char *name, char *const argv[], char *const envp[]);
|
||||
|
||||
#endif
|
||||
Reference in New Issue
Block a user