[perl5.git] / win32 / win32io.c


#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 <process.h>

#include "win32iop.h"

/*
 * The following is just a basic wrapping of the stdio
 *
 *  redirected io subsystem for all XS modules
 */

static int *
dummy_errno(void)
{
    return (&(errno));
}

/* the rest are the remapped stdio routines */
static FILE *
dummy_stderr(void)
{
    return stderr;
}

static FILE *
dummy_stdin(void)
{
    return stdin;
}

static FILE *
dummy_stdout(void)
{
    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	/* (_MSC_VER >= 1000) */
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,
    spawnvpe,
    87654321L,		/* end of structure */
};


#ifdef __cplusplus
}
#endif
Commit	Line	Data
68dc0745	1
	2	#ifdef __cplusplus
	3	extern "C" {
	4	#endif
	5
	6	#define WIN32_LEAN_AND_MEAN
	7	#define WIN32IO_IS_STDIO
	8	#define EXT
	9	#include <windows.h>
	10	#include <stdio.h>
	11	#include <stdlib.h>
	12	#include <io.h>
	13	#include <sys/stat.h>
	14	#include <sys/socket.h>
	15	#include <fcntl.h>
	16	#include <assert.h>
	17	#include <errno.h>
	18	#include <process.h>
	19
	20	#include "win32iop.h"
	21
	22	/*
	23	* The following is just a basic wrapping of the stdio
	24	*
	25	* redirected io subsystem for all XS modules
	26	*/
	27
	28	static int *
	29	dummy_errno(void)
	30	{
	31	return (&(errno));
	32	}
	33
	34	/* the rest are the remapped stdio routines */
	35	static FILE *
	36	dummy_stderr(void)
	37	{
	38	return stderr;
	39	}
	40
	41	static FILE *
	42	dummy_stdin(void)
	43	{
	44	return stdin;
	45	}
	46
	47	static FILE *
	48	dummy_stdout(void)
	49	{
	50	return stdout;
	51	}
	52
	53	static int
	54	dummy_globalmode(int mode)
	55	{
	56	int o = _fmode;
	57	_fmode = mode;
	58
	59	return o;
	60	}
	61
	62
	63	#if defined(_WIN32) && !defined(WIN95_OSFHANDLE_FIXED) && defined(_M_IX86)
	64
65	# ifdef __cplusplus
66	#define EXT_C_FUNC extern "C"
67	# else
68	#define EXT_C_FUNC extern
69	# endif
70
71	EXT_C_FUNC int __cdecl _alloc_osfhnd(void);
72	EXT_C_FUNC int __cdecl _set_osfhnd(int fh, long value);
73	EXT_C_FUNC void __cdecl _lock_fhandle(int);
74	EXT_C_FUNC void __cdecl _unlock_fhandle(int);
75	EXT_C_FUNC void __cdecl _unlock(int);
76
77	#if (_MSC_VER >= 1000)
78	typedef struct {
79	long osfhnd; /* underlying OS file HANDLE */
80	char osfile; /* attributes of file (e.g., open in text mode?) */
81	char pipech; /* one char buffer for handles opened on pipes */
82	#if defined (_MT) && !defined (DLL_FOR_WIN32S)
83	int lockinitflag;
84	CRITICAL_SECTION lock;
85	#endif /* defined (_MT) && !defined (DLL_FOR_WIN32S) */
86	} ioinfo;
87
88	EXT_C_FUNC ioinfo * __pioinfo[];
89
90	#define IOINFO_L2E 5
91	#define IOINFO_ARRAY_ELTS (1 << IOINFO_L2E)
92	#define _pioinfo(i) (__pioinfo[i >> IOINFO_L2E] + (i & (IOINFO_ARRAY_ELTS - 1)))
93	#define _osfile(i) (_pioinfo(i)->osfile)
94
95	#else /* (_MSC_VER >= 1000) */
96	extern char _osfile[];
97	#endif /* (_MSC_VER >= 1000) */
98
99	#define FOPEN 0x01 /* file handle open */
100	#define FAPPEND 0x20 /* file handle opened O_APPEND */
101	#define FDEV 0x40 /* file handle refers to device */
102	#define FTEXT 0x80 /* file handle is in text mode */
103
104	#define _STREAM_LOCKS 26 /* Table of stream locks */
105	#define _LAST_STREAM_LOCK (_STREAM_LOCKS+_NSTREAM_-1) /* Last stream lock */
106	#define _FH_LOCKS (_LAST_STREAM_LOCK+1) /* Table of fh locks */
107
108	/***
109	*int _patch_open_osfhandle(long osfhandle, int flags) - open C Runtime file handle
110	*
111	*Purpose:
112	* This function allocates a free C Runtime file handle and associates
113	* it with the Win32 HANDLE specified by the first parameter. This is a
114	* temperary fix for WIN95's brain damage GetFileType() error on socket
115	* we just bypass that call for socket
116	*
117	*Entry:
118	* long osfhandle - Win32 HANDLE to associate with C Runtime file handle.
119	* int flags - flags to associate with C Runtime file handle.
120	*
121	*Exit:
122	* returns index of entry in fh, if successful
123	* return -1, if no free entry is found
124	*
125	*Exceptions:
126	*
127	*******************************************************************************/
128
129	int
130	my_open_osfhandle(long osfhandle, int flags)
131	{
132	int fh;
133	char fileflags; /* _osfile flags */
134
135	/* copy relevant flags from second parameter */
136	fileflags = FDEV;
137
138	if(flags & _O_APPEND)
139	fileflags \|= FAPPEND;
140
141	if(flags & _O_TEXT)
142	fileflags \|= FTEXT;
143
144	/* attempt to allocate a C Runtime file handle */
145	if((fh = _alloc_osfhnd()) == -1) {
146	errno = EMFILE; /* too many open files */
147	_doserrno = 0L; /* not an OS error */
148	return -1; /* return error to caller */
149	}
150
151	/* the file is open. now, set the info in _osfhnd array */
152	_set_osfhnd(fh, osfhandle);
153
154	fileflags \|= FOPEN; /* mark as open */
155
156	#if (_MSC_VER >= 1000)
157	_osfile(fh) = fileflags; /* set osfile entry */
158	_unlock_fhandle(fh);
159	#else
160	_osfile[fh] = fileflags; /* set osfile entry */
161	_unlock(fh+_FH_LOCKS); /* unlock handle */
162	#endif
163
164	return fh; /* return handle */
165	}
166	#else
167
168	int __cdecl
169	stolen_open_osfhandle(long osfhandle, int flags)
170	{
171	return _open_osfhandle(osfhandle, flags);
172	}
173	#endif /* _M_IX86 */
174
175	long
176	my_get_osfhandle( int filehandle )
177	{
178	return _get_osfhandle(filehandle);
179	}
180
181	WIN32_IOSUBSYSTEM win32stdio = {
182	12345678L, /* begin of structure; */
183	dummy_errno, /* (pfunc_errno)(void); /
184	dummy_stdin, /* (pfunc_stdin)(void); /
185	dummy_stdout, /* (pfunc_stdout)(void); /
186	dummy_stderr, /* (pfunc_stderr)(void); /
187	ferror, /* (pfunc_ferror)(FILE fp); */
188	feof, /* (pfunc_feof)(FILE fp); */
189	strerror, /* (strerror)(int e); /
190	vfprintf, /* (pfunc_vfprintf)(FILE pf, const char format, va_list arg); /
191	vprintf, /* (pfunc_vprintf)(const char format, va_list arg); */
192	fread, /* (pfunc_fread)(void buf, size_t size, size_t count, FILE pf); /
193	fwrite, /* (pfunc_fwrite)(void buf, size_t size, size_t count, FILE pf); /
194	fopen, /* (pfunc_fopen)(const char path, const char mode); /
195	fdopen, /* (pfunc_fdopen)(int fh, const char mode); */
196	freopen, /* (pfunc_freopen)(const char path, const char mode, FILE pf); */
197	fclose, /* (pfunc_fclose)(FILE pf); */
198	fputs, /* (pfunc_fputs)(const char s,FILE pf); /
199	fputc, /* (pfunc_fputc)(int c,FILE pf); */
200	ungetc, /* (pfunc_ungetc)(int c,FILE pf); */
201	getc, /* (pfunc_getc)(FILE pf); */
202	fileno, /* (pfunc_fileno)(FILE pf); */
203	clearerr, /* (pfunc_clearerr)(FILE pf); */
204	fflush, /* (pfunc_fflush)(FILE pf); */
205	ftell, /* (pfunc_ftell)(FILE pf); */
206	fseek, /* (pfunc_fseek)(FILE pf,long offset,int origin); */
207	fgetpos, /* (pfunc_fgetpos)(FILE pf,fpos_t p); /
208	fsetpos, /* (pfunc_fsetpos)(FILE pf,fpos_t p); /
209	rewind, /* (pfunc_rewind)(FILE pf); */
210	tmpfile, /* (pfunc_tmpfile)(void); /
211	abort, /* (pfunc_abort)(void); /
212	fstat, /* (pfunc_fstat)(int fd,struct stat bufptr); */
213	stat, /* (pfunc_stat)(const char name,struct stat bufptr); /
214	_pipe, /* (pfunc_pipe)( int phandles, unsigned int psize, int textmode ); */
215	_popen, /* (pfunc_popen)( const char command, const char mode ); /
216	_pclose, /* (pfunc_pclose)( FILE pf); */
217	setmode, /* (pfunc_setmode)( int fd, int mode); /
218	lseek, /* (pfunc_lseek)( int fd, long offset, int origin); /
219	tell, /* (pfunc_tell)( int fd); /
220	dup, /* (pfunc_dup)( int fd); /
221	dup2, /* (pfunc_dup2)(int h1, int h2); /
222	open, /* (pfunc_open)(const char path, int oflag,...); */
223	close, /* (pfunc_close)(int fd); /
224	eof, /* (pfunc_eof)(int fd); /
225	read, /* (pfunc_read)(int fd, void buf, unsigned int cnt); */
226	write, /* (pfunc_write)(int fd, const void buf, unsigned int cnt); */
227	dummy_globalmode, /* (pfunc_globalmode)(int mode) /
228	my_open_osfhandle,
229	my_get_osfhandle,
230	spawnvpe,
231	87654321L, /* end of structure */
232	};
233
234
235	#ifdef __cplusplus
236	}
237	#endif
238