kindly supplied by Rainer Keuchel <rkeuc@allgeier.com>.
p4raw-id: //depot/perl@11549
+
apollo/netinet/in.h Apollo DomainOS port: C header file frontend
Artistic The "Artistic License"
AUTHORS Contact info for contributors
README.apollo Notes about Apollo DomainOS port
README.beos Notes about BeOS port
README.bs2000 Notes about BS2000 POSIX port
+README.ce Notes about WinCE port
README.cygwin Notes about Cygwin port
README.dgux Notes about DG/UX port
README.dos Notes about DOS/DJGPP port
win32/win32sck.c Win32 port
win32/win32thread.c Win32 functions for threads
win32/win32thread.h Win32 port mapping to threads
+wince/bin/exetype.pl WinCE port
+wince/bin/perlglob.pl WinCE port
+wince/bin/pl2bat.pl WinCE port
+wince/bin/runperl.pl WinCE port
+wince/bin/search.pl WinCE port
+wince/config.ce WinCE port
+wince/config.h WinCE port
+wince/config_H.ce WinCE port
+wince/config_h.PL WinCE port
+wince/config_sh.PL WinCE port
+wince/dl_win32.xs WinCE port
+wince/FindExt.pm WinCE port
+wince/include/arpa/inet.h WinCE port
+wince/include/cectype.h WinCE port
+wince/include/errno.h WinCE port
+wince/include/netdb.h WinCE port
+wince/include/sys/socket.h WinCE port
+wince/include/sys/stat.h WinCE port
+wince/include/sys/types.h WinCE port
+wince/include/sys/utime.h WinCE port
+wince/include/time.h WinCE port
+wince/Makefile.ce WinCE port
+wince/perl.ico WinCE port
+wince/perl.rc WinCE port
+wince/perldll.def WinCE port
+wince/perllib.c WinCE port
+wince/perlmain.c WinCE port
+wince/README.compile WinCE port
+wince/README.perlce WinCE port
+wince/registry.bat WinCE port
+wince/runperl.c WinCE port
+wince/splittree.pl WinCE port
+wince/win32.h WinCE port
+wince/win32iop.h WinCE port
+wince/win32thread.c WinCE port
+wince/win32thread.h WinCE port
+wince/wince.c WinCE port
+wince/wince.h WinCE port
+wince/wincesck.c WinCE port
+wince/xbuildall.ksh WinCE port
+wince/xdistclean.ksh WinCE port
+wince/xmakediffs.ksh WinCE port
writemain.SH Generate perlmain.c from miniperlmain.c+extensions
x2p/a2p.c Output of a2p.y run through byacc
x2p/a2p.h Global declarations
--- /dev/null
+If you read this file _as_is_, just ignore the funny characters you
+see. It is written in the POD format (see pod/perlpod.pod) which is
+specifically designed to be readable as is.
+
+=head1 Name
+
+Perl for WinCE
+
+=head1 Description
+
+This file gives the instructions for building Perl5.6 and above for
+WinCE. Please read and understand the terms under which this
+software is distributed.
+
+=head1 Build
+
+This section describes the steps to be performed to build PerlCE.
+
+=head2 Tools & SDK
+
+For compiling, you need Microsoft Embedded Visual Tools, my
+celib-sources, my console-sources and a perl for win32.
+
+Needed source files can be downloaded via:
+www.rainer-keuchel.de/wince/dirlist.html
+
+Some portions of the makefile need a shell for win32, rm, cp, mv,
+xmkdir (mkdir with a -p option). It also uses my cecopy program for
+copying files to the ce device.
+
+=head2 Make
+
+Miniperl is not built. A pre-existent win32 perl is used.
+
+The paths for tools and additional libraries have to be changed in
+wince/makefile.ce.
+
+Different ce targets can be specified with the TARGET macro.
+
+Before you start, you need to build celib.dll and w32console.
+See instructions in these packages for building.
+
+In the wince directory, type "nmake -f makefile.ce". This should
+build perl.exe and and perl.dll. For building extension dlls,
+type "nmake -f makefile.ce dlls"
+
+When building ext dlls, you get lots of macro redefinition
+errors. Just ignore them.
+
+For further information, look in the text files in the wince
+sub-directory.
+
+=head1 Acknowledgements
+
+The port for Win32 was used as a reference.
+
+=head1 Author
+
+Rainer Keuchel (keuchel@netwave.de)
PerlIO_printf(PerlIO_stdout(),
"EPOC port by Olaf Flebbe, 1999-2000\n");
#endif
+#ifdef UNDER_CE
+ printf("WINCE port by Rainer Keuchel, 2001\n");
+ printf("Built on " __DATE__ " " __TIME__ "\n\n");
+ wce_hitreturn();
+#endif
#ifdef BINARY_BUILD_NOTICE
BINARY_BUILD_NOTICE;
#endif
#endif
#ifndef __cplusplus
+#ifndef UNDER_CE
Uid_t getuid (void);
Uid_t geteuid (void);
Gid_t getgid (void);
Gid_t getegid (void);
#endif
+#endif
#ifndef Perl_debug_log
# define Perl_debug_log PerlIO_stderr()
so that Configure picks them up. */
+#ifdef UNDER_CE
+#include "wince.h"
+#endif
+
#endif /* Include guard */
PerlIO_funcs *osLayer = &PerlIO_unix;
PerlIO_def_layerlist = PerlIO_list_alloc();
PerlIO_define_layer(aTHX_ &PerlIO_unix);
-#ifdef WIN32
+#if defined(WIN32) && !defined(UNDER_CE)
PerlIO_define_layer(aTHX_ &PerlIO_win32);
#if 0
osLayer = &PerlIO_win32;
--- /dev/null
+package FindExt;
+use strict;
+use File::Find;
+use File::Basename;
+use Cwd;
+
+my $no = join('|',qw(DynaLoader GDBM_File ODBM_File NDBM_File DB_File
+ Syslog SysV Langinfo));
+$no = qr/^(?:$no)$/i;
+
+my %ext;
+my $ext;
+sub scan_ext
+{
+ my $here = getcwd();
+ my $dir = shift;
+ chdir($dir) || die "Cannot cd to $dir\n";
+ ($ext = getcwd()) =~ s,/,\\,g;
+ find(\&find_ext,'.');
+ chdir($here) || die "Cannot cd to $here\n";
+ my @ext = extensions();
+}
+
+sub dynamic_extensions
+{
+ return grep $ext{$_} eq 'dynamic',keys %ext;
+}
+
+sub noxs_extensions
+{
+ return grep $ext{$_} eq 'nonxs',keys %ext;
+}
+
+sub extensions
+{
+ return keys %ext;
+}
+
+sub find_ext
+{
+ if (/^(.*)\.pm$/i || /^(.*)_pm\.PL$/i || /^(.*)\.xs$/i)
+ {
+ my $name = $1;
+ return if $name =~ $no;
+ my $dir = $File::Find::dir;
+ $dir =~ s,./,,;
+ return if exists $ext{$dir};
+ return unless -f "$ext/$dir/Makefile.PL";
+ if ($dir =~ /$name$/i)
+ {
+ if (-f "$ext/$dir/$name.xs")
+ {
+ $ext{$dir} = 'dynamic';
+ }
+ else
+ {
+ $ext{$dir} = 'nonxs';
+ }
+ }
+ }
+}
+
+1;
--- /dev/null
+# perl makefile for wince\r
+#\r
+# Time-stamp: <01/08/01 21:11:35 keuchel@w2k>\r
+\r
+SRCDIR = ..\r
+PV = 57\r
+INST_VER = 5.7.2\r
+PERLCEDIR = H:\src\wince\perl\wince\r
+WCEROOT = N:\Windows CE Tools\r
+#WCEROOT = D:\Windows CE Tools\r
+NTPERL = N:\Programme\perl\bin\perl.exe\r
+#NTPERL = D:\Programme\ActiveState\perl-5.6\bin\Perl.exe\r
+CEPATH = N:\Programme\Microsoft eMbedded Tools\EVC\WCE211\BIN\r
+#CEPATH = D:\Programme\Microsoft eMbedded Tools\EVC\WCE211\BIN\r
+CELIBDLLDIR = h:\src\wince\celib-palm\r
+CECONSOLEDIR = h:\src\wince\w32console\r
+# Only for WIN2000\r
+YES = /y\r
+COPY = copy $(YES)\r
+XCOPY = xcopy $(YES) /f /r /i /d\r
+RCOPY = xcopy $(YES) /f /r /i /e /d\r
+NOOP = @echo\r
+# keep this untouched!\r
+NULL =\r
+\r
+CFG=DEBUG\r
+#CFG=RELEASE\r
+\r
+!if "$(MACHINE)" == ""\r
+MACHINE=wince-arm-hpc-wce300\r
+#MACHINE=wince-arm-hpc-wce211\r
+#MACHINE=wince-sh3-hpc-wce211\r
+#MACHINE=wince-mips-hpc-wce211\r
+#MACHINE=wince-sh3-hpc-wce200\r
+#MACHINE=wince-mips-hpc-wce200\r
+#MACHINE=wince-arm-pocket-wce300\r
+#MACHINE=wince-mips-pocket-wce300\r
+#MACHINE=wince-sh3-pocket-wce300\r
+#MACHINE=wince-x86em-pocket-wce300\r
+#MACHINE=wince-mips-palm-wce211\r
+#MACHINE=wince-sh3-palm-wce211\r
+#MACHINE=wince-x86em-palm-wce211\r
+!endif\r
+\r
+######################################################################\r
+# machines\r
+\r
+!if "$(MACHINE)" == "wince-sh3-hpc-wce211"\r
+CC = shcl.exe\r
+ARCH = SH3\r
+CPU = SH3\r
+TARGETCPU = SH3\r
+CEVersion = 211\r
+OSVERSION = WCE211\r
+PLATFORM = MS HPC Pro\r
+MCFLAGS = -MDd -DSH3 -D_SH3_ -DSHx -DPROCESSOR_SH3 -DPALM_SIZE \\r
+ -I $(CELIBDLLDIR)\inc\r
+SUBSYS = -subsystem:windowsce,2.11\r
+CELIBPATH = $(CELIBDLLDIR)\$(MACHINE)-release\r
+LDLIBPATH = -libpath:$(CELIBPATH)\r
+STARTOBJS = $(CECONSOLEDIR)/$(MACHINE)/wmain.obj \\r
+ $(CECONSOLEDIR)/$(MACHINE)/w32console.obj\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-mips-hpc-wce211"\r
+CC = clmips.exe\r
+ARCH = MIPS\r
+CPU = MIPS\r
+TARGETCPU = MIPS\r
+CEVersion = 211\r
+OSVERSION = WCE211\r
+PLATFORM = MS HPC Pro\r
+MCFLAGS = -D _MT -D _DLL \\r
+ -D MIPS -D mips -D _MIPS_ -D _mips_ -DPROCESSOR_MIPS \\r
+ -D PALM_SIZE \\r
+ -I $(CELIBDLLDIR)\inc\r
+SUBSYS = -subsystem:windowsce,2.11\r
+CELIBPATH = $(CELIBDLLDIR)\$(MACHINE)-release\r
+LDLIBPATH = -libpath:$(CELIBPATH)\r
+STARTOBJS = $(CECONSOLEDIR)/$(MACHINE)/wmain.obj \\r
+ $(CECONSOLEDIR)/$(MACHINE)/w32console.obj\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-mips-hpc-wce200"\r
+CC = clmips.exe\r
+ARCH = MIPS\r
+CPU = MIPS\r
+TARGETCPU = MIPS\r
+CEVersion = 200\r
+OSVERSION = WCE200\r
+PLATFORM = MS HPC\r
+# MUST USE -MD to get the right FPE stuff...\r
+MCFLAGS = -D _MT -D _DLL -MD \\r
+ -D MIPS -D mips -D _MIPS_ -D _mips_ -DPROCESSOR_MIPS \\r
+ -D PALM_SIZE \\r
+ -I $(CELIBDLLDIR)\inc\r
+SUBSYS = -subsystem:windowsce,2.00\r
+CELIBPATH = $(CELIBDLLDIR)\$(MACHINE)-release\r
+LDLIBPATH = -libpath:$(CELIBPATH)\r
+STARTOBJS = $(CECONSOLEDIR)/$(MACHINE)/wmain.obj \\r
+ $(CECONSOLEDIR)/$(MACHINE)/w32console.obj\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-sh3-hpc-wce200"\r
+CC = shcl.exe\r
+ARCH = SH3\r
+CPU = SH3\r
+TARGETCPU = SH3\r
+CEVersion = 200\r
+OSVERSION = WCE200\r
+PLATFORM = MS HPC\r
+# MUST USE -MD to get the right FPE stuff...\r
+MCFLAGS = -D _MT -D _DLL -MD \\r
+ -D SH3 -D sh3 -D _SH3_ -D _sh3_ -D SHx -DPROCESSOR_SH3 \\r
+ -D PALM_SIZE \\r
+ -I $(CELIBDLLDIR)\inc\r
+SUBSYS = -subsystem:windowsce,2.00\r
+CELIBPATH = $(CELIBDLLDIR)\$(MACHINE)-release\r
+LDLIBPATH = -libpath:$(CELIBPATH)\r
+STARTOBJS = $(CECONSOLEDIR)/$(MACHINE)/wmain.obj \\r
+ $(CECONSOLEDIR)/$(MACHINE)/w32console.obj\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-arm-hpc-wce211"\r
+CC = clarm.exe\r
+ARCH = ARM\r
+CPU = ARM\r
+TARGETCPU = ARM\r
+CEVersion = 211\r
+OSVERSION = WCE211\r
+PLATFORM = MS HPC Pro\r
+MCFLAGS = -D _MT -D _DLL -D ARM -D arm -D _arm_ -D _ARM_ \\r
+ -DPROCESSOR_ARM -DPALM_SIZE \\r
+ -I $(CELIBDLLDIR)\inc\r
+SUBSYS = -subsystem:windowsce,2.11\r
+CELIBPATH = $(CELIBDLLDIR)\$(MACHINE)-release\r
+LDLIBPATH = -libpath:$(CELIBPATH)\r
+STARTOBJS = $(CECONSOLEDIR)/$(MACHINE)/wmain.obj \\r
+ $(CECONSOLEDIR)/$(MACHINE)/w32console.obj\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-arm-hpc-wce300"\r
+CC = clarm.exe\r
+ARCH = ARM\r
+CPU = ARM\r
+TARGETCPU = ARM\r
+CEVersion = 300\r
+OSVERSION = WCE300\r
+PLATFORM = HPC2000\r
+MCFLAGS = -D _MT -D _DLL -D ARM -D arm -D _arm_ -D _ARM_ \\r
+ -DPROCESSOR_ARM -DPALM_SIZE \\r
+ -I $(CELIBDLLDIR)\inc\r
+SUBSYS = -subsystem:windowsce,3.00\r
+CELIBPATH = $(CELIBDLLDIR)\$(MACHINE)-release\r
+LDLIBPATH = -libpath:$(CELIBPATH)\r
+STARTOBJS = $(CECONSOLEDIR)/$(MACHINE)/wmain.obj \\r
+ $(CECONSOLEDIR)/$(MACHINE)/w32console.obj\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-mips-palm-wce211"\r
+CC = clmips.exe\r
+ARCH = MIPS\r
+CPU = MIPS\r
+TARGETCPU = MIPS\r
+CEVersion = 211\r
+OSVERSION = WCE211\r
+PLATFORM = MS Palm Size PC\r
+MCFLAGS = -DMIPS -D_MIPS_ -DPROCESSOR_MIPS -D PALM_SIZE -D _DLL -D _MT \\r
+ -I $(CELIBDLLDIR)\inc\r
+SUBSYS = -subsystem:windowsce,2.11\r
+CELIBPATH = $(CELIBDLLDIR)\$(MACHINE)-release\r
+LDLIBPATH = -libpath:$(CELIBPATH)\r
+STARTOBJS = $(CECONSOLEDIR)/$(MACHINE)/wmain.obj \\r
+ $(CECONSOLEDIR)/$(MACHINE)/w32console.obj\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-sh3-palm-wce211"\r
+CC = shcl.exe\r
+ARCH = SH3\r
+CPU = SH3\r
+TARGETCPU = SH3\r
+CEVersion = 211\r
+OSVERSION = WCE211\r
+PLATFORM = MS Palm Size PC\r
+MCFLAGS = -D _MT -D _DLL -DSH3 -D_SH3_ -DSHx -DPROCESSOR_SH3 -DPALM_SIZE \\r
+ -I $(CELIBDLLDIR)\inc\r
+SUBSYS = -subsystem:windowsce,2.11\r
+CELIBPATH = $(CELIBDLLDIR)\$(MACHINE)-release\r
+LDLIBPATH = -libpath:$(CELIBPATH)\r
+STARTOBJS = $(CECONSOLEDIR)/$(MACHINE)/wmain.obj \\r
+ $(CECONSOLEDIR)/$(MACHINE)/w32console.obj\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-x86em-palm-wce211"\r
+CC = cl.exe\r
+ARCH = X86EM\r
+CPU = X86\r
+TARGETCPU = X86\r
+CEVersion = 211\r
+OSVERSION = WCE211\r
+PLATFORM = MS Palm Size PC\r
+MCFLAGS = -MDd -DX86 -D_X86_ -DPROCESSOR_X86 \\r
+ -D_WIN32_WCE_EMULATION -DPALM_SIZE \\r
+ -I $(CELIBDLLDIR)\inc\r
+MACH = -machine:x86\r
+SUBSYS = -subsystem:windows\r
+CELIBPATH = $(CELIBDLLDIR)\$(MACHINE)-release\r
+LDLIBPATH = -libpath:$(CELIBPATH)\r
+STARTOBJS = $(CECONSOLEDIR)/$(MACHINE)/wmain.obj \\r
+ $(CECONSOLEDIR)/$(MACHINE)/w32console.obj\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-x86em-pocket-wce300"\r
+CC = cl.exe\r
+ARCH = X86EM\r
+CPU = X86\r
+TARGETCPU = X86\r
+CEVersion = 300\r
+OSVERSION = WCE300\r
+PLATFORM = MS Pocket PC\r
+MCFLAGS = -DX86 -D_X86_ -DPROCESSOR_X86 -D _MT -D _DLL \\r
+ -D_WIN32_WCE_EMULATION -DPALM_SIZE -DPOCKET_SIZE \\r
+ -I $(CELIBDLLDIR)\inc \r
+MACH = -machine:x86\r
+SUBSYS = -subsystem:windows\r
+CELIBPATH = $(CELIBDLLDIR)\$(MACHINE)-release\r
+LDLIBPATH = -libpath:$(CELIBPATH)\r
+STARTOBJS = $(CECONSOLEDIR)/$(MACHINE)/wmain.obj \\r
+ $(CECONSOLEDIR)/$(MACHINE)/w32console.obj\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-mips-pocket-wce300"\r
+CC = clmips.exe\r
+ARCH = MIPS\r
+CPU = MIPS\r
+TARGETCPU = MIPS\r
+CEVersion = 300\r
+OSVERSION = WCE300\r
+PLATFORM = MS Pocket PC\r
+MCFLAGS = -D MIPS -D mips -D _MIPS_ -D _mips_ -DPROCESSOR_MIPS \\r
+ -D _MT -D _DLL -DPALM_SIZE -DPOCKET_SIZE \\r
+ -I $(CELIBDLLDIR)\inc \r
+MACH = -machine:mips\r
+SUBSYS = -subsystem:windowsce,3.00\r
+CELIBPATH = $(CELIBDLLDIR)\$(MACHINE)-release\r
+LDLIBPATH = -libpath:$(CELIBPATH)\r
+STARTOBJS = $(CECONSOLEDIR)/$(MACHINE)/wmain.obj \\r
+ $(CECONSOLEDIR)/$(MACHINE)/w32console.obj\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-sh3-pocket-wce300"\r
+CC = shcl.exe\r
+ARCH = SH3\r
+CPU = SH3\r
+TARGETCPU = SH3\r
+CEVersion = 300\r
+OSVERSION = WCE300\r
+PLATFORM = MS Pocket PC\r
+MCFLAGS = -D _MT -D _DLL -DSH3 -D_SH3_ -DSHx -DPROCESSOR_SH3 \\r
+ -DPALM_SIZE -DPOCKET_SIZE \\r
+ -I $(CELIBDLLDIR)\inc \r
+MACH = -machine:mips\r
+SUBSYS = -subsystem:windowsce,3.00\r
+CELIBPATH = $(CELIBDLLDIR)\$(MACHINE)-release\r
+LDLIBPATH = -libpath:$(CELIBPATH)\r
+STARTOBJS = $(CECONSOLEDIR)/$(MACHINE)/wmain.obj \\r
+ $(CECONSOLEDIR)/$(MACHINE)/w32console.obj\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-arm-pocket-wce300"\r
+CC = clarm.exe\r
+ARCH = ARM\r
+CPU = ARM\r
+TARGETCPU = ARM\r
+CEVersion = 300\r
+OSVERSION = WCE300\r
+PLATFORM = MS Pocket PC\r
+MCFLAGS = -D ARM -D arm -D _ARM_ -D _arm_ -DPROCESSOR_ARM \\r
+ -D _MT -D _DLL -DPALM_SIZE -DPOCKET_SIZE \\r
+ -I $(CELIBDLLDIR)\inc \r
+MACH = -machine:arm\r
+SUBSYS = -subsystem:windowsce,3.00\r
+CELIBPATH = $(CELIBDLLDIR)\$(MACHINE)-release\r
+LDLIBPATH = -libpath:$(CELIBPATH)\r
+STARTOBJS = $(CECONSOLEDIR)/$(MACHINE)/wmain.obj \\r
+ $(CECONSOLEDIR)/$(MACHINE)/w32console.obj\r
+!endif\r
+\r
+######################################################################\r
+# common section\r
+\r
+CEDEFS = -D_WINDOWS -D_WIN32_WCE=$(CEVersion) -DUNDER_CE=$(CEVersion) \\r
+ $(MCFLAGS) \r
+#CEDEFS = $(CEDEFS) -DDEBUGGING_OPS\r
+\r
+CECFLAGS = $(CEDEFS)\r
+\r
+!if "$(CFG)" == "DEBUG"\r
+CECFLAGS = $(CECFLAGS) -Zi -Od\r
+!endif\r
+\r
+!if "$(CFG)" == "RELEASE"\r
+# -O2 and -Ot give internal compiler error in perl.c and lexer.\r
+# Also the dll cannot be loaded by perl.exe...\r
+CECFLAGS = $(CECFLAGS)\r
+!endif\r
+\r
+RCDEFS = /l 0x407 /r /d "UNICODE" /d UNDER_CE=$(CEVersion) \\r
+ /d _WIN32_WCE=$(CEVersion)\r
+\r
+PATH=$(CEPATH);$(PATH)\r
+\r
+INCLUDE=$(WCEROOT)\$(OSVERSION)\$(PLATFORM)\include\r
+LIB=$(WCEROOT)\$(OSVERSION)\$(PLATFORM)\lib\$(ARCH)\r
+\r
+######################################################################\r
+\r
+!message\r
+!message Compiling for $(MACHINE)\r
+!message LIB=$(LIB)\r
+!message INCLUDE=$(INCLUDE)\r
+!message PATH=$(CEPATH)\r
+!message\r
+\r
+######################################################################\r
+#\r
+# Additional compiler flags can be specified here.\r
+#\r
+\r
+BUILDOPT = $(BUILDOPT) $(CECFLAGS)\r
+\r
+##################### CHANGE THESE ONLY IF YOU MUST #####################\r
+\r
+!IF "$(CRYPT_SRC)$(CRYPT_LIB)" == ""\r
+D_CRYPT = undef\r
+!ELSE\r
+D_CRYPT = define\r
+CRYPT_FLAG = -DHAVE_DES_FCRYPT\r
+!ENDIF\r
+\r
+!IF "$(USE_OBJECT)" == "define"\r
+PERL_MALLOC = undef\r
+USE_5005THREADS = undef\r
+USE_MULTI = undef\r
+USE_IMP_SYS = define\r
+!ENDIF\r
+\r
+!IF "$(PERL_MALLOC)" == ""\r
+PERL_MALLOC = undef\r
+!ENDIF\r
+\r
+!IF "$(USE_5005THREADS)" == ""\r
+USE_5005THREADS = undef\r
+!ENDIF\r
+\r
+!IF "$(USE_5005THREADS)" == "define"\r
+USE_ITHREADS = undef\r
+!ENDIF\r
+\r
+!IF "$(USE_IMP_SYS)" == "define"\r
+PERL_MALLOC = undef\r
+!ENDIF\r
+\r
+!IF "$(USE_MULTI)" == ""\r
+USE_MULTI = undef\r
+!ENDIF\r
+\r
+!IF "$(USE_OBJECT)" == ""\r
+USE_OBJECT = undef\r
+!ENDIF\r
+\r
+!IF "$(USE_ITHREADS)" == ""\r
+USE_ITHREADS = undef\r
+!ENDIF\r
+\r
+!IF "$(USE_IMP_SYS)" == ""\r
+USE_IMP_SYS = undef\r
+!ENDIF\r
+\r
+!IF "$(USE_PERLCRT)" == ""\r
+USE_PERLCRT = undef\r
+!ENDIF\r
+\r
+!IF "$(USE_IMP_SYS)$(USE_MULTI)$(USE_5005THREADS)$(USE_OBJECT)" == "defineundefundefundef"\r
+USE_MULTI = define\r
+!ENDIF\r
+\r
+!IF "$(USE_ITHREADS)$(USE_MULTI)$(USE_OBJECT)" == "defineundefundef"\r
+USE_MULTI = define\r
+USE_5005THREADS = undef\r
+!ENDIF\r
+\r
+!IF "$(USE_MULTI)$(USE_5005THREADS)$(USE_OBJECT)" != "undefundefundef"\r
+BUILDOPT = $(BUILDOPT) -DPERL_IMPLICIT_CONTEXT\r
+!ENDIF\r
+\r
+!IF "$(USE_IMP_SYS)" != "undef"\r
+BUILDOPT = $(BUILDOPT) -DPERL_IMPLICIT_SYS\r
+!ENDIF\r
+\r
+# new option - automatically defined in perl.h...\r
+#BUILDOPT = $(BUILDOPT) -DUSE_ENVIRON_ARRAY\r
+\r
+PROCESSOR_ARCHITECTURE = $(TARGETCPU)\r
+ARCHNAME = $(PLATFORM)-$(OSVERSION)-$(PROCESSOR_ARCHITECTURE)\r
+# unused yet\r
+ARCHDIR = ..\lib\$(ARCHNAME)\r
+COREDIR = ..\lib\CORE\r
+AUTODIR = ..\lib\auto\r
+LIBDIR = ..\lib\r
+EXTDIR = ..\ext\r
+PODDIR = ..\pod\r
+EXTUTILSDIR = $(LIBDIR)\ExtUtils\r
+\r
+LINK32 = link\r
+LIB32 = $(LINK32) -lib\r
+RSC = rc\r
+\r
+INCLUDES = -I.\include -I. -I..\r
+DEFINES = -DWIN32 -D_CONSOLE -DNO_STRICT $(CRYPT_FLAG) $(CECFLAGS)\r
+LOCDEFS = -DPERLDLL -DPERL_CORE\r
+CXX_FLAG = -TP -GX\r
+\r
+PERLEXE_RES = perl.res\r
+PERLDLL_RES =\r
+\r
+!IF "$(USE_OBJECT)" == "define"\r
+OPTIMIZE = $(OPTIMIZE) $(CXX_FLAG)\r
+BUILDOPT = $(BUILDOPT) -DPERL_OBJECT\r
+!ENDIF\r
+\r
+!if "$(CFG)" == "RELEASE"\r
+CELIB = celib.lib\r
+!endif\r
+\r
+!if "$(CFG)" == "DEBUG"\r
+CELIB = celib.lib\r
+!endif\r
+\r
+CELIBS = -nodefaultlib \\r
+ winsock.lib $(CELIB) coredll.lib\r
+\r
+!if $(CEVersion) > 200\r
+CELIBS = $(CELIBS) corelibc.lib \r
+!else\r
+CELIBS = $(CELIBS) msvcrt.lib \r
+!endif\r
+\r
+LIBBASEFILES = $(CRYPT_LIB) $(CELIBS)\r
+\r
+LIBFILES = $(LIBBASEFILES) $(LIBC)\r
+\r
+CFLAGS = -nologo -Gf -W3 $(INCLUDES) $(DEFINES) $(LOCDEFS) \\r
+ $(PCHFLAGS) $(OPTIMIZE)\r
+\r
+LINK_FLAGS = -nologo -machine:$(PROCESSOR_ARCHITECTURE)\r
+\r
+!if "$(CFG)" == "DEBUG"\r
+LINK_FLAGS = $(LINK_FLAGS) -debug:full -pdb:none \r
+!endif\r
+\r
+OBJOUT_FLAG = -Fo\r
+EXEOUT_FLAG = -Fe\r
+\r
+CFLAGS_O = $(CFLAGS) $(BUILDOPT)\r
+\r
+o = .obj\r
+\r
+#\r
+# Rules\r
+# \r
+\r
+.SUFFIXES : .c $(o) .dll .lib .exe .rc .res\r
+\r
+.c$(o):\r
+ $(CC) -c -I$(<D) $(CFLAGS_O) $(OBJOUT_FLAG)$@ $<\r
+\r
+.y.c:\r
+ $(NOOP)\r
+\r
+$(o).dll:\r
+ $(LINK32) -dll $(SUBSYS) $(LDLIBPATH) \\r
+ -implib:$(*B).lib -def:$(*B).def \\r
+ -out:$@ $(LINK_FLAGS) $(LIBFILES) $< $(LIBPERL) \r
+\r
+.rc.res:\r
+ $(RSC) -i.. $<\r
+\r
+# This must be relative to ../lib/CORE, else the ext dll build fails...\r
+PERLIMPLIB_EXP = ..\..\wince\$(MACHINE)\perl$(PV).lib\r
+PERLIMPLIB = $(PERLCEDIR)\$(MACHINE)\perl$(PV).lib\r
+PERLDLL = $(MACHINE)\perl$(PV).dll\r
+\r
+DLLDIR = $(MACHINE)\dll\r
+PERLEXE = $(MACHINE)\perl.exe\r
+\r
+CONFIGPM = ..\lib\Config.pm\r
+MINIMOD = ..\lib\ExtUtils\Miniperl.pm\r
+\r
+MAKE = nmake -nologo\r
+\r
+CFGSH_TMPL = config.ce\r
+CFGH_TMPL = config_H.ce\r
+\r
+#\r
+# filenames given to xsubpp must have forward slashes (since it puts\r
+# full pathnames in #line strings)\r
+XSUBPP = $(NTPERL) -I..\..\lib ..\$(EXTUTILSDIR)\xsubpp \\r
+ -C++ -prototypes\r
+\r
+MICROCORE_SRC = \\r
+ ..\av.c \\r
+ ..\deb.c \\r
+ ..\doio.c \\r
+ ..\doop.c \\r
+ ..\dump.c \\r
+ ..\globals.c \\r
+ ..\gv.c \\r
+ ..\hv.c \\r
+ ..\mg.c \\r
+ ..\op.c \\r
+ ..\perl.c \\r
+ ..\perlapi.c \\r
+ ..\perly.c \\r
+ ..\pp.c \\r
+ ..\pp_ctl.c \\r
+ ..\pp_hot.c \\r
+ ..\pp_sys.c \\r
+ ..\regcomp.c \\r
+ ..\regexec.c \\r
+ ..\run.c \\r
+ ..\scope.c \\r
+ ..\sv.c \\r
+ ..\taint.c \\r
+ ..\toke.c \\r
+ ..\universal.c \\r
+ ..\utf8.c \\r
+ ..\util.c \\r
+ ..\xsutils.c\r
+\r
+EXTRACORE_SRC = $(EXTRACORE_SRC) perllib.c\r
+\r
+!IF "$(PERL_MALLOC)" == "define"\r
+EXTRACORE_SRC = $(EXTRACORE_SRC) ..\malloc.c\r
+!ENDIF\r
+\r
+!IF "$(USE_OBJECT)" != "define"\r
+EXTRACORE_SRC = $(EXTRACORE_SRC) ..\perlio.c\r
+!ENDIF\r
+\r
+WIN32_SRC = \\r
+ .\wince.c \\r
+ .\wincesck.c \\r
+ .\win32thread.c \r
+\r
+!IF "$(CRYPT_SRC)" != ""\r
+WIN32_SRC = $(WIN32_SRC) .\$(CRYPT_SRC)\r
+!ENDIF\r
+\r
+DLL_SRC = $(DYNALOADER).c\r
+\r
+CORE_NOCFG_H = \\r
+ ..\av.h \\r
+ ..\cop.h \\r
+ ..\cv.h \\r
+ ..\dosish.h \\r
+ ..\embed.h \\r
+ ..\form.h \\r
+ ..\gv.h \\r
+ ..\handy.h \\r
+ ..\hv.h \\r
+ ..\iperlsys.h \\r
+ ..\mg.h \\r
+ ..\nostdio.h \\r
+ ..\op.h \\r
+ ..\opcode.h \\r
+ ..\perl.h \\r
+ ..\perlapi.h \\r
+ ..\perlsdio.h \\r
+ ..\perlsfio.h \\r
+ ..\perly.h \\r
+ ..\pp.h \\r
+ ..\proto.h \\r
+ ..\regexp.h \\r
+ ..\scope.h \\r
+ ..\sv.h \\r
+ ..\thread.h \\r
+ ..\unixish.h \\r
+ ..\utf8.h \\r
+ ..\util.h \\r
+ ..\warnings.h \\r
+ ..\XSUB.h \\r
+ ..\EXTERN.h \\r
+ ..\perlvars.h \\r
+ ..\intrpvar.h \\r
+ ..\thrdvar.h \\r
+ .\include\dirent.h \\r
+ .\include\netdb.h \\r
+ .\include\sys\socket.h \\r
+ .\win32.h\r
+\r
+!IF "$(USE_SETARGV)" != ""\r
+SETARGV_OBJ = setargv$(o)\r
+!ENDIF\r
+\r
+DYNAMIC_EXT = Socket IO Fcntl Opcode SDBM_File POSIX attrs Thread B re \\r
+ Data/Dumper Devel/Peek ByteLoader Devel/DProf File/Glob \\r
+ Sys/Hostname\r
+\r
+STATIC_EXT = DynaLoader\r
+NONXS_EXT = Errno\r
+\r
+DYNALOADER = $(EXTDIR)\DynaLoader\DynaLoader\r
+SOCKET = $(EXTDIR)\Socket\Socket\r
+IO = $(EXTDIR)\IO\IO\r
+DUMPER = $(EXTDIR)\Data\Dumper\Dumper\r
+#\r
+FCNTL = $(EXTDIR)\Fcntl\Fcntl\r
+OPCODE = $(EXTDIR)\Opcode\Opcode\r
+SDBM_FILE = $(EXTDIR)\SDBM_File\SDBM_File\r
+POSIX = $(EXTDIR)\POSIX\POSIX\r
+ATTRS = $(EXTDIR)\attrs\attrs\r
+THREAD = $(EXTDIR)\Thread\Thread\r
+B = $(EXTDIR)\B\B\r
+RE = $(EXTDIR)\re\re\r
+ERRNO = $(EXTDIR)\Errno\Errno\r
+PEEK = $(EXTDIR)\Devel\Peek\Peek\r
+BYTELOADER = $(EXTDIR)\ByteLoader\ByteLoader\r
+DPROF = $(EXTDIR)\Devel\DProf\DProf\r
+GLOB = $(EXTDIR)\File\Glob\Glob\r
+HOSTNAME = $(EXTDIR)\Sys\Hostname\Hostname\r
+SOCKET_DLL = $(AUTODIR)\Socket\Socket.dll\r
+FCNTL_DLL = $(AUTODIR)\Fcntl\Fcntl.dll\r
+OPCODE_DLL = $(AUTODIR)\Opcode\Opcode.dll\r
+SDBM_FILE_DLL = $(AUTODIR)\SDBM_File\SDBM_File.dll\r
+IO_DLL = $(AUTODIR)\IO\IO.dll\r
+POSIX_DLL = $(AUTODIR)\POSIX\POSIX.dll\r
+ATTRS_DLL = $(AUTODIR)\attrs\attrs.dll\r
+THREAD_DLL = $(AUTODIR)\Thread\Thread.dll\r
+B_DLL = $(AUTODIR)\B\B.dll\r
+DUMPER_DLL = $(AUTODIR)\Data\Dumper\Dumper.dll\r
+PEEK_DLL = $(AUTODIR)\Devel\Peek\Peek.dll\r
+RE_DLL = $(AUTODIR)\re\re.dll\r
+BYTELOADER_DLL = $(AUTODIR)\ByteLoader\ByteLoader.dll\r
+DPROF_DLL = $(AUTODIR)\Devel\DProf\DProf.dll\r
+GLOB_DLL = $(AUTODIR)\File\Glob\Glob.dll\r
+HOSTNAME_DLL = $(AUTODIR)\Sys\Hostname\Hostname.dll\r
+\r
+ERRNO_PM = $(LIBDIR)\Errno.pm\r
+\r
+EXTENSION_C = \\r
+ $(SOCKET).c \\r
+ $(FCNTL).c \\r
+ $(OPCODE).c \\r
+ $(SDBM_FILE).c \\r
+ $(IO).c \\r
+ $(POSIX).c \\r
+ $(ATTRS).c \\r
+ $(THREAD).c \\r
+ $(RE).c \\r
+ $(DUMPER).c \\r
+ $(PEEK).c \\r
+ $(B).c \\r
+ $(BYTELOADER).c \\r
+ $(DPROF).c \\r
+ $(GLOB).c \\r
+ $(HOSTNAME).c\r
+\r
+EXTENSION_DLL = \\r
+ $(SOCKET_DLL) \\r
+ $(FCNTL_DLL) \\r
+ $(OPCODE_DLL) \\r
+ $(SDBM_FILE_DLL)\\r
+ $(IO_DLL) \\r
+ $(POSIX_DLL) \\r
+ $(ATTRS_DLL) \\r
+ $(DUMPER_DLL) \\r
+ $(PEEK_DLL) \\r
+ $(B_DLL) \\r
+ $(RE_DLL) \\r
+ $(THREAD_DLL) \\r
+ $(BYTELOADER_DLL) \\r
+ $(DPROF_DLL) \\r
+ $(GLOB_DLL) \\r
+ $(HOSTNAME_DLL)\r
+\r
+EXTENSION_PM = \\r
+ $(ERRNO_PM)\r
+\r
+POD2HTML = $(PODDIR)\pod2html\r
+POD2MAN = $(PODDIR)\pod2man\r
+POD2LATEX = $(PODDIR)\pod2latex\r
+POD2TEXT = $(PODDIR)\pod2text\r
+\r
+CFG_VARS = \\r
+ "INST_DRV=$(INST_DRV)" \\r
+ "INST_TOP=$(INST_TOP)" \\r
+ "INST_VER=$(INST_VER)" \\r
+ "INST_ARCH=$(INST_ARCH)" \\r
+ "archname=$(ARCHNAME)" \\r
+ "cc=$(CC)" \\r
+ "ccflags=$(OPTIMIZE) $(DEFINES) $(BUILDOPT)" \\r
+ "cf_by=Rainer Keuchel" \\r
+ "cf_email=coyxc@rainer-keuchel.de" \\r
+ "d_crypt=$(D_CRYPT)" \\r
+ "d_mymalloc=$(PERL_MALLOC)" \\r
+ "libs=$(LIBFILES)" \\r
+ "incpath=$(CCINCDIR)" \\r
+ "libperl=$(PERLIMPLIB_EXP)" \\r
+ "libpth=$(LIBPATH)" \\r
+ "libc=$(LIBC)" \\r
+ "make=nmake" \\r
+ "static_ext=$(STATIC_EXT)" \\r
+ "dynamic_ext=$(DYNAMIC_EXT)" \\r
+ "nonxs_ext=$(NONXS_EXT)" \\r
+ "use5005threads=$(USE_5005THREADS)" \\r
+ "useithreads=$(USE_ITHREADS)" \\r
+ "usethreads=$(USE_5005THREADS)" \\r
+ "usemultiplicity=$(USE_MULTI)" \\r
+ "LINK_FLAGS=$(LDLIBPATH) $(LINK_FLAGS) $(SUBSYS)" \\r
+ "optimize=$(OPTIMIZE)"\r
+\r
+#\r
+# Top targets\r
+#\r
+\r
+all: $(MINIMOD) $(CONFIGPM) $(PERLEXE)\r
+\r
+$(DYNALOADER)$(o) : $(DYNALOADER).c $(CORE_H) $(EXTDIR)\DynaLoader\dlutils.c\r
+\r
+$(CONFIGPM): config.h ..\config.sh ..\minimod.pl\r
+ cd .. && $(NTPERL) configpm\r
+ -mkdir $(COREDIR)\r
+ $(XCOPY) ..\*.h $(COREDIR)\*.*\r
+ $(XCOPY) *.h $(COREDIR)\*.*\r
+ $(XCOPY) ..\ext\re\re.pm $(LIBDIR)\*.*\r
+ $(RCOPY) include $(COREDIR)\*.*\r
+ $(NTPERL) -I..\lib config_h.PL "INST_VER=$(INST_VER)"\r
+\r
+..\config.sh config.h: config.ce config_sh.PL\r
+ $(NTPERL) -I..\lib config_sh.PL $(CFG_VARS) config.ce > ..\config.sh\r
+\r
+$(MINIMOD) : ..\minimod.pl\r
+ cd .. && $(NTPERL) minimod.pl > lib\ExtUtils\Miniperl.pm\r
+\r
+perlmain.c : runperl.c \r
+ $(COPY) runperl.c perlmain.c\r
+\r
+$(DYNALOADER).c: $(EXTDIR)\DynaLoader\dl_win32.xs $(CONFIGPM)\r
+ if not exist $(AUTODIR) mkdir $(AUTODIR)\r
+ cd $(EXTDIR)\$(*B)\r
+ $(NTPERL) -I..\..\lib $(*B)_pm.PL\r
+ $(NTPERL) -I..\..\lib XSLoader_pm.PL\r
+ cd ..\..\wince\r
+ $(XCOPY) $(EXTDIR)\$(*B)\$(*B).pm $(LIBDIR)\$(NULL)\r
+ $(XCOPY) $(EXTDIR)\$(*B)\XSLoader.pm $(LIBDIR)\$(NULL)\r
+ cd $(EXTDIR)\$(*B)\r
+ $(XSUBPP) dl_win32.xs > $(*B).c\r
+ cd ..\..\wince\r
+\r
+$(EXTDIR)\DynaLoader\dl_win32.xs: dl_win32.xs\r
+ $(COPY) dl_win32.xs $(EXTDIR)\DynaLoader\dl_win32.xs\r
+\r
+$(DUMPER_DLL): $(PERLEXE) $(DUMPER).xs\r
+ cd $(EXTDIR)\Data\$(*B)\r
+ $(NTPERL) -I..\..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\..\wince\r
+\r
+$(DPROF_DLL): $(PERLEXE) $(DPROF).xs\r
+ cd $(EXTDIR)\Devel\$(*B)\r
+ $(NTPERL) -I..\..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\..\wince\r
+\r
+$(GLOB_DLL): $(PERLEXE) $(GLOB).xs\r
+ cd $(EXTDIR)\File\$(*B)\r
+ $(NTPERL) -I..\..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\..\wince\r
+\r
+$(PEEK_DLL): $(PERLEXE) $(PEEK).xs\r
+ cd $(EXTDIR)\Devel\$(*B)\r
+ $(NTPERL) -I..\..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\..\wince\r
+\r
+$(RE_DLL): $(PERLEXE) $(RE).xs\r
+ cd $(EXTDIR)\$(*B)\r
+ $(NTPERL) -I..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\wince\r
+\r
+$(B_DLL): $(PERLEXE) $(B).xs\r
+ cd $(EXTDIR)\$(*B)\r
+ $(NTPERL) -I..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\wince\r
+\r
+$(THREAD_DLL): $(PERLEXE) $(THREAD).xs\r
+ cd $(EXTDIR)\$(*B)\r
+ $(NTPERL) -I..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\wince\r
+\r
+$(ATTRS_DLL): $(PERLEXE) $(ATTRS).xs\r
+ cd $(EXTDIR)\$(*B)\r
+ $(NTPERL) -I..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\wince\r
+\r
+$(POSIX_DLL): $(PERLEXE) $(POSIX).xs\r
+ cd $(EXTDIR)\$(*B)\r
+ $(NTPERL) -I..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\wince\r
+\r
+$(IO_DLL): $(PERLEXE) $(IO).xs\r
+ cd $(EXTDIR)\$(*B)\r
+ $(NTPERL) -I..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\wince\r
+\r
+$(SDBM_FILE_DLL) : $(PERLEXE) $(SDBM_FILE).xs\r
+ cd $(EXTDIR)\$(*B)\r
+ $(NTPERL) -I..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\wince\r
+\r
+$(FCNTL_DLL): $(PERLEXE) $(FCNTL).xs\r
+ cd $(EXTDIR)\$(*B)\r
+ $(NTPERL) -I..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\wince\r
+\r
+$(OPCODE_DLL): $(PERLEXE) $(OPCODE).xs\r
+ cd $(EXTDIR)\$(*B)\r
+ $(NTPERL) -I..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\wince\r
+\r
+$(SOCKET_DLL): $(PERLEXE) $(SOCKET).xs\r
+ cd $(EXTDIR)\$(*B)\r
+ $(NTPERL) -I..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\wince\r
+\r
+$(HOSTNAME_DLL): $(PERLEXE) $(HOSTNAME).xs\r
+ cd $(EXTDIR)\Sys\$(*B)\r
+ $(NTPERL) -I..\..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\..\wince\r
+\r
+$(BYTELOADER_DLL): $(PERLEXE) $(BYTELOADER).xs\r
+ cd $(EXTDIR)\$(*B)\r
+ $(NTPERL) -I..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\wince\r
+\r
+$(ERRNO_PM): $(PERLEXE) $(ERRNO)_pm.PL\r
+ cd $(EXTDIR)\$(*B)\r
+ $(NTPERL) -I..\..\lib Makefile.PL INSTALLDIRS=perl\r
+ $(MAKE)\r
+ cd ..\..\wince\r
+\r
+$(PERLEXE_RES): perl.rc\r
+ rc $(RCDEFS) perl.rc\r
+\r
+clean: \r
+ -rm -f $(MACHINE)/dll/*\r
+ -rm -f $(MACHINE)/*.obj\r
+ -rm -f $(MACHINE)/*.exe\r
+ -rm -f $(MACHINE)/*.dll\r
+ -rm -f $(MACHINE)/*.lib\r
+ -rm -f ../config.sh ../lib/Config.pm\r
+ -rm -f config.h perl.res\r
+\r
+!if "$(MACHINE)" == "wince-sh3-hpc"\r
+install_perlexe: $(PERLEXE)\r
+ cedel /speicherkarte2/bin/perl.exe\r
+ cecopy pc:../perl.exe ce:/speicherkarte2/bin\r
+\r
+install_perldll: $(PERLDLL)\r
+ cedel /speicherkarte2/bin/perl$(PV).dll\r
+ cecopy pc:../perl$(PV).dll ce:/speicherkarte2/bin\r
+\r
+install_perl: install_perlexe install_perldll\r
+\r
+test_perl:\r
+ cecopy pc:test.pl ce:/speicherkarte2/bin\r
+ ceexec /speicherkarte2/bin/perl.exe /speicherkarte2/bin/test.pl\r
+# ceexec /speicherkarte2/bin/perl.exe -V\r
+\r
+install_lib: ../lib/Config.pm\r
+ cecopy pc:../lib/Config.pm ce:/speicherkarte2/usr/lib/perl5\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-arm-hpc"\r
+install_perlexe: $(PERLEXE)\r
+ -cedel /speicherkarte/bin/perl.exe\r
+ cecopy pc:$(MACHINE)/perl.exe ce:/speicherkarte/bin\r
+\r
+install_perldll: $(PERLDLL)\r
+ -cedel /speicherkarte/bin/perl$(PV).dll\r
+ cecopy pc:$(MACHINE)/perl$(PV).dll ce:/speicherkarte/bin\r
+\r
+install_perl: install_perlexe install_perldll\r
+\r
+test_perl:\r
+ cecopy pc:test.pl ce:/speicherkarte/bin\r
+ ceexec /speicherkarte/bin/perl.exe /speicherkarte/bin/test.pl\r
+# ceexec /speicherkarte2/bin/perl.exe -V\r
+\r
+install_lib: ../lib/Config.pm\r
+ cecopy pc:../lib/Config.pm ce:/speicherkarte/usr/lib/perl5\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-mips-hpc"\r
+install_perlexe: $(PERLEXE)\r
+ cecopy pc:../perl.exe ce:/netzwerk/compaq/bin\r
+\r
+install_perldll: $(PERLDLL)\r
+ cecopy pc:../perl$(PV).dll ce:/netzwerk/compaq/bin\r
+\r
+install_perl: install_perlexe install_perldll\r
+\r
+test_perl:\r
+ cecopy pc:test.pl ce:/netzwerk/compaq/bin\r
+ ceexec /netzwerk/compaq/bin/perl.exe /netzwerk/compaq/bin/test.pl\r
+# ceexec /netzwerk/compaq/bin/perl.exe -V\r
+\r
+install_lib: ../lib/Config.pm\r
+ cecopy pc:../lib/Config.pm ce:/netzwerk/compaq/usr/lib/perl5\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-x86em-pocket"\r
+install_lib:\r
+ ftpcopy ../lib/Config.pm ftp!ftp@localhost:/perl/lib\r
+ ftpcopy ../lib/Exporter.pm ftp!ftp@localhost:/perl/lib\r
+ ftpcopy ../lib/Exporter/Heavy.pm ftp!ftp@localhost:/perl/lib/Exporter\r
+\r
+install_perlexe: $(PERLEXE)\r
+ cecopy pc:../perl.exe ce:/netzwerk/compaq/bin\r
+\r
+install_perldll: $(PERLDLL)\r
+ cecopy pc:../perl$(PV).dll ce:/netzwerk/compaq/bin\r
+\r
+install_perl: install_perlexe install_perldll\r
+\r
+test_perl:\r
+ echo Not yet\r
+!endif\r
+\r
+\r
+XDLLOBJS = \\r
+$(DLLDIR)\av.obj \\r
+$(DLLDIR)\deb.obj \\r
+$(DLLDIR)\doio.obj \\r
+$(DLLDIR)\doop.obj \\r
+$(DLLDIR)\dump.obj \\r
+$(DLLDIR)\globals.obj \\r
+$(DLLDIR)\gv.obj \\r
+$(DLLDIR)\hv.obj \\r
+$(DLLDIR)\locale.obj \\r
+$(DLLDIR)\mg.obj \\r
+$(DLLDIR)\numeric.obj \\r
+$(DLLDIR)\op.obj \\r
+$(DLLDIR)\perl.obj \\r
+$(DLLDIR)\perlapi.obj \\r
+$(DLLDIR)\perlio.obj \\r
+$(DLLDIR)\perly.obj \\r
+$(DLLDIR)\pp.obj \\r
+$(DLLDIR)\pp_ctl.obj \\r
+$(DLLDIR)\pp_hot.obj \\r
+$(DLLDIR)\pp_pack.obj \\r
+$(DLLDIR)\pp_sys.obj \\r
+$(DLLDIR)\regcomp.obj \\r
+$(DLLDIR)\regexec.obj \\r
+$(DLLDIR)\run.obj \\r
+$(DLLDIR)\scope.obj \\r
+$(DLLDIR)\sv.obj \\r
+$(DLLDIR)\taint.obj \\r
+$(DLLDIR)\toke.obj \\r
+$(DLLDIR)\universal.obj \\r
+$(DLLDIR)\utf8.obj \\r
+$(DLLDIR)\util.obj \\r
+$(DLLDIR)\win32thread.obj \\r
+$(DLLDIR)\wince.obj \\r
+$(DLLDIR)\wincesck.obj \\r
+$(DLLDIR)\xsutils.obj \\r
+$(DLLDIR)\perllib.obj \\r
+$(DLLDIR)\DynaLoader.obj\r
+\r
+{$(SRCDIR)}.c{$(DLLDIR)}.obj:\r
+ $(CC) -c $(CFLAGS) -DPERL_EXTERNAL_GLOB -Fo$(DLLDIR)\ $<\r
+\r
+{$(SRCDIR)/wince}.c{$(DLLDIR)}.obj:\r
+ $(CC) -c $(CFLAGS) -DPERL_EXTERNAL_GLOB -Fo$(DLLDIR)\ $<\r
+\r
+$(PERLDLL) : $(DLLDIR) perldll.def $(XDLLOBJS) $(PERLDLL_RES)\r
+ $(LINK32) -dll -def:perldll.def -out:$@ \\r
+ $(SUBSYS) $(LDLIBPATH) \\r
+ $(LINK_FLAGS) $(LIBFILES) \\r
+ $(XDLLOBJS) $(PERLDLL_RES)\r
+\r
+$(DLLDIR) :\r
+ if not exist "$(DLLDIR)" mkdir "$(DLLDIR)"\r
+\r
+$(DLLDIR)\DynaLoader.obj: $(EXTDIR)\DynaLoader\DynaLoader.c\r
+ $(CC) -c $(CFLAGS) -DPERL_EXTERNAL_GLOB -Fo$(DLLDIR)\ \\r
+ $(EXTDIR)\DynaLoader\DynaLoader.c\r
+\r
+XPERLEXEOBJS = \\r
+$(MACHINE)\perlmain.obj\r
+\r
+$(PERLEXE) : $(PERLDLL) $(CONFIGPM) $(XPERLEXEOBJS) $(PERLEXE_RES) $(STARTOBJS)\r
+ $(LINK32) $(SUBSYS) $(LDLIBPATH) \\r
+ -entry:wWinMainCRTStartup \\r
+ -out:$(MACHINE)\perl.exe \\r
+ -stack:0x100000 $(LINK_FLAGS) $(STARTOBJS) $(XPERLEXEOBJS) \\r
+ $(PERLIMPLIB) $(PERLEXE_RES) $(LIBFILES)\r
+\r
+$(MACHINE)\perlmain.obj : perlmain.c\r
+ $(CC) $(CFLAGS_O) -UPERLDLL -Fo$(MACHINE)\ -c perlmain.c\r
+\r
+iodll: $(IO_DLL)\r
+socketdll: $(SOCKET_DLL)\r
+dumperdll: $(DUMPER_DLL)\r
+\r
+dlls: socketdll iodll dumperdll\r
+ -xmkdir -p $(MACHINE)/lib/auto/IO\r
+ cp ../lib/auto/IO/IO.bs $(MACHINE)/lib/auto/IO\r
+ cp ../lib/auto/IO/IO.dll $(MACHINE)/lib/auto/IO\r
+ -xmkdir $(MACHINE)/lib/auto/Socket\r
+ cp ../lib/auto/Socket/Socket.bs $(MACHINE)/lib/auto/Socket\r
+ cp ../lib/auto/Socket/Socket.dll $(MACHINE)/lib/auto/Socket\r
+ -xmkdir -p $(MACHINE)/lib/auto/Data/Dumper\r
+ cp ../lib/auto/Data/Dumper/Dumper.bs $(MACHINE)/lib/auto/Data/Dumper\r
+ cp ../lib/auto/Data/Dumper/Dumper.dll $(MACHINE)/lib/auto/Data/Dumper\r
+\r
+makedist: all dlls\r
+ $(COPY) $(CELIBPATH)\celib.dll $(MACHINE)\r
+ cp perl.txt $(MACHINE)\r
+ cp registry.bat $(MACHINE)\r
+ cp ../lib/Config.pm $(MACHINE)/lib\r
+ cd $(MACHINE)\r
+ rm -f perl-$(MACHINE).tar.gz\r
+ sh -c "tar cf perl-$(MACHINE).tar *.exe *.dll *.txt *.bat lib"\r
+ gzip -9 perl-$(MACHINE).tar\r
+ mv perl-$(MACHINE).tar.gz h:/freenet/new\r
+ cd ..\r
+\r
+!if "$(MACHINE)" == "wince-arm-hpc-wce300"\r
+install: all\r
+ cecopy pc:$(MACHINE)/perl.exe ce:/speicherkarte/bin\r
+ cecopy pc:$(MACHINE)/perl$(PV).dll ce:/speicherkarte/bin\r
+install_dlls: dlls\r
+ cecopy pc:../lib/auto/IO/io.dll ce:/speicherkarte/usr/lib/perl5/auto/IO/io.dll\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-arm-hpc-wce211"\r
+install: all\r
+ cecopy pc:$(MACHINE)/perl.exe ce:/speicherkarte/bin\r
+ cecopy pc:$(MACHINE)/perl$(PV).dll ce:/speicherkarte/bin\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-mips-hpc-wce211"\r
+install:\r
+ cecopy pc:$(MACHINE)/perl.exe ce:/bin\r
+ cecopy pc:$(MACHINE)/perl$(PV).dll ce:/bin\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-mips-hpc-wce200"\r
+install:\r
+ cecopy pc:$(MACHINE)/perl.exe ce:/bin\r
+ cecopy pc:$(MACHINE)/perl$(PV).dll ce:/bin\r
+!endif\r
+\r
+!if "$(MACHINE)" == "wince-sh3-hpc-wce211"\r
+install:\r
+ cecopy pc:$(MACHINE)/perl.exe ce:/speicherkarte2/bin\r
+ cecopy pc:$(MACHINE)/perl$(PV).dll ce:/speicherkarte2/bin\r
+!endif\r
--- /dev/null
+Change config.ce. The makefile will automatically generate new\r
+config.h.\r
+\r
+To generate a new Config.pm, delete config.h or\r
+touch config.ce.\r
+\r
+The socket stuff has been rewritten so fds from ceio are used. This\r
+makes it easy to use them as perl file handles.\r
+\r
+Socket and IO dlls compiled. Seem to work.\r
+\r
+The sequence for building a new target is:\r
+\r
+make clean # clean up\r
+make all # build for target\r
+\r
--- /dev/null
+NAME\r
+ PerlCE - perl for Windows CE\r
+\r
+DESCRIPTION\r
+ PerlCE is a simple port of perl to Windows CE. The program\r
+ is currently linked with a simple console window, so it also\r
+ works on non-hpc devices.\r
+\r
+ The simple stdio implementation creates the files stdin.txt,\r
+ stdout.txt and stderr.txt, so you might examine them if your\r
+ console has only a liminted number of cols.\r
+\r
+ When exitcode is non-zero, a message box appears, otherwise the\r
+ console closes, so you might have to catch an exit with\r
+ status 0 in your program to see any output.\r
+\r
+ stdout/stderr now go into the files /perl-stdout.txt and\r
+ /perl-stderr.txt.\r
+\r
+LIMITATIONS\r
+ No fork(), pipe(), popen() etc.\r
+\r
+ENVIRONMENT\r
+ All environment vars must be stored in HKLM\Environment as\r
+ strings. They are read at process startup.\r
+\r
+ PERL5LIB - Usual perl lib path (semi-list).\r
+ PATH - Semi-list for executables.\r
+ TMP - Tempdir.\r
+ UNIXROOTPATH - Root for accessing some special files,\r
+ i.e. /dev/null, /etc/services.\r
+ ROWS/COLS - Rows/cols for console.\r
+ HOME - Home directory.\r
+ CONSOLEFONTSIZE - Size for console font.\r
+\r
+ You can set these with cereg.exe, a (remote) registry editor\r
+ or via the PerlIDE.\r
+\r
+REGISTRY\r
+ To start perl by clicking on a perl source file, you have\r
+ to make the according entries in HKCR (see wince-reg.bat).\r
+ cereg.exe (which must be executed on a desktop pc with\r
+ ActiveSync) is reported not to work on some devices.\r
+ You have to create the registry entries by hand using a \r
+ registry editor.\r
+\r
+FILES\r
+ $(UNIXROOTPATH)/dev/null - nul simulation, needed for perl -V\r
+ $(UNIXROOTPATH)/etc/services - services file\r
+\r
+ /perl-stdin.txt\r
+ /perl-stdout.txt\r
+ /perl-stderr.txt \r
+\r
+PERLFILES \r
+ Only a limited set of perl files is provided in the\r
+ distribution archiv. You have to copy the original PERL5LIB\r
+ files from a perl for win32 installation and put the\r
+ distributed files into the right directories.\r
+\r
+ Do not copy any Win32/X86 dlls from your PC to the device...\r
+\r
+ The following files are a reasonable minimum if you want to do\r
+ some socket stuff:\r
+\r
+ ./auto\r
+ ./auto/DynaLoader\r
+ ./auto/DynaLoader/autosplit.ix\r
+ ./auto/DynaLoader/dl_expandspec.al\r
+ ./auto/DynaLoader/dl_findfile.al\r
+ ./auto/DynaLoader/dl_find_symbol_anywhere.al\r
+ ./auto/IO\r
+ ./auto/IO/IO.bs\r
+ ./auto/IO/IO.dll\r
+ ./auto/Socket\r
+ ./auto/Socket/Socket.bs\r
+ ./auto/Socket/Socket.dll\r
+ ./Carp\r
+ ./Carp/Heavy.pm\r
+ ./Carp.pm\r
+ ./Config.pm\r
+ ./DynaLoader.pm\r
+ ./Exporter\r
+ ./Exporter/Heavy.pm\r
+ ./Exporter.pm\r
+ ./IO\r
+ ./IO/File.pm\r
+ ./IO/Handle.pm\r
+ ./IO/Socket.pm\r
+ ./IO.pm\r
+ ./SelectSaver.pm\r
+ ./Socket.pm\r
+ ./strict.pm\r
+ ./Symbol.pm\r
+ ./warnings\r
+ ./warnings/register.pm\r
+ ./warnings.pm\r
+ ./XSLoader.pm\r
+\r
+XS\r
+ The following Win32-Methods are built-in:\r
+\r
+ newXS("Win32::GetCwd", w32_GetCwd, file);\r
+ newXS("Win32::SetCwd", w32_SetCwd, file);\r
+ newXS("Win32::GetTickCount", w32_GetTickCount, file);\r
+ newXS("Win32::GetOSVersion", w32_GetOSVersion, file);\r
+ newXS("Win32::IsWinNT", w32_IsWinNT, file);\r
+ newXS("Win32::IsWin95", w32_IsWin95, file);\r
+ newXS("Win32::IsWinCE", w32_IsWinCE, file);\r
+ newXS("Win32::CopyFile", w32_CopyFile, file);\r
+ newXS("Win32::Sleep", w32_Sleep, file);\r
+ newXS("Win32::MessageBox", w32_MessageBox, file);\r
+ newXS("Win32::GetPowerStatus", w32_GetPowerStatus, file);\r
+ newXS("Win32::GetOemInfo", w32_GetOemInfo, file);\r
+ newXS("Win32::ShellEx", w32_ShellEx, file);\r
+\r
+DLLS\r
+ In the newest version, my celib.dll is needed. Some XS dlls\r
+ might be needed. Currently, Socket and IO are provided.\r
+\r
+BUGS\r
+ Opening files for read-write is currently not supported if\r
+ they use stdio (normal perl file handles).\r
+\r
+ If you find bugs or if it does not work at all on your\r
+ device, send mail to the address below. Please report\r
+ the details of your device (processor, ceversion, \r
+ devicetype (hpc/palm/pocket)) and the date of the downloaded\r
+ files. \r
+\r
+ I currently have only a Compaq/MIPS HPC, a Jornada/SH3 HPC and\r
+ a Jornada/ARM HPC, so I can only test on these devices and\r
+ under the Emulators.\r
+\r
+INSTALLATION\r
+ This is only a suggestion...\r
+\r
+ * Unpack the tar archive on your desktop.\r
+ * Create directories /bin, /lib/perl5, /home, /dev and /etc,\r
+ possibly on a CF card with the path to the card \r
+ prepended (i.e. /memcard/bin etc).\r
+ * Copy perl.exe, perl56.dll and celib.dll from your desktop to\r
+ /bin. The dlls can also be copied to your /windows\r
+ directory, but if you use a CF card, you might want to store\r
+ them there.\r
+ * Copy the other DLLs to the corresponding auto directory.\r
+ * Copy any needed perl module-files to /lib/perl5.\r
+ * Create the registry entries.\r
+ * If you need tcp service-name resolution, create\r
+ the file "services" in /etc and put int the entries you need.\r
+\r
+ * Under WINCE200, all dlls must be copied to the windows\r
+ directory.\r
+\r
+MISC\r
+ If you think a certain XS module should be ported, send\r
+ me mail and explain why.\r
+\r
+ If you write useful scripts for perlce, please send me\r
+ a copy.\r
+\r
+TERMINAL\r
+ There are simple terminal control sequences now. See the\r
+ readme file that comes with the console program.\r
+\r
+AUTHOR\r
+ Rainer Keuchel <coyxc@rainer-keuchel.de> 2001\r
+\r
--- /dev/null
+#!perl -w
+use strict;
+
+# All the IMAGE_* structures are defined in the WINNT.H file
+# of the Microsoft Platform SDK.
+
+my %subsys = (NATIVE => 1,
+ WINDOWS => 2,
+ CONSOLE => 3,
+ POSIX => 7,
+ WINDOWSCE => 9);
+
+unless (0 < @ARGV && @ARGV < 3) {
+ printf "Usage: $0 exefile [%s]\n", join '|', sort keys %subsys;
+ exit;
+}
+
+$ARGV[1] = uc $ARGV[1] if $ARGV[1];
+unless (@ARGV == 1 || defined $subsys{$ARGV[1]}) {
+ (my $subsys = join(', ', sort keys %subsys)) =~ s/, (\w+)$/ or $1/;
+ print "Invalid subsystem $ARGV[1], please use $subsys\n";
+ exit;
+}
+
+my ($record,$magic,$signature,$offset,$size);
+open EXE, "+< $ARGV[0]" or die "Cannot open $ARGV[0]: $!\n";
+binmode EXE;
+
+# read IMAGE_DOS_HEADER structure
+read EXE, $record, 64;
+($magic,$offset) = unpack "Sx58L", $record;
+
+die "$ARGV[0] is not an MSDOS executable file.\n"
+ unless $magic == 0x5a4d; # "MZ"
+
+# read signature, IMAGE_FILE_HEADER and first WORD of IMAGE_OPTIONAL_HEADER
+seek EXE, $offset, 0;
+read EXE, $record, 4+20+2;
+($signature,$size,$magic) = unpack "Lx16Sx2S", $record;
+
+die "PE header not found" unless $signature == 0x4550; # "PE\0\0"
+
+die "Optional header is neither in NT32 nor in NT64 format"
+ unless ($size == 224 && $magic == 0x10b) || # IMAGE_NT_OPTIONAL_HDR32_MAGIC
+ ($size == 240 && $magic == 0x20b); # IMAGE_NT_OPTIONAL_HDR64_MAGIC
+
+# Offset 68 in the IMAGE_OPTIONAL_HEADER(32|64) is the 16 bit subsystem code
+seek EXE, $offset+4+20+68, 0;
+if (@ARGV == 1) {
+ read EXE, $record, 2;
+ my ($subsys) = unpack "S", $record;
+ $subsys = {reverse %subsys}->{$subsys} || "UNKNOWN($subsys)";
+ print "$ARGV[0] uses the $subsys subsystem.\n";
+}
+else {
+ print EXE pack "S", $subsys{$ARGV[1]};
+}
+close EXE;
+__END__
+
+=head1 NAME
+
+exetype - Change executable subsystem type between "Console" and "Windows"
+
+=head1 SYNOPSIS
+
+ C:\perl\bin> copy perl.exe guiperl.exe
+ C:\perl\bin> exetype guiperl.exe windows
+
+=head1 DESCRIPTION
+
+This program edits an executable file to indicate which subsystem the
+operating system must invoke for execution.
+
+You can specify any of the following subsystems:
+
+=over
+
+=item CONSOLE
+
+The CONSOLE subsystem handles a Win32 character-mode application that
+use a console supplied by the operating system.
+
+=item WINDOWS
+
+The WINDOWS subsystem handles an application that does not require a
+console and creates its own windows, if required.
+
+=item NATIVE
+
+The NATIVE subsystem handles a Windows NT device driver.
+
+=item WINDOWSCE
+
+The WINDOWSCE subsystem handles Windows CE consumer electronics
+applications.
+
+=item POSIX
+
+The POSIX subsystem handles a POSIX application in Windows NT.
+
+=back
+
+=head1 AUTHOR
+
+Jan Dubois <jand@activestate.com>
+
+=cut
--- /dev/null
+#!perl -w
+use File::DosGlob;
+$| = 1;
+while (@ARGV) {
+ my $arg = shift;
+ my @m = File::DosGlob::doglob(1,$arg);
+ print (@m ? join("\0", sort @m) : $arg);
+ print "\0" if @ARGV;
+}
+__END__
+
+=head1 NAME
+
+perlglob.bat - a more capable perlglob.exe replacement
+
+=head1 SYNOPSIS
+
+ @perlfiles = glob "..\\pe?l/*.p?";
+ print <..\\pe?l/*.p?>;
+
+ # more efficient version
+ > perl -MFile::DosGlob=glob -e "print <../pe?l/*.p?>"
+
+=head1 DESCRIPTION
+
+This file is a portable replacement for perlglob.exe. It
+is largely compatible with perlglob.exe (the Microsoft setargv.obj
+version) in all but one respect--it understands wildcards in
+directory components.
+
+It prints null-separated filenames to standard output.
+
+For details of the globbing features implemented, see
+L<File::DosGlob>.
+
+While one may replace perlglob.exe with this, usage by overriding
+CORE::glob with File::DosGlob::glob should be much more efficient,
+because it avoids launching a separate process, and is therefore
+strongly recommended. See L<perlsub> for details of overriding
+builtins.
+
+=head1 AUTHOR
+
+Gurusamy Sarathy <gsar@activestate.com>
+
+=head1 SEE ALSO
+
+perl
+
+File::DosGlob
+
+=cut
+
--- /dev/null
+ eval 'exec perl -x -S "$0" ${1+"$@"}'
+ if 0; # In case running under some shell
+
+require 5;
+use Getopt::Std;
+use Config;
+
+$0 =~ s|.*[/\\]||;
+
+my $usage = <<EOT;
+Usage: $0 [-h]
+ or: $0 [-w] [-u] [-a argstring] [-s stripsuffix] [files]
+ or: $0 [-w] [-u] [-n ntargs] [-o otherargs] [-s stripsuffix] [files]
+ -n ntargs arguments to invoke perl with in generated file
+ when run from Windows NT. Defaults to
+ '-x -S "%0" %*'.
+ -o otherargs arguments to invoke perl with in generated file
+ other than when run from Windows NT. Defaults
+ to '-x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9'.
+ -a argstring arguments to invoke perl with in generated file
+ ignoring operating system (for compatibility
+ with previous pl2bat versions).
+ -u update files that may have already been processed
+ by (some version of) pl2bat.
+ -w include "-w" on the /^#!.*perl/ line (unless
+ a /^#!.*perl/ line was already present).
+ -s stripsuffix strip this suffix from file before appending ".bat"
+ Not case-sensitive
+ Can be a regex if it begins with `/'
+ Defaults to "/\.plx?/"
+ -h show this help
+EOT
+
+my %OPT = ();
+warn($usage), exit(0) if !getopts('whun:o:a:s:',\%OPT) or $OPT{'h'};
+$OPT{'n'} = '-x -S "%0" %*' unless exists $OPT{'n'};
+$OPT{'o'} = '-x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9' unless exists $OPT{'o'};
+$OPT{'s'} = '/\\.plx?/' unless exists $OPT{'s'};
+$OPT{'s'} = ($OPT{'s'} =~ m#^/([^/]*[^/\$]|)\$?/?$# ? $1 : "\Q$OPT{'s'}\E");
+
+my $head;
+if( defined( $OPT{'a'} ) ) {
+ $head = <<EOT;
+ \@rem = '--*-Perl-*--
+ \@echo off
+ perl $OPT{'a'}
+ goto endofperl
+ \@rem ';
+EOT
+} else {
+ $head = <<EOT;
+ \@rem = '--*-Perl-*--
+ \@echo off
+ if "%OS%" == "Windows_NT" goto WinNT
+ perl $OPT{'o'}
+ goto endofperl
+ :WinNT
+ perl $OPT{'n'}
+ if NOT "%COMSPEC%" == "%SystemRoot%\\system32\\cmd.exe" goto endofperl
+ if %errorlevel% == 9009 echo You do not have Perl in your PATH.
+ if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
+ goto endofperl
+ \@rem ';
+EOT
+}
+$head =~ s/^\t//gm;
+my $headlines = 2 + ($head =~ tr/\n/\n/);
+my $tail = "\n__END__\n:endofperl\n";
+
+@ARGV = ('-') unless @ARGV;
+
+foreach ( @ARGV ) {
+ process($_);
+}
+
+sub process {
+ my( $file )= @_;
+ my $myhead = $head;
+ my $linedone = 0;
+ my $taildone = 0;
+ my $linenum = 0;
+ my $skiplines = 0;
+ my $line;
+ my $start= $Config{startperl};
+ $start= "#!perl" unless $start =~ /^#!.*perl/;
+ open( FILE, $file ) or die "$0: Can't open $file: $!";
+ @file = <FILE>;
+ foreach $line ( @file ) {
+ $linenum++;
+ if ( $line =~ /^:endofperl\b/ ) {
+ if( ! exists $OPT{'u'} ) {
+ warn "$0: $file has already been converted to a batch file!\n";
+ return;
+ }
+ $taildone++;
+ }
+ if ( not $linedone and $line =~ /^#!.*perl/ ) {
+ if( exists $OPT{'u'} ) {
+ $skiplines = $linenum - 1;
+ $line .= "#line ".(1+$headlines)."\n";
+ } else {
+ $line .= "#line ".($linenum+$headlines)."\n";
+ }
+ $linedone++;
+ }
+ if ( $line =~ /^#\s*line\b/ and $linenum == 2 + $skiplines ) {
+ $line = "";
+ }
+ }
+ close( FILE );
+ $file =~ s/$OPT{'s'}$//oi;
+ $file .= '.bat' unless $file =~ /\.bat$/i or $file =~ /^-$/;
+ open( FILE, ">$file" ) or die "Can't open $file: $!";
+ print FILE $myhead;
+ print FILE $start, ( $OPT{'w'} ? " -w" : "" ),
+ "\n#line ", ($headlines+1), "\n" unless $linedone;
+ print FILE @file[$skiplines..$#file];
+ print FILE $tail unless $taildone;
+ close( FILE );
+}
+__END__
+
+=head1 NAME
+
+pl2bat - wrap perl code into a batch file
+
+=head1 SYNOPSIS
+
+B<pl2bat> B<-h>
+
+B<pl2bat> [B<-w>] S<[B<-a> I<argstring>]> S<[B<-s> I<stripsuffix>]> [files]
+
+B<pl2bat> [B<-w>] S<[B<-n> I<ntargs>]> S<[B<-o> I<otherargs>]> S<[B<-s> I<stripsuffix>]> [files]
+
+=head1 DESCRIPTION
+
+This utility converts a perl script into a batch file that can be
+executed on DOS-like operating systems. This is intended to allow
+you to use a Perl script like regular programs and batch files where
+you just enter the name of the script [probably minus the extension]
+plus any command-line arguments and the script is found in your B<PATH>
+and run.
+
+=head2 ADVANTAGES
+
+There are several alternatives to this method of running a Perl script.
+They each have disadvantages that help you understand the motivation
+for using B<pl2bat>.
+
+=over
+
+=item 1
+
+ C:> perl x:/path/to/script.pl [args]
+
+=item 2
+
+ C:> perl -S script.pl [args]
+
+=item 3
+
+ C:> perl -S script [args]
+
+=item 4
+
+ C:> ftype Perl=perl.exe "%1" %*
+ C:> assoc .pl=Perl
+ then
+ C:> script.pl [args]
+
+=item 5
+
+ C:> ftype Perl=perl.exe "%1" %*
+ C:> assoc .pl=Perl
+ C:> set PathExt=%PathExt%;.PL
+ then
+ C:> script [args]
+
+=back
+
+B<1> and B<2> are the most basic invocation methods that should work on
+any system [DOS-like or not]. They require extra typing and require
+that the script user know that the script is written in Perl. This
+is a pain when you have lots of scripts, some written in Perl and some
+not. It can be quite difficult to keep track of which scripts need to
+be run through Perl and which do not. Even worse, scripts often get
+rewritten from simple batch files into more powerful Perl scripts in
+which case these methods would require all existing users of the scripts
+be updated.
+
+B<3> works on modern Win32 versions of Perl. It allows the user to
+omit the ".pl" or ".bat" file extension, which is a minor improvement.
+
+B<4> and B<5> work on some Win32 operating systems with some command
+shells. One major disadvantage with both is that you can't use them
+in pipelines nor with file redirection. For example, none of the
+following will work properly if you used method B<4> or B<5>:
+
+ C:> script.pl <infile
+ C:> script.pl >outfile
+ C:> echo y | script.pl
+ C:> script.pl | more
+
+This is due to a Win32 bug which Perl has no control over. This bug
+is the major motivation for B<pl2bat> [which was originally written
+for DOS] being used on Win32 systems.
+
+Note also that B<5> works on a smaller range of combinations of Win32
+systems and command shells while B<4> requires that the user know
+that the script is a Perl script [because the ".pl" extension must
+be entered]. This makes it hard to standardize on either of these
+methods.
+
+=head2 DISADVANTAGES
+
+There are several potential traps you should be aware of when you
+use B<pl2bat>.
+
+The generated batch file is initially processed as a batch file each
+time it is run. This means that, to use it from within another batch
+file you should preceed it with C<call> or else the calling batch
+file will not run any commands after the script:
+
+ call script [args]
+
+Except under Windows NT, if you specify more than 9 arguments to
+the generated batch file then the 10th and subsequent arguments
+are silently ignored.
+
+Except when using F<CMD.EXE> under Windows NT, if F<perl.exe> is not
+in your B<PATH>, then trying to run the script will give you a generic
+"Command not found"-type of error message that will probably make you
+think that the script itself is not in your B<PATH>. When using
+F<CMD.EXE> under Windows NT, the generic error message is followed by
+"You do not have Perl in your PATH", to make this clearer.
+
+On most DOS-like operating systems, the only way to exit a batch file
+is to "fall off the end" of the file. B<pl2bat> implements this by
+doing C<goto :endofperl> and adding C<__END__> and C<:endofperl> as
+the last two lines of the generated batch file. This means:
+
+=over
+
+=item No line of your script should start with a colon.
+
+In particular, for this version of B<pl2bat>, C<:endofperl>,
+C<:WinNT>, and C<:script_failed_so_exit_with_non_zero_val> should not
+be used.
+
+=item Care must be taken when using C<__END__> and the C<DATA> file handle.
+
+One approach is:
+
+ . #!perl
+ . while( <DATA> ) {
+ . last if /^__END__$/;
+ . [...]
+ . }
+ . __END__
+ . lines of data
+ . to be processed
+ . __END__
+ . :endofperl
+
+The dots in the first column are only there to prevent F<cmd.exe> to interpret
+the C<:endofperl> line in this documentation. Otherwise F<pl2bat.bat> itself
+wouldn't work. See the previous item. :-)
+
+=item The batch file always "succeeds"
+
+The following commands illustrate the problem:
+
+ C:> echo exit(99); >fail.pl
+ C:> pl2bat fail.pl
+ C:> perl -e "print system('perl fail.pl')"
+ 99
+ C:> perl -e "print system('fail.bat')"
+ 0
+
+So F<fail.bat> always reports that it completed successfully. Actually,
+under Windows NT, we have:
+
+ C:> perl -e "print system('fail.bat')"
+ 1
+
+So, for Windows NT, F<fail.bat> fails when the Perl script fails, but
+the return code is always C<1>, not the return code from the Perl script.
+
+=back
+
+=head2 FUNCTION
+
+By default, the ".pl" suffix will be stripped before adding a ".bat" suffix
+to the supplied file names. This can be controlled with the C<-s> option.
+
+The default behavior is to have the batch file compare the C<OS>
+environment variable against C<"Windows_NT">. If they match, it
+uses the C<%*> construct to refer to all the command line arguments
+that were given to it, so you'll need to make sure that works on your
+variant of the command shell. It is known to work in the F<CMD.EXE> shell
+under Windows NT. 4DOS/NT users will want to put a C<ParameterChar = *>
+line in their initialization file, or execute C<setdos /p*> in
+the shell startup file.
+
+On Windows95 and other platforms a nine-argument limit is imposed
+on command-line arguments given to the generated batch file, since
+they may not support C<%*> in batch files.
+
+These can be overridden using the C<-n> and C<-o> options or the
+deprecated C<-a> option.
+
+=head1 OPTIONS
+
+=over 8
+
+=item B<-n> I<ntargs>
+
+Arguments to invoke perl with in generated batch file when run from
+Windows NT (or Windows 98, probably). Defaults to S<'-x -S "%0" %*'>.
+
+=item B<-o> I<otherargs>
+
+Arguments to invoke perl with in generated batch file except when
+run from Windows NT (ie. when run from DOS, Windows 3.1, or Windows 95).
+Defaults to S<'-x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9'>.
+
+=item B<-a> I<argstring>
+
+Arguments to invoke perl with in generated batch file. Specifying
+B<-a> prevents the batch file from checking the C<OS> environment
+variable to determine which operating system it is being run from.
+
+=item B<-s> I<stripsuffix>
+
+Strip a suffix string from file name before appending a ".bat"
+suffix. The suffix is not case-sensitive. It can be a regex if
+it begins with `/' (the trailing '/' is optional and a trailing
+C<$> is always assumed). Defaults to C</.plx?/>.
+
+=item B<-w>
+
+If no line matching C</^#!.*perl/> is found in the script, then such
+a line is inserted just after the new preamble. The exact line
+depends on C<$Config{startperl}> [see L<Config>]. With the B<-w>
+option, C<" -w"> is added after the value of C<$Config{startperl}>.
+If a line matching C</^#!.*perl/> already exists in the script,
+then it is not changed and the B<-w> option is ignored.
+
+=item B<-u>
+
+If the script appears to have already been processed by B<pl2bat>,
+then the script is skipped and not processed unless B<-u> was
+specified. If B<-u> is specified, the existing preamble is replaced.
+
+=item B<-h>
+
+Show command line usage.
+
+=back
+
+=head1 EXAMPLES
+
+ C:\> pl2bat foo.pl bar.PM
+ [..creates foo.bat, bar.PM.bat..]
+
+ C:\> pl2bat -s "/\.pl|\.pm/" foo.pl bar.PM
+ [..creates foo.bat, bar.bat..]
+
+ C:\> pl2bat < somefile > another.bat
+
+ C:\> pl2bat > another.bat
+ print scalar reverse "rekcah lrep rehtona tsuj\n";
+ ^Z
+ [..another.bat is now a certified japh application..]
+
+ C:\> ren *.bat *.pl
+ C:\> pl2bat -u *.pl
+ [..updates the wrapping of some previously wrapped scripts..]
+
+ C:\> pl2bat -u -s .bat *.bat
+ [..same as previous example except more dangerous..]
+
+=head1 BUGS
+
+C<$0> will contain the full name, including the ".bat" suffix
+when the generated batch file runs. If you don't like this,
+see runperl.bat for an alternative way to invoke perl scripts.
+
+Default behavior is to invoke Perl with the B<-S> flag, so Perl will
+search the B<PATH> to find the script. This may have undesirable
+effects.
+
+On really old versions of Win32 Perl, you can't run the script
+via
+
+ C:> script.bat [args]
+
+and must use
+
+ C:> script [args]
+
+A loop should be used to build up the argument list when not on
+Windows NT so more than 9 arguments can be processed.
+
+See also L</Disadvantages>.
+
+=head1 SEE ALSO
+
+perl, perlwin32, runperl.bat
+
+=cut
+
--- /dev/null
+#!perl -w
+$0 =~ s|\.bat||i;
+unless (-f $0) {
+ $0 =~ s|.*[/\\]||;
+ for (".", split ';', $ENV{PATH}) {
+ $_ = "." if $_ eq "";
+ $0 = "$_/$0" , goto doit if -f "$_/$0";
+ }
+ die "`$0' not found.\n";
+}
+doit: exec "perl", "-x", $0, @ARGV;
+die "Failed to exec `$0': $!";
+__END__
+
+=head1 NAME
+
+runperl.bat - "universal" batch file to run perl scripts
+
+=head1 SYNOPSIS
+
+ C:\> copy runperl.bat foo.bat
+ C:\> foo
+ [..runs the perl script `foo'..]
+
+ C:\> foo.bat
+ [..runs the perl script `foo'..]
+
+
+=head1 DESCRIPTION
+
+This file can be copied to any file name ending in the ".bat" suffix.
+When executed on a DOS-like operating system, it will invoke the perl
+script of the same name, but without the ".bat" suffix. It will
+look for the script in the same directory as itself, and then in
+the current directory, and then search the directories in your PATH.
+
+It relies on the C<exec()> operator, so you will need to make sure
+that works in your perl.
+
+This method of invoking perl scripts has some advantages over
+batch-file wrappers like C<pl2bat.bat>: it avoids duplication
+of all the code; it ensures C<$0> contains the same name as the
+executing file, without any egregious ".bat" suffix; it allows
+you to separate your perl scripts from the wrapper used to
+run them; since the wrapper is generic, you can use symbolic
+links to simply link to C<runperl.bat>, if you are serving your
+files on a filesystem that supports that.
+
+On the other hand, if the batch file is invoked with the ".bat"
+suffix, it does an extra C<exec()>. This may be a performance
+issue. You can avoid this by running it without specifying
+the ".bat" suffix.
+
+Perl is invoked with the -x flag, so the script must contain
+a C<#!perl> line. Any flags found on that line will be honored.
+
+=head1 BUGS
+
+Perl is invoked with the -S flag, so it will search the PATH to find
+the script. This may have undesirable effects.
+
+=head1 SEE ALSO
+
+perl, perlwin32, pl2bat.bat
+
+=cut
+
--- /dev/null
+#!/usr/local/bin/perl -w
+'di';
+'ig00';
+##############################################################################
+##
+## search
+##
+## Jeffrey Friedl (jfriedl@omron.co.jp), Dec 1994.
+## Copyright 19.... ah hell, just take it.
+##
+## BLURB:
+## A combo of find and grep -- more or less do a 'grep' on a whole
+## directory tree. Fast, with lots of options. Much more powerful than
+## the simple "find ... | xargs grep ....". Has a full man page.
+## Powerfully customizable.
+##
+## This file is big, but mostly comments and man page.
+##
+## See man page for usage info.
+## Return value: 2=error, 1=nothing found, 0=something found.
+##
+
+$version = "950918.5";
+##
+## "950918.5";
+## Changed all 'sysread' to 'read' because Linux perl's don't seem
+## to like sysread()
+##
+## "941227.4";
+## Added -n, -u
+##
+## "941222.3"
+## Added -nice (due to Lionel Cons <Lionel.Cons@cern.ch>)
+## Removed any leading "./" from name.
+## Added default flags for ~/.search, including TTY, -nice, -list, etc.
+## Program name now has path removed when printed in diagnostics.
+## Added simple tilde-expansion to -dir arg.
+## Added -dskip, etc. Fixed -iregex bug.
+## Changed -dir to be additive, adding -ddir.
+## Now screen out devices, pipes, and sockets.
+## More tidying and lots of expanding of the man page
+##
+##
+## "941217.2";
+## initial release.
+
+$stripped=0;
+
+&init;
+$rc_file = join('/', $ENV{'HOME'}, ".search");
+
+&check_args;
+
+## Make sure we've got a regex.
+## Don't need one if -find or -showrc was specified.
+$!=2, die "expecting regex arguments.\n"
+ if $FIND_ONLY == 0 && $showrc == 0 && @ARGV == 0;
+
+&prepare_to_search($rc_file);
+
+&import_program if !defined &dodir; ## BIG key to speed.
+
+## do search while there are directories to be done.
+&dodir(shift(@todo)) while @todo;
+
+&clear_message if $VERBOSE && $STDERR_IS_TTY;
+exit($retval);
+###############################################################################
+
+sub init
+{
+ ## initialize variables that might be reset by command-line args
+ $DOREP=0; ## set true by -dorep (redo multi-hardlink files)
+ $DOREP=1 if $^O eq 'MSWin32';
+ $DO_SORT=0; ## set by -sort (sort files in a dir before checking)
+ $FIND_ONLY=0; ## set by -find (don't search files)
+ $LIST_ONLY=0; ## set true by -l (list filenames only)
+ $NEWER=0; ## set by -newer, "-mtime -###"
+ $NICE=0; ## set by -nice (print human-readable output)
+ $NOLINKS=0; ## set true by -nolinks (don't follow symlinks)
+ $OLDER=0; ## set by -older, "-mtime ###"
+ $PREPEND_FILENAME=1; ## set false by -h (don't prefix lines with filename)
+ $REPORT_LINENUM=0; ## set true by -n (show line numbers)
+ $VERBOSE=0; ## set to a value by -v, -vv, etc. (verbose messages)
+ $WHY=0; ## set true by -why, -vvv+ (report why skipped)
+ $XDEV=0; ## set true by -xdev (stay on one filesystem)
+ $all=0; ## set true by -all (don't skip many kinds of files)
+ $iflag = ''; ## set to 'i' by -i (ignore case);
+ $norc=0; ## set by -norc (don't load rc file)
+ $showrc=0; ## set by -showrc (show what happens with rc file)
+ $underlineOK=0; ## set true by -u (watch for underline stuff)
+ $words=0; ## set true by -w (match whole-words only)
+ $DELAY=0; ## inter-file delay (seconds)
+ $retval=1; ## will set to 0 if we find anything.
+
+ ## various elements of stat() that we might access
+ $STAT_DEV = 1;
+ $STAT_INODE = 2;
+ $STAT_MTIME = 9;
+
+ $VV_PRINT_COUNT = 50; ## with -vv, print every VV_PRINT_COUNT files, or...
+ $VV_SIZE = 1024*1024; ## ...every VV_SIZE bytes searched
+ $vv_print = $vv_size = 0; ## running totals.
+
+ ## set default options, in case the rc file wants them
+ $opt{'TTY'}= 1 if -t STDOUT;
+
+ ## want to know this for debugging message stuff
+ $STDERR_IS_TTY = -t STDERR ? 1 : 0;
+ $STDERR_SCREWS_STDOUT = ($STDERR_IS_TTY && -t STDOUT) ? 1 : 0;
+
+ $0 =~ s,.*/,,; ## clean up $0 for any diagnostics we'll be printing.
+}
+
+##
+## Check arguments.
+##
+sub check_args
+{
+ while (@ARGV && $ARGV[0] =~ m/^-/)
+ {
+ $arg = shift(@ARGV);
+
+ if ($arg eq '-version' || ($VERBOSE && $arg eq '-help')) {
+ print qq/Jeffrey's file search, version "$version".\n/;
+ exit(0) unless $arg eq '-help';
+ }
+ if ($arg eq '-help') {
+ print <<INLINE_LITERAL_TEXT;
+usage: $0 [options] [-e] [PerlRegex ....]
+OPTIONS TELLING *WHERE* TO SEARCH:
+ -dir DIR start search at the named directory (default is current dir).
+ -xdev stay on starting file system.
+ -sort sort the files in each directory before processing.
+ -nolinks don't follow symbolic links.
+OPTIONS TELLING WHICH FILES TO EVEN CONSIDER:
+ -mtime # consider files modified > # days ago (-# for < # days old)
+ -newer FILE consider files modified more recently than FILE (also -older)
+ -name GLOB consider files whose name matches pattern (also -regex).
+ -skip GLOB opposite of -name: identifies files to not consider.
+ -path GLOB like -name, but for files whose whole path is described.
+ -dpath/-dregex/-dskip versions for selecting or pruning directories.
+ -all don't skip any files marked to be skipped by the startup file.
+ -x<SPECIAL> (see manual, and/or try -showrc).
+ -why report why a file isn't checked (also implied by -vvvv).
+OPTIONS TELLING WHAT TO DO WITH FILES THAT WILL BE CONSIDERED:
+ -f | -find just list files (PerlRegex ignored). Default is to grep them.
+ -ff | -ffind Does a faster -find (implies -find -all -dorep)
+OPTIONS CONTROLLING HOW THE SEARCH IS DONE (AND WHAT IS PRINTED):
+ -l | -list only list files with matches, not the lines themselves.
+ -nice | -nnice print more "human readable" output.
+ -n prefix each output line with its line number in the file.
+ -h don't prefix output lines with file name.
+ -u also look "inside" manpage-style underlined text
+ -i do case-insensitive searching.
+ -w match words only (as defined by perl's \\b).
+OTHER OPTIONS:
+ -v, -vv, -vvv various levels of message verbosity.
+ -e end of options (in case a regex looks like an option).
+ -showrc show what the rc file sets, then exit.
+ -norc don't load the rc file.
+ -dorep check files with multiple hard links multiple times.
+INLINE_LITERAL_TEXT
+ print "Use -v -help for more verbose help.\n" unless $VERBOSE;
+ print "This script file is also a man page.\n" unless $stripped;
+ print <<INLINE_LITERAL_TEXT if $VERBOSE;
+
+If -f (or -find) given, PerlRegex is optional and ignored.
+Otherwise, will search for files with lines matching any of the given regexes.
+
+Combining things like -name and -mtime implies boolean AND.
+However, duplicating things (such as -name '*.c' -name '*.txt') implies OR.
+
+-mtime may be given floating point (i.e. 1.5 is a day and a half).
+-iskip/-idskip/-ipath/... etc are case-insensitive versions.
+
+If any letter in -newer/-older is upper case, "or equal" is
+inserted into the test.
+
+You can always find the latest version on the World Wide Web in
+ http://www.wg.omron.co.jp/~jfriedl/perl/
+INLINE_LITERAL_TEXT
+ exit(0);
+ }
+ $DOREP=1, next if $arg eq '-dorep'; ## do repeats
+ $DO_SORT=1, next if $arg eq '-sort'; ## sort files
+ $NOLINKS=1, next if $arg eq '-nolinks'; ## no sym. links
+ $PREPEND_FILENAME=0, next if $arg eq '-h'; ## no filename prefix
+ $REPORT_LINENUM=1, next if $arg eq '-n'; ## show line numbers
+ $WHY=1, next if $arg eq '-why'; ## tell why skipped
+ $XDEV=1, next if $arg eq '-xdev'; ## don't leave F.S.
+ $all=1,$opt{'-all'}=1,next if $arg eq '-all'; ## don't skip *.Z, etc
+ $iflag='i', next if $arg eq '-i'; ## ignore case
+ $norc=1, next if $arg eq '-norc'; ## don't load rc file
+ $showrc=1, next if $arg eq '-showrc'; ## show rc file
+ $underlineOK=1, next if $arg eq '-u'; ## look throuh underln.
+ $words=1, next if $arg eq '-w'; ## match "words" only
+ &strip if $arg eq '-strip'; ## dump this program
+ last if $arg eq '-e';
+ $DELAY=$1, next if $arg =~ m/-delay(\d+)/;
+
+ $FIND_ONLY=1, next if $arg =~/^-f(ind)?$/;## do "find" only
+
+ $FIND_ONLY=1, $DOREP=1, $all=1,
+ next if $arg =~/^-ff(ind)?$/;## fast -find
+ $LIST_ONLY=1,$opt{'-list'}=1,
+ next if $arg =~/^-l(ist)?$/;## only list files
+
+ if ($arg =~ m/^-(v+)$/) { ## verbosity
+ $VERBOSE =length($1);
+ foreach $len (1..$VERBOSE) { $opt{'-'.('v' x $len)}=1 }
+ next;
+ }
+ if ($arg =~ m/^-(n+)ice$/) { ## "nice" output
+ $NICE =length($1);
+ foreach $len (1..$NICE) { $opt{'-'.('n' x $len).'ice'}=1 }
+ next;
+ }
+
+ if ($arg =~ m/^-(i?)(d?)skip$/) {
+ local($i) = $1 eq 'i';
+ local($d) = $2 eq 'd';
+ $! = 2, die qq/$0: expecting glob arg to -$arg\n/ unless @ARGV;
+ foreach (split(/\s+/, shift @ARGV)) {
+ if ($d) {
+ $idskip{$_}=1 if $i;
+ $dskip{$_}=1;
+ } else {
+ $iskip{$_}=1 if $i;
+ $skip{$_}=1;
+ }
+ }
+ next;
+ }
+
+
+ if ($arg =~ m/^-(i?)(d?)(regex|path|name)$/) {
+ local($i) = $1 eq 'i';
+ $! = 2, die qq/$0: expecting arg to -$arg\n/ unless @ARGV;
+ foreach (split(/\s+/, shift @ARGV)) {
+ $iname{join(',', $arg, $_)}=1 if $i;
+ $name{join(',', $arg, $_)}=1;
+ }
+ next;
+ }
+
+ if ($arg =~ m/^-d?dir$/) {
+ $opt{'-dir'}=1;
+ $! = 2, die qq/$0: expecting filename arg to -$arg\n/ unless @ARGV;
+ $start = shift(@ARGV);
+ $start =~ s#^~(/+|$)#$ENV{'HOME'}$1# if defined $ENV{'HOME'};
+ $! = 2, die qq/$0: can't find ${arg}'s "$start"\n/ unless -e $start;
+ $! = 2, die qq/$0: ${arg}'s "$start" not a directory.\n/ unless -d _;
+ undef(@todo), $opt{'-ddir'}=1 if $arg eq '-ddir';
+ push(@todo, $start);
+ next;
+ }
+
+ if ($arg =~ m/^-(new|old)er$/i) {
+ $! = 2, die "$0: expecting filename arg to -$arg\n" unless @ARGV;
+ local($file, $time) = shift(@ARGV);
+ $! = 2, die qq/$0: can't stat -${arg}'s "$file"./
+ unless $time = (stat($file))[$STAT_MTIME];
+ local($upper) = $arg =~ tr/A-Z//;
+ if ($arg =~ m/new/i) {
+ $time++ unless $upper;
+ $NEWER = $time if $NEWER < $time;
+ } else {
+ $time-- unless $upper;
+ $OLDER = $time if $OLDER == 0 || $OLDER > $time;
+ }
+ next;
+ }
+
+ if ($arg =~ m/-mtime/) {
+ $! = 2, die "$0: expecting numerical arg to -$arg\n" unless @ARGV;
+ local($days) = shift(@ARGV);
+ $! = 2, die qq/$0: inappropriate arg ($days) to $arg\n/ if $days==0;
+ $days *= 3600 * 24;
+ if ($days < 0) {
+ local($time) = $^T + $days;
+ $NEWER = $time if $NEWER < $time;
+ } else {
+ local($time) = $^T - $days;
+ $OLDER = $time if $OLDER == 0 || $OLDER > $time;
+ }
+ next;
+ }
+
+ ## special user options
+ if ($arg =~ m/^-x(.+)/) {
+ foreach (split(/[\s,]+/, $1)) { $user_opt{$_} = $opt{$_}= 1; }
+ next;
+ }
+
+ $! = 2, die "$0: unknown arg [$arg]\n";
+ }
+}
+
+##
+## Given a filename glob, return a regex.
+## If the glob has no globbing chars (no * ? or [..]), then
+## prepend an effective '*' to it.
+##
+sub glob_to_regex
+{
+ local($glob) = @_;
+ local(@parts) = $glob =~ m/\\.|[*?]|\[]?[^]]*]|[^[\\*?]+/g;
+ local($trueglob)=0;
+ foreach (@parts) {
+ if ($_ eq '*' || $_ eq '?') {
+ $_ = ".$_";
+ $trueglob=1; ## * and ? are a real glob
+ } elsif (substr($_, 0, 1) eq '[') {
+ $trueglob=1; ## [..] is a real glob
+ } else {
+ s/^\\//; ## remove any leading backslash;
+ s/\W/\\$&/g; ## now quote anything dangerous;
+ }
+ }
+ unshift(@parts, '.*') unless $trueglob;
+ join('', '^', @parts, '$');
+}
+
+sub prepare_to_search
+{
+ local($rc_file) = @_;
+
+ $HEADER_BYTES=0; ## Might be set nonzero in &read_rc;
+ $last_message_length = 0; ## For &message and &clear_message.
+
+ &read_rc($rc_file, $showrc) unless $norc;
+ exit(0) if $showrc;
+
+ $NEXT_DIR_ENTRY = $DO_SORT ? 'shift @files' : 'readdir(DIR)';
+ $WHY = 1 if $VERBOSE > 3; ## Arg -vvvv or above implies -why.
+ @todo = ('.') if @todo == 0; ## Where we'll start looking
+
+ ## see if any user options were specified that weren't accounted for
+ foreach $opt (keys %user_opt) {
+ next if defined $seen_opt{$opt};
+ warn "warning: -x$opt never considered.\n";
+ }
+
+ die "$0: multiple time constraints exclude all possible files.\n"
+ if ($NEWER && $OLDER) && ($NEWER > $OLDER);
+
+ ##
+ ## Process any -skip/-iskip args that had been given
+ ##
+ local(@skip_test);
+ foreach $glob (keys %skip) {
+ $i = defined($iskip{$glob}) ? 'i': '';
+ push(@skip_test, '$name =~ m/'. &glob_to_regex($glob). "/$i");
+ }
+ if (@skip_test) {
+ $SKIP_TEST = join('||',@skip_test);
+ $DO_SKIP_TEST = 1;
+ } else {
+ $DO_SKIP_TEST = $SKIP_TEST = 0;
+ }
+
+ ##
+ ## Process any -dskip/-idskip args that had been given
+ ##
+ local(@dskip_test);
+ foreach $glob (keys %dskip) {
+ $i = defined($idskip{$glob}) ? 'i': '';
+ push(@dskip_test, '$name =~ m/'. &glob_to_regex($glob). "/$i");
+ }
+ if (@dskip_test) {
+ $DSKIP_TEST = join('||',@dskip_test);
+ $DO_DSKIP_TEST = 1;
+ } else {
+ $DO_DSKIP_TEST = $DSKIP_TEST = 0;
+ }
+
+
+ ##
+ ## Process any -name, -path, -regex, etc. args that had been given.
+ ##
+ undef @name_test;
+ undef @dname_test;
+ foreach $key (keys %name) {
+ local($type, $pat) = split(/,/, $key, 2);
+ local($i) = defined($iname{$key}) ? 'i' : '';
+ if ($type =~ /regex/) {
+ $pat =~ s/!/\\!/g;
+ $test = "\$name =~ m!^$pat\$!$i";
+ } else {
+ local($var) = $type eq 'name' ? '$name' : '$file';
+ $test = "$var =~ m/". &glob_to_regex($pat). "/$i";
+ }
+ if ($type =~ m/^-i?d/) {
+ push(@dname_test, $test);
+ } else {
+ push(@name_test, $test);
+ }
+ }
+ if (@name_test) {
+ $GLOB_TESTS = join('||', @name_test);
+
+ $DO_GLOB_TESTS = 1;
+ } else {
+ $GLOB_TESTS = $DO_GLOB_TESTS = 0;
+ }
+ if (@dname_test) {
+ $DGLOB_TESTS = join('||', @dname_test);
+ $DO_DGLOB_TESTS = 1;
+ } else {
+ $DGLOB_TESTS = $DO_DGLOB_TESTS = 0;
+ }
+
+
+ ##
+ ## Process any 'magic' things from the startup file.
+ ##
+ if (@magic_tests && $HEADER_BYTES) {
+ ## the $magic' one is for when &dodir is not inlined
+ $tests = join('||',@magic_tests);
+ $MAGIC_TESTS = " { package magic; \$val = ($tests) }";
+ $DO_MAGIC_TESTS = 1;
+ } else {
+ $MAGIC_TESTS = 1;
+ $DO_MAGIC_TESTS = 0;
+ }
+
+ ##
+ ## Prepare regular expressions.
+ ##
+ {
+ local(@regex_tests);
+
+ if ($LIST_ONLY) {
+ $mflag = '';
+ ## need to have $* set, but perl5 just won''t shut up about it.
+ if ($] >= 5) {
+ $mflag = 'm';
+ } else {
+ eval ' $* = 1 ';
+ }
+ }
+
+ ##
+ ## Until I figure out a better way to deal with it,
+ ## We have to worry about a regex like [^xyz] when doing $LIST_ONLY.
+ ## Such a regex *will* match \n, and if I'm pulling in multiple
+ ## lines, it can allow lines to match that would otherwise not match.
+ ##
+ ## Therefore, if there is a '[^' in a regex, we can NOT take a chance
+ ## an use the fast listonly.
+ ##
+ $CAN_USE_FAST_LISTONLY = $LIST_ONLY;
+
+ local(@extra);
+ local($underline_glue) = ($] >= 5) ? '(:?_\cH)?' : '(_\cH)?';
+ while (@ARGV) {
+ $regex = shift(@ARGV);
+ ##
+ ## If watching for underlined things too, add another regex.
+ ##
+ if ($underlineOK) {
+ if ($regex =~ m/[?*+{}()\\.|^\$[]/) {
+ warn "$0: warning, can't underline-safe ``$regex''.\n";
+ } else {
+ $regex = join($underline_glue, split(//, $regex));
+ }
+ }
+
+ ## If nothing special in the regex, just use index...
+ ## is quite a bit faster.
+ if (($iflag eq '') && ($words == 0) &&
+ $regex !~ m/[?*+{}()\\.|^\$[]/)
+ {
+ push(@regex_tests, "(index(\$_, q+$regex+)>=0)");
+
+ } else {
+ $regex =~ s#[\$\@\/]\w#\\$&#;
+ if ($words) {
+ if ($regex =~ m/\|/) {
+ ## could be dangerous -- see if we can wrap in parens.
+ if ($regex =~ m/\\\d/) {
+ warn "warning: -w and a | in a regex is dangerous.\n"
+ } else {
+ $regex = join($regex, '(', ')');
+ }
+ }
+ $regex = join($regex, '\b', '\b');
+ }
+ $CAN_USE_FAST_LISTONLY = 0 if substr($regex, "[^") >= 0;
+ push(@regex_tests, "m/$regex/$iflag$mflag");
+ }
+
+ ## If we're done, but still have @extra to do, get set for that.
+ if (@ARGV == 0 && @extra) {
+ @ARGV = @extra; ## now deal with the extra stuff.
+ $underlineOK = 0; ## but no more of this.
+ undef @extra; ## or this.
+ }
+ }
+ if (@regex_tests) {
+ $REGEX_TEST = join('||', @regex_tests);
+ ## print STDERR $REGEX_TEST, "\n"; exit;
+ } else {
+ ## must be doing -find -- just give something syntactically correct.
+ $REGEX_TEST = 1;
+ }
+ }
+
+ ##
+ ## Make sure we can read the first item(s).
+ ##
+ foreach $start (@todo) {
+ $! = 2, die qq/$0: can't stat "$start"\n/
+ unless ($dev,$inode) = (stat($start))[$STAT_DEV,$STAT_INODE];
+
+ if (defined $dir_done{"$dev,$inode"}) {
+ ## ignore the repeat.
+ warn(qq/ignoring "$start" (same as "$dir_done{"$dev,$inode"}").\n/)
+ if $VERBOSE;
+ next;
+ }
+
+ ## if -xdev was given, remember the device.
+ $xdev{$dev} = 1 if $XDEV;
+
+ ## Note that we won't want to do it again
+ $dir_done{"$dev,$inode"} = $start;
+ }
+}
+
+
+##
+## See the comment above the __END__ above the 'sub dodir' below.
+##
+sub import_program
+{
+ sub bad {
+ print STDERR "$0: internal error (@_)\n";
+ exit 2;
+ }
+
+ ## Read from data, up to next __END__. This will be &dodir.
+ local($/) = "\n__END__";
+ $prog = <DATA>;
+ close(DATA);
+
+ $prog =~ s/\beval\b//g; ## remove any 'eval'
+
+ ## Inline uppercase $-variables by their current values.
+ if ($] >= 5) {
+ $prog =~ s/\$([A-Z][A-Z0-9_]{2,}\b)/
+ &bad($1) if !defined ${$main::{$1}}; ${$main::{$1}};/eg;
+ } else {
+ $prog =~ s/\$([A-Z][A-Z0-9_]{2,}\b)/local(*VAR) = $_main{$1};
+ &bad($1) if !defined $VAR; $VAR;/eg;
+ }
+
+ eval $prog; ## now do it. This will define &dodir;
+ $!=2, die "$0 internal error: $@\n" if $@;
+}
+
+###########################################################################
+
+##
+## Read the .search file:
+## Blank lines and lines that are only #-comments ignored.
+## Newlines may be escaped to create long lines
+## Other lines are directives.
+##
+## A directive may begin with an optional tag in the form <...>
+## Things inside the <...> are evaluated as with:
+## <(this || that) && must>
+## will be true if
+## -xmust -xthis or -xmust -xthat
+## were specified on the command line (order doesn't matter, though)
+## A directive is not done if there is a tag and it's false.
+## Any characters but whitespace and &|()>,! may appear after an -x
+## (although "-xdev" is special). -xmust,this is the same as -xmust -xthis.
+## Something like -x~ would make <~> true, and <!~> false.
+##
+## Directives are in the form:
+## option: STRING
+## magic : NUMBYTES : EXPR
+##
+## With option:
+## The STRING is parsed like a Bourne shell command line, and the
+## options are used as if given on the command line.
+## No comments are allowed on 'option' lines.
+## Examples:
+## # skip objects and libraries
+## option: -skip '.o .a'
+## # skip emacs *~ and *# files, unless -x~ given:
+## <!~> option: -skip '~ #'
+##
+## With magic:
+## EXPR can be pretty much any perl (comments allowed!).
+## If it evaluates to true for any particular file, it is skipped.
+## The only info you'll have about a file is the variable $H, which
+## will have at least the first NUMBYTES of the file (less if the file
+## is shorter than that, of course, and maybe more). You'll also have
+## any variables you set in previous 'magic' lines.
+## Examples:
+## magic: 6 : ($x6 = substr($H, 0, 6)) eq 'GIF87a'
+## magic: 6 : $x6 eq 'GIF89a'
+##
+## magic: 6 : (($x6 = substr($H, 0, 6)) eq 'GIF87a' ## old gif \
+## || $x6 eq 'GIF89a' ## new gif
+## (the above two sets are the same)
+## ## Check the first 32 bytes for "binarish" looking bytes.
+## ## Don't blindly dump on any high-bit set, as non-ASCII text
+## ## often has them set. \x80 and \xff seem to be special, though.
+## ## Require two in a row to not get things like perl's $^T.
+## ## This is known to get *.Z, *.gz, pkzip, *.elc and about any
+## ## executable you'll find.
+## magic: 32 : $H =~ m/[\x00-\x06\x10-\x1a\x1c-\x1f\x80\xff]{2}/
+##
+sub read_rc
+{
+ local($file, $show) = @_;
+ local($line_num, $ln, $tag) = 0;
+ local($use_default, @default) = 0;
+
+ { package magic; $\17 = 0; } ## turn off warnings for when we run EXPR's
+
+ unless (open(RC, "$file")) {
+ $use_default=1;
+ $file = "<internal default startup file>";
+ ## no RC file -- use this default.
+ @default = split(/\n/,<<'--------INLINE_LITERAL_TEXT');
+ magic: 32 : $H =~ m/[\x00-\x06\x10-\x1a\x1c-\x1f\x80\xff]{2}/
+ option: -skip '.a .COM .elc .EXE .gz .o .pbm .xbm .dvi'
+ option: -iskip '.tarz .zip .z .lzh .jpg .jpeg .gif .uu'
+ <!~> option: -skip '~ #'
+--------INLINE_LITERAL_TEXT
+ }
+
+ ##
+ ## Make an eval error pretty.
+ ##
+ sub clean_eval_error {
+ local($_) = @_;
+ s/ in file \(eval\) at line \d+,//g; ## perl4-style error
+ s/ at \(eval \d+\) line \d+,//g; ## perl5-style error
+ $_ = $` if m/\n/; ## remove all but first line
+ "$_\n";
+ }
+
+ print "reading RC file: $file\n" if $show;
+
+ while (defined($_ = ($use_default ? shift(@default) : <RC>))) {
+ $ln = ++$line_num; ## note starting line num.
+ $_ .= <RC>, $line_num++ while s/\\\n?$/\n/; ## allow continuations
+ next if /^\s*(#.*)?$/; ## skip blank or comment-only lines.
+ $do = '';
+
+ ## look for an initial <...> tag.
+ if (s/^\s*<([^>]*)>//) {
+ ## This simple s// will make the tag ready to eval.
+ ($tag = $msg = $1) =~
+ s/[^\s&|(!)]+/
+ $seen_opt{$&}=1; ## note seen option
+ "defined(\$opt{q>$&>})" ## (q>> is safe quoting here)
+ /eg;
+
+ ## see if the tag is true or not, abort this line if not.
+ $dothis = (eval $tag);
+ $!=2, die "$file $ln <$msg>: $_".&clean_eval_error($@) if $@;
+
+ if ($show) {
+ $msg =~ s/[^\s&|(!)]+/-x$&/;
+ $msg =~ s/\s*!\s*/ no /g;
+ $msg =~ s/\s*&&\s*/ and /g;
+ $msg =~ s/\s*\|\|\s*/ or /g;
+ $msg =~ s/^\s+//; $msg =~ s/\s+$//;
+ $do = $dothis ? "(doing because $msg)" :
+ "(do if $msg)";
+ } elsif (!$dothis) {
+ next;
+ }
+ }
+
+ if (m/^\s*option\s*:\s*/) {
+ next if $all && !$show; ## -all turns off these checks;
+ local($_) = $';
+ s/\n$//;
+ local($orig) = $_;
+ print " $do option: $_\n" if $show;
+ local($0) = "$0 ($file)"; ## for any error message.
+ local(@ARGV);
+ local($this);
+ ##
+ ## Parse $_ as a Bourne shell line -- fill @ARGV
+ ##
+ while (length) {
+ if (s/^\s+//) {
+ push(@ARGV, $this) if defined $this;
+ undef $this;
+ next;
+ }
+ $this = '' if !defined $this;
+ $this .= $1 while s/^'([^']*)'// ||
+ s/^"([^"]*)"// ||
+ s/^([^'"\s\\]+)//||
+ s/^(\\[\D\d])//;
+ die "$file $ln: error parsing $orig at $_\n" if m/^\S/;
+ }
+ push(@ARGV, $this) if defined $this;
+ &check_args;
+ die qq/$file $ln: unused arg "@ARGV".\n/ if @ARGV;
+ next;
+ }
+
+ if (m/^\s*magic\s*:\s*(\d+)\s*:\s*/) {
+ next if $all && !$show; ## -all turns off these checks;
+ local($bytes, $check) = ($1, $');
+
+ if ($show) {
+ $check =~ s/\n?$/\n/;
+ print " $do contents: $check";
+ }
+ ## Check to make sure the thing at least compiles.
+ eval "package magic; (\$H = '1'x \$main'bytes) && (\n$check\n)\n";
+ $! = 2, die "$file $ln: ".&clean_eval_error($@) if $@;
+
+ $HEADER_BYTES = $bytes if $bytes > $HEADER_BYTES;
+ push(@magic_tests, "(\n$check\n)");
+ next;
+ }
+ $! = 2, die "$file $ln: unknown command\n";
+ }
+ close(RC);
+}
+
+sub message
+{
+ if (!$STDERR_IS_TTY) {
+ print STDERR $_[0], "\n";
+ } else {
+ local($text) = @_;
+ $thislength = length($text);
+ if ($thislength >= $last_message_length) {
+ print STDERR $text, "\r";
+ } else {
+ print STDERR $text, ' 'x ($last_message_length-$thislength),"\r";
+ }
+ $last_message_length = $thislength;
+ }
+}
+
+sub clear_message
+{
+ print STDERR ' ' x $last_message_length, "\r" if $last_message_length;
+ $vv_print = $vv_size = $last_message_length = 0;
+}
+
+##
+## Output a copy of this program with comments, extra whitespace, and
+## the trailing man page removed. On an ultra slow machine, such a copy
+## might load faster (but I can't tell any difference on my machine).
+##
+sub strip {
+ seek(DATA, 0, 0) || die "$0: can't reset internal pointer.\n";
+ while(<DATA>) {
+ print, next if /INLINE_LITERAL_TEXT/.../INLINE_LITERAL_TEXT/;
+ ## must mention INLINE_LITERAL_TEXT on this line!
+ s/\#\#.*|^\s+|\s+$//; ## remove cruft
+ last if $_ eq '.00;';
+ next if ($_ eq '') || ($_ eq "'di'") || ($_ eq "'ig00'");
+ s/\$stripped=0;/\$stripped=1;/;
+ s/\s\s+/ /; ## squish multiple whitespaces down to one.
+ print $_, "\n";
+ }
+ exit(0);
+}
+
+##
+## Just to shut up -w. Never executed.
+##
+sub dummy {
+
+ 1 || &dummy || &dir_done || &bad || &message || $NEXT_DIR_ENTRY ||
+ $DELAY || $VV_SIZE || $VV_PRINT_COUNT || $STDERR_SCREWS_STDOUT ||
+ @files || @files || $magic'H || $magic'H || $xdev{''} || &clear_message;
+
+}
+
+##
+## If the following __END__ is in place, what follows will be
+## inlined when the program first starts up. Any $ variable name
+## all in upper case, specifically, any string matching
+## \$([A-Z][A-Z0-9_]{2,}\b
+## will have the true value for that variable inlined. Also, any 'eval' is
+## removed
+##
+## The idea is that when the whole thing is then eval'ed to define &dodir,
+## the perl optimizer will make all the decisions that are based upon
+## command-line options (such as $VERBOSE), since they'll be inlined as
+## constants
+##
+## Also, and here's the big win, the tests for matching the regex, and a
+## few others, are all inlined. Should be blinding speed here.
+##
+## See the read from <DATA> above for where all this takes place.
+## But all-in-all, you *want* the __END__ here. Comment it out only for
+## debugging....
+##
+
+__END__
+
+##
+## Given a directory, check all "appropriate" files in it.
+## Shove any subdirectories into the global @todo, so they'll be done
+## later.
+##
+## Be careful about adding any upper-case variables, as they are subject
+## to being inlined. See comments above the __END__ above.
+##
+sub dodir
+{
+ local($dir) = @_;
+ $dir =~ s,/+$,,; ## remove any trailing slash.
+ unless (opendir(DIR, "$dir/.")) {
+ &clear_message if $VERBOSE && $STDERR_SCREWS_STDOUT;
+ warn qq($0: can't opendir "$dir/".\n);
+ return;
+ }
+
+ if ($VERBOSE) {
+ &message($dir);
+ $vv_print = $vv_size = 0;
+ }
+
+ @files = sort readdir(DIR) if $DO_SORT;
+
+ while (defined($name = eval $NEXT_DIR_ENTRY))
+ {
+ next if $name eq '.' || $name eq '..'; ## never follow these.
+
+ ## create full relative pathname.
+ $file = $dir eq '.' ? $name : "$dir/$name";
+
+ ## if link and skipping them, do so.
+ if ($NOLINKS && -l $file) {
+ warn qq/skip (symlink): $file\n/ if $WHY;
+ next;
+ }
+
+ ## skip things unless files or directories
+ unless (-f $file || -d _) {
+ if ($WHY) {
+ $why = (-S _ && "socket") ||
+ (-p _ && "pipe") ||
+ (-b _ && "block special")||
+ (-c _ && "char special") || "somekinda special";
+ warn qq/skip ($why): $file\n/;
+ }
+ next;
+ }
+
+ ## skip things we can't read
+ unless (-r _) {
+ if ($WHY) {
+ $why = (-l $file) ? "follow" : "read";
+ warn qq/skip (can't $why): $file\n/;
+ }
+ next;
+ }
+
+ ## skip things that are empty
+ unless (-s _ || -d _) {
+ warn qq/skip (empty): $file\n/ if $WHY;
+ next;
+ }
+
+ ## Note file device & inode. If -xdev, skip if appropriate.
+ ($dev, $inode) = (stat(_))[$STAT_DEV, $STAT_INODE];
+ if ($XDEV && defined $xdev{$dev}) {
+ warn qq/skip (other device): $file\n/ if $WHY;
+ next;
+ }
+ $id = "$dev,$inode";
+
+ ## special work for a directory
+ if (-d _) {
+ ## Do checks for directory file endings.
+ if ($DO_DSKIP_TEST && (eval $DSKIP_TEST)) {
+ warn qq/skip (-dskip): $file\n/ if $WHY;
+ next;
+ }
+ ## do checks for -name/-regex/-path tests
+ if ($DO_DGLOB_TESTS && !(eval $DGLOB_TESTS)) {
+ warn qq/skip (dirname): $file\n/ if $WHY;
+ next;
+ }
+
+ ## _never_ redo a directory
+ if (defined $dir_done{$id} and $^O ne 'MSWin32') {
+ warn qq/skip (did as "$dir_done{$id}"): $file\n/ if $WHY;
+ next;
+ }
+ $dir_done{$id} = $file; ## mark it done.
+ unshift(@todo, $file); ## add to the list to do.
+ next;
+ }
+ if ($WHY == 0 && $VERBOSE > 1) {
+ if ($VERBOSE>2||$vv_print++>$VV_PRINT_COUNT||($vv_size+=-s _)>$VV_SIZE){
+ &message($file);
+ $vv_print = $vv_size = 0;
+ }
+ }
+
+ ## do time-related tests
+ if ($NEWER || $OLDER) {
+ $_ = (stat(_))[$STAT_MTIME];
+ if ($NEWER && $_ < $NEWER) {
+ warn qq/skip (too old): $file\n/ if $WHY;
+ next;
+ }
+ if ($OLDER && $_ > $OLDER) {
+ warn qq/skip (too new): $file\n/ if $WHY;
+ next;
+ }
+ }
+
+ ## do checks for file endings
+ if ($DO_SKIP_TEST && (eval $SKIP_TEST)) {
+ warn qq/skip (-skip): $file\n/ if $WHY;
+ next;
+ }
+
+ ## do checks for -name/-regex/-path tests
+ if ($DO_GLOB_TESTS && !(eval $GLOB_TESTS)) {
+ warn qq/skip (filename): $file\n/ if $WHY;
+ next;
+ }
+
+
+ ## If we're not repeating files,
+ ## skip this one if we've done it, or note we're doing it.
+ unless ($DOREP) {
+ if (defined $file_done{$id}) {
+ warn qq/skip (did as "$file_done{$id}"): $file\n/ if $WHY;
+ next;
+ }
+ $file_done{$id} = $file;
+ }
+
+ if ($DO_MAGIC_TESTS) {
+ if (!open(FILE_IN, $file)) {
+ &clear_message if $VERBOSE && $STDERR_SCREWS_STDOUT;
+ warn qq/$0: can't open: $file\n/;
+ next;
+ }
+ unless (read(FILE_IN, $magic'H, $HEADER_BYTES)) {
+ &clear_message if $VERBOSE && $STDERR_SCREWS_STDOUT;
+ warn qq/$0: can't read from "$file"\n"/;
+ close(FILE_IN);
+ next;
+ }
+
+ eval $MAGIC_TESTS;
+ if ($magic'val) {
+ close(FILE_IN);
+ warn qq/skip (magic): $file\n/ if $WHY;
+ next;
+ }
+ seek(FILE_IN, 0, 0); ## reset for later <FILE_IN>
+ }
+
+ if ($WHY != 0 && $VERBOSE > 1) {
+ if ($VERBOSE>2||$vv_print++>$VV_PRINT_COUNT||($vv_size+=-s _)>$VV_SIZE){
+ &message($file);
+ $vv_print = $vv_size = 0;
+ }
+ }
+
+ if ($DELAY) {
+ sleep($DELAY);
+ }
+
+ if ($FIND_ONLY) {
+ &clear_message if $VERBOSE && $STDERR_SCREWS_STDOUT;
+ print $file, "\n";
+ $retval=0; ## we've found something
+ close(FILE_IN) if $DO_MAGIC_TESTS;
+ next;
+ } else {
+ ## if we weren't doing magic tests, file won't be open yet...
+ if (!$DO_MAGIC_TESTS && !open(FILE_IN, $file)) {
+ &clear_message if $VERBOSE && $STDERR_SCREWS_STDOUT;
+ warn qq/$0: can't open: $file\n/;
+ next;
+ }
+ if ($LIST_ONLY && $CAN_USE_FAST_LISTONLY) {
+ ##
+ ## This is rather complex, but buys us a LOT when we're just
+ ## listing files and not the individual internal lines.
+ ##
+ local($size) = 4096; ## block-size in which to do reads
+ local($nl); ## will point to $_'s ending newline.
+ local($read); ## will be how many bytes read.
+ local($_) = ''; ## Starts out empty
+ local($hold); ## (see below)
+
+ while (($read = read(FILE_IN,$_,$size,length($_)))||length($_))
+ {
+ undef @parts;
+ ## if read a full block, but no newline, need to read more.
+ while ($read == $size && ($nl = rindex($_, "\n")) < 0) {
+ push(@parts, $_); ## save that part
+ $read = read(FILE_IN, $_, $size); ## keep trying
+ }
+
+ ##
+ ## If we had to save parts, must now combine them together.
+ ## adjusting $nl to reflect the now-larger $_. This should
+ ## be a lot more efficient than using any kind of .= in the
+ ## loop above.
+ ##
+ if (@parts) {
+ local($lastlen) = length($_); #only need if $nl >= 0
+ $_ = join('', @parts, $_);
+ $nl = length($_) - ($lastlen - $nl) if $nl >= 0;
+ }
+
+ ##
+ ## If we're at the end of the file, then we can use $_ as
+ ## is. Otherwise, we need to remove the final partial-line
+ ## and save it so that it'll be at the beginning of the
+ ## next read (where the rest of the line will be layed in
+ ## right after it). $hold will be what we should save
+ ## until next time.
+ ##
+ if ($read != $size || $nl < 0) {
+ $hold = '';
+ } else {
+ $hold = substr($_, $nl + 1);
+ substr($_, $nl + 1) = '';
+ }
+
+ ##
+ ## Now have a bunch of full lines in $_. Use it.
+ ##
+ if (eval $REGEX_TEST) {
+ &clear_message if $VERBOSE && $STDERR_SCREWS_STDOUT;
+ print $file, "\n";
+ $retval=0; ## we've found something
+
+ last;
+ }
+
+ ## Prepare for next read....
+ $_ = $hold;
+ }
+
+ } else { ## else not using faster block scanning.....
+
+ $lines_printed = 0 if $NICE;
+ while (<FILE_IN>) {
+ study;
+ next unless (eval $REGEX_TEST);
+
+ ##
+ ## We found a matching line.
+ ##
+ $retval=0;
+ &clear_message if $VERBOSE && $STDERR_SCREWS_STDOUT;
+ if ($LIST_ONLY) {
+ print $file, "\n";
+ last;
+ } else {
+ ## prepare to print line.
+ if ($NICE && $lines_printed++ == 0) {
+ print '-' x 70, "\n" if $NICE > 1;
+ print $file, ":\n";
+ }
+
+ ##
+ ## Print all the prelim stuff. This looks less efficient
+ ## than it needs to be, but that's so that when the eval
+ ## is compiled (and the tests are optimized away), the
+ ## result will be less actual PRINTs than the more natural
+ ## way of doing these tests....
+ ##
+ if ($NICE) {
+ if ($REPORT_LINENUM) {
+ print " line $.: ";
+ } else {
+ print " ";
+ }
+ } elsif ($REPORT_LINENUM && $PREPEND_FILENAME) {
+ print "$file,:$.: ";
+ } elsif ($PREPEND_FILENAME) {
+ print "$file: ";
+ } elsif ($REPORT_LINENUM) {
+ print "$.: ";
+ }
+ print $_;
+ print "\n" unless m/\n$/;
+ }
+ }
+ print "\n" if ($NICE > 1) && $lines_printed;
+ }
+ close(FILE_IN);
+ }
+ }
+ closedir(DIR);
+}
+
+__END__
+.00; ## finish .ig
+
+'di \" finish diversion--previous line must be blank
+.nr nl 0-1 \" fake up transition to first page again
+.nr % 0 \" start at page 1
+.\"__________________NORMAL_MAN_PAGE_BELOW_________________
+.ll+10n
+.TH search 1 "Dec 17, 1994"
+.SH SEARCH
+search \- search files (a'la grep) in a whole directory tree.
+.SH SYNOPSIS
+search [ grep-like and find-like options] [regex ....]
+.SH DESCRIPTION
+.I Search
+is more or less a combo of 'find' and 'grep' (although the regular
+expression flavor is that of the perl being used, which is closer to
+egrep's than grep's).
+
+.I Search
+does generally the same kind of thing that
+.nf
+ find <blah blah> | xargs egrep <blah blah>
+.fi
+does, but is
+.I much
+more powerful and efficient (and intuitive, I think).
+
+This manual describes
+.I search
+as of version "941227.4". You can always find the latest version at
+.nf
+ http://www.wg.omron.co.jp/~jfriedl/perl/index.html
+.fi
+
+.SH "QUICK EXAMPLE"
+Basic use is simple:
+.nf
+ % search jeff
+.fi
+will search files in the current directory, and all sub directories, for
+files that have "jeff" in them. The lines will be listed with the
+containing file's name prepended.
+.PP
+If you list more than one regex, such as with
+.nf
+ % search jeff Larry Randal+ 'Stoc?k' 'C.*son'
+.fi
+then a line containing any of the regexes will be listed.
+This makes it effectively the same as
+.nf
+ % search 'jeff|Larry|Randal+|Stoc?k|C.*son'
+.fi
+However, listing them separately is much more efficient (and is easier
+to type).
+.PP
+Note that in the case of these examples, the
+.B \-w
+(list whole-words only) option would be useful.
+.PP
+Normally, various kinds of files are automatically removed from consideration.
+If it has has a certain ending (such as ".tar", ".Z", ".o", .etc), or if
+the beginning of the file looks like a binary, it'll be excluded.
+You can control exactly how this works -- see below. One quick way to
+override this is to use the
+.B \-all
+option, which means to consider all the files that would normally be
+automatically excluded.
+Or, if you're curious, you can use
+.B \-why
+to have notes about what files are skipped (and why) printed to stderr.
+
+.SH "BASIC OVERVIEW"
+Normally, the search starts in the current directory, considering files in
+all subdirectories.
+
+You can use the
+.I ~/.search
+file to control ways to automatically exclude files.
+If you don't have this file, a default one will kick in, which automatically
+add
+.nf
+ -skip .o .Z .gif
+.fi
+(among others) to exclude those kinds of files (which you probably want to
+skip when searching for text, as is normal).
+Files that look to be be binary will also be excluded.
+
+Files ending with "#" and "~" will also be excluded unless the
+.B -x~
+option is given.
+
+You can use
+.B -showrc
+to show what kinds of files will normally be skipped.
+See the section on the startup file
+for more info.
+
+You can use the
+.B -all
+option to indicate you want to consider all files that would otherwise be
+skipped by the startup file.
+
+Based upon various other flags (see "WHICH FILES TO CONSIDER" below),
+more files might be removed from consideration. For example
+.nf
+ -mtime 3
+.fi
+will exclude files that aren't at least three days old (change the 3 to -3
+to exclude files that are more than three days old), while
+.nf
+ -skip .*
+.fi
+would exclude any file beginning with a dot (of course, '.' and '..' are
+special and always excluded).
+
+If you'd like to see what files are being excluded, and why, you can get the
+list via the
+.B \-why
+option.
+
+If a file makes it past all the checks, it is then "considered".
+This usually means it is greped for the regular expressions you gave
+on the command line.
+
+If any of the regexes match a line, the line is printed.
+However, if
+.B -list
+is given, just the filename is printed. Or, if
+.B -nice
+is given, a somewhat more (human-)readable output is generated.
+
+If you're searching a huge tree and want to keep informed about how
+the search is progressing,
+.B -v
+will print (to stderr) the current directory being searched.
+Using
+.B -vv
+will also print the current file "every so often", which could be useful
+if a directory is huge. Using
+.B -vvv
+will print the update with every file.
+
+Below is the full listing of options.
+
+.SH "OPTIONS TELLING *WHERE* TO SEARCH"
+.TP
+.BI -dir " DIR"
+Start searching at the named directory instead of the current directory.
+If multiple
+.B -dir
+arguments are given, multiple trees will be searched.
+.TP
+.BI -ddir " DIR"
+Like
+.B -dir
+except it flushes any previous
+.B -dir
+directories (i.e. "-dir A -dir B -dir C" will search A, B, and C, while
+"-dir A -ddir B -dir C" will search only B and C. This might be of use
+in the startup file (see that section below).
+.TP
+.B -xdev
+Stay on the same filesystem as the starting directory/directories.
+.TP
+.B -sort
+Sort the items in a directory before processing them.
+Normally they are processed in whatever order they happen to be read from
+the directory.
+.TP
+.B -nolinks
+Don't follow symbolic links. Normally they're followed.
+
+.SH "OPTIONS CONTROLLING WHICH FILES TO CONSIDER AND EXCLUDE"
+.TP
+.BI -mtime " NUM"
+Only consider files that were last changed more than
+.I NUM
+days ago
+(less than
+.I NUM
+days if
+.I NUM
+has '-' prepended, i.e. "-mtime -2.5" means to consider files that
+have been changed in the last two and a half days).
+.TP
+.B -older FILE
+Only consider files that have not changed since
+.I FILE
+was last changed.
+If there is any upper case in the "-older", "or equal" is added to the sense
+of the test. Therefore, "search -older ./file regex" will never consider
+"./file", while "search -Older ./file regex" will.
+
+If a file is a symbolic link, the time used is that of the file and not the
+link.
+.TP
+.BI -newer " FILE"
+Opposite of
+.BR -older .
+.TP
+.BI -name " GLOB"
+Only consider files that match the shell filename pattern
+.IR GLOB .
+The check is only done on a file's name (use
+.B -path
+to check the whole path, and use
+.B -dname
+to check directory names).
+
+Multiple specifications can be given by separating them with spaces, a'la
+.nf
+ -name '*.c *.h'
+.fi
+to consider C source and header files.
+If
+.I GLOB
+doesn't contain any special pattern characters, a '*' is prepended.
+This last example could have been given as
+.nf
+ -name '.c .h'
+.fi
+It could also be given as
+.nf
+ -name .c -name .h
+.fi
+or
+.nf
+ -name '*.c' -name '*.h'
+.fi
+or
+.nf
+ -name '*.[ch]'
+.fi
+(among others)
+but in this last case, you have to be sure to supply the leading '*'.
+.TP
+.BI -path " GLOB"
+Like
+.B -name
+except the entire path is checked against the pattern.
+.TP
+.B -regex " REGEX"
+Considers files whose names (not paths) match the given perl regex
+exactly.
+.TP
+.BI -iname " GLOB"
+Case-insensitive version of
+.BR -name .
+.TP
+.BI -ipath " GLOB"
+Case-insensitive version of
+.BR -path .
+.TP
+.BI -iregex " REGEX"
+Case-insensitive version of
+.BR -regex .
+
+.TP
+.BI -dpath " GLOB"
+Only search down directories whose path matches the given pattern (this
+doesn't apply to the initial directory given by
+.BI -dir ,
+of course).
+Something like
+.nf
+ -dir /usr/man -dpath /usr/man/man*
+.fi
+would completely skip
+"/usr/man/cat1", "/usr/man/cat2", etc.
+.TP
+.BI -dskip " GLOB"
+Skips directories whose name (not path) matches the given pattern.
+Something like
+.nf
+ -dir /usr/man -dskip cat*
+.fi
+would completely skip any directory in the tree whose name begins with "cat"
+(including "/usr/man/cat1", "/usr/man/cat2", etc.).
+.TP
+.BI -dregex " REGEX"
+Like
+.BI -dpath ,
+but the pattern is a full perl regex. Note that this quite different
+from
+.B -regex
+which considers only file names (not paths). This option considers
+full directory paths (not just names). It's much more useful this way.
+Sorry if it's confusing.
+.TP
+.BI -dpath " GLOB"
+This option exists, but is probably not very useful. It probably wants to
+be like the '-below' or something I mention in the "TODO" section.
+.TP
+.BI -idpath " GLOB"
+Case-insensitive version of
+.BR -dpath .
+.TP
+.BI -idskip " GLOB"
+Case-insensitive version of
+.BR -dskip .
+.TP
+.BI -idregex " REGEX"
+Case-insensitive version of
+.BR -dregex .
+.TP
+.B -all
+Ignore any 'magic' or 'option' lines in the startup file.
+The effect is that all files that would otherwise be automatically
+excluded are considered.
+.TP
+.BI -x SPECIAL
+Arguments starting with
+.B -x
+(except
+.BR -xdev ,
+explained elsewhere) do special interaction with the
+.I ~/.search
+startup file. Something like
+.nf
+ -xflag1 -xflag2
+.fi
+will turn on "flag1" and "flag2" in the startup file (and is
+the same as "-xflag1,flag2"). You can use this to write your own
+rules for what kinds of files are to be considered.
+
+For example, the internal-default startup file contains the line
+.nf
+ <!~> option: -skip '~ #'
+.fi
+This means that if the
+.B -x~
+flag is
+.I not
+seen, the option
+.nf
+ -skip '~ #'
+.fi
+should be done.
+The effect is that emacs temp and backup files are not normally
+considered, but you can included them with the -x~ flag.
+
+You can write your own rules to customize
+.I search
+in powerful ways. See the STARTUP FILE section below.
+.TP
+.B -why
+Print a message (to stderr) when and why a file is not considered.
+
+.SH "OPTIONS TELLING WHAT TO DO WITH FILES THAT WILL BE CONSIDERED"
+.TP
+.B -find
+(you can use
+.B -f
+as well).
+This option changes the basic action of
+.IR search .
+
+Normally, if a file is considered, it is searched
+for the regular expressions as described earlier. However, if this option
+is given, the filename is printed and no searching takes place. This turns
+.I search
+into a 'find' of some sorts.
+
+In this case, no regular expressions are needed on the command line
+(any that are there are silently ignored).
+
+This is not intended to be a replacement for the 'find' program,
+but to aid
+you in understanding just what files are getting past the exclusion checks.
+If you really want to use it as a sort of replacement for the 'find' program,
+you might want to use
+.B -all
+so that it doesn't waste time checking to see if the file is binary, etc
+(unless you really want that, of course).
+
+If you use
+.BR -find ,
+none of the "GREP-LIKE OPTIONS" (below) matter.
+
+As a replacement for 'find',
+.I search
+is probably a bit slower (or in the case of GNU find, a lot slower --
+GNU find is
+.I unbelievably
+fast).
+However, "search -ffind"
+might be more useful than 'find' when options such as
+.B -skip
+are used (at least until 'find' gets such functionality).
+.TP
+.B -ffind
+(or
+.BR -ff )
+A faster more 'find'-like find. Does
+.nf
+ -find -all -dorep
+.fi
+.SH "GREP-LIKE OPTIONS"
+These options control how a searched file is accessed,
+and how things are printed.
+.TP
+.B -i
+Ignore letter case when matching.
+.TP
+.B -w
+Consider only whole-word matches ("whole word" as defined by perl's "\\b"
+regex).
+.TP
+.B -u
+If the regex(es) is/are simple, try to modify them so that they'll work
+in manpage-like underlined text (i.e. like _^Ht_^Hh_^Hi_^Hs).
+This is very rudimentary at the moment.
+.TP
+.B -list
+(you can use
+.B -l
+too).
+Don't print matching lines, but the names of files that contain matching
+lines. This will likely be *much* faster, as special optimizations are
+made -- particularly with large files.
+.TP
+.B -n
+Pepfix each line by its line number.
+.TP
+.B -nice
+Not a grep-like option, but similar to
+.BR -list ,
+so included here.
+.B -nice
+will have the output be a bit more human-readable, with matching lines printed
+slightly indented after the filename, a'la
+.nf
+
+ % search foo
+ somedir/somefile: line with foo in it
+ somedir/somefile: some food for thought
+ anotherdir/x: don't be a buffoon!
+ %
+
+.fi
+will become
+.nf
+
+ % search -nice foo
+ somedir/somefile:
+ line with foo in it
+ some food for thought
+ anotherdir/x:
+ don't be a buffoon!
+ %
+
+.fi
+This option due to Lionel Cons.
+.TP
+.B -nnice
+Be a bit nicer than
+.BR -nice .
+Prefix each file's output by a rule line, and follow with an extra blank line.
+.TP
+.B -h
+Don't prepend each output line with the name of the file
+(meaningless when
+.B -find
+or
+.B -l
+are given).
+
+.SH "OTHER OPTIONS"
+.TP
+.B -help
+Print the usage information.
+.TP
+.B -version
+Print the version information and quit.
+.TP
+.B -v
+Set the level of message verbosity.
+.B -v
+will print a note whenever a new directory is entered.
+.B -vv
+will also print a note "every so often". This can be useful to see
+what's happening when searching huge directories.
+.B -vvv
+will print a new with every file.
+.B -vvvv
+is
+-vvv
+plus
+.BR -why .
+.TP
+.B -e
+This ends the options, and can be useful if the regex begins with '-'.
+.TP
+.B -showrc
+Shows what is being considered in the startup file, then exits.
+.TP
+.B -dorep
+Normally, an identical file won't be checked twice (even with multiple
+hard or symbolic links). If you're just trying to do a fast
+.BR -find ,
+the bookkeeping to remember which files have been seen is not desirable,
+so you can eliminate the bookkeeping with this flag.
+
+.SH "STARTUP FILE"
+When
+.I search
+starts up, it processes the directives in
+.IR ~/.search .
+If no such file exists, a default
+internal version is used.
+
+The internal version looks like:
+.nf
+
+ magic: 32 : $H =~ m/[\ex00-\ex06\ex10-\ex1a\ex1c-\ex1f\ex80\exff]{2}/
+ option: -skip '.a .COM .elc .EXE .gz .o .pbm .xbm .dvi'
+ option: -iskip '.tarz .zip .z .lzh .jpg .jpeg .gif .uu'
+ <!~> option: -skip '~ #'
+
+.fi
+If you wish to create your own "~/.search",
+you might consider copying the above, and then working from there.
+
+There are two kinds of directives in a startup file: "magic" and "option".
+.RS 0n
+.TP
+OPTION
+Option lines will automatically do the command-line options given.
+For example, the line
+.nf
+ option: -v
+.fi
+in you startup file will turn on -v every time, without needing to type it
+on the command line.
+
+The text on the line after the "option:" directive is processed
+like the Bourne shell, so make sure to pay attention to quoting.
+.nf
+ option: -skip .exe .com
+.fi
+will give an error (".com" by itself isn't a valid option), while
+.nf
+ option: -skip ".exe .com"
+.fi
+will properly include it as part of -skip's argument.
+
+.TP
+MAGIC
+Magic lines are used to determine if a file should be considered a binary
+or not (the term "magic" refers to checking a file's magic number). These
+are described in more detail below.
+.RE
+
+Blank lines and comments (lines beginning with '#') are allowed.
+
+If a line begins with <...>, then it's a check to see if the
+directive on the line should be done or not. The stuff inside the <...>
+can contain perl's && (and), || (or), ! (not), and parens for grouping,
+along with "flags" that might be indicated by the user with
+.BI -x flag
+options.
+
+For example, using "-xfoo" will cause "foo" to be true inside the <...>
+blocks. Therefore, a line beginning with "<foo>" would be done only when
+"-xfoo" had been specified, while a line beginning with "<!foo>" would be
+done only when "-xfoo" is not specified (of course, a line without any <...>
+is done in either case).
+
+A realistic example might be
+.nf
+ <!v> -vv
+.fi
+This will cause -vv messages to be the default, but allow "-xv" to override.
+
+There are a few flags that are set automatically:
+.RS
+.TP
+.B TTY
+true if the output is to the screen (as opposed to being redirected to a file).
+You can force this (as with all the other automatic flags) with -xTTY.
+.TP
+.B -v
+True if -v was specified. If -vv was specified, both
+.B -v
+and
+.B -vv
+flags are true (and so on).
+.TP
+.B -nice
+True if -nice was specified. Same thing about -nnice as for -vv.
+.PP
+.TP
+.B -list
+true if -list (or -l) was given.
+.TP
+.B -dir
+true if -dir was given.
+.RE
+
+Using this info, you might change the last example to
+.nf
+
+ <!v && !-v> option: -vv
+
+.fi
+The added "&& !-v" means "and if the '-v' option not given".
+This will allow you to use "-v" alone on the command line, and not
+have this directive add the more verbose "-vv" automatically.
+
+.RS 0
+Some other examples:
+.TP
+<!-dir && !here> option: -dir ~/
+Effectively make the default directory your home directory (instead of the
+current directory). Using -dir or -xhere will undo this.
+.TP
+<tex> option: -name .tex -dir ~/pub
+Create '-xtex' to search only "*.tex" files in your ~/pub directory tree.
+Actually, this could be made a bit better. If you combine '-xtex' and '-dir'
+on the command line, this directive will add ~/pub to the list, when you
+probably want to use the -dir directory only. You could do
+.nf
+
+ <tex> option: -name .tex
+ <tex && !-dir> option: -dir ~/pub
+.fi
+
+to will allow '-xtex' to work as before, but allow a command-line "-dir"
+to take precedence with respect to ~/pub.
+.TP
+<fluff> option: -nnice -sort -i -vvv
+Combine a few user-friendly options into one '-xfluff' option.
+.TP
+<man> option: -ddir /usr/man -v -w
+When the '-xman' option is given, search "/usr/man" for whole-words
+(of whatever regex or regexes are given on the command line), with -v.
+.RE
+
+The lines in the startup file are executed from top to bottom, so something
+like
+.nf
+
+ <both> option: -xflag1 -xflag2
+ <flag1> option: ...whatever...
+ <flag2> option: ...whatever...
+
+.fi
+will allow '-xboth' to be the same as '-xflag1 -xflag2' (or '-xflag1,flag2'
+for that matter). However, if you put the "<both>" line below the others,
+they will not be true when encountered, so the result would be different
+(and probably undesired).
+
+The "magic" directives are used to determine if a file looks to be binary
+or not. The form of a magic line is
+.nf
+ magic: \fISIZE\fP : \fIPERLCODE\fP
+.fi
+where
+.I SIZE
+is the number of bytes of the file you need to check, and
+.I PERLCODE
+is the code to do the check. Within
+.IR PERLCODE ,
+the variable $H will hold at least the first
+.I SIZE
+bytes of the file (unless the file is shorter than that, of course).
+It might hold more bytes. The perl should evaluate to true if the file
+should be considered a binary.
+
+An example might be
+.nf
+ magic: 6 : substr($H, 0, 6) eq 'GIF87a'
+.fi
+to test for a GIF ("-iskip .gif" is better, but this might be useful
+if you have images in files without the ".gif" extension).
+
+Since the startup file is checked from top to bottom, you can be a bit
+efficient:
+.nf
+ magic: 6 : ($x6 = substr($H, 0, 6)) eq 'GIF87a'
+ magic: 6 : $x6 eq 'GIF89a'
+.fi
+You could also write the same thing as
+.nf
+ magic: 6 : (($x6 = substr($H, 0, 6)) eq 'GIF87a') || ## an old gif, or.. \e
+ $x6 eq 'GIF89a' ## .. a new one.
+.fi
+since newlines may be escaped.
+
+The default internal startup file includes
+.nf
+ magic: 32 : $H =~ m/[\ex00-\ex06\ex10-\ex1a\ex1c-\ex1f\ex80\exff]{2}/
+.fi
+which checks for certain non-printable characters, and catches a large
+number of binary files, including most system's executables, linkable
+objects, compressed, tarred, and otherwise folded, spindled, and mutilated
+files.
+
+Another example might be
+.nf
+ ## an archive library
+ magic: 17 : substr($H, 0, 17) eq "!<arch>\en__.SYMDEF"
+.fi
+
+.SH "RETURN VALUE"
+.I Search
+returns zero if lines (or files, if appropriate) were found,
+or if no work was requested (such as with
+.BR -help ).
+Returns 1 if no lines (or files) were found.
+Returns 2 on error.
+
+.SH TODO
+Things I'd like to add some day:
+.nf
+ + show surrounding lines (context).
+ + highlight matched portions of lines.
+ + add '-and', which can go between regexes to override
+ the default logical or of the regexes.
+ + add something like
+ -below GLOB
+ which will examine a tree and only consider files that
+ lie in a directory deeper than one named by the pattern.
+ + add 'warning' and 'error' directives.
+ + add 'help' directive.
+.fi
+.SH BUGS
+If -xdev and multiple -dir arguments are given, any file in any of the
+target filesystems are allowed. It would be better to allow each filesystem
+for each separate tree.
+
+Multiple -dir args might also cause some confusing effects. Doing
+.nf
+ -dir some/dir -dir other
+.fi
+will search "some/dir" completely, then search "other" completely. This
+is good. However, something like
+.nf
+ -dir some/dir -dir some/dir/more/specific
+.fi
+will search "some/dir" completely *except for* "some/dir/more/specific",
+after which it will return and be searched. Not really a bug, but just sort
+of odd.
+
+File times (for -newer, etc.) of symbolic links are for the file, not the
+link. This could cause some misunderstandings.
+
+Probably more. Please let me know.
+.SH AUTHOR
+Jeffrey Friedl, Omron Corp (jfriedl@omron.co.jp)
+.br
+http://www.wg.omron.co.jp/cgi-bin/j-e/jfriedl.html
+
+.SH "LATEST SOURCE"
+See http://www.wg.omron.co.jp/~jfriedl/perl/index.html
--- /dev/null
+## Configured by: ~cf_email~
+## Target system: WINCE
+Author='Rainer Keuchel <coyxc@rainer-keuchel.de'
+PERL_CONFIG_SH='true'
+CONFIGDOTSH='true'
+Date='$Date'
+Header=''
+Id='$Id'
+Locker=''
+Log='$Log'
+Mcc='Mcc'
+RCSfile='$RCSfile'
+Revision='$Revision'
+Source=''
+State=''
+_a='.lib'
+_exe='.exe'
+_o='.obj'
+afs='false'
+alignbytes='8'
+ansi2knr=''
+aphostname=''
+api_revision='~PERL_API_REVISION~'
+api_subversion='~PERL_API_SUBVERSION~'
+api_version='~PERL_API_VERSION~'
+api_versionstring='~PERL_API_REVISION~.~PERL_API_VERSION~.~PERL_API_SUBVERSION~'
+ar='lib'
+archlib='~INST_TOP~~INST_VER~\lib~INST_ARCH~'
+archlibexp='~INST_TOP~~INST_VER~\lib~INST_ARCH~'
+archname64=''
+archname='wince'
+archobjs=''
+awk='awk'
+baserev='5'
+bash=''
+bin='~INST_TOP~~INST_VER~\bin~INST_ARCH~'
+bincompat5005='undef'
+binexp='~INST_TOP~~INST_VER~\bin~INST_ARCH~'
+bison=''
+byacc='byacc'
+byteorder='1234'
+c=''
+castflags='0'
+cat='type'
+cc='cl'
+cccdlflags=' '
+ccdlflags=' '
+ccflags='-DWIN32'
+ccsymbols=''
+cf_by='nobody'
+cf_email='nobody@no.where.net'
+cf_time=''
+charsize='1'
+chgrp=''
+chmod=''
+chown=''
+clocktype='clock_t'
+comm=''
+compress=''
+contains='grep'
+cp='copy'
+cpio=''
+cpp='cl -nologo -E'
+cpp_stuff='42'
+cppccsymbols=''
+cppflags='-DWIN32'
+cpplast=''
+cppminus=''
+cpprun='cl -nologo -E'
+cppstdin='cl -nologo -E'
+cppsymbols=''
+crosscompile='undef'
+cryptlib=''
+csh='undef'
+d_Gconvert='sprintf((b),"%.*g",(n),(x))'
+d_PRIEldbl='undef'
+d_PRIFldbl='undef'
+d_PRIGldbl='undef'
+d_PRIX64='undef'
+d_PRId64='undef'
+d_PRIeldbl='undef'
+d_PRIfldbl='undef'
+d_PRIgldbl='undef'
+d_PRIi64='undef'
+d_PRIo64='undef'
+d_PRIu64='undef'
+d_PRIx64='undef'
+d_access='define'
+d_accessx='undef'
+d_alarm='undef'
+d_archlib='define'
+d_atolf='undef'
+d_atoll='undef'
+d_attribut='undef'
+d_bcmp='undef'
+d_bcopy='undef'
+d_bincompat5005='undef'
+d_bsd='define'
+d_bsdgetpgrp='undef'
+d_bsdsetpgrp='undef'
+d_bzero='undef'
+d_casti32='undef'
+d_castneg='define'
+d_charvspr='undef'
+d_chown='undef'
+d_chroot='undef'
+d_chsize='define'
+d_closedir='define'
+d_const='define'
+d_crypt='undef'
+d_csh='undef'
+d_cuserid='undef'
+d_dbl_dig='define'
+d_difftime='define'
+d_dirnamlen='define'
+d_dlerror='define'
+d_dlopen='define'
+d_dlsymun='undef'
+d_dosuid='undef'
+d_drand48proto='undef'
+d_dup2='define'
+d_eaccess='undef'
+d_endgrent='undef'
+d_endhent='undef'
+d_endnent='undef'
+d_endpent='undef'
+d_endpwent='undef'
+d_endsent='undef'
+d_endspent='undef'
+d_eofnblk='define'
+d_eunice='undef'
+d_fchmod='undef'
+d_fchown='undef'
+d_fcntl='undef'
+d_fd_macros='define'
+d_fd_set='define'
+d_fds_bits='define'
+d_fgetpos='define'
+d_flexfnam='define'
+d_flock='undef'
+d_fork='undef'
+d_fpathconf='undef'
+d_fpos64_t='undef'
+d_fs_data_s='undef'
+d_fseeko='undef'
+d_fsetpos='define'
+d_fstatfs='undef'
+d_fstatvfs='undef'
+d_ftello='undef'
+d_ftime='define'
+d_getcwd='undef'
+d_getfsstat='undef'
+d_getgrent='undef'
+d_getgrps='undef'
+d_gethbyaddr='define'
+d_gethbyname='define'
+d_gethent='undef'
+d_gethname='define'
+d_gethostprotos='define'
+d_getlogin='define'
+d_getmnt='undef'
+d_getmntent='undef'
+d_getnbyaddr='undef'
+d_getnbyname='undef'
+d_getnent='undef'
+d_getnetprotos='undef'
+d_getpbyname='define'
+d_getpbynumber='define'
+d_getpent='undef'
+d_getpgid='undef'
+d_getpgrp2='undef'
+d_getpgrp='undef'
+d_getppid='undef'
+d_getprior='undef'
+d_getprotoprotos='define'
+d_getpwent='undef'
+d_getsbyname='define'
+d_getsbyport='define'
+d_getsent='undef'
+d_getservprotos='define'
+d_getspent='undef'
+d_getspnam='undef'
+d_gettimeod='undef'
+d_gnulibc='undef'
+d_grpasswd='undef'
+d_hasmntopt='undef'
+d_htonl='define'
+d_iconv='undef'
+d_index='undef'
+d_inetaton='undef'
+d_int64_t='undef'
+d_isascii='define'
+d_killpg='undef'
+d_lchown='undef'
+d_ldbl_dig='define'
+d_link='define'
+d_locconv='define'
+d_lockf='undef'
+d_longdbl='undef'
+d_longlong='undef'
+d_lseekproto='define'
+d_lstat='undef'
+d_madvise='undef'
+d_mblen='define'
+d_mbstowcs='define'
+d_mbtowc='define'
+d_memchr='define'
+d_memcmp='define'
+d_memcpy='define'
+d_memmove='define'
+d_memset='define'
+d_mkdir='define'
+d_mkdtemp='undef'
+d_mkfifo='undef'
+d_mkstemp='undef'
+d_mkstemps='undef'
+d_mktime='define'
+d_mmap='undef'
+d_mprotect='undef'
+d_msg='undef'
+d_msg_ctrunc='undef'
+d_msg_dontroute='undef'
+d_msg_oob='undef'
+d_msg_peek='undef'
+d_msg_proxy='undef'
+d_msgctl='undef'
+d_msgget='undef'
+d_msgrcv='undef'
+d_msgsnd='undef'
+d_msync='undef'
+d_munmap='undef'
+d_mymalloc='undef'
+d_nice='undef'
+d_nv_preserves_uv='define'
+d_off64_t='undef'
+d_old_pthread_create_joinable='undef'
+d_oldpthreads='undef'
+d_oldsock='undef'
+d_open3='undef'
+d_pathconf='undef'
+d_pause='define'
+d_phostname='undef'
+d_pipe='undef'
+d_poll='undef'
+d_portable='define'
+d_pthread_yield='undef'
+d_pwage='undef'
+d_pwchange='undef'
+d_pwclass='undef'
+d_pwcomment='undef'
+d_pwexpire='undef'
+d_pwgecos='undef'
+d_pwpasswd='undef'
+d_pwquota='undef'
+d_qgcvt='undef'
+d_quad='undef'
+d_readdir='define'
+d_readlink='undef'
+d_rename='define'
+d_rewinddir='define'
+d_rmdir='define'
+d_safebcpy='undef'
+d_safemcpy='undef'
+d_sanemcmp='define'
+d_sched_yield='undef'
+d_scm_rights='undef'
+d_seekdir='define'
+d_select='define'
+d_sem='undef'
+d_semctl='undef'
+d_semctl_semid_ds='undef'
+d_semctl_semun='undef'
+d_semget='undef'
+d_semop='undef'
+d_setegid='undef'
+d_seteuid='undef'
+d_setgrent='undef'
+d_setgrps='undef'
+d_sethent='undef'
+d_setlinebuf='undef'
+d_setlocale='undef'
+d_setnent='undef'
+d_setpent='undef'
+d_setpgid='undef'
+d_setpgrp2='undef'
+d_setpgrp='undef'
+d_setprior='undef'
+d_setpwent='undef'
+d_setregid='undef'
+d_setresgid='undef'
+d_setresuid='undef'
+d_setreuid='undef'
+d_setrgid='undef'
+d_setruid='undef'
+d_setsent='undef'
+d_setsid='undef'
+d_setspent='undef'
+d_setvbuf='undef'
+d_sfio='undef'
+d_shm='undef'
+d_shmat='undef'
+d_shmatprototype='undef'
+d_shmctl='undef'
+d_shmdt='undef'
+d_shmget='undef'
+d_sigaction='undef'
+d_sigsetjmp='undef'
+d_socket='define'
+d_socklen_t='undef'
+d_sockpair='undef'
+d_sqrtl='undef'
+d_statblks='undef'
+d_statfs_f_flags='undef'
+d_statfs_s='undef'
+d_statvfs='undef'
+d_stdio_cnt_lval='undef'
+d_stdio_ptr_lval='undef'
+d_stdio_stream_array='undef'
+d_stdiobase='undef'
+d_stdstdio='undef'
+d_strchr='define'
+d_strcoll='undef'
+d_strctcpy='define'
+d_strerrm='strerror(e)'
+d_strerror='define'
+d_strtod='define'
+d_strtol='define'
+d_strtold='undef'
+d_strtoll='undef'
+d_strtoul='define'
+d_strtoull='undef'
+d_strtouq='undef'
+d_strxfrm='undef'
+d_suidsafe='undef'
+d_symlink='undef'
+d_syscall='undef'
+d_sysconf='undef'
+d_sysernlst=''
+d_syserrlst='define'
+d_system='define'
+d_tcgetpgrp='undef'
+d_tcsetpgrp='undef'
+d_telldir='define'
+d_telldirproto='define'
+d_time='define'
+d_times='define'
+d_truncate='undef'
+d_tzname='define'
+d_umask='define'
+d_uname='define'
+d_union_semun='define'
+d_ustat='undef'
+d_vendorarch='undef'
+d_vendorbin='undef'
+d_vendorlib='undef'
+d_vfork='undef'
+d_void_closedir='undef'
+d_voidsig='define'
+d_voidtty=''
+d_volatile='define'
+d_vprintf='define'
+d_wait4='undef'
+d_waitpid='define'
+d_wcstombs='define'
+d_wctomb='define'
+d_xenix='undef'
+date='date'
+db_hashtype='int'
+db_prefixtype='int'
+defvoidused='15'
+direntrytype='struct direct'
+dlext='dll'
+dlsrc='dl_win32.xs'
+doublesize='8'
+drand01='(rand()/(double)((unsigned)1<<RANDBITS))'
+dynamic_ext='Socket IO Fcntl Opcode SDBM_File attrs Thread'
+eagain='EAGAIN'
+ebcdic='undef'
+echo='echo'
+egrep='egrep'
+emacs=''
+eunicefix=':'
+exe_ext='.exe'
+expr='expr'
+extensions='~static_ext~ ~dynamic_ext~ ~nonxs_ext~'
+fflushNULL='define'
+fflushall='undef'
+find='find'
+firstmakefile='makefile'
+flex=''
+fpossize='4'
+fpostype='fpos_t'
+freetype='void'
+full_ar=''
+full_csh=''
+full_sed=''
+gccversion=''
+gidformat='"ld"'
+gidsign='-1'
+gidsize='4'
+gidtype='gid_t'
+glibpth='/usr/shlib /lib/pa1.1 /usr/lib/large /lib /usr/lib /usr/lib/386 /lib/386 /lib/large /usr/lib/small /lib/small /usr/ccs/lib /usr/ucblib /usr/shlib '
+grep='grep'
+groupcat=''
+groupstype='gid_t'
+gzip='gzip'
+h_fcntl='true'
+h_sysfile='true'
+hint='recommended'
+hostcat='ypcat hosts'
+huge=''
+i16size='2'
+i16type='short'
+i32size='4'
+i32type='long'
+i64size='8'
+i64type='__int64'
+i8size='1'
+i8type='char'
+i_arpainet='define'
+i_bsdioctl=''
+i_db='undef'
+i_dbm='undef'
+i_dirent='define'
+i_dld='undef'
+i_dlfcn='define'
+i_fcntl='define'
+i_float='define'
+i_gdbm='undef'
+i_grp='undef'
+i_iconv='undef'
+i_ieeefp='undef'
+i_inttypes='undef'
+i_limits='define'
+i_locale='undef'
+i_machcthr='undef'
+i_malloc='define'
+i_math='define'
+i_memory='undef'
+i_mntent='undef'
+i_ndbm='undef'
+i_netdb='undef'
+i_neterrno='undef'
+i_netinettcp='undef'
+i_niin='undef'
+i_poll='undef'
+i_pthread='undef'
+i_pwd='undef'
+i_rpcsvcdbm='define'
+i_sfio='undef'
+i_sgtty='undef'
+i_shadow='undef'
+i_socks='undef'
+i_stdarg='define'
+i_stddef='define'
+i_stdlib='define'
+i_string='define'
+i_sunmath='undef'
+i_sysaccess='undef'
+i_sysdir='undef'
+i_sysfile='undef'
+i_sysfilio='define'
+i_sysin='undef'
+i_sysioctl='undef'
+i_syslog='undef'
+i_sysmman='undef'
+i_sysmode='undef'
+i_sysmount='undef'
+i_sysndir='undef'
+i_sysparam='undef'
+i_sysresrc='undef'
+i_syssecrt='undef'
+i_sysselct='undef'
+i_syssockio='undef'
+i_sysstatfs='undef'
+i_sysstatvfs='undef'
+i_sysstat='define'
+i_systime='undef'
+i_systimek='undef'
+i_systimes='undef'
+i_systypes='undef'
+i_sysuio='undef'
+i_sysun='undef'
+i_sysutsname='undef'
+i_sysvfs='undef'
+i_syswait='undef'
+i_termio='undef'
+i_termios='undef'
+i_time='undef'
+i_unistd='undef'
+i_ustat='undef'
+i_utime='define'
+i_values='undef'
+i_varargs='undef'
+i_varhdr='varargs.h'
+i_vfork='undef'
+ignore_versioned_solibs=''
+inc_version_list=''
+inc_version_list_init='0'
+incpath=''
+inews=''
+installarchlib='~INST_TOP~~INST_VER~\lib~INST_ARCH~'
+installbin='~INST_TOP~~INST_VER~\bin~INST_ARCH~'
+installman1dir='~INST_TOP~~INST_VER~\man\man1'
+installman3dir='~INST_TOP~~INST_VER~\man\man3'
+installprefix='~INST_TOP~~INST_VER~'
+installprefixexp='~INST_TOP~~INST_VER~'
+installhtmldir='~INST_TOP~~INST_VER~\html'
+installhtmlhelpdir='~INST_TOP~~INST_VER~\htmlhelp'
+installprivlib='~INST_TOP~~INST_VER~\lib'
+installscript='~INST_TOP~~INST_VER~\bin'
+installsitearch='~INST_TOP~\site~INST_VER~\lib~INST_ARCH~'
+installsitebin='~INST_TOP~~INST_VER~\bin~INST_ARCH~'
+installsitelib='~INST_TOP~\site~INST_VER~\lib'
+installstyle='lib'
+installusrbinperl='undef'
+installvendorarch=''
+installvendorbin=''
+installvendorlib=''
+intsize='4'
+ivdformat='"ld"'
+ivsize='4'
+ivtype='long'
+known_extensions='~static_ext~ ~dynamic_ext~ ~nonxs_ext~'
+ksh=''
+large=''
+ld='link'
+lddlflags='-dll ~LINK_FLAGS~'
+ldflags='~LINK_FLAGS~'
+ldlibpthname=''
+less='less'
+lib_ext='.lib'
+libc='msvcrt.lib'
+libperl='perl.lib'
+libpth=''
+libs=''
+libsdirs=''
+libsfiles=''
+libsfound=''
+libspath=''
+libswanted='net socket inet nsl nm ndbm gdbm dbm db malloc dl dld ld sun m c cposix posix ndir dir crypt ucb bsd BSD PW x'
+line='line'
+lint=''
+lkflags=''
+ln=''
+lns='copy'
+locincpth='/usr/local/include /opt/local/include /usr/gnu/include /opt/gnu/include /usr/GNU/include /opt/GNU/include'
+loclibpth='/usr/local/lib /opt/local/lib /usr/gnu/lib /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib'
+longdblsize='10'
+longlongsize='8'
+longsize='4'
+lp=''
+lpr=''
+ls='dir'
+lseeksize='4'
+lseektype='long'
+mail=''
+mailx=''
+make='nmake'
+make_set_make='#'
+mallocobj='malloc.o'
+mallocsrc='malloc.c'
+malloctype='void *'
+man1dir='~INST_TOP~~INST_VER~\man\man1'
+man1direxp='~INST_TOP~~INST_VER~\man\man1'
+man1ext='1'
+man3dir='~INST_TOP~~INST_VER~\man\man3'
+man3direxp='~INST_TOP~~INST_VER~\man\man3'
+man3ext='3'
+medium=''
+mips_type=''
+mkdir='mkdir'
+mmaptype='void *'
+models='none'
+modetype='mode_t'
+more='more /e'
+multiarch='undef'
+mv=''
+myarchname='wince'
+mydomain=''
+myhostname=''
+myuname=''
+n='-n'
+netdb_hlen_type='int'
+netdb_host_type='char *'
+netdb_name_type='char *'
+netdb_net_type='long'
+nm=''
+nm_opt=''
+nm_so_opt=''
+nonxs_ext='Errno'
+nroff=''
+nveformat='"e"'
+nvfformat='"f"'
+nvgformat='"g"'
+nvsize='8'
+nvtype='double'
+o_nonblock='O_NONBLOCK'
+obj_ext='.obj'
+old_pthread_create_joinable=''
+optimize='-O'
+orderlib='false'
+# keep this for WinCE, as it is used by some mods...
+osname='MSWin32'
+osvers='4.0'
+package='perl5'
+pager='more /e'
+passcat=''
+patchlevel='~PATCHLEVEL~'
+path_sep=';'
+perl5=''
+perl='perl'
+perladmin=''
+perlpath='~INST_TOP~~INST_VER~\bin~INST_ARCH~\perl.exe'
+pg=''
+phostname='hostname'
+pidtype='int'
+plibpth=''
+pm_apiversion='5.005'
+pmake=''
+pr=''
+prefix='~INST_TOP~'
+prefixexp='~INST_DRV~'
+privlib='~INST_TOP~~INST_VER~\lib'
+privlibexp='~INST_TOP~~INST_VER~\lib'
+prototype='define'
+ptrsize='4'
+quadkind='5'
+quadtype='__int64'
+randbits='15'
+randfunc='rand'
+randseedtype='unsigned'
+ranlib='rem'
+rd_nodata='-1'
+revision='5'
+rm='del'
+rmail=''
+runnm='true'
+sig_size='0'
+sPRIEldbl='"E"'
+sPRIFldbl='"F"'
+sPRIGldbl='"G"'
+sPRIX64='"lX"'
+sPRId64='"ld"'
+sPRIeldbl='"e"'
+sPRIfldbl='"f"'
+sPRIgldbl='"g"'
+sPRIi64='"li"'
+sPRIo64='"lo"'
+sPRIu64='"lu"'
+sPRIx64='"lx"'
+sched_yield=''
+scriptdir='~INST_TOP~~INST_VER~\bin'
+scriptdirexp='~INST_TOP~~INST_VER~\bin'
+sed='sed'
+seedfunc='srand'
+selectminbits='32'
+selecttype='Perl_fd_set *'
+sendmail='blat'
+sh='cmd /x /c'
+shar=''
+sharpbang='#!'
+shmattype='void *'
+shortsize='2'
+shrpenv=''
+shsharp='true'
+sig_count='26'
+sig_name='ZERO NUM01 INT QUIT ILL NUM05 NUM06 NUM07 FPE KILL NUM10 SEGV NUM12 PIPE ALRM TERM NUM16 NUM17 NUM18 NUM19 CHLD BREAK ABRT STOP NUM24 CONT CLD'
+sig_name_init='"ZERO", "NUM01", "INT", "QUIT", "ILL", "NUM05", "NUM06", "NUM07", "FPE", "KILL", "NUM10", "SEGV", "NUM12", "PIPE", "ALRM", "TERM", "NUM16", "NUM17", "NUM18", "NUM19", "CHLD", "BREAK", "ABRT", "STOP", "NUM24", "CONT", "CLD", 0'
+sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 20 0'
+sig_num_init='0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 20, 0'
+signal_t='void'
+sitearch='~INST_TOP~\site~INST_VER~\lib~INST_ARCH~'
+sitearchexp='~INST_TOP~\site~INST_VER~\lib~INST_ARCH~'
+sitebin='~INST_TOP~\site~INST_VER~\bin~INST_ARCH~'
+sitebinexp='~INST_TOP~\site~INST_VER~\bin~INST_ARCH~'
+sitelib='~INST_TOP~\site~INST_VER~\lib'
+sitelib_stem=''
+sitelibexp='~INST_TOP~\site~INST_VER~\lib'
+siteprefix='~INST_TOP~\site~INST_VER~'
+siteprefixexp='~INST_TOP~\site~INST_VER~'
+sizesize='4'
+sizetype='size_t'
+sleep=''
+smail=''
+small=''
+so='dll'
+sockethdr=''
+socketlib=''
+socksizetype='int'
+sort='sort'
+spackage='Perl5'
+spitshell=''
+split=''
+src=''
+ssizetype='int'
+startperl='#!perl'
+startsh='#!/bin/sh'
+static_ext='DynaLoader'
+stdchar='char'
+stdio_base=''
+stdio_bufsiz=''
+stdio_cnt=''
+stdio_filbuf=''
+stdio_ptr=''
+stdio_stream_array=''
+strings='/usr/include/string.h'
+submit=''
+subversion='~SUBVERSION~'
+sysman='/usr/man/man1'
+tail=''
+tar=''
+tbl=''
+tee=''
+test=''
+timeincl='/usr/include/sys/time.h '
+timetype='time_t'
+touch='touch'
+tr=''
+trnl='\012'
+troff=''
+u16size='2'
+u16type='unsigned short'
+u32size='4'
+u32type='unsigned long'
+u64size='8'
+u64type='unsigned __int64'
+u8size='1'
+u8type='unsigned char'
+uidformat='"ld"'
+uidsign='-1'
+uidsize='4'
+uidtype='uid_t'
+uname='uname'
+uniq='uniq'
+uquadtype='unsigned __int64'
+use5005threads='undef'
+use64bitall='undef'
+use64bitint='undef'
+usedl='define'
+useithreads='undef'
+uselargefiles='undef'
+uselongdouble='undef'
+usemorebits='undef'
+usemultiplicity='undef'
+usemymalloc='n'
+usenm='false'
+useopcode='true'
+useperlio='define'
+useposix='true'
+usesfio='false'
+useshrplib='yes'
+usesocks='undef'
+usethreads='undef'
+usevendorprefix='undef'
+usevfork='false'
+usrinc='/usr/include'
+uuname=''
+uvoformat='"lo"'
+uvsize='4'
+uvtype='unsigned long'
+uvuformat='"lu"'
+uvxformat='"lx"'
+vendorarch=''
+vendorarchexp=''
+vendorbin=''
+vendorbinexp=''
+vendorlib=''
+vendorlib_stem=''
+vendorlibexp=''
+vendorprefix=''
+vendorprefixexp=''
+version='~VERSION~'
+vi=''
+voidflags='15'
+xlibpth='/usr/lib/386 /lib/386'
+xs_apiversion='5.6.0'
+zcat=''
+zip='zip'
+PERL_REVISION='~PERL_REVISION~'
+PERL_SUBVERSION='~PERL_SUBVERSION~'
+PERL_VERSION='~PERL_VERSION~'
+PERL_API_REVISION='~PERL_API_REVISION~'
+PERL_API_SUBVERSION='~PERL_API_SUBVERSION~'
+PERL_API_VERSION='~PERL_API_VERSION~'
+PATCHLEVEL='~PERL_VERSION~'
+SUBVERSION='~PERL_SUBVERSION~'
--- /dev/null
+/*\r
+ * This file was produced by running the config_h.SH script, which\r
+ * gets its values from undef, which is generally produced by\r
+ * running Configure.\r
+ *\r
+ * Feel free to modify any of this as the need arises. Note, however,\r
+ * that running config_h.SH again will wipe out any changes you've made.\r
+ * For a more permanent change edit undef and rerun config_h.SH.\r
+ *\r
+ * $Id: Config_h.U,v 3.0.1.5 1997/02/28 14:57:43 ram Exp $\r
+ */\r
+\r
+/*\r
+ * Package name : perl5\r
+ * Source directory : \r
+ * Configuration time: Wed Aug 1 21:35:14 2001\r
+ * Configured by : Rainer Keuchel\r
+ * Target system : \r
+ */\r
+\r
+#ifndef _config_h_\r
+#define _config_h_\r
+\r
+/* LOC_SED:\r
+ * This symbol holds the complete pathname to the sed program.\r
+ */\r
+#define LOC_SED "" /**/\r
+\r
+/* HAS_ALARM:\r
+ * This symbol, if defined, indicates that the alarm routine is\r
+ * available.\r
+ */\r
+/*#define HAS_ALARM /**/\r
+\r
+/* HASATTRIBUTE:\r
+ * This symbol indicates the C compiler can check for function attributes,\r
+ * such as printf formats. This is normally only supported by GNU cc.\r
+ */\r
+/*#define HASATTRIBUTE /**/\r
+#ifndef HASATTRIBUTE\r
+#define __attribute__(_arg_)\r
+#endif\r
+\r
+/* HAS_BCMP:\r
+ * This symbol is defined if the bcmp() routine is available to\r
+ * compare blocks of memory.\r
+ */\r
+/*#define HAS_BCMP /**/\r
+\r
+/* HAS_BCOPY:\r
+ * This symbol is defined if the bcopy() routine is available to\r
+ * copy blocks of memory.\r
+ */\r
+/*#define HAS_BCOPY /**/\r
+\r
+/* HAS_BZERO:\r
+ * This symbol is defined if the bzero() routine is available to\r
+ * set a memory block to 0.\r
+ */\r
+/*#define HAS_BZERO /**/\r
+\r
+/* HAS_CHOWN:\r
+ * This symbol, if defined, indicates that the chown routine is\r
+ * available.\r
+ */\r
+/*#define HAS_CHOWN /**/\r
+\r
+/* HAS_CHROOT:\r
+ * This symbol, if defined, indicates that the chroot routine is\r
+ * available.\r
+ */\r
+/*#define HAS_CHROOT /**/\r
+\r
+/* HAS_CHSIZE:\r
+ * This symbol, if defined, indicates that the chsize routine is available\r
+ * to truncate files. You might need a -lx to get this routine.\r
+ */\r
+#define HAS_CHSIZE /**/\r
+\r
+/* HASCONST:\r
+ * This symbol, if defined, indicates that this C compiler knows about\r
+ * the const type. There is no need to actually test for that symbol\r
+ * within your programs. The mere use of the "const" keyword will\r
+ * trigger the necessary tests.\r
+ */\r
+#define HASCONST /**/\r
+#ifndef HASCONST\r
+#define const\r
+#endif\r
+\r
+/* HAS_CRYPT:\r
+ * This symbol, if defined, indicates that the crypt routine is available\r
+ * to encrypt passwords and the like.\r
+ */\r
+/*#define HAS_CRYPT /**/\r
+\r
+/* HAS_CUSERID:\r
+ * This symbol, if defined, indicates that the cuserid routine is\r
+ * available to get character login names.\r
+ */\r
+/*#define HAS_CUSERID /**/\r
+\r
+/* HAS_DBL_DIG:\r
+ * This symbol, if defined, indicates that this system's <float.h>\r
+ * or <limits.h> defines the symbol DBL_DIG, which is the number\r
+ * of significant digits in a double precision number. If this\r
+ * symbol is not defined, a guess of 15 is usually pretty good.\r
+ */\r
+#define HAS_DBL_DIG /**/\r
+\r
+/* HAS_DIFFTIME:\r
+ * This symbol, if defined, indicates that the difftime routine is\r
+ * available.\r
+ */\r
+#define HAS_DIFFTIME /**/\r
+\r
+/* HAS_DLERROR:\r
+ * This symbol, if defined, indicates that the dlerror routine is\r
+ * available to return a string describing the last error that\r
+ * occurred from a call to dlopen(), dlclose() or dlsym().\r
+ */\r
+#define HAS_DLERROR /**/\r
+\r
+/* HAS_DUP2:\r
+ * This symbol, if defined, indicates that the dup2 routine is\r
+ * available to duplicate file descriptors.\r
+ */\r
+#define HAS_DUP2 /**/\r
+\r
+/* HAS_FCHMOD:\r
+ * This symbol, if defined, indicates that the fchmod routine is available\r
+ * to change mode of opened files. If unavailable, use chmod().\r
+ */\r
+/*#define HAS_FCHMOD /**/\r
+\r
+/* HAS_FCHOWN:\r
+ * This symbol, if defined, indicates that the fchown routine is available\r
+ * to change ownership of opened files. If unavailable, use chown().\r
+ */\r
+/*#define HAS_FCHOWN /**/\r
+\r
+/* HAS_FCNTL:\r
+ * This symbol, if defined, indicates to the C program that\r
+ * the fcntl() function exists.\r
+ */\r
+/*#define HAS_FCNTL /**/\r
+\r
+/* HAS_FGETPOS:\r
+ * This symbol, if defined, indicates that the fgetpos routine is\r
+ * available to get the file position indicator, similar to ftell().\r
+ */\r
+#define HAS_FGETPOS /**/\r
+\r
+/* HAS_FLOCK:\r
+ * This symbol, if defined, indicates that the flock routine is\r
+ * available to do file locking.\r
+ */\r
+/*#define HAS_FLOCK /**/\r
+\r
+/* HAS_FORK:\r
+ * This symbol, if defined, indicates that the fork routine is\r
+ * available.\r
+ */\r
+/*#define HAS_FORK /**/\r
+\r
+/* HAS_FSETPOS:\r
+ * This symbol, if defined, indicates that the fsetpos routine is\r
+ * available to set the file position indicator, similar to fseek().\r
+ */\r
+#define HAS_FSETPOS /**/\r
+\r
+/* HAS_GETTIMEOFDAY:\r
+ * This symbol, if defined, indicates that the gettimeofday() system\r
+ * call is available for a sub-second accuracy clock. Usually, the file\r
+ * <sys/resource.h> needs to be included (see I_SYS_RESOURCE).\r
+ * The type "Timeval" should be used to refer to "struct timeval".\r
+ */\r
+/*#define HAS_GETTIMEOFDAY /**/\r
+#ifdef HAS_GETTIMEOFDAY\r
+#define Timeval struct timeval /* Structure used by gettimeofday() */\r
+#endif\r
+\r
+/* HAS_GETGROUPS:\r
+ * This symbol, if defined, indicates that the getgroups() routine is\r
+ * available to get the list of process groups. If unavailable, multiple\r
+ * groups are probably not supported.\r
+ */\r
+/*#define HAS_GETGROUPS /**/\r
+\r
+/* HAS_GETLOGIN:\r
+ * This symbol, if defined, indicates that the getlogin routine is\r
+ * available to get the login name.\r
+ */\r
+#define HAS_GETLOGIN /**/\r
+\r
+/* HAS_GETPGID:\r
+ * This symbol, if defined, indicates to the C program that \r
+ * the getpgid(pid) function is available to get the\r
+ * process group id.\r
+ */\r
+/*#define HAS_GETPGID /**/\r
+\r
+/* HAS_GETPGRP2:\r
+ * This symbol, if defined, indicates that the getpgrp2() (as in DG/UX)\r
+ * routine is available to get the current process group.\r
+ */\r
+/*#define HAS_GETPGRP2 /**/\r
+\r
+/* HAS_GETPPID:\r
+ * This symbol, if defined, indicates that the getppid routine is\r
+ * available to get the parent process ID.\r
+ */\r
+/*#define HAS_GETPPID /**/\r
+\r
+/* HAS_GETPRIORITY:\r
+ * This symbol, if defined, indicates that the getpriority routine is\r
+ * available to get a process's priority.\r
+ */\r
+/*#define HAS_GETPRIORITY /**/\r
+\r
+/* HAS_INET_ATON:\r
+ * This symbol, if defined, indicates to the C program that the\r
+ * inet_aton() function is available to parse IP address "dotted-quad"\r
+ * strings.\r
+ */\r
+/*#define HAS_INET_ATON /**/\r
+\r
+/* HAS_KILLPG:\r
+ * This symbol, if defined, indicates that the killpg routine is available\r
+ * to kill process groups. If unavailable, you probably should use kill\r
+ * with a negative process number.\r
+ */\r
+/*#define HAS_KILLPG /**/\r
+\r
+/* HAS_LINK:\r
+ * This symbol, if defined, indicates that the link routine is\r
+ * available to create hard links.\r
+ */\r
+#define HAS_LINK /**/\r
+\r
+/* HAS_LOCALECONV:\r
+ * This symbol, if defined, indicates that the localeconv routine is\r
+ * available for numeric and monetary formatting conventions.\r
+ */\r
+#define HAS_LOCALECONV /**/\r
+\r
+/* HAS_LOCKF:\r
+ * This symbol, if defined, indicates that the lockf routine is\r
+ * available to do file locking.\r
+ */\r
+/*#define HAS_LOCKF /**/\r
+\r
+/* HAS_LSTAT:\r
+ * This symbol, if defined, indicates that the lstat routine is\r
+ * available to do file stats on symbolic links.\r
+ */\r
+/*#define HAS_LSTAT /**/\r
+\r
+/* HAS_MBLEN:\r
+ * This symbol, if defined, indicates that the mblen routine is available\r
+ * to find the number of bytes in a multibye character.\r
+ */\r
+#define HAS_MBLEN /**/\r
+\r
+/* HAS_MBSTOWCS:\r
+ * This symbol, if defined, indicates that the mbstowcs routine is\r
+ * available to covert a multibyte string into a wide character string.\r
+ */\r
+#define HAS_MBSTOWCS /**/\r
+\r
+/* HAS_MBTOWC:\r
+ * This symbol, if defined, indicates that the mbtowc routine is available\r
+ * to covert a multibyte to a wide character.\r
+ */\r
+#define HAS_MBTOWC /**/\r
+\r
+/* HAS_MEMCMP:\r
+ * This symbol, if defined, indicates that the memcmp routine is available\r
+ * to compare blocks of memory.\r
+ */\r
+#define HAS_MEMCMP /**/\r
+\r
+/* HAS_MEMCPY:\r
+ * This symbol, if defined, indicates that the memcpy routine is available\r
+ * to copy blocks of memory.\r
+ */\r
+#define HAS_MEMCPY /**/\r
+\r
+/* HAS_MEMMOVE:\r
+ * This symbol, if defined, indicates that the memmove routine is available\r
+ * to copy potentially overlapping blocks of memory. This should be used\r
+ * only when HAS_SAFE_BCOPY is not defined. If neither is there, roll your\r
+ * own version.\r
+ */\r
+#define HAS_MEMMOVE /**/\r
+\r
+/* HAS_MEMSET:\r
+ * This symbol, if defined, indicates that the memset routine is available\r
+ * to set blocks of memory.\r
+ */\r
+#define HAS_MEMSET /**/\r
+\r
+/* HAS_MKDIR:\r
+ * This symbol, if defined, indicates that the mkdir routine is available\r
+ * to create directories. Otherwise you should fork off a new process to\r
+ * exec /bin/mkdir.\r
+ */\r
+#define HAS_MKDIR /**/\r
+\r
+/* HAS_MKFIFO:\r
+ * This symbol, if defined, indicates that the mkfifo routine is\r
+ * available to create FIFOs. Otherwise, mknod should be able to\r
+ * do it for you. However, if mkfifo is there, mknod might require\r
+ * super-user privileges which mkfifo will not.\r
+ */\r
+/*#define HAS_MKFIFO /**/\r
+\r
+/* HAS_MKTIME:\r
+ * This symbol, if defined, indicates that the mktime routine is\r
+ * available.\r
+ */\r
+#define HAS_MKTIME /**/\r
+\r
+/* HAS_MSYNC:\r
+ * This symbol, if defined, indicates that the msync system call is\r
+ * available to synchronize a mapped file.\r
+ */\r
+/*#define HAS_MSYNC /**/\r
+\r
+/* HAS_MUNMAP:\r
+ * This symbol, if defined, indicates that the munmap system call is\r
+ * available to unmap a region, usually mapped by mmap().\r
+ */\r
+/*#define HAS_MUNMAP /**/\r
+\r
+/* HAS_NICE:\r
+ * This symbol, if defined, indicates that the nice routine is\r
+ * available.\r
+ */\r
+/*#define HAS_NICE /**/\r
+\r
+/* HAS_PATHCONF:\r
+ * This symbol, if defined, indicates that pathconf() is available\r
+ * to determine file-system related limits and options associated\r
+ * with a given filename.\r
+ */\r
+/* HAS_FPATHCONF:\r
+ * This symbol, if defined, indicates that pathconf() is available\r
+ * to determine file-system related limits and options associated\r
+ * with a given open file descriptor.\r
+ */\r
+/*#define HAS_PATHCONF /**/\r
+/*#define HAS_FPATHCONF /**/\r
+\r
+/* HAS_PAUSE:\r
+ * This symbol, if defined, indicates that the pause routine is\r
+ * available to suspend a process until a signal is received.\r
+ */\r
+#define HAS_PAUSE /**/\r
+\r
+/* HAS_PIPE:\r
+ * This symbol, if defined, indicates that the pipe routine is\r
+ * available to create an inter-process channel.\r
+ */\r
+/*#define HAS_PIPE /**/\r
+\r
+/* HAS_POLL:\r
+ * This symbol, if defined, indicates that the poll routine is\r
+ * available to poll active file descriptors. You may safely\r
+ * include <poll.h> when this symbol is defined.\r
+ */\r
+/*#define HAS_POLL /**/\r
+\r
+/* HAS_READDIR:\r
+ * This symbol, if defined, indicates that the readdir routine is\r
+ * available to read directory entries. You may have to include\r
+ * <dirent.h>. See I_DIRENT.\r
+ */\r
+#define HAS_READDIR /**/\r
+\r
+/* HAS_SEEKDIR:\r
+ * This symbol, if defined, indicates that the seekdir routine is\r
+ * available. You may have to include <dirent.h>. See I_DIRENT.\r
+ */\r
+#define HAS_SEEKDIR /**/\r
+\r
+/* HAS_TELLDIR:\r
+ * This symbol, if defined, indicates that the telldir routine is\r
+ * available. You may have to include <dirent.h>. See I_DIRENT.\r
+ */\r
+#define HAS_TELLDIR /**/\r
+\r
+/* HAS_REWINDDIR:\r
+ * This symbol, if defined, indicates that the rewinddir routine is\r
+ * available. You may have to include <dirent.h>. See I_DIRENT.\r
+ */\r
+#define HAS_REWINDDIR /**/\r
+\r
+/* HAS_READLINK:\r
+ * This symbol, if defined, indicates that the readlink routine is\r
+ * available to read the value of a symbolic link.\r
+ */\r
+/*#define HAS_READLINK /**/\r
+\r
+/* HAS_RENAME:\r
+ * This symbol, if defined, indicates that the rename routine is available\r
+ * to rename files. Otherwise you should do the unlink(), link(), unlink()\r
+ * trick.\r
+ */\r
+#define HAS_RENAME /**/\r
+\r
+/* HAS_RMDIR:\r
+ * This symbol, if defined, indicates that the rmdir routine is\r
+ * available to remove directories. Otherwise you should fork off a\r
+ * new process to exec /bin/rmdir.\r
+ */\r
+#define HAS_RMDIR /**/\r
+\r
+/* HAS_SELECT:\r
+ * This symbol, if defined, indicates that the select routine is\r
+ * available to select active file descriptors. If the timeout field\r
+ * is used, <sys/time.h> may need to be included.\r
+ */\r
+#define HAS_SELECT /**/\r
+\r
+/* HAS_SETEGID:\r
+ * This symbol, if defined, indicates that the setegid routine is available\r
+ * to change the effective gid of the current program.\r
+ */\r
+/*#define HAS_SETEGID /**/\r
+\r
+/* HAS_SETEUID:\r
+ * This symbol, if defined, indicates that the seteuid routine is available\r
+ * to change the effective uid of the current program.\r
+ */\r
+/*#define HAS_SETEUID /**/\r
+\r
+/* HAS_SETLINEBUF:\r
+ * This symbol, if defined, indicates that the setlinebuf routine is\r
+ * available to change stderr or stdout from block-buffered or unbuffered\r
+ * to a line-buffered mode.\r
+ */\r
+/*#define HAS_SETLINEBUF /**/\r
+\r
+/* HAS_SETLOCALE:\r
+ * This symbol, if defined, indicates that the setlocale routine is\r
+ * available to handle locale-specific ctype implementations.\r
+ */\r
+/*#define HAS_SETLOCALE /**/\r
+\r
+/* HAS_SETPGID:\r
+ * This symbol, if defined, indicates that the setpgid(pid, gpid)\r
+ * routine is available to set process group ID.\r
+ */\r
+/*#define HAS_SETPGID /**/\r
+\r
+/* HAS_SETPGRP2:\r
+ * This symbol, if defined, indicates that the setpgrp2() (as in DG/UX)\r
+ * routine is available to set the current process group.\r
+ */\r
+/*#define HAS_SETPGRP2 /**/\r
+\r
+/* HAS_SETPRIORITY:\r
+ * This symbol, if defined, indicates that the setpriority routine is\r
+ * available to set a process's priority.\r
+ */\r
+/*#define HAS_SETPRIORITY /**/\r
+\r
+/* HAS_SETREGID:\r
+ * This symbol, if defined, indicates that the setregid routine is\r
+ * available to change the real and effective gid of the current\r
+ * process.\r
+ */\r
+/* HAS_SETRESGID:\r
+ * This symbol, if defined, indicates that the setresgid routine is\r
+ * available to change the real, effective and saved gid of the current\r
+ * process.\r
+ */\r
+/*#define HAS_SETREGID /**/\r
+/*#define HAS_SETRESGID /**/\r
+\r
+/* HAS_SETREUID:\r
+ * This symbol, if defined, indicates that the setreuid routine is\r
+ * available to change the real and effective uid of the current\r
+ * process.\r
+ */\r
+/* HAS_SETRESUID:\r
+ * This symbol, if defined, indicates that the setresuid routine is\r
+ * available to change the real, effective and saved uid of the current\r
+ * process.\r
+ */\r
+/*#define HAS_SETREUID /**/\r
+/*#define HAS_SETRESUID /**/\r
+\r
+/* HAS_SETRGID:\r
+ * This symbol, if defined, indicates that the setrgid routine is available\r
+ * to change the real gid of the current program.\r
+ */\r
+/*#define HAS_SETRGID /**/\r
+\r
+/* HAS_SETRUID:\r
+ * This symbol, if defined, indicates that the setruid routine is available\r
+ * to change the real uid of the current program.\r
+ */\r
+/*#define HAS_SETRUID /**/\r
+\r
+/* HAS_SETSID:\r
+ * This symbol, if defined, indicates that the setsid routine is\r
+ * available to set the process group ID.\r
+ */\r
+/*#define HAS_SETSID /**/\r
+\r
+/* Shmat_t:\r
+ * This symbol holds the return type of the shmat() system call.\r
+ * Usually set to 'void *' or 'char *'.\r
+ */\r
+/* HAS_SHMAT_PROTOTYPE:\r
+ * This symbol, if defined, indicates that the sys/shm.h includes\r
+ * a prototype for shmat(). Otherwise, it is up to the program to\r
+ * guess one. Shmat_t shmat _((int, Shmat_t, int)) is a good guess,\r
+ * but not always right so it should be emitted by the program only\r
+ * when HAS_SHMAT_PROTOTYPE is not defined to avoid conflicting defs.\r
+ */\r
+#define Shmat_t void * /**/\r
+/*#define HAS_SHMAT_PROTOTYPE /**/\r
+\r
+/* HAS_STRCHR:\r
+ * This symbol is defined to indicate that the strchr()/strrchr()\r
+ * functions are available for string searching. If not, try the\r
+ * index()/rindex() pair.\r
+ */\r
+/* HAS_INDEX:\r
+ * This symbol is defined to indicate that the index()/rindex()\r
+ * functions are available for string searching.\r
+ */\r
+#define HAS_STRCHR /**/\r
+/*#define HAS_INDEX /**/\r
+\r
+/* HAS_STRCOLL:\r
+ * This symbol, if defined, indicates that the strcoll routine is\r
+ * available to compare strings using collating information.\r
+ */\r
+/*#define HAS_STRCOLL /**/\r
+\r
+/* USE_STRUCT_COPY:\r
+ * This symbol, if defined, indicates that this C compiler knows how\r
+ * to copy structures. If undefined, you'll need to use a block copy\r
+ * routine of some sort instead.\r
+ */\r
+#define USE_STRUCT_COPY /**/\r
+\r
+/* HAS_STRTOD:\r
+ * This symbol, if defined, indicates that the strtod routine is\r
+ * available to provide better numeric string conversion than atof().\r
+ */\r
+#define HAS_STRTOD /**/\r
+\r
+/* HAS_STRTOL:\r
+ * This symbol, if defined, indicates that the strtol routine is available\r
+ * to provide better numeric string conversion than atoi() and friends.\r
+ */\r
+#define HAS_STRTOL /**/\r
+\r
+/* HAS_STRXFRM:\r
+ * This symbol, if defined, indicates that the strxfrm() routine is\r
+ * available to transform strings.\r
+ */\r
+/*#define HAS_STRXFRM /**/\r
+\r
+/* HAS_SYMLINK:\r
+ * This symbol, if defined, indicates that the symlink routine is available\r
+ * to create symbolic links.\r
+ */\r
+/*#define HAS_SYMLINK /**/\r
+\r
+/* HAS_SYSCALL:\r
+ * This symbol, if defined, indicates that the syscall routine is\r
+ * available to call arbitrary system calls. If undefined, that's tough.\r
+ */\r
+/*#define HAS_SYSCALL /**/\r
+\r
+/* HAS_SYSCONF:\r
+ * This symbol, if defined, indicates that sysconf() is available\r
+ * to determine system related limits and options.\r
+ */\r
+/*#define HAS_SYSCONF /**/\r
+\r
+/* HAS_SYSTEM:\r
+ * This symbol, if defined, indicates that the system routine is\r
+ * available to issue a shell command.\r
+ */\r
+#define HAS_SYSTEM /**/\r
+\r
+/* HAS_TCGETPGRP:\r
+ * This symbol, if defined, indicates that the tcgetpgrp routine is\r
+ * available to get foreground process group ID.\r
+ */\r
+/*#define HAS_TCGETPGRP /**/\r
+\r
+/* HAS_TCSETPGRP:\r
+ * This symbol, if defined, indicates that the tcsetpgrp routine is\r
+ * available to set foreground process group ID.\r
+ */\r
+/*#define HAS_TCSETPGRP /**/\r
+\r
+/* HAS_TRUNCATE:\r
+ * This symbol, if defined, indicates that the truncate routine is\r
+ * available to truncate files.\r
+ */\r
+/*#define HAS_TRUNCATE /**/\r
+\r
+/* HAS_TZNAME:\r
+ * This symbol, if defined, indicates that the tzname[] array is\r
+ * available to access timezone names.\r
+ */\r
+#define HAS_TZNAME /**/\r
+\r
+/* HAS_UMASK:\r
+ * This symbol, if defined, indicates that the umask routine is\r
+ * available to set and get the value of the file creation mask.\r
+ */\r
+#define HAS_UMASK /**/\r
+\r
+/* HAS_USLEEP:\r
+ * This symbol, if defined, indicates that the usleep routine is\r
+ * available to let the process sleep on a sub-second accuracy.\r
+ */\r
+/*#define HAS_USLEEP /**/\r
+\r
+/* HASVOLATILE:\r
+ * This symbol, if defined, indicates that this C compiler knows about\r
+ * the volatile declaration.\r
+ */\r
+#define HASVOLATILE /**/\r
+#ifndef HASVOLATILE\r
+#define volatile\r
+#endif\r
+\r
+/* HAS_WAIT4:\r
+ * This symbol, if defined, indicates that wait4() exists.\r
+ */\r
+/*#define HAS_WAIT4 /**/\r
+\r
+/* HAS_WAITPID:\r
+ * This symbol, if defined, indicates that the waitpid routine is\r
+ * available to wait for child process.\r
+ */\r
+#define HAS_WAITPID /**/\r
+\r
+/* HAS_WCSTOMBS:\r
+ * This symbol, if defined, indicates that the wcstombs routine is\r
+ * available to convert wide character strings to multibyte strings.\r
+ */\r
+#define HAS_WCSTOMBS /**/\r
+\r
+/* HAS_WCTOMB:\r
+ * This symbol, if defined, indicates that the wctomb routine is available\r
+ * to covert a wide character to a multibyte.\r
+ */\r
+#define HAS_WCTOMB /**/\r
+\r
+/* I_ARPA_INET:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <arpa/inet.h> to get inet_addr and friends declarations.\r
+ */\r
+#define I_ARPA_INET /**/\r
+\r
+/* I_DBM:\r
+ * This symbol, if defined, indicates that <dbm.h> exists and should\r
+ * be included.\r
+ */\r
+/* I_RPCSVC_DBM:\r
+ * This symbol, if defined, indicates that <rpcsvc/dbm.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_DBM /**/\r
+#define I_RPCSVC_DBM /**/\r
+\r
+/* I_DIRENT:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <dirent.h>. Using this symbol also triggers the definition\r
+ * of the Direntry_t define which ends up being 'struct dirent' or\r
+ * 'struct direct' depending on the availability of <dirent.h>.\r
+ */\r
+/* DIRNAMLEN:\r
+ * This symbol, if defined, indicates to the C program that the length\r
+ * of directory entry names is provided by a d_namlen field. Otherwise\r
+ * you need to do strlen() on the d_name field.\r
+ */\r
+/* Direntry_t:\r
+ * This symbol is set to 'struct direct' or 'struct dirent' depending on\r
+ * whether dirent is available or not. You should use this pseudo type to\r
+ * portably declare your directory entries.\r
+ */\r
+#define I_DIRENT /**/\r
+#define DIRNAMLEN /**/\r
+#define Direntry_t struct direct\r
+\r
+/* I_DLFCN:\r
+ * This symbol, if defined, indicates that <dlfcn.h> exists and should\r
+ * be included.\r
+ */\r
+#define I_DLFCN /**/\r
+\r
+/* I_FCNTL:\r
+ * This manifest constant tells the C program to include <fcntl.h>.\r
+ */\r
+#define I_FCNTL /**/\r
+\r
+/* I_FLOAT:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <float.h> to get definition of symbols like DBL_MAX or\r
+ * DBL_MIN, i.e. machine dependent floating point values.\r
+ */\r
+#define I_FLOAT /**/\r
+\r
+/* I_LIMITS:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <limits.h> to get definition of symbols like WORD_BIT or\r
+ * LONG_MAX, i.e. machine dependant limitations.\r
+ */\r
+#define I_LIMITS /**/\r
+\r
+/* I_LOCALE:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <locale.h>.\r
+ */\r
+/*#define I_LOCALE /**/\r
+\r
+/* I_MATH:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <math.h>.\r
+ */\r
+#define I_MATH /**/\r
+\r
+/* I_MEMORY:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <memory.h>.\r
+ */\r
+/*#define I_MEMORY /**/\r
+\r
+/* I_NDBM:\r
+ * This symbol, if defined, indicates that <ndbm.h> exists and should\r
+ * be included.\r
+ */\r
+/*#define I_NDBM /**/\r
+\r
+/* I_NET_ERRNO:\r
+ * This symbol, if defined, indicates that <net/errno.h> exists and \r
+ * should be included.\r
+ */\r
+/*#define I_NET_ERRNO /**/\r
+\r
+/* I_NETINET_IN:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <netinet/in.h>. Otherwise, you may try <sys/in.h>.\r
+ */\r
+/*#define I_NETINET_IN /**/\r
+\r
+/* I_SFIO:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <sfio.h>.\r
+ */\r
+/*#define I_SFIO /**/\r
+\r
+/* I_STDDEF:\r
+ * This symbol, if defined, indicates that <stddef.h> exists and should\r
+ * be included.\r
+ */\r
+#define I_STDDEF /**/\r
+\r
+/* I_STDLIB:\r
+ * This symbol, if defined, indicates that <stdlib.h> exists and should\r
+ * be included.\r
+ */\r
+#define I_STDLIB /**/\r
+\r
+/* I_STRING:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <string.h> (USG systems) instead of <strings.h> (BSD systems).\r
+ */\r
+#define I_STRING /**/\r
+\r
+/* I_SYS_DIR:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <sys/dir.h>.\r
+ */\r
+/*#define I_SYS_DIR /**/\r
+\r
+/* I_SYS_FILE:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <sys/file.h> to get definition of R_OK and friends.\r
+ */\r
+/*#define I_SYS_FILE /**/\r
+\r
+/* I_SYS_IOCTL:\r
+ * This symbol, if defined, indicates that <sys/ioctl.h> exists and should\r
+ * be included. Otherwise, include <sgtty.h> or <termio.h>.\r
+ */\r
+/* I_SYS_SOCKIO:\r
+ * This symbol, if defined, indicates the <sys/sockio.h> should be included\r
+ * to get socket ioctl options, like SIOCATMARK.\r
+ */\r
+/*#define I_SYS_IOCTL /**/\r
+/*#define I_SYS_SOCKIO /**/\r
+\r
+/* I_SYS_NDIR:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <sys/ndir.h>.\r
+ */\r
+/*#define I_SYS_NDIR /**/\r
+\r
+/* I_SYS_PARAM:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <sys/param.h>.\r
+ */\r
+/*#define I_SYS_PARAM /**/\r
+\r
+/* I_SYS_RESOURCE:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <sys/resource.h>.\r
+ */\r
+/*#define I_SYS_RESOURCE /**/\r
+\r
+/* I_SYS_SELECT:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <sys/select.h> in order to get definition of struct timeval.\r
+ */\r
+/*#define I_SYS_SELECT /**/\r
+\r
+/* I_SYS_STAT:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <sys/stat.h>.\r
+ */\r
+#define I_SYS_STAT /**/\r
+\r
+/* I_SYS_TIMES:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <sys/times.h>.\r
+ */\r
+/*#define I_SYS_TIMES /**/\r
+\r
+/* I_SYS_TYPES:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <sys/types.h>.\r
+ */\r
+/*#define I_SYS_TYPES /**/\r
+\r
+/* I_SYS_UN:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <sys/un.h> to get UNIX domain socket definitions.\r
+ */\r
+/*#define I_SYS_UN /**/\r
+\r
+/* I_SYS_WAIT:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <sys/wait.h>.\r
+ */\r
+/*#define I_SYS_WAIT /**/\r
+\r
+/* I_TERMIO:\r
+ * This symbol, if defined, indicates that the program should include\r
+ * <termio.h> rather than <sgtty.h>. There are also differences in\r
+ * the ioctl() calls that depend on the value of this symbol.\r
+ */\r
+/* I_TERMIOS:\r
+ * This symbol, if defined, indicates that the program should include\r
+ * the POSIX termios.h rather than sgtty.h or termio.h.\r
+ * There are also differences in the ioctl() calls that depend on the\r
+ * value of this symbol.\r
+ */\r
+/* I_SGTTY:\r
+ * This symbol, if defined, indicates that the program should include\r
+ * <sgtty.h> rather than <termio.h>. There are also differences in\r
+ * the ioctl() calls that depend on the value of this symbol.\r
+ */\r
+/*#define I_TERMIO /**/\r
+/*#define I_TERMIOS /**/\r
+/*#define I_SGTTY /**/\r
+\r
+/* I_UNISTD:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <unistd.h>.\r
+ */\r
+/*#define I_UNISTD /**/\r
+\r
+/* I_UTIME:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <utime.h>.\r
+ */\r
+#define I_UTIME /**/\r
+\r
+/* I_VALUES:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <values.h> to get definition of symbols like MINFLOAT or\r
+ * MAXLONG, i.e. machine dependant limitations. Probably, you\r
+ * should use <limits.h> instead, if it is available.\r
+ */\r
+/*#define I_VALUES /**/\r
+\r
+/* I_VFORK:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include vfork.h.\r
+ */\r
+/*#define I_VFORK /**/\r
+\r
+/* CAN_PROTOTYPE:\r
+ * If defined, this macro indicates that the C compiler can handle\r
+ * function prototypes.\r
+ */\r
+/* _:\r
+ * This macro is used to declare function parameters for folks who want\r
+ * to make declarations with prototypes using a different style than\r
+ * the above macros. Use double parentheses. For example:\r
+ *\r
+ * int main _((int argc, char *argv[]));\r
+ */\r
+#define CAN_PROTOTYPE /**/\r
+#ifdef CAN_PROTOTYPE\r
+#define _(args) args\r
+#else\r
+#define _(args) ()\r
+#endif\r
+\r
+/* SH_PATH:\r
+ * This symbol contains the full pathname to the shell used on this\r
+ * on this system to execute Bourne shell scripts. Usually, this will be\r
+ * /bin/sh, though it's possible that some systems will have /bin/ksh,\r
+ * /bin/pdksh, /bin/ash, /bin/bash, or even something such as\r
+ * D:/bin/sh.exe.\r
+ */\r
+#define SH_PATH "cmd /x /c" /**/\r
+\r
+/* INTSIZE:\r
+ * This symbol contains the value of sizeof(int) so that the C\r
+ * preprocessor can make decisions based on it.\r
+ */\r
+/* LONGSIZE:\r
+ * This symbol contains the value of sizeof(long) so that the C\r
+ * preprocessor can make decisions based on it.\r
+ */\r
+/* SHORTSIZE:\r
+ * This symbol contains the value of sizeof(short) so that the C\r
+ * preprocessor can make decisions based on it.\r
+ */\r
+#define INTSIZE 4 /**/\r
+#define LONGSIZE 4 /**/\r
+#define SHORTSIZE 2 /**/\r
+\r
+/* MULTIARCH:\r
+ * This symbol, if defined, signifies that the build\r
+ * process will produce some binary files that are going to be\r
+ * used in a cross-platform environment. This is the case for\r
+ * example with the NeXT "fat" binaries that contain executables\r
+ * for several CPUs.\r
+ */\r
+/*#define MULTIARCH /**/\r
+\r
+/* HAS_QUAD:\r
+ * This symbol, if defined, tells that there's a 64-bit integer type,\r
+ * Quad_t, and its unsigned counterpar, Uquad_t. QUADKIND will be one\r
+ * of QUAD_IS_INT, QUAD_IS_LONG, QUAD_IS_LONG_LONG, or QUAD_IS_INT64_T.\r
+ */\r
+/*#define HAS_QUAD /**/\r
+#ifdef HAS_QUAD\r
+# define Quad_t __int64 /**/\r
+# define Uquad_t unsigned __int64 /**/\r
+# define QUADKIND 5 /**/\r
+# define QUAD_IS_INT 1\r
+# define QUAD_IS_LONG 2\r
+# define QUAD_IS_LONG_LONG 3\r
+# define QUAD_IS_INT64_T 4\r
+#endif\r
+\r
+/* HAS_ACCESSX:\r
+ * This symbol, if defined, indicates that the accessx routine is\r
+ * available to do extended access checks.\r
+ */\r
+/*#define HAS_ACCESSX /**/\r
+\r
+/* HAS_EACCESS:\r
+ * This symbol, if defined, indicates that the eaccess routine is\r
+ * available to do extended access checks.\r
+ */\r
+/*#define HAS_EACCESS /**/\r
+\r
+/* I_SYS_ACCESS:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <sys/access.h>.\r
+ */\r
+/*#define I_SYS_ACCESS /**/\r
+\r
+/* I_SYS_SECURITY:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <sys/security.h>.\r
+ */\r
+/*#define I_SYS_SECURITY /**/\r
+\r
+/* OSNAME:\r
+ * This symbol contains the name of the operating system, as determined\r
+ * by Configure. You shouldn't rely on it too much; the specific\r
+ * feature tests from Configure are generally more reliable.\r
+ */\r
+/* OSVERS:\r
+ * This symbol contains the version of the operating system, as determined\r
+ * by Configure. You shouldn't rely on it too much; the specific\r
+ * feature tests from Configure are generally more reliable.\r
+ */\r
+#define OSNAME "MSWin32" /**/\r
+#define OSVERS "4.0" /**/\r
+\r
+/* MEM_ALIGNBYTES:\r
+ * This symbol contains the number of bytes required to align a\r
+ * double, or a long double when applicable. Usual values are 2,\r
+ * 4 and 8. The default is eight, for safety.\r
+ */\r
+#if defined(USE_CROSS_COMPILE) || defined(MULTIARCH)\r
+# define MEM_ALIGNBYTES 8\r
+#else\r
+#define MEM_ALIGNBYTES 8\r
+#endif\r
+\r
+/* ARCHLIB:\r
+ * This variable, if defined, holds the name of the directory in\r
+ * which the user wants to put architecture-dependent public\r
+ * library files for perl5. It is most often a local directory\r
+ * such as /usr/local/lib. Programs using this variable must be\r
+ * prepared to deal with filename expansion. If ARCHLIB is the\r
+ * same as PRIVLIB, it is not defined, since presumably the\r
+ * program already searches PRIVLIB.\r
+ */\r
+/* ARCHLIB_EXP:\r
+ * This symbol contains the ~name expanded version of ARCHLIB, to be used\r
+ * in programs that are not prepared to deal with ~ expansion at run-time.\r
+ */\r
+#define ARCHLIB "5.7.2\\lib" /**/\r
+/*#define ARCHLIB_EXP "" /**/\r
+\r
+/* ARCHNAME:\r
+ * This symbol holds a string representing the architecture name.\r
+ * It may be used to construct an architecture-dependant pathname\r
+ * where library files may be held under a private library, for\r
+ * instance.\r
+ */\r
+#define ARCHNAME "HPC2000-WCE300-ARM" /**/\r
+\r
+/* HAS_ATOLF:\r
+ * This symbol, if defined, indicates that the atolf routine is\r
+ * available to convert strings into long doubles.\r
+ */\r
+/*#define HAS_ATOLF /**/\r
+\r
+/* HAS_ATOLL:\r
+ * This symbol, if defined, indicates that the atoll routine is\r
+ * available to convert strings into long longs.\r
+ */\r
+/*#define HAS_ATOLL /**/\r
+\r
+/* BIN:\r
+ * This symbol holds the path of the bin directory where the package will\r
+ * be installed. Program must be prepared to deal with ~name substitution.\r
+ */\r
+/* BIN_EXP:\r
+ * This symbol is the filename expanded version of the BIN symbol, for\r
+ * programs that do not want to deal with that at run-time.\r
+ */\r
+#define BIN "5.7.2\\bin" /**/\r
+#define BIN_EXP "5.7.2\\bin" /**/\r
+\r
+/* PERL_BINCOMPAT_5005:\r
+ * This symbol, if defined, indicates that this version of Perl should be\r
+ * binary-compatible with Perl 5.005. This is impossible for builds\r
+ * that use features like threads and multiplicity it is always undef\r
+ * for those versions.\r
+ */\r
+/*#define PERL_BINCOMPAT_5005 /**/\r
+\r
+/* BYTEORDER:\r
+ * This symbol holds the hexadecimal constant defined in byteorder,\r
+ * i.e. 0x1234 or 0x4321, etc...\r
+ * If the compiler supports cross-compiling or multiple-architecture\r
+ * binaries (eg. on NeXT systems), use compiler-defined macros to\r
+ * determine the byte order.\r
+ * On NeXT 3.2 (and greater), you can build "Fat" Multiple Architecture\r
+ * Binaries (MAB) on either big endian or little endian machines.\r
+ * The endian-ness is available at compile-time. This only matters\r
+ * for perl, where the config.h can be generated and installed on \r
+ * one system, and used by a different architecture to build an\r
+ * extension. Older versions of NeXT that might not have\r
+ * defined either *_ENDIAN__ were all on Motorola 680x0 series,\r
+ * so the default case (for NeXT) is big endian to catch them. \r
+ * This might matter for NeXT 3.0.\r
+ */\r
+#if defined(USE_CROSS_COMPILE) || defined(MULTIARCH)\r
+# ifdef __LITTLE_ENDIAN__\r
+# if LONGSIZE == 4\r
+# define BYTEORDER 0x1234\r
+# else\r
+# if LONGSIZE == 8\r
+# define BYTEORDER 0x12345678\r
+# endif\r
+# endif\r
+# else\r
+# ifdef __BIG_ENDIAN__\r
+# if LONGSIZE == 4\r
+# define BYTEORDER 0x4321\r
+# else\r
+# if LONGSIZE == 8\r
+# define BYTEORDER 0x87654321\r
+# endif\r
+# endif\r
+# endif\r
+# endif\r
+# if !defined(BYTEORDER) && (defined(NeXT) || defined(__NeXT__))\r
+# define BYTEORDER 0x4321\r
+# endif\r
+#else\r
+#define BYTEORDER 0x1234 /* large digits for MSB */\r
+#endif /* NeXT */\r
+\r
+/* CAT2:\r
+ * This macro catenates 2 tokens together.\r
+ */\r
+/* STRINGIFY:\r
+ * This macro surrounds its token with double quotes.\r
+ */\r
+#if 42 == 1\r
+#define CAT2(a,b) a/**/b\r
+#define STRINGIFY(a) "a"\r
+ /* If you can get stringification with catify, tell me how! */\r
+#endif\r
+#if 42 == 42\r
+#define PeRl_CaTiFy(a, b) a ## b \r
+#define PeRl_StGiFy(a) #a\r
+/* the additional level of indirection enables these macros to be\r
+ * used as arguments to other macros. See K&R 2nd ed., page 231. */\r
+#define CAT2(a,b) PeRl_CaTiFy(a,b)\r
+#define StGiFy(a) PeRl_StGiFy(a)\r
+#define STRINGIFY(a) PeRl_StGiFy(a)\r
+#endif\r
+#if 42 != 1 && 42 != 42\r
+# include "Bletch: How does this C preprocessor catenate tokens?"\r
+#endif\r
+\r
+/* CPPSTDIN:\r
+ * This symbol contains the first part of the string which will invoke\r
+ * the C preprocessor on the standard input and produce to standard\r
+ * output. Typical value of "cc -E" or "/lib/cpp", but it can also\r
+ * call a wrapper. See CPPRUN.\r
+ */\r
+/* CPPMINUS:\r
+ * This symbol contains the second part of the string which will invoke\r
+ * the C preprocessor on the standard input and produce to standard\r
+ * output. This symbol will have the value "-" if CPPSTDIN needs a minus\r
+ * to specify standard input, otherwise the value is "".\r
+ */\r
+/* CPPRUN:\r
+ * This symbol contains the string which will invoke a C preprocessor on\r
+ * the standard input and produce to standard output. It needs to end\r
+ * with CPPLAST, after all other preprocessor flags have been specified.\r
+ * The main difference with CPPSTDIN is that this program will never be a\r
+ * pointer to a shell wrapper, i.e. it will be empty if no preprocessor is\r
+ * available directly to the user. Note that it may well be different from\r
+ * the preprocessor used to compile the C program.\r
+ */\r
+/* CPPLAST:\r
+ * This symbol is intended to be used along with CPPRUN in the same manner\r
+ * symbol CPPMINUS is used with CPPSTDIN. It contains either "-" or "".\r
+ */\r
+#define CPPSTDIN "cl -nologo -E"\r
+#define CPPMINUS ""\r
+#define CPPRUN "cl -nologo -E"\r
+#define CPPLAST ""\r
+\r
+/* HAS__FWALK:\r
+ * This symbol, if defined, indicates that the _fwalk system call is\r
+ * available to apply a function to all the file handles.\r
+ */\r
+/*#define HAS__FWALK /**/\r
+\r
+/* HAS_ACCESS:\r
+ * This manifest constant lets the C program know that the access()\r
+ * system call is available to check for accessibility using real UID/GID.\r
+ * (always present on UNIX.)\r
+ */\r
+#define HAS_ACCESS /**/\r
+\r
+/* CASTI32:\r
+ * This symbol is defined if the C compiler can cast negative\r
+ * or large floating point numbers to 32-bit ints.\r
+ */\r
+/*#define CASTI32 /**/\r
+\r
+/* CASTNEGFLOAT:\r
+ * This symbol is defined if the C compiler can cast negative\r
+ * numbers to unsigned longs, ints and shorts.\r
+ */\r
+/* CASTFLAGS:\r
+ * This symbol contains flags that say what difficulties the compiler\r
+ * has casting odd floating values to unsigned long:\r
+ * 0 = ok\r
+ * 1 = couldn't cast < 0\r
+ * 2 = couldn't cast >= 0x80000000\r
+ * 4 = couldn't cast in argument expression list\r
+ */\r
+#define CASTNEGFLOAT /**/\r
+#define CASTFLAGS 0 /**/\r
+\r
+/* VOID_CLOSEDIR:\r
+ * This symbol, if defined, indicates that the closedir() routine\r
+ * does not return a value.\r
+ */\r
+/*#define VOID_CLOSEDIR /**/\r
+\r
+/* HAS_STRUCT_CMSGHDR:\r
+ * This symbol, if defined, indicates that the struct cmsghdr\r
+ * is supported.\r
+ */\r
+/*#define HAS_STRUCT_CMSGHDR /**/\r
+\r
+/* HAS_CSH:\r
+ * This symbol, if defined, indicates that the C-shell exists.\r
+ */\r
+/* CSH:\r
+ * This symbol, if defined, contains the full pathname of csh.\r
+ */\r
+/*#define HAS_CSH /**/\r
+#ifdef HAS_CSH\r
+#define CSH "" /**/\r
+#endif\r
+\r
+/* DLSYM_NEEDS_UNDERSCORE:\r
+ * This symbol, if defined, indicates that we need to prepend an\r
+ * underscore to the symbol name before calling dlsym(). This only\r
+ * makes sense if you *have* dlsym, which we will presume is the\r
+ * case if you're using dl_dlopen.xs.\r
+ */\r
+/*#define DLSYM_NEEDS_UNDERSCORE /**/\r
+\r
+/* HAS_DRAND48_PROTO:\r
+ * This symbol, if defined, indicates that the system provides\r
+ * a prototype for the drand48() function. Otherwise, it is up\r
+ * to the program to supply one. A good guess is\r
+ * extern double drand48 _((void));\r
+ */\r
+/*#define HAS_DRAND48_PROTO /**/\r
+\r
+/* HAS_ENDGRENT:\r
+ * This symbol, if defined, indicates that the getgrent routine is\r
+ * available for finalizing sequential access of the group database.\r
+ */\r
+/*#define HAS_ENDGRENT /**/\r
+\r
+/* HAS_ENDHOSTENT:\r
+ * This symbol, if defined, indicates that the endhostent() routine is\r
+ * available to close whatever was being used for host queries.\r
+ */\r
+/*#define HAS_ENDHOSTENT /**/\r
+\r
+/* HAS_ENDNETENT:\r
+ * This symbol, if defined, indicates that the endnetent() routine is\r
+ * available to close whatever was being used for network queries.\r
+ */\r
+/*#define HAS_ENDNETENT /**/\r
+\r
+/* HAS_ENDPROTOENT:\r
+ * This symbol, if defined, indicates that the endprotoent() routine is\r
+ * available to close whatever was being used for protocol queries.\r
+ */\r
+/*#define HAS_ENDPROTOENT /**/\r
+\r
+/* HAS_ENDPWENT:\r
+ * This symbol, if defined, indicates that the getgrent routine is\r
+ * available for finalizing sequential access of the passwd database.\r
+ */\r
+/*#define HAS_ENDPWENT /**/\r
+\r
+/* HAS_ENDSERVENT:\r
+ * This symbol, if defined, indicates that the endservent() routine is\r
+ * available to close whatever was being used for service queries.\r
+ */\r
+/*#define HAS_ENDSERVENT /**/\r
+\r
+/* HAS_FCHDIR:\r
+ * This symbol, if defined, indicates that the fchdir routine is\r
+ * available to change directory using a file descriptor.\r
+ */\r
+/*#define HAS_FCHDIR /**/\r
+\r
+/* FCNTL_CAN_LOCK:\r
+ * This symbol, if defined, indicates that fcntl() can be used\r
+ * for file locking. Normally on Unix systems this is defined.\r
+ * It may be undefined on VMS.\r
+ */\r
+/*#define FCNTL_CAN_LOCK /**/\r
+\r
+/* HAS_FD_SET:\r
+ * This symbol, when defined, indicates presence of the fd_set typedef\r
+ * in <sys/types.h>\r
+ */\r
+#define HAS_FD_SET /**/\r
+\r
+/* FLEXFILENAMES:\r
+ * This symbol, if defined, indicates that the system supports filenames\r
+ * longer than 14 characters.\r
+ */\r
+#define FLEXFILENAMES /**/\r
+\r
+/* HAS_FPOS64_T:\r
+ * This symbol will be defined if the C compiler supports fpos64_t.\r
+ */\r
+/*#define HAS_FPOS64_T /**/\r
+\r
+/* HAS_FREXPL:\r
+ * This symbol, if defined, indicates that the frexpl routine is\r
+ * available to break a long double floating-point number into\r
+ * a normalized fraction and an integral power of 2.\r
+ */\r
+/*#define HAS_FREXPL /**/\r
+\r
+/* HAS_STRUCT_FS_DATA:\r
+ * This symbol, if defined, indicates that the struct fs_data\r
+ * to do statfs() is supported.\r
+ */\r
+/*#define HAS_STRUCT_FS_DATA /**/\r
+\r
+/* HAS_FSEEKO:\r
+ * This symbol, if defined, indicates that the fseeko routine is\r
+ * available to fseek beyond 32 bits (useful for ILP32 hosts).\r
+ */\r
+/*#define HAS_FSEEKO /**/\r
+\r
+/* HAS_FSTATFS:\r
+ * This symbol, if defined, indicates that the fstatfs routine is\r
+ * available to stat filesystems by file descriptors.\r
+ */\r
+/*#define HAS_FSTATFS /**/\r
+\r
+/* HAS_FSYNC:\r
+ * This symbol, if defined, indicates that the fsync routine is\r
+ * available to write a file's modified data and attributes to\r
+ * permanent storage.\r
+ */\r
+/*#define HAS_FSYNC /**/\r
+\r
+/* HAS_FTELLO:\r
+ * This symbol, if defined, indicates that the ftello routine is\r
+ * available to ftell beyond 32 bits (useful for ILP32 hosts).\r
+ */\r
+/*#define HAS_FTELLO /**/\r
+\r
+/* Gconvert:\r
+ * This preprocessor macro is defined to convert a floating point\r
+ * number to a string without a trailing decimal point. This\r
+ * emulates the behavior of sprintf("%g"), but is sometimes much more\r
+ * efficient. If gconvert() is not available, but gcvt() drops the\r
+ * trailing decimal point, then gcvt() is used. If all else fails,\r
+ * a macro using sprintf("%g") is used. Arguments for the Gconvert\r
+ * macro are: value, number of digits, whether trailing zeros should\r
+ * be retained, and the output buffer.\r
+ * Possible values are:\r
+ * d_Gconvert='gconvert((x),(n),(t),(b))'\r
+ * d_Gconvert='gcvt((x),(n),(b))'\r
+ * d_Gconvert='sprintf((b),"%.*g",(n),(x))'\r
+ * The last two assume trailing zeros should not be kept.\r
+ */\r
+#define Gconvert(x,n,t,b) sprintf((b),"%.*g",(n),(x))\r
+\r
+/* HAS_GETCWD:\r
+ * This symbol, if defined, indicates that the getcwd routine is\r
+ * available to get the current working directory.\r
+ */\r
+/*#define HAS_GETCWD /**/\r
+\r
+/* HAS_GETESPWNAM:\r
+ * This symbol, if defined, indicates that the getespwnam system call is\r
+ * available to retrieve enchanced (shadow) password entries by name.\r
+ */\r
+/*#define HAS_GETESPWNAM /**/\r
+\r
+/* HAS_GETFSSTAT:\r
+ * This symbol, if defined, indicates that the getfsstat routine is\r
+ * available to stat filesystems in bulk.\r
+ */\r
+/*#define HAS_GETFSSTAT /**/\r
+\r
+/* HAS_GETGRENT:\r
+ * This symbol, if defined, indicates that the getgrent routine is\r
+ * available for sequential access of the group database.\r
+ */\r
+/*#define HAS_GETGRENT /**/\r
+\r
+/* HAS_GETHOSTBYADDR:\r
+ * This symbol, if defined, indicates that the gethostbyaddr() routine is\r
+ * available to look up hosts by their IP addresses.\r
+ */\r
+#define HAS_GETHOSTBYADDR /**/\r
+\r
+/* HAS_GETHOSTBYNAME:\r
+ * This symbol, if defined, indicates that the gethostbyname() routine is\r
+ * available to look up host names in some data base or other.\r
+ */\r
+#define HAS_GETHOSTBYNAME /**/\r
+\r
+/* HAS_GETHOSTENT:\r
+ * This symbol, if defined, indicates that the gethostent() routine is\r
+ * available to look up host names in some data base or another.\r
+ */\r
+/*#define HAS_GETHOSTENT /**/\r
+\r
+/* HAS_GETHOSTNAME:\r
+ * This symbol, if defined, indicates that the C program may use the\r
+ * gethostname() routine to derive the host name. See also HAS_UNAME\r
+ * and PHOSTNAME.\r
+ */\r
+/* HAS_UNAME:\r
+ * This symbol, if defined, indicates that the C program may use the\r
+ * uname() routine to derive the host name. See also HAS_GETHOSTNAME\r
+ * and PHOSTNAME.\r
+ */\r
+/* PHOSTNAME:\r
+ * This symbol, if defined, indicates the command to feed to the\r
+ * popen() routine to derive the host name. See also HAS_GETHOSTNAME\r
+ * and HAS_UNAME. Note that the command uses a fully qualified path,\r
+ * so that it is safe even if used by a process with super-user\r
+ * privileges.\r
+ */\r
+/* HAS_PHOSTNAME:\r
+ * This symbol, if defined, indicates that the C program may use the\r
+ * contents of PHOSTNAME as a command to feed to the popen() routine\r
+ * to derive the host name.\r
+ */\r
+#define HAS_GETHOSTNAME /**/\r
+#define HAS_UNAME /**/\r
+/*#define HAS_PHOSTNAME /**/\r
+#ifdef HAS_PHOSTNAME\r
+#define PHOSTNAME "" /* How to get the host name */\r
+#endif\r
+\r
+/* HAS_GETHOST_PROTOS:\r
+ * This symbol, if defined, indicates that <netdb.h> includes\r
+ * prototypes for gethostent(), gethostbyname(), and\r
+ * gethostbyaddr(). Otherwise, it is up to the program to guess\r
+ * them. See netdbtype.U for probing for various Netdb_xxx_t types.\r
+ */\r
+#define HAS_GETHOST_PROTOS /**/\r
+\r
+/* HAS_GETITIMER:\r
+ * This symbol, if defined, indicates that the getitimer routine is\r
+ * available to return interval timers.\r
+ */\r
+/*#define HAS_GETITIMER /**/\r
+\r
+/* HAS_GETMNT:\r
+ * This symbol, if defined, indicates that the getmnt routine is\r
+ * available to get filesystem mount info by filename.\r
+ */\r
+/*#define HAS_GETMNT /**/\r
+\r
+/* HAS_GETMNTENT:\r
+ * This symbol, if defined, indicates that the getmntent routine is\r
+ * available to iterate through mounted file systems to get their info.\r
+ */\r
+/*#define HAS_GETMNTENT /**/\r
+\r
+/* HAS_GETNETBYADDR:\r
+ * This symbol, if defined, indicates that the getnetbyaddr() routine is\r
+ * available to look up networks by their IP addresses.\r
+ */\r
+/*#define HAS_GETNETBYADDR /**/\r
+\r
+/* HAS_GETNETBYNAME:\r
+ * This symbol, if defined, indicates that the getnetbyname() routine is\r
+ * available to look up networks by their names.\r
+ */\r
+/*#define HAS_GETNETBYNAME /**/\r
+\r
+/* HAS_GETNETENT:\r
+ * This symbol, if defined, indicates that the getnetent() routine is\r
+ * available to look up network names in some data base or another.\r
+ */\r
+/*#define HAS_GETNETENT /**/\r
+\r
+/* HAS_GETNET_PROTOS:\r
+ * This symbol, if defined, indicates that <netdb.h> includes\r
+ * prototypes for getnetent(), getnetbyname(), and\r
+ * getnetbyaddr(). Otherwise, it is up to the program to guess\r
+ * them. See netdbtype.U for probing for various Netdb_xxx_t types.\r
+ */\r
+/*#define HAS_GETNET_PROTOS /**/\r
+\r
+/* HAS_GETPAGESIZE:\r
+ * This symbol, if defined, indicates that the getpagesize system call\r
+ * is available to get system page size, which is the granularity of\r
+ * many memory management calls.\r
+ */\r
+/*#define HAS_GETPAGESIZE /**/\r
+\r
+/* HAS_GETPROTOENT:\r
+ * This symbol, if defined, indicates that the getprotoent() routine is\r
+ * available to look up protocols in some data base or another.\r
+ */\r
+/*#define HAS_GETPROTOENT /**/\r
+\r
+/* HAS_GETPGRP:\r
+ * This symbol, if defined, indicates that the getpgrp routine is\r
+ * available to get the current process group.\r
+ */\r
+/* USE_BSD_GETPGRP:\r
+ * This symbol, if defined, indicates that getpgrp needs one\r
+ * arguments whereas USG one needs none.\r
+ */\r
+/*#define HAS_GETPGRP /**/\r
+/*#define USE_BSD_GETPGRP /**/\r
+\r
+/* HAS_GETPROTOBYNAME:\r
+ * This symbol, if defined, indicates that the getprotobyname()\r
+ * routine is available to look up protocols by their name.\r
+ */\r
+/* HAS_GETPROTOBYNUMBER:\r
+ * This symbol, if defined, indicates that the getprotobynumber()\r
+ * routine is available to look up protocols by their number.\r
+ */\r
+#define HAS_GETPROTOBYNAME /**/\r
+#define HAS_GETPROTOBYNUMBER /**/\r
+\r
+/* HAS_GETPROTO_PROTOS:\r
+ * This symbol, if defined, indicates that <netdb.h> includes\r
+ * prototypes for getprotoent(), getprotobyname(), and\r
+ * getprotobyaddr(). Otherwise, it is up to the program to guess\r
+ * them. See netdbtype.U for probing for various Netdb_xxx_t types.\r
+ */\r
+#define HAS_GETPROTO_PROTOS /**/\r
+\r
+/* HAS_GETPRPWNAM:\r
+ * This symbol, if defined, indicates that the getprpwnam system call is\r
+ * available to retrieve protected (shadow) password entries by name.\r
+ */\r
+/*#define HAS_GETPRPWNAM /**/\r
+\r
+/* HAS_GETPWENT:\r
+ * This symbol, if defined, indicates that the getpwent routine is\r
+ * available for sequential access of the passwd database.\r
+ * If this is not available, the older getpw() function may be available.\r
+ */\r
+/*#define HAS_GETPWENT /**/\r
+\r
+/* HAS_GETSERVENT:\r
+ * This symbol, if defined, indicates that the getservent() routine is\r
+ * available to look up network services in some data base or another.\r
+ */\r
+/*#define HAS_GETSERVENT /**/\r
+\r
+/* HAS_GETSERV_PROTOS:\r
+ * This symbol, if defined, indicates that <netdb.h> includes\r
+ * prototypes for getservent(), getservbyname(), and\r
+ * getservbyaddr(). Otherwise, it is up to the program to guess\r
+ * them. See netdbtype.U for probing for various Netdb_xxx_t types.\r
+ */\r
+#define HAS_GETSERV_PROTOS /**/\r
+\r
+/* HAS_GETSPNAM:\r
+ * This symbol, if defined, indicates that the getspnam system call is\r
+ * available to retrieve SysV shadow password entries by name.\r
+ */\r
+/*#define HAS_GETSPNAM /**/\r
+\r
+/* HAS_GETSERVBYNAME:\r
+ * This symbol, if defined, indicates that the getservbyname()\r
+ * routine is available to look up services by their name.\r
+ */\r
+/* HAS_GETSERVBYPORT:\r
+ * This symbol, if defined, indicates that the getservbyport()\r
+ * routine is available to look up services by their port.\r
+ */\r
+#define HAS_GETSERVBYNAME /**/\r
+#define HAS_GETSERVBYPORT /**/\r
+\r
+/* HAS_GNULIBC:\r
+ * This symbol, if defined, indicates to the C program that \r
+ * the GNU C library is being used.\r
+ */\r
+/*#define HAS_GNULIBC /**/\r
+#if defined(HAS_GNULIBC) && !defined(_GNU_SOURCE)\r
+# define _GNU_SOURCE\r
+#endif\r
+/* HAS_HASMNTOPT:\r
+ * This symbol, if defined, indicates that the hasmntopt routine is\r
+ * available to query the mount options of file systems.\r
+ */\r
+/*#define HAS_HASMNTOPT /**/\r
+\r
+/* HAS_HTONL:\r
+ * This symbol, if defined, indicates that the htonl() routine (and\r
+ * friends htons() ntohl() ntohs()) are available to do network\r
+ * order byte swapping.\r
+ */\r
+/* HAS_HTONS:\r
+ * This symbol, if defined, indicates that the htons() routine (and\r
+ * friends htonl() ntohl() ntohs()) are available to do network\r
+ * order byte swapping.\r
+ */\r
+/* HAS_NTOHL:\r
+ * This symbol, if defined, indicates that the ntohl() routine (and\r
+ * friends htonl() htons() ntohs()) are available to do network\r
+ * order byte swapping.\r
+ */\r
+/* HAS_NTOHS:\r
+ * This symbol, if defined, indicates that the ntohs() routine (and\r
+ * friends htonl() htons() ntohl()) are available to do network\r
+ * order byte swapping.\r
+ */\r
+#define HAS_HTONL /**/\r
+#define HAS_HTONS /**/\r
+#define HAS_NTOHL /**/\r
+#define HAS_NTOHS /**/\r
+\r
+/* HAS_ICONV:\r
+ * This symbol, if defined, indicates that the iconv routine is\r
+ * available to do character set conversions.\r
+ */\r
+/*#define HAS_ICONV /**/\r
+\r
+/* HAS_INT64_T:\r
+ * This symbol will defined if the C compiler supports int64_t.\r
+ * Usually the <inttypes.h> needs to be included, but sometimes\r
+ * <sys/types.h> is enough.\r
+ */\r
+/*#define HAS_INT64_T /**/\r
+\r
+/* HAS_ISASCII:\r
+ * This manifest constant lets the C program know that isascii \r
+ * is available.\r
+ */\r
+#define HAS_ISASCII /**/\r
+\r
+/* HAS_ISNAN:\r
+ * This symbol, if defined, indicates that the isnan routine is\r
+ * available to check whether a double is a NaN.\r
+ */\r
+/*#define HAS_ISNAN /**/\r
+\r
+/* HAS_ISNANL:\r
+ * This symbol, if defined, indicates that the isnanl routine is\r
+ * available to check whether a long double is a NaN.\r
+ */\r
+/*#define HAS_ISNANL /**/\r
+\r
+/* HAS_LCHOWN:\r
+ * This symbol, if defined, indicates that the lchown routine is\r
+ * available to operate on a symbolic link (instead of following the\r
+ * link).\r
+ */\r
+/*#define HAS_LCHOWN /**/\r
+\r
+/* HAS_LDBL_DIG:\r
+ * This symbol, if defined, indicates that this system's <float.h>\r
+ * or <limits.h> defines the symbol LDBL_DIG, which is the number\r
+ * of significant digits in a long double precision number. Unlike\r
+ * for DBL_DIG, there's no good guess for LDBL_DIG if it is undefined.\r
+ */\r
+#define HAS_LDBL_DIG /**/\r
+\r
+/* HAS_LONG_DOUBLE:\r
+ * This symbol will be defined if the C compiler supports long\r
+ * doubles.\r
+ */\r
+/* LONG_DOUBLESIZE:\r
+ * This symbol contains the size of a long double, so that the \r
+ * C preprocessor can make decisions based on it. It is only\r
+ * defined if the system supports long doubles.\r
+ */\r
+/*#define HAS_LONG_DOUBLE /**/\r
+#ifdef HAS_LONG_DOUBLE\r
+#define LONG_DOUBLESIZE 10 /**/\r
+#endif\r
+\r
+/* HAS_LONG_LONG:\r
+ * This symbol will be defined if the C compiler supports long long.\r
+ */\r
+/* LONGLONGSIZE:\r
+ * This symbol contains the size of a long long, so that the \r
+ * C preprocessor can make decisions based on it. It is only\r
+ * defined if the system supports long long.\r
+ */\r
+/*#define HAS_LONG_LONG /**/\r
+#ifdef HAS_LONG_LONG\r
+#define LONGLONGSIZE 8 /**/\r
+#endif\r
+\r
+/* HAS_LSEEK_PROTO:\r
+ * This symbol, if defined, indicates that the system provides\r
+ * a prototype for the lseek() function. Otherwise, it is up\r
+ * to the program to supply one. A good guess is\r
+ * extern off_t lseek(int, off_t, int);\r
+ */\r
+#define HAS_LSEEK_PROTO /**/\r
+\r
+/* HAS_MADVISE:\r
+ * This symbol, if defined, indicates that the madvise system call is\r
+ * available to map a file into memory.\r
+ */\r
+/*#define HAS_MADVISE /**/\r
+\r
+/* HAS_MEMCHR:\r
+ * This symbol, if defined, indicates that the memchr routine is available\r
+ * to locate characters within a C string.\r
+ */\r
+#define HAS_MEMCHR /**/\r
+\r
+/* HAS_MKDTEMP:\r
+ * This symbol, if defined, indicates that the mkdtemp routine is\r
+ * available to exclusively create a uniquely named temporary directory.\r
+ */\r
+/*#define HAS_MKDTEMP /**/\r
+\r
+/* HAS_MKSTEMP:\r
+ * This symbol, if defined, indicates that the mkstemp routine is\r
+ * available to exclusively create and open a uniquely named\r
+ * temporary file.\r
+ */\r
+/*#define HAS_MKSTEMP /**/\r
+\r
+/* HAS_MKSTEMPS:\r
+ * This symbol, if defined, indicates that the mkstemps routine is\r
+ * available to excluslvely create and open a uniquely named\r
+ * (with a suffix) temporary file.\r
+ */\r
+/*#define HAS_MKSTEMPS /**/\r
+\r
+/* HAS_MMAP:\r
+ * This symbol, if defined, indicates that the mmap system call is\r
+ * available to map a file into memory.\r
+ */\r
+/* Mmap_t:\r
+ * This symbol holds the return type of the mmap() system call\r
+ * (and simultaneously the type of the first argument).\r
+ * Usually set to 'void *' or 'cadd_t'.\r
+ */\r
+/*#define HAS_MMAP /**/\r
+#define Mmap_t void * /**/\r
+\r
+/* HAS_MODFL:\r
+ * This symbol, if defined, indicates that the modfl routine is\r
+ * available to split a long double x into a fractional part f and\r
+ * an integer part i such that |f| < 1.0 and (f + i) = x.\r
+ */\r
+/* HAS_MODFL_POW32_BUG:\r
+ * This symbol, if defined, indicates that the modfl routine is\r
+ * broken for long doubles >= pow(2, 32).\r
+ * For example from 4294967303.150000 one would get 4294967302.000000\r
+ * and 1.150000. The bug has been seen in certain versions of glibc,\r
+ * release 2.2.2 is known to be okay.\r
+ */\r
+/*#define HAS_MODFL /**/\r
+/*#define HAS_MODFL_POW32_BUG /**/\r
+\r
+/* HAS_MPROTECT:\r
+ * This symbol, if defined, indicates that the mprotect system call is\r
+ * available to modify the access protection of a memory mapped file.\r
+ */\r
+/*#define HAS_MPROTECT /**/\r
+\r
+/* HAS_MSG:\r
+ * This symbol, if defined, indicates that the entire msg*(2) library is\r
+ * supported (IPC mechanism based on message queues).\r
+ */\r
+/*#define HAS_MSG /**/\r
+\r
+/* HAS_STRUCT_MSGHDR:\r
+ * This symbol, if defined, indicates that the struct msghdr\r
+ * is supported.\r
+ */\r
+/*#define HAS_STRUCT_MSGHDR /**/\r
+\r
+/* HAS_OFF64_T:\r
+ * This symbol will be defined if the C compiler supports off64_t.\r
+ */\r
+/*#define HAS_OFF64_T /**/\r
+\r
+/* HAS_OPEN3:\r
+ * This manifest constant lets the C program know that the three\r
+ * argument form of open(2) is available.\r
+ */\r
+/*#define HAS_OPEN3 /**/\r
+\r
+/* OLD_PTHREAD_CREATE_JOINABLE:\r
+ * This symbol, if defined, indicates how to create pthread\r
+ * in joinable (aka undetached) state. NOTE: not defined\r
+ * if pthread.h already has defined PTHREAD_CREATE_JOINABLE\r
+ * (the new version of the constant).\r
+ * If defined, known values are PTHREAD_CREATE_UNDETACHED\r
+ * and __UNDETACHED.\r
+ */\r
+/*#define OLD_PTHREAD_CREATE_JOINABLE /**/\r
+\r
+/* HAS_PTHREAD_YIELD:\r
+ * This symbol, if defined, indicates that the pthread_yield \r
+ * routine is available to yield the execution of the current\r
+ * thread. sched_yield is preferable to pthread_yield.\r
+ */\r
+/* SCHED_YIELD:\r
+ * This symbol defines the way to yield the execution of\r
+ * the current thread. Known ways are sched_yield,\r
+ * pthread_yield, and pthread_yield with NULL.\r
+ */\r
+/* HAS_SCHED_YIELD:\r
+ * This symbol, if defined, indicates that the sched_yield\r
+ * routine is available to yield the execution of the current\r
+ * thread. sched_yield is preferable to pthread_yield.\r
+ */\r
+/*#define HAS_PTHREAD_YIELD /**/\r
+#define SCHED_YIELD /**/\r
+/*#define HAS_SCHED_YIELD /**/\r
+\r
+/* HAS_READV:\r
+ * This symbol, if defined, indicates that the readv routine is\r
+ * available to do gather reads. You will also need <sys/uio.h>\r
+ * and there I_SYSUIO.\r
+ */\r
+/*#define HAS_READV /**/\r
+\r
+/* HAS_RECVMSG:\r
+ * This symbol, if defined, indicates that the recvmsg routine is\r
+ * available to send structured socket messages.\r
+ */\r
+/*#define HAS_RECVMSG /**/\r
+\r
+/* HAS_SAFE_BCOPY:\r
+ * This symbol, if defined, indicates that the bcopy routine is available\r
+ * to copy potentially overlapping memory blocks. Normally, you should\r
+ * probably use memmove() or memcpy(). If neither is defined, roll your\r
+ * own version.\r
+ */\r
+/*#define HAS_SAFE_BCOPY /**/\r
+\r
+/* HAS_SAFE_MEMCPY:\r
+ * This symbol, if defined, indicates that the memcpy routine is available\r
+ * to copy potentially overlapping memory blocks. If you need to\r
+ * copy overlapping memory blocks, you should check HAS_MEMMOVE and\r
+ * use memmove() instead, if available.\r
+ */\r
+/*#define HAS_SAFE_MEMCPY /**/\r
+\r
+/* HAS_SANE_MEMCMP:\r
+ * This symbol, if defined, indicates that the memcmp routine is available\r
+ * and can be used to compare relative magnitudes of chars with their high\r
+ * bits set. If it is not defined, roll your own version.\r
+ */\r
+#define HAS_SANE_MEMCMP /**/\r
+\r
+/* HAS_SBRK_PROTO:\r
+ * This symbol, if defined, indicates that the system provides\r
+ * a prototype for the sbrk() function. Otherwise, it is up\r
+ * to the program to supply one. Good guesses are\r
+ * extern void* sbrk _((int));\r
+ * extern void* sbrk _((size_t));\r
+ */\r
+/*#define HAS_SBRK_PROTO /**/\r
+\r
+/* HAS_SEM:\r
+ * This symbol, if defined, indicates that the entire sem*(2) library is\r
+ * supported.\r
+ */\r
+/*#define HAS_SEM /**/\r
+\r
+/* HAS_SENDMSG:\r
+ * This symbol, if defined, indicates that the sendmsg routine is\r
+ * available to send structured socket messages.\r
+ */\r
+/*#define HAS_SENDMSG /**/\r
+\r
+/* HAS_SETGRENT:\r
+ * This symbol, if defined, indicates that the setgrent routine is\r
+ * available for initializing sequential access of the group database.\r
+ */\r
+/*#define HAS_SETGRENT /**/\r
+\r
+/* HAS_SETGROUPS:\r
+ * This symbol, if defined, indicates that the setgroups() routine is\r
+ * available to set the list of process groups. If unavailable, multiple\r
+ * groups are probably not supported.\r
+ */\r
+/*#define HAS_SETGROUPS /**/\r
+\r
+/* HAS_SETHOSTENT:\r
+ * This symbol, if defined, indicates that the sethostent() routine is\r
+ * available.\r
+ */\r
+/*#define HAS_SETHOSTENT /**/\r
+\r
+/* HAS_SETITIMER:\r
+ * This symbol, if defined, indicates that the setitimer routine is\r
+ * available to set interval timers.\r
+ */\r
+/*#define HAS_SETITIMER /**/\r
+\r
+/* HAS_SETNETENT:\r
+ * This symbol, if defined, indicates that the setnetent() routine is\r
+ * available.\r
+ */\r
+/*#define HAS_SETNETENT /**/\r
+\r
+/* HAS_SETPROTOENT:\r
+ * This symbol, if defined, indicates that the setprotoent() routine is\r
+ * available.\r
+ */\r
+/*#define HAS_SETPROTOENT /**/\r
+\r
+/* HAS_SETPGRP:\r
+ * This symbol, if defined, indicates that the setpgrp routine is\r
+ * available to set the current process group.\r
+ */\r
+/* USE_BSD_SETPGRP:\r
+ * This symbol, if defined, indicates that setpgrp needs two\r
+ * arguments whereas USG one needs none. See also HAS_SETPGID\r
+ * for a POSIX interface.\r
+ */\r
+/*#define HAS_SETPGRP /**/\r
+/*#define USE_BSD_SETPGRP /**/\r
+\r
+/* HAS_SETPROCTITLE:\r
+ * This symbol, if defined, indicates that the setproctitle routine is\r
+ * available to set process title.\r
+ */\r
+/*#define HAS_SETPROCTITLE /**/\r
+\r
+/* HAS_SETPWENT:\r
+ * This symbol, if defined, indicates that the setpwent routine is\r
+ * available for initializing sequential access of the passwd database.\r
+ */\r
+/*#define HAS_SETPWENT /**/\r
+\r
+/* HAS_SETSERVENT:\r
+ * This symbol, if defined, indicates that the setservent() routine is\r
+ * available.\r
+ */\r
+/*#define HAS_SETSERVENT /**/\r
+\r
+/* HAS_SETVBUF:\r
+ * This symbol, if defined, indicates that the setvbuf routine is\r
+ * available to change buffering on an open stdio stream.\r
+ * to a line-buffered mode.\r
+ */\r
+/*#define HAS_SETVBUF /**/\r
+\r
+/* USE_SFIO:\r
+ * This symbol, if defined, indicates that sfio should\r
+ * be used.\r
+ */\r
+/*#define USE_SFIO /**/\r
+\r
+/* HAS_SHM:\r
+ * This symbol, if defined, indicates that the entire shm*(2) library is\r
+ * supported.\r
+ */\r
+/*#define HAS_SHM /**/\r
+\r
+/* HAS_SIGACTION:\r
+ * This symbol, if defined, indicates that Vr4's sigaction() routine\r
+ * is available.\r
+ */\r
+/*#define HAS_SIGACTION /**/\r
+\r
+/* HAS_SIGSETJMP:\r
+ * This variable indicates to the C program that the sigsetjmp()\r
+ * routine is available to save the calling process's registers\r
+ * and stack environment for later use by siglongjmp(), and\r
+ * to optionally save the process's signal mask. See\r
+ * Sigjmp_buf, Sigsetjmp, and Siglongjmp.\r
+ */\r
+/* Sigjmp_buf:\r
+ * This is the buffer type to be used with Sigsetjmp and Siglongjmp.\r
+ */\r
+/* Sigsetjmp:\r
+ * This macro is used in the same way as sigsetjmp(), but will invoke\r
+ * traditional setjmp() if sigsetjmp isn't available.\r
+ * See HAS_SIGSETJMP.\r
+ */\r
+/* Siglongjmp:\r
+ * This macro is used in the same way as siglongjmp(), but will invoke\r
+ * traditional longjmp() if siglongjmp isn't available.\r
+ * See HAS_SIGSETJMP.\r
+ */\r
+/*#define HAS_SIGSETJMP /**/\r
+#ifdef HAS_SIGSETJMP\r
+#define Sigjmp_buf sigjmp_buf\r
+#define Sigsetjmp(buf,save_mask) sigsetjmp((buf),(save_mask))\r
+#define Siglongjmp(buf,retval) siglongjmp((buf),(retval))\r
+#else\r
+#define Sigjmp_buf jmp_buf\r
+#define Sigsetjmp(buf,save_mask) setjmp((buf))\r
+#define Siglongjmp(buf,retval) longjmp((buf),(retval))\r
+#endif\r
+\r
+/* HAS_SOCKET:\r
+ * This symbol, if defined, indicates that the BSD socket interface is\r
+ * supported.\r
+ */\r
+/* HAS_SOCKETPAIR:\r
+ * This symbol, if defined, indicates that the BSD socketpair() call is\r
+ * supported.\r
+ */\r
+/* HAS_MSG_CTRUNC:\r
+ * This symbol, if defined, indicates that the MSG_CTRUNC is supported.\r
+ * Checking just with #ifdef might not be enough because this symbol\r
+ * has been known to be an enum.\r
+ */\r
+/* HAS_MSG_DONTROUTE:\r
+ * This symbol, if defined, indicates that the MSG_DONTROUTE is supported.\r
+ * Checking just with #ifdef might not be enough because this symbol\r
+ * has been known to be an enum.\r
+ */\r
+/* HAS_MSG_OOB:\r
+ * This symbol, if defined, indicates that the MSG_OOB is supported.\r
+ * Checking just with #ifdef might not be enough because this symbol\r
+ * has been known to be an enum.\r
+ */\r
+/* HAS_MSG_PEEK:\r
+ * This symbol, if defined, indicates that the MSG_PEEK is supported.\r
+ * Checking just with #ifdef might not be enough because this symbol\r
+ * has been known to be an enum.\r
+ */\r
+/* HAS_MSG_PROXY:\r
+ * This symbol, if defined, indicates that the MSG_PROXY is supported.\r
+ * Checking just with #ifdef might not be enough because this symbol\r
+ * has been known to be an enum.\r
+ */\r
+/* HAS_SCM_RIGHTS:\r
+ * This symbol, if defined, indicates that the SCM_RIGHTS is supported.\r
+ * Checking just with #ifdef might not be enough because this symbol\r
+ * has been known to be an enum.\r
+ */\r
+#define HAS_SOCKET /**/\r
+/*#define HAS_SOCKETPAIR /**/\r
+/*#define HAS_MSG_CTRUNC /**/\r
+/*#define HAS_MSG_DONTROUTE /**/\r
+/*#define HAS_MSG_OOB /**/\r
+/*#define HAS_MSG_PEEK /**/\r
+/*#define HAS_MSG_PROXY /**/\r
+/*#define HAS_SCM_RIGHTS /**/\r
+\r
+/* HAS_SOCKS5_INIT:\r
+ * This symbol, if defined, indicates that the socks5_init routine is\r
+ * available to initialize SOCKS 5.\r
+ */\r
+/*#define HAS_SOCKS5_INIT /**/\r
+\r
+/* HAS_SQRTL:\r
+ * This symbol, if defined, indicates that the sqrtl routine is\r
+ * available to do long double square roots.\r
+ */\r
+/*#define HAS_SQRTL /**/\r
+\r
+/* USE_STAT_BLOCKS:\r
+ * This symbol is defined if this system has a stat structure declaring\r
+ * st_blksize and st_blocks.\r
+ */\r
+#ifndef USE_STAT_BLOCKS\r
+/*#define USE_STAT_BLOCKS /**/\r
+#endif\r
+\r
+/* HAS_STRUCT_STATFS_F_FLAGS:\r
+ * This symbol, if defined, indicates that the struct statfs\r
+ * does have the f_flags member containing the mount flags of\r
+ * the filesystem containing the file.\r
+ * This kind of struct statfs is coming from <sys/mount.h> (BSD 4.3),\r
+ * not from <sys/statfs.h> (SYSV). Older BSDs (like Ultrix) do not\r
+ * have statfs() and struct statfs, they have ustat() and getmnt()\r
+ * with struct ustat and struct fs_data.\r
+ */\r
+/*#define HAS_STRUCT_STATFS_F_FLAGS /**/\r
+\r
+/* HAS_STRUCT_STATFS:\r
+ * This symbol, if defined, indicates that the struct statfs\r
+ * to do statfs() is supported.\r
+ */\r
+/*#define HAS_STRUCT_STATFS /**/\r
+\r
+/* HAS_FSTATVFS:\r
+ * This symbol, if defined, indicates that the fstatvfs routine is\r
+ * available to stat filesystems by file descriptors.\r
+ */\r
+/*#define HAS_FSTATVFS /**/\r
+\r
+/* USE_STDIO_PTR:\r
+ * This symbol is defined if the _ptr and _cnt fields (or similar)\r
+ * of the stdio FILE structure can be used to access the stdio buffer\r
+ * for a file handle. If this is defined, then the FILE_ptr(fp)\r
+ * and FILE_cnt(fp) macros will also be defined and should be used\r
+ * to access these fields.\r
+ */\r
+/* FILE_ptr:\r
+ * This macro is used to access the _ptr field (or equivalent) of the\r
+ * FILE structure pointed to by its argument. This macro will always be\r
+ * defined if USE_STDIO_PTR is defined.\r
+ */\r
+/* STDIO_PTR_LVALUE:\r
+ * This symbol is defined if the FILE_ptr macro can be used as an\r
+ * lvalue.\r
+ */\r
+/* FILE_cnt:\r
+ * This macro is used to access the _cnt field (or equivalent) of the\r
+ * FILE structure pointed to by its argument. This macro will always be\r
+ * defined if USE_STDIO_PTR is defined.\r
+ */\r
+/* STDIO_CNT_LVALUE:\r
+ * This symbol is defined if the FILE_cnt macro can be used as an\r
+ * lvalue.\r
+ */\r
+/* STDIO_PTR_LVAL_SETS_CNT:\r
+ * This symbol is defined if using the FILE_ptr macro as an lvalue\r
+ * to increase the pointer by n has the side effect of decreasing the\r
+ * value of File_cnt(fp) by n.\r
+ */\r
+/* STDIO_PTR_LVAL_NOCHANGE_CNT:\r
+ * This symbol is defined if using the FILE_ptr macro as an lvalue\r
+ * to increase the pointer by n leaves File_cnt(fp) unchanged.\r
+ */\r
+/*#define USE_STDIO_PTR /**/\r
+#ifdef USE_STDIO_PTR\r
+#define FILE_ptr(fp) \r
+/*#define STDIO_PTR_LVALUE /**/\r
+#define FILE_cnt(fp) \r
+/*#define STDIO_CNT_LVALUE /**/\r
+/*#define STDIO_PTR_LVAL_SETS_CNT /**/\r
+/*#define STDIO_PTR_LVAL_NOCHANGE_CNT /**/\r
+#endif\r
+\r
+/* USE_STDIO_BASE:\r
+ * This symbol is defined if the _base field (or similar) of the\r
+ * stdio FILE structure can be used to access the stdio buffer for\r
+ * a file handle. If this is defined, then the FILE_base(fp) macro\r
+ * will also be defined and should be used to access this field.\r
+ * Also, the FILE_bufsiz(fp) macro will be defined and should be used\r
+ * to determine the number of bytes in the buffer. USE_STDIO_BASE\r
+ * will never be defined unless USE_STDIO_PTR is.\r
+ */\r
+/* FILE_base:\r
+ * This macro is used to access the _base field (or equivalent) of the\r
+ * FILE structure pointed to by its argument. This macro will always be\r
+ * defined if USE_STDIO_BASE is defined.\r
+ */\r
+/* FILE_bufsiz:\r
+ * This macro is used to determine the number of bytes in the I/O\r
+ * buffer pointed to by _base field (or equivalent) of the FILE\r
+ * structure pointed to its argument. This macro will always be defined\r
+ * if USE_STDIO_BASE is defined.\r
+ */\r
+/*#define USE_STDIO_BASE /**/\r
+#ifdef USE_STDIO_BASE\r
+#define FILE_base(fp) \r
+#define FILE_bufsiz(fp) \r
+#endif\r
+\r
+/* HAS_STRERROR:\r
+ * This symbol, if defined, indicates that the strerror routine is\r
+ * available to translate error numbers to strings. See the writeup\r
+ * of Strerror() in this file before you try to define your own.\r
+ */\r
+/* HAS_SYS_ERRLIST:\r
+ * This symbol, if defined, indicates that the sys_errlist array is\r
+ * available to translate error numbers to strings. The extern int\r
+ * sys_nerr gives the size of that table.\r
+ */\r
+/* Strerror:\r
+ * This preprocessor symbol is defined as a macro if strerror() is\r
+ * not available to translate error numbers to strings but sys_errlist[]\r
+ * array is there.\r
+ */\r
+#define HAS_STRERROR /**/\r
+#define HAS_SYS_ERRLIST /**/\r
+#define Strerror(e) strerror(e)\r
+\r
+/* HAS_STRTOLD:\r
+ * This symbol, if defined, indicates that the strtold routine is\r
+ * available to convert strings to long doubles.\r
+ */\r
+/*#define HAS_STRTOLD /**/\r
+\r
+/* HAS_STRTOLL:\r
+ * This symbol, if defined, indicates that the strtoll routine is\r
+ * available to convert strings to long longs.\r
+ */\r
+/*#define HAS_STRTOLL /**/\r
+\r
+/* HAS_STRTOQ:\r
+ * This symbol, if defined, indicates that the strtoq routine is\r
+ * available to convert strings to long longs (quads).\r
+ */\r
+/*#define HAS_STRTOQ /**/\r
+\r
+/* HAS_STRTOUL:\r
+ * This symbol, if defined, indicates that the strtoul routine is\r
+ * available to provide conversion of strings to unsigned long.\r
+ */\r
+#define HAS_STRTOUL /**/\r
+\r
+/* HAS_STRTOULL:\r
+ * This symbol, if defined, indicates that the strtoull routine is\r
+ * available to convert strings to unsigned long longs.\r
+ */\r
+/*#define HAS_STRTOULL /**/\r
+\r
+/* HAS_STRTOUQ:\r
+ * This symbol, if defined, indicates that the strtouq routine is\r
+ * available to convert strings to unsigned long longs (quads).\r
+ */\r
+/*#define HAS_STRTOUQ /**/\r
+\r
+/* HAS_TELLDIR_PROTO:\r
+ * This symbol, if defined, indicates that the system provides\r
+ * a prototype for the telldir() function. Otherwise, it is up\r
+ * to the program to supply one. A good guess is\r
+ * extern long telldir _((DIR*));\r
+ */\r
+#define HAS_TELLDIR_PROTO /**/\r
+\r
+/* Time_t:\r
+ * This symbol holds the type returned by time(). It can be long,\r
+ * or time_t on BSD sites (in which case <sys/types.h> should be\r
+ * included).\r
+ */\r
+#define Time_t time_t /* Time type */\r
+\r
+/* HAS_TIMES:\r
+ * This symbol, if defined, indicates that the times() routine exists.\r
+ * Note that this became obsolete on some systems (SUNOS), which now\r
+ * use getrusage(). It may be necessary to include <sys/times.h>.\r
+ */\r
+#define HAS_TIMES /**/\r
+\r
+/* HAS_UALARM:\r
+ * This symbol, if defined, indicates that the ualarm routine is\r
+ * available to do alarms with microsecond granularity.\r
+ */\r
+/*#define HAS_UALARM /**/\r
+\r
+/* HAS_UNION_SEMUN:\r
+ * This symbol, if defined, indicates that the union semun is\r
+ * defined by including <sys/sem.h>. If not, the user code\r
+ * probably needs to define it as:\r
+ * union semun {\r
+ * int val;\r
+ * struct semid_ds *buf;\r
+ * unsigned short *array;\r
+ * }\r
+ */\r
+/* USE_SEMCTL_SEMUN:\r
+ * This symbol, if defined, indicates that union semun is\r
+ * used for semctl IPC_STAT.\r
+ */\r
+/* USE_SEMCTL_SEMID_DS:\r
+ * This symbol, if defined, indicates that struct semid_ds * is\r
+ * used for semctl IPC_STAT.\r
+ */\r
+#define HAS_UNION_SEMUN /**/\r
+/*#define USE_SEMCTL_SEMUN /**/\r
+/*#define USE_SEMCTL_SEMID_DS /**/\r
+\r
+/* HAS_USTAT:\r
+ * This symbol, if defined, indicates that the ustat system call is\r
+ * available to query file system statistics by dev_t.\r
+ */\r
+/*#define HAS_USTAT /**/\r
+\r
+/* HAS_VFORK:\r
+ * This symbol, if defined, indicates that vfork() exists.\r
+ */\r
+/*#define HAS_VFORK /**/\r
+\r
+/* Signal_t:\r
+ * This symbol's value is either "void" or "int", corresponding to the\r
+ * appropriate return type of a signal handler. Thus, you can declare\r
+ * a signal handler using "Signal_t (*handler)()", and define the\r
+ * handler using "Signal_t handler(sig)".\r
+ */\r
+#define Signal_t void /* Signal handler's return type */\r
+\r
+/* HAS_VPRINTF:\r
+ * This symbol, if defined, indicates that the vprintf routine is available\r
+ * to printf with a pointer to an argument list. If unavailable, you\r
+ * may need to write your own, probably in terms of _doprnt().\r
+ */\r
+/* USE_CHAR_VSPRINTF:\r
+ * This symbol is defined if this system has vsprintf() returning type\r
+ * (char*). The trend seems to be to declare it as "int vsprintf()". It\r
+ * is up to the package author to declare vsprintf correctly based on the\r
+ * symbol.\r
+ */\r
+#define HAS_VPRINTF /**/\r
+/*#define USE_CHAR_VSPRINTF /**/\r
+\r
+/* HAS_WRITEV:\r
+ * This symbol, if defined, indicates that the writev routine is\r
+ * available to do scatter writes.\r
+ */\r
+/*#define HAS_WRITEV /**/\r
+\r
+/* USE_DYNAMIC_LOADING:\r
+ * This symbol, if defined, indicates that dynamic loading of\r
+ * some sort is available.\r
+ */\r
+#define USE_DYNAMIC_LOADING /**/\r
+\r
+/* DOUBLESIZE:\r
+ * This symbol contains the size of a double, so that the C preprocessor\r
+ * can make decisions based on it.\r
+ */\r
+#define DOUBLESIZE 8 /**/\r
+\r
+/* EBCDIC:\r
+ * This symbol, if defined, indicates that this system uses\r
+ * EBCDIC encoding.\r
+ */\r
+/*#define EBCDIC /**/\r
+\r
+/* FFLUSH_NULL:\r
+ * This symbol, if defined, tells that fflush(NULL) does flush\r
+ * all pending stdio output.\r
+ */\r
+/* FFLUSH_ALL:\r
+ * This symbol, if defined, tells that to flush\r
+ * all pending stdio output one must loop through all\r
+ * the stdio file handles stored in an array and fflush them.\r
+ * Note that if fflushNULL is defined, fflushall will not\r
+ * even be probed for and will be left undefined.\r
+ */\r
+#define FFLUSH_NULL /**/\r
+/*#define FFLUSH_ALL /**/\r
+\r
+/* Fpos_t:\r
+ * This symbol holds the type used to declare file positions in libc.\r
+ * It can be fpos_t, long, uint, etc... It may be necessary to include\r
+ * <sys/types.h> to get any typedef'ed information.\r
+ */\r
+#define Fpos_t fpos_t /* File position type */\r
+\r
+/* Gid_t_f:\r
+ * This symbol defines the format string used for printing a Gid_t.\r
+ */\r
+#define Gid_t_f "ld" /**/\r
+\r
+/* Gid_t_sign:\r
+ * This symbol holds the signedess of a Gid_t.\r
+ * 1 for unsigned, -1 for signed.\r
+ */\r
+#define Gid_t_sign -1 /* GID sign */\r
+\r
+/* Gid_t_size:\r
+ * This symbol holds the size of a Gid_t in bytes.\r
+ */\r
+#define Gid_t_size 4 /* GID size */\r
+\r
+/* Gid_t:\r
+ * This symbol holds the return type of getgid() and the type of\r
+ * argument to setrgid() and related functions. Typically,\r
+ * it is the type of group ids in the kernel. It can be int, ushort,\r
+ * gid_t, etc... It may be necessary to include <sys/types.h> to get\r
+ * any typedef'ed information.\r
+ */\r
+#define Gid_t gid_t /* Type for getgid(), etc... */\r
+\r
+/* Groups_t:\r
+ * This symbol holds the type used for the second argument to\r
+ * getgroups() and setgroups(). Usually, this is the same as\r
+ * gidtype (gid_t) , but sometimes it isn't.\r
+ * It can be int, ushort, gid_t, etc... \r
+ * It may be necessary to include <sys/types.h> to get any \r
+ * typedef'ed information. This is only required if you have\r
+ * getgroups() or setgroups()..\r
+ */\r
+#if defined(HAS_GETGROUPS) || defined(HAS_SETGROUPS)\r
+#define Groups_t gid_t /* Type for 2nd arg to [sg]etgroups() */\r
+#endif\r
+\r
+/* DB_Prefix_t:\r
+ * This symbol contains the type of the prefix structure element\r
+ * in the <db.h> header file. In older versions of DB, it was\r
+ * int, while in newer ones it is u_int32_t.\r
+ */\r
+/* DB_Hash_t:\r
+ * This symbol contains the type of the prefix structure element\r
+ * in the <db.h> header file. In older versions of DB, it was\r
+ * int, while in newer ones it is size_t.\r
+ */\r
+/* DB_VERSION_MAJOR_CFG:\r
+ * This symbol, if defined, defines the major version number of\r
+ * Berkeley DB found in the <db.h> header when Perl was configured.\r
+ */\r
+/* DB_VERSION_MINOR_CFG:\r
+ * This symbol, if defined, defines the minor version number of\r
+ * Berkeley DB found in the <db.h> header when Perl was configured.\r
+ * For DB version 1 this is always 0.\r
+ */\r
+/* DB_VERSION_PATCH_CFG:\r
+ * This symbol, if defined, defines the patch version number of\r
+ * Berkeley DB found in the <db.h> header when Perl was configured.\r
+ * For DB version 1 this is always 0.\r
+ */\r
+#define DB_Hash_t int /**/\r
+#define DB_Prefix_t int /**/\r
+#define DB_VERSION_MAJOR_CFG undef /**/\r
+#define DB_VERSION_MINOR_CFG undef /**/\r
+#define DB_VERSION_PATCH_CFG undef /**/\r
+\r
+/* I_GRP:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <grp.h>.\r
+ */\r
+/* GRPASSWD:\r
+ * This symbol, if defined, indicates to the C program that struct group\r
+ * in <grp.h> contains gr_passwd.\r
+ */\r
+/*#define I_GRP /**/\r
+/*#define GRPASSWD /**/\r
+\r
+/* I_ICONV:\r
+ * This symbol, if defined, indicates that <iconv.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_ICONV /**/\r
+\r
+/* I_IEEEFP:\r
+ * This symbol, if defined, indicates that <ieeefp.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_IEEEFP /**/\r
+\r
+/* I_INTTYPES:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <inttypes.h>.\r
+ */\r
+/*#define I_INTTYPES /**/\r
+\r
+/* I_LIBUTIL:\r
+ * This symbol, if defined, indicates that <libutil.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_LIBUTIL /**/\r
+\r
+/* I_MACH_CTHREADS:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <mach/cthreads.h>.\r
+ */\r
+/*#define I_MACH_CTHREADS /**/\r
+\r
+/* I_MNTENT:\r
+ * This symbol, if defined, indicates that <mntent.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_MNTENT /**/\r
+\r
+/* I_NETDB:\r
+ * This symbol, if defined, indicates that <netdb.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_NETDB /**/\r
+\r
+/* I_NETINET_TCP:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <netinet/tcp.h>.\r
+ */\r
+/*#define I_NETINET_TCP /**/\r
+\r
+/* I_POLL:\r
+ * This symbol, if defined, indicates that <poll.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_POLL /**/\r
+\r
+/* I_PROT:\r
+ * This symbol, if defined, indicates that <prot.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_PROT /**/\r
+\r
+/* I_PTHREAD:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <pthread.h>.\r
+ */\r
+/*#define I_PTHREAD /**/\r
+\r
+/* I_PWD:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <pwd.h>.\r
+ */\r
+/* PWQUOTA:\r
+ * This symbol, if defined, indicates to the C program that struct passwd\r
+ * contains pw_quota.\r
+ */\r
+/* PWAGE:\r
+ * This symbol, if defined, indicates to the C program that struct passwd\r
+ * contains pw_age.\r
+ */\r
+/* PWCHANGE:\r
+ * This symbol, if defined, indicates to the C program that struct passwd\r
+ * contains pw_change.\r
+ */\r
+/* PWCLASS:\r
+ * This symbol, if defined, indicates to the C program that struct passwd\r
+ * contains pw_class.\r
+ */\r
+/* PWEXPIRE:\r
+ * This symbol, if defined, indicates to the C program that struct passwd\r
+ * contains pw_expire.\r
+ */\r
+/* PWCOMMENT:\r
+ * This symbol, if defined, indicates to the C program that struct passwd\r
+ * contains pw_comment.\r
+ */\r
+/* PWGECOS:\r
+ * This symbol, if defined, indicates to the C program that struct passwd\r
+ * contains pw_gecos.\r
+ */\r
+/* PWPASSWD:\r
+ * This symbol, if defined, indicates to the C program that struct passwd\r
+ * contains pw_passwd.\r
+ */\r
+/*#define I_PWD /**/\r
+/*#define PWQUOTA /**/\r
+/*#define PWAGE /**/\r
+/*#define PWCHANGE /**/\r
+/*#define PWCLASS /**/\r
+/*#define PWEXPIRE /**/\r
+/*#define PWCOMMENT /**/\r
+/*#define PWGECOS /**/\r
+/*#define PWPASSWD /**/\r
+\r
+/* I_SHADOW:\r
+ * This symbol, if defined, indicates that <shadow.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_SHADOW /**/\r
+\r
+/* I_SOCKS:\r
+ * This symbol, if defined, indicates that <socks.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_SOCKS /**/\r
+\r
+/* I_SUNMATH:\r
+ * This symbol, if defined, indicates that <sunmath.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_SUNMATH /**/\r
+\r
+/* I_SYSLOG:\r
+ * This symbol, if defined, indicates that <syslog.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_SYSLOG /**/\r
+\r
+/* I_SYSMODE:\r
+ * This symbol, if defined, indicates that <sys/mode.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_SYSMODE /**/\r
+\r
+/* I_SYS_MOUNT:\r
+ * This symbol, if defined, indicates that <sys/mount.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_SYS_MOUNT /**/\r
+\r
+/* I_SYS_STATFS:\r
+ * This symbol, if defined, indicates that <sys/statfs.h> exists.\r
+ */\r
+/*#define I_SYS_STATFS /**/\r
+\r
+/* I_SYS_STATVFS:\r
+ * This symbol, if defined, indicates that <sys/statvfs.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_SYS_STATVFS /**/\r
+\r
+/* I_SYSUIO:\r
+ * This symbol, if defined, indicates that <sys/uio.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_SYSUIO /**/\r
+\r
+/* I_SYSUTSNAME:\r
+ * This symbol, if defined, indicates that <sys/utsname.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_SYSUTSNAME /**/\r
+\r
+/* I_SYS_VFS:\r
+ * This symbol, if defined, indicates that <sys/vfs.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_SYS_VFS /**/\r
+\r
+/* I_TIME:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <time.h>.\r
+ */\r
+/* I_SYS_TIME:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <sys/time.h>.\r
+ */\r
+/* I_SYS_TIME_KERNEL:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <sys/time.h> with KERNEL defined.\r
+ */\r
+/*#define I_TIME /**/\r
+/*#define I_SYS_TIME /**/\r
+/*#define I_SYS_TIME_KERNEL /**/\r
+\r
+/* I_USTAT:\r
+ * This symbol, if defined, indicates that <ustat.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_USTAT /**/\r
+\r
+/* PERL_INC_VERSION_LIST:\r
+ * This variable specifies the list of subdirectories in over\r
+ * which perl.c:incpush() and lib/lib.pm will automatically\r
+ * search when adding directories to @INC, in a format suitable\r
+ * for a C initialization string. See the inc_version_list entry\r
+ * in Porting/Glossary for more details.\r
+ */\r
+#define PERL_INC_VERSION_LIST 0 /**/\r
+\r
+/* INSTALL_USR_BIN_PERL:\r
+ * This symbol, if defined, indicates that Perl is to be installed\r
+ * also as /usr/bin/perl.\r
+ */\r
+/*#define INSTALL_USR_BIN_PERL /**/\r
+\r
+/* PERL_PRIfldbl:\r
+ * This symbol, if defined, contains the string used by stdio to\r
+ * format long doubles (format 'f') for output.\r
+ */\r
+/* PERL_PRIgldbl:\r
+ * This symbol, if defined, contains the string used by stdio to\r
+ * format long doubles (format 'g') for output.\r
+ */\r
+/* PERL_PRIeldbl:\r
+ * This symbol, if defined, contains the string used by stdio to\r
+ * format long doubles (format 'e') for output.\r
+ */\r
+/* PERL_SCNfldbl:\r
+ * This symbol, if defined, contains the string used by stdio to\r
+ * format long doubles (format 'f') for input.\r
+ */\r
+/*#define PERL_PRIfldbl "f" /**/\r
+/*#define PERL_PRIgldbl "g" /**/\r
+/*#define PERL_PRIeldbl "e" /**/\r
+/*#define PERL_SCNfldbl undef /**/\r
+\r
+/* Off_t:\r
+ * This symbol holds the type used to declare offsets in the kernel.\r
+ * It can be int, long, off_t, etc... It may be necessary to include\r
+ * <sys/types.h> to get any typedef'ed information.\r
+ */\r
+/* LSEEKSIZE:\r
+ * This symbol holds the number of bytes used by the Off_t.\r
+ */\r
+/* Off_t_size:\r
+ * This symbol holds the number of bytes used by the Off_t.\r
+ */\r
+#define Off_t long /* <offset> type */\r
+#define LSEEKSIZE 4 /* <offset> size */\r
+#define Off_t_size 4 /* <offset> size */\r
+\r
+/* Free_t:\r
+ * This variable contains the return type of free(). It is usually\r
+ * void, but occasionally int.\r
+ */\r
+/* Malloc_t:\r
+ * This symbol is the type of pointer returned by malloc and realloc.\r
+ */\r
+#define Malloc_t void * /**/\r
+#define Free_t void /**/\r
+\r
+/* MYMALLOC:\r
+ * This symbol, if defined, indicates that we're using our own malloc.\r
+ */\r
+/*#define MYMALLOC /**/\r
+\r
+/* Mode_t:\r
+ * This symbol holds the type used to declare file modes \r
+ * for systems calls. It is usually mode_t, but may be\r
+ * int or unsigned short. It may be necessary to include <sys/types.h>\r
+ * to get any typedef'ed information.\r
+ */\r
+#define Mode_t mode_t /* file mode parameter for system calls */\r
+\r
+/* VAL_O_NONBLOCK:\r
+ * This symbol is to be used during open() or fcntl(F_SETFL) to turn on\r
+ * non-blocking I/O for the file descriptor. Note that there is no way\r
+ * back, i.e. you cannot turn it blocking again this way. If you wish to\r
+ * alternatively switch between blocking and non-blocking, use the\r
+ * ioctl(FIOSNBIO) call instead, but that is not supported by all devices.\r
+ */\r
+/* VAL_EAGAIN:\r
+ * This symbol holds the errno error code set by read() when no data was\r
+ * present on the non-blocking file descriptor.\r
+ */\r
+/* RD_NODATA:\r
+ * This symbol holds the return code from read() when no data is present\r
+ * on the non-blocking file descriptor. Be careful! If EOF_NONBLOCK is\r
+ * not defined, then you can't distinguish between no data and EOF by\r
+ * issuing a read(). You'll have to find another way to tell for sure!\r
+ */\r
+/* EOF_NONBLOCK:\r
+ * This symbol, if defined, indicates to the C program that a read() on\r
+ * a non-blocking file descriptor will return 0 on EOF, and not the value\r
+ * held in RD_NODATA (-1 usually, in that case!).\r
+ */\r
+#define VAL_O_NONBLOCK O_NONBLOCK\r
+#define VAL_EAGAIN EAGAIN\r
+#define RD_NODATA -1\r
+#define EOF_NONBLOCK\r
+\r
+/* NEED_VA_COPY:\r
+ * This symbol, if defined, indicates that the system stores\r
+ * the variable argument list datatype, va_list, in a format\r
+ * that cannot be copied by simple assignment, so that some\r
+ * other means must be used when copying is required.\r
+ * As such systems vary in their provision (or non-provision)\r
+ * of copying mechanisms, handy.h defines a platform-\r
+ * independent macro, Perl_va_copy(src, dst), to do the job.\r
+ */\r
+/*#define NEED_VA_COPY /**/\r
+\r
+/* Netdb_host_t:\r
+ * This symbol holds the type used for the 1st argument\r
+ * to gethostbyaddr().\r
+ */\r
+/* Netdb_hlen_t:\r
+ * This symbol holds the type used for the 2nd argument\r
+ * to gethostbyaddr().\r
+ */\r
+/* Netdb_name_t:\r
+ * This symbol holds the type used for the argument to\r
+ * gethostbyname().\r
+ */\r
+/* Netdb_net_t:\r
+ * This symbol holds the type used for the 1st argument to\r
+ * getnetbyaddr().\r
+ */\r
+#define Netdb_host_t char * /**/\r
+#define Netdb_hlen_t int /**/\r
+#define Netdb_name_t char * /**/\r
+#define Netdb_net_t long /**/\r
+\r
+/* PERL_OTHERLIBDIRS:\r
+ * This variable contains a colon-separated set of paths for the perl\r
+ * binary to search for additional library files or modules.\r
+ * These directories will be tacked to the end of @INC.\r
+ * Perl will automatically search below each path for version-\r
+ * and architecture-specific directories. See PERL_INC_VERSION_LIST\r
+ * for more details.\r
+ */\r
+/*#define PERL_OTHERLIBDIRS "undef" /**/\r
+\r
+/* IVTYPE:\r
+ * This symbol defines the C type used for Perl's IV.\r
+ */\r
+/* UVTYPE:\r
+ * This symbol defines the C type used for Perl's UV.\r
+ */\r
+/* I8TYPE:\r
+ * This symbol defines the C type used for Perl's I8.\r
+ */\r
+/* U8TYPE:\r
+ * This symbol defines the C type used for Perl's U8.\r
+ */\r
+/* I16TYPE:\r
+ * This symbol defines the C type used for Perl's I16.\r
+ */\r
+/* U16TYPE:\r
+ * This symbol defines the C type used for Perl's U16.\r
+ */\r
+/* I32TYPE:\r
+ * This symbol defines the C type used for Perl's I32.\r
+ */\r
+/* U32TYPE:\r
+ * This symbol defines the C type used for Perl's U32.\r
+ */\r
+/* I64TYPE:\r
+ * This symbol defines the C type used for Perl's I64.\r
+ */\r
+/* U64TYPE:\r
+ * This symbol defines the C type used for Perl's U64.\r
+ */\r
+/* NVTYPE:\r
+ * This symbol defines the C type used for Perl's NV.\r
+ */\r
+/* IVSIZE:\r
+ * This symbol contains the sizeof(IV).\r
+ */\r
+/* UVSIZE:\r
+ * This symbol contains the sizeof(UV).\r
+ */\r
+/* I8SIZE:\r
+ * This symbol contains the sizeof(I8).\r
+ */\r
+/* U8SIZE:\r
+ * This symbol contains the sizeof(U8).\r
+ */\r
+/* I16SIZE:\r
+ * This symbol contains the sizeof(I16).\r
+ */\r
+/* U16SIZE:\r
+ * This symbol contains the sizeof(U16).\r
+ */\r
+/* I32SIZE:\r
+ * This symbol contains the sizeof(I32).\r
+ */\r
+/* U32SIZE:\r
+ * This symbol contains the sizeof(U32).\r
+ */\r
+/* I64SIZE:\r
+ * This symbol contains the sizeof(I64).\r
+ */\r
+/* U64SIZE:\r
+ * This symbol contains the sizeof(U64).\r
+ */\r
+/* NVSIZE:\r
+ * This symbol contains the sizeof(NV).\r
+ */\r
+/* NV_PRESERVES_UV:\r
+ * This symbol, if defined, indicates that a variable of type NVTYPE\r
+ * can preserve all the bits of a variable of type UVTYPE.\r
+ */\r
+/* NV_PRESERVES_UV_BITS:\r
+ * This symbol contains the number of bits a variable of type NVTYPE\r
+ * can preserve of a variable of type UVTYPE.\r
+ */\r
+#define IVTYPE long /**/\r
+#define UVTYPE unsigned long /**/\r
+#define I8TYPE char /**/\r
+#define U8TYPE unsigned char /**/\r
+#define I16TYPE short /**/\r
+#define U16TYPE unsigned short /**/\r
+#define I32TYPE long /**/\r
+#define U32TYPE unsigned long /**/\r
+#ifdef HAS_QUAD\r
+#define I64TYPE __int64 /**/\r
+#define U64TYPE unsigned __int64 /**/\r
+#endif\r
+#define NVTYPE double /**/\r
+#define IVSIZE 4 /**/\r
+#define UVSIZE 4 /**/\r
+#define I8SIZE 1 /**/\r
+#define U8SIZE 1 /**/\r
+#define I16SIZE 2 /**/\r
+#define U16SIZE 2 /**/\r
+#define I32SIZE 4 /**/\r
+#define U32SIZE 4 /**/\r
+#ifdef HAS_QUAD\r
+#define I64SIZE 8 /**/\r
+#define U64SIZE 8 /**/\r
+#endif\r
+#define NVSIZE 8 /**/\r
+#define NV_PRESERVES_UV\r
+#define NV_PRESERVES_UV_BITS undef\r
+\r
+/* IVdf:\r
+ * This symbol defines the format string used for printing a Perl IV\r
+ * as a signed decimal integer.\r
+ */\r
+/* UVuf:\r
+ * This symbol defines the format string used for printing a Perl UV\r
+ * as an unsigned decimal integer.\r
+ */\r
+/* UVof:\r
+ * This symbol defines the format string used for printing a Perl UV\r
+ * as an unsigned octal integer.\r
+ */\r
+/* UVxf:\r
+ * This symbol defines the format string used for printing a Perl UV\r
+ * as an unsigned hexadecimal integer in lowercase abcdef.\r
+ */\r
+/* UVXf:\r
+ * This symbol defines the format string used for printing a Perl UV\r
+ * as an unsigned hexadecimal integer in uppercase ABCDEF.\r
+ */\r
+/* NVef:\r
+ * This symbol defines the format string used for printing a Perl NV\r
+ * using %e-ish floating point format.\r
+ */\r
+/* NVff:\r
+ * This symbol defines the format string used for printing a Perl NV\r
+ * using %f-ish floating point format.\r
+ */\r
+/* NVgf:\r
+ * This symbol defines the format string used for printing a Perl NV\r
+ * using %g-ish floating point format.\r
+ */\r
+#define IVdf "ld" /**/\r
+#define UVuf "lu" /**/\r
+#define UVof "lo" /**/\r
+#define UVxf "lx" /**/\r
+#define UVXf undef /**/\r
+#define NVef "e" /**/\r
+#define NVff "f" /**/\r
+#define NVgf "g" /**/\r
+\r
+/* Pid_t:\r
+ * This symbol holds the type used to declare process ids in the kernel.\r
+ * It can be int, uint, pid_t, etc... It may be necessary to include\r
+ * <sys/types.h> to get any typedef'ed information.\r
+ */\r
+#define Pid_t int /* PID type */\r
+\r
+/* PRIVLIB:\r
+ * This symbol contains the name of the private library for this package.\r
+ * The library is private in the sense that it needn't be in anyone's\r
+ * execution path, but it should be accessible by the world. The program\r
+ * should be prepared to do ~ expansion.\r
+ */\r
+/* PRIVLIB_EXP:\r
+ * This symbol contains the ~name expanded version of PRIVLIB, to be used\r
+ * in programs that are not prepared to deal with ~ expansion at run-time.\r
+ */\r
+#define PRIVLIB "5.7.2\\lib" /**/\r
+#define PRIVLIB_EXP (win32_get_privlib("5.7.2")) /**/\r
+\r
+/* PTRSIZE:\r
+ * This symbol contains the size of a pointer, so that the C preprocessor\r
+ * can make decisions based on it. It will be sizeof(void *) if\r
+ * the compiler supports (void *); otherwise it will be\r
+ * sizeof(char *).\r
+ */\r
+#define PTRSIZE 4 /**/\r
+\r
+/* Drand01:\r
+ * This macro is to be used to generate uniformly distributed\r
+ * random numbers over the range [0., 1.[. You may have to supply\r
+ * an 'extern double drand48();' in your program since SunOS 4.1.3\r
+ * doesn't provide you with anything relevant in its headers.\r
+ * See HAS_DRAND48_PROTO.\r
+ */\r
+/* Rand_seed_t:\r
+ * This symbol defines the type of the argument of the\r
+ * random seed function.\r
+ */\r
+/* seedDrand01:\r
+ * This symbol defines the macro to be used in seeding the\r
+ * random number generator (see Drand01).\r
+ */\r
+/* RANDBITS:\r
+ * This symbol indicates how many bits are produced by the\r
+ * function used to generate normalized random numbers.\r
+ * Values include 15, 16, 31, and 48.\r
+ */\r
+#define Drand01() (rand()/(double)((unsigned)1<<RANDBITS)) /**/\r
+#define Rand_seed_t unsigned /**/\r
+#define seedDrand01(x) srand((Rand_seed_t)x) /**/\r
+#define RANDBITS 15 /**/\r
+\r
+/* SELECT_MIN_BITS:\r
+ * This symbol holds the minimum number of bits operated by select.\r
+ * That is, if you do select(n, ...), how many bits at least will be\r
+ * cleared in the masks if some activity is detected. Usually this\r
+ * is either n or 32*ceil(n/32), especially many little-endians do\r
+ * the latter. This is only useful if you have select(), naturally.\r
+ */\r
+#define SELECT_MIN_BITS 32 /**/\r
+\r
+/* Select_fd_set_t:\r
+ * This symbol holds the type used for the 2nd, 3rd, and 4th\r
+ * arguments to select. Usually, this is 'fd_set *', if HAS_FD_SET\r
+ * is defined, and 'int *' otherwise. This is only useful if you \r
+ * have select(), of course.\r
+ */\r
+#define Select_fd_set_t Perl_fd_set * /**/\r
+\r
+/* SIG_NAME:\r
+ * This symbol contains a list of signal names in order of\r
+ * signal number. This is intended\r
+ * to be used as a static array initialization, like this:\r
+ * char *sig_name[] = { SIG_NAME };\r
+ * The signals in the list are separated with commas, and each signal\r
+ * is surrounded by double quotes. There is no leading SIG in the signal\r
+ * name, i.e. SIGQUIT is known as "QUIT".\r
+ * Gaps in the signal numbers (up to NSIG) are filled in with NUMnn,\r
+ * etc., where nn is the actual signal number (e.g. NUM37).\r
+ * The signal number for sig_name[i] is stored in sig_num[i].\r
+ * The last element is 0 to terminate the list with a NULL. This\r
+ * corresponds to the 0 at the end of the sig_num list.\r
+ */\r
+/* SIG_NUM:\r
+ * This symbol contains a list of signal numbers, in the same order as the\r
+ * SIG_NAME list. It is suitable for static array initialization, as in:\r
+ * int sig_num[] = { SIG_NUM };\r
+ * The signals in the list are separated with commas, and the indices\r
+ * within that list and the SIG_NAME list match, so it's easy to compute\r
+ * the signal name from a number or vice versa at the price of a small\r
+ * dynamic linear lookup. \r
+ * Duplicates are allowed, but are moved to the end of the list.\r
+ * The signal number corresponding to sig_name[i] is sig_number[i].\r
+ * if (i < NSIG) then sig_number[i] == i. \r
+ * The last element is 0, corresponding to the 0 at the end of\r
+ * the sig_name list.\r
+ */\r
+/* SIG_SIZE:\r
+ * This variable contains the number of elements of the sig_name\r
+ * and sig_num arrays, excluding the final NULL entry.\r
+ */\r
+#define SIG_NAME "ZERO", "NUM01", "INT", "QUIT", "ILL", "NUM05", "NUM06", "NUM07", "FPE", "KILL", "NUM10", "SEGV", "NUM12", "PIPE", "ALRM", "TERM", "NUM16", "NUM17", "NUM18", "NUM19", "CHLD", "BREAK", "ABRT", "STOP", "NUM24", "CONT", "CLD", 0 /**/\r
+#define SIG_NUM 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 20, 0 /**/\r
+#define SIG_SIZE 0 /**/\r
+\r
+/* SITEARCH:\r
+ * This symbol contains the name of the private library for this package.\r
+ * The library is private in the sense that it needn't be in anyone's\r
+ * execution path, but it should be accessible by the world. The program\r
+ * should be prepared to do ~ expansion.\r
+ * The standard distribution will put nothing in this directory.\r
+ * After perl has been installed, users may install their own local\r
+ * architecture-dependent modules in this directory with\r
+ * MakeMaker Makefile.PL\r
+ * or equivalent. See INSTALL for details.\r
+ */\r
+/* SITEARCH_EXP:\r
+ * This symbol contains the ~name expanded version of SITEARCH, to be used\r
+ * in programs that are not prepared to deal with ~ expansion at run-time.\r
+ */\r
+#define SITEARCH "\\site5.7.2\\lib" /**/\r
+/*#define SITEARCH_EXP "" /**/\r
+\r
+/* SITELIB:\r
+ * This symbol contains the name of the private library for this package.\r
+ * The library is private in the sense that it needn't be in anyone's\r
+ * execution path, but it should be accessible by the world. The program\r
+ * should be prepared to do ~ expansion.\r
+ * The standard distribution will put nothing in this directory.\r
+ * After perl has been installed, users may install their own local\r
+ * architecture-independent modules in this directory with\r
+ * MakeMaker Makefile.PL\r
+ * or equivalent. See INSTALL for details.\r
+ */\r
+/* SITELIB_EXP:\r
+ * This symbol contains the ~name expanded version of SITELIB, to be used\r
+ * in programs that are not prepared to deal with ~ expansion at run-time.\r
+ */\r
+/* SITELIB_STEM:\r
+ * This define is SITELIB_EXP with any trailing version-specific component\r
+ * removed. The elements in inc_version_list (inc_version_list.U) can\r
+ * be tacked onto this variable to generate a list of directories to search.\r
+ */\r
+#define SITELIB "\\site5.7.2\\lib" /**/\r
+#define SITELIB_EXP (win32_get_sitelib("5.7.2")) /**/\r
+#define SITELIB_STEM "" /**/\r
+\r
+/* Size_t_size:\r
+ * This symbol holds the size of a Size_t in bytes.\r
+ */\r
+#define Size_t_size 4 /**/\r
+\r
+/* Size_t:\r
+ * This symbol holds the type used to declare length parameters\r
+ * for string functions. It is usually size_t, but may be\r
+ * unsigned long, int, etc. It may be necessary to include\r
+ * <sys/types.h> to get any typedef'ed information.\r
+ */\r
+#define Size_t size_t /* length paramater for string functions */\r
+\r
+/* Sock_size_t:\r
+ * This symbol holds the type used for the size argument of\r
+ * various socket calls (just the base type, not the pointer-to).\r
+ */\r
+#define Sock_size_t int /**/\r
+\r
+/* SSize_t:\r
+ * This symbol holds the type used by functions that return\r
+ * a count of bytes or an error condition. It must be a signed type.\r
+ * It is usually ssize_t, but may be long or int, etc.\r
+ * It may be necessary to include <sys/types.h> or <unistd.h>\r
+ * to get any typedef'ed information.\r
+ * We will pick a type such that sizeof(SSize_t) == sizeof(Size_t).\r
+ */\r
+#define SSize_t int /* signed count of bytes */\r
+\r
+/* STARTPERL:\r
+ * This variable contains the string to put in front of a perl\r
+ * script to make sure (one hopes) that it runs with perl and not\r
+ * some shell.\r
+ */\r
+#define STARTPERL "#!perl" /**/\r
+\r
+/* STDCHAR:\r
+ * This symbol is defined to be the type of char used in stdio.h.\r
+ * It has the values "unsigned char" or "char".\r
+ */\r
+#define STDCHAR char /**/\r
+\r
+/* HAS_STDIO_STREAM_ARRAY:\r
+ * This symbol, if defined, tells that there is an array\r
+ * holding the stdio streams.\r
+ */\r
+/* STDIO_STREAM_ARRAY:\r
+ * This symbol tells the name of the array holding the stdio streams.\r
+ * Usual values include _iob, __iob, and __sF.\r
+ */\r
+/*#define HAS_STDIO_STREAM_ARRAY /**/\r
+#define STDIO_STREAM_ARRAY \r
+\r
+/* Uid_t_f:\r
+ * This symbol defines the format string used for printing a Uid_t.\r
+ */\r
+#define Uid_t_f "ld" /**/\r
+\r
+/* Uid_t_sign:\r
+ * This symbol holds the signedess of a Uid_t.\r
+ * 1 for unsigned, -1 for signed.\r
+ */\r
+#define Uid_t_sign -1 /* UID sign */\r
+\r
+/* Uid_t_size:\r
+ * This symbol holds the size of a Uid_t in bytes.\r
+ */\r
+#define Uid_t_size 4 /* UID size */\r
+\r
+/* Uid_t:\r
+ * This symbol holds the type used to declare user ids in the kernel.\r
+ * It can be int, ushort, uid_t, etc... It may be necessary to include\r
+ * <sys/types.h> to get any typedef'ed information.\r
+ */\r
+#define Uid_t uid_t /* UID type */\r
+\r
+/* USE_64_BIT_INT:\r
+ * This symbol, if defined, indicates that 64-bit integers should\r
+ * be used when available. If not defined, the native integers\r
+ * will be employed (be they 32 or 64 bits). The minimal possible\r
+ * 64-bitness is used, just enough to get 64-bit integers into Perl.\r
+ * This may mean using for example "long longs", while your memory\r
+ * may still be limited to 2 gigabytes.\r
+ */\r
+/* USE_64_BIT_ALL:\r
+ * This symbol, if defined, indicates that 64-bit integers should\r
+ * be used when available. If not defined, the native integers\r
+ * will be used (be they 32 or 64 bits). The maximal possible\r
+ * 64-bitness is employed: LP64 or ILP64, meaning that you will\r
+ * be able to use more than 2 gigabytes of memory. This mode is\r
+ * even more binary incompatible than USE_64_BIT_INT. You may not\r
+ * be able to run the resulting executable in a 32-bit CPU at all or\r
+ * you may need at least to reboot your OS to 64-bit mode.\r
+ */\r
+#ifndef USE_64_BIT_INT\r
+/*#define USE_64_BIT_INT /**/\r
+#endif\r
+\r
+#ifndef USE_64_BIT_ALL\r
+/*#define USE_64_BIT_ALL /**/\r
+#endif\r
+\r
+/* USE_LARGE_FILES:\r
+ * This symbol, if defined, indicates that large file support\r
+ * should be used when available.\r
+ */\r
+#ifndef USE_LARGE_FILES\r
+/*#define USE_LARGE_FILES /**/\r
+#endif\r
+\r
+/* USE_LONG_DOUBLE:\r
+ * This symbol, if defined, indicates that long doubles should\r
+ * be used when available.\r
+ */\r
+#ifndef USE_LONG_DOUBLE\r
+/*#define USE_LONG_DOUBLE /**/\r
+#endif\r
+\r
+/* USE_MORE_BITS:\r
+ * This symbol, if defined, indicates that 64-bit interfaces and\r
+ * long doubles should be used when available.\r
+ */\r
+#ifndef USE_MORE_BITS\r
+/*#define USE_MORE_BITS /**/\r
+#endif\r
+\r
+/* MULTIPLICITY:\r
+ * This symbol, if defined, indicates that Perl should\r
+ * be built to use multiplicity.\r
+ */\r
+#ifndef MULTIPLICITY\r
+/*#define MULTIPLICITY /**/\r
+#endif\r
+\r
+/* USE_PERLIO:\r
+ * This symbol, if defined, indicates that the PerlIO abstraction should\r
+ * be used throughout. If not defined, stdio should be\r
+ * used in a fully backward compatible manner.\r
+ */\r
+#ifndef USE_PERLIO\r
+#define USE_PERLIO /**/\r
+#endif\r
+\r
+/* USE_SOCKS:\r
+ * This symbol, if defined, indicates that Perl should\r
+ * be built to use socks.\r
+ */\r
+#ifndef USE_SOCKS\r
+/*#define USE_SOCKS /**/\r
+#endif\r
+\r
+/* USE_ITHREADS:\r
+ * This symbol, if defined, indicates that Perl should be built to\r
+ * use the interpreter-based threading implementation.\r
+ */\r
+/* USE_5005THREADS:\r
+ * This symbol, if defined, indicates that Perl should be built to\r
+ * use the 5.005-based threading implementation.\r
+ */\r
+/* OLD_PTHREADS_API:\r
+ * This symbol, if defined, indicates that Perl should\r
+ * be built to use the old draft POSIX threads API.\r
+ */\r
+/* USE_REENTRANT_API:\r
+ * This symbol, if defined, indicates that Perl should\r
+ * try to use the various _r versions of library functions.\r
+ * This is extremely experimental.\r
+ */\r
+/*#define USE_5005THREADS /**/\r
+/*#define USE_ITHREADS /**/\r
+#if defined(USE_5005THREADS) && !defined(USE_ITHREADS)\r
+#define USE_THREADS /* until src is revised*/\r
+#endif\r
+/*#define OLD_PTHREADS_API /**/\r
+/*#define USE_REENTRANT_API /**/\r
+\r
+/* PERL_VENDORARCH:\r
+ * If defined, this symbol contains the name of a private library.\r
+ * The library is private in the sense that it needn't be in anyone's\r
+ * execution path, but it should be accessible by the world.\r
+ * It may have a ~ on the front. \r
+ * The standard distribution will put nothing in this directory.\r
+ * Vendors who distribute perl may wish to place their own\r
+ * architecture-dependent modules and extensions in this directory with\r
+ * MakeMaker Makefile.PL INSTALLDIRS=vendor \r
+ * or equivalent. See INSTALL for details.\r
+ */\r
+/* PERL_VENDORARCH_EXP:\r
+ * This symbol contains the ~name expanded version of PERL_VENDORARCH, to be used\r
+ * in programs that are not prepared to deal with ~ expansion at run-time.\r
+ */\r
+/*#define PERL_VENDORARCH "" /**/\r
+/*#define PERL_VENDORARCH_EXP "" /**/\r
+\r
+/* PERL_VENDORLIB_EXP:\r
+ * This symbol contains the ~name expanded version of VENDORLIB, to be used\r
+ * in programs that are not prepared to deal with ~ expansion at run-time.\r
+ */\r
+/* PERL_VENDORLIB_STEM:\r
+ * This define is PERL_VENDORLIB_EXP with any trailing version-specific component\r
+ * removed. The elements in inc_version_list (inc_version_list.U) can\r
+ * be tacked onto this variable to generate a list of directories to search.\r
+ */\r
+/*#define PERL_VENDORLIB_EXP "" /**/\r
+/*#define PERL_VENDORLIB_STEM "" /**/\r
+\r
+/* VOIDFLAGS:\r
+ * This symbol indicates how much support of the void type is given by this\r
+ * compiler. What various bits mean:\r
+ *\r
+ * 1 = supports declaration of void\r
+ * 2 = supports arrays of pointers to functions returning void\r
+ * 4 = supports comparisons between pointers to void functions and\r
+ * addresses of void functions\r
+ * 8 = suports declaration of generic void pointers\r
+ *\r
+ * The package designer should define VOIDUSED to indicate the requirements\r
+ * of the package. This can be done either by #defining VOIDUSED before\r
+ * including config.h, or by defining defvoidused in Myinit.U. If the\r
+ * latter approach is taken, only those flags will be tested. If the\r
+ * level of void support necessary is not present, defines void to int.\r
+ */\r
+#ifndef VOIDUSED\r
+#define VOIDUSED 15\r
+#endif\r
+#define VOIDFLAGS 15\r
+#if (VOIDFLAGS & VOIDUSED) != VOIDUSED\r
+#define void int /* is void to be avoided? */\r
+#define M_VOID /* Xenix strikes again */\r
+#endif\r
+\r
+/* PERL_XS_APIVERSION:\r
+ * This variable contains the version of the oldest perl binary\r
+ * compatible with the present perl. perl.c:incpush() and\r
+ * lib/lib.pm will automatically search in \\site5.7.2\\lib for older\r
+ * directories across major versions back to xs_apiversion.\r
+ * This is only useful if you have a perl library directory tree\r
+ * structured like the default one.\r
+ * See INSTALL for how this works.\r
+ * The versioned site_perl directory was introduced in 5.005,\r
+ * so that is the lowest possible value.\r
+ * Since this can depend on compile time options (such as\r
+ * bincompat) it is set by Configure. Other non-default sources\r
+ * of potential incompatibility, such as multiplicity, threads,\r
+ * debugging, 64bits, sfio, etc., are not checked for currently,\r
+ * though in principle we could go snooping around in old\r
+ * Config.pm files.\r
+ */\r
+/* PERL_PM_APIVERSION:\r
+ * This variable contains the version of the oldest perl\r
+ * compatible with the present perl. (That is, pure perl modules\r
+ * written for pm_apiversion will still work for the current\r
+ * version). perl.c:incpush() and lib/lib.pm will automatically\r
+ * search in \\site5.7.2\\lib for older directories across major versions\r
+ * back to pm_apiversion. This is only useful if you have a perl\r
+ * library directory tree structured like the default one. The\r
+ * versioned site_perl library was introduced in 5.005, so that's\r
+ * the default setting for this variable. It's hard to imagine\r
+ * it changing before Perl6. It is included here for symmetry\r
+ * with xs_apiveprsion -- the searching algorithms will\r
+ * (presumably) be similar.\r
+ * See the INSTALL file for how this works.\r
+ */\r
+#define PERL_XS_APIVERSION "5.6.0"\r
+#define PERL_PM_APIVERSION "5.005"\r
+\r
+/* SETUID_SCRIPTS_ARE_SECURE_NOW:\r
+ * This symbol, if defined, indicates that the bug that prevents\r
+ * setuid scripts from being secure is not present in this kernel.\r
+ */\r
+/* DOSUID:\r
+ * This symbol, if defined, indicates that the C program should\r
+ * check the script that it is executing for setuid/setgid bits, and\r
+ * attempt to emulate setuid/setgid on systems that have disabled\r
+ * setuid #! scripts because the kernel can't do it securely.\r
+ * It is up to the package designer to make sure that this emulation\r
+ * is done securely. Among other things, it should do an fstat on\r
+ * the script it just opened to make sure it really is a setuid/setgid\r
+ * script, it should make sure the arguments passed correspond exactly\r
+ * to the argument on the #! line, and it should not trust any\r
+ * subprocesses to which it must pass the filename rather than the\r
+ * file descriptor of the script to be executed.\r
+ */\r
+/*#define SETUID_SCRIPTS_ARE_SECURE_NOW /**/\r
+/*#define DOSUID /**/\r
+\r
+/* I_STDARG:\r
+ * This symbol, if defined, indicates that <stdarg.h> exists and should\r
+ * be included.\r
+ */\r
+/* I_VARARGS:\r
+ * This symbol, if defined, indicates to the C program that it should\r
+ * include <varargs.h>.\r
+ */\r
+#define I_STDARG /**/\r
+/*#define I_VARARGS /**/\r
+\r
+/* USE_CROSS_COMPILE:\r
+ * This symbol, if defined, indicates that Perl is being cross-compiled.\r
+ */\r
+/* PERL_TARGETARCH:\r
+ * This symbol, if defined, indicates the target architecture\r
+ * Perl has been cross-compiled to. Undefined if not a cross-compile.\r
+ */\r
+#ifndef USE_CROSS_COMPILE\r
+/*#define USE_CROSS_COMPILE /**/\r
+#define PERL_TARGETARCH "undef" /**/\r
+#endif\r
+\r
+/* HAS_DBMINIT_PROTO:\r
+ * This symbol, if defined, indicates that the system provides\r
+ * a prototype for the dbminit() function. Otherwise, it is up\r
+ * to the program to supply one. A good guess is\r
+ * extern int dbminit(char *);\r
+ */\r
+/*#define HAS_DBMINIT_PROTO /**/\r
+\r
+/* HAS_FLOCK_PROTO:\r
+ * This symbol, if defined, indicates that the system provides\r
+ * a prototype for the flock() function. Otherwise, it is up\r
+ * to the program to supply one. A good guess is\r
+ * extern int flock(int, int);\r
+ */\r
+/*#define HAS_FLOCK_PROTO /**/\r
+\r
+/* HAS_NL_LANGINFO:\r
+ * This symbol, if defined, indicates that the nl_langinfo routine is\r
+ * available to return local data. You will also need <langinfo.h>\r
+ * and therefore I_LANGINFO.\r
+ */\r
+/*#define HAS_NL_LANGINFO /**/\r
+\r
+/* HAS_SIGPROCMASK:\r
+ * This symbol, if defined, indicates that the sigprocmask\r
+ * system call is available to examine or change the signal mask\r
+ * of the calling process.\r
+ */\r
+/*#define HAS_SIGPROCMASK /**/\r
+\r
+/* HAS_SOCKATMARK:\r
+ * This symbol, if defined, indicates that the sockatmark routine is\r
+ * available to test whether a socket is at the out-of-band mark.\r
+ */\r
+/*#define HAS_SOCKATMARK /**/\r
+\r
+/* HAS_SOCKATMARK_PROTO:\r
+ * This symbol, if defined, indicates that the system provides\r
+ * a prototype for the sockatmark() function. Otherwise, it is up\r
+ * to the program to supply one. A good guess is\r
+ * extern int sockatmark _((int));\r
+ */\r
+/*#define HAS_SOCKATMARK_PROTO /**/\r
+\r
+/* HAS_SETRESGID_PROTO:\r
+ * This symbol, if defined, indicates that the system provides\r
+ * a prototype for the setresgid() function. Otherwise, it is up\r
+ * to the program to supply one. Good guesses are\r
+ * extern int setresgid(uid_t ruid, uid_t euid, uid_t suid);\r
+ */\r
+/*#define HAS_SETRESGID_PROTO /**/\r
+\r
+/* HAS_SETRESUID_PROTO:\r
+ * This symbol, if defined, indicates that the system provides\r
+ * a prototype for the setresuid() function. Otherwise, it is up\r
+ * to the program to supply one. Good guesses are\r
+ * extern int setresuid(uid_t ruid, uid_t euid, uid_t suid);\r
+ */\r
+/*#define HAS_SETRESUID_PROTO /**/\r
+\r
+/* HAS_STRFTIME:\r
+ * This symbol, if defined, indicates that the strftime routine is\r
+ * available to do time formatting.\r
+ */\r
+/*#define HAS_STRFTIME /**/\r
+\r
+/* HAS_SYSCALL_PROTO:\r
+ * This symbol, if defined, indicates that the system provides\r
+ * a prototype for the syscall() function. Otherwise, it is up\r
+ * to the program to supply one. Good guesses are\r
+ * extern int syscall(int, ...);\r
+ * extern int syscall(long, ...);\r
+ */\r
+/*#define HAS_SYSCALL_PROTO /**/\r
+\r
+/* U32_ALIGNMENT_REQUIRED:\r
+ * This symbol, if defined, indicates that you must access\r
+ * character data through U32-aligned pointers.\r
+ */\r
+/*#define U32_ALIGNMENT_REQUIRED /**/\r
+\r
+/* HAS_USLEEP_PROTO:\r
+ * This symbol, if defined, indicates that the system provides\r
+ * a prototype for the usleep() function. Otherwise, it is up\r
+ * to the program to supply one. A good guess is\r
+ * extern int usleep(useconds_t);\r
+ */\r
+/*#define HAS_USLEEP_PROTO /**/\r
+\r
+/* I_LANGINFO:\r
+ * This symbol, if defined, indicates that <langinfo.h> exists and\r
+ * should be included.\r
+ */\r
+/*#define I_LANGINFO /**/\r
+\r
+/* HAS_PTHREAD_ATFORK:\r
+ * This symbol, if defined, indicates that the pthread_atfork routine\r
+ * is available setup fork handlers.\r
+ */\r
+/*#define HAS_PTHREAD_ATFORK /**/\r
+\r
+#endif\r
--- /dev/null
+/*
+ * This file was produced by running the config_h.SH script, which
+ * gets its values from config.sh, which is generally produced by
+ * running Configure.
+ *
+ * Feel free to modify any of this as the need arises. Note, however,
+ * that running config_h.SH again will wipe out any changes you've made.
+ * For a more permanent change edit config.sh and rerun config_h.SH.
+ *
+ * $Id: Config_h.U,v 3.0.1.5 1997/02/28 14:57:43 ram Exp $
+ */
+
+/*
+ * Package name : perl5
+ * Source directory :
+ * Configuration time: Tue Mar 21 01:26:24 2000
+ * Configured by : gsar
+ * Target system :
+ */
+
+#ifndef _config_h_
+#define _config_h_
+
+/* LOC_SED:
+ * This symbol holds the complete pathname to the sed program.
+ */
+#define LOC_SED "" /**/
+
+/* HAS_ALARM:
+ * This symbol, if defined, indicates that the alarm routine is
+ * available.
+ */
+/*#define HAS_ALARM /**/
+
+/* HASATTRIBUTE:
+ * This symbol indicates the C compiler can check for function attributes,
+ * such as printf formats. This is normally only supported by GNU cc.
+ */
+/*#define HASATTRIBUTE /**/
+#ifndef HASATTRIBUTE
+#define __attribute__(_arg_)
+#endif
+
+/* HAS_BCMP:
+ * This symbol is defined if the bcmp() routine is available to
+ * compare blocks of memory.
+ */
+/*#define HAS_BCMP /**/
+
+/* HAS_BCOPY:
+ * This symbol is defined if the bcopy() routine is available to
+ * copy blocks of memory.
+ */
+/*#define HAS_BCOPY /**/
+
+/* HAS_BZERO:
+ * This symbol is defined if the bzero() routine is available to
+ * set a memory block to 0.
+ */
+/*#define HAS_BZERO /**/
+
+/* HAS_CHOWN:
+ * This symbol, if defined, indicates that the chown routine is
+ * available.
+ */
+/*#define HAS_CHOWN /**/
+
+/* HAS_CHROOT:
+ * This symbol, if defined, indicates that the chroot routine is
+ * available.
+ */
+/*#define HAS_CHROOT /**/
+
+/* HAS_CHSIZE:
+ * This symbol, if defined, indicates that the chsize routine is available
+ * to truncate files. You might need a -lx to get this routine.
+ */
+#define HAS_CHSIZE /**/
+
+/* HASCONST:
+ * This symbol, if defined, indicates that this C compiler knows about
+ * the const type. There is no need to actually test for that symbol
+ * within your programs. The mere use of the "const" keyword will
+ * trigger the necessary tests.
+ */
+#define HASCONST /**/
+#ifndef HASCONST
+#define const
+#endif
+
+/* HAS_CRYPT:
+ * This symbol, if defined, indicates that the crypt routine is available
+ * to encrypt passwords and the like.
+ */
+/*#define HAS_CRYPT /**/
+
+/* HAS_CUSERID:
+ * This symbol, if defined, indicates that the cuserid routine is
+ * available to get character login names.
+ */
+/*#define HAS_CUSERID /**/
+
+/* HAS_DBL_DIG:
+ * This symbol, if defined, indicates that this system's <float.h>
+ * or <limits.h> defines the symbol DBL_DIG, which is the number
+ * of significant digits in a double precision number. If this
+ * symbol is not defined, a guess of 15 is usually pretty good.
+ */
+#define HAS_DBL_DIG /**/
+
+/* HAS_DIFFTIME:
+ * This symbol, if defined, indicates that the difftime routine is
+ * available.
+ */
+#define HAS_DIFFTIME /**/
+
+/* HAS_DLERROR:
+ * This symbol, if defined, indicates that the dlerror routine is
+ * available to return a string describing the last error that
+ * occurred from a call to dlopen(), dlclose() or dlsym().
+ */
+#define HAS_DLERROR /**/
+
+/* SETUID_SCRIPTS_ARE_SECURE_NOW:
+ * This symbol, if defined, indicates that the bug that prevents
+ * setuid scripts from being secure is not present in this kernel.
+ */
+/* DOSUID:
+ * This symbol, if defined, indicates that the C program should
+ * check the script that it is executing for setuid/setgid bits, and
+ * attempt to emulate setuid/setgid on systems that have disabled
+ * setuid #! scripts because the kernel can't do it securely.
+ * It is up to the package designer to make sure that this emulation
+ * is done securely. Among other things, it should do an fstat on
+ * the script it just opened to make sure it really is a setuid/setgid
+ * script, it should make sure the arguments passed correspond exactly
+ * to the argument on the #! line, and it should not trust any
+ * subprocesses to which it must pass the filename rather than the
+ * file descriptor of the script to be executed.
+ */
+/*#define SETUID_SCRIPTS_ARE_SECURE_NOW /**/
+/*#define DOSUID /**/
+
+/* HAS_DUP2:
+ * This symbol, if defined, indicates that the dup2 routine is
+ * available to duplicate file descriptors.
+ */
+#define HAS_DUP2 /**/
+
+/* HAS_FCHMOD:
+ * This symbol, if defined, indicates that the fchmod routine is available
+ * to change mode of opened files. If unavailable, use chmod().
+ */
+/*#define HAS_FCHMOD /**/
+
+/* HAS_FCHOWN:
+ * This symbol, if defined, indicates that the fchown routine is available
+ * to change ownership of opened files. If unavailable, use chown().
+ */
+/*#define HAS_FCHOWN /**/
+
+/* HAS_FCNTL:
+ * This symbol, if defined, indicates to the C program that
+ * the fcntl() function exists.
+ */
+/*#define HAS_FCNTL /**/
+
+/* HAS_FGETPOS:
+ * This symbol, if defined, indicates that the fgetpos routine is
+ * available to get the file position indicator, similar to ftell().
+ */
+#define HAS_FGETPOS /**/
+
+/* HAS_FLOCK:
+ * This symbol, if defined, indicates that the flock routine is
+ * available to do file locking.
+ */
+#define HAS_FLOCK /**/
+
+/* HAS_FORK:
+ * This symbol, if defined, indicates that the fork routine is
+ * available.
+ */
+/*#define HAS_FORK /**/
+
+/* HAS_FSETPOS:
+ * This symbol, if defined, indicates that the fsetpos routine is
+ * available to set the file position indicator, similar to fseek().
+ */
+#define HAS_FSETPOS /**/
+
+/* HAS_GETTIMEOFDAY:
+ * This symbol, if defined, indicates that the gettimeofday() system
+ * call is available for a sub-second accuracy clock. Usually, the file
+ * <sys/resource.h> needs to be included (see I_SYS_RESOURCE).
+ * The type "Timeval" should be used to refer to "struct timeval".
+ */
+/*#define HAS_GETTIMEOFDAY /**/
+#ifdef HAS_GETTIMEOFDAY
+#define Timeval struct timeval /* Structure used by gettimeofday() */
+#endif
+
+/* HAS_GETGROUPS:
+ * This symbol, if defined, indicates that the getgroups() routine is
+ * available to get the list of process groups. If unavailable, multiple
+ * groups are probably not supported.
+ */
+/*#define HAS_GETGROUPS /**/
+
+/* HAS_GETLOGIN:
+ * This symbol, if defined, indicates that the getlogin routine is
+ * available to get the login name.
+ */
+#define HAS_GETLOGIN /**/
+
+/* HAS_GETPGID:
+ * This symbol, if defined, indicates to the C program that
+ * the getpgid(pid) function is available to get the
+ * process group id.
+ */
+/*#define HAS_GETPGID /**/
+
+/* HAS_GETPGRP:
+ * This symbol, if defined, indicates that the getpgrp routine is
+ * available to get the current process group.
+ */
+/* USE_BSD_GETPGRP:
+ * This symbol, if defined, indicates that getpgrp needs one
+ * arguments whereas USG one needs none.
+ */
+/*#define HAS_GETPGRP /**/
+/*#define USE_BSD_GETPGRP /**/
+
+/* HAS_GETPGRP2:
+ * This symbol, if defined, indicates that the getpgrp2() (as in DG/UX)
+ * routine is available to get the current process group.
+ */
+/*#define HAS_GETPGRP2 /**/
+
+/* HAS_GETPPID:
+ * This symbol, if defined, indicates that the getppid routine is
+ * available to get the parent process ID.
+ */
+/*#define HAS_GETPPID /**/
+
+/* HAS_GETPRIORITY:
+ * This symbol, if defined, indicates that the getpriority routine is
+ * available to get a process's priority.
+ */
+/*#define HAS_GETPRIORITY /**/
+
+/* HAS_INET_ATON:
+ * This symbol, if defined, indicates to the C program that the
+ * inet_aton() function is available to parse IP address "dotted-quad"
+ * strings.
+ */
+/*#define HAS_INET_ATON /**/
+
+/* HAS_KILLPG:
+ * This symbol, if defined, indicates that the killpg routine is available
+ * to kill process groups. If unavailable, you probably should use kill
+ * with a negative process number.
+ */
+/*#define HAS_KILLPG /**/
+
+/* HAS_LINK:
+ * This symbol, if defined, indicates that the link routine is
+ * available to create hard links.
+ */
+
+// #define HAS_LINK /**/
+
+/* HAS_LOCALECONV:
+ * This symbol, if defined, indicates that the localeconv routine is
+ * available for numeric and monetary formatting conventions.
+ */
+
+// #define HAS_LOCALECONV /**/
+
+/* HAS_LOCKF:
+ * This symbol, if defined, indicates that the lockf routine is
+ * available to do file locking.
+ */
+/*#define HAS_LOCKF /**/
+
+/* HAS_LSTAT:
+ * This symbol, if defined, indicates that the lstat routine is
+ * available to do file stats on symbolic links.
+ */
+/*#define HAS_LSTAT /**/
+
+/* HAS_MBLEN:
+ * This symbol, if defined, indicates that the mblen routine is available
+ * to find the number of bytes in a multibye character.
+ */
+#define HAS_MBLEN /**/
+
+/* HAS_MBSTOWCS:
+ * This symbol, if defined, indicates that the mbstowcs routine is
+ * available to covert a multibyte string into a wide character string.
+ */
+#define HAS_MBSTOWCS /**/
+
+/* HAS_MBTOWC:
+ * This symbol, if defined, indicates that the mbtowc routine is available
+ * to covert a multibyte to a wide character.
+ */
+#define HAS_MBTOWC /**/
+
+/* HAS_MEMCMP:
+ * This symbol, if defined, indicates that the memcmp routine is available
+ * to compare blocks of memory.
+ */
+#define HAS_MEMCMP /**/
+
+/* HAS_MEMCPY:
+ * This symbol, if defined, indicates that the memcpy routine is available
+ * to copy blocks of memory.
+ */
+#define HAS_MEMCPY /**/
+
+/* HAS_MEMMOVE:
+ * This symbol, if defined, indicates that the memmove routine is available
+ * to copy potentially overlapping blocks of memory. This should be used
+ * only when HAS_SAFE_BCOPY is not defined. If neither is there, roll your
+ * own version.
+ */
+#define HAS_MEMMOVE /**/
+
+/* HAS_MEMSET:
+ * This symbol, if defined, indicates that the memset routine is available
+ * to set blocks of memory.
+ */
+#define HAS_MEMSET /**/
+
+/* HAS_MKDIR:
+ * This symbol, if defined, indicates that the mkdir routine is available
+ * to create directories. Otherwise you should fork off a new process to
+ * exec /bin/mkdir.
+ */
+#define HAS_MKDIR /**/
+
+/* HAS_MKFIFO:
+ * This symbol, if defined, indicates that the mkfifo routine is
+ * available to create FIFOs. Otherwise, mknod should be able to
+ * do it for you. However, if mkfifo is there, mknod might require
+ * super-user privileges which mkfifo will not.
+ */
+/*#define HAS_MKFIFO /**/
+
+/* HAS_MKTIME:
+ * This symbol, if defined, indicates that the mktime routine is
+ * available.
+ */
+#define HAS_MKTIME /**/
+
+/* HAS_MSYNC:
+ * This symbol, if defined, indicates that the msync system call is
+ * available to synchronize a mapped file.
+ */
+/*#define HAS_MSYNC /**/
+
+/* HAS_MUNMAP:
+ * This symbol, if defined, indicates that the munmap system call is
+ * available to unmap a region, usually mapped by mmap().
+ */
+/*#define HAS_MUNMAP /**/
+
+/* HAS_NICE:
+ * This symbol, if defined, indicates that the nice routine is
+ * available.
+ */
+/*#define HAS_NICE /**/
+
+/* HAS_PATHCONF:
+ * This symbol, if defined, indicates that pathconf() is available
+ * to determine file-system related limits and options associated
+ * with a given filename.
+ */
+/* HAS_FPATHCONF:
+ * This symbol, if defined, indicates that pathconf() is available
+ * to determine file-system related limits and options associated
+ * with a given open file descriptor.
+ */
+/*#define HAS_PATHCONF /**/
+/*#define HAS_FPATHCONF /**/
+
+/* HAS_PAUSE:
+ * This symbol, if defined, indicates that the pause routine is
+ * available to suspend a process until a signal is received.
+ */
+#define HAS_PAUSE /**/
+
+/* HAS_PIPE:
+ * This symbol, if defined, indicates that the pipe routine is
+ * available to create an inter-process channel.
+ */
+#define HAS_PIPE /**/
+
+/* HAS_POLL:
+ * This symbol, if defined, indicates that the poll routine is
+ * available to poll active file descriptors. You may safely
+ * include <poll.h> when this symbol is defined.
+ */
+/*#define HAS_POLL /**/
+
+/* HAS_READDIR:
+ * This symbol, if defined, indicates that the readdir routine is
+ * available to read directory entries. You may have to include
+ * <dirent.h>. See I_DIRENT.
+ */
+#define HAS_READDIR /**/
+
+/* HAS_SEEKDIR:
+ * This symbol, if defined, indicates that the seekdir routine is
+ * available. You may have to include <dirent.h>. See I_DIRENT.
+ */
+#define HAS_SEEKDIR /**/
+
+/* HAS_TELLDIR:
+ * This symbol, if defined, indicates that the telldir routine is
+ * available. You may have to include <dirent.h>. See I_DIRENT.
+ */
+#define HAS_TELLDIR /**/
+
+/* HAS_REWINDDIR:
+ * This symbol, if defined, indicates that the rewinddir routine is
+ * available. You may have to include <dirent.h>. See I_DIRENT.
+ */
+#define HAS_REWINDDIR /**/
+
+/* HAS_READLINK:
+ * This symbol, if defined, indicates that the readlink routine is
+ * available to read the value of a symbolic link.
+ */
+/*#define HAS_READLINK /**/
+
+/* HAS_RENAME:
+ * This symbol, if defined, indicates that the rename routine is available
+ * to rename files. Otherwise you should do the unlink(), link(), unlink()
+ * trick.
+ */
+#define HAS_RENAME /**/
+
+/* HAS_RMDIR:
+ * This symbol, if defined, indicates that the rmdir routine is
+ * available to remove directories. Otherwise you should fork off a
+ * new process to exec /bin/rmdir.
+ */
+#define HAS_RMDIR /**/
+
+/* HAS_SELECT:
+ * This symbol, if defined, indicates that the select routine is
+ * available to select active file descriptors. If the timeout field
+ * is used, <sys/time.h> may need to be included.
+ */
+#define HAS_SELECT /**/
+
+/* HAS_SETEGID:
+ * This symbol, if defined, indicates that the setegid routine is available
+ * to change the effective gid of the current program.
+ */
+/*#define HAS_SETEGID /**/
+
+/* HAS_SETEUID:
+ * This symbol, if defined, indicates that the seteuid routine is available
+ * to change the effective uid of the current program.
+ */
+/*#define HAS_SETEUID /**/
+
+/* HAS_SETLINEBUF:
+ * This symbol, if defined, indicates that the setlinebuf routine is
+ * available to change stderr or stdout from block-buffered or unbuffered
+ * to a line-buffered mode.
+ */
+/*#define HAS_SETLINEBUF /**/
+
+/* HAS_SETLOCALE:
+ * This symbol, if defined, indicates that the setlocale routine is
+ * available to handle locale-specific ctype implementations.
+ */
+
+// #define HAS_SETLOCALE /**/
+
+/* HAS_SETPGID:
+ * This symbol, if defined, indicates that the setpgid(pid, gpid)
+ * routine is available to set process group ID.
+ */
+/*#define HAS_SETPGID /**/
+
+/* HAS_SETPGRP:
+ * This symbol, if defined, indicates that the setpgrp routine is
+ * available to set the current process group.
+ */
+/* USE_BSD_SETPGRP:
+ * This symbol, if defined, indicates that setpgrp needs two
+ * arguments whereas USG one needs none. See also HAS_SETPGID
+ * for a POSIX interface.
+ */
+/*#define HAS_SETPGRP /**/
+/*#define USE_BSD_SETPGRP /**/
+
+/* HAS_SETPGRP2:
+ * This symbol, if defined, indicates that the setpgrp2() (as in DG/UX)
+ * routine is available to set the current process group.
+ */
+/*#define HAS_SETPGRP2 /**/
+
+/* HAS_SETPRIORITY:
+ * This symbol, if defined, indicates that the setpriority routine is
+ * available to set a process's priority.
+ */
+/*#define HAS_SETPRIORITY /**/
+
+/* HAS_SETREGID:
+ * This symbol, if defined, indicates that the setregid routine is
+ * available to change the real and effective gid of the current
+ * process.
+ */
+/* HAS_SETRESGID:
+ * This symbol, if defined, indicates that the setresgid routine is
+ * available to change the real, effective and saved gid of the current
+ * process.
+ */
+/*#define HAS_SETREGID /**/
+/*#define HAS_SETRESGID /**/
+
+/* HAS_SETREUID:
+ * This symbol, if defined, indicates that the setreuid routine is
+ * available to change the real and effective uid of the current
+ * process.
+ */
+/* HAS_SETRESUID:
+ * This symbol, if defined, indicates that the setresuid routine is
+ * available to change the real, effective and saved uid of the current
+ * process.
+ */
+/*#define HAS_SETREUID /**/
+/*#define HAS_SETRESUID /**/
+
+/* HAS_SETRGID:
+ * This symbol, if defined, indicates that the setrgid routine is available
+ * to change the real gid of the current program.
+ */
+/*#define HAS_SETRGID /**/
+
+/* HAS_SETRUID:
+ * This symbol, if defined, indicates that the setruid routine is available
+ * to change the real uid of the current program.
+ */
+/*#define HAS_SETRUID /**/
+
+/* HAS_SETSID:
+ * This symbol, if defined, indicates that the setsid routine is
+ * available to set the process group ID.
+ */
+/*#define HAS_SETSID /**/
+
+/* Shmat_t:
+ * This symbol holds the return type of the shmat() system call.
+ * Usually set to 'void *' or 'char *'.
+ */
+/* HAS_SHMAT_PROTOTYPE:
+ * This symbol, if defined, indicates that the sys/shm.h includes
+ * a prototype for shmat(). Otherwise, it is up to the program to
+ * guess one. Shmat_t shmat _((int, Shmat_t, int)) is a good guess,
+ * but not always right so it should be emitted by the program only
+ * when HAS_SHMAT_PROTOTYPE is not defined to avoid conflicting defs.
+ */
+#define Shmat_t void * /**/
+/*#define HAS_SHMAT_PROTOTYPE /**/
+
+/* HAS_STRCHR:
+ * This symbol is defined to indicate that the strchr()/strrchr()
+ * functions are available for string searching. If not, try the
+ * index()/rindex() pair.
+ */
+/* HAS_INDEX:
+ * This symbol is defined to indicate that the index()/rindex()
+ * functions are available for string searching.
+ */
+#define HAS_STRCHR /**/
+/*#define HAS_INDEX /**/
+
+/* HAS_STRCOLL:
+ * This symbol, if defined, indicates that the strcoll routine is
+ * available to compare strings using collating information.
+ */
+
+//#define HAS_STRCOLL /**/
+
+/* USE_STRUCT_COPY:
+ * This symbol, if defined, indicates that this C compiler knows how
+ * to copy structures. If undefined, you'll need to use a block copy
+ * routine of some sort instead.
+ */
+#define USE_STRUCT_COPY /**/
+
+/* HAS_STRTOD:
+ * This symbol, if defined, indicates that the strtod routine is
+ * available to provide better numeric string conversion than atof().
+ */
+#define HAS_STRTOD /**/
+
+/* HAS_STRTOL:
+ * This symbol, if defined, indicates that the strtol routine is available
+ * to provide better numeric string conversion than atoi() and friends.
+ */
+#define HAS_STRTOL /**/
+
+/* HAS_STRTOUL:
+ * This symbol, if defined, indicates that the strtoul routine is
+ * available to provide conversion of strings to unsigned long.
+ */
+#define HAS_STRTOUL /**/
+
+/* HAS_STRXFRM:
+ * This symbol, if defined, indicates that the strxfrm() routine is
+ * available to transform strings.
+ */
+
+//#define HAS_STRXFRM /**/
+
+/* HAS_SYMLINK:
+ * This symbol, if defined, indicates that the symlink routine is available
+ * to create symbolic links.
+ */
+/*#define HAS_SYMLINK /**/
+
+/* HAS_SYSCALL:
+ * This symbol, if defined, indicates that the syscall routine is
+ * available to call arbitrary system calls. If undefined, that's tough.
+ */
+/*#define HAS_SYSCALL /**/
+
+/* HAS_SYSCONF:
+ * This symbol, if defined, indicates that sysconf() is available
+ * to determine system related limits and options.
+ */
+/*#define HAS_SYSCONF /**/
+
+/* HAS_SYSTEM:
+ * This symbol, if defined, indicates that the system routine is
+ * available to issue a shell command.
+ */
+#define HAS_SYSTEM /**/
+
+/* HAS_TCGETPGRP:
+ * This symbol, if defined, indicates that the tcgetpgrp routine is
+ * available to get foreground process group ID.
+ */
+/*#define HAS_TCGETPGRP /**/
+
+/* HAS_TCSETPGRP:
+ * This symbol, if defined, indicates that the tcsetpgrp routine is
+ * available to set foreground process group ID.
+ */
+/*#define HAS_TCSETPGRP /**/
+
+/* HAS_TRUNCATE:
+ * This symbol, if defined, indicates that the truncate routine is
+ * available to truncate files.
+ */
+/*#define HAS_TRUNCATE /**/
+
+/* HAS_TZNAME:
+ * This symbol, if defined, indicates that the tzname[] array is
+ * available to access timezone names.
+ */
+#define HAS_TZNAME /**/
+
+/* HAS_UMASK:
+ * This symbol, if defined, indicates that the umask routine is
+ * available to set and get the value of the file creation mask.
+ */
+#define HAS_UMASK /**/
+
+/* HASVOLATILE:
+ * This symbol, if defined, indicates that this C compiler knows about
+ * the volatile declaration.
+ */
+#define HASVOLATILE /**/
+#ifndef HASVOLATILE
+#define volatile
+#endif
+
+/* HAS_WAIT4:
+ * This symbol, if defined, indicates that wait4() exists.
+ */
+/*#define HAS_WAIT4 /**/
+
+/* HAS_WAITPID:
+ * This symbol, if defined, indicates that the waitpid routine is
+ * available to wait for child process.
+ */
+
+// #define HAS_WAITPID /**/
+
+/* HAS_WCSTOMBS:
+ * This symbol, if defined, indicates that the wcstombs routine is
+ * available to convert wide character strings to multibyte strings.
+ */
+#define HAS_WCSTOMBS /**/
+
+/* HAS_WCTOMB:
+ * This symbol, if defined, indicates that the wctomb routine is available
+ * to covert a wide character to a multibyte.
+ */
+#define HAS_WCTOMB /**/
+
+/* I_ARPA_INET:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <arpa/inet.h> to get inet_addr and friends declarations.
+ */
+#define I_ARPA_INET /**/
+
+/* I_DBM:
+ * This symbol, if defined, indicates that <dbm.h> exists and should
+ * be included.
+ */
+/* I_RPCSVC_DBM:
+ * This symbol, if defined, indicates that <rpcsvc/dbm.h> exists and
+ * should be included.
+ */
+/*#define I_DBM /**/
+#define I_RPCSVC_DBM /**/
+
+/* I_DIRENT:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <dirent.h>. Using this symbol also triggers the definition
+ * of the Direntry_t define which ends up being 'struct dirent' or
+ * 'struct direct' depending on the availability of <dirent.h>.
+ */
+/* DIRNAMLEN:
+ * This symbol, if defined, indicates to the C program that the length
+ * of directory entry names is provided by a d_namlen field. Otherwise
+ * you need to do strlen() on the d_name field.
+ */
+/* Direntry_t:
+ * This symbol is set to 'struct direct' or 'struct dirent' depending on
+ * whether dirent is available or not. You should use this pseudo type to
+ * portably declare your directory entries.
+ */
+#define I_DIRENT /**/
+#define DIRNAMLEN /**/
+#define Direntry_t struct direct
+
+/* I_DLFCN:
+ * This symbol, if defined, indicates that <dlfcn.h> exists and should
+ * be included.
+ */
+#define I_DLFCN /**/
+
+/* I_FCNTL:
+ * This manifest constant tells the C program to include <fcntl.h>.
+ */
+
+// #define I_FCNTL /**/
+
+/* I_FLOAT:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <float.h> to get definition of symbols like DBL_MAX or
+ * DBL_MIN, i.e. machine dependent floating point values.
+ */
+#define I_FLOAT /**/
+
+/* I_LIMITS:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <limits.h> to get definition of symbols like WORD_BIT or
+ * LONG_MAX, i.e. machine dependant limitations.
+ */
+#define I_LIMITS /**/
+
+/* I_LOCALE:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <locale.h>.
+ */
+
+// #define I_LOCALE /**/
+
+/* I_MATH:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <math.h>.
+ */
+#define I_MATH /**/
+
+/* I_MEMORY:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <memory.h>.
+ */
+/*#define I_MEMORY /**/
+
+/* I_NDBM:
+ * This symbol, if defined, indicates that <ndbm.h> exists and should
+ * be included.
+ */
+/*#define I_NDBM /**/
+
+/* I_NET_ERRNO:
+ * This symbol, if defined, indicates that <net/errno.h> exists and
+ * should be included.
+ */
+/*#define I_NET_ERRNO /**/
+
+/* I_NETINET_IN:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <netinet/in.h>. Otherwise, you may try <sys/in.h>.
+ */
+/*#define I_NETINET_IN /**/
+
+/* I_SFIO:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sfio.h>.
+ */
+/*#define I_SFIO /**/
+
+/* I_STDDEF:
+ * This symbol, if defined, indicates that <stddef.h> exists and should
+ * be included.
+ */
+#define I_STDDEF /**/
+
+/* I_STDLIB:
+ * This symbol, if defined, indicates that <stdlib.h> exists and should
+ * be included.
+ */
+#define I_STDLIB /**/
+
+/* I_STRING:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <string.h> (USG systems) instead of <strings.h> (BSD systems).
+ */
+#define I_STRING /**/
+
+/* I_SYS_DIR:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/dir.h>.
+ */
+/*#define I_SYS_DIR /**/
+
+/* I_SYS_FILE:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/file.h> to get definition of R_OK and friends.
+ */
+/*#define I_SYS_FILE /**/
+
+/* I_SYS_IOCTL:
+ * This symbol, if defined, indicates that <sys/ioctl.h> exists and should
+ * be included. Otherwise, include <sgtty.h> or <termio.h>.
+ */
+/*#define I_SYS_IOCTL /**/
+
+/* I_SYS_NDIR:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/ndir.h>.
+ */
+/*#define I_SYS_NDIR /**/
+
+/* I_SYS_PARAM:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/param.h>.
+ */
+/*#define I_SYS_PARAM /**/
+
+/* I_SYS_RESOURCE:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/resource.h>.
+ */
+/*#define I_SYS_RESOURCE /**/
+
+/* I_SYS_SELECT:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/select.h> in order to get definition of struct timeval.
+ */
+/*#define I_SYS_SELECT /**/
+
+/* I_SYS_STAT:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/stat.h>.
+ */
+#define I_SYS_STAT /**/
+
+/* I_SYS_TIMES:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/times.h>.
+ */
+/*#define I_SYS_TIMES /**/
+
+/* I_SYS_TYPES:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/types.h>.
+ */
+#define I_SYS_TYPES /**/
+
+/* I_SYS_UN:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/un.h> to get UNIX domain socket definitions.
+ */
+/*#define I_SYS_UN /**/
+
+/* I_SYS_WAIT:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/wait.h>.
+ */
+/*#define I_SYS_WAIT /**/
+
+/* I_TERMIO:
+ * This symbol, if defined, indicates that the program should include
+ * <termio.h> rather than <sgtty.h>. There are also differences in
+ * the ioctl() calls that depend on the value of this symbol.
+ */
+/* I_TERMIOS:
+ * This symbol, if defined, indicates that the program should include
+ * the POSIX termios.h rather than sgtty.h or termio.h.
+ * There are also differences in the ioctl() calls that depend on the
+ * value of this symbol.
+ */
+/* I_SGTTY:
+ * This symbol, if defined, indicates that the program should include
+ * <sgtty.h> rather than <termio.h>. There are also differences in
+ * the ioctl() calls that depend on the value of this symbol.
+ */
+/*#define I_TERMIO /**/
+/*#define I_TERMIOS /**/
+/*#define I_SGTTY /**/
+
+/* I_UNISTD:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <unistd.h>.
+ */
+/*#define I_UNISTD /**/
+
+/* I_UTIME:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <utime.h>.
+ */
+#define I_UTIME /**/
+
+/* I_VALUES:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <values.h> to get definition of symbols like MINFLOAT or
+ * MAXLONG, i.e. machine dependant limitations. Probably, you
+ * should use <limits.h> instead, if it is available.
+ */
+/*#define I_VALUES /**/
+
+/* I_STDARG:
+ * This symbol, if defined, indicates that <stdarg.h> exists and should
+ * be included.
+ */
+/* I_VARARGS:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <varargs.h>.
+ */
+#define I_STDARG /**/
+/*#define I_VARARGS /**/
+
+/* I_VFORK:
+ * This symbol, if defined, indicates to the C program that it should
+ * include vfork.h.
+ */
+/*#define I_VFORK /**/
+
+/* CAN_PROTOTYPE:
+ * If defined, this macro indicates that the C compiler can handle
+ * function prototypes.
+ */
+/* _:
+ * This macro is used to declare function parameters for folks who want
+ * to make declarations with prototypes using a different style than
+ * the above macros. Use double parentheses. For example:
+ *
+ * int main _((int argc, char *argv[]));
+ */
+#define CAN_PROTOTYPE /**/
+#ifdef CAN_PROTOTYPE
+#define _(args) args
+#else
+#define _(args) ()
+#endif
+
+/* SH_PATH:
+ * This symbol contains the full pathname to the shell used on this
+ * on this system to execute Bourne shell scripts. Usually, this will be
+ * /bin/sh, though it's possible that some systems will have /bin/ksh,
+ * /bin/pdksh, /bin/ash, /bin/bash, or even something such as
+ * D:/bin/sh.exe.
+ */
+#define SH_PATH "cmd /x /c" /**/
+
+/* STDCHAR:
+ * This symbol is defined to be the type of char used in stdio.h.
+ * It has the values "unsigned char" or "char".
+ */
+#define STDCHAR char /**/
+
+/* CROSSCOMPILE:
+ * This symbol, if defined, signifies that we our
+ * build process is a cross-compilation.
+ */
+/*#define CROSSCOMPILE /**/
+
+/* INTSIZE:
+ * This symbol contains the value of sizeof(int) so that the C
+ * preprocessor can make decisions based on it.
+ */
+/* LONGSIZE:
+ * This symbol contains the value of sizeof(long) so that the C
+ * preprocessor can make decisions based on it.
+ */
+/* SHORTSIZE:
+ * This symbol contains the value of sizeof(short) so that the C
+ * preprocessor can make decisions based on it.
+ */
+#define INTSIZE 4 /**/
+#define LONGSIZE 4 /**/
+#define SHORTSIZE 2 /**/
+
+/* MULTIARCH:
+ * This symbol, if defined, signifies that the build
+ * process will produce some binary files that are going to be
+ * used in a cross-platform environment. This is the case for
+ * example with the NeXT "fat" binaries that contain executables
+ * for several CPUs.
+ */
+/*#define MULTIARCH /**/
+
+/* HAS_QUAD:
+ * This symbol, if defined, tells that there's a 64-bit integer type,
+ * Quad_t, and its unsigned counterpar, Uquad_t. QUADKIND will be one
+ * of QUAD_IS_INT, QUAD_IS_LONG, QUAD_IS_LONG_LONG, or QUAD_IS_INT64_T.
+ */
+/*#define HAS_QUAD /**/
+#ifdef HAS_QUAD
+# define Quad_t __int64 /**/
+# define Uquad_t unsigned __int64 /**/
+# define QUADKIND 5 /**/
+# define QUAD_IS_INT 1
+# define QUAD_IS_LONG 2
+# define QUAD_IS_LONG_LONG 3
+# define QUAD_IS_INT64_T 4
+#endif
+
+/* HAS_ACCESSX:
+ * This symbol, if defined, indicates that the accessx routine is
+ * available to do extended access checks.
+ */
+/*#define HAS_ACCESSX /**/
+
+/* HAS_EACCESS:
+ * This symbol, if defined, indicates that the eaccess routine is
+ * available to do extended access checks.
+ */
+/*#define HAS_EACCESS /**/
+
+/* I_SYS_ACCESS:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/access.h>.
+ */
+/*#define I_SYS_ACCESS /**/
+
+/* I_SYS_SECURITY:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/security.h>.
+ */
+/*#define I_SYS_SECURITY /**/
+
+/* OSNAME:
+ * This symbol contains the name of the operating system, as determined
+ * by Configure. You shouldn't rely on it too much; the specific
+ * feature tests from Configure are generally more reliable.
+ */
+#define OSNAME "MSWin32" /**/
+
+/* MEM_ALIGNBYTES:
+ * This symbol contains the number of bytes required to align a
+ * double, or a long double when applicable. Usual values are 2,
+ * 4 and 8. The default is eight, for safety.
+ */
+#if defined(CROSSCOMPILE) || defined(MULTIARCH)
+# define MEM_ALIGNBYTES 8
+#else
+#define MEM_ALIGNBYTES 8
+#endif
+
+/* ARCHLIB:
+ * This variable, if defined, holds the name of the directory in
+ * which the user wants to put architecture-dependent public
+ * library files for perl5. It is most often a local directory
+ * such as /usr/local/lib. Programs using this variable must be
+ * prepared to deal with filename expansion. If ARCHLIB is the
+ * same as PRIVLIB, it is not defined, since presumably the
+ * program already searches PRIVLIB.
+ */
+/* ARCHLIB_EXP:
+ * This symbol contains the ~name expanded version of ARCHLIB, to be used
+ * in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+#define ARCHLIB "c:\\perl\\5.6.0\\lib\\MSWin32-x86" /**/
+/*#define ARCHLIB_EXP "" /**/
+
+/* ARCHNAME:
+ * This symbol holds a string representing the architecture name.
+ * It may be used to construct an architecture-dependant pathname
+ * where library files may be held under a private library, for
+ * instance.
+ */
+#define ARCHNAME "MSWin32-x86" /**/
+
+/* HAS_ATOLF:
+ * This symbol, if defined, indicates that the atolf routine is
+ * available to convert strings into long doubles.
+ */
+/*#define HAS_ATOLF /**/
+
+/* HAS_ATOLL:
+ * This symbol, if defined, indicates that the atoll routine is
+ * available to convert strings into long longs.
+ */
+/*#define HAS_ATOLL /**/
+
+/* BIN:
+ * This symbol holds the path of the bin directory where the package will
+ * be installed. Program must be prepared to deal with ~name substitution.
+ */
+/* BIN_EXP:
+ * This symbol is the filename expanded version of the BIN symbol, for
+ * programs that do not want to deal with that at run-time.
+ */
+#define BIN "c:\\perl\\5.6.0\\bin\\MSWin32-x86" /**/
+#define BIN_EXP "c:\\perl\\5.6.0\\bin\\MSWin32-x86" /**/
+
+/* PERL_BINCOMPAT_5005:
+ * This symbol, if defined, indicates that this version of Perl should be
+ * binary-compatible with Perl 5.005. This is impossible for builds
+ * that use features like threads and multiplicity it is always undef
+ * for those versions.
+ */
+/*#define PERL_BINCOMPAT_5005 /**/
+
+/* BYTEORDER:
+ * This symbol holds the hexadecimal constant defined in byteorder,
+ * i.e. 0x1234 or 0x4321, etc...
+ * If the compiler supports cross-compiling or multiple-architecture
+ * binaries (eg. on NeXT systems), use compiler-defined macros to
+ * determine the byte order.
+ * On NeXT 3.2 (and greater), you can build "Fat" Multiple Architecture
+ * Binaries (MAB) on either big endian or little endian machines.
+ * The endian-ness is available at compile-time. This only matters
+ * for perl, where the config.h can be generated and installed on
+ * one system, and used by a different architecture to build an
+ * extension. Older versions of NeXT that might not have
+ * defined either *_ENDIAN__ were all on Motorola 680x0 series,
+ * so the default case (for NeXT) is big endian to catch them.
+ * This might matter for NeXT 3.0.
+ */
+#if defined(CROSSCOMPILE) || defined(MULTIARCH)
+# ifdef __LITTLE_ENDIAN__
+# if LONGSIZE == 4
+# define BYTEORDER 0x1234
+# else
+# if LONGSIZE == 8
+# define BYTEORDER 0x12345678
+# endif
+# endif
+# else
+# ifdef __BIG_ENDIAN__
+# if LONGSIZE == 4
+# define BYTEORDER 0x4321
+# else
+# if LONGSIZE == 8
+# define BYTEORDER 0x87654321
+# endif
+# endif
+# endif
+# endif
+# if !defined(BYTEORDER) && (defined(NeXT) || defined(__NeXT__))
+# define BYTEORDER 0x4321
+# endif
+#else
+#define BYTEORDER 0x1234 /* large digits for MSB */
+#endif /* NeXT */
+
+/* CAT2:
+ * This macro catenates 2 tokens together.
+ */
+/* STRINGIFY:
+ * This macro surrounds its token with double quotes.
+ */
+#if 42 == 1
+# define CAT2(a,b) a/**/b
+# define STRINGIFY(a) "a"
+ /* If you can get stringification with catify, tell me how! */
+#endif
+#if 42 == 42
+# define PeRl_CaTiFy(a, b) a ## b
+# define PeRl_StGiFy(a) #a
+/* the additional level of indirection enables these macros to be
+ * used as arguments to other macros. See K&R 2nd ed., page 231. */
+# define CAT2(a,b) PeRl_CaTiFy(a,b)
+# define StGiFy(a) PeRl_StGiFy(a)
+# define STRINGIFY(a) PeRl_StGiFy(a)
+#endif
+#if 42 != 1 && 42 != 42
+#include "Bletch: How does this C preprocessor catenate tokens?"
+#endif
+
+/* CPPSTDIN:
+ * This symbol contains the first part of the string which will invoke
+ * the C preprocessor on the standard input and produce to standard
+ * output. Typical value of "cc -E" or "/lib/cpp", but it can also
+ * call a wrapper. See CPPRUN.
+ */
+/* CPPMINUS:
+ * This symbol contains the second part of the string which will invoke
+ * the C preprocessor on the standard input and produce to standard
+ * output. This symbol will have the value "-" if CPPSTDIN needs a minus
+ * to specify standard input, otherwise the value is "".
+ */
+/* CPPRUN:
+ * This symbol contains the string which will invoke a C preprocessor on
+ * the standard input and produce to standard output. It needs to end
+ * with CPPLAST, after all other preprocessor flags have been specified.
+ * The main difference with CPPSTDIN is that this program will never be a
+ * pointer to a shell wrapper, i.e. it will be empty if no preprocessor is
+ * available directly to the user. Note that it may well be different from
+ * the preprocessor used to compile the C program.
+ */
+/* CPPLAST:
+ * This symbol is intended to be used along with CPPRUN in the same manner
+ * symbol CPPMINUS is used with CPPSTDIN. It contains either "-" or "".
+ */
+#define CPPSTDIN "cl -nologo -E"
+#define CPPMINUS ""
+#define CPPRUN "cl -nologo -E"
+#define CPPLAST ""
+
+/* HAS_ACCESS:
+ * This manifest constant lets the C program know that the access()
+ * system call is available to check for accessibility using real UID/GID.
+ * (always present on UNIX.)
+ */
+#define HAS_ACCESS /**/
+
+/* CASTI32:
+ * This symbol is defined if the C compiler can cast negative
+ * or large floating point numbers to 32-bit ints.
+ */
+/*#define CASTI32 /**/
+
+/* CASTNEGFLOAT:
+ * This symbol is defined if the C compiler can cast negative
+ * numbers to unsigned longs, ints and shorts.
+ */
+/* CASTFLAGS:
+ * This symbol contains flags that say what difficulties the compiler
+ * has casting odd floating values to unsigned long:
+ * 0 = ok
+ * 1 = couldn't cast < 0
+ * 2 = couldn't cast >= 0x80000000
+ * 4 = couldn't cast in argument expression list
+ */
+#define CASTNEGFLOAT /**/
+#define CASTFLAGS 0 /**/
+
+/* VOID_CLOSEDIR:
+ * This symbol, if defined, indicates that the closedir() routine
+ * does not return a value.
+ */
+/*#define VOID_CLOSEDIR /**/
+
+/* HAS_CSH:
+ * This symbol, if defined, indicates that the C-shell exists.
+ */
+/* CSH:
+ * This symbol, if defined, contains the full pathname of csh.
+ */
+/*#define HAS_CSH /**/
+#ifdef HAS_CSH
+#define CSH "" /**/
+#endif
+
+/* DLSYM_NEEDS_UNDERSCORE:
+ * This symbol, if defined, indicates that we need to prepend an
+ * underscore to the symbol name before calling dlsym(). This only
+ * makes sense if you *have* dlsym, which we will presume is the
+ * case if you're using dl_dlopen.xs.
+ */
+/*#define DLSYM_NEEDS_UNDERSCORE /**/
+
+/* HAS_DRAND48_PROTO:
+ * This symbol, if defined, indicates that the system provides
+ * a prototype for the drand48() function. Otherwise, it is up
+ * to the program to supply one. A good guess is
+ * extern double drand48 _((void));
+ */
+/*#define HAS_DRAND48_PROTO /**/
+
+/* HAS_ENDGRENT:
+ * This symbol, if defined, indicates that the getgrent routine is
+ * available for finalizing sequential access of the group database.
+ */
+/*#define HAS_ENDGRENT /**/
+
+/* HAS_ENDHOSTENT:
+ * This symbol, if defined, indicates that the endhostent() routine is
+ * available to close whatever was being used for host queries.
+ */
+/*#define HAS_ENDHOSTENT /**/
+
+/* HAS_ENDNETENT:
+ * This symbol, if defined, indicates that the endnetent() routine is
+ * available to close whatever was being used for network queries.
+ */
+/*#define HAS_ENDNETENT /**/
+
+/* HAS_ENDPROTOENT:
+ * This symbol, if defined, indicates that the endprotoent() routine is
+ * available to close whatever was being used for protocol queries.
+ */
+/*#define HAS_ENDPROTOENT /**/
+
+/* HAS_ENDPWENT:
+ * This symbol, if defined, indicates that the getgrent routine is
+ * available for finalizing sequential access of the passwd database.
+ */
+/*#define HAS_ENDPWENT /**/
+
+/* HAS_ENDSERVENT:
+ * This symbol, if defined, indicates that the endservent() routine is
+ * available to close whatever was being used for service queries.
+ */
+/*#define HAS_ENDSERVENT /**/
+
+/* HAS_ENDSPENT:
+ * This symbol, if defined, indicates that the endspent system call is
+ * available to finalize the scan of SysV shadow password entries.
+ */
+/*#define HAS_ENDSPENT /**/
+
+/* HAS_FD_SET:
+ * This symbol, when defined, indicates presence of the fd_set typedef
+ * in <sys/types.h>
+ */
+#define HAS_FD_SET /**/
+
+/* HAS_FPOS64_T:
+ * This symbol will be defined if the C compiler supports fpos64_t.
+ */
+/*#define HAS_FPOS64_T /**/
+
+/* HAS_STRUCT_FS_DATA:
+ * This symbol, if defined, indicates that the struct fs_data
+ * to do statfs() is supported.
+ */
+/*#define HAS_STRUCT_FS_DATA /**/
+
+/* HAS_FSEEKO:
+ * This symbol, if defined, indicates that the fseeko routine is
+ * available to fseek beyond 32 bits (useful for ILP32 hosts).
+ */
+/*#define HAS_FSEEKO /**/
+
+/* HAS_FSTATFS:
+ * This symbol, if defined, indicates that the fstatfs routine is
+ * available to stat filesystems by file descriptors.
+ */
+/*#define HAS_FSTATFS /**/
+
+/* HAS_FTELLO:
+ * This symbol, if defined, indicates that the ftello routine is
+ * available to ftell beyond 32 bits (useful for ILP32 hosts).
+ */
+/*#define HAS_FTELLO /**/
+
+/* Gconvert:
+ * This preprocessor macro is defined to convert a floating point
+ * number to a string without a trailing decimal point. This
+ * emulates the behavior of sprintf("%g"), but is sometimes much more
+ * efficient. If gconvert() is not available, but gcvt() drops the
+ * trailing decimal point, then gcvt() is used. If all else fails,
+ * a macro using sprintf("%g") is used. Arguments for the Gconvert
+ * macro are: value, number of digits, whether trailing zeros should
+ * be retained, and the output buffer.
+ * Possible values are:
+ * d_Gconvert='gconvert((x),(n),(t),(b))'
+ * d_Gconvert='gcvt((x),(n),(b))'
+ * d_Gconvert='sprintf((b),"%.*g",(n),(x))'
+ * The last two assume trailing zeros should not be kept.
+ */
+#define Gconvert(x,n,t,b) sprintf((b),"%.*g",(n),(x))
+
+/* HAS_GETCWD:
+ * This symbol, if defined, indicates that the getcwd routine is
+ * available to get the current working directory.
+ */
+/*#define HAS_GETCWD /**/
+
+/* HAS_GETFSSTAT:
+ * This symbol, if defined, indicates that the getfsstat routine is
+ * available to stat filesystems in bulk.
+ */
+/*#define HAS_GETFSSTAT /**/
+
+/* HAS_GETGRENT:
+ * This symbol, if defined, indicates that the getgrent routine is
+ * available for sequential access of the group database.
+ */
+/*#define HAS_GETGRENT /**/
+
+/* HAS_GETHOSTBYADDR:
+ * This symbol, if defined, indicates that the gethostbyaddr() routine is
+ * available to look up hosts by their IP addresses.
+ */
+#define HAS_GETHOSTBYADDR /**/
+
+/* HAS_GETHOSTBYNAME:
+ * This symbol, if defined, indicates that the gethostbyname() routine is
+ * available to look up host names in some data base or other.
+ */
+#define HAS_GETHOSTBYNAME /**/
+
+/* HAS_GETHOSTENT:
+ * This symbol, if defined, indicates that the gethostent() routine is
+ * available to look up host names in some data base or another.
+ */
+/*#define HAS_GETHOSTENT /**/
+
+/* HAS_GETHOSTNAME:
+ * This symbol, if defined, indicates that the C program may use the
+ * gethostname() routine to derive the host name. See also HAS_UNAME
+ * and PHOSTNAME.
+ */
+/* HAS_UNAME:
+ * This symbol, if defined, indicates that the C program may use the
+ * uname() routine to derive the host name. See also HAS_GETHOSTNAME
+ * and PHOSTNAME.
+ */
+/* PHOSTNAME:
+ * This symbol, if defined, indicates the command to feed to the
+ * popen() routine to derive the host name. See also HAS_GETHOSTNAME
+ * and HAS_UNAME. Note that the command uses a fully qualified path,
+ * so that it is safe even if used by a process with super-user
+ * privileges.
+ */
+/* HAS_PHOSTNAME:
+ * This symbol, if defined, indicates that the C program may use the
+ * contents of PHOSTNAME as a command to feed to the popen() routine
+ * to derive the host name.
+ */
+#define HAS_GETHOSTNAME /**/
+#define HAS_UNAME /**/
+/*#define HAS_PHOSTNAME /**/
+#ifdef HAS_PHOSTNAME
+#define PHOSTNAME "" /* How to get the host name */
+#endif
+
+/* HAS_GETHOST_PROTOS:
+ * This symbol, if defined, indicates that <netdb.h> includes
+ * prototypes for gethostent(), gethostbyname(), and
+ * gethostbyaddr(). Otherwise, it is up to the program to guess
+ * them. See netdbtype.U for probing for various Netdb_xxx_t types.
+ */
+#define HAS_GETHOST_PROTOS /**/
+
+/* HAS_GETMNT:
+ * This symbol, if defined, indicates that the getmnt routine is
+ * available to get filesystem mount info by filename.
+ */
+/*#define HAS_GETMNT /**/
+
+/* HAS_GETMNTENT:
+ * This symbol, if defined, indicates that the getmntent routine is
+ * available to iterate through mounted file systems to get their info.
+ */
+/*#define HAS_GETMNTENT /**/
+
+/* HAS_GETNETBYADDR:
+ * This symbol, if defined, indicates that the getnetbyaddr() routine is
+ * available to look up networks by their IP addresses.
+ */
+/*#define HAS_GETNETBYADDR /**/
+
+/* HAS_GETNETBYNAME:
+ * This symbol, if defined, indicates that the getnetbyname() routine is
+ * available to look up networks by their names.
+ */
+/*#define HAS_GETNETBYNAME /**/
+
+/* HAS_GETNETENT:
+ * This symbol, if defined, indicates that the getnetent() routine is
+ * available to look up network names in some data base or another.
+ */
+/*#define HAS_GETNETENT /**/
+
+/* HAS_GETNET_PROTOS:
+ * This symbol, if defined, indicates that <netdb.h> includes
+ * prototypes for getnetent(), getnetbyname(), and
+ * getnetbyaddr(). Otherwise, it is up to the program to guess
+ * them. See netdbtype.U for probing for various Netdb_xxx_t types.
+ */
+/*#define HAS_GETNET_PROTOS /**/
+
+/* HAS_GETPROTOENT:
+ * This symbol, if defined, indicates that the getprotoent() routine is
+ * available to look up protocols in some data base or another.
+ */
+/*#define HAS_GETPROTOENT /**/
+
+/* HAS_GETPROTOBYNAME:
+ * This symbol, if defined, indicates that the getprotobyname()
+ * routine is available to look up protocols by their name.
+ */
+/* HAS_GETPROTOBYNUMBER:
+ * This symbol, if defined, indicates that the getprotobynumber()
+ * routine is available to look up protocols by their number.
+ */
+#define HAS_GETPROTOBYNAME /**/
+#define HAS_GETPROTOBYNUMBER /**/
+
+/* HAS_GETPROTO_PROTOS:
+ * This symbol, if defined, indicates that <netdb.h> includes
+ * prototypes for getprotoent(), getprotobyname(), and
+ * getprotobyaddr(). Otherwise, it is up to the program to guess
+ * them. See netdbtype.U for probing for various Netdb_xxx_t types.
+ */
+#define HAS_GETPROTO_PROTOS /**/
+
+/* HAS_GETPWENT:
+ * This symbol, if defined, indicates that the getpwent routine is
+ * available for sequential access of the passwd database.
+ * If this is not available, the older getpw() function may be available.
+ */
+/*#define HAS_GETPWENT /**/
+
+/* HAS_GETSERVENT:
+ * This symbol, if defined, indicates that the getservent() routine is
+ * available to look up network services in some data base or another.
+ */
+/*#define HAS_GETSERVENT /**/
+
+/* HAS_GETSERV_PROTOS:
+ * This symbol, if defined, indicates that <netdb.h> includes
+ * prototypes for getservent(), getservbyname(), and
+ * getservbyaddr(). Otherwise, it is up to the program to guess
+ * them. See netdbtype.U for probing for various Netdb_xxx_t types.
+ */
+#define HAS_GETSERV_PROTOS /**/
+
+/* HAS_GETSPENT:
+ * This symbol, if defined, indicates that the getspent system call is
+ * available to retrieve SysV shadow password entries sequentially.
+ */
+/*#define HAS_GETSPENT /**/
+
+/* HAS_GETSPNAM:
+ * This symbol, if defined, indicates that the getspnam system call is
+ * available to retrieve SysV shadow password entries by name.
+ */
+/*#define HAS_GETSPNAM /**/
+
+/* HAS_GETSERVBYNAME:
+ * This symbol, if defined, indicates that the getservbyname()
+ * routine is available to look up services by their name.
+ */
+/* HAS_GETSERVBYPORT:
+ * This symbol, if defined, indicates that the getservbyport()
+ * routine is available to look up services by their port.
+ */
+#define HAS_GETSERVBYNAME /**/
+#define HAS_GETSERVBYPORT /**/
+
+/* HAS_GNULIBC:
+ * This symbol, if defined, indicates to the C program that
+ * the GNU C library is being used.
+ */
+/*#define HAS_GNULIBC /**/
+#if defined(HAS_GNULIBC) && !defined(_GNU_SOURCE)
+# define _GNU_SOURCE
+#endif
+/* HAS_HASMNTOPT:
+ * This symbol, if defined, indicates that the hasmntopt routine is
+ * available to query the mount options of file systems.
+ */
+/*#define HAS_HASMNTOPT /**/
+
+/* HAS_HTONL:
+ * This symbol, if defined, indicates that the htonl() routine (and
+ * friends htons() ntohl() ntohs()) are available to do network
+ * order byte swapping.
+ */
+/* HAS_HTONS:
+ * This symbol, if defined, indicates that the htons() routine (and
+ * friends htonl() ntohl() ntohs()) are available to do network
+ * order byte swapping.
+ */
+/* HAS_NTOHL:
+ * This symbol, if defined, indicates that the ntohl() routine (and
+ * friends htonl() htons() ntohs()) are available to do network
+ * order byte swapping.
+ */
+/* HAS_NTOHS:
+ * This symbol, if defined, indicates that the ntohs() routine (and
+ * friends htonl() htons() ntohl()) are available to do network
+ * order byte swapping.
+ */
+#define HAS_HTONL /**/
+#define HAS_HTONS /**/
+#define HAS_NTOHL /**/
+#define HAS_NTOHS /**/
+
+/* HAS_ICONV:
+ * This symbol, if defined, indicates that the iconv routine is
+ * available to do character set conversions.
+ */
+/*#define HAS_ICONV /**/
+
+/* HAS_INT64_T:
+ * This symbol will defined if the C compiler supports int64_t.
+ * Usually the <inttypes.h> needs to be included, but sometimes
+ * <sys/types.h> is enough.
+ */
+/*#define HAS_INT64_T /**/
+
+/* HAS_ISASCII:
+ * This manifest constant lets the C program know that isascii
+ * is available.
+ */
+#define HAS_ISASCII /**/
+
+/* HAS_LDBL_DIG:
+ * This symbol, if defined, indicates that this system's <float.h>
+ * or <limits.h> defines the symbol LDBL_DIG, which is the number
+ * of significant digits in a long double precision number. Unlike
+ * for DBL_DIG, there's no good guess for LDBL_DIG if it is undefined.
+ */
+#define HAS_LDBL_DIG /**/
+
+/* HAS_LONG_DOUBLE:
+ * This symbol will be defined if the C compiler supports long
+ * doubles.
+ */
+/* LONG_DOUBLESIZE:
+ * This symbol contains the size of a long double, so that the
+ * C preprocessor can make decisions based on it. It is only
+ * defined if the system supports long doubles.
+ */
+
+// long double is 8 on WINCE
+
+#define HAS_LONG_DOUBLE /**/
+#ifdef HAS_LONG_DOUBLE
+#define LONG_DOUBLESIZE 8 /**/
+#endif
+
+/* HAS_LONG_LONG:
+ * This symbol will be defined if the C compiler supports long long.
+ */
+/* LONGLONGSIZE:
+ * This symbol contains the size of a long long, so that the
+ * C preprocessor can make decisions based on it. It is only
+ * defined if the system supports long long.
+ */
+/*#define HAS_LONG_LONG /**/
+#ifdef HAS_LONG_LONG
+#define LONGLONGSIZE 8 /**/
+#endif
+
+/* HAS_LSEEK_PROTO:
+ * This symbol, if defined, indicates that the system provides
+ * a prototype for the lseek() function. Otherwise, it is up
+ * to the program to supply one. A good guess is
+ * extern off_t lseek(int, off_t, int);
+ */
+#define HAS_LSEEK_PROTO /**/
+
+/* HAS_MADVISE:
+ * This symbol, if defined, indicates that the madvise system call is
+ * available to map a file into memory.
+ */
+/*#define HAS_MADVISE /**/
+
+/* HAS_MEMCHR:
+ * This symbol, if defined, indicates that the memchr routine is available
+ * to locate characters within a C string.
+ */
+#define HAS_MEMCHR /**/
+
+/* HAS_MKDTEMP:
+ * This symbol, if defined, indicates that the mkdtemp routine is
+ * available to exclusively create a uniquely named temporary directory.
+ */
+/*#define HAS_MKDTEMP /**/
+
+/* HAS_MKSTEMP:
+ * This symbol, if defined, indicates that the mkstemp routine is
+ * available to exclusively create and open a uniquely named
+ * temporary file.
+ */
+/*#define HAS_MKSTEMP /**/
+
+/* HAS_MKSTEMPS:
+ * This symbol, if defined, indicates that the mkstemps routine is
+ * available to excluslvely create and open a uniquely named
+ * (with a suffix) temporary file.
+ */
+/*#define HAS_MKSTEMPS /**/
+
+/* HAS_MMAP:
+ * This symbol, if defined, indicates that the mmap system call is
+ * available to map a file into memory.
+ */
+/* Mmap_t:
+ * This symbol holds the return type of the mmap() system call
+ * (and simultaneously the type of the first argument).
+ * Usually set to 'void *' or 'cadd_t'.
+ */
+/*#define HAS_MMAP /**/
+#define Mmap_t void * /**/
+
+/* HAS_MPROTECT:
+ * This symbol, if defined, indicates that the mprotect system call is
+ * available to modify the access protection of a memory mapped file.
+ */
+/*#define HAS_MPROTECT /**/
+
+/* HAS_MSG:
+ * This symbol, if defined, indicates that the entire msg*(2) library is
+ * supported (IPC mechanism based on message queues).
+ */
+/*#define HAS_MSG /**/
+
+/* HAS_OFF64_T:
+ * This symbol will be defined if the C compiler supports off64_t.
+ */
+/*#define HAS_OFF64_T /**/
+
+/* HAS_OPEN3:
+ * This manifest constant lets the C program know that the three
+ * argument form of open(2) is available.
+ */
+/*#define HAS_OPEN3 /**/
+
+/* OLD_PTHREAD_CREATE_JOINABLE:
+ * This symbol, if defined, indicates how to create pthread
+ * in joinable (aka undetached) state. NOTE: not defined
+ * if pthread.h already has defined PTHREAD_CREATE_JOINABLE
+ * (the new version of the constant).
+ * If defined, known values are PTHREAD_CREATE_UNDETACHED
+ * and __UNDETACHED.
+ */
+/*#define OLD_PTHREAD_CREATE_JOINABLE /**/
+
+/* HAS_PTHREAD_YIELD:
+ * This symbol, if defined, indicates that the pthread_yield
+ * routine is available to yield the execution of the current
+ * thread. sched_yield is preferable to pthread_yield.
+ */
+/* SCHED_YIELD:
+ * This symbol defines the way to yield the execution of
+ * the current thread. Known ways are sched_yield,
+ * pthread_yield, and pthread_yield with NULL.
+ */
+/* HAS_SCHED_YIELD:
+ * This symbol, if defined, indicates that the sched_yield
+ * routine is available to yield the execution of the current
+ * thread. sched_yield is preferable to pthread_yield.
+ */
+/*#define HAS_PTHREAD_YIELD /**/
+#define SCHED_YIELD /**/
+/*#define HAS_SCHED_YIELD /**/
+
+/* HAS_SAFE_BCOPY:
+ * This symbol, if defined, indicates that the bcopy routine is available
+ * to copy potentially overlapping memory blocks. Otherwise you should
+ * probably use memmove() or memcpy(). If neither is defined, roll your
+ * own version.
+ */
+/*#define HAS_SAFE_BCOPY /**/
+
+/* HAS_SAFE_MEMCPY:
+ * This symbol, if defined, indicates that the memcpy routine is available
+ * to copy potentially overlapping memory blocks. Otherwise you should
+ * probably use memmove() or memcpy(). If neither is defined, roll your
+ * own version.
+ */
+/*#define HAS_SAFE_MEMCPY /**/
+
+/* HAS_SANE_MEMCMP:
+ * This symbol, if defined, indicates that the memcmp routine is available
+ * and can be used to compare relative magnitudes of chars with their high
+ * bits set. If it is not defined, roll your own version.
+ */
+#define HAS_SANE_MEMCMP /**/
+
+/* HAS_SEM:
+ * This symbol, if defined, indicates that the entire sem*(2) library is
+ * supported.
+ */
+/*#define HAS_SEM /**/
+
+/* HAS_SETGRENT:
+ * This symbol, if defined, indicates that the setgrent routine is
+ * available for initializing sequential access of the group database.
+ */
+/*#define HAS_SETGRENT /**/
+
+/* HAS_SETGROUPS:
+ * This symbol, if defined, indicates that the setgroups() routine is
+ * available to set the list of process groups. If unavailable, multiple
+ * groups are probably not supported.
+ */
+/*#define HAS_SETGROUPS /**/
+
+/* HAS_SETHOSTENT:
+ * This symbol, if defined, indicates that the sethostent() routine is
+ * available.
+ */
+/*#define HAS_SETHOSTENT /**/
+
+/* HAS_SETNETENT:
+ * This symbol, if defined, indicates that the setnetent() routine is
+ * available.
+ */
+/*#define HAS_SETNETENT /**/
+
+/* HAS_SETPROTOENT:
+ * This symbol, if defined, indicates that the setprotoent() routine is
+ * available.
+ */
+/*#define HAS_SETPROTOENT /**/
+
+/* HAS_SETPWENT:
+ * This symbol, if defined, indicates that the setpwent routine is
+ * available for initializing sequential access of the passwd database.
+ */
+/*#define HAS_SETPWENT /**/
+
+/* HAS_SETSERVENT:
+ * This symbol, if defined, indicates that the setservent() routine is
+ * available.
+ */
+/*#define HAS_SETSERVENT /**/
+
+/* HAS_SETSPENT:
+ * This symbol, if defined, indicates that the setspent system call is
+ * available to initialize the scan of SysV shadow password entries.
+ */
+/*#define HAS_SETSPENT /**/
+
+/* HAS_SETVBUF:
+ * This symbol, if defined, indicates that the setvbuf routine is
+ * available to change buffering on an open stdio stream.
+ * to a line-buffered mode.
+ */
+#define HAS_SETVBUF /**/
+
+/* USE_SFIO:
+ * This symbol, if defined, indicates that sfio should
+ * be used.
+ */
+/*#define USE_SFIO /**/
+
+/* HAS_SHM:
+ * This symbol, if defined, indicates that the entire shm*(2) library is
+ * supported.
+ */
+/*#define HAS_SHM /**/
+
+/* HAS_SIGACTION:
+ * This symbol, if defined, indicates that Vr4's sigaction() routine
+ * is available.
+ */
+/*#define HAS_SIGACTION /**/
+
+/* HAS_SIGSETJMP:
+ * This variable indicates to the C program that the sigsetjmp()
+ * routine is available to save the calling process's registers
+ * and stack environment for later use by siglongjmp(), and
+ * to optionally save the process's signal mask. See
+ * Sigjmp_buf, Sigsetjmp, and Siglongjmp.
+ */
+/* Sigjmp_buf:
+ * This is the buffer type to be used with Sigsetjmp and Siglongjmp.
+ */
+/* Sigsetjmp:
+ * This macro is used in the same way as sigsetjmp(), but will invoke
+ * traditional setjmp() if sigsetjmp isn't available.
+ * See HAS_SIGSETJMP.
+ */
+/* Siglongjmp:
+ * This macro is used in the same way as siglongjmp(), but will invoke
+ * traditional longjmp() if siglongjmp isn't available.
+ * See HAS_SIGSETJMP.
+ */
+/*#define HAS_SIGSETJMP /**/
+#ifdef HAS_SIGSETJMP
+#define Sigjmp_buf sigjmp_buf
+#define Sigsetjmp(buf,save_mask) sigsetjmp((buf),(save_mask))
+#define Siglongjmp(buf,retval) siglongjmp((buf),(retval))
+#else
+#define Sigjmp_buf jmp_buf
+#define Sigsetjmp(buf,save_mask) setjmp((buf))
+#define Siglongjmp(buf,retval) longjmp((buf),(retval))
+#endif
+
+/* HAS_SOCKET:
+ * This symbol, if defined, indicates that the BSD socket interface is
+ * supported.
+ */
+/* HAS_SOCKETPAIR:
+ * This symbol, if defined, indicates that the BSD socketpair() call is
+ * supported.
+ */
+/* HAS_MSG_CTRUNC:
+ * This symbol, if defined, indicates that the MSG_CTRUNC is supported.
+ * Checking just with #ifdef might not be enough because this symbol
+ * has been known to be an enum.
+ */
+/* HAS_MSG_DONTROUTE:
+ * This symbol, if defined, indicates that the MSG_DONTROUTE is supported.
+ * Checking just with #ifdef might not be enough because this symbol
+ * has been known to be an enum.
+ */
+/* HAS_MSG_OOB:
+ * This symbol, if defined, indicates that the MSG_OOB is supported.
+ * Checking just with #ifdef might not be enough because this symbol
+ * has been known to be an enum.
+ */
+/* HAS_MSG_PEEK:
+ * This symbol, if defined, indicates that the MSG_PEEK is supported.
+ * Checking just with #ifdef might not be enough because this symbol
+ * has been known to be an enum.
+ */
+/* HAS_MSG_PROXY:
+ * This symbol, if defined, indicates that the MSG_PROXY is supported.
+ * Checking just with #ifdef might not be enough because this symbol
+ * has been known to be an enum.
+ */
+/* HAS_SCM_RIGHTS:
+ * This symbol, if defined, indicates that the SCM_RIGHTS is supported.
+ * Checking just with #ifdef might not be enough because this symbol
+ * has been known to be an enum.
+ */
+#define HAS_SOCKET /**/
+/*#define HAS_SOCKETPAIR /**/
+/*#define HAS_MSG_CTRUNC /**/
+/*#define HAS_MSG_DONTROUTE /**/
+/*#define HAS_MSG_OOB /**/
+/*#define HAS_MSG_PEEK /**/
+/*#define HAS_MSG_PROXY /**/
+/*#define HAS_SCM_RIGHTS /**/
+
+/* HAS_SQRTL:
+ * This symbol, if defined, indicates that the sqrtl routine is
+ * available to do long double square roots.
+ */
+/*#define HAS_SQRTL /**/
+
+/* USE_STAT_BLOCKS:
+ * This symbol is defined if this system has a stat structure declaring
+ * st_blksize and st_blocks.
+ */
+#ifndef USE_STAT_BLOCKS
+/*#define USE_STAT_BLOCKS /**/
+#endif
+
+/* HAS_STRUCT_STATFS_F_FLAGS:
+ * This symbol, if defined, indicates that the struct statfs
+ * does have the f_flags member containing the mount flags of
+ * the filesystem containing the file.
+ * This kind of struct statfs is coming from <sys/mount.h> (BSD 4.3),
+ * not from <sys/statfs.h> (SYSV). Older BSDs (like Ultrix) do not
+ * have statfs() and struct statfs, they have ustat() and getmnt()
+ * with struct ustat and struct fs_data.
+ */
+/*#define HAS_STRUCT_STATFS_F_FLAGS /**/
+
+/* HAS_STRUCT_STATFS:
+ * This symbol, if defined, indicates that the struct statfs
+ * to do statfs() is supported.
+ */
+/*#define HAS_STRUCT_STATFS /**/
+
+/* HAS_FSTATVFS:
+ * This symbol, if defined, indicates that the fstatvfs routine is
+ * available to stat filesystems by file descriptors.
+ */
+/*#define HAS_FSTATVFS /**/
+
+/* USE_STDIO_PTR:
+ * This symbol is defined if the _ptr and _cnt fields (or similar)
+ * of the stdio FILE structure can be used to access the stdio buffer
+ * for a file handle. If this is defined, then the FILE_ptr(fp)
+ * and FILE_cnt(fp) macros will also be defined and should be used
+ * to access these fields.
+ */
+/* FILE_ptr:
+ * This macro is used to access the _ptr field (or equivalent) of the
+ * FILE structure pointed to by its argument. This macro will always be
+ * defined if USE_STDIO_PTR is defined.
+ */
+/* STDIO_PTR_LVALUE:
+ * This symbol is defined if the FILE_ptr macro can be used as an
+ * lvalue.
+ */
+/* FILE_cnt:
+ * This macro is used to access the _cnt field (or equivalent) of the
+ * FILE structure pointed to by its argument. This macro will always be
+ * defined if USE_STDIO_PTR is defined.
+ */
+/* STDIO_CNT_LVALUE:
+ * This symbol is defined if the FILE_cnt macro can be used as an
+ * lvalue.
+ */
+#define USE_STDIO_PTR /**/
+#ifdef USE_STDIO_PTR
+#define FILE_ptr(fp) ((fp)->_ptr)
+#define STDIO_PTR_LVALUE /**/
+#define FILE_cnt(fp) ((fp)->_cnt)
+#define STDIO_CNT_LVALUE /**/
+#endif
+
+/* USE_STDIO_BASE:
+ * This symbol is defined if the _base field (or similar) of the
+ * stdio FILE structure can be used to access the stdio buffer for
+ * a file handle. If this is defined, then the FILE_base(fp) macro
+ * will also be defined and should be used to access this field.
+ * Also, the FILE_bufsiz(fp) macro will be defined and should be used
+ * to determine the number of bytes in the buffer. USE_STDIO_BASE
+ * will never be defined unless USE_STDIO_PTR is.
+ */
+/* FILE_base:
+ * This macro is used to access the _base field (or equivalent) of the
+ * FILE structure pointed to by its argument. This macro will always be
+ * defined if USE_STDIO_BASE is defined.
+ */
+/* FILE_bufsiz:
+ * This macro is used to determine the number of bytes in the I/O
+ * buffer pointed to by _base field (or equivalent) of the FILE
+ * structure pointed to its argument. This macro will always be defined
+ * if USE_STDIO_BASE is defined.
+ */
+#define USE_STDIO_BASE /**/
+#ifdef USE_STDIO_BASE
+#define FILE_base(fp) ((fp)->_base)
+#define FILE_bufsiz(fp) ((fp)->_cnt + (fp)->_ptr - (fp)->_base)
+#endif
+
+/* HAS_STRERROR:
+ * This symbol, if defined, indicates that the strerror routine is
+ * available to translate error numbers to strings. See the writeup
+ * of Strerror() in this file before you try to define your own.
+ */
+/* HAS_SYS_ERRLIST:
+ * This symbol, if defined, indicates that the sys_errlist array is
+ * available to translate error numbers to strings. The extern int
+ * sys_nerr gives the size of that table.
+ */
+/* Strerror:
+ * This preprocessor symbol is defined as a macro if strerror() is
+ * not available to translate error numbers to strings but sys_errlist[]
+ * array is there.
+ */
+#define HAS_STRERROR /**/
+#define HAS_SYS_ERRLIST /**/
+#define Strerror(e) strerror(e)
+
+/* HAS_STRTOLD:
+ * This symbol, if defined, indicates that the strtold routine is
+ * available to convert strings to long doubles.
+ */
+/*#define HAS_STRTOLD /**/
+
+/* HAS_STRTOLL:
+ * This symbol, if defined, indicates that the strtoll routine is
+ * available to convert strings to long longs.
+ */
+/*#define HAS_STRTOLL /**/
+
+/* HAS_STRTOULL:
+ * This symbol, if defined, indicates that the strtoull routine is
+ * available to convert strings to unsigned long longs.
+ */
+/*#define HAS_STRTOULL /**/
+
+/* HAS_STRTOUQ:
+ * This symbol, if defined, indicates that the strtouq routine is
+ * available to convert strings to unsigned long longs (quads).
+ */
+/*#define HAS_STRTOUQ /**/
+
+/* HAS_TELLDIR_PROTO:
+ * This symbol, if defined, indicates that the system provides
+ * a prototype for the telldir() function. Otherwise, it is up
+ * to the program to supply one. A good guess is
+ * extern long telldir _((DIR*));
+ */
+#define HAS_TELLDIR_PROTO /**/
+
+/* Time_t:
+ * This symbol holds the type returned by time(). It can be long,
+ * or time_t on BSD sites (in which case <sys/types.h> should be
+ * included).
+ */
+#define Time_t time_t /* Time type */
+
+/* HAS_TIMES:
+ * This symbol, if defined, indicates that the times() routine exists.
+ * Note that this became obsolete on some systems (SUNOS), which now
+ * use getrusage(). It may be necessary to include <sys/times.h>.
+ */
+#define HAS_TIMES /**/
+
+/* HAS_UNION_SEMUN:
+ * This symbol, if defined, indicates that the union semun is
+ * defined by including <sys/sem.h>. If not, the user code
+ * probably needs to define it as:
+ * union semun {
+ * int val;
+ * struct semid_ds *buf;
+ * unsigned short *array;
+ * }
+ */
+/* USE_SEMCTL_SEMUN:
+ * This symbol, if defined, indicates that union semun is
+ * used for semctl IPC_STAT.
+ */
+/* USE_SEMCTL_SEMID_DS:
+ * This symbol, if defined, indicates that struct semid_ds * is
+ * used for semctl IPC_STAT.
+ */
+#define HAS_UNION_SEMUN /**/
+/*#define USE_SEMCTL_SEMUN /**/
+/*#define USE_SEMCTL_SEMID_DS /**/
+
+/* HAS_USTAT:
+ * This symbol, if defined, indicates that the ustat system call is
+ * available to query file system statistics by dev_t.
+ */
+/*#define HAS_USTAT /**/
+
+/* HAS_VFORK:
+ * This symbol, if defined, indicates that vfork() exists.
+ */
+/*#define HAS_VFORK /**/
+
+/* Signal_t:
+ * This symbol's value is either "void" or "int", corresponding to the
+ * appropriate return type of a signal handler. Thus, you can declare
+ * a signal handler using "Signal_t (*handler)()", and define the
+ * handler using "Signal_t handler(sig)".
+ */
+#define Signal_t void /* Signal handler's return type */
+
+/* HAS_VPRINTF:
+ * This symbol, if defined, indicates that the vprintf routine is available
+ * to printf with a pointer to an argument list. If unavailable, you
+ * may need to write your own, probably in terms of _doprnt().
+ */
+/* USE_CHAR_VSPRINTF:
+ * This symbol is defined if this system has vsprintf() returning type
+ * (char*). The trend seems to be to declare it as "int vsprintf()". It
+ * is up to the package author to declare vsprintf correctly based on the
+ * symbol.
+ */
+#define HAS_VPRINTF /**/
+/*#define USE_CHAR_VSPRINTF /**/
+
+/* USE_DYNAMIC_LOADING:
+ * This symbol, if defined, indicates that dynamic loading of
+ * some sort is available.
+ */
+#define USE_DYNAMIC_LOADING /**/
+
+/* DOUBLESIZE:
+ * This symbol contains the size of a double, so that the C preprocessor
+ * can make decisions based on it.
+ */
+#define DOUBLESIZE 8 /**/
+
+/* EBCDIC:
+ * This symbol, if defined, indicates that this system uses
+ * EBCDIC encoding.
+ */
+/*#define EBCDIC /**/
+
+/* FFLUSH_NULL:
+ * This symbol, if defined, tells that fflush(NULL) does flush
+ * all pending stdio output.
+ */
+/* FFLUSH_ALL:
+ * This symbol, if defined, tells that to flush
+ * all pending stdio output one must loop through all
+ * the stdio file handles stored in an array and fflush them.
+ * Note that if fflushNULL is defined, fflushall will not
+ * even be probed for and will be left undefined.
+ */
+#define FFLUSH_NULL /**/
+/*#define FFLUSH_ALL /**/
+
+/* Fpos_t:
+ * This symbol holds the type used to declare file positions in libc.
+ * It can be fpos_t, long, uint, etc... It may be necessary to include
+ * <sys/types.h> to get any typedef'ed information.
+ */
+#define Fpos_t fpos_t /* File position type */
+
+/* Gid_t_f:
+ * This symbol defines the format string used for printing a Gid_t.
+ */
+#define Gid_t_f "ld" /**/
+
+/* Gid_t_sign:
+ * This symbol holds the signedess of a Gid_t.
+ * 1 for unsigned, -1 for signed.
+ */
+#define Gid_t_sign -1 /* GID sign */
+
+/* Gid_t_size:
+ * This symbol holds the size of a Gid_t in bytes.
+ */
+#define Gid_t_size 4 /* GID size */
+
+/* Gid_t:
+ * This symbol holds the return type of getgid() and the type of
+ * argument to setrgid() and related functions. Typically,
+ * it is the type of group ids in the kernel. It can be int, ushort,
+ * gid_t, etc... It may be necessary to include <sys/types.h> to get
+ * any typedef'ed information.
+ */
+#define Gid_t gid_t /* Type for getgid(), etc... */
+
+/* Groups_t:
+ * This symbol holds the type used for the second argument to
+ * getgroups() and setgroups(). Usually, this is the same as
+ * gidtype (gid_t) , but sometimes it isn't.
+ * It can be int, ushort, gid_t, etc...
+ * It may be necessary to include <sys/types.h> to get any
+ * typedef'ed information. This is only required if you have
+ * getgroups() or setgroups()..
+ */
+#if defined(HAS_GETGROUPS) || defined(HAS_SETGROUPS)
+#define Groups_t gid_t /* Type for 2nd arg to [sg]etgroups() */
+#endif
+
+/* DB_Prefix_t:
+ * This symbol contains the type of the prefix structure element
+ * in the <db.h> header file. In older versions of DB, it was
+ * int, while in newer ones it is u_int32_t.
+ */
+/* DB_Hash_t:
+ * This symbol contains the type of the prefix structure element
+ * in the <db.h> header file. In older versions of DB, it was
+ * int, while in newer ones it is size_t.
+ */
+#define DB_Hash_t int /**/
+#define DB_Prefix_t int /**/
+
+/* I_GRP:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <grp.h>.
+ */
+/* GRPASSWD:
+ * This symbol, if defined, indicates to the C program that struct group
+ * in <grp.h> contains gr_passwd.
+ */
+/*#define I_GRP /**/
+/*#define GRPASSWD /**/
+
+/* I_ICONV:
+ * This symbol, if defined, indicates that <iconv.h> exists and
+ * should be included.
+ */
+/*#define I_ICONV /**/
+
+/* I_IEEEFP:
+ * This symbol, if defined, indicates that <ieeefp.h> exists and
+ * should be included.
+ */
+/*#define I_IEEEFP /**/
+
+/* I_INTTYPES:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <inttypes.h>.
+ */
+/*#define I_INTTYPES /**/
+
+/* I_MACH_CTHREADS:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <mach/cthreads.h>.
+ */
+/*#define I_MACH_CTHREADS /**/
+
+/* I_MNTENT:
+ * This symbol, if defined, indicates that <mntent.h> exists and
+ * should be included.
+ */
+/*#define I_MNTENT /**/
+
+/* I_NETDB:
+ * This symbol, if defined, indicates that <netdb.h> exists and
+ * should be included.
+ */
+/*#define I_NETDB /**/
+
+/* I_NETINET_TCP:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <netinet/tcp.h>.
+ */
+/*#define I_NETINET_TCP /**/
+
+/* I_POLL:
+ * This symbol, if defined, indicates that <poll.h> exists and
+ * should be included.
+ */
+/*#define I_POLL /**/
+
+/* I_PTHREAD:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <pthread.h>.
+ */
+/*#define I_PTHREAD /**/
+
+/* I_PWD:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <pwd.h>.
+ */
+/* PWQUOTA:
+ * This symbol, if defined, indicates to the C program that struct passwd
+ * contains pw_quota.
+ */
+/* PWAGE:
+ * This symbol, if defined, indicates to the C program that struct passwd
+ * contains pw_age.
+ */
+/* PWCHANGE:
+ * This symbol, if defined, indicates to the C program that struct passwd
+ * contains pw_change.
+ */
+/* PWCLASS:
+ * This symbol, if defined, indicates to the C program that struct passwd
+ * contains pw_class.
+ */
+/* PWEXPIRE:
+ * This symbol, if defined, indicates to the C program that struct passwd
+ * contains pw_expire.
+ */
+/* PWCOMMENT:
+ * This symbol, if defined, indicates to the C program that struct passwd
+ * contains pw_comment.
+ */
+/* PWGECOS:
+ * This symbol, if defined, indicates to the C program that struct passwd
+ * contains pw_gecos.
+ */
+/* PWPASSWD:
+ * This symbol, if defined, indicates to the C program that struct passwd
+ * contains pw_passwd.
+ */
+/*#define I_PWD /**/
+/*#define PWQUOTA /**/
+/*#define PWAGE /**/
+/*#define PWCHANGE /**/
+/*#define PWCLASS /**/
+/*#define PWEXPIRE /**/
+/*#define PWCOMMENT /**/
+/*#define PWGECOS /**/
+/*#define PWPASSWD /**/
+
+/* I_SHADOW:
+ * This symbol, if defined, indicates that <shadow.h> exists and
+ * should be included.
+ */
+/*#define I_SHADOW /**/
+
+/* I_SOCKS:
+ * This symbol, if defined, indicates that <socks.h> exists and
+ * should be included.
+ */
+/*#define I_SOCKS /**/
+
+/* I_SUNMATH:
+ * This symbol, if defined, indicates that <sunmath.h> exists and
+ * should be included.
+ */
+/*#define I_SUNMATH /**/
+
+/* I_SYSLOG:
+ * This symbol, if defined, indicates that <syslog.h> exists and
+ * should be included.
+ */
+/*#define I_SYSLOG /**/
+
+/* I_SYSMODE:
+ * This symbol, if defined, indicates that <sys/mode.h> exists and
+ * should be included.
+ */
+/*#define I_SYSMODE /**/
+
+/* I_SYS_MOUNT:
+ * This symbol, if defined, indicates that <sys/mount.h> exists and
+ * should be included.
+ */
+/*#define I_SYS_MOUNT /**/
+
+/* I_SYS_STATFS:
+ * This symbol, if defined, indicates that <sys/statfs.h> exists.
+ */
+/*#define I_SYS_STATFS /**/
+
+/* I_SYS_STATVFS:
+ * This symbol, if defined, indicates that <sys/statvfs.h> exists and
+ * should be included.
+ */
+/*#define I_SYS_STATVFS /**/
+
+/* I_SYSUIO:
+ * This symbol, if defined, indicates that <sys/uio.h> exists and
+ * should be included.
+ */
+/*#define I_SYSUIO /**/
+
+/* I_SYSUTSNAME:
+ * This symbol, if defined, indicates that <sys/utsname.h> exists and
+ * should be included.
+ */
+/*#define I_SYSUTSNAME /**/
+
+/* I_SYS_VFS:
+ * This symbol, if defined, indicates that <sys/vfs.h> exists and
+ * should be included.
+ */
+/*#define I_SYS_VFS /**/
+
+/* I_TIME:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <time.h>.
+ */
+/* I_SYS_TIME:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/time.h>.
+ */
+/* I_SYS_TIME_KERNEL:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/time.h> with KERNEL defined.
+ */
+#define I_TIME /**/
+/*#define I_SYS_TIME /**/
+/*#define I_SYS_TIME_KERNEL /**/
+
+/* I_USTAT:
+ * This symbol, if defined, indicates that <ustat.h> exists and
+ * should be included.
+ */
+/*#define I_USTAT /**/
+
+/* PERL_INC_VERSION_LIST:
+ * This variable specifies the list of subdirectories in over
+ * which perl.c:incpush() and lib/lib.pm will automatically
+ * search when adding directories to @INC, in a format suitable
+ * for a C initialization string. See the inc_version_list entry
+ * in Porting/Glossary for more details.
+ */
+#define PERL_INC_VERSION_LIST 0 /**/
+
+/* INSTALL_USR_BIN_PERL:
+ * This symbol, if defined, indicates that Perl is to be installed
+ * also as /usr/bin/perl.
+ */
+/*#define INSTALL_USR_BIN_PERL /**/
+
+/* PERL_PRIfldbl:
+ * This symbol, if defined, contains the string used by stdio to
+ * format long doubles (format 'f') for output.
+ */
+/* PERL_PRIgldbl:
+ * This symbol, if defined, contains the string used by stdio to
+ * format long doubles (format 'g') for output.
+ */
+/*#define PERL_PRIfldbl "f" /**/
+/*#define PERL_PRIgldbl "g" /**/
+
+/* Off_t:
+ * This symbol holds the type used to declare offsets in the kernel.
+ * It can be int, long, off_t, etc... It may be necessary to include
+ * <sys/types.h> to get any typedef'ed information.
+ */
+/* LSEEKSIZE:
+ * This symbol holds the number of bytes used by the Off_t.
+ */
+/* Off_t_size:
+ * This symbol holds the number of bytes used by the Off_t.
+ */
+#define Off_t off_t /* <offset> type */
+#define LSEEKSIZE 4 /* <offset> size */
+#define Off_t_size 4 /* <offset> size */
+
+/* Free_t:
+ * This variable contains the return type of free(). It is usually
+ * void, but occasionally int.
+ */
+/* Malloc_t:
+ * This symbol is the type of pointer returned by malloc and realloc.
+ */
+#define Malloc_t void * /**/
+#define Free_t void /**/
+
+/* MYMALLOC:
+ * This symbol, if defined, indicates that we're using our own malloc.
+ */
+/*#define MYMALLOC /**/
+
+/* Mode_t:
+ * This symbol holds the type used to declare file modes
+ * for systems calls. It is usually mode_t, but may be
+ * int or unsigned short. It may be necessary to include <sys/types.h>
+ * to get any typedef'ed information.
+ */
+#define Mode_t mode_t /* file mode parameter for system calls */
+
+/* VAL_O_NONBLOCK:
+ * This symbol is to be used during open() or fcntl(F_SETFL) to turn on
+ * non-blocking I/O for the file descriptor. Note that there is no way
+ * back, i.e. you cannot turn it blocking again this way. If you wish to
+ * alternatively switch between blocking and non-blocking, use the
+ * ioctl(FIOSNBIO) call instead, but that is not supported by all devices.
+ */
+/* VAL_EAGAIN:
+ * This symbol holds the errno error code set by read() when no data was
+ * present on the non-blocking file descriptor.
+ */
+/* RD_NODATA:
+ * This symbol holds the return code from read() when no data is present
+ * on the non-blocking file descriptor. Be careful! If EOF_NONBLOCK is
+ * not defined, then you can't distinguish between no data and EOF by
+ * issuing a read(). You'll have to find another way to tell for sure!
+ */
+/* EOF_NONBLOCK:
+ * This symbol, if defined, indicates to the C program that a read() on
+ * a non-blocking file descriptor will return 0 on EOF, and not the value
+ * held in RD_NODATA (-1 usually, in that case!).
+ */
+#define VAL_O_NONBLOCK O_NONBLOCK
+#define VAL_EAGAIN EAGAIN
+#define RD_NODATA -1
+#define EOF_NONBLOCK
+
+/* Netdb_host_t:
+ * This symbol holds the type used for the 1st argument
+ * to gethostbyaddr().
+ */
+/* Netdb_hlen_t:
+ * This symbol holds the type used for the 2nd argument
+ * to gethostbyaddr().
+ */
+/* Netdb_name_t:
+ * This symbol holds the type used for the argument to
+ * gethostbyname().
+ */
+/* Netdb_net_t:
+ * This symbol holds the type used for the 1st argument to
+ * getnetbyaddr().
+ */
+#define Netdb_host_t char * /**/
+#define Netdb_hlen_t int /**/
+#define Netdb_name_t char * /**/
+#define Netdb_net_t long /**/
+
+/* IVTYPE:
+ * This symbol defines the C type used for Perl's IV.
+ */
+/* UVTYPE:
+ * This symbol defines the C type used for Perl's UV.
+ */
+/* I8TYPE:
+ * This symbol defines the C type used for Perl's I8.
+ */
+/* U8TYPE:
+ * This symbol defines the C type used for Perl's U8.
+ */
+/* I16TYPE:
+ * This symbol defines the C type used for Perl's I16.
+ */
+/* U16TYPE:
+ * This symbol defines the C type used for Perl's U16.
+ */
+/* I32TYPE:
+ * This symbol defines the C type used for Perl's I32.
+ */
+/* U32TYPE:
+ * This symbol defines the C type used for Perl's U32.
+ */
+/* I64TYPE:
+ * This symbol defines the C type used for Perl's I64.
+ */
+/* U64TYPE:
+ * This symbol defines the C type used for Perl's U64.
+ */
+/* NVTYPE:
+ * This symbol defines the C type used for Perl's NV.
+ */
+/* IVSIZE:
+ * This symbol contains the sizeof(IV).
+ */
+/* UVSIZE:
+ * This symbol contains the sizeof(UV).
+ */
+/* I8SIZE:
+ * This symbol contains the sizeof(I8).
+ */
+/* U8SIZE:
+ * This symbol contains the sizeof(U8).
+ */
+/* I16SIZE:
+ * This symbol contains the sizeof(I16).
+ */
+/* U16SIZE:
+ * This symbol contains the sizeof(U16).
+ */
+/* I32SIZE:
+ * This symbol contains the sizeof(I32).
+ */
+/* U32SIZE:
+ * This symbol contains the sizeof(U32).
+ */
+/* I64SIZE:
+ * This symbol contains the sizeof(I64).
+ */
+/* U64SIZE:
+ * This symbol contains the sizeof(U64).
+ */
+/* NV_PRESERVES_UV:
+ * This symbol, if defined, indicates that a variable of type NVTYPE
+ * can preserve all the bit of a variable of type UVSIZE.
+ */
+#define IVTYPE long /**/
+#define UVTYPE unsigned long /**/
+#define I8TYPE char /**/
+#define U8TYPE unsigned char /**/
+#define I16TYPE short /**/
+#define U16TYPE unsigned short /**/
+#define I32TYPE long /**/
+#define U32TYPE unsigned long /**/
+#ifdef HAS_QUAD
+#define I64TYPE __int64 /**/
+#define U64TYPE unsigned __int64 /**/
+#endif
+#define NVTYPE double /**/
+#define IVSIZE 4 /**/
+#define UVSIZE 4 /**/
+#define I8SIZE 1 /**/
+#define U8SIZE 1 /**/
+#define I16SIZE 2 /**/
+#define U16SIZE 2 /**/
+#define I32SIZE 4 /**/
+#define U32SIZE 4 /**/
+#ifdef HAS_QUAD
+#define I64SIZE 8 /**/
+#define U64SIZE 8 /**/
+#endif
+#define NV_PRESERVES_UV
+
+/* IVdf:
+ * This symbol defines the format string used for printing a Perl IV
+ * as a signed decimal integer.
+ */
+/* UVuf:
+ * This symbol defines the format string used for printing a Perl UV
+ * as an unsigned decimal integer.
+ */
+/* UVof:
+ * This symbol defines the format string used for printing a Perl UV
+ * as an unsigned octal integer.
+ */
+/* UVxf:
+ * This symbol defines the format string used for printing a Perl UV
+ * as an unsigned hexadecimal integer.
+ */
+#define IVdf "ld" /**/
+#define UVuf "lu" /**/
+#define UVof "lo" /**/
+#define UVxf "lx" /**/
+
+/* Pid_t:
+ * This symbol holds the type used to declare process ids in the kernel.
+ * It can be int, uint, pid_t, etc... It may be necessary to include
+ * <sys/types.h> to get any typedef'ed information.
+ */
+#define Pid_t int /* PID type */
+
+/* PRIVLIB:
+ * This symbol contains the name of the private library for this package.
+ * The library is private in the sense that it needn't be in anyone's
+ * execution path, but it should be accessible by the world. The program
+ * should be prepared to do ~ expansion.
+ */
+/* PRIVLIB_EXP:
+ * This symbol contains the ~name expanded version of PRIVLIB, to be used
+ * in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+#define PRIVLIB "c:\\perl\\5.6.0\\lib" /**/
+#define PRIVLIB_EXP (win32_get_privlib("5.6.0")) /**/
+
+/* PTRSIZE:
+ * This symbol contains the size of a pointer, so that the C preprocessor
+ * can make decisions based on it. It will be sizeof(void *) if
+ * the compiler supports (void *); otherwise it will be
+ * sizeof(char *).
+ */
+#define PTRSIZE 4 /**/
+
+/* Drand01:
+ * This macro is to be used to generate uniformly distributed
+ * random numbers over the range [0., 1.[. You may have to supply
+ * an 'extern double drand48();' in your program since SunOS 4.1.3
+ * doesn't provide you with anything relevant in it's headers.
+ * See HAS_DRAND48_PROTO.
+ */
+/* Rand_seed_t:
+ * This symbol defines the type of the argument of the
+ * random seed function.
+ */
+/* seedDrand01:
+ * This symbol defines the macro to be used in seeding the
+ * random number generator (see Drand01).
+ */
+/* RANDBITS:
+ * This symbol indicates how many bits are produced by the
+ * function used to generate normalized random numbers.
+ * Values include 15, 16, 31, and 48.
+ */
+#define Drand01() (rand()/(double)((unsigned)1<<RANDBITS)) /**/
+#define Rand_seed_t unsigned /**/
+#define seedDrand01(x) srand((Rand_seed_t)x) /**/
+#define RANDBITS 15 /**/
+
+/* SELECT_MIN_BITS:
+ * This symbol holds the minimum number of bits operated by select.
+ * That is, if you do select(n, ...), how many bits at least will be
+ * cleared in the masks if some activity is detected. Usually this
+ * is either n or 32*ceil(n/32), especially many little-endians do
+ * the latter. This is only useful if you have select(), naturally.
+ */
+#define SELECT_MIN_BITS 32 /**/
+
+/* Select_fd_set_t:
+ * This symbol holds the type used for the 2nd, 3rd, and 4th
+ * arguments to select. Usually, this is 'fd_set *', if HAS_FD_SET
+ * is defined, and 'int *' otherwise. This is only useful if you
+ * have select(), of course.
+ */
+#define Select_fd_set_t Perl_fd_set * /**/
+
+/* SIG_NAME:
+ * This symbol contains a list of signal names in order of
+ * signal number. This is intended
+ * to be used as a static array initialization, like this:
+ * char *sig_name[] = { SIG_NAME };
+ * The signals in the list are separated with commas, and each signal
+ * is surrounded by double quotes. There is no leading SIG in the signal
+ * name, i.e. SIGQUIT is known as "QUIT".
+ * Gaps in the signal numbers (up to NSIG) are filled in with NUMnn,
+ * etc., where nn is the actual signal number (e.g. NUM37).
+ * The signal number for sig_name[i] is stored in sig_num[i].
+ * The last element is 0 to terminate the list with a NULL. This
+ * corresponds to the 0 at the end of the sig_num list.
+ */
+/* SIG_NUM:
+ * This symbol contains a list of signal numbers, in the same order as the
+ * SIG_NAME list. It is suitable for static array initialization, as in:
+ * int sig_num[] = { SIG_NUM };
+ * The signals in the list are separated with commas, and the indices
+ * within that list and the SIG_NAME list match, so it's easy to compute
+ * the signal name from a number or vice versa at the price of a small
+ * dynamic linear lookup.
+ * Duplicates are allowed, but are moved to the end of the list.
+ * The signal number corresponding to sig_name[i] is sig_number[i].
+ * if (i < NSIG) then sig_number[i] == i.
+ * The last element is 0, corresponding to the 0 at the end of
+ * the sig_name list.
+ */
+#define SIG_NAME "ZERO", "NUM01", "INT", "QUIT", "ILL", "NUM05", "NUM06", "NUM07", "FPE", "KILL", "NUM10", "SEGV", "NUM12", "PIPE", "ALRM", "TERM", "NUM16", "NUM17", "NUM18", "NUM19", "CHLD", "BREAK", "ABRT", "STOP", "NUM24", "CONT", "CLD", 0 /**/
+#define SIG_NUM 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 20, 0 /**/
+
+/* SITEARCH:
+ * This symbol contains the name of the private library for this package.
+ * The library is private in the sense that it needn't be in anyone's
+ * execution path, but it should be accessible by the world. The program
+ * should be prepared to do ~ expansion.
+ * The standard distribution will put nothing in this directory.
+ * After perl has been installed, users may install their own local
+ * architecture-dependent modules in this directory with
+ * MakeMaker Makefile.PL
+ * or equivalent. See INSTALL for details.
+ */
+/* SITEARCH_EXP:
+ * This symbol contains the ~name expanded version of SITEARCH, to be used
+ * in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+#define SITEARCH "c:\\perl\\site\\5.6.0\\lib\\MSWin32-x86" /**/
+/*#define SITEARCH_EXP "" /**/
+
+/* SITELIB:
+ * This symbol contains the name of the private library for this package.
+ * The library is private in the sense that it needn't be in anyone's
+ * execution path, but it should be accessible by the world. The program
+ * should be prepared to do ~ expansion.
+ * The standard distribution will put nothing in this directory.
+ * After perl has been installed, users may install their own local
+ * architecture-independent modules in this directory with
+ * MakeMaker Makefile.PL
+ * or equivalent. See INSTALL for details.
+ */
+/* SITELIB_EXP:
+ * This symbol contains the ~name expanded version of SITELIB, to be used
+ * in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+/* SITELIB_STEM:
+ * This define is SITELIB_EXP with any trailing version-specific component
+ * removed. The elements in inc_version_list (inc_version_list.U) can
+ * be tacked onto this variable to generate a list of directories to search.
+ */
+#define SITELIB "c:\\perl\\site\\5.6.0\\lib" /**/
+#define SITELIB_EXP (win32_get_sitelib("5.6.0")) /**/
+#define SITELIB_STEM "" /**/
+
+/* Size_t_size:
+ * This symbol holds the size of a Size_t in bytes.
+ */
+#define Size_t_size 4 /**/
+
+/* Size_t:
+ * This symbol holds the type used to declare length parameters
+ * for string functions. It is usually size_t, but may be
+ * unsigned long, int, etc. It may be necessary to include
+ * <sys/types.h> to get any typedef'ed information.
+ */
+#define Size_t size_t /* length paramater for string functions */
+
+/* Sock_size_t:
+ * This symbol holds the type used for the size argument of
+ * various socket calls (just the base type, not the pointer-to).
+ */
+#define Sock_size_t int /**/
+
+/* SSize_t:
+ * This symbol holds the type used by functions that return
+ * a count of bytes or an error condition. It must be a signed type.
+ * It is usually ssize_t, but may be long or int, etc.
+ * It may be necessary to include <sys/types.h> or <unistd.h>
+ * to get any typedef'ed information.
+ * We will pick a type such that sizeof(SSize_t) == sizeof(Size_t).
+ */
+#define SSize_t int /* signed count of bytes */
+
+/* STARTPERL:
+ * This variable contains the string to put in front of a perl
+ * script to make sure (one hopes) that it runs with perl and not
+ * some shell.
+ */
+#define STARTPERL "#!perl" /**/
+
+/* HAS_STDIO_STREAM_ARRAY:
+ * This symbol, if defined, tells that there is an array
+ * holding the stdio streams.
+ */
+/* STDIO_STREAM_ARRAY:
+ * This symbol tells the name of the array holding the stdio streams.
+ * Usual values include _iob, __iob, and __sF.
+ */
+/*#define HAS_STDIO_STREAM_ARRAY /**/
+#define STDIO_STREAM_ARRAY
+
+/* Uid_t_f:
+ * This symbol defines the format string used for printing a Uid_t.
+ */
+#define Uid_t_f "ld" /**/
+
+/* Uid_t_sign:
+ * This symbol holds the signedess of a Uid_t.
+ * 1 for unsigned, -1 for signed.
+ */
+#define Uid_t_sign -1 /* UID sign */
+
+/* Uid_t_size:
+ * This symbol holds the size of a Uid_t in bytes.
+ */
+#define Uid_t_size 4 /* UID size */
+
+/* Uid_t:
+ * This symbol holds the type used to declare user ids in the kernel.
+ * It can be int, ushort, uid_t, etc... It may be necessary to include
+ * <sys/types.h> to get any typedef'ed information.
+ */
+#define Uid_t uid_t /* UID type */
+
+/* USE_64_BIT_INT:
+ * This symbol, if defined, indicates that 64-bit integers should
+ * be used when available. If not defined, the native integers
+ * will be employed (be they 32 or 64 bits). The minimal possible
+ * 64-bitness is used, just enough to get 64-bit integers into Perl.
+ * This may mean using for example "long longs", while your memory
+ * may still be limited to 2 gigabytes.
+ */
+/* USE_64_BIT_ALL:
+ * This symbol, if defined, indicates that 64-bit integers should
+ * be used when available. If not defined, the native integers
+ * will be used (be they 32 or 64 bits). The maximal possible
+ * 64-bitness is employed: LP64 or ILP64, meaning that you will
+ * be able to use more than 2 gigabytes of memory. This mode is
+ * even more binary incompatible than USE_64_BIT_INT. You may not
+ * be able to run the resulting executable in a 32-bit CPU at all or
+ * you may need at least to reboot your OS to 64-bit mode.
+ */
+#ifndef USE_64_BIT_INT
+/*#define USE_64_BIT_INT /**/
+#endif
+
+#ifndef USE_64_BIT_ALL
+/*#define USE_64_BIT_ALL /**/
+#endif
+
+/* USE_LARGE_FILES:
+ * This symbol, if defined, indicates that large file support
+ * should be used when available.
+ */
+#ifndef USE_LARGE_FILES
+/*#define USE_LARGE_FILES /**/
+#endif
+
+/* USE_LONG_DOUBLE:
+ * This symbol, if defined, indicates that long doubles should
+ * be used when available.
+ */
+#ifndef USE_LONG_DOUBLE
+/*#define USE_LONG_DOUBLE /**/
+#endif
+
+/* USE_MORE_BITS:
+ * This symbol, if defined, indicates that 64-bit interfaces and
+ * long doubles should be used when available.
+ */
+#ifndef USE_MORE_BITS
+/*#define USE_MORE_BITS /**/
+#endif
+
+/* MULTIPLICITY:
+ * This symbol, if defined, indicates that Perl should
+ * be built to use multiplicity.
+ */
+#ifndef MULTIPLICITY
+/*#define MULTIPLICITY /**/
+#endif
+
+/* USE_PERLIO:
+ * This symbol, if defined, indicates that the PerlIO abstraction should
+ * be used throughout. If not defined, stdio should be
+ * used in a fully backward compatible manner.
+ */
+#ifndef USE_PERLIO
+/*#define USE_PERLIO /**/
+#endif
+
+/* USE_SOCKS:
+ * This symbol, if defined, indicates that Perl should
+ * be built to use socks.
+ */
+#ifndef USE_SOCKS
+/*#define USE_SOCKS /**/
+#endif
+
+/* USE_ITHREADS:
+ * This symbol, if defined, indicates that Perl should be built to
+ * use the interpreter-based threading implementation.
+ */
+/* USE_5005THREADS:
+ * This symbol, if defined, indicates that Perl should be built to
+ * use the 5.005-based threading implementation.
+ */
+/* OLD_PTHREADS_API:
+ * This symbol, if defined, indicates that Perl should
+ * be built to use the old draft POSIX threads API.
+ */
+/*#define USE_5005THREADS /**/
+/*#define USE_ITHREADS /**/
+#if defined(USE_5005THREADS) && !defined(USE_ITHREADS)
+#define USE_THREADS /* until src is revised*/
+#endif
+/*#define OLD_PTHREADS_API /**/
+
+/* PERL_VENDORARCH:
+ * If defined, this symbol contains the name of a private library.
+ * The library is private in the sense that it needn't be in anyone's
+ * execution path, but it should be accessible by the world.
+ * It may have a ~ on the front.
+ * The standard distribution will put nothing in this directory.
+ * Vendors who distribute perl may wish to place their own
+ * architecture-dependent modules and extensions in this directory with
+ * MakeMaker Makefile.PL INSTALLDIRS=vendor
+ * or equivalent. See INSTALL for details.
+ */
+/* PERL_VENDORARCH_EXP:
+ * This symbol contains the ~name expanded version of PERL_VENDORARCH, to be used
+ * in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+/*#define PERL_VENDORARCH "" /**/
+/*#define PERL_VENDORARCH_EXP "" /**/
+
+/* PERL_VENDORLIB_EXP:
+ * This symbol contains the ~name expanded version of VENDORLIB, to be used
+ * in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+/* PERL_VENDORLIB_STEM:
+ * This define is PERL_VENDORLIB_EXP with any trailing version-specific component
+ * removed. The elements in inc_version_list (inc_version_list.U) can
+ * be tacked onto this variable to generate a list of directories to search.
+ */
+/*#define PERL_VENDORLIB_EXP "" /**/
+/*#define PERL_VENDORLIB_STEM "" /**/
+
+/* VOIDFLAGS:
+ * This symbol indicates how much support of the void type is given by this
+ * compiler. What various bits mean:
+ *
+ * 1 = supports declaration of void
+ * 2 = supports arrays of pointers to functions returning void
+ * 4 = supports comparisons between pointers to void functions and
+ * addresses of void functions
+ * 8 = suports declaration of generic void pointers
+ *
+ * The package designer should define VOIDUSED to indicate the requirements
+ * of the package. This can be done either by #defining VOIDUSED before
+ * including config.h, or by defining defvoidused in Myinit.U. If the
+ * latter approach is taken, only those flags will be tested. If the
+ * level of void support necessary is not present, defines void to int.
+ */
+#ifndef VOIDUSED
+#define VOIDUSED 15
+#endif
+#define VOIDFLAGS 15
+#if (VOIDFLAGS & VOIDUSED) != VOIDUSED
+#define void int /* is void to be avoided? */
+#define M_VOID /* Xenix strikes again */
+#endif
+
+/* PERL_XS_APIVERSION:
+ * This variable contains the version of the oldest perl binary
+ * compatible with the present perl. perl.c:incpush() and
+ * lib/lib.pm will automatically search in c:\\perl\\site\\5.6.0\\lib\\MSWin32-x86 for older
+ * directories across major versions back to xs_apiversion.
+ * This is only useful if you have a perl library directory tree
+ * structured like the default one.
+ * See INSTALL for how this works.
+ * The versioned site_perl directory was introduced in 5.005,
+ * so that is the lowest possible value.
+ * Since this can depend on compile time options (such as
+ * bincompat) it is set by Configure. Other non-default sources
+ * of potential incompatibility, such as multiplicity, threads,
+ * debugging, 64bits, sfio, etc., are not checked for currently,
+ * though in principle we could go snooping around in old
+ * Config.pm files.
+ */
+/* PERL_PM_APIVERSION:
+ * This variable contains the version of the oldest perl
+ * compatible with the present perl. (That is, pure perl modules
+ * written for pm_apiversion will still work for the current
+ * version). perl.c:incpush() and lib/lib.pm will automatically
+ * search in c:\\perl\\site\\5.6.0\\lib for older directories across major versions
+ * back to pm_apiversion. This is only useful if you have a perl
+ * library directory tree structured like the default one. The
+ * versioned site_perl library was introduced in 5.005, so that's
+ * the default setting for this variable. It's hard to imagine
+ * it changing before Perl6. It is included here for symmetry
+ * with xs_apiveprsion -- the searching algorithms will
+ * (presumably) be similar.
+ * See the INSTALL file for how this works.
+ */
+#define PERL_XS_APIVERSION "5.6.0"
+#define PERL_PM_APIVERSION "5.005"
+
+/* HAS_LCHOWN:
+ * This symbol, if defined, indicates that the lchown routine is
+ * available to operate on a symbolic link (instead of following the
+ * link).
+ */
+/*#define HAS_LCHOWN /**/
+
+/* FLEXFILENAMES:
+ * This symbol, if defined, indicates that the system supports filenames
+ * longer than 14 characters.
+ */
+#define FLEXFILENAMES /**/
+
+/* IVdf:
+ * This symbol defines the format string used for printing a Perl IV
+ * as a signed decimal integer.
+ */
+/* UVuf:
+ * This symbol defines the format string used for printing a Perl UV
+ * as an unsigned decimal integer.
+ */
+/* UVof:
+ * This symbol defines the format string used for printing a Perl UV
+ * as an unsigned octal integer.
+ */
+/* UVxf:
+ * This symbol defines the format string used for printing a Perl UV
+ * as an unsigned hexadecimal integer in lowercase abcdef.
+ */
+/* UVXf:
+ * This symbol defines the format string used for printing a Perl UV
+ * as an unsigned hexadecimal integer in uppercase ABCDEF.
+ */
+/* NVef:
+ * This symbol defines the format string used for printing a Perl NV
+ * using %e-ish floating point format.
+ */
+/* NVff:
+ * This symbol defines the format string used for printing a Perl NV
+ * using %f-ish floating point format.
+ */
+/* NVgf:
+ * This symbol defines the format string used for printing a Perl NV
+ * using %g-ish floating point format.
+ */
+#define IVdf "ld" /**/
+#define UVuf "lu" /**/
+#define UVof "lo" /**/
+#define UVxf "lx" /**/
+#define UVXf "lX" /**/
+#define NVef "e" /**/
+#define NVff "f" /**/
+#define NVgf "g" /**/
+
+#endif
--- /dev/null
+#
+use Config;
+use File::Compare qw(compare);
+use File::Copy qw(copy);
+my $OBJ = 1 if $Config{'ccflags'} =~ /PERL_OBJECT/i;
+my $name = $0;
+$name =~ s#^(.*)\.PL$#../$1.SH#;
+my %opt;
+while (@ARGV && $ARGV[0] =~ /^([\w_]+)=(.*)$/)
+ {
+ $opt{$1}=$2;
+ shift(@ARGV);
+ }
+
+$opt{CONFIG_H} ||= 'config.h';
+
+my $patchlevel = $opt{INST_VER};
+$patchlevel =~ s|^[\\/]||;
+$patchlevel =~ s|~VERSION~|$Config{version}|g;
+$patchlevel ||= $Config{version};
+$patchlevel = qq["$patchlevel"];
+
+open(SH,"<$name") || die "Cannot open $name:$!";
+while (<SH>)
+ {
+ last if /^sed/;
+ }
+($term,$file,$pat) = /^sed\s+<<(\S+)\s+>(\S+)\s+(.*)$/;
+
+$file =~ s/^\$(\w+)$/$opt{$1}/g;
+
+my $str = "sub munge\n{\n";
+
+while ($pat =~ s/-e\s+'([^']*)'\s*//)
+ {
+ my $e = $1;
+ $e =~ s/\\([\(\)])/$1/g;
+ $e =~ s/\\(\d)/\$$1/g;
+ $str .= "$e;\n";
+ }
+$str .= "}\n";
+
+eval $str;
+
+die "$str:$@" if $@;
+
+open(H,">$file.new") || die "Cannot open $file.new:$!";
+#binmode H; # no CRs (which cause a spurious rebuild)
+while (<SH>)
+ {
+ last if /^$term$/o;
+ s/\$([\w_]+)/Config($1)/eg;
+ s/`([^\`]*)`/BackTick($1)/eg;
+ munge();
+ s/\\\$/\$/g;
+ s#/[ *\*]*\*/#/**/#;
+ if (/^\s*#define\s+(PRIVLIB|SITELIB|VENDORLIB)_EXP/)
+ {
+ $_ = "#define ". $1 . "_EXP (win32_get_". lc($1) . "($patchlevel))\t/**/\n";
+ }
+ # incpush() handles archlibs, so disable them
+ elsif (/^\s*#define\s+(ARCHLIB|SITEARCH|VENDORARCH)_EXP/)
+ {
+ $_ = "/*#define ". $1 . "_EXP \"\"\t/**/\n";
+ }
+ print H;
+ }
+close(H);
+close(SH);
+
+
+chmod(0666,"config.h");
+copy("$file.new","config.h") || die "Cannot copy:$!";
+chmod(0444,"config.h");
+
+if (!$OBJ && compare("$file.new",$file))
+ {
+ warn "$file has changed\n";
+ chmod(0666,$file);
+ unlink($file);
+ rename("$file.new",$file);
+ #chmod(0444,$file);
+ exit(1);
+ }
+else
+ {
+ unlink ("$file.new");
+ exit(0);
+ }
+
+sub Config
+{
+ my $var = shift;
+ my $val = $Config{$var};
+ $val = 'undef' unless defined $val;
+ $val =~ s/\\/\\\\/g;
+ return $val;
+}
+
+sub BackTick
+{
+ my $cmd = shift;
+ if ($cmd =~ /^echo\s+(.*?)\s*\|\s+sed\s+'(.*)'\s*$/)
+ {
+ local ($data,$pat) = ($1,$2);
+ $data =~ s/\s+/ /g;
+ eval "\$data =~ $pat";
+ return $data;
+ }
+ else
+ {
+ die "Cannot handle \`$cmd\`";
+ }
+ return $cmd;
+}
--- /dev/null
+use FindExt;
+# take a semicolon separated path list and turn it into a quoted
+# list of paths that Text::Parsewords will grok
+sub mungepath {
+ my $p = shift;
+ # remove leading/trailing semis/spaces
+ $p =~ s/^[ ;]+//;
+ $p =~ s/[ ;]+$//;
+ $p =~ s/'/"/g;
+ my @p = map { $_ = "\"$_\"" if /\s/ and !/^".*"$/; $_ } split /;/, $p;
+ return join(' ', @p);
+}
+
+# generate an array of option strings from command-line args
+# or an option file
+# -- added by BKS, 10-17-1999 to fix command-line overflow problems
+sub loadopts {
+ if ($ARGV[0] =~ /--cfgsh-option-file/) {
+ shift @ARGV;
+ my $optfile = shift @ARGV;
+ local (*F);
+ open OPTF, $optfile or die "Can't open $optfile: $!\n";
+ my @opts;
+ chomp(my $line = <OPTF>);
+ my @vars = split(/\t+~\t+/, $line);
+ for (@vars) {
+ push(@opts, $_) unless (/^\s*$/);
+ }
+ close OPTF;
+ return \@opts;
+ }
+ else {
+ return \@ARGV;
+ }
+}
+
+FindExt::scan_ext("../ext");
+
+my %opt;
+
+my $optref = loadopts();
+while (@{$optref} && $optref->[0] =~ /^([\w_]+)=(.*)$/) {
+ $opt{$1}=$2;
+ shift(@{$optref});
+}
+
+my @dynamic = FindExt::dynamic_extensions();
+my @noxs = FindExt::noxs_extensions();
+my @known = sort(@dynamic,split(/\s+/,$opt{'staticext'}),@noxs);
+$opt{'known_extensions'} = join(' ',@known);
+
+if (!$opt{'use5005threads'} || $opt{'use5005threads'} eq 'undef')
+ {
+ @dynamic = grep(!/Thread/,@dynamic);
+ @known = grep(!/Thread/,@dynamic);
+ }
+
+$opt{'dynamic_ext'} = join(' ',@dynamic);
+$opt{'nonxs_ext'} = join(' ',@noxs);
+
+$opt{'extensions'} = join(' ',@known);
+
+my $pl_h = '../patchlevel.h';
+
+if (-e $pl_h) {
+ open PL, "<$pl_h" or die "Can't open $pl_h: $!";
+ while (<PL>) {
+ if (/^#\s*define\s+(PERL_\w+)\s+([\d.]+)/) {
+ $opt{$1} = $2;
+ }
+ }
+ close PL;
+}
+else {
+ die "Can't find $pl_h: $!";
+}
+$opt{VERSION} = "$opt{PERL_REVISION}.$opt{PERL_VERSION}.$opt{PERL_SUBVERSION}";
+$opt{INST_VER} =~ s|~VERSION~|$opt{VERSION}|g;
+
+$opt{'cf_by'} = $ENV{USERNAME} unless $opt{'cf_by'};
+$opt{'cf_email'} = $opt{'cf_by'} . '@' . (gethostbyname('localhost'))[0]
+ unless $opt{'cf_email'};
+$opt{'usemymalloc'} = 'y' if $opt{'d_mymalloc'} eq 'define';
+
+$opt{libpth} = mungepath($opt{libpth}) if exists $opt{libpth};
+$opt{incpath} = mungepath($opt{incpath}) if exists $opt{incpath};
+
+while (<>) {
+ s/~([\w_]+)~/$opt{$1}/g;
+ if (/^([\w_]+)=(.*)$/) {
+ my($k,$v) = ($1,$2);
+ # this depends on cf_time being empty in the template (or we'll
+ # get a loop)
+ if ($k eq 'cf_time') {
+ $_ = "$k='" . localtime(time) . "'\n" if $v =~ /^\s*'\s*'/;
+ }
+ elsif (exists $opt{$k}) {
+ $_ = "$k='$opt{$k}'\n";
+ }
+ }
+ print;
+}
+
--- /dev/null
+/* dl_win32.xs
+ *
+ * Platform: Win32 (Windows NT/Windows 95)
+ * Author: Wei-Yuen Tan (wyt@hip.com)
+ * Created: A warm day in June, 1995
+ *
+ * Modified:
+ * August 23rd 1995 - rewritten after losing everything when I
+ * wiped off my NT partition (eek!)
+ */
+
+/* Porting notes:
+
+I merely took Paul's dl_dlopen.xs, took out extraneous stuff and
+replaced the appropriate SunOS calls with the corresponding Win32
+calls.
+
+*/
+
+#define WIN32_LEAN_AND_MEAN
+#ifdef __GNUC__
+#define Win32_Winsock
+#endif
+#include <windows.h>
+#include <string.h>
+
+#define PERL_NO_GET_CONTEXT
+
+#include "EXTERN.h"
+#include "perl.h"
+#include "win32.h"
+
+#ifdef PERL_OBJECT
+#define NO_XSLOCKS
+#endif /* PERL_OBJECT */
+
+#include "XSUB.h"
+
+static SV *error_sv;
+
+static char *
+OS_Error_String(pTHXo)
+{
+ DWORD err = GetLastError();
+ STRLEN len;
+ if (!error_sv)
+ error_sv = newSVpvn("",0);
+ PerlProc_GetOSError(error_sv,err);
+ return SvPV(error_sv,len);
+}
+
+#include "dlutils.c" /* SaveError() etc */
+
+static void
+dl_private_init(pTHXo)
+{
+ (void)dl_generic_private_init(aTHXo);
+}
+
+/*
+ This function assumes the list staticlinkmodules
+ will be formed from package names with '::' replaced
+ with '/'. Thus Win32::OLE is in the list as Win32/OLE
+*/
+static int
+dl_static_linked(char *filename)
+{
+ char **p;
+ char* ptr;
+ static char subStr[] = "/auto/";
+ char szBuffer[MAX_PATH];
+
+ /* change all the '\\' to '/' */
+ strcpy(szBuffer, filename);
+ for(ptr = szBuffer; ptr = strchr(ptr, '\\'); ++ptr)
+ *ptr = '/';
+
+ /* delete the file name */
+ ptr = strrchr(szBuffer, '/');
+ if(ptr != NULL)
+ *ptr = '\0';
+
+ /* remove leading lib path */
+ ptr = strstr(szBuffer, subStr);
+ if(ptr != NULL)
+ ptr += sizeof(subStr)-1;
+ else
+ ptr = szBuffer;
+
+ for (p = staticlinkmodules; *p;p++) {
+ if (strstr(ptr, *p)) return 1;
+ };
+ return 0;
+}
+
+MODULE = DynaLoader PACKAGE = DynaLoader
+
+BOOT:
+ (void)dl_private_init(aTHXo);
+
+void *
+dl_load_file(filename,flags=0)
+ char * filename
+ int flags
+ PREINIT:
+ CODE:
+ {
+ DLDEBUG(1,PerlIO_printf(Perl_debug_log,"dl_load_file(%s):\n", filename));
+ if (dl_static_linked(filename) == 0) {
+ RETVAL = PerlProc_DynaLoad(filename);
+ }
+ else
+ RETVAL = (void*) XCEGetModuleHandleA(NULL);
+ DLDEBUG(2,PerlIO_printf(Perl_debug_log," libref=%x\n", RETVAL));
+ ST(0) = sv_newmortal() ;
+ if (RETVAL == NULL)
+ SaveError(aTHXo_ "load_file:%s",
+ OS_Error_String(aTHXo)) ;
+ else
+ sv_setiv( ST(0), (IV)RETVAL);
+ }
+
+void *
+dl_find_symbol(libhandle, symbolname)
+ void * libhandle
+ char * symbolname
+ CODE:
+ DLDEBUG(2,PerlIO_printf(Perl_debug_log,"dl_find_symbol(handle=%x, symbol=%s)\n",
+ libhandle, symbolname));
+ RETVAL = (void*) XCEGetProcAddressA((HINSTANCE) libhandle, symbolname);
+ DLDEBUG(2,PerlIO_printf(Perl_debug_log," symbolref = %x\n", RETVAL));
+ ST(0) = sv_newmortal() ;
+ if (RETVAL == NULL)
+ SaveError(aTHXo_ "find_symbol:%s",
+ OS_Error_String(aTHXo)) ;
+ else
+ sv_setiv( ST(0), (IV)RETVAL);
+
+
+void
+dl_undef_symbols()
+ PPCODE:
+
+
+
+# These functions should not need changing on any platform:
+
+void
+dl_install_xsub(perl_name, symref, filename="$Package")
+ char * perl_name
+ void * symref
+ char * filename
+ CODE:
+ DLDEBUG(2,PerlIO_printf(Perl_debug_log,"dl_install_xsub(name=%s, symref=%x)\n",
+ perl_name, symref));
+ ST(0) = sv_2mortal(newRV((SV*)newXS(perl_name,
+ (void(*)(pTHXo_ CV *))symref,
+ filename)));
+
+
+char *
+dl_error()
+ CODE:
+ RETVAL = LastError ;
+ OUTPUT:
+ RETVAL
+
+# end.
--- /dev/null
+/*
+ * this is a dummy header file for Socket.xs
+ */
+
--- /dev/null
+#ifndef CECTYPE_H\r
+#define CECTYPE_H 1\r
+\r
+#if UNDER_CE < 300\r
+#define isdigit(C) iswdigit(C)\r
+#define isalpha(C) iswalpha(C)\r
+#define islower(C) iswlower(C)\r
+#define isupper(C) iswupper(C)\r
+#define isspace(C) iswspace(C)\r
+#define isalnum(C) iswalnum(C)\r
+#define iscntrl(C) iswcntrl(C)\r
+#define isprint(C) iswprint(C)\r
+#define ispunct(C) iswpunct(C)\r
+#define isxdigit(C) iswxdigit(C)\r
+#define isascii(C) iswascii(C)\r
+#define isgraph(C) iswgraph(C)\r
+#endif\r
+\r
+#endif\r
--- /dev/null
+#ifndef ERRNO_H\r
+#define ERRNO_H 1\r
+\r
+#ifdef wince_private\r
+#include <cethread.h>\r
+#ifdef _MT\r
+#define errno _getptd()->_terrno\r
+#else\r
+extern int errno;\r
+#endif\r
+#endif\r
+\r
+#define EPERM 1\r
+#define ENOENT 2\r
+#define ESRCH 3\r
+#define EINTR 4\r
+#define EIO 5\r
+#define ENXIO 6\r
+#define E2BIG 7\r
+#define ENOEXEC 8\r
+#define EBADF 9\r
+#define ECHILD 10\r
+#define EAGAIN 11\r
+#define ENOMEM 12\r
+#define EACCES 13\r
+#define EFAULT 14\r
+#define EOSERR 15 // rk\r
+#define EBUSY 16\r
+#define EEXIST 17\r
+#define EXDEV 18\r
+#define ENODEV 19\r
+#define ENOTDIR 20\r
+#define EISDIR 21\r
+#define EINVAL 22\r
+#define ENFILE 23\r
+#define EMFILE 24\r
+#define ENOTTY 25\r
+#define EFBIG 27\r
+#define ENOSPC 28\r
+#define ESPIPE 29\r
+#define EROFS 30\r
+#define EMLINK 31\r
+#define EPIPE 32\r
+#define EDOM 33\r
+#define ERANGE 34\r
+#define EDEADLK 36\r
+#define ENOSYS 37\r
+\r
+#endif\r
--- /dev/null
+// netdb.h
+
+// djl
+// Provide UNIX compatibility
+
+
+#ifndef _INC_NETDB
+#define _INC_NETDB
+
+#include <sys/socket.h>
+
+#endif //_INC_NETDB
--- /dev/null
+// sys/socket.h
+
+// djl
+// Provide UNIX compatibility
+
+#ifndef _INC_SYS_SOCKET
+#define _INC_SYS_SOCKET
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#ifndef _WINDOWS_
+#ifdef __GNUC__
+#define WIN32_LEAN_AND_MEAN
+#ifdef __GNUC__
+#define Win32_Winsock
+#endif
+#include <windows.h>
+#else
+#define _WINDOWS_
+
+#ifndef FAR
+#define FAR
+#endif
+
+#define PASCAL __stdcall
+#define WINAPI __stdcall
+
+#undef WORD
+typedef int BOOL;
+typedef unsigned short WORD;
+typedef void* HANDLE;
+typedef void* HWND;
+typedef int (FAR WINAPI *FARPROC)();
+
+typedef unsigned long DWORD;
+typedef void *PVOID;
+
+#define IN
+#define OUT
+
+#ifndef UNDER_CE
+typedef struct _OVERLAPPED {
+ DWORD Internal;
+ DWORD InternalHigh;
+ DWORD Offset;
+ DWORD OffsetHigh;
+ HANDLE hEvent;
+} OVERLAPPED, *LPOVERLAPPED;
+#endif
+
+#endif
+#endif //_WINDOWS_
+// #ifndef __GNUC__
+#include <winsock.h>
+// #endif
+
+#define ENOTSOCK WSAENOTSOCK
+#undef HOST_NOT_FOUND
+
+#ifdef USE_SOCKETS_AS_HANDLES
+
+#ifndef PERL_FD_SETSIZE
+#define PERL_FD_SETSIZE 64
+#endif
+
+#define PERL_BITS_PER_BYTE 8
+#define PERL_NFDBITS (sizeof(Perl_fd_mask)*PERL_BITS_PER_BYTE)
+
+typedef int Perl_fd_mask;
+
+typedef struct Perl_fd_set {
+ Perl_fd_mask bits[(PERL_FD_SETSIZE+PERL_NFDBITS-1)/PERL_NFDBITS];
+} Perl_fd_set;
+
+#define PERL_FD_CLR(n,p) \
+ ((p)->bits[(n)/PERL_NFDBITS] &= ~((unsigned)1 << ((n)%PERL_NFDBITS)))
+
+#define PERL_FD_SET(n,p) \
+ ((p)->bits[(n)/PERL_NFDBITS] |= ((unsigned)1 << ((n)%PERL_NFDBITS)))
+
+#define PERL_FD_ZERO(p) memset((char *)(p),0,sizeof(*(p)))
+
+#define PERL_FD_ISSET(n,p) \
+ ((p)->bits[(n)/PERL_NFDBITS] & ((unsigned)1 << ((n)%PERL_NFDBITS)))
+
+#else /* USE_SOCKETS_AS_HANDLES */
+
+#define Perl_fd_set fd_set
+#define PERL_FD_SET(n,p) FD_SET(n,p)
+#define PERL_FD_CLR(n,p) FD_CLR(n,p)
+#define PERL_FD_ISSET(n,p) FD_ISSET(n,p)
+#define PERL_FD_ZERO(p) FD_ZERO(p)
+
+#endif /* USE_SOCKETS_AS_HANDLES */
+
+SOCKET win32_accept (SOCKET s, struct sockaddr *addr, int *addrlen);
+int win32_bind (SOCKET s, const struct sockaddr *addr, int namelen);
+int win32_closesocket (SOCKET s);
+int win32_connect (SOCKET s, const struct sockaddr *name, int namelen);
+int win32_ioctlsocket (SOCKET s, long cmd, u_long *argp);
+int win32_getpeername (SOCKET s, struct sockaddr *name, int * namelen);
+int win32_getsockname (SOCKET s, struct sockaddr *name, int * namelen);
+int win32_getsockopt (SOCKET s, int level, int optname, char * optval, int *optlen);
+u_long win32_htonl (u_long hostlong);
+u_short win32_htons (u_short hostshort);
+unsigned long win32_inet_addr (const char * cp);
+char * win32_inet_ntoa (struct in_addr in);
+int win32_listen (SOCKET s, int backlog);
+u_long win32_ntohl (u_long netlong);
+u_short win32_ntohs (u_short netshort);
+int win32_recv (SOCKET s, char * buf, int len, int flags);
+int win32_recvfrom (SOCKET s, char * buf, int len, int flags,
+ struct sockaddr *from, int * fromlen);
+int win32_select (int nfds, Perl_fd_set *rfds, Perl_fd_set *wfds, Perl_fd_set *xfds,
+ const struct timeval *timeout);
+int win32_send (SOCKET s, const char * buf, int len, int flags);
+int win32_sendto (SOCKET s, const char * buf, int len, int flags,
+ const struct sockaddr *to, int tolen);
+int win32_setsockopt (SOCKET s, int level, int optname,
+ const char * optval, int optlen);
+SOCKET win32_socket (int af, int type, int protocol);
+int win32_shutdown (SOCKET s, int how);
+
+/* Database function prototypes */
+
+struct hostent * win32_gethostbyaddr(const char * addr, int len, int type);
+struct hostent * win32_gethostbyname(const char * name);
+int win32_gethostname (char * name, int namelen);
+struct servent * win32_getservbyport(int port, const char * proto);
+struct servent * win32_getservbyname(const char * name, const char * proto);
+struct protoent * win32_getprotobynumber(int proto);
+struct protoent * win32_getprotobyname(const char * name);
+struct protoent *win32_getprotoent(void);
+struct servent *win32_getservent(void);
+void win32_sethostent(int stayopen);
+void win32_setnetent(int stayopen);
+struct netent * win32_getnetent(void);
+struct netent * win32_getnetbyname(char *name);
+struct netent * win32_getnetbyaddr(long net, int type);
+void win32_setprotoent(int stayopen);
+void win32_setservent(int stayopen);
+void win32_endhostent(void);
+void win32_endnetent(void);
+void win32_endprotoent(void);
+void win32_endservent(void);
+
+#ifndef WIN32SCK_IS_STDSCK
+//
+// direct to our version
+//
+#define htonl win32_htonl
+#define htons win32_htons
+#define ntohl win32_ntohl
+#define ntohs win32_ntohs
+#define inet_addr win32_inet_addr
+#define inet_ntoa win32_inet_ntoa
+
+#define socket win32_socket
+#define bind win32_bind
+#define listen win32_listen
+#define accept win32_accept
+#define connect win32_connect
+#define send win32_send
+#define sendto win32_sendto
+#define recv win32_recv
+#define recvfrom win32_recvfrom
+#define shutdown win32_shutdown
+#define closesocket win32_closesocket
+#define ioctlsocket win32_ioctlsocket
+#define setsockopt win32_setsockopt
+#define getsockopt win32_getsockopt
+#define getpeername win32_getpeername
+#define getsockname win32_getsockname
+#define gethostname win32_gethostname
+#define gethostbyname win32_gethostbyname
+#define gethostbyaddr win32_gethostbyaddr
+#define getprotobyname win32_getprotobyname
+#define getprotobynumber win32_getprotobynumber
+#define getservbyname win32_getservbyname
+#define getservbyport win32_getservbyport
+#define select win32_select
+#define endhostent win32_endhostent
+#define endnetent win32_endnetent
+#define endprotoent win32_endprotoent
+#define endservent win32_endservent
+#define getnetent win32_getnetent
+#define getnetbyname win32_getnetbyname
+#define getnetbyaddr win32_getnetbyaddr
+#define getprotoent win32_getprotoent
+#define getservent win32_getservent
+#define sethostent win32_sethostent
+#define setnetent win32_setnetent
+#define setprotoent win32_setprotoent
+#define setservent win32_setservent
+
+#ifdef USE_SOCKETS_AS_HANDLES
+#undef fd_set
+#undef FD_SET
+#undef FD_CLR
+#undef FD_ISSET
+#undef FD_ZERO
+#define fd_set Perl_fd_set
+#define FD_SET(n,p) PERL_FD_SET(n,p)
+#define FD_CLR(n,p) PERL_FD_CLR(n,p)
+#define FD_ISSET(n,p) PERL_FD_ISSET(n,p)
+#define FD_ZERO(p) PERL_FD_ZERO(p)
+#endif /* USE_SOCKETS_AS_HANDLES */
+
+#endif /* WIN32SCK_IS_STDSCK */
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif // _INC_SYS_SOCKET
--- /dev/null
+#ifndef SYS_STAT_H\r
+#define SYS_STAT_H 1\r
+\r
+#include <sys/types.h>\r
+\r
+// stat.h\r
+#define _S_IFMT 0170000 /* file type mask */\r
+#define _S_IFDIR 0040000 /* directory */\r
+#define _S_IFCHR 0020000 /* character special */\r
+#define _S_IFIFO 0010000 /* pipe */\r
+#define _S_IFREG 0100000 /* regular */\r
+#define _S_IREAD 0000400 /* read permission, owner */\r
+#define _S_IWRITE 0000200 /* write permission, owner */\r
+#define _S_IEXEC 0000100 /* execute/search permission, owner */\r
+\r
+#define _S_IFMT 0170000 /* file type mask */\r
+#define _S_IFDIR 0040000 /* directory */\r
+#define _S_IFCHR 0020000 /* character special */\r
+#define _S_IFIFO 0010000 /* pipe */\r
+#define _S_IFREG 0100000 /* regular */\r
+#define _S_IREAD 0000400 /* read permission, owner */\r
+#define _S_IWRITE 0000200 /* write permission, owner */\r
+#define _S_IEXEC 0000100 /* execute/search permission, owner */\r
+\r
+#define S_IFMT _S_IFMT\r
+#define S_IFREG _S_IFREG\r
+#define S_IFCHR _S_IFCHR\r
+#define S_IFDIR _S_IFDIR\r
+#define S_IREAD _S_IREAD\r
+#define S_IWRITE _S_IWRITE\r
+#define S_IEXEC _S_IEXEC\r
+\r
+#ifndef S_ISDIR\r
+#define S_ISDIR(X) (((X) & S_IFMT) == S_IFDIR)\r
+#endif\r
+#ifndef S_ISREG\r
+#define S_ISREG(X) (((X) & S_IFMT) == S_IFREG)\r
+#endif\r
+\r
+struct stat \r
+{\r
+ dev_t st_dev;\r
+ ino_t st_ino;\r
+ unsigned short st_mode;\r
+ short st_nlink;\r
+ short st_uid;\r
+ short st_gid;\r
+ dev_t st_rdev;\r
+ off_t st_size;\r
+ time_t st_atime;\r
+ time_t st_mtime;\r
+ time_t st_ctime;\r
+};\r
+\r
+#endif\r
--- /dev/null
+#ifndef SYS_TYPES_H\r
+#define SYS_TYPES_H 1\r
+\r
+#ifndef _TIME_T_DEFINED_\r
+typedef unsigned long time_t;\r
+#define _TIME_T_DEFINED_\r
+#endif\r
+\r
+typedef unsigned long dev_t;\r
+typedef unsigned long ino_t;\r
+typedef unsigned short gid_t;\r
+typedef unsigned short uid_t;\r
+typedef long clock_t;\r
+typedef long ptrdiff_t;\r
+typedef long off_t;\r
+\r
+typedef unsigned char u_char;\r
+typedef unsigned short u_short;\r
+\r
+typedef unsigned char * caddr_t;\r
+typedef unsigned int size_t;\r
+\r
+#endif\r
--- /dev/null
+#ifndef SYS_UTIME_H\r
+#define SYS_UTIME_H 1\r
+\r
+#include "time.h"\r
+\r
+struct utimbuf \r
+{\r
+ time_t actime;\r
+ time_t modtime;\r
+};\r
+\r
+struct _utimbuf \r
+{\r
+ time_t actime;\r
+ time_t modtime;\r
+};\r
+\r
+#endif\r
--- /dev/null
+#ifndef TIME_H\r
+#define TIME_H 1\r
+\r
+#include <celib_defs.h>\r
+#include <sys/types.h>\r
+\r
+#ifdef __cplusplus\r
+extern "C" {\r
+#endif\r
+\r
+extern long _timezone;\r
+extern int _daylight;\r
+extern long _dstbias;\r
+extern char *_tzname[];\r
+extern const char __dnames[];\r
+extern const char __mnames[];\r
+extern int _days[];\r
+extern int _lpdays[];\r
+\r
+#define _DAY_SEC (24L * 60L * 60L) /* secs in a day */\r
+#define _YEAR_SEC (365L * _DAY_SEC) /* secs in a year */\r
+#define _FOUR_YEAR_SEC (1461L * _DAY_SEC) /* secs in a 4 year interval */\r
+#define _DEC_SEC 315532800L /* secs in 1970-1979 */\r
+#define _BASE_YEAR 70L /* 1970 is the base year */\r
+#define _BASE_DOW 4 /* 01-01-70 was a Thursday */\r
+#define _LEAP_YEAR_ADJUST 17L /* Leap years 1900 - 1970 */\r
+#define _MAX_YEAR 138L /* 2038 is the max year */\r
+\r
+struct tm {\r
+ int tm_sec; /* seconds after the minute - [0,59] */\r
+ int tm_min; /* minutes after the hour - [0,59] */\r
+ int tm_hour; /* hours since midnight - [0,23] */\r
+ int tm_mday; /* day of the month - [1,31] */\r
+ int tm_mon; /* months since January - [0,11] */\r
+ int tm_year; /* years since 1900 */\r
+ int tm_wday; /* days since Sunday - [0,6] */\r
+ int tm_yday; /* days since January 1 - [0,365] */\r
+ int tm_isdst; /* daylight savings time flag */\r
+};\r
+\r
+XCE_EXPORT struct tm * xcegmtime(const time_t *timp);\r
+XCE_EXPORT struct tm *xcelocaltime (const time_t *ptime);\r
+XCE_EXPORT char *xceasctime (const struct tm *tb);\r
+XCE_EXPORT int xceutime (const char *fname, struct _utimbuf *times);\r
+XCE_EXPORT int xcefutime (int fh, struct _utimbuf *times);\r
+XCE_EXPORT void xceftime (struct _timeb *tp);\r
+XCE_EXPORT void xcegettimeofday (struct timeval *tv, struct timezone *tz);\r
+XCE_EXPORT char *xcectime(const time_t *timp);\r
+XCE_EXPORT void xceftime (struct _timeb *tp);\r
+XCE_EXPORT time_t xcemktime (struct tm *tb);\r
+XCE_EXPORT time_t xcetime (time_t *timeptr);\r
+XCE_EXPORT void _xcetzset(void);\r
+\r
+#ifdef __cplusplus\r
+};\r
+#endif\r
+\r
+#endif\r
--- /dev/null
+#include <windows.h>\r
+\r
+LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US\r
+#pragma code_page(1252)\r
+\r
+1 ICON DISCARDABLE "perl.ico"\r
+\r
+VS_VERSION_INFO VERSIONINFO\r
+ FILEVERSION 5,6,0,0\r
+ PRODUCTVERSION 5,6,0,0\r
+ FILEFLAGSMASK 0x3FL\r
+ FILEFLAGS 0x0L\r
+ FILEOS 0x4L\r
+ FILETYPE 0x1L\r
+ FILESUBTYPE 0x0L\r
+BEGIN\r
+ BLOCK "StringFileInfo"\r
+ BEGIN\r
+ BLOCK "040904B0"\r
+ BEGIN\r
+ VALUE "CompanyName", "Paranoyaxc Inc\0"\r
+ VALUE "FileDescription", "Perl for WindowsCE\0"\r
+ VALUE "FileVersion", "1, 0, 0, 0\0"\r
+ VALUE "InternalName", "PerlCE\0"\r
+ VALUE "LegalCopyright", "Copyright (C) Larry Wall\0"\r
+ VALUE "OriginalFilename", "perl.exe"\r
+ VALUE "ProductName", "Perl\0"\r
+ VALUE "ProductVersion", "5, 7, 2, 0\0"\r
+ VALUE "OLESelfRegister", "\0"\r
+ END\r
+ END\r
+ BLOCK "VarFileInfo"\r
+ BEGIN\r
+ VALUE "Translation", 0x409, 1200\r
+ END\r
+END\r
--- /dev/null
+LIBRARY Perl57\r
+\r
+EXPORTS\r
+ PL_AMG_names\r
+ PL_Argv\r
+ PL_Cmd\r
+ PL_DBgv\r
+ PL_DBline\r
+ PL_DBsignal\r
+ PL_DBsingle\r
+ PL_DBsub\r
+ PL_DBtrace\r
+ PL_No\r
+ PL_Sv\r
+ PL_Xpv\r
+ PL_Yes\r
+ PL_amagic_generation\r
+ PL_an\r
+ PL_argvgv\r
+ PL_argvout_stack\r
+ PL_argvoutgv\r
+ PL_av_fetch_sv\r
+ PL_basetime\r
+ PL_beginav\r
+ PL_bitcount\r
+ PL_bodytarget\r
+ PL_bostr\r
+ PL_bufend\r
+ PL_bufptr\r
+ PL_check\r
+ PL_checkav\r
+ PL_chopset\r
+ PL_colors\r
+ PL_colorset\r
+ PL_compcv\r
+ PL_compiling\r
+ PL_comppad\r
+ PL_comppad_name\r
+ PL_comppad_name_fill\r
+ PL_comppad_name_floor\r
+ PL_cop_seqmax\r
+ PL_copline\r
+ PL_curcop\r
+ PL_curcopdb\r
+ PL_curinterp\r
+ PL_curpad\r
+ PL_curpm\r
+ PL_curstack\r
+ PL_curstackinfo\r
+ PL_curstash\r
+ PL_curstname\r
+ PL_dbargs\r
+ PL_debstash\r
+ PL_debug\r
+ PL_defgv\r
+ PL_defoutgv\r
+ PL_defstash\r
+ PL_delaymagic\r
+ PL_diehook\r
+ PL_dirty\r
+ PL_do_undump\r
+ PL_doextract\r
+ PL_doswitches\r
+ PL_dowarn\r
+ PL_dumpindent\r
+ PL_e_script\r
+ PL_efloatbuf\r
+ PL_efloatsize\r
+ PL_egid\r
+ PL_endav\r
+ PL_envgv\r
+ PL_errgv\r
+ PL_error_count\r
+ PL_errors\r
+ PL_euid\r
+ PL_eval_root\r
+ PL_eval_start\r
+ PL_evalseq\r
+ PL_exit_flags\r
+ PL_exitlist\r
+ PL_exitlistlen\r
+ PL_expect\r
+ PL_extralen\r
+ PL_fdpid\r
+ PL_filemode\r
+ PL_firstgv\r
+ PL_fold\r
+ PL_fold_locale\r
+ PL_forkprocess\r
+ PL_formfeed\r
+ PL_formtarget\r
+ PL_freq\r
+ PL_gensym\r
+ PL_gid\r
+ PL_glob_index\r
+ PL_globalstash\r
+ PL_he_root\r
+ PL_hexdigit\r
+ PL_hintgv\r
+ PL_hints\r
+ PL_hv_fetch_ent_mh\r
+ PL_hv_fetch_sv\r
+ PL_in_clean_all\r
+ PL_in_clean_objs\r
+ PL_in_eval\r
+ PL_in_my\r
+ PL_in_my_stash\r
+ PL_incgv\r
+ PL_initav\r
+ PL_inplace\r
+ PL_last_in_gv\r
+ PL_last_lop\r
+ PL_last_lop_op\r
+ PL_last_swash_hv\r
+ PL_last_swash_key\r
+ PL_last_swash_klen\r
+ PL_last_swash_slen\r
+ PL_last_swash_tmps\r
+ PL_last_uni\r
+ PL_lastfd\r
+ PL_lastscream\r
+ PL_laststatval\r
+ PL_laststype\r
+ PL_lex_brackets\r
+ PL_lex_brackstack\r
+ PL_lex_casemods\r
+ PL_lex_casestack\r
+ PL_lex_defer\r
+ PL_lex_dojoin\r
+ PL_lex_expect\r
+ PL_lex_formbrack\r
+ PL_lex_inpat\r
+ PL_lex_inwhat\r
+ PL_lex_op\r
+ PL_lex_repl\r
+ PL_lex_starts\r
+ PL_lex_state\r
+ PL_lex_stuff\r
+ PL_lineary\r
+ PL_linestr\r
+ PL_localizing\r
+ PL_localpatches\r
+ PL_main_cv\r
+ PL_main_root\r
+ PL_main_start\r
+ PL_mainstack\r
+ PL_markstack\r
+ PL_markstack_max\r
+ PL_markstack_ptr\r
+ PL_max_intro_pending\r
+ PL_maxo\r
+ PL_maxscream\r
+ PL_maxsysfd\r
+ PL_mess_sv\r
+ PL_min_intro_pending\r
+ PL_minus_F\r
+ PL_minus_a\r
+ PL_minus_c\r
+ PL_minus_l\r
+ PL_minus_n\r
+ PL_minus_p\r
+ PL_modglobal\r
+ PL_multi_close\r
+ PL_multi_end\r
+ PL_multi_open\r
+ PL_multi_start\r
+ PL_multiline\r
+ PL_na\r
+ PL_nexttoke\r
+ PL_nexttype\r
+ PL_nextval\r
+ PL_nice_chunk\r
+ PL_nice_chunk_size\r
+ PL_no_aelem\r
+ PL_no_dir_func\r
+ PL_no_func\r
+ PL_no_helem\r
+ PL_no_mem\r
+ PL_no_modify\r
+ PL_no_myglob\r
+ PL_no_security\r
+ PL_no_sock_func\r
+ PL_no_symref\r
+ PL_no_usym\r
+ PL_no_wrongref\r
+ PL_nomemok\r
+ PL_nrs\r
+ PL_ofmt\r
+ PL_oldbufptr\r
+ PL_oldname\r
+ PL_oldoldbufptr\r
+ PL_op\r
+ PL_op_desc\r
+ PL_op_mask\r
+ PL_op_name\r
+ PL_op_seqmax\r
+ PL_opargs\r
+ PL_origalen\r
+ PL_origargc\r
+ PL_origargv\r
+ PL_origenviron\r
+ PL_origfilename\r
+ PL_osname\r
+ PL_pad_reset_pending\r
+ PL_padix\r
+ PL_padix_floor\r
+ PL_patchlevel\r
+ PL_patleave\r
+ PL_perl_destruct_level\r
+ PL_perldb\r
+ PL_pidstatus\r
+ PL_ppaddr\r
+ PL_preambleav\r
+ PL_preambled\r
+ PL_preprocess\r
+ PL_profiledata\r
+ PL_psig_name\r
+ PL_psig_ptr\r
+ PL_reg_call_cc\r
+ PL_reg_curpm\r
+ PL_reg_eval_set\r
+ PL_reg_flags\r
+ PL_reg_ganch\r
+ PL_reg_leftiter\r
+ PL_reg_magic\r
+ PL_reg_maxiter\r
+ PL_reg_oldcurpm\r
+ PL_reg_oldpos\r
+ PL_reg_oldsaved\r
+ PL_reg_oldsavedlen\r
+ PL_reg_poscache\r
+ PL_reg_poscache_size\r
+ PL_reg_re\r
+ PL_reg_start_tmp\r
+ PL_reg_start_tmpl\r
+ PL_reg_starttry\r
+ PL_reg_sv\r
+ PL_reg_whilem_seen\r
+ PL_regbol\r
+ PL_regcc\r
+ PL_regcode\r
+ PL_regcomp_parse\r
+ PL_regcomp_rx\r
+ PL_regcompp\r
+ PL_regdata\r
+ PL_regdummy\r
+ PL_regendp\r
+ PL_regeol\r
+ PL_regexecp\r
+ PL_regflags\r
+ PL_regfree\r
+ PL_regindent\r
+ PL_reginput\r
+ PL_regint_start\r
+ PL_regint_string\r
+ PL_reginterp_cnt\r
+ PL_regkind\r
+ PL_reglastparen\r
+ PL_regnarrate\r
+ PL_regnaughty\r
+ PL_regnpar\r
+ PL_regprecomp\r
+ PL_regprogram\r
+ PL_regsawback\r
+ PL_regseen\r
+ PL_regsize\r
+ PL_regstartp\r
+ PL_regtill\r
+ PL_regxend\r
+ PL_replgv\r
+ PL_restartop\r
+ PL_retstack\r
+ PL_retstack_ix\r
+ PL_retstack_max\r
+ PL_rs\r
+ PL_rsfp\r
+ PL_rsfp_filters\r
+ PL_runops\r
+ PL_savestack\r
+ PL_savestack_ix\r
+ PL_savestack_max\r
+ PL_sawampersand\r
+ PL_scopestack\r
+ PL_scopestack_ix\r
+ PL_scopestack_max\r
+ PL_screamfirst\r
+ PL_screamnext\r
+ PL_secondgv\r
+ PL_seen_evals\r
+ PL_seen_zerolen\r
+ PL_sh_path\r
+ PL_sig_name\r
+ PL_sig_num\r
+ PL_sighandlerp\r
+ PL_simple\r
+ PL_sortcop\r
+ PL_sortstash\r
+ PL_splitstr\r
+ PL_srand_called\r
+ PL_stack_base\r
+ PL_stack_max\r
+ PL_stack_sp\r
+ PL_start_env\r
+ PL_statbuf\r
+ PL_statcache\r
+ PL_statgv\r
+ PL_statname\r
+ PL_statusvalue\r
+ PL_stderrgv\r
+ PL_stdingv\r
+ PL_strtab\r
+ PL_sub_generation\r
+ PL_subline\r
+ PL_subname\r
+ PL_sv_arenaroot\r
+ PL_sv_count\r
+ PL_sv_no\r
+ PL_sv_objcount\r
+ PL_sv_root\r
+ PL_sv_undef\r
+ PL_sv_yes\r
+ PL_sys_intern\r
+ PL_tainted\r
+ PL_tainting\r
+ PL_tmps_floor\r
+ PL_tmps_ix\r
+ PL_tmps_max\r
+ PL_tmps_stack\r
+ PL_tokenbuf\r
+ PL_top_env\r
+ PL_toptarget\r
+ PL_uid\r
+ PL_unsafe\r
+ PL_utf8_alnum\r
+ PL_utf8_alnumc\r
+ PL_utf8_alpha\r
+ PL_utf8_ascii\r
+ PL_utf8_cntrl\r
+ PL_utf8_digit\r
+ PL_utf8_graph\r
+ PL_utf8_lower\r
+ PL_utf8_mark\r
+ PL_utf8_print\r
+ PL_utf8_punct\r
+ PL_utf8_space\r
+ PL_utf8_tolower\r
+ PL_utf8_totitle\r
+ PL_utf8_toupper\r
+ PL_utf8_upper\r
+ PL_utf8_xdigit\r
+ PL_utf8skip\r
+ PL_uudmap\r
+ PL_uuemap\r
+ PL_varies\r
+ PL_vtbl_amagic\r
+ PL_vtbl_amagicelem\r
+ PL_vtbl_arylen\r
+ PL_vtbl_bm\r
+ PL_vtbl_dbline\r
+ PL_vtbl_defelem\r
+ PL_vtbl_env\r
+ PL_vtbl_envelem\r
+ PL_vtbl_fm\r
+ PL_vtbl_glob\r
+ PL_vtbl_isa\r
+ PL_vtbl_isaelem\r
+ PL_vtbl_mglob\r
+ PL_vtbl_nkeys\r
+ PL_vtbl_pack\r
+ PL_vtbl_packelem\r
+ PL_vtbl_pos\r
+ PL_vtbl_regdata\r
+ PL_vtbl_regdatum\r
+ PL_vtbl_regexp\r
+ PL_vtbl_sig\r
+ PL_vtbl_sigelem\r
+ PL_vtbl_substr\r
+ PL_vtbl_sv\r
+ PL_vtbl_taint\r
+ PL_vtbl_uvar\r
+ PL_vtbl_vec\r
+ PL_warn_nl\r
+ PL_warn_nosemi\r
+ PL_warn_reserved\r
+ PL_warn_uninit\r
+ PL_warnhook\r
+ PL_widesyscalls\r
+ PL_xiv_arenaroot\r
+ PL_xiv_root\r
+ PL_xnv_root\r
+ PL_xpv_root\r
+ PL_xpvav_root\r
+ PL_xpvbm_root\r
+ PL_xpvcv_root\r
+ PL_xpvhv_root\r
+ PL_xpviv_root\r
+ PL_xpvlv_root\r
+ PL_xpvmg_root\r
+ PL_xpvnv_root\r
+ PL_xrv_root\r
+ PL_yychar\r
+ PL_yydebug\r
+ PL_yyerrflag\r
+ PL_yylval\r
+ PL_yynerrs\r
+ PL_yyval\r
+ PerlIO_canset_cnt\r
+ PerlIO_clearerr\r
+ PerlIO_close\r
+ PerlIO_eof\r
+ PerlIO_error\r
+ PerlIO_exportFILE\r
+ PerlIO_fast_gets\r
+ PerlIO_fdopen\r
+ PerlIO_fileno\r
+ PerlIO_findFILE\r
+ PerlIO_flush\r
+ PerlIO_get_base\r
+ PerlIO_get_bufsiz\r
+ PerlIO_get_cnt\r
+ PerlIO_get_ptr\r
+ PerlIO_getc\r
+ PerlIO_getname\r
+ PerlIO_getpos\r
+ PerlIO_has_base\r
+ PerlIO_has_cntptr\r
+ PerlIO_importFILE\r
+ PerlIO_init\r
+ PerlIO_open\r
+ PerlIO_printf\r
+ PerlIO_putc\r
+ PerlIO_puts\r
+ PerlIO_read\r
+ PerlIO_releaseFILE\r
+ PerlIO_reopen\r
+ PerlIO_rewind\r
+ PerlIO_seek\r
+ PerlIO_set_cnt\r
+ PerlIO_set_ptrcnt\r
+ PerlIO_setlinebuf\r
+ PerlIO_setpos\r
+ PerlIO_sprintf\r
+ PerlIO_stderr\r
+ PerlIO_stdin\r
+ PerlIO_stdout\r
+ PerlIO_stdoutf\r
+ PerlIO_tell\r
+ PerlIO_tmpfile\r
+ PerlIO_ungetc\r
+ PerlIO_vprintf\r
+ PerlIO_vsprintf\r
+ PerlIO_write\r
+ Perl_Gv_AMupdate\r
+ Perl_amagic_call\r
+ Perl_av_clear\r
+ Perl_av_delete\r
+ Perl_av_exists\r
+ Perl_av_extend\r
+ Perl_av_fake\r
+ Perl_av_fetch\r
+ Perl_av_fill\r
+ Perl_av_len\r
+ Perl_av_make\r
+ Perl_av_pop\r
+ Perl_av_push\r
+ Perl_av_reify\r
+ Perl_av_shift\r
+ Perl_av_store\r
+ Perl_av_undef\r
+ Perl_av_unshift\r
+ Perl_avhv_delete_ent\r
+ Perl_avhv_exists_ent\r
+ Perl_avhv_fetch_ent\r
+ Perl_avhv_iternext\r
+ Perl_avhv_iterval\r
+ Perl_avhv_keys\r
+ Perl_avhv_store_ent\r
+ Perl_block_gimme\r
+ Perl_call_argv\r
+ Perl_call_atexit\r
+ Perl_call_list\r
+ Perl_call_method\r
+ Perl_call_pv\r
+ Perl_call_sv\r
+ Perl_cast_i32\r
+ Perl_cast_iv\r
+ Perl_cast_ulong\r
+ Perl_cast_uv\r
+ Perl_croak\r
+ Perl_cv_const_sv\r
+ Perl_cv_undef\r
+ Perl_cx_dump\r
+ Perl_delimcpy\r
+ Perl_die\r
+ Perl_do_binmode\r
+ Perl_do_close\r
+ Perl_do_gv_dump\r
+ Perl_do_gvgv_dump\r
+ Perl_do_hv_dump\r
+ Perl_do_magic_dump\r
+ Perl_do_op_dump\r
+ Perl_do_open\r
+ Perl_do_open9\r
+ Perl_do_pmop_dump\r
+ Perl_do_sv_dump\r
+ Perl_dounwind\r
+ Perl_dowantarray\r
+ Perl_dump_all\r
+ Perl_dump_eval\r
+ Perl_dump_form\r
+ Perl_dump_indent\r
+ Perl_dump_packsubs\r
+ Perl_dump_sub\r
+ Perl_dump_vindent\r
+ Perl_eval_pv\r
+ Perl_eval_sv\r
+ Perl_fbm_compile\r
+ Perl_fbm_instr\r
+ Perl_filter_add\r
+ Perl_filter_del\r
+ Perl_filter_read\r
+ Perl_form\r
+ Perl_fprintf_nocontext\r
+ Perl_free_tmps\r
+ Perl_get_av\r
+ Perl_get_context\r
+ Perl_get_cv\r
+ Perl_get_hv\r
+ Perl_get_op_descs\r
+ Perl_get_op_names\r
+ Perl_get_ppaddr\r
+ Perl_get_sv\r
+ Perl_get_vtbl\r
+ Perl_gp_free\r
+ Perl_gp_ref\r
+ Perl_gv_AVadd\r
+ Perl_gv_HVadd\r
+ Perl_gv_IOadd\r
+ Perl_gv_autoload4\r
+ Perl_gv_check\r
+ Perl_gv_dump\r
+ Perl_gv_efullname\r
+ Perl_gv_efullname3\r
+ Perl_gv_fetchfile\r
+ Perl_gv_fetchmeth\r
+ Perl_gv_fetchmethod\r
+ Perl_gv_fetchmethod_autoload\r
+ Perl_gv_fetchpv\r
+ Perl_gv_fullname\r
+ Perl_gv_fullname3\r
+ Perl_gv_init\r
+ Perl_gv_stashpv\r
+ Perl_gv_stashpvn\r
+ Perl_gv_stashsv\r
+ Perl_hv_clear\r
+ Perl_hv_delayfree_ent\r
+ Perl_hv_delete\r
+ Perl_hv_delete_ent\r
+ Perl_hv_exists\r
+ Perl_hv_exists_ent\r
+ Perl_hv_fetch\r
+ Perl_hv_fetch_ent\r
+ Perl_hv_free_ent\r
+ Perl_hv_iterinit\r
+ Perl_hv_iterkey\r
+ Perl_hv_iterkeysv\r
+ Perl_hv_iternext\r
+ Perl_hv_iternextsv\r
+ Perl_hv_iterval\r
+ Perl_hv_ksplit\r
+ Perl_hv_magic\r
+ Perl_hv_store\r
+ Perl_hv_store_ent\r
+ Perl_hv_undef\r
+ Perl_ibcmp\r
+ Perl_ibcmp_locale\r
+ Perl_init_i18nl10n\r
+ Perl_init_i18nl14n\r
+ Perl_init_os_extras\r
+ Perl_init_stacks\r
+ Perl_instr\r
+ Perl_is_uni_alnum\r
+ Perl_is_uni_alnum_lc\r
+ Perl_is_uni_alnumc\r
+ Perl_is_uni_alnumc_lc\r
+ Perl_is_uni_alpha\r
+ Perl_is_uni_alpha_lc\r
+ Perl_is_uni_ascii\r
+ Perl_is_uni_ascii_lc\r
+ Perl_is_uni_cntrl\r
+ Perl_is_uni_cntrl_lc\r
+ Perl_is_uni_digit\r
+ Perl_is_uni_digit_lc\r
+ Perl_is_uni_graph\r
+ Perl_is_uni_graph_lc\r
+ Perl_is_uni_idfirst\r
+ Perl_is_uni_idfirst_lc\r
+ Perl_is_uni_lower\r
+ Perl_is_uni_lower_lc\r
+ Perl_is_uni_print\r
+ Perl_is_uni_print_lc\r
+ Perl_is_uni_punct\r
+ Perl_is_uni_punct_lc\r
+ Perl_is_uni_space\r
+ Perl_is_uni_space_lc\r
+ Perl_is_uni_upper\r
+ Perl_is_uni_upper_lc\r
+ Perl_is_uni_xdigit\r
+ Perl_is_uni_xdigit_lc\r
+ Perl_is_utf8_alnum\r
+ Perl_is_utf8_alnumc\r
+ Perl_is_utf8_alpha\r
+ Perl_is_utf8_ascii\r
+ Perl_is_utf8_char\r
+ Perl_is_utf8_cntrl\r
+ Perl_is_utf8_digit\r
+ Perl_is_utf8_graph\r
+ Perl_is_utf8_idfirst\r
+ Perl_is_utf8_lower\r
+ Perl_is_utf8_mark\r
+ Perl_is_utf8_print\r
+ Perl_is_utf8_punct\r
+ Perl_is_utf8_space\r
+ Perl_is_utf8_upper\r
+ Perl_is_utf8_xdigit\r
+ Perl_leave_scope\r
+ Perl_load_module\r
+ Perl_looks_like_number\r
+ Perl_magic_dump\r
+ Perl_markstack_grow\r
+ Perl_mess\r
+ Perl_mg_clear\r
+ Perl_mg_copy\r
+ Perl_mg_find\r
+ Perl_mg_free\r
+ Perl_mg_get\r
+ Perl_mg_length\r
+ Perl_mg_magical\r
+ Perl_mg_set\r
+ Perl_mg_size\r
+ Perl_moreswitches\r
+ Perl_my_atof\r
+ Perl_my_exit\r
+ Perl_my_failure_exit\r
+ Perl_my_fflush_all\r
+ Perl_my_lstat\r
+ Perl_my_setenv\r
+ Perl_my_stat\r
+ Perl_newANONATTRSUB\r
+ Perl_newANONHASH\r
+ Perl_newANONLIST\r
+ Perl_newANONSUB\r
+ Perl_newASSIGNOP\r
+ Perl_newATTRSUB\r
+ Perl_newAV\r
+ Perl_newAVREF\r
+ Perl_newBINOP\r
+ Perl_newCONDOP\r
+ Perl_newCONSTSUB\r
+ Perl_newCVREF\r
+ Perl_newFORM\r
+ Perl_newFOROP\r
+ Perl_newGVOP\r
+ Perl_newGVREF\r
+ Perl_newGVgen\r
+ Perl_newHV\r
+ Perl_newHVREF\r
+ Perl_newHVhv\r
+ Perl_newIO\r
+ Perl_newLISTOP\r
+ Perl_newLOGOP\r
+ Perl_newLOOPEX\r
+ Perl_newLOOPOP\r
+ Perl_newMYSUB\r
+ Perl_newNULLLIST\r
+ Perl_newOP\r
+ Perl_newPADOP\r
+ Perl_newPMOP\r
+ Perl_newPROG\r
+ Perl_newPVOP\r
+ Perl_newRANGE\r
+ Perl_newRV\r
+ Perl_newRV_noinc\r
+ Perl_newSLICEOP\r
+ Perl_newSTATEOP\r
+ Perl_newSUB\r
+ Perl_newSV\r
+ Perl_newSVOP\r
+ Perl_newSVREF\r
+ Perl_newSViv\r
+ Perl_newSVnv\r
+ Perl_newSVpv\r
+ Perl_newSVpvf\r
+ Perl_newSVpvn\r
+ Perl_newSVrv\r
+ Perl_newSVsv\r
+ Perl_newSVuv\r
+ Perl_newUNOP\r
+ Perl_newWHILEOP\r
+ Perl_newXS\r
+ Perl_new_collate\r
+ Perl_new_ctype\r
+ Perl_new_numeric\r
+ Perl_new_stackinfo\r
+ Perl_ninstr\r
+ Perl_op_dump\r
+ Perl_op_free\r
+ Perl_pad_sv\r
+ Perl_pmflag\r
+ Perl_pmop_dump\r
+ Perl_pop_scope\r
+ Perl_pregcomp\r
+ Perl_pregexec\r
+ Perl_pregfree\r
+ Perl_push_scope\r
+ Perl_re_intuit_start\r
+ Perl_re_intuit_string\r
+ Perl_regdump\r
+ Perl_regexec_flags\r
+ Perl_reginitcolors\r
+ Perl_regnext\r
+ Perl_repeatcpy\r
+ Perl_require_pv\r
+ Perl_rninstr\r
+ Perl_runops_standard\r
+ Perl_safesyscalloc\r
+ Perl_safesysfree\r
+ Perl_safesysmalloc\r
+ Perl_safesysrealloc\r
+ Perl_save_I16\r
+ Perl_save_I32\r
+ Perl_save_I8\r
+ Perl_save_aelem\r
+ Perl_save_alloc\r
+ Perl_save_aptr\r
+ Perl_save_ary\r
+ Perl_save_clearsv\r
+ Perl_save_delete\r
+ Perl_save_destructor\r
+ Perl_save_destructor_x\r
+ Perl_save_freepv\r
+ Perl_save_freesv\r
+ Perl_save_generic_svref\r
+ Perl_save_gp\r
+ Perl_save_hash\r
+ Perl_save_helem\r
+ Perl_save_hints\r
+ Perl_save_hptr\r
+ Perl_save_int\r
+ Perl_save_item\r
+ Perl_save_iv\r
+ Perl_save_list\r
+ Perl_save_long\r
+ Perl_save_nogv\r
+ Perl_save_pptr\r
+ Perl_save_re_context\r
+ Perl_save_scalar\r
+ Perl_save_sptr\r
+ Perl_save_svref\r
+ Perl_save_threadsv\r
+ Perl_save_vptr\r
+ Perl_savepv\r
+ Perl_savepvn\r
+ Perl_savestack_grow\r
+ Perl_scan_bin\r
+ Perl_scan_hex\r
+ Perl_scan_num\r
+ Perl_scan_oct\r
+ Perl_screaminstr\r
+ Perl_set_context\r
+ Perl_set_numeric_local\r
+ Perl_set_numeric_radix\r
+ Perl_set_numeric_standard\r
+ Perl_sharepvn\r
+ Perl_stack_grow\r
+ Perl_start_subparse\r
+ Perl_str_to_version\r
+ Perl_sv_2bool\r
+ Perl_sv_2cv\r
+ Perl_sv_2io\r
+ Perl_sv_2iv\r
+ Perl_sv_2mortal\r
+ Perl_sv_2nv\r
+ Perl_sv_2pv\r
+ Perl_sv_2pv_nolen\r
+ Perl_sv_2pvbyte\r
+ Perl_sv_2pvbyte_nolen\r
+ Perl_sv_2pvutf8\r
+ Perl_sv_2pvutf8_nolen\r
+ Perl_sv_2uv\r
+ Perl_sv_backoff\r
+ Perl_sv_bless\r
+ Perl_sv_catpv\r
+ Perl_sv_catpv_mg\r
+ Perl_sv_catpvf\r
+ Perl_sv_catpvf_mg\r
+ Perl_sv_catpvn\r
+ Perl_sv_catpvn_mg\r
+ Perl_sv_catsv\r
+ Perl_sv_catsv_mg\r
+ Perl_sv_chop\r
+ Perl_sv_clear\r
+ Perl_sv_cmp\r
+ Perl_sv_cmp_locale\r
+ Perl_sv_compile_2op\r
+ Perl_sv_dec\r
+ Perl_sv_derived_from\r
+ Perl_sv_dump\r
+ Perl_sv_eq\r
+ Perl_sv_force_normal\r
+ Perl_sv_free\r
+ Perl_sv_gets\r
+ Perl_sv_grow\r
+ Perl_sv_inc\r
+ Perl_sv_insert\r
+ Perl_sv_isa\r
+ Perl_sv_isobject\r
+ Perl_sv_iv\r
+ Perl_sv_len\r
+ Perl_sv_len_utf8\r
+ Perl_sv_magic\r
+ Perl_sv_mortalcopy\r
+ Perl_sv_newmortal\r
+ Perl_sv_newref\r
+ Perl_sv_nv\r
+ Perl_sv_pos_b2u\r
+ Perl_sv_pos_u2b\r
+ Perl_sv_pv\r
+ Perl_sv_pvbyte\r
+ Perl_sv_pvbyten\r
+ Perl_sv_pvbyten_force\r
+ Perl_sv_pvn\r
+ Perl_sv_pvn_force\r
+ Perl_sv_pvutf8\r
+ Perl_sv_pvutf8n\r
+ Perl_sv_pvutf8n_force\r
+ Perl_sv_reftype\r
+ Perl_sv_replace\r
+ Perl_sv_report_used\r
+ Perl_sv_reset\r
+ Perl_sv_rvweaken\r
+ Perl_sv_setiv\r
+ Perl_sv_setiv_mg\r
+ Perl_sv_setnv\r
+ Perl_sv_setnv_mg\r
+ Perl_sv_setpv\r
+ Perl_sv_setpv_mg\r
+ Perl_sv_setpvf\r
+ Perl_sv_setpvf_mg\r
+ Perl_sv_setpviv\r
+ Perl_sv_setpviv_mg\r
+ Perl_sv_setpvn\r
+ Perl_sv_setpvn_mg\r
+ Perl_sv_setref_iv\r
+ Perl_sv_setref_nv\r
+ Perl_sv_setref_pv\r
+ Perl_sv_setref_pvn\r
+ Perl_sv_setsv\r
+ Perl_sv_setsv_mg\r
+ Perl_sv_setuv\r
+ Perl_sv_setuv_mg\r
+ Perl_sv_taint\r
+ Perl_sv_tainted\r
+ Perl_sv_true\r
+ Perl_sv_unmagic\r
+ Perl_sv_unref\r
+ Perl_sv_untaint\r
+ Perl_sv_upgrade\r
+ Perl_sv_usepvn\r
+ Perl_sv_usepvn_mg\r
+ Perl_sv_utf8_decode\r
+ Perl_sv_utf8_downgrade\r
+ Perl_sv_utf8_encode\r
+ Perl_sv_utf8_upgrade\r
+ Perl_sv_uv\r
+ Perl_sv_vcatpvf\r
+ Perl_sv_vcatpvf_mg\r
+ Perl_sv_vcatpvfn\r
+ Perl_sv_vsetpvf\r
+ Perl_sv_vsetpvf_mg\r
+ Perl_sv_vsetpvfn\r
+ Perl_swash_fetch\r
+ Perl_swash_init\r
+ Perl_taint_env\r
+ Perl_taint_proper\r
+ Perl_tmps_grow\r
+ Perl_to_uni_lower\r
+ Perl_to_uni_lower_lc\r
+ Perl_to_uni_title\r
+ Perl_to_uni_title_lc\r
+ Perl_to_uni_upper\r
+ Perl_to_uni_upper_lc\r
+ Perl_to_utf8_lower\r
+ Perl_to_utf8_title\r
+ Perl_to_utf8_upper\r
+ Perl_unsharepvn\r
+ Perl_utf16_to_utf8\r
+ Perl_utf16_to_utf8_reversed\r
+ Perl_utf8_distance\r
+ Perl_utf8_hop\r
+ Perl_utf8_to_uvchr\r
+ Perl_uvchr_to_utf8\r
+ Perl_vcroak\r
+ Perl_vdeb\r
+ Perl_vform\r
+ Perl_vload_module\r
+ Perl_vmess\r
+ Perl_vnewSVpvf\r
+ Perl_vwarn\r
+ Perl_vwarner\r
+ Perl_warn\r
+ Perl_warner\r
+ Perl_win32_init\r
+ RunPerl\r
+ boot_DynaLoader\r
+ perl_alloc\r
+ perl_construct\r
+ perl_destruct\r
+ perl_free\r
+ perl_parse\r
+ perl_run\r
+ win32_abort\r
+ win32_accept\r
+ win32_access\r
+ win32_alarm\r
+ win32_bind\r
+ win32_calloc\r
+ win32_chdir\r
+ win32_chmod\r
+ win32_clearerr\r
+ win32_close\r
+ win32_closedir\r
+ win32_closesocket\r
+ win32_connect\r
+ win32_crypt\r
+ win32_dup\r
+ win32_dup2\r
+ win32_dynaload\r
+ win32_endhostent\r
+ win32_endnetent\r
+ win32_endprotoent\r
+ win32_endservent\r
+ win32_environ\r
+ win32_eof\r
+ win32_errno\r
+ win32_execv\r
+ win32_execvp\r
+ win32_fclose\r
+ win32_fcloseall\r
+ win32_fdopen\r
+ win32_feof\r
+ win32_ferror\r
+ win32_fflush\r
+ win32_fgetc\r
+ win32_fgetpos\r
+ win32_fgets\r
+ win32_fileno\r
+ win32_flock\r
+ win32_flushall\r
+ win32_fopen\r
+ win32_fprintf\r
+ win32_fputc\r
+ win32_fputs\r
+ win32_fread\r
+ win32_free\r
+ win32_freopen\r
+ win32_fseek\r
+ win32_fsetpos\r
+ win32_fstat\r
+ win32_ftell\r
+ win32_fwrite\r
+ win32_getc\r
+ win32_getchar\r
+ win32_getenv\r
+ win32_gethostbyaddr\r
+ win32_gethostbyname\r
+ win32_gethostname\r
+ win32_getnetbyaddr\r
+ win32_getnetbyname\r
+ win32_getnetent\r
+ win32_getpeername\r
+ win32_getpid\r
+ win32_getprotobyname\r
+ win32_getprotobynumber\r
+ win32_getprotoent\r
+ win32_gets\r
+ win32_getservbyname\r
+ win32_getservbyport\r
+ win32_getservent\r
+ win32_getsockname\r
+ win32_getsockopt\r
+ win32_htonl\r
+ win32_htons\r
+ win32_inet_addr\r
+ win32_inet_ntoa\r
+ win32_ioctl\r
+ win32_ioctlsocket\r
+ win32_kill\r
+ win32_link\r
+ win32_listen\r
+ win32_longpath\r
+ win32_lseek\r
+ win32_malloc\r
+ win32_mkdir\r
+ win32_ntohl\r
+ win32_ntohs\r
+ win32_open\r
+ win32_opendir\r
+ win32_os_id\r
+ win32_perror\r
+ win32_pipe\r
+ win32_printf\r
+ win32_putc\r
+ win32_putchar\r
+ win32_putenv\r
+ win32_puts\r
+ win32_read\r
+ win32_readdir\r
+ win32_realloc\r
+ win32_recv\r
+ win32_recvfrom\r
+ win32_rename\r
+ win32_rewind\r
+ win32_rewinddir\r
+ win32_rmdir\r
+ win32_seekdir\r
+ win32_select\r
+ win32_send\r
+ win32_sendto\r
+ win32_setbuf\r
+ win32_sethostent\r
+ win32_setmode\r
+ win32_setnetent\r
+ win32_setprotoent\r
+ win32_setservent\r
+ win32_setsockopt\r
+ win32_setvbuf\r
+ win32_shutdown\r
+ win32_sleep\r
+ win32_socket\r
+ win32_stat\r
+ win32_stderr\r
+ win32_stdin\r
+ win32_stdout\r
+ win32_str_os_error\r
+ win32_strerror\r
+ win32_tell\r
+ win32_telldir\r
+ win32_times\r
+ win32_tmpfile\r
+ win32_uname\r
+ win32_ungetc\r
+ win32_unlink\r
+ win32_utime\r
+ win32_vfprintf\r
+ win32_vprintf\r
+ win32_waitpid\r
+ win32_write\r
+ Perl_pp_pack\r
+ Perl_pp_unpack\r
+ Perl_sv_2pv_flags\r
+ Perl_sv_catpvn_flags\r
+ Perl_sv_catsv_flags\r
+ Perl_sv_setsv_flags\r
--- /dev/null
+// Time-stamp: <01/08/01 20:58:55 keuchel@w2k>
+
+#include "EXTERN.h"
+#include "perl.h"
+
+#ifdef PERL_OBJECT
+#define NO_XSLOCKS
+#endif
+
+#include "XSUB.h"
+
+#ifdef PERL_IMPLICIT_SYS
+#include "win32iop.h"
+#include <fcntl.h>
+#endif /* PERL_IMPLICIT_SYS */
+
+
+/* Register any extra external extensions */
+char *staticlinkmodules[] = {
+ "DynaLoader",
+ NULL,
+};
+
+EXTERN_C void boot_DynaLoader (pTHXo_ CV* cv);
+
+static void
+xs_init(pTHXo)
+{
+ char *file = __FILE__;
+ dXSUB_SYS;
+ newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
+}
+
+#ifdef PERL_IMPLICIT_SYS
+
+#include "perlhost.h"
+
+EXTERN_C void
+perl_get_host_info(struct IPerlMemInfo* perlMemInfo,
+ struct IPerlMemInfo* perlMemSharedInfo,
+ struct IPerlMemInfo* perlMemParseInfo,
+ struct IPerlEnvInfo* perlEnvInfo,
+ struct IPerlStdIOInfo* perlStdIOInfo,
+ struct IPerlLIOInfo* perlLIOInfo,
+ struct IPerlDirInfo* perlDirInfo,
+ struct IPerlSockInfo* perlSockInfo,
+ struct IPerlProcInfo* perlProcInfo)
+{
+ if (perlMemInfo) {
+ Copy(&perlMem, &perlMemInfo->perlMemList, perlMemInfo->nCount, void*);
+ perlMemInfo->nCount = (sizeof(struct IPerlMem)/sizeof(void*));
+ }
+ if (perlMemSharedInfo) {
+ Copy(&perlMem, &perlMemSharedInfo->perlMemList, perlMemSharedInfo->nCount, void*);
+ perlMemSharedInfo->nCount = (sizeof(struct IPerlMem)/sizeof(void*));
+ }
+ if (perlMemParseInfo) {
+ Copy(&perlMem, &perlMemParseInfo->perlMemList, perlMemParseInfo->nCount, void*);
+ perlMemParseInfo->nCount = (sizeof(struct IPerlMem)/sizeof(void*));
+ }
+ if (perlEnvInfo) {
+ Copy(&perlEnv, &perlEnvInfo->perlEnvList, perlEnvInfo->nCount, void*);
+ perlEnvInfo->nCount = (sizeof(struct IPerlEnv)/sizeof(void*));
+ }
+ if (perlStdIOInfo) {
+ Copy(&perlStdIO, &perlStdIOInfo->perlStdIOList, perlStdIOInfo->nCount, void*);
+ perlStdIOInfo->nCount = (sizeof(struct IPerlStdIO)/sizeof(void*));
+ }
+ if (perlLIOInfo) {
+ Copy(&perlLIO, &perlLIOInfo->perlLIOList, perlLIOInfo->nCount, void*);
+ perlLIOInfo->nCount = (sizeof(struct IPerlLIO)/sizeof(void*));
+ }
+ if (perlDirInfo) {
+ Copy(&perlDir, &perlDirInfo->perlDirList, perlDirInfo->nCount, void*);
+ perlDirInfo->nCount = (sizeof(struct IPerlDir)/sizeof(void*));
+ }
+ if (perlSockInfo) {
+ Copy(&perlSock, &perlSockInfo->perlSockList, perlSockInfo->nCount, void*);
+ perlSockInfo->nCount = (sizeof(struct IPerlSock)/sizeof(void*));
+ }
+ if (perlProcInfo) {
+ Copy(&perlProc, &perlProcInfo->perlProcList, perlProcInfo->nCount, void*);
+ perlProcInfo->nCount = (sizeof(struct IPerlProc)/sizeof(void*));
+ }
+}
+
+EXTERN_C PerlInterpreter*
+perl_alloc_override(struct IPerlMem** ppMem, struct IPerlMem** ppMemShared,
+ struct IPerlMem** ppMemParse, struct IPerlEnv** ppEnv,
+ struct IPerlStdIO** ppStdIO, struct IPerlLIO** ppLIO,
+ struct IPerlDir** ppDir, struct IPerlSock** ppSock,
+ struct IPerlProc** ppProc)
+{
+ PerlInterpreter *my_perl = NULL;
+ CPerlHost* pHost = new CPerlHost(ppMem, ppMemShared, ppMemParse, ppEnv,
+ ppStdIO, ppLIO, ppDir, ppSock, ppProc);
+
+ if (pHost) {
+ my_perl = perl_alloc_using(pHost->m_pHostperlMem,
+ pHost->m_pHostperlMemShared,
+ pHost->m_pHostperlMemParse,
+ pHost->m_pHostperlEnv,
+ pHost->m_pHostperlStdIO,
+ pHost->m_pHostperlLIO,
+ pHost->m_pHostperlDir,
+ pHost->m_pHostperlSock,
+ pHost->m_pHostperlProc);
+ if (my_perl) {
+#ifdef PERL_OBJECT
+ CPerlObj* pPerl = (CPerlObj*)my_perl;
+#endif
+ w32_internal_host = pHost;
+ }
+ }
+ return my_perl;
+}
+
+EXTERN_C PerlInterpreter*
+perl_alloc(void)
+{
+ PerlInterpreter* my_perl = NULL;
+ CPerlHost* pHost = new CPerlHost();
+ if (pHost) {
+ my_perl = perl_alloc_using(pHost->m_pHostperlMem,
+ pHost->m_pHostperlMemShared,
+ pHost->m_pHostperlMemParse,
+ pHost->m_pHostperlEnv,
+ pHost->m_pHostperlStdIO,
+ pHost->m_pHostperlLIO,
+ pHost->m_pHostperlDir,
+ pHost->m_pHostperlSock,
+ pHost->m_pHostperlProc);
+ if (my_perl) {
+#ifdef PERL_OBJECT
+ CPerlObj* pPerl = (CPerlObj*)my_perl;
+#endif
+ w32_internal_host = pHost;
+ }
+ }
+ return my_perl;
+}
+
+EXTERN_C void
+win32_delete_internal_host(void *h)
+{
+ CPerlHost *host = (CPerlHost*)h;
+ delete host;
+}
+
+#ifdef PERL_OBJECT
+
+EXTERN_C void
+perl_construct(PerlInterpreter* my_perl)
+{
+ CPerlObj* pPerl = (CPerlObj*)my_perl;
+ try
+ {
+ Perl_construct();
+ }
+ catch(...)
+ {
+ win32_fprintf(stderr, "%s\n",
+ "Error: Unable to construct data structures");
+ perl_free(my_perl);
+ }
+}
+
+EXTERN_C void
+perl_destruct(PerlInterpreter* my_perl)
+{
+ CPerlObj* pPerl = (CPerlObj*)my_perl;
+#ifdef DEBUGGING
+ Perl_destruct();
+#else
+ try
+ {
+ Perl_destruct();
+ }
+ catch(...)
+ {
+ }
+#endif
+}
+
+EXTERN_C void
+perl_free(PerlInterpreter* my_perl)
+{
+ CPerlObj* pPerl = (CPerlObj*)my_perl;
+ void *host = w32_internal_host;
+#ifdef DEBUGGING
+ Perl_free();
+#else
+ try
+ {
+ Perl_free();
+ }
+ catch(...)
+ {
+ }
+#endif
+ win32_delete_internal_host(host);
+ PERL_SET_THX(NULL);
+}
+
+EXTERN_C int
+perl_run(PerlInterpreter* my_perl)
+{
+ CPerlObj* pPerl = (CPerlObj*)my_perl;
+ int retVal;
+#ifdef DEBUGGING
+ retVal = Perl_run();
+#else
+ try
+ {
+ retVal = Perl_run();
+ }
+ catch(...)
+ {
+ win32_fprintf(stderr, "Error: Runtime exception\n");
+ retVal = -1;
+ }
+#endif
+ return retVal;
+}
+
+EXTERN_C int
+perl_parse(PerlInterpreter* my_perl, void (*xsinit)(CPerlObj*), int argc, char** argv, char** env)
+{
+ int retVal;
+ CPerlObj* pPerl = (CPerlObj*)my_perl;
+#ifdef DEBUGGING
+ retVal = Perl_parse(xsinit, argc, argv, env);
+#else
+ try
+ {
+ retVal = Perl_parse(xsinit, argc, argv, env);
+ }
+ catch(...)
+ {
+ win32_fprintf(stderr, "Error: Parse exception\n");
+ retVal = -1;
+ }
+#endif
+ *win32_errno() = 0;
+ return retVal;
+}
+
+#undef PL_perl_destruct_level
+#define PL_perl_destruct_level int dummy
+
+#endif /* PERL_OBJECT */
+#endif /* PERL_IMPLICIT_SYS */
+
+EXTERN_C HANDLE w32_perldll_handle;
+
+EXTERN_C DllExport int
+RunPerl(int argc, char **argv, char **env)
+{
+ int exitstatus;
+ PerlInterpreter *my_perl, *new_perl = NULL;
+
+#ifndef __BORLANDC__
+ /* XXX this _may_ be a problem on some compilers (e.g. Borland) that
+ * want to free() argv after main() returns. As luck would have it,
+ * Borland's CRT does the right thing to argv[0] already. */
+ char szModuleName[MAX_PATH];
+ char *ptr;
+
+ XCEGetModuleFileNameA(NULL, szModuleName, sizeof(szModuleName));
+ (void)win32_longpath(szModuleName);
+ argv[0] = szModuleName;
+#endif
+
+#ifdef PERL_GLOBAL_STRUCT
+#define PERLVAR(var,type) /**/
+#define PERLVARA(var,type) /**/
+#define PERLVARI(var,type,init) PL_Vars.var = init;
+#define PERLVARIC(var,type,init) PL_Vars.var = init;
+#include "perlvars.h"
+#undef PERLVAR
+#undef PERLVARA
+#undef PERLVARI
+#undef PERLVARIC
+#endif
+
+ PERL_SYS_INIT(&argc,&argv);
+
+ if (!(my_perl = perl_alloc()))
+ return (1);
+ perl_construct(my_perl);
+ PL_perl_destruct_level = 0;
+
+ exitstatus = perl_parse(my_perl, xs_init, argc, argv, env);
+ if (!exitstatus) {
+#if defined(TOP_CLONE) && defined(USE_ITHREADS) /* XXXXXX testing */
+# ifdef PERL_OBJECT
+ CPerlHost *h = new CPerlHost();
+ new_perl = perl_clone_using(my_perl, 1,
+ h->m_pHostperlMem,
+ h->m_pHostperlMemShared,
+ h->m_pHostperlMemParse,
+ h->m_pHostperlEnv,
+ h->m_pHostperlStdIO,
+ h->m_pHostperlLIO,
+ h->m_pHostperlDir,
+ h->m_pHostperlSock,
+ h->m_pHostperlProc
+ );
+ CPerlObj *pPerl = (CPerlObj*)new_perl;
+# else
+ new_perl = perl_clone(my_perl, 1);
+# endif
+ exitstatus = perl_run(new_perl);
+ PERL_SET_THX(my_perl);
+#else
+ exitstatus = perl_run(my_perl);
+#endif
+ }
+
+ perl_destruct(my_perl);
+ perl_free(my_perl);
+#ifdef USE_ITHREADS
+ if (new_perl) {
+ PERL_SET_THX(new_perl);
+ perl_destruct(new_perl);
+ perl_free(new_perl);
+ }
+#endif
+
+ PERL_SYS_TERM();
+
+ return (exitstatus);
+}
+
+EXTERN_C void
+set_w32_module_name(void);
+
+#ifdef __MINGW32__
+EXTERN_C /* GCC in C++ mode mangles the name, otherwise */
+#endif
+BOOL APIENTRY
+DllMain(HANDLE hModule, /* DLL module handle */
+ DWORD fdwReason, /* reason called */
+ LPVOID lpvReserved) /* reserved */
+{
+ switch (fdwReason) {
+ /* The DLL is attaching to a process due to process
+ * initialization or a call to LoadLibrary.
+ */
+ case DLL_PROCESS_ATTACH:
+/* #define DEFAULT_BINMODE */
+#ifdef DEFAULT_BINMODE
+ setmode( fileno( stdin ), O_BINARY );
+ setmode( fileno( stdout ), O_BINARY );
+ setmode( fileno( stderr ), O_BINARY );
+ _fmode = O_BINARY;
+#endif
+
+#ifndef UNDER_CE
+ DisableThreadLibraryCalls((HMODULE)hModule);
+#endif
+
+ w32_perldll_handle = hModule;
+ set_w32_module_name();
+ break;
+
+ /* The DLL is detaching from a process due to
+ * process termination or call to FreeLibrary.
+ */
+ case DLL_PROCESS_DETACH:
+ break;
+
+ /* The attached process creates a new thread. */
+ case DLL_THREAD_ATTACH:
+ break;
+
+ /* The thread of the attached process terminates. */
+ case DLL_THREAD_DETACH:
+ break;
+
+ default:
+ break;
+ }
+ return TRUE;
+}
+
--- /dev/null
+// Time-stamp: <01/08/01 20:58:19 keuchel@w2k>
+
+#include "EXTERN.h"
+#include "perl.h"
+
+#ifdef __GNUC__
+
+/* Mingw32 defaults to globing command line
+ * This is inconsistent with other Win32 ports and
+ * seems to cause trouble with passing -DXSVERSION=\"1.6\"
+ * So we turn it off like this:
+ */
+int _CRT_glob = 0;
+
+#endif
+
+// Called from w32console/wmain.c
+
+int
+main(int argc, char **argv, char **env)
+{
+ int res;
+
+ if(argc == 1)
+ XCEShowMessageA("Starting perl with no args is currently\r\n"
+ "not useful on Windows CE");
+
+ res = RunPerl(argc, argv, env);
+
+ if(res != 0)
+ XCEShowMessageA("Exitcode: %d", res);
+
+ return res;
+}
+
+
--- /dev/null
+@echo off\r
+\r
+::- This script must be executed on the PC with an ActiveSync\r
+::- connection. If it does not work, create the entries with\r
+::- a remote registry editor or get a registry editor for your\r
+::- devices.\r
+::-\r
+::- You need my cereg.exe program.\r
+\r
+::- My paths...\r
+set perlexe=\speicherkarte2\bin\perl.exe\r
+set perllib=\speicherkarte2\usr\lib\perl5\r
+\r
+::- PERL5LIB\r
+cereg -k "HKLM\Environment" -n "PERL5LIB" -v "%perllib%"\r
+\r
+::- For ShellExecute\r
+cereg -k "HKCR\.pl" -n "" -v "perlfile"\r
+cereg -k "HKCR\perlfile" -n "" -v "Perl Script"\r
+cereg -k "HKCR\perlfile\DefaultIcon" -n "" -v "%perlexe%,-1"\r
+\r
+::- You might need to fix the quotes if your paths contain spaces!\r
+cereg -k "HKCR\perlfile\Shell\open\command" -n "" -v "%perlexe% %%1"\r
+\r
+cereg -k "HKLM\Environment" -n "ROWS" -v "10"\r
+cereg -k "HKLM\Environment" -n "COLS" -v "75"\r
+cereg -k "HKLM\Environment" -n "PATH" -v "/Speicherkarte2/bin"\r
+cereg -k "HKLM\Environment" -n "UNIXROOTDIR" -v "/Speicherkarte2"\r
--- /dev/null
+#include "EXTERN.h"
+#include "perl.h"
+
+#ifdef __GNUC__
+
+/* Mingw32 defaults to globing command line
+ * This is inconsistent with other Win32 ports and
+ * seems to cause trouble with passing -DXSVERSION=\"1.6\"
+ * So we turn it off like this:
+ */
+int _CRT_glob = 0;
+
+#endif
+
+int
+main(int argc, char **argv, char **env)
+{
+ return RunPerl(argc, argv, env);
+}
+
+
--- /dev/null
+use DirHandle;
+use AutoSplit;
+
+sub splitthis {
+my ($top,$base,$dest) = @_;
+my $d = new DirHandle $base;
+if (defined $d) {
+ while (defined($_ = $d->read)) {
+ next if $_ eq ".";
+ next if $_ eq "..";
+ my $entry = "$base\\$_";
+ my $entrywithouttop = $entry;
+ $entrywithouttop =~ s/^$top//;
+ if (-d $entry) {splitthis ($top,$entry,$dest);}
+ else {
+ next unless ($entry=~/pm$/i);
+ #print "Will run autosplit on $entry to $dest\n";
+ autosplit($entry,$dest,0,1,1);
+ };
+ };
+ };
+}
+
+splitthis $ARGV[0],$ARGV[0],$ARGV[1];
--- /dev/null
+// Time-stamp: <01/08/01 20:59:54 keuchel@w2k>
+
+/* WIN32.H
+ *
+ * (c) 1995 Microsoft Corporation. All rights reserved.
+ * Developed by hip communications inc., http://info.hip.com/info/
+ *
+ * You may distribute under the terms of either the GNU General Public
+ * License or the Artistic License, as specified in the README file.
+ */
+
+#ifndef _INC_WIN32_PERL5
+#define _INC_WIN32_PERL5
+
+#ifndef _WIN32_WINNT
+# define _WIN32_WINNT 0x0400 /* needed for TryEnterCriticalSection() etc. */
+#endif
+
+#if defined(PERL_OBJECT) || defined(PERL_IMPLICIT_SYS) || defined(PERL_CAPI)
+# define DYNAMIC_ENV_FETCH
+# define ENV_HV_NAME "___ENV_HV_NAME___"
+# define HAS_GETENV_LEN
+# define prime_env_iter()
+# define WIN32IO_IS_STDIO /* don't pull in custom stdio layer */
+# define WIN32SCK_IS_STDSCK /* don't pull in custom wsock layer */
+# ifdef PERL_GLOBAL_STRUCT
+# error PERL_GLOBAL_STRUCT cannot be defined with PERL_IMPLICIT_SYS
+# endif
+# define win32_get_privlib PerlEnv_lib_path
+# define win32_get_sitelib PerlEnv_sitelib_path
+# define win32_get_vendorlib PerlEnv_vendorlib_path
+#endif
+
+#ifdef __GNUC__
+# ifndef __int64 /* some versions seem to #define it already */
+# define __int64 long long
+# endif
+# define Win32_Winsock
+#endif
+
+/* Define DllExport akin to perl's EXT,
+ * If we are in the DLL or mimicing the DLL for Win95 work round
+ * then Export the symbol,
+ * otherwise import it.
+ */
+
+/* now even GCC supports __declspec() */
+
+#if defined(PERL_OBJECT)
+#define DllExport
+#else
+#if defined(PERLDLL) || defined(WIN95FIX)
+#define DllExport
+/*#define DllExport __declspec(dllexport)*/ /* noises with VC5+sp3 */
+#else
+#define DllExport __declspec(dllimport)
+#endif
+#endif
+
+#define WIN32_LEAN_AND_MEAN
+#include <windows.h>
+
+#ifdef WIN32_LEAN_AND_MEAN /* C file is NOT a Perl5 original. */
+#define CONTEXT PERL_CONTEXT /* Avoid conflict of CONTEXT defs. */
+#endif /*WIN32_LEAN_AND_MEAN */
+
+#ifndef TLS_OUT_OF_INDEXES
+#define TLS_OUT_OF_INDEXES (DWORD)0xFFFFFFFF
+#endif
+
+#include <dirent.h>
+#ifndef UNDER_CE
+#include <io.h>
+#include <process.h>
+#include <direct.h>
+#include <fcntl.h>
+#endif
+#include <stdio.h>
+#include <stdlib.h>
+#ifndef EXT
+#include "EXTERN.h"
+#endif
+
+struct tms {
+ long tms_utime;
+ long tms_stime;
+ long tms_cutime;
+ long tms_cstime;
+};
+
+#ifndef SYS_NMLN
+#define SYS_NMLN 257
+#endif
+
+struct utsname {
+ char sysname[SYS_NMLN];
+ char nodename[SYS_NMLN];
+ char release[SYS_NMLN];
+ char version[SYS_NMLN];
+ char machine[SYS_NMLN];
+};
+
+#ifndef START_EXTERN_C
+#undef EXTERN_C
+#ifdef __cplusplus
+# define START_EXTERN_C extern "C" {
+# define END_EXTERN_C }
+# define EXTERN_C extern "C"
+#else
+# define START_EXTERN_C
+# define END_EXTERN_C
+# define EXTERN_C
+#endif
+#endif
+
+#define STANDARD_C 1
+#define DOSISH 1 /* no escaping our roots */
+#define OP_BINARY O_BINARY /* mistake in in pp_sys.c? */
+
+/* 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
+
+/* read() and write() aren't transparent for socket handles */
+#define PERL_SOCK_SYSREAD_IS_RECV
+#define PERL_SOCK_SYSWRITE_IS_SEND
+
+#define PERL_NO_FORCE_LINK /* no need for PL_force_link_funcs */
+
+/* if USE_WIN32_RTL_ENV is not defined, Perl uses direct Win32 calls
+ * to read the environment, bypassing the runtime's (usually broken)
+ * facilities for accessing the same. See note in util.c/my_setenv(). */
+/*#define USE_WIN32_RTL_ENV */
+
+/* Define USE_FIXED_OSFHANDLE to fix MSVCRT's _open_osfhandle() on W95.
+ It now uses some black magic to work seamlessly with the DLL CRT and
+ works with MSVC++ 4.0+ or GCC/Mingw32
+ -- BKS 1-24-2000 */
+#if (defined(_M_IX86) && _MSC_VER >= 1000) || defined(__MINGW32__)
+#define USE_FIXED_OSFHANDLE
+#endif
+
+#define ENV_IS_CASELESS
+
+#ifndef VER_PLATFORM_WIN32_WINDOWS /* VC-2.0 headers don't have this */
+#define VER_PLATFORM_WIN32_WINDOWS 1
+#endif
+
+#ifndef FILE_SHARE_DELETE /* VC-4.0 headers don't have this */
+#define FILE_SHARE_DELETE 0x00000004
+#endif
+
+/* access() mode bits */
+#ifndef R_OK
+# define R_OK 4
+# define W_OK 2
+# define X_OK 1
+# define F_OK 0
+#endif
+
+#define PERL_GET_CONTEXT_DEFINED
+
+/* Compiler-specific stuff. */
+
+#ifdef __BORLANDC__ /* Borland C++ */
+
+#define _access access
+#define _chdir chdir
+#define _getpid getpid
+#define wcsicmp _wcsicmp
+#include <sys/types.h>
+
+#ifndef DllMain
+#define DllMain DllEntryPoint
+#endif
+
+#pragma warn -ccc /* "condition is always true/false" */
+#pragma warn -rch /* "unreachable code" */
+#pragma warn -sig /* "conversion may lose significant digits" */
+#pragma warn -pia /* "possibly incorrect assignment" */
+#pragma warn -par /* "parameter 'foo' is never used" */
+#pragma warn -aus /* "'foo' is assigned a value that is never used" */
+#pragma warn -use /* "'foo' is declared but never used" */
+#pragma warn -csu /* "comparing signed and unsigned values" */
+#pragma warn -pro /* "call to function with no prototype" */
+#pragma warn -stu /* "undefined structure 'foo'" */
+
+/* Borland is picky about a bare member function name used as its ptr */
+#ifdef PERL_OBJECT
+# define MEMBER_TO_FPTR(name) &(name)
+#endif
+
+/* Borland C thinks that a pointer to a member variable is 12 bytes in size. */
+#define PERL_MEMBER_PTR_SIZE 12
+
+#endif
+
+#ifdef _MSC_VER /* Microsoft Visual C++ */
+
+#ifndef _MODE_T_DEFINED_
+typedef unsigned long mode_t;
+#define _MODE_T_DEFINED_
+#endif
+
+#pragma warning(disable: 4018 4035 4101 4102 4244 4245 4761)
+
+/* Visual C thinks that a pointer to a member variable is 16 bytes in size. */
+#define PERL_MEMBER_PTR_SIZE 16
+
+#endif /* _MSC_VER */
+
+#ifdef __MINGW32__ /* Minimal Gnu-Win32 */
+
+typedef long uid_t;
+typedef long gid_t;
+#ifndef _environ
+#define _environ environ
+#endif
+#define flushall _flushall
+#define fcloseall _fcloseall
+
+#ifdef PERL_OBJECT
+# define MEMBER_TO_FPTR(name) &(name)
+#endif
+
+#ifndef _O_NOINHERIT
+# define _O_NOINHERIT 0x0080
+# ifndef _NO_OLDNAMES
+# define O_NOINHERIT _O_NOINHERIT
+# endif
+#endif
+
+#endif /* __MINGW32__ */
+
+/* both GCC/Mingw32 and MSVC++ 4.0 are missing this, so we put it here */
+#ifndef CP_UTF8
+# define CP_UTF8 65001
+#endif
+
+/* compatibility stuff for other compilers goes here */
+
+
+#if !defined(PERL_OBJECT) && defined(PERL_CAPI) && defined(PERL_MEMBER_PTR_SIZE)
+# define STRUCT_MGVTBL_DEFINITION \
+struct mgvtbl { \
+ union { \
+ int (CPERLscope(*svt_get))(pTHX_ SV *sv, MAGIC* mg); \
+ char handle_VC_problem1[PERL_MEMBER_PTR_SIZE]; \
+ }; \
+ union { \
+ int (CPERLscope(*svt_set))(pTHX_ SV *sv, MAGIC* mg); \
+ char handle_VC_problem2[PERL_MEMBER_PTR_SIZE]; \
+ }; \
+ union { \
+ U32 (CPERLscope(*svt_len))(pTHX_ SV *sv, MAGIC* mg); \
+ char handle_VC_problem3[PERL_MEMBER_PTR_SIZE]; \
+ }; \
+ union { \
+ int (CPERLscope(*svt_clear))(pTHX_ SV *sv, MAGIC* mg); \
+ char handle_VC_problem4[PERL_MEMBER_PTR_SIZE]; \
+ }; \
+ union { \
+ int (CPERLscope(*svt_free))(pTHX_ SV *sv, MAGIC* mg); \
+ char handle_VC_problem5[PERL_MEMBER_PTR_SIZE]; \
+ }; \
+}
+
+# define BASEOP_DEFINITION \
+ OP* op_next; \
+ OP* op_sibling; \
+ OP* (CPERLscope(*op_ppaddr))(pTHX); \
+ char handle_VC_problem[PERL_MEMBER_PTR_SIZE-sizeof(OP*)]; \
+ PADOFFSET op_targ; \
+ OPCODE op_type; \
+ U16 op_seq; \
+ U8 op_flags; \
+ U8 op_private;
+
+#endif /* !PERL_OBJECT && PERL_CAPI && PERL_MEMBER_PTR_SIZE */
+
+
+START_EXTERN_C
+
+#undef Stat
+#define Stat win32_stat
+
+#undef init_os_extras
+#define init_os_extras Perl_init_os_extras
+
+DllExport void Perl_win32_init(int *argcp, char ***argvp);
+DllExport void Perl_init_os_extras();
+DllExport void win32_str_os_error(void *sv, DWORD err);
+DllExport int RunPerl(int argc, char **argv, char **env);
+
+typedef struct {
+ HANDLE childStdIn;
+ HANDLE childStdOut;
+ HANDLE childStdErr;
+ /*
+ * the following correspond to the fields of the same name
+ * in the STARTUPINFO structure. Embedders can use these to
+ * control the spawning process' look.
+ * Example - to hide the window of the spawned process:
+ * dwFlags = STARTF_USESHOWWINDOW;
+ * wShowWindow = SW_HIDE;
+ */
+ DWORD dwFlags;
+ DWORD dwX;
+ DWORD dwY;
+ DWORD dwXSize;
+ DWORD dwYSize;
+ DWORD dwXCountChars;
+ DWORD dwYCountChars;
+ DWORD dwFillAttribute;
+ WORD wShowWindow;
+} child_IO_table;
+
+DllExport void win32_get_child_IO(child_IO_table* ptr);
+
+#ifndef USE_SOCKETS_AS_HANDLES
+extern FILE * my_fdopen(int, char *);
+#endif
+
+extern int my_fclose(FILE *);
+extern int do_aspawn(void *really, void **mark, void **sp);
+extern int do_spawn(char *cmd);
+extern int do_spawn_nowait(char *cmd);
+extern char * win32_get_privlib(const char *pl);
+extern char * win32_get_sitelib(const char *pl);
+extern char * win32_get_vendorlib(const char *pl);
+extern int IsWin95(void);
+extern int IsWinNT(void);
+extern void win32_argv2utf8(int argc, char** argv);
+
+#ifdef PERL_IMPLICIT_SYS
+extern void win32_delete_internal_host(void *h);
+#endif
+
+extern char * staticlinkmodules[];
+
+END_EXTERN_C
+
+/*
+ * handle socket stuff, assuming socket is always available
+ */
+
+#include <sys/socket.h>
+#include <netdb.h>
+
+#ifdef MYMALLOC
+#define EMBEDMYMALLOC /**/
+/* #define USE_PERL_SBRK /**/
+/* #define PERL_SBRK_VIA_MALLOC /**/
+#endif
+
+#if defined(PERLDLL) && !defined(PERL_CORE)
+#define PERL_CORE
+#endif
+
+#ifdef PERL_TEXTMODE_SCRIPTS
+# define PERL_SCRIPT_MODE "r"
+#else
+# define PERL_SCRIPT_MODE "rb"
+#endif
+
+/*
+ * Now Win32 specific per-thread data stuff
+ */
+
+struct thread_intern {
+ /* XXX can probably use one buffer instead of several */
+ char Wstrerror_buffer[512];
+ struct servent Wservent;
+ char Wgetlogin_buffer[128];
+# ifdef USE_SOCKETS_AS_HANDLES
+ int Winit_socktype;
+# endif
+# ifdef HAVE_DES_FCRYPT
+ char Wcrypt_buffer[30];
+# endif
+# ifdef USE_RTL_THREAD_API
+ void * retv; /* slot for thread return value */
+# endif
+};
+
+#ifdef USE_THREADS
+# ifndef USE_DECLSPEC_THREAD
+# define HAVE_THREAD_INTERN
+# endif /* !USE_DECLSPEC_THREAD */
+#endif /* USE_THREADS */
+
+#define HAVE_INTERP_INTERN
+typedef struct {
+ long num;
+ DWORD pids[MAXIMUM_WAIT_OBJECTS];
+ HANDLE handles[MAXIMUM_WAIT_OBJECTS];
+} child_tab;
+
+struct interp_intern {
+ char * perlshell_tokens;
+ char ** perlshell_vec;
+ long perlshell_items;
+ struct av * fdpid;
+ child_tab * children;
+#ifdef USE_ITHREADS
+ DWORD pseudo_id;
+ child_tab * pseudo_children;
+#endif
+ void * internal_host;
+#ifndef USE_THREADS
+ struct thread_intern thr_intern;
+#endif
+};
+
+
+#define w32_perlshell_tokens (PL_sys_intern.perlshell_tokens)
+#define w32_perlshell_vec (PL_sys_intern.perlshell_vec)
+#define w32_perlshell_items (PL_sys_intern.perlshell_items)
+#define w32_fdpid (PL_sys_intern.fdpid)
+#define w32_children (PL_sys_intern.children)
+#define w32_num_children (w32_children->num)
+#define w32_child_pids (w32_children->pids)
+#define w32_child_handles (w32_children->handles)
+#define w32_pseudo_id (PL_sys_intern.pseudo_id)
+#define w32_pseudo_children (PL_sys_intern.pseudo_children)
+#define w32_num_pseudo_children (w32_pseudo_children->num)
+#define w32_pseudo_child_pids (w32_pseudo_children->pids)
+#define w32_pseudo_child_handles (w32_pseudo_children->handles)
+#define w32_internal_host (PL_sys_intern.internal_host)
+#ifdef USE_THREADS
+# define w32_strerror_buffer (thr->i.Wstrerror_buffer)
+# define w32_getlogin_buffer (thr->i.Wgetlogin_buffer)
+# define w32_crypt_buffer (thr->i.Wcrypt_buffer)
+# define w32_servent (thr->i.Wservent)
+# define w32_init_socktype (thr->i.Winit_socktype)
+#else
+# define w32_strerror_buffer (PL_sys_intern.thr_intern.Wstrerror_buffer)
+# define w32_getlogin_buffer (PL_sys_intern.thr_intern.Wgetlogin_buffer)
+# define w32_crypt_buffer (PL_sys_intern.thr_intern.Wcrypt_buffer)
+# define w32_servent (PL_sys_intern.thr_intern.Wservent)
+# define w32_init_socktype (PL_sys_intern.thr_intern.Winit_socktype)
+#endif /* USE_THREADS */
+
+/* UNICODE<>ANSI translation helpers */
+/* Use CP_ACP when mode is ANSI */
+/* Use CP_UTF8 when mode is UTF8 */
+
+#define A2WHELPER_LEN(lpa, alen, lpw, nBytes)\
+ (lpw[0] = 0, MultiByteToWideChar((IN_BYTE) ? CP_ACP : CP_UTF8, 0, \
+ lpa, alen, lpw, (nBytes/sizeof(WCHAR))))
+#define A2WHELPER(lpa, lpw, nBytes) A2WHELPER_LEN(lpa, -1, lpw, nBytes)
+
+#define W2AHELPER_LEN(lpw, wlen, lpa, nChars)\
+ (lpa[0] = '\0', WideCharToMultiByte((IN_BYTE) ? CP_ACP : CP_UTF8, 0, \
+ lpw, wlen, (LPSTR)lpa, nChars,NULL,NULL))
+#define W2AHELPER(lpw, lpa, nChars) W2AHELPER_LEN(lpw, -1, lpa, nChars)
+
+#define USING_WIDE() (PL_widesyscalls && PerlEnv_os_id() == VER_PLATFORM_WIN32_NT)
+
+#ifdef USE_ITHREADS
+# define PERL_WAIT_FOR_CHILDREN \
+ STMT_START { \
+ if (w32_pseudo_children && w32_num_pseudo_children) { \
+ long children = w32_num_pseudo_children; \
+ WaitForMultipleObjects(children, \
+ w32_pseudo_child_handles, \
+ TRUE, INFINITE); \
+ while (children) \
+ CloseHandle(w32_pseudo_child_handles[--children]); \
+ } \
+ } STMT_END
+#endif
+
+/*
+ * This provides a layer of functions and macros to ensure extensions will
+ * get to use the same RTL functions as the core.
+ */
+#include "win32iop.h"
+
+#endif /* _INC_WIN32_PERL5 */
+
--- /dev/null
+// Time-stamp: <01/08/01 21:00:16 keuchel@w2k>
+
+#ifndef WIN32IOP_H
+#define WIN32IOP_H
+
+#ifndef START_EXTERN_C
+#ifdef __cplusplus
+# define START_EXTERN_C extern "C" {
+# define END_EXTERN_C }
+# define EXTERN_C extern "C"
+#else
+# define START_EXTERN_C
+# define END_EXTERN_C
+# define EXTERN_C
+#endif
+#endif
+
+#ifndef UNDER_CE
+#if defined(_MSC_VER) || defined(__MINGW32__)
+# include <sys/utime.h>
+#else
+# include <utime.h>
+#endif
+#endif
+
+/*
+ * defines for flock emulation
+ */
+#define LOCK_SH 1
+#define LOCK_EX 2
+#define LOCK_NB 4
+#define LOCK_UN 8
+
+/*
+ * Make this as close to original stdio as possible.
+ */
+
+/*
+ * function prototypes for our own win32io layer
+ */
+START_EXTERN_C
+
+DllExport int * win32_errno(void);
+DllExport char *** win32_environ(void);
+DllExport FILE* win32_stdin(void);
+DllExport FILE* win32_stdout(void);
+DllExport FILE* win32_stderr(void);
+DllExport int win32_ferror(FILE *fp);
+DllExport int win32_feof(FILE *fp);
+DllExport char* win32_strerror(int e);
+
+DllExport int win32_fprintf(FILE *pf, const char *format, ...);
+DllExport int win32_printf(const char *format, ...);
+DllExport int win32_vfprintf(FILE *pf, const char *format, va_list arg);
+DllExport int win32_vprintf(const char *format, va_list arg);
+DllExport size_t win32_fread(void *buf, size_t size, size_t count, FILE *pf);
+DllExport size_t win32_fwrite(const void *buf, size_t size, size_t count, FILE *pf);
+DllExport FILE* win32_fopen(const char *path, const char *mode);
+DllExport FILE* win32_fdopen(int fh, const char *mode);
+DllExport FILE* win32_freopen(const char *path, const char *mode, FILE *pf);
+DllExport int win32_fclose(FILE *pf);
+DllExport int win32_fputs(const char *s,FILE *pf);
+DllExport int win32_fputc(int c,FILE *pf);
+DllExport int win32_ungetc(int c,FILE *pf);
+DllExport int win32_getc(FILE *pf);
+DllExport int win32_fileno(FILE *pf);
+DllExport void win32_clearerr(FILE *pf);
+DllExport int win32_fflush(FILE *pf);
+DllExport long win32_ftell(FILE *pf);
+DllExport int win32_fseek(FILE *pf,long offset,int origin);
+DllExport int win32_fgetpos(FILE *pf,fpos_t *p);
+DllExport int win32_fsetpos(FILE *pf,const fpos_t *p);
+DllExport void win32_rewind(FILE *pf);
+DllExport FILE* win32_tmpfile(void);
+DllExport void win32_abort(void);
+DllExport int win32_fstat(int fd,struct stat *sbufptr);
+DllExport int win32_stat(const char *name,struct stat *sbufptr);
+DllExport int win32_pipe( int *phandles, unsigned int psize, int textmode );
+DllExport FILE* win32_popen( const char *command, const char *mode );
+DllExport int win32_pclose( FILE *pf);
+DllExport int win32_rename( const char *oname, const char *newname);
+DllExport int win32_setmode( int fd, int mode);
+DllExport long win32_lseek( int fd, long offset, int origin);
+DllExport long win32_tell( int fd);
+DllExport int win32_dup( int fd);
+DllExport int win32_dup2(int h1, int h2);
+DllExport int win32_open(const char *path, int oflag,...);
+DllExport int win32_close(int fd);
+DllExport int win32_eof(int fd);
+DllExport int win32_read(int fd, void *buf, unsigned int cnt);
+DllExport int win32_write(int fd, const void *buf, unsigned int cnt);
+DllExport int win32_spawnvp(int mode, const char *cmdname,
+ const char *const *argv);
+DllExport int win32_mkdir(const char *dir, int mode);
+DllExport int win32_rmdir(const char *dir);
+DllExport int win32_chdir(const char *dir);
+DllExport int win32_flock(int fd, int oper);
+DllExport int win32_execv(const char *cmdname, const char *const *argv);
+DllExport int win32_execvp(const char *cmdname, const char *const *argv);
+DllExport void win32_perror(const char *str);
+DllExport void win32_setbuf(FILE *pf, char *buf);
+DllExport int win32_setvbuf(FILE *pf, char *buf, int type, size_t size);
+DllExport int win32_flushall(void);
+DllExport int win32_fcloseall(void);
+DllExport char* win32_fgets(char *s, int n, FILE *pf);
+DllExport char* win32_gets(char *s);
+DllExport int win32_fgetc(FILE *pf);
+DllExport int win32_putc(int c, FILE *pf);
+DllExport int win32_puts(const char *s);
+DllExport int win32_getchar(void);
+DllExport int win32_putchar(int c);
+DllExport void* win32_malloc(size_t size);
+DllExport void* win32_calloc(size_t numitems, size_t size);
+DllExport void* win32_realloc(void *block, size_t size);
+DllExport void win32_free(void *block);
+
+DllExport int win32_open_osfhandle(long handle, int flags);
+DllExport long win32_get_osfhandle(int fd);
+
+DllExport DIR* win32_opendir(char *filename);
+DllExport struct direct* win32_readdir(DIR *dirp);
+DllExport long win32_telldir(DIR *dirp);
+DllExport void win32_seekdir(DIR *dirp, long loc);
+DllExport void win32_rewinddir(DIR *dirp);
+DllExport int win32_closedir(DIR *dirp);
+
+#ifndef USE_WIN32_RTL_ENV
+DllExport char* win32_getenv(const char *name);
+DllExport int win32_putenv(const char *name);
+#endif
+
+DllExport unsigned win32_sleep(unsigned int);
+DllExport int win32_times(struct tms *timebuf);
+DllExport unsigned win32_alarm(unsigned int sec);
+DllExport int win32_stat(const char *path, struct stat *buf);
+DllExport char* win32_longpath(char *path);
+DllExport int win32_ioctl(int i, unsigned int u, char *data);
+DllExport int win32_link(const char *oldname, const char *newname);
+DllExport int win32_unlink(const char *f);
+DllExport int win32_utime(const char *f, struct utimbuf *t);
+DllExport int win32_uname(struct utsname *n);
+DllExport int win32_wait(int *status);
+DllExport int win32_waitpid(int pid, int *status, int flags);
+DllExport int win32_kill(int pid, int sig);
+DllExport unsigned long win32_os_id(void);
+DllExport void* win32_dynaload(const char*filename);
+DllExport int win32_access(const char *path, int mode);
+DllExport int win32_chmod(const char *path, int mode);
+DllExport int win32_getpid(void);
+
+DllExport char * win32_crypt(const char *txt, const char *salt);
+
+END_EXTERN_C
+
+/*
+ * the following six(6) is #define in stdio.h
+ */
+#ifndef WIN32IO_IS_STDIO
+#undef errno
+#undef environ
+#undef stderr
+#undef stdin
+#undef stdout
+#undef ferror
+#undef feof
+#undef fclose
+#undef pipe
+#undef pause
+#undef sleep
+#undef times
+#undef alarm
+#undef ioctl
+#undef unlink
+#undef utime
+#undef uname
+#undef wait
+
+#ifdef __BORLANDC__
+#undef ungetc
+#undef getc
+#undef putc
+#undef getchar
+#undef putchar
+#undef fileno
+#endif
+
+#define stderr win32_stderr()
+#define stdout win32_stdout()
+#define stdin win32_stdin()
+#define feof(f) win32_feof(f)
+#define ferror(f) win32_ferror(f)
+#define errno (*win32_errno())
+#define environ (*win32_environ())
+#define strerror win32_strerror
+
+/*
+ * redirect to our own version
+ */
+#undef fprintf
+#define fprintf win32_fprintf
+#undef vfprintf
+#define vfprintf win32_vfprintf
+#undef printf
+#define printf win32_printf
+#undef vprintf
+#define vprintf win32_vprintf
+#undef fread
+#define fread(buf,size,count,f) win32_fread(buf,size,count,f)
+#undef fwrite
+#define fwrite(buf,size,count,f) win32_fwrite(buf,size,count,f)
+#undef fopen
+#define fopen win32_fopen
+#undef fdopen
+#define fdopen win32_fdopen
+#undef freopen
+#define freopen win32_freopen
+#define fclose(f) win32_fclose(f)
+#undef fputs
+#define fputs(s,f) win32_fputs(s,f)
+#undef fputc
+#define fputc(c,f) win32_fputc(c,f)
+#undef ungetc
+#define ungetc(c,f) win32_ungetc(c,f)
+#undef getc
+#define getc(f) win32_getc(f)
+#undef fileno
+#define fileno(f) win32_fileno(f)
+#undef clearerr
+#define clearerr(f) win32_clearerr(f)
+#undef fflush
+#define fflush(f) win32_fflush(f)
+#undef ftell
+#define ftell(f) win32_ftell(f)
+#undef fseek
+#define fseek(f,o,w) win32_fseek(f,o,w)
+#undef fgetpos
+#define fgetpos(f,p) win32_fgetpos(f,p)
+#undef fsetpos
+#define fsetpos(f,p) win32_fsetpos(f,p)
+#undef rewind
+#define rewind(f) win32_rewind(f)
+#define tmpfile() win32_tmpfile()
+#define abort() win32_abort()
+#define fstat(fd,bufptr) win32_fstat(fd,bufptr)
+#define stat(pth,bufptr) win32_stat(pth,bufptr)
+#define longpath(pth) win32_longpath(pth)
+#define rename(old,new) win32_rename(old,new)
+#define setmode(fd,mode) win32_setmode(fd,mode)
+#define lseek(fd,offset,orig) win32_lseek(fd,offset,orig)
+#define tell(fd) win32_tell(fd)
+#define dup(fd) win32_dup(fd)
+#define dup2(fd1,fd2) win32_dup2(fd1,fd2)
+#define open win32_open
+#define close(fd) win32_close(fd)
+#define eof(fd) win32_eof(fd)
+#define read(fd,b,s) win32_read(fd,b,s)
+#define write(fd,b,s) win32_write(fd,b,s)
+#define _open_osfhandle win32_open_osfhandle
+#define _get_osfhandle win32_get_osfhandle
+#define spawnvp win32_spawnvp
+#define mkdir win32_mkdir
+#define rmdir win32_rmdir
+#define chdir win32_chdir
+#define flock(fd,o) win32_flock(fd,o)
+#define execv win32_execv
+#define execvp win32_execvp
+#define perror win32_perror
+#define setbuf win32_setbuf
+#undef setvbuf
+#define setvbuf win32_setvbuf
+#undef flushall
+#define flushall win32_flushall
+#undef fcloseall
+#define fcloseall win32_fcloseall
+#undef fgets
+#define fgets win32_fgets
+#undef gets
+#define gets win32_gets
+#undef fgetc
+#define fgetc win32_fgetc
+#undef putc
+#define putc win32_putc
+#undef puts
+#define puts win32_puts
+#undef getchar
+#define getchar win32_getchar
+#undef putchar
+#define putchar win32_putchar
+#define access(p,m) win32_access(p,m)
+#define chmod(p,m) win32_chmod(p,m)
+
+
+#if !defined(MYMALLOC) || !defined(PERL_CORE)
+#undef malloc
+#undef calloc
+#undef realloc
+#undef free
+#define malloc win32_malloc
+#define calloc win32_calloc
+#define realloc win32_realloc
+#define free win32_free
+#endif
+
+#define pipe(fd) win32_pipe((fd), 512, O_BINARY)
+#define pause() win32_sleep((32767L << 16) + 32767)
+#define sleep win32_sleep
+#define times win32_times
+#define alarm win32_alarm
+#define ioctl win32_ioctl
+#define link win32_link
+#define unlink win32_unlink
+#define utime win32_utime
+#define uname win32_uname
+#define wait win32_wait
+#define waitpid win32_waitpid
+#define kill win32_kill
+
+#define opendir win32_opendir
+#define readdir win32_readdir
+#define telldir win32_telldir
+#define seekdir win32_seekdir
+#define rewinddir win32_rewinddir
+#define closedir win32_closedir
+#define os_id win32_os_id
+#define getpid win32_getpid
+
+#undef crypt
+#define crypt(t,s) win32_crypt(t,s)
+
+#ifndef USE_WIN32_RTL_ENV
+#undef getenv
+#define getenv win32_getenv
+#undef putenv
+#define putenv win32_putenv
+#endif
+
+#endif /* WIN32IO_IS_STDIO */
+#endif /* WIN32IOP_H */
+
--- /dev/null
+// Time-stamp: <01/08/01 21:00:29 keuchel@w2k>
+
+#include "EXTERN.h"
+#include "perl.h"
+
+#if defined(PERL_OBJECT)
+#define NO_XSLOCKS
+extern CPerlObj* pPerl;
+#include "XSUB.h"
+#endif
+
+#ifdef USE_DECLSPEC_THREAD
+__declspec(thread) void *PL_current_context = NULL;
+#endif
+
+void
+Perl_set_context(void *t)
+{
+#if defined(USE_THREADS) || defined(USE_ITHREADS)
+# ifdef USE_DECLSPEC_THREAD
+ Perl_current_context = t;
+# else
+ DWORD err = GetLastError();
+ TlsSetValue(PL_thr_key,t);
+ SetLastError(err);
+# endif
+#endif
+}
+
+void *
+Perl_get_context(void)
+{
+#if defined(USE_THREADS) || defined(USE_ITHREADS)
+# ifdef USE_DECLSPEC_THREAD
+ return Perl_current_context;
+# else
+ DWORD err = GetLastError();
+ void *result = TlsGetValue(PL_thr_key);
+ SetLastError(err);
+ return result;
+# endif
+#else
+ return NULL;
+#endif
+}
+
+#ifdef USE_THREADS
+void
+Perl_init_thread_intern(struct perl_thread *athr)
+{
+#ifndef USE_DECLSPEC_THREAD
+
+ /*
+ * Initialize port-specific per-thread data in thr->i
+ * as only things we have there are just static areas for
+ * return values we don't _need_ to do anything but
+ * this is good practice:
+ */
+ memset(&athr->i,0,sizeof(athr->i));
+
+#endif
+}
+
+void
+Perl_set_thread_self(struct perl_thread *thr)
+{
+ /* Set thr->self. GetCurrentThread() retrurns a pseudo handle, need
+ this to convert it into a handle another thread can use.
+ */
+ DuplicateHandle(GetCurrentProcess(),
+ GetCurrentThread(),
+ GetCurrentProcess(),
+ &thr->self,
+ 0,
+ FALSE,
+ DUPLICATE_SAME_ACCESS);
+}
+
+int
+Perl_thread_create(struct perl_thread *thr, thread_func_t *fn)
+{
+ DWORD junk;
+ unsigned long th;
+
+ DEBUG_S(PerlIO_printf(Perl_debug_log,
+ "%p: create OS thread\n", thr));
+#ifdef USE_RTL_THREAD_API
+ /* See comment about USE_RTL_THREAD_API in win32thread.h */
+#if defined(__BORLANDC__)
+ th = _beginthreadNT(fn, /* start address */
+ 0, /* stack size */
+ (void *)thr, /* parameters */
+ (void *)NULL, /* security attrib */
+ 0, /* creation flags */
+ (unsigned long *)&junk); /* tid */
+ if (th == (unsigned long)-1)
+ th = 0;
+#elif defined(_MSC_VER_)
+ th = _beginthreadex((void *)NULL, /* security attrib */
+ 0, /* stack size */
+ fn, /* start address */
+ (void*)thr, /* parameters */
+ 0, /* creation flags */
+ (unsigned *)&junk); /* tid */
+#else /* compilers using CRTDLL.DLL only have _beginthread() */
+ th = _beginthread(fn, /* start address */
+ 0, /* stack size */
+ (void*)thr); /* parameters */
+ if (th == (unsigned long)-1)
+ th = 0;
+#endif
+ thr->self = (HANDLE)th;
+#else /* !USE_RTL_THREAD_API */
+ thr->self = CreateThread(NULL, 0, fn, (void*)thr, 0, &junk);
+#endif /* !USE_RTL_THREAD_API */
+ DEBUG_S(PerlIO_printf(Perl_debug_log,
+ "%p: OS thread = %p, id=%ld\n", thr, thr->self, junk));
+ return thr->self ? 0 : -1;
+}
+#endif
+
--- /dev/null
+// Time-stamp: <01/08/01 21:00:36 keuchel@w2k>
+
+#ifndef _WIN32THREAD_H
+#define _WIN32THREAD_H
+
+#include "win32.h"
+
+typedef struct win32_cond { LONG waiters; HANDLE sem; } perl_cond;
+typedef DWORD perl_key;
+typedef HANDLE perl_os_thread;
+
+#ifndef DONT_USE_CRITICAL_SECTION
+
+/* Critical Sections used instead of mutexes: lightweight,
+ * but can't be communicated to child processes, and can't get
+ * HANDLE to it for use elsewhere.
+ */
+typedef CRITICAL_SECTION perl_mutex;
+#define MUTEX_INIT(m) InitializeCriticalSection(m)
+#define MUTEX_LOCK(m) EnterCriticalSection(m)
+#define MUTEX_UNLOCK(m) LeaveCriticalSection(m)
+#define MUTEX_DESTROY(m) DeleteCriticalSection(m)
+
+#else
+
+typedef HANDLE perl_mutex;
+# define MUTEX_INIT(m) \
+ STMT_START { \
+ if ((*(m) = CreateMutex(NULL,FALSE,NULL)) == NULL) \
+ Perl_croak_nocontext("panic: MUTEX_INIT"); \
+ } STMT_END
+
+# define MUTEX_LOCK(m) \
+ STMT_START { \
+ if (WaitForSingleObject(*(m),INFINITE) == WAIT_FAILED) \
+ Perl_croak_nocontext("panic: MUTEX_LOCK"); \
+ } STMT_END
+
+# define MUTEX_UNLOCK(m) \
+ STMT_START { \
+ if (ReleaseMutex(*(m)) == 0) \
+ Perl_croak_nocontext("panic: MUTEX_UNLOCK"); \
+ } STMT_END
+
+# define MUTEX_DESTROY(m) \
+ STMT_START { \
+ if (CloseHandle(*(m)) == 0) \
+ Perl_croak_nocontext("panic: MUTEX_DESTROY"); \
+ } STMT_END
+
+#endif
+
+/* These macros assume that the mutex associated with the condition
+ * will always be held before COND_{SIGNAL,BROADCAST,WAIT,DESTROY},
+ * so there's no separate mutex protecting access to (c)->waiters
+ */
+#define COND_INIT(c) \
+ STMT_START { \
+ (c)->waiters = 0; \
+ (c)->sem = CreateSemaphore(NULL,0,LONG_MAX,NULL); \
+ if ((c)->sem == NULL) \
+ Perl_croak_nocontext("panic: COND_INIT (%ld)",GetLastError()); \
+ } STMT_END
+
+#define COND_SIGNAL(c) \
+ STMT_START { \
+ if ((c)->waiters > 0 && \
+ ReleaseSemaphore((c)->sem,1,NULL) == 0) \
+ Perl_croak_nocontext("panic: COND_SIGNAL (%ld)",GetLastError()); \
+ } STMT_END
+
+#define COND_BROADCAST(c) \
+ STMT_START { \
+ if ((c)->waiters > 0 && \
+ ReleaseSemaphore((c)->sem,(c)->waiters,NULL) == 0) \
+ Perl_croak_nocontext("panic: COND_BROADCAST (%ld)",GetLastError());\
+ } STMT_END
+
+#define COND_WAIT(c, m) \
+ STMT_START { \
+ (c)->waiters++; \
+ MUTEX_UNLOCK(m); \
+ /* Note that there's no race here, since a \
+ * COND_BROADCAST() on another thread will have seen the\
+ * right number of waiters (i.e. including this one) */ \
+ if (WaitForSingleObject((c)->sem,INFINITE)==WAIT_FAILED)\
+ Perl_croak_nocontext("panic: COND_WAIT (%ld)",GetLastError()); \
+ /* XXX there may be an inconsequential race here */ \
+ MUTEX_LOCK(m); \
+ (c)->waiters--; \
+ } STMT_END
+
+#define COND_DESTROY(c) \
+ STMT_START { \
+ (c)->waiters = 0; \
+ if (CloseHandle((c)->sem) == 0) \
+ Perl_croak_nocontext("panic: COND_DESTROY (%ld)",GetLastError()); \
+ } STMT_END
+
+#define DETACH(t) \
+ STMT_START { \
+ if (CloseHandle((t)->self) == 0) { \
+ MUTEX_UNLOCK(&(t)->mutex); \
+ Perl_croak_nocontext("panic: DETACH"); \
+ } \
+ } STMT_END
+
+
+#define THREAD_CREATE(t, f) Perl_thread_create(t, f)
+#define THREAD_POST_CREATE(t) NOOP
+
+/* XXX Docs mention that the RTL versions of thread creation routines
+ * should be used, but that advice only seems applicable when the RTL
+ * is not in a DLL. RTL DLLs in both Borland and VC seem to do all of
+ * the init/deinit required upon DLL_THREAD_ATTACH/DETACH. So we seem
+ * to be completely safe using straight Win32 API calls, rather than
+ * the much braindamaged RTL calls.
+ *
+ * _beginthread() in the RTLs call CloseHandle() just after the thread
+ * function returns, which means: 1) we have a race on our hands
+ * 2) it is impossible to implement join() semantics.
+ *
+ * IOW, do *NOT* turn on USE_RTL_THREAD_API! It is here
+ * for experimental purposes only. GSAR 98-01-02
+ */
+#ifdef USE_RTL_THREAD_API
+# include <process.h>
+# if defined(__BORLANDC__)
+ /* Borland RTL doesn't allow a return value from thread function! */
+# define THREAD_RET_TYPE void _USERENTRY
+# define THREAD_RET_CAST(p) ((void)(thr->i.retv = (void *)(p)))
+# elif defined (_MSC_VER)
+# define THREAD_RET_TYPE unsigned __stdcall
+# define THREAD_RET_CAST(p) ((unsigned)(p))
+# else
+ /* CRTDLL.DLL doesn't allow a return value from thread function! */
+# define THREAD_RET_TYPE void __cdecl
+# define THREAD_RET_CAST(p) ((void)(thr->i.retv = (void *)(p)))
+# endif
+#else /* !USE_RTL_THREAD_API */
+# define THREAD_RET_TYPE DWORD WINAPI
+# define THREAD_RET_CAST(p) ((DWORD)(p))
+#endif /* !USE_RTL_THREAD_API */
+
+typedef THREAD_RET_TYPE thread_func_t(void *);
+
+
+START_EXTERN_C
+
+#if defined(PERLDLL) && defined(USE_DECLSPEC_THREAD) && (!defined(__BORLANDC__) || defined(_DLL))
+extern __declspec(thread) void *PL_current_context;
+#define PERL_SET_CONTEXT(t) (PL_current_context = t)
+#define PERL_GET_CONTEXT PL_current_context
+#else
+#define PERL_GET_CONTEXT Perl_get_context()
+#define PERL_SET_CONTEXT(t) Perl_set_context(t)
+#endif
+
+#if defined(USE_THREADS)
+struct perl_thread;
+int Perl_thread_create (struct perl_thread *thr, thread_func_t *fn);
+void Perl_set_thread_self (struct perl_thread *thr);
+void Perl_init_thread_intern (struct perl_thread *t);
+
+#define SET_THREAD_SELF(thr) Perl_set_thread_self(thr)
+
+#endif /* USE_THREADS */
+
+END_EXTERN_C
+
+#define INIT_THREADS NOOP
+#define ALLOC_THREAD_KEY \
+ STMT_START { \
+ if ((PL_thr_key = TlsAlloc()) == TLS_OUT_OF_INDEXES) { \
+ fprintf(stderr,"panic: TlsAlloc"); \
+ exit(1); \
+ } \
+ } STMT_END
+
+#if defined(USE_RTL_THREAD_API) && !defined(_MSC_VER)
+#define JOIN(t, avp) \
+ STMT_START { \
+ if ((WaitForSingleObject((t)->self,INFINITE) == WAIT_FAILED) \
+ || (GetExitCodeThread((t)->self,(LPDWORD)(avp)) == 0) \
+ || (CloseHandle((t)->self) == 0)) \
+ Perl_croak_nocontext("panic: JOIN"); \
+ *avp = (AV *)((t)->i.retv); \
+ } STMT_END
+#else /* !USE_RTL_THREAD_API || _MSC_VER */
+#define JOIN(t, avp) \
+ STMT_START { \
+ if ((WaitForSingleObject((t)->self,INFINITE) == WAIT_FAILED) \
+ || (GetExitCodeThread((t)->self,(LPDWORD)(avp)) == 0) \
+ || (CloseHandle((t)->self) == 0)) \
+ Perl_croak_nocontext("panic: JOIN"); \
+ } STMT_END
+#endif /* !USE_RTL_THREAD_API || _MSC_VER */
+
+#define YIELD Sleep(0)
+
+#endif /* _WIN32THREAD_H */
+
--- /dev/null
+/* WINCE.C - stuff for Windows CE
+ *
+ * Time-stamp: <01/08/01 19:29:57 keuchel@w2k>
+ *
+ * You may distribute under the terms of either the GNU General Public
+ * License or the Artistic License, as specified in the README file.
+ */
+
+#define WIN32_LEAN_AND_MEAN
+#define WIN32IO_IS_STDIO
+#include <windows.h>
+
+#define PERLIO_NOT_STDIO 0
+
+#if !defined(PERLIO_IS_STDIO) && !defined(USE_SFIO)
+#define PerlIO FILE
+#endif
+
+#define wince_private
+#include "errno.h"
+
+#include "EXTERN.h"
+#include "perl.h"
+
+#define NO_XSLOCKS
+#define PERL_NO_GET_CONTEXT
+#include "XSUB.h"
+
+#include "win32iop.h"
+#include <string.h>
+#include <stdarg.h>
+#include <float.h>
+#include <shellapi.h>
+
+#define perl
+#include "celib_defs.h"
+#include "cewin32.h"
+#include "cecrt.h"
+#include "cewin32_defs.h"
+#include "cecrt_defs.h"
+
+#ifdef PALM_SIZE
+#include "stdio-palmsize.h"
+#endif
+
+#define EXECF_EXEC 1
+#define EXECF_SPAWN 2
+#define EXECF_SPAWN_NOWAIT 3
+
+#if defined(PERL_IMPLICIT_SYS)
+# undef win32_get_privlib
+# define win32_get_privlib g_win32_get_privlib
+# undef win32_get_sitelib
+# define win32_get_sitelib g_win32_get_sitelib
+# undef win32_get_vendorlib
+# define win32_get_vendorlib g_win32_get_vendorlib
+# undef do_spawn
+# define do_spawn g_do_spawn
+# undef getlogin
+# define getlogin g_getlogin
+#endif
+
+#if defined(PERL_OBJECT)
+# undef do_aspawn
+# define do_aspawn g_do_aspawn
+# undef Perl_do_exec
+# define Perl_do_exec g_do_exec
+#endif
+
+static long filetime_to_clock(PFILETIME ft);
+static BOOL filetime_from_time(PFILETIME ft, time_t t);
+static char * get_emd_part(SV **leading, char *trailing, ...);
+static char * win32_get_xlib(const char *pl, const char *xlib,
+ const char *libname);
+
+START_EXTERN_C
+HANDLE w32_perldll_handle = INVALID_HANDLE_VALUE;
+char w32_module_name[MAX_PATH+1];
+END_EXTERN_C
+
+static DWORD w32_platform = (DWORD)-1;
+
+int
+IsWin95(void)
+{
+ return (win32_os_id() == VER_PLATFORM_WIN32_WINDOWS);
+}
+
+int
+IsWinNT(void)
+{
+ return (win32_os_id() == VER_PLATFORM_WIN32_NT);
+}
+
+int
+IsWinCE(void)
+{
+ return (win32_os_id() == VER_PLATFORM_WIN32_CE);
+}
+
+EXTERN_C void
+set_w32_module_name(void)
+{
+ char* ptr;
+ XCEGetModuleFileNameA((HMODULE)((w32_perldll_handle == INVALID_HANDLE_VALUE)
+ ? XCEGetModuleHandleA(NULL)
+ : w32_perldll_handle),
+ w32_module_name, sizeof(w32_module_name));
+
+ /* normalize to forward slashes */
+ ptr = w32_module_name;
+ while (*ptr) {
+ if (*ptr == '\\')
+ *ptr = '/';
+ ++ptr;
+ }
+}
+
+/* *svp (if non-NULL) is expected to be POK (valid allocated SvPVX(*svp)) */
+static char*
+get_regstr_from(HKEY hkey, const char *valuename, SV **svp)
+{
+ /* Retrieve a REG_SZ or REG_EXPAND_SZ from the registry */
+ HKEY handle;
+ DWORD type;
+ const char *subkey = "Software\\Perl";
+ char *str = Nullch;
+ long retval;
+
+ retval = XCERegOpenKeyExA(hkey, subkey, 0, KEY_READ, &handle);
+ if (retval == ERROR_SUCCESS) {
+ DWORD datalen;
+ retval = XCERegQueryValueExA(handle, valuename, 0, &type, NULL, &datalen);
+ if (retval == ERROR_SUCCESS && type == REG_SZ) {
+ dTHXo;
+ if (!*svp)
+ *svp = sv_2mortal(newSVpvn("",0));
+ SvGROW(*svp, datalen);
+ retval = XCERegQueryValueExA(handle, valuename, 0, NULL,
+ (PBYTE)SvPVX(*svp), &datalen);
+ if (retval == ERROR_SUCCESS) {
+ str = SvPVX(*svp);
+ SvCUR_set(*svp,datalen-1);
+ }
+ }
+ RegCloseKey(handle);
+ }
+ return str;
+}
+
+/* *svp (if non-NULL) is expected to be POK (valid allocated SvPVX(*svp)) */
+static char*
+get_regstr(const char *valuename, SV **svp)
+{
+ char *str = get_regstr_from(HKEY_CURRENT_USER, valuename, svp);
+ if (!str)
+ str = get_regstr_from(HKEY_LOCAL_MACHINE, valuename, svp);
+ return str;
+}
+
+/* *prev_pathp (if non-NULL) is expected to be POK (valid allocated SvPVX(sv)) */
+static char *
+get_emd_part(SV **prev_pathp, char *trailing_path, ...)
+{
+ char base[10];
+ va_list ap;
+ char mod_name[MAX_PATH+1];
+ char *ptr;
+ char *optr;
+ char *strip;
+ int oldsize, newsize;
+ STRLEN baselen;
+
+ va_start(ap, trailing_path);
+ strip = va_arg(ap, char *);
+
+ sprintf(base, "%d.%d", (int)PERL_REVISION, (int)PERL_VERSION);
+ baselen = strlen(base);
+
+ if (!*w32_module_name) {
+ set_w32_module_name();
+ }
+ strcpy(mod_name, w32_module_name);
+ ptr = strrchr(mod_name, '/');
+ while (ptr && strip) {
+ /* look for directories to skip back */
+ optr = ptr;
+ *ptr = '\0';
+ ptr = strrchr(mod_name, '/');
+ /* avoid stripping component if there is no slash,
+ * or it doesn't match ... */
+ if (!ptr || stricmp(ptr+1, strip) != 0) {
+ /* ... but not if component matches m|5\.$patchlevel.*| */
+ if (!ptr || !(*strip == '5' && *(ptr+1) == '5'
+ && strncmp(strip, base, baselen) == 0
+ && strncmp(ptr+1, base, baselen) == 0))
+ {
+ *optr = '/';
+ ptr = optr;
+ }
+ }
+ strip = va_arg(ap, char *);
+ }
+ if (!ptr) {
+ ptr = mod_name;
+ *ptr++ = '.';
+ *ptr = '/';
+ }
+ va_end(ap);
+ strcpy(++ptr, trailing_path);
+
+ /* only add directory if it exists */
+ if (XCEGetFileAttributesA(mod_name) != (DWORD) -1) {
+ /* directory exists */
+ dTHXo;
+ if (!*prev_pathp)
+ *prev_pathp = sv_2mortal(newSVpvn("",0));
+ sv_catpvn(*prev_pathp, ";", 1);
+ sv_catpv(*prev_pathp, mod_name);
+ return SvPVX(*prev_pathp);
+ }
+
+ return Nullch;
+}
+
+char *
+win32_get_privlib(const char *pl)
+{
+ dTHXo;
+ char *stdlib = "lib";
+ char buffer[MAX_PATH+1];
+ SV *sv = Nullsv;
+
+ /* $stdlib = $HKCU{"lib-$]"} || $HKLM{"lib-$]"} || $HKCU{"lib"} || $HKLM{"lib"} || ""; */
+ sprintf(buffer, "%s-%s", stdlib, pl);
+ if (!get_regstr(buffer, &sv))
+ (void)get_regstr(stdlib, &sv);
+
+ /* $stdlib .= ";$EMD/../../lib" */
+ return get_emd_part(&sv, stdlib, ARCHNAME, "bin", Nullch);
+}
+
+static char *
+win32_get_xlib(const char *pl, const char *xlib, const char *libname)
+{
+ dTHXo;
+ char regstr[40];
+ char pathstr[MAX_PATH+1];
+ DWORD datalen;
+ int len, newsize;
+ SV *sv1 = Nullsv;
+ SV *sv2 = Nullsv;
+
+ /* $HKCU{"$xlib-$]"} || $HKLM{"$xlib-$]"} . ---; */
+ sprintf(regstr, "%s-%s", xlib, pl);
+ (void)get_regstr(regstr, &sv1);
+
+ /* $xlib .=
+ * ";$EMD/" . ((-d $EMD/../../../$]) ? "../../.." : "../.."). "/$libname/$]/lib"; */
+ sprintf(pathstr, "%s/%s/lib", libname, pl);
+ (void)get_emd_part(&sv1, pathstr, ARCHNAME, "bin", pl, Nullch);
+
+ /* $HKCU{$xlib} || $HKLM{$xlib} . ---; */
+ (void)get_regstr(xlib, &sv2);
+
+ /* $xlib .=
+ * ";$EMD/" . ((-d $EMD/../../../$]) ? "../../.." : "../.."). "/$libname/lib"; */
+ sprintf(pathstr, "%s/lib", libname);
+ (void)get_emd_part(&sv2, pathstr, ARCHNAME, "bin", pl, Nullch);
+
+ if (!sv1 && !sv2)
+ return Nullch;
+ if (!sv1)
+ return SvPVX(sv2);
+ if (!sv2)
+ return SvPVX(sv1);
+
+ sv_catpvn(sv1, ";", 1);
+ sv_catsv(sv1, sv2);
+
+ return SvPVX(sv1);
+}
+
+char *
+win32_get_sitelib(const char *pl)
+{
+ return win32_get_xlib(pl, "sitelib", "site");
+}
+
+#ifndef PERL_VENDORLIB_NAME
+# define PERL_VENDORLIB_NAME "vendor"
+#endif
+
+char *
+win32_get_vendorlib(const char *pl)
+{
+ return win32_get_xlib(pl, "vendorlib", PERL_VENDORLIB_NAME);
+}
+
+#if !defined(PERL_IMPLICIT_SYS)
+/* since the current process environment is being updated in util.c
+ * the library functions will get the correct environment
+ */
+PerlIO *
+Perl_my_popen(pTHX_ char *cmd, char *mode)
+{
+ printf("popen(%s)\n", cmd);
+
+ Perl_croak(aTHX_ PL_no_func, "popen");
+ return NULL;
+}
+
+long
+Perl_my_pclose(pTHX_ PerlIO *fp)
+{
+ Perl_croak(aTHX_ PL_no_func, "pclose");
+ return -1;
+}
+#endif
+
+DllExport unsigned long
+win32_os_id(void)
+{
+ static OSVERSIONINFOA osver;
+
+ if (osver.dwPlatformId != w32_platform) {
+ memset(&osver, 0, sizeof(OSVERSIONINFOA));
+ osver.dwOSVersionInfoSize = sizeof(OSVERSIONINFOA);
+ XCEGetVersionExA(&osver);
+ w32_platform = osver.dwPlatformId;
+ }
+ return (unsigned long)w32_platform;
+}
+
+DllExport int
+win32_getpid(void)
+{
+ return xcegetpid();
+}
+
+bool
+Perl_do_exec(pTHX_ char *cmd)
+{
+ Perl_croak_nocontext("exec() unimplemented on this platform");
+ return FALSE;
+}
+
+DllExport int
+win32_pipe(int *pfd, unsigned int size, int mode)
+{
+ Perl_croak(aTHX_ PL_no_func, "pipe");
+ return -1;
+}
+
+DllExport int
+win32_times(struct tms *timebuf)
+{
+ Perl_croak(aTHX_ PL_no_func, "times");
+ return -1;
+}
+
+DllExport char ***
+win32_environ(void)
+{
+ return (&(environ));
+}
+
+DllExport DIR *
+win32_opendir(char *filename)
+{
+ return opendir(filename);
+}
+
+DllExport struct direct *
+win32_readdir(DIR *dirp)
+{
+ return readdir(dirp);
+}
+
+DllExport long
+win32_telldir(DIR *dirp)
+{
+ Perl_croak(aTHX_ PL_no_func, "telldir");
+ return -1;
+}
+
+DllExport void
+win32_seekdir(DIR *dirp, long loc)
+{
+ Perl_croak(aTHX_ PL_no_func, "seekdir");
+}
+
+DllExport void
+win32_rewinddir(DIR *dirp)
+{
+ Perl_croak(aTHX_ PL_no_func, "rewinddir");
+}
+
+DllExport int
+win32_closedir(DIR *dirp)
+{
+ closedir(dirp);
+ return 0;
+}
+
+DllExport int
+win32_kill(int pid, int sig)
+{
+ Perl_croak(aTHX_ PL_no_func, "kill");
+ return -1;
+}
+
+DllExport unsigned int
+win32_sleep(unsigned int t)
+{
+ return xcesleep(t);
+}
+
+DllExport int
+win32_stat(const char *path, struct stat *sbuf)
+{
+ return xcestat(path, sbuf);
+}
+
+DllExport char *
+win32_longpath(char *path)
+{
+ return path;
+}
+
+#ifndef USE_WIN32_RTL_ENV
+
+DllExport char *
+win32_getenv(const char *name)
+{
+ return xcegetenv(name);
+}
+
+DllExport int
+win32_putenv(const char *name)
+{
+ return xceputenv(name);
+}
+
+#endif
+
+static long
+filetime_to_clock(PFILETIME ft)
+{
+ __int64 qw = ft->dwHighDateTime;
+ qw <<= 32;
+ qw |= ft->dwLowDateTime;
+ qw /= 10000; /* File time ticks at 0.1uS, clock at 1mS */
+ return (long) qw;
+}
+
+/* fix utime() so it works on directories in NT */
+static BOOL
+filetime_from_time(PFILETIME pFileTime, time_t Time)
+{
+ struct tm *pTM = localtime(&Time);
+ SYSTEMTIME SystemTime;
+ FILETIME LocalTime;
+
+ if (pTM == NULL)
+ return FALSE;
+
+ SystemTime.wYear = pTM->tm_year + 1900;
+ SystemTime.wMonth = pTM->tm_mon + 1;
+ SystemTime.wDay = pTM->tm_mday;
+ SystemTime.wHour = pTM->tm_hour;
+ SystemTime.wMinute = pTM->tm_min;
+ SystemTime.wSecond = pTM->tm_sec;
+ SystemTime.wMilliseconds = 0;
+
+ return SystemTimeToFileTime(&SystemTime, &LocalTime) &&
+ LocalFileTimeToFileTime(&LocalTime, pFileTime);
+}
+
+DllExport int
+win32_unlink(const char *filename)
+{
+ return xceunlink(filename);
+}
+
+DllExport int
+win32_utime(const char *filename, struct utimbuf *times)
+{
+ return xceutime(filename, (struct _utimbuf *) times);
+}
+
+DllExport int
+win32_uname(struct utsname *name)
+{
+ struct hostent *hep;
+ STRLEN nodemax = sizeof(name->nodename)-1;
+ OSVERSIONINFOA osver;
+
+ memset(&osver, 0, sizeof(OSVERSIONINFOA));
+ osver.dwOSVersionInfoSize = sizeof(OSVERSIONINFOA);
+ if (XCEGetVersionExA(&osver)) {
+ /* sysname */
+ switch (osver.dwPlatformId) {
+ case VER_PLATFORM_WIN32_CE:
+ strcpy(name->sysname, "Windows CE");
+ break;
+ case VER_PLATFORM_WIN32_WINDOWS:
+ strcpy(name->sysname, "Windows");
+ break;
+ case VER_PLATFORM_WIN32_NT:
+ strcpy(name->sysname, "Windows NT");
+ break;
+ case VER_PLATFORM_WIN32s:
+ strcpy(name->sysname, "Win32s");
+ break;
+ default:
+ strcpy(name->sysname, "Win32 Unknown");
+ break;
+ }
+
+ /* release */
+ sprintf(name->release, "%d.%d",
+ osver.dwMajorVersion, osver.dwMinorVersion);
+
+ /* version */
+ sprintf(name->version, "Build %d",
+ osver.dwPlatformId == VER_PLATFORM_WIN32_NT
+ ? osver.dwBuildNumber : (osver.dwBuildNumber & 0xffff));
+ if (osver.szCSDVersion[0]) {
+ char *buf = name->version + strlen(name->version);
+ sprintf(buf, " (%s)", osver.szCSDVersion);
+ }
+ }
+ else {
+ *name->sysname = '\0';
+ *name->version = '\0';
+ *name->release = '\0';
+ }
+
+ /* nodename */
+ hep = win32_gethostbyname("localhost");
+ if (hep) {
+ STRLEN len = strlen(hep->h_name);
+ if (len <= nodemax) {
+ strcpy(name->nodename, hep->h_name);
+ }
+ else {
+ strncpy(name->nodename, hep->h_name, nodemax);
+ name->nodename[nodemax] = '\0';
+ }
+ }
+ else {
+ DWORD sz = nodemax;
+ if (!XCEGetComputerNameA(name->nodename, &sz))
+ *name->nodename = '\0';
+ }
+
+ /* machine (architecture) */
+ {
+ SYSTEM_INFO info;
+ char *arch;
+ GetSystemInfo(&info);
+
+#if defined(__BORLANDC__) || defined(__MINGW32__)
+ switch (info.u.s.wProcessorArchitecture) {
+#else
+ switch (info.wProcessorArchitecture) {
+#endif
+ case PROCESSOR_ARCHITECTURE_INTEL:
+ arch = "x86"; break;
+ case PROCESSOR_ARCHITECTURE_MIPS:
+ arch = "mips"; break;
+ case PROCESSOR_ARCHITECTURE_ALPHA:
+ arch = "alpha"; break;
+ case PROCESSOR_ARCHITECTURE_PPC:
+ arch = "ppc"; break;
+ case PROCESSOR_ARCHITECTURE_ARM:
+ arch = "arm"; break;
+ case PROCESSOR_HITACHI_SH3:
+ arch = "sh3"; break;
+ case PROCESSOR_SHx_SH3:
+ arch = "sh3"; break;
+
+ default:
+ arch = "unknown"; break;
+ }
+ strcpy(name->machine, arch);
+ }
+ return 0;
+}
+
+#ifndef PERL_OBJECT
+
+static UINT timerid = 0;
+
+static VOID CALLBACK TimerProc(HWND win, UINT msg, UINT id, DWORD time)
+{
+ dTHXo;
+ KillTimer(NULL,timerid);
+ timerid=0;
+ sighandler(14);
+}
+#endif /* !PERL_OBJECT */
+
+DllExport unsigned int
+win32_alarm(unsigned int sec)
+{
+#ifndef PERL_OBJECT
+ /*
+ * the 'obvious' implentation is SetTimer() with a callback
+ * which does whatever receiving SIGALRM would do
+ * we cannot use SIGALRM even via raise() as it is not
+ * one of the supported codes in <signal.h>
+ *
+ * Snag is unless something is looking at the message queue
+ * nothing happens :-(
+ */
+ dTHXo;
+ if (sec)
+ {
+ timerid = SetTimer(NULL,timerid,sec*1000,(TIMERPROC)TimerProc);
+ if (!timerid)
+ Perl_croak_nocontext("Cannot set timer");
+ }
+ else
+ {
+ if (timerid)
+ {
+ KillTimer(NULL,timerid);
+ timerid=0;
+ }
+ }
+#endif /* !PERL_OBJECT */
+ return 0;
+}
+
+#ifdef HAVE_DES_FCRYPT
+extern char * des_fcrypt(const char *txt, const char *salt, char *cbuf);
+#endif
+
+DllExport char *
+win32_crypt(const char *txt, const char *salt)
+{
+ dTHXo;
+#ifdef HAVE_DES_FCRYPT
+ dTHR;
+ return des_fcrypt(txt, salt, w32_crypt_buffer);
+#else
+ Perl_croak(aTHX_ "The crypt() function is unimplemented due to excessive paranoia.");
+ return Nullch;
+#endif
+}
+
+/* C doesn't like repeat struct definitions */
+
+#if defined(USE_FIXED_OSFHANDLE) || defined(PERL_MSVCRT_READFIX)
+
+#ifndef _CRTIMP
+#define _CRTIMP __declspec(dllimport)
+#endif
+
+/*
+ * Control structure for lowio file handles
+ */
+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 */
+ int lockinitflag;
+ CRITICAL_SECTION lock;
+} ioinfo;
+
+
+/*
+ * Array of arrays of control structures for lowio files.
+ */
+EXTERN_C _CRTIMP ioinfo* __pioinfo[];
+
+/*
+ * Definition of IOINFO_L2E, the log base 2 of the number of elements in each
+ * array of ioinfo structs.
+ */
+#define IOINFO_L2E 5
+
+/*
+ * Definition of IOINFO_ARRAY_ELTS, the number of elements in ioinfo array
+ */
+#define IOINFO_ARRAY_ELTS (1 << IOINFO_L2E)
+
+/*
+ * Access macros for getting at an ioinfo struct and its fields from a
+ * file handle
+ */
+#define _pioinfo(i) (__pioinfo[(i) >> IOINFO_L2E] + ((i) & (IOINFO_ARRAY_ELTS - 1)))
+#define _osfhnd(i) (_pioinfo(i)->osfhnd)
+#define _osfile(i) (_pioinfo(i)->osfile)
+#define _pipech(i) (_pioinfo(i)->pipech)
+
+#endif
+
+/*
+ * redirected io subsystem for all XS modules
+ *
+ */
+
+DllExport int *
+win32_errno(void)
+{
+ return (&errno);
+}
+
+/* the rest are the remapped stdio routines */
+DllExport FILE *
+win32_stderr(void)
+{
+ return (stderr);
+}
+
+DllExport FILE *
+win32_stdin(void)
+{
+ return (stdin);
+}
+
+DllExport FILE *
+win32_stdout()
+{
+ return (stdout);
+}
+
+DllExport int
+win32_ferror(FILE *fp)
+{
+ return (ferror(fp));
+}
+
+
+DllExport int
+win32_feof(FILE *fp)
+{
+ return (feof(fp));
+}
+
+/*
+ * Since the errors returned by the socket error function
+ * WSAGetLastError() are not known by the library routine strerror
+ * we have to roll our own.
+ */
+
+DllExport char *
+win32_strerror(int e)
+{
+ return xcestrerror(e);
+}
+
+DllExport void
+win32_str_os_error(void *sv, DWORD dwErr)
+{
+ dTHXo;
+
+ sv_setpvn((SV*)sv, "Error", 5);
+}
+
+
+DllExport int
+win32_fprintf(FILE *fp, const char *format, ...)
+{
+ va_list marker;
+ va_start(marker, format); /* Initialize variable arguments. */
+
+ return (vfprintf(fp, format, marker));
+}
+
+DllExport int
+win32_printf(const char *format, ...)
+{
+ va_list marker;
+ va_start(marker, format); /* Initialize variable arguments. */
+
+ return (vprintf(format, marker));
+}
+
+DllExport int
+win32_vfprintf(FILE *fp, const char *format, va_list args)
+{
+ return (vfprintf(fp, format, args));
+}
+
+DllExport int
+win32_vprintf(const char *format, va_list args)
+{
+ return (vprintf(format, args));
+}
+
+DllExport size_t
+win32_fread(void *buf, size_t size, size_t count, FILE *fp)
+{
+ return fread(buf, size, count, fp);
+}
+
+DllExport size_t
+win32_fwrite(const void *buf, size_t size, size_t count, FILE *fp)
+{
+ return fwrite(buf, size, count, fp);
+}
+
+DllExport FILE *
+win32_fopen(const char *filename, const char *mode)
+{
+ return xcefopen(filename, mode);
+}
+
+DllExport FILE *
+win32_fdopen(int handle, const char *mode)
+{
+ return palm_fdopen(handle, mode);
+}
+
+DllExport FILE *
+win32_freopen(const char *path, const char *mode, FILE *stream)
+{
+ return xcefreopen(path, mode, stream);
+}
+
+DllExport int
+win32_fclose(FILE *pf)
+{
+ return xcefclose(pf);
+}
+
+DllExport int
+win32_fputs(const char *s,FILE *pf)
+{
+ return fputs(s, pf);
+}
+
+DllExport int
+win32_fputc(int c,FILE *pf)
+{
+ return fputc(c,pf);
+}
+
+DllExport int
+win32_ungetc(int c,FILE *pf)
+{
+ return ungetc(c,pf);
+}
+
+DllExport int
+win32_getc(FILE *pf)
+{
+ return getc(pf);
+}
+
+DllExport int
+win32_fileno(FILE *pf)
+{
+ return palm_fileno(pf);
+}
+
+DllExport void
+win32_clearerr(FILE *pf)
+{
+ clearerr(pf);
+ return;
+}
+
+DllExport int
+win32_fflush(FILE *pf)
+{
+ return fflush(pf);
+}
+
+DllExport long
+win32_ftell(FILE *pf)
+{
+ return ftell(pf);
+}
+
+DllExport int
+win32_fseek(FILE *pf,long offset,int origin)
+{
+ 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...
+DllExport int
+win32_fgetpos(FILE *pf, fpos_t *p)
+{
+ return fgetpos(pf, p);
+}
+
+DllExport int
+win32_fsetpos(FILE *pf, const fpos_t *p)
+{
+ return fsetpos(pf, p);
+}
+
+DllExport void
+win32_rewind(FILE *pf)
+{
+ fseek(pf, 0, SEEK_SET);
+ return;
+}
+
+DllExport FILE*
+win32_tmpfile(void)
+{
+ Perl_croak(aTHX_ PL_no_func, "tmpfile");
+
+ return NULL;
+}
+
+DllExport void
+win32_abort(void)
+{
+ xceabort();
+
+ return;
+}
+
+DllExport int
+win32_fstat(int fd, struct stat *sbufptr)
+{
+ return xcefstat(fd, sbufptr);
+}
+
+DllExport int
+win32_link(const char *oldname, const char *newname)
+{
+ Perl_croak(aTHX_ PL_no_func, "link");
+
+ return -1;
+}
+
+DllExport int
+win32_rename(const char *oname, const char *newname)
+{
+ return xcerename(oname, newname);
+}
+
+DllExport int
+win32_setmode(int fd, int mode)
+{
+ if(mode != O_BINARY)
+ {
+ Perl_croak(aTHX_ PL_no_func, "setmode");
+ return -1;
+ }
+ return 0;
+}
+
+DllExport long
+win32_lseek(int fd, long offset, int origin)
+{
+ return xcelseek(fd, offset, origin);
+}
+
+DllExport long
+win32_tell(int fd)
+{
+ return xcelseek(fd, 0, SEEK_CUR);
+}
+
+DllExport int
+win32_open(const char *path, int flag, ...)
+{
+ int pmode;
+ va_list ap;
+
+ va_start(ap, flag);
+ pmode = va_arg(ap, int);
+ va_end(ap);
+
+ return xceopen(path, flag, pmode);
+}
+
+DllExport int
+win32_close(int fd)
+{
+ return xceclose(fd);
+}
+
+DllExport int
+win32_eof(int fd)
+{
+ Perl_croak(aTHX_ PL_no_func, "eof");
+ return -1;
+}
+
+DllExport int
+win32_dup(int fd)
+{
+ Perl_croak(aTHX_ PL_no_func, "dup");
+ return -1;
+}
+
+DllExport int
+win32_dup2(int fd1,int fd2)
+{
+ Perl_croak(aTHX_ PL_no_func, "dup2");
+ return -1;
+}
+
+DllExport int
+win32_read(int fd, void *buf, unsigned int cnt)
+{
+ return xceread(fd, buf, cnt);
+}
+
+DllExport int
+win32_write(int fd, const void *buf, unsigned int cnt)
+{
+ return xcewrite(fd, (void *) buf, cnt);
+}
+
+DllExport int
+win32_mkdir(const char *dir, int mode)
+{
+ return xcemkdir(dir);
+}
+
+DllExport int
+win32_rmdir(const char *dir)
+{
+ return xcermdir(dir);
+}
+
+DllExport int
+win32_chdir(const char *dir)
+{
+ return xcechdir(dir);
+}
+
+DllExport int
+win32_access(const char *path, int mode)
+{
+ return xceaccess(path, mode);
+}
+
+DllExport int
+win32_chmod(const char *path, int mode)
+{
+ return xcechmod(path, mode);
+}
+
+DllExport void
+win32_perror(const char *str)
+{
+ xceperror(str);
+}
+
+DllExport void
+win32_setbuf(FILE *pf, char *buf)
+{
+ Perl_croak(aTHX_ PL_no_func, "setbuf");
+}
+
+DllExport int
+win32_setvbuf(FILE *pf, char *buf, int type, size_t size)
+{
+ return setvbuf(pf, buf, type, size);
+}
+
+DllExport int
+win32_flushall(void)
+{
+ return flushall();
+}
+
+DllExport int
+win32_fcloseall(void)
+{
+ return fcloseall();
+}
+
+DllExport char*
+win32_fgets(char *s, int n, FILE *pf)
+{
+ return fgets(s, n, pf);
+}
+
+DllExport char*
+win32_gets(char *s)
+{
+ return gets(s);
+}
+
+DllExport int
+win32_fgetc(FILE *pf)
+{
+ return fgetc(pf);
+}
+
+DllExport int
+win32_putc(int c, FILE *pf)
+{
+ return putc(c,pf);
+}
+
+DllExport int
+win32_puts(const char *s)
+{
+ return puts(s);
+}
+
+DllExport int
+win32_getchar(void)
+{
+ return getchar();
+}
+
+DllExport int
+win32_putchar(int c)
+{
+ return putchar(c);
+}
+
+#ifdef MYMALLOC
+
+#ifndef USE_PERL_SBRK
+
+static char *committed = NULL;
+static char *base = NULL;
+static char *reserved = NULL;
+static char *brk = NULL;
+static DWORD pagesize = 0;
+static DWORD allocsize = 0;
+
+void *
+sbrk(int need)
+{
+ void *result;
+ if (!pagesize)
+ {SYSTEM_INFO info;
+ GetSystemInfo(&info);
+ /* Pretend page size is larger so we don't perpetually
+ * call the OS to commit just one page ...
+ */
+ pagesize = info.dwPageSize << 3;
+ allocsize = info.dwAllocationGranularity;
+ }
+ /* This scheme fails eventually if request for contiguous
+ * block is denied so reserve big blocks - this is only
+ * address space not memory ...
+ */
+ if (brk+need >= reserved)
+ {
+ DWORD size = 64*1024*1024;
+ char *addr;
+ if (committed && reserved && committed < reserved)
+ {
+ /* Commit last of previous chunk cannot span allocations */
+ addr = (char *) VirtualAlloc(committed,reserved-committed,MEM_COMMIT,PAGE_READWRITE);
+ if (addr)
+ committed = reserved;
+ }
+ /* Reserve some (more) space
+ * Note this is a little sneaky, 1st call passes NULL as reserved
+ * so lets system choose where we start, subsequent calls pass
+ * the old end address so ask for a contiguous block
+ */
+ addr = (char *) VirtualAlloc(reserved,size,MEM_RESERVE,PAGE_NOACCESS);
+ if (addr)
+ {
+ reserved = addr+size;
+ if (!base)
+ base = addr;
+ if (!committed)
+ committed = base;
+ if (!brk)
+ brk = committed;
+ }
+ else
+ {
+ return (void *) -1;
+ }
+ }
+ result = brk;
+ brk += need;
+ if (brk > committed)
+ {
+ DWORD size = ((brk-committed + pagesize -1)/pagesize) * pagesize;
+ char *addr = (char *) VirtualAlloc(committed,size,MEM_COMMIT,PAGE_READWRITE);
+ if (addr)
+ {
+ committed += size;
+ }
+ else
+ return (void *) -1;
+ }
+ return result;
+}
+
+#endif
+#endif
+
+DllExport void*
+win32_malloc(size_t size)
+{
+ return malloc(size);
+}
+
+DllExport void*
+win32_calloc(size_t numitems, size_t size)
+{
+ return calloc(numitems,size);
+}
+
+DllExport void*
+win32_realloc(void *block, size_t size)
+{
+ return realloc(block,size);
+}
+
+DllExport void
+win32_free(void *block)
+{
+ free(block);
+}
+
+DllExport int
+win32_execv(const char *cmdname, const char *const *argv)
+{
+ Perl_croak(aTHX_ PL_no_func, "execv");
+ return -1;
+}
+
+DllExport int
+win32_execvp(const char *cmdname, const char *const *argv)
+{
+ Perl_croak(aTHX_ PL_no_func, "execvp");
+ return -1;
+}
+
+DllExport void*
+win32_dynaload(const char* filename)
+{
+ dTHXo;
+ HMODULE hModule;
+
+ hModule = XCELoadLibraryA(filename);
+
+ return hModule;
+}
+
+// this is needed by Cwd.pm...
+
+static
+XS(w32_GetCwd)
+{
+ dXSARGS;
+ char buf[MAX_PATH];
+ SV *sv = sv_newmortal();
+
+ xcegetcwd(buf, sizeof(buf));
+
+ sv_setpv(sv, xcestrdup(buf));
+ EXTEND(SP,1);
+ SvPOK_on(sv);
+ ST(0) = sv;
+ XSRETURN(1);
+}
+
+static
+XS(w32_SetCwd)
+{
+ dXSARGS;
+
+ if (items != 1)
+ Perl_croak(aTHX_ "usage: Win32::SetCwd($cwd)");
+
+ if (!xcechdir(SvPV_nolen(ST(0))))
+ XSRETURN_YES;
+
+ XSRETURN_NO;
+}
+
+static
+XS(w32_GetTickCount)
+{
+ dXSARGS;
+ DWORD msec = GetTickCount();
+ EXTEND(SP,1);
+ if ((IV)msec > 0)
+ XSRETURN_IV(msec);
+ XSRETURN_NV(msec);
+}
+
+static
+XS(w32_GetOSVersion)
+{
+ dXSARGS;
+ OSVERSIONINFOA osver;
+
+ osver.dwOSVersionInfoSize = sizeof(OSVERSIONINFOA);
+ if (!XCEGetVersionExA(&osver)) {
+ XSRETURN_EMPTY;
+ }
+ XPUSHs(newSVpvn(osver.szCSDVersion, strlen(osver.szCSDVersion)));
+ XPUSHs(newSViv(osver.dwMajorVersion));
+ XPUSHs(newSViv(osver.dwMinorVersion));
+ XPUSHs(newSViv(osver.dwBuildNumber));
+ // WINCE = 3
+ XPUSHs(newSViv(osver.dwPlatformId));
+ PUTBACK;
+}
+
+static
+XS(w32_IsWinNT)
+{
+ dXSARGS;
+ EXTEND(SP,1);
+ XSRETURN_IV(IsWinNT());
+}
+
+static
+XS(w32_IsWin95)
+{
+ dXSARGS;
+ EXTEND(SP,1);
+ XSRETURN_IV(IsWin95());
+}
+
+static
+XS(w32_IsWinCE)
+{
+ dXSARGS;
+ EXTEND(SP,1);
+ XSRETURN_IV(IsWinCE());
+}
+
+static
+XS(w32_GetOemInfo)
+{
+ dXSARGS;
+ wchar_t wbuf[126];
+ char buf[126];
+
+ if(SystemParametersInfoW(SPI_GETOEMINFO, sizeof(wbuf), wbuf, FALSE))
+ WideCharToMultiByte(CP_ACP, 0, wbuf, -1, buf, sizeof(buf), 0, 0);
+ else
+ sprintf(buf, "SystemParametersInfo failed: %d", GetLastError());
+
+ EXTEND(SP,1);
+ XSRETURN_PV(buf);
+}
+
+static
+XS(w32_Sleep)
+{
+ dXSARGS;
+ if (items != 1)
+ Perl_croak(aTHX_ "usage: Win32::Sleep($milliseconds)");
+ Sleep(SvIV(ST(0)));
+ XSRETURN_YES;
+}
+
+static
+XS(w32_CopyFile)
+{
+ dXSARGS;
+ BOOL bResult;
+ if (items != 3)
+ Perl_croak(aTHX_ "usage: Win32::CopyFile($from, $to, $overwrite)");
+
+ {
+ char szSourceFile[MAX_PATH+1];
+ strcpy(szSourceFile, PerlDir_mapA(SvPV_nolen(ST(0))));
+ bResult = XCECopyFileA(szSourceFile, SvPV_nolen(ST(1)),
+ !SvTRUE(ST(2)));
+ }
+
+ if (bResult)
+ XSRETURN_YES;
+
+ XSRETURN_NO;
+}
+
+static
+XS(w32_MessageBox)
+{
+ dXSARGS;
+
+ char *txt;
+ unsigned int res;
+ unsigned int flags = MB_OK;
+
+ txt = SvPV_nolen(ST(0));
+
+ if (items < 1 || items > 2)
+ Perl_croak(aTHX_ "usage: Win32::MessageBox($txt, [$flags])");
+
+ if(items == 2)
+ flags = SvIV(ST(1));
+
+ res = XCEMessageBoxA(NULL, txt, "Perl", flags);
+
+ XSRETURN_IV(res);
+}
+
+static
+XS(w32_GetPowerStatus)
+{
+ dXSARGS;
+
+ SYSTEM_POWER_STATUS_EX sps;
+
+ if(GetSystemPowerStatusEx(&sps, TRUE) == FALSE)
+ {
+ XSRETURN_EMPTY;
+ }
+
+ XPUSHs(newSViv(sps.ACLineStatus));
+ XPUSHs(newSViv(sps.BatteryFlag));
+ XPUSHs(newSViv(sps.BatteryLifePercent));
+ XPUSHs(newSViv(sps.BatteryLifeTime));
+ XPUSHs(newSViv(sps.BatteryFullLifeTime));
+ XPUSHs(newSViv(sps.BackupBatteryFlag));
+ XPUSHs(newSViv(sps.BackupBatteryLifePercent));
+ XPUSHs(newSViv(sps.BackupBatteryLifeTime));
+ XPUSHs(newSViv(sps.BackupBatteryFullLifeTime));
+
+ PUTBACK;
+}
+
+#if UNDER_CE > 200
+static
+XS(w32_ShellEx)
+{
+ dXSARGS;
+
+ char buf[126];
+ SHELLEXECUTEINFO si;
+ char *file, *verb;
+ wchar_t wfile[MAX_PATH];
+ wchar_t wverb[20];
+
+ if (items != 2)
+ Perl_croak(aTHX_ "usage: Win32::ShellEx($file, $verb)");
+
+ file = SvPV_nolen(ST(0));
+ verb = SvPV_nolen(ST(1));
+
+ memset(&si, 0, sizeof(si));
+ si.cbSize = sizeof(si);
+ si.fMask = SEE_MASK_FLAG_NO_UI;
+
+ MultiByteToWideChar(CP_ACP, 0, verb, -1,
+ wverb, sizeof(wverb)/2);
+ si.lpVerb = (TCHAR *)wverb;
+
+ MultiByteToWideChar(CP_ACP, 0, file, -1,
+ wfile, sizeof(wfile)/2);
+ si.lpFile = (TCHAR *)wfile;
+
+ if(ShellExecuteEx(&si) == FALSE)
+ {
+ XSRETURN_NO;
+ }
+ XSRETURN_YES;
+}
+#endif
+
+void
+Perl_init_os_extras(void)
+{
+ dTHXo;
+ char *file = __FILE__;
+ dXSUB_SYS;
+
+ w32_perlshell_tokens = Nullch;
+ w32_perlshell_items = -1;
+ w32_fdpid = newAV(); /* XX needs to be in Perl_win32_init()? */
+ New(1313, w32_children, 1, child_tab);
+ w32_num_children = 0;
+
+ newXS("Win32::GetCwd", w32_GetCwd, file);
+ newXS("Win32::SetCwd", w32_SetCwd, file);
+ newXS("Win32::GetTickCount", w32_GetTickCount, file);
+ newXS("Win32::GetOSVersion", w32_GetOSVersion, file);
+#if UNDER_CE > 200
+ newXS("Win32::ShellEx", w32_ShellEx, file);
+#endif
+ newXS("Win32::IsWinNT", w32_IsWinNT, file);
+ newXS("Win32::IsWin95", w32_IsWin95, file);
+ newXS("Win32::IsWinCE", w32_IsWinCE, file);
+ newXS("Win32::CopyFile", w32_CopyFile, file);
+ newXS("Win32::Sleep", w32_Sleep, file);
+ newXS("Win32::MessageBox", w32_MessageBox, file);
+ newXS("Win32::GetPowerStatus", w32_GetPowerStatus, file);
+ newXS("Win32::GetOemInfo", w32_GetOemInfo, file);
+}
+
+void
+myexit(void)
+{
+ char buf[126];
+
+ puts("Hit return");
+ fgets(buf, sizeof(buf), stdin);
+}
+
+void
+Perl_win32_init(int *argcp, char ***argvp)
+{
+#ifdef UNDER_CE
+ char *p;
+
+ if((p = xcegetenv("PERLDEBUG")) && (p[0] == 'y' || p[0] == 'Y'))
+ atexit(myexit);
+#endif
+
+ MALLOC_INIT;
+}
+
+DllExport int
+win32_flock(int fd, int oper)
+{
+ Perl_croak(aTHX_ PL_no_func, "flock");
+ return -1;
+}
+
+DllExport int
+win32_waitpid(int pid, int *status, int flags)
+{
+ Perl_croak(aTHX_ PL_no_func, "waitpid");
+ return -1;
+}
+
+DllExport int
+win32_wait(int *status)
+{
+ Perl_croak(aTHX_ PL_no_func, "wait");
+ return -1;
+}
+
+int
+do_spawn(char *cmd)
+{
+ return xcesystem(cmd);
+}
+
+int
+do_aspawn(void *vreally, void **vmark, void **vsp)
+{
+ Perl_croak(aTHX_ PL_no_func, "aspawn");
+ return -1;
+}
+
+int
+wce_reopen_stdout(char *fname)
+{
+ if(xcefreopen(fname, "w", stdout) == NULL)
+ return -1;
+
+ return 0;
+}
+
+void
+wce_hitreturn()
+{
+ char buf[126];
+
+ printf("Hit RETURN");
+ fflush(stdout);
+ fgets(buf, sizeof(buf), stdin);
+ return;
+}
+
+//////////////////////////////////////////////////////////////////////
+
+#ifdef PERL_OBJECT
+# undef this
+# define this pPerl
+#endif
+
+void
+win32_argv2utf8(int argc, char** argv)
+{
+ // do nothing...
+}
+
+void
+Perl_sys_intern_init(pTHX)
+{
+ w32_perlshell_tokens = Nullch;
+ w32_perlshell_vec = (char**)NULL;
+ w32_perlshell_items = 0;
+ w32_fdpid = newAV();
+ New(1313, w32_children, 1, child_tab);
+ w32_num_children = 0;
+# ifdef USE_ITHREADS
+ w32_pseudo_id = 0;
+ New(1313, w32_pseudo_children, 1, child_tab);
+ w32_num_pseudo_children = 0;
+# endif
+
+#ifndef UNDER_CE
+ w32_init_socktype = 0;
+#endif
+}
+
+void
+Perl_sys_intern_clear(pTHX)
+{
+ Safefree(w32_perlshell_tokens);
+ Safefree(w32_perlshell_vec);
+ /* NOTE: w32_fdpid is freed by sv_clean_all() */
+ Safefree(w32_children);
+# ifdef USE_ITHREADS
+ Safefree(w32_pseudo_children);
+# endif
+}
+
--- /dev/null
+// wince.h\r
+// \r
+// Time-stamp: <01/08/01 20:48:08 keuchel@w2k>\r
+\r
+// This file includes extracts from the celib-headers, because\r
+// the celib-headers produces macro conflicts with defines in\r
+// win32iop.h etc\r
+\r
+#ifndef WINCE_H\r
+#define WINCE_H 1\r
+\r
+#include "celib_defs.h"\r
+\r
+// include local copies of celib headers...\r
+#include "errno.h"\r
+#include "sys/stat.h"\r
+#include "time.h"\r
+#include "cectype.h"\r
+\r
+#define _IOFBF 0x0000\r
+#define _IOLBF 0x0040\r
+#define _IONBF 0x0004\r
+\r
+#if UNDER_CE <= 200\r
+XCE_EXPORT double xceatof(const char *);\r
+XCE_EXPORT int xcetoupper(int c);\r
+XCE_EXPORT int xcetolower(int c);\r
+#define atof xceatof\r
+#define toupper xcetoupper\r
+#define tolower xcetolower\r
+#else\r
+double atof(const char *);\r
+#endif\r
+\r
+XCE_EXPORT void XCEShowMessageA(const char *fmt, ...);\r
+\r
+#define time xcetime\r
+#define gmtime xcegmtime\r
+#define localtime xcelocaltime\r
+#define asctime xceasctime\r
+//#define utime xceutime\r
+#define futime xcefutime\r
+#define ftime xceftime\r
+#define ctime xcectime\r
+#define gettimeofday xcegettimeofday\r
+\r
+XCE_EXPORT int xcesetuid(uid_t id);\r
+XCE_EXPORT int xceseteuid(uid_t id);\r
+XCE_EXPORT int xcegetuid();\r
+XCE_EXPORT int xcegeteuid();\r
+\r
+XCE_EXPORT int xcesetgid(int id);\r
+XCE_EXPORT int xcesetegid(int id);\r
+XCE_EXPORT int xcegetgid();\r
+XCE_EXPORT int xcegetegid();\r
+\r
+#define setuid xcesetuid\r
+#define getuid xcegetuid\r
+#define geteuid xcegeteuid\r
+#define seteuid xceseteuid\r
+\r
+#define setgid xcesetgid\r
+#define getgid xcegetgid\r
+#define getegid xcegetegid\r
+#define setegid xcesetegid\r
+\r
+XCE_EXPORT int xcechown(const char *filename, int owner, int group);\r
+#define chown xcechown\r
+\r
+XCE_EXPORT char *xcestrrchr(const char * string, int ch);\r
+#define strrchr xcestrrchr\r
+\r
+XCE_EXPORT void (*xcesignal(int, void (*)(int)))(int);\r
+XCE_EXPORT int xceraise(int);\r
+#define signal xcesignal\r
+#define raise xceraise\r
+\r
+XCE_EXPORT int xcecreat(const char *filename, int pmode);\r
+XCE_EXPORT int xceopen(const char *fname, int mode, ...);\r
+XCE_EXPORT int xceread(int fd, void *buf, int size);\r
+XCE_EXPORT int xcewrite(int fd, void *buf, int size);\r
+XCE_EXPORT int xceclose(int fd);\r
+XCE_EXPORT off_t xcelseek(int fd, int off, int whence);\r
+\r
+XCE_EXPORT char *xcestrupr(char *string);\r
+XCE_EXPORT char *xcestrlwr(char *string);\r
+#define strupr xcestrupr\r
+#define strlwr xcestrlwr\r
+\r
+XCE_EXPORT double xcestrtod(const char *s, char **errorptr);\r
+XCE_EXPORT long xcestrtol(const char *s, char **errorptr, int base);\r
+XCE_EXPORT unsigned long xcestrtoul(const char *s, char **errorptr, int base);\r
+#define strtod xcestrtod\r
+#define strtol xcestrtol\r
+#define strtoul xcestrtoul\r
+\r
+XCE_EXPORT int xcestrnicmp(const char *first, const char *last, size_t count);\r
+#define strnicmp xcestrnicmp\r
+\r
+XCE_EXPORT int xceumask(int mask);\r
+#define umask xceumask\r
+\r
+XCE_EXPORT int xceisatty(int fd);\r
+#define isatty xceisatty\r
+\r
+XCE_EXPORT int xcechsize(int fd, unsigned long size);\r
+#define chsize xcechsize\r
+\r
+XCE_EXPORT char *xcegetlogin();\r
+#define getlogin xcegetlogin\r
+\r
+XCE_EXPORT DWORD XCEAPI XCEGetModuleFileNameA(HMODULE hModule, LPTSTR lpName, DWORD nSize);\r
+XCE_EXPORT HMODULE XCEAPI XCEGetModuleHandleA(const char *lpName);\r
+XCE_EXPORT FARPROC XCEAPI XCEGetProcAddressA(HMODULE hMod, const char *name);\r
+\r
+//////////////////////////////////////////////////////////////////////\r
+\r
+#define getgid xcegetgid\r
+#define getegid xcegetegid\r
+#define geteuid xcegeteuid\r
+#define setgid xcesetgid\r
+\r
+#define strupr xcestrupr\r
+#define time xcetime\r
+\r
+XCE_EXPORT LPVOID XCEGetEnvironmentStrings(VOID);\r
+XCE_EXPORT BOOL XCEFreeEnvironmentStrings(LPCSTR buf);\r
+#define GetEnvironmentStrings XCEGetEnvironmentStrings\r
+#define FreeEnvironmentStrings XCEFreeEnvironmentStrings\r
+\r
+void wce_hitreturn();\r
+\r
+#endif\r
--- /dev/null
+// Time-stamp: <01/08/01 21:01:12 keuchel@w2k>
+
+/* wincesck.c
+ *
+ * (c) 1995 Microsoft Corporation. All rights reserved.
+ * Developed by hip communications inc., http://info.hip.com/info/
+ * Portions (c) 1993 Intergraph Corporation. All rights reserved.
+ *
+ * You may distribute under the terms of either the GNU General Public
+ * License or the Artistic License, as specified in the README file.
+ */
+
+// The socket calls use fd functions from celib...
+
+#define WIN32IO_IS_STDIO
+#define WIN32SCK_IS_STDSCK
+#define WIN32_LEAN_AND_MEAN
+
+#ifdef __GNUC__
+#define Win32_Winsock
+#endif
+
+#include <windows.h>
+
+#define wince_private
+#include "errno.h"
+
+#include "EXTERN.h"
+#include "perl.h"
+
+#if defined(PERL_OBJECT)
+#define NO_XSLOCKS
+#include "XSUB.h"
+#endif
+
+#include "Win32iop.h"
+#include <sys/socket.h>
+
+#ifndef UNDER_CE
+#include <fcntl.h>
+#include <sys/stat.h>
+#include <assert.h>
+#include <io.h>
+#endif
+
+#ifdef UNDER_CE
+
+XCE_EXPORT struct servent *xcegetservbyname(const char *sname, const char *sproto);
+XCE_EXPORT struct servent * xcegetservbyport(int aport, const char *sproto);
+XCE_EXPORT struct protoent *xcegetprotobyname(const char *name);
+XCE_EXPORT struct protoent *xcegetprotobynumber(int number);
+
+#define getservbyname xcegetservbyname
+#define getservbyport xcegetservbyport
+#define getprotobyname xcegetprotobyname
+#define getprotobynumber xcegetprotobynumber
+
+// uses fdtab...
+#include "cesocket2.h"
+
+#endif
+
+#define TO_SOCKET(X) (X)
+
+#ifdef USE_THREADS
+#define StartSockets() \
+ STMT_START { \
+ if (!wsock_started) \
+ start_sockets(); \
+ set_socktype(); \
+ } STMT_END
+#else
+#define StartSockets() \
+ STMT_START { \
+ if (!wsock_started) { \
+ start_sockets(); \
+ set_socktype(); \
+ } \
+ } STMT_END
+#endif
+
+#define EndSockets() \
+ STMT_START { \
+ if (wsock_started) \
+ WSACleanup(); \
+ } STMT_END
+
+#define SOCKET_TEST(x, y) \
+ STMT_START { \
+ StartSockets(); \
+ if((x) == (y)) \
+ errno = WSAGetLastError(); \
+ } STMT_END
+
+#define SOCKET_TEST_ERROR(x) SOCKET_TEST(x, SOCKET_ERROR)
+
+static struct servent* win32_savecopyservent(struct servent*d,
+ struct servent*s,
+ const char *proto);
+
+static int wsock_started = 0;
+
+void
+start_sockets(void)
+{
+ dTHXo;
+ unsigned short version;
+ WSADATA retdata;
+ int ret;
+
+ /*
+ * initalize the winsock interface and insure that it is
+ * cleaned up at exit.
+ */
+ version = 0x101;
+ if(ret = WSAStartup(version, &retdata))
+ Perl_croak_nocontext("Unable to locate winsock library!\n");
+ if(retdata.wVersion != version)
+ Perl_croak_nocontext("Could not find version 1.1 of winsock dll\n");
+
+ /* atexit((void (*)(void)) EndSockets); */
+ wsock_started = 1;
+}
+
+void
+set_socktype(void)
+{
+}
+
+u_long
+win32_htonl(u_long hostlong)
+{
+ StartSockets();
+ return htonl(hostlong);
+}
+
+u_short
+win32_htons(u_short hostshort)
+{
+ StartSockets();
+ return htons(hostshort);
+}
+
+u_long
+win32_ntohl(u_long netlong)
+{
+ StartSockets();
+ return ntohl(netlong);
+}
+
+u_short
+win32_ntohs(u_short netshort)
+{
+ StartSockets();
+ return ntohs(netshort);
+}
+
+SOCKET
+win32_socket(int af, int type, int protocol)
+{
+ StartSockets();
+ return xcesocket(af, type, protocol);
+}
+
+SOCKET
+win32_accept(SOCKET s, struct sockaddr *addr, int *addrlen)
+{
+ StartSockets();
+ return xceaccept(s, addr, addrlen);
+}
+
+int
+win32_bind(SOCKET s, const struct sockaddr *addr, int addrlen)
+{
+ StartSockets();
+ return xcebind(s, addr, addrlen);
+}
+
+int
+win32_connect(SOCKET s, const struct sockaddr *addr, int addrlen)
+{
+ StartSockets();
+ return xceconnect(s, addr, addrlen);
+}
+
+
+int
+win32_getpeername(SOCKET s, struct sockaddr *addr, int *addrlen)
+{
+ StartSockets();
+ return xcegetpeername(s, addr, addrlen);
+}
+
+int
+win32_getsockname(SOCKET s, struct sockaddr *addr, int *addrlen)
+{
+ StartSockets();
+ return xcegetsockname(s, addr, addrlen);
+}
+
+int
+win32_getsockopt(SOCKET s, int level, int optname, char *optval, int *optlen)
+{
+ StartSockets();
+ return xcegetsockopt(s, level, optname, optval, optlen);
+}
+
+int
+win32_ioctlsocket(SOCKET s, long cmd, u_long *argp)
+{
+ StartSockets();
+ return xceioctlsocket(s, cmd, argp);
+}
+
+int
+win32_listen(SOCKET s, int backlog)
+{
+ StartSockets();
+ return xcelisten(s, backlog);
+}
+
+int
+win32_recv(SOCKET s, char *buf, int len, int flags)
+{
+ StartSockets();
+ return xcerecv(s, buf, len, flags);
+}
+
+int
+win32_recvfrom(SOCKET s, char *buf, int len, int flags,
+ struct sockaddr *from, int *fromlen)
+{
+ StartSockets();
+ return xcerecvfrom(s, buf, len, flags, from, fromlen);
+}
+
+int
+win32_select(int nfds, Perl_fd_set* rd, Perl_fd_set* wr,
+ Perl_fd_set* ex, const struct timeval* timeout)
+{
+ StartSockets();
+ // select not yet fixed
+ errno = ENOSYS;
+ return -1;
+}
+
+int
+win32_send(SOCKET s, const char *buf, int len, int flags)
+{
+ StartSockets();
+ return xcesend(s, buf, len, flags);
+}
+
+int
+win32_sendto(SOCKET s, const char *buf, int len, int flags,
+ const struct sockaddr *to, int tolen)
+{
+ StartSockets();
+ return xcesendto(s, buf, len, flags, to, tolen);
+}
+
+int
+win32_setsockopt(SOCKET s, int level, int optname,
+ const char *optval, int optlen)
+{
+ StartSockets();
+ return xcesetsockopt(s, level, optname, optval, optlen);
+}
+
+int
+win32_shutdown(SOCKET s, int how)
+{
+ StartSockets();
+ return xceshutdown(s, how);
+}
+
+int
+win32_closesocket(SOCKET s)
+{
+ StartSockets();
+ return xceclosesocket(s);
+}
+
+struct hostent *
+win32_gethostbyaddr(const char *addr, int len, int type)
+{
+ struct hostent *r;
+
+ SOCKET_TEST(r = gethostbyaddr(addr, len, type), NULL);
+ return r;
+}
+
+struct hostent *
+win32_gethostbyname(const char *name)
+{
+ struct hostent *r;
+
+ SOCKET_TEST(r = gethostbyname(name), NULL);
+ return r;
+}
+
+int
+win32_gethostname(char *name, int len)
+{
+ int r;
+
+ SOCKET_TEST_ERROR(r = gethostname(name, len));
+ return r;
+}
+
+struct protoent *
+win32_getprotobyname(const char *name)
+{
+ struct protoent *r;
+
+ SOCKET_TEST(r = getprotobyname(name), NULL);
+ return r;
+}
+
+struct protoent *
+win32_getprotobynumber(int num)
+{
+ struct protoent *r;
+
+ SOCKET_TEST(r = getprotobynumber(num), NULL);
+ return r;
+}
+
+struct servent *
+win32_getservbyname(const char *name, const char *proto)
+{
+ dTHXo;
+ struct servent *r;
+
+ SOCKET_TEST(r = getservbyname(name, proto), NULL);
+ if (r) {
+ r = win32_savecopyservent(&w32_servent, r, proto);
+ }
+ return r;
+}
+
+struct servent *
+win32_getservbyport(int port, const char *proto)
+{
+ dTHXo;
+ struct servent *r;
+
+ SOCKET_TEST(r = getservbyport(port, proto), NULL);
+ if (r) {
+ r = win32_savecopyservent(&w32_servent, r, proto);
+ }
+ return r;
+}
+
+int
+win32_ioctl(int i, unsigned int u, char *data)
+{
+ dTHXo;
+ u_long argp = (u_long)data;
+ int retval;
+
+ if (!wsock_started) {
+ Perl_croak_nocontext("ioctl implemented only on sockets");
+ /* NOTREACHED */
+ }
+
+ retval = ioctlsocket(TO_SOCKET(i), (long)u, &argp);
+ if (retval == SOCKET_ERROR) {
+ if (WSAGetLastError() == WSAENOTSOCK) {
+ Perl_croak_nocontext("ioctl implemented only on sockets");
+ /* NOTREACHED */
+ }
+ errno = WSAGetLastError();
+ }
+ return retval;
+}
+
+char FAR *
+win32_inet_ntoa(struct in_addr in)
+{
+ StartSockets();
+ return inet_ntoa(in);
+}
+
+unsigned long
+win32_inet_addr(const char FAR *cp)
+{
+ StartSockets();
+ return inet_addr(cp);
+}
+
+/*
+ * Networking stubs
+ */
+
+void
+win32_endhostent()
+{
+ dTHXo;
+ Perl_croak_nocontext("endhostent not implemented!\n");
+}
+
+void
+win32_endnetent()
+{
+ dTHXo;
+ Perl_croak_nocontext("endnetent not implemented!\n");
+}
+
+void
+win32_endprotoent()
+{
+ dTHXo;
+ Perl_croak_nocontext("endprotoent not implemented!\n");
+}
+
+void
+win32_endservent()
+{
+ dTHXo;
+ Perl_croak_nocontext("endservent not implemented!\n");
+}
+
+
+struct netent *
+win32_getnetent(void)
+{
+ dTHXo;
+ Perl_croak_nocontext("getnetent not implemented!\n");
+ return (struct netent *) NULL;
+}
+
+struct netent *
+win32_getnetbyname(char *name)
+{
+ dTHXo;
+ Perl_croak_nocontext("getnetbyname not implemented!\n");
+ return (struct netent *)NULL;
+}
+
+struct netent *
+win32_getnetbyaddr(long net, int type)
+{
+ dTHXo;
+ Perl_croak_nocontext("getnetbyaddr not implemented!\n");
+ return (struct netent *)NULL;
+}
+
+struct protoent *
+win32_getprotoent(void)
+{
+ dTHXo;
+ Perl_croak_nocontext("getprotoent not implemented!\n");
+ return (struct protoent *) NULL;
+}
+
+struct servent *
+win32_getservent(void)
+{
+ dTHXo;
+ Perl_croak_nocontext("getservent not implemented!\n");
+ return (struct servent *) NULL;
+}
+
+void
+win32_sethostent(int stayopen)
+{
+ dTHXo;
+ Perl_croak_nocontext("sethostent not implemented!\n");
+}
+
+
+void
+win32_setnetent(int stayopen)
+{
+ dTHXo;
+ Perl_croak_nocontext("setnetent not implemented!\n");
+}
+
+
+void
+win32_setprotoent(int stayopen)
+{
+ dTHXo;
+ Perl_croak_nocontext("setprotoent not implemented!\n");
+}
+
+
+void
+win32_setservent(int stayopen)
+{
+ dTHXo;
+ Perl_croak_nocontext("setservent not implemented!\n");
+}
+
+static struct servent*
+win32_savecopyservent(struct servent*d, struct servent*s, const char *proto)
+{
+ d->s_name = s->s_name;
+ d->s_aliases = s->s_aliases;
+ d->s_port = s->s_port;
+#ifndef __BORLANDC__ /* Buggy on Win95 and WinNT-with-Borland-WSOCK */
+ if (!IsWin95() && s->s_proto && strlen(s->s_proto))
+ d->s_proto = s->s_proto;
+ else
+#endif
+ if (proto && strlen(proto))
+ d->s_proto = (char *)proto;
+ else
+ d->s_proto = "tcp";
+
+ return d;
+}
--- /dev/null
+# Time-stamp: <01/08/01 21:03:25 keuchel@w2k>\r
+#\r
+# rebuild all perl targets\r
+\r
+machines="\r
+wince-arm-hpc-wce300\r
+wince-arm-hpc-wce211\r
+wince-sh3-hpc-wce211\r
+wince-mips-hpc-wce211\r
+wince-mips-hpc-wce200\r
+wince-sh3-hpc-wce200\r
+wince-arm-pocket-wce300\r
+wince-mips-pocket-wce300\r
+wince-sh3-pocket-wce300\r
+wince-x86em-pocket-wce300\r
+wince-sh3-palm-wce211\r
+wince-mips-palm-wce211\r
+wince-x86em-palm-wce211\r
+"\r
+\r
+for mach in $machines; do\r
+ mflags="-f makefile.ce MACHINE=$mach"\r
+ echo "Calling nmake for $mach..."\r
+ nmake $mflags clean\r
+ nmake $mflags all\r
+ nmake $mflags all dlls || exit 1\r
+ nmake $mflags makedist\r
+done\r
+\r
--- /dev/null
+tdirs=`xfind . -type d -name 'wince-*'`\r
+test "$tdirs" = "" || rm -rf $dirs\r
+rm -f *.res *.pdb *~\r
+\r
--- /dev/null
+cd h:/src\r
+\r
+files="perl.c perlio.c perl.h"\r
+\r
+for f in $files; do\r
+ diff -c vc/perl/$f wince/perl/$f\r
+done\r
+\r
https://perl5.git.perl.org / perl5.git / commitdiff