Change 13939 by jhi@alpha on 2001/12/29 20:17:55
Subject: [PATCH] from the non-ANSI comment police (was: it won't compile on
win32)
From: "H.Merijn Brand" <[EMAIL PROTECTED]>
Date: Sat, 29 Dec 2001 20:38:59 +0100
Message-Id: <[EMAIL PROTECTED]>
(NetWare tree not touched because it's very //)
Affected files ...
.... //depot/perl/XSUB.h#60 edit
.... //depot/perl/os2/os2.c#57 edit
.... //depot/perl/perl.h#427 edit
.... //depot/perl/win32/include/netdb.h#6 edit
.... //depot/perl/win32/include/sys/socket.h#13 edit
.... //depot/perl/win32/perlhost.h#45 edit
.... //depot/perl/win32/vmem.h#4 edit
.... //depot/perl/wince/include/errno.h#3 edit
.... //depot/perl/wince/include/netdb.h#2 edit
.... //depot/perl/wince/include/sys/socket.h#2 edit
.... //depot/perl/wince/include/sys/stat.h#3 edit
.... //depot/perl/wince/perllib.c#3 edit
.... //depot/perl/wince/perlmain.c#2 edit
.... //depot/perl/wince/win32.h#4 edit
.... //depot/perl/wince/win32iop.h#2 edit
.... //depot/perl/wince/win32thread.c#4 edit
.... //depot/perl/wince/win32thread.h#3 edit
.... //depot/perl/wince/wince.c#5 edit
.... //depot/perl/wince/wince.h#3 edit
.... //depot/perl/wince/wincesck.c#4 edit
.... //depot/perl/x2p/a2py.c#17 edit
Differences ...
==== //depot/perl/XSUB.h#60 (text) ====
Index: perl/XSUB.h
--- perl/XSUB.h.~1~ Sat Dec 29 13:30:05 2001
+++ perl/XSUB.h Sat Dec 29 13:30:05 2001
@@ -281,7 +281,7 @@
# undef ungetc
# undef fileno
-//Following symbols were giving redefinition errors while building extensions - sgp
17th Oct 2000
+/* Following symbols were giving redefinition errors while building extensions - sgp
+17th Oct 2000 */
#ifdef NETWARE
# undef readdir
# undef fstat
==== //depot/perl/os2/os2.c#57 (text) ====
Index: perl/os2/os2.c
--- perl/os2/os2.c.~1~ Sat Dec 29 13:30:05 2001
+++ perl/os2/os2.c Sat Dec 29 13:30:05 2001
@@ -2744,21 +2744,21 @@
if (!(_emx_env & 0x200) || !use_my)
return flock(handle, o); /* Delegate to EMX. */
- // is this a file?
+ /* is this a file? */
if ((DosQueryHType(handle, &handle_type, &flag_word) != 0) ||
(handle_type & 0xFF))
{
errno = EBADF;
return -1;
}
- // set lock/unlock ranges
+ /* set lock/unlock ranges */
rNull.lOffset = rNull.lRange = rFull.lOffset = 0;
rFull.lRange = 0x7FFFFFFF;
- // set timeout for blocking
+ /* set timeout for blocking */
timeout = ((blocking = !(o & LOCK_NB))) ? 100 : 1;
- // shared or exclusive?
+ /* shared or exclusive? */
shared = (o & LOCK_SH) ? 1 : 0;
- // do not block the unlock
+ /* do not block the unlock */
if (o & (LOCK_UN | LOCK_SH | LOCK_EX)) {
rc = DosSetFileLocks(handle, &rFull, &rNull, timeout, shared);
switch (rc) {
@@ -2772,7 +2772,7 @@
errno = ENOLCK;
return -1;
case ERROR_LOCK_VIOLATION:
- break; // not an error
+ break; /* not an error */
case ERROR_INVALID_PARAMETER:
case ERROR_ATOMIC_LOCK_NOT_SUPPORTED:
case ERROR_READ_LOCKS_NOT_SUPPORTED:
@@ -2786,9 +2786,9 @@
return -1;
}
}
- // lock may block
+ /* lock may block */
if (o & (LOCK_SH | LOCK_EX)) {
- // for blocking operations
+ /* for blocking operations */
for (;;) {
rc =
DosSetFileLocks(
@@ -2826,7 +2826,7 @@
errno = EINVAL;
return -1;
}
- // give away timeslice
+ /* give away timeslice */
DosSleep(1);
}
}
@@ -2880,7 +2880,7 @@
if (!use_my_pwent())
return getpwent(); /* Delegate to EMX. */
if (pwent_cnt++)
- return 0; // Return one entry only
+ return 0; /* Return one entry only */
return getpwuid(0);
}
@@ -2901,7 +2901,7 @@
getgrent (void)
{
if (grent_cnt++)
- return 0; // Return one entry only
+ return 0; /* Return one entry only */
return getgrgid(0);
}
==== //depot/perl/perl.h#427 (text) ====
Index: perl/perl.h
--- perl/perl.h.~1~ Sat Dec 29 13:30:05 2001
+++ perl/perl.h Sat Dec 29 13:30:05 2001
@@ -254,7 +254,7 @@
#if defined(HASVOLATILE) || defined(STANDARD_C)
# ifdef __cplusplus
-# define VOL // to temporarily suppress warnings
+# define VOL /* to temporarily suppress warnings */
# else
# define VOL volatile
# endif
==== //depot/perl/win32/include/netdb.h#6 (text) ====
Index: perl/win32/include/netdb.h
--- perl/win32/include/netdb.h.~1~ Sat Dec 29 13:30:05 2001
+++ perl/win32/include/netdb.h Sat Dec 29 13:30:05 2001
@@ -1,7 +1,7 @@
-// netdb.h
+/* netdb.h */
-// djl
-// Provide UNIX compatibility
+/* djl */
+/* Provide UNIX compatibility */
#ifndef _INC_NETDB
@@ -9,4 +9,4 @@
#include <sys/socket.h>
-#endif //_INC_NETDB
+#endif /* _INC_NETDB */
==== //depot/perl/win32/include/sys/socket.h#13 (text) ====
Index: perl/win32/include/sys/socket.h
--- perl/win32/include/sys/socket.h.~1~ Sat Dec 29 13:30:05 2001
+++ perl/win32/include/sys/socket.h Sat Dec 29 13:30:05 2001
@@ -1,7 +1,7 @@
-// sys/socket.h
+/* sys/socket.h */
-// djl
-// Provide UNIX compatibility
+/* djl */
+/* Provide UNIX compatibility */
#ifndef _INC_SYS_SOCKET
#define _INC_SYS_SOCKET
@@ -109,9 +109,9 @@
void win32_endservent(void);
#ifndef WIN32SCK_IS_STDSCK
-//
-// direct to our version
-//
+
+/* direct to our version */
+
#define htonl win32_htonl
#define htons win32_htons
#define ntohl win32_ntohl
@@ -176,4 +176,4 @@
}
#endif
-#endif // _INC_SYS_SOCKET
+#endif /* _INC_SYS_SOCKET */
==== //depot/perl/win32/perlhost.h#45 (text) ====
Index: perl/win32/perlhost.h
--- perl/win32/perlhost.h.~1~ Sat Dec 29 13:30:05 2001
+++ perl/win32/perlhost.h Sat Dec 29 13:30:05 2001
@@ -210,7 +210,7 @@
DWORD m_dwEnvCount;
LPSTR* m_lppEnvList;
- BOOL m_bTopLevel; // is this a toplevel host?
+ BOOL m_bTopLevel; /* is this a toplevel host? */
static long num_hosts;
public:
inline int LastHost(void) { return num_hosts == 1L; };
@@ -2051,7 +2051,7 @@
CPerlHost::~CPerlHost(void)
{
-// Reset();
+/* Reset(); */
InterlockedDecrement(&num_hosts);
delete m_pvDir;
m_pVMemParse->Release();
@@ -2078,7 +2078,7 @@
int
lookup(const void *arg1, const void *arg2)
-{ // Compare strings
+{ /* Compare strings */
char*ptr1, *ptr2;
char c1,c2;
@@ -2091,18 +2091,18 @@
if(c2 == '\0' || c2 == '=')
break;
- return -1; // string 1 < string 2
+ return -1; /* string 1 < string 2 */
}
else if(c2 == '\0' || c2 == '=')
- return 1; // string 1 > string 2
+ return 1; /* string 1 > string 2 */
else if(c1 != c2) {
c1 = toupper(c1);
c2 = toupper(c2);
if(c1 != c2) {
if(c1 < c2)
- return -1; // string 1 < string 2
+ return -1; /* string 1 < string 2 */
- return 1; // string 1 > string 2
+ return 1; /* string 1 > string 2 */
}
}
}
@@ -2117,7 +2117,7 @@
int
compare(const void *arg1, const void *arg2)
-{ // Compare strings
+{ /* Compare strings */
char*ptr1, *ptr2;
char c1,c2;
@@ -2130,18 +2130,18 @@
if(c1 == c2)
break;
- return -1; // string 1 < string 2
+ return -1; /* string 1 < string 2 */
}
else if(c2 == '\0' || c2 == '=')
- return 1; // string 1 > string 2
+ return 1; /* string 1 > string 2 */
else if(c1 != c2) {
c1 = toupper(c1);
c2 = toupper(c2);
if(c1 != c2) {
if(c1 < c2)
- return -1; // string 1 < string 2
+ return -1; /* string 1 < string 2 */
- return 1; // string 1 > string 2
+ return 1; /* string 1 > string 2 */
}
}
}
@@ -2161,7 +2161,7 @@
szBuffer[index] = '\0';
- // replacing ?
+ /* replacing ? */
lpPtr = Lookup(szBuffer);
if(lpPtr != NULL) {
Renew(*lpPtr, length, char);
@@ -2231,45 +2231,45 @@
DWORD dwSize, dwEnvIndex;
int nLength, compVal;
- // get the process environment strings
+ /* get the process environment strings */
lpAllocPtr = lpTmp = (LPSTR)GetEnvironmentStrings();
- // step over current directory stuff
+ /* step over current directory stuff */
while(*lpTmp == '=')
lpTmp += strlen(lpTmp) + 1;
- // save the start of the environment strings
+ /* save the start of the environment strings */
lpEnvPtr = lpTmp;
for(dwSize = 1; *lpTmp != '\0'; lpTmp += strlen(lpTmp) + 1) {
- // calculate the size of the environment strings
+ /* calculate the size of the environment strings */
dwSize += strlen(lpTmp) + 1;
}
- // add the size of current directories
+ /* add the size of current directories */
dwSize += vDir.CalculateEnvironmentSpace();
- // add the additional space used by changes made to the environment
+ /* add the additional space used by changes made to the environment */
dwSize += CalculateEnvironmentSpace();
New(1, lpStr, dwSize, char);
lpPtr = lpStr;
if(lpStr != NULL) {
- // build the local environment
+ /* build the local environment */
lpStr = vDir.BuildEnvironmentSpace(lpStr);
dwEnvIndex = 0;
lpLocalEnv = GetIndex(dwEnvIndex);
while(*lpEnvPtr != '\0') {
if(!lpLocalEnv) {
- // all environment overrides have been added
- // so copy string into place
+ /* all environment overrides have been added */
+ /* so copy string into place */
strcpy(lpStr, lpEnvPtr);
nLength = strlen(lpEnvPtr) + 1;
lpStr += nLength;
lpEnvPtr += nLength;
}
else {
- // determine which string to copy next
+ /* determine which string to copy next */
compVal = compare(&lpEnvPtr, &lpLocalEnv);
if(compVal < 0) {
strcpy(lpStr, lpEnvPtr);
@@ -2285,7 +2285,7 @@
}
lpLocalEnv = GetIndex(dwEnvIndex);
if(compVal == 0) {
- // this string was replaced
+ /* this string was replaced */
lpEnvPtr += strlen(lpEnvPtr) + 1;
}
}
@@ -2293,8 +2293,8 @@
}
while(lpLocalEnv) {
- // still have environment overrides to add
- // so copy the strings into place if not an override
+ /* still have environment overrides to add */
+ /* so copy the strings into place if not an override */
char *ptr = strchr(lpLocalEnv, '=');
if(ptr && ptr[1]) {
strcpy(lpStr, lpLocalEnv);
@@ -2303,11 +2303,11 @@
lpLocalEnv = GetIndex(dwEnvIndex);
}
- // add final NULL
+ /* add final NULL */
*lpStr = '\0';
}
- // release the process environment strings
+ /* release the process environment strings */
FreeEnvironmentStrings(lpAllocPtr);
return lpPtr;
==== //depot/perl/win32/vmem.h#4 (text) ====
Index: perl/win32/vmem.h
--- perl/win32/vmem.h.~1~ Sat Dec 29 13:30:05 2001
+++ perl/win32/vmem.h Sat Dec 29 13:30:05 2001
@@ -134,21 +134,21 @@
void* Expand(void* block, size_t size);
void WalkHeap(void);
- HANDLE m_hHeap; // memory heap for this script
- char m_FreeDummy[minAllocSize]; // dummy free block
- PBLOCK m_pFreeList; // pointer to first block on free
list
- PBLOCK m_pRover; // roving pointer into the free
list
- HeapRec m_heaps[maxHeaps]; // list of all non-contiguous heap
areas
- int m_nHeaps; // no. of heaps in m_heaps
- long m_lAllocSize; // current alloc size
- long m_lRefCount; // number of current users
- CRITICAL_SECTION m_cs; // access lock
+ HANDLE m_hHeap; /* memory heap for this script */
+ char m_FreeDummy[minAllocSize]; /* dummy free block */
+ PBLOCK m_pFreeList; /* pointer to first block on free
+list */
+ PBLOCK m_pRover; /* roving pointer into the free
+list */
+ HeapRec m_heaps[maxHeaps]; /* list of all non-contiguous heap
+areas */
+ int m_nHeaps; /* no. of heaps in m_heaps
+ */
+ long m_lAllocSize; /* current alloc size */
+ long m_lRefCount; /* number of current users */
+ CRITICAL_SECTION m_cs; /* access lock */
#ifdef _DEBUG_MEM
FILE* m_pLog;
#endif
};
-// #define _DEBUG_MEM
+/* #define _DEBUG_MEM */
#ifdef _DEBUG_MEM
#define ASSERT(f) if(!(f)) DebugBreak();
==== //depot/perl/wince/include/errno.h#3 (text) ====
Index: perl/wince/include/errno.h
--- perl/wince/include/errno.h.~1~ Sat Dec 29 13:30:05 2001
+++ perl/wince/include/errno.h Sat Dec 29 13:30:05 2001
@@ -24,7 +24,7 @@
#define ENOMEM 12
#define EACCES 13
#define EFAULT 14
-#define EOSERR 15 // rk
+#define EOSERR 15 /* rk */
#define EBUSY 16
#define EEXIST 17
#define EXDEV 18
==== //depot/perl/wince/include/netdb.h#2 (text) ====
Index: perl/wince/include/netdb.h
--- perl/wince/include/netdb.h.~1~ Sat Dec 29 13:30:05 2001
+++ perl/wince/include/netdb.h Sat Dec 29 13:30:05 2001
@@ -1,7 +1,7 @@
-// netdb.h
+/* netdb.h */
-// djl
-// Provide UNIX compatibility
+/* djl */
+/* Provide UNIX compatibility */
#ifndef _INC_NETDB
@@ -9,4 +9,4 @@
#include <sys/socket.h>
-#endif //_INC_NETDB
+#endif /* _INC_NETDB */
==== //depot/perl/wince/include/sys/socket.h#2 (text) ====
Index: perl/wince/include/sys/socket.h
--- perl/wince/include/sys/socket.h.~1~ Sat Dec 29 13:30:05 2001
+++ perl/wince/include/sys/socket.h Sat Dec 29 13:30:05 2001
@@ -1,7 +1,7 @@
-// sys/socket.h
+/* sys/socket.h */
-// djl
-// Provide UNIX compatibility
+/* djl */
+/* Provide UNIX compatibility */
#ifndef _INC_SYS_SOCKET
#define _INC_SYS_SOCKET
@@ -51,10 +51,10 @@
#endif
#endif
-#endif //_WINDOWS_
-// #ifndef __GNUC__
+#endif /* _WINDOWS_ */
+/* #ifndef __GNUC__ */
#include <winsock.h>
-// #endif
+/* #endif */
#define ENOTSOCK WSAENOTSOCK
#undef HOST_NOT_FOUND
@@ -147,9 +147,9 @@
void win32_endservent(void);
#ifndef WIN32SCK_IS_STDSCK
-//
-// direct to our version
-//
+
+/* direct to our version */
+
#define htonl win32_htonl
#define htons win32_htons
#define ntohl win32_ntohl
@@ -214,4 +214,4 @@
}
#endif
-#endif // _INC_SYS_SOCKET
+#endif /* _INC_SYS_SOCKET */
==== //depot/perl/wince/include/sys/stat.h#3 (text) ====
Index: perl/wince/include/sys/stat.h
--- perl/wince/include/sys/stat.h.~1~ Sat Dec 29 13:30:05 2001
+++ perl/wince/include/sys/stat.h Sat Dec 29 13:30:05 2001
@@ -3,7 +3,7 @@
#include <sys/types.h>
-// stat.h
+/* stat.h */
#define _S_IFMT 0170000 /* file type mask */
#define _S_IFDIR 0040000 /* directory */
#define _S_IFCHR 0020000 /* character special */
==== //depot/perl/wince/perllib.c#3 (text) ====
Index: perl/wince/perllib.c
--- perl/wince/perllib.c.~1~ Sat Dec 29 13:30:05 2001
+++ perl/wince/perllib.c Sat Dec 29 13:30:05 2001
@@ -1,4 +1,4 @@
-// Time-stamp: <01/08/01 20:58:55 keuchel@w2k>
+/* Time-stamp: <01/08/01 20:58:55 keuchel@w2k> */
#include "EXTERN.h"
#include "perl.h"
==== //depot/perl/wince/perlmain.c#2 (text) ====
Index: perl/wince/perlmain.c
--- perl/wince/perlmain.c.~1~ Sat Dec 29 13:30:05 2001
+++ perl/wince/perlmain.c Sat Dec 29 13:30:05 2001
@@ -1,4 +1,4 @@
-// Time-stamp: <01/08/01 20:58:19 keuchel@w2k>
+/* Time-stamp: <01/08/01 20:58:19 keuchel@w2k> */
#include "EXTERN.h"
#include "perl.h"
@@ -14,7 +14,7 @@
#endif
-// Called from w32console/wmain.c
+/* Called from w32console/wmain.c */
int
main(int argc, char **argv, char **env)
==== //depot/perl/wince/win32.h#4 (text) ====
Index: perl/wince/win32.h
--- perl/wince/win32.h.~1~ Sat Dec 29 13:30:05 2001
+++ perl/wince/win32.h Sat Dec 29 13:30:05 2001
@@ -1,4 +1,4 @@
-// Time-stamp: <01/08/01 20:59:54 keuchel@w2k>
+/* Time-stamp: <01/08/01 20:59:54 keuchel@w2k> */
/* WIN32.H
*
@@ -116,7 +116,7 @@
/* Define USE_SOCKETS_AS_HANDLES to enable emulation of windows sockets as
* real filehandles. XXX Should always be defined (the other version is untested) */
-//#define USE_SOCKETS_AS_HANDLES
+/* #define USE_SOCKETS_AS_HANDLES */
/* read() and write() aren't transparent for socket handles */
#define PERL_SOCK_SYSREAD_IS_RECV
==== //depot/perl/wince/win32iop.h#2 (text) ====
Index: perl/wince/win32iop.h
--- perl/wince/win32iop.h.~1~ Sat Dec 29 13:30:05 2001
+++ perl/wince/win32iop.h Sat Dec 29 13:30:05 2001
@@ -1,4 +1,4 @@
-// Time-stamp: <01/08/01 21:00:16 keuchel@w2k>
+/* Time-stamp: <01/08/01 21:00:16 keuchel@w2k> */
#ifndef WIN32IOP_H
#define WIN32IOP_H
==== //depot/perl/wince/win32thread.c#4 (text) ====
Index: perl/wince/win32thread.c
--- perl/wince/win32thread.c.~1~ Sat Dec 29 13:30:05 2001
+++ perl/wince/win32thread.c Sat Dec 29 13:30:05 2001
@@ -1,4 +1,4 @@
-// Time-stamp: <01/08/01 21:00:29 keuchel@w2k>
+/* Time-stamp: <01/08/01 21:00:29 keuchel@w2k> */
#include "EXTERN.h"
#include "perl.h"
==== //depot/perl/wince/win32thread.h#3 (text) ====
Index: perl/wince/win32thread.h
--- perl/wince/win32thread.h.~1~ Sat Dec 29 13:30:05 2001
+++ perl/wince/win32thread.h Sat Dec 29 13:30:05 2001
@@ -1,4 +1,4 @@
-// Time-stamp: <01/08/01 21:00:36 keuchel@w2k>
+/* Time-stamp: <01/08/01 21:00:36 keuchel@w2k> */
#ifndef _WIN32THREAD_H
#define _WIN32THREAD_H
==== //depot/perl/wince/wince.c#5 (text) ====
Index: perl/wince/wince.c
--- perl/wince/wince.c.~1~ Sat Dec 29 13:30:05 2001
+++ perl/wince/wince.c Sat Dec 29 13:30:05 2001
@@ -871,8 +871,8 @@
return fseek(pf, offset, origin);
}
-// fpos_t seems to be int64 on hpc pro! Really stupid.
-// But maybe someday there will be such large disks in a hpc...
+/* fpos_t seems to be int64 on hpc pro! Really stupid. */
+/* But maybe someday there will be such large disks in a hpc... */
DllExport int
win32_fgetpos(FILE *pf, fpos_t *p)
{
@@ -1233,7 +1233,7 @@
return hModule;
}
-// this is needed by Cwd.pm...
+/* this is needed by Cwd.pm... */
static
XS(w32_GetCwd)
@@ -1293,7 +1293,7 @@
XPUSHs(newSViv(osver.dwMajorVersion));
XPUSHs(newSViv(osver.dwMinorVersion));
XPUSHs(newSViv(osver.dwBuildNumber));
- // WINCE = 3
+ /* WINCE = 3 */
XPUSHs(newSViv(osver.dwPlatformId));
PUTBACK;
}
@@ -1560,12 +1560,12 @@
return;
}
-//////////////////////////////////////////////////////////////////////
+/* //////////////////////////////////////////////////////////////////// */
void
win32_argv2utf8(int argc, char** argv)
{
- // do nothing...
+ /* do nothing... */
}
void
@@ -1600,7 +1600,7 @@
# endif
}
-//////////////////////////////////////////////////////////////////////
+/* //////////////////////////////////////////////////////////////////// */
#undef getcwd
==== //depot/perl/wince/wince.h#3 (text) ====
Index: perl/wince/wince.h
--- perl/wince/wince.h.~1~ Sat Dec 29 13:30:05 2001
+++ perl/wince/wince.h Sat Dec 29 13:30:05 2001
@@ -1,17 +1,17 @@
-// wince.h
-//
-// Time-stamp: <01/08/01 20:48:08 keuchel@w2k>
+/* wince.h */
+
+/* Time-stamp: <01/08/01 20:48:08 keuchel@w2k> */
-// This file includes extracts from the celib-headers, because
-// the celib-headers produces macro conflicts with defines in
-// win32iop.h etc
+/* This file includes extracts from the celib-headers, because */
+/* the celib-headers produces macro conflicts with defines in */
+/* win32iop.h etc */
#ifndef WINCE_H
#define WINCE_H 1
#include "celib_defs.h"
-// include local copies of celib headers...
+/* include local copies of celib headers... */
#include "errno.h"
#include "sys/stat.h"
#include "time.h"
@@ -38,7 +38,7 @@
#define gmtime xcegmtime
#define localtime xcelocaltime
#define asctime xceasctime
-//#define utime xceutime
+/* #define utime xceutime */
#define futime xcefutime
#define ftime xceftime
#define ctime xcectime
@@ -113,7 +113,7 @@
XCE_EXPORT HMODULE XCEAPI XCEGetModuleHandleA(const char *lpName);
XCE_EXPORT FARPROC XCEAPI XCEGetProcAddressA(HMODULE hMod, const char *name);
-//////////////////////////////////////////////////////////////////////
+/* //////////////////////////////////////////////////////////////////// */
#define getgid xcegetgid
#define getegid xcegetegid
==== //depot/perl/wince/wincesck.c#4 (text) ====
Index: perl/wince/wincesck.c
--- perl/wince/wincesck.c.~1~ Sat Dec 29 13:30:05 2001
+++ perl/wince/wincesck.c Sat Dec 29 13:30:05 2001
@@ -1,4 +1,4 @@
-// Time-stamp: <01/08/01 21:01:12 keuchel@w2k>
+/* Time-stamp: <01/08/01 21:01:12 keuchel@w2k> */
/* wincesck.c
*
@@ -10,7 +10,7 @@
* License or the Artistic License, as specified in the README file.
*/
-// The socket calls use fd functions from celib...
+/* The socket calls use fd functions from celib... */
#define WIN32IO_IS_STDIO
#define WIN32SCK_IS_STDSCK
@@ -50,7 +50,7 @@
#define getprotobyname xcegetprotobyname
#define getprotobynumber xcegetprotobynumber
-// uses fdtab...
+/* uses fdtab... */
#include "cesocket2.h"
#endif
@@ -234,7 +234,7 @@
Perl_fd_set* ex, const struct timeval* timeout)
{
StartSockets();
- // select not yet fixed
+ /* select not yet fixed */
errno = ENOSYS;
return -1;
}
==== //depot/perl/x2p/a2py.c#17 (text) ====
Index: perl/x2p/a2py.c
--- perl/x2p/a2py.c.~1~ Sat Dec 29 13:30:05 2001
+++ perl/x2p/a2py.c Sat Dec 29 13:30:05 2001
@@ -59,7 +59,7 @@
STR *tmpstr;
#ifdef NETWARE
- fnInitGpfGlobals(); // For importing the CLIB calls in place of
Watcom calls
+ fnInitGpfGlobals(); /* For importing the CLIB calls in place of
+Watcom calls */
#endif /* NETWARE */
myname = argv[0];
End of Patch.
