This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate mainline.
authorNick Ing-Simmons <nik@tiuk.ti.com>
Sun, 11 Aug 2002 10:22:36 +0000 (10:22 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Sun, 11 Aug 2002 10:22:36 +0000 (10:22 +0000)
p4raw-id: //depot/perlio@17708

73 files changed:
AUTHORS
Changes
Configure
MANIFEST
NetWare/Makefile
NetWare/config_H.wc
README.aix
README.cn
README.jp
README.win32
config_h.SH
cygwin/perlld.in
embed.h
epoc/config.sh
epoc/createpkg.pl
ext/B/B/Deparse.pm
ext/Opcode/Opcode.pm
ext/PerlIO/scalar/scalar.xs
ext/PerlIO/t/scalar.t
hints/aix.sh
hints/dgux.sh
hints/hpux.sh
installperl
keywords.h
keywords.pl
lib/Class/Struct.pm
lib/ExtUtils/MM_Unix.pm
lib/Pod/Usage.pm
lib/Unicode/Collate.pm
lib/Unicode/Collate/Changes
lib/Unicode/Collate/README
lib/Unicode/Collate/t/test.t
lib/sort.pm
lib/sort.t
makedef.pl
mg.c
op.c
opcode.h
opcode.pl
opnames.h
patchlevel.h
perl.c
perl.h
perly.c
perly.h
perly.y
perly_c.diff
pod/perl58delta.pod [new file with mode: 0644]
pod/perldelta.pod
pod/perlfunc.pod
pod/perlipc.pod
pod/perlop.pod
pp.c
pp.sym
pp_ctl.c
pp_hot.c
pp_proto.h
pp_sys.c
regcomp.c
t/comp/hints.t
t/lib/warnings/pp_hot
t/op/attrs.t
t/op/dor.t [new file with mode: 0644]
t/op/stash.t [new file with mode: 0644]
t/op/taint.t
toke.c
util.c
vms/descrip_mms.template
vms/perly_c.vms
vms/perly_h.vms
win32/Makefile
win32/makefile.mk
wince/Makefile.ce

diff --git a/AUTHORS b/AUTHORS
index 1f02eda..b0d2e8d 100644 (file)
--- a/AUTHORS
+++ b/AUTHORS
@@ -128,7 +128,7 @@ Clinton A. Pierce              <clintp@geeksalad.org>
 Colin Kuskie                   <ckuskie@cadence.com>
 Colin McMillen                 <mcmi0073@tc.umn.edu>
 Colin Meyer                    <cmeyer@helvella.org>
-Colin Watson                   <colin@zeus.com>
+Colin Watson                   <colinw@zeus.com>
 Conrad Augustin
 Conrad E. Kimball              <cek@tblv021.ca.boeing.com>
 Coral                          <coral@moonlight.crystalflame.net>
@@ -415,7 +415,7 @@ Kevin White                    <klwhite@magnus.acs.ohio-state.edu>
 Kim Frutiger
 Kingpin                        <mthurn@copper.dulles.tasc.com>
 Kirrily Robert                 <skud@infotrope.net>
-Kragen Sitaker                 <kragen@dnaco.net>
+Kragen Sitaker                 <kragen@pobox.com>
 Krishna Sethuraman             <krishna@sgi.com>
 Kurt D. Starsinic              <kstar@wolfetech.com>
 Kyriakos Georgiou
@@ -709,7 +709,7 @@ Vishal Bhatia                  <vishal@deja.com>
 Vlad Harchev                   <hvv@hippo.ru>
 Vladimir Alexiev               <vladimir@cs.ualberta.ca>
 W. Phillip Moore               <wpm@ms.com>
-Walt Mankowski                 <waltman@netaxs.com>
+Walt Mankowski                 <waltman@pobox.com>
 Walter Briscoe                 <w.briscoe@ponl.com>
 Warren Hyde                    <whyde@pezz.sps.mot.com>
 Warren Jones                   <wjones@tc.fluke.com>
diff --git a/Changes b/Changes
index 5fea8b3..bc5a5e9 100644 (file)
--- a/Changes
+++ b/Changes
@@ -27,3 +27,431 @@ example from http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/
 --------------
 Version v5.9.X         Development release working toward v5.10
 --------------
+____________________________________________________________________________
+[ 17702] By: hv                                    on 2002/08/08  15:08:57
+        Log: Subject: Re: README.aix
+             From: "H.Merijn Brand" <h.m.brand@hccnet.nl>
+             Date: Tue, 30 Jul 2002 13:30:29 +0200
+             Message-id: <20020730130812.48B9.H.M.BRAND@hccnet.nl>
+     Branch: perl
+          ! README.aix
+____________________________________________________________________________
+[ 17701] By: hv                                    on 2002/08/08  15:06:01
+        Log: Subject: [PATCH] Re: pp_sys.c compile failed..
+             From: Andy Dougherty <doughera@lafayette.edu>
+             Date: Tue, 6 Aug 2002 10:42:07 -0400 (EDT) (15:42 BST)
+             Message-id: <Pine.SOL.4.10.10208061024250.5315-100000@maxwell.phys.lafayette.edu>
+     Branch: perl
+          ! hints/aix.sh
+____________________________________________________________________________
+[ 17700] By: hv                                    on 2002/08/08  15:02:57
+        Log: Subject: [DOC PATCH] perlipc.pod
+             From: Arjen Laarhoven <arjen@nl.demon.net>
+             Date: Tue, 6 Aug 2002 14:16:01 +0200
+             Message-id: <20020806121601.GK40785@aragorn.noc.nl.demon.net>
+     Branch: perl
+          ! pod/perlipc.pod
+____________________________________________________________________________
+[ 17699] By: hv                                    on 2002/08/08  14:56:56
+        Log: Subject: [PATCH] Re: [perl #15898] coredump with variable our
+             From: Rafael Garcia-Suarez <rgarciasuarez@free.fr>
+             Date: Fri, 2 Aug 2002 23:44:21 +0200
+             Message-id: <20020802234421.11c62fe6.rgarciasuarez@free.fr>
+     Branch: perl
+          ! op.c t/op/attrs.t
+____________________________________________________________________________
+[ 17698] By: hv                                    on 2002/08/08  14:52:45
+        Log: Subject: [perl #16000] Configure -Dstatic_ext=foo builds foo as both static and dynamic
+             From: Yitzchak Scott-Thoennes (via RT) <perlbug@perl.org>
+             Date: 6 Aug 2002 04:28:15 -0000 (Tue 05:28 BST)
+             Message-id: <rt-16000-32913.8.41582281961522@bugs6.perl.org>
+     Branch: perl
+          ! Configure
+____________________________________________________________________________
+[ 17697] By: hv                                    on 2002/08/08  14:49:00
+        Log: Subject: Doc patch for Class::Struct under 5.8.0
+             From: Damian Conway <damian@conway.org>
+             Date: Tue, 30 Jul 2002 23:03:14 +1000
+             Message-id: <3D471FCF.1C7C6E6B@conway.org>
+     Branch: perl
+          ! lib/Class/Struct.pm
+____________________________________________________________________________
+[ 17696] By: hv                                    on 2002/08/08  14:44:21
+        Log: Subject: Re: [perl #15523] Memory Leak in split with trailing empty elements
+             From: Slaven Rezic <slaven.rezic@berlin.de>
+             Date: 31 Jul 2002 09:50:06 +0200
+             Message-id: <87ado85ob5.fsf@vran.herceg.de>
+     Branch: perl
+          ! pp.c
+____________________________________________________________________________
+[ 17695] By: hv                                    on 2002/08/08  14:40:41
+        Log: Subject: [PATCH] Re: [perl #15479] perl 5.8.0 segfault
+             From: Rafael Garcia-Suarez <rgarciasuarez@free.fr>
+             Date: Fri, 2 Aug 2002 00:13:10 +0200
+             Message-id: <20020802001310.7e1dc694.rgarciasuarez@free.fr>
+     Branch: perl
+          + t/op/stash.t
+          ! MANIFEST perl.h
+____________________________________________________________________________
+[ 17694] By: hv                                    on 2002/08/08  14:31:55
+        Log: Subject: Re: [RE-PATCH] Not OK: perl v5.8.0 on PA-RISC2.0 11.00
+             From: "H.Merijn Brand" <h.m.brand@hccnet.nl>
+             Date: Wed, 31 Jul 2002 16:04:02 +0200
+             Message-id: <20020731155005.4915.H.M.BRAND@hccnet.nl>
+     Branch: perl
+          ! hints/hpux.sh
+____________________________________________________________________________
+[ 17693] By: hv                                    on 2002/08/08  14:25:16
+        Log: Subject: [PATCH: lib/ExtUtils/MM_Unix.pm] Be less strict about what's POD.
+             From: Abigail <abigail@foad.org>
+             Date: Thu, 25 Jul 2002 08:52:52 -0700 (16:52 BST)
+             Message-id: <20020725085252.A2703@ucan.foad.org>
+     Branch: perl
+          ! lib/ExtUtils/MM_Unix.pm
+____________________________________________________________________________
+[ 17692] By: hv                                    on 2002/08/08  14:20:05
+        Log: Subject: [PATCH] README.jp and README.cn
+             From: Autrijus Tang <autrijus@autrijus.org>
+             Date: Thu, 25 Jul 2002 07:05:11 +0800
+             Message-id: <20020724230511.GA1327@not.autrijus.org>
+     Branch: perl
+          ! README.cn README.jp
+____________________________________________________________________________
+[ 17691] By: hv                                    on 2002/08/08  14:01:50
+        Log: Subject: [perl #15398] Usage::pod2usage looks for perldoc in $Config{bin} and not in $Config{scriptdir}
+             From: Henrik Tougaard (via RT) <perlbug@perl.org>
+             Date: 23 Jul 2002 13:45:49 -0000 (Tue 14:45 BST)
+             Message-id: <rt-15398-31095.6.30466042998663@perl>
+     Branch: perl
+          ! lib/Pod/Usage.pm
+____________________________________________________________________________
+[ 17690] By: rgs                                   on 2002/08/07  19:56:42
+        Log: Doc fix : the symbol for COPs wasn't documented.
+     Branch: perl
+          ! opcode.pl
+____________________________________________________________________________
+[ 17689] By: rgs                                   on 2002/08/06  20:45:30
+        Log: Subject: Re: no warnings 'io';
+             From: Nicholas Clark <nick@unfortu.net>
+             Date: Sat, 27 Jul 2002 21:49:55 +0100
+             Message-ID: <20020727204954.GB5117@Bagpuss.unfortu.net>
+             
+             Plus a little bit of regression tests.
+     Branch: perl
+          ! t/lib/warnings/pp_hot util.c
+____________________________________________________________________________
+[ 17688] By: rgs                                   on 2002/08/06  20:04:19
+        Log: Subject: [PATCH] XS build fix for VMS
+             From: "Craig A. Berry" <craigberry@mac.com>
+             Date: Sun, 4 Aug 2002 12:13:06 -0500
+             Message-ID: <a05111b07b97256e1c335@[172.16.52.1]>
+     Branch: perl
+          ! vms/descrip_mms.template
+____________________________________________________________________________
+[ 17687] By: rgs                                   on 2002/08/06  19:50:12
+        Log: PerlIO::scalar wasn't able to read from non-string
+             scalar ; now stringifies its argument.
+     Branch: perl
+          ! ext/PerlIO/scalar/scalar.xs ext/PerlIO/t/scalar.t
+____________________________________________________________________________
+[ 17686] By: rgs                                   on 2002/08/06  19:10:51
+        Log: More regression tests for $^H and %^H.
+             Add a TODO test for eval "" preserving %^H.
+     Branch: perl
+          ! t/comp/hints.t
+____________________________________________________________________________
+[ 17685] By: hv                                    on 2002/08/05  22:42:09
+        Log: Subject: Re: mention of "use sort" botched in perlfunc? + PATCH
+             From: "John P. Linderman" <jpl@research.att.com>
+             Date: Sun, 21 Jul 2002 12:13:32 -0400 (17:13 BST)
+             Message-id: <200207211613.MAA69505@raptor.research.att.com>
+     Branch: perl
+          ! lib/sort.pm lib/sort.t
+____________________________________________________________________________
+[ 17684] By: hv                                    on 2002/08/05  22:35:22
+        Log: Integrate from perlio: change #17653 fixes bug RT15283
+     Branch: perl
+         !> ext/PerlIO/via/via.xs
+____________________________________________________________________________
+[ 17683] By: hv                                    on 2002/08/05  22:26:45
+        Log: Integrate from maint-5.6/macperl via macperl
+             Changes 17660, 17661, 17662, 17663, 17664
+     Branch: perl
+         !> perl.c
+____________________________________________________________________________
+[ 17682] By: hv                                    on 2002/08/05  15:04:54
+        Log: Subject: Defined-or patch (cleaned up)
+             From: "Brent Dax" <brentdax@cpan.org>
+             Date: Fri, 26 Jul 2002 05:41:52 -0700 (13:41 BST)
+             Message-id: <000001c234a1$d1ca72c0$6501a8c0@deepblue>
+     Branch: perl
+          + t/op/dor.t
+          ! MANIFEST embed.h ext/B/B/Deparse.pm ext/Opcode/Opcode.pm
+          ! keywords.h keywords.pl op.c opcode.h opcode.pl opnames.h
+          ! perly.c perly.h perly.y perly_c.diff pod/perlop.pod pp.sym
+          ! pp_ctl.c pp_hot.c pp_proto.h toke.c vms/perly_c.vms
+          ! vms/perly_h.vms
+____________________________________________________________________________
+[ 17681] By: hv                                    on 2002/08/05  14:41:23
+        Log: typo
+     Branch: perl
+          ! keywords.h keywords.pl
+____________________________________________________________________________
+[ 17680] By: hv                                    on 2002/08/05  14:33:39
+        Log: warn that keywords.h is generated
+     Branch: perl
+          ! keywords.h keywords.pl
+____________________________________________________________________________
+[ 17679] By: hv                                    on 2002/08/04  23:40:22
+        Log: again: #17678 caused test failures in pod2html,
+             in which $1 could leak from previous regexp
+     Branch: perl
+          ! mg.c
+____________________________________________________________________________
+[ 17678] By: hv                                    on 2002/08/04  15:34:19
+        Log: Subject: Re: [ID 20020704.001] my $foo = $1 won't taint $foo (with use re 'taint')
+             From: hv@crypt.org
+             Date: Sun, 04 Aug 2002 17:40:30 +0100
+             Message-id: <200208041640.g74GeUU25061@crypt.compulink.co.uk>
+     Branch: perl
+          ! mg.c t/op/taint.t
+____________________________________________________________________________
+[ 17677] By: hv                                    on 2002/08/04  15:25:25
+        Log: Main branch no longer needs op/taint.t version check.
+     Branch: perl
+          ! t/op/taint.t
+____________________________________________________________________________
+[ 17676] By: hv                                    on 2002/08/04  15:14:09
+        Log: Subject: Re: [PATCH] Re: taint news
+             From: Rick Delaney <rick.delaney@rogers.com>
+             Date: 04 Aug 2002 00:28:58 EDT
+             Message-ID: <m3heibs0vp.fsf@cs839290-a.mtth.phub.net.cable.rogers.com>
+             Ref: 20020208.005
+     Branch: perl
+          ! pp_sys.c
+____________________________________________________________________________
+[ 17675] By: hv                                    on 2002/08/04  01:48:36
+        Log: Fix email address for Kragen Sitaker <kragen@pobox.com>.
+     Branch: perl
+          ! AUTHORS
+____________________________________________________________________________
+[ 17674] By: hv                                    on 2002/08/04  01:30:11
+        Log: Subject: [PATCH] AUTHORS
+             From: Colin Watson <colinw@zeus.com>
+             Date: Thu, 25 Jul 2002 15:54:37 +0100
+             Message-id: <20020725145437.GC4921@zeus.com>
+     Branch: perl
+          ! AUTHORS
+____________________________________________________________________________
+[ 17673] By: hv                                    on 2002/08/04  01:27:36
+        Log: Subject: [PATCH] AUTHORS
+             From: Walt Mankowski <waltman@pobox.com>
+             Date: Sat, 20 Jul 2002 22:56:12 -0400 (Sun 03:56 BST)
+             Message-id: <20020721025612.GB15958@pobox.com>
+     Branch: perl
+          ! AUTHORS
+____________________________________________________________________________
+[ 17672] By: hv                                    on 2002/08/04  01:25:14
+        Log: Subject: Re: mention of "use sort" botched in perlfunc?
+             From: Michael G Schwern <schwern@pobox.com>
+             Date: Sat, 20 Jul 2002 13:49:58 -0400 (18:49 BST)
+             Message-id: <20020720174958.GL362@ool-18b93024.dyn.optonline.net>
+     Branch: perl
+          ! pod/perlfunc.pod
+____________________________________________________________________________
+[ 17671] By: hv                                    on 2002/08/04  01:11:32
+        Log: Change version from 5.8.0 to 5.9.0.
+     Branch: perl
+          ! Configure NetWare/Makefile NetWare/config_H.wc
+          ! Porting/config.sh Porting/config_H README.win32 config_h.SH
+          ! cygwin/perlld.in epoc/config.sh epoc/createpkg.pl
+          ! hints/dgux.sh installperl lib/ExtUtils/MM_NW5.pm makedef.pl
+          ! patchlevel.h win32/Makefile win32/makefile.mk
+          ! wince/Makefile.ce
+____________________________________________________________________________
+[ 17670] By: pudge                                 on 2002/07/30  03:19:03
+        Log: Silent warnings in MM_MacOS
+     Branch: maint-5.8/macperl
+          ! lib/ExtUtils/MM_MacOS.pm
+____________________________________________________________________________
+[ 17669] By: pudge                                 on 2002/07/30  03:18:47
+        Log: Silent warnings in MM_MacOS
+     Branch: macperl
+          ! lib/ExtUtils/MM_MacOS.pm
+____________________________________________________________________________
+[ 17668] By: pudge                                 on 2002/07/30  03:16:52
+        Log: Help fixes from Thomas Wegner
+     Branch: macperl
+          ! macos/macperl/BuildHelpIndex macos/macperl/MacPerl.podhelp
+     Branch: maint-5.6/macperl
+          ! macos/macperl/BuildHelpIndex macos/macperl/MacPerl.podhelp
+     Branch: maint-5.8/macperl
+          ! macos/macperl/BuildHelpIndex macos/macperl/MacPerl.podhelp
+____________________________________________________________________________
+[ 17667] By: pudge                                 on 2002/07/29  20:42:43
+        Log: Integrate perl
+     Branch: macperl
+         +> Changes5.8 pod/perl58delta.pod
+         !> (integrate 36 files)
+____________________________________________________________________________
+[ 17666] By: pudge                                 on 2002/07/29  20:04:54
+        Log: Integrate from maint-5.6/macperl
+             
+             Changes 17660, 17661, 17662, 17663, 17664
+     Branch: macperl
+          ! macos/ext/Mac/Dialogs/Dialogs.pm macos/lib/Mac/AETE/App.pm
+          ! macos/lib/Mac/AETE/Format/Glue.pm macos/lib/Mac/OSA/Simple.pm
+          ! macos/macperl/Droplets/gluemac.plx perl.c
+____________________________________________________________________________
+[ 17665] By: pudge                                 on 2002/07/29  19:39:58
+        Log: Integrate from maint-5.6/macperl
+             
+             Changes 17660, 17661, 17662, 17663, 17664
+     Branch: maint-5.8/macperl
+          ! macos/ext/Mac/Dialogs/Dialogs.pm macos/lib/Mac/AETE/App.pm
+          ! macos/lib/Mac/AETE/Format/Glue.pm macos/lib/Mac/OSA/Simple.pm
+          ! macos/macperl/Droplets/gluemac.plx perl.c
+____________________________________________________________________________
+[ 17664] By: pudge                                 on 2002/07/29  19:20:51
+        Log: Neglected to include old bugfix from main branch
+     Branch: maint-5.6/macperl
+          ! perl.c
+____________________________________________________________________________
+[ 17663] By: pudge                                 on 2002/07/29  18:25:57
+        Log: Count line numbers properly in MacPerl app
+     Branch: maint-5.6/macperl
+          ! perl.c
+____________________________________________________________________________
+[ 17662] By: pudge                                 on 2002/07/29  18:21:16
+        Log: Make Mac::Glue work to glue Mac OS X apps under Classic
+     Branch: maint-5.6/macperl
+          ! macos/lib/Mac/AETE/App.pm macos/lib/Mac/AETE/Format/Glue.pm
+____________________________________________________________________________
+[ 17661] By: pudge                                 on 2002/07/29  18:20:46
+        Log: gluemac failed with some paths
+     Branch: maint-5.6/macperl
+          ! macos/macperl/Droplets/gluemac.plx
+____________________________________________________________________________
+[ 17660] By: pudge                                 on 2002/07/29  18:20:12
+        Log: Fix long-standing bug with popup menus not working in dialogs
+     Branch: maint-5.6/macperl
+          ! macos/ext/Mac/Dialogs/Dialogs.pm
+____________________________________________________________________________
+[ 17659] By: pudge                                 on 2002/07/29  18:19:00
+        Log: Update test script
+     Branch: maint-5.6/macperl
+          ! macos/MacPerlTests.cmd
+____________________________________________________________________________
+[ 17658] By: pudge                                 on 2002/07/29  18:18:35
+        Log: Portability fixes for blib
+             (already in 5.8/5.9)
+     Branch: maint-5.6/macperl
+          ! lib/blib.pm
+____________________________________________________________________________
+[ 17657] By: pudge                                 on 2002/07/29  18:17:54
+        Log: Minor test fixes
+     Branch: maint-5.6/macperl
+          ! t/lib/filespec.t t/op/magic.t
+____________________________________________________________________________
+[ 17656] By: ams                                   on 2002/07/28  06:12:33
+        Log: Subject: [PATCH] Typo in regcomp.c
+             From: Chris Ball <chris@cpan.org>
+             Date: 26 Jul 2002 17:49:35 +0100
+             Message-Id: <868z3yzb6o.fsf@void.printf.net>
+             (With additional tweak to s_reginclasslen.)
+     Branch: perl
+          ! regcomp.c
+____________________________________________________________________________
+[ 17655] By: jhi                                   on 2002/07/25  20:37:16
+        Log: Upgrade to Unicode::Collate 0.20.
+     Branch: perl
+          ! lib/Unicode/Collate.pm lib/Unicode/Collate/Changes
+          ! lib/Unicode/Collate/README lib/Unicode/Collate/t/test.t
+____________________________________________________________________________
+[ 17654] By: jhi                                   on 2002/07/23  16:33:52
+        Log: Commas, schcommas.
+     Branch: perl
+          ! patchlevel.h
+____________________________________________________________________________
+[ 17653] By: nick                                  on 2002/07/23  07:56:25
+        Log: Fix #15283 - binmode() was not passing mode
+             to PUSHED method called from PerlIO::via.
+     Branch: perlio
+          ! ext/PerlIO/via/via.xs
+____________________________________________________________________________
+[ 17652] By: nick                                  on 2002/07/23  07:55:03
+        Log: Integrate mainline to just past perl5.8.0
+     Branch: perlio
+         +> Changes5.8
+         !> Changes MANIFEST
+____________________________________________________________________________
+[ 17651] By: pudge                                 on 2002/07/23  03:24:35
+        Log: Integrate maint-5.6/perl
+     Branch: maint-5.6/macperl
+         +> t/win32/longpath.t
+         !> (integrate 35 files)
+____________________________________________________________________________
+[ 17650] By: gsar                                  on 2002/07/22  15:27:48
+        Log: create macperl-5.8 branch
+     Branch: maint-5.8/macperl
+         +> (branch 3480 files)
+____________________________________________________________________________
+[ 17649] By: jhi                                   on 2002/07/21  08:44:34
+        Log: Because of #17429.
+     Branch: maint-5.8/perl
+          ! pod/perldelta.pod
+____________________________________________________________________________
+[ 17648] By: chip                                  on 2002/07/19  22:51:19
+        Log: Update Changes.  (Including incorrect change #.)
+     Branch: maint-5.005/perl
+          ! Changes
+____________________________________________________________________________
+[ 17647] By: chip                                  on 2002/07/19  22:47:57
+        Log: ensure that hashes never attempt to malloc with a negative size
+             From: Hugo <hv@crypt.compulink.co.uk>
+             Subject: Re: [ID 20000421.002] Math::BigInt out of memory?
+     Branch: maint-5.005/perl
+          ! hv.c
+____________________________________________________________________________
+[ 17646] By: chip                                  on 2002/07/19  20:15:23
+        Log: Update Changes in preparation for 5.005_04.
+     Branch: maint-5.005/perl
+          ! Changes
+____________________________________________________________________________
+[ 17645] By: gsar                                  on 2002/07/19  19:29:57
+        Log: create maint-5.8 branch from perl/...@17638
+     Branch: maint-5.8/perl
+         +> (branch 2829 files)
+____________________________________________________________________________
+[ 17644] By: jhi                                   on 2002/07/19  18:55:18
+        Log: Copy perldelta as perl58delta, purge the perldelta.
+     Branch: perl
+          + pod/perl58delta.pod
+          ! MANIFEST pod/perldelta.pod
+____________________________________________________________________________
+[ 17642] By: jhi                                   on 2002/07/19  16:37:39
+        Log: Update Changes; mainly to get the DEVELNNNNN stamp back in business.
+     Branch: perl
+          ! Changes patchlevel.h
+____________________________________________________________________________
+[ 17641] By: jhi                                   on 2002/07/19  16:31:08
+        Log: Integrate perlio (no changes, but that's fine).
+     Branch: perl
+         !> embed.fnc perl.h
+____________________________________________________________________________
+[ 17640] By: nick                                  on 2002/07/19  07:09:37
+        Log: Integrate mainline@17638, apply couple
+             of whitespace edits so matches perl5.8.0 exactly.
+     Branch: perlio
+          ! embed.fnc perl.h
+         !> AUTHORS Changes Configure INSTALL NetWare/Makefile
+         !> NetWare/t/NWScripts.pl Porting/config.sh Porting/config_H
+         !> lib/File/stat.pm patchlevel.h pod/perldelta.pod
+         !> pod/perlfunc.pod pod/perlhist.pod pod/perlthrtut.pod
+         !> pod/perltoc.pod pod/perlvar.pod util.c
+____________________________________________________________________________
+[ 17639] By: jhi                                   on 2002/07/19  00:47:18
+        Log: It's all yours, Hugo.
+     Branch: perl
+          + Changes5.8
+          ! Changes MANIFEST
index 814f9e6..03b4c7d 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Fri Jul 19 01:54:37 EET DST 2002 [metaconfig 3.0 PL70]
+# Generated on Thu Aug  1 18:53:48 CEST 2002 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.org)
 
 cat >c1$$ <<EOF
@@ -1150,17 +1150,6 @@ elif test -d c:/. ; then
 fi
 
 i_whoami=''
-ccname=''
-ccversion=''
-perllibs=''
-: set useposix=false in your hint file to disable the POSIX extension.
-useposix=true
-: set useopcode=false in your hint file to disable the Opcode extension.
-useopcode=true
-: Trailing extension.  Override this in a hint file, if needed.
-: Extra object files, if any, needed on this platform.
-archobjs=''
-archname=''
 : Possible local include directories to search.
 : Set locincpth to "" in a hint file to defeat local include searches.
 locincpth="/usr/local/include /opt/local/include /usr/gnu/include"
@@ -1169,6 +1158,9 @@ locincpth="$locincpth /opt/gnu/include /usr/GNU/include /opt/GNU/include"
 : no include file wanted by default
 inclwanted=''
 
+: Trailing extension.  Override this in a hint file, if needed.
+: Extra object files, if any, needed on this platform.
+archobjs=''
 groupstype=''
 libnames=''
 : change the next line if compiling for Xenix/286 on Xenix/386
@@ -1192,17 +1184,25 @@ plibpth=''
 libswanted=''
 : some systems want to use only the non-versioned libso:s
 ignore_versioned_solibs=''
+: full support for void wanted by default
+defvoidused=15
+
+ccname=''
+ccversion=''
+perllibs=''
+: set useposix=false in your hint file to disable the POSIX extension.
+useposix=true
+: set useopcode=false in your hint file to disable the Opcode extension.
+useopcode=true
 archname64=''
 ccflags_uselargefiles=''
 ldflags_uselargefiles=''
 libswanted_uselargefiles=''
 : set usemultiplicity on the Configure command line to enable multiplicity.
 : set usesocks on the Configure command line to enable socks.
+archname=''
 : set usethreads on the Configure command line to enable threads.
 usereentrant='undef'
-: full support for void wanted by default
-defvoidused=15
-
 : List of libraries we want.
 : If anyone needs -lnet, put it in a hint file.
 libswanted='sfio socket bind inet nsl nm ndbm gdbm dbm db malloc dl'
@@ -9915,7 +9915,7 @@ echo " "
 echo 'Checking to see if your C compiler knows about "const"...' >&4
 $cat >const.c <<'EOCP'
 typedef struct spug { int drokk; } spug;
-int main()
+main()
 {
        const char *foo;
        const spug y;
@@ -13381,7 +13381,7 @@ $rm -f try.c try
 echo " "
 echo 'Checking to see if your C compiler knows about "volatile"...' >&4
 $cat >try.c <<'EOCP'
-int main()
+main()
 {
        typedef struct _goo_struct goo_struct;
        goo_struct * volatile goo = ((goo_struct *)0);
@@ -15596,7 +15596,7 @@ eval $inlibc
 echo " "
 echo "Checking to see if your C compiler can copy structs..." >&4
 $cat >try.c <<'EOCP'
-int main()
+main()
 {
        struct blurfl {
                int dyick;
@@ -19424,7 +19424,19 @@ Note that DynaLoader is always built and need not be mentioned here.
 
 EOM
        case "$dynamic_ext" in
-       '') dflt="$avail_ext" ;;
+       '')
+               : Exclude those listed in static_ext
+               dflt=''
+               for xxx in $avail_ext; do
+                       case " $static_ext " in
+                       *" $xxx "*) ;;
+                       *) dflt="$dflt $xxx" ;;
+                       esac
+               done
+               set X $dflt
+               shift
+               dflt="$*"
+               ;;
        *)      dflt="$dynamic_ext"
                # Perhaps we are reusing an old out-of-date config.sh.
                case "$hint" in
index d072177..8fea24d 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -2127,6 +2127,7 @@ pod/perl56delta.pod               Changes from 5.005 to 5.6
 pod/perl570delta.pod           Changes from 5.6 to 5.7.0
 pod/perl571delta.pod           Changes from 5.7.0 to 5.7.1
 pod/perl572delta.pod           Changes from 5.7.1 to 5.7.2
+pod/perl58delta.pod            Changes from 5.6 to 5.8.0
 pod/perlapi.pod                        Perl API documentation (autogenerated)
 pod/perlapio.pod               PerlIO IO API info
 pod/perlbook.pod               Perl book information
@@ -2482,6 +2483,7 @@ t/op/delete.t                     See if delete works
 t/op/die.t                     See if die works
 t/op/die_exit.t                        See if die and exit status interaction works
 t/op/do.t                      See if subroutines work
+t/op/dor.t                     See if defined-or (//) works
 t/op/each.t                    See if hash iterators work
 t/op/eval.t                    See if eval operator works
 t/op/exec.t                    See if exec and system work
@@ -2552,6 +2554,7 @@ t/op/splice.t                     See if splice works
 t/op/split.t                   See if split works
 t/op/sprintf.t                 See if sprintf works
 t/op/srand.t                   See if srand works
+t/op/stash.t                   See if %:: stashes work
 t/op/stat.t                    See if stat works
 t/op/study.t                   See if study works
 t/op/subst.t                   See if substitution works
index 94b399f..9121f4f 100644 (file)
@@ -86,7 +86,7 @@ NLM_VERSION    = 3,20,0
 
 
 # Here comes the CW tools - TO BE FILLED TO BUILD WITH CW -
-MODULE_DESC     = "Perl 5.8.0 for NetWare"
+MODULE_DESC     = "Perl 5.9.0 for NetWare"
 CCTYPE          = CodeWarrior
 C_COMPILER             = mwccnlm -c
 CPP_COMPILER   = mwccnlm
@@ -467,7 +467,7 @@ INST_NW_TOP2 = $(INST_NW_DRV)\perl
 # versioned installation can be obtained by setting INST_TOP above to a
 # path that includes an arbitrary version string.
 #
-INST_VER       = \5.8.0
+INST_VER       = \5.9.0
 
 #
 # Comment this out if you DON'T want your perl installation to have
index be5a841..383a4c2 100644 (file)
  *     This symbol contains the ~name expanded version of ARCHLIB, to be used
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
-#define ARCHLIB "c:\\perl\\5.8.0\\lib\\NetWare-x86-multi-thread"               /**/
+#define ARCHLIB "c:\\perl\\5.9.0\\lib\\NetWare-x86-multi-thread"               /**/
 /*#define ARCHLIB_EXP ""       /**/
 
 /* ARCHNAME:
  *     This symbol is the filename expanded version of the BIN symbol, for
  *     programs that do not want to deal with that at run-time.
  */
-#define BIN "c:\\perl\\5.8.0\\bin\\NetWare-x86-multi-thread"   /**/
-#define BIN_EXP "c:\\perl\\5.8.0\\bin\\NetWare-x86-multi-thread"       /**/
+#define BIN "c:\\perl\\5.9.0\\bin\\NetWare-x86-multi-thread"   /**/
+#define BIN_EXP "c:\\perl\\5.9.0\\bin\\NetWare-x86-multi-thread"       /**/
 
 /* BYTEORDER:
  *     This symbol holds the hexadecimal constant defined in byteorder,
  *     This symbol contains the ~name expanded version of SITEARCH, to be used
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
-#define SITEARCH "c:\\perl\\site\\5.8.0\\lib\\NetWare-x86-multi-thread"                /**/
+#define SITEARCH "c:\\perl\\site\\5.9.0\\lib\\NetWare-x86-multi-thread"                /**/
 /*#define SITEARCH_EXP ""      /**/
 
 /* SITELIB:
  *     removed.  The elements in inc_version_list (inc_version_list.U) can
  *     be tacked onto this variable to generate a list of directories to search.
  */
-#define SITELIB "c:\\perl\\site\\5.8.0\\lib"           /**/
-#define SITELIB_EXP (nw_get_sitelib("5.8.0"))  /**/
+#define SITELIB "c:\\perl\\site\\5.9.0\\lib"           /**/
+#define SITELIB_EXP (nw_get_sitelib("5.9.0"))  /**/
 #define SITELIB_STEM ""                /**/
 
 /* Size_t_size:
 /* PERL_XS_APIVERSION:
  *     This variable contains the version of the oldest perl binary
  *     compatible with the present perl.  perl.c:incpush() and
- *     lib/lib.pm will automatically search in c:\\perl\\site\\5.8.0\\lib\\NetWare-x86-multi-thread for older
+ *     lib/lib.pm will automatically search in c:\\perl\\site\\5.9.0\\lib\\NetWare-x86-multi-thread for older
  *     directories across major versions back to xs_apiversion.
  *     This is only useful if you have a perl library directory tree
  *     structured like the default one.
  *     compatible with the present perl.  (That is, pure perl modules
  *     written for pm_apiversion will still work for the current
  *     version).  perl.c:incpush() and lib/lib.pm will automatically
- *     search in c:\\perl\\site\\5.8.0\\lib for older directories across major versions
+ *     search in c:\\perl\\site\\5.9.0\\lib for older directories across major versions
  *     back to pm_apiversion.  This is only useful if you have a perl
  *     library directory tree structured like the default one.  The
  *     versioned site_perl library was introduced in 5.005, so that's
  *     (presumably) be similar.
  *     See the INSTALL file for how this works.
  */
-#define PERL_XS_APIVERSION "5.8.0"
+#define PERL_XS_APIVERSION "5.9.0"
 #define PERL_PM_APIVERSION "5.005"
 
 /* SETUID_SCRIPTS_ARE_SECURE_NOW:
index 1370cdc..ef8dfd1 100644 (file)
@@ -170,6 +170,10 @@ fill in its choices
 
 Follow the messages ... and you're done.
 
+If you like a more web-like approach, a good start point can be
+http://www14.software.ibm.com/webapp/download/downloadaz.jsp and click
+"C for AIX", and follow the instructions.
+
 =head2 Using GNU's gcc for building perl
 
 Using gcc-3.0 (tested with 3.0.4) now works out of the box, as do
index 8f03927..f223cdf 100644 (file)
--- a/README.cn
+++ b/README.cn
@@ -4,8 +4,8 @@ specially designed to be readable as is.
 
 The following documentation is written in EUC-CN encoding.
 
-?ç¹?ÄãÓÃÒ»°ãµÄÎÄ×ֱ༭Æ÷ÔÄÀÀÕâ·ÝÎļþ, ÇëºöÂÔÎÄÖÐÆæÌصÄ×¢¼Ç×Ö·û.
-Õâ·ÝÎļþÊÇÒÔ POD (¼òÃ÷Îļþ¸ñʽ) Ð´³É; ÕâÖÖ¸ñʽÊÇΪÁËÄÜ?ÃÈËÖ±½Ó¶ÁÈ?,
+Èç¹ûÄãÓÃÒ»°ãµÄÎÄ×ֱ༭Æ÷ÔÄÀÀÕâ·ÝÎļþ, ÇëºöÂÔÎÄÖÐÆæÌصÄ×¢¼Ç×Ö·û.
+Õâ·ÝÎļþÊÇÒÔ POD (¼òÃ÷Îļþ¸ñʽ) Ð´³É; ÕâÖÖ¸ñʽÊÇΪÁËÄÜÈÃÈËÖ±½ÓÔĶÁ,
 ¶øÌرðÉè¼ÆµÄ. ¹ØÓڴ˸ñʽµÄ½øÒ»²½ÐÅÏ¢, Çë²Î¿¼ perlpod ÏßÉÏÎļþ.
 
 =head1 NAME
@@ -17,15 +17,15 @@ perlcn - 
 »¶Ó­À´µ½ Perl µÄÌìµØ!
 
 ´Ó 5.8.0 °æ¿ªÊ¼, Perl ¾ß±¸ÁËÍêÉƵĠUnicode (ͳһÂë) Ö§Ô®,
-Ò²Á¬´øÖ§Ô®ÁËÐí¶àÀ­¶¡ÓïϵÒÔÍâµÄ±àÂ뷽ʽ; CJK (ÖÐ?պ?) ±ãÊÇÆäÖеÄÒ»²¿·Ý.
+Ò²Á¬´øÖ§Ô®ÁËÐí¶àÀ­¶¡ÓïϵÒÔÍâµÄ±àÂ뷽ʽ; CJK (ÖÐÈÕº«) ±ãÊÇÆäÖеÄÒ»²¿·Ý.
 Unicode Êǹú¼ÊÐԵıê×¼, ÊÔͼº­¸ÇÊÀ½çÉÏËùÓеÄ×Ö·û: Î÷·½ÊÀ½ç, ¶«·½ÊÀ½ç,
 ÒÔ¼°Á½Õß¼äµÄÒ»ÇР(Ï£À°ÎÄ, ÐðÀûÑÇÎÄ, ÑÇÀ­²®ÎÄ, Ï£²®À´ÎÄ, Ó¡¶ÈÎÄ,
-Ó¡µØ°²ÎÄ, µÈµÈ). ËüÒ²?ÝÄÉÁ˶àÖÖ×÷ҵϵͳÓëƽÌ? (?? PC ¼°Âó½ðËþ).
+Ó¡µØ°²ÎÄ, µÈµÈ). ËüÒ²ÈÝÄÉÁ˶àÖÖ×÷ҵϵͳÓëƽ̨ (Èç PC ¼°Âó½ðËþ).
 
 Perl ±¾ÉíÒÔ Unicode ½øÐвÙ×÷. Õâ±íʾ Perl ÄÚ²¿µÄ×Ö·û´®Êý¾Ý¿ÉÓàUnicode
-±íʾ; Perl µÄº¯Ê½ÓëËã·û (Àý?çÕ?¹æ±íʾʽ±È¶Ô) Ò²ÄܶԠUnicode ½øÐвÙ×÷.
-ÔÚÊä?ë¼°Êä³öÊ?, ÎªÁË´¦ÀíÒÔ Unicode Ö®Ç°µÄ±àÂ뷽ʽ´æ·ÅµÄÊý¾Ý, Perl
-ÌṩÁË Encode Õâ¸öÄ£¿é, ¿ÉÒÔ?ÃÄãÇáÒ׵ضÁÈ¡¼°Ð´Èë¾ÉÓеıàÂëÊ?¾Ý.
+±íʾ; Perl µÄº¯Ê½ÓëËã·û (ÀýÈçÕý¹æ±íʾʽ±È¶Ô) Ò²ÄܶԠUnicode ½øÐвÙ×÷.
+ÔÚÊäÈë¼°Êä³öʱ, ÎªÁË´¦ÀíÒÔ Unicode Ö®Ç°µÄ±àÂ뷽ʽ´æ·ÅµÄÊý¾Ý, Perl
+ÌṩÁË Encode Õâ¸öÄ£¿é, ¿ÉÒÔÈÃÄãÇáÒ׵ضÁÈ¡¼°Ð´Èë¾ÉÓеıàÂëÊý¾Ý.
 
 Encode ÑÓÉìÄ£¿éÖ§Ô®ÏÂÁмòÌåÖÐÎĵıàÂ뷽ʽ ('gb2312' ±íʾ 'euc-cn'):
 
@@ -36,19 +36,19 @@ Encode 
     cp936      ×ÖÂëÒ³ 936, Ò²¿ÉÒÔÓà'GBK' (À©³ä¹ú±êÂë) Ö¸Ã÷
     hz         7 ±ÈÌØÒݳöʽ GB2312 ±àÂë
 
-¾ÙÀýÀ´Ëµ, ½« EUC-CN ±àÂëµÄÎĵµ×ª³É Unicode, ìóÐè¼ü?ëÏÂÁÐÖ¸Á?:
+¾ÙÀýÀ´Ëµ, ½« EUC-CN ±àÂëµÄµµ°¸×ª³É Unicode, ìóÐè¼üÈëÏÂÁÐÖ¸Áî:
 
     perl -Mencoding=euc-cn,STDOUT,utf8 -pe1 < file.euc-cn > file.utf8
 
-Perl Ò²ÄÚ¸½ÁË "piconv", Ò»Ö§Íê?«Ò? Perl Ð´³ÉµÄ×Ö·ûת»»¹¤¾ß³ÌÐò, Ó÷¨?çÏ?:
+Perl Ò²ÄÚ¸½ÁË "piconv", Ò»Ö§ÍêÈ«ÒÔ Perl Ð´³ÉµÄ×Ö·ûת»»¹¤¾ß³ÌÐò, Ó÷¨ÈçÏÂ:
 
     piconv -f euc-cn -t utf8 < file.euc-cn > file.utf8
     piconv -f utf8 -t euc-cn < file.utf8 > file.euc-cn
 
-ÁíÍâ, ÀûÓàencoding Ä£¿é, Äã¿ÉÒÔÇáÒ×д³öÒÔ×Ö·ûΪµ¥Î»µÄ³ÌÐòÂë, ?çÏÂËùÊ?:
+ÁíÍâ, ÀûÓàencoding Ä£¿é, Äã¿ÉÒÔÇáÒ×д³öÒÔ×Ö·ûΪµ¥Î»µÄ³ÌÐòÂë, ÈçÏÂËùʾ:
 
     #!/usr/bin/env perl
-    # Æô¶¯ euc-cn ×Ö´®½âÎö; ±ê×¼Êä³ö?ë¼°±ê×¼´íÎó¶¼ÉèÎ? euc-cn ±àÂë
+    # Æô¶¯ euc-cn ×Ö´®½âÎö; ±ê×¼Êä³öÈë¼°±ê×¼´íÎó¶¼ÉèΪ euc-cn ±àÂë
     use encoding 'euc-cn', STDIN => 'euc-cn', STDOUT => 'euc-cn';
     print length("ÂæÍÕ");           #  2 (Ë«ÒýºÅ±íʾ×Ö·û)
     print length('ÂæÍÕ');           #  4 (µ¥ÒýºÅ±íʾ×Ö½Ú)
@@ -61,7 +61,7 @@ Perl Ҳ
 
 =head2 ¶îÍâµÄÖÐÎıàÂë
 
-?ç¹?ÐèÒª¸ü¶àµÄÖÐÎıàÂë, ¿ÉÒÔ´Ó CPAN (L<http://www.cpan.org/>) ÏÂÔØ
+Èç¹ûÐèÒª¸ü¶àµÄÖÐÎıàÂë, ¿ÉÒÔ´Ó CPAN (L<http://www.cpan.org/>) ÏÂÔØ
 Encode::HanExtra Ä£¿é. ËüÄ¿Ç°ÌṩÏÂÁбàÂ뷽ʽ:
 
     gb18030    À©³ä¹ýµÄ¹ú±êÂë, °üº¬·±ÌåÖÐÎÄ
@@ -71,7 +71,7 @@ Encode::HanExtra ģ
     big5-simp  Big5 ·±ÌåÖÐÎÄÓë Unicode ¼òÌåÖÐÎÄ»¥×ª
     gbk-trad   GBK ¼òÌåÖÐÎÄÓë Unicode ·±ÌåÖÐÎÄ»¥×ª
 
-?ôÏëÔ? GBK Óë Big5 Ö®¼ä»¥×ª, Çë²Î¿¼¸ÃÄ£¿éÄÚ¸½µÄ b2g.pl Óë g2b.pl Á½Ö§³ÌÐò,
+ÈôÏëÔÚ GBK Óë Big5 Ö®¼ä»¥×ª, Çë²Î¿¼¸ÃÄ£¿éÄÚ¸½µÄ b2g.pl Óë g2b.pl Á½Ö§³ÌÐò,
 »òÔÚ³ÌÐòÄÚʹÓÃÏÂÁÐд·¨:
 
     use Encode::HanConvert;
@@ -80,7 +80,7 @@ Encode::HanExtra ģ
 
 =head2 ½øÒ»²½µÄÐÅÏ¢
 
-Çë²Î¿¼ Perl ÄÚ¸½µÄ´óÁ¿ËµÃ÷Îļþ (²»ÐÒ?«ÊÇÓÃÓ?ÎÄдµÄ), À´Ñ§Ï°¸ü¶à¹ØÓÚ
+Çë²Î¿¼ Perl ÄÚ¸½µÄ´óÁ¿ËµÃ÷Îļþ (²»ÐÒÈ«ÊÇÓÃÓ¢ÎÄдµÄ), À´Ñ§Ï°¸ü¶à¹ØÓÚ
 Perl µÄ֪ʶ, ÒÔ¼° Unicode µÄʹÓ÷½Ê½. ²»¹ý, ÍⲿµÄ×ÊÔ´Ï൱·á¸»:
 
 =head2 Ìṩ Perl ×ÊÔ´µÄÍøÖ·
index 8fd4dcf..8f58535 100644 (file)
--- a/README.jp
+++ b/README.jp
@@ -78,7 +78,7 @@ Perl5.8
   # jcode.pl
   require "jcode.pl";
   while(<>){
-    jcode::convert(*_, 'euc', 'sjis);
+    jcode::convert(*_, 'euc', 'sjis');
     print;
   }
   # Jcode.pm
@@ -93,7 +93,7 @@ Perl5.8
     print;
   }
   # Perl 5.8 - encoding ¤òÍøÍѤ·¤Æ
-  use encoding 'euc-jp', STDIN=>'shiftjis'
+  use encoding 'euc-jp', STDIN => 'shiftjis';
   while(<>){
        print;
   }
index e9c56a0..fe87339 100644 (file)
@@ -240,7 +240,7 @@ Be sure to read the instructions near the top of the makefiles carefully.
 Type "dmake" (or "nmake" if you are using that make).
 
 This should build everything.  Specifically, it will create perl.exe,
-perl58.dll at the perl toplevel, and various other extension dll's
+perl59.dll at the perl toplevel, and various other extension dll's
 under the lib\auto directory.  If the build fails for any reason, make
 sure you have done the previous steps correctly.
 
index 8ccf989..4ff4b5d 100644 (file)
@@ -967,19 +967,6 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$i_syssecrt   I_SYS_SECURITY  /**/
 
-/* OSNAME:
- *     This symbol contains the name of the operating system, as determined
- *     by Configure.  You shouldn't rely on it too much; the specific
- *     feature tests from Configure are generally more reliable.
- */
-/* 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 "$osname"               /**/
-#define OSVERS "$osvers"               /**/
-
 /* MEM_ALIGNBYTES:
  *     This symbol contains the number of bytes required to align a
  *     double, or a long double when applicable. Usual values are 2,
@@ -991,53 +978,6 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #define MEM_ALIGNBYTES $alignbytes
 #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 $package.  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.
- */
-#$d_archlib ARCHLIB "$archlib"         /**/
-#$d_archlib ARCHLIB_EXP "$archlibexp"          /**/
-
-/* 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 "$archname"           /**/
-
-/* HAS_ATOLF:
- *     This symbol, if defined, indicates that the atolf routine is
- *     available to convert strings into long doubles.
- */
-#$d_atolf HAS_ATOLF            /**/
-
-/* HAS_ATOLL:
- *     This symbol, if defined, indicates that the atoll routine is
- *     available to convert strings into long longs.
- */
-#$d_atoll HAS_ATOLL            /**/
-
-/* BIN:
- *     This symbol holds the path of the bin directory where the package will
- *     be installed. Program must be prepared to deal with ~name substitution.
- */
-/* BIN_EXP:
- *     This symbol is the filename expanded version of the BIN symbol, for
- *     programs that do not want to deal with that at run-time.
- */
-#define BIN "$bin"     /**/
-#define BIN_EXP "$binexp"      /**/
-
 /* BYTEORDER:
  *     This symbol holds the hexadecimal constant defined in byteorder,
  *     in a UV, i.e. 0x1234 or 0x4321 or 0x12345678, etc...
@@ -1081,86 +1021,6 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #define BYTEORDER 0x$byteorder /* large digits for MSB */
 #endif /* NeXT */
 
-/* CAT2:
- *     This macro catenates 2 tokens together.
- */
-/* STRINGIFY:
- *     This macro surrounds its token with double quotes.
- */
-#if $cpp_stuff == 1
-#define CAT2(a,b)      a/**/b
-#define STRINGIFY(a)   "a"
-               /* If you can get stringification with catify, tell me how! */
-#endif
-#if $cpp_stuff == 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 $cpp_stuff != 1 && $cpp_stuff != 42
-#   include "Bletch: How does this C preprocessor catenate tokens?"
-#endif
-
-/* CPPSTDIN:
- *     This symbol contains the first part of the string which will invoke
- *     the C preprocessor on the standard input and produce to standard
- *     output.  Typical value of "cc -E" or "/lib/cpp", but it can also
- *     call a wrapper. See CPPRUN.
- */
-/* CPPMINUS:
- *     This symbol contains the second part of the string which will invoke
- *     the C preprocessor on the standard input and produce to standard
- *     output.  This symbol will have the value "-" if CPPSTDIN needs a minus
- *     to specify standard input, otherwise the value is "".
- */
-/* CPPRUN:
- *     This symbol contains the string which will invoke a C preprocessor on
- *     the standard input and produce to standard output. It needs to end
- *     with CPPLAST, after all other preprocessor flags have been specified.
- *     The main difference with CPPSTDIN is that this program will never be a
- *     pointer to a shell wrapper, i.e. it will be empty if no preprocessor is
- *     available directly to the user. Note that it may well be different from
- *     the preprocessor used to compile the C program.
- */
-/* CPPLAST:
- *     This symbol is intended to be used along with CPPRUN in the same manner
- *     symbol CPPMINUS is used with CPPSTDIN. It contains either "-" or "".
- */
-#define CPPSTDIN "$cppstdin"
-#define CPPMINUS "$cppminus"
-#define CPPRUN "$cpprun"
-#define CPPLAST "$cpplast"
-
-/* HAS__FWALK:
- *     This symbol, if defined, indicates that the _fwalk system call is
- *     available to apply a function to all the file handles.
- */
-#$d__fwalk 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.)
- */
-#$d_access HAS_ACCESS          /**/
-
-/* 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.
- */
-#$d_asctime_r HAS_ASCTIME_R       /**/
-#define ASCTIME_R_PROTO $asctime_r_proto          /**/
-
 /* CASTI32:
  *     This symbol is defined if the C compiler can cast negative
  *     or large floating point numbers to 32-bit ints.
@@ -1182,679 +1042,1499 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #$d_castneg    CASTNEGFLOAT            /**/
 #define CASTFLAGS $castflags           /**/
 
-/* 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)
- */
-#$d_class HAS_CLASS            /**/
-
 /* VOID_CLOSEDIR:
  *     This symbol, if defined, indicates that the closedir() routine
  *     does not return a value.
  */
 #$d_void_closedir VOID_CLOSEDIR                /**/
 
-/* HAS_STRUCT_CMSGHDR:
- *     This symbol, if defined, indicates that the struct cmsghdr
- *     is supported.
+/* HAS_FD_SET:
+ *     This symbol, when defined, indicates presence of the fd_set typedef
+ *     in <sys/types.h>
  */
-#$d_cmsghdr_s HAS_STRUCT_CMSGHDR       /**/
+#$d_fd_set HAS_FD_SET  /**/
 
-/* 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.
+/* 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.
  */
-#$d_crypt_r HAS_CRYPT_R           /**/
-#define CRYPT_R_PROTO $crypt_r_proto      /**/
+#define Gconvert(x,n,t,b) $d_Gconvert
 
-/* HAS_CSH:
- *     This symbol, if defined, indicates that the C-shell exists.
- */
-/* CSH:
- *     This symbol, if defined, contains the full pathname of csh.
+/* 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.
  */
-#$d_csh HAS_CSH                /**/
-#ifdef HAS_CSH
-#define CSH "$full_csh"        /**/
-#endif
+#$d_getpagsz HAS_GETPAGESIZE           /**/
 
-/* HAS_CTIME_R:
- *     This symbol, if defined, indicates that the ctime_r routine
- *     is available to ctime re-entrantly.
+/* 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.
  */
-/* 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.
+#$d_gnulibc HAS_GNULIBC        /**/
+#if defined(HAS_GNULIBC) && !defined(_GNU_SOURCE)
+#   define _GNU_SOURCE
+#endif
+/* HAS_ISASCII:
+ *     This manifest constant lets the C program know that isascii 
+ *     is available.
  */
-#$d_ctime_r HAS_CTIME_R           /**/
-#define CTIME_R_PROTO $ctime_r_proto      /**/
+#$d_isascii HAS_ISASCII                /**/
 
-/* 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.
+/* HAS_LCHOWN:
+ *     This symbol, if defined, indicates that the lchown routine is
+ *     available to operate on a symbolic link (instead of following the
+ *     link).
  */
-#$d_dlsymun    DLSYM_NEEDS_UNDERSCORE  /**/
+#$d_lchown HAS_LCHOWN          /**/
 
-/* 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.
+/* HAS_OPEN3:
+ *     This manifest constant lets the C program know that the three
+ *     argument form of open(2) is available.
  */
-#$d_drand48_r HAS_DRAND48_R       /**/
-#define DRAND48_R_PROTO $drand48_r_proto          /**/
+#$d_open3 HAS_OPEN3            /**/
 
-/* 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);
+/* 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.
+ */
+#$d_safebcpy 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.
+ */
+#$d_safemcpy 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.
+ */
+#$d_sanemcmp HAS_SANE_MEMCMP   /**/
+
+/* HAS_SIGACTION:
+ *     This symbol, if defined, indicates that Vr4's sigaction() routine
+ *     is available.
+ */
+#$d_sigaction HAS_SIGACTION    /**/
+
+/* HAS_SIGSETJMP:
+ *     This variable indicates to the C program that the sigsetjmp()
+ *     routine is available to save the calling process's registers
+ *     and stack environment for later use by siglongjmp(), and
+ *     to optionally save the process's signal mask.  See
+ *     Sigjmp_buf, Sigsetjmp, and Siglongjmp.
+ */
+/* Sigjmp_buf:
+ *     This is the buffer type to be used with Sigsetjmp and Siglongjmp.
+ */
+/* Sigsetjmp:
+ *     This macro is used in the same way as sigsetjmp(), but will invoke
+ *     traditional setjmp() if sigsetjmp isn't available.
+ *     See HAS_SIGSETJMP.
+ */
+/* Siglongjmp:
+ *     This macro is used in the same way as siglongjmp(), but will invoke
+ *     traditional longjmp() if siglongjmp isn't available.
+ *     See HAS_SIGSETJMP.
+ */
+#$d_sigsetjmp 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_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.
+ */
+#$d_stdstdio USE_STDIO_PTR     /**/
+#ifdef USE_STDIO_PTR
+#define FILE_ptr(fp)   $stdio_ptr
+#$d_stdio_ptr_lval STDIO_PTR_LVALUE            /**/
+#define FILE_cnt(fp)   $stdio_cnt
+#$d_stdio_cnt_lval STDIO_CNT_LVALUE            /**/
+#$d_stdio_ptr_lval_sets_cnt STDIO_PTR_LVAL_SETS_CNT    /**/
+#$d_stdio_ptr_lval_nochange_cnt 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.
+ */
+#$d_stdiobase USE_STDIO_BASE   /**/
+#ifdef USE_STDIO_BASE
+#define FILE_base(fp)  $stdio_base
+#define FILE_bufsiz(fp)        $stdio_bufsiz
+#endif
+
+/* 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.
+ */
+#$d_vprintf HAS_VPRINTF        /**/
+#$d_charvspr USE_CHAR_VSPRINTF         /**/
+
+/* DOUBLESIZE:
+ *     This symbol contains the size of a double, so that the C preprocessor
+ *     can make decisions based on it.
+ */
+#define DOUBLESIZE $doublesize         /**/
+
+/* 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.
+ */
+#$i_time I_TIME                /**/
+#$i_systime I_SYS_TIME         /**/
+#$i_systimek I_SYS_TIME_KERNEL         /**/
+#$d_tm_tm_zone HAS_TM_TM_ZONE          /**/
+
+/* 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 $rd_nodata
+#$d_eofnblk EOF_NONBLOCK
+
+/* 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 $ptrsize               /**/
+
+/* 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()              $drand01                /**/
+#define Rand_seed_t            $randseedtype           /**/
+#define seedDrand01(x) $seedfunc((Rand_seed_t)x)       /**/
+#define RANDBITS               $randbits               /**/
+
+/* 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 $ssizetype      /* signed count of bytes */
+
+/* EBCDIC:
+ *     This symbol, if defined, indicates that this system uses
+ *     EBCDIC encoding.
+ */
+#$ebcdic       EBCDIC          /**/
+
+/* ARCHLIB:
+ *     This variable, if defined, holds the name of the directory in
+ *     which the user wants to put architecture-dependent public
+ *     library files for $package.  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.
+ */
+#$d_archlib ARCHLIB "$archlib"         /**/
+#$d_archlib ARCHLIB_EXP "$archlibexp"          /**/
+
+/* BIN:
+ *     This symbol holds the path of the bin directory where the package will
+ *     be installed. Program must be prepared to deal with ~name substitution.
+ */
+/* BIN_EXP:
+ *     This symbol is the filename expanded version of the BIN symbol, for
+ *     programs that do not want to deal with that at run-time.
+ */
+#define BIN "$bin"     /**/
+#define BIN_EXP "$binexp"      /**/
+
+/* 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 $inc_version_list_init           /**/
+
+/* INSTALL_USR_BIN_PERL:
+ *     This symbol, if defined, indicates that Perl is to be installed
+ *     also as /usr/bin/perl.
+ */
+#$installusrbinperl INSTALL_USR_BIN_PERL       /**/
+
+/* 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.
+ */
+#$d_perl_otherlibdirs PERL_OTHERLIBDIRS "$otherlibdirs"                /**/
+
+/* 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 "$privlib"             /**/
+#define PRIVLIB_EXP "$privlibexp"              /**/
+
+/* 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 "$sitearch"           /**/
+#define SITEARCH_EXP "$sitearchexp"            /**/
+
+/* 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 "$sitelib"             /**/
+#define SITELIB_EXP "$sitelibexp"              /**/
+#define SITELIB_STEM "$sitelib_stem"           /**/
+
+/* 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.
+ */
+#$d_vendorarch PERL_VENDORARCH "$vendorarch"           /**/
+#$d_vendorarch PERL_VENDORARCH_EXP "$vendorarchexp"            /**/
+
+/* 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.
+ */
+#$d_vendorlib PERL_VENDORLIB_EXP "$vendorlibexp"               /**/
+#$d_vendorlib PERL_VENDORLIB_STEM "$vendorlib_stem"            /**/
+
+/* 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 "$osname"               /**/
+#define OSVERS "$osvers"               /**/
+
+/* CAT2:
+ *     This macro catenates 2 tokens together.
+ */
+/* STRINGIFY:
+ *     This macro surrounds its token with double quotes.
+ */
+#if $cpp_stuff == 1
+#define CAT2(a,b)      a/**/b
+#define STRINGIFY(a)   "a"
+               /* If you can get stringification with catify, tell me how! */
+#endif
+#if $cpp_stuff == 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 $cpp_stuff != 1 && $cpp_stuff != 42
+#   include "Bletch: How does this C preprocessor catenate tokens?"
+#endif
+
+/* CPPSTDIN:
+ *     This symbol contains the first part of the string which will invoke
+ *     the C preprocessor on the standard input and produce to standard
+ *     output.  Typical value of "cc -E" or "/lib/cpp", but it can also
+ *     call a wrapper. See CPPRUN.
+ */
+/* CPPMINUS:
+ *     This symbol contains the second part of the string which will invoke
+ *     the C preprocessor on the standard input and produce to standard
+ *     output.  This symbol will have the value "-" if CPPSTDIN needs a minus
+ *     to specify standard input, otherwise the value is "".
+ */
+/* CPPRUN:
+ *     This symbol contains the string which will invoke a C preprocessor on
+ *     the standard input and produce to standard output. It needs to end
+ *     with CPPLAST, after all other preprocessor flags have been specified.
+ *     The main difference with CPPSTDIN is that this program will never be a
+ *     pointer to a shell wrapper, i.e. it will be empty if no preprocessor is
+ *     available directly to the user. Note that it may well be different from
+ *     the preprocessor used to compile the C program.
+ */
+/* CPPLAST:
+ *     This symbol is intended to be used along with CPPRUN in the same manner
+ *     symbol CPPMINUS is used with CPPSTDIN. It contains either "-" or "".
+ */
+#define CPPSTDIN "$cppstdin"
+#define CPPMINUS "$cppminus"
+#define CPPRUN "$cpprun"
+#define CPPLAST "$cpplast"
+
+/* HAS_ACCESS:
+ *     This manifest constant lets the C program know that the access()
+ *     system call is available to check for accessibility using real UID/GID.
+ *     (always present on UNIX.)
+ */
+#$d_access HAS_ACCESS          /**/
+
+/* HAS_CRYPT:
+ *     This symbol, if defined, indicates that the crypt routine is available
+ *     to encrypt passwords and the like.
+ */
+#$d_crypt HAS_CRYPT            /**/
+
+/* HAS_CSH:
+ *     This symbol, if defined, indicates that the C-shell exists.
+ */
+/* CSH:
+ *     This symbol, if defined, contains the full pathname of csh.
+ */
+#$d_csh HAS_CSH                /**/
+#ifdef HAS_CSH
+#define CSH "$full_csh"        /**/
+#endif
+
+/* 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.
+ */
+#$d_suidsafe SETUID_SCRIPTS_ARE_SECURE_NOW     /**/
+#$d_dosuid DOSUID              /**/
+
+/* HAS_ENDGRENT:
+ *     This symbol, if defined, indicates that the getgrent routine is
+ *     available for finalizing sequential access of the group database.
+ */
+#$d_endgrent HAS_ENDGRENT              /**/
+
+/* HAS_ENDHOSTENT:
+ *     This symbol, if defined, indicates that the endhostent() routine is
+ *     available to close whatever was being used for host queries.
+ */
+#$d_endhent HAS_ENDHOSTENT             /**/
+
+/* HAS_ENDNETENT:
+ *     This symbol, if defined, indicates that the endnetent() routine is
+ *     available to close whatever was being used for network queries.
+ */
+#$d_endnent HAS_ENDNETENT              /**/
+
+/* HAS_ENDPROTOENT:
+ *     This symbol, if defined, indicates that the endprotoent() routine is
+ *     available to close whatever was being used for protocol queries.
+ */
+#$d_endpent HAS_ENDPROTOENT            /**/
+
+/* HAS_ENDPWENT:
+ *     This symbol, if defined, indicates that the getgrent routine is
+ *     available for finalizing sequential access of the passwd database.
+ */
+#$d_endpwent HAS_ENDPWENT              /**/
+
+/* HAS_ENDSERVENT:
+ *     This symbol, if defined, indicates that the endservent() routine is
+ *     available to close whatever was being used for service queries.
+ */
+#$d_endsent HAS_ENDSERVENT             /**/
+
+/* FLEXFILENAMES:
+ *     This symbol, if defined, indicates that the system supports filenames
+ *     longer than 14 characters.
+ */
+#$d_flexfnam   FLEXFILENAMES           /**/
+
+/* HAS_GETGRENT:
+ *     This symbol, if defined, indicates that the getgrent routine is
+ *     available for sequential access of the group database.
+ */
+#$d_getgrent HAS_GETGRENT              /**/
+
+/* HAS_GETHOSTBYADDR:
+ *     This symbol, if defined, indicates that the gethostbyaddr() routine is
+ *     available to look up hosts by their IP addresses.
+ */
+#$d_gethbyaddr 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.
+ */
+#$d_gethbyname 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.
+ */
+#$d_gethent 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.
+ */
+#$d_gethname HAS_GETHOSTNAME   /**/
+#$d_uname HAS_UNAME            /**/
+#$d_phostname HAS_PHOSTNAME    /**/
+#ifdef HAS_PHOSTNAME
+#define PHOSTNAME "$aphostname"        /* How to get the host name */
+#endif
+
+/* HAS_GETNETBYADDR:
+ *     This symbol, if defined, indicates that the getnetbyaddr() routine is
+ *     available to look up networks by their IP addresses.
+ */
+#$d_getnbyaddr HAS_GETNETBYADDR                /**/
+
+/* HAS_GETNETBYNAME:
+ *     This symbol, if defined, indicates that the getnetbyname() routine is
+ *     available to look up networks by their names.
+ */
+#$d_getnbyname 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.
  */
-#$d_drand48proto       HAS_DRAND48_PROTO       /**/
+#$d_getnent HAS_GETNETENT              /**/
 
-/* HAS_ENDGRENT:
- *     This symbol, if defined, indicates that the getgrent routine is
- *     available for finalizing sequential access of the group database.
+/* HAS_GETPROTOENT:
+ *     This symbol, if defined, indicates that the getprotoent() routine is
+ *     available to look up protocols in some data base or another.
  */
-#$d_endgrent HAS_ENDGRENT              /**/
+#$d_getpent HAS_GETPROTOENT            /**/
 
-/* HAS_ENDGRENT_R:
- *     This symbol, if defined, indicates that the endgrent_r routine
- *     is available to endgrent re-entrantly.
+/* HAS_GETPGRP:
+ *     This symbol, if defined, indicates that the getpgrp routine is
+ *     available to get the current process group.
  */
-/* 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.
+/* USE_BSD_GETPGRP:
+ *     This symbol, if defined, indicates that getpgrp needs one
+ *     arguments whereas USG one needs none.
+ */
+#$d_getpgrp HAS_GETPGRP                /**/
+#$d_bsdgetpgrp 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.
+ */
+#$d_getpbyname HAS_GETPROTOBYNAME              /**/
+#$d_getpbynumber HAS_GETPROTOBYNUMBER          /**/
+
+/* 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.
+ */
+#$d_getpwent HAS_GETPWENT              /**/
+
+/* HAS_GETSERVENT:
+ *     This symbol, if defined, indicates that the getservent() routine is
+ *     available to look up network services in some data base or another.
+ */
+#$d_getsent HAS_GETSERVENT             /**/
+
+/* 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.
+ */
+#$d_getsbyname HAS_GETSERVBYNAME               /**/
+#$d_getsbyport HAS_GETSERVBYPORT               /**/
+
+/* 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.
+ */
+#$d_htonl HAS_HTONL            /**/
+#$d_htonl HAS_HTONS            /**/
+#$d_htonl HAS_NTOHL            /**/
+#$d_htonl HAS_NTOHS            /**/
+
+/* 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.
+ */
+#$d_longdbl HAS_LONG_DOUBLE            /**/
+#ifdef HAS_LONG_DOUBLE
+#define LONG_DOUBLESIZE $longdblsize           /**/
+#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.
+ */
+#$d_longlong HAS_LONG_LONG             /**/
+#ifdef HAS_LONG_LONG
+#define LONGLONGSIZE $longlongsize             /**/
+#endif
+
+/* HAS_MEMCHR:
+ *     This symbol, if defined, indicates that the memchr routine is available
+ *     to locate characters within a C string.
+ */
+#$d_memchr HAS_MEMCHR  /**/
+
+/* HAS_MKSTEMP:
+ *     This symbol, if defined, indicates that the mkstemp routine is
+ *     available to exclusively create and open a uniquely named
+ *     temporary file.
+ */
+#$d_mkstemp HAS_MKSTEMP                /**/
+
+/* 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'.
+ */
+#$d_mmap HAS_MMAP              /**/
+#define Mmap_t $mmaptype       /**/
+
+/* HAS_MSG:
+ *     This symbol, if defined, indicates that the entire msg*(2) library is
+ *     supported (IPC mechanism based on message queues).
+ */
+#$d_msg HAS_MSG                /**/
+
+/* HAS_SEM:
+ *     This symbol, if defined, indicates that the entire sem*(2) library is
+ *     supported.
+ */
+#$d_sem HAS_SEM                /**/
+
+/* HAS_SETGRENT:
+ *     This symbol, if defined, indicates that the setgrent routine is
+ *     available for initializing sequential access of the group database.
+ */
+#$d_setgrent HAS_SETGRENT              /**/
+
+/* HAS_SETGROUPS:
+ *     This symbol, if defined, indicates that the setgroups() routine is
+ *     available to set the list of process groups.  If unavailable, multiple
+ *     groups are probably not supported.
+ */
+#$d_setgrps HAS_SETGROUPS              /**/
+
+/* HAS_SETHOSTENT:
+ *     This symbol, if defined, indicates that the sethostent() routine is
+ *     available.
+ */
+#$d_sethent HAS_SETHOSTENT             /**/
+
+/* HAS_SETNETENT:
+ *     This symbol, if defined, indicates that the setnetent() routine is
+ *     available.
+ */
+#$d_setnent HAS_SETNETENT              /**/
+
+/* HAS_SETPROTOENT:
+ *     This symbol, if defined, indicates that the setprotoent() routine is
+ *     available.
+ */
+#$d_setpent 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.
+ */
+#$d_setpgrp HAS_SETPGRP                /**/
+#$d_bsdsetpgrp USE_BSD_SETPGRP /**/
+
+/* HAS_SETPWENT:
+ *     This symbol, if defined, indicates that the setpwent routine is
+ *     available for initializing sequential access of the passwd database.
+ */
+#$d_setpwent HAS_SETPWENT              /**/
+
+/* HAS_SETSERVENT:
+ *     This symbol, if defined, indicates that the setservent() routine is
+ *     available.
+ */
+#$d_setsent HAS_SETSERVENT             /**/
+
+/* 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.
+ */
+#$d_setvbuf HAS_SETVBUF                /**/
+
+/* HAS_SHM:
+ *     This symbol, if defined, indicates that the entire shm*(2) library is
+ *     supported.
+ */
+#$d_shm 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 $shmattype     /**/
+#$d_shmatprototype HAS_SHMAT_PROTOTYPE /**/
+
+/* 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.
  */
-#$d_endgrent_r HAS_ENDGRENT_R     /**/
-#define ENDGRENT_R_PROTO $endgrent_r_proto        /**/
-
-/* HAS_ENDHOSTENT:
- *     This symbol, if defined, indicates that the endhostent() routine is
- *     available to close whatever was being used for host queries.
+/* 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.
  */
-#$d_endhent HAS_ENDHOSTENT             /**/
-
-/* HAS_ENDNETENT:
- *     This symbol, if defined, indicates that the endnetent() routine is
- *     available to close whatever was being used for network queries.
+/* 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.
  */
-#$d_endnent HAS_ENDNETENT              /**/
-
-/* HAS_ENDPROTOENT:
- *     This symbol, if defined, indicates that the endprotoent() routine is
- *     available to close whatever was being used for protocol queries.
+/* 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.
  */
-#$d_endpent HAS_ENDPROTOENT            /**/
+#$d_socket     HAS_SOCKET              /**/
+#$d_sockpair   HAS_SOCKETPAIR  /**/
+#$d_msg_ctrunc HAS_MSG_CTRUNC  /**/
+#$d_msg_dontroute      HAS_MSG_DONTROUTE       /**/
+#$d_msg_oob    HAS_MSG_OOB     /**/
+#$d_msg_peek   HAS_MSG_PEEK    /**/
+#$d_msg_proxy  HAS_MSG_PROXY   /**/
+#$d_scm_rights HAS_SCM_RIGHTS  /**/
 
-/* HAS_ENDPWENT:
- *     This symbol, if defined, indicates that the getgrent routine is
- *     available for finalizing sequential access of the passwd database.
+/* USE_STAT_BLOCKS:
+ *     This symbol is defined if this system has a stat structure declaring
+ *     st_blksize and st_blocks.
  */
-#$d_endpwent HAS_ENDPWENT              /**/
+#ifndef USE_STAT_BLOCKS
+#$d_statblks USE_STAT_BLOCKS   /**/
+#endif
 
-/* HAS_ENDPWENT_R:
- *     This symbol, if defined, indicates that the endpwent_r routine
- *     is available to endpwent re-entrantly.
+/* 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.
  */
-/* 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.
+/* 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.
  */
-#$d_endpwent_r HAS_ENDPWENT_R     /**/
-#define ENDPWENT_R_PROTO $endpwent_r_proto        /**/
-
-/* HAS_ENDSERVENT:
- *     This symbol, if defined, indicates that the endservent() routine is
- *     available to close whatever was being used for service queries.
+/* 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.
  */
-#$d_endsent HAS_ENDSERVENT             /**/
+#$d_strerror HAS_STRERROR              /**/
+#$d_syserrlst HAS_SYS_ERRLIST  /**/
+#define Strerror(e) $d_strerrm
 
-/* HAS_FCHDIR:
- *     This symbol, if defined, indicates that the fchdir routine is
- *     available to change directory using a file descriptor.
+/* HAS_STRTOUL:
+ *     This symbol, if defined, indicates that the strtoul routine is
+ *     available to provide conversion of strings to unsigned long.
  */
-#$d_fchdir HAS_FCHDIR          /**/
+#$d_strtoul HAS_STRTOUL        /**/
 
-/* 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.
+/* 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;
+ *     }
  */
-#$d_fcntl_can_lock FCNTL_CAN_LOCK              /**/
-
-/* HAS_FD_SET:
- *     This symbol, when defined, indicates presence of the fd_set typedef
- *     in <sys/types.h>
+/* USE_SEMCTL_SEMUN:
+ *     This symbol, if defined, indicates that union semun is
+ *     used for semctl IPC_STAT.
  */
-#$d_fd_set 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).
+/* USE_SEMCTL_SEMID_DS:
+ *     This symbol, if defined, indicates that struct semid_ds * is
+ *     used for semctl IPC_STAT.
  */
-#$d_finite HAS_FINITE          /**/
+#$d_union_semun HAS_UNION_SEMUN        /**/
+#$d_semctl_semun USE_SEMCTL_SEMUN      /**/
+#$d_semctl_semid_ds USE_SEMCTL_SEMID_DS        /**/
 
-/* 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).
+/* HAS_VFORK:
+ *     This symbol, if defined, indicates that vfork() exists.
  */
-#$d_finitel HAS_FINITEL                /**/
+#$d_vfork HAS_VFORK    /**/
 
-/* FLEXFILENAMES:
- *     This symbol, if defined, indicates that the system supports filenames
- *     longer than 14 characters.
+/* 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)".
  */
-#$d_flexfnam   FLEXFILENAMES           /**/
+#define Signal_t $signal_t     /* Signal handler's return type */
 
-/* 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)
+/* 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()..
  */
-#$d_fp_class HAS_FP_CLASS              /**/
+#if defined(HAS_GETGROUPS) || defined(HAS_SETGROUPS)
+#define Groups_t $groupstype   /* Type for 2nd arg to [sg]etgroups() */
+#endif
 
-/* 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
+/* I_GRP:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <grp.h>.
  */
-#$d_fpclass 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
- *
+/* GRPASSWD:
+ *     This symbol, if defined, indicates to the C program that struct group
+ *     in <grp.h> contains gr_passwd.
  */
-#$d_fpclassify HAS_FPCLASSIFY          /**/
+#$i_grp I_GRP          /**/
+#$d_grpasswd GRPASSWD  /**/
 
-/* HAS_FPOS64_T:
- *     This symbol will be defined if the C compiler supports fpos64_t.
+/* I_NDBM:
+ *     This symbol, if defined, indicates that <ndbm.h> exists and should
+ *     be included.
  */
-#$d_fpos64_t   HAS_FPOS64_T            /**/
+#$i_ndbm I_NDBM        /**/
 
-/* 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.
+/* I_NETDB:
+ *     This symbol, if defined, indicates that <netdb.h> exists and
+ *     should be included.
  */
-#$d_frexpl HAS_FREXPL          /**/
+#$i_netdb I_NETDB              /**/
 
-/* HAS_STRUCT_FS_DATA:
- *     This symbol, if defined, indicates that the struct fs_data
- *     to do statfs() is supported.
+/* I_PWD:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <pwd.h>.
  */
-#$d_fs_data_s 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).
+/* PWQUOTA:
+ *     This symbol, if defined, indicates to the C program that struct passwd
+ *     contains pw_quota.
  */
-#$d_fseeko HAS_FSEEKO          /**/
-
-/* HAS_FSTATFS:
- *     This symbol, if defined, indicates that the fstatfs routine is
- *     available to stat filesystems by file descriptors.
+/* PWAGE:
+ *     This symbol, if defined, indicates to the C program that struct passwd
+ *     contains pw_age.
  */
-#$d_fstatfs 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.
+/* PWCHANGE:
+ *     This symbol, if defined, indicates to the C program that struct passwd
+ *     contains pw_change.
  */
-#$d_fsync HAS_FSYNC            /**/
-
-/* HAS_FTELLO:
- *     This symbol, if defined, indicates that the ftello routine is
- *     available to ftell beyond 32 bits (useful for ILP32 hosts).
+/* PWCLASS:
+ *     This symbol, if defined, indicates to the C program that struct passwd
+ *     contains pw_class.
  */
-#$d_ftello HAS_FTELLO          /**/
-
-/* Gconvert:
- *     This preprocessor macro is defined to convert a floating point
- *     number to a string without a trailing decimal point.  This
- *     emulates the behavior of sprintf("%g"), but is sometimes much more
- *     efficient.  If gconvert() is not available, but gcvt() drops the
- *     trailing decimal point, then gcvt() is used.  If all else fails,
- *     a macro using sprintf("%g") is used. Arguments for the Gconvert
- *     macro are: value, number of digits, whether trailing zeros should
- *     be retained, and the output buffer.
- *     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.
+/* PWEXPIRE:
+ *     This symbol, if defined, indicates to the C program that struct passwd
+ *     contains pw_expire.
  */
-#define Gconvert(x,n,t,b) $d_Gconvert
-
-/* HAS_GETCWD:
- *     This symbol, if defined, indicates that the getcwd routine is
- *     available to get the current working directory.
+/* PWCOMMENT:
+ *     This symbol, if defined, indicates to the C program that struct passwd
+ *     contains pw_comment.
  */
-#$d_getcwd HAS_GETCWD          /**/
-
-/* HAS_GETESPWNAM:
- *     This symbol, if defined, indicates that the getespwnam system call is
- *     available to retrieve enchanced (shadow) password entries by name.
+/* PWGECOS:
+ *     This symbol, if defined, indicates to the C program that struct passwd
+ *     contains pw_gecos.
  */
-#$d_getespwnam HAS_GETESPWNAM          /**/
-
-/* HAS_GETFSSTAT:
- *     This symbol, if defined, indicates that the getfsstat routine is
- *     available to stat filesystems in bulk.
+/* PWPASSWD:
+ *     This symbol, if defined, indicates to the C program that struct passwd
+ *     contains pw_passwd.
  */
-#$d_getfsstat HAS_GETFSSTAT            /**/
+#$i_pwd I_PWD          /**/
+#$d_pwquota PWQUOTA    /**/
+#$d_pwage PWAGE        /**/
+#$d_pwchange PWCHANGE  /**/
+#$d_pwclass PWCLASS    /**/
+#$d_pwexpire PWEXPIRE  /**/
+#$d_pwcomment PWCOMMENT        /**/
+#$d_pwgecos PWGECOS    /**/
+#$d_pwpasswd PWPASSWD  /**/
 
-/* HAS_GETGRENT:
- *     This symbol, if defined, indicates that the getgrent routine is
- *     available for sequential access of the group database.
+/* I_SYSUIO:
+ *     This symbol, if defined, indicates that <sys/uio.h> exists and
+ *     should be included.
  */
-#$d_getgrent HAS_GETGRENT              /**/
+#$i_sysuio     I_SYSUIO                /**/
 
-/* HAS_GETGRENT_R:
- *     This symbol, if defined, indicates that the getgrent_r routine
- *     is available to getgrent re-entrantly.
+/* I_STDARG:
+ *     This symbol, if defined, indicates that <stdarg.h> exists and should
+ *     be included.
  */
-/* 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.
+/* I_VARARGS:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <varargs.h>.
  */
-#$d_getgrent_r HAS_GETGRENT_R     /**/
-#define GETGRENT_R_PROTO $getgrent_r_proto        /**/
+#$i_stdarg I_STDARG            /**/
+#$i_varargs I_VARARGS  /**/
 
-/* HAS_GETGRGID_R:
- *     This symbol, if defined, indicates that the getgrgid_r routine
- *     is available to getgrgid re-entrantly.
+/* Free_t:
+ *     This variable contains the return type of free().  It is usually
+ * void, but occasionally int.
  */
-/* 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.
+/* Malloc_t:
+ *     This symbol is the type of pointer returned by malloc and realloc.
  */
-#$d_getgrgid_r HAS_GETGRGID_R     /**/
-#define GETGRGID_R_PROTO $getgrgid_r_proto        /**/
+#define Malloc_t $malloctype                   /**/
+#define Free_t $freetype                       /**/
 
-/* 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.
+/* MYMALLOC:
+ *     This symbol, if defined, indicates that we're using our own malloc.
  */
-#$d_getgrnam_r HAS_GETGRNAM_R     /**/
-#define GETGRNAM_R_PROTO $getgrnam_r_proto        /**/
+#$d_mymalloc MYMALLOC                  /**/
 
-/* HAS_GETHOSTBYADDR:
- *     This symbol, if defined, indicates that the gethostbyaddr() routine is
- *     available to look up hosts by their IP addresses.
+/* CAN_PROTOTYPE:
+ *     If defined, this macro indicates that the C compiler can handle
+ *     function prototypes.
  */
-#$d_gethbyaddr 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.
+/* _:
+ *     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[]));
  */
-#$d_gethbyname HAS_GETHOSTBYNAME               /**/
+#$prototype    CAN_PROTOTYPE   /**/
+#ifdef CAN_PROTOTYPE
+#define        _(args) args
+#else
+#define        _(args) ()
+#endif
 
-/* HAS_GETHOSTENT:
- *     This symbol, if defined, indicates that the gethostent() routine is
- *     available to look up host names in some data base or another.
+/* 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.
  */
-#$d_gethent HAS_GETHOSTENT             /**/
+#define SH_PATH "$sh"  /**/
 
-/* 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.
+/* SIG_NAME:
+ *     This symbol contains a list of signal names in order of
+ *     signal number. This is intended
+ *     to be used as a static array initialization, like this:
+ *             char *sig_name[] = { SIG_NAME };
+ *     The signals in the list are separated with commas, and each signal
+ *     is surrounded by double quotes. There is no leading SIG in the signal
+ *     name, i.e. SIGQUIT is known as "QUIT".
+ *     Gaps in the signal numbers (up to NSIG) are filled in with NUMnn,
+ *     etc., where nn is the actual signal number (e.g. NUM37).
+ *     The signal number for sig_name[i] is stored in sig_num[i].
+ *     The last element is 0 to terminate the list with a NULL.  This
+ *     corresponds to the 0 at the end of the sig_num list.
  */
-/* 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.
+/* SIG_NUM:
+ *     This symbol contains a list of signal numbers, in the same order as the
+ *     SIG_NAME list. It is suitable for static array initialization, as in:
+ *             int sig_num[] = { SIG_NUM };
+ *     The signals in the list are separated with commas, and the indices
+ *     within that list and the SIG_NAME list match, so it's easy to compute
+ *     the signal name from a number or vice versa at the price of a small
+ *     dynamic linear lookup. 
+ *     Duplicates are allowed, but are moved to the end of the list.
+ *     The signal number corresponding to sig_name[i] is sig_number[i].
+ *     if (i < NSIG) then sig_number[i] == i.  
+ *     The last element is 0, corresponding to the 0 at the end of
+ *     the sig_name list.
  */
-/* 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.
+/* SIG_SIZE:
+ *     This variable contains the number of elements of the sig_name
+ *     and sig_num arrays, excluding the final NULL entry.
  */
-#$d_gethname HAS_GETHOSTNAME   /**/
-#$d_uname HAS_UNAME            /**/
-#$d_phostname HAS_PHOSTNAME    /**/
-#ifdef HAS_PHOSTNAME
-#define PHOSTNAME "$aphostname"        /* How to get the host name */
-#endif
+#define SIG_NAME $sig_name_init                /**/
+#define SIG_NUM  $sig_num_init         /**/
+#define SIG_SIZE $sig_size                     /**/
 
-/* 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.
+/* STDCHAR:
+ *     This symbol is defined to be the type of char used in stdio.h.
+ *     It has the values "unsigned char" or "char".
  */
-#$d_gethostprotos      HAS_GETHOST_PROTOS      /**/
+#define STDCHAR $stdchar       /**/
 
-/* HAS_GETITIMER:
- *     This symbol, if defined, indicates that the getitimer routine is
- *     available to return interval timers.
+/* 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.
  */
-#$d_getitimer HAS_GETITIMER            /**/
+#ifndef VOIDUSED
+#define VOIDUSED $defvoidused
+#endif
+#define VOIDFLAGS $voidflags
+#if (VOIDFLAGS & VOIDUSED) != VOIDUSED
+#define void int               /* is void to be avoided? */
+#define M_VOID                 /* Xenix strikes again */
+#endif
 
-/* HAS_GETLOGIN_R:
- *     This symbol, if defined, indicates that the getlogin_r routine
- *     is available to getlogin re-entrantly.
+/* USE_CROSS_COMPILE:
+ *     This symbol, if defined, indicates that Perl is being cross-compiled.
  */
-/* 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.
+/* PERL_TARGETARCH:
+ *     This symbol, if defined, indicates the target architecture
+ *     Perl has been cross-compiled to.  Undefined if not a cross-compile.
  */
-#$d_getlogin_r HAS_GETLOGIN_R     /**/
-#define GETLOGIN_R_PROTO $getlogin_r_proto        /**/
+#ifndef USE_CROSS_COMPILE
+#$usecrosscompile      USE_CROSS_COMPILE       /**/
+#define        PERL_TARGETARCH "$targetarch"   /**/
+#endif
 
-/* HAS_GETMNT:
- *     This symbol, if defined, indicates that the getmnt routine is
- *     available to get filesystem mount info by filename.
+/* HAS_ATOLF:
+ *     This symbol, if defined, indicates that the atolf routine is
+ *     available to convert strings into long doubles.
  */
-#$d_getmnt HAS_GETMNT          /**/
+#$d_atolf HAS_ATOLF            /**/
 
-/* HAS_GETMNTENT:
- *     This symbol, if defined, indicates that the getmntent routine is
- *     available to iterate through mounted file systems to get their info.
+/* HAS_ATOLL:
+ *     This symbol, if defined, indicates that the atoll routine is
+ *     available to convert strings into long longs.
  */
-#$d_getmntent HAS_GETMNTENT            /**/
+#$d_atoll HAS_ATOLL            /**/
 
-/* HAS_GETNETBYADDR:
- *     This symbol, if defined, indicates that the getnetbyaddr() routine is
- *     available to look up networks by their IP addresses.
+/* HAS__FWALK:
+ *     This symbol, if defined, indicates that the _fwalk system call is
+ *     available to apply a function to all the file handles.
  */
-#$d_getnbyaddr HAS_GETNETBYADDR                /**/
+#$d__fwalk HAS__FWALK          /**/
 
-/* HAS_GETNETBYNAME:
- *     This symbol, if defined, indicates that the getnetbyname() routine is
- *     available to look up networks by their names.
+/* 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)
  */
-#$d_getnbyname HAS_GETNETBYNAME                /**/
+#$d_class HAS_CLASS            /**/
 
-/* HAS_GETNETENT:
- *     This symbol, if defined, indicates that the getnetent() routine is
- *     available to look up network names in some data base or another.
+/* HAS_STRUCT_CMSGHDR:
+ *     This symbol, if defined, indicates that the struct cmsghdr
+ *     is supported.
  */
-#$d_getnent HAS_GETNETENT              /**/
+#$d_cmsghdr_s HAS_STRUCT_CMSGHDR       /**/
 
-/* 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.
+/* 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 *);
  */
-#$d_getnetprotos       HAS_GETNET_PROTOS       /**/
+#$d_dbminitproto       HAS_DBMINIT_PROTO       /**/
 
-/* 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.
+/* HAS_DIRFD:
+ *     This manifest constant lets the C program know that dirfd
+ *     is available.
  */
-#$d_getpagsz HAS_GETPAGESIZE           /**/
+#$d_dirfd HAS_DIRFD            /**/
 
-/* HAS_GETPROTOENT:
- *     This symbol, if defined, indicates that the getprotoent() routine is
- *     available to look up protocols in some data base or another.
+/* 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.
  */
-#$d_getpent HAS_GETPROTOENT            /**/
+#$d_dlsymun    DLSYM_NEEDS_UNDERSCORE  /**/
 
-/* HAS_GETPGRP:
- *     This symbol, if defined, indicates that the getpgrp routine is
- *     available to get the current process group.
+/* HAS_FCHDIR:
+ *     This symbol, if defined, indicates that the fchdir routine is
+ *     available to change directory using a file descriptor.
  */
-/* USE_BSD_GETPGRP:
- *     This symbol, if defined, indicates that getpgrp needs one
- *     arguments whereas USG one needs none.
+#$d_fchdir 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.
  */
-#$d_getpgrp HAS_GETPGRP                /**/
-#$d_bsdgetpgrp USE_BSD_GETPGRP /**/
+#$d_fcntl_can_lock FCNTL_CAN_LOCK              /**/
 
-/* HAS_GETPROTOBYNAME:
- *     This symbol, if defined, indicates that the getprotobyname()
- *     routine is available to look up protocols by their name.
+/* HAS_FINITE:
+ *     This symbol, if defined, indicates that the finite routine is
+ *     available to check whether a double is finite (non-infinity non-NaN).
  */
-/* HAS_GETPROTOBYNUMBER:
- *     This symbol, if defined, indicates that the getprotobynumber()
- *     routine is available to look up protocols by their number.
+#$d_finite 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).
  */
-#$d_getpbyname HAS_GETPROTOBYNAME              /**/
-#$d_getpbynumber HAS_GETPROTOBYNUMBER          /**/
+#$d_finitel HAS_FINITEL                /**/
 
-/* 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.
+/* 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);
  */
-#$d_getprotoprotos     HAS_GETPROTO_PROTOS     /**/
+#$d_flockproto HAS_FLOCK_PROTO /**/
 
-/* HAS_GETPRPWNAM:
- *     This symbol, if defined, indicates that the getprpwnam system call is
- *     available to retrieve protected (shadow) password entries by name.
+/* 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)
  */
-#$d_getprpwnam HAS_GETPRPWNAM          /**/
+#$d_fp_class HAS_FP_CLASS              /**/
 
-/* 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.
+/* 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
  */
-#$d_getpwent HAS_GETPWENT              /**/
+#$d_fpclass HAS_FPCLASS                /**/
 
-/* HAS_GETPWENT_R:
- *     This symbol, if defined, indicates that the getpwent_r routine
- *     is available to getpwent re-entrantly.
+/* 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
+ *
  */
-/* 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.
+#$d_fpclassify 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
  */
-#$d_getpwent_r HAS_GETPWENT_R     /**/
-#define GETPWENT_R_PROTO $getpwent_r_proto        /**/
+#$d_fpclassl HAS_FPCLASSL              /**/
 
-/* HAS_GETPWNAM_R:
- *     This symbol, if defined, indicates that the getpwnam_r routine
- *     is available to getpwnam re-entrantly.
+/* HAS_FPOS64_T:
+ *     This symbol will be defined if the C compiler supports fpos64_t.
  */
-/* 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.
+#$d_fpos64_t   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.
  */
-#$d_getpwnam_r HAS_GETPWNAM_R     /**/
-#define GETPWNAM_R_PROTO $getpwnam_r_proto        /**/
+#$d_frexpl HAS_FREXPL          /**/
 
-/* HAS_GETPWUID_R:
- *     This symbol, if defined, indicates that the getpwuid_r routine
- *     is available to getpwuid re-entrantly.
+/* HAS_STRUCT_FS_DATA:
+ *     This symbol, if defined, indicates that the struct fs_data
+ *     to do statfs() is supported.
  */
-/* 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.
+#$d_fs_data_s 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).
  */
-#$d_getpwuid_r HAS_GETPWUID_R     /**/
-#define GETPWUID_R_PROTO $getpwuid_r_proto        /**/
+#$d_fseeko HAS_FSEEKO          /**/
+
+/* HAS_FSTATFS:
+ *     This symbol, if defined, indicates that the fstatfs routine is
+ *     available to stat filesystems by file descriptors.
+ */
+#$d_fstatfs HAS_FSTATFS                /**/
 
-/* HAS_GETSERVENT:
- *     This symbol, if defined, indicates that the getservent() routine is
- *     available to look up network services in some data base or another.
+/* 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.
  */
-#$d_getsent HAS_GETSERVENT             /**/
+#$d_fsync HAS_FSYNC            /**/
 
-/* 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.
+/* HAS_FTELLO:
+ *     This symbol, if defined, indicates that the ftello routine is
+ *     available to ftell beyond 32 bits (useful for ILP32 hosts).
  */
-#$d_getservprotos      HAS_GETSERV_PROTOS      /**/
+#$d_ftello HAS_FTELLO          /**/
 
-/* HAS_GETSPNAM:
- *     This symbol, if defined, indicates that the getspnam system call is
- *     available to retrieve SysV shadow password entries by name.
+/* HAS_GETCWD:
+ *     This symbol, if defined, indicates that the getcwd routine is
+ *     available to get the current working directory.
  */
-#$d_getspnam HAS_GETSPNAM              /**/
+#$d_getcwd HAS_GETCWD          /**/
 
-/* HAS_GETSPNAM_R:
- *     This symbol, if defined, indicates that the getspnam_r routine
- *     is available to getspnam re-entrantly.
+/* HAS_GETESPWNAM:
+ *     This symbol, if defined, indicates that the getespwnam system call is
+ *     available to retrieve enchanced (shadow) password entries by name.
  */
-/* 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.
+#$d_getespwnam HAS_GETESPWNAM          /**/
+
+/* HAS_GETFSSTAT:
+ *     This symbol, if defined, indicates that the getfsstat routine is
+ *     available to stat filesystems in bulk.
  */
-#$d_getspnam_r HAS_GETSPNAM_R     /**/
-#define GETSPNAM_R_PROTO $getspnam_r_proto        /**/
+#$d_getfsstat HAS_GETFSSTAT            /**/
 
-/* HAS_GETSERVBYNAME:
- *     This symbol, if defined, indicates that the getservbyname()
- *     routine is available to look up services by their name.
+/* HAS_GETITIMER:
+ *     This symbol, if defined, indicates that the getitimer routine is
+ *     available to return interval timers.
  */
-/* HAS_GETSERVBYPORT:
- *     This symbol, if defined, indicates that the getservbyport()
- *     routine is available to look up services by their port.
+#$d_getitimer HAS_GETITIMER            /**/
+
+/* HAS_GETMNT:
+ *     This symbol, if defined, indicates that the getmnt routine is
+ *     available to get filesystem mount info by filename.
  */
-#$d_getsbyname HAS_GETSERVBYNAME               /**/
-#$d_getsbyport HAS_GETSERVBYPORT               /**/
+#$d_getmnt HAS_GETMNT          /**/
 
-/* HAS_GMTIME_R:
- *     This symbol, if defined, indicates that the gmtime_r routine
- *     is available to gmtime re-entrantly.
+/* HAS_GETMNTENT:
+ *     This symbol, if defined, indicates that the getmntent routine is
+ *     available to iterate through mounted file systems to get their info.
  */
-/* 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.
+#$d_getmntent HAS_GETMNTENT            /**/
+
+/* HAS_GETPRPWNAM:
+ *     This symbol, if defined, indicates that the getprpwnam system call is
+ *     available to retrieve protected (shadow) password entries by name.
  */
-#$d_gmtime_r HAS_GMTIME_R         /**/
-#define GMTIME_R_PROTO $gmtime_r_proto    /**/
+#$d_getprpwnam HAS_GETPRPWNAM          /**/
 
-/* 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.
+/* HAS_GETSPNAM:
+ *     This symbol, if defined, indicates that the getspnam system call is
+ *     available to retrieve SysV shadow password entries by name.
  */
-#$d_gnulibc HAS_GNULIBC        /**/
-#if defined(HAS_GNULIBC) && !defined(_GNU_SOURCE)
-#   define _GNU_SOURCE
-#endif
+#$d_getspnam HAS_GETSPNAM              /**/
+
 /* HAS_HASMNTOPT:
  *     This symbol, if defined, indicates that the hasmntopt routine is
  *     available to query the mount options of file systems.
  */
 #$d_hasmntopt 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.
- */
-#$d_htonl HAS_HTONL            /**/
-#$d_htonl HAS_HTONS            /**/
-#$d_htonl HAS_NTOHL            /**/
-#$d_htonl HAS_NTOHS            /**/
-
 /* HAS_INT64_T:
  *     This symbol will defined if the C compiler supports int64_t.
  *     Usually the <inttypes.h> needs to be included, but sometimes
@@ -1862,12 +2542,6 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$d_int64_t     HAS_INT64_T               /**/
 
-/* HAS_ISASCII:
- *     This manifest constant lets the C program know that isascii 
- *     is available.
- */
-#$d_isascii 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).
@@ -1892,13 +2566,6 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$d_isnanl 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).
- */
-#$d_lchown 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
@@ -1907,79 +2574,18 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$d_ldbl_dig HAS_LDBL_DIG      /* */
 
-/* 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.
- */
-#$d_localtime_r HAS_LOCALTIME_R           /**/
-#define LOCALTIME_R_PROTO $localtime_r_proto      /**/
-
-/* 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.
- */
-#$d_longdbl HAS_LONG_DOUBLE            /**/
-#ifdef HAS_LONG_DOUBLE
-#define LONG_DOUBLESIZE $longdblsize           /**/
-#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.
- */
-#$d_longlong HAS_LONG_LONG             /**/
-#ifdef HAS_LONG_LONG
-#define LONGLONGSIZE $longlongsize             /**/
-#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);
- */
-#$d_lseekproto HAS_LSEEK_PROTO /**/
-
 /* HAS_MADVISE:
  *     This symbol, if defined, indicates that the madvise system call is
  *     available to map a file into memory.
  */
 #$d_madvise HAS_MADVISE                /**/
 
-/* HAS_MEMCHR:
- *     This symbol, if defined, indicates that the memchr routine is available
- *     to locate characters within a C string.
- */
-#$d_memchr HAS_MEMCHR  /**/
-
 /* HAS_MKDTEMP:
  *     This symbol, if defined, indicates that the mkdtemp routine is
  *     available to exclusively create a uniquely named temporary directory.
  */
 #$d_mkdtemp 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.
- */
-#$d_mkstemp HAS_MKSTEMP                /**/
-
 /* HAS_MKSTEMPS:
  *     This symbol, if defined, indicates that the mkstemps routine is
  *     available to excluslvely create and open a uniquely named
@@ -1987,18 +2593,6 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$d_mkstemps 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'.
- */
-#$d_mmap HAS_MMAP              /**/
-#define Mmap_t $mmaptype       /**/
-
 /* 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
@@ -2020,83 +2614,37 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$d_mprotect HAS_MPROTECT              /**/
 
-/* HAS_MSG:
- *     This symbol, if defined, indicates that the entire msg*(2) library is
- *     supported (IPC mechanism based on message queues).
- */
-#$d_msg HAS_MSG                /**/
-
 /* HAS_STRUCT_MSGHDR:
  *     This symbol, if defined, indicates that the struct msghdr
  *     is supported.
- */
-#$d_msghdr_s HAS_STRUCT_MSGHDR /**/
-
-/* HAS_OFF64_T:
- *     This symbol will be defined if the C compiler supports off64_t.
- */
-#$d_off64_t    HAS_OFF64_T             /**/
-
-/* HAS_OPEN3:
- *     This manifest constant lets the C program know that the three
- *     argument form of open(2) is available.
- */
-#$d_open3 HAS_OPEN3            /**/
-
-/* OLD_PTHREAD_CREATE_JOINABLE:
- *     This symbol, if defined, indicates how to create pthread
- *     in joinable (aka undetached) state.  NOTE: not defined
- *     if pthread.h already has defined PTHREAD_CREATE_JOINABLE
- *     (the new version of the constant).
- *     If defined, known values are PTHREAD_CREATE_UNDETACHED
- *     and __UNDETACHED.
- */
-#$d_old_pthread_create_joinable OLD_PTHREAD_CREATE_JOINABLE $old_pthread_create_joinable /**/
-
-/* HAS_PTHREAD_YIELD:
- *     This symbol, if defined, indicates that the pthread_yield 
- *     routine is available to yield the execution of the current
- *     thread.  sched_yield is preferable to pthread_yield.
- */
-/* SCHED_YIELD:
- *     This symbol defines the way to yield the execution of
- *     the current thread.  Known ways are sched_yield,
- *     pthread_yield, and pthread_yield with NULL.
- */
-/* HAS_SCHED_YIELD:
- *     This symbol, if defined, indicates that the sched_yield
- *     routine is available to yield the execution of the current
- *     thread.  sched_yield is preferable to pthread_yield.
- */
-#$d_pthread_yield HAS_PTHREAD_YIELD    /**/
-#define SCHED_YIELD    $sched_yield    /**/
-#$d_sched_yield HAS_SCHED_YIELD        /**/
+ */
+#$d_msghdr_s HAS_STRUCT_MSGHDR /**/
 
-/* HAS_RANDOM_R:
- *     This symbol, if defined, indicates that the random_r routine
- *     is available to random re-entrantly.
+/* 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.
  */
-/* 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.
+#$d_nl_langinfo HAS_NL_LANGINFO                /**/
+
+/* HAS_OFF64_T:
+ *     This symbol will be defined if the C compiler supports off64_t.
  */
-#$d_random_r HAS_RANDOM_R         /**/
-#define RANDOM_R_PROTO $random_r_proto    /**/
+#$d_off64_t    HAS_OFF64_T             /**/
 
-/* HAS_READDIR_R:
- *     This symbol, if defined, indicates that the readdir_r routine
- *     is available to readdir re-entrantly.
+/* HAS_PROCSELFEXE:
+ *     This symbol is defined if PROCSELFEXE_PATH is a symlink
+ *     to the absolute pathname of the executing program.
  */
-/* 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.
+/* 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.
  */
-#$d_readdir_r HAS_READDIR_R       /**/
-#define READDIR_R_PROTO $readdir_r_proto          /**/
+#$d_procselfexe HAS_PROCSELFEXE        /**/
+#if defined(HAS_PROCSELFEXE) && !defined(PROCSELFEXE_PATH)
+#define PROCSELFEXE_PATH       $procselfexe    /**/
+#endif
 
 /* HAS_READV:
  *     This symbol, if defined, indicates that the readv routine is
@@ -2111,29 +2659,6 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$d_recvmsg 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.
- */
-#$d_safebcpy 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.
- */
-#$d_safemcpy 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.
- */
-#$d_sanemcmp 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
@@ -2143,213 +2668,50 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$d_sbrkproto  HAS_SBRK_PROTO  /**/
 
-/* HAS_SEM:
- *     This symbol, if defined, indicates that the entire sem*(2) library is
- *     supported.
- */
-#$d_sem HAS_SEM                /**/
-
 /* HAS_SENDMSG:
  *     This symbol, if defined, indicates that the sendmsg routine is
  *     available to send structured socket messages.
  */
 #$d_sendmsg HAS_SENDMSG                /**/
 
-/* HAS_SETGRENT:
- *     This symbol, if defined, indicates that the setgrent routine is
- *     available for initializing sequential access of the group database.
- */
-#$d_setgrent 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.
- */
-#$d_setgrent_r HAS_SETGRENT_R     /**/
-#define SETGRENT_R_PROTO $setgrent_r_proto        /**/
-
-/* 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.
- */
-#$d_setgrps HAS_SETGROUPS              /**/
-
-/* HAS_SETHOSTENT:
- *     This symbol, if defined, indicates that the sethostent() routine is
- *     available.
- */
-#$d_sethent HAS_SETHOSTENT             /**/
-
 /* HAS_SETITIMER:
  *     This symbol, if defined, indicates that the setitimer routine is
  *     available to set interval timers.
  */
 #$d_setitimer HAS_SETITIMER            /**/
 
-/* HAS_SETNETENT:
- *     This symbol, if defined, indicates that the setnetent() routine is
- *     available.
- */
-#$d_setnent HAS_SETNETENT              /**/
-
-/* HAS_SETPROTOENT:
- *     This symbol, if defined, indicates that the setprotoent() routine is
- *     available.
- */
-#$d_setpent 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.
- */
-#$d_setpgrp HAS_SETPGRP                /**/
-#$d_bsdsetpgrp USE_BSD_SETPGRP /**/
-
 /* HAS_SETPROCTITLE:
  *     This symbol, if defined, indicates that the setproctitle routine is
  *     available to set process title.
  */
 #$d_setproctitle HAS_SETPROCTITLE              /**/
 
-/* HAS_SETPWENT:
- *     This symbol, if defined, indicates that the setpwent routine is
- *     available for initializing sequential access of the passwd database.
- */
-#$d_setpwent 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.
- */
-#$d_setpwent_r HAS_SETPWENT_R     /**/
-#define SETPWENT_R_PROTO $setpwent_r_proto        /**/
-
-/* HAS_SETSERVENT:
- *     This symbol, if defined, indicates that the setservent() routine is
- *     available.
- */
-#$d_setsent HAS_SETSERVENT             /**/
-
-/* 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.
- */
-#$d_setvbuf HAS_SETVBUF                /**/
-
 /* USE_SFIO:
  *     This symbol, if defined, indicates that sfio should
  *     be used.
  */
 #$d_sfio       USE_SFIO                /**/
 
-/* HAS_SHM:
- *     This symbol, if defined, indicates that the entire shm*(2) library is
- *     supported.
- */
-#$d_shm HAS_SHM                /**/
-
-/* HAS_SIGACTION:
- *     This symbol, if defined, indicates that Vr4's sigaction() routine
- *     is available.
+/* 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.
  */
-#$d_sigaction HAS_SIGACTION    /**/
+#$d_sigprocmask 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.
+/* 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.
  */
-#$d_sigsetjmp 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
+#$d_sockatmark HAS_SOCKATMARK          /**/
 
-/* 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.
- */
-#$d_socket     HAS_SOCKET              /**/
-#$d_sockpair   HAS_SOCKETPAIR  /**/
-#$d_msg_ctrunc HAS_MSG_CTRUNC  /**/
-#$d_msg_dontroute      HAS_MSG_DONTROUTE       /**/
-#$d_msg_oob    HAS_MSG_OOB     /**/
-#$d_msg_peek   HAS_MSG_PEEK    /**/
-#$d_msg_proxy  HAS_MSG_PROXY   /**/
-#$d_scm_rights HAS_SCM_RIGHTS  /**/
+/* 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);
+ */
+#$d_sockatmarkproto    HAS_SOCKATMARK_PROTO    /**/
 
 /* HAS_SOCKS5_INIT:
  *     This symbol, if defined, indicates that the socks5_init routine is
@@ -2363,39 +2725,21 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$d_sqrtl 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.
- */
-#$d_srand48_r HAS_SRAND48_R       /**/
-#define SRAND48_R_PROTO $srand48_r_proto          /**/
-
-/* 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.
+/* 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);
  */
-#$d_srandom_r HAS_SRANDOM_R       /**/
-#define SRANDOM_R_PROTO $srandom_r_proto          /**/
+#$d_sresgproto HAS_SETRESGID_PROTO     /**/
 
-/* USE_STAT_BLOCKS:
- *     This symbol is defined if this system has a stat structure declaring
- *     st_blksize and st_blocks.
+/* 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);
  */
-#ifndef USE_STAT_BLOCKS
-#$d_statblks USE_STAT_BLOCKS   /**/
-#endif
+#$d_sresuproto HAS_SETRESUID_PROTO     /**/
 
 /* HAS_STRUCT_STATFS_F_FLAGS:
  *     This symbol, if defined, indicates that the struct statfs
@@ -2420,107 +2764,11 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$d_fstatvfs 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.
- */
-#$d_stdstdio USE_STDIO_PTR     /**/
-#ifdef USE_STDIO_PTR
-#define FILE_ptr(fp)   $stdio_ptr
-#$d_stdio_ptr_lval STDIO_PTR_LVALUE            /**/
-#define FILE_cnt(fp)   $stdio_cnt
-#$d_stdio_cnt_lval STDIO_CNT_LVALUE            /**/
-#$d_stdio_ptr_lval_sets_cnt STDIO_PTR_LVAL_SETS_CNT    /**/
-#$d_stdio_ptr_lval_nochange_cnt 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.
- */
-#$d_stdiobase USE_STDIO_BASE   /**/
-#ifdef USE_STDIO_BASE
-#define FILE_base(fp)  $stdio_base
-#define FILE_bufsiz(fp)        $stdio_bufsiz
-#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.
- */
-#$d_strerror HAS_STRERROR              /**/
-#$d_syserrlst HAS_SYS_ERRLIST  /**/
-#define Strerror(e) $d_strerrm
-
-/* 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.
+/* HAS_STRFTIME:
+ *     This symbol, if defined, indicates that the strftime routine is
+ *     available to do time formatting.
  */
-#$d_strerror_r HAS_STRERROR_R     /**/
-#define STRERROR_R_PROTO $strerror_r_proto        /**/
+#$d_strftime HAS_STRFTIME              /**/
 
 /* HAS_STRTOLD:
  *     This symbol, if defined, indicates that the strtold routine is
@@ -2540,12 +2788,6 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$d_strtoq HAS_STRTOQ          /**/
 
-/* HAS_STRTOUL:
- *     This symbol, if defined, indicates that the strtoul routine is
- *     available to provide conversion of strings to unsigned long.
- */
-#$d_strtoul HAS_STRTOUL        /**/
-
 /* HAS_STRTOULL:
  *     This symbol, if defined, indicates that the strtoull routine is
  *     available to convert strings to unsigned long longs.
@@ -2558,6 +2800,15 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$d_strtouq 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, ...);
+ */
+#$d_syscallproto       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
@@ -2566,36 +2817,13 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$d_telldirproto       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).
- */
-#$d_time HAS_TIME              /**/
-#define Time_t $timetype               /* 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>.
- */
-#$d_times 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.
+/* U32_ALIGNMENT_REQUIRED:
+ *     This symbol, if defined, indicates that you must access
+ *     character data through U32-aligned pointers.
  */
-#$d_tmpnam_r HAS_TMPNAM_R         /**/
-#define TMPNAM_R_PROTO $tmpnam_r_proto    /**/
+#ifndef U32_ALIGNMENT_REQUIRED
+#$d_u32align U32_ALIGNMENT_REQUIRED    /**/
+#endif
 
 /* HAS_UALARM:
  *     This symbol, if defined, indicates that the ualarm routine is
@@ -2603,28 +2831,6 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$d_ualarm 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.
- */
-#$d_union_semun HAS_UNION_SEMUN        /**/
-#$d_semctl_semun USE_SEMCTL_SEMUN      /**/
-#$d_semctl_semid_ds USE_SEMCTL_SEMID_DS        /**/
-
 /* HAS_UNORDERED:
  *     This symbol, if defined, indicates that the unordered routine is
  *     available to check whether two doubles are unordered
@@ -2632,38 +2838,19 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$d_unordered HAS_UNORDERED            /**/
 
-/* HAS_USTAT:
- *     This symbol, if defined, indicates that the ustat system call is
- *     available to query file system statistics by dev_t.
- */
-#$d_ustat HAS_USTAT            /**/
-
-/* HAS_VFORK:
- *     This symbol, if defined, indicates that vfork() exists.
- */
-#$d_vfork 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 $signal_t     /* 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.
+/* 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);
  */
-#$d_vprintf HAS_VPRINTF        /**/
-#$d_charvspr USE_CHAR_VSPRINTF         /**/
+#$d_usleepproto        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.
+ */
+#$d_ustat HAS_USTAT            /**/
 
 /* HAS_WRITEV:
  *     This symbol, if defined, indicates that the writev routine is
@@ -2677,18 +2864,6 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$usedl 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 $doublesize         /**/
-
-/* EBCDIC:
- *     This symbol, if defined, indicates that this system uses
- *     EBCDIC encoding.
- */
-#$ebcdic       EBCDIC          /**/
-
 /* FFLUSH_NULL:
  *     This symbol, if defined, tells that fflush(NULL) does flush
  *     all pending stdio output.
@@ -2703,50 +2878,11 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #$fflushNULL   FFLUSH_NULL             /**/
 #$fflushall    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 $fpostype               /* File position type */
-
-/* Gid_t_f:
- *     This symbol defines the format string used for printing a Gid_t.
- */
-#define        Gid_t_f         $gidformat              /**/
-
-/* Gid_t_sign:
- *     This symbol holds the signedess of a Gid_t.
- *     1 for unsigned, -1 for signed.
- */
-#define Gid_t_sign     $gidsign                /* GID sign */
-
-/* Gid_t_size:
- *     This symbol holds the size of a Gid_t in bytes.
- */
-#define Gid_t_size $gidsize            /* 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 $gidtype         /* 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()..
+/* I_CRYPT:
+ *     This symbol, if defined, indicates that <crypt.h> exists and
+ *     should be included.
  */
-#if defined(HAS_GETGROUPS) || defined(HAS_SETGROUPS)
-#define Groups_t $groupstype   /* Type for 2nd arg to [sg]etgroups() */
-#endif
+#$i_crypt      I_CRYPT         /**/
 
 /* DB_Prefix_t:
  *     This symbol contains the type of the prefix structure element
@@ -2778,23 +2914,18 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #define DB_VERSION_MINOR_CFG   $db_version_minor       /**/
 #define DB_VERSION_PATCH_CFG   $db_version_patch       /**/
 
+/* I_FP:
+ *     This symbol, if defined, indicates that <fp.h> exists and
+ *     should be included.
+ */
+#$i_fp I_FP            /**/
+
 /* I_FP_CLASS:
  *     This symbol, if defined, indicates that <fp_class.h> exists and
  *     should be included.
  */
 #$i_fp_class   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.
- */
-#$i_grp I_GRP          /**/
-#$d_grpasswd GRPASSWD  /**/
-
 /* I_IEEEFP:
  *     This symbol, if defined, indicates that <ieeefp.h> exists and
  *     should be included.
@@ -2807,30 +2938,24 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$i_inttypes   I_INTTYPES                /**/
 
+/* I_LANGINFO:
+ *     This symbol, if defined, indicates that <langinfo.h> exists and
+ *     should be included.
+ */
+#$i_langinfo   I_LANGINFO              /**/
+
 /* I_LIBUTIL:
  *     This symbol, if defined, indicates that <libutil.h> exists and
  *     should be included.
  */
 #$i_libutil    I_LIBUTIL               /**/
 
-/* I_MACH_CTHREADS:
- *     This symbol, if defined, indicates to the C program that it should
- *     include <mach/cthreads.h>.
- */
-#$i_machcthr   I_MACH_CTHREADS /**/
-
 /* I_MNTENT:
  *     This symbol, if defined, indicates that <mntent.h> exists and
  *     should be included.
  */
 #$i_mntent     I_MNTENT                /**/
 
-/* I_NETDB:
- *     This symbol, if defined, indicates that <netdb.h> exists and
- *     should be included.
- */
-#$i_netdb I_NETDB              /**/
-
 /* I_NETINET_TCP:
  *     This symbol, if defined, indicates to the C program that it should
  *     include <netinet/tcp.h>.
@@ -2849,58 +2974,6 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$i_prot       I_PROT          /**/
 
-/* I_PTHREAD:
- *     This symbol, if defined, indicates to the C program that it should
- *     include <pthread.h>.
- */
-#$i_pthread   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.
- */
-#$i_pwd I_PWD          /**/
-#$d_pwquota PWQUOTA    /**/
-#$d_pwage PWAGE        /**/
-#$d_pwchange PWCHANGE  /**/
-#$d_pwclass PWCLASS    /**/
-#$d_pwexpire PWEXPIRE  /**/
-#$d_pwcomment PWCOMMENT        /**/
-#$d_pwgecos PWGECOS    /**/
-#$d_pwpasswd PWPASSWD  /**/
-
 /* I_SHADOW:
  *     This symbol, if defined, indicates that <shadow.h> exists and
  *     should be included.
@@ -2948,151 +3021,44 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$i_sysstatvfs I_SYS_STATVFS           /**/
 
-/* I_SYSUIO:
- *     This symbol, if defined, indicates that <sys/uio.h> exists and
- *     should be included.
- */
-#$i_sysuio     I_SYSUIO                /**/
-
 /* I_SYSUTSNAME:
  *     This symbol, if defined, indicates that <sys/utsname.h> exists and
  *     should be included.
  */
-#$i_sysutsname I_SYSUTSNAME            /**/
-
-/* I_SYS_VFS:
- *     This symbol, if defined, indicates that <sys/vfs.h> exists and
- *     should be included.
- */
-#$i_sysvfs     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.
- */
-#$i_time I_TIME                /**/
-#$i_systime I_SYS_TIME         /**/
-#$i_systimek I_SYS_TIME_KERNEL         /**/
-#$d_tm_tm_zone HAS_TM_TM_ZONE          /**/
-
-/* I_USTAT:
- *     This symbol, if defined, indicates that <ustat.h> exists and
- *     should be included.
- */
-#$i_ustat      I_USTAT         /**/
-
-/* PERL_INC_VERSION_LIST:
- *     This variable specifies the list of subdirectories in over
- *     which perl.c:incpush() and lib/lib.pm will automatically
- *     search when adding directories to @INC, in a format suitable
- *     for a C initialization string.  See the inc_version_list entry
- *     in Porting/Glossary for more details.
- */
-#define PERL_INC_VERSION_LIST $inc_version_list_init           /**/
-
-/* INSTALL_USR_BIN_PERL:
- *     This symbol, if defined, indicates that Perl is to be installed
- *     also as /usr/bin/perl.
- */
-#$installusrbinperl 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.
- */
-#$d_PRIfldbl PERL_PRIfldbl     $sPRIfldbl      /**/
-#$d_PRIgldbl PERL_PRIgldbl     $sPRIgldbl      /**/
-#$d_PRIeldbl PERL_PRIeldbl     $sPRIeldbl      /**/
-#$d_SCNfldbl PERL_SCNfldbl     $sSCNfldbl      /**/
-
-/* 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 $lseektype               /* <offset> type */
-#define LSEEKSIZE $lseeksize           /* <offset> size */
-#define Off_t_size $lseeksize  /* <offset> size */
-
-/* Free_t:
- *     This variable contains the return type of free().  It is usually
- * void, but occasionally int.
- */
-/* Malloc_t:
- *     This symbol is the type of pointer returned by malloc and realloc.
- */
-#define Malloc_t $malloctype                   /**/
-#define Free_t $freetype                       /**/
+#$i_sysutsname I_SYSUTSNAME            /**/
 
-/* MYMALLOC:
- *     This symbol, if defined, indicates that we're using our own malloc.
+/* I_SYS_VFS:
+ *     This symbol, if defined, indicates that <sys/vfs.h> exists and
+ *     should be included.
  */
-#$d_mymalloc MYMALLOC                  /**/
+#$i_sysvfs     I_SYS_VFS               /**/
 
-/* 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.
+/* I_USTAT:
+ *     This symbol, if defined, indicates that <ustat.h> exists and
+ *     should be included.
  */
-#define Mode_t $modetype        /* file mode parameter for system calls */
+#$i_ustat      I_USTAT         /**/
 
-/* 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.
+/* PERL_PRIfldbl:
+ *     This symbol, if defined, contains the string used by stdio to
+ *     format long doubles (format 'f') for output.
  */
-/* VAL_EAGAIN:
- *     This symbol holds the errno error code set by read() when no data was
- *     present on the non-blocking file descriptor.
+/* PERL_PRIgldbl:
+ *     This symbol, if defined, contains the string used by stdio to
+ *     format long doubles (format 'g') for output.
  */
-/* 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!
+/* PERL_PRIeldbl:
+ *     This symbol, if defined, contains the string used by stdio to
+ *     format long doubles (format 'e') for output.
  */
-/* 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!).
+/* PERL_SCNfldbl:
+ *     This symbol, if defined, contains the string used by stdio to
+ *     format long doubles (format 'f') for input.
  */
-#define VAL_O_NONBLOCK $o_nonblock
-#define VAL_EAGAIN $eagain
-#define RD_NODATA $rd_nodata
-#$d_eofnblk EOF_NONBLOCK
+#$d_PRIfldbl PERL_PRIfldbl     $sPRIfldbl      /**/
+#$d_PRIgldbl PERL_PRIgldbl     $sPRIgldbl      /**/
+#$d_PRIeldbl PERL_PRIeldbl     $sPRIeldbl      /**/
+#$d_SCNfldbl PERL_SCNfldbl     $sSCNfldbl      /**/
 
 /* NEED_VA_COPY:
  *     This symbol, if defined, indicates that the system stores
@@ -3105,37 +3071,6 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$need_va_copy 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           $netdb_host_type /**/
-#define Netdb_hlen_t           $netdb_hlen_type /**/
-#define Netdb_name_t           $netdb_name_type /**/
-#define Netdb_net_t            $netdb_net_type /**/
-
-/* 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.
- */
-#$d_perl_otherlibdirs PERL_OTHERLIBDIRS "$otherlibdirs"                /**/
-
 /* IVTYPE:
  *     This symbol defines the C type used for Perl's IV.
  */
@@ -3280,59 +3215,6 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #define        NVff            $nvfformat              /**/
 #define        NVgf            $nvgformat              /**/
 
-/* 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 $pidtype         /* 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 "$privlib"             /**/
-#define PRIVLIB_EXP "$privlibexp"              /**/
-
-/* 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 $ptrsize               /**/
-
-/* 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()              $drand01                /**/
-#define Rand_seed_t            $randseedtype           /**/
-#define seedDrand01(x) $seedfunc((Rand_seed_t)x)       /**/
-#define RANDBITS               $randbits               /**/
-
 /* 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
@@ -3340,122 +3222,7 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  *     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        $selectminbits  /**/
-
-/* 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        $selecttype     /**/
-
-/* SIG_NAME:
- *     This symbol contains a list of signal names in order of
- *     signal number. This is intended
- *     to be used as a static array initialization, like this:
- *             char *sig_name[] = { SIG_NAME };
- *     The signals in the list are separated with commas, and each signal
- *     is surrounded by double quotes. There is no leading SIG in the signal
- *     name, i.e. SIGQUIT is known as "QUIT".
- *     Gaps in the signal numbers (up to NSIG) are filled in with NUMnn,
- *     etc., where nn is the actual signal number (e.g. NUM37).
- *     The signal number for sig_name[i] is stored in sig_num[i].
- *     The last element is 0 to terminate the list with a NULL.  This
- *     corresponds to the 0 at the end of the sig_num list.
- */
-/* SIG_NUM:
- *     This symbol contains a list of signal numbers, in the same order as the
- *     SIG_NAME list. It is suitable for static array initialization, as in:
- *             int sig_num[] = { SIG_NUM };
- *     The signals in the list are separated with commas, and the indices
- *     within that list and the SIG_NAME list match, so it's easy to compute
- *     the signal name from a number or vice versa at the price of a small
- *     dynamic linear lookup. 
- *     Duplicates are allowed, but are moved to the end of the list.
- *     The signal number corresponding to sig_name[i] is sig_number[i].
- *     if (i < NSIG) then sig_number[i] == i.  
- *     The last element is 0, corresponding to the 0 at the end of
- *     the sig_name list.
- */
-/* 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 $sig_name_init                /**/
-#define SIG_NUM  $sig_num_init         /**/
-#define SIG_SIZE $sig_size                     /**/
-
-/* 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 "$sitearch"           /**/
-#define SITEARCH_EXP "$sitearchexp"            /**/
-
-/* 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 "$sitelib"             /**/
-#define SITELIB_EXP "$sitelibexp"              /**/
-#define SITELIB_STEM "$sitelib_stem"           /**/
-
-/* Size_t_size:
- *     This symbol holds the size of a Size_t in bytes.
- */
-#define Size_t_size $sizesize          /* */
-
-/* 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 $sizetype        /* 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            $socksizetype /**/
-
-/* 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 $ssizetype      /* signed count of bytes */
+#define SELECT_MIN_BITS        $selectminbits  /**/
 
 /* STARTPERL:
  *     This variable contains the string to put in front of a perl
@@ -3464,12 +3231,6 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #define STARTPERL "$startperl"         /**/
 
-/* 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 $stdchar       /**/
-
 /* HAS_STDIO_STREAM_ARRAY:
  *     This symbol, if defined, tells that there is an array
  *     holding the stdio streams.
@@ -3481,29 +3242,6 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #$d_stdio_stream_array HAS_STDIO_STREAM_ARRAY  /**/
 #define STDIO_STREAM_ARRAY     $stdio_stream_array
 
-/* Uid_t_f:
- *     This symbol defines the format string used for printing a Uid_t.
- */
-#define        Uid_t_f         $uidformat              /**/
-
-/* Uid_t_sign:
- *     This symbol holds the signedess of a Uid_t.
- *     1 for unsigned, -1 for signed.
- */
-#define Uid_t_sign     $uidsign                /* UID sign */
-
-/* Uid_t_size:
- *     This symbol holds the size of a Uid_t in bytes.
- */
-#define Uid_t_size $uidsize            /* 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 $uidtype         /* 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
@@ -3535,407 +3273,201 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  *     should be used when available.
  */
 #ifndef USE_LARGE_FILES
-#$uselargefiles        USE_LARGE_FILES         /**/
-#endif
-
-/* USE_LONG_DOUBLE:
- *     This symbol, if defined, indicates that long doubles should
- *     be used when available.
- */
-#ifndef USE_LONG_DOUBLE
-#$uselongdouble        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
-#$usemorebits  USE_MORE_BITS           /**/
-#endif
-
-/* MULTIPLICITY:
- *     This symbol, if defined, indicates that Perl should
- *     be built to use multiplicity.
- */
-#ifndef MULTIPLICITY
-#$usemultiplicity      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
-#$useperlio    USE_PERLIO              /**/
-#endif
-
-/* USE_SOCKS:
- *     This symbol, if defined, indicates that Perl should
- *     be built to use socks.
- */
-#ifndef USE_SOCKS
-#$usesocks     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.
- */
-#$use5005threads       USE_5005THREADS         /**/
-#$useithreads  USE_ITHREADS            /**/
-#if defined(USE_5005THREADS) && !defined(USE_ITHREADS)
-#define                USE_THREADS             /* until src is revised*/
-#endif
-#$d_oldpthreads        OLD_PTHREADS_API                /**/
-#$usereentrant 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.
- */
-#$d_vendorarch PERL_VENDORARCH "$vendorarch"           /**/
-#$d_vendorarch PERL_VENDORARCH_EXP "$vendorarchexp"            /**/
-
-/* 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.
- */
-#$d_vendorlib PERL_VENDORLIB_EXP "$vendorlibexp"               /**/
-#$d_vendorlib PERL_VENDORLIB_STEM "$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 $defvoidused
-#endif
-#define VOIDFLAGS $voidflags
-#if (VOIDFLAGS & VOIDUSED) != VOIDUSED
-#define void int               /* is void to be avoided? */
-#define M_VOID                 /* Xenix strikes again */
-#endif
-
-/* PERL_XS_APIVERSION:
- *     This variable contains the version of the oldest perl binary
- *     compatible with the present perl.  perl.c:incpush() and
- *     lib/lib.pm will automatically search in $sitearch for older
- *     directories across major versions back to xs_apiversion.
- *     This is only useful if you have a perl library directory tree
- *     structured like the default one.
- *     See INSTALL for how this works.
- *     The versioned site_perl directory was introduced in 5.005,
- *     so that is the lowest possible value.
- *     Since this can depend on compile time options
- *     it is set by Configure.  Other non-default sources
- *     of potential incompatibility, such as multiplicity, threads,
- *     debugging, 64bits, sfio, etc., are not checked for currently,
- *     though in principle we could go snooping around in old
- *     Config.pm files.
- */
-/* PERL_PM_APIVERSION:
- *     This variable contains the version of the oldest perl
- *     compatible with the present perl.  (That is, pure perl modules
- *     written for pm_apiversion will still work for the current
- *     version).  perl.c:incpush() and lib/lib.pm will automatically
- *     search in $sitelib for older directories across major versions
- *     back to pm_apiversion.  This is only useful if you have a perl
- *     library directory tree structured like the default one.  The
- *     versioned site_perl library was introduced in 5.005, so that's
- *     the default setting for this variable.  It's hard to imagine
- *     it changing before Perl6.  It is included here for symmetry
- *     with xs_apiveprsion -- the searching algorithms will
- *     (presumably) be similar.
- *     See the INSTALL file for how this works.
- */
-#define PERL_XS_APIVERSION "$xs_apiversion"
-#define PERL_PM_APIVERSION "$pm_apiversion"
-
-/* HAS_CRYPT:
- *     This symbol, if defined, indicates that the crypt routine is available
- *     to encrypt passwords and the like.
- */
-#$d_crypt HAS_CRYPT            /**/
-
-/* 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.
- */
-#$d_suidsafe SETUID_SCRIPTS_ARE_SECURE_NOW     /**/
-#$d_dosuid DOSUID              /**/
-
-/* 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 $shmattype     /**/
-#$d_shmatprototype HAS_SHMAT_PROTOTYPE /**/
-
-/* I_NDBM:
- *     This symbol, if defined, indicates that <ndbm.h> exists and should
- *     be included.
- */
-#$i_ndbm I_NDBM        /**/
-
-/* 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>.
- */
-#$i_stdarg I_STDARG            /**/
-#$i_varargs I_VARARGS  /**/
-
-/* 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[]));
+#$uselargefiles        USE_LARGE_FILES         /**/
+#endif
+
+/* USE_LONG_DOUBLE:
+ *     This symbol, if defined, indicates that long doubles should
+ *     be used when available.
  */
-#$prototype    CAN_PROTOTYPE   /**/
-#ifdef CAN_PROTOTYPE
-#define        _(args) args
-#else
-#define        _(args) ()
+#ifndef USE_LONG_DOUBLE
+#$uselongdouble        USE_LONG_DOUBLE         /**/
 #endif
 
-/* SH_PATH:
- *     This symbol contains the full pathname to the shell used on this
- *     on this system to execute Bourne shell scripts.  Usually, this will be
- *     /bin/sh, though it's possible that some systems will have /bin/ksh,
- *     /bin/pdksh, /bin/ash, /bin/bash, or even something such as
- *     D:/bin/sh.exe.
+/* USE_MORE_BITS:
+ *     This symbol, if defined, indicates that 64-bit interfaces and
+ *     long doubles should be used when available.
  */
-#define SH_PATH "$sh"  /**/
+#ifndef USE_MORE_BITS
+#$usemorebits  USE_MORE_BITS           /**/
+#endif
 
-/* USE_CROSS_COMPILE:
- *     This symbol, if defined, indicates that Perl is being cross-compiled.
+/* MULTIPLICITY:
+ *     This symbol, if defined, indicates that Perl should
+ *     be built to use multiplicity.
  */
-/* PERL_TARGETARCH:
- *     This symbol, if defined, indicates the target architecture
- *     Perl has been cross-compiled to.  Undefined if not a cross-compile.
+#ifndef MULTIPLICITY
+#$usemultiplicity      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_CROSS_COMPILE
-#$usecrosscompile      USE_CROSS_COMPILE       /**/
-#define        PERL_TARGETARCH "$targetarch"   /**/
+#ifndef USE_PERLIO
+#$useperlio    USE_PERLIO              /**/
 #endif
 
-/* 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 *);
+/* USE_SOCKS:
+ *     This symbol, if defined, indicates that Perl should
+ *     be built to use socks.
  */
-#$d_dbminitproto       HAS_DBMINIT_PROTO       /**/
+#ifndef USE_SOCKS
+#$usesocks     USE_SOCKS               /**/
+#endif
 
-/* HAS_DIRFD:
- *     This manifest constant lets the C program know that dirfd
- *     is available.
+/* PERL_XS_APIVERSION:
+ *     This variable contains the version of the oldest perl binary
+ *     compatible with the present perl.  perl.c:incpush() and
+ *     lib/lib.pm will automatically search in $sitearch for older
+ *     directories across major versions back to xs_apiversion.
+ *     This is only useful if you have a perl library directory tree
+ *     structured like the default one.
+ *     See INSTALL for how this works.
+ *     The versioned site_perl directory was introduced in 5.005,
+ *     so that is the lowest possible value.
+ *     Since this can depend on compile time options
+ *     it is set by Configure.  Other non-default sources
+ *     of potential incompatibility, such as multiplicity, threads,
+ *     debugging, 64bits, sfio, etc., are not checked for currently,
+ *     though in principle we could go snooping around in old
+ *     Config.pm files.
  */
-#$d_dirfd HAS_DIRFD            /**/
+/* PERL_PM_APIVERSION:
+ *     This variable contains the version of the oldest perl
+ *     compatible with the present perl.  (That is, pure perl modules
+ *     written for pm_apiversion will still work for the current
+ *     version).  perl.c:incpush() and lib/lib.pm will automatically
+ *     search in $sitelib for older directories across major versions
+ *     back to pm_apiversion.  This is only useful if you have a perl
+ *     library directory tree structured like the default one.  The
+ *     versioned site_perl library was introduced in 5.005, so that's
+ *     the default setting for this variable.  It's hard to imagine
+ *     it changing before Perl6.  It is included here for symmetry
+ *     with xs_apiveprsion -- the searching algorithms will
+ *     (presumably) be similar.
+ *     See the INSTALL file for how this works.
+ */
+#define PERL_XS_APIVERSION "$xs_apiversion"
+#define PERL_PM_APIVERSION "$pm_apiversion"
 
-/* HAS_FLOCK_PROTO:
+/* HAS_DRAND48_PROTO:
  *     This symbol, if defined, indicates that the system provides
- *     a prototype for the flock() function.  Otherwise, it is up
+ *     a prototype for the drand48() function.  Otherwise, it is up
  *     to the program to supply one.  A good guess is
- *             extern int flock(int, int);
- */
-#$d_flockproto HAS_FLOCK_PROTO /**/
-
-/* 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
+ *             extern double drand48(void);
  */
-#$d_fpclassl HAS_FPCLASSL              /**/
+#$d_drand48proto       HAS_DRAND48_PROTO       /**/
 
-/* 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.
+/* 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.
  */
-#$d_nl_langinfo HAS_NL_LANGINFO                /**/
+#$d_gethostprotos      HAS_GETHOST_PROTOS      /**/
 
-/* 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.
+/* 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.
  */
-#$d_procselfexe HAS_PROCSELFEXE        /**/
-#if defined(HAS_PROCSELFEXE) && !defined(PROCSELFEXE_PATH)
-#define PROCSELFEXE_PATH       $procselfexe    /**/
-#endif
+#$d_getnetprotos       HAS_GETNET_PROTOS       /**/
 
-/* 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.
+/* 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.
  */
-#$d_sigprocmask HAS_SIGPROCMASK                /**/
+#$d_getprotoprotos     HAS_GETPROTO_PROTOS     /**/
 
-/* 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.
+/* 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.
  */
-#$d_sockatmark HAS_SOCKATMARK          /**/
+#$d_getservprotos      HAS_GETSERV_PROTOS      /**/
 
-/* HAS_SOCKATMARK_PROTO:
+/* HAS_LSEEK_PROTO:
  *     This symbol, if defined, indicates that the system provides
- *     a prototype for the sockatmark() function.  Otherwise, it is up
+ *     a prototype for the lseek() function.  Otherwise, it is up
  *     to the program to supply one.  A good guess is
- *             extern int sockatmark(int);
+ *             extern off_t lseek(int, off_t, int);
  */
-#$d_sockatmarkproto    HAS_SOCKATMARK_PROTO    /**/
+#$d_lseekproto HAS_LSEEK_PROTO /**/
 
-/* 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);
+/* Netdb_host_t:
+ *     This symbol holds the type used for the 1st argument
+ *     to gethostbyaddr().
  */
-#$d_sresgproto 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);
+/* Netdb_hlen_t:
+ *     This symbol holds the type used for the 2nd argument
+ *     to gethostbyaddr().
  */
-#$d_sresuproto HAS_SETRESUID_PROTO     /**/
-
-/* HAS_STRFTIME:
- *     This symbol, if defined, indicates that the strftime routine is
- *     available to do time formatting.
+/* Netdb_name_t:
+ *     This symbol holds the type used for the argument to
+ *     gethostbyname().
  */
-#$d_strftime HAS_STRFTIME              /**/
+/* Netdb_net_t:
+ *     This symbol holds the type used for the 1st argument to
+ *     getnetbyaddr().
+ */
+#define Netdb_host_t           $netdb_host_type /**/
+#define Netdb_hlen_t           $netdb_hlen_type /**/
+#define Netdb_name_t           $netdb_name_type /**/
+#define Netdb_net_t            $netdb_net_type /**/
 
-/* 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, ...);
+/* 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.
  */
-#$d_syscallproto       HAS_SYSCALL_PROTO       /**/
+#define Select_fd_set_t        $selecttype     /**/
 
-/* U32_ALIGNMENT_REQUIRED:
- *     This symbol, if defined, indicates that you must access
- *     character data through U32-aligned pointers.
+/* 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).
  */
-#ifndef U32_ALIGNMENT_REQUIRED
-#$d_u32align U32_ALIGNMENT_REQUIRED    /**/
-#endif
+#define Sock_size_t            $socksizetype /**/
 
-/* 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);
+/* 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.
  */
-#$d_usleepproto        HAS_USLEEP_PROTO        /**/
+#define ARCHNAME "$archname"           /**/
 
-/* I_CRYPT:
- *     This symbol, if defined, indicates that <crypt.h> exists and
- *     should be included.
+/* HAS_ASCTIME_R:
+ *     This symbol, if defined, indicates that the asctime_r routine
+ *     is available to asctime re-entrantly.
  */
-#$i_crypt      I_CRYPT         /**/
-
-/* I_FP:
- *     This symbol, if defined, indicates that <fp.h> exists and
- *     should be included.
+/* 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.
  */
-#$i_fp I_FP            /**/
+#$d_asctime_r HAS_ASCTIME_R       /**/
+#define ASCTIME_R_PROTO $asctime_r_proto          /**/
 
-/* I_LANGINFO:
- *     This symbol, if defined, indicates that <langinfo.h> exists and
- *     should be included.
+/* HAS_CRYPT_R:
+ *     This symbol, if defined, indicates that the crypt_r routine
+ *     is available to crypt re-entrantly.
  */
-#$i_langinfo   I_LANGINFO              /**/
+/* 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.
+ */
+#$d_crypt_r HAS_CRYPT_R           /**/
+#define CRYPT_R_PROTO $crypt_r_proto      /**/
 
 /* HAS_CTERMID_R:
  *     This symbol, if defined, indicates that the ctermid_r routine
@@ -3950,6 +3482,45 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #$d_ctermid_r HAS_CTERMID_R       /**/
 #define CTERMID_R_PROTO $ctermid_r_proto          /**/
 
+/* 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.
+ */
+#$d_ctime_r HAS_CTIME_R           /**/
+#define CTIME_R_PROTO $ctime_r_proto      /**/
+
+/* 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.
+ */
+#$d_drand48_r HAS_DRAND48_R       /**/
+#define DRAND48_R_PROTO $drand48_r_proto          /**/
+
+/* 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.
+ */
+#$d_endgrent_r HAS_ENDGRENT_R     /**/
+#define ENDGRENT_R_PROTO $endgrent_r_proto        /**/
+
 /* HAS_ENDHOSTENT_R:
  *     This symbol, if defined, indicates that the endhostent_r routine
  *     is available to endhostent re-entrantly.
@@ -3989,6 +3560,19 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #$d_endprotoent_r HAS_ENDPROTOENT_R       /**/
 #define ENDPROTOENT_R_PROTO $endprotoent_r_proto          /**/
 
+/* 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.
+ */
+#$d_endpwent_r HAS_ENDPWENT_R     /**/
+#define ENDPWENT_R_PROTO $endpwent_r_proto        /**/
+
 /* HAS_ENDSERVENT_R:
  *     This symbol, if defined, indicates that the endservent_r routine
  *     is available to endservent re-entrantly.
@@ -4002,6 +3586,45 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #$d_endservent_r HAS_ENDSERVENT_R         /**/
 #define ENDSERVENT_R_PROTO $endservent_r_proto    /**/
 
+/* 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.
+ */
+#$d_getgrent_r HAS_GETGRENT_R     /**/
+#define GETGRENT_R_PROTO $getgrent_r_proto        /**/
+
+/* 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.
+ */
+#$d_getgrgid_r HAS_GETGRGID_R     /**/
+#define GETGRGID_R_PROTO $getgrgid_r_proto        /**/
+
+/* 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.
+ */
+#$d_getgrnam_r HAS_GETGRNAM_R     /**/
+#define GETGRNAM_R_PROTO $getgrnam_r_proto        /**/
+
 /* HAS_GETHOSTBYADDR_R:
  *     This symbol, if defined, indicates that the gethostbyaddr_r routine
  *     is available to gethostbyaddr re-entrantly.
@@ -4041,6 +3664,19 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #$d_gethostent_r HAS_GETHOSTENT_R         /**/
 #define GETHOSTENT_R_PROTO $gethostent_r_proto    /**/
 
+/* 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.
+ */
+#$d_getlogin_r HAS_GETLOGIN_R     /**/
+#define GETLOGIN_R_PROTO $getlogin_r_proto        /**/
+
 /* HAS_GETNETBYADDR_R:
  *     This symbol, if defined, indicates that the getnetbyaddr_r routine
  *     is available to getnetbyaddr re-entrantly.
@@ -4119,6 +3755,45 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #$d_getprotoent_r HAS_GETPROTOENT_R       /**/
 #define GETPROTOENT_R_PROTO $getprotoent_r_proto          /**/
 
+/* 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.
+ */
+#$d_getpwent_r HAS_GETPWENT_R     /**/
+#define GETPWENT_R_PROTO $getpwent_r_proto        /**/
+
+/* 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.
+ */
+#$d_getpwnam_r HAS_GETPWNAM_R     /**/
+#define GETPWNAM_R_PROTO $getpwnam_r_proto        /**/
+
+/* 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.
+ */
+#$d_getpwuid_r HAS_GETPWUID_R     /**/
+#define GETPWUID_R_PROTO $getpwuid_r_proto        /**/
+
 /* HAS_GETSERVBYNAME_R:
  *     This symbol, if defined, indicates that the getservbyname_r routine
  *     is available to getservbyname re-entrantly.
@@ -4155,14 +3830,95 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  *     REENTRANT_PROTO_T_ABC macros of reentr.h if d_getservent_r
  *     is defined.
  */
-#$d_getservent_r HAS_GETSERVENT_R         /**/
-#define GETSERVENT_R_PROTO $getservent_r_proto    /**/
-
-/* HAS_PTHREAD_ATFORK:
- *     This symbol, if defined, indicates that the pthread_atfork routine
- *     is available setup fork handlers.
- */
-#$d_pthread_atfork HAS_PTHREAD_ATFORK          /**/
+#$d_getservent_r HAS_GETSERVENT_R         /**/
+#define GETSERVENT_R_PROTO $getservent_r_proto    /**/
+
+/* 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.
+ */
+#$d_getspnam_r HAS_GETSPNAM_R     /**/
+#define GETSPNAM_R_PROTO $getspnam_r_proto        /**/
+
+/* 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.
+ */
+#$d_gmtime_r HAS_GMTIME_R         /**/
+#define GMTIME_R_PROTO $gmtime_r_proto    /**/
+
+/* 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.
+ */
+#$d_localtime_r HAS_LOCALTIME_R           /**/
+#define LOCALTIME_R_PROTO $localtime_r_proto      /**/
+
+/* 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.
+ */
+#$d_old_pthread_create_joinable OLD_PTHREAD_CREATE_JOINABLE $old_pthread_create_joinable /**/
+
+/* HAS_PTHREAD_ATFORK:
+ *     This symbol, if defined, indicates that the pthread_atfork routine
+ *     is available setup fork handlers.
+ */
+#$d_pthread_atfork HAS_PTHREAD_ATFORK          /**/
+
+/* 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.
+ */
+#$d_pthread_yield HAS_PTHREAD_YIELD    /**/
+#define SCHED_YIELD    $sched_yield    /**/
+#$d_sched_yield 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.
+ */
+#$d_random_r HAS_RANDOM_R         /**/
+#define RANDOM_R_PROTO $random_r_proto    /**/
 
 /* HAS_READDIR64_R:
  *     This symbol, if defined, indicates that the readdir64_r routine
@@ -4177,6 +3933,32 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #$d_readdir64_r HAS_READDIR64_R           /**/
 #define READDIR64_R_PROTO $readdir64_r_proto      /**/
 
+/* 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.
+ */
+#$d_readdir_r HAS_READDIR_R       /**/
+#define READDIR_R_PROTO $readdir_r_proto          /**/
+
+/* 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.
+ */
+#$d_setgrent_r HAS_SETGRENT_R     /**/
+#define SETGRENT_R_PROTO $setgrent_r_proto        /**/
+
 /* HAS_SETHOSTENT_R:
  *     This symbol, if defined, indicates that the sethostent_r routine
  *     is available to sethostent re-entrantly.
@@ -4229,6 +4011,19 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #$d_setprotoent_r HAS_SETPROTOENT_R       /**/
 #define SETPROTOENT_R_PROTO $setprotoent_r_proto          /**/
 
+/* 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.
+ */
+#$d_setpwent_r HAS_SETPWENT_R     /**/
+#define SETPWENT_R_PROTO $setpwent_r_proto        /**/
+
 /* HAS_SETSERVENT_R:
  *     This symbol, if defined, indicates that the setservent_r routine
  *     is available to setservent re-entrantly.
@@ -4242,6 +4037,58 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #$d_setservent_r HAS_SETSERVENT_R         /**/
 #define SETSERVENT_R_PROTO $setservent_r_proto    /**/
 
+/* 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.
+ */
+#$d_srand48_r HAS_SRAND48_R       /**/
+#define SRAND48_R_PROTO $srand48_r_proto          /**/
+
+/* 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.
+ */
+#$d_srandom_r HAS_SRANDOM_R       /**/
+#define SRANDOM_R_PROTO $srandom_r_proto          /**/
+
+/* 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.
+ */
+#$d_strerror_r HAS_STRERROR_R     /**/
+#define STRERROR_R_PROTO $strerror_r_proto        /**/
+
+/* 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.
+ */
+#$d_tmpnam_r HAS_TMPNAM_R         /**/
+#define TMPNAM_R_PROTO $tmpnam_r_proto    /**/
+
 /* HAS_TTYNAME_R:
  *     This symbol, if defined, indicates that the ttyname_r routine
  *     is available to ttyname re-entrantly.
@@ -4255,5 +4102,158 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #$d_ttyname_r HAS_TTYNAME_R       /**/
 #define TTYNAME_R_PROTO $ttyname_r_proto          /**/
 
+/* I_MACH_CTHREADS:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <mach/cthreads.h>.
+ */
+#$i_machcthr   I_MACH_CTHREADS /**/
+
+/* I_PTHREAD:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <pthread.h>.
+ */
+#$i_pthread   I_PTHREAD        /**/
+
+/* 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.
+ */
+#$use5005threads       USE_5005THREADS         /**/
+#$useithreads  USE_ITHREADS            /**/
+#if defined(USE_5005THREADS) && !defined(USE_ITHREADS)
+#define                USE_THREADS             /* until src is revised*/
+#endif
+#$d_oldpthreads        OLD_PTHREADS_API                /**/
+#$usereentrant USE_REENTRANT_API       /**/
+
+/* 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).
+ */
+#$d_time HAS_TIME              /**/
+#define Time_t $timetype               /* 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>.
+ */
+#$d_times HAS_TIMES            /**/
+
+/* 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 $fpostype               /* File position type */
+
+/* Gid_t_f:
+ *     This symbol defines the format string used for printing a Gid_t.
+ */
+#define        Gid_t_f         $gidformat              /**/
+
+/* Gid_t_sign:
+ *     This symbol holds the signedess of a Gid_t.
+ *     1 for unsigned, -1 for signed.
+ */
+#define Gid_t_sign     $gidsign                /* GID sign */
+
+/* Gid_t_size:
+ *     This symbol holds the size of a Gid_t in bytes.
+ */
+#define Gid_t_size $gidsize            /* 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 $gidtype         /* Type for getgid(), etc... */
+
+/* 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 $lseektype               /* <offset> type */
+#define LSEEKSIZE $lseeksize           /* <offset> size */
+#define Off_t_size $lseeksize  /* <offset> size */
+
+/* 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 $modetype        /* file mode parameter for system calls */
+
+/* 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 $pidtype         /* PID type */
+
+/* Size_t_size:
+ *     This symbol holds the size of a Size_t in bytes.
+ */
+#define Size_t_size $sizesize          /* */
+
+/* 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 $sizetype        /* length paramater for string functions */
+
+/* Uid_t_f:
+ *     This symbol defines the format string used for printing a Uid_t.
+ */
+#define        Uid_t_f         $uidformat              /**/
+
+/* Uid_t_sign:
+ *     This symbol holds the signedess of a Uid_t.
+ *     1 for unsigned, -1 for signed.
+ */
+#define Uid_t_sign     $uidsign                /* UID sign */
+
+/* Uid_t_size:
+ *     This symbol holds the size of a Uid_t in bytes.
+ */
+#define Uid_t_size $uidsize            /* 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 $uidtype         /* UID type */
+
 #endif
 !GROK!THIS!
index 4281be6..b33d0e2 100644 (file)
@@ -46,7 +46,7 @@ if ($args !~ /\-o (\S+)/) {
     $path =~ s,[/\\](\.[/\\])*,/,g;
   }
   if ($dllname =~ /\./) { $libname =$`; } else { $libname =$dllname; };
-  my $v_e_r_s = '5_8_0';
+  my $v_e_r_s = '5_9_0';
   if ( $dllname =~ /.*perl.*/) { 
     $dllname ="cygperl$v_e_r_s.dll";
   } else {
diff --git a/embed.h b/embed.h
index 747224f..03b64f5 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define pp_die                 Perl_pp_die
 #define pp_divide              Perl_pp_divide
 #define pp_dofile              Perl_pp_dofile
+#define pp_dor                 Perl_pp_dor
+#define pp_dorassign           Perl_pp_dorassign
 #define pp_dump                        Perl_pp_dump
 #define pp_each                        Perl_pp_each
 #define pp_egrent              Perl_pp_egrent
 #define pp_die()               Perl_pp_die(aTHX)
 #define pp_divide()            Perl_pp_divide(aTHX)
 #define pp_dofile()            Perl_pp_dofile(aTHX)
+#define pp_dor()               Perl_pp_dor(aTHX)
+#define pp_dorassign()         Perl_pp_dorassign(aTHX)
 #define pp_dump()              Perl_pp_dump(aTHX)
 #define pp_each()              Perl_pp_each(aTHX)
 #define pp_egrent()            Perl_pp_egrent(aTHX)
index 78b22ac..7779669 100644 (file)
@@ -33,8 +33,8 @@ apirevision=''
 apisubversion=''
 apiversion=''
 ar='arm-epoc-pe-ar'
-archlib='/usr/lib/perl/5.8.0/epoc'
-archlibexp='/usr/lib/perl/5.8.0/epoc'
+archlib='/usr/lib/perl/5.9.0/epoc'
+archlibexp='/usr/lib/perl/5.9.0/epoc'
 archname64=''
 archname='epoc'
 archobjs='epoc.o epocish.o epoc_stubs.o'
@@ -713,8 +713,8 @@ pmake=''
 pr=''
 prefix=''
 prefixexp=''
-privlib='/usr/lib/perl/5.8.0'
-privlibexp='/usr/lib/perl/5.8.0'
+privlib='/usr/lib/perl/5.9.0'
+privlibexp='/usr/lib/perl/5.9.0'
 procselfexe=''
 prototype='define'
 ptrsize='4'
@@ -769,11 +769,11 @@ sig_num='0'
 sig_num_init='0, 0'
 sig_size='1'
 signal_t='void'
-sitearch='/usr/lib/perl/site_perl/5.8.0/epoc'
-sitearchexp='/usr/lib/perl/site_perl/5.8.0/epoc'
-sitelib='/usr/lib/perl/site_perl/5.8.0/'
+sitearch='/usr/lib/perl/site_perl/5.9.0/epoc'
+sitearchexp='/usr/lib/perl/site_perl/5.9.0/epoc'
+sitelib='/usr/lib/perl/site_perl/5.9.0/'
 sitelib_stem='/usr/lib/perl/site_perl'
-sitelibexp='/usr/lib/perl/site_perl/5.8.0/'
+sitelibexp='/usr/lib/perl/site_perl/5.9.0/'
 siteprefix=''
 siteprefixexp=''
 sizesize='4'
@@ -850,7 +850,7 @@ vendorlib_stem=''
 vendorlibexp=''
 vendorprefix=''
 vendorprefixexp=''
-version='5.8.0'
+version='5.9.0'
 versiononly='undef'
 vi=''
 voidflags='15'
@@ -982,7 +982,7 @@ vendorlib_stem=''
 vendorlibexp=''
 vendorprefix=''
 vendorprefixexp=''
-version='5.8.0'
+version='5.9.0'
 vi=''
 voidflags='15'
 xlibpth=''
index 1190923..9dddd3a 100644 (file)
@@ -3,7 +3,7 @@
 use File::Find;
 use Cwd;
 
-$VERSION="5.8.0";
+$VERSION="5.9.0";
 $EPOC_VERSION=1;
 
 
index 924f436..c985896 100644 (file)
@@ -1951,6 +1951,7 @@ sub logop {
 
 sub pp_and { logop(@_, "and", 3, "&&", 11, "if") }
 sub pp_or  { logop(@_, "or",  2, "||", 10, "unless") }
+sub pp_dor { logop(@_, "err", 2, "//", 10, "") }
 
 # xor is syntactically a logop, but it's really a binop (contrary to
 # old versions of opcode.pl). Syntax is what matters here.
@@ -1967,7 +1968,8 @@ sub logassignop {
 }
 
 sub pp_andassign { logassignop(@_, "&&=") }
-sub pp_orassign { logassignop(@_, "||=") }
+sub pp_orassign  { logassignop(@_, "||=") }
+sub pp_dorassign { logassignop(@_, "//=") }
 
 sub listop {
     my $self = shift;
index 1524f67..6c4e8e5 100644 (file)
@@ -331,7 +331,7 @@ invert_opset function.
 
     list lslice splice push pop shift unshift reverse
 
-    cond_expr flip flop andassign orassign and or xor
+    cond_expr flip flop andassign orassign dorassign and or dor xor
 
     warn die lineseq nextstate scope enter leave setstate
 
index c027bd1..7bcee57 100644 (file)
@@ -25,6 +25,8 @@ PerlIOScalar_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg,
     if (arg) {
        if (SvROK(arg)) {
            s->var = SvREFCNT_inc(SvRV(arg));
+           if (!SvPOK(s->var))
+               (void)SvPV_nolen(s->var);
        }
        else {
            s->var =
index fd1b852..4e6615e 100644 (file)
@@ -10,7 +10,7 @@ BEGIN {
 }
 
 $| = 1;
-print "1..22\n";
+print "1..23\n";
 
 my $fh;
 my $var = "ok 2\n";
@@ -115,3 +115,8 @@ while (<$dup>) {
 close($fh);
 close($dup);
 
+# Check reading from non-string scalars
+
+open $fh, '<', \42;
+print <$fh> eq "42" ? "ok 23\n" : "not ok 23\n";
+close $fh;
index 09ca0a4..4ccbc68 100644 (file)
@@ -51,7 +51,8 @@ esac
 # Intuiting the existence of system calls under AIX is difficult,
 # at best; the safest technique is to find them empirically.
 
-# AIX 4.3.* and above default to using nm for symbol extraction
+# AIX 4.3.* and above default to letting Configure test if nm
+# extraction will work.
 case "$osvers" in
    3.*|4.1.*|4.2.*)
       case "$usenm" in
@@ -62,9 +63,6 @@ case "$osvers" in
          esac
       ;;
    *)
-      case "$usenm" in
-         '') usenm='true'
-         esac
       case "$usenativedlopen" in
          '') usenativedlopen='true'
          esac
index 350a9da..53a39c8 100644 (file)
@@ -54,14 +54,14 @@ libpth="/usr/lib"
 #####################################
 
 prefix=/usr/local
-perlpath="$prefix/bin/perl58"
-startperl="#! $prefix/bin/perl58"
-privlib="$prefix/lib/perl58"
+perlpath="$prefix/bin/perl59"
+startperl="#! $prefix/bin/perl59"
+privlib="$prefix/lib/perl59"
 man1dir="$prefix/man/man1"
 man3dir="$prefix/man/man3"
 
-sitearch="$prefix/lib/perl58/$archname"
-sitelib="$prefix/lib/perl58"
+sitearch="$prefix/lib/perl59/$archname"
+sitelib="$prefix/lib/perl59"
 
 #Do not overwrite by default /usr/bin/perl of DG/UX
 installusrbinperl="$undef"
@@ -140,7 +140,7 @@ unset sde_path default_sde sde
 # <takis@XFree86.Org>
 #####################################
 
-libperl="libperl58.so"
+libperl="libperl59.so"
 
 # Many functions (eg, gethostent(), killpg(), getpriority(), setruid()
 # dbm_*(), and plenty more) are defined in -ldgc.  Usually you don't
@@ -207,8 +207,8 @@ $define|true|[yY]*)
        # DG/UX library!
        libswanted="dbm posix resolv socket nsl dl m rte"
        archname="ix86-dgux-thread"
-       sitearch="$prefix/lib/perl58/$archname"
-       sitelib="$prefix/lib/perl58"
+       sitearch="$prefix/lib/perl59/$archname"
+       sitelib="$prefix/lib/perl59"
   case "$cc" in
        *gcc*)
           #### Use GCC -2.95.2/3 rev (DG/UX) and -pthread
index 7170516..905e1c0 100644 (file)
@@ -410,6 +410,58 @@ case "$ccisgcc" in
 #      ;;
 #    esac
 
+# Once we have the compiler flags defined, Configure will
+# execute the following call-back script. See hints/README.hints
+# for details.
+cat > UU/cc.cbu <<'EOCBU'
+# This script UU/cc.cbu will get 'called-back' by Configure after it
+# has prompted the user for the C compiler to use.
+
+# Compile and run the a test case to see if a certain gcc bug is
+# present. If so, lower the optimization level when compiling
+# pp_pack.c.  This works around a bug in unpack.
+
+if test -z "$ccisgcc" -a -z "$gccversion"; then
+    : no tests needed for HPc
+else
+    echo " "
+    echo "Testing for a certain gcc bug is fixed in your compiler..."
+
+    # Try compiling the test case.
+    if $cc -o t001 -O $ccflags $ldflags ../hints/t001.c; then
+       gccbug=`$run ./t001`
+       case "$gccbug" in
+           *fails*)
+               cat >&4 <<EOF
+This C compiler ($gccversion) is known to have optimizer
+problems when compiling pp_pack.c.
+
+Disabling optimization for pp_pack.c.
+EOF
+               case "$pp_pack_cflags" in
+                   '') pp_pack_cflags='optimize='
+                       echo "pp_pack_cflags='optimize=\"\"'" >> config.sh ;;
+                   *)  echo "You specified pp_pack_cflags yourself, so we'll go with your value." >&4 ;;
+                   esac
+               ;;
+           *)  echo "Your compiler is ok." >&4
+               ;;
+           esac
+    else
+       echo " "
+       echo "*** WHOA THERE!!! ***" >&4
+       echo "    Your C compiler \"$cc\" doesn't seem to be working!" >&4
+       case "$knowitall" in
+           '') echo "    You'd better start hunting for one and let me know about it." >&4
+               exit 1
+               ;;
+           esac
+       fi
+
+    rm -f t001$_o t001$_exe
+    fi
+EOCBU
+
 cat >UU/uselargefiles.cbu <<'EOCBU'
 # This script UU/uselargefiles.cbu will get 'called-back' by Configure 
 # after it has prompted the user for whether to use large files.
index 9e06145..8ccd959 100755 (executable)
@@ -258,7 +258,7 @@ if (($Is_W32 and ! $Is_NetWare)  or $Is_Cygwin) {
       chmod(0755, "$installbin/ld2");
     };
   } else {
-    $perldll = 'perl58.' . $dlext;
+    $perldll = 'perl59.' . $dlext;
   }
 
   if ($dlsrc ne "dl_none.xs") {
index 744330f..2fbe748 100644 (file)
@@ -6,6 +6,9 @@
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
  *
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ *  This file is built by keywords.pl from its data.  Any changes made here
+ *  will be lost!
  */
 #define KEY_NULL               0
 #define KEY___FILE__           1
 #define KEY_endservent         51
 #define KEY_eof                        52
 #define KEY_eq                 53
-#define KEY_eval               54
-#define KEY_exec               55
-#define KEY_exists             56
-#define KEY_exit               57
-#define KEY_exp                        58
-#define KEY_fcntl              59
-#define KEY_fileno             60
-#define KEY_flock              61
-#define KEY_for                        62
-#define KEY_foreach            63
-#define KEY_fork               64
-#define KEY_format             65
-#define KEY_formline           66
-#define KEY_ge                 67
-#define KEY_getc               68
-#define KEY_getgrent           69
-#define KEY_getgrgid           70
-#define KEY_getgrnam           71
-#define KEY_gethostbyaddr      72
-#define KEY_gethostbyname      73
-#define KEY_gethostent         74
-#define KEY_getlogin           75
-#define KEY_getnetbyaddr       76
-#define KEY_getnetbyname       77
-#define KEY_getnetent          78
-#define KEY_getpeername                79
-#define KEY_getpgrp            80
-#define KEY_getppid            81
-#define KEY_getpriority                82
-#define KEY_getprotobyname     83
-#define KEY_getprotobynumber   84
-#define KEY_getprotoent                85
-#define KEY_getpwent           86
-#define KEY_getpwnam           87
-#define KEY_getpwuid           88
-#define KEY_getservbyname      89
-#define KEY_getservbyport      90
-#define KEY_getservent         91
-#define KEY_getsockname                92
-#define KEY_getsockopt         93
-#define KEY_glob               94
-#define KEY_gmtime             95
-#define KEY_goto               96
-#define KEY_grep               97
-#define KEY_gt                 98
-#define KEY_hex                        99
-#define KEY_if                 100
-#define KEY_index              101
-#define KEY_int                        102
-#define KEY_ioctl              103
-#define KEY_join               104
-#define KEY_keys               105
-#define KEY_kill               106
-#define KEY_last               107
-#define KEY_lc                 108
-#define KEY_lcfirst            109
-#define KEY_le                 110
-#define KEY_length             111
-#define KEY_link               112
-#define KEY_listen             113
-#define KEY_local              114
-#define KEY_localtime          115
-#define KEY_lock               116
-#define KEY_log                        117
-#define KEY_lstat              118
-#define KEY_lt                 119
-#define KEY_m                  120
-#define KEY_map                        121
-#define KEY_mkdir              122
-#define KEY_msgctl             123
-#define KEY_msgget             124
-#define KEY_msgrcv             125
-#define KEY_msgsnd             126
-#define KEY_my                 127
-#define KEY_ne                 128
-#define KEY_next               129
-#define KEY_no                 130
-#define KEY_not                        131
-#define KEY_oct                        132
-#define KEY_open               133
-#define KEY_opendir            134
-#define KEY_or                 135
-#define KEY_ord                        136
-#define KEY_our                        137
-#define KEY_pack               138
-#define KEY_package            139
-#define KEY_pipe               140
-#define KEY_pop                        141
-#define KEY_pos                        142
-#define KEY_print              143
-#define KEY_printf             144
-#define KEY_prototype          145
-#define KEY_push               146
-#define KEY_q                  147
-#define KEY_qq                 148
-#define KEY_qr                 149
-#define KEY_quotemeta          150
-#define KEY_qw                 151
-#define KEY_qx                 152
-#define KEY_rand               153
-#define KEY_read               154
-#define KEY_readdir            155
-#define KEY_readline           156
-#define KEY_readlink           157
-#define KEY_readpipe           158
-#define KEY_recv               159
-#define KEY_redo               160
-#define KEY_ref                        161
-#define KEY_rename             162
-#define KEY_require            163
-#define KEY_reset              164
-#define KEY_return             165
-#define KEY_reverse            166
-#define KEY_rewinddir          167
-#define KEY_rindex             168
-#define KEY_rmdir              169
-#define KEY_s                  170
-#define KEY_scalar             171
-#define KEY_seek               172
-#define KEY_seekdir            173
-#define KEY_select             174
-#define KEY_semctl             175
-#define KEY_semget             176
-#define KEY_semop              177
-#define KEY_send               178
-#define KEY_setgrent           179
-#define KEY_sethostent         180
-#define KEY_setnetent          181
-#define KEY_setpgrp            182
-#define KEY_setpriority                183
-#define KEY_setprotoent                184
-#define KEY_setpwent           185
-#define KEY_setservent         186
-#define KEY_setsockopt         187
-#define KEY_shift              188
-#define KEY_shmctl             189
-#define KEY_shmget             190
-#define KEY_shmread            191
-#define KEY_shmwrite           192
-#define KEY_shutdown           193
-#define KEY_sin                        194
-#define KEY_sleep              195
-#define KEY_socket             196
-#define KEY_socketpair         197
-#define KEY_sort               198
-#define KEY_splice             199
-#define KEY_split              200
-#define KEY_sprintf            201
-#define KEY_sqrt               202
-#define KEY_srand              203
-#define KEY_stat               204
-#define KEY_study              205
-#define KEY_sub                        206
-#define KEY_substr             207
-#define KEY_symlink            208
-#define KEY_syscall            209
-#define KEY_sysopen            210
-#define KEY_sysread            211
-#define KEY_sysseek            212
-#define KEY_system             213
-#define KEY_syswrite           214
-#define KEY_tell               215
-#define KEY_telldir            216
-#define KEY_tie                        217
-#define KEY_tied               218
-#define KEY_time               219
-#define KEY_times              220
-#define KEY_tr                 221
-#define KEY_truncate           222
-#define KEY_uc                 223
-#define KEY_ucfirst            224
-#define KEY_umask              225
-#define KEY_undef              226
-#define KEY_unless             227
-#define KEY_unlink             228
-#define KEY_unpack             229
-#define KEY_unshift            230
-#define KEY_untie              231
-#define KEY_until              232
-#define KEY_use                        233
-#define KEY_utime              234
-#define KEY_values             235
-#define KEY_vec                        236
-#define KEY_wait               237
-#define KEY_waitpid            238
-#define KEY_wantarray          239
-#define KEY_warn               240
-#define KEY_while              241
-#define KEY_write              242
-#define KEY_x                  243
-#define KEY_xor                        244
-#define KEY_y                  245
+#define KEY_err                        54
+#define KEY_eval               55
+#define KEY_exec               56
+#define KEY_exists             57
+#define KEY_exit               58
+#define KEY_exp                        59
+#define KEY_fcntl              60
+#define KEY_fileno             61
+#define KEY_flock              62
+#define KEY_for                        63
+#define KEY_foreach            64
+#define KEY_fork               65
+#define KEY_format             66
+#define KEY_formline           67
+#define KEY_ge                 68
+#define KEY_getc               69
+#define KEY_getgrent           70
+#define KEY_getgrgid           71
+#define KEY_getgrnam           72
+#define KEY_gethostbyaddr      73
+#define KEY_gethostbyname      74
+#define KEY_gethostent         75
+#define KEY_getlogin           76
+#define KEY_getnetbyaddr       77
+#define KEY_getnetbyname       78
+#define KEY_getnetent          79
+#define KEY_getpeername                80
+#define KEY_getpgrp            81
+#define KEY_getppid            82
+#define KEY_getpriority                83
+#define KEY_getprotobyname     84
+#define KEY_getprotobynumber   85
+#define KEY_getprotoent                86
+#define KEY_getpwent           87
+#define KEY_getpwnam           88
+#define KEY_getpwuid           89
+#define KEY_getservbyname      90
+#define KEY_getservbyport      91
+#define KEY_getservent         92
+#define KEY_getsockname                93
+#define KEY_getsockopt         94
+#define KEY_glob               95
+#define KEY_gmtime             96
+#define KEY_goto               97
+#define KEY_grep               98
+#define KEY_gt                 99
+#define KEY_hex                        100
+#define KEY_if                 101
+#define KEY_index              102
+#define KEY_int                        103
+#define KEY_ioctl              104
+#define KEY_join               105
+#define KEY_keys               106
+#define KEY_kill               107
+#define KEY_last               108
+#define KEY_lc                 109
+#define KEY_lcfirst            110
+#define KEY_le                 111
+#define KEY_length             112
+#define KEY_link               113
+#define KEY_listen             114
+#define KEY_local              115
+#define KEY_localtime          116
+#define KEY_lock               117
+#define KEY_log                        118
+#define KEY_lstat              119
+#define KEY_lt                 120
+#define KEY_m                  121
+#define KEY_map                        122
+#define KEY_mkdir              123
+#define KEY_msgctl             124
+#define KEY_msgget             125
+#define KEY_msgrcv             126
+#define KEY_msgsnd             127
+#define KEY_my                 128
+#define KEY_ne                 129
+#define KEY_next               130
+#define KEY_no                 131
+#define KEY_not                        132
+#define KEY_oct                        133
+#define KEY_open               134
+#define KEY_opendir            135
+#define KEY_or                 136
+#define KEY_ord                        137
+#define KEY_our                        138
+#define KEY_pack               139
+#define KEY_package            140
+#define KEY_pipe               141
+#define KEY_pop                        142
+#define KEY_pos                        143
+#define KEY_print              144
+#define KEY_printf             145
+#define KEY_prototype          146
+#define KEY_push               147
+#define KEY_q                  148
+#define KEY_qq                 149
+#define KEY_qr                 150
+#define KEY_quotemeta          151
+#define KEY_qw                 152
+#define KEY_qx                 153
+#define KEY_rand               154
+#define KEY_read               155
+#define KEY_readdir            156
+#define KEY_readline           157
+#define KEY_readlink           158
+#define KEY_readpipe           159
+#define KEY_recv               160
+#define KEY_redo               161
+#define KEY_ref                        162
+#define KEY_rename             163
+#define KEY_require            164
+#define KEY_reset              165
+#define KEY_return             166
+#define KEY_reverse            167
+#define KEY_rewinddir          168
+#define KEY_rindex             169
+#define KEY_rmdir              170
+#define KEY_s                  171
+#define KEY_scalar             172
+#define KEY_seek               173
+#define KEY_seekdir            174
+#define KEY_select             175
+#define KEY_semctl             176
+#define KEY_semget             177
+#define KEY_semop              178
+#define KEY_send               179
+#define KEY_setgrent           180
+#define KEY_sethostent         181
+#define KEY_setnetent          182
+#define KEY_setpgrp            183
+#define KEY_setpriority                184
+#define KEY_setprotoent                185
+#define KEY_setpwent           186
+#define KEY_setservent         187
+#define KEY_setsockopt         188
+#define KEY_shift              189
+#define KEY_shmctl             190
+#define KEY_shmget             191
+#define KEY_shmread            192
+#define KEY_shmwrite           193
+#define KEY_shutdown           194
+#define KEY_sin                        195
+#define KEY_sleep              196
+#define KEY_socket             197
+#define KEY_socketpair         198
+#define KEY_sort               199
+#define KEY_splice             200
+#define KEY_split              201
+#define KEY_sprintf            202
+#define KEY_sqrt               203
+#define KEY_srand              204
+#define KEY_stat               205
+#define KEY_study              206
+#define KEY_sub                        207
+#define KEY_substr             208
+#define KEY_symlink            209
+#define KEY_syscall            210
+#define KEY_sysopen            211
+#define KEY_sysread            212
+#define KEY_sysseek            213
+#define KEY_system             214
+#define KEY_syswrite           215
+#define KEY_tell               216
+#define KEY_telldir            217
+#define KEY_tie                        218
+#define KEY_tied               219
+#define KEY_time               220
+#define KEY_times              221
+#define KEY_tr                 222
+#define KEY_truncate           223
+#define KEY_uc                 224
+#define KEY_ucfirst            225
+#define KEY_umask              226
+#define KEY_undef              227
+#define KEY_unless             228
+#define KEY_unlink             229
+#define KEY_unpack             230
+#define KEY_unshift            231
+#define KEY_untie              232
+#define KEY_until              233
+#define KEY_use                        234
+#define KEY_utime              235
+#define KEY_values             236
+#define KEY_vec                        237
+#define KEY_wait               238
+#define KEY_waitpid            239
+#define KEY_wantarray          240
+#define KEY_warn               241
+#define KEY_while              242
+#define KEY_write              243
+#define KEY_x                  244
+#define KEY_xor                        245
+#define KEY_y                  246
index 00c067c..d5903fa 100755 (executable)
@@ -13,6 +13,9 @@ print <<EOM;
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
  *
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ *  This file is built by keywords.pl from its data.  Any changes made here
+ *  will be lost!
  */
 EOM
 
@@ -90,6 +93,7 @@ endpwent
 endservent
 eof
 eq
+err
 eval
 exec
 exists
index bad4f78..c46ebcd 100644 (file)
@@ -456,26 +456,26 @@ See Example 3 below for an example of initialization.
 =item Example 1
 
 Giving a struct element a class type that is also a struct is how
-structs are nested.  Here, C<timeval> represents a time (seconds and
-microseconds), and C<rusage> has two elements, each of which is of
-type C<timeval>.
+structs are nested.  Here, C<Timeval> represents a time (seconds and
+microseconds), and C<Rusage> has two elements, each of which is of
+type C<Timeval>.
 
     use Class::Struct;
 
-    struct( rusage => {
-        ru_utime => timeval,  # seconds
-        ru_stime => timeval,  # microseconds
+    struct( Rusage => {
+        ru_utime => 'Timeval',  # seconds
+        ru_stime => 'Timeval',  # microseconds
     });
 
-    struct( timeval => [
+    struct( Timeval => [
         tv_secs  => '$',
         tv_usecs => '$',
     ]);
 
         # create an object:
-    my $t = new rusage;
+    my $t = Rusage->new(ru_utime=>Timeval->new(), ru_stime=>Timeval->new());
 
-        # $t->ru_utime and $t->ru_stime are objects of type timeval.
+        # $t->ru_utime and $t->ru_stime are objects of type Timeval.
         # set $t->ru_utime to 100.0 sec and $t->ru_stime to 5.0 sec.
     $t->ru_utime->tv_secs(100);
     $t->ru_utime->tv_usecs(0);
index bb76013..c5bb19e 100644 (file)
@@ -1426,7 +1426,7 @@ sub init_dirscan {        # --- File and Directory Lists (.xs .pm .pod etc)
                my($ispod)=0;
                if (open(FH,"<$name")) {
                    while (<FH>) {
-                       if (/^=head1\s+\w+/) {
+                       if (/^=\w/) {
                            $ispod=1;
                            last;
                        }
@@ -1455,7 +1455,7 @@ sub init_dirscan {        # --- File and Directory Lists (.xs .pm .pod etc)
                my($ispod)=0;
                if (open(FH,"<$name")) {
                    while (<FH>) {
-                       if (/^=head1\s+\w+/) {
+                       if (/^=\w/) {
                            $ispod=1;
                            last;
                        }
index 771cff4..9898a97 100644 (file)
@@ -506,7 +506,7 @@ sub pod2usage {
              and  $opts{"-output"} == \*STDOUT )
     {
        ## spit out the entire PODs. Might as well invoke perldoc
-       my $progpath = File::Spec->catfile($Config{bin}, "perldoc");
+       my $progpath = File::Spec->catfile($Config{scriptdir}, "perldoc");
        system($progpath, $opts{"-input"});
     }
     else {
index 51c290e..fa0ef22 100644 (file)
@@ -14,7 +14,7 @@ use File::Spec;
 
 require Exporter;
 
-our $VERSION = '0.12';
+our $VERSION = '0.20';
 our $PACKAGE = __PACKAGE__;
 
 our @ISA = qw(Exporter);
@@ -36,7 +36,6 @@ unless ($@) {
 else { # XXX, Perl 5.6.1
     my($f, $fh);
     foreach my $d (@INC) {
-       use File::Spec;
        $f = File::Spec->catfile($d, "unicode", "Unicode.301");
        if (open($fh, $f)) {
            $UNICODE_VERSION = '3.0.1';
@@ -48,53 +47,100 @@ else { # XXX, Perl 5.6.1
 
 our $getCombinClass; # coderef for combining class from Unicode::Normalize
 
-use constant Min2      => 0x20;   # minimum weight at level 2
-use constant Min3      => 0x02;   # minimum weight at level 3
-use constant UNDEFINED => 0xFF80; # special value for undefined CE's
+use constant Min2   => 0x20;    # minimum weight at level 2
+use constant Min3   => 0x02;    # minimum weight at level 3
 
-our $DefaultRearrange = [ 0x0E40..0x0E44, 0x0EC0..0x0EC4 ];
-
-sub UCA_Version { "8.0" }
+# format for pack
+use constant VCE_FORMAT => 'Cn4'; # for variable + CE with 4 levels
 
-sub Base_Unicode_Version { $UNICODE_VERSION || 'unknown' }
+# values of variable
+use constant NON_VAR => 0; # Non-Variable character
+use constant VAR     => 1; # Variable character
 
-##
-## constructor
-##
-sub new
-{
-    my $class = shift;
-    my $self = bless { @_ }, $class;
+our $DefaultRearrange = [ 0x0E40..0x0E44, 0x0EC0..0x0EC4 ];
 
-    # alternate lowercased
-    $self->{alternate} =
-       ! exists $self->{alternate} ? 'shifted' : lc($self->{alternate});
+sub UCA_Version { "9" }
 
-    croak "$PACKAGE unknown alternate tag name: $self->{alternate}"
-       unless $self->{alternate} eq 'blanked'
-           || $self->{alternate} eq 'non-ignorable'
-           || $self->{alternate} eq 'shifted'
-           || $self->{alternate} eq 'shift-trimmed';
+sub Base_Unicode_Version { $UNICODE_VERSION || 'unknown' }
 
-    # collation level
-    $self->{level} ||= 4;
+my (%AlternateOK);
+@AlternateOK{ qw/
+    blanked  non-ignorable  shifted  shift-trimmed
+  / } = ();
+
+our @ChangeOK = qw/
+    alternate backwards level normalization rearrange
+    katakana_before_hiragana upper_before_lower
+    overrideHangul overrideCJK preprocess UCA_Version
+  /;
+
+our @ChangeNG = qw/
+    entry entries table ignored combining maxlength
+    ignoreChar ignoreName undefChar undefName
+    versionTable alternateTable backwardsTable forwardsTable rearrangeTable
+    derivCode normCode rearrangeHash isShift L3ignorable
+  /;
+
+my (%ChangeOK, %ChangeNG);
+@ChangeOK{ @ChangeOK } = ();
+@ChangeNG{ @ChangeNG } = ();
+
+sub change {
+    my $self = shift;
+    my %hash = @_;
+    my %old;
+    foreach my $k (keys %hash) {
+       if (exists $ChangeOK{$k}) {
+           $old{$k} = $self->{$k};
+           $self->{$k} = $hash{$k};
+       }
+       elsif (exists $ChangeNG{$k}) {
+           croak "change of $k via change() is not allowed!";
+       }
+       # else => ignored
+    }
+    $self->checkCollator;
+    return wantarray ? %old : $self;
+}
 
+sub checkCollator {
+    my $self = shift;
     croak "Illegal level lower than 1 (passed $self->{level})."
        if $self->{level} < 1;
     croak "A level higher than 4 (passed $self->{level}) is not supported."
        if 4 < $self->{level};
 
-    # overrideHangul and -CJK
-    # If true: CODEREF used; '': default; undef: derived elements
-    $self->{overrideHangul} = ''
-       if ! exists $self->{overrideHangul};
-    $self->{overrideCJK} = ''
-       if ! exists $self->{overrideCJK};
+    $self->{derivCode} =
+       $self->{UCA_Version} == -1 ? \&broken_derivCE :
+       $self->{UCA_Version} ==  8 ? \&derivCE_8 :
+       $self->{UCA_Version} ==  9 ? \&derivCE_9 :
+      croak "Illegal UCA version (passed $self->{UCA_Version}).";
 
-    # normalization form
-    $self->{normalization} = 'D'
-       if ! exists $self->{normalization};
-    $self->{UNF} = undef;
+    $self->{alternate} = lc($self->{alternate});
+    croak "$PACKAGE unknown alternate tag name: $self->{alternate}"
+       unless exists $AlternateOK{ $self->{alternate} };
+
+    $self->{isShift} = $self->{alternate} eq 'shifted' ||
+               $self->{alternate} eq 'shift-trimmed';
+
+    $self->{backwards} = []
+       if ! defined $self->{backwards};
+    $self->{backwards} = [ $self->{backwards} ]
+       if ! ref $self->{backwards};
+
+    $self->{rearrange} = []
+       if ! defined $self->{rearrange};
+    croak "$PACKAGE: A list for rearrangement must be store in an ARRAYREF"
+       if ! ref $self->{rearrange};
+
+    # keys of $self->{rearrangeHash} are $self->{rearrange}.
+    $self->{rearrangeHash} = undef;
+
+    if (@{ $self->{rearrange} }) {
+       @{ $self->{rearrangeHash} }{ @{ $self->{rearrange} } } = ();
+    }
+
+    $self->{normCode} = undef;
 
     if (defined $self->{normalization}) {
        eval { require Unicode::Normalize };
@@ -105,7 +151,7 @@ sub new
        $getCombinClass = \&Unicode::Normalize::getCombinClass
            if ! $getCombinClass;
 
-       $self->{UNF} =
+       $self->{normCode} =
            $self->{normalization} =~ /^(?:NF)?C$/  ? \&NFC :
            $self->{normalization} =~ /^(?:NF)?D$/  ? \&NFD :
            $self->{normalization} =~ /^(?:NF)?KC$/ ? \&NFKC :
@@ -113,37 +159,39 @@ sub new
          croak "$PACKAGE unknown normalization form name: "
                . $self->{normalization};
     }
+    return;
+}
+
+sub new
+{
+    my $class = shift;
+    my $self = bless { @_ }, $class;
 
-    # Open a table file.
     # If undef is passed explicitly, no file is read.
-    $self->{table} = $KeyFile
-       if ! exists $self->{table};
-    $self->read_table
-       if defined $self->{table};
+    $self->{table} = $KeyFile if ! exists $self->{table};
+    $self->read_table if defined $self->{table};
 
     if ($self->{entry}) {
        $self->parseEntry($_) foreach split /\n/, $self->{entry};
     }
 
-    # backwards
-    $self->{backwards} ||= [ ];
-    $self->{backwards} = [ $self->{backwards} ]
-       if ! ref $self->{backwards};
+    $self->{level} ||= 4;
+    $self->{UCA_Version} ||= UCA_Version();
 
-    # rearrange
-    $self->{rearrange} = $DefaultRearrange
+    $self->{overrideHangul} = ''
+       if ! exists $self->{overrideHangul};
+    $self->{overrideCJK} = ''
+       if ! exists $self->{overrideCJK};
+    $self->{normalization} = 'D'
+       if ! exists $self->{normalization};
+    $self->{alternate} = $self->{alternateTable} || 'shifted'
+       if ! exists $self->{alternate};
+    $self->{rearrange} = $self->{rearrangeTable} || $DefaultRearrange
        if ! exists $self->{rearrange};
-    $self->{rearrange} = []
-       if ! defined $self->{rearrange};
-    croak "$PACKAGE: A list for rearrangement must be store in an ARRAYREF"
-       if ! ref $self->{rearrange};
+    $self->{backwards} = $self->{backwardsTable}
+       if ! exists $self->{backwards};
 
-    # keys of $self->{rearrangeHash} are $self->{rearrange}.
-    $self->{rearrangeHash} = undef;
-
-    if (@{ $self->{rearrange} }) {
-       @{ $self->{rearrangeHash} }{ @{ $self->{rearrange} } } = ();
-    }
+    $self->checkCollator;
 
     return $self;
 }
@@ -159,17 +207,20 @@ sub read_table {
     while (<$fk>) {
        next if /^\s*#/;
        if (/^\s*\@/) {
-           if (/^\@version\s*(\S*)/) {
-               $self->{version} ||= $1;
+           if    (/^\s*\@version\s*(\S*)/) {
+               $self->{versionTable} ||= $1;
+           }
+           elsif (/^\s*\@alternate\s+(\S*)/) {
+               $self->{alternateTable} ||= $1;
            }
-           elsif (/^\@alternate\s+(.*)/) {
-               $self->{alternate} ||= $1;
+           elsif (/^\s*\@backwards\s+(\S*)/) {
+               push @{ $self->{backwardsTable} }, $1;
            }
-           elsif (/^\@backwards\s+(.*)/) {
-               push @{ $self->{backwards} }, $1;
+           elsif (/^\s*\@forwards\s+(\S*)/) { # parhaps no use
+               push @{ $self->{forwardsTable} }, $1;
            }
-           elsif (/^\@rearrange\s+(.*)/) {
-               push @{ $self->{rearrange} }, _getHexArray($1);
+           elsif (/^\s*\@rearrange\s+(.*)/) { # (\S*) is NG
+               push @{ $self->{rearrangeTable} }, _getHexArray($1);
            }
            next;
        }
@@ -201,6 +252,8 @@ sub parseEntry
        if ! $k;
 
     my @e = _getHexArray($e);
+    return if !@e;
+
     $ele = pack('U*', @e);
     return if defined $self->{undefChar} && $ele =~ /$self->{undefChar}/;
 
@@ -212,27 +265,33 @@ sub parseEntry
     }
     else {
        my $combining = 1; # primary = 0, secondary != 0;
+       my $level3ingore;
 
        foreach my $arr ($k =~ /\[([^\[\]]+)\]/g) { # SPACEs allowed
            my $var = $arr =~ /\*/; # exactly /^\*/ but be lenient.
-           push @key, $self->altCE($var, _getHexArray($arr));
-           $combining = 0 unless $key[-1][0] == 0 && $key[-1][1] != 0;
+           my @arr = _getHexArray($arr);
+           push @key, pack(VCE_FORMAT, $var, @arr);
+           $combining = 0 unless $arr[0] == 0 && $arr[1] != 0;
+           $level3ingore = 1 if $arr[0] == 0 && $arr[1] == 0 && $arr[2] == 0;
        }
        $self->{entries}{$ele} = \@key;
-       $self->{combining}{$ele} = 1 if $combining;
+
+       $self->{combining}{$ele} = 1
+           if $combining;
+
+       $self->{L3ignorable}{$e[0]} = 1
+           if @e == 1 && $level3ingore;
     }
     $self->{maxlength}{ord $ele} = scalar @e if @e > 1;
 }
 
-
 ##
 ## arrayref CE = altCE(bool variable?, list[num] weights)
 ##
 sub altCE
 {
     my $self = shift;
-    my $var  = shift;
-    my @c    = @_;
+    my($var, @c) = unpack(VCE_FORMAT, shift);
 
     $self->{alternate} eq 'blanked' ?
        $var ? [0,0,0,$c[3]] : \@c :
@@ -245,15 +304,18 @@ sub altCE
         croak "$PACKAGE unknown alternate name: $self->{alternate}";
 }
 
-##
-## string hex_sortkey = splitCE(string arg)
-##
 sub viewSortKey
 {
     my $self = shift;
+    my $ver = $self->{UCA_Version};
+
     my $key  = $self->getSortKey(@_);
     my $view = join " ", map sprintf("%04X", $_), unpack 'n*', $key;
-    $view =~ s/ ?0000 ?/|/g;
+    if ($ver <= 8) {
+       $view =~ s/ ?0000 ?/|/g;
+    } else {
+       $view =~ s/\b0000\b/|/g;
+    }
     return "[$view]";
 }
 
@@ -265,10 +327,12 @@ sub splitCE
 {
     my $self = shift;
     my $code = $self->{preprocess};
-    my $norm = $self->{UNF};
+    my $norm = $self->{normCode};
     my $ent  = $self->{entries};
     my $max  = $self->{maxlength};
     my $reH  = $self->{rearrangeHash};
+    my $L3i  = $self->{L3ignorable};
+    my $ver9 = $self->{UCA_Version} > 8;
 
     my $str = ref $code ? &$code(shift) : shift;
     $str = &$norm($str) if ref $norm;
@@ -286,6 +350,10 @@ sub splitCE
        }
     }
 
+    if ($ver9) {
+       @src = grep ! $L3i->{$_}, @src;
+    }
+
     for (my $i = 0; $i < @src; $i++) {
        my $ch;
        my $u = $src[$i];
@@ -293,7 +361,10 @@ sub splitCE
        # non-characters
        next unless defined $u;
        next if $u < 0 || 0x10FFFF < $u    # out of range
-           || (0xD800 <= $u && $u <= 0xDFFF); # unpaired surrogates
+           || (0xD800 <= $u && $u <= 0xDFFF) # unpaired surrogates
+           || (0xFDD0 <= $u && $u <= 0xFDEF) # non-character
+       ;
+
        my $four = $u & 0xFFFF; 
        next if $four == 0xFFFE || $four == 0xFFFF;
 
@@ -335,33 +406,38 @@ sub getWt
     my $ign  = $self->{ignored};
     my $cjk  = $self->{overrideCJK};
     my $hang = $self->{overrideHangul};
+    my $der  = $self->{derivCode};
 
     return if !defined $ch || $ign->{$ch}; # ignored
-    return @{ $ent->{$ch} } if $ent->{$ch};
+    return map($self->altCE($_), @{ $ent->{$ch} })
+       if $ent->{$ch};
+
     my $u = unpack('U', $ch);
 
     if (0xAC00 <= $u && $u <= 0xD7A3) { # is_Hangul
-       return $hang
-           ? &$hang($u)
-           : defined $hang
-               ? map({
-                       my $v = $_;
-                       my $ar = $ent->{pack('U', $v)};
-                       $ar ? @$ar : map($self->altCE(0,@$_), _derivCE($v));
-                   } _decompHangul($u))
-               : map($self->altCE(0,@$_), _derivCE($u));
+       return map $self->altCE($_),
+           $hang
+               ? map(pack(VCE_FORMAT, NON_VAR, @$_), &$hang($u))
+               : defined $hang
+                   ? map({
+                           my $v = $_;
+                           my $vCE = $ent->{pack('U', $v)};
+                           $vCE ? @$vCE : $der->($v);
+                       } _decompHangul($u))
+                   : $der->($u);
     }
     elsif (0x3400 <= $u && $u <= 0x4DB5 ||
           0x4E00 <= $u && $u <= 0x9FA5 ||
-          0x20000 <= $u && $u <= 0x2A6D6) { # is_CJK
-       return $cjk
-           ? &$cjk($u)
-           : defined $cjk && $u <= 0xFFFF
-               ? $self->altCE(0, ($u, 0x20, 0x02, $u))
-               : map($self->altCE(0,@$_), _derivCE($u));
+          0x20000 <= $u && $u <= 0x2A6D6) { # CJK Ideograph
+       return map $self->altCE($_),
+           $cjk
+               ? map(pack(VCE_FORMAT, NON_VAR, @$_), &$cjk($u))
+               : defined $cjk && $self->{UCA_Version} <= 8 && $u < 0x10000
+                   ? pack(VCE_FORMAT, NON_VAR, $u, 0x20, 0x02, $u)
+                   : $der->($u);
     }
     else {
-       return map($self->altCE(0,@$_), _derivCE($u));
+       return map $self->altCE($_), $der->($u);
     }
 }
 
@@ -398,8 +474,8 @@ sub index
        while ($i + 1 < @$str &&
              (! defined $str->[$i+1] || $comb->{ $str->[$i+1] }) ) {
            $i++;
-           $go_ahead += length $str->[$i];
            next if ! defined $str->[$i];
+           $go_ahead += length $str->[$i];
            push @tmp,
                grep _ignorableAtLevel($_,$lev), $self->getWt($str->[$i]);
        }
@@ -457,9 +533,27 @@ sub getSortKey
     my $self = shift;
     my $lev  = $self->{level};
     my $rCE  = $self->splitCE(shift); # get an arrayref
+    my $ver9 = $self->{UCA_Version} > 8;
+    my $sht  = $self->{isShift};
 
     # weight arrays
-    my @buf = grep defined(), map $self->getWt($_), @$rCE;
+    my (@buf, $last_is_variable);
+
+    foreach my $ce (@$rCE) {
+       my @t = $self->getWt($ce);
+       if ($sht && $ver9) {
+           if (@t == 1 && $t[0][0] == 0) {
+               if ($t[0][1] == 0 && $t[0][2] == 0) {
+                   $last_is_variable = 1;
+               } else {
+                   next if $last_is_variable;
+               }
+           } else {
+               $last_is_variable = 0;
+           }
+       }
+       push @buf, @t;
+    }
 
     # make sort key
     my @ret = ([],[],[],[]);
@@ -514,16 +608,38 @@ sub sort {
                map [ $obj->getSortKey($_), $_ ], @_;
 }
 
-##
-## list[arrayrefs] CE = _derivCE(int codepoint)
-##
-sub _derivCE {
+
+sub derivCE_9 {
+    my $u = shift;
+    my $base =
+        (0x4E00 <= $u && $u <= 0x9FA5) # CJK
+           ? 0xFB40 :
+        (0x3400 <= $u && $u <= 0x4DB5 || 0x20000 <= $u && $u <= 0x2A6D6)
+           ? 0xFB80 : 0xFBC0;
+
+    my $aaaa = $base + ($u >> 15);
+    my $bbbb = ($u & 0x7FFF) | 0x8000;
+    return
+       pack(VCE_FORMAT, NON_VAR, $aaaa, Min2, Min3, $u),
+       pack(VCE_FORMAT, NON_VAR, $bbbb,    0,    0, $u);
+}
+
+sub derivCE_8 {
+    my $code = shift;
+    my $aaaa =  0xFF80 + ($code >> 15);
+    my $bbbb = ($code & 0x7FFF) | 0x8000;
+    return
+       pack(VCE_FORMAT, NON_VAR, $aaaa, 2, 1, $code),
+       pack(VCE_FORMAT, NON_VAR, $bbbb, 0, 0, $code);
+}
+
+sub broken_derivCE { # NG
     my $code = shift;
-    my $a = UNDEFINED + ($code >> 15); # ok
-    my $b = ($code & 0x7FFF) | 0x8000; # ok
-#   my $a = 0xFFC2 + ($code >> 15);    # ng
-#   my $b = $code & 0x7FFF | 0x1000;   # ng
-    $b ? ([$a,2,1,$code],[$b,0,0,$code]) : [$a,2,1,$code];
+    my $aaaa = 0xFFC2 + ($code >> 15);
+    my $bbbb = $code & 0x7FFF | 0x1000;
+    return
+       pack(VCE_FORMAT, NON_VAR, $aaaa, 2, 1, $code),
+       pack(VCE_FORMAT, NON_VAR, $bbbb, 0, 0, $code);
 }
 
 ##
@@ -575,6 +691,7 @@ Unicode::Collate - Unicode Collation Algorithm
 The C<new> method returns a collator object.
 
    $Collator = Unicode::Collate->new(
+      UCA_Version => $UCA_Version,
       alternate => $alternate,
       backwards => $levelNumber, # or \@levelNumbers
       entry => $element,
@@ -597,6 +714,17 @@ The C<new> method returns a collator object.
 
 =over 4
 
+=item UCA_Version
+
+If the version number of the older UCA is given,
+the older behavior of that version is emulated on collating.
+If omitted, the return value of C<UCA_Version()> is used.
+
+The supported version: 8 or 9.
+
+B<This parameter may be removed in the future version,
+as switching the algorithm would affect the performance.>
+
 =item alternate
 
 -- see 3.2.2 Alternate Weighting, UTR #10.
@@ -772,6 +900,9 @@ If you want to disallow any rearrangement,
 pass C<undef> or C<[]> (a reference to an empty list)
 as the value for this key.
 
+B<According to the version 9 of UCA, this parameter shall not be used;
+but it is not warned at present.>
+
 =item table
 
 -- see 3.2 Default Unicode Collation Element Table, UTR #10.
@@ -887,17 +1018,15 @@ and get the result of the comparison of the strings using UCA.
 
 =item C<$sortKeyForm = $Collator-E<gt>viewSortKey($string)>
 
-Returns a string formalized to display a sort key.
-Weights are enclosed with C<'['> and C<']'>
-and level boundaries are denoted by C<'|'>.
-
    use Unicode::Collate;
    my $c = Unicode::Collate->new();
    print $c->viewSortKey("Perl"),"\n";
 
-    # output:
-    # [09B3 08B1 09CB 094F|0020 0020 0020 0020|0008 0002 0002 0002|FFFF FFFF FFFF FFFF]
-    #  Level 1             Level 2             Level 3             Level 4
+   # output:
+   # [0B67 0A65 0B7F 0B03 | 0020 0020 0020 0020 | 0008 0002 0002 0002 | FFFF FFFF FFFF FFFF]
+   #  Level 1               Level 2               Level 3               Level 4
+
+    (If C<UCA_Version> is 8, the output is slightly different.)
 
 =item C<$position = $Collator-E<gt>index($string, $substring)>
 
@@ -943,6 +1072,34 @@ is primary equal to C<"m>E<252>C<ss">.
 
 =over 4
 
+=item C<%old_tailoring = $Collator-E<gt>change(%new_tailoring)>
+
+Change the value of specified keys and returns the changed part.
+
+    $Collator = Unicode::Collate->new(level => 4);
+
+    $Collator->eq("perl", "PERL"); # false
+
+    %old = $Collator->change(level => 2); # returns (level => 4).
+
+    $Collator->eq("perl", "PERL"); # true
+
+    $Collator->change(%old); # returns (level => 2).
+
+    $Collator->eq("perl", "PERL"); # false
+
+Not all C<(key,value)>s are allowed to be changed.
+See also C<@Unicode::Collate::ChangeOK> and C<@Unicode::Collate::ChangeNG>.
+
+In the scalar context, returns the modified collator
+(but it is B<not> a clone from the original).
+
+    $Collator->change(level => 2)->eq("perl", "PERL"); # true
+
+    $Collator->eq("perl", "PERL"); # true; now max level is 2nd.
+
+    $Collator->change(level => 4)->eq("perl", "PERL"); # false
+
 =item UCA_Version
 
 Returns the version number of Unicode Technical Standard 10
@@ -981,6 +1138,19 @@ assign C<normalization =E<gt> undef> explicitly.
 
 -- see 6.5 Avoiding Normalization, UTR #10.
 
+=head2 Conformance Test
+
+The Conformance Test for the UCA is provided
+in L<http://www.unicode.org/reports/tr10/CollationTest.html>
+and L<http://www.unicode.org/reports/tr10/CollationTest.zip>
+
+For F<CollationTest_SHIFTED.txt>,
+a collator via C<Unicode::Collate-E<gt>new( )> should be used;
+for F<CollationTest_NON_IGNORABLE.txt>, a collator via
+C<Unicode::Collate-E<gt>new(alternate =E<gt> "non-ignorable", level =E<gt> 3)>.
+
+B<Unicode::Normalize is required to try this test.>
+
 =head2 BUGS
 
 C<index()> is an experimental method and
@@ -1006,19 +1176,24 @@ SADAHIRO Tomoyuki, E<lt>SADAHIRO@cpan.orgE<gt>
 
 =over 4
 
-=item http://www.unicode.org/unicode/reports/tr10/
+=item http://www.unicode.org/reports/tr10/
 
 Unicode Collation Algorithm - UTR #10
 
-=item http://www.unicode.org/unicode/reports/tr10/allkeys.txt
+=item http://www.unicode.org/reports/tr10/allkeys.txt
 
 The Default Unicode Collation Element Table
 
-=item http://www.unicode.org/unicode/reports/tr15/
+=item http://www.unicode.org/reports/tr10/CollationTest.html
+http://www.unicode.org/reports/tr10/CollationTest.zip
+
+The latest versions of the conformance test for the UCA
+
+=item http://www.unicode.org/reports/tr15/
 
 Unicode Normalization Forms - UAX #15
 
-=item http://www.unicode.org/unicode/reports/tr18
+=item http://www.unicode.org/reports/tr18
 
 Unicode Regular Expression Guidelines - UTR #18
 
index 997117c..66676b2 100644 (file)
@@ -1,5 +1,13 @@
 Revision history for Perl extension Unicode::Collate.
 
+0.20  Fri Jul 26 02:15:25 2002
+    - now UCA Version 9.
+    - U+FDD0..U+FDEF are new non-characters.
+    - fix: whitespace characters before @backwards etc. in a table file.
+    - now values for 'alternate', 'backwards', etc.,
+      which are explicitly specified via new(),
+      are preferred to those specified in a table file.
+
 0.12  Sun May 05 09:43:10 2002
     - add new methods, ->UCA_Version and ->Base_Unicode_Version.
     - test fix: removed the needless requirement of Unicode::Normalize.
index 4d4f12c..2867b47 100644 (file)
@@ -1,4 +1,4 @@
-Unicode/Collate version 0.12
+Unicode/Collate version 0.20
 ===============================
 
 Unicode::Collate - Unicode Collation Algorithm
@@ -30,7 +30,7 @@ SYNOPSIS
 
 INSTALLATION
 
-Perl 5.006 or later
+Perl 5.6.1 or better
 
 To install this module type the following:
 
@@ -41,7 +41,7 @@ To install this module type the following:
 
 DEPENDENCIES
 
-  It's better if you have Unicode::Normalize (v 0.10 or later)
+  The conformant collation requires Unicode::Normalize (v 0.10 or later)
   although Unicode::Collate can be used without Unicode::Normalize.
 
 COPYRIGHT AND LICENCE
index f5a7012..03aed85 100644 (file)
@@ -1,7 +1,3 @@
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl test.pl'
-
-#########################
 
 BEGIN {
     if (ord("A") == 193) {
@@ -10,14 +6,22 @@ BEGIN {
     }
 }
 
+BEGIN {
+    if ($ENV{PERL_CORE}) {
+        chdir('t') if -d 't';
+        @INC = qw(../lib);
+    }
+}
+
 use Test;
-BEGIN { plan tests => 160 };
+BEGIN { plan tests => 183};
 use Unicode::Collate;
-ok(1); # If we made it this far, we're ok.
 
 #########################
 
-my $UCA_Version = "8.0";
+ok(1); # If we made it this far, we're ok.
+
+my $UCA_Version = "9";
 
 ok(Unicode::Collate::UCA_Version, $UCA_Version);
 ok(Unicode::Collate->UCA_Version, $UCA_Version);
@@ -41,14 +45,30 @@ ok(
   ),
 );
 
+ok($Collator->cmp("", ""), 0);
+ok($Collator->eq("", ""));
+ok($Collator->cmp("", "perl"), -1);
+
+##############
+
 my $A_acute = pack('U', 0x00C1);
+my $a_acute = pack('U', 0x00E1);
 my $acute   = pack('U', 0x0301);
 
 ok($Collator->cmp("A$acute", $A_acute), -1);
-ok($Collator->cmp("", ""), 0);
-ok(! $Collator->ne("", "") );
-ok(  $Collator->eq("", "") );
-ok($Collator->cmp("", "perl"), -1);
+ok($Collator->cmp($a_acute, $A_acute), -1);
+
+my %old_level = $Collator->change(level => 1);
+ok($Collator->eq("A$acute", $A_acute));
+ok($Collator->eq("A", $A_acute));
+
+ok($Collator->change(level => 2)->eq($a_acute, $A_acute));
+ok($Collator->lt("A", $A_acute));
+
+ok($Collator->change(%old_level)->lt("A", $A_acute));
+ok($Collator->lt("A", $A_acute));
+ok($Collator->lt("A", $a_acute));
+ok($Collator->lt($a_acute, $A_acute));
 
 ##############
 
@@ -76,6 +96,16 @@ ENTRIES
   ok($NFD->lt("\x{430}\x{3099}B", "\x{430}\x{308}\x{3099}A"));
   ok($NFD->eq("\x{0430}\x{3099}\x{309A}\x{0308}",
               "\x{0430}\x{309A}\x{3099}\x{0308}") );
+
+  my %old_norm = $NFD->change(normalization => undef);
+  ok($NFD->lt("A$acute", $A_acute));
+  ok($NFD->cmp("A$acute", $A_acute), $Collator->cmp("A$acute", $A_acute));
+
+  $NFD->change(%old_norm);
+  ok($NFD->eq("A$acute", $A_acute));
+  ok($NFD->change(normalization => undef)->lt("A$acute", $A_acute));
+  ok($NFD->change(level => 1)->eq("A$acute", $A_acute));
+
 }
 else {
   ok(1);
@@ -83,6 +113,11 @@ else {
   ok(1);
   ok(1);
   ok(1);
+  ok(1);
+  ok(1);
+  ok(1);
+  ok(1);
+  ok(1);
 }
 
 ##############
@@ -120,9 +155,9 @@ ok($trad->eq($katakana, $hiragana));
 
 ##############
 
-my $old_level = $Collator->{level};
+$Collator->change(level => 2);
 
-$Collator->{level} = 2;
+ok($Collator->{level}, 2);
 
 ok( $Collator->cmp("ABC","abc"), 0);
 ok( $Collator->eq("ABC","abc") );
@@ -139,9 +174,9 @@ ok( $Collator->lt("a\x{AC00}b", "a\x{AE00}b") );
 ok( $Collator->gt("a\x{D7A3}b", "a\x{C544}b") );
 ok( $Collator->lt("a\x{C544}b", "a\x{30A2}b") ); # hangul < hiragana
 
-$Collator->{level} = $old_level;
+$Collator->change(%old_level, katakana_before_hiragana => 1);
 
-$Collator->{katakana_before_hiragana} = 1;
+ok($Collator->{level}, 4);
 
 ok( $Collator->cmp("abc", "ABC"), -1);
 ok( $Collator->ne("abc", "ABC") );
@@ -152,7 +187,7 @@ ok( $Collator->ne($hiragana, $katakana) );
 ok( $Collator->gt($hiragana, $katakana) );
 ok( $Collator->ge($hiragana, $katakana) );
 
-$Collator->{upper_before_lower} = 1;
+$Collator->change(upper_before_lower => 1);
 
 ok( $Collator->cmp("abc", "ABC"), 1);
 ok( $Collator->ge("abc", "ABC"), 1);
@@ -161,12 +196,12 @@ ok( $Collator->cmp($hiragana, $katakana), 1);
 ok( $Collator->ge($hiragana, $katakana), 1);
 ok( $Collator->gt($hiragana, $katakana), 1);
 
-$Collator->{katakana_before_hiragana} = 0;
+$Collator->change(katakana_before_hiragana => 0);
 
 ok( $Collator->cmp("abc", "ABC"), 1);
 ok( $Collator->cmp($hiragana, $katakana), -1);
 
-$Collator->{upper_before_lower} = 0;
+$Collator->change(upper_before_lower => 0);
 
 ok( $Collator->cmp("abc", "ABC"), -1);
 ok( $Collator->le("abc", "ABC") );
@@ -219,7 +254,7 @@ ok($Collator->lt("lake","like"));
 
 ##############
 
-$Collator->{level} = 2;
+$Collator->change(level => 2);
 
 my $str;
 
@@ -235,7 +270,7 @@ if (my($pos,$len) = $Collator->index($str, $sub)) {
 
 ok($str, $ret);
 
-$Collator->{level} = $old_level;
+$Collator->change(%old_level);
 
 $str = $orig;
 if (my($pos,$len) = $Collator->index($str, $sub)) {
@@ -248,7 +283,7 @@ ok($str, $orig);
 
 my $match;
 
-$Collator->{level} = 1;
+$Collator->change(level => 1);
 
 $str = "Pe\x{300}rl";
 $sub = "pe";
@@ -266,11 +301,11 @@ if (my($pos, $len) = $Collator->index($str, $sub)) {
 }
 ok($match, "P\x{300}e\x{300}\x{301}\x{303}");
 
-$Collator->{level} = $old_level;
+$Collator->change(%old_level);
 
 ##############
 
-$trad->{level} = 1;
+%old_level = $trad->change(level => 1);
 
 $str = "Ich mu\x{00DF} studieren.";
 $sub = "m\x{00FC}ss";
@@ -280,7 +315,7 @@ if (my($pos, $len) = $trad->index($str, $sub)) {
 }
 ok($match, "mu\x{00DF}");
 
-$trad->{level} = $old_level;
+$trad->change(%old_level);
 
 $str = "Ich mu\x{00DF} studieren.";
 $sub = "m\x{00FC}ss";
@@ -370,21 +405,41 @@ ok($few_entries->eq("\x{AC00}", "\x{1100}\x{1161}"));
 
 ##############
 
-my $all_undef = Unicode::Collate->new(
+my $all_undef_8 = Unicode::Collate->new(
   table => undef,
   normalization => undef,
   overrideCJK => undef,
   overrideHangul => undef,
+  UCA_Version => 8,
 );
 
 # All in the Unicode code point order.
 # No hangul decomposition.
 
-ok($all_undef->lt("\x{3042}", "\x{4E00}"));
-ok($all_undef->lt("\x{4DFF}", "\x{4E00}"));
-ok($all_undef->lt("\x{4E00}", "\x{AC00}"));
-ok($all_undef->gt("\x{AC00}", "\x{1100}\x{1161}"));
-ok($all_undef->gt("\x{AC00}", "\x{ABFF}"));
+ok($all_undef_8->lt("\x{3402}", "\x{4E00}"));
+ok($all_undef_8->lt("\x{4DFF}", "\x{4E00}"));
+ok($all_undef_8->lt("\x{4E00}", "\x{AC00}"));
+ok($all_undef_8->gt("\x{AC00}", "\x{1100}\x{1161}"));
+ok($all_undef_8->gt("\x{AC00}", "\x{ABFF}"));
+
+##############
+
+my $all_undef_9 = Unicode::Collate->new(
+  table => undef,
+  normalization => undef,
+  overrideCJK => undef,
+  overrideHangul => undef,
+  UCA_Version => 9,
+);
+
+# CJK Ideo. < CJK ext A/B < Others.
+# No hangul decomposition.
+
+ok($all_undef_9->lt("\x{4E00}", "\x{3402}"));
+ok($all_undef_9->lt("\x{3402}", "\x{20000}"));
+ok($all_undef_9->lt("\x{20000}", "\x{AC00}"));
+ok($all_undef_9->gt("\x{AC00}", "\x{1100}\x{1161}"));
+ok($all_undef_9->gt("\x{AC00}", "\x{ABFF}"));
 
 ##############
 
@@ -426,59 +481,41 @@ ok($ignoreHangul->lt("Pe\x{AE00}rl", "Perl")); # 'r' is unassigned.
 
 ##############
 
-my $blanked = Unicode::Collate->new(
-  table => 'keys.txt',
-  normalization => undef,
-  alternate => 'Blanked',
-);
+my %origAlter = $Collator->change(alternate => 'Blanked');
 
-ok($blanked->lt("death", "de luge"));
-ok($blanked->lt("de luge", "de-luge"));
-ok($blanked->lt("de-luge", "deluge"));
-ok($blanked->lt("deluge", "de\x{2010}luge"));
-ok($blanked->lt("deluge", "de Luge"));
+ok($Collator->lt("death", "de luge"));
+ok($Collator->lt("de luge", "de-luge"));
+ok($Collator->lt("de-luge", "deluge"));
+ok($Collator->lt("deluge", "de\x{2010}luge"));
+ok($Collator->lt("deluge", "de Luge"));
 
-##############
-
-my $nonIgn = Unicode::Collate->new(
-  table => 'keys.txt',
-  normalization => undef,
-  alternate => 'Non-ignorable',
-);
+$Collator->change(alternate => 'Non-ignorable');
 
-ok($nonIgn->lt("de luge", "de Luge"));
-ok($nonIgn->lt("de Luge", "de-luge"));
-ok($nonIgn->lt("de-Luge", "de\x{2010}luge"));
-ok($nonIgn->lt("de-luge", "death"));
-ok($nonIgn->lt("death", "deluge"));
+ok($Collator->lt("de luge", "de Luge"));
+ok($Collator->lt("de Luge", "de-luge"));
+ok($Collator->lt("de-Luge", "de\x{2010}luge"));
+ok($Collator->lt("de-luge", "death"));
+ok($Collator->lt("death", "deluge"));
 
-##############
+$Collator->change(alternate => 'Shifted');
 
-my $shifted = Unicode::Collate->new(
-  table => 'keys.txt',
-  normalization => undef,
-  alternate => 'Shifted',
-);
+ok($Collator->lt("death", "de luge"));
+ok($Collator->lt("de luge", "de-luge"));
+ok($Collator->lt("de-luge", "deluge"));
+ok($Collator->lt("deluge", "de Luge"));
+ok($Collator->lt("de Luge", "deLuge"));
 
-ok($shifted->lt("death", "de luge"));
-ok($shifted->lt("de luge", "de-luge"));
-ok($shifted->lt("de-luge", "deluge"));
-ok($shifted->lt("deluge", "de Luge"));
-ok($shifted->lt("de Luge", "deLuge"));
+$Collator->change(alternate => 'Shift-Trimmed');
 
-##############
+ok($Collator->lt("death", "deluge"));
+ok($Collator->lt("deluge", "de luge"));
+ok($Collator->lt("de luge", "de-luge"));
+ok($Collator->lt("de-luge", "deLuge"));
+ok($Collator->lt("deLuge", "de Luge"));
 
-my $shTrim = Unicode::Collate->new(
-  table => 'keys.txt',
-  normalization => undef,
-  alternate => 'Shift-Trimmed',
-);
+$Collator->change(%origAlter);
 
-ok($shTrim->lt("death", "deluge"));
-ok($shTrim->lt("deluge", "de luge"));
-ok($shTrim->lt("de luge", "de-luge"));
-ok($shTrim->lt("de-luge", "deLuge"));
-ok($shTrim->lt("deLuge", "de Luge"));
+ok($Collator->{alternate}, 'shifted');
 
 ##############
 
@@ -504,19 +541,29 @@ ok($overCJK->lt("a\x{4E03}", "A\x{4E00}"));
 
 ##############
 
-# rearranged : 0x0E40..0x0E44, 0x0EC0..0x0EC4
+# rearrange : 0x0E40..0x0E44, 0x0EC0..0x0EC4 (default)
+
+my %old_rearrange = $Collator->change(rearrange => undef);
+
+ok($Collator->gt("\x{0E41}A", "\x{0E40}B"));
+ok($Collator->gt("A\x{0E41}A", "A\x{0E40}B"));
+
+$Collator->change(rearrange => [ 0x61 ]); # 'a'
 
-ok($Collator->lt("A", "B"));
+ok($Collator->gt("ab", "AB")); # as 'ba' > 'AB'
+
+$Collator->change(%old_rearrange);
+
+ok($Collator->lt("ab", "AB"));
 ok($Collator->lt("\x{0E40}", "\x{0E41}"));
 ok($Collator->lt("\x{0E40}A", "\x{0E41}B"));
 ok($Collator->lt("\x{0E41}A", "\x{0E40}B"));
 ok($Collator->lt("A\x{0E41}A", "A\x{0E40}B"));
 
-ok($all_undef->lt("A", "B"));
-ok($all_undef->lt("\x{0E40}", "\x{0E41}"));
-ok($all_undef->lt("\x{0E40}A", "\x{0E41}B"));
-ok($all_undef->lt("\x{0E41}A", "\x{0E40}B"));
-ok($all_undef->lt("A\x{0E41}A", "A\x{0E40}B"));
+ok($all_undef_8->lt("\x{0E40}", "\x{0E41}"));
+ok($all_undef_8->lt("\x{0E40}A", "\x{0E41}B"));
+ok($all_undef_8->lt("\x{0E41}A", "\x{0E40}B"));
+ok($all_undef_8->lt("A\x{0E41}A", "A\x{0E40}B"));
 
 ##############
 
@@ -534,8 +581,6 @@ ok($no_rearrange->gt("A\x{0E41}A", "A\x{0E40}B"));
 
 ##############
 
-# equivalent to $no_rearrange
-
 my $undef_rearrange = Unicode::Collate->new(
   table => undef,
   normalization => undef,
index 3db4777..e785003 100644 (file)
@@ -1,6 +1,6 @@
 package sort;
 
-our $VERSION = '1.01';
+our $VERSION = '1.02';
 
 # Currently the hints for pp_sort are stored in the global variable
 # $sort::hints. An improvement would be to store them in $^H{SORT} and have
@@ -33,6 +33,30 @@ sub import {
            $hints |=  $sort::mergesort_bit;
        } elsif ($_ eq 'stable') {
            $hints |=  $sort::stable_bit;
+       } elsif ($_ eq 'defaults') {
+           $hints =   0;
+       } else {
+           require Carp;
+           Carp::croak("sort: unknown subpragma '$_'");
+       }
+    }
+}
+
+sub unimport {
+    shift;
+    if (@_ == 0) {
+       require Carp;
+       Carp::croak("sort pragma requires arguments");
+    }
+    local $_;
+    no warnings 'uninitialized';       # bitops would warn
+    while ($_ = shift(@_)) {
+       if (/^_q(?:uick)?sort$/) {
+           $hints &= ~$sort::sort_bits;
+       } elsif ($_ eq '_mergesort') {
+           $hints &= ~$sort::sort_bits;
+       } elsif ($_ eq 'stable') {
+           $hints &= ~$sort::stable_bit;
        } else {
            require Carp;
            Carp::croak("sort: unknown subpragma '$_'");
@@ -63,6 +87,8 @@ sort - perl pragma to control sort() behaviour
     use sort 'stable';         # guarantee stability
     use sort '_quicksort';     # use a quicksort algorithm
     use sort '_mergesort';     # use a mergesort algorithm
+    use sort 'defaults';       # revert to default behavior
+    no  sort 'stable';         # stability not important
 
     use sort '_qsort';         # alias for quicksort
 
@@ -70,11 +96,11 @@ sort - perl pragma to control sort() behaviour
 
 =head1 DESCRIPTION
 
-With the sort pragma you can control the behaviour of the builtin
-sort() function.
+With the C<sort> pragma you can control the behaviour of the builtin
+C<sort()> function.
 
 In Perl versions 5.6 and earlier the quicksort algorithm was used to
-implement sort(), but in Perl 5.8 a mergesort algorithm was also made
+implement C<sort()>, but in Perl 5.8 a mergesort algorithm was also made
 available, mainly to guarantee worst case O(N log N) behaviour:
 the worst case of quicksort is O(N**2).  In Perl 5.8 and later,
 quicksort defends against quadratic behaviour by shuffling large
@@ -98,16 +124,78 @@ The best algorithm depends on many things.  On average, mergesort
 does fewer comparisons than quicksort, so it may be better when
 complicated comparison routines are used.  Mergesort also takes
 advantage of pre-existing order, so it would be favored for using
-sort to merge several sorted arrays.  On the other hand, quicksort
-is often faster for small arrays, and on platforms with small memory
-caches that are much faster than main memory.  You can force the
+C<sort()> to merge several sorted arrays.  On the other hand, quicksort
+is often faster for small arrays, and on arrays of a few distinct
+values, repeated many times.  You can force the
 choice of algorithm with this pragma, but this feels heavy-handed,
 so the subpragmas beginning with a C<_> may not persist beyond Perl 5.8.
+The default algorithm is mergesort, which will be stable even if
+you do not explicitly demand it.
+But the stability of the default sort is a side-effect that could
+change in later versions.  If stability is important, be sure to
+say so with a
+
+  use sort 'stable';
+
+The C<no sort> pragma doesn't
+I<forbid> what follows, it just leaves the choice open.  Thus, after
+
+  no sort qw(_mergesort stable);
+
+a mergesort, which happens to be stable, will be employed anyway.
+Note that
+
+  no sort "_quicksort";
+  no sort "_mergesort";
+
+have exactly the same effect, leaving the choice of sort algorithm open.
 
 =head1 CAVEATS
 
-This pragma is not lexically scoped : its effect is global to the program
-it appears in.  This may change in future versions.
+This pragma is not lexically scoped: its effect is global to the program
+it appears in.  That means the following will probably not do what you
+expect, because I<both> pragmas take effect at compile time, before
+I<either> C<sort()> happens.
+
+  { use sort "_quicksort";
+    print sort::current . "\n";
+    @a = sort @b;
+  }
+  { use sort "stable";
+    print sort::current . "\n";
+    @c = sort @d;
+  }
+  # prints:
+  # quicksort stable
+  # quicksort stable
+
+You can achieve the effect you probably wanted by using C<eval()>
+to defer the pragmas until run time.  Use the quoted argument
+form of C<eval()>, I<not> the BLOCK form, as in
+
+  eval { use sort "_quicksort" }; # WRONG
+
+or the effect will still be at compile time.
+Reset to default options before selecting other subpragmas
+(in case somebody carelessly left them on) and after sorting,
+as a courtesy to others.
+
+  { eval 'use sort qw(defaults _quicksort)'; # force quicksort
+    eval 'no sort "stable"';      # stability not wanted
+    print sort::current . "\n";
+    @a = sort @b;
+    eval 'use sort "defaults"';   # clean up, for others
+  }
+  { eval 'use sort qw(defaults stable)';     # force stability
+    print sort::current . "\n";
+    @c = sort @d;
+    eval 'use sort "defaults"';   # clean up, for others
+  }
+  # prints:
+  # quicksort
+  # stable
+
+Scoping for this pragma may change in future versions.
 
 =cut
 
index 9903765..8828083 100644 (file)
@@ -28,7 +28,8 @@ use warnings;
 use Test::More tests => @TestSizes * 2 # sort() tests
                        * 4             # number of pragmas to test
                        + 1             # extra test for qsort instability
-                       + 3;            # tests for sort::current
+                       + 3             # tests for sort::current
+                       + 3;            # tests for "defaults" and "no sort"
 
 # Generate array of specified size for testing sort.
 #
@@ -160,3 +161,23 @@ eval q{
     main(0);
 };
 die $@ if $@;
+
+# Tests added to check "defaults" subpragma, and "no sort"
+
+eval q{
+    no sort qw(_qsort);
+    is(sort::current(), 'stable', 'sort::current after no _qsort');
+};
+die $@ if $@;
+
+eval q{
+    use sort qw(defaults _qsort);
+    is(sort::current(), 'quicksort', 'sort::current after defaults _qsort');
+};
+die $@ if $@;
+
+eval q{
+    use sort qw(defaults stable);
+    is(sort::current(), 'stable', 'sort::current after defaults stable');
+};
+die $@ if $@;
index 8986296..657cef5 100644 (file)
@@ -118,7 +118,7 @@ my $sym_ord = 0;
 
 if ($PLATFORM =~ /^win(?:32|ce)$/) {
     warn join(' ',keys %define)."\n";
-    ($dll = ($define{PERL_DLL} || "perl58")) =~ s/\.dll$//i;
+    ($dll = ($define{PERL_DLL} || "perl59")) =~ s/\.dll$//i;
     print "LIBRARY $dll\n";
     print "DESCRIPTION 'Perl interpreter'\n";
     print "EXPORTS\n";
@@ -170,7 +170,7 @@ elsif ($PLATFORM eq 'aix') {
 }
 elsif ($PLATFORM eq 'netware') {
        if ($FILETYPE eq 'def') {
-       print "LIBRARY perl58\n";
+       print "LIBRARY perl59\n";
        print "DESCRIPTION 'Perl interpreter for NetWare'\n";
        print "EXPORTS\n";
        }
diff --git a/mg.c b/mg.c
index 63de612..1c7d239 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -693,18 +693,25 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
 
              getrx:
                if (i >= 0) {
-                   bool was_tainted = FALSE;
-                   if (PL_tainting) {
-                       was_tainted = PL_tainted;
-                       PL_tainted = FALSE;
-                   }
                    sv_setpvn(sv, s, i);
-                   if (PL_reg_match_utf8 && is_utf8_string((U8*)s, i))
+                   if (PL_reg_match_utf8 && is_utf8_string((U8*)s, i))
                        SvUTF8_on(sv);
                    else
                        SvUTF8_off(sv);
-                   if (PL_tainting)
-                       PL_tainted = (was_tainted || RX_MATCH_TAINTED(rx));
+                   if (PL_tainting) {
+                       if (RX_MATCH_TAINTED(rx)) {
+                           MAGIC* mg = SvMAGIC(sv);
+                           MAGIC* mgt;
+                           PL_tainted = 1;
+                           SvMAGIC(sv) = mg->mg_moremagic;
+                           SvTAINT(sv);
+                           if ((mgt = SvMAGIC(sv))) {
+                               mg->mg_moremagic = mgt;
+                               SvMAGIC(sv) = mg;
+                           }
+                       } else
+                           SvTAINTED_off(sv);
+                   }
                    break;
                }
            }
diff --git a/op.c b/op.c
index 5a60a1c..82fe5b9 100644 (file)
--- a/op.c
+++ b/op.c
@@ -1243,6 +1243,7 @@ Perl_scalarvoid(pTHX_ OP *o)
 
     case OP_OR:
     case OP_AND:
+    case OP_DOR:
     case OP_COND_EXPR:
        for (kid = cUNOPo->op_first->op_sibling; kid; kid = kid->op_sibling)
            scalarvoid(kid);
@@ -1626,6 +1627,7 @@ Perl_mod(pTHX_ OP *o, I32 type)
     case OP_SASSIGN:
     case OP_ANDASSIGN:
     case OP_ORASSIGN:
+    case OP_DORASSIGN:
     case OP_AELEMFAST:
        PL_modcount++;
        break;
@@ -2088,19 +2090,19 @@ S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp)
     } else if (type == OP_RV2SV ||     /* "our" declaration */
               type == OP_RV2AV ||
               type == OP_RV2HV) { /* XXX does this let anything illegal in? */
-      if (cUNOPo->op_first->op_type != OP_GV) { /* MJD 20011224 */
-           yyerror(Perl_form(aTHX_ "Can't declare %s in my", OP_DESC(o)));
-        }
-        if (attrs) {
-            GV *gv = cGVOPx_gv(cUNOPo->op_first);
-            PL_in_my = FALSE;
-            PL_in_my_stash = Nullhv;
-            apply_attrs(GvSTASH(gv),
-                        (type == OP_RV2SV ? GvSV(gv) :
-                         type == OP_RV2AV ? (SV*)GvAV(gv) :
-                         type == OP_RV2HV ? (SV*)GvHV(gv) : (SV*)gv),
-                        attrs, FALSE);
-        }
+       if (cUNOPo->op_first->op_type != OP_GV) { /* MJD 20011224 */
+           yyerror(Perl_form(aTHX_ "Can't declare %s in %s",
+                       OP_DESC(o), PL_in_my == KEY_our ? "our" : "my"));
+       } else if (attrs) {
+           GV *gv = cGVOPx_gv(cUNOPo->op_first);
+           PL_in_my = FALSE;
+           PL_in_my_stash = Nullhv;
+           apply_attrs(GvSTASH(gv),
+                       (type == OP_RV2SV ? GvSV(gv) :
+                        type == OP_RV2AV ? (SV*)GvAV(gv) :
+                        type == OP_RV2HV ? (SV*)GvHV(gv) : (SV*)gv),
+                       attrs, FALSE);
+       }
        o->op_private |= OPpOUR_INTRO;
        return o;
     }
@@ -3617,7 +3619,7 @@ Perl_newASSIGNOP(pTHX_ I32 flags, OP *left, I32 optype, OP *right)
     OP *o;
 
     if (optype) {
-       if (optype == OP_ANDASSIGN || optype == OP_ORASSIGN) {
+       if (optype == OP_ANDASSIGN || optype == OP_ORASSIGN || optype == OP_DORASSIGN) {
            return newLOGOP(optype, 0,
                mod(scalar(left), optype),
                newUNOP(OP_SASSIGN, 0, scalar(right)));
@@ -3940,7 +3942,7 @@ S_new_logop(pTHX_ I32 type, I32 flags, OP** firstp, OP** otherp)
     if (!other)
        return first;
 
-    if (type == OP_ANDASSIGN || type == OP_ORASSIGN)
+    if (type == OP_ANDASSIGN || type == OP_ORASSIGN || type == OP_DORASSIGN)
        other->op_private |= OPpASSIGN_BACKWARDS;  /* other is an OP_SASSIGN */
 
     NewOp(1101, logop, 1, LOGOP);
@@ -7145,8 +7147,10 @@ Perl_peep(pTHX_ register OP *o)
        case OP_GREPWHILE:
        case OP_AND:
        case OP_OR:
+       case OP_DOR:
        case OP_ANDASSIGN:
        case OP_ORASSIGN:
+       case OP_DORASSIGN:
        case OP_COND_EXPR:
        case OP_RANGE:
            o->op_seq = PL_op_seqmax++;
index 8556e1e..ff3c48f 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -380,6 +380,8 @@ EXT char *PL_op_name[] = {
        "threadsv",
        "setstate",
        "method_named",
+       "dor",
+       "dorassign",
        "custom",
 };
 #endif
@@ -739,6 +741,8 @@ EXT char *PL_op_desc[] = {
        "per-thread value",
        "set statement info",
        "method with known name",
+       "defined or (//)",
+       "defined or assignment (//=)",
        "unknown custom operator",
 };
 #endif
@@ -1103,6 +1107,8 @@ EXT OP * (CPERLscope(*PL_ppaddr)[])(pTHX) = {
        MEMBER_TO_FPTR(Perl_pp_threadsv),
        MEMBER_TO_FPTR(Perl_pp_setstate),
        MEMBER_TO_FPTR(Perl_pp_method_named),
+       MEMBER_TO_FPTR(Perl_pp_dor),
+       MEMBER_TO_FPTR(Perl_pp_dorassign),
 };
 #endif
 
@@ -1461,6 +1467,8 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = {
        MEMBER_TO_FPTR(Perl_ck_null),   /* threadsv */
        MEMBER_TO_FPTR(Perl_ck_null),   /* setstate */
        MEMBER_TO_FPTR(Perl_ck_null),   /* method_named */
+       MEMBER_TO_FPTR(Perl_ck_null),   /* dor */
+       MEMBER_TO_FPTR(Perl_ck_null),   /* dorassign */
        MEMBER_TO_FPTR(Perl_ck_null),   /* custom */
 };
 #endif
@@ -1820,6 +1828,8 @@ EXT U32 PL_opargs[] = {
        0x00000044,     /* threadsv */
        0x00001404,     /* setstate */
        0x00000c40,     /* method_named */
+       0x00000600,     /* dor */
+       0x00000604,     /* dorassign */
        0x00000000,     /* custom */
 };
 #endif
index 6df2f8b..03e7dc7 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -420,7 +420,7 @@ __END__
 # logop       - |            listop   - @            pmop       - /
 # padop/svop  - $            padop    - # (unused)   loop       - {
 # baseop/unop - %            loopexop - }            filestatop - -
-# pvop/svop   - "
+# pvop/svop   - "            cop      - ;
 
 # Other options are:
 #   needs stack mark                    - m
@@ -924,6 +924,9 @@ threadsv    per-thread value        ck_null         ds0
 setstate       set statement info      ck_null         s;
 method_named   method with known name  ck_null         d$
 
+dor            defined or (//)                 ck_null         |
+dorassign      defined or assignment (//=)     ck_null         s|
+
 # Add new ops before this, the custom operator.
 
 custom         unknown custom operator         ck_null         0
index 437c85d..2e654e1 100644 (file)
--- a/opnames.h
+++ b/opnames.h
@@ -364,11 +364,13 @@ typedef enum opcode {
        OP_THREADSV,    /* 348 */
        OP_SETSTATE,    /* 349 */
        OP_METHOD_NAMED,/* 350 */
-       OP_CUSTOM,      /* 351 */
+       OP_DOR,         /* 351 */
+       OP_DORASSIGN,   /* 352 */
+       OP_CUSTOM,      /* 353 */
        OP_max          
 } opcode;
 
-#define MAXO 352
+#define MAXO 354
 #define OP_phoney_INPUT_ONLY -1
 #define OP_phoney_OUTPUT_ONLY -2
 
index 164ee0d..6281b09 100644 (file)
@@ -13,7 +13,7 @@
  * exactly on the third column */
 
 #define PERL_REVISION  5               /* age */
-#define PERL_VERSION   8               /* epoch */
+#define PERL_VERSION   9               /* epoch */
 #define PERL_SUBVERSION        0               /* generation */
 
 /* The following numbers describe the earliest compatible version of
@@ -79,7 +79,8 @@
 #if !defined(PERL_PATCHLEVEL_H_IMPLICIT) && !defined(LOCAL_PATCH_COUNT)
 static char    *local_patches[] = {
         NULL
-       ,NULL
+        ,"DEVEL17702"
+        ,NULL
 };
 
 /* Initial space prevents this variable from being inserted in config.sh  */
diff --git a/perl.c b/perl.c
index f7131d0..3647708 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1158,7 +1158,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #ifdef MACOS_TRADITIONAL
            /* ignore -e for Dev:Pseudo argument */
            if (argv[1] && !strcmp(argv[1], "Dev:Pseudo"))
-               break;
+               break;
 #endif
            if (PL_euid != PL_uid || PL_egid != PL_gid)
                Perl_croak(aTHX_ "No -e allowed in setuid scripts");
@@ -3274,6 +3274,9 @@ STATIC void
 S_find_beginning(pTHX)
 {
     register char *s, *s2;
+#ifdef MACOS_TRADITIONAL
+    int maclines = 0;
+#endif
 
     /* skip forward in input to the real script? */
 
@@ -3285,16 +3288,16 @@ S_find_beginning(pTHX)
        if ((s = sv_gets(PL_linestr, PL_rsfp, 0)) == Nullch) {
            if (!gMacPerl_AlwaysExtract)
                Perl_croak(aTHX_ "No Perl script found in input\n");
-               
+
            if (PL_doextract)                   /* require explicit override ? */
                if (!OverrideExtract(PL_origfilename))
                    Perl_croak(aTHX_ "User aborted script\n");
                else
                    PL_doextract = FALSE;
-               
+
            /* Pater peccavi, file does not have #! */
            PerlIO_rewind(PL_rsfp);
-       
+
            break;
        }
 #else
@@ -3317,7 +3320,18 @@ S_find_beginning(pTHX)
                        ;
            }
 #ifdef MACOS_TRADITIONAL
+           /* We are always searching for the #!perl line in MacPerl,
+            * so if we find it, still keep the line count correct
+            * by counting lines we already skipped over
+            */
+           for (; maclines > 0 ; maclines--)
+               PerlIO_ungetc(PL_rsfp, '\n');
+
            break;
+
+       /* gMacPerl_AlwaysExtract is false in MPW tool */
+       } else if (gMacPerl_AlwaysExtract) {
+           ++maclines;
 #endif
        }
     }
diff --git a/perl.h b/perl.h
index 9c4a4b9..944dcc7 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -2396,6 +2396,7 @@ Gid_t getegid (void);
 
 #ifndef Perl_error_log
 #  define Perl_error_log       (PL_stderrgv                    \
+                                && isGV(PL_stderrgv)           \
                                 && GvIOp(PL_stderrgv)          \
                                 && IoOFP(GvIOp(PL_stderrgv))   \
                                 ? IoOFP(GvIOp(PL_stderrgv))    \
diff --git a/perly.c b/perly.c
index cba0e74..10de7ce 100644 (file)
--- a/perly.c
+++ b/perly.c
@@ -60,19 +60,19 @@ static short yylhs[] = {                                        -1,
    31,   32,   33,   54,   54,    1,    1,    1,    1,    1,
     2,   39,   39,   47,   55,    3,    4,    5,   40,   41,
    41,   45,   45,   45,   46,   46,   42,   42,   56,   56,
-   58,   57,   16,   16,   16,   26,   26,   26,   37,   37,
-   37,   37,   37,   37,   37,   37,   59,   37,   38,   38,
-   18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
-   18,   50,   50,   50,   50,   50,   50,   50,   50,   50,
-   50,   50,   50,   50,   51,   51,   51,   51,   51,   51,
-   51,   51,   52,   52,   52,   52,   52,   53,   53,   53,
-   53,   53,   53,   17,   17,   17,   17,   17,   17,   17,
+   58,   57,   16,   16,   16,   16,   26,   26,   26,   37,
+   37,   37,   37,   37,   37,   37,   37,   59,   37,   38,
+   38,   18,   18,   18,   18,   18,   18,   18,   18,   18,
+   18,   18,   50,   50,   50,   50,   50,   50,   50,   50,
+   50,   50,   50,   50,   50,   50,   51,   51,   51,   51,
+   51,   51,   51,   51,   52,   52,   52,   52,   52,   53,
+   53,   53,   53,   53,   53,   17,   17,   17,   17,   17,
    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
-   17,   17,   17,   17,   48,   48,   49,   49,   49,   49,
-   49,   34,   34,   35,   35,   35,   44,   24,   19,   20,
-   21,   22,   23,   36,   36,   36,   36,
+   17,   17,   17,   17,   17,   17,   48,   48,   49,   49,
+   49,   49,   49,   34,   34,   35,   35,   35,   44,   24,
+   19,   20,   21,   22,   23,   36,   36,   36,   36,
 };
 static short yylen[] = {                                         2,
     2,    4,    0,    0,    4,    0,    0,    2,    2,    2,
@@ -82,1086 +82,1184 @@ static short yylen[] = {                                         2,
     1,    1,    1,    0,    1,    1,    1,    1,    1,    1,
     4,    1,    0,    6,    6,    0,    0,    0,    1,    0,
     1,    0,    2,    1,    2,    1,    1,    1,    3,    2,
-    0,    7,    3,    3,    1,    2,    3,    1,    3,    5,
-    6,    3,    3,    5,    2,    4,    0,    5,    1,    1,
-    5,    4,    5,    4,    5,    6,    5,    4,    5,    4,
-    3,    3,    3,    3,    3,    3,    3,    3,    3,    3,
-    3,    3,    3,    3,    2,    2,    2,    2,    2,    2,
-    2,    2,    3,    2,    4,    3,    5,    2,    2,    4,
-    5,    4,    5,    1,    1,    1,    1,    5,    2,    1,
-    2,    3,    2,    1,    1,    1,    1,    1,    1,    6,
-    5,    4,    5,    1,    1,    3,    4,    3,    1,    2,
-    2,    1,    2,    2,    2,    1,    3,    1,    3,    4,
-    4,    6,    1,    1,    3,    2,    3,    2,    1,    1,
-    1,    0,    1,    0,    1,    2,    1,    2,    2,    2,
-    2,    2,    2,    1,    1,    1,    1,
+    0,    7,    3,    3,    3,    1,    2,    3,    1,    3,
+    5,    6,    3,    3,    5,    2,    4,    0,    5,    1,
+    1,    5,    4,    5,    4,    5,    6,    5,    4,    5,
+    4,    3,    3,    3,    3,    3,    3,    3,    3,    3,
+    3,    3,    3,    3,    3,    3,    2,    2,    2,    2,
+    2,    2,    2,    2,    3,    2,    4,    3,    5,    2,
+    2,    4,    5,    4,    5,    1,    1,    1,    1,    5,
+    2,    1,    2,    3,    2,    1,    1,    1,    1,    1,
+    1,    6,    5,    4,    5,    1,    1,    3,    4,    3,
+    1,    2,    2,    1,    2,    2,    2,    1,    3,    1,
+    3,    4,    4,    6,    1,    1,    3,    2,    3,    2,
+    1,    1,    1,    0,    1,    0,    1,    2,    1,    2,
+    2,    2,    2,    2,    2,    1,    1,    1,    1,
 };
 static short yydefred[] = {                                      4,
     0,    7,    0,   45,   58,   56,    0,   56,   56,    8,
    46,    9,   11,   48,    0,   47,   49,   50,    0,    0,
-    0,   70,   71,    0,   14,    3,  173,    0,    0,  154,
-    0,  168,    0,   57,   57,    0,    0,    0,    0,    0,
+    0,   70,   71,    0,   14,    3,  175,    0,    0,  156,
+    0,  170,    0,   57,   57,    0,    0,    0,    0,    0,
     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     0,    0,    0,