summaryrefslogtreecommitdiff
path: root/win32/win32aux.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'win32/win32aux.cpp')
-rw-r--r--win32/win32aux.cpp251
1 files changed, 251 insertions, 0 deletions
diff --git a/win32/win32aux.cpp b/win32/win32aux.cpp
new file mode 100644
index 0000000000..feafbeb451
--- /dev/null
+++ b/win32/win32aux.cpp
@@ -0,0 +1,251 @@
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#define WIN32_LEAN_AND_MEAN
+#define WIN32IO_IS_STDIO
+#define EXT
+#include <windows.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <io.h>
+#include <sys/stat.h>
+#include <sys/socket.h>
+#include <fcntl.h>
+#include <assert.h>
+#include <errno.h>
+
+#include "win32iop.h"
+
+struct servent* win32_savecopyservent(struct servent*d, struct servent*s, const char *proto)
+{
+ try {
+ d->s_name = s->s_name;
+ d->s_aliases = s->s_aliases;
+ d->s_port = s->s_port;
+ if (strlen(s->s_proto)) d->s_proto = s->s_proto;
+ else if (proto && strlen(proto)) d->s_proto = (char *)proto;
+ else d->s_proto = "tcp";
+ }
+ catch (...) {
+ if (proto && strlen(proto)) d->s_proto = (char *)proto;
+ else d->s_proto = "tcp";
+ }
+
+ return d;
+}
+#ifdef GARY
+//
+// The following is just a basic wrapping of the stdio
+//
+//
+//
+//
+//
+// redirected io subsystem for all XS modules
+//
+//
+
+static int * dummy_errno()
+{
+ return (&(errno));
+}
+
+// the rest are the remapped stdio routines
+static FILE *dummy_stderr()
+{
+ return stderr;
+}
+
+static FILE *dummy_stdin()
+{
+ return stdin;
+}
+
+static FILE *dummy_stdout()
+{
+ return stdout;
+}
+
+static int dummy_globalmode(int mode)
+{
+ int o = _fmode;
+ _fmode = mode;
+
+ return o;
+}
+
+
+#if defined(_WIN32) && !defined(WIN95_OSFHANDLE_FIXED) && defined(_M_IX86)
+
+# ifdef __cplusplus
+#define EXT_C_FUNC extern "C"
+# else
+#define EXT_C_FUNC extern
+# endif
+
+EXT_C_FUNC int __cdecl _alloc_osfhnd(void);
+EXT_C_FUNC int __cdecl _set_osfhnd(int fh, long value);
+EXT_C_FUNC void __cdecl _lock_fhandle(int);
+EXT_C_FUNC void __cdecl _unlock_fhandle(int);
+EXT_C_FUNC void __cdecl _unlock(int);
+
+#if (_MSC_VER >= 1000)
+ typedef struct
+ {
+ long osfhnd; /* underlying OS file HANDLE */
+ char osfile; /* attributes of file (e.g., open in text mode?) */
+ char pipech; /* one char buffer for handles opened on pipes */
+#if defined (_MT) && !defined (DLL_FOR_WIN32S)
+ int lockinitflag;
+ CRITICAL_SECTION lock;
+#endif /* defined (_MT) && !defined (DLL_FOR_WIN32S) */
+ } ioinfo;
+
+ EXT_C_FUNC ioinfo * __pioinfo[];
+
+ #define IOINFO_L2E 5
+ #define IOINFO_ARRAY_ELTS (1 << IOINFO_L2E)
+ #define _pioinfo(i) (__pioinfo[i >> IOINFO_L2E] + (i & (IOINFO_ARRAY_ELTS - 1)))
+ #define _osfile(i) (_pioinfo(i)->osfile)
+#else
+ extern "C" extern char _osfile[];
+#endif // (_MSC_VER >= 1000)
+
+#define FOPEN 0x01 // file handle open
+#define FAPPEND 0x20 // file handle opened O_APPEND
+#define FDEV 0x40 // file handle refers to device
+#define FTEXT 0x80 // file handle is in text mode
+
+#define _STREAM_LOCKS 26 // Table of stream locks
+#define _LAST_STREAM_LOCK (_STREAM_LOCKS+_NSTREAM_-1) // Last stream lock
+#define _FH_LOCKS (_LAST_STREAM_LOCK+1) // Table of fh locks
+
+/***
+*int _patch_open_osfhandle(long osfhandle, int flags) - open C Runtime file handle
+*
+*Purpose:
+* This function allocates a free C Runtime file handle and associates
+* it with the Win32 HANDLE specified by the first parameter. This is a
+* temperary fix for WIN95's brain damage GetFileType() error on socket
+* we just bypass that call for socket
+*
+*Entry:
+* long osfhandle - Win32 HANDLE to associate with C Runtime file handle.
+* int flags - flags to associate with C Runtime file handle.
+*
+*Exit:
+* returns index of entry in fh, if successful
+* return -1, if no free entry is found
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+int my_open_osfhandle(long osfhandle, int flags)
+{
+ int fh;
+ char fileflags; // _osfile flags
+
+ // copy relevant flags from second parameter
+ fileflags = FDEV;
+
+ if(flags & _O_APPEND)
+ fileflags |= FAPPEND;
+
+ if(flags & _O_TEXT)
+ fileflags |= FTEXT;
+
+ // attempt to allocate a C Runtime file handle
+ if((fh = _alloc_osfhnd()) == -1)
+ {
+ errno = EMFILE; // too many open files
+ _doserrno = 0L; // not an OS error
+ return -1; // return error to caller
+ }
+
+ // the file is open. now, set the info in _osfhnd array
+ _set_osfhnd(fh, osfhandle);
+
+ fileflags |= FOPEN; // mark as open
+
+#if (_MSC_VER >= 1000)
+ _osfile(fh) = fileflags; // set osfile entry
+ _unlock_fhandle(fh);
+#else
+ _osfile[fh] = fileflags; // set osfile entry
+ _unlock(fh+_FH_LOCKS); // unlock handle
+#endif
+
+
+ return fh; // return handle
+}
+#else
+int __cdecl stolen_open_osfhandle(long osfhandle, int flags)
+{
+ return _open_osfhandle(osfhandle, flags);
+}
+#endif // _M_IX86
+
+long my_get_osfhandle( int filehandle )
+{
+ return _get_osfhandle(filehandle);
+}
+
+WIN32_IOSUBSYSTEM win32stdio = {
+ 12345678L, // begin of structure;
+ dummy_errno, // (*pfunc_errno)(void);
+ dummy_stdin, // (*pfunc_stdin)(void);
+ dummy_stdout, // (*pfunc_stdout)(void);
+ dummy_stderr, // (*pfunc_stderr)(void);
+ ferror, // (*pfunc_ferror)(FILE *fp);
+ feof, // (*pfunc_feof)(FILE *fp);
+ strerror, // (*strerror)(int e);
+ vfprintf, // (*pfunc_vfprintf)(FILE *pf, const char *format, va_list arg);
+ vprintf, // (*pfunc_vprintf)(const char *format, va_list arg);
+ fread, // (*pfunc_fread)(void *buf, size_t size, size_t count, FILE *pf);
+ fwrite, // (*pfunc_fwrite)(void *buf, size_t size, size_t count, FILE *pf);
+ fopen, // (*pfunc_fopen)(const char *path, const char *mode);
+ fdopen, // (*pfunc_fdopen)(int fh, const char *mode);
+ freopen, // (*pfunc_freopen)(const char *path, const char *mode, FILE *pf);
+ fclose, // (*pfunc_fclose)(FILE *pf);
+ fputs, // (*pfunc_fputs)(const char *s,FILE *pf);
+ fputc, // (*pfunc_fputc)(int c,FILE *pf);
+ ungetc, // (*pfunc_ungetc)(int c,FILE *pf);
+ getc, // (*pfunc_getc)(FILE *pf);
+ fileno, // (*pfunc_fileno)(FILE *pf);
+ clearerr, // (*pfunc_clearerr)(FILE *pf);
+ fflush, // (*pfunc_fflush)(FILE *pf);
+ ftell, // (*pfunc_ftell)(FILE *pf);
+ fseek, // (*pfunc_fseek)(FILE *pf,long offset,int origin);
+ fgetpos, // (*pfunc_fgetpos)(FILE *pf,fpos_t *p);
+ fsetpos, // (*pfunc_fsetpos)(FILE *pf,fpos_t *p);
+ rewind, // (*pfunc_rewind)(FILE *pf);
+ tmpfile, // (*pfunc_tmpfile)(void);
+ abort, // (*pfunc_abort)(void);
+ fstat, // (*pfunc_fstat)(int fd,struct stat *bufptr);
+ stat, // (*pfunc_stat)(const char *name,struct stat *bufptr);
+ _pipe, // (*pfunc_pipe)( int *phandles, unsigned int psize, int textmode );
+ _popen, // (*pfunc_popen)( const char *command, const char *mode );
+ _pclose, // (*pfunc_pclose)( FILE *pf);
+ setmode, // (*pfunc_setmode)( int fd, int mode);
+ lseek, // (*pfunc_lseek)( int fd, long offset, int origin);
+ tell, // (*pfunc_tell)( int fd);
+ dup, // (*pfunc_dup)( int fd);
+ dup2, // (*pfunc_dup2)(int h1, int h2);
+ open, // (*pfunc_open)(const char *path, int oflag,...);
+ close, // (*pfunc_close)(int fd);
+ eof, // (*pfunc_eof)(int fd);
+ read, // (*pfunc_read)(int fd, void *buf, unsigned int cnt);
+ write, // (*pfunc_write)(int fd, const void *buf, unsigned int cnt);
+ dummy_globalmode,// (*pfunc_globalmode)(int mode)
+ my_open_osfhandle,
+ my_get_osfhandle,
+ 87654321L, // end of structure
+};
+#endif
+
+#ifdef __cplusplus
+}
+#endif
View Lorry Controller Status