1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
|
/* -----------------------------------------------------------------------------
*
* (c) The University of Glasgow 2002
*
* Definitions for package `unix' which are visible in Haskell land.
*
* ---------------------------------------------------------------------------*/
#include "HsUnix.h"
int __hsunix_wifexited (int stat) { return WIFEXITED(stat); }
int __hsunix_wexitstatus (int stat) { return WEXITSTATUS(stat); }
int __hsunix_wifsignaled (int stat) { return WIFSIGNALED(stat); }
int __hsunix_wtermsig (int stat) { return WTERMSIG(stat); }
int __hsunix_wifstopped (int stat) { return WIFSTOPPED(stat); }
int __hsunix_wstopsig (int stat) { return WSTOPSIG(stat); }
// not part of POSIX, hence may not be always defined
#ifndef WCOREDUMP
# define WCOREDUMP(s) 0
#endif
int __hsunix_wcoredump (int stat) { return WCOREDUMP(stat); }
#ifdef HAVE_RTLDNEXT
void *__hsunix_rtldNext (void) {return RTLD_NEXT;}
#endif
#ifdef HAVE_RTLDDEFAULT
void *__hsunix_rtldDefault (void) {return RTLD_DEFAULT;}
#endif
// lstat is a macro on some platforms, so we need a wrapper:
int __hsunix_lstat(const char *path, struct stat *buf)
{
return lstat(path,buf);
}
// mknod is a macro on some platforms, so we need a wrapper:
int __hsunix_mknod(const char *pathname, mode_t mode, dev_t dev)
{
return mknod(pathname,mode,dev);
}
#ifdef HAVE_GETPWENT
// getpwent is a macro on some platforms, so we need a wrapper:
struct passwd *__hsunix_getpwent(void)
{
return getpwent();
}
#endif
#if HAVE_GETPWNAM_R
// getpwnam_r is a macro on some platforms, so we need a wrapper:
int __hsunix_getpwnam_r(const char *name, struct passwd *pw, char *buffer,
size_t buflen, struct passwd **result)
{
return getpwnam_r(name, pw, buffer, buflen, result);
}
#endif
#ifdef HAVE_GETPWUID_R
// getpwuid_r is a macro on some platforms, so we need a wrapper:
int __hsunix_getpwuid_r(uid_t uid, struct passwd *pw, char *buffer,
size_t buflen, struct passwd **result)
{
return getpwuid_r(uid, pw, buffer, buflen, result);
}
#endif
#ifdef HAVE_NANOSLEEP
// nanosleep is a macro on some platforms, so we need a wrapper:
int __hsunix_nanosleep(const struct timespec *rqtp, struct timespec *rmtp)
{
return nanosleep(rqtp, rmtp);
}
#endif
// opendir is a macro on some platforms, so we need a wrapper:
DIR *__hsunix_opendir(const char *filename)
{
return opendir(filename);
}
// time is a macro on some platforms, so we need a wrapper:
time_t __hsunix_time(time_t *tloc)
{
return time(tloc);
}
// times is a macro on some platforms, so we need a wrapper:
clock_t __hsunix_times(struct tms *tp)
{
return times(tp);
}
#ifdef HAVE_PTSNAME
// I cannot figure out how to make the definitions of the following
// functions visible in <stdlib.h> on Linux. But these definitions
// follow the POSIX specs, and everything links and runs.
char *__hsunix_ptsname(int fd)
{
extern char *ptsname(int);
return ptsname(fd);
}
int __hsunix_grantpt(int fd)
{
extern int grantpt(int);
return grantpt(fd);
}
int __hsunix_unlockpt(int fd)
{
extern int unlockpt(int);
return unlockpt(fd);
}
#endif
// push a SVR4 STREAMS module; do nothing if STREAMS not available
int __hsunix_push_module(int fd, const char *module)
{
#if defined(I_PUSH) && !defined(__CYGWIN__) && !defined(HAVE_DEV_PTC)
return ioctl(fd, I_PUSH, module);
#else
return 0;
#endif
}
#if !defined(__MINGW32__)
int __hscore_mkstemp(char *filetemplate) {
return (mkstemp(filetemplate));
}
#endif
#if HAVE_MKSTEMPS
int __hscore_mkstemps(char *filetemplate, int suffixlen) {
return (mkstemps(filetemplate, suffixlen));
}
#endif
#if HAVE_MKDTEMP
char *__hscore_mkdtemp(char *filetemplate) {
return (mkdtemp(filetemplate));
}
#endif
#if !defined(__MINGW32__) && !defined(irix_HOST_OS)
int __hscore_getrlimit(int resource, struct rlimit *rlim) {
return (getrlimit(resource, rlim));
}
int __hscore_setrlimit(int resource, struct rlimit *rlim) {
return (setrlimit(resource, rlim));
}
#endif
#ifdef HAVE_UNSETENV
int __hsunix_unsetenv(const char *name)
{
#ifdef UNSETENV_RETURNS_VOID
unsetenv(name);
return 0;
#else
return unsetenv(name);
#endif
}
#endif
/* A size that will contain many path names, but not necessarily all
* (PATH_MAX is not defined on systems with unlimited path length,
* e.g. the Hurd).
*/
HsInt __hsunix_long_path_size(void) {
#ifdef PATH_MAX
return PATH_MAX;
#else
return 4096;
#endif
}
|
