Re: Merge WinCE into Win32 directory and remove the the WinCE directory
authorYves Orton <demerphq@gmail.com>
Mon, 1 May 2006 19:02:09 +0000 (21:02 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 2 May 2006 14:28:31 +0000 (14:28 +0000)
Message-ID: <9b18b3110605011002m56c0db99n169ae677efb6d059@mail.gmail.com>

Plus adjustements to MANIFEST. Also, perlmain.c seemed to be missing
from the patch.

p4raw-id: //depot/perl@28061

42 files changed:
MANIFEST
win32/Makefile.ce [moved from wince/Makefile.ce with 95% similarity]
win32/cecopy-lib.pl [moved from wince/cecopy-lib.pl with 100% similarity]
win32/comp.pl [moved from wince/comp.pl with 100% similarity]
win32/compile-all.bat [moved from wince/compile-all.bat with 97% similarity]
win32/compile.bat [moved from wince/compile.bat with 100% similarity]
win32/config.ce [moved from wince/config.ce with 100% similarity]
win32/config_H.ce [moved from wince/config_H.ce with 99% similarity]
win32/include/sys/socket.h
win32/makedist.pl [moved from wince/makedist.pl with 99% similarity]
win32/perl.rc [moved from wince/perl.rc with 100% similarity]
win32/perlmain.c [moved from wince/perlmain.c with 100% similarity]
win32/registry.bat [moved from wince/registry.bat with 100% similarity, mode: 0644]
win32/win32-d.h [new file with mode: 0644]
win32/win32.h
win32/win32ceio.c [moved from wince/win32io.c with 99% similarity]
win32/win32iop-o.h [moved from wince/win32iop.h with 99% similarity]
win32/win32thread.h
win32/wince.c [moved from wince/wince.c with 93% similarity]
win32/wince.h [moved from wince/wince.h with 92% similarity]
win32/wincesck.c [moved from wince/wincesck.c with 94% similarity]
win32/xconfig.h [new file with mode: 0644]
wince/bin/exetype.pl [deleted file]
wince/bin/perlglob.pl [deleted file]
wince/bin/pl2bat.pl [deleted file]
wince/bin/runperl.pl [deleted file]
wince/bin/search.pl [deleted file]
wince/config_h.PL [deleted file]
wince/config_sh.PL [deleted file]
wince/dl_win32.xs [deleted file]
wince/include/arpa/inet.h [deleted file]
wince/include/sys/socket.h [deleted file]
wince/makeico.pl [deleted file]
wince/perlhost.h [deleted file]
wince/perllib.c [deleted file]
wince/runperl.c [deleted file]
wince/splittree.pl [deleted file]
wince/vdir.h [deleted file]
wince/vmem.h [deleted file]
wince/win32.h [deleted file]
wince/win32thread.c [deleted file]
wince/win32thread.h [deleted file]

index 7d34252..fb6d310 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -3621,91 +3621,73 @@ vos/vos.c                       VOS emulations for missing POSIX functions
 vos/vosish.h                   VOS-specific header file
 warnings.h                     The warning numbers
 warnings.pl                    Program to write warnings.h and lib/warnings.pm
+win32/FindExt.pm               Scan for extensions
+win32/Makefile                 Win32 makefile for NMAKE (Visual C++ build)
+win32/Makefile.ce              WinCE port
 win32/bin/exetype.pl           Set executable type to CONSOLE or WINDOWS
 win32/bin/perlglob.pl          Win32 globbing
 win32/bin/pl2bat.pl            wrap perl scripts into batch files
 win32/bin/runperl.pl           run perl script via batch file namesake
 win32/bin/search.pl            Win32 port
 win32/buildext.pl              Build extensions once miniperl is built
+win32/cecopy-lib.pl            WinCE port
+win32/comp.pl                  WinCE port
+win32/compile-all.bat          WinCE port
+win32/compile.bat              WinCE port
 win32/config.bc                        Win32 base line config.sh (Borland C++ build)
+win32/config.ce                        WinCE port
 win32/config.gc                        Win32 base line config.sh (mingw32/gcc build)
+win32/config.vc                        Win32 base line config.sh (Visual C++ build)
+win32/config.vc64              Win64 base line config.sh (Visual C++ build)
 win32/config_H.bc              Win32 config header (Borland C++ build)
+win32/config_H.ce              WinCE port
 win32/config_H.gc              Win32 config header (GNU build)?
-win32/config_h.PL              Perl code to convert Win32 config.sh to config.h
 win32/config_H.vc              Win32 config header (Visual C++ build)
 win32/config_H.vc64            Win64 config header (Visual C++ build)
+win32/config_h.PL              Perl code to convert Win32 config.sh to config.h
 win32/config_sh.PL             Perl code to update Win32 config.sh from Makefile
-win32/config.vc                        Win32 base line config.sh (Visual C++ build)
-win32/config.vc64              Win64 base line config.sh (Visual C++ build)
 win32/distclean.bat            Remove _ALL_ files not listed here in MANIFEST
 win32/dl_win32.xs              Win32 port
 win32/ext/Win32/Makefile.PL    Win32 extension makefile writer
 win32/ext/Win32/Win32.pm       Win32 extension Perl module
 win32/ext/Win32/Win32.xs       Win32 extension external subroutines
 win32/fcrypt.c                 crypt() implementation
-win32/FindExt.pm               Scan for extensions
 win32/genmk95.pl               Perl code to generate command.com-usable makefile.95
 win32/include/arpa/inet.h      Win32 port
 win32/include/dirent.h         Win32 port
 win32/include/netdb.h          Win32 port
 win32/include/sys/socket.h     Win32 port
-win32/Makefile                 Win32 makefile for NMAKE (Visual C++ build)
+win32/makedist.pl              WinCE port
 win32/makefile.mk              Win32 makefile for DMAKE (BC++, VC++ builds)
 win32/makeico.pl               script to create perlexe.ico image file
 win32/mdelete.bat              multifile delete
+win32/perl.rc                  WinCE port
 win32/perlexe.rc               associated perl binary with icon
 win32/perlglob.c               Win32 port
 win32/perlhost.h               Perl "host" implementation
 win32/perllib.c                        Win32 port
+win32/perlmain.c               WinCE port
 win32/pod.mak                  Win32 port
+win32/registry.bat             WinCE port
 win32/runperl.c                        Win32 port
 win32/splittree.pl             Win32 port
 win32/sync_ext.pl              Win32 port
-win32/vdir.h                   Perl "host" virtual directory manager
-win32/vmem.h                   Perl "host" memory manager
+win32/vdir.h                   Perl "host" virtual directory manager for CE
+win32/vmem.h                   Perl "host" memory manager for CE
 win32/win32.c                  Win32 port
 win32/win32.h                  Win32 port
+win32/win32-d.h                        WinCE port
+win32/win32ceio.c              Win32/WinCE PerlIO layer support
 win32/win32io.c                        Win32 PerlIO layer support
 win32/win32iop.h               Win32 port
+win32/win32iop-o.h             WinCE 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/cecopy-lib.pl                    WinCE port
-wince/compile-all.bat                  WinCE port
-wince/compile.bat                      WinCE port
-wince/comp.pl                          WinCE port
-wince/config.ce                                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/include/arpa/inet.h              WinCE port
-wince/include/sys/socket.h             WinCE port
-wince/makedist.pl                      WinCE port
-wince/Makefile.ce                      WinCE port
-wince/makeico.pl                       WinCE port
-wince/perlhost.h       Perl "host" implementation
-wince/perllib.c                                WinCE port
-wince/perlmain.c                       WinCE port
-wince/perl.rc                          WinCE port
-wince/registry.bat                     WinCE port
-wince/runperl.c                                WinCE port
-wince/splittree.pl                     WinCE port
-wince/vdir.h                   Perl "host" virtual directory manager for CE
-wince/vmem.h                   Perl "host" memory manager for CE
-wince/win32.h                          WinCE port
-wince/win32io.c                                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
+win32/wince.c                  WinCE port
+win32/wince.h                  WinCE port
+win32/wincesck.c               WinCE port
+win32/xconfig.h                        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
similarity index 95%
rename from wince/Makefile.ce
rename to win32/Makefile.ce
index 1becaaf..9fe5d32 100644 (file)
@@ -12,7 +12,7 @@ INST_TOP=$(INSTALL_ROOT)
 INST_VER=
 
 # PERLCEDIR shoud be set to current directory
-PERLCEDIR  = H:\src\wince\perl\wince
+PERLCEDIR  = H:\src\wince\perl\win32
 
 # WCEROOT is a directory where Windows CE Tools was installed
 WCEROOT    = D:\Windows CE Tools
@@ -42,10 +42,10 @@ RCOPY          = xcopy $(YES) /f /r /i /e /d
 CECOPY     = cecopy
 
 #
-# Comment out next assign to disable perl's I/O subsystem and use compiler's 
-# stdio for IO - depending on your compiler vendor and run time library you may 
-# then get a number of fails from make test i.e. bugs - complain to them not us ;-). 
-# You will also be unable to take full advantage of perl5.8's support for multiple 
+# Comment out next assign to disable perl's I/O subsystem and use compiler's
+# stdio for IO - depending on your compiler vendor and run time library you may
+# then get a number of fails from make test i.e. bugs - complain to them not us ;-).
+# You will also be unable to take full advantage of perl5.8's support for multiple
 # encodings and may see lower IO performance. You have been warned.
 USE_PERLIO     = define
 
@@ -266,7 +266,7 @@ OSVERSION  = WCE300
 PLATFORM   = MS Pocket PC
 MCFLAGS    = -DX86 -D_X86_ -DPROCESSOR_X86 -D _MT -D _DLL \
              -D_WIN32_WCE_EMULATION -DPALM_SIZE -DPOCKET_SIZE \
-             -I $(CELIBDLLDIR)\inc 
+             -I $(CELIBDLLDIR)\inc
 MACH       = -machine:x86
 SUBSYS     = -subsystem:windows
 CELIBPATH  = $(CELIBDLLDIR)\$(MACHINE)-release
@@ -285,7 +285,7 @@ OSVERSION  = WCE300
 PLATFORM   = MS Pocket PC
 MCFLAGS    = -D MIPS -D mips -D _MIPS_ -D _mips_ -DPROCESSOR_MIPS \
              -D _MT -D _DLL -DPALM_SIZE -DPOCKET_SIZE \
-             -I $(CELIBDLLDIR)\inc 
+             -I $(CELIBDLLDIR)\inc
 MACH       = -machine:mips
 SUBSYS     = -subsystem:windowsce,3.00
 CELIBPATH  = $(CELIBDLLDIR)\$(MACHINE)-release
@@ -306,7 +306,7 @@ OSVERSION  = WCE300
 PLATFORM   = MS Pocket PC
 MCFLAGS    = -D _MT -D _DLL -DSH3 -D_SH3_ -DSHx -DPROCESSOR_SH3 \
              -DPALM_SIZE -DPOCKET_SIZE \
-             -I $(CELIBDLLDIR)\inc 
+             -I $(CELIBDLLDIR)\inc
 MACH       = -machine:sh3
 SUBSYS     = -subsystem:windowsce,3.00
 CELIBPATH  = $(CELIBDLLDIR)\$(MACHINE)-release
@@ -325,7 +325,7 @@ OSVERSION  = WCE300
 PLATFORM   = MS Pocket PC
 MCFLAGS    = -D ARM -D arm -D _ARM_ -D _arm_ -DPROCESSOR_ARM \
              -D _MT -D _DLL -DPALM_SIZE -DPOCKET_SIZE \
-             -I $(CELIBDLLDIR)\inc 
+             -I $(CELIBDLLDIR)\inc
 MACH       = -machine:arm
 SUBSYS     = -subsystem:windowsce,3.00
 CELIBPATH  = $(CELIBDLLDIR)\$(MACHINE)-release
@@ -456,7 +456,7 @@ LINK32              = link
 LIB32          = $(LINK32) -lib
 RSC            = rc
 
-INCLUDES       = -I.\include -I..\win32\include -I. -I..
+INCLUDES       = -I.\include -I. -I..
 DEFINES                = -DWIN32 -D_CONSOLE -DNO_STRICT $(CRYPT_FLAG) $(CECFLAGS)
 LOCDEFS                = -DPERLDLL -DPERL_CORE
 CXX_FLAG       = -TP
@@ -476,9 +476,9 @@ CELIBS          = -nodefaultlib \
                   winsock.lib $(CELIB) coredll.lib
 
 !if $(CEVersion) > 200
-CELIBS          = $(CELIBS) corelibc.lib 
+CELIBS          = $(CELIBS) corelibc.lib
 !else
-CELIBS          = $(CELIBS) msvcrt.lib 
+CELIBS          = $(CELIBS) msvcrt.lib
 !endif
 
 LIBBASEFILES   = $(CRYPT_LIB) $(CELIBS)
@@ -491,9 +491,9 @@ CFLAGS              = -nologo -Gf -W3 $(INCLUDES) $(DEFINES) $(LOCDEFS) \
 LINK_FLAGS     = -nologo -machine:$(PROCESSOR_ARCHITECTURE)
 
 !if "$(CFG)" == "DEBUG"
-LINK_FLAGS      = $(LINK_FLAGS) -debug:full -pdb:none 
+LINK_FLAGS      = $(LINK_FLAGS) -debug:full -pdb:none
 !else
-LINK_FLAGS      = $(LINK_FLAGS) -release 
+LINK_FLAGS      = $(LINK_FLAGS) -release
 !endif
 
 OBJOUT_FLAG    = -Fo
@@ -505,7 +505,7 @@ o = .obj
 
 #
 # Rules
-# 
+#
 
 .SUFFIXES : .c $(o) .dll .lib .exe .rc .res
 
@@ -518,7 +518,7 @@ o = .obj
 $(o).dll:
        $(LINK32) -dll $(SUBSYS) $(LDLIBPATH) \
             -implib:$(*B).lib -def:$(*B).def \
-           -out:$@ $(LINK_FLAGS) $(LIBFILES) $< $(LIBPERL)  
+           -out:$@ $(LINK_FLAGS) $(LIBFILES) $< $(LIBPERL)
 
 .rc.res:
        $(RSC) -i.. $<
@@ -606,7 +606,7 @@ EXTRACORE_SRC       = $(EXTRACORE_SRC) ..\perlio.c .\win32io.c
 WIN32_SRC      =               \
                .\wince.c       \
                .\wincesck.c    \
-               .\win32thread.c 
+               .\win32thread.c
 
 !IF "$(CRYPT_SRC)" != ""
 WIN32_SRC      = $(WIN32_SRC) .\$(CRYPT_SRC)
@@ -732,28 +732,28 @@ all: hostminiperl $(MINIMOD) $(CONFIGPM) $(UNIDATAFILES) $(PERLEXE) Extensions
 
 $(DYNALOADER)$(o) : $(DYNALOADER).c $(CORE_H) $(EXTDIR)\DynaLoader\dlutils.c
 
-$(CONFIGPM): .\config.h ..\config.sh ..\minimod.pl
+$(CONFIGPM): .\xconfig.h ..\config.sh ..\minimod.pl
        cd .. && $(HPERL) configpm --cross=$(CROSS_NAME) --no-glossary
        -mkdir $(XCOREDIR)
        $(XCOPY) ..\*.h $(XCOREDIR)\*.*
        $(XCOPY) ..\*.inc $(XCOREDIR)\*.*
        $(XCOPY) *.h $(XCOREDIR)\*.*
+       $(XCOPY) xconfig.h $(XCOREDIR)\config.h
        $(XCOPY) ..\ext\re\re.pm $(LIBDIR)\*.*
        $(RCOPY) include $(XCOREDIR)\*.*
-       $(XCOPY) ..\win32\include $(XCOREDIR)\*.*
-       $(HPERL) -I..\lib -MCross=$(CROSS_NAME) config_h.PL "INST_VER=$(INST_VER)" "CORE_DIR=$(XCOREDIR)"
+       $(HPERL) -I..\lib -MCross=$(CROSS_NAME) config_h.PL "INST_VER=$(INST_VER)" "CORE_DIR=$(XCOREDIR)" "CONFIG_H=xconfig.h"
 
-.\config.h:
-       -del /f config.h
-       copy config_H.ce config.h
+.\xconfig.h:
+       -del /f xconfig.h
+       copy config_H.ce xconfig.h
 
 ..\config.sh: config.ce config_sh.PL
-       $(HPERL) -I..\lib -I..\win32 config_sh.PL $(CFG_VARS) config.ce > ..\config.sh
+       $(HPERL) -I..\lib -I. config_sh.PL $(CFG_VARS) config.ce > ..\config.sh
 
 $(MINIMOD) : ..\minimod.pl
        cd .. && $(HPERL) minimod.pl > lib\ExtUtils\Miniperl.pm
 
-perlmain.c : runperl.c 
+perlmain.c : runperl.c
        $(COPY) runperl.c perlmain.c
 
 $(DYNALOADER).c: $(EXTDIR)\DynaLoader\dl_win32.xs $(CONFIGPM)
@@ -761,12 +761,12 @@ $(DYNALOADER).c: $(EXTDIR)\DynaLoader\dl_win32.xs $(CONFIGPM)
        cd $(EXTDIR)\$(*B)
        $(HPERL) -I..\..\lib -MCross=$(CROSS_NAME) $(*B)_pm.PL
        $(HPERL) -I..\..\lib -MCross=$(CROSS_NAME) XSLoader_pm.PL
-       cd ..\..\wince
+       cd ..\..\win
        $(XCOPY) $(EXTDIR)\$(*B)\$(*B).pm $(LIBDIR)\$(NULL)
        $(XCOPY) $(EXTDIR)\$(*B)\XSLoader.pm $(LIBDIR)\$(NULL)
        cd $(EXTDIR)\$(*B)
        $(XSUBPP) dl_win32.xs > $(*B).c
-       cd ..\..\wince
+       cd ..\..\win
 
 $(EXTDIR)\DynaLoader\dl_win32.xs: dl_win32.xs
        $(COPY) dl_win32.xs $(EXTDIR)\DynaLoader\dl_win32.xs
@@ -780,11 +780,11 @@ NOT_COMPILE_EXT = $(NOT_COMPILE_EXT) !XS/Typemap
 NOT_COMPILE_EXT = $(NOT_COMPILE_EXT) !XS/Typemap
 !endif
 
-Extensions: ..\win32\buildext.pl $(PERLDEP) $(CONFIGPM)
-       $(HPERL) -I..\lib -I..\win32 -MCross=$(CROSS_NAME) ..\win32\buildext.pl $(MAKE) $(PERLDEP) $(EXTDIR) \
+Extensions: .\buildext.pl $(PERLDEP) $(CONFIGPM)
+       $(HPERL) -I..\lib -I. -MCross=$(CROSS_NAME) .\buildext.pl $(MAKE) $(PERLDEP) $(EXTDIR) \
        !POSIX $(NOT_COMPILE_EXT)
 
-Extensions_clean: 
+Extensions_clean:
        -if exist $(MINIPERL) $(MINIPERL) -I..\lib buildext.pl $(MAKE) $(PERLDEP) $(EXTDIR) clean
 
 #----------------------------------------------------------------------------------
@@ -792,7 +792,7 @@ Extensions_clean:
 $(PERLEXE_RES): perl.rc perl.ico
        rc $(RCDEFS) perl.rc
 
-clean: 
+clean:
        -rm -f $(MACHINE)/dll/*
        -rm -f $(MACHINE)/*.obj
        -rm -f $(MACHINE)/*.exe
@@ -859,7 +859,7 @@ XDLLOBJS    = $(XDLLOBJS) $(DLLDIR)\fcrypt.obj
 $(DLLDIR)\toke.obj:
     $(CC) -c $(CFLAGS_O) -QMOb9000 -DPERL_EXTERNAL_GLOB -Fo$(DLLDIR)\ ..\toke.c
 
-{$(SRCDIR)/wince}.c{$(DLLDIR)}.obj:
+{$(SRCDIR)/win}.c{$(DLLDIR)}.obj:
     $(CC) -c $(CFLAGS_O) -DPERL_EXTERNAL_GLOB -Fo$(DLLDIR)\ $<
 
 # -DPERL_IMPLICIT_SYS needs C++ for perllib.c
@@ -871,6 +871,7 @@ $(DLLDIR)\perllib$(o)       : perllib.c .\perlhost.h .\vdir.h .\vmem.h
 !ENDIF
 
 perldll.def : $(HPERL) $(CONFIGPM) ..\global.sym ..\pp.sym ..\makedef.pl
+       $(HPERL) -MCross -I..\lib buildext.pl --create-perllibst-h
        $(HPERL) -w ..\makedef.pl PLATFORM=wince $(OPTIMIZE) $(DEFINES) $(BUILDOPT) \
            CCTYPE=$(CCTYPE) -DPERL_DLL=$(PERLDLL) > perldll.def
 
@@ -951,15 +952,13 @@ zip:
        $(HPERL) -I..\lib -MCross=$(CROSS_NAME) makedist.pl --distdir=dist-$(CROSS_NAME) --cross-name=$(CROSS_NAME) --zip
 
 perl.ico:
-       $(HPERL) makeico.pl
+       $(HPERL) makeico.pl perl.ico
 
 hostminiperl: ..\miniperl.exe
 
 ..\miniperl.exe:
-       cd ../win32
        set PATH=$(CCHOME)\bin;$(PATH)
        $(MAKE) -f Makefile "CCHOME=$(MSVCDIR)" "CCINCDIR=$(CCHOME)\include" "CCLIBDIR=$(CCHOME)\lib" "INCLUDE=$(CCHOME)\include" "LIB=$(CCHOME)\lib" "LINK_FLAGS=" .\config.h ..\miniperl.exe
-       cd ../wince
 
 host-install:
        perl -MConfig -MExtUtils::Install -we "install({'../lib/CORE', qq#$$Config{installprefixexp}/xlib/$(CROSS_NAME)/CORE#},1)"
similarity index 100%
rename from wince/cecopy-lib.pl
rename to win32/cecopy-lib.pl
similarity index 100%
rename from wince/comp.pl
rename to win32/comp.pl
similarity index 97%
rename from wince/compile-all.bat
rename to win32/compile-all.bat
index c85f5e9..c546bb2 100644 (file)
@@ -1,62 +1,62 @@
-@echo off\r
-rem\r
-rem Normally you do not need to run this file.\r
-rem Instead you should edit and execute compile.bat .\r
-rem\r
-rem This file assumes that you have a set of appropriate\r
-rem bat-files that prepare environment variables for build process\r
-rem and execute commands passed as arguments\r
-rem\r
-\r
-call wcearm-300 compile.bat "MACHINE=wince-arm-hpc-wce300"\r
-call wcearm-300 compile.bat "MACHINE=wince-arm-hpc-wce300" zipdist\r
-..\miniperl makedist.pl --clean-exts\r
-\r
-call wcearm-211 compile.bat "MACHINE=wince-arm-hpc-wce211"\r
-call wcearm-211 compile.bat "MACHINE=wince-arm-hpc-wce211"  zipdist\r
-..\miniperl makedist.pl --clean-exts\r
-\r
-call wcesh3-211 compile.bat "MACHINE=wince-sh3-hpc-wce211"\r
-call wcesh3-211 compile.bat "MACHINE=wince-sh3-hpc-wce211"  zipdist\r
-..\miniperl makedist.pl --clean-exts\r
-\r
-call wcemips-211 compile.bat "MACHINE=wince-mips-hpc-wce211"\r
-call wcemips-211 compile.bat "MACHINE=wince-mips-hpc-wce211"  zipdist\r
-..\miniperl makedist.pl --clean-exts\r
-\r
-rem TODO call wcesh3-200 compile.bat "MACHINE=wince-sh3-hpc-wce200"\r
-rem TODO call wcesh3-200 compile.bat "MACHINE=wince-sh3-hpc-wce200"  zipdist\r
-rem TODO ..\miniperl makedist.pl --clean-exts\r
-\r
-rem TODO call compile.bat "MACHINE=wince-mips-hpc-wce200"\r
-rem TODO call compile.bat "MACHINE=wince-mips-hpc-wce200"  zipdist\r
-rem TODO ..\miniperl makedist.pl --clean-exts\r
-\r
-call WCEARM-p300 compile.bat "MACHINE=wince-arm-pocket-wce300"\r
-call WCEARM-p300 compile.bat "MACHINE=wince-arm-pocket-wce300"  zipdist\r
-..\miniperl makedist.pl --clean-exts\r
-\r
-call WCEMIPS-300 compile.bat "MACHINE=wince-mips-pocket-wce300"\r
-call WCEMIPS-300 compile.bat "MACHINE=wince-mips-pocket-wce300"  zipdist\r
-..\miniperl makedist.pl --clean-exts\r
-\r
-call WCESH3-300 compile.bat "MACHINE=wince-sh3-pocket-wce300"\r
-call WCESH3-300 compile.bat "MACHINE=wince-sh3-pocket-wce300"  zipdist\r
-..\miniperl makedist.pl --clean-exts\r
-\r
-call WCEx86-300 compile.bat "MACHINE=wince-x86em-pocket-wce300"\r
-call WCEx86-300 compile.bat "MACHINE=wince-x86em-pocket-wce300"  zipdist\r
-..\miniperl makedist.pl --clean-exts\r
-\r
-call WCEMIPS-palm211 compile.bat "MACHINE=wince-mips-palm-wce211"\r
-call WCEMIPS-palm211 compile.bat "MACHINE=wince-mips-palm-wce211"  zipdist\r
-..\miniperl makedist.pl --clean-exts\r
-\r
-call WCESH3-palm211 compile.bat "MACHINE=wince-sh3-palm-wce211"\r
-call WCESH3-palm211 compile.bat "MACHINE=wince-sh3-palm-wce211"  zipdist\r
-..\miniperl makedist.pl --clean-exts\r
-\r
-call WCEx86-palm211 compile.bat "MACHINE=wince-x86em-palm-wce211"\r
-call WCEx86-palm211 compile.bat "MACHINE=wince-x86em-palm-wce211"  zipdist\r
-..\miniperl makedist.pl --clean-exts\r
-\r
+@echo off
+rem
+rem Normally you do not need to run this file.
+rem Instead you should edit and execute compile.bat .
+rem
+rem This file assumes that you have a set of appropriate
+rem bat-files that prepare environment variables for build process
+rem and execute commands passed as arguments
+rem
+
+call wcearm-300 compile.bat "MACHINE=wince-arm-hpc-wce300"
+call wcearm-300 compile.bat "MACHINE=wince-arm-hpc-wce300" zipdist
+..\miniperl makedist.pl --clean-exts
+
+call wcearm-211 compile.bat "MACHINE=wince-arm-hpc-wce211"
+call wcearm-211 compile.bat "MACHINE=wince-arm-hpc-wce211"  zipdist
+..\miniperl makedist.pl --clean-exts
+
+call wcesh3-211 compile.bat "MACHINE=wince-sh3-hpc-wce211"
+call wcesh3-211 compile.bat "MACHINE=wince-sh3-hpc-wce211"  zipdist
+..\miniperl makedist.pl --clean-exts
+
+call wcemips-211 compile.bat "MACHINE=wince-mips-hpc-wce211"
+call wcemips-211 compile.bat "MACHINE=wince-mips-hpc-wce211"  zipdist
+..\miniperl makedist.pl --clean-exts
+
+rem TODO call wcesh3-200 compile.bat "MACHINE=wince-sh3-hpc-wce200"
+rem TODO call wcesh3-200 compile.bat "MACHINE=wince-sh3-hpc-wce200"  zipdist
+rem TODO ..\miniperl makedist.pl --clean-exts
+
+rem TODO call compile.bat "MACHINE=wince-mips-hpc-wce200"
+rem TODO call compile.bat "MACHINE=wince-mips-hpc-wce200"  zipdist
+rem TODO ..\miniperl makedist.pl --clean-exts
+
+call WCEARM-p300 compile.bat "MACHINE=wince-arm-pocket-wce300"
+call WCEARM-p300 compile.bat "MACHINE=wince-arm-pocket-wce300"  zipdist
+..\miniperl makedist.pl --clean-exts
+
+call WCEMIPS-300 compile.bat "MACHINE=wince-mips-pocket-wce300"
+call WCEMIPS-300 compile.bat "MACHINE=wince-mips-pocket-wce300"  zipdist
+..\miniperl makedist.pl --clean-exts
+
+call WCESH3-300 compile.bat "MACHINE=wince-sh3-pocket-wce300"
+call WCESH3-300 compile.bat "MACHINE=wince-sh3-pocket-wce300"  zipdist
+..\miniperl makedist.pl --clean-exts
+
+call WCEx86-300 compile.bat "MACHINE=wince-x86em-pocket-wce300"
+call WCEx86-300 compile.bat "MACHINE=wince-x86em-pocket-wce300"  zipdist
+..\miniperl makedist.pl --clean-exts
+
+call WCEMIPS-palm211 compile.bat "MACHINE=wince-mips-palm-wce211"
+call WCEMIPS-palm211 compile.bat "MACHINE=wince-mips-palm-wce211"  zipdist
+..\miniperl makedist.pl --clean-exts
+
+call WCESH3-palm211 compile.bat "MACHINE=wince-sh3-palm-wce211"
+call WCESH3-palm211 compile.bat "MACHINE=wince-sh3-palm-wce211"  zipdist
+..\miniperl makedist.pl --clean-exts
+
+call WCEx86-palm211 compile.bat "MACHINE=wince-x86em-palm-wce211"
+call WCEx86-palm211 compile.bat "MACHINE=wince-x86em-palm-wce211"  zipdist
+..\miniperl makedist.pl --clean-exts
+
similarity index 100%
rename from wince/compile.bat
rename to win32/compile.bat
similarity index 100%
rename from wince/config.ce
rename to win32/config.ce
similarity index 99%
rename from wince/config_H.ce
rename to win32/config_H.ce
index 9936f76..fa2b0a8 100644 (file)
 
 /*
  * Package name      : perl5
- * Source directory  : 
+ * Source directory  :
  * Configuration time: Thu Nov 10 20:47:18 2005
  * Configured by     : vkon
- * Target system     : 
+ * Target system     :
  */
 
 #ifndef _config_h_
 #define HAS_GETLOGIN           /**/
 
 /* HAS_GETPGID:
- *     This symbol, if defined, indicates to the C program that 
+ *     This symbol, if defined, indicates to the C program that
  *     the getpgid(pid) function is available to get the
  *     process group id.
  */
 /*#define I_MEMORY             /**/
 
 /* I_NET_ERRNO:
- *     This symbol, if defined, indicates that <net/errno.h> exists and 
+ *     This symbol, if defined, indicates that <net/errno.h> exists and
  *     should be included.
  */
 /*#define I_NET_ERRNO          /**/
  *     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 
+ *     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. 
+ *     so the default case (for NeXT) is big endian to catch them.
  *     This might matter for NeXT 3.0.
  */
 #if defined(USE_CROSS_COMPILE) || defined(MULTIARCH)
                /* If you can get stringification with catify, tell me how! */
 #endif
 #if 42 == 42
-#define PeRl_CaTiFy(a, b)      a ## b  
+#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 GMTIME_R_PROTO 0          /**/
 
 /* HAS_GNULIBC:
- *     This symbol, if defined, indicates to the C program that 
+ *     This symbol, if defined, indicates to the C program that
  *     the GNU C library is being used.  A better check is to use
  *     the __GLIBC__ and __GLIBC_MINOR__ symbols supplied with glibc.
  */
 /*#define     HAS_INT64_T               /**/
 
 /* HAS_ISASCII:
- *     This manifest constant lets the C program know that isascii 
+ *     This manifest constant lets the C program know that isascii
  *     is available.
  */
 #define HAS_ISASCII            /**/
  *     doubles.
  */
 /* LONG_DOUBLESIZE:
- *     This symbol contains the size of a long double, so that the 
+ *     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.
  */
  *     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 
+ *     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 OLD_PTHREAD_CREATE_JOINABLE  /**/
 
 /* HAS_PTHREAD_YIELD:
- *     This symbol, if defined, indicates that the 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.
  */
  */
 /*#define USE_STDIO_PTR        /**/
 #ifdef USE_STDIO_PTR
-#define FILE_ptr(fp)   
+#define FILE_ptr(fp)
 /*#define STDIO_PTR_LVALUE             /**/
-#define FILE_cnt(fp)   
+#define FILE_cnt(fp)
 /*#define STDIO_CNT_LVALUE             /**/
 /*#define STDIO_PTR_LVAL_SETS_CNT      /**/
 /*#define STDIO_PTR_LVAL_NOCHANGE_CNT  /**/
  */
 /*#define USE_STDIO_BASE       /**/
 #ifdef USE_STDIO_BASE
-#define FILE_base(fp)  
-#define FILE_bufsiz(fp)        
+#define FILE_base(fp)
+#define FILE_bufsiz(fp)
 #endif
 
 /* HAS_STRERROR:
  *     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 
+ *     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()..
  */
 #define MYMALLOC                       /**/
 
 /* Mode_t:
- *     This symbol holds the type used to declare file modes 
+ *     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.
 /* 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 
+ *     is defined, and 'int *' otherwise.  This is only useful if you
  *     have select(), of course.
  */
 #define Select_fd_set_t        Perl_fd_set *   /**/
  *     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. 
+ *     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.  
+ *     if (i < NSIG) then sig_number[i] == i.
  *     The last element is 0, corresponding to the 0 at the end of
  *     the sig_name_init list.
  *     Note that this variable is initialized from the sig_num_init,
  *     Usual values include _iob, __iob, and __sF.
  */
 /*#define      HAS_STDIO_STREAM_ARRAY  /**/
-#define STDIO_STREAM_ARRAY     
+#define STDIO_STREAM_ARRAY
 
 /* Uid_t_f:
  *     This symbol defines the format string used for printing a Uid_t.
  *     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. 
+ *     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 
+ *             MakeMaker Makefile.PL INSTALLDIRS=vendor
  *     or equivalent.  See INSTALL for details.
  */
 /* PERL_VENDORARCH_EXP:
index e13e872..a3c53b0 100644 (file)
 extern "C" {
 #endif
 
-#ifndef   _WINCE
-
 #define WIN32_LEAN_AND_MEAN
 #ifdef __GNUC__
 #  define Win32_Winsock
 #endif
 #include <windows.h>
 
-#else
-/*_WINCE*/
-#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
-
-#undef   HOST_NOT_FOUND
-
-#endif  /*_WINCE*/
 
 /* Too late to include winsock2.h if winsock.h has already been loaded */
 #ifndef _WINSOCKAPI_
+#  if defined(UNDER_CE) && UNDER_CE <= 300
+     /* winsock2 only for 4.00+ */
+#    include <winsock.h>
+#  else
 #  include <winsock2.h>
 #endif
+#endif
 
 #include "win32.h"
 
similarity index 99%
rename from wince/makedist.pl
rename to win32/makedist.pl
index 7216834..1332d23 100644 (file)
@@ -10,7 +10,7 @@ my %opts = (
     'unicode' => 1, # include unicode by default
     'minimal' => 0, # minimal possible distribution.
                     # actually this is just perl.exe and perlXX.dll
-                   # but can be extended by additional exts 
+                   # but can be extended by additional exts
                    #  ... (as soon as this will be implemented :)
     'cross-name' => 'wince',
     'strip-pod' => 0, # strip POD from perl modules
@@ -220,7 +220,7 @@ sub bootstrap {
        next unless -d $dir;
        my $try = "$dir/$modfname.dll";
        last if $file = ( (-f $try) && $try);
-       
+
        $try = "$dir/${modfname}_1.dll";
        last if $file = ( (-f $try) && $try);
        push @dirs, $dir;
similarity index 100%
rename from wince/perl.rc
rename to win32/perl.rc
similarity index 100%
rename from wince/perlmain.c
rename to win32/perlmain.c
old mode 100755 (executable)
new mode 100644 (file)
similarity index 100%
rename from wince/registry.bat
rename to win32/registry.bat
diff --git a/win32/win32-d.h b/win32/win32-d.h
new file mode 100644 (file)
index 0000000..6aeca30
--- /dev/null
@@ -0,0 +1,623 @@
+--- win32-o.h  2006-04-28 00:29:04.000000000 +0400
++++ win32.h    2006-04-28 19:34:28.000000000 +0400
+@@ -1,498 +1,579 @@
+-/* 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_IMPLICIT_SYS)
+ #  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
++#ifdef __cplusplus
++/* Mingw32 gcc -xc++ objects to __attribute((unused)) at least */
++#undef  PERL_UNUSED_DECL
++#define PERL_UNUSED_DECL
+ #endif
++#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(PERLDLL) || defined(WIN95FIX)
+ #define DllExport
+ /*#define DllExport __declspec(dllexport)*/   /* noises with VC5+sp3 */
+ #else
+ #define DllExport __declspec(dllimport)
+ #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 <direct.h>
+ #include <stdlib.h>
++#include <stddef.h>
++#include <fcntl.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 PERL_WIN32_SOCK_DLOAD to have Perl dynamically load the winsock
++   DLL when needed. Don't use if your compiler supports delayloading (ie, VC++ 6.0)
++      -- BKS 5-29-2000 */
++#if !(defined(_M_IX86) && _MSC_VER >= 1200)
++#define PERL_WIN32_SOCK_DLOAD
++#endif
+ #define ENV_IS_CASELESS
+
++#define PIPESOCK_MODE "b"             /* pipes, sockets default to binmode */
++
+ #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
+
++/* for waitpid() */
++#ifndef WNOHANG
++#  define WNOHANG     1
++#endif
++
+ #define PERL_GET_CONTEXT_DEFINED
+
+ /* Compiler-specific stuff. */
+
+ #ifdef __BORLANDC__           /* Borland C++ */
+
++#if (__BORLANDC__ <= 0x520)
+ #define _access access
+ #define _chdir chdir
++#endif
++
+ #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 C thinks that a pointer to a member variable is 12 bytes in size. */
+ #define PERL_MEMBER_PTR_SIZE  12
+
++#define isnan         _isnan
++
+ #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)
++typedef long          uid_t;
++typedef long          gid_t;
++typedef unsigned short        mode_t;
++#pragma  warning(disable: 4102)       /* "unreferenced label" */
+
+ /* Visual C thinks that a pointer to a member variable is 16 bytes in size. */
+ #define PERL_MEMBER_PTR_SIZE  16
+
++#define isnan         _isnan
++
++#if _MSC_VER < 1300
++/* VC6 has broken NaN semantics: NaN == NaN returns true instead of false */
++#define NAN_COMPARE_BROKEN 1
++#endif
++
+ #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
+-
+-#endif /* __MINGW32__ */
++#define isnan         _isnan  /* ...same libraries as MSVC */
+
+ #ifndef _O_NOINHERIT
+ #  define _O_NOINHERIT        0x0080
+ #  ifndef _NO_OLDNAMES
+ #    define O_NOINHERIT       _O_NOINHERIT
+ #  endif
+ #endif
+
++/* <stdint.h>, pulled in by <io.h> as of mingw-runtime-3.3, typedef's
++ * (u)intptr_t but doesn't set the _(U)INTPTR_T_DEFINED defines */
++#ifdef _STDINT_H
++#  ifndef _INTPTR_T_DEFINED
++#    define _INTPTR_T_DEFINED
++#  endif
++#  ifndef _UINTPTR_T_DEFINED
++#    define _UINTPTR_T_DEFINED
++#  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 */
+
+ #ifndef _INTPTR_T_DEFINED
+ typedef int           intptr_t;
+ #  define _INTPTR_T_DEFINED
+ #endif
+
+ #ifndef _UINTPTR_T_DEFINED
+ typedef unsigned int  uintptr_t;
+ #  define _UINTPTR_T_DEFINED
+ #endif
+
+ START_EXTERN_C
+
++/* For UNIX compatibility. */
++
++extern  uid_t getuid(void);
++extern  gid_t getgid(void);
++extern  uid_t geteuid(void);
++extern  gid_t getegid(void);
++extern  int   setuid(uid_t uid);
++extern  int   setgid(gid_t gid);
++extern  int   kill(int pid, int sig);
++#ifndef USE_PERL_SBRK
++extern  void  *sbrk(ptrdiff_t need);
++#  define HAS_SBRK_PROTO
++#endif
++extern        char *  getlogin(void);
++extern        int     chown(const char *p, uid_t o, gid_t g);
++extern  int   mkstemp(const char *path);
++
+ #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_win32_term(void);
+-DllExport void                Perl_init_os_extras();
++DllExport void                Perl_init_os_extras(void);
+ 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);
++DllExport HWND                win32_create_message_window();
+
+ #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 int            my_fstat(int fd, Stat_t *sbufptr);
+ 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
+
++typedef  char *               caddr_t;        /* In malloc.c (core address). */
++
+ /*
+  * 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
+
+-#ifndef Sighandler_t
+-typedef Signal_t (*Sighandler_t) (int);
+-#define Sighandler_t  Sighandler_t
+-#endif
+-
+ /*
+  * Now Win32 specific per-thread data stuff
+  */
+
++/* Leave the first couple ids after WM_USER unused because they
++ * might be used by an embedding application, and on Windows
++ * version before 2000 we might end up eating those messages
++ * if they were not meant for us.
++ */
++#define WM_USER_MIN     (WM_USER+30)
++#define WM_USER_MESSAGE (WM_USER_MIN)
++#define WM_USER_KILL    (WM_USER_MIN+1)
++#define WM_USER_MAX     (WM_USER_MIN+1)
++
+ 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
+     BOOL               Wuse_showwindow;
+     WORD               Wshowwindow;
+ };
+
+ #define HAVE_INTERP_INTERN
+ typedef struct {
+     long      num;
+     DWORD     pids[MAXIMUM_WAIT_OBJECTS];
+     HANDLE    handles[MAXIMUM_WAIT_OBJECTS];
+ } child_tab;
+
++#ifdef USE_ITHREADS
++typedef struct {
++    long      num;
++    DWORD     pids[MAXIMUM_WAIT_OBJECTS];
++    HANDLE    handles[MAXIMUM_WAIT_OBJECTS];
++    HWND      message_hwnds[MAXIMUM_WAIT_OBJECTS];
++} pseudo_child_tab;
++#endif
++
++#ifndef Sighandler_t
++typedef Signal_t (*Sighandler_t) (int);
++#define Sighandler_t  Sighandler_t
++#endif
++
+ 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;
++    pseudo_child_tab * pseudo_children;
+ #endif
+     void *    internal_host;
+     struct thread_intern      thr_intern;
++    HWND        message_hwnd;
+     UINT      timerid;
+     unsigned  poll_count;
+     Sighandler_t sigtable[SIG_SIZE];
+ };
+
+ DllExport int win32_async_check(pTHX);
+
+ #define WIN32_POLL_INTERVAL 32768
+ #define PERL_ASYNC_CHECK() if (w32_do_async || PL_sig_pending) win32_async_check(aTHX)
+
+ #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_pseudo_child_message_hwnds        (w32_pseudo_children->message_hwnds)
+ #define w32_internal_host             (PL_sys_intern.internal_host)
+ #define w32_timerid                   (PL_sys_intern.timerid)
++#define w32_message_hwnd              (PL_sys_intern.message_hwnd)
+ #define w32_sighandler                        (PL_sys_intern.sigtable)
+ #define w32_poll_count                        (PL_sys_intern.poll_count)
+ #define w32_do_async                  (w32_poll_count++ > WIN32_POLL_INTERVAL)
+ #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)
+ #define w32_use_showwindow    (PL_sys_intern.thr_intern.Wuse_showwindow)
+-#define w32_showwindow                (PL_sys_intern.thr_intern.Wshowwindow)
++#define w32_showwindow        (PL_sys_intern.thr_intern.Wshowwindow)
+
+ #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
+
+ #if defined(USE_FIXED_OSFHANDLE) || defined(PERL_MSVCRT_READFIX)
+ #ifdef PERL_CORE
+
+ /* C doesn't like repeat struct definitions */
++#if defined(__MINGW32__) && (__MINGW32_MAJOR_VERSION>=3)
++#undef _CRTIMP
++#endif
+ #ifndef _CRTIMP
+ #define _CRTIMP __declspec(dllimport)
+ #endif
+
+ /*
+  * Control structure for lowio file handles
+  */
+ typedef struct {
+     intptr_t 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)
+
+ /* since we are not doing a dup2(), this works fine */
+ #define _set_osfhnd(fh, osfh) (void)(_osfhnd(fh) = (intptr_t)osfh)
+ #endif
+ #endif
+
+ /* IO.xs and POSIX.xs define PERLIO_NOT_STDIO to 1 */
+ #if defined(PERL_EXT_IO) || defined(PERL_EXT_POSIX)
+ #undef  PERLIO_NOT_STDIO
+ #endif
+ #define PERLIO_NOT_STDIO 0
+
+ #include "perlio.h"
+
+ /*
+  * 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"
+
++#define EXEC_ARGV_CAST(x) ((const char *const *) x)
++
++#if !defined(ECONNABORTED) && defined(WSAECONNABORTED)
++#define ECONNABORTED WSAECONNABORTED
++#endif
++#if !defined(ECONNRESET) && defined(WSAECONNRESET)
++#define ECONNRESET WSAECONNRESET
++#endif
++#if !defined(EAFNOSUPPORT) && defined(WSAEAFNOSUPPORT)
++#define EAFNOSUPPORT WSAEAFNOSUPPORT
++#endif
++/* Why not needed for ECONNREFUSED? --abe */
++
++DllExport void *win32_signal_context(void);
++#define PERL_GET_SIG_CONTEXT win32_signal_context()
++
+ #ifdef _WIN_CE
+ #define Win_GetModuleHandle   XCEGetModuleHandleA
+ #define Win_GetProcAddress    XCEGetProcAddressA
+ #define Win_GetModuleFileName XCEGetModuleFileNameA
+ #define Win_CreateSemaphore   CreateSemaphoreW
+ #else
+ #define Win_GetModuleHandle   GetModuleHandle
+ #define Win_GetProcAddress    GetProcAddress
+ #define Win_GetModuleFileName GetModuleFileName
+ #define Win_CreateSemaphore   CreateSemaphore
+ #endif
+
+ #endif /* _INC_WIN32_PERL5 */
+
index 5390df5..259728f 100644 (file)
@@ -200,9 +200,12 @@ struct utsname {
 
 #ifdef _MSC_VER                        /* Microsoft Visual C++ */
 
+#ifndef UNDER_CE
 typedef long           uid_t;
 typedef long           gid_t;
 typedef unsigned short mode_t;
+#endif
+
 #pragma  warning(disable: 4102)        /* "unreferenced label" */
 
 /* Visual C thinks that a pointer to a member variable is 16 bytes in size. */
@@ -387,6 +390,9 @@ struct thread_intern {
     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
@@ -465,6 +471,7 @@ DllExport int win32_async_check(pTHX);
 #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)
 #define w32_use_showwindow     (PL_sys_intern.thr_intern.Wuse_showwindow)
 #define w32_showwindow (PL_sys_intern.thr_intern.Wshowwindow)
 
similarity index 99%
rename from wince/win32io.c
rename to win32/win32ceio.c
index 857f25b..e0b75b5 100644 (file)
@@ -290,9 +290,9 @@ PerlIOWin32_close(pTHX_ PerlIO *f)
  PerlIOWin32 *s = PerlIOSelf(f,PerlIOWin32);
  if (s->refcnt == 1)
   {
-   IV code = 0;        
+   IV code = 0;
 #if 0
-   /* This does not do pipes etc. correctly */ 
+   /* This does not do pipes etc. correctly */
    if (!CloseHandle(s->h))
     {
      s->h = INVALID_HANDLE_VALUE;
similarity index 99%
rename from wince/win32iop.h
rename to win32/win32iop-o.h
index 2b2703c..47c0de9 100644 (file)
@@ -9,8 +9,8 @@
 #  define END_EXTERN_C }
 #  define EXTERN_C extern "C"
 #else
-#  define START_EXTERN_C 
-#  define END_EXTERN_C 
+#  define START_EXTERN_C
+#  define END_EXTERN_C
 #  define EXTERN_C
 #endif
 #endif
index 8c02fa1..c6f9309 100644 (file)
@@ -55,7 +55,7 @@ typedef HANDLE perl_mutex;
 #define COND_INIT(c) \
     STMT_START {                                               \
        (c)->waiters = 0;                                       \
-       (c)->sem = CreateSemaphore(NULL,0,LONG_MAX,NULL);       \
+       (c)->sem = Win_CreateSemaphore(NULL,0,LONG_MAX,NULL);   \
        if ((c)->sem == NULL)                                   \
            Perl_croak_nocontext("panic: COND_INIT (%ld)",GetLastError());      \
     } STMT_END
similarity index 93%
rename from wince/wince.c
rename to win32/wince.c
index 02b2781..52d9507 100644 (file)
@@ -11,7 +11,7 @@
 #include <windows.h>
 #include <signal.h>
 
-#define PERLIO_NOT_STDIO 0 
+#define PERLIO_NOT_STDIO 0
 
 #if !defined(PERLIO_IS_STDIO) && !defined(USE_SFIO)
 #define PerlIO FILE
@@ -91,7 +91,7 @@ END_EXTERN_C
 
 static DWORD   w32_platform = (DWORD)-1;
 
-int 
+int
 IsWin95(void)
 {
   return (win32_os_id() == VER_PLATFORM_WIN32_WINDOWS);
@@ -1046,7 +1046,7 @@ win32_uname(struct utsname *name)
 /* Timing related stuff */
 
 int
-do_raise(pTHX_ int sig) 
+do_raise(pTHX_ int sig)
 {
     if (sig < SIG_SIZE) {
        Sighandler_t handler = w32_sighandler[sig];
@@ -1082,8 +1082,8 @@ void
 sig_terminate(pTHX_ int sig)
 {
     Perl_warn(aTHX_ "Terminating on signal SIG%s(%d)\n",PL_sig_name[sig], sig);
-    /* exit() seems to be safe, my_exit() or die() is a problem in ^C 
-       thread 
+    /* exit() seems to be safe, my_exit() or die() is a problem in ^C
+       thread
      */
     exit(sig);
 }
@@ -1195,7 +1195,7 @@ static VOID CALLBACK TimerProc(HWND win, UINT msg, UINT id, DWORD time)
 {
     dTHX;
     KillTimer(NULL,timerid);
-    timerid=0;  
+    timerid=0;
     sighandler(14);
 }
 
@@ -1208,28 +1208,28 @@ win32_sleep(unsigned int t)
 DllExport unsigned int
 win32_alarm(unsigned int sec)
 {
-    /* 
+    /*
      * 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 
+     * 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 :-(
-     */ 
+     */
     dTHX;
     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;  
+        timerid=0;
        }
      }
     return 0;
@@ -1307,7 +1307,7 @@ win32_feof(FILE *fp)
 }
 
 /*
- * Since the errors returned by the socket error function 
+ * Since the errors returned by the socket error function
  * WSAGetLastError() are not known by the library routine strerror
  * we have to roll our own.
  */
@@ -2236,7 +2236,7 @@ sbrk(int need)
    allocsize = info.dwAllocationGranularity;
   }
  /* This scheme fails eventually if request for contiguous
-  * block is denied so reserve big blocks - this is only 
+  * block is denied so reserve big blocks - this is only
   * address space not memory ...
   */
  if (brk+need >= reserved)
@@ -2250,7 +2250,7 @@ sbrk(int need)
      if (addr)
       committed = reserved;
     }
-   /* Reserve some (more) space 
+   /* 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
@@ -2510,7 +2510,7 @@ XS(w32_CopyFile)
     {
       char szSourceFile[MAX_PATH+1];
       strcpy(szSourceFile, PerlDir_mapA(SvPV_nolen(ST(0))));
-      bResult = XCECopyFileA(szSourceFile, SvPV_nolen(ST(1)), 
+      bResult = XCECopyFileA(szSourceFile, SvPV_nolen(ST(1)),
                             !SvTRUE(ST(2)));
     }
 
@@ -2530,7 +2530,7 @@ XS(w32_MessageBox)
     unsigned int flags = MB_OK;
 
     txt = SvPV_nolen(ST(0));
-    
+
     if (items < 1 || items > 2)
        Perl_croak(aTHX_ "usage: Win32::MessageBox($txt, [$flags])");
 
@@ -2589,11 +2589,11 @@ XS(w32_ShellEx)
   si.cbSize = sizeof(si);
   si.fMask = SEE_MASK_FLAG_NO_UI;
 
-  MultiByteToWideChar(CP_ACP, 0, verb, -1, 
+  MultiByteToWideChar(CP_ACP, 0, verb, -1,
                      wverb, sizeof(wverb)/2);
   si.lpVerb = (TCHAR *)wverb;
 
-  MultiByteToWideChar(CP_ACP, 0, file, -1, 
+  MultiByteToWideChar(CP_ACP, 0, file, -1,
                      wfile, sizeof(wfile)/2);
   si.lpFile = (TCHAR *)wfile;
 
@@ -2698,7 +2698,7 @@ win32_wait(int *status)
 
 int
 wce_reopen_stdout(char *fname)
-{     
+{
   if(xcefreopen(fname, "w", stdout) == NULL)
     return -1;
 
@@ -2726,7 +2726,7 @@ getcwd(char *buf, size_t size)
   return xcegetcwd(buf, size);
 }
 
-int 
+int
 isnan(double d)
 {
   return _isnan(d);
@@ -2750,118 +2750,7 @@ win32_popenlist(const char *mode, IV narg, SV **args)
 DllExport PerlIO*
 win32_popen(const char *command, const char *mode)
 {
-#ifdef USE_RTL_POPEN
     return _popen(command, mode);
-#else
-    dTHX;
-    int p[2];
-    int parent, child;
-    int stdfd, oldfd;
-    int ourmode;
-    int childpid;
-    DWORD nhandle;
-    HANDLE old_h;
-    int lock_held = 0;
-
-    /* establish which ends read and write */
-    if (strchr(mode,'w')) {
-        stdfd = 0;             /* stdin */
-        parent = 1;
-        child = 0;
-       nhandle = STD_INPUT_HANDLE;
-    }
-    else if (strchr(mode,'r')) {
-        stdfd = 1;             /* stdout */
-        parent = 0;
-        child = 1;
-       nhandle = STD_OUTPUT_HANDLE;
-    }
-    else
-        return NULL;
-
-    /* set the correct mode */
-    if (strchr(mode,'b'))
-        ourmode = O_BINARY;
-    else if (strchr(mode,'t'))
-        ourmode = O_TEXT;
-    else
-        ourmode = _fmode & (O_TEXT | O_BINARY);
-
-    /* the child doesn't inherit handles */
-    ourmode |= O_NOINHERIT;
-
-    if (win32_pipe(p, 512, ourmode) == -1)
-        return NULL;
-
-    /* save current stdfd */
-    if ((oldfd = win32_dup(stdfd)) == -1)
-        goto cleanup;
-
-    /* save the old std handle (this needs to happen before the
-     * dup2(), since that might call SetStdHandle() too) */
-    OP_REFCNT_LOCK;
-    lock_held = 1;
-    old_h = GetStdHandle(nhandle);
-
-    /* make stdfd go to child end of pipe (implicitly closes stdfd) */
-    /* stdfd will be inherited by the child */
-    if (win32_dup2(p[child], stdfd) == -1)
-        goto cleanup;
-
-    /* close the child end in parent */
-    win32_close(p[child]);
-
-    /* set the new std handle (in case dup2() above didn't) */
-    SetStdHandle(nhandle, (HANDLE)_get_osfhandle(stdfd));
-
-    /* start the child */
-    {
-       dTHX;
-       if ((childpid = do_spawn_nowait((char*)command)) == -1)
-           goto cleanup;
-
-       /* revert stdfd to whatever it was before */
-       if (win32_dup2(oldfd, stdfd) == -1)
-           goto cleanup;
-
-       /* restore the old std handle (this needs to happen after the
-        * dup2(), since that might call SetStdHandle() too */
-       if (lock_held) {
-           SetStdHandle(nhandle, old_h);
-           OP_REFCNT_UNLOCK;
-           lock_held = 0;
-       }
-
-       /* close saved handle */
-       win32_close(oldfd);
-
-       LOCK_FDPID_MUTEX;
-       sv_setiv(*av_fetch(w32_fdpid, p[parent], TRUE), childpid);
-       UNLOCK_FDPID_MUTEX;
-
-       /* set process id so that it can be returned by perl's open() */
-       PL_forkprocess = childpid;
-    }
-
-    /* we have an fd, return a file stream */
-    return (PerlIO_fdopen(p[parent], (char *)mode));
-
-cleanup:
-    /* we don't need to check for errors here */
-    win32_close(p[0]);
-    win32_close(p[1]);
-    if (lock_held) {
-       SetStdHandle(nhandle, old_h);
-       OP_REFCNT_UNLOCK;
-       lock_held = 0;
-    }
-    if (oldfd != -1) {
-        win32_dup2(oldfd, stdfd);
-        win32_close(oldfd);
-    }
-    return (NULL);
-
-#endif /* USE_RTL_POPEN */
 }
 
 /*
@@ -2871,41 +2760,7 @@ cleanup:
 DllExport int
 win32_pclose(PerlIO *pf)
 {
-#ifdef USE_RTL_POPEN
     return _pclose(pf);
-#else
-    dTHX;
-    int childpid, status;
-    SV *sv;
-
-    LOCK_FDPID_MUTEX;
-    sv = *av_fetch(w32_fdpid, PerlIO_fileno(pf), TRUE);
-
-    if (SvIOK(sv))
-       childpid = SvIVX(sv);
-    else
-       childpid = 0;
-
-    if (!childpid) {
-        UNLOCK_FDPID_MUTEX;
-       errno = EBADF;
-        return -1;
-    }
-
-#ifdef USE_PERLIO
-    PerlIO_close(pf);
-#else
-    fclose(pf);
-#endif
-    SvIVX(sv) = 0;
-    UNLOCK_FDPID_MUTEX;
-
-    if (win32_waitpid(childpid, &status, 0) == -1)
-        return -1;
-
-    return status;
-
-#endif /* USE_RTL_POPEN */
 }
 
 #ifdef HAVE_INTERP_INTERN
similarity index 92%
rename from wince/wince.h
rename to win32/wince.h
index f4264dd..2a97668 100644 (file)
@@ -30,7 +30,7 @@
 #endif
 #endif
 
-START_EXTERN_C 
+START_EXTERN_C
 
 #ifndef _IOFBF
 #define _IOFBF          0x0000
@@ -66,16 +66,6 @@ XCE_EXPORT void XCEShowMessageA(const char *fmt, ...);
 #define gettimeofday xcegettimeofday
 #define GetSystemTimeAsFileTime XCEGetSystemTimeAsFileTime
 
-XCE_EXPORT int xcesetuid(uid_t id);
-XCE_EXPORT int xceseteuid(uid_t id);
-XCE_EXPORT int xcegetuid();
-XCE_EXPORT int xcegeteuid();
-
-XCE_EXPORT int xcesetgid(int id);
-XCE_EXPORT int xcesetegid(int id);
-XCE_EXPORT int xcegetgid();
-XCE_EXPORT int xcegetegid();
-
 #define setuid xcesetuid
 #define getuid xcegetuid
 #define geteuid xcegeteuid
@@ -151,6 +141,6 @@ XCE_EXPORT BOOL XCEFreeEnvironmentStrings(LPCSTR buf);
 
 void wce_hitreturn();
 
-END_EXTERN_C 
+END_EXTERN_C
 
 #endif
similarity index 94%
rename from wince/wincesck.c
rename to win32/wincesck.c
index 09f5dfb..8f2a90b 100644 (file)
@@ -2,7 +2,7 @@
 
 /* wincesck.c
  *
- * (c) 1995 Microsoft Corporation. All rights reserved. 
+ * (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.
  *
@@ -65,12 +65,6 @@ XCE_EXPORT struct protoent *xcegetprotobynumber(int number);
        }                                               \
     } STMT_END
 
-#define EndSockets() \
-    STMT_START {                                       \
-       if (wsock_started)                              \
-           WSACleanup();                               \
-    } STMT_END
-
 #define SOCKET_TEST(x, y) \
     STMT_START {                                       \
        StartSockets();                                 \
@@ -86,8 +80,15 @@ static struct servent* win32_savecopyservent(struct servent*d,
 
 static int wsock_started = 0;
 
+EXTERN_C void
+EndSockets(void)
+{
+    if (wsock_started)
+       WSACleanup();
+}
+
 void
-start_sockets(void) 
+start_sockets(void)
 {
     dTHX;
     unsigned short version;
@@ -213,7 +214,7 @@ win32_recv(SOCKET s, char *buf, int len, int flags)
 }
 
 int
-win32_recvfrom(SOCKET s, char *buf, int len, int flags, 
+win32_recvfrom(SOCKET s, char *buf, int len, int flags,
               struct sockaddr *from, int *fromlen)
 {
   StartSockets();
@@ -221,7 +222,7 @@ win32_recvfrom(SOCKET s, char *buf, int len, int flags,
 }
 
 int
-win32_select(int nfds, Perl_fd_set* rd, Perl_fd_set* wr, 
+win32_select(int nfds, Perl_fd_set* rd, Perl_fd_set* wr,
             Perl_fd_set* ex, const struct timeval* timeout)
 {
   StartSockets();
@@ -246,13 +247,13 @@ win32_sendto(SOCKET s, const char *buf, int len, int flags,
 }
 
 int
-win32_setsockopt(SOCKET s, int level, int optname, 
+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)
 {
@@ -315,7 +316,7 @@ win32_getprotobynumber(int num)
 struct servent *
 win32_getservbyname(const char *name, const char *proto)
 {
-    dTHX;    
+    dTHX;
     struct servent *r;
 
     SOCKET_TEST(r = getservbyname(name, proto), NULL);
@@ -328,7 +329,7 @@ win32_getservbyname(const char *name, const char *proto)
 struct servent *
 win32_getservbyport(int port, const char *proto)
 {
-    dTHX; 
+    dTHX;
     struct servent *r;
 
     SOCKET_TEST(r = getservbyport(port, proto), NULL);
@@ -380,7 +381,7 @@ win32_inet_addr(const char FAR *cp)
  */
 
 void
-win32_endhostent() 
+win32_endhostent()
 {
     dTHX;
     Perl_croak_nocontext("endhostent not implemented!\n");
@@ -409,7 +410,7 @@ win32_endservent()
 
 
 struct netent *
-win32_getnetent(void) 
+win32_getnetent(void)
 {
     dTHX;
     Perl_croak_nocontext("getnetent not implemented!\n");
@@ -417,7 +418,7 @@ win32_getnetent(void)
 }
 
 struct netent *
-win32_getnetbyname(char *name) 
+win32_getnetbyname(char *name)
 {
     dTHX;
     Perl_croak_nocontext("getnetbyname not implemented!\n");
@@ -425,7 +426,7 @@ win32_getnetbyname(char *name)
 }
 
 struct netent *
-win32_getnetbyaddr(long net, int type) 
+win32_getnetbyaddr(long net, int type)
 {
     dTHX;
     Perl_croak_nocontext("getnetbyaddr not implemented!\n");
@@ -433,7 +434,7 @@ win32_getnetbyaddr(long net, int type)
 }
 
 struct protoent *
-win32_getprotoent(void) 
+win32_getprotoent(void)
 {
     dTHX;
     Perl_croak_nocontext("getprotoent not implemented!\n");
@@ -441,7 +442,7 @@ win32_getprotoent(void)
 }
 
 struct servent *
-win32_getservent(void) 
+win32_getservent(void)
 {
     dTHX;
     Perl_croak_nocontext("getservent not implemented!\n");
@@ -494,6 +495,6 @@ win32_savecopyservent(struct servent*d, struct servent*s, const char *proto)
        d->s_proto = (char *)proto;
     else
        d->s_proto = "tcp";
-   
+
     return d;
 }
diff --git a/win32/xconfig.h b/win32/xconfig.h
new file mode 100644 (file)
index 0000000..bea5c9a
--- /dev/null
@@ -0,0 +1,4399 @@
+/*
+ * This file was produced by running the config_h.SH script, which
+ * gets its values from undef, 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 undef 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: Mon May  1 01:21:59 2006
+ * Configured by     : vkon
+ * 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            /**/
+
+/* 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_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    /**/
+
+/* 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_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_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   /**/
+
+/* 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_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              /**/
+
+/* HAS_USLEEP:
+ *     This symbol, if defined, indicates that the usleep routine is
+ *     available to let the process sleep on a sub-second accuracy.
+ */
+/*#define HAS_USLEEP           /**/
+
+/* 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_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>.
+ */
+/* I_SYS_SOCKIO:
+ *     This symbol, if defined, indicates the <sys/sockio.h> should be included
+ *     to get socket ioctl options, like SIOCATMARK.
+ */
+/*#define      I_SYS_IOCTL             /**/
+/*#define I_SYS_SOCKIO /**/
+
+/* 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_VFORK:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include vfork.h.
+ */
+/*#define I_VFORK      /**/
+
+/* 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     /**/
+
+/* USE_CROSS_COMPILE:
+ *     This symbol, if defined, indicates that Perl is being cross-compiled.
+ */
+/* PERL_TARGETARCH:
+ *     This symbol, if defined, indicates the target architecture
+ *     Perl has been cross-compiled to.  Undefined if not a cross-compile.
+ */
+#ifndef USE_CROSS_COMPILE
+/*#define      USE_CROSS_COMPILE       /**/
+#define        PERL_TARGETARCH "undef" /**/
+#endif
+
+/* 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.
+ */
+/* OSVERS:
+ *     This symbol contains the version 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"               /**/
+#define OSVERS "5.0"           /**/
+
+/* 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            /**/
+
+/* 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(USE_CROSS_COMPILE) || 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 "\\Storage Card\\perl58m\\lib"         /**/
+/*#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 "MS Pocket PC-WCE300-ARM"             /**/
+
+/* 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.
+ */
+/* PERL_RELOCATABLE_INC:
+ *     This symbol, if defined, indicates that we'd like to relocate entries
+ *     in @INC at run time based on the location of the perl binary.
+ */
+#define BIN "\\Storage Card\\perl58m\\bin"     /**/
+#define BIN_EXP "\\Storage Card\\perl58m\\bin" /**/
+#define PERL_RELOCATABLE_INC "undef"           /**/
+
+/* 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            /**/
+
+/* BYTEORDER:
+ *     This symbol holds the hexadecimal constant defined in byteorder,
+ *     in a UV, i.e. 0x1234 or 0x4321 or 0x12345678, 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(USE_CROSS_COMPILE) || 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 concatenates 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 concatenate 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 "clarm.exe -nologo -E"
+#define CPPMINUS ""
+#define CPPRUN "clarm.exe -nologo -E"
+#define CPPLAST ""
+
+/* HAS__FWALK:
+ *     This symbol, if defined, indicates that the _fwalk system call is
+ *     available to apply a function to all the file handles.
+ */
+/*#define HAS__FWALK           /**/
+
+/* 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             /**/
+
+/* HAS_AINTL:
+ *     This symbol, if defined, indicates that the aintl routine is
+ *     available.  If copysignl is also present we can emulate modfl.
+ */
+/*#define HAS_AINTL            /**/
+
+/* HAS_ASCTIME_R:
+ *     This symbol, if defined, indicates that the asctime_r routine
+ *     is available to asctime re-entrantly.
+ */
+/* ASCTIME_R_PROTO:
+ *     This symbol encodes the prototype of asctime_r.
+ *     It is zero if d_asctime_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_asctime_r
+ *     is defined.
+ */
+/*#define HAS_ASCTIME_R           /**/
+#define ASCTIME_R_PROTO 0         /**/
+
+/* HASATTRIBUTE_FORMAT:
+ *     Can we handle GCC attribute for checking printf-style formats
+ */
+/* HASATTRIBUTE_MALLOC:
+ *     Can we handle GCC attribute for malloc-style functions.
+ */
+/* HASATTRIBUTE_NONNULL:
+ *     Can we handle GCC attribute for nonnull function parms.
+ */
+/* HASATTRIBUTE_NORETURN:
+ *     Can we handle GCC attribute for functions that do not return
+ */
+/* HASATTRIBUTE_PURE:
+ *     Can we handle GCC attribute for pure functions
+ */
+/* HASATTRIBUTE_UNUSED:
+ *     Can we handle GCC attribute for unused variables and arguments
+ */
+/* HASATTRIBUTE_WARN_UNUSED_RESULT:
+ *     Can we handle GCC attribute for warning on unused results
+ */
+/*#define HASATTRIBUTE_FORMAT  /**/
+/*#define HASATTRIBUTE_NORETURN        /**/
+/*#define HASATTRIBUTE_MALLOC  /**/
+/*#define HASATTRIBUTE_NONNULL /**/
+/*#define HASATTRIBUTE_PURE    /**/
+/*#define HASATTRIBUTE_UNUSED  /**/
+/*#define HASATTRIBUTE_WARN_UNUSED_RESULT      /**/
+
+/* HAS_BUILTIN_CHOOSE_EXPR:
+ *     Can we handle GCC builtin for compile-time ternary-like expressions
+ */
+/* HAS_BUILTIN_EXPECT:
+ *     Can we handle GCC builtin for telling that certain values are more
+ *     likely
+ */
+/*#define HAS_BUILTIN_EXPECT   /**/
+/*#define HAS_BUILTIN_CHOOSE_EXPR      /**/
+
+/* 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            /**/
+
+/* HAS_CLASS:
+ *     This symbol, if defined, indicates that the class routine is
+ *     available to classify doubles.  Available for example in AIX.
+ *     The returned values are defined in <float.h> and are:
+ *
+ *     FP_PLUS_NORM    Positive normalized, nonzero
+ *     FP_MINUS_NORM   Negative normalized, nonzero
+ *     FP_PLUS_DENORM  Positive denormalized, nonzero
+ *     FP_MINUS_DENORM Negative denormalized, nonzero
+ *     FP_PLUS_ZERO    +0.0
+ *     FP_MINUS_ZERO   -0.0
+ *     FP_PLUS_INF     +INF
+ *     FP_MINUS_INF    -INF
+ *     FP_NANS         Signaling Not a Number (NaNS)
+ *     FP_NANQ         Quiet Not a Number (NaNQ)
+ */
+/*#define HAS_CLASS            /**/
+
+/* HAS_CLEARENV:
+ *     This symbol, if defined, indicates that the clearenv () routine is
+ *     available for use.
+ */
+/*#define HAS_CLEARENV         /**/
+
+/* VOID_CLOSEDIR:
+ *     This symbol, if defined, indicates that the closedir() routine
+ *     does not return a value.
+ */
+/*#define VOID_CLOSEDIR                /**/
+
+/* HAS_STRUCT_CMSGHDR:
+ *     This symbol, if defined, indicates that the struct cmsghdr
+ *     is supported.
+ */
+/*#define HAS_STRUCT_CMSGHDR   /**/
+
+/* HAS_COPYSIGNL:
+ *     This symbol, if defined, indicates that the copysignl routine is
+ *     available.  If aintl is also present we can emulate modfl.
+ */
+/*#define HAS_COPYSIGNL                /**/
+
+/* HAS_CRYPT:
+ *     This symbol, if defined, indicates that the crypt routine is available
+ *     to encrypt passwords and the like.
+ */
+/*#define HAS_CRYPT            /**/
+
+/* HAS_CRYPT_R:
+ *     This symbol, if defined, indicates that the crypt_r routine
+ *     is available to crypt re-entrantly.
+ */
+/* CRYPT_R_PROTO:
+ *     This symbol encodes the prototype of crypt_r.
+ *     It is zero if d_crypt_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_crypt_r
+ *     is defined.
+ */
+/*#define HAS_CRYPT_R     /**/
+#define CRYPT_R_PROTO 0           /**/
+
+/* 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
+
+/* HAS_CTERMID_R:
+ *     This symbol, if defined, indicates that the ctermid_r routine
+ *     is available to ctermid re-entrantly.
+ */
+/* CTERMID_R_PROTO:
+ *     This symbol encodes the prototype of ctermid_r.
+ *     It is zero if d_ctermid_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_ctermid_r
+ *     is defined.
+ */
+/*#define HAS_CTERMID_R           /**/
+#define CTERMID_R_PROTO 0         /**/
+
+/* HAS_CTIME_R:
+ *     This symbol, if defined, indicates that the ctime_r routine
+ *     is available to ctime re-entrantly.
+ */
+/* CTIME_R_PROTO:
+ *     This symbol encodes the prototype of ctime_r.
+ *     It is zero if d_ctime_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_ctime_r
+ *     is defined.
+ */
+/*#define HAS_CTIME_R     /**/
+#define CTIME_R_PROTO 0           /**/
+
+/* HAS_DBMINIT_PROTO:
+ *     This symbol, if defined, indicates that the system provides
+ *     a prototype for the dbminit() function.  Otherwise, it is up
+ *     to the program to supply one.  A good guess is
+ *             extern int dbminit(char *);
+ */
+/*#define      HAS_DBMINIT_PROTO       /**/
+
+/* HAS_DIRFD:
+ *     This manifest constant lets the C program know that dirfd
+ *     is available.
+ */
+/*#define HAS_DIRFD            /**/
+
+/* 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  /**/
+
+/* 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_DRAND48_R:
+ *     This symbol, if defined, indicates that the drand48_r routine
+ *     is available to drand48 re-entrantly.
+ */
+/* DRAND48_R_PROTO:
+ *     This symbol encodes the prototype of drand48_r.
+ *     It is zero if d_drand48_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_drand48_r
+ *     is defined.
+ */
+/*#define HAS_DRAND48_R           /**/
+#define DRAND48_R_PROTO 0         /**/
+
+/* 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_ENDGRENT_R:
+ *     This symbol, if defined, indicates that the endgrent_r routine
+ *     is available to endgrent re-entrantly.
+ */
+/* ENDGRENT_R_PROTO:
+ *     This symbol encodes the prototype of endgrent_r.
+ *     It is zero if d_endgrent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_endgrent_r
+ *     is defined.
+ */
+/*#define HAS_ENDGRENT_R          /**/
+#define ENDGRENT_R_PROTO 0        /**/
+
+/* 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_ENDHOSTENT_R:
+ *     This symbol, if defined, indicates that the endhostent_r routine
+ *     is available to endhostent re-entrantly.
+ */
+/* ENDHOSTENT_R_PROTO:
+ *     This symbol encodes the prototype of endhostent_r.
+ *     It is zero if d_endhostent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_endhostent_r
+ *     is defined.
+ */
+/*#define HAS_ENDHOSTENT_R        /**/
+#define ENDHOSTENT_R_PROTO 0      /**/
+
+/* 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_ENDNETENT_R:
+ *     This symbol, if defined, indicates that the endnetent_r routine
+ *     is available to endnetent re-entrantly.
+ */
+/* ENDNETENT_R_PROTO:
+ *     This symbol encodes the prototype of endnetent_r.
+ *     It is zero if d_endnetent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_endnetent_r
+ *     is defined.
+ */
+/*#define HAS_ENDNETENT_R         /**/
+#define ENDNETENT_R_PROTO 0       /**/
+
+/* 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_ENDPROTOENT_R:
+ *     This symbol, if defined, indicates that the endprotoent_r routine
+ *     is available to endprotoent re-entrantly.
+ */
+/* ENDPROTOENT_R_PROTO:
+ *     This symbol encodes the prototype of endprotoent_r.
+ *     It is zero if d_endprotoent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_endprotoent_r
+ *     is defined.
+ */
+/*#define HAS_ENDPROTOENT_R       /**/
+#define ENDPROTOENT_R_PROTO 0     /**/
+
+/* 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_ENDPWENT_R:
+ *     This symbol, if defined, indicates that the endpwent_r routine
+ *     is available to endpwent re-entrantly.
+ */
+/* ENDPWENT_R_PROTO:
+ *     This symbol encodes the prototype of endpwent_r.
+ *     It is zero if d_endpwent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_endpwent_r
+ *     is defined.
+ */
+/*#define HAS_ENDPWENT_R          /**/
+#define ENDPWENT_R_PROTO 0        /**/
+
+/* 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_ENDSERVENT_R:
+ *     This symbol, if defined, indicates that the endservent_r routine
+ *     is available to endservent re-entrantly.
+ */
+/* ENDSERVENT_R_PROTO:
+ *     This symbol encodes the prototype of endservent_r.
+ *     It is zero if d_endservent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_endservent_r
+ *     is defined.
+ */
+/*#define HAS_ENDSERVENT_R        /**/
+#define ENDSERVENT_R_PROTO 0      /**/
+
+/* HAS_FAST_STDIO:
+ *     This symbol, if defined, indicates that the "fast stdio"
+ *     is available to manipulate the stdio buffers directly.
+ */
+/*#define HAS_FAST_STDIO               /**/
+
+/* HAS_FCHDIR:
+ *     This symbol, if defined, indicates that the fchdir routine is
+ *     available to change directory using a file descriptor.
+ */
+/*#define HAS_FCHDIR           /**/
+
+/* FCNTL_CAN_LOCK:
+ *     This symbol, if defined, indicates that fcntl() can be used
+ *     for file locking.  Normally on Unix systems this is defined.
+ *     It may be undefined on VMS.
+ */
+/*#define FCNTL_CAN_LOCK               /**/
+
+/* HAS_FD_SET:
+ *     This symbol, when defined, indicates presence of the fd_set typedef
+ *     in <sys/types.h>
+ */
+#define HAS_FD_SET     /**/
+
+/* HAS_FINITE:
+ *     This symbol, if defined, indicates that the finite routine is
+ *     available to check whether a double is finite (non-infinity non-NaN).
+ */
+/*#define HAS_FINITE           /**/
+
+/* HAS_FINITEL:
+ *     This symbol, if defined, indicates that the finitel routine is
+ *     available to check whether a long double is finite
+ *     (non-infinity non-NaN).
+ */
+/*#define HAS_FINITEL          /**/
+
+/* FLEXFILENAMES:
+ *     This symbol, if defined, indicates that the system supports filenames
+ *     longer than 14 characters.
+ */
+#define        FLEXFILENAMES           /**/
+
+/* HAS_FLOCK_PROTO:
+ *     This symbol, if defined, indicates that the system provides
+ *     a prototype for the flock() function.  Otherwise, it is up
+ *     to the program to supply one.  A good guess is
+ *             extern int flock(int, int);
+ */
+/*#define      HAS_FLOCK_PROTO /**/
+
+/* HAS_FP_CLASS:
+ *     This symbol, if defined, indicates that the fp_class routine is
+ *     available to classify doubles.  Available for example in Digital UNIX.
+ *     The returned values are defined in <math.h> and are:
+ *
+ *     FP_SNAN           Signaling NaN (Not-a-Number)
+ *     FP_QNAN           Quiet NaN (Not-a-Number)
+ *     FP_POS_INF        +infinity
+ *     FP_NEG_INF        -infinity
+ *     FP_POS_NORM       Positive normalized
+ *     FP_NEG_NORM       Negative normalized
+ *     FP_POS_DENORM     Positive denormalized
+ *     FP_NEG_DENORM     Negative denormalized
+ *     FP_POS_ZERO       +0.0 (positive zero)
+ *     FP_NEG_ZERO       -0.0 (negative zero)
+ */
+/*#define HAS_FP_CLASS         /**/
+
+/* HAS_FPCLASS:
+ *     This symbol, if defined, indicates that the fpclass routine is
+ *     available to classify doubles.  Available for example in Solaris/SVR4.
+ *     The returned values are defined in <ieeefp.h> and are:
+ *
+ *     FP_SNAN         signaling NaN
+ *     FP_QNAN         quiet NaN
+ *     FP_NINF         negative infinity
+ *     FP_PINF         positive infinity
+ *     FP_NDENORM      negative denormalized non-zero
+ *     FP_PDENORM      positive denormalized non-zero
+ *     FP_NZERO        negative zero
+ *     FP_PZERO        positive zero
+ *     FP_NNORM        negative normalized non-zero
+ *     FP_PNORM        positive normalized non-zero
+ */
+/*#define HAS_FPCLASS          /**/
+
+/* HAS_FPCLASSIFY:
+ *     This symbol, if defined, indicates that the fpclassify routine is
+ *     available to classify doubles.  Available for example in HP-UX.
+ *     The returned values are defined in <math.h> and are
+ *
+ *           FP_NORMAL     Normalized
+ *           FP_ZERO       Zero
+ *           FP_INFINITE   Infinity
+ *           FP_SUBNORMAL  Denormalized
+ *           FP_NAN        NaN
+ *
+ */
+/*#define HAS_FPCLASSIFY               /**/
+
+/* HAS_FPCLASSL:
+ *     This symbol, if defined, indicates that the fpclassl routine is
+ *     available to classify long doubles.  Available for example in IRIX.
+ *     The returned values are defined in <ieeefp.h> and are:
+ *
+ *     FP_SNAN         signaling NaN
+ *     FP_QNAN         quiet NaN
+ *     FP_NINF         negative infinity
+ *     FP_PINF         positive infinity
+ *     FP_NDENORM      negative denormalized non-zero
+ *     FP_PDENORM      positive denormalized non-zero
+ *     FP_NZERO        negative zero
+ *     FP_PZERO        positive zero
+ *     FP_NNORM        negative normalized non-zero
+ *     FP_PNORM        positive normalized non-zero
+ */
+/*#define HAS_FPCLASSL         /**/
+
+/* HAS_FPOS64_T:
+ *     This symbol will be defined if the C compiler supports fpos64_t.
+ */
+/*#define      HAS_FPOS64_T            /**/
+
+/* HAS_FREXPL:
+ *     This symbol, if defined, indicates that the frexpl routine is
+ *     available to break a long double floating-point number into
+ *     a normalized fraction and an integral power of 2.
+ */
+/*#define HAS_FREXPL           /**/
+
+/* 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_FSYNC:
+ *     This symbol, if defined, indicates that the fsync routine is
+ *     available to write a file's modified data and attributes to
+ *     permanent storage.
+ */
+/*#define HAS_FSYNC            /**/
+
+/* 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           /**/
+
+/* HAS_FUTIMES:
+ *     This symbol, if defined, indicates that the futimes routine is
+ *     available to change file descriptor time stamps with struct timevals.
+ */
+/*#define HAS_FUTIMES          /**/
+
+/* 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.
+ *     The usual 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_GETESPWNAM:
+ *     This symbol, if defined, indicates that the getespwnam system call is
+ *     available to retrieve enchanced (shadow) password entries by name.
+ */
+/*#define HAS_GETESPWNAM               /**/
+
+/* 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_GETGRENT_R:
+ *     This symbol, if defined, indicates that the getgrent_r routine
+ *     is available to getgrent re-entrantly.
+ */
+/* GETGRENT_R_PROTO:
+ *     This symbol encodes the prototype of getgrent_r.
+ *     It is zero if d_getgrent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getgrent_r
+ *     is defined.
+ */
+/*#define HAS_GETGRENT_R          /**/
+#define GETGRENT_R_PROTO 0        /**/
+
+/* HAS_GETGRGID_R:
+ *     This symbol, if defined, indicates that the getgrgid_r routine
+ *     is available to getgrgid re-entrantly.
+ */
+/* GETGRGID_R_PROTO:
+ *     This symbol encodes the prototype of getgrgid_r.
+ *     It is zero if d_getgrgid_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getgrgid_r
+ *     is defined.
+ */
+/*#define HAS_GETGRGID_R          /**/
+#define GETGRGID_R_PROTO 0        /**/
+
+/* HAS_GETGRNAM_R:
+ *     This symbol, if defined, indicates that the getgrnam_r routine
+ *     is available to getgrnam re-entrantly.
+ */
+/* GETGRNAM_R_PROTO:
+ *     This symbol encodes the prototype of getgrnam_r.
+ *     It is zero if d_getgrnam_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getgrnam_r
+ *     is defined.
+ */
+/*#define HAS_GETGRNAM_R          /**/
+#define GETGRNAM_R_PROTO 0        /**/
+
+/* 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_GETHOSTBYADDR_R:
+ *     This symbol, if defined, indicates that the gethostbyaddr_r routine
+ *     is available to gethostbyaddr re-entrantly.
+ */
+/* GETHOSTBYADDR_R_PROTO:
+ *     This symbol encodes the prototype of gethostbyaddr_r.
+ *     It is zero if d_gethostbyaddr_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_gethostbyaddr_r
+ *     is defined.
+ */
+/*#define HAS_GETHOSTBYADDR_R     /**/
+#define GETHOSTBYADDR_R_PROTO 0           /**/
+
+/* HAS_GETHOSTBYNAME_R:
+ *     This symbol, if defined, indicates that the gethostbyname_r routine
+ *     is available to gethostbyname re-entrantly.
+ */
+/* GETHOSTBYNAME_R_PROTO:
+ *     This symbol encodes the prototype of gethostbyname_r.
+ *     It is zero if d_gethostbyname_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_gethostbyname_r
+ *     is defined.
+ */
+/*#define HAS_GETHOSTBYNAME_R     /**/
+#define GETHOSTBYNAME_R_PROTO 0           /**/
+
+/* HAS_GETHOSTENT_R:
+ *     This symbol, if defined, indicates that the gethostent_r routine
+ *     is available to gethostent re-entrantly.
+ */
+/* GETHOSTENT_R_PROTO:
+ *     This symbol encodes the prototype of gethostent_r.
+ *     It is zero if d_gethostent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_gethostent_r
+ *     is defined.
+ */
+/*#define HAS_GETHOSTENT_R        /**/
+#define GETHOSTENT_R_PROTO 0      /**/
+
+/* 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_GETITIMER:
+ *     This symbol, if defined, indicates that the getitimer routine is
+ *     available to return interval timers.
+ */
+/*#define HAS_GETITIMER                /**/
+
+/* HAS_GETLOGIN_R:
+ *     This symbol, if defined, indicates that the getlogin_r routine
+ *     is available to getlogin re-entrantly.
+ */
+/* GETLOGIN_R_PROTO:
+ *     This symbol encodes the prototype of getlogin_r.
+ *     It is zero if d_getlogin_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getlogin_r
+ *     is defined.
+ */
+/*#define HAS_GETLOGIN_R          /**/
+#define GETLOGIN_R_PROTO 0        /**/
+
+/* 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_GETNETBYADDR_R:
+ *     This symbol, if defined, indicates that the getnetbyaddr_r routine
+ *     is available to getnetbyaddr re-entrantly.
+ */
+/* GETNETBYADDR_R_PROTO:
+ *     This symbol encodes the prototype of getnetbyaddr_r.
+ *     It is zero if d_getnetbyaddr_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getnetbyaddr_r
+ *     is defined.
+ */
+/*#define HAS_GETNETBYADDR_R      /**/
+#define GETNETBYADDR_R_PROTO 0    /**/
+
+/* HAS_GETNETBYNAME_R:
+ *     This symbol, if defined, indicates that the getnetbyname_r routine
+ *     is available to getnetbyname re-entrantly.
+ */
+/* GETNETBYNAME_R_PROTO:
+ *     This symbol encodes the prototype of getnetbyname_r.
+ *     It is zero if d_getnetbyname_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getnetbyname_r
+ *     is defined.
+ */
+/*#define HAS_GETNETBYNAME_R      /**/
+#define GETNETBYNAME_R_PROTO 0    /**/
+
+/* HAS_GETNETENT_R:
+ *     This symbol, if defined, indicates that the getnetent_r routine
+ *     is available to getnetent re-entrantly.
+ */
+/* GETNETENT_R_PROTO:
+ *     This symbol encodes the prototype of getnetent_r.
+ *     It is zero if d_getnetent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getnetent_r
+ *     is defined.
+ */
+/*#define HAS_GETNETENT_R         /**/
+#define GETNETENT_R_PROTO 0       /**/
+
+/* 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_GETPAGESIZE:
+ *     This symbol, if defined, indicates that the getpagesize system call
+ *     is available to get system page size, which is the granularity of
+ *     many memory management calls.
+ */
+/*#define HAS_GETPAGESIZE              /**/
+
+/* 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_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_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_GETPROTOBYNAME_R:
+ *     This symbol, if defined, indicates that the getprotobyname_r routine
+ *     is available to getprotobyname re-entrantly.
+ */
+/* GETPROTOBYNAME_R_PROTO:
+ *     This symbol encodes the prototype of getprotobyname_r.
+ *     It is zero if d_getprotobyname_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getprotobyname_r
+ *     is defined.
+ */
+/*#define HAS_GETPROTOBYNAME_R    /**/
+#define GETPROTOBYNAME_R_PROTO 0          /**/
+
+/* HAS_GETPROTOBYNUMBER_R:
+ *     This symbol, if defined, indicates that the getprotobynumber_r routine
+ *     is available to getprotobynumber re-entrantly.
+ */
+/* GETPROTOBYNUMBER_R_PROTO:
+ *     This symbol encodes the prototype of getprotobynumber_r.
+ *     It is zero if d_getprotobynumber_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getprotobynumber_r
+ *     is defined.
+ */
+/*#define HAS_GETPROTOBYNUMBER_R          /**/
+#define GETPROTOBYNUMBER_R_PROTO 0        /**/
+
+/* HAS_GETPROTOENT_R:
+ *     This symbol, if defined, indicates that the getprotoent_r routine
+ *     is available to getprotoent re-entrantly.
+ */
+/* GETPROTOENT_R_PROTO:
+ *     This symbol encodes the prototype of getprotoent_r.
+ *     It is zero if d_getprotoent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getprotoent_r
+ *     is defined.
+ */
+/*#define HAS_GETPROTOENT_R       /**/
+#define GETPROTOENT_R_PROTO 0     /**/
+
+/* 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_GETPRPWNAM:
+ *     This symbol, if defined, indicates that the getprpwnam system call is
+ *     available to retrieve protected (shadow) password entries by name.
+ */
+/*#define HAS_GETPRPWNAM               /**/
+
+/* 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_GETPWENT_R:
+ *     This symbol, if defined, indicates that the getpwent_r routine
+ *     is available to getpwent re-entrantly.
+ */
+/* GETPWENT_R_PROTO:
+ *     This symbol encodes the prototype of getpwent_r.
+ *     It is zero if d_getpwent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getpwent_r
+ *     is defined.
+ */
+/*#define HAS_GETPWENT_R          /**/
+#define GETPWENT_R_PROTO 0        /**/
+
+/* HAS_GETPWNAM_R:
+ *     This symbol, if defined, indicates that the getpwnam_r routine
+ *     is available to getpwnam re-entrantly.
+ */
+/* GETPWNAM_R_PROTO:
+ *     This symbol encodes the prototype of getpwnam_r.
+ *     It is zero if d_getpwnam_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getpwnam_r
+ *     is defined.
+ */
+/*#define HAS_GETPWNAM_R          /**/
+#define GETPWNAM_R_PROTO 0        /**/
+
+/* HAS_GETPWUID_R:
+ *     This symbol, if defined, indicates that the getpwuid_r routine
+ *     is available to getpwuid re-entrantly.
+ */
+/* GETPWUID_R_PROTO:
+ *     This symbol encodes the prototype of getpwuid_r.
+ *     It is zero if d_getpwuid_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getpwuid_r
+ *     is defined.
+ */
+/*#define HAS_GETPWUID_R          /**/
+#define GETPWUID_R_PROTO 0        /**/
+
+/* 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_GETSERVBYNAME_R:
+ *     This symbol, if defined, indicates that the getservbyname_r routine
+ *     is available to getservbyname re-entrantly.
+ */
+/* GETSERVBYNAME_R_PROTO:
+ *     This symbol encodes the prototype of getservbyname_r.
+ *     It is zero if d_getservbyname_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getservbyname_r
+ *     is defined.
+ */
+/*#define HAS_GETSERVBYNAME_R     /**/
+#define GETSERVBYNAME_R_PROTO 0           /**/
+
+/* HAS_GETSERVBYPORT_R:
+ *     This symbol, if defined, indicates that the getservbyport_r routine
+ *     is available to getservbyport re-entrantly.
+ */
+/* GETSERVBYPORT_R_PROTO:
+ *     This symbol encodes the prototype of getservbyport_r.
+ *     It is zero if d_getservbyport_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getservbyport_r
+ *     is defined.
+ */
+/*#define HAS_GETSERVBYPORT_R     /**/
+#define GETSERVBYPORT_R_PROTO 0           /**/
+
+/* HAS_GETSERVENT_R:
+ *     This symbol, if defined, indicates that the getservent_r routine
+ *     is available to getservent re-entrantly.
+ */
+/* GETSERVENT_R_PROTO:
+ *     This symbol encodes the prototype of getservent_r.
+ *     It is zero if d_getservent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getservent_r
+ *     is defined.
+ */
+/*#define HAS_GETSERVENT_R        /**/
+#define GETSERVENT_R_PROTO 0      /**/
+
+/* 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_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_GETSPNAM_R:
+ *     This symbol, if defined, indicates that the getspnam_r routine
+ *     is available to getspnam re-entrantly.
+ */
+/* GETSPNAM_R_PROTO:
+ *     This symbol encodes the prototype of getspnam_r.
+ *     It is zero if d_getspnam_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getspnam_r
+ *     is defined.
+ */
+/*#define HAS_GETSPNAM_R          /**/
+#define GETSPNAM_R_PROTO 0        /**/
+
+/* 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_GMTIME_R:
+ *     This symbol, if defined, indicates that the gmtime_r routine
+ *     is available to gmtime re-entrantly.
+ */
+/* GMTIME_R_PROTO:
+ *     This symbol encodes the prototype of gmtime_r.
+ *     It is zero if d_gmtime_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_gmtime_r
+ *     is defined.
+ */
+/*#define HAS_GMTIME_R    /**/
+#define GMTIME_R_PROTO 0          /**/
+
+/* HAS_GNULIBC:
+ *     This symbol, if defined, indicates to the C program that
+ *     the GNU C library is being used.  A better check is to use
+ *     the __GLIBC__ and __GLIBC_MINOR__ symbols supplied with glibc.
+ */
+/*#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_ILOGBL:
+ *     This symbol, if defined, indicates that the ilogbl routine is
+ *     available.  If scalbnl is also present we can emulate frexpl.
+ */
+/*#define HAS_ILOGBL           /**/
+
+/* 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_ISFINITE:
+ *     This symbol, if defined, indicates that the isfinite routine is
+ *     available to check whether a double is finite (non-infinity non-NaN).
+ */
+/*#define HAS_ISFINITE         /**/
+
+/* HAS_ISINF:
+ *     This symbol, if defined, indicates that the isinf routine is
+ *     available to check whether a double is an infinity.
+ */
+/*#define HAS_ISINF            /**/
+
+/* HAS_ISNAN:
+ *     This symbol, if defined, indicates that the isnan routine is
+ *     available to check whether a double is a NaN.
+ */
+#define HAS_ISNAN              /**/
+
+/* HAS_ISNANL:
+ *     This symbol, if defined, indicates that the isnanl routine is
+ *     available to check whether a long double is a NaN.
+ */
+/*#define HAS_ISNANL           /**/
+
+/* 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           /**/
+
+/* 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   /**/
+
+/* LIBM_LIB_VERSION:
+ *     This symbol, if defined, indicates that libm exports _LIB_VERSION
+ *     and that math.h defines the enum to manipulate it.
+ */
+/*#define LIBM_LIB_VERSION             /**/
+
+/* HAS_LOCALTIME_R:
+ *     This symbol, if defined, indicates that the localtime_r routine
+ *     is available to localtime re-entrantly.
+ */
+/* LOCALTIME_R_PROTO:
+ *     This symbol encodes the prototype of localtime_r.
+ *     It is zero if d_localtime_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_localtime_r
+ *     is defined.
+ */
+/*#define HAS_LOCALTIME_R         /**/
+#define LOCALTIME_R_PROTO 0       /**/
+
+/* 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.
+ */
+/*#define HAS_LONG_DOUBLE              /**/
+#ifdef HAS_LONG_DOUBLE
+#define LONG_DOUBLESIZE 10             /**/
+#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_MALLOC_SIZE:
+ *     This symbol, if defined, indicates that the malloc_size
+ *     routine is available for use.
+ */
+/*#define HAS_MALLOC_SIZE              /**/
+
+/* HAS_MALLOC_GOOD_SIZE:
+ *     This symbol, if defined, indicates that the malloc_good_size
+ *     routine is available for use.
+ */
+/*#define HAS_MALLOC_GOOD_SIZE /**/
+
+/* 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_MODFL:
+ *     This symbol, if defined, indicates that the modfl routine is
+ *     available to split a long double x into a fractional part f and
+ *     an integer part i such that |f| < 1.0 and (f + i) = x.
+ */
+/* HAS_MODFL_PROTO:
+ *     This symbol, if defined, indicates that the system provides
+ *     a prototype for the modfl() function.  Otherwise, it is up
+ *     to the program to supply one.
+ */
+/* HAS_MODFL_POW32_BUG:
+ *     This symbol, if defined, indicates that the modfl routine is
+ *     broken for long doubles >= pow(2, 32).
+ *     For example from 4294967303.150000 one would get 4294967302.000000
+ *     and 1.150000.  The bug has been seen in certain versions of glibc,
+ *     release 2.2.2 is known to be okay.
+ */
+/*#define HAS_MODFL            /**/
+/*#define HAS_MODFL_PROTO              /**/
+/*#define HAS_MODFL_POW32_BUG          /**/
+
+/* 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_STRUCT_MSGHDR:
+ *     This symbol, if defined, indicates that the struct msghdr
+ *     is supported.
+ */
+/*#define HAS_STRUCT_MSGHDR    /**/
+
+/* HAS_NL_LANGINFO:
+ *     This symbol, if defined, indicates that the nl_langinfo routine is
+ *     available to return local data.  You will also need <langinfo.h>
+ *     and therefore I_LANGINFO.
+ */
+/*#define HAS_NL_LANGINFO              /**/
+
+/* 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            /**/
+
+/* HAS_PROCSELFEXE:
+ *     This symbol is defined if PROCSELFEXE_PATH is a symlink
+ *     to the absolute pathname of the executing program.
+ */
+/* PROCSELFEXE_PATH:
+ *     If HAS_PROCSELFEXE is defined this symbol is the filename
+ *     of the symbolic link pointing to the absolute pathname of
+ *     the executing program.
+ */
+/*#define HAS_PROCSELFEXE      /**/
+#if defined(HAS_PROCSELFEXE) && !defined(PROCSELFEXE_PATH)
+#define PROCSELFEXE_PATH               /**/
+#endif
+
+/* 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_ATFORK:
+ *     This symbol, if defined, indicates that the pthread_atfork routine
+ *     is available to setup fork handlers.
+ */
+/*#define HAS_PTHREAD_ATFORK           /**/
+
+/* HAS_PTHREAD_ATTR_SETSCOPE:
+ *     This symbol, if defined, indicates that the pthread_attr_setscope
+ *     system call is available to set the contention scope attribute of
+ *     a thread attribute object.
+ */
+/*#define HAS_PTHREAD_ATTR_SETSCOPE            /**/
+
+/* 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_RANDOM_R:
+ *     This symbol, if defined, indicates that the random_r routine
+ *     is available to random re-entrantly.
+ */
+/* RANDOM_R_PROTO:
+ *     This symbol encodes the prototype of random_r.
+ *     It is zero if d_random_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_random_r
+ *     is defined.
+ */
+/*#define HAS_RANDOM_R    /**/
+#define RANDOM_R_PROTO 0          /**/
+
+/* HAS_READDIR64_R:
+ *     This symbol, if defined, indicates that the readdir64_r routine
+ *     is available to readdir64 re-entrantly.
+ */
+/* READDIR64_R_PROTO:
+ *     This symbol encodes the prototype of readdir64_r.
+ *     It is zero if d_readdir64_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_readdir64_r
+ *     is defined.
+ */
+/*#define HAS_READDIR64_R         /**/
+#define READDIR64_R_PROTO 0       /**/
+
+/* HAS_READDIR_R:
+ *     This symbol, if defined, indicates that the readdir_r routine
+ *     is available to readdir re-entrantly.
+ */
+/* READDIR_R_PROTO:
+ *     This symbol encodes the prototype of readdir_r.
+ *     It is zero if d_readdir_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_readdir_r
+ *     is defined.
+ */
+/*#define HAS_READDIR_R           /**/
+#define READDIR_R_PROTO 0         /**/
+
+/* HAS_READV:
+ *     This symbol, if defined, indicates that the readv routine is
+ *     available to do gather reads.  You will also need <sys/uio.h>
+ *     and there I_SYSUIO.
+ */
+/*#define HAS_READV            /**/
+
+/* HAS_RECVMSG:
+ *     This symbol, if defined, indicates that the recvmsg routine is
+ *     available to send structured socket messages.
+ */
+/*#define HAS_RECVMSG          /**/
+
+/* HAS_SAFE_BCOPY:
+ *     This symbol, if defined, indicates that the bcopy routine is available
+ *     to copy potentially overlapping memory blocks. Normally, 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.  If you need to
+ *     copy overlapping memory blocks, you should check HAS_MEMMOVE and
+ *     use memmove() instead, if available.
+ */
+/*#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_SBRK_PROTO:
+ *     This symbol, if defined, indicates that the system provides
+ *     a prototype for the sbrk() function.  Otherwise, it is up
+ *     to the program to supply one.  Good guesses are
+ *             extern void* sbrk(int);
+ *             extern void* sbrk(size_t);
+ */
+/*#define      HAS_SBRK_PROTO  /**/
+
+/* HAS_SCALBNL:
+ *     This symbol, if defined, indicates that the scalbnl routine is
+ *     available.  If ilogbl is also present we can emulate frexpl.
+ */
+/*#define HAS_SCALBNL          /**/
+
+/* HAS_SEM:
+ *     This symbol, if defined, indicates that the entire sem*(2) library is
+ *     supported.
+ */
+/*#define HAS_SEM              /**/
+
+/* HAS_SENDMSG:
+ *     This symbol, if defined, indicates that the sendmsg routine is
+ *     available to send structured socket messages.
+ */
+/*#define HAS_SENDMSG          /**/
+
+/* 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_SETGRENT_R:
+ *     This symbol, if defined, indicates that the setgrent_r routine
+ *     is available to setgrent re-entrantly.
+ */
+/* SETGRENT_R_PROTO:
+ *     This symbol encodes the prototype of setgrent_r.
+ *     It is zero if d_setgrent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_setgrent_r
+ *     is defined.
+ */
+/*#define HAS_SETGRENT_R          /**/
+#define SETGRENT_R_PROTO 0        /**/
+
+/* 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_SETHOSTENT_R:
+ *     This symbol, if defined, indicates that the sethostent_r routine
+ *     is available to sethostent re-entrantly.
+ */
+/* SETHOSTENT_R_PROTO:
+ *     This symbol encodes the prototype of sethostent_r.
+ *     It is zero if d_sethostent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_sethostent_r
+ *     is defined.
+ */
+/*#define HAS_SETHOSTENT_R        /**/
+#define SETHOSTENT_R_PROTO 0      /**/
+
+/* HAS_SETITIMER:
+ *     This symbol, if defined, indicates that the setitimer routine is
+ *     available to set interval timers.
+ */
+/*#define HAS_SETITIMER                /**/
+
+/* HAS_SETLOCALE_R:
+ *     This symbol, if defined, indicates that the setlocale_r routine
+ *     is available to setlocale re-entrantly.
+ */
+/* SETLOCALE_R_PROTO:
+ *     This symbol encodes the prototype of setlocale_r.
+ *     It is zero if d_setlocale_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_setlocale_r
+ *     is defined.
+ */
+/*#define HAS_SETLOCALE_R         /**/
+#define SETLOCALE_R_PROTO 0       /**/
+
+/* HAS_SETNETENT:
+ *     This symbol, if defined, indicates that the setnetent() routine is
+ *     available.
+ */
+/*#define HAS_SETNETENT                /**/
+
+/* HAS_SETNETENT_R:
+ *     This symbol, if defined, indicates that the setnetent_r routine
+ *     is available to setnetent re-entrantly.
+ */
+/* SETNETENT_R_PROTO:
+ *     This symbol encodes the prototype of setnetent_r.
+ *     It is zero if d_setnetent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_setnetent_r
+ *     is defined.
+ */
+/*#define HAS_SETNETENT_R         /**/
+#define SETNETENT_R_PROTO 0       /**/
+
+/* HAS_SETPROTOENT:
+ *     This symbol, if defined, indicates that the setprotoent() routine is
+ *     available.
+ */
+/*#define HAS_SETPROTOENT              /**/
+
+/* 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_SETPROCTITLE:
+ *     This symbol, if defined, indicates that the setproctitle routine is
+ *     available to set process title.
+ */
+/*#define HAS_SETPROCTITLE             /**/
+
+/* HAS_SETPROTOENT_R:
+ *     This symbol, if defined, indicates that the setprotoent_r routine
+ *     is available to setprotoent re-entrantly.
+ */
+/* SETPROTOENT_R_PROTO:
+ *     This symbol encodes the prototype of setprotoent_r.
+ *     It is zero if d_setprotoent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_setprotoent_r
+ *     is defined.
+ */
+/*#define HAS_SETPROTOENT_R       /**/
+#define SETPROTOENT_R_PROTO 0     /**/
+
+/* 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_SETPWENT_R:
+ *     This symbol, if defined, indicates that the setpwent_r routine
+ *     is available to setpwent re-entrantly.
+ */
+/* SETPWENT_R_PROTO:
+ *     This symbol encodes the prototype of setpwent_r.
+ *     It is zero if d_setpwent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_setpwent_r
+ *     is defined.
+ */
+/*#define HAS_SETPWENT_R          /**/
+#define SETPWENT_R_PROTO 0        /**/
+
+/* HAS_SETSERVENT:
+ *     This symbol, if defined, indicates that the setservent() routine is
+ *     available.
+ */
+/*#define HAS_SETSERVENT               /**/
+
+/* HAS_SETSERVENT_R:
+ *     This symbol, if defined, indicates that the setservent_r routine
+ *     is available to setservent re-entrantly.
+ */
+/* SETSERVENT_R_PROTO:
+ *     This symbol encodes the prototype of setservent_r.
+ *     It is zero if d_setservent_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_setservent_r
+ *     is defined.
+ */
+/*#define HAS_SETSERVENT_R        /**/
+#define SETSERVENT_R_PROTO 0      /**/
+
+/* 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              /**/
+
+/* 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_SIGACTION:
+ *     This symbol, if defined, indicates that Vr4's sigaction() routine
+ *     is available.
+ */
+/*#define HAS_SIGACTION        /**/
+
+/* HAS_SIGPROCMASK:
+ *     This symbol, if defined, indicates that the sigprocmask
+ *     system call is available to examine or change the signal mask
+ *     of the calling process.
+ */
+/*#define HAS_SIGPROCMASK              /**/
+
+/* 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
+
+/* USE_SITECUSTOMIZE:
+ *     This symbol, if defined, indicates that sitecustomize should
+ *     be used.
+ */
+#ifndef USE_SITECUSTOMIZE
+/*#define      USE_SITECUSTOMIZE               /**/
+#endif
+
+/* HAS_SNPRINTF:
+ *     This symbol, if defined, indicates that the snprintf () library
+ *     function is available for use.
+ */
+/* HAS_VSNPRINTF:
+ *     This symbol, if defined, indicates that the vsnprintf () library
+ *     function is available for use.
+ */
+/*#define HAS_SNPRINTF /**/
+/*#define HAS_VSNPRINTF        /**/
+
+/* HAS_SOCKATMARK:
+ *     This symbol, if defined, indicates that the sockatmark routine is
+ *     available to test whether a socket is at the out-of-band mark.
+ */
+/*#define HAS_SOCKATMARK               /**/
+
+/* HAS_SOCKATMARK_PROTO:
+ *     This symbol, if defined, indicates that the system provides
+ *     a prototype for the sockatmark() function.  Otherwise, it is up
+ *     to the program to supply one.  A good guess is
+ *             extern int sockatmark(int);
+ */
+/*#define      HAS_SOCKATMARK_PROTO    /**/
+
+/* 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_SOCKS5_INIT:
+ *     This symbol, if defined, indicates that the socks5_init routine is
+ *     available to initialize SOCKS 5.
+ */
+/*#define HAS_SOCKS5_INIT              /**/
+
+/* SPRINTF_RETURNS_STRLEN:
+ *     This variable defines whether sprintf returns the length of the string
+ *     (as per the ANSI spec). Some C libraries retain compatibility with
+ *     pre-ANSI C and return a pointer to the passed in buffer; for these
+ *     this variable will be undef.
+ */
+#define SPRINTF_RETURNS_STRLEN /**/
+
+/* HAS_SQRTL:
+ *     This symbol, if defined, indicates that the sqrtl routine is
+ *     available to do long double square roots.
+ */
+/*#define HAS_SQRTL            /**/
+
+/* HAS_SRAND48_R:
+ *     This symbol, if defined, indicates that the srand48_r routine
+ *     is available to srand48 re-entrantly.
+ */
+/* SRAND48_R_PROTO:
+ *     This symbol encodes the prototype of srand48_r.
+ *     It is zero if d_srand48_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_srand48_r
+ *     is defined.
+ */
+/*#define HAS_SRAND48_R           /**/
+#define SRAND48_R_PROTO 0         /**/
+
+/* HAS_SRANDOM_R:
+ *     This symbol, if defined, indicates that the srandom_r routine
+ *     is available to srandom re-entrantly.
+ */
+/* SRANDOM_R_PROTO:
+ *     This symbol encodes the prototype of srandom_r.
+ *     It is zero if d_srandom_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_srandom_r
+ *     is defined.
+ */
+/*#define HAS_SRANDOM_R           /**/
+#define SRANDOM_R_PROTO 0         /**/
+
+/* HAS_SETRESGID_PROTO:
+ *     This symbol, if defined, indicates that the system provides
+ *     a prototype for the setresgid() function.  Otherwise, it is up
+ *     to the program to supply one.  Good guesses are
+ *             extern int setresgid(uid_t ruid, uid_t euid, uid_t suid);
+ */
+/*#define      HAS_SETRESGID_PROTO     /**/
+
+/* HAS_SETRESUID_PROTO:
+ *     This symbol, if defined, indicates that the system provides
+ *     a prototype for the setresuid() function.  Otherwise, it is up
+ *     to the program to supply one.  Good guesses are
+ *             extern int setresuid(uid_t ruid, uid_t euid, uid_t suid);
+ */
+/*#define      HAS_SETRESUID_PROTO     /**/
+
+/* 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.
+ */
+/* STDIO_PTR_LVAL_SETS_CNT:
+ *     This symbol is defined if using the FILE_ptr macro as an lvalue
+ *     to increase the pointer by n has the side effect of decreasing the
+ *     value of File_cnt(fp) by n.
+ */
+/* STDIO_PTR_LVAL_NOCHANGE_CNT:
+ *     This symbol is defined if using the FILE_ptr macro as an lvalue
+ *     to increase the pointer by n leaves File_cnt(fp) unchanged.
+ */
+/*#define USE_STDIO_PTR        /**/
+#ifdef USE_STDIO_PTR
+#define FILE_ptr(fp)
+/*#define STDIO_PTR_LVALUE             /**/
+#define FILE_cnt(fp)
+/*#define STDIO_CNT_LVALUE             /**/
+/*#define STDIO_PTR_LVAL_SETS_CNT      /**/
+/*#define STDIO_PTR_LVAL_NOCHANGE_CNT  /**/
+#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)
+#define FILE_bufsiz(fp)
+#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_STRERROR_R:
+ *     This symbol, if defined, indicates that the strerror_r routine
+ *     is available to strerror re-entrantly.
+ */
+/* STRERROR_R_PROTO:
+ *     This symbol encodes the prototype of strerror_r.
+ *     It is zero if d_strerror_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_strerror_r
+ *     is defined.
+ */
+/*#define HAS_STRERROR_R          /**/
+#define STRERROR_R_PROTO 0        /**/
+
+/* HAS_STRFTIME:
+ *     This symbol, if defined, indicates that the strftime routine is
+ *     available to do time formatting.
+ */
+/*#define HAS_STRFTIME         /**/
+
+/* HAS_STRLCAT:
+ *     This symbol, if defined, indicates that the strlcat () routine is
+ *     available to do string concatenation.
+ */
+/*#define HAS_STRLCAT          /**/
+
+/* HAS_STRLCPY:
+ *     This symbol, if defined, indicates that the strlcpy () routine is
+ *     available to do string copying.
+ */
+/*#define HAS_STRLCPY          /**/
+
+/* 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_STRTOQ:
+ *     This symbol, if defined, indicates that the strtoq routine is
+ *     available to convert strings to long longs (quads).
+ */
+/*#define HAS_STRTOQ           /**/
+
+/* 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_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_SYSCALL_PROTO:
+ *     This symbol, if defined, indicates that the system provides
+ *     a prototype for the syscall() function.  Otherwise, it is up
+ *     to the program to supply one.  Good guesses are
+ *             extern int syscall(int,  ...);
+ *             extern int syscall(long, ...);
+ */
+/*#define      HAS_SYSCALL_PROTO       /**/
+
+/* 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       /**/
+
+/* HAS_TIME:
+ *     This symbol, if defined, indicates that the time() routine exists.
+ */
+/* 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 HAS_TIME               /**/
+#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_TMPNAM_R:
+ *     This symbol, if defined, indicates that the tmpnam_r routine
+ *     is available to tmpnam re-entrantly.
+ */
+/* TMPNAM_R_PROTO:
+ *     This symbol encodes the prototype of tmpnam_r.
+ *     It is zero if d_tmpnam_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_tmpnam_r
+ *     is defined.
+ */
+/*#define HAS_TMPNAM_R    /**/
+#define TMPNAM_R_PROTO 0          /**/
+
+/* HAS_TTYNAME_R:
+ *     This symbol, if defined, indicates that the ttyname_r routine
+ *     is available to ttyname re-entrantly.
+ */
+/* TTYNAME_R_PROTO:
+ *     This symbol encodes the prototype of ttyname_r.
+ *     It is zero if d_ttyname_r is undef, and one of the
+ *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_ttyname_r
+ *     is defined.
+ */
+/*#define HAS_TTYNAME_R           /**/
+#define TTYNAME_R_PROTO 0         /**/
+
+/* U32_ALIGNMENT_REQUIRED:
+ *     This symbol, if defined, indicates that you must access
+ *     character data through U32-aligned pointers.
+ */
+#ifndef U32_ALIGNMENT_REQUIRED
+/*#define U32_ALIGNMENT_REQUIRED       /**/
+#endif
+
+/* HAS_UALARM:
+ *     This symbol, if defined, indicates that the ualarm routine is
+ *     available to do alarms with microsecond granularity.
+ */
+/*#define HAS_UALARM           /**/
+
+/* 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_UNORDERED:
+ *     This symbol, if defined, indicates that the unordered routine is
+ *     available to check whether two doubles are unordered
+ *     (effectively: whether either of them is NaN)
+ */
+/*#define HAS_UNORDERED                /**/
+
+/* HAS_UNSETENV:
+ *     This symbol, if defined, indicates that the unsetenv () routine is
+ *     available for use.
+ */
+/*#define HAS_UNSETENV         /**/
+
+/* HAS_USLEEP_PROTO:
+ *     This symbol, if defined, indicates that the system provides
+ *     a prototype for the usleep() function.  Otherwise, it is up
+ *     to the program to supply one.  A good guess is
+ *             extern int usleep(useconds_t);
+ */
+/*#define      HAS_USLEEP_PROTO        /**/
+
+/* 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    /**/
+
+/* HAS_WRITEV:
+ *     This symbol, if defined, indicates that the writev routine is
+ *     available to do scatter writes.
+ */
+/*#define HAS_WRITEV           /**/
+
+/* 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
+
+/* I_CRYPT:
+ *     This symbol, if defined, indicates that <crypt.h> exists and
+ *     should be included.
+ */
+/*#define      I_CRYPT         /**/
+
+/* 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.
+ */
+/* DB_VERSION_MAJOR_CFG:
+ *     This symbol, if defined, defines the major version number of
+ *     Berkeley DB found in the <db.h> header when Perl was configured.
+ */
+/* DB_VERSION_MINOR_CFG:
+ *     This symbol, if defined, defines the minor version number of
+ *     Berkeley DB found in the <db.h> header when Perl was configured.
+ *     For DB version 1 this is always 0.
+ */
+/* DB_VERSION_PATCH_CFG:
+ *     This symbol, if defined, defines the patch version number of
+ *     Berkeley DB found in the <db.h> header when Perl was configured.
+ *     For DB version 1 this is always 0.
+ */
+#define DB_Hash_t      int             /**/
+#define DB_Prefix_t    int     /**/
+#define DB_VERSION_MAJOR_CFG   undef   /**/
+#define DB_VERSION_MINOR_CFG   undef   /**/
+#define DB_VERSION_PATCH_CFG   undef   /**/
+
+/* I_FP:
+ *     This symbol, if defined, indicates that <fp.h> exists and
+ *     should be included.
+ */
+/*#define      I_FP            /**/
+
+/* I_FP_CLASS:
+ *     This symbol, if defined, indicates that <fp_class.h> exists and
+ *     should be included.
+ */
+/*#define      I_FP_CLASS              /**/
+
+/* 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_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_LANGINFO:
+ *     This symbol, if defined, indicates that <langinfo.h> exists and
+ *     should be included.
+ */
+/*#define      I_LANGINFO              /**/
+
+/* I_LIBUTIL:
+ *     This symbol, if defined, indicates that <libutil.h> exists and
+ *     should be included.
+ */
+/*#define      I_LIBUTIL               /**/
+
+/* 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_NDBM:
+ *     This symbol, if defined, indicates that <ndbm.h> exists and should
+ *     be included.
+ */
+/*#define I_NDBM       /**/
+
+/* 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_PROT:
+ *     This symbol, if defined, indicates that <prot.h> exists and
+ *     should be included.
+ */
+/*#define      I_PROT          /**/
+
+/* 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.
+ */
+/* HAS_TM_TM_ZONE:
+ *     This symbol, if defined, indicates to the C program that
+ *     the struct tm has a tm_zone field.
+ */
+/* HAS_TM_TM_GMTOFF:
+ *     This symbol, if defined, indicates to the C program that
+ *     the struct tm has a tm_gmtoff field.
+ */
+/*#define I_TIME               /**/
+/*#define I_SYS_TIME           /**/
+/*#define I_SYS_TIME_KERNEL            /**/
+/*#define HAS_TM_TM_ZONE               /**/
+/*#define HAS_TM_TM_GMTOFF             /**/
+
+/* I_USTAT:
+ *     This symbol, if defined, indicates that <ustat.h> exists and
+ *     should be included.
+ */
+/*#define      I_USTAT         /**/
+
+/* 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    /**/
+
+/* 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.
+ */
+/* PERL_PRIeldbl:
+ *     This symbol, if defined, contains the string used by stdio to
+ *     format long doubles (format 'e') for output.
+ */
+/* PERL_SCNfldbl:
+ *     This symbol, if defined, contains the string used by stdio to
+ *     format long doubles (format 'f') for input.
+ */
+/*#define PERL_PRIfldbl        "f"     /**/
+/*#define PERL_PRIgldbl        "g"     /**/
+/*#define PERL_PRIeldbl        "e"     /**/
+/*#define PERL_SCNfldbl                /**/
+
+/* 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 */
+
+/* PERL_MAD:
+ *     This symbol, if defined, indicates that the Misc Attribution
+ *     Declaration code should be conditionally compiled.
+ */
+/*#define      PERL_MAD                /**/
+
+/* 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                    /**/
+
+/* PERL_MALLOC_WRAP:
+ *     This symbol, if defined, indicates that we'd like malloc wrap checks.
+ */
+#define PERL_MALLOC_WRAP               /**/
+
+/* 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
+
+/* NEED_VA_COPY:
+ *     This symbol, if defined, indicates that the system stores
+ *     the variable argument list datatype, va_list, in a format
+ *     that cannot be copied by simple assignment, so that some
+ *     other means must be used when copying is required.
+ *     As such systems vary in their provision (or non-provision)
+ *     of copying mechanisms, handy.h defines a platform-
+ *     independent macro, Perl_va_copy(src, dst), to do the job.
+ */
+/*#define      NEED_VA_COPY            /**/
+
+/* 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 /**/
+
+/* PERL_OTHERLIBDIRS:
+ *     This variable contains a colon-separated set of paths for the perl
+ *     binary to search for additional library files or modules.
+ *     These directories will be tacked to the end of @INC.
+ *     Perl will automatically search below each path for version-
+ *     and architecture-specific directories.  See PERL_INC_VERSION_LIST
+ *     for more details.
+ */
+/*#define PERL_OTHERLIBDIRS ""         /**/
+
+/* 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
+
+/* 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).
+ */
+/* NVSIZE:
+ *     This symbol contains the sizeof(NV).
+ */
+/* NV_PRESERVES_UV:
+ *     This symbol, if defined, indicates that a variable of type NVTYPE
+ *     can preserve all the bits of a variable of type UVTYPE.
+ */
+/* NV_PRESERVES_UV_BITS:
+ *     This symbol contains the number of bits a variable of type NVTYPE
+ *     can preserve of a variable of type UVTYPE.
+ */
+/* NV_ZERO_IS_ALLBITS_ZERO:
+ *     This symbol, if defined, indicates that a variable of type NVTYPE
+ *     stores 0.0 in memory as all bits zero.
+ */
+#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        NVSIZE          8               /**/
+#define        NV_PRESERVES_UV
+#define        NV_PRESERVES_UV_BITS    32
+#undef NV_ZERO_IS_ALLBITS_ZERO
+#if UVSIZE == 8
+#   ifdef BYTEORDER
+#       if BYTEORDER == 0x1234
+#           undef BYTEORDER
+#           define BYTEORDER 0x12345678
+#       else
+#           if BYTEORDER == 0x4321
+#               undef BYTEORDER
+#               define BYTEORDER 0x87654321
+#           endif
+#       endif
+#   endif
+#endif
+
+/* 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"             /**/
+
+/* 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 "\\Storage Card\\perl58m\\lib"         /**/
+#define PRIVLIB_EXP (win32_get_privlib("5.9.4"))       /**/
+
+/* 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
+
+/* 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 its 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 *   /**/
+
+/* 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"  /**/
+
+/* 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_name_init list.
+ *     Note that this variable is initialized from the sig_name_init,
+ *     not from sig_name (which is unused).
+ */
+/* 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_init list.
+ *     Note that this variable is initialized from the sig_num_init,
+ *     not from sig_num (which is unused).
+ */
+/* SIG_SIZE:
+ *     This variable contains the number of elements of the SIG_NAME
+ *     and SIG_NUM arrays, excluding the final NULL entry.
+ */
+#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           /**/
+#define SIG_SIZE 27                    /**/
+
+/* 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 "\\Storage Card\\perl58m\\site\\lib"          /**/
+/*#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 "\\Storage Card\\perl58m\\site\\lib"           /**/
+#define SITELIB_EXP (win32_get_sitelib("5.9.4"))       /**/
+#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"             /**/
+
+/* 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   /**/
+
+/* 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_FAST_STDIO:
+ *     This symbol, if defined, indicates that Perl should
+ *     be built to use 'fast stdio'.
+ *     Defaults to define in Perls 5.8 and earlier, to undef later.
+ */
+#ifndef USE_FAST_STDIO
+/*#define      USE_FAST_STDIO          /**/
+#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.
+ */
+/* USE_REENTRANT_API:
+ *     This symbol, if defined, indicates that Perl should
+ *     try to use the various _r versions of library functions.
+ *     This is extremely experimental.
+ */
+/*#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                /**/
+/*#define      USE_REENTRANT_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
+
+#endif
diff --git a/wince/bin/exetype.pl b/wince/bin/exetype.pl
deleted file mode 100644 (file)
index 27e3b94..0000000
+++ /dev/null
@@ -1,108 +0,0 @@
-#!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
diff --git a/wince/bin/perlglob.pl b/wince/bin/perlglob.pl
deleted file mode 100644 (file)
index 17843c8..0000000
+++ /dev/null
@@ -1,53 +0,0 @@
-#!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
-
diff --git a/wince/bin/pl2bat.pl b/wince/bin/pl2bat.pl
deleted file mode 100644 (file)
index d70a316..0000000
+++ /dev/null
@@ -1,412 +0,0 @@
-    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 precede 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
-
diff --git a/wince/bin/runperl.pl b/wince/bin/runperl.pl
deleted file mode 100644 (file)
index 95b33f9..0000000
+++ /dev/null
@@ -1,67 +0,0 @@
-#!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
-
diff --git a/wince/bin/search.pl b/wince/bin/search.pl
deleted file mode 100644 (file)
index ad74001..0000000
+++ /dev/null
@@ -1,1866 +0,0 @@
-#!/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
diff --git a/wince/config_h.PL b/wince/config_h.PL
deleted file mode 100644 (file)
index 9a23252..0000000
+++ /dev/null
@@ -1,122 +0,0 @@
-#
-BEGIN { warn "Running ".__FILE__."\n" };
-BEGIN 
- {
-  require "Config.pm";
-  die "Config.pm:$@" if $@;
-  Config::->import;
- }
-use File::Compare qw(compare);
-use File::Copy qw(copy);
-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';
-
-warn "Writing $opt{CONFIG_H}\n";
-
-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,"$opt{CORE_DIR}/$opt{CONFIG_H}");
-copy("$file.new","$opt{CORE_DIR}/$opt{CONFIG_H}") || die "Cannot copy:$!";
-chmod(0444,"$opt{CORE_DIR}/$opt{CONFIG_H}");
-
-if (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;
-}
diff --git a/wince/config_sh.PL b/wince/config_sh.PL
deleted file mode 100644 (file)
index 3314832..0000000
+++ /dev/null
@@ -1,100 +0,0 @@
-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_ext();
-my @noxs    = FindExt::nonxs_ext();
-my @known   = sort(@dynamic,split(/\s+/,$opt{'staticext'}),@noxs);
-$opt{'known_extensions'} = join(' ',@known);
-
-@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;
-}
-
diff --git a/wince/dl_win32.xs b/wince/dl_win32.xs
deleted file mode 100644 (file)
index 64dc731..0000000
+++ /dev/null
@@ -1,171 +0,0 @@
-/* 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"
-
-#include "XSUB.h"
-
-typedef struct {
-    SV *       x_error_sv;
-} my_cxtx_t;           /* this *must* be named my_cxtx_t */
-
-#define DL_CXT_EXTRA   /* ask for dl_cxtx to be defined in dlutils.c */
-#include "dlutils.c"   /* SaveError() etc      */
-
-#define dl_error_sv    (dl_cxtx.x_error_sv)
-  
-static char *
-OS_Error_String(pTHX)
-{
-    dMY_CXT;
-    DWORD err = GetLastError();
-    STRLEN len;
-    if (!dl_error_sv)
-       dl_error_sv = newSVpvn("",0);
-    PerlProc_GetOSError(dl_error_sv,err);
-    return SvPV(dl_error_sv,len);
-}
-
-static void
-dl_private_init(pTHX)
-{
-    (void)dl_generic_private_init(aTHX);
-}
-
-/* 
-    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(aTHX);
-
-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(aTHX_ "load_file:%s",
-                 OS_Error_String(aTHX)) ;
-    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(aTHX_ "find_symbol:%s",
-                 OS_Error_String(aTHX)) ;
-    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(*)(pTHX_ CV *))symref,
-                                       filename)));
-
-
-char *
-dl_error()
-    CODE:
-    dMY_CXT;
-    RETVAL = dl_last_error;
-    OUTPUT:
-    RETVAL
-
-# end.
diff --git a/wince/include/arpa/inet.h b/wince/include/arpa/inet.h
deleted file mode 100644 (file)
index 0303df0..0000000
+++ /dev/null
@@ -1,4 +0,0 @@
-/* 
- * this is a dummy header file for Socket.xs 
- */
-
diff --git a/wince/include/sys/socket.h b/wince/include/sys/socket.h
deleted file mode 100644 (file)
index fbc6e09..0000000
+++ /dev/null
@@ -1,217 +0,0 @@
-/* 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 */
diff --git a/wince/makeico.pl b/wince/makeico.pl
deleted file mode 100644 (file)
index 7b1d533..0000000
+++ /dev/null
@@ -1,45 +0,0 @@
-open ICO, ">perl.ico" or die $!;
-while (<DATA>) {
-  chomp;
-  print ICO pack "H*", $_;
-}
-close ICO or die $!;
-
-# Create new hex data with
-# perl -wle 'binmode STDIN; $/ = \32; while (<>) {print unpack "H*", $_}' <perl.ico.orig
-# then place after __DATA__
-__DATA__
-000001000200101010000000000028010000260000002020100000000000e802
-00004e0100002800000010000000200000000100040000000000c00000000000
-0000000000000000000000000000000000000000800000800000008080008000
-00008000800080800000c0c0c000808080000000ff0000ff000000ffff00ff00
-0000ff00ff00ffff0000ffffff00000040000004000000000433334000000000
-003bb3000000000004b33b400000000044644644000000044ee44ee440000004
-eeeeeeee4000000eeeeeeeeee000000eeeeeeeeee000000eeeeeeeeee0000006
-eeeeefee60000000eeeeeeef000000000eeeeef0000000000066660000000000
-0000000000000000000000000000f00f0000f81f0000fc3f0000f81f0000f00f
-0000e0070000e0070000e0070000e0070000e0070000e0070000f00f0000f81f
-0000fc3f0000ffff0000ffff0000280000002000000040000000010004000000
-0000800200000000000000000000000000000000000000000000000080000080
-000000808000800000008000800080800000c0c0c000808080000000ff0000ff
-000000ffff00ff000000ff00ff00ffff0000ffffff0000000000044000004000
-00440000000000000000004444040404444000000000000000000004b3430343
-b400000000000000000000004bb333bb40000000000000000000000043bbbbb3
-4000000000000000000000004b3b3b3b400000000000000000000004bbb3b3bb
-b4000000000000000000004b444b3b444b40000000000000000004b46644b446
-64b400000000000000004b46e6e4b4e6e64b4000000000000004b46e6e64446e
-6e64b40000000000000446e6e6e646e6e6e644000000000000046e6e6e6e4eee
-ee6e6400000000000066e6e6eeee4eeeeeeee66000000000006e6e6eeeeeeeee
-eeeeee60000000000066e6eeeeeeeeeeeeeeee6000000000006e6eeeeeeeeeee
-eeeeee60000000000066eeeeeeeeeeeeeeeeee6000000000006e6eeeeeeeeeee
-feeeee60000000000066eeeeeeeeeeeefeeeef600000000000066eeeeeeeeeef
-feeee600000000000006eeeeeeeeefffeeeef6000000000000006eeeeeeeeeee
-eeef600000000000000006eeeeeeeeeeeef60000000000000000006eeeeeeeee
-ef60000000000000000000066eeeeeef66000000000000000000000006666666
-0000000000000000000000000000000000000000000000000000000000000000
-0000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000ff8000ffffc001ffffe0
-03fffff007fffff007fffff007ffffe003ffffc001ffff8000ffff00007ffe00
-003ffe00003ffe00003ffc00001ffc00001ffc00001ffc00001ffc00001ffc00
-001ffc00001ffe00003ffe00003fff00007fff8000ffffc001ffffe003fffff8
-0fffffffffffffffffffffffffffffffffffffffffff
diff --git a/wince/perlhost.h b/wince/perlhost.h
deleted file mode 100644 (file)
index a15ff6d..0000000
+++ /dev/null
@@ -1,2434 +0,0 @@
-/* perlhost.h
- *
- * (c) 1999 Microsoft Corporation. All rights reserved.
- * Portions (c) 1999 ActiveState Tool Corp, http://www.ActiveState.com/
- *
- *    You may distribute under the terms of either the GNU General Public
- *    License or the Artistic License, as specified in the README file.
- */
-
-#ifndef UNDER_CE
-#define CHECK_HOST_INTERP
-#endif
-
-#ifndef ___PerlHost_H___
-#define ___PerlHost_H___
-
-#ifndef UNDER_CE
-#include <signal.h>
-#endif
-#include "iperlsys.h"
-#include "vmem.h"
-#include "vdir.h"
-
-START_EXTERN_C
-extern char *          g_win32_get_privlib(const char *pl);
-extern char *          g_win32_get_sitelib(const char *pl);
-extern char *          g_win32_get_vendorlib(const char *pl);
-extern char *          g_getlogin(void);
-END_EXTERN_C
-
-class CPerlHost
-{
-public:
-    /* Constructors */
-    CPerlHost(void);
-    CPerlHost(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);
-    CPerlHost(CPerlHost& host);
-    ~CPerlHost(void);
-
-    static CPerlHost* IPerlMem2Host(struct IPerlMem* piPerl);
-    static CPerlHost* IPerlMemShared2Host(struct IPerlMem* piPerl);
-    static CPerlHost* IPerlMemParse2Host(struct IPerlMem* piPerl);
-    static CPerlHost* IPerlEnv2Host(struct IPerlEnv* piPerl);
-    static CPerlHost* IPerlStdIO2Host(struct IPerlStdIO* piPerl);
-    static CPerlHost* IPerlLIO2Host(struct IPerlLIO* piPerl);
-    static CPerlHost* IPerlDir2Host(struct IPerlDir* piPerl);
-    static CPerlHost* IPerlSock2Host(struct IPerlSock* piPerl);
-    static CPerlHost* IPerlProc2Host(struct IPerlProc* piPerl);
-
-    BOOL PerlCreate(void);
-    int PerlParse(int argc, char** argv, char** env);
-    int PerlRun(void);
-    void PerlDestroy(void);
-
-/* IPerlMem */
-    /* Locks provided but should be unnecessary as this is private pool */
-    inline void* Malloc(size_t size) { return m_pVMem->Malloc(size); };
-    inline void* Realloc(void* ptr, size_t size) { return m_pVMem->Realloc(ptr, size); };
-    inline void Free(void* ptr) { m_pVMem->Free(ptr); };
-    inline void* Calloc(size_t num, size_t size)
-    {
-       size_t count = num*size;
-       void* lpVoid = Malloc(count);
-       if (lpVoid)
-           ZeroMemory(lpVoid, count);
-       return lpVoid;
-    };
-    inline void GetLock(void) { m_pVMem->GetLock(); };
-    inline void FreeLock(void) { m_pVMem->FreeLock(); };
-    inline int IsLocked(void) { return m_pVMem->IsLocked(); };
-
-/* IPerlMemShared */
-    /* Locks used to serialize access to the pool */
-    inline void GetLockShared(void) { m_pVMemShared->GetLock(); };
-    inline void FreeLockShared(void) { m_pVMemShared->FreeLock(); };
-    inline int IsLockedShared(void) { return m_pVMemShared->IsLocked(); };
-    inline void* MallocShared(size_t size)
-    {
-       void *result;
-       GetLockShared();
-       result = m_pVMemShared->Malloc(size);
-       FreeLockShared();
-       return result;
-    };
-    inline void* ReallocShared(void* ptr, size_t size)
-    {
-       void *result;