#define WIN32IO_IS_STDIO
#define WIN32SCK_IS_STDSCK
#define WIN32_LEAN_AND_MEAN
+#define PERLIO_NOT_STDIO 0
#ifdef __GNUC__
#define Win32_Winsock
#endif
return s;
}
-/*\r
- * close RTL fd while respecting sockets\r
- * added as temporary measure until PerlIO has real\r
- * Win32 native layer\r
- * -- BKS, 11-11-2000\r
-*/\r
-\r
-int my_close(int fd)\r
-{\r
- int osf;\r
- if (!wsock_started) /* No WinSock? */\r
- return(close(fd)); /* Then not a socket. */\r
- osf = TO_SOCKET(fd);/* Get it now before it's gone! */\r
- if (osf != -1) {\r
- int err;\r
- err = closesocket(osf);\r
- if (err == 0) {\r
-#if defined(USE_FIXED_OSFHANDLE) || defined(PERL_MSVCRT_READFIX)\r
- _set_osfhnd(fd, INVALID_HANDLE_VALUE);\r
-#endif\r
- (void)close(fd); /* handle already closed, ignore error */\r
- return 0;\r
- }\r
- else if (err == SOCKET_ERROR) {\r
- err = WSAGetLastError();\r
- if (err != WSAENOTSOCK) {\r
- (void)close(fd);\r
- errno = err;\r
- return EOF;\r
- }\r
- }\r
- }\r
- return close(fd);\r
-}\r
-\r
+/*
+ * close RTL fd while respecting sockets
+ * added as temporary measure until PerlIO has real
+ * Win32 native layer
+ * -- BKS, 11-11-2000
+*/
+
+int my_close(int fd)
+{
+ int osf;
+ if (!wsock_started) /* No WinSock? */
+ return(close(fd)); /* Then not a socket. */
+ osf = TO_SOCKET(fd);/* Get it now before it's gone! */
+ if (osf != -1) {
+ int err;
+ err = closesocket(osf);
+ if (err == 0) {
+#if defined(USE_FIXED_OSFHANDLE) || defined(PERL_MSVCRT_READFIX)
+ _set_osfhnd(fd, INVALID_HANDLE_VALUE);
+#endif
+ (void)close(fd); /* handle already closed, ignore error */
+ return 0;
+ }
+ else if (err == SOCKET_ERROR) {
+ err = WSAGetLastError();
+ if (err != WSAENOTSOCK) {
+ (void)close(fd);
+ errno = err;
+ return EOF;
+ }
+ }
+ }
+ return close(fd);
+}
+
#undef fclose
int
my_fclose (FILE *pf)
int osf;
if (!wsock_started) /* No WinSock? */
return(fclose(pf)); /* Then not a socket. */
- osf = TO_SOCKET(win32_fileno(pf));/* Get it now before it's gone! */\r
+ osf = TO_SOCKET(win32_fileno(pf));/* Get it now before it's gone! */
if (osf != -1) {
int err;
win32_fflush(pf);
err = closesocket(osf);
if (err == 0) {
#if defined(USE_FIXED_OSFHANDLE) || defined(PERL_MSVCRT_READFIX)
- _set_osfhnd(win32_fileno(pf), INVALID_HANDLE_VALUE);\r
+ _set_osfhnd(win32_fileno(pf), INVALID_HANDLE_VALUE);
#endif
(void)fclose(pf); /* handle already closed, ignore error */
return 0;