+INLINE int __hsposix_SIG_UNBLOCK() { return SIG_UNBLOCK; }
+INLINE int __hsposix_SIG_SETMASK() { return SIG_SETMASK; }
+
+#endif /* mingw32_HOST_OS */
+
+INLINE int __hscore_open(char *file, int how, mode_t mode) {
+#ifdef mingw32_HOST_OS
+ if ((how & O_WRONLY) || (how & O_RDWR) || (how & O_APPEND))
+ return _sopen(file,how,_SH_DENYRW,mode);
+ else
+ return _sopen(file,how,_SH_DENYWR,mode);
+#else
+ return open(file,how,mode);
+#endif
+}
+
+// These are wrapped because on some OSs (eg. Linux) they are
+// macros which redirect to the 64-bit-off_t versions when large file
+// support is enabled.
+//
+INLINE off_t __hscore_lseek(int fd, off_t off, int whence) {
+ return (lseek(fd,off,whence));
+}
+
+INLINE int __hscore_stat(char *file, struct stat *buf) {
+ return (stat(file,buf));
+}
+
+INLINE int __hscore_fstat(int fd, struct stat *buf) {
+ return (fstat(fd,buf));
+}
+
+// select-related stuff
+
+#if !defined(mingw32_HOST_OS)
+INLINE void hsFD_CLR(int fd, fd_set *fds) { FD_CLR(fd, fds); }
+INLINE int hsFD_ISSET(int fd, fd_set *fds) { return FD_ISSET(fd, fds); }
+INLINE void hsFD_SET(int fd, fd_set *fds) { FD_SET(fd, fds); }
+INLINE int sizeof_fd_set(void) { return sizeof(fd_set); }
+extern void hsFD_ZERO(fd_set *fds);
+#endif
+
+// gettimeofday()-related
+
+#if !defined(mingw32_HOST_OS)
+#define TICK_FREQ 50
+
+INLINE HsInt sizeofTimeVal(void) { return sizeof(struct timeval); }
+
+INLINE HsInt getTicksOfDay(void)
+{
+ struct timeval tv;
+ gettimeofday(&tv, (struct timezone *) NULL);
+ return (tv.tv_sec * TICK_FREQ +
+ tv.tv_usec * TICK_FREQ / 1000000);
+}
+
+INLINE void setTimevalTicks(struct timeval *p, HsInt ticks)
+{
+ p->tv_sec = ticks / TICK_FREQ;
+ p->tv_usec = (ticks % TICK_FREQ) * (1000000 / TICK_FREQ);
+}
+#endif // !defined(mingw32_HOST_OS)
+
+// Directory-related