home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl501m.zip / patches / patch.1i < prev    next >
Text File  |  1995-05-31  |  157KB  |  5,466 lines
  1. # This is my patch  patch.1i for perl5.001.  See description below.
  2. #    Andy Dougherty        doughera@lafcol.lafayette.edu
  3. #
  4.  
  5. # Please execute the following commands before applying this patch.
  6. # (You can feed this patch to 'sh' to do so.)
  7.  
  8. # Protect config.H on systems with case-insensitive filenames.
  9. mv config.H config_H
  10.  
  11. # These are obsolete.
  12. rm -f autosplit
  13. rm -f doSH
  14. rm -f xf
  15.  
  16. exit
  17.  
  18. This is my patch  patch.1i  for perl5.001.
  19.  
  20. To apply, change to your perl directory, run the commands above, then
  21. apply with
  22.     patch -p1 -N  < thispatch.
  23.  
  24. After you apply this patch, I would recommend:
  25.     rm config.sh
  26.     sh Configure [whatever options you use]
  27.     make depend
  28.     make 
  29.     make test
  30.  
  31. Here are the highlights:
  32.     All pod documentation now installed, along with corresponding man
  33.     pages, if possible (Configure allows you to change this).
  34.  
  35.     cppstdin no longer points back to the build directory.  This
  36.     necessitated two changes to the test suite:  comp/cpp.t is now a
  37.     front end that punts if cppstdin is not yet available (the old
  38.     perl4 trick doesn't work for perl5).  The  op/misc.t test
  39.     ./perl -P -e 'use POSIX;' has been dropped since I couldn't think
  40.     of an elegant way to bypass it for systems that need the cppstdin
  41.     wrapper.
  42.  
  43.     Grand autoload patch included (minus the installperl, lib/, and
  44.     ext/ changes).  The lib/ changes are in patch.1g, and the
  45.     ext/ changes are in patch.1h.
  46.  
  47.     Better detection and use of stdio variants, especially on SVR4.
  48.  
  49.     Sarathy's consolidated patches (for ties) included.
  50.  
  51.     New filter stuff included.
  52.  
  53.     Three patches from Larry (gv.c, toke.c, pp_ctl.c)
  54.  
  55. Patch and enjoy,
  56.     Andy Dougherty        doughera@lafcol.lafayette.edu
  57.     Dept. of Physics
  58.     Lafayette College    Easton, PA  18042
  59.  
  60.  
  61. Here's the file-by-file breakdown of what's included:
  62.  
  63. Changes.Conf
  64.     Document changes in the Configure & build process.
  65.  
  66. Configure
  67.     Upgrade to metaconfig PL55.
  68.  
  69.     Add /opt hierarchy to paths searched for programs.
  70.  
  71.     Tye McQueen's updated std stdio testing.
  72.  
  73.     Prompting for installation info for perl module pages.
  74.  
  75.     Add possible SITELIB to include site-specific include directories.
  76.     By default this is disabled, but it seemed a neat idea now that
  77.     the standard perl library is getting so big.
  78.  
  79.     Check that the compiler chosen exists and actually supports the
  80.     options the user specified.
  81.  
  82.     Correctly sort multiple shared library version numbers.
  83.  
  84.     Use a compile & link test for gconvert(), dlopen(), and dlerror().
  85.  
  86.     Do not include build directory name in cppstdin wrapper.
  87.  
  88. MANIFEST
  89.     Updated.
  90.  
  91. Makefile.SH
  92.     Reorganized a bit to support separate install.perl and install.man
  93.     targets to use the new installman script and to accomodate those who
  94.     don't want to install the man pages.
  95.  
  96.     Organize cleanup of .SH files a little better.
  97.  
  98.     No longer automatically make the pod/*.man files.  This is done by
  99.     installman only if requested.
  100.  
  101.     Include additional error messages and info for regenerating the
  102.     automatically maintained header files.
  103.  
  104.     Add 'minitest' target.
  105.  
  106. README
  107.     Updated.
  108.  
  109. README.vms
  110.     Fix perl5-porters subscription info.
  111.  
  112. config_H
  113.     Updated.
  114.  
  115. config_h.SH
  116.     Updated.
  117.  
  118. configpm
  119.     Embedded pod.
  120.  
  121. configure
  122.     GNU configure-like front end to metaconfig's Configure.
  123.     Only supports a few options.
  124.  
  125. doio.c
  126.     Updated to use new std stdio testing.
  127.  
  128. embed.h
  129.     Add new symbols for filtering.
  130.  
  131. global.sym
  132.     see embed.h.
  133.  
  134. gv.c
  135.     C<sub method;> patch from lwall.
  136.  
  137. hints/README.hints
  138.     Updated.
  139.  
  140. hints/aux.sh
  141.     Updated.
  142.  
  143. hints/cxux.sh
  144.     Updated.
  145.  
  146. hints/epix.sh
  147.     New file.
  148.  
  149. hints/freebsd.sh
  150.     Updated.
  151.  
  152. hints/irix_4.sh
  153.     Updated.
  154.  
  155. hints/irix_5.sh
  156.     Updated.
  157.  
  158. hints/irix_6.sh
  159.     Updated.
  160.  
  161. hints/linux.sh
  162.     Updated.
  163.  
  164. hints/powerunix.sh
  165.     Updated.
  166.  
  167. installman
  168.     New file to install pod/*.pod and lib/*.p(m|od) man pages.
  169.  
  170. installperl
  171.     Move installation of man pages over to installman script.
  172.  
  173.     Install pod/*.pod files in $privlib/pod/.
  174.  
  175.     Preserve timestamps on .a files.
  176.  
  177. makedepend.SH
  178.     Now includes . and .. in PATH to explicitly find cppstdin wrapper.
  179.  
  180. opcode.h
  181. opcode.pl
  182.     shmwrite fix.
  183.  
  184. perl.c
  185.     Changed unofficial patchlevel message.
  186.  
  187.     Included optional SITELIB directory.
  188.  
  189. perl.h
  190.     #include <memory.h>
  191.  
  192.     cryptswitch gone/filters added.
  193.  
  194.     EUNICE replaced by UNLINK_ALL_VERSIONS.  Only matters for VMS.
  195.  
  196. perldoc.SH
  197.     New file.
  198.  
  199. pod/perl.pod
  200.     Describe where modpods are.
  201.  
  202. pp_ctl.c
  203.     sort bug fix from lwall.
  204.  
  205. pp_hot.c
  206.     csh glob bug fix from tchrist.
  207.  
  208.     Sarathy's consolidated "tie" patch for NETaa13753 N 2 trey
  209.  
  210. pp_sys.c
  211.     Emulate flock with lockf, if possible.
  212.  
  213.     Use new std stdio unit.
  214.  
  215. proto.h
  216.     Filters stuff.
  217.  
  218.     prototype for unlnk() is only needed #if UNLINK_ALL_VERSIONS
  219.  
  220. sv.c
  221.     Sarathy's consolidated "tie" patch for NETaa13753 N 2 trey
  222.  
  223.     Sarathy's consolidated patch for nested ties.
  224.  
  225.     Use new std stdio unit.
  226.  
  227. t/comp/cpp.aux
  228.  
  229.     New file.  This only gets called if cppstdin is avaiable.
  230.  
  231. t/comp/cpp.t
  232.     Calls cpp.aux test only if cppstdin is available.
  233.  
  234. t/op/misc.t
  235.     Drop
  236.     perl -P -e 'use POSIX;' test.
  237.     it couldn't work on systems without the cppstdin wrapper
  238.     installed, and is usually misleading when it fails anyway.
  239.  
  240. toke.c
  241.     filter stuff.
  242.  
  243.     fix for NETaa13798 from lwall.
  244.  
  245. unixish.h
  246.     undef UNLINK_ALL_VERSIONS since it's irrelevant for unix.
  247.  
  248. util.c
  249.     s/EUNICE/UNLINK_ALL_VERSIONS/ for the unlnk() function.
  250.  
  251. vms/config.vms
  252.     VMS updates from Charles Bailey.
  253.  
  254.     std stdio updates to match changes in perl sources.
  255.  
  256.     add UNLINK_ALL_VERSIONS constant, but leave it #undef.
  257.  
  258. vms/ext/MM_VMS.pm
  259. vms/ext/VMS/stdio/stdio.xs
  260. vms/perlvms.pod
  261. vms/vms.c
  262.     VMS updates from Charles Bailey.
  263.  
  264. x2p/Makefile.SH
  265.     Updated to match man page Configure questions.
  266.  
  267.     Slight clean-up on .SH targets.
  268.  
  269. x2p/str.c
  270.     Use new std stdio unit.
  271.  
  272. Index: Changes.Conf
  273. *** /dev/null    Wed May 31 09:31:33 1995
  274. --- perl5.001i/Changes.Conf    Thu May 25 15:34:26 1995
  275. ***************
  276. *** 0 ****
  277. --- 1,131 ----
  278. + -------------
  279. + Version 5.002
  280. + -------------
  281. + 
  282. + Summary of user-visible Configure and build changes since 5.001:
  283. + 
  284. + Yet more enhancements and fixes have been made to the Configure and
  285. + build process for perl.  Most of these will not be visible to the
  286. + ordinary user--they just make the process more robust and likely to
  287. + work on a wider range of platforms.
  288. + 
  289. + This is a brief summary of the most important changes:
  290. + 
  291. +     Include 5.000 - 5.001 upgrage notes :-) (see below).  You might
  292. +     want to read through them as well as these notes.
  293. + 
  294. +     Install documentation for perl modules and pod2* translators.  You can
  295. +     now view perl module documentation with either your system's man(1)
  296. +     program or with the supplied perldoc script.
  297. + 
  298. +     Support Linux ELF dynamic loading.
  299. +    
  300. +     Many hint file updates.
  301. + 
  302. + 
  303. + -------------
  304. + Version 5.001
  305. + -------------
  306. + 
  307. + Summary of user-visible Configure and build changes since 5.000:
  308. + 
  309. + A large number of enhancements and fixes have been made to the
  310. + Configure and build process for perl.  Most of these will not be
  311. + visible to the ordinary user--they just make the process more robust
  312. + and likely to work on a wider range of platforms.
  313. + 
  314. + This is a brief summary of the most important changes.
  315. + 
  316. + Configure changes:
  317. +     New and improved Configure command line options.  -O now overrides
  318. +     config.sh settings.  -D options can now include spaces, if
  319. +     protected in quotes (e.g. -Dcc='gcc -posix').  Type Configure -h
  320. +     for a full listing of options.
  321. + 
  322. +     Users can now turn on the defaults for the rest of Configure by
  323. +     typing &-d at any Configure prompt.  This is useful if you just
  324. +     want to change one or two answers.
  325. + 
  326. +     Support on (non-Sun) SVR4 systems for dynamic loading and shared 
  327. +     libperl.so
  328. + 
  329. +     Numerous new or updated hints files: PowerUnix, aix 3.x and 4.x,
  330. +     bsd386, convexos, cxux, DEC OSF, Esix, FreeBSD, HP-UX (especially if
  331. +     you're using the bundled compiler), irix 4.x, 5.x, and 6.x,  Linux,
  332. +     MPE/IX, NeXT 3.0 and 3.2, Solaris, SVR4, Ultrix (especially 4.3),
  333. +     and Unicos.
  334. + 
  335. +     Improved generation of a suitable name for architecture-dependent
  336. +     library files.  NOTE:  This may differ from the name you had from
  337. +     your 5.000 installation.
  338. + 
  339. +     Many many portability enhancements and fixes.
  340. + 
  341. + Build process:
  342. + 
  343. +     The process for building extensions has been extensively revised.  See
  344. +     lib/ExtUtils/MakeMaker.pm for complete documentation.  Basically, with
  345. +     just a simple Makefile.PL (such as the one generated by h2xs), you can
  346. +     now build an extension from anywhere on your system, even if you've
  347. +     deleted the perl source.
  348. + 
  349. +     Improved build/install documentation in README.  A little.
  350. + 
  351. +     Improved dynamic loading on HP-UX.  Support dynamic loading on SVR4.
  352. + 
  353. +     Installperl now gets the version correct :-)
  354. + 
  355. +     Installperl now saves the perl *.h files and the libperl.a library
  356. +     in your architecture-dependent library directory so that you can
  357. +     later build extensions without having to re-install the perl
  358. +     source.
  359. + 
  360. +     Include x2p/a2p.c generated by byacc from x2p/a2p.y.
  361. + 
  362. +     Many many portability fixes.
  363. + 
  364. + Upgrade Traps and Pitfalls:
  365. + 
  366. + Since a lot has changed in the build process, you are probably best
  367. + off starting with a fresh copy of the perl5.000 sources.  In particular,
  368. + your 5.000 config.sh will contain several variables that are no longer
  369. + needed.  Further, improvements in the Configure tests may mean that some
  370. + of the answers will be different than they were in 5.000, and which answer
  371. + to keep can be difficult to sort out.   Therefore, you are probably
  372. + better off ignoring your old config.sh.
  373. + 
  374. + One big change is that architecture-dependent library files may well
  375. + be stored in a different location in 5.001.  This is because the default
  376. + name used in the 5.000 release was not sufficiently specific to
  377. + distinguish incompatible architectures.  The relevant variable is $archlib
  378. + in config.sh.  Before you run ``make install'' you should rename your old
  379. + $archlib.  Thus if your $archlib for version 5.000 was
  380. + /usr/local/lib/perl5/foo, and your new value for 5.001 is
  381. + /usr/local/lib/perl5/foo-bar, then you should
  382. +     mv /usr/local/lib/perl5/foo /usr/local/lib/perl5/foo-bar
  383. + before running  ``make install''.
  384. + 
  385. + Alternatively, you could override Configure's default guess for $archlib
  386. + either by  sh Configure -Darchname='foo', or by answering 'foo' when 
  387. + prompted by Configure for the architecture name.
  388. + 
  389. + The following is the sequence of steps to upgrade to 5.001:
  390. +     cd perl5.000
  391. +     make realclean
  392. +     rm config.sh
  393. +     <apply 5.001 patch>
  394. +     sh Configure
  395. +     make depend
  396. +     make
  397. +     make test
  398. +     <mv old architecture-dependent library to new location, if needed>
  399. +     make install
  400. + 
  401. + 
  402. + 
  403. + 
  404. + 
  405. + 
  406. + 
  407. + 
  408. + 
  409. Index: Configure
  410. Prereq:  3.0.1.7 
  411. *** perl5.001h/Configure    Mon Apr 17 15:55:59 1995
  412. --- perl5.001i/Configure    Wed May 31 09:19:09 1995
  413. ***************
  414. *** 20,26 ****
  415.   
  416.   # $Id: Head.U,v 3.0.1.7 1995/03/21 08:46:15 ram Exp $
  417.   #
  418. ! # Generated on Mon Apr 17 15:46:57 EDT 1995 [metaconfig 3.0 PL53]
  419.   
  420.   cat >/tmp/c1$$ <<EOF
  421.   ARGGGHHHH!!!!!
  422. --- 20,26 ----
  423.   
  424.   # $Id: Head.U,v 3.0.1.7 1995/03/21 08:46:15 ram Exp $
  425.   #
  426. ! # Generated on Wed May 31 09:14:05 EDT 1995 [metaconfig 3.0 PL55]
  427.   
  428.   cat >/tmp/c1$$ <<EOF
  429.   ARGGGHHHH!!!!!
  430. ***************
  431. *** 58,64 ****
  432. --- 58,66 ----
  433.   
  434.   : Proper PATH setting
  435.   paths='/bin /usr/bin /usr/local/bin /usr/ucb /usr/local /usr/lbin'
  436. + paths="$paths /opt/bin /opt/local/bin /opt/local /opt/lbin"
  437.   paths="$paths /usr/5bin /etc /usr/gnu/bin /usr/new /usr/new/bin /usr/nbin"
  438. + paths="$paths /opt/gnu/bin /opt/new /opt/new/bin /opt/nbin"
  439.   paths="$paths /sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/ucb"
  440.   paths="$paths /bsd4.3/usr/bin /usr/bsd /bsd43/bin /usr/ccs/bin"
  441.   paths="$paths /etc /usr/lib /usr/ucblib /lib /usr/ccs/lib"
  442. ***************
  443. *** 279,285 ****
  444.   d_isascii=''
  445.   d_killpg=''
  446.   d_link=''
  447. - d_linuxstd=''
  448.   d_locconv=''
  449.   d_lockf=''
  450.   d_lstat=''
  451. --- 281,286 ----
  452. ***************
  453. *** 348,354 ****
  454. --- 349,360 ----
  455.   sockethdr=''
  456.   socketlib=''
  457.   d_statblks=''
  458. + d_stdiobase=''
  459.   d_stdstdio=''
  460. + stdio_base=''
  461. + stdio_bufsiz=''
  462. + stdio_cnt=''
  463. + stdio_ptr=''
  464.   d_index=''
  465.   d_strchr=''
  466.   d_strcoll=''
  467. ***************
  468. *** 469,478 ****
  469.   mallocsrc=''
  470.   malloctype=''
  471.   usemymalloc=''
  472. ! installmansrc=''
  473. ! manext=''
  474. ! mansrc=''
  475. ! mansrcexp=''
  476.   huge=''
  477.   large=''
  478.   medium=''
  479. --- 475,488 ----
  480.   mallocsrc=''
  481.   malloctype=''
  482.   usemymalloc=''
  483. ! installman1dir=''
  484. ! man1dir=''
  485. ! man1direxp=''
  486. ! man1ext=''
  487. ! installman3dir=''
  488. ! man3dir=''
  489. ! man3direxp=''
  490. ! man3ext=''
  491.   huge=''
  492.   large=''
  493.   medium=''
  494. ***************
  495. *** 505,510 ****
  496. --- 515,524 ----
  497.   scriptdirexp=''
  498.   selecttype=''
  499.   sig_name=''
  500. + d_sitelib=''
  501. + installsitelib=''
  502. + sitelib=''
  503. + sitelibexp=''
  504.   sizetype=''
  505.   so=''
  506.   sharpbang=''
  507. ***************
  508. *** 693,699 ****
  509.   : produce awk script to parse command line options
  510.   cat >options.awk <<'EOF'
  511.   BEGIN {
  512. !     optstr = "dD:eEf:hOrsSU:V";    # getopt-style specification
  513.   
  514.       len = length(optstr);
  515.       for (i = 1; i <= len; i++) {
  516. --- 707,713 ----
  517.   : produce awk script to parse command line options
  518.   cat >options.awk <<'EOF'
  519.   BEGIN {
  520. !     optstr = "dD:eEf:hKOrsSU:V";    # getopt-style specification
  521.   
  522.       len = length(optstr);
  523.       for (i = 1; i <= len; i++) {
  524. ***************
  525. *** 751,756 ****
  526. --- 765,771 ----
  527.   silent=''
  528.   extractsh=''
  529.   override=''
  530. + knowitall=''
  531.   rm -f optdef.sh
  532.   
  533.   : option parsing
  534. ***************
  535. *** 773,778 ****
  536. --- 788,794 ----
  537.       -r) shift; reuseval=true;;
  538.       -s) shift; silent=true;;
  539.       -E) shift; alldone=exit;;
  540. +     -K) shift; knowitall=true;;
  541.       -O) shift; override=true;;
  542.       -S) shift; extractsh=true;;
  543.       -D)
  544. ***************
  545. *** 800,806 ****
  546.           esac
  547.           shift
  548.           ;;
  549. !     -V) echo "$me generated by metaconfig 3.0 PL53." >&2
  550.           exit 0;;
  551.       --) break;;
  552.       -*) echo "$me: unknown option $1" >&2; shift; error=true;;
  553. --- 816,822 ----
  554.           esac
  555.           shift
  556.           ;;
  557. !     -V) echo "$me generated by metaconfig 3.0 PL55." >&2
  558.           exit 0;;
  559.       --) break;;
  560.       -*) echo "$me: unknown option $1" >&2; shift; error=true;;
  561. ***************
  562. *** 811,817 ****
  563.   case "$error" in
  564.   true)
  565.       cat >&2 <<EOM
  566. ! Usage: $me [-dehrEOSV] [-f config.sh] [-D symbol] [-D symbol=value]
  567.                    [-U symbol] [-U symbol=]
  568.     -d : use defaults for all answers.
  569.     -e : go on without questioning past the production of config.sh.
  570. --- 827,833 ----
  571.   case "$error" in
  572.   true)
  573.       cat >&2 <<EOM
  574. ! Usage: $me [-dehrEKOSV] [-f config.sh] [-D symbol] [-D symbol=value]
  575.                    [-U symbol] [-U symbol=]
  576.     -d : use defaults for all answers.
  577.     -e : go on without questioning past the production of config.sh.
  578. ***************
  579. *** 823,828 ****
  580. --- 839,845 ----
  581.            -D symbol         symbol gets the value 'define'
  582.            -D symbol=value   symbol gets the value 'value'
  583.     -E : stop at the end of questions, after having produced config.sh.
  584. +   -K : do not use unless you know what you are doing.
  585.     -O : let -D and -U override definitions from loaded configuration file.
  586.     -S : perform variable substitutions on all .SH files (can mix with -f)
  587.     -U : undefine symbol:
  588. ***************
  589. *** 1422,1446 ****
  590.       ./tr '[A-Z]' '[a-z]' | tr '\012' ' '`
  591.   newmyuname="$myuname"
  592.   dflt=n
  593. ! if test -f ../config.sh; then
  594. !     if $contains myuname= ../config.sh >/dev/null 2>&1; then
  595. !         eval "`grep myuname= ../config.sh`"
  596. !     fi
  597. !     if test "X$myuname" = "X$newmyuname"; then
  598. !         dflt=y
  599.       fi
  600. ! fi
  601.   
  602.   : Get old answers from old config file if Configure was run on the
  603.   : same system, otherwise use the hints.
  604.   hint=default
  605.   cd ..
  606.   if test -f config.sh; then
  607. !     $cat <<EOM
  608. ! 
  609. ! I see a config.sh file.  Was it built on THIS system with THIS compiler?  
  610. ! EOM
  611. !     rp="Shall I use config.sh to set the defaults?"
  612.       . UU/myread
  613.       case "$ans" in
  614.       n*|N*) echo "OK, I'll ignore it."; mv config.sh config.sh.old;;
  615. --- 1439,1465 ----
  616.       ./tr '[A-Z]' '[a-z]' | tr '\012' ' '`
  617.   newmyuname="$myuname"
  618.   dflt=n
  619. ! case "$knowitall" in
  620. ! '')
  621. !     if test -f ../config.sh; then
  622. !         if $contains myuname= ../config.sh >/dev/null 2>&1; then
  623. !             eval "`grep myuname= ../config.sh`"
  624. !         fi
  625. !         if test "X$myuname" = "X$newmyuname"; then
  626. !             dflt=y
  627. !         fi
  628.       fi
  629. !     ;;
  630. ! *) dflt=y;;
  631. ! esac
  632.   
  633.   : Get old answers from old config file if Configure was run on the
  634.   : same system, otherwise use the hints.
  635.   hint=default
  636.   cd ..
  637.   if test -f config.sh; then
  638. !     echo " "
  639. !     rp="I see a config.sh file.  Shall I use it to set the defaults?"
  640.       . UU/myread
  641.       case "$ans" in
  642.       n*|N*) echo "OK, I'll ignore it."; mv config.sh config.sh.old;;
  643. ***************
  644. *** 2106,2112 ****
  645.       *)  echo "You are using GNU cc $gccversion." ;;
  646.       esac
  647.   else
  648. !     echo "I can't compile the test program -- Assuming it isn't GNU cc."
  649.   fi
  650.   $rm -f gccvers*
  651.   case "$gccversion" in
  652. --- 2125,2139 ----
  653.       *)  echo "You are using GNU cc $gccversion." ;;
  654.       esac
  655.   else
  656. !     echo " "
  657. !     echo "*** WHOA THERE!!! ***" >&4
  658. !     echo "    Your C compiler \"$cc\" doesn't seem to be working!" >&4
  659. !     case "$knowitall" in
  660. !     '')
  661. !     echo "    You'd better start hunting for one and let me know about it." >&4
  662. !         exit 1
  663. !         ;;
  664. !     esac
  665.   fi
  666.   $rm -f gccvers*
  667.   case "$gccversion" in
  668. ***************
  669. *** 2745,2750 ****
  670. --- 2772,2831 ----
  671.   esac
  672.   rmlist="$rmlist pdp11"
  673.   
  674. + : coherency check
  675. + echo " "
  676. + echo "Checking your choice of C compiler and flags for coherency..." >&4
  677. + set X $cc $optimize $ccflags try.c -o try $ldflags
  678. + shift
  679. + $cat >try.msg <<EOM
  680. + I've tried to compile and run a simple program with:
  681. + 
  682. +     $*
  683. +     ./try
  684. + 
  685. + and I got the following output:
  686. + 
  687. + EOM
  688. + $cat > try.c <<'EOF'
  689. + #include <stdio.h>
  690. + main() { exit(0); }
  691. + EOF
  692. + dflt=y
  693. + if sh -c "$cc $optimize $ccflags try.c -o try $ldflags" >>try.msg 2>&1; then
  694. +     if sh -c './try' >>try.msg 2>&1; then
  695. +         dflt=n
  696. +     else
  697. +         echo "The program compiled OK, but exited with status $?." >>try.msg
  698. +         rp="You have a problem.  Shall I abort Configure"
  699. +         dflt=y
  700. +     fi
  701. + else
  702. +     echo "I can't compile the test program." >>try.msg
  703. +     rp="You have a BIG problem.  Shall I abort Configure"
  704. +     dflt=y
  705. + fi
  706. + case "$dflt" in
  707. + y)
  708. +     $cat try.msg
  709. +     case "$knowitall" in
  710. +     '')
  711. +         echo "(The supplied flags might be incorrect with this C compiler.)"
  712. +         ;;
  713. +     *) dflt=n;;
  714. +     esac
  715. +     echo " "
  716. +     . ./myread
  717. +     case "$ans" in
  718. +     n*|N*) ;;
  719. +     *)    echo "Ok.  Stopping Configure." >&4
  720. +         exit 1
  721. +         ;;
  722. +     esac
  723. +     ;;
  724. + n) echo "OK, that should do.";;
  725. + esac
  726. + $rm -f try try.* core
  727. + 
  728.   : Set private lib path
  729.   case "$plibpth" in
  730.   '') if ./mips; then
  731. ***************
  732. *** 2992,3001 ****
  733.       set /usr/ccs/lib/libc.$so
  734.       $test -r $1 || set /usr/lib/libc.$so
  735.       $test -r $1 || set /usr/shlib/libc.$so
  736. !     $test -r $1 || set /usr/lib/libc.$so.[0-9]*
  737.       $test -r $1 || set /lib/libc.$so
  738.       $test -r $1 || set /lib/libsys_s.a
  739. -     eval set \$$#
  740.       ;;
  741.   *)
  742.       set blurfl
  743. --- 3073,3090 ----
  744.       set /usr/ccs/lib/libc.$so
  745.       $test -r $1 || set /usr/lib/libc.$so
  746.       $test -r $1 || set /usr/shlib/libc.$so
  747. !     $test -r $1 || \
  748. !         set `echo blurfl; echo /usr/lib/libc.$so.[0-9]* | \
  749. !         tr ' ' '\012' | egrep -v '\.[A-Za-z]*$' | $sed -e '
  750. !             h
  751. !             s/[0-9][0-9]*/0000&/g
  752. !             s/0*\([0-9][0-9][0-9][0-9][0-9]\)/\1/g
  753. !             G
  754. !             s/\n/ /' | \
  755. !          sort | $sed -e 's/^.* //'`
  756. !     eval set \$$#
  757.       $test -r $1 || set /lib/libc.$so
  758.       $test -r $1 || set /lib/libsys_s.a
  759.       ;;
  760.   *)
  761.       set blurfl
  762. ***************
  763. *** 3085,3091 ****
  764.   $grep fprintf libc.tmp > libc.ptf
  765.   xscan='eval "<libc.ptf $com >libc.list"; $echo $n ".$c" >&4'
  766.   xrun='eval "<libc.tmp $com >libc.list"; echo "done" >&4'
  767. ! if com="$sed -n -e 's/__IO//' -e 's/^.* [ADTSIW]  *_[_.]*//p' -e 's/^.* [ADTSIW] //p'";\
  768.       eval $xscan;\
  769.       $contains '^fprintf$' libc.list >/dev/null 2>&1; then
  770.           eval $xrun
  771. --- 3174,3181 ----
  772.   $grep fprintf libc.tmp > libc.ptf
  773.   xscan='eval "<libc.ptf $com >libc.list"; $echo $n ".$c" >&4'
  774.   xrun='eval "<libc.tmp $com >libc.list"; echo "done" >&4'
  775. ! xxx='[ADTSIW]'
  776. ! if com="$sed -n -e 's/__IO//' -e 's/^.* $xxx  *_[_.]*//p' -e 's/^.* $xxx //p'";\
  777.       eval $xscan;\
  778.       $contains '^fprintf$' libc.list >/dev/null 2>&1; then
  779.           eval $xrun
  780. ***************
  781. *** 3128,3138 ****
  782.           eval $xrun
  783.   else
  784.       nm -p $* 2>/dev/null >libc.tmp
  785. !     com="$sed -n -e 's/^.* [ADTSIW]  *_[_.]*//p' -e 's/^.* [ADTSIW] //p'";\
  786. !     eval "<libc.tmp $com >libc.list"
  787. !     if $contains '^fprintf$' libc.list >/dev/null 2>&1; then
  788.           nm_opt='-p'
  789. !         echo "done" >&4
  790.       else
  791.           echo " "
  792.           echo "nm didn't seem to work right. Trying ar instead..." >&4
  793. --- 3218,3229 ----
  794.           eval $xrun
  795.   else
  796.       nm -p $* 2>/dev/null >libc.tmp
  797. !     $grep fprintf libc.tmp > libc.ptf
  798. !     if com="$sed -n -e 's/^.* [ADTSIW]  *_[_.]*//p' -e 's/^.* [ADTSIW] //p'";\
  799. !         eval $xscan; $contains '^fprintf$' libc.list >/dev/null 2>&1
  800. !     then
  801.           nm_opt='-p'
  802. !         eval $xrun
  803.       else
  804.           echo " "
  805.           echo "nm didn't seem to work right. Trying ar instead..." >&4
  806. ***************
  807. *** 3146,3152 ****
  808.           else
  809.               echo "ar didn't seem to work right." >&4
  810.               echo "Maybe this is a Cray...trying bld instead..." >&4
  811. !             if bld t $libc | $sed -e 's/.*\///' -e 's/\.o:.*$//' > libc.list; then
  812.                   for thisname in $libnames; do
  813.                       bld t $libnames | \
  814.                       $sed -e 's/.*\///' -e 's/\.o:.*$//' >>libc.list
  815. --- 3237,3244 ----
  816.           else
  817.               echo "ar didn't seem to work right." >&4
  818.               echo "Maybe this is a Cray...trying bld instead..." >&4
  819. !             if bld t $libc | $sed -e 's/.*\///' -e 's/\.o:.*$//' > libc.list
  820. !             then
  821.                   for thisname in $libnames; do
  822.                       bld t $libnames | \
  823.                       $sed -e 's/.*\///' -e 's/\.o:.*$//' >>libc.list
  824. ***************
  825. *** 3191,3197 ****
  826.           else tval=false;
  827.           fi;;
  828.       *)
  829. !         echo "main() { extern int $1$tdc; printf(\"%d\", $1$tc); }" > t.c;
  830.           if $cc $ccflags -o t t.c $ldflags $libs >/dev/null 2>&1;
  831.           then tval=true;
  832.           else tval=false;
  833. --- 3283,3289 ----
  834.           else tval=false;
  835.           fi;;
  836.       *)
  837. !         echo "main() { extern short $1$tdc; printf(\"%hd\", $1$tc); }" > t.c;
  838.           if $cc $ccflags -o t t.c $ldflags $libs >/dev/null 2>&1;
  839.           then tval=true;
  840.           else tval=false;
  841. ***************
  842. *** 3247,3254 ****
  843. --- 3339,3353 ----
  844.   esac'
  845.   
  846.   : see if gconvert exists
  847. + : On some SVR4 systems, gconvert is present but can not be used 
  848. + : because it requires some other unavailable functions.
  849. + : Therefore, do not use the nm extraction, but use a real compile
  850. + : and link test instead.
  851. + xxx_runnm="$runnm"
  852. + runnm=false
  853.   set gconvert d_gconvert
  854.   eval $inlibc
  855. + runnm="$xxx_runnm"
  856.   
  857.   case "$d_gconvert" in
  858.   $define)
  859. ***************
  860. *** 4152,4167 ****
  861. --- 4251,4278 ----
  862.   $rm -f try.c
  863.   
  864.   : see if dlerror exists
  865. + : On NetBSD and FreeBSD, dlerror might be available, but it is in 
  866. + : /usr/lib/crt0.o, not in any of the libraries.  Therefore, do not
  867. + : use the nm extraction, but use a real compile and link test instead.
  868. + xxx_runnm="$runnm"
  869. + runnm=false
  870.   set dlerror d_dlerror
  871.   eval $inlibc
  872. + runnm="$xxx_runnm"
  873.   
  874.   : see if dld is available
  875.   set dld.h i_dld
  876.   eval $inhdr
  877.   
  878.   : see if dlopen exists
  879. + : On NetBSD and FreeBSD, dlopen is available, but it is in 
  880. + : /usr/lib/crt0.o, not in any of the libraries.  Therefore, do not
  881. + : use the nm extraction, but use a real compile and link test instead.
  882. + xxx_runnm="$runnm"
  883. + runnm=false
  884.   set dlopen d_dlopen
  885.   eval $inlibc
  886. + runnm="$xxx_runnm"
  887.   
  888.   : determine which dynamic loading, if any, to compile in
  889.   echo " "
  890. ***************
  891. *** 4229,4237 ****
  892.           '') case "$osname" in
  893.               hpux)    dflt='+z' ;;
  894.               next)    dflt='none' ;;
  895. !             solaris) dflt='-K pic' ;;
  896.               sunos)    dflt='-pic' ;;
  897. -             svr4*|esix*) dflt='-Kpic' ;;
  898.               *)    dflt='none' ;;
  899.               esac ;;
  900.           *)    dflt='-fpic' ;;
  901. --- 4340,4347 ----
  902.           '') case "$osname" in
  903.               hpux)    dflt='+z' ;;
  904.               next)    dflt='none' ;;
  905. !             solaris|svr4*|esix*) dflt='-Kpic' ;;
  906.               sunos)    dflt='-pic' ;;
  907.               *)    dflt='none' ;;
  908.               esac ;;
  909.           *)    dflt='-fpic' ;;
  910. ***************
  911. *** 4836,4882 ****
  912.   set link d_link
  913.   eval $inlibc
  914.   
  915. - : see if stdio is really std
  916. - echo " "
  917. - xxx=`./findhdr stdio.h`
  918. - if $contains 'char.*_ptr;' "$xxx" >/dev/null 2>&1 ; then
  919. -     if $contains '_cnt;' "$xxx" >/dev/null 2>&1 ; then
  920. -         echo "Your stdio is pretty std." >&4
  921. -         val="$define"
  922. -     else
  923. -         echo "Your stdio isn't very std." >&4
  924. -         val="$undef"
  925. -     fi
  926. - else
  927. -     echo "Your stdio isn't very std." >&4
  928. -     val="$undef"
  929. - fi
  930. - set d_stdstdio
  931. - eval $setvar
  932. - 
  933. - : see if stdio is like that in linux
  934. - case "$d_stdstdio" in
  935. - "$undef")
  936. -     echo " "
  937. -     xxx=`./findhdr stdio.h`
  938. -     $cppstdin $cppflags $cppminus < "$xxx" > stdio.E
  939. -     if $contains 'char.*_IO_read_base' stdio.E >/dev/null 2>&1 && \
  940. -         $contains '_IO_read_ptr' stdio.E >/dev/null 2>&1 && \
  941. -         $contains '_IO_read_end' stdio.E >/dev/null 2>&1 ; then
  942. -             echo "Your stdio looks like linux." >&4
  943. -             val="$define"
  944. -     else
  945. -         echo "You don't have linux stdio, either." >&4
  946. -         val="$undef"
  947. -     fi
  948. -     $rm -f stdio.E
  949. -     ;;
  950. - *)    val="$undef" ;;
  951. - esac
  952. - 
  953. - set d_linuxstd
  954. - eval $setvar
  955. - 
  956.   : see if localeconv exists
  957.   set localeconv d_locconv
  958.   eval $inlibc
  959. --- 4946,4951 ----
  960. ***************
  961. *** 5422,5427 ****
  962. --- 5491,5539 ----
  963.   set d_shm
  964.   eval $setvar
  965.   
  966. + : determine whether the user wants to include a site-specific library
  967. + : in addition to privlib.
  968. + $cat <<EOM
  969. + 
  970. + Some sites may wish to specify a local directory for $package
  971. + to search by default in addition to $privlib.
  972. + If you don't want to use such an additional directory, answer 'none'.
  973. + 
  974. + EOM
  975. + dflt=none
  976. + fn=d~+n
  977. + rp='Local directory for additional library files?'
  978. + . ./getfile
  979. + if $test "X$sitelibexp" != "X$ansexp"; then
  980. +     installsitelib=''
  981. + fi
  982. + sitelib="$ans"
  983. + sitelibexp="$ansexp"
  984. + if $afs; then
  985. +     $cat <<EOM
  986. + 
  987. + Since you are running AFS, I need to distinguish the directory in which
  988. + private files reside from the directory in which they are installed (and from
  989. + which they are presumably copied to the former directory by occult means).
  990. + 
  991. + EOM
  992. +     case "$installsitelib" in
  993. +     '') dflt=`echo $sitelibexp | sed 's#^/afs/#/afs/.#'`;;
  994. +     *) dflt="$installsitelib";;
  995. +     esac
  996. +     fn=de~
  997. +     rp='Where will additional local files be installed?'
  998. +     . ./getfile
  999. +     installsitelib="$ans"
  1000. + else
  1001. +     installsitelib="$sitelibexp"
  1002. + fi
  1003. + 
  1004. + case "$sitelibexp" in
  1005. + ''|' ') d_sitelib=undef ;;
  1006. + *) d_sitelib=define ;;
  1007. + esac
  1008. + 
  1009.   socketlib=''
  1010.   sockethdr=''
  1011.   : see whether socket exists
  1012. ***************
  1013. *** 5493,5498 ****
  1014. --- 5605,5707 ----
  1015.   set d_statblks
  1016.   eval $setvar
  1017.   
  1018. + : see if _ptr and _cnt from stdio act std
  1019. + echo " "
  1020. + if $contains '_IO_fpos_t' `./findhdr stdio.h` >/dev/null 2>&1 ; then
  1021. +     echo "(Looks like you have stdio.h from Linux.)"
  1022. +     case "$stdio_ptr" in
  1023. +     '') stdio_ptr='((fp)->_IO_read_ptr)';;
  1024. +     esac
  1025. +     case "$stdio_cnt" in
  1026. +     '') stdio_cnt='((fp)->_IO_read_end - (fp)->_IO_read_ptr)';;
  1027. +     esac
  1028. +     case "$stdio_base" in
  1029. +     '') stdio_base='((fp)->_IO_read_base)';;
  1030. +     esac
  1031. +     case "$stdio_bufsiz" in
  1032. +     '') stdio_bufsiz='((fp)->_IO_read_end - (fp)->_IO_read_base))';;
  1033. +     esac
  1034. + else
  1035. +     case "$stdio_ptr" in
  1036. +     '') stdio_ptr='((fp)->_ptr)';;
  1037. +     esac
  1038. +     case "$stdio_cnt" in
  1039. +     '') stdio_cnt='((fp)->_cnt)';;
  1040. +     esac
  1041. +     case "$stdio_base" in
  1042. +     '') stdio_base='((fp)->_base)';;
  1043. +     esac
  1044. +     case "$stdio_bufsiz" in
  1045. +     '') stdio_bufsiz='((fp)->_cnt + (fp)->_ptr - (fp)->_base)';;
  1046. +     esac
  1047. + fi
  1048. + : test whether _ptr and _cnt really work
  1049. + echo "Checking how std your stdio is..." >&4
  1050. + $cat >try.c <<EOP
  1051. + #include <stdio.h>
  1052. + #define FILE_ptr(fp)    $stdio_ptr
  1053. + #define FILE_cnt(fp)    $stdio_cnt
  1054. + main() { 
  1055. +     FILE *fp = fopen("try.c", "r");
  1056. +     char c = getc(fp);
  1057. +     if (
  1058. +         18 <= FILE_cnt(fp) &&
  1059. +         strncmp(FILE_ptr(fp), "include <stdio.h>\n", 18) == 0
  1060. +     )
  1061. +         exit(0);
  1062. +     exit(1);
  1063. + }
  1064. + EOP
  1065. + val="$undef"
  1066. + if $cc $ccflags $ldflags -o try try.c $libs >/dev/null 2>&1; then
  1067. +     if ./try; then
  1068. +         echo "Your stdio acts pretty std."
  1069. +         val="$define"
  1070. +     else
  1071. +         echo "Your stdio isn't very std."
  1072. +     fi
  1073. + else
  1074. +     echo "Your stdio doesn't appear very std."
  1075. + fi
  1076. + $rm -f try.c try
  1077. + set d_stdstdio
  1078. + eval $setvar
  1079. + 
  1080. + : see if _base is also standard
  1081. + val="$undef"
  1082. + case "$d_stdstdio" in
  1083. + $define)
  1084. +     $cat >try.c <<EOP
  1085. + #include <stdio.h>
  1086. + #define FILE_base(fp)    $stdio_base
  1087. + #define FILE_bufsiz(fp)    $stdio_bufsiz
  1088. + main() { 
  1089. +     FILE *fp = fopen("try.c", "r");
  1090. +     char c = getc(fp);
  1091. +     if (
  1092. +         19 <= FILE_bufsiz(fp) &&
  1093. +         strncmp(FILE_base(fp), "#include <stdio.h>\n", 19) == 0
  1094. +     )
  1095. +         exit(0);
  1096. +     exit(1);
  1097. + }
  1098. + EOP
  1099. +     if $cc $ccflags $ldflags -o try try.c $libs > /dev/null 2>&1; then
  1100. +         if ./try; then
  1101. +             echo "Even its _base field acts std."
  1102. +             val="$define"
  1103. +         else
  1104. +             echo "But its _base field isn't std."
  1105. +         fi
  1106. +     else
  1107. +         echo "However, it seems to be lacking the _base field."
  1108. +     fi
  1109. +     $rm -f try.c try
  1110. +     ;;
  1111. + esac
  1112. + set d_stdiobase
  1113. + eval $setvar
  1114. + 
  1115.   : see if strcoll exists
  1116.   set strcoll d_strcoll
  1117.   eval $inlibc
  1118. ***************
  1119. *** 6143,6162 ****
  1120.   case "$i_db" in
  1121.   define)
  1122.       : Check the return type needed for hash 
  1123.       echo "Checking return type needed for hash for Berkeley DB ..." >&4
  1124.       $cat >try.c <<'EOCP'
  1125.   #include <sys/types.h>
  1126.   #include <db.h>
  1127. ! u_int32_t 
  1128. ! hash_cb (ptr, size)
  1129. ! const void * ptr ;
  1130. ! size_t size ;
  1131.   {
  1132.   }
  1133. ! HASHINFO info ;
  1134.   main()
  1135.   {
  1136. !     info.hash = hash_cb ;
  1137.   }
  1138.   EOCP
  1139.       if $cc $ccflags -c try.c >try.out 2>&1 ; then
  1140. --- 6352,6371 ----
  1141.   case "$i_db" in
  1142.   define)
  1143.       : Check the return type needed for hash 
  1144. +     echo " "
  1145.       echo "Checking return type needed for hash for Berkeley DB ..." >&4
  1146.       $cat >try.c <<'EOCP'
  1147.   #include <sys/types.h>
  1148.   #include <db.h>
  1149. ! u_int32_t hash_cb (ptr, size)
  1150. ! void *ptr;
  1151. ! size_t size;
  1152.   {
  1153.   }
  1154. ! HASHINFO info;
  1155.   main()
  1156.   {
  1157. !     info.hash = hash_cb;
  1158.   }
  1159.   EOCP
  1160.       if $cc $ccflags -c try.c >try.out 2>&1 ; then
  1161. ***************
  1162. *** 6179,6198 ****
  1163.   case "$i_db" in
  1164.   define)
  1165.       : Check the return type needed for prefix 
  1166.       echo "Checking return type needed for prefix for Berkeley DB ..." >&4
  1167.       cat >try.c <<'EOCP'
  1168.   #include <sys/types.h>
  1169.   #include <db.h>
  1170. ! size_t 
  1171. ! prefix_cb (key1, key2)
  1172. ! const DBT * key1 ;
  1173. ! const DBT * key2 ;
  1174.   {
  1175.   }
  1176. ! BTREEINFO info ;
  1177.   main()
  1178.   {
  1179. !     info.prefix = prefix_cb ;
  1180.   }
  1181.   EOCP
  1182.       if $cc $ccflags -c try.c  >try.out 2>&1 ; then
  1183. --- 6388,6407 ----
  1184.   case "$i_db" in
  1185.   define)
  1186.       : Check the return type needed for prefix 
  1187. +     echo " "
  1188.       echo "Checking return type needed for prefix for Berkeley DB ..." >&4
  1189.       cat >try.c <<'EOCP'
  1190.   #include <sys/types.h>
  1191.   #include <db.h>
  1192. ! size_t prefix_cb (key1, key2)
  1193. ! DBT *key1;
  1194. ! DBT *key2;
  1195.   {
  1196.   }
  1197. ! BTREEINFO info;
  1198.   main()
  1199.   {
  1200. !     info.prefix = prefix_cb;
  1201.   }
  1202.   EOCP
  1203.       if $cc $ccflags -c try.c  >try.out 2>&1 ; then
  1204. ***************
  1205. *** 6571,6577 ****
  1206.   lseektype="$ans"
  1207.   
  1208.   : determine where manual pages go
  1209. ! set mansrc mansrc none
  1210.   eval $prefixit
  1211.   $cat <<EOM
  1212.   
  1213. --- 6780,6786 ----
  1214.   lseektype="$ans"
  1215.   
  1216.   : determine where manual pages go
  1217. ! set man1dir man1dir none
  1218.   eval $prefixit
  1219.   $cat <<EOM
  1220.   
  1221. ***************
  1222. *** 6580,6591 ****
  1223.   case "$nroff" in
  1224.   nroff)
  1225.       echo "However, you don't have nroff, so they're probably useless to you."
  1226. !     case "$mansrc" in
  1227. !     '') mansrc="none";;
  1228.       esac;;
  1229.   esac
  1230.   echo "If you don't want the manual sources installed, answer 'none'."
  1231. ! case "$mansrc" in
  1232.   '')
  1233.       lookpath="$prefixexp/man/man1 $prefixexp/man/u_man/man1"
  1234.       lookpath="$lookpath $prefixexp/man/l_man/man1"
  1235. --- 6789,6800 ----
  1236.   case "$nroff" in
  1237.   nroff)
  1238.       echo "However, you don't have nroff, so they're probably useless to you."
  1239. !     case "$man1dir" in
  1240. !     '') man1dir="none";;
  1241.       esac;;
  1242.   esac
  1243.   echo "If you don't want the manual sources installed, answer 'none'."
  1244. ! case "$man1dir" in
  1245.   '')
  1246.       lookpath="$prefixexp/man/man1 $prefixexp/man/u_man/man1"
  1247.       lookpath="$lookpath $prefixexp/man/l_man/man1"
  1248. ***************
  1249. *** 6593,6601 ****
  1250.       lookpath="$lookpath /usr/man/local/man1 /usr/man/l_man/man1"
  1251.       lookpath="$lookpath /usr/local/man/u_man/man1 /usr/local/man/l_man/man1"
  1252.       lookpath="$lookpath /usr/man/man.L"
  1253. !     mansrc=`./loc . $prefixexp/man/man1 $lookpath`
  1254. !     if $test -d "$mansrc"; then
  1255. !         dflt="$mansrc"
  1256.       else
  1257.           dflt="$sysman"
  1258.       fi
  1259. --- 6802,6810 ----
  1260.       lookpath="$lookpath /usr/man/local/man1 /usr/man/l_man/man1"
  1261.       lookpath="$lookpath /usr/local/man/u_man/man1 /usr/local/man/l_man/man1"
  1262.       lookpath="$lookpath /usr/man/man.L"
  1263. !     man1dir=`./loc . $prefixexp/man/man1 $lookpath`
  1264. !     if $test -d "$man1dir"; then
  1265. !         dflt="$man1dir"
  1266.       else
  1267.           dflt="$sysman"
  1268.       fi
  1269. ***************
  1270. *** 6603,6623 ****
  1271.       eval $prefixup
  1272.       ;;
  1273.   ' ') dflt=none;;
  1274. ! *)  dflt="$mansrc"
  1275.       ;;
  1276.   esac
  1277.   echo " "
  1278.   fn=dn~
  1279. ! rp='Where do the manual pages (source) go?'
  1280.   . ./getfile
  1281. ! if test "X$mansrcexp" != "X$ansexp"; then
  1282. !     installmansrc=''
  1283.   fi
  1284. ! mansrc="$ans"
  1285. ! mansrcexp="$ansexp"
  1286. ! case "$mansrc" in
  1287. ! '') mansrc=' '
  1288. !     installmansrc='';;
  1289.   esac
  1290.   if $afs; then
  1291.       $cat <<EOM
  1292. --- 6812,6832 ----
  1293.       eval $prefixup
  1294.       ;;
  1295.   ' ') dflt=none;;
  1296. ! *)  dflt="$man1dir"
  1297.       ;;
  1298.   esac
  1299.   echo " "
  1300.   fn=dn~
  1301. ! rp="Where do the main $spackage manual pages (source) go?"
  1302.   . ./getfile
  1303. ! if test "X$man1direxp" != "X$ansexp"; then
  1304. !     installman1dir=''
  1305.   fi
  1306. ! man1dir="$ans"
  1307. ! man1direxp="$ansexp"
  1308. ! case "$man1dir" in
  1309. ! '') man1dir=' '
  1310. !     installman1dir='';;
  1311.   esac
  1312.   if $afs; then
  1313.       $cat <<EOM
  1314. ***************
  1315. *** 6627,6654 ****
  1316.   which they are presumably copied to the former directory by occult means).
  1317.   
  1318.   EOM
  1319. !     case "$installmansrc" in
  1320. !     '') dflt=`echo $mansrcexp | sed 's#^/afs/#/afs/.#'`;;
  1321. !     *) dflt="$installmansrc";;
  1322.       esac
  1323.       fn=de~
  1324.       rp='Where will man pages be installed?'
  1325.       . ./getfile
  1326. !     installmansrc="$ans"
  1327.   else
  1328. !     installmansrc="$mansrcexp"
  1329.   fi
  1330.   
  1331. ! case "$mansrc" in
  1332. ! ' ') manext='0';;
  1333. ! *l) manext=l;;
  1334. ! *n) manext=n;;
  1335. ! *o) manext=l;;
  1336. ! *p) manext=n;;
  1337. ! *C) manext=C;;
  1338. ! *L) manext=L;;
  1339. ! *L1) manext=L1;;
  1340. ! *) manext=1;;
  1341.   esac
  1342.   
  1343.   : see what type is used for mode_t
  1344. --- 6836,6946 ----
  1345.   which they are presumably copied to the former directory by occult means).
  1346.   
  1347.   EOM
  1348. !     case "$installman1dir" in
  1349. !     '') dflt=`echo $man1direxp | sed 's#^/afs/#/afs/.#'`;;
  1350. !     *) dflt="$installman1dir";;
  1351.       esac
  1352.       fn=de~
  1353.       rp='Where will man pages be installed?'
  1354.       . ./getfile
  1355. !     installman1dir="$ans"
  1356.   else
  1357. !     installman1dir="$man1direxp"
  1358.   fi
  1359.   
  1360. ! case "$man1dir" in
  1361. ! ' ') man1ext='0';;
  1362. ! *l) man1ext=l;;
  1363. ! *n) man1ext=n;;
  1364. ! *o) man1ext=l;;
  1365. ! *p) man1ext=n;;
  1366. ! *C) man1ext=C;;
  1367. ! *L) man1ext=L;;
  1368. ! *L1) man1ext=L1;;
  1369. ! *) man1ext=1;;
  1370. ! esac
  1371. ! 
  1372. ! : determine where library module manual pages go
  1373. ! set man3dir man3dir none
  1374. ! eval $prefixit
  1375. ! $cat <<EOM
  1376. ! 
  1377. ! $spackage has manual pages for many of the library modules.
  1378. ! EOM
  1379. ! 
  1380. ! case "$nroff" in
  1381. ! nroff)
  1382. !     $cat <<'EOM'
  1383. ! However, you don't have nroff, so they're probably useless to you.
  1384. ! You can use the supplied perldoc script instead.
  1385. ! EOM
  1386. !     case "$man3dir" in
  1387. !     '') man3dir="none";;
  1388. !     esac;;
  1389. ! esac
  1390. ! 
  1391. ! case "$d_flexfnam" in
  1392. ! undef)
  1393. !     $cat <<'EOM'
  1394. ! However, your system can't handle the long file names like File::Basename.3. 
  1395. ! You can use the supplied perldoc script instead.
  1396. ! EOM
  1397. !     case "$man3dir" in
  1398. !     '') man3dir="none";;
  1399. !     esac;;
  1400. ! esac
  1401. ! 
  1402. ! echo "If you don't want the manual sources installed, answer 'none'."
  1403. ! case "$man3dir" in
  1404. ! '')    dflt="$privlib/man/man3" ;;
  1405. ! ' ') dflt=none;;
  1406. ! *)    dflt="$man3dir" ;;
  1407. ! esac
  1408. ! echo " "
  1409. ! 
  1410. ! fn=dn~
  1411. ! rp="Where do the $spackage library man pages (source) go?"
  1412. ! . ./getfile
  1413. ! if test "X$man3direxp" != "X$ansexp"; then
  1414. !     installman3dir=''
  1415. ! fi
  1416. ! 
  1417. ! man3dir="$ans"
  1418. ! man3direxp="$ansexp"
  1419. ! case "$man3dir" in
  1420. ! '') man3dir=' '
  1421. !     installman3dir='';;
  1422. ! esac
  1423. ! if $afs; then
  1424. !     $cat <<EOM
  1425. ! 
  1426. ! Since you are running AFS, I need to distinguish the directory in which
  1427. ! manual pages reside from the directory in which they are installed (and from
  1428. ! which they are presumably copied to the former directory by occult means).
  1429. ! 
  1430. ! EOM
  1431. !     case "$installman3dir" in
  1432. !     '') dflt=`echo $man3direxp | sed 's#^/afs/#/afs/.#'`;;
  1433. !     *) dflt="$installman3dir";;
  1434. !     esac
  1435. !     fn=de~
  1436. !     rp='Where will man pages be installed?'
  1437. !     . ./getfile
  1438. !     installman3dir="$ans"
  1439. ! else
  1440. !     installman3dir="$man3direxp"
  1441. ! fi
  1442. ! 
  1443. ! case "$man3dir" in
  1444. ! ' ') man3ext='0';;
  1445. ! *l) man3ext=l;;
  1446. ! *n) man3ext=n;;
  1447. ! *o) man3ext=l;;
  1448. ! *p) man3ext=n;;
  1449. ! *C) man3ext=C;;
  1450. ! *L) man3ext=L;;
  1451. ! *L3) man3ext=L3;;
  1452. ! *) man3ext=3;;
  1453.   esac
  1454.   
  1455.   : see what type is used for mode_t
  1456. ***************
  1457. *** 7060,7066 ****
  1458.   case "$sig_name" in
  1459.   '')
  1460.       echo "Generating a list of signal names..." >&4
  1461. !     xxx=`./findhdr signal.h`" "`./findhdr sys/signal.h`" "`./findhdr linux/signal.h`
  1462.       set X `cat $xxx 2>&1 | $awk '
  1463.   $1 ~ /^#define$/ && $2 ~ /^SIG[A-Z0-9]*$/ && $3 ~ /^[1-9][0-9]*$/ {
  1464.       sig[$3] = substr($2,4,20)
  1465. --- 7352,7359 ----
  1466.   case "$sig_name" in
  1467.   '')
  1468.       echo "Generating a list of signal names..." >&4
  1469. !     xxx=`./findhdr signal.h`" "`./findhdr sys/signal.h`
  1470. !     xxx="$xxx "`./findhdr linux/signal.h`
  1471.       set X `cat $xxx 2>&1 | $awk '
  1472.   $1 ~ /^#define$/ && $2 ~ /^SIG[A-Z0-9]*$/ && $3 ~ /^[1-9][0-9]*$/ {
  1473.       sig[$3] = substr($2,4,20)
  1474. ***************
  1475. *** 7638,7643 ****
  1476. --- 7931,7949 ----
  1477.       ;;
  1478.   esac
  1479.   
  1480. + : Remove build directory name from cppstdin so it can be used from
  1481. + : either the present location or the final installed location.
  1482. + echo " "
  1483. + : Get out of the UU directory to get correct path name.
  1484. + cd ..
  1485. + case "$cppstdin" in
  1486. + `pwd`/cppstdin)
  1487. +     echo "Stripping down cppstdin path name"
  1488. +     cppstdin=cppstdin
  1489. +     ;;
  1490. + esac
  1491. + cd UU
  1492. + 
  1493.   : end of configuration questions
  1494.   echo " "
  1495.   echo "End of configuration questions."
  1496. ***************
  1497. *** 7796,7802 ****
  1498.   d_isascii='$d_isascii'
  1499.   d_killpg='$d_killpg'
  1500.   d_link='$d_link'
  1501. - d_linuxstd='$d_linuxstd'
  1502.   d_locconv='$d_locconv'
  1503.   d_lockf='$d_lockf'
  1504.   d_lstat='$d_lstat'
  1505. --- 8102,8107 ----
  1506. ***************
  1507. *** 7865,7873 ****
  1508. --- 8170,8180 ----
  1509.   d_shmdt='$d_shmdt'
  1510.   d_shmget='$d_shmget'
  1511.   d_shrplib='$d_shrplib'
  1512. + d_sitelib='$d_sitelib'
  1513.   d_socket='$d_socket'
  1514.   d_sockpair='$d_sockpair'
  1515.   d_statblks='$d_statblks'
  1516. + d_stdiobase='$d_stdiobase'
  1517.   d_stdstdio='$d_stdstdio'
  1518.   d_strchr='$d_strchr'
  1519.   d_strcoll='$d_strcoll'
  1520. ***************
  1521. *** 7983,7991 ****
  1522.   inews='$inews'
  1523.   installarchlib='$installarchlib'
  1524.   installbin='$installbin'
  1525. ! installmansrc='$installmansrc'
  1526.   installprivlib='$installprivlib'
  1527.   installscript='$installscript'
  1528.   intsize='$intsize'
  1529.   known_extensions='$known_extensions'
  1530.   ksh='$ksh'
  1531. --- 8290,8300 ----
  1532.   inews='$inews'
  1533.   installarchlib='$installarchlib'
  1534.   installbin='$installbin'
  1535. ! installman1dir='$installman1dir'
  1536. ! installman3dir='$installman3dir'
  1537.   installprivlib='$installprivlib'
  1538.   installscript='$installscript'
  1539. + installsitelib='$installsitelib'
  1540.   intsize='$intsize'
  1541.   known_extensions='$known_extensions'
  1542.   ksh='$ksh'
  1543. ***************
  1544. *** 8013,8021 ****
  1545.   mallocobj='$mallocobj'
  1546.   mallocsrc='$mallocsrc'
  1547.   malloctype='$malloctype'
  1548. ! manext='$manext'
  1549. ! mansrc='$mansrc'
  1550. ! mansrcexp='$mansrcexp'
  1551.   medium='$medium'
  1552.   mips='$mips'
  1553.   mips_type='$mips_type'
  1554. --- 8322,8333 ----
  1555.   mallocobj='$mallocobj'
  1556.   mallocsrc='$mallocsrc'
  1557.   malloctype='$malloctype'
  1558. ! man1dir='$man1dir'
  1559. ! man1direxp='$man1direxp'
  1560. ! man1ext='$man1ext'
  1561. ! man3dir='$man3dir'
  1562. ! man3direxp='$man3direxp'
  1563. ! man3ext='$man3ext'
  1564.   medium='$medium'
  1565.   mips='$mips'
  1566.   mips_type='$mips_type'
  1567. ***************
  1568. *** 8067,8072 ****
  1569. --- 8379,8386 ----
  1570.   shsharp='$shsharp'
  1571.   sig_name='$sig_name'
  1572.   signal_t='$signal_t'
  1573. + sitelib='$sitelib'
  1574. + sitelibexp='$sitelibexp'
  1575.   sizetype='$sizetype'
  1576.   sleep='$sleep'
  1577.   smail='$smail'
  1578. ***************
  1579. *** 8082,8087 ****
  1580. --- 8396,8405 ----
  1581.   startsh='$startsh'
  1582.   static_ext='$static_ext'
  1583.   stdchar='$stdchar'
  1584. + stdio_base='$stdio_base'
  1585. + stdio_bufsiz='$stdio_bufsiz'
  1586. + stdio_cnt='$stdio_cnt'
  1587. + stdio_ptr='$stdio_ptr'
  1588.   strings='$strings'
  1589.   submit='$submit'
  1590.   sysman='$sysman'
  1591. Index: MANIFEST
  1592. *** perl5.001h/MANIFEST    Thu Apr 13 10:38:43 1995
  1593. --- perl5.001i/MANIFEST    Tue May 30 13:45:16 1995
  1594. ***************
  1595. *** 1,5 ****
  1596.   Artistic        The "Artistic License"
  1597. ! Changes            Differences between Perl 4 and Perl 5
  1598.   Configure        Portability tool
  1599.   Copying            The GNU General Public License
  1600.   Doc/perl5-notes        Samples of new functionality
  1601. --- 1,6 ----
  1602.   Artistic        The "Artistic License"
  1603. ! Changes            Differences from previous versions.
  1604. ! Changes.Conf        Recent changes in the Configure & build process
  1605.   Configure        Portability tool
  1606.   Copying            The GNU General Public License
  1607.   Doc/perl5-notes        Samples of new functionality
  1608. ***************
  1609. *** 11,29 ****
  1610.   README.vms        Notes about VMS
  1611.   Todo            The Wishlist
  1612.   XSUB.h            Include file for extension subroutines
  1613. - autosplit        Splits up autoloader functions
  1614.   av.c            Array value code
  1615.   av.h            Array value header
  1616.   c2ph.SH            program to translate dbx stabs to perl
  1617.   c2ph.doc        documentation for c2ph
  1618.   cflags.SH        A script that emits C compilation flags per file
  1619. ! config.H        Sample config.h
  1620.   config_h.SH        Produces config.h
  1621.   configpm        Produces lib/Config.pm
  1622.   cop.h            Control operator header
  1623.   cv.h            Code value header
  1624.   deb.c            Debugging routines
  1625. - doSH            Script to run all the *.SH files
  1626.   doio.c            I/O operations
  1627.   doop.c            Support code for various operations
  1628.   dosish.h        Some defines for MS/DOSish machines
  1629. --- 12,29 ----
  1630.   README.vms        Notes about VMS
  1631.   Todo            The Wishlist
  1632.   XSUB.h            Include file for extension subroutines
  1633.   av.c            Array value code
  1634.   av.h            Array value header
  1635.   c2ph.SH            program to translate dbx stabs to perl
  1636.   c2ph.doc        documentation for c2ph
  1637.   cflags.SH        A script that emits C compilation flags per file
  1638. ! config_H        Sample config.h
  1639.   config_h.SH        Produces config.h
  1640.   configpm        Produces lib/Config.pm
  1641. + configure        Crude emulation of GNU configure
  1642.   cop.h            Control operator header
  1643.   cv.h            Code value header
  1644.   deb.c            Debugging routines
  1645.   doio.c            I/O operations
  1646.   doop.c            Support code for various operations
  1647.   dosish.h        Some defines for MS/DOSish machines
  1648. ***************
  1649. *** 85,91 ****
  1650.   ext/DB_File/DB_File_BS        Berkeley DB extension mkbootstrap fodder
  1651.   ext/DB_File/Makefile.PL        Berkeley DB extension makefile writer
  1652.   ext/DB_File/typemap        Berkeley DB extension interface types
  1653. - ext/DynaLoader/DynaLoader.doc    Dynamic Loader specification
  1654.   ext/DynaLoader/DynaLoader.pm    Dynamic Loader perl module
  1655.   ext/DynaLoader/Makefile.PL    Dynamic Loader makefile writer
  1656.   ext/DynaLoader/README        Dynamic Loader notes and intro
  1657. --- 85,90 ----
  1658. ***************
  1659. *** 187,192 ****
  1660. --- 186,192 ----
  1661.   hints/dgux.sh        Hints for named architecture
  1662.   hints/dnix.sh        Hints for named architecture
  1663.   hints/dynix.sh        Hints for named architecture
  1664. + hints/epix.sh        Hints for named architecture
  1665.   hints/esix4.sh        Hints for named architecture
  1666.   hints/fps.sh        Hints for named architecture
  1667.   hints/freebsd.sh    Hints for named architecture
  1668. ***************
  1669. *** 230,235 ****
  1670. --- 230,236 ----
  1671.   hints/uts.sh        Hints for named architecture
  1672.   hv.c            Hash value code
  1673.   hv.h            Hash value header
  1674. + installman        Perl script to install man pages for pods.
  1675.   installperl        Perl script to do "make install" dirty work
  1676.   interp.sym        Interpreter specific symbols to hide in a struct
  1677.   ioctl.pl        Sample ioctl.pl
  1678. ***************
  1679. *** 263,268 ****
  1680. --- 264,270 ----
  1681.   lib/Net/Ping.pm        Ping methods
  1682.   lib/Search/Dict.pm    A module to do binary search on dictionaries
  1683.   lib/Shell.pm        A module to make AUTOLOADEed system() calls
  1684. + lib/SubstrHash.pm    Compact hash for known key, value and table size
  1685.   lib/Sys/Hostname.pm    Hostname methods
  1686.   lib/Sys/Syslog.pm    Perl module supporting syslogging
  1687.   lib/Term/Cap.pm        Perl module supporting termcap usage
  1688. ***************
  1689. *** 273,279 ****
  1690.   lib/Text/Soundex.pm    Perl module to implement Soundex
  1691.   lib/Text/Tabs.pm    Do expand and unexpand
  1692.   lib/TieHash.pm        Base class for tied hashes
  1693. - lib/SubstrHash.pm    Compact hash for known key, value and table size
  1694.   lib/Time/Local.pm    Reverse translation of localtime, gmtime
  1695.   lib/abbrev.pl        An abbreviation table builder
  1696.   lib/assert.pl        assertion and panic with stack trace
  1697. --- 275,280 ----
  1698. ***************
  1699. *** 334,339 ****
  1700. --- 335,341 ----
  1701.   perl.c            main()
  1702.   perl.h            Global declarations
  1703.   perl_exp.SH        Creates list of exported symbols for AIX.
  1704. + perldoc.SH        A simple tool to find & display perl's documentation
  1705.   perlsh            A poor man's perl shell
  1706.   perly.c            A byacc'ed perly.y
  1707.   perly.c.diff        Fixup perly.c to allow recursion
  1708. ***************
  1709. *** 342,380 ****
  1710.   perly.y            Yacc grammar for perl
  1711.   pl2pm            A pl to pm translator
  1712.   pod/Makefile        Make pods into something else
  1713. - pod/modpods/Abbrev.pod        Doc for Abbrev.pm
  1714. - pod/modpods/AnyDBMFile.pod    Doc for AnyDBMFile.pm
  1715. - pod/modpods/AutoLoader.pod    Doc for AutoLoader.pm
  1716. - pod/modpods/AutoSplit.pod    Doc for AutoSplit.pm
  1717. - pod/modpods/Basename.pod    Doc for Basename.pm
  1718. - pod/modpods/Benchmark.pod    Doc for Benchmark.pm
  1719. - pod/modpods/Carp.pod        Doc for Carp.pm
  1720. - pod/modpods/CheckTree.pod    Doc for CheckTree.pm
  1721. - pod/modpods/Collate.pod        Doc for Collate.pm
  1722. - pod/modpods/Config.pod        Doc for Config.pm
  1723. - pod/modpods/Cwd.pod        Doc for Cwd.pm
  1724. - pod/modpods/DB_File.pod        Doc for File.pm
  1725. - pod/modpods/Dynaloader.pod    Doc for Dynaloader.pm
  1726. - pod/modpods/English.pod        Doc for English.pm
  1727. - pod/modpods/Env.pod        Doc for Env.pm
  1728. - pod/modpods/Exporter.pod    Doc for Exporter.pm
  1729. - pod/modpods/Fcntl.pod        Doc for Fcntl.pm
  1730. - pod/modpods/FileHandle.pod    Doc for FileHandle.pm
  1731. - pod/modpods/Find.pod        Doc for Find.pm
  1732. - pod/modpods/Finddepth.pod    Doc for Finddepth.pm
  1733. - pod/modpods/GetOptions.pod    Doc for GetOptions.pm
  1734. - pod/modpods/Getopt.pod        Doc for Getopt.pm
  1735. - pod/modpods/MakeMaker.pod    Doc for MakeMaker.pm
  1736. - pod/modpods/Open2.pod        Doc for Open2.pm
  1737. - pod/modpods/Open3.pod        Doc for Open3.pm
  1738. - pod/modpods/POSIX.pod        Doc for POSIX.pm
  1739. - pod/modpods/Ping.pod        Doc for Ping.pm
  1740. - pod/modpods/Socket.pod        Doc for Socket.pm
  1741. - pod/modpods/integer.pod        Doc for integer.pm
  1742. - pod/modpods/less.pod        Doc for less.pm
  1743. - pod/modpods/sigtrap.pod        Doc for sigtrap.pm
  1744. - pod/modpods/strict.pod        Doc for strict.pm
  1745. - pod/modpods/subs.pod        Doc for subs.pm
  1746.   pod/perl.pod        Top level perl man page
  1747.   pod/perlapi.pod        XS api info
  1748.   pod/perlbook.pod    Book info
  1749. --- 344,349 ----
  1750. ***************
  1751. *** 435,440 ****
  1752. --- 404,410 ----
  1753.   t/cmd/switch.t        See if switch optimizations work
  1754.   t/cmd/while.t        See if while loops work
  1755.   t/comp/cmdopt.t        See if command optimization works
  1756. + t/comp/cpp.aux        main file for cpp.t
  1757.   t/comp/cpp.t        See if C preprocessor works
  1758.   t/comp/decl.t        See if declarations work
  1759.   t/comp/multiline.t    See if multiline strings work
  1760. ***************
  1761. *** 561,564 ****
  1762.   x2p/util.c        Utility routines
  1763.   x2p/util.h        Public declarations for the above
  1764.   x2p/walk.c        Parse tree walker
  1765. - xf            A script to translate Perl 4 symbols to Perl 5
  1766. --- 531,533 ----
  1767. Index: Makefile.SH
  1768. *** perl5.001h/Makefile.SH    Sat Apr 15 11:32:18 1995
  1769. --- perl5.001i/Makefile.SH    Tue May 30 13:41:15 1995
  1770. ***************
  1771. *** 78,88 ****
  1772.   BYACC = $byacc
  1773.   CC = $cc
  1774.   LD = $ld
  1775. ! bin = $installbin
  1776. ! scriptdir = $scriptdir
  1777. ! privlib = $installprivlib
  1778. ! mansrc = $mansrc
  1779. ! manext = $manext
  1780.   LDFLAGS = $ldflags
  1781.   CLDFLAGS = $ldflags
  1782.   
  1783. --- 78,84 ----
  1784.   BYACC = $byacc
  1785.   CC = $cc
  1786.   LD = $ld
  1787. ! 
  1788.   LDFLAGS = $ldflags
  1789.   CLDFLAGS = $ldflags
  1790.   
  1791. ***************
  1792. *** 94,99 ****
  1793. --- 90,107 ----
  1794.   RMS = rm -f
  1795.   ranlib = $ranlib
  1796.   
  1797. + # The following are mentioned only to make metaconfig include the
  1798. + # appropriate questions in Configure.  If you want to change these,
  1799. + # edit config.sh instead, or specify --man1dir=/wherever on 
  1800. + # installman commandline.
  1801. + bin = $installbin
  1802. + scriptdir = $scriptdir
  1803. + privlib = $installprivlib
  1804. + man1dir = $man1dir
  1805. + man1ext = $man1ext
  1806. + man3dir = $man3dir
  1807. + man3ext = $man3ext
  1808. + 
  1809.   # The following are used to build and install shared libraries for
  1810.   # dynamic loading.
  1811.   LDDLFLAGS = $lddlflags
  1812. ***************
  1813. *** 127,139 ****
  1814.   
  1815.   private = preplibrary lib/ExtUtils/Miniperl.pm lib/Config.pm
  1816.   
  1817. ! scripts =
  1818. ! 
  1819. ! manpages = perl.man
  1820. ! 
  1821. ! util =
  1822.   
  1823. ! sh = Makefile.SH cflags.SH makedepend.SH makedir.SH writemain.SH
  1824.   
  1825.   h1 = EXTERN.h INTERN.h XSUB.h av.h config.h cop.h cv.h dosish.h
  1826.   h2 = embed.h form.h gv.h handy.h hv.h keywords.h mg.h op.h
  1827. --- 135,145 ----
  1828.   
  1829.   private = preplibrary lib/ExtUtils/Miniperl.pm lib/Config.pm
  1830.   
  1831. ! sh = Makefile.SH c2ph.SH cflags.SH config_h.SH h2ph.SH h2xs.SH makeaperl.SH \
  1832. !     makedepend.SH makedir.SH perl_exp.SH perldoc.SH writemain.SH
  1833.   
  1834. ! addedbyconf = UU Makefile c2ph cflags config.h h2ph h2xs makeaperl \
  1835. !     makedepend makedir perl_exp perldoc writemain
  1836.   
  1837.   h1 = EXTERN.h INTERN.h XSUB.h av.h config.h cop.h cv.h dosish.h
  1838.   h2 = embed.h form.h gv.h handy.h hv.h keywords.h mg.h op.h
  1839. ***************
  1840. *** 166,173 ****
  1841.   
  1842.   lintflags = -hbvxac
  1843.   
  1844. - addedbyconf = UU
  1845. - 
  1846.   # grrr
  1847.   SHELL = /bin/sh
  1848.   
  1849. --- 172,177 ----
  1850. ***************
  1851. *** 176,190 ****
  1852.   
  1853.   all: makefile miniperl $(private) $(public) $(dynamic_ext)
  1854.       @echo " "; echo "    Making x2p stuff"; cd x2p; $(MAKE) all
  1855. !     @echo " "; echo "    Making docs"; cd pod; $(MAKE) all;
  1856.   
  1857.   # Phony target to force checking subdirectories.
  1858.   FORCE:
  1859.   
  1860. - !NO!SUBS!
  1861. - 
  1862. - : Now on to the rest of the Makefile.
  1863. - $spitshell >>Makefile <<'!NO!SUBS!'
  1864.   # The $& notation tells Sequent machines that it can do a parallel make,
  1865.   # and is harmless otherwise.
  1866.   
  1867. --- 180,192 ----
  1868.   
  1869.   all: makefile miniperl $(private) $(public) $(dynamic_ext)
  1870.       @echo " "; echo "    Making x2p stuff"; cd x2p; $(MAKE) all
  1871. !     
  1872. ! # This is now done by installman only if you actually want the man pages.
  1873. ! #    @echo " "; echo "    Making docs"; cd pod; $(MAKE) all;
  1874.   
  1875.   # Phony target to force checking subdirectories.
  1876.   FORCE:
  1877.   
  1878.   # The $& notation tells Sequent machines that it can do a parallel make,
  1879.   # and is harmless otherwise.
  1880.   
  1881. ***************
  1882. *** 250,260 ****
  1883.       $(CCCMD) -DIAMSUID sperl.c
  1884.       $(RMS) sperl.c
  1885.   
  1886.   opcode.h: opcode.pl
  1887.       - perl opcode.pl
  1888.   
  1889.   embed.h: embed_h.sh global.sym interp.sym
  1890. !     sh embed_h.sh
  1891.   
  1892.   # We have to call our ./makedir because Ultrix 4.3 make can't handle the line
  1893.   #    test -d lib/auto || mkdir lib/auto
  1894. --- 252,273 ----
  1895.       $(CCCMD) -DIAMSUID sperl.c
  1896.       $(RMS) sperl.c
  1897.   
  1898. + # The following three header files are generated automatically
  1899. + # The correct versions should be already supplied with the perl kit,
  1900. + # in case you don't have perl or 'sh' available.
  1901. + # The - is to ignore error return codes in case you have the source
  1902. + # installed read-only or you don't have perl yet.
  1903. + keywords.h: keywords.pl
  1904. +     @echo "Don't worry if this fails."
  1905. +     - perl keywords.pl
  1906. + 
  1907.   opcode.h: opcode.pl
  1908. +     @echo "Don't worry if this fails."
  1909.       - perl opcode.pl
  1910.   
  1911.   embed.h: embed_h.sh global.sym interp.sym
  1912. !     @echo "Don't worry if this fails."
  1913. !     - sh embed_h.sh
  1914.   
  1915.   # We have to call our ./makedir because Ultrix 4.3 make can't handle the line
  1916.   #    test -d lib/auto || mkdir lib/auto
  1917. ***************
  1918. *** 273,281 ****
  1919.   lib/ExtUtils/Miniperl.pm: miniperlmain.c miniperl minimod.PL lib/Config.pm
  1920.       ./miniperl minimod.PL > tmp && mv tmp $@
  1921.   
  1922. ! install: all
  1923.       ./perl installperl
  1924.   
  1925.   # I now supply perly.c with the kits, so the following section is
  1926.   # used only if you force byacc to run by saying
  1927.   #     make run_byacc
  1928. --- 286,303 ----
  1929.   lib/ExtUtils/Miniperl.pm: miniperlmain.c miniperl minimod.PL lib/Config.pm
  1930.       ./miniperl minimod.PL > tmp && mv tmp $@
  1931.   
  1932. ! install: all install.perl install.man
  1933. ! 
  1934. ! install.perl:    all
  1935.       ./perl installperl
  1936.   
  1937. + install.man:    all
  1938. +     ./perl installman
  1939. + 
  1940. + # Not implemented yet.
  1941. + #install.html:    all
  1942. + #    ./perl installhtml
  1943. + 
  1944.   # I now supply perly.c with the kits, so the following section is
  1945.   # used only if you force byacc to run by saying
  1946.   #     make run_byacc
  1947. ***************
  1948. *** 336,347 ****
  1949.       done
  1950.       rm -f *.orig */*.orig *~ */*~ core t/core t/c t/perl
  1951.       rm -rf $(addedbyconf)
  1952. !     rm -f Makefile cflags makedepend makedir writemain
  1953. !     rm -f config.h makefile makefile.old
  1954.       rm -f $(private)
  1955.       rm -rf lib/auto
  1956.       rm -f lib/.exists
  1957. !     rm -f h2ph h2ph.man c2ph pstruct h2xs makeaperl
  1958.       rm -rf .config
  1959.       @echo "Note that make realclean does not delete config.sh"
  1960.   
  1961. --- 358,368 ----
  1962.       done
  1963.       rm -f *.orig */*.orig *~ */*~ core t/core t/c t/perl
  1964.       rm -rf $(addedbyconf)
  1965. !     rm -f makefile makefile.old
  1966.       rm -f $(private)
  1967.       rm -rf lib/auto
  1968.       rm -f lib/.exists
  1969. !     rm -f h2ph.man pstruct
  1970.       rm -rf .config
  1971.       @echo "Note that make realclean does not delete config.sh"
  1972.   
  1973. ***************
  1974. *** 373,378 ****
  1975. --- 394,404 ----
  1976.   test: miniperl perl preplibrary $(dynamic_ext)
  1977.       - cd t && chmod +x TEST */*.t
  1978.       - cd t && (rm -f perl; $(LNS) ../perl perl) && ./perl TEST </dev/tty
  1979. + 
  1980. + minitest: miniperl
  1981. +     - cd t && chmod +x TEST */*.t
  1982. +     - cd t && (rm -f perl; $(LNS) ../miniperl perl) \
  1983. +         && ./perl TEST base/*.t comp/*.t cmd/*.t io/*.t op/*.t </dev/tty
  1984.   
  1985.   clist:    $(c)
  1986.       echo $(c) | tr ' ' '\012' >.clist
  1987. Index: README
  1988. *** perl5.001h/README    Thu Apr  6 14:08:57 1995
  1989. --- perl5.001i/README    Tue May 30 16:00:51 1995
  1990. ***************
  1991. *** 68,81 ****
  1992.       run ok, the defaults will usually be right.  It will then proceed to
  1993.       make config.h, config.sh, and Makefile.  You may have to explicitly
  1994.       say     sh Configure    to ensure that Configure is run under sh.
  1995. !     If you're a hotshot, run Configure -d to take all the defaults and
  1996. !     then edit config.sh to patch up any flaws and run Configure -S.
  1997.   
  1998.       Configure supports a number of useful options.  Run Configure -h 
  1999.       to get a listing.  To compile with gcc, for example, you can run 
  2000. !     Configure -Dcc=gcc, or answer 'gcc' at the cc prompt.  This is the
  2001. !     preferred way to invoke an alternate compiler, since the hints
  2002. !     files can then set appropriate defaults.
  2003.       
  2004.       If you change compilers or make other significant changes, you should
  2005.       probably _not_ re-use your old config.sh.  Simply remove it or
  2006. --- 68,83 ----
  2007.       run ok, the defaults will usually be right.  It will then proceed to
  2008.       make config.h, config.sh, and Makefile.  You may have to explicitly
  2009.       say     sh Configure    to ensure that Configure is run under sh.
  2010. !     If you're a hotshot, run Configure -d to take all the defaults,
  2011. !     edit config.sh to patch up any flaws, and then run Configure -S.
  2012.   
  2013.       Configure supports a number of useful options.  Run Configure -h 
  2014.       to get a listing.  To compile with gcc, for example, you can run 
  2015. !     Configure -Dcc=gcc, or answer 'gcc' at the cc prompt.  
  2016. !     
  2017. !     If you wish to use gcc (or another alternative compiler))
  2018. !     you should use  Configure -Dcc=gcc.  That way, the the hints
  2019. !     files can set appropriate defaults.
  2020.       
  2021.       If you change compilers or make other significant changes, you should
  2022.       probably _not_ re-use your old config.sh.  Simply remove it or
  2023. ***************
  2024. *** 94,100 ****
  2025.       if your sh doesn't handle them, but all other # comments will be taken
  2026.       care of.
  2027.   
  2028. !     (If you don't have sh, you'll have to copy the sample file config.H to
  2029.       config.h and edit the config.h to reflect your system's peculiarities.)
  2030.   
  2031.   2)  Glance through config.h to make sure system dependencies are correct.
  2032. --- 96,102 ----
  2033.       if your sh doesn't handle them, but all other # comments will be taken
  2034.       care of.
  2035.   
  2036. !     (If you don't have sh, you'll have to copy the sample file config_H to
  2037.       config.h and edit the config.h to reflect your system's peculiarities.)
  2038.   
  2039.   2)  Glance through config.h to make sure system dependencies are correct.
  2040. ***************
  2041. *** 130,166 ****
  2042.       Makefile.SH, since a default rule only takes effect in the
  2043.       absence of a specific rule.
  2044.   
  2045. !     Many of the following hints are now done automatically by Configure.
  2046. !     Some of the hints here were for Perl 4, and are probably obsolete.
  2047. !     They're left here for the moment just to give you some ideas for
  2048. !     what to try if you're having trouble.
  2049. ! 
  2050. !     AIX/RT may need a -a switch and -DCRIPPLED_CC.
  2051. !     Ultrix 3.[01] on MIPS needs to undefine WAITPID--the system call is busted.
  2052. !     MIPS machines may need to undef d_volatile.
  2053. !     MIPS machines may need to turn off -O on some files.
  2054. !     Some MIPS machines may need to undefine CASTNEGFLOAT.
  2055.       Genix may need to use libc rather than libc_s, or #undef VARARGS.
  2056.       NCR Tower 32 (OS 2.01.01) may need -W2,-Sl,2000 and #undef MKDIR.
  2057. !     A/UX may appear to work with -O -B/usr/lib/big/ optimizer flags.
  2058. !     A/UX may need -lposix to find rewinddir.
  2059. !     A/UX may need -ZP -DPOSIX, and -g if big cc is used.
  2060.       UTS may need one or more of -DCRIPPLED_CC, -K or -g, and undef LSTAT.
  2061.       If you get syntax errors on '(', try -DCRIPPLED_CC.
  2062.       Machines with half-implemented dbm routines will need to #undef I_ODBM 
  2063.       SCO prior to 3.2.4 may be missing dbmclose().  An upgrade to 3.2.4
  2064.       that includes libdbm.nfs (which includes dbmclose()) may be available.
  2065.       If you get duplicates upon linking for malloc et al, say -DHIDEMYMALLOC.
  2066.       If you get duplicate function definitions (a perl function has the
  2067.       same name as another function on your system) try -DEMBED.
  2068.       If you get varags problems with gcc, be sure that gcc is installed
  2069.       correctly.  When using gcc, you should probably have i_stdarg='define'
  2070. !     and i_varags='undef' in config.sh.
  2071.       If you wish to use dynamic loading on SunOS or Solaris, and you
  2072.       have GNU as and GNU ld installed, you may need to add -B/bin/ to
  2073.       your $ccflags and $ldflags so that the system's versions of as 
  2074.       and ld are used.
  2075.   
  2076.   5)  make test
  2077.   
  2078.       This will run the regression tests on the perl you just made.
  2079. --- 132,181 ----
  2080.       Makefile.SH, since a default rule only takes effect in the
  2081.       absence of a specific rule.
  2082.   
  2083. !     If you used a hint file, try reading the comments in the hint file
  2084. !     for further tips and information.
  2085. ! 
  2086. !     If you can successfully build miniperl, but the process crashes
  2087. !     during the building of extensions, you should run
  2088. !         make minitest
  2089. !     to test your version of miniperl.
  2090. ! 
  2091. !     Some additional things that have been reported for either perl4 or
  2092. !     perl5:
  2093. ! 
  2094.       Genix may need to use libc rather than libc_s, or #undef VARARGS.
  2095. + 
  2096.       NCR Tower 32 (OS 2.01.01) may need -W2,-Sl,2000 and #undef MKDIR.
  2097. ! 
  2098.       UTS may need one or more of -DCRIPPLED_CC, -K or -g, and undef LSTAT.
  2099. + 
  2100.       If you get syntax errors on '(', try -DCRIPPLED_CC.
  2101. + 
  2102.       Machines with half-implemented dbm routines will need to #undef I_ODBM 
  2103. + 
  2104.       SCO prior to 3.2.4 may be missing dbmclose().  An upgrade to 3.2.4
  2105.       that includes libdbm.nfs (which includes dbmclose()) may be available.
  2106. + 
  2107.       If you get duplicates upon linking for malloc et al, say -DHIDEMYMALLOC.
  2108. + 
  2109.       If you get duplicate function definitions (a perl function has the
  2110.       same name as another function on your system) try -DEMBED.
  2111. + 
  2112.       If you get varags problems with gcc, be sure that gcc is installed
  2113.       correctly.  When using gcc, you should probably have i_stdarg='define'
  2114. !     and i_varags='undef' in config.sh.  The problem is usually solved
  2115. !     by running fixincludes correctly.
  2116. ! 
  2117.       If you wish to use dynamic loading on SunOS or Solaris, and you
  2118.       have GNU as and GNU ld installed, you may need to add -B/bin/ to
  2119.       your $ccflags and $ldflags so that the system's versions of as 
  2120.       and ld are used.
  2121.   
  2122. +     If you run into dynamic loading problems, check your setting of
  2123. +     the LD_LIBRARY_PATH environment variable.  Perl should build 
  2124. +     fine with LD_LIBRARY_PATH unset, though that may depend on details
  2125. +     of your local set-up.
  2126. + 
  2127.   5)  make test
  2128.   
  2129.       This will run the regression tests on the perl you just made.
  2130. ***************
  2131. *** 173,185 ****
  2132.   
  2133.   6)  make install
  2134.   
  2135. !     This will put perl into a public directory (such as /usr/local/bin).
  2136. !     It will also try to put the man pages in a reasonable place.  It will not
  2137. !     nroff the man page, however.  You may need to be root to do this.  If
  2138. !     you are not root, you must own the directories in question and you should
  2139. !     ignore any messages about chown not working.
  2140.   
  2141. !     make install will also install the following:
  2142.       perl,
  2143.           perl5.nnn    where nnn is the current release number.  This
  2144.               will be a link to perl.
  2145. --- 188,201 ----
  2146.   
  2147.   6)  make install
  2148.   
  2149. !     This will put perl into a public directory (such as
  2150. !     /usr/local/bin).  It will also try to put the man pages in a
  2151. !     reasonable place.  It will not nroff the man page, however.  You
  2152. !     may need to be root to run make install.  If you are not root, you
  2153. !     must own the directories in question and you should ignore any
  2154. !     messages about chown not working.
  2155.   
  2156. !     make install will install the following:
  2157.       perl,
  2158.           perl5.nnn    where nnn is the current release number.  This
  2159.               will be a link to perl.
  2160. ***************
  2161. *** 192,197 ****
  2162. --- 208,214 ----
  2163.       s2p        sed-to-perl translator
  2164.       find2perl    find-to-perl translator
  2165.       h2xs        Converts C .h header files to Perl extensions.
  2166. +     perldoc        Tool to read perl's pod documentation.
  2167.       pod2html,    Converters from perl's pod documentation format
  2168.       pod2latex, and     to other useful formats.
  2169.       pod2man
  2170. ***************
  2171. *** 200,205 ****
  2172. --- 217,225 ----
  2173.               Configure, usually under /usr/local/lib/perl5/.
  2174.       man pages    in the location specified to Configure, usually
  2175.               something like /usr/local/man/man1.
  2176. +     module        in the location specified to Configure, usually
  2177. +     man pages    under /usr/local/lib/perl5/man/man3.
  2178. +     pod/*.pod    in $privlib/pod/.
  2179.   
  2180.       Perl's *.h header files and the libperl.a library are also
  2181.       installed under $archlib so that you may later build new
  2182. ***************
  2183. *** 208,216 ****
  2184.       make install may also offer to install perl in a "standard" location.
  2185.       
  2186.       Most of the documentation in the pod/ directory is also available 
  2187. !     in HTML format.  Type
  2188.       cd pod; make html; cd ..
  2189. !     to generate the html versions.
  2190.   
  2191.   7)  Read the manual entries before running perl.
  2192.   
  2193. --- 228,238 ----
  2194.       make install may also offer to install perl in a "standard" location.
  2195.       
  2196.       Most of the documentation in the pod/ directory is also available 
  2197. !     in HTML and LaTeX format.  Type
  2198.       cd pod; make html; cd ..
  2199. !     to generate the html versions, and
  2200. !     cd pod; make tex; cd ..
  2201. !     to generate the LaTeX versions.
  2202.   
  2203.   7)  Read the manual entries before running perl.
  2204.   
  2205. Index: README.vms
  2206. *** perl5.001h/README.vms    Mon Mar  6 19:59:34 1995
  2207. --- perl5.001i/README.vms    Tue May 30 14:43:49 1995
  2208. ***************
  2209. *** 211,217 ****
  2210.   internals, you might want to subscribe to the perl5-porters mailing list.  You
  2211.   can do this by sending a message to perl5-porters-request@nicoh.com, containing
  2212.   the single line
  2213. ! subscribe perl5-porters Your Name Here
  2214.   This is a moderately high-volume list at the moment (25-50 messages/day).
  2215.   
  2216.   Finally, if you're interested in ongoing information about the VMS port, you
  2217. --- 211,217 ----
  2218.   internals, you might want to subscribe to the perl5-porters mailing list.  You
  2219.   can do this by sending a message to perl5-porters-request@nicoh.com, containing
  2220.   the single line
  2221. ! subscribe perl5-porters
  2222.   This is a moderately high-volume list at the moment (25-50 messages/day).
  2223.   
  2224.   Finally, if you're interested in ongoing information about the VMS port, you
  2225. Index: config_H
  2226. Prereq:  3.0.1.3 
  2227. *** perl5.001h/config_H    Thu Apr  6 14:10:48 1995
  2228. --- perl5.001i/config_H    Tue May 30 16:01:51 1995
  2229. ***************
  2230. *** 1,4 ****
  2231. ! /* This file (config.H) is a sample config.h file.  If you are unable
  2232.      to successfully run Configure, copy this file to config.h and
  2233.      edit it to suit your system.
  2234.   */
  2235. --- 1,4 ----
  2236. ! /* This file (config_H) is a sample config.h file.  If you are unable
  2237.      to successfully run Configure, copy this file to config.h and
  2238.      edit it to suit your system.
  2239.   */
  2240. ***************
  2241. *** 14,20 ****
  2242.    * $Id: Config_h.U,v 3.0.1.3 1995/01/30 14:25:39 ram Exp $
  2243.    */
  2244.   
  2245. ! /* Configuration time: Wed Apr  5 14:50:33 EDT 1995
  2246.    * Configured by: andy
  2247.    * Target system: crystal crystal 3.2 2 i386 
  2248.    */
  2249. --- 14,20 ----
  2250.    * $Id: Config_h.U,v 3.0.1.3 1995/01/30 14:25:39 ram Exp $
  2251.    */
  2252.   
  2253. ! /* Configuration time: Tue May 30 13:05:37 EDT 1995
  2254.    * Configured by: andy
  2255.    * Target system: crystal crystal 3.2 2 i386 
  2256.    */
  2257. ***************
  2258. *** 161,167 ****
  2259.    *    This symbol, if defined, indicates that the chsize routine is available
  2260.    *    to truncate files.  You might need a -lx to get this routine.
  2261.    */
  2262. ! #define    HAS_CHSIZE        /**/
  2263.   
  2264.   /* VOID_CLOSEDIR:
  2265.    *    This symbol, if defined, indicates that the closedir() routine
  2266. --- 161,167 ----
  2267.    *    This symbol, if defined, indicates that the chsize routine is available
  2268.    *    to truncate files.  You might need a -lx to get this routine.
  2269.    */
  2270. ! /*#define    HAS_CHSIZE        /**/
  2271.   
  2272.   /* VOID_CLOSEDIR:
  2273.    *    This symbol, if defined, indicates that the closedir() routine
  2274. ***************
  2275. *** 296,301 ****
  2276. --- 296,306 ----
  2277.    *    a macro using sprintf("%g") is used. Arguments for the Gconvert
  2278.    *    macro are: value, number of digits, whether trailing zeros should
  2279.    *    be retained, and the output buffer.
  2280. +  *    Possible values are:
  2281. +  *        d_Gconvert='gconvert((x),(n),(t),(b))'
  2282. +  *        d_Gconvert='gcvt((x),(n),(b))'
  2283. +  *        d_Gconvert='sprintf((b),"%.*g",(n),(x))'
  2284. +  *    The last two assume trailing zeros should not be kept.
  2285.    */
  2286.   #define Gconvert(x,n,t,b) sprintf((b),"%.*g",(n),(x))
  2287.   
  2288. ***************
  2289. *** 393,404 ****
  2290.    */
  2291.   #define HAS_LINK    /**/
  2292.   
  2293. - /* USE_LINUX_STDIO:
  2294. -  *    This symbol is defined if this system has a FILE structure declaring
  2295. -  *    _IO_read_base, _IO_read_ptr, and _IO_read_end in stdio.h.
  2296. -  */
  2297. - /*#define USE_LINUX_STDIO     /**/
  2298. - 
  2299.   /* HAS_LOCALECONV:
  2300.    *    This symbol, if defined, indicates that the localeconv routine is
  2301.    *    available for numeric and monetary formatting conventions.
  2302. --- 398,403 ----
  2303. ***************
  2304. *** 735,745 ****
  2305.    */
  2306.   /*#define USE_STAT_BLOCKS     /**/
  2307.   
  2308. ! /* USE_STD_STDIO:
  2309. !  *    This symbol is defined if this system has a FILE structure declaring
  2310. !  *    _ptr and _cnt in stdio.h.
  2311. !  */
  2312. ! #define USE_STD_STDIO     /**/
  2313.   
  2314.   /* HAS_STRCHR:
  2315.    *    This symbol is defined to indicate that the strchr()/strrchr()
  2316. --- 734,788 ----
  2317.    */
  2318.   /*#define USE_STAT_BLOCKS     /**/
  2319.   
  2320. ! /* USE_STDIO_PTR:
  2321. !  *    This symbol is defined if the _ptr and _cnt fields (or similar)
  2322. !  *    of the stdio FILE structure can be used to access the stdio buffer
  2323. !  *    for a file handle.  If this is defined, then the FILE_ptr(fp)
  2324. !  *    and FILE_cnt(fp) macros will also be defined and should be used
  2325. !  *    to access these fields.
  2326. !  */
  2327. ! /* USE_STDIO_BASE:
  2328. !  *    This symbol is defined if the _base field (or similar) of the
  2329. !  *    stdio FILE structure can be used to access the stdio buffer for
  2330. !  *    a file handle.  If this is defined, then the FILE_base(fp) macro
  2331. !  *    will also be defined and should be used to access this field.
  2332. !  *    Also, the FILE_bufsiz(fp) macro will be defined and should be used
  2333. !  *    to determine the number of bytes in the buffer.  USE_STDIO_BASE
  2334. !  *    will never be defined unless USE_STDIO_PTR is.
  2335. !  */
  2336. ! #define USE_STDIO_PTR     /**/
  2337. ! #define USE_STDIO_BASE     /**/
  2338. ! 
  2339. ! /* FILE_ptr:
  2340. !  *    This macro is used to access the _ptr field (or equivalent) of the
  2341. !  *    FILE structure pointed to by its argument. This macro will always be
  2342. !  *    defined if USE_STDIO_PTR is defined.
  2343. !  */
  2344. ! /* FILE_cnt:
  2345. !  *    This macro is used to access the _cnt field (or equivalent) of the
  2346. !  *    FILE structure pointed to by its argument. This macro will always be
  2347. !  *    defined if USE_STDIO_PTR is defined.
  2348. !  */
  2349. ! #ifdef USE_STDIO_PTR
  2350. ! #define FILE_ptr(fp)    ((fp)->_ptr)
  2351. ! #define FILE_cnt(fp)    ((fp)->_cnt)
  2352. ! #endif
  2353. ! 
  2354. ! /* FILE_base:
  2355. !  *    This macro is used to access the _base field (or equivalent) of the
  2356. !  *    FILE structure pointed to by its argument. This macro will always be
  2357. !  *    defined if USE_STDIO_BASE is defined.
  2358. !  */
  2359. ! /* FILE_bufsiz:
  2360. !  *    This macro is used to determine the number of bytes in the I/O
  2361. !  *    buffer pointed to by _base field (or equivalent) of the FILE
  2362. !  *    structure pointed to its argument. This macro will always be defined
  2363. !  *    if USE_STDIO_BASE is defined.
  2364. !  */
  2365. ! #ifdef USE_STDIO_BASE
  2366. ! #define FILE_base(fp)    ((fp)->_base)
  2367. ! #define FILE_bufsiz(fp)    ((fp)->_cnt + (fp)->_ptr - (fp)->_base)
  2368. ! #endif
  2369.   
  2370.   /* HAS_STRCHR:
  2371.    *    This symbol is defined to indicate that the strchr()/strrchr()
  2372. ***************
  2373. *** 1023,1029 ****
  2374.   /*#define I_MEMORY        /**/
  2375.   
  2376.   /* I_NDBM:
  2377. !  *    This symbol, if defined, indicates that ndbm.h exists and should
  2378.    *    be included.
  2379.    */
  2380.   #define I_NDBM    /**/
  2381. --- 1066,1072 ----
  2382.   /*#define I_MEMORY        /**/
  2383.   
  2384.   /* I_NDBM:
  2385. !  *    This symbol, if defined, indicates that <ndbm.h> exists and should
  2386.    *    be included.
  2387.    */
  2388.   #define I_NDBM    /**/
  2389. ***************
  2390. *** 1340,1357 ****
  2391.   #define M_VOID            /* Xenix strikes again */
  2392.   #endif
  2393.   
  2394. - /* EUNICE:
  2395. -  *    This symbol, if defined, indicates that the program is being compiled
  2396. -  *    under the EUNICE package under VMS.  The program will need to handle
  2397. -  *    things like files that don't go away the first time you unlink them,
  2398. -  *    due to version numbering.  It will also need to compensate for lack
  2399. -  *    of a respectable link() command.
  2400. -  */
  2401.   /* VMS:
  2402.    *    This symbol, if defined, indicates that the program is running under
  2403.    *    VMS.  It is currently only set in conjunction with the EUNICE symbol.
  2404.    */
  2405. - /*#define EUNICE        /**/
  2406.   /*#define VMS        /**/
  2407.   
  2408.   /* LOC_SED:
  2409. --- 1383,1392 ----
  2410. ***************
  2411. *** 1399,1403 ****
  2412. --- 1434,1444 ----
  2413.    *    This symbol, if defined, indicates that we're using our own malloc.
  2414.    */
  2415.   #define MYMALLOC            /**/
  2416. + 
  2417. + /* SITELIB_EXP:
  2418. +  *    This symbol contains the ~name expanded version of SITELIB, to be used
  2419. +  *    in programs that are not prepared to deal with ~ expansion at run-time.
  2420. +  */
  2421. + /*#define SITELIB_EXP ""        /**/
  2422.   
  2423.   #endif
  2424. Index: config_h.SH
  2425. Prereq:  3.0.1.3 
  2426. *** perl5.001h/config_h.SH    Mon Apr 17 15:55:59 1995
  2427. --- perl5.001i/config_h.SH    Wed May 31 09:19:09 1995
  2428. ***************
  2429. *** 310,315 ****
  2430. --- 310,320 ----
  2431.    *    a macro using sprintf("%g") is used. Arguments for the Gconvert
  2432.    *    macro are: value, number of digits, whether trailing zeros should
  2433.    *    be retained, and the output buffer.
  2434. +  *    Possible values are:
  2435. +  *        d_Gconvert='gconvert((x),(n),(t),(b))'
  2436. +  *        d_Gconvert='gcvt((x),(n),(b))'
  2437. +  *        d_Gconvert='sprintf((b),"%.*g",(n),(x))'
  2438. +  *    The last two assume trailing zeros should not be kept.
  2439.    */
  2440.   #define Gconvert(x,n,t,b) $d_Gconvert
  2441.   
  2442. ***************
  2443. *** 407,418 ****
  2444.    */
  2445.   #$d_link HAS_LINK    /**/
  2446.   
  2447. - /* USE_LINUX_STDIO:
  2448. -  *    This symbol is defined if this system has a FILE structure declaring
  2449. -  *    _IO_read_base, _IO_read_ptr, and _IO_read_end in stdio.h.
  2450. -  */
  2451. - #$d_linuxstd USE_LINUX_STDIO     /**/
  2452. - 
  2453.   /* HAS_LOCALECONV:
  2454.    *    This symbol, if defined, indicates that the localeconv routine is
  2455.    *    available for numeric and monetary formatting conventions.
  2456. --- 412,417 ----
  2457. ***************
  2458. *** 749,759 ****
  2459.    */
  2460.   #$d_statblks USE_STAT_BLOCKS     /**/
  2461.   
  2462. ! /* USE_STD_STDIO:
  2463. !  *    This symbol is defined if this system has a FILE structure declaring
  2464. !  *    _ptr and _cnt in stdio.h.
  2465. !  */
  2466. ! #$d_stdstdio USE_STD_STDIO     /**/
  2467.   
  2468.   /* HAS_STRCHR:
  2469.    *    This symbol is defined to indicate that the strchr()/strrchr()
  2470. --- 748,802 ----
  2471.    */
  2472.   #$d_statblks USE_STAT_BLOCKS     /**/
  2473.   
  2474. ! /* USE_STDIO_PTR:
  2475. !  *    This symbol is defined if the _ptr and _cnt fields (or similar)
  2476. !  *    of the stdio FILE structure can be used to access the stdio buffer
  2477. !  *    for a file handle.  If this is defined, then the FILE_ptr(fp)
  2478. !  *    and FILE_cnt(fp) macros will also be defined and should be used
  2479. !  *    to access these fields.
  2480. !  */
  2481. ! /* USE_STDIO_BASE:
  2482. !  *    This symbol is defined if the _base field (or similar) of the
  2483. !  *    stdio FILE structure can be used to access the stdio buffer for
  2484. !  *    a file handle.  If this is defined, then the FILE_base(fp) macro
  2485. !  *    will also be defined and should be used to access this field.
  2486. !  *    Also, the FILE_bufsiz(fp) macro will be defined and should be used
  2487. !  *    to determine the number of bytes in the buffer.  USE_STDIO_BASE
  2488. !  *    will never be defined unless USE_STDIO_PTR is.
  2489. !  */
  2490. ! #$d_stdstdio USE_STDIO_PTR     /**/
  2491. ! #$d_stdiobase USE_STDIO_BASE     /**/
  2492. ! 
  2493. ! /* FILE_ptr:
  2494. !  *    This macro is used to access the _ptr field (or equivalent) of the
  2495. !  *    FILE structure pointed to by its argument. This macro will always be
  2496. !  *    defined if USE_STDIO_PTR is defined.
  2497. !  */
  2498. ! /* FILE_cnt:
  2499. !  *    This macro is used to access the _cnt field (or equivalent) of the
  2500. !  *    FILE structure pointed to by its argument. This macro will always be
  2501. !  *    defined if USE_STDIO_PTR is defined.
  2502. !  */
  2503. ! #ifdef USE_STDIO_PTR
  2504. ! #define FILE_ptr(fp)    $stdio_ptr
  2505. ! #define FILE_cnt(fp)    $stdio_cnt
  2506. ! #endif
  2507. ! 
  2508. ! /* FILE_base:
  2509. !  *    This macro is used to access the _base field (or equivalent) of the
  2510. !  *    FILE structure pointed to by its argument. This macro will always be
  2511. !  *    defined if USE_STDIO_BASE is defined.
  2512. !  */
  2513. ! /* FILE_bufsiz:
  2514. !  *    This macro is used to determine the number of bytes in the I/O
  2515. !  *    buffer pointed to by _base field (or equivalent) of the FILE
  2516. !  *    structure pointed to its argument. This macro will always be defined
  2517. !  *    if USE_STDIO_BASE is defined.
  2518. !  */
  2519. ! #ifdef USE_STDIO_BASE
  2520. ! #define FILE_base(fp)    $stdio_base
  2521. ! #define FILE_bufsiz(fp)    $stdio_bufsiz
  2522. ! #endif
  2523.   
  2524.   /* HAS_STRCHR:
  2525.    *    This symbol is defined to indicate that the strchr()/strrchr()
  2526. ***************
  2527. *** 1037,1043 ****
  2528.   #$i_memory I_MEMORY        /**/
  2529.   
  2530.   /* I_NDBM:
  2531. !  *    This symbol, if defined, indicates that ndbm.h exists and should
  2532.    *    be included.
  2533.    */
  2534.   #$i_ndbm I_NDBM    /**/
  2535. --- 1080,1086 ----
  2536.   #$i_memory I_MEMORY        /**/
  2537.   
  2538.   /* I_NDBM:
  2539. !  *    This symbol, if defined, indicates that <ndbm.h> exists and should
  2540.    *    be included.
  2541.    */
  2542.   #$i_ndbm I_NDBM    /**/
  2543. ***************
  2544. *** 1354,1371 ****
  2545.   #define M_VOID            /* Xenix strikes again */
  2546.   #endif
  2547.   
  2548. - /* EUNICE:
  2549. -  *    This symbol, if defined, indicates that the program is being compiled
  2550. -  *    under the EUNICE package under VMS.  The program will need to handle
  2551. -  *    things like files that don't go away the first time you unlink them,
  2552. -  *    due to version numbering.  It will also need to compensate for lack
  2553. -  *    of a respectable link() command.
  2554. -  */
  2555.   /* VMS:
  2556.    *    This symbol, if defined, indicates that the program is running under
  2557.    *    VMS.  It is currently only set in conjunction with the EUNICE symbol.
  2558.    */
  2559. - #$d_eunice EUNICE        /**/
  2560.   #$d_eunice VMS        /**/
  2561.   
  2562.   /* LOC_SED:
  2563. --- 1397,1406 ----
  2564. ***************
  2565. *** 1413,1418 ****
  2566. --- 1448,1459 ----
  2567.    *    This symbol, if defined, indicates that we're using our own malloc.
  2568.    */
  2569.   #$d_mymalloc MYMALLOC            /**/
  2570. + 
  2571. + /* SITELIB_EXP:
  2572. +  *    This symbol contains the ~name expanded version of SITELIB, to be used
  2573. +  *    in programs that are not prepared to deal with ~ expansion at run-time.
  2574. +  */
  2575. + #$d_sitelib SITELIB_EXP "$sitelibexp"        /**/
  2576.   
  2577.   #endif
  2578.   !GROK!THIS!
  2579. Index: configpm
  2580. *** perl5.001h/configpm    Sun Mar 12 02:35:40 1995
  2581. --- perl5.001i/configpm    Thu May 25 11:41:03 1995
  2582. ***************
  2583. *** 29,34 ****
  2584. --- 29,80 ----
  2585.   
  2586.   ENDOFBEG
  2587.   
  2588. + print CONFIG <<'EndOfPod';
  2589. + =head1 NAME
  2590. + 
  2591. + Config - access Perl configuration option
  2592. + 
  2593. + =head1 SYNOPSIS
  2594. + 
  2595. +     use Config;
  2596. +     if ($Config{'cc'} =~ /gcc/) {
  2597. +     print "built by gcc\n";
  2598. +     } 
  2599. + 
  2600. + =head1 DESCRIPTION
  2601. + 
  2602. + The Config module contains everything that was available to the
  2603. + C<Configure> program at Perl build time.  Shell variables from
  2604. + F<config.sh> are stored in the readonly-variable C<%Config>, indexed by
  2605. + their names.
  2606. + 
  2607. + =head1 EXAMPLE
  2608. + 
  2609. + Here's a more sophisticated example of using %Config:
  2610. + 
  2611. +     use Config;
  2612. + 
  2613. +     defined $Config{sig_name} || die "No sigs?";
  2614. +     foreach $name (split(' ', $Config{sig_name})) {
  2615. +     $signo{$name} = $i;
  2616. +     $signame[$i] = $name;
  2617. +     $i++;
  2618. +     }   
  2619. + 
  2620. +     print "signal #17 = $signame[17]\n";
  2621. +     if ($signo{ALRM}) { 
  2622. +     print "SIGALRM is $signo{ALRM}\n";
  2623. +     }   
  2624. + 
  2625. + =head1 NOTE
  2626. + 
  2627. + This module contains a good example of how to make a variable
  2628. + readonly to those outside of it.  
  2629. + 
  2630. + =cut
  2631. + 
  2632. + EndOfPod
  2633. + 
  2634.   @fast{@fast} = @fast;
  2635.   @extensions{@extensions} = @extensions;
  2636.   @non_v=();
  2637. Index: configure
  2638. *** /dev/null    Wed May 31 09:31:33 1995
  2639. --- perl5.001i/configure    Fri May 26 14:32:51 1995
  2640. ***************
  2641. *** 0 ****
  2642. --- 1,65 ----
  2643. + #! /bin/sh
  2644. + # GNU configure-like front end to metaconfig's Configure.
  2645. + #
  2646. + # Written by Andy Dougherty (doughera@lafcol.lafayette.edu)
  2647. + # and matthew green (mrg@mame.mu.oz.au)
  2648. + #
  2649. + # public domain.
  2650. + 
  2651. + opts=''
  2652. + for f in $*
  2653. + do
  2654. +   case $f in
  2655. +     --help)
  2656. +       echo This is GNU configure-like front end for a MetaConfig Configure.
  2657. +       echo It understands the follow GNU configure options:
  2658. +       echo "  --prefix=PREFIX"
  2659. +       echo "  --help"
  2660. +       echo ""
  2661. +       echo And these environment variables:
  2662. +       echo "  CFLAGS"
  2663. +       echo "  CC"
  2664. +       echo "  DEFS"
  2665. +       echo 0
  2666. +       ;;
  2667. +     --prefix=*)
  2668. +       shift
  2669. +       arg=`echo $f | sed 's/--prefix=/-Dprefix=/'`
  2670. +       opts="$opts $arg"
  2671. +       ;;
  2672. +     --*)
  2673. +       opt=`echo $f | sed 's/=.*//'`
  2674. +       echo This GNU configure front end does not understand $opt
  2675. +       exit 1
  2676. +       ;;
  2677. +     *)
  2678. +       shift
  2679. +       opts="$opts $f"
  2680. +       ;;
  2681. +   esac
  2682. + done
  2683. + 
  2684. + case "$CC" in
  2685. +   '') ;;
  2686. +   *) opts="$opts -Dcc='$CC'" ;;
  2687. + esac
  2688. + 
  2689. + # join DEFS and CFLAGS together.
  2690. + 
  2691. + ccflags=''
  2692. + if test "x$DEFS" != x
  2693. + then
  2694. +   ccflags=$DEFS
  2695. + fi
  2696. + if test "x$CFLAGS" != x
  2697. + then
  2698. +   ccflags="$ccflags $CFLAGS"
  2699. + fi
  2700. + 
  2701. + if test "x$ccflags" != x
  2702. + then
  2703. +   opts="$opts -Dccflags='$ccflags'"
  2704. + fi
  2705. + 
  2706. + echo ./Configure "$opts" -des
  2707. + ./Configure "$opts" -des
  2708. Index: doio.c
  2709. *** perl5.001h/doio.c    Fri Mar 31 15:44:07 1995
  2710. --- perl5.001i/doio.c    Thu May 18 15:31:16 1995
  2711. ***************
  2712. *** 567,574 ****
  2713.   
  2714.       while (IoIFP(io)) {
  2715.   
  2716. ! #ifdef USE_STD_STDIO            /* (the code works without this) */
  2717. !     if (IoIFP(io)->_cnt > 0)    /* cheat a little, since */
  2718.           return FALSE;        /* this is the most usual case */
  2719.   #endif
  2720.   
  2721. --- 567,574 ----
  2722.   
  2723.       while (IoIFP(io)) {
  2724.   
  2725. ! #ifdef USE_STDIO_PTR            /* (the code works without this) */
  2726. !     if (FILE_cnt(IoIFP(io)) > 0)    /* cheat a little, since */
  2727.           return FALSE;        /* this is the most usual case */
  2728.   #endif
  2729.   
  2730. ***************
  2731. *** 577,585 ****
  2732.           (void)ungetc(ch, IoIFP(io));
  2733.           return FALSE;
  2734.       }
  2735. ! #ifdef USE_STD_STDIO
  2736. !     if (IoIFP(io)->_cnt < -1)
  2737. !         IoIFP(io)->_cnt = -1;
  2738.   #endif
  2739.       if (op->op_flags & OPf_SPECIAL) { /* not necessarily a real EOF yet? */
  2740.           if (!nextargv(argvgv))    /* get another fp handy */
  2741. --- 577,585 ----
  2742.           (void)ungetc(ch, IoIFP(io));
  2743.           return FALSE;
  2744.       }
  2745. ! #ifdef USE_STDIO_PTR
  2746. !     if (FILE_cnt(IoIFP(io)) < -1)
  2747. !         FILE_cnt(IoIFP(io)) = -1;
  2748.   #endif
  2749.       if (op->op_flags & OPf_SPECIAL) { /* not necessarily a real EOF yet? */
  2750.           if (!nextargv(argvgv))    /* get another fp handy */
  2751. Index: embed.h
  2752. *** perl5.001h/embed.h    Sun Mar 12 01:06:43 1995
  2753. --- perl5.001i/embed.h    Wed May 24 10:57:29 1995
  2754. ***************
  2755. *** 38,45 ****
  2756.   #define cop_seqmax    Perl_cop_seqmax
  2757.   #define cos_amg        Perl_cos_amg
  2758.   #define cryptseen    Perl_cryptseen
  2759. - #define cryptswitch_add    Perl_cryptswitch_add
  2760. - #define cryptswitch_fp    Perl_cryptswitch_fp
  2761.   #define cshlen        Perl_cshlen
  2762.   #define cshname        Perl_cshname
  2763.   #define curcop        Perl_curcop
  2764. --- 38,43 ----
  2765. ***************
  2766. *** 61,66 ****
  2767. --- 59,67 ----
  2768.   #define expect        Perl_expect
  2769.   #define expectterm    Perl_expectterm
  2770.   #define fallback_amg    Perl_fallback_amg
  2771. + #define filter_add    Perl_filter_add
  2772. + #define filter_del    Perl_filter_del
  2773. + #define filter_read    Perl_filter_read
  2774.   #define fold        Perl_fold
  2775.   #define freq        Perl_freq
  2776.   #define ge_amg        Perl_ge_amg
  2777. ***************
  2778. *** 179,184 ****
  2779. --- 180,186 ----
  2780.   #define retstack_ix    Perl_retstack_ix
  2781.   #define retstack_max    Perl_retstack_max
  2782.   #define rsfp        Perl_rsfp
  2783. + #define rsfp_filters    Perl_rsfp_filters
  2784.   #define rshift_amg    Perl_rshift_amg
  2785.   #define rshift_ass_amg    Perl_rshift_ass_amg
  2786.   #define savestack    Perl_savestack
  2787. Index: global.sym
  2788. *** perl5.001h/global.sym    Sun Mar 12 01:06:14 1995
  2789. --- perl5.001i/global.sym    Tue May 23 11:17:36 1995
  2790. ***************
  2791. *** 35,42 ****
  2792.   cop_seqmax
  2793.   cos_amg
  2794.   cryptseen
  2795. - cryptswitch_add
  2796. - cryptswitch_fp
  2797.   cshlen
  2798.   cshname
  2799.   curcop
  2800. --- 35,40 ----
  2801. ***************
  2802. *** 58,63 ****
  2803. --- 56,64 ----
  2804.   expect
  2805.   expectterm
  2806.   fallback_amg
  2807. + filter_add
  2808. + filter_del
  2809. + filter_read
  2810.   fold
  2811.   freq
  2812.   ge_amg
  2813. ***************
  2814. *** 176,181 ****
  2815. --- 177,183 ----
  2816.   retstack_ix
  2817.   retstack_max
  2818.   rsfp
  2819. + rsfp_filters
  2820.   rshift_amg
  2821.   rshift_ass_amg
  2822.   savestack
  2823. Index: gv.c
  2824. *** perl5.001h/gv.c    Tue Feb 21 19:38:56 1995
  2825. --- perl5.001i/gv.c    Wed May 10 10:51:53 1995
  2826. ***************
  2827. *** 147,155 ****
  2828.       if (GvCVGEN(topgv) >= sub_generation)
  2829.           return topgv;    /* valid cached inheritance */
  2830.       if (!GvCVGEN(topgv)) {    /* not an inheritance cache */
  2831. !         if (CvROOT(cv) || CvXSUB(cv))
  2832. !         return topgv;    /* real definition */
  2833. !         /* a simple undef -- save the slot for possible re-use */
  2834.       }
  2835.       else {
  2836.           /* stale cached entry, just junk it */
  2837. --- 147,153 ----
  2838.       if (GvCVGEN(topgv) >= sub_generation)
  2839.           return topgv;    /* valid cached inheritance */
  2840.       if (!GvCVGEN(topgv)) {    /* not an inheritance cache */
  2841. !         return topgv;
  2842.       }
  2843.       else {
  2844.           /* stale cached entry, just junk it */
  2845. Index: hints/README.hints
  2846. *** perl5.001h/hints/README.hints    Tue Oct 18 12:32:24 1994
  2847. --- perl5.001i/hints/README.hints    Fri May  5 14:12:06 1995
  2848. ***************
  2849. *** 1,5 ****
  2850.   These files are used by Configure to set things which Configure either
  2851. ! can't or doesn't guess properly.  Most of these hints files are from
  2852.   perl4.  They may or may not work with perl5, but they are probably a
  2853.   good starting point.
  2854.   
  2855. --- 1,5 ----
  2856.   These files are used by Configure to set things which Configure either
  2857. ! can't or doesn't guess properly.  Many of these hints files are from
  2858.   perl4.  They may or may not work with perl5, but they are probably a
  2859.   good starting point.
  2860.   
  2861. ***************
  2862. *** 7,12 ****
  2863. --- 7,13 ----
  2864.   of perl5 and are probably reasonably close to being correct:
  2865.   
  2866.   aix.sh
  2867. + aux.sh
  2868.   bsd386.sh
  2869.   dec_osf.sh
  2870.   dgux.sh
  2871. ***************
  2872. *** 15,20 ****
  2873. --- 16,22 ----
  2874.   hpux_9.sh
  2875.   irix_4.sh
  2876.   irix_5.sh
  2877. + irix_6.sh
  2878.   isc.sh
  2879.   linux.sh
  2880.   netbsd.sh
  2881. ***************
  2882. *** 33,39 ****
  2883.   3b1.sh
  2884.   altos486.sh
  2885.   apollo.sh
  2886. - aux.sh
  2887.   dnix.sh
  2888.   dynix.sh
  2889.   fps.sh
  2890. --- 35,40 ----
  2891. Index: hints/aux.sh
  2892. *** perl5.001h/hints/aux.sh    Tue Oct 18 12:32:35 1994
  2893. --- perl5.001i/hints/aux.sh    Fri May  5 10:59:49 1995
  2894. ***************
  2895. *** 1,3 ****
  2896. ! optimize='-O'
  2897. ! ccflags="$ccflags -B/usr/lib/big/ -DPARAM_NEEDS_TYPES"
  2898. ! POSIX_cflags='ccflags="$ccflags -ZP -Du_long=U32"'
  2899. --- 1,20 ----
  2900. ! # hints/aux.sh
  2901. ! #
  2902. ! # Improved by Jake Hamby <jehamby@lightside.com> to support both Apple CC
  2903. ! # and GNU CC.  Tested on A/UX 3.1.1 with GCC 2.6.3.
  2904. ! # Last modified 
  2905. ! # Fri May  5 10:59:43 EDT 1995
  2906. ! 
  2907. ! case "$cc" in
  2908. ! gcc)    optimize='-O2'
  2909. !     ccflags="$ccflags -D_POSIX_SOURCE"
  2910. !     echo "Setting hints for GNU CC."
  2911. !     ;;
  2912. ! *)    optimize='-O'
  2913. !     ccflags="$ccflags -B/usr/lib/big/ -DPARAM_NEEDS_TYPES -D_POSIX_SOURCE"
  2914. !     POSIX_cflags='ccflags="$ccflags -ZP -Du_long=U32"'
  2915. !     echo "Setting hints for Apple's CC.  If you plan to use"
  2916. !     echo "GNU CC, please rerun this Configure script as:"
  2917. !     echo "./Configure -Dcc=gcc"
  2918. !     ;;
  2919. ! esac
  2920. Index: hints/cxux.sh
  2921. *** perl5.001h/hints/cxux.sh    Fri Apr 14 10:40:15 1995
  2922. --- perl5.001i/hints/cxux.sh    Wed May 31 09:15:30 1995
  2923. ***************
  2924. *** 74,85 ****
  2925.   ccdlflags='-Zelf -Zlink=dynamic -Wl,-Bexport -u sigaction'
  2926.   lddlflags='-Zlink=so'
  2927.   
  2928. - # Configure imagines that stdio.h is "standard", but it really isn't.
  2929. - # Things like the -T and -B file test operators (on file handles) fail when
  2930. - # it tries to treat it as "standard"
  2931. - #
  2932. - d_stdstdio='undef'
  2933. - 
  2934.   # Configure imagines that it sees a pw_quota field, but it is really in a
  2935.   # different structure than the one it thinks it is looking at.  WARNING:
  2936.   # Setting this here in the hints file doesn't help. You need to fix this by
  2937. --- 74,79 ----
  2938. Index: hints/epix.sh
  2939. *** /dev/null    Wed May 31 09:31:33 1995
  2940. --- perl5.001i/hints/epix.sh    Wed May 31 11:59:41 1995
  2941. ***************
  2942. *** 0 ****
  2943. --- 1,73 ----
  2944. + # epix.sh
  2945. + # Hint file for EP/IX on CDC RISC boxes.
  2946. + #
  2947. + # From: Stanley Donald Capelik <sd9sdc@hp100.den.mmc.com>
  2948. + # Modified by Andy Dougherty   <doughera@lafcol.lafayette.edu>
  2949. + # Last modified:  Mon May  8 15:29:18 EDT 1995
  2950. + #
  2951. + #  This hint file appears to be based on the svr4 hints for perl5.000,
  2952. + #  with some CDC-specific additions.  I've tried to updated it to
  2953. + #  match the 5.001 svr4 hints, which allow for dynamic loading,
  2954. + #  but I have no way of testing the resulting file.
  2955. + #
  2956. + #  There were also some contradictions that I've tried to straighten
  2957. + #  out, but I'm not sure I got them all right.
  2958. + #
  2959. + # Edit config.sh to change shmattype from 'char *' to 'void *'"
  2960. + 
  2961. + # Use Configure -Dcc=gcc to use gcc.
  2962. + case "$cc" in
  2963. + '') cc='/bin/cc3.11'
  2964. +     test -f $cc || cc='/usr/ccs/bin/cc'
  2965. +     ;;
  2966. + esac
  2967. + 
  2968. + usrinc='/svr4/usr/include'
  2969. + 
  2970. + # Various things that Configure apparently doesn't get right.
  2971. + strings='/svr4/usr/include/string.h'
  2972. + timeincl='/svr4/usr/include/sys/time.h '
  2973. + libc='/svr4/usr/lib/libc.a'
  2974. + libpth='/svr4/usr/lib /svr4/usr/lib/cmplrs/cc /usr/ccs/lib /svr4/lib /svr4/usr/ucblib'
  2975. + osname='epix2'
  2976. + archname='epix2'
  2977. + d_suidsafe='define'    # "./Configure -d" can't figure this out easilly
  2978. + d_flock='undef'
  2979. + 
  2980. + # Old version had this, but I'm not sure why since the old version
  2981. + # also mucked around with libswanted.  This is also definitely wrong
  2982. + # if the user is trying to use DB_File or GDBM_File.
  2983. + # libs='-lsocket -lnsl -ldbm -ldl -lc -lcrypt -lm -lucb'
  2984. + 
  2985. + # We include support for using libraries in /usr/ucblib, but the setting
  2986. + # of libswanted excludes some libraries found there.  You may want to
  2987. + # prevent "ucb" from being removed from libswanted and see if perl will
  2988. + # build on your system.
  2989. + ldflags='-non_shared -systype svr4 -L/svr4/usr/lib -L/svr4/usr/lib/cmplrs/cc -L/usr/ccs/lib -L/svr4/usr/ucblib'
  2990. + ccflags='-systype svr4 -D__STDC__=0 -I/svr4/usr/include -I/svr4/usr/ucbinclude'
  2991. + cppflags='-D__STDC__=0 -I/svr4/usr/include -I/svr4/usr/ucbinclude'
  2992. + 
  2993. + # Don't use problematic libraries:
  2994. + 
  2995. + libswanted=`echo " $libswanted " | sed -e 's/ malloc / /'` # -e 's/ ucb / /'`
  2996. + # libmalloc.a - Probably using Perl's malloc() anyway.
  2997. + # libucb.a - Remove it if you have problems ld'ing.  We include it because
  2998. + #   it is needed for ODBM_File and NDBM_File extensions.
  2999. + if [ -r /usr/ucblib/libucb.a ]; then    # If using BSD-compat. library:
  3000. +     # Use the "native" counterparts, not the BSD emulation stuff:
  3001. +     d_bcmp='undef'; d_bcopy='undef'; d_bzero='undef'; d_safebcpy='undef'
  3002. +     d_index='undef'; d_killpg='undef'; d_getprior='undef'; d_setprior='undef'
  3003. +     d_setlinebuf='undef'; d_setregid='undef'; d_setreuid='undef'
  3004. + fi
  3005. + 
  3006. + lddlflags="-G $ldflags"    # Probably needed for dynamic loading
  3007. + 
  3008. + cat <<'EOM' >&4
  3009. + 
  3010. + If you wish to use dynamic linking, you must use 
  3011. +     LD_LIBRARY_PATH=`pwd`; export LD_LIBRARY_PATH
  3012. + or
  3013. +     setenv LD_LIBRARY_PATH `pwd`
  3014. + before running make.
  3015. + 
  3016. + EOM
  3017. Index: hints/freebsd.sh
  3018. *** perl5.001h/hints/freebsd.sh    Tue Apr 11 11:34:29 1995
  3019. --- perl5.001i/hints/freebsd.sh    Mon May 22 14:23:20 1995
  3020. ***************
  3021. *** 10,15 ****
  3022. --- 10,19 ----
  3023.   # Ollivier Robert <Ollivier.Robert@keltia.frmug.fr.net>
  3024.   # Date: Sat, 8 Apr 1995 20:53:41 +0200 (MET DST)
  3025.   #
  3026. + # Additional 2.0.5 and 2.1 defined from
  3027. + # Ollivier Robert <Ollivier.Robert@keltia.frmug.fr.net>
  3028. + # Date: Fri, 12 May 1995 14:30:38 +0200 (MET DST)
  3029. + #
  3030.   # FreeBSD has the dynamic loading dl*() functions in /usr/lib/crt0.o,
  3031.   # so Configure doesn't find them (unless you abandon the nm scan).
  3032.   #
  3033. ***************
  3034. *** 18,24 ****
  3035.   # -DPIC is not used by perl proper) but the full define is included to 
  3036.   # be consistent with the FreeBSD general shared libs building process.
  3037.   #
  3038. ! # setreuid and friends are inherently broken in all versions of FreeBSD.
  3039.   #
  3040.   
  3041.   case "$osvers" in
  3042. --- 22,30 ----
  3043.   # -DPIC is not used by perl proper) but the full define is included to 
  3044.   # be consistent with the FreeBSD general shared libs building process.
  3045.   #
  3046. ! # setreuid and friends are inherently broken in all versions of FreeBSD
  3047. ! # before 2.1-current (before approx date 4/15/95). It is fixed in 2.0.5
  3048. ! # and what-will-be-2.1
  3049.   #
  3050.   
  3051.   case "$osvers" in
  3052. ***************
  3053. *** 35,41 ****
  3054.       d_setrgid='undef'
  3055.       d_setruid='undef'
  3056.       ;;
  3057. ! *)
  3058.       d_dlopen="$define"
  3059.       cccdlflags='-DPIC -fpic'
  3060.       lddlflags='-Bshareable $lddlflags'
  3061. --- 41,47 ----
  3062.       d_setrgid='undef'
  3063.       d_setruid='undef'
  3064.       ;;
  3065. ! 2.0-RELEASE*)
  3066.       d_dlopen="$define"
  3067.       cccdlflags='-DPIC -fpic'
  3068.       lddlflags='-Bshareable $lddlflags'
  3069. ***************
  3070. *** 44,49 ****
  3071. --- 50,70 ----
  3072.       d_setrgid='undef'
  3073.       d_setruid='undef'
  3074.       ;;
  3075. + #
  3076. + # Trying to cover 2.0.5, 2.1-current and future 2.1
  3077. + # It does not covert all 2.1-current versions as the output of uname
  3078. + # changed a few times.
  3079. + #
  3080. + 2.0.5*|2.0-BUILD|2.1*)
  3081. +     d_dlopen="$define"
  3082. +     cccdlflags='-DPIC -fpic'
  3083. +     lddlflags='-Bshareable $lddlflags'
  3084. +     # Are these defines necessary?  Doesn't Configure find them
  3085. +     # correctly?
  3086. +     d_setregid='define'
  3087. +     d_setreuid='define'
  3088. +     d_setrgid='define'
  3089. +     d_setruid='define'
  3090.   esac
  3091.   # Avoid telldir prototype conflict in pp_sys.c  (FreeBSD uses const DIR *)
  3092.   # Configure should test for this.  Volunteers?
  3093. Index: hints/irix_4.sh
  3094. *** perl5.001h/hints/irix_4.sh    Wed Feb  8 19:43:17 1995
  3095. --- perl5.001i/hints/irix_4.sh    Fri May  5 14:07:26 1995
  3096. ***************
  3097. *** 1,10 ****
  3098.   optimize='-O1'
  3099. ! usemymalloc='y'
  3100.   d_voidsig=define
  3101. - usevfork=false
  3102.   d_charsprf=undef
  3103. ! ccflags="-ansiposix -signed"
  3104. ! #
  3105.   # This hint due thanks Hershel Walters <walters@smd4d.wes.army.mil>
  3106.   # Date: Tue, 31 Jan 1995 16:32:53 -0600 (CST)
  3107.   # Subject: IRIX4.0.4(.5? 5.0?) problems
  3108. --- 1,16 ----
  3109. + #irix_4.sh
  3110. + # Last modified Fri May  5 14:06:37 EDT 1995
  3111.   optimize='-O1'
  3112. ! 
  3113. ! # Does Configure really get these wrong? Why?
  3114.   d_voidsig=define
  3115.   d_charsprf=undef
  3116. ! 
  3117. ! case "$cc" in
  3118. ! *gcc) ccflags="$ccflags -D_BSD_TYPES" ;;
  3119. ! *) ccflags="$ccflags -ansiposix -signed" ;;
  3120. ! esac
  3121. ! 
  3122.   # This hint due thanks Hershel Walters <walters@smd4d.wes.army.mil>
  3123.   # Date: Tue, 31 Jan 1995 16:32:53 -0600 (CST)
  3124.   # Subject: IRIX4.0.4(.5? 5.0?) problems
  3125. Index: hints/irix_5.sh
  3126. *** perl5.001h/hints/irix_5.sh    Mon Apr 17 09:08:24 1995
  3127. --- perl5.001i/hints/irix_5.sh    Fri May  5 14:07:52 1995
  3128. ***************
  3129. *** 1,8 ****
  3130.   # irix_5.sh
  3131.   ld=ld
  3132.   i_time='define'
  3133. ! ccflags="$ccflags -D_POSIX_SOURCE -ansiposix -D_BSD_TYPES -Olimit 3000"
  3134.   lddlflags="-shared"
  3135.   set `echo X "$libswanted "|sed -e 's/ socket / /' -e 's/ nsl / /' -e 's/ dl / /'`
  3136.   shift
  3137.   libswanted="$*"
  3138. --- 1,16 ----
  3139.   # irix_5.sh
  3140. + # Last modified Fri May  5 11:01:23 EDT 1995
  3141.   ld=ld
  3142.   i_time='define'
  3143. ! 
  3144. ! case "$cc" in
  3145. ! *gcc) ccflags="$ccflags -D_BSD_TYPES" ;;
  3146. ! *) ccflags="$ccflags -D_POSIX_SOURCE -ansiposix -D_BSD_TYPES -Olimit 3000" ;;
  3147. ! esac
  3148. ! 
  3149.   lddlflags="-shared"
  3150. + # For some reason we don't want -lsocket -lnsl or -ldl.  Can anyone
  3151. + # contribute an explanation?
  3152.   set `echo X "$libswanted "|sed -e 's/ socket / /' -e 's/ nsl / /' -e 's/ dl / /'`
  3153.   shift
  3154.   libswanted="$*"
  3155. Index: hints/irix_6.sh
  3156. *** perl5.001h/hints/irix_6.sh    Mon Apr 17 09:09:32 1995
  3157. --- perl5.001i/hints/irix_6.sh    Fri May  5 14:08:41 1995
  3158. ***************
  3159. *** 12,17 ****
  3160. --- 12,19 ----
  3161.   cc="cc -32"
  3162.   ccflags="$ccflags -D_POSIX_SOURCE -ansiposix -D_BSD_TYPES -Olimit 3000"
  3163.   lddlflags="-32 -shared"
  3164. + 
  3165. + # We don't want these libraries.  Anyone know why?
  3166.   set `echo X "$libswanted "|sed -e 's/ socket / /' -e 's/ nsl / /' -e 's/ dl / /'`
  3167.   shift
  3168.   libswanted="$*"
  3169. Index: hints/linux.sh
  3170. *** perl5.001h/hints/linux.sh    Mon Apr 17 12:10:13 1995
  3171. --- perl5.001i/hints/linux.sh    Tue May 30 14:28:25 1995
  3172. ***************
  3173. *** 8,38 ****
  3174.   #
  3175.   # Consolidated by Andy Dougherty <doughera@lafcol.lafayette.edu>
  3176.   #
  3177. ! # Last updated Thu Apr  6 12:22:03 EDT 1995
  3178.   #
  3179.   # If you wish to use something other than 'gcc' for your compiler,
  3180.   # you should specify it on the Configure command line.  To use
  3181. ! # gcc-elf, for exmample, type 
  3182.   # ./Configure -Dcc=gcc-elf
  3183.   
  3184.   # perl goes into the /usr tree.  See the Filesystem Standard
  3185.   # available via anonymous FTP at tsx-11.mit.edu in
  3186.   # /pub/linux/docs/linux-standards/fsstnd.
  3187. ! # This used to be
  3188. ! # bin='/usr/bin'
  3189. ! # but it doesn't seem sensible to put the binary in /usr and all the
  3190. ! # rest of the support stuff (lib, man pages) into /usr/local.
  3191. ! # However, allow a command line override, e.g. Configure -Dprefix=/foo/bar
  3192.   case "$prefix" in
  3193.   '') prefix='/usr' ;;
  3194.   esac
  3195.   
  3196.   # Perl expects BSD style signal handling.
  3197. ! # gcc defines _G_HAVE_BOOL to 1, but doesn't actually supply bool.
  3198.   ccflags="-D__USE_BSD_SIGNAL -Dbool=char -DHAS_BOOL $ccflags"
  3199.   
  3200.   # The following functions are gcc built-ins, but the Configure tests
  3201. ! # may fail because it doesn't supply a proper prototype.
  3202.   d_memcmp=define
  3203.   d_memcpy=define
  3204.   
  3205. --- 8,35 ----
  3206.   #
  3207.   # Consolidated by Andy Dougherty <doughera@lafcol.lafayette.edu>
  3208.   #
  3209. ! # Last updated Tue May 30 14:25:02 EDT 1995
  3210.   #
  3211.   # If you wish to use something other than 'gcc' for your compiler,
  3212.   # you should specify it on the Configure command line.  To use
  3213. ! # gcc-elf, for exmample, type
  3214.   # ./Configure -Dcc=gcc-elf
  3215.   
  3216.   # perl goes into the /usr tree.  See the Filesystem Standard
  3217.   # available via anonymous FTP at tsx-11.mit.edu in
  3218.   # /pub/linux/docs/linux-standards/fsstnd.
  3219. ! # Allow a command line override, e.g. Configure -Dprefix=/foo/bar
  3220.   case "$prefix" in
  3221.   '') prefix='/usr' ;;
  3222.   esac
  3223.   
  3224.   # Perl expects BSD style signal handling.
  3225. ! # gcc-2.6.3 defines _G_HAVE_BOOL to 1, but doesn't actually supply bool.
  3226.   ccflags="-D__USE_BSD_SIGNAL -Dbool=char -DHAS_BOOL $ccflags"
  3227.   
  3228.   # The following functions are gcc built-ins, but the Configure tests
  3229. ! # may fail because they don't supply proper prototypes.
  3230. ! # This should be fixed as of 5.001f.  I'd appreciate reports.
  3231.   d_memcmp=define
  3232.   d_memcpy=define
  3233.   
  3234. ***************
  3235. *** 40,48 ****
  3236. --- 37,49 ----
  3237.   # function in <sys/stat.h>.
  3238.   d_lstat=define
  3239.   
  3240. + # Explanation?
  3241.   d_dosuid='define'
  3242.   
  3243. + # I think Configure gets this right now, but I'd appreciate reports.
  3244.   malloctype='void *'
  3245. + 
  3246. + # Explanation?
  3247.   usemymalloc='n'
  3248.   
  3249.   case "$optimize" in
  3250. ***************
  3251. *** 73,82 ****
  3252.   
  3253.   You appear to have ELF support.  I'll try to use it for dynamic loading.
  3254.   EOM
  3255. -     # Configure now handles these automatically.
  3256.   else
  3257. !     echo "You don't have an ELF gcc, using dld if available."
  3258. !     # We might possibly have a version of DLD around.
  3259.       lddlflags="-r $lddlflags"
  3260.       # These empty values are so that Configure doesn't put in the
  3261.       # Linux ELF values.
  3262. --- 74,89 ----
  3263.   
  3264.   You appear to have ELF support.  I'll try to use it for dynamic loading.
  3265.   EOM
  3266.   else
  3267. !     cat <<'EOM'
  3268. ! 
  3269. ! You don't have an ELF gcc.  I will use dld if possible.  If you are
  3270. ! using a version of DLD earlier than 3.2.6, or don't have it at all, you
  3271. ! should probably upgrade. If you are forced to use 3.2.4, you should
  3272. ! uncomment a couple of lines in hints/linux.sh and rerun Configure to
  3273. ! disallow shared libraries.
  3274. ! 
  3275. ! EOM
  3276.       lddlflags="-r $lddlflags"
  3277.       # These empty values are so that Configure doesn't put in the
  3278.       # Linux ELF values.
  3279. ***************
  3280. *** 91,106 ****
  3281.   fi
  3282.   rm -rf try.c a.out
  3283.   
  3284. ! cat <<'EOM'
  3285.   
  3286. - You should take a look at hints/linux.sh. There are a some lines you
  3287. - may wish to change.
  3288.   EOM
  3289.   
  3290. - # And -- reported by one user:
  3291. - # We need to get -lc away from the link lines.
  3292. - # If we leave it there we get SEGV from miniperl during the build.
  3293. - # This may have to do with bugs in the pre-release version of libc for ELF.
  3294. - # Uncomment the next two lines to remove -lc from the link line.
  3295. - # set `echo " $libswanted " | sed -e 's@ c @ @'`
  3296. - # libswanted="$*"
  3297. --- 98,118 ----
  3298.   fi
  3299.   rm -rf try.c a.out
  3300.   
  3301. ! case "$BASH_VERSION" in
  3302. ! 1.14.3*)
  3303. !     cat <<'EOM'
  3304. ! 
  3305. ! If you get failure of op/exec test #5 during the test phase, you probably
  3306. ! have a buggy version of bash. Upgrading to a recent version (1.14.4 or
  3307. ! later) should fix the problem.
  3308.   
  3309.   EOM
  3310. + ;;
  3311. + esac
  3312. + 
  3313. + # In addition, on some systems there is a problem with perl and NDBM, which
  3314. + # causes AnyDBM and NDBM_File to lock up. This is evidenced in the tests as
  3315. + # AnyDBM just freezing.  Currently we disable NDBM for all linux systems.
  3316. + # If someone can suggest a more robust test, that would be appreciated.
  3317. + d_dbm_open=undef
  3318.   
  3319. Index: hints/powerunix.sh
  3320. *** perl5.001h/hints/powerunix.sh    Fri Apr 14 10:40:15 1995
  3321. --- perl5.001i/hints/powerunix.sh    Wed May 31 09:15:15 1995
  3322. ***************
  3323. *** 51,62 ****
  3324.   ccdlflags='-Zlink=dynamic -Wl,-Bexport'
  3325.   lddlflags='-Zlink=so'
  3326.   
  3327. - # Configure imagines that stdio.h is "standard", but it really isn't.
  3328. - # Things like the -T and -B file test operators (on file handles) fail when
  3329. - # it tries to treat it as "standard"
  3330. - #
  3331. - d_stdstdio='undef'
  3332. - 
  3333.   # Configure sometime finds what it believes to be ndbm header files on the
  3334.   # system and imagines that we have the NDBM library, but we really don't.
  3335.   # There is something there that once resembled ndbm, but it is purely
  3336. --- 51,56 ----
  3337. Index: installman
  3338. *** /dev/null    Wed May 31 09:31:33 1995
  3339. --- perl5.001i/installman    Tue May 30 15:59:55 1995
  3340. ***************
  3341. *** 0 ****
  3342. --- 1,155 ----
  3343. + #!./perl
  3344. + BEGIN { @INC = ('lib') }
  3345. + use Config;
  3346. + use Getopt::Long;
  3347. + use File::Find;
  3348. + require Cwd;
  3349. + 
  3350. + umask 022;
  3351. + 
  3352. + $ver = $];
  3353. + $release = substr($ver,0,3);   # Not used presently.
  3354. + $patchlevel = substr($ver,3,2);
  3355. + die "Patchlevel of perl ($patchlevel)",
  3356. +     "and patchlevel of config.sh ($Config{'PATCHLEVEL'}) don't match\n"
  3357. +     if $patchlevel != $Config{'PATCHLEVEL'};
  3358. + 
  3359. + $usage =
  3360. + "Usage:  installman --man1dir=/usr/wherever --man1ext=1
  3361. +                     --man3dir=/usr/wherever --man3ext=3
  3362. +             --notify --help
  3363. +     Defaults are:
  3364. +     man1dir = $Config{'installman1dir'};
  3365. +     man1ext = $Config{'man1ext'};
  3366. +     man3dir = $Config{'installman3dir'};
  3367. +     man3ext = $Config{'man3ext'};
  3368. +     --notify (or -n) just lists commands that would be executed.\n";
  3369. + 
  3370. + GetOptions( qw( man1dir=s man1ext=s man3dir=s man3ext=s notify help)) 
  3371. +     || die $usage;
  3372. + 
  3373. + # These are written funny to avoid -w typo warnings.
  3374. + $man1dir = defined($opt_man1dir) ? $opt_man1dir : $Config{'installman1dir'};
  3375. + $man1ext = defined($opt_man1ext) ? $opt_man1ext : $Config{'man1ext'};
  3376. + $man3dir = defined($opt_man3dir) ? $opt_man3dir : $Config{'installman3dir'};
  3377. + $man3ext = defined($opt_man3ext) ? $opt_man3ext : $Config{'man3ext'};
  3378. + 
  3379. + $notify = defined($opt_notify) ? $opt_notify : 0;
  3380. + 
  3381. + #Sanity checks
  3382. + 
  3383. + -x  "./perl"    || warn "./perl not found!  Have you run make?\n";
  3384. + -d  $Config{'installprivlib'}
  3385. +     || warn "Perl library directory $Config{'installprivlib'} not found.
  3386. +         Have you run make install?.  (Installing anyway.)\n";
  3387. + -x 't/TEST'        || warn "WARNING: You've never run 'make test'!!!",
  3388. +     "  (Installing anyway.)\n";
  3389. + 
  3390. + # Install the main pod pages.
  3391. + runpod2man('pod', $man1dir, $man1ext);
  3392. + 
  3393. + # Install the pods for library modules.
  3394. + runpod2man('lib', $man3dir, $man3ext);
  3395. + 
  3396. + sub runpod2man {
  3397. +     my($poddir, $mandir, $manext) = @_;
  3398. +     my($builddir) = Cwd::getcwd();
  3399. + 
  3400. +     if ($mandir eq ' ' or $mandir eq '') {
  3401. +     print STDERR "Skipping installation of $poddir man pages.\n";
  3402. +     return;
  3403. +     }
  3404. + 
  3405. +     chdir $poddir || die "Unable to cd to $poddir directory!\n$!\n";
  3406. + 
  3407. +     # We insist on using the current version of pod2man in case there
  3408. +     # are enhancements or changes from previous installed versions.
  3409. +     $pod2man = "../pod/pod2man";
  3410. +     -x  $pod2man    || die "Executable $pod2man not found.\n";
  3411. + 
  3412. +     &makedir($mandir);
  3413. +     # Make a list of all the .pm and .pod files in the directory.  We will
  3414. +     # always run pod2man from the lib directory and feed it the full pathname
  3415. +     # of the pod.  This might be useful for pod2man someday.
  3416. +     @modpods = ();
  3417. +     find(\&lsmodpods, '.');
  3418. +     foreach $mod (@modpods) {
  3419. +     $manpage = $mod;
  3420. +     # Convert name from  File/Basename.pm to File::Basename.3 format,
  3421. +     # if necessary.
  3422. +     $manpage =~ s#\.p(m|od)$##;
  3423. +     $manpage =~ s#/#::#g;
  3424. +     $manpage = "${mandir}/${manpage}.${manext}";
  3425. +     # Print $release $patchlevel stuff?  or should pod2man do that?
  3426. +     &cmd("$pod2man $mod > $manpage");
  3427. +     }
  3428. +     chdir "$builddir" || die "Unable to cd back to $builddir directory!\n$!\n";
  3429. + }
  3430. + 
  3431. + sub lsmodpods {
  3432. +     my $dir  = $File::Find::dir;
  3433. +     my $name = $File::Find::name;
  3434. +     if (-f $_) {
  3435. +         $name =~ s#^\./##;
  3436. +     push(@modpods, $name) if ($name =~ /\.p(m|od)$/);
  3437. +     }
  3438. + }
  3439. + 
  3440. + print STDERR "  Installation complete\n";
  3441. + 
  3442. + exit 0;
  3443. +     
  3444. + 
  3445. + ###############################################################################
  3446. + # Utility subroutines from installperl
  3447. + 
  3448. + sub cmd {
  3449. +     local($cmd) = @_;
  3450. +     print STDERR "  $cmd\n";
  3451. +     unless ($notify) {
  3452. +     system $cmd;
  3453. +     warn "Command failed!!!\n" if $?;
  3454. +     }
  3455. + }
  3456. + 
  3457. + sub link {
  3458. +     local($from,$to) = @_;
  3459. + 
  3460. +     print STDERR "  ln $from $to\n";
  3461. +     link($from,$to) || warn "Couldn't link $from to $to: $!\n" unless $notify;
  3462. + }
  3463. + 
  3464. + sub chmod {
  3465. +     local($mode,$name) = @_;
  3466. + 
  3467. +     printf STDERR "  chmod %o %s\n", $mode, $name;
  3468. +     chmod($mode,$name) || warn sprintf("Couldn't chmod %o %s: $!\n",$mode,$name)
  3469. +     unless $notify;
  3470. + }
  3471. + 
  3472. + sub makedir {
  3473. +     local($dir) = @_;
  3474. +     unless (-d $dir) {
  3475. +     local($shortdir) = $dir;
  3476. + 
  3477. +     $shortdir =~ s#(.*)/.*#$1#;
  3478. +     &makedir($shortdir);
  3479. + 
  3480. +     print STDERR "  mkdir $dir\n";
  3481. +     mkdir($dir, 0777) || warn "Couldn't create $dir: $!\n" unless $notify;
  3482. +     }
  3483. + }
  3484. + 
  3485. + sub samepath {
  3486. +     local($p1, $p2) = @_;
  3487. +     local($dev1, $ino1, $dev2, $ino2);
  3488. + 
  3489. +     if ($p1 ne $p2) {
  3490. +     ($dev1, $ino1) = stat($p1);
  3491. +     ($dev2, $ino2) = stat($p2);
  3492. +     ($dev1 == $dev2 && $ino1 == $ino2);
  3493. +     }
  3494. +     else {
  3495. +     1;
  3496. +     }
  3497. + }
  3498. Index: installperl
  3499. *** perl5.001h/installperl    Sat Apr 15 11:14:10 1995
  3500. --- perl5.001i/installperl    Tue May 30 13:28:40 1995
  3501. ***************
  3502. *** 13,20 ****
  3503.   umask 022;
  3504.   
  3505.   @scripts = ('cppstdin', 'c2ph', 'h2xs', 'pstruct', 'x2p/s2p', 'x2p/find2perl',
  3506. !         'pod/pod2man', 'pod/pod2html', 'pod/pod2latex' );
  3507. ! @manpages = (<pod/*.man>, 'x2p/a2p.man', 'x2p/s2p.man');
  3508.   
  3509.   # Read in the config file.
  3510.   
  3511. --- 13,25 ----
  3512.   umask 022;
  3513.   
  3514.   @scripts = ('cppstdin', 'c2ph', 'h2xs', 'pstruct', 'x2p/s2p', 'x2p/find2perl',
  3515. !         'perldoc', 'pod/pod2man', 'pod/pod2html', 'pod/pod2latex' );
  3516. ! 
  3517. ! # pod documentation now handled by separate installman script.
  3518. ! # These two are archaic leftovers.
  3519. ! @manpages = ('x2p/a2p.man', 'x2p/s2p.man');
  3520. ! 
  3521. ! @pods = (<pod/*.pod>);
  3522.   
  3523.   # Read in the config file.
  3524.   
  3525. ***************
  3526. *** 100,118 ****
  3527.       }
  3528.   }
  3529.   
  3530. ! # Install man pages.
  3531.   
  3532. ! if ($installmansrc ne '') {
  3533. !     &makedir($installmansrc);
  3534.   
  3535. !     if (! &samepath($installmansrc, '.')) {
  3536.       for (@manpages) {
  3537. !         ($new = $_) =~ s/man$/$manext/;
  3538.           $new =~ s#.*/##;
  3539. !         print STDERR "  Installing $installmansrc/$new\n";
  3540.           next if $nonono;
  3541.           open(MI,$_) || warn "Can't open $_: $!\n";
  3542. !         open(MO,">$installmansrc/$new") || warn "Can't install $installmansrc/$new: $!\n";
  3543.           print MO ".ds RP Release $release Patchlevel $patchlevel\n";
  3544.           while (<MI>) {
  3545.           print MO;
  3546. --- 105,131 ----
  3547.       }
  3548.   }
  3549.   
  3550. ! # Install pod pages.  Where? I guess in $installprivlib/pod.
  3551. ! &makedir("${installprivlib}/pod");
  3552. ! foreach $file (@pods) {
  3553. !     # $file is a name like  pod/perl.pod
  3554. !     cp_if_diff($file, "${installprivlib}/${file}");
  3555. ! }
  3556. ! 
  3557. ! # Install old man pages.
  3558.   
  3559. ! if ($installman1dir ne '') {
  3560. !     &makedir($installman1dir);
  3561.   
  3562. !     if (! &samepath($installman1dir, '.')) {
  3563.       for (@manpages) {
  3564. !         ($new = $_) =~ s/man$/$man1ext/;
  3565.           $new =~ s#.*/##;
  3566. !         print STDERR "  Installing $installman1dir/$new\n";
  3567.           next if $nonono;
  3568.           open(MI,$_) || warn "Can't open $_: $!\n";
  3569. !         open(MO,">$installman1dir/$new") || 
  3570. !             warn "Can't install $installman1dir/$new: $!\n";
  3571.           print MO ".ds RP Release $release Patchlevel $patchlevel\n";
  3572.           while (<MI>) {
  3573.           print MO;
  3574. ***************
  3575. *** 146,156 ****
  3576.   makedir("$installarchlib/CORE");
  3577.   foreach $file (<*.h libperl*.*>) {
  3578.       cp_if_diff($file,"$installarchlib/CORE/$file");
  3579. -     if ($file =~ /\.a$/ && $osname =~ /^(next|sunos)$/) { 
  3580. -        # on NeXTs and Suns we have to rerun ranlib after copying libraries
  3581. -        # (maybe on all platforms which have ranlib ?)
  3582. -        &cmd("$ranlib $installarchlib/CORE/$file");
  3583. -     }
  3584.   }
  3585.   # AIX needs perl.exp installed as well.
  3586.   cp_if_diff("perl.exp" ,"$installarchlib/CORE/perl.exp") if ($osname eq 'aix');
  3587. --- 159,164 ----
  3588. ***************
  3589. *** 319,329 ****
  3590.       if ($?) {
  3591.           &unlink("$installlib/$name");
  3592.           &makedir("$installlib/$dir");
  3593. !         &cmd("cp $_ $installlib/$dir");
  3594. !         if (/\.a$/ && $osname eq 'next') { 
  3595. !         #on NeXTs we have to rerun ranlib after copying libraries
  3596. !         &cmd("$ranlib $installlib/$dir/$_");
  3597. !         }
  3598.           # HP-UX (at least) needs to maintain execute permissions
  3599.           # on dynamically-loaded libraries.
  3600.           if ($name =~ /\.(so|$dlext)$/o) {
  3601. --- 327,333 ----
  3602.       if ($?) {
  3603.           &unlink("$installlib/$name");
  3604.           &makedir("$installlib/$dir");
  3605. !         cp_if_diff("$_", "$installlib/$dir/$_");
  3606.           # HP-UX (at least) needs to maintain execute permissions
  3607.           # on dynamically-loaded libraries.
  3608.           if ($name =~ /\.(so|$dlext)$/o) {
  3609. ***************
  3610. *** 338,349 ****
  3611. --- 342,367 ----
  3612.       }
  3613.   }
  3614.   
  3615. + # Copy $from to $to, only if $from is different than $to.
  3616. + # Also preserve modification times for .a libraries.
  3617. + # On some systems, if you do
  3618. + #   ranlib libperl.a
  3619. + #   cp libperl.a /usr/local/lib/perl5/archlib/CORE/libperl.a
  3620. + # and then try to link against the installed libperl.a, you might
  3621. + # get an error message to the effect that the symbol table is older
  3622. + # than the library.
  3623.   sub cp_if_diff {
  3624.       my($from,$to)=@_;
  3625.       -f $from || die "$0: $from not found";
  3626.       system "cmp", "-s", $from, $to;
  3627.       if ($?) {
  3628. +     my ($atime, $mtime);
  3629.       unlink($to);   # In case we don't have write permissions.
  3630.       cmd("cp $from $to");
  3631. +     # Restore timestamps if it's a .a library.
  3632. +     if ($to =~ /\.a$/) {
  3633. +         ($atime, $mtime) = (stat $from)[8,9];
  3634. +         utime $atime, $mtime, $to;
  3635. +     }
  3636.       }
  3637.   }
  3638. Index: makedepend.SH
  3639. *** perl5.001h/makedepend.SH    Wed Feb  8 19:43:35 1995
  3640. --- perl5.001i/makedepend.SH    Thu May 25 11:05:52 1995
  3641. ***************
  3642. *** 43,49 ****
  3643.       ;;
  3644.   esac
  3645.   
  3646. ! PATH="$PATH:."
  3647.   export PATH
  3648.   
  3649.   $cat /dev/null >.deptmp
  3650. --- 43,51 ----
  3651.       ;;
  3652.   esac
  3653.   
  3654. ! # We need .. when we are in the x2p directory if we are using the
  3655. ! # cppstdin wrapper script.
  3656. ! PATH="$PATH:.:.."
  3657.   export PATH
  3658.   
  3659.   $cat /dev/null >.deptmp
  3660. Index: opcode.h
  3661. *** perl5.001h/opcode.h    Sun Mar 12 22:27:37 1995
  3662. --- perl5.001i/opcode.h    Tue May  9 14:34:17 1995
  3663. ***************
  3664. *** 2058,2064 ****
  3665.       0x0001111d,    /* shmget */
  3666.       0x0001111d,    /* shmctl */
  3667.       0x0011111d,    /* shmread */
  3668. !     0x0011111c,    /* shmwrite */
  3669.       0x0000111d,    /* msgget */
  3670.       0x0001111d,    /* msgctl */
  3671.       0x0001111d,    /* msgsnd */
  3672. --- 2058,2064 ----
  3673.       0x0001111d,    /* shmget */
  3674.       0x0001111d,    /* shmctl */
  3675.       0x0011111d,    /* shmread */
  3676. !     0x0011111d,    /* shmwrite */
  3677.       0x0000111d,    /* msgget */
  3678.       0x0001111d,    /* msgctl */
  3679.       0x0001111d,    /* msgsnd */
  3680. Index: opcode.pl
  3681. *** perl5.001h/opcode.pl    Mon Mar  6 21:18:48 1995
  3682. --- perl5.001i/opcode.pl    Fri May  5 14:24:57 1995
  3683. ***************
  3684. *** 558,564 ****
  3685.   shmget        shmget            ck_fun        imst    S S S
  3686.   shmctl        shmctl            ck_fun        imst    S S S
  3687.   shmread        shmread            ck_fun        imst    S S S S
  3688. ! shmwrite    shmwrite        ck_fun        ist    S S S S
  3689.   
  3690.   # Message passing.
  3691.   
  3692. --- 558,564 ----
  3693.   shmget        shmget            ck_fun        imst    S S S
  3694.   shmctl        shmctl            ck_fun        imst    S S S
  3695.   shmread        shmread            ck_fun        imst    S S S S
  3696. ! shmwrite    shmwrite        ck_fun        imst    S S S S
  3697.   
  3698.   # Message passing.
  3699.   
  3700. Index: perl.c
  3701. *** perl5.001h/perl.c    Tue Apr 18 14:06:04 1995
  3702. --- perl5.001i/perl.c    Wed May 31 11:40:13 1995
  3703. ***************
  3704. *** 996,1002 ****
  3705.       return s;
  3706.       case 'v':
  3707.       printf("\nThis is perl, version %s\n\n",patchlevel);
  3708. !     fputs("\tUnofficial patchlevel 1e.\n",stdout);
  3709.       fputs("\nCopyright 1987-1994, Larry Wall\n",stdout);
  3710.   #ifdef MSDOS
  3711.       fputs("MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n",
  3712. --- 996,1002 ----
  3713.       return s;
  3714.       case 'v':
  3715.       printf("\nThis is perl, version %s\n\n",patchlevel);
  3716. !     fputs("\tUnofficial patchlevel 1i.\n",stdout);
  3717.       fputs("\nCopyright 1987-1994, Larry Wall\n",stdout);
  3718.   #ifdef MSDOS
  3719.       fputs("MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n",
  3720. ***************
  3721. *** 1690,1695 ****
  3722. --- 1690,1698 ----
  3723.           incpush(getenv("PERLLIB"));
  3724.       }
  3725.   
  3726. + #ifdef SITELIB_EXP
  3727. +     incpush(SITELIB_EXP);
  3728. + #endif
  3729.   #ifdef ARCHLIB_EXP
  3730.       incpush(ARCHLIB_EXP);
  3731.   #endif
  3732. Index: perl.h
  3733. *** perl5.001h/perl.h    Thu Apr 13 09:29:16 1995
  3734. --- perl5.001i/perl.h    Tue May 23 11:17:37 1995
  3735. ***************
  3736. *** 127,132 ****
  3737. --- 127,136 ----
  3738.   #   undef HAS_MEMCMP
  3739.   #endif
  3740.   
  3741. + #ifdef I_MEMORY
  3742. + #  include <memory.h>
  3743. + #endif
  3744. + 
  3745.   #ifdef HAS_MEMCPY
  3746.   #  if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
  3747.   #    ifndef memcpy
  3748. ***************
  3749. *** 525,534 ****
  3750.   typedef struct mgvtbl MGVTBL;
  3751.   typedef union any ANY;
  3752.   
  3753. - typedef int (*cryptswitch_t) _((void));
  3754. - 
  3755.   #include "handy.h"
  3756.   
  3757.   #ifdef DOSISH
  3758.   #   include "dosish.h"
  3759.   #else
  3760. --- 529,541 ----
  3761.   typedef struct mgvtbl MGVTBL;
  3762.   typedef union any ANY;
  3763.   
  3764.   #include "handy.h"
  3765.   
  3766. + typedef I32 (*filter_t) _((int, SV *, int));
  3767. + #define FILTER_READ(idx, sv, len)  filter_read(idx, sv, len)
  3768. + #define FILTER_DATA(idx)       (AvARRAY(rsfp_filters)[idx])
  3769. + #define FILTER_ISREADER(idx)       (idx >= AvFILL(rsfp_filters))
  3770. + 
  3771.   #ifdef DOSISH
  3772.   #   include "dosish.h"
  3773.   #else
  3774. ***************
  3775. *** 780,786 ****
  3776.   char *getlogin _((void));
  3777.   #endif
  3778.   
  3779. ! #ifdef EUNICE
  3780.   #define UNLINK unlnk
  3781.   I32 unlnk _((char*));
  3782.   #else
  3783. --- 787,793 ----
  3784.   char *getlogin _((void));
  3785.   #endif
  3786.   
  3787. ! #ifdef UNLINK_ALL_VERSIONS /* Currently only makes sense for VMS */
  3788.   #define UNLINK unlnk
  3789.   I32 unlnk _((char*));
  3790.   #else
  3791. ***************
  3792. *** 1080,1086 ****
  3793.   EXT char *    bufend;
  3794.   EXT expectation expect INIT(XSTATE);    /* how to interpret ambiguous tokens */
  3795.   EXT char *    autoboot_preamble INIT(Nullch);
  3796. ! EXT cryptswitch_t cryptswitch_fp;
  3797.   
  3798.   EXT I32        multi_start;    /* 1st line of multi-line string */
  3799.   EXT I32        multi_end;    /* last line of multi-line string */
  3800. --- 1087,1093 ----
  3801.   EXT char *    bufend;
  3802.   EXT expectation expect INIT(XSTATE);    /* how to interpret ambiguous tokens */
  3803.   EXT char *    autoboot_preamble INIT(Nullch);
  3804. ! EXT AV *     rsfp_filters;
  3805.   
  3806.   EXT I32        multi_start;    /* 1st line of multi-line string */
  3807.   EXT I32        multi_end;    /* last line of multi-line string */
  3808. Index: perldoc.SH
  3809. *** /dev/null    Wed May 31 09:31:33 1995
  3810. --- perl5.001i/perldoc.SH    Tue May 30 15:59:09 1995
  3811. ***************
  3812. *** 0 ****
  3813. --- 1,201 ----
  3814. + case $CONFIG in
  3815. + '')
  3816. +     if test -f config.sh; then TOP=.;
  3817. +     elif test -f ../config.sh; then TOP=..;
  3818. +     elif test -f ../../config.sh; then TOP=../..;
  3819. +     elif test -f ../../../config.sh; then TOP=../../..;
  3820. +     elif test -f ../../../../config.sh; then TOP=../../../..;
  3821. +     else
  3822. +         echo "Can't find config.sh."; exit 1
  3823. +     fi
  3824. +     . $TOP/config.sh
  3825. +     ;;
  3826. + esac
  3827. + : This forces SH files to create target in same directory as SH file.
  3828. + : This is so that make depend always knows where to find SH derivatives.
  3829. + case "$0" in
  3830. + */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  3831. + esac
  3832. + echo "Extracting perldoc (with variable substitutions)"
  3833. + $spitshell >perldoc <<!GROK!THIS!
  3834. + #!$bin/perl
  3835. + !GROK!THIS!
  3836. + 
  3837. + $spitshell >>perldoc <<'!NO!SUBS!'
  3838. + 
  3839. + #
  3840. + # Perldoc revision #1 -- look up a piece of documentation in .pod format that
  3841. + # is embedded in the perl installation tree.
  3842. + #
  3843. + # This is not to be confused with Tom Christianson's perlman, which is a
  3844. + # man replacement, written in perl. This perldoc is strictly for reading
  3845. + # the perl manuals, though it too is written in perl.
  3846. + #
  3847. + # Version 1.01:    Tue May 30 14:47:34 EDT 1995
  3848. + #        Andy Dougherty  <doughera@lafcol.lafayette.edu>
  3849. + #   -added pod documentation.
  3850. + #   -added PATH searching.
  3851. + #   -added searching pod/ subdirectory (mainly to pick up perlfunc.pod
  3852. + #    and friends.
  3853. + 
  3854. + =head1 NAME
  3855. + 
  3856. + perldoc - Look up Perl documentation in pod format.
  3857. + 
  3858. + =head1 SYNOPSIS
  3859. + 
  3860. + B<perldoc> [B<-h>] PageName|ModuleName
  3861. + 
  3862. + =head1 DESCRIPTION
  3863. + 
  3864. + I<perldoc> looks up a piece of documentation in .pod format that is
  3865. + embedded in the perl installation tree or in a perl script, and displays
  3866. + it via pod2man | nroff -man | $PAGER.  This is primarily used for the
  3867. + documentation for the perl library modules. 
  3868. + 
  3869. + Your system may also have man pages installed for those modules, in
  3870. + which case you can probably just use the man(1) command.
  3871. + 
  3872. + =head1 OPTIONS
  3873. + 
  3874. + =over 5
  3875. + 
  3876. + =item B<-h> help
  3877. + 
  3878. + Prints out a brief help message.
  3879. + 
  3880. + =item B<PageName|ModuleName>
  3881. + 
  3882. + The item you want to look up.  Nested modules (such as C<File::Basename>)
  3883. + are specified either as C<File::Basename> or C<File/Basename>.  You
  3884. + may also give a descriptive name of a page, such as C<perlfunc>.
  3885. + 
  3886. + =back
  3887. + 
  3888. + =head1 ENVIRONMENT
  3889. + 
  3890. + Any switches in the C<PERLDOC> environment variable will be used before the 
  3891. + command line arguments.  C<perldoc> also searches directories
  3892. + specified by the C<PERL5LIB> (or C<PERLLIB> if C<PERL5LIB> is not
  3893. + defined) and C<PATH> environment variables.
  3894. + (The latter is so that embedded pods for executables, such as
  3895. + C<perldoc> itself, are available.)
  3896. + 
  3897. + =head1 AUTHOR
  3898. + 
  3899. + Kenneth Albanowski <kjahds@kjahds.com>
  3900. + 
  3901. + Minor updates by Andy Dougherty <doughera@lafcol.lafayette.edu>
  3902. + 
  3903. + =head1 SEE ALSO
  3904. + 
  3905. + =head1 DIAGNOSTICS
  3906. + 
  3907. + =cut
  3908. + 
  3909. + if(@ARGV<1) {
  3910. +     die <<EOF;
  3911. + Usage: $0 [-h] PageName|ModuleName
  3912. + 
  3913. + We suggest you use C<perldoc perldoc> to get aquainted 
  3914. + with the system.
  3915. + EOF
  3916. + }
  3917. + 
  3918. + use Getopt::Std;
  3919. + 
  3920. + sub usage{
  3921. +         warn "@_\n" if @_;
  3922. +     die <<EOF;
  3923. + perlman [-h] PageName|ModuleName...
  3924. +     -h   Display this help message.
  3925. + PageName|ModuleName...
  3926. +          is the name of a piece of documentation that you want to look at. You 
  3927. +          may either give a descriptive name of the page (as in the case of
  3928. +          `perlfunc') or the name of a module, either like `Term::Info', 
  3929. +          `Term/Info'.
  3930. +          
  3931. + Any switches in the PERLDOC environment variable will be used before the 
  3932. + command line arguments.
  3933. + 
  3934. + EOF
  3935. + }
  3936. + 
  3937. + use Text::ParseWords;
  3938. + 
  3939. + unshift(@ARGV,shellwords($ENV{"PERLDOC"}));
  3940. + 
  3941. + getopts("h") || usage;
  3942. + 
  3943. + usage if $opt_h;
  3944. + 
  3945. + $index = $opt_i;
  3946. + @pages = @ARGV;
  3947. + 
  3948. + sub containspod {
  3949. +     my($file) = @_;
  3950. +     local($_);
  3951. +     open(TEST,"<$file");
  3952. +     while(<TEST>) {
  3953. +         if(/^=head/) {
  3954. +             close(TEST);
  3955. +             return 1;
  3956. +         }
  3957. +     }
  3958. +     close(TEST);
  3959. +     return 0;
  3960. + }
  3961. + 
  3962. + sub searchfor {
  3963. +     my($s,@dirs) = @_;
  3964. +     $s =~ s!::!/!g;
  3965. +     printf STDERR "looking for $s in @dirs\n";
  3966. +     
  3967. +     foreach $dir (@dirs) {
  3968. +         if( -f "$dir/$s.pod") { return "$dir/$s.pod" }
  3969. +         elsif( -f "$dir/$s.pm" and containspod("$dir/$s.pm"))
  3970. +             { return "$dir/$s.pm" }
  3971. +         elsif( -f "$dir/$s" and containspod("$dir/$s"))
  3972. +             { return "$dir/$s" } 
  3973. +         elsif( -f "$dir/pod/$s.pod") { return "$dir/pod/$s.pod" }
  3974. +         elsif( -f "$dir/pod/$s" and containspod("$dir/pod/$s"))
  3975. +             { return "$dir/pod/$s" } 
  3976. +     }
  3977. +     return ();
  3978. + }
  3979. + 
  3980. + 
  3981. + $ENV{PAGER} ||= "more";
  3982. + 
  3983. + foreach (@pages) {
  3984. +     print STDERR "Searching for $_\n";
  3985. +     # We must look both in @INC for library modules and in PATH
  3986. +     # for executables, like h2xs or perldoc itself.
  3987. +     @searchdirs = @INC;
  3988. +     push(@searchdirs, split(':', $ENV{'PATH'}) );
  3989. +     @files= searchfor($_,@searchdirs);
  3990. +     if( @files ) {
  3991. +         print STDERR "Found as @files\n";
  3992. +     } else {
  3993. +         print STDERR "No documentation found for $_\n";
  3994. +     }
  3995. +     push(@found,@files);
  3996. + }
  3997. + 
  3998. + $cmd=$filter="";
  3999. + 
  4000. + if( ! -t STDOUT ) { $opt_f = 1 }
  4001. + 
  4002. + $cmd = "pod2man - | nroff -man";
  4003. + if( ! $opt_f ) { $filter = "|$ENV{PAGER}" };
  4004. + 
  4005. + open(OUT,"|$cmd$filter");
  4006. + foreach (@found) {
  4007. +     open(IN,"<$_");
  4008. +     print OUT while <IN>;
  4009. +     close(IN);
  4010. + }
  4011. + close(OUT);
  4012. + !NO!SUBS!
  4013. + chmod 755 perldoc
  4014. + $eunicefix perldoc
  4015. Index: pod/perl.pod
  4016. *** perl5.001h/pod/perl.pod    Wed Feb  8 19:09:53 1995
  4017. --- perl5.001i/pod/perl.pod    Fri May 26 14:21:34 1995
  4018. ***************
  4019. *** 36,41 ****
  4020. --- 36,57 ----
  4021.   (If you're intending to read these straight through for the first time,
  4022.   the suggested order will tend to reduce the number of forward references.)
  4023.   
  4024. + Additional documentation for perl modules is available in
  4025. + the F</usr/local/lib/perl5/man/man3> directory.  You can view this
  4026. + with a man(1) program by including the following in the
  4027. + appropriate start-up files.  (You may have to adjust the path to
  4028. + match $Config{'man3dir'}.)
  4029. + 
  4030. +     .profile (for sh, bash or ksh users):
  4031. +     MANPATH=$MANPATH:/usr/local/lib/perl5/man
  4032. +     export MANPATH
  4033. + 
  4034. +     .login (for csh or tcsh users):
  4035. +     setenv MANPATH $MANPATH:/usr/local/lib/perl5/man
  4036. + 
  4037. + If that doesn't work for some reason, you can still use the
  4038. + supplied perldoc script to view module information.
  4039. + 
  4040.   If something strange has gone wrong with your program and you're not
  4041.   sure where you should look for help, try the B<-w> switch first.  It
  4042.   will often point out exactly where the trouble is.
  4043. ***************
  4044. *** 269,271 ****
  4045. --- 285,288 ----
  4046.   
  4047.   The three principle virtues of a programmer are Laziness,
  4048.   Impatience, and Hubris.  See the Camel Book for why.
  4049. + 
  4050. Index: pp_ctl.c
  4051. *** perl5.001h/pp_ctl.c    Wed Mar 15 09:29:43 1995
  4052. --- perl5.001i/pp_ctl.c    Wed May 24 11:48:36 1995
  4053. ***************
  4054. *** 1298,1303 ****
  4055. --- 1298,1305 ----
  4056.   
  4057.       if (stack == sortstack) {
  4058.       if (cxstack_ix == sortcxix || dopoptosub(cxstack_ix) < sortcxix) {
  4059. +         if (cxstack_ix > sortcxix)
  4060. +         dounwind(sortcxix);
  4061.           AvARRAY(stack)[1] = *SP;
  4062.           stack_sp = stack_base + 1;
  4063.           return 0;
  4064. Index: pp_hot.c
  4065. *** perl5.001h/pp_hot.c    Fri Apr 14 10:01:21 1995
  4066. --- perl5.001i/pp_hot.c    Thu May 25 14:27:29 1995
  4067. ***************
  4068. *** 974,980 ****
  4069.           sv_setpvn(tmpcmd, cshname, cshlen);
  4070.           sv_catpv(tmpcmd, " -cf 'set nonomatch; glob ");
  4071.           sv_catsv(tmpcmd, tmpglob);
  4072. !         sv_catpv(tmpcmd, "'|");
  4073.   #else
  4074.           sv_setpv(tmpcmd, "echo ");
  4075.           sv_catsv(tmpcmd, tmpglob);
  4076. --- 974,980 ----
  4077.           sv_setpvn(tmpcmd, cshname, cshlen);
  4078.           sv_catpv(tmpcmd, " -cf 'set nonomatch; glob ");
  4079.           sv_catsv(tmpcmd, tmpglob);
  4080. !         sv_catpv(tmpcmd, "' 2>/dev/null |");
  4081.   #else
  4082.           sv_setpv(tmpcmd, "echo ");
  4083.           sv_catsv(tmpcmd, tmpglob);
  4084. ***************
  4085. *** 1809,1816 ****
  4086.       sv = *(stack_base + TOPMARK + 1);
  4087.       
  4088.       gv = 0;
  4089.       if (SvROK(sv))
  4090. !     ob = SvRV(sv);
  4091.       else {
  4092.       GV* iogv;
  4093.       char* packname = 0;
  4094. --- 1809,1818 ----
  4095.       sv = *(stack_base + TOPMARK + 1);
  4096.       
  4097.       gv = 0;
  4098. +     if (SvGMAGICAL(sv))
  4099. +         mg_get(sv);
  4100.       if (SvROK(sv))
  4101. !     ob = (SV*)SvRV(sv);
  4102.       else {
  4103.       GV* iogv;
  4104.       char* packname = 0;
  4105. Index: pp_sys.c
  4106. *** perl5.001h/pp_sys.c    Tue Apr 11 15:48:46 1995
  4107. --- perl5.001i/pp_sys.c    Thu May 25 17:06:55 1995
  4108. ***************
  4109. *** 17,27 ****
  4110.   #include "EXTERN.h"
  4111.   #include "perl.h"
  4112.   
  4113. ! /* Omit this -- it causes too much grief on mixed systems.
  4114. ! #ifdef I_UNISTD
  4115. ! #include <unistd.h>
  4116. ! #endif
  4117.   */
  4118.   
  4119.   /* Put this after #includes because fork and vfork prototypes may
  4120.      conflict.
  4121. --- 17,31 ----
  4122.   #include "EXTERN.h"
  4123.   #include "perl.h"
  4124.   
  4125. ! /* XXX Omit this -- it causes too much grief on mixed systems.
  4126. !    Next time, I should force broken systems to unset i_unistd in
  4127. !    hint files.
  4128.   */
  4129. + #if 0
  4130. + # ifdef I_UNISTD
  4131. + #  include <unistd.h>
  4132. + # endif
  4133. + #endif
  4134.   
  4135.   /* Put this after #includes because fork and vfork prototypes may
  4136.      conflict.
  4137. ***************
  4138. *** 1242,1248 ****
  4139.       int argtype;
  4140.       GV *gv;
  4141.       FILE *fp;
  4142. ! #ifdef HAS_FLOCK
  4143.       argtype = POPi;
  4144.       if (MAXARG <= 0)
  4145.       gv = last_in_gv;
  4146. --- 1246,1257 ----
  4147.       int argtype;
  4148.       GV *gv;
  4149.       FILE *fp;
  4150. ! 
  4151. ! #if !defined(HAS_FLOCK) && defined(HAS_LOCKF)
  4152. ! #  define flock lockf_emulate_flock
  4153. ! #endif
  4154. ! 
  4155. ! #if defined(HAS_FLOCK) || defined(flock)
  4156.       argtype = POPi;
  4157.       if (MAXARG <= 0)
  4158.       gv = last_in_gv;
  4159. ***************
  4160. *** 1260,1270 ****
  4161.       PUSHi(value);
  4162.       RETURN;
  4163.   #else
  4164. - # ifdef HAS_LOCKF
  4165. -     DIE(no_func, "flock()"); /* XXX emulate flock() with lockf()? */
  4166. - # else
  4167.       DIE(no_func, "flock()");
  4168. - # endif
  4169.   #endif
  4170.   }
  4171.   
  4172. --- 1269,1275 ----
  4173. ***************
  4174. *** 2032,2049 ****
  4175.       RETPUSHNO;
  4176.   }
  4177.   
  4178. ! #if defined(USE_STD_STDIO) || defined(atarist) /* this will work with atariST */
  4179. ! # define FBASE(f) ((f)->_base)
  4180. ! # define FSIZE(f) ((f)->_cnt + ((f)->_ptr - (f)->_base))
  4181. ! # define FPTR(f) ((f)->_ptr)
  4182. ! # define FCOUNT(f) ((f)->_cnt)
  4183. ! #else 
  4184. ! # if defined(USE_LINUX_STDIO)
  4185. ! #   define FBASE(f) ((f)->_IO_read_base)
  4186. ! #   define FSIZE(f) ((f)->_IO_read_end - FBASE(f))
  4187. ! #   define FPTR(f) ((f)->_IO_read_ptr)
  4188. ! #   define FCOUNT(f) ((f)->_IO_read_end - FPTR(f))
  4189. ! # endif
  4190.   #endif
  4191.   
  4192.   PP(pp_fttext)
  4193. --- 2037,2048 ----
  4194.       RETPUSHNO;
  4195.   }
  4196.   
  4197. ! #if defined(atarist) /* this will work with atariST. Configure will
  4198. !             make guesses for other systems. */
  4199. ! # define FILE_base(f) ((f)->_base)
  4200. ! # define FILE_ptr(f) ((f)->_ptr)
  4201. ! # define FILE_cnt(f) ((f)->_cnt)
  4202. ! # define FILE_bufsiz(f) ((f)->_cnt + ((f)->_ptr - (f)->_base))
  4203.   #endif
  4204.   
  4205.   PP(pp_fttext)
  4206. ***************
  4207. *** 2073,2094 ****
  4208.           io = GvIO(statgv);
  4209.       }
  4210.       if (io && IoIFP(io)) {
  4211. ! #ifdef FBASE
  4212.           Fstat(fileno(IoIFP(io)), &statcache);
  4213.           if (S_ISDIR(statcache.st_mode))    /* handle NFS glitch */
  4214.           if (op->op_type == OP_FTTEXT)
  4215.               RETPUSHNO;
  4216.           else
  4217.               RETPUSHYES;
  4218. !         if (FCOUNT(IoIFP(io)) <= 0) {
  4219.           i = getc(IoIFP(io));
  4220.           if (i != EOF)
  4221.               (void)ungetc(i, IoIFP(io));
  4222.           }
  4223. !         if (FCOUNT(IoIFP(io)) <= 0)    /* null file is anything */
  4224.           RETPUSHYES;
  4225. !         len = FSIZE(IoIFP(io));
  4226. !         s = FBASE(IoIFP(io));
  4227.   #else
  4228.           DIE("-T and -B not implemented on filehandles");
  4229.   #endif
  4230. --- 2072,2093 ----
  4231.           io = GvIO(statgv);
  4232.       }
  4233.       if (io && IoIFP(io)) {
  4234. ! #ifdef FILE_base
  4235.           Fstat(fileno(IoIFP(io)), &statcache);
  4236.           if (S_ISDIR(statcache.st_mode))    /* handle NFS glitch */
  4237.           if (op->op_type == OP_FTTEXT)
  4238.               RETPUSHNO;
  4239.           else
  4240.               RETPUSHYES;
  4241. !         if (FILE_cnt(IoIFP(io)) <= 0) {
  4242.           i = getc(IoIFP(io));
  4243.           if (i != EOF)
  4244.               (void)ungetc(i, IoIFP(io));
  4245.           }
  4246. !         if (FILE_cnt(IoIFP(io)) <= 0)    /* null file is anything */
  4247.           RETPUSHYES;
  4248. !         len = FILE_bufsiz(IoIFP(io));
  4249. !         s = FILE_base(IoIFP(io));
  4250.   #else
  4251.           DIE("-T and -B not implemented on filehandles");
  4252.   #endif
  4253. ***************
  4254. *** 2321,2327 ****
  4255.   char *filename;
  4256.   {
  4257.       char mybuf[8192];
  4258. !     char *s, 
  4259.        *save_filename = filename;
  4260.       int anum = 1;
  4261.       FILE *myfp;
  4262. --- 2320,2326 ----
  4263.   char *filename;
  4264.   {
  4265.       char mybuf[8192];
  4266. !     char *s,
  4267.        *save_filename = filename;
  4268.       int anum = 1;
  4269.       FILE *myfp;
  4270. ***************
  4271. *** 3871,3873 ****
  4272. --- 3870,3960 ----
  4273.   #endif
  4274.   }
  4275.   
  4276. + #if !defined(HAS_FLOCK) && defined(HAS_LOCKF)
  4277. + 
  4278. + /*  XXX Emulate flock() with lockf().  This is just to increase
  4279. +     portability of scripts.  The calls are not completely
  4280. +     interchangeable.  What's really needed is a good file
  4281. +     locking module.
  4282. + */
  4283. + 
  4284. + /*  We might need <unistd.h> because it sometimes defines the lockf()
  4285. +     constants.  Unfortunately, <unistd.h> causes troubles on some mixed
  4286. +     (BSD/POSIX) systems, such as SunOS 4.1.3.  We could just try including
  4287. +     <unistd.h> here in this part of the file, but that might
  4288. +     conflict with various other #defines and includes above, such as
  4289. +     #define vfork fork above.
  4290. + 
  4291. +    Further, the lockf() constants aren't POSIX, so they might not be
  4292. +    visible if we're compiling with _POSIX_SOURCE defined.  Thus, we'll
  4293. +    just stick in the SVID values and be done with it.  Sigh.
  4294. + */
  4295. + 
  4296. + # ifndef F_ULOCK
  4297. + #  define F_ULOCK    0    /* Unlock a previously locked region */
  4298. + # endif
  4299. + # ifndef F_LOCK
  4300. + #  define F_LOCK    1    /* Lock a region for exclusive use */
  4301. + # endif
  4302. + # ifndef F_TLOCK
  4303. + #  define F_TLOCK    2    /* Test and lock a region for exclusive use */
  4304. + # endif
  4305. + # ifndef F_TEST
  4306. + #  define F_TEST    3    /* Test a region for other processes locks */
  4307. + # endif
  4308. + 
  4309. + /* These are the flock() constants.  Since this sytems doesn't have
  4310. +    flock(), the values of the constants are probably not available.
  4311. + */
  4312. + # ifndef LOCK_SH
  4313. + #  define LOCK_SH 1
  4314. + # endif
  4315. + # ifndef LOCK_EX
  4316. + #  define LOCK_EX 2
  4317. + # endif
  4318. + # ifndef LOCK_NB
  4319. + #  define LOCK_NB 4
  4320. + # endif
  4321. + # ifndef LOCK_UN
  4322. + #  define LOCK_UN 8
  4323. + # endif
  4324. + 
  4325. + int
  4326. + lockf_emulate_flock (fd, operation)
  4327. + int fd;
  4328. + int operation;
  4329. + {
  4330. +     int i;
  4331. +     switch (operation) {
  4332. + 
  4333. +     /* LOCK_SH - get a shared lock */
  4334. +     case LOCK_SH:
  4335. +     /* LOCK_EX - get an exclusive lock */
  4336. +     case LOCK_EX:
  4337. +         i = lockf (fd, F_LOCK, 0);
  4338. +         break;
  4339. + 
  4340. +     /* LOCK_SH|LOCK_NB - get a non-blocking shared lock */
  4341. +     case LOCK_SH|LOCK_NB:
  4342. +     /* LOCK_EX|LOCK_NB - get a non-blocking exclusive lock */
  4343. +     case LOCK_EX|LOCK_NB:
  4344. +         i = lockf (fd, F_TLOCK, 0);
  4345. +         if (i == -1)
  4346. +         if ((errno == EAGAIN) || (errno == EACCES))
  4347. +             errno = EWOULDBLOCK;
  4348. +         break;
  4349. + 
  4350. +     /* LOCK_UN - unlock */
  4351. +     case LOCK_UN:
  4352. +         i = lockf (fd, F_ULOCK, 0);
  4353. +         break;
  4354. + 
  4355. +     /* Default - can't decipher operation */
  4356. +     default:
  4357. +         i = -1;
  4358. +         errno = EINVAL;
  4359. +         break;
  4360. +     }
  4361. +     return (i);
  4362. + }
  4363. + #endif
  4364. Index: proto.h
  4365. *** perl5.001h/proto.h    Wed Apr  5 14:50:41 1995
  4366. --- perl5.001i/proto.h    Tue May 23 11:17:38 1995
  4367. ***************
  4368. *** 48,54 ****
  4369.   #ifdef DEBUGGING
  4370.   void    cx_dump _((CONTEXT* cs));
  4371.   #endif
  4372. ! void    cryptswitch_add _((cryptswitch_t funcp));
  4373.   I32    cxinc _((void));
  4374.   void    deb _((char* pat,...)) __attribute__((format(printf,1,2)));
  4375.   void    deb_growlevel _((void));
  4376. --- 48,56 ----
  4377.   #ifdef DEBUGGING
  4378.   void    cx_dump _((CONTEXT* cs));
  4379.   #endif
  4380. ! SV *    filter_add _((filter_t funcp, SV *datasv));
  4381. ! void    filter_del _((filter_t funcp));
  4382. ! I32    filter_read _((int idx, SV *buffer, int maxlen));
  4383.   I32    cxinc _((void));
  4384.   void    deb _((char* pat,...)) __attribute__((format(printf,1,2)));
  4385.   void    deb_growlevel _((void));
  4386. ***************
  4387. *** 448,454 ****
  4388. --- 450,458 ----
  4389.   void    taint_env _((void));
  4390.   void    taint_not _((char *s));
  4391.   void    taint_proper _((char* f, char* s));
  4392. + #ifdef UNLINK_ALL_VERSIONS
  4393.   I32    unlnk _((char* f));
  4394. + #endif
  4395.   void    utilize _((int aver, OP* id, OP* arg));
  4396.   I32    wait4pid _((int pid, int* statusp, int flags));
  4397.   void    warn _((char* pat,...)) __attribute__((format(printf,1,2)));
  4398. Index: sv.c
  4399. *** perl5.001h/sv.c    Wed Apr 12 16:13:08 1995
  4400. --- perl5.001i/sv.c    Wed May 24 14:27:52 1995
  4401. ***************
  4402. *** 1045,1051 ****
  4403.           not_a_number(sv);
  4404.           return (IV)atol(SvPVX(sv));
  4405.       }
  4406. !     return 0;
  4407.       }
  4408.       if (SvTHINKFIRST(sv)) {
  4409.       if (SvROK(sv)) {
  4410. --- 1045,1053 ----
  4411.           not_a_number(sv);
  4412.           return (IV)atol(SvPVX(sv));
  4413.       }
  4414. !         if (!SvROK(sv)) {
  4415. !             return 0;
  4416. !         }
  4417.       }
  4418.       if (SvTHINKFIRST(sv)) {
  4419.       if (SvROK(sv)) {
  4420. ***************
  4421. *** 1123,1129 ****
  4422.       }
  4423.       if (SvIOKp(sv))
  4424.           return (double)SvIVX(sv);
  4425. !     return 0;
  4426.       }
  4427.       if (SvTHINKFIRST(sv)) {
  4428.       if (SvROK(sv)) {
  4429. --- 1125,1133 ----
  4430.       }
  4431.       if (SvIOKp(sv))
  4432.           return (double)SvIVX(sv);
  4433. !         if (!SvROK(sv)) {
  4434. !             return 0;
  4435. !         }
  4436.       }
  4437.       if (SvTHINKFIRST(sv)) {
  4438.       if (SvROK(sv)) {
  4439. ***************
  4440. *** 1202,1209 ****
  4441.           Gconvert(SvNVX(sv), DBL_DIG, 0, tokenbuf);
  4442.           goto tokensave;
  4443.       }
  4444. !     *lp = 0;
  4445. !     return "";
  4446.       }
  4447.       if (SvTHINKFIRST(sv)) {
  4448.       if (SvROK(sv)) {
  4449. --- 1206,1215 ----
  4450.           Gconvert(SvNVX(sv), DBL_DIG, 0, tokenbuf);
  4451.           goto tokensave;
  4452.       }
  4453. !         if (!SvROK(sv)) {
  4454. !             *lp = 0;
  4455. !             return "";
  4456. !         }
  4457.       }
  4458.       if (SvTHINKFIRST(sv)) {
  4459.       if (SvROK(sv)) {
  4460. ***************
  4461. *** 2362,2368 ****
  4462.   I32 append;
  4463.   {
  4464.       register char *bp;        /* we're going to steal some values */
  4465. ! #ifdef USE_STD_STDIO
  4466.       register I32 cnt;        /*  from the stdio struct and put EVERYTHING */
  4467.       register STDCHAR *ptr;    /*   in the innermost loop into registers */
  4468.       STRLEN bpx;
  4469. --- 2368,2374 ----
  4470.   I32 append;
  4471.   {
  4472.       register char *bp;        /* we're going to steal some values */
  4473. ! #ifdef USE_STDIO_PTR
  4474.       register I32 cnt;        /*  from the stdio struct and put EVERYTHING */
  4475.       register STDCHAR *ptr;    /*   in the innermost loop into registers */
  4476.       STRLEN bpx;
  4477. ***************
  4478. *** 2392,2399 ****
  4479.           }
  4480.       } while (i != EOF);
  4481.       }
  4482. ! #ifdef USE_STD_STDIO    /* Here is some breathtakingly efficient cheating */
  4483. !     cnt = fp->_cnt;            /* get count into register */
  4484.       (void)SvPOK_only(sv);        /* validate pointer */
  4485.       if (SvLEN(sv) - append <= cnt + 1) { /* make sure we have the room */
  4486.       if (cnt > 80 && SvLEN(sv) > append) {
  4487. --- 2398,2405 ----
  4488.           }
  4489.       } while (i != EOF);
  4490.       }
  4491. ! #ifdef USE_STDIO_PTR    /* Here is some breathtakingly efficient cheating */
  4492. !     cnt = FILE_cnt(fp);            /* get count into register */
  4493.       (void)SvPOK_only(sv);        /* validate pointer */
  4494.       if (SvLEN(sv) - append <= cnt + 1) { /* make sure we have the room */
  4495.       if (cnt > 80 && SvLEN(sv) > append) {
  4496. ***************
  4497. *** 2408,2414 ****
  4498.       else
  4499.       shortbuffered = 0;
  4500.       bp = SvPVX(sv) + append;        /* move these two too to registers */
  4501. !     ptr = fp->_ptr;
  4502.       for (;;) {
  4503.         screamer:
  4504.       if (cnt > 0) {
  4505. --- 2414,2420 ----
  4506.       else
  4507.       shortbuffered = 0;
  4508.       bp = SvPVX(sv) + append;        /* move these two too to registers */
  4509. !     ptr = FILE_ptr(fp);
  4510.       for (;;) {
  4511.         screamer:
  4512.       if (cnt > 0) {
  4513. ***************
  4514. *** 2428,2438 ****
  4515.           continue;
  4516.       }
  4517.   
  4518. !     fp->_cnt = cnt;            /* deregisterize cnt and ptr */
  4519. !     fp->_ptr = ptr;
  4520.       i = _filbuf(fp);        /* get more characters */
  4521. !     cnt = fp->_cnt;
  4522. !     ptr = fp->_ptr;            /* reregisterize cnt and ptr */
  4523.   
  4524.       if (i == EOF)            /* all done for ever? */
  4525.           goto thats_really_all_folks;
  4526. --- 2434,2444 ----
  4527.           continue;
  4528.       }
  4529.   
  4530. !     FILE_cnt(fp) = cnt;        /* deregisterize cnt and ptr */
  4531. !     FILE_ptr(fp) = ptr;
  4532.       i = _filbuf(fp);        /* get more characters */
  4533. !     cnt = FILE_cnt(fp);
  4534. !     ptr = FILE_ptr(fp);        /* reregisterize cnt and ptr */
  4535.   
  4536.       if (i == EOF)            /* all done for ever? */
  4537.           goto thats_really_all_folks;
  4538. ***************
  4539. *** 2455,2466 ****
  4540.   thats_really_all_folks:
  4541.       if (shortbuffered)
  4542.       cnt += shortbuffered;
  4543. !     fp->_cnt = cnt;            /* put these back or we're in trouble */
  4544. !     fp->_ptr = ptr;
  4545.       *bp = '\0';
  4546.       SvCUR_set(sv, bp - SvPVX(sv));    /* set length */
  4547.   
  4548. ! #else /* !USE_STD_STDIO */    /* The big, slow, and stupid way */
  4549.   
  4550.       {
  4551.       char buf[8192];
  4552. --- 2461,2472 ----
  4553.   thats_really_all_folks:
  4554.       if (shortbuffered)
  4555.       cnt += shortbuffered;
  4556. !     FILE_cnt(fp) = cnt;            /* put these back or we're in trouble */
  4557. !     FILE_ptr(fp) = ptr;
  4558.       *bp = '\0';
  4559.       SvCUR_set(sv, bp - SvPVX(sv));    /* set length */
  4560.   
  4561. ! #else /* !USE_STDIO_PTR */    /* The big, slow, and stupid way */
  4562.   
  4563.       {
  4564.       char buf[8192];
  4565. ***************
  4566. *** 2493,2499 ****
  4567.       }
  4568.       }
  4569.   
  4570. ! #endif /* USE_STD_STDIO */
  4571.   
  4572.       if (rspara) {
  4573.           while (i != EOF) {
  4574. --- 2499,2505 ----
  4575.       }
  4576.       }
  4577.   
  4578. ! #endif /* USE_STDIO_PTR */
  4579.   
  4580.       if (rspara) {
  4581.           while (i != EOF) {
  4582. Index: t/comp/cpp.aux
  4583. *** /dev/null    Wed May 31 09:31:33 1995
  4584. --- perl5.001i/t/comp/cpp.aux    Wed May 24 15:37:50 1995
  4585. ***************
  4586. *** 0 ****
  4587. --- 1,39 ----
  4588. + #!./perl -P
  4589. + 
  4590. + # $RCSfile: cpp.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:18 $
  4591. + 
  4592. + print "1..3\n";
  4593. + 
  4594. + #this is a comment
  4595. + #define MESS "ok 1\n"
  4596. + print MESS;
  4597. + 
  4598. + #If you capitalize, it's a comment.
  4599. + #ifdef MESS
  4600. +     print "ok 2\n";
  4601. + #else
  4602. +     print "not ok 2\n";
  4603. + #endif
  4604. + 
  4605. + open(TRY,">Comp.cpp.tmp") || die "Can't open temp perl file.";
  4606. + 
  4607. + ($prog = <<'END') =~ s/X//g;
  4608. + X$ok = "not ok 3\n";
  4609. + X#include "Comp.cpp.inc"
  4610. + X#ifdef OK
  4611. + X$ok = OK;
  4612. + X#endif
  4613. + Xprint $ok;
  4614. + END
  4615. + print TRY $prog;
  4616. + close TRY;
  4617. + 
  4618. + open(TRY,">Comp.cpp.inc") || (die "Can't open temp include file.");
  4619. + print TRY '#define OK "ok 3\n"' . "\n";
  4620. + close TRY;
  4621. + 
  4622. + $pwd=`pwd`;
  4623. + $pwd =~ s/\n//;
  4624. + $x = `./perl -P Comp.cpp.tmp`;
  4625. + print $x;
  4626. + unlink "Comp.cpp.tmp", "Comp.cpp.inc";
  4627. Index: t/comp/cpp.t
  4628. *** perl5.001h/t/comp/cpp.t    Tue Oct 18 12:43:29 1994
  4629. --- perl5.001i/t/comp/cpp.t    Wed May 24 15:37:50 1995
  4630. ***************
  4631. *** 1,51 ****
  4632. ! #!./perl -P
  4633.   
  4634.   # $RCSfile: cpp.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:18 $
  4635.   
  4636. ! open(CONFIG,"../config.sh") || die;
  4637. ! while (<CONFIG>) {
  4638. !     if (/^cppstdin/) {
  4639. !     if (/^cppstdin='(.*cppstdin)'/ && ! -e $1) {
  4640. !         print "1..0\n";
  4641. !         exit;         # Cannot test till after install, alas.
  4642. !     }
  4643. !     last;
  4644. !     }
  4645.   }
  4646. - close CONFIG;
  4647.   
  4648. ! print "1..3\n";
  4649. ! 
  4650. ! #this is a comment
  4651. ! #define MESS "ok 1\n"
  4652. ! print MESS;
  4653. ! 
  4654. ! #If you capitalize, it's a comment.
  4655. ! #ifdef MESS
  4656. !     print "ok 2\n";
  4657. ! #else
  4658. !     print "not ok 2\n";
  4659. ! #endif
  4660. ! 
  4661. ! open(TRY,">Comp.cpp.tmp") || die "Can't open temp perl file.";
  4662. ! 
  4663. ! ($prog = <<'END') =~ s/X//g;
  4664. ! X$ok = "not ok 3\n";
  4665. ! X#include "Comp.cpp.inc"
  4666. ! X#ifdef OK
  4667. ! X$ok = OK;
  4668. ! X#endif
  4669. ! Xprint $ok;
  4670. ! END
  4671. ! print TRY $prog;
  4672. ! close TRY;
  4673. ! 
  4674. ! open(TRY,">Comp.cpp.inc") || (die "Can't open temp include file.");
  4675. ! print TRY '#define OK "ok 3\n"' . "\n";
  4676. ! close TRY;
  4677.   
  4678. ! $pwd=`pwd`;
  4679. ! $pwd =~ s/\n//;
  4680. ! $x = `./perl -P Comp.cpp.tmp`;
  4681. ! print $x;
  4682. ! unlink "Comp.cpp.tmp", "Comp.cpp.inc";
  4683. --- 1,17 ----
  4684. ! #!./perl
  4685.   
  4686.   # $RCSfile: cpp.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:18 $
  4687.   
  4688. ! BEGIN {
  4689. !     chdir 't' if -d 't';
  4690. !     @INC = '../lib';
  4691.   }
  4692.   
  4693. ! use Config;
  4694. ! if ( ($Config{'cppstdin'} =~ /\bcppstdin\b/) and
  4695. !      ( ! -x $Config{'scriptdir'} . "/cppstdin") ) {
  4696. !     print "1..0\n";
  4697. !     exit;         # Cannot test till after install, alas.
  4698. ! }
  4699.   
  4700. ! system "./perl -P comp/cpp.aux"
  4701. Index: t/op/misc.t
  4702. *** perl5.001h/t/op/misc.t    Tue Oct 18 12:45:28 1994
  4703. --- perl5.001i/t/op/misc.t    Wed May 24 15:45:45 1995
  4704. ***************
  4705. *** 46,54 ****
  4706.           "foo";
  4707.           }
  4708.   ########
  4709. - -P 
  4710. - use POSIX;
  4711. - ########
  4712.   $array[128]=1
  4713.   ########
  4714.   $x=0x0eabcd; print $x->ref;
  4715. --- 46,51 ----
  4716. Index: toke.c
  4717. *** perl5.001h/toke.c    Wed Mar 15 09:29:37 1995
  4718. --- perl5.001i/toke.c    Fri May 26 15:24:57 1995
  4719. ***************
  4720. *** 43,48 ****
  4721. --- 43,49 ----
  4722.   #ifdef CRIPPLED_CC
  4723.   static int uni _((I32 f, char *s));
  4724.   #endif
  4725. + static char * filter_gets _((SV *sv, FILE *fp));
  4726.   
  4727.   /* The following are arranged oddly so that the guard on the switch statement
  4728.    * can get by with a single comparison (if the compiler is smart enough).
  4729. ***************
  4730. *** 329,335 ****
  4731.       }
  4732.       if (s < bufend || !rsfp || lex_state != LEX_NORMAL)
  4733.           return s;
  4734. !     if ((s = sv_gets(linestr, rsfp, 0)) == Nullch) {
  4735.           if (minus_n || minus_p) {
  4736.           sv_setpv(linestr,minus_p ? ";}continue{print" : "");
  4737.           sv_catpv(linestr,";}");
  4738. --- 330,336 ----
  4739.       }
  4740.       if (s < bufend || !rsfp || lex_state != LEX_NORMAL)
  4741.           return s;
  4742. !     if ((s = filter_gets(linestr, rsfp)) == Nullch) {
  4743.           if (minus_n || minus_p) {
  4744.           sv_setpv(linestr,minus_p ? ";}continue{print" : "");
  4745.           sv_catpv(linestr,";}");
  4746. ***************
  4747. *** 982,996 ****
  4748.   }
  4749.   
  4750.   
  4751. ! /* Encrypted script support: cryptswitch_add() may be called to */
  4752. ! /* define a function which may manipulate the input stream      */
  4753. ! /* (via popen() etc) to decode the input if required.           */
  4754. ! /* At the moment we only allow one cryptswitch function.        */
  4755.   void
  4756. ! cryptswitch_add(funcp)
  4757. !     cryptswitch_t funcp;
  4758.   {
  4759. !     cryptswitch_fp = funcp;
  4760.   }
  4761.   
  4762.   
  4763. --- 983,1114 ----
  4764.   }
  4765.   
  4766.   
  4767. ! /* Encoded script support. filter_add() effectively inserts a
  4768. !  * 'pre-processing' function into the current source input stream. 
  4769. !  * Note that the filter function only applies to the current source file
  4770. !  * (e.g., it will not affect files 'require'd or 'use'd by this one).
  4771. !  *
  4772. !  * The datasv parameter (which may be NULL) can be used to pass
  4773. !  * private data to this instance of the filter. The filter function
  4774. !  * can recover the SV using the FILTER_DATA macro and use it to
  4775. !  * store private buffers and state information.
  4776. !  *
  4777. !  * The supplied datasv parameter is upgraded to a PVIO type
  4778. !  * and the IoDIRP field is used to store the function pointer.
  4779. !  * Note that IoTOP_NAME, IoFMT_NAME, IoBOTTOM_NAME, if set for
  4780. !  * private use must be set using malloc'd pointers.
  4781. !  */
  4782. ! static int filter_debug = 0;
  4783. ! 
  4784. ! SV *
  4785. ! filter_add(funcp, datasv)
  4786. !     filter_t funcp;
  4787. !     SV *datasv;
  4788. ! {
  4789. !     if (!funcp){ /* temporary handy debugging hack to be deleted */
  4790. !     filter_debug = atoi((char*)datasv);
  4791. !     return NULL;
  4792. !     }
  4793. !     if (!rsfp_filters)
  4794. !     rsfp_filters = newAV();
  4795. !     if (!datasv)
  4796. !     datasv = newSV(0);
  4797. !     if (!SvUPGRADE(datasv, SVt_PVIO))
  4798. !         die("Can't upgrade filter_add data to SVt_PVIO");
  4799. !     IoDIRP(datasv) = (DIR*)funcp; /* stash funcp into spare field */
  4800. !     if (filter_debug)
  4801. !     warn("filter_add func %lx (%s)", funcp, SvPV(datasv,na));
  4802. !     av_push(rsfp_filters, datasv);
  4803. !     return(datasv);
  4804. ! }
  4805. !  
  4806. ! 
  4807. ! /* Delete most recently added instance of this filter function.    */
  4808.   void
  4809. ! filter_del(funcp)
  4810. !     filter_t funcp;
  4811. ! {
  4812. !     if (filter_debug)
  4813. !     warn("filter_del func %lx", funcp);
  4814. !     if (!rsfp_filters || AvFILL(rsfp_filters)<0)
  4815. !     return;
  4816. !     /* if filter is on top of stack (usual case) just pop it off */
  4817. !     if (IoDIRP(FILTER_DATA(AvFILL(rsfp_filters))) == (void*)funcp){
  4818. !     sv_free(av_pop(rsfp_filters));
  4819. !         return;
  4820. !     }
  4821. !     /* we need to search for the correct entry and clear it    */
  4822. !     die("filter_del can only delete in reverse order (currently)");
  4823. ! }
  4824. ! 
  4825. ! 
  4826. ! /* Invoke the n'th filter function for the current rsfp.     */
  4827. ! I32
  4828. ! filter_read(idx, buf_sv, maxlen)
  4829. !     int idx;
  4830. !     SV *buf_sv;
  4831. !     int maxlen;        /* 0 = read one text line */
  4832.   {
  4833. !     filter_t funcp;
  4834. !     SV *datasv = NULL;
  4835. !     if (!rsfp_filters)
  4836. !     return -1;
  4837. !     if (idx > AvFILL(rsfp_filters)){       /* Any more filters?    */
  4838. !     /* Provide a default input filter to make life easy.    */
  4839. !     /* Note that we append to the line. This is handy.    */
  4840. !     /* We ignore maxlen here                */
  4841. !     if (filter_debug)
  4842. !         warn("filter_read %d: from rsfp\n", idx);
  4843. !     if (maxlen) { 
  4844. !          /* Want a block */
  4845. !         int len ;
  4846. !         int old_len = SvCUR(buf_sv) ;
  4847. ! 
  4848. !         /* ensure buf_sv is large enough */
  4849. !         SvGROW(buf_sv, old_len + maxlen) ;
  4850. !         if ((len = fread(SvPVX(buf_sv) + old_len, 1, maxlen, rsfp)) <= 0)
  4851. !         return len ;
  4852. !         SvCUR_set(buf_sv, old_len + len) ;
  4853. !     } else {
  4854. !         /* Want a line */
  4855. !             if (sv_gets(buf_sv, rsfp, (SvCUR(buf_sv)>0) ? 1 : 0) == NULL)
  4856. !             return -1;        /* end of file */
  4857. !     }
  4858. !     return SvCUR(buf_sv);
  4859. !     }
  4860. !     /* Skip this filter slot if filter has been deleted    */
  4861. !     if ( (datasv = FILTER_DATA(idx)) == &sv_undef){
  4862. !     if (filter_debug)
  4863. !         warn("filter_read %d: skipped (filter deleted)\n", idx);
  4864. !     return FILTER_READ(idx+1, buf_sv, maxlen); /* recurse */
  4865. !     }
  4866. !     /* Get function pointer hidden within datasv    */
  4867. !     funcp = (filter_t)IoDIRP(datasv);
  4868. !     if (filter_debug)
  4869. !     warn("filter_read %d: via function %lx (%s)\n",
  4870. !         idx, funcp, SvPV(datasv,na));
  4871. !     /* Call function. The function is expected to     */
  4872. !     /* call "FILTER_READ(idx+1, buf_sv)" first.        */
  4873. !     /* Return: <0:error/eof, >=0:not eof (see yylex())    */
  4874. !     return (*funcp)(idx, buf_sv, maxlen);
  4875. ! }
  4876. ! 
  4877. ! static char *
  4878. ! filter_gets(sv,fp)
  4879. ! register SV *sv;
  4880. ! register FILE *fp;
  4881. ! {
  4882. !     if (rsfp_filters) {
  4883. ! 
  4884. !         SvCUR_set(sv, 0);    /* start with empty line    */
  4885. !         if (FILTER_READ(0, sv, 0) > 0)
  4886. !             return ( SvPVX(sv) ) ;
  4887. !         else
  4888. !         return Nullch ;
  4889. !     }
  4890. !     else 
  4891. !         return (sv_gets(sv, fp, 0)) ;
  4892. !     
  4893.   }
  4894.   
  4895.   
  4896. ***************
  4897. *** 1236,1251 ****
  4898.           }
  4899.           goto retry;
  4900.       }
  4901. -     /* Give cryptswitch a chance. Note that cryptswitch_fp may */
  4902. -     /* be either be called once if it redirects rsfp and unregisters */
  4903. -     /* itself, or it may be called on every line if it loads linestr. */
  4904. -     if (cryptswitch_fp && (*cryptswitch_fp)()) {
  4905. -         oldoldbufptr = oldbufptr = s = SvPVX(linestr);
  4906. -         bufend = SvPVX(linestr) + SvCUR(linestr);
  4907. -         goto retry;
  4908. -     }
  4909.       do {
  4910. !         if ((s = sv_gets(linestr, rsfp, 0)) == Nullch) {
  4911.             fake_eof:
  4912.           if (rsfp) {
  4913.               if (preprocess && !in_eval)
  4914. --- 1354,1361 ----
  4915.           }
  4916.           goto retry;
  4917.       }
  4918.       do {
  4919. !         if ((s = filter_gets(linestr, rsfp)) == Nullch) {
  4920.             fake_eof:
  4921.           if (rsfp) {
  4922.               if (preprocess && !in_eval)
  4923. ***************
  4924. *** 1560,1565 ****
  4925. --- 1670,1678 ----
  4926.       OPERATOR(tmp);
  4927.       case ')':
  4928.       tmp = *s++;
  4929. +     s = skipspace(s);
  4930. +     if (*s == '{')
  4931. +         PREBLOCK(tmp);
  4932.       TERM(tmp);
  4933.       case ']':
  4934.       s++;
  4935. ***************
  4936. *** 4246,4252 ****
  4937.       sv_setpvn(tmpstr,"",0);   /* avoid "uninitialized" warning */
  4938.       while (s >= bufend) {    /* multiple line string? */
  4939.       if (!rsfp ||
  4940. !      !(oldoldbufptr = oldbufptr = s = sv_gets(linestr, rsfp, 0))) {
  4941.           curcop->cop_line = multi_start;
  4942.           missingterm(tokenbuf);
  4943.       }
  4944. --- 4359,4365 ----
  4945.       sv_setpvn(tmpstr,"",0);   /* avoid "uninitialized" warning */
  4946.       while (s >= bufend) {    /* multiple line string? */
  4947.       if (!rsfp ||
  4948. !      !(oldoldbufptr = oldbufptr = s = filter_gets(linestr, rsfp))) {
  4949.           curcop->cop_line = multi_start;
  4950.           missingterm(tokenbuf);
  4951.       }
  4952. ***************
  4953. *** 4405,4411 ****
  4954.       if (s < bufend) break;    /* string ends on this line? */
  4955.   
  4956.       if (!rsfp ||
  4957. !      !(oldoldbufptr = oldbufptr = s = sv_gets(linestr, rsfp, 0))) {
  4958.           curcop->cop_line = multi_start;
  4959.           return Nullch;
  4960.       }
  4961. --- 4518,4524 ----
  4962.       if (s < bufend) break;    /* string ends on this line? */
  4963.   
  4964.       if (!rsfp ||
  4965. !      !(oldoldbufptr = oldbufptr = s = filter_gets(linestr, rsfp))) {
  4966.           curcop->cop_line = multi_start;
  4967.           return Nullch;
  4968.       }
  4969. ***************
  4970. *** 4583,4589 ****
  4971.       }
  4972.       s = eol;
  4973.       if (rsfp) {
  4974. !         s = sv_gets(linestr, rsfp, 0);
  4975.           oldoldbufptr = oldbufptr = bufptr = SvPVX(linestr);
  4976.           bufend = bufptr + SvCUR(linestr);
  4977.           if (!s) {
  4978. --- 4696,4702 ----
  4979.       }
  4980.       s = eol;
  4981.       if (rsfp) {
  4982. !         s = filter_gets(linestr, rsfp);
  4983.           oldoldbufptr = oldbufptr = bufptr = SvPVX(linestr);
  4984.           bufend = bufptr + SvCUR(linestr);
  4985.           if (!s) {
  4986. Index: unixish.h
  4987. *** perl5.001h/unixish.h    Wed Feb  8 19:44:04 1995
  4988. --- perl5.001i/unixish.h    Tue May 23 10:59:58 1995
  4989. ***************
  4990. *** 33,38 ****
  4991. --- 33,52 ----
  4992.   
  4993.   #define HAS_KILL
  4994.   #define HAS_WAIT
  4995. +   
  4996. + /* UNLINK_ALL_VERSIONS:
  4997. +  *    This symbol, if defined, indicates that the program should arrange
  4998. +  *    to remove all versions of a file if unlink() is called.  This is
  4999. +  *    probably only relevant for VMS.
  5000. +  */
  5001. + /* #define UNLINK_ALL_VERSIONS        /**/
  5002. + 
  5003. + /* VMS:
  5004. +  *    This symbol, if defined, indicates that the program is running under
  5005. +  *    VMS.  It is currently automatically set by cpps running under VMS,
  5006. +  *    and is included here for completeness only.
  5007. +  */
  5008. + /* #define VMS        /**/
  5009.   
  5010.   #if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX)
  5011.   # include <signal.h>
  5012. Index: util.c
  5013. *** perl5.001h/util.c    Fri Apr 14 09:50:11 1995
  5014. --- perl5.001i/util.c    Mon May 22 15:52:44 1995
  5015. ***************
  5016. *** 1031,1037 ****
  5017.   }
  5018.   #endif /* !VMS */
  5019.   
  5020. ! #ifdef EUNICE
  5021.   I32
  5022.   unlnk(f)    /* unlink all versions of a file */
  5023.   char *f;
  5024. --- 1031,1037 ----
  5025.   }
  5026.   #endif /* !VMS */
  5027.   
  5028. ! #ifdef UNLINK_ALL_VERSIONS
  5029.   I32
  5030.   unlnk(f)    /* unlink all versions of a file */
  5031.   char *f;
  5032. Index: vms/config.vms
  5033. *** perl5.001h/vms/config.vms    Thu Apr  6 11:08:53 1995
  5034. --- perl5.001i/vms/config.vms    Wed May 24 15:50:03 1995
  5035. ***************
  5036. *** 10,16 ****
  5037.    * config.h for VMS
  5038.    */                 
  5039.   
  5040. ! /* Configuration time: 12-Oct-1994 17:00
  5041.    * Configured by: Charles Bailey  bailey@genetics.upenn.edu
  5042.    * Target system: VMS
  5043.    */
  5044. --- 10,16 ----
  5045.    * config.h for VMS
  5046.    */                 
  5047.   
  5048. ! /* Configuration time: 18-Apr-1995 17:00
  5049.    * Configured by: Charles Bailey  bailey@genetics.upenn.edu
  5050.    * Target system: VMS
  5051.    */
  5052. ***************
  5053. *** 460,466 ****
  5054.    *    but not always right so it should be emitted by the program only
  5055.    *    when HAS_SHMAT_PROTOTYPE is not defined to avoid conflicting defs.
  5056.    */
  5057. ! #undef Shmat_t char *    /**/ /* config-skip */
  5058.   #undef HAS_SHMAT_PROTOTYPE    /**/
  5059.   
  5060.   /* USE_STAT_BLOCKS:
  5061. --- 460,466 ----
  5062.    *    but not always right so it should be emitted by the program only
  5063.    *    when HAS_SHMAT_PROTOTYPE is not defined to avoid conflicting defs.
  5064.    */
  5065. ! #undef Shmat_t     /**/ /* config-skip */
  5066.   #undef HAS_SHMAT_PROTOTYPE    /**/
  5067.   
  5068.   /* USE_STAT_BLOCKS:
  5069. ***************
  5070. *** 469,479 ****
  5071.    */
  5072.   #undef USE_STAT_BLOCKS     /**/
  5073.   
  5074. ! /* USE_STD_STDIO:
  5075. !  *    This symbol is defined if this system has a FILE structure declaring
  5076. !  *    _ptr and _cnt in stdio.h.
  5077.    */
  5078. ! #undef USE_STD_STDIO     /**/
  5079.   
  5080.   /* USE_STRUCT_COPY:
  5081.    *    This symbol, if defined, indicates that this C compiler knows how
  5082. --- 469,519 ----
  5083.    */
  5084.   #undef USE_STAT_BLOCKS     /**/
  5085.   
  5086. ! /* USE_STDIO_PTR:
  5087. !  *    This symbol is defined if the _ptr and _cnt fields (or similar)
  5088. !  *    of the stdio FILE structure can be used to access the stdio buffer
  5089. !  *    for a file handle.  If this is defined, then the FILE_ptr(fp)
  5090. !  *    and FILE_cnt(fp) macros will also be defined and should be used
  5091. !  *    to access these fields.
  5092. !  */
  5093. ! /* USE_STDIO_BASE:
  5094. !  *    This symbol is defined if the _base field (or similar) of the
  5095. !  *    stdio FILE structure can be used to access the stdio buffer for
  5096. !  *    a file handle.  If this is defined, then the FILE_base(fp) macro
  5097. !  *    will also be defined and should be used to access this field.
  5098. !  *    Also, the FILE_bufsiz(fp) macro will be defined and should be used
  5099. !  *    to determine the number of bytes in the buffer.  USE_STDIO_BASE
  5100. !  *    will never be defined unless USE_STDIO_PTR is.
  5101. !  */
  5102. ! #undef USE_STDIO_PTR     /**/
  5103. ! #undef USE_STDIO_BASE     /**/
  5104. ! 
  5105. ! /* FILE_ptr:
  5106. !  *    This macro is used to access the _ptr field (or equivalent) of the
  5107. !  *    FILE structure pointed to by its argument. This macro will always be
  5108. !  *    defined if USE_STDIO_PTR is defined.
  5109. !  */
  5110. ! /* FILE_cnt:
  5111. !  *    This macro is used to access the _cnt field (or equivalent) of the
  5112. !  *    FILE structure pointed to by its argument. This macro will always be
  5113. !  *    defined if USE_STDIO_PTR is defined.
  5114.    */
  5115. ! #ifdef USE_STDIO_PTR
  5116. ! #endif
  5117. ! 
  5118. ! /* FILE_base:
  5119. !  *    This macro is used to access the _base field (or equivalent) of the
  5120. !  *    FILE structure pointed to by its argument. This macro will always be
  5121. !  *    defined if USE_STDIO_BASE is defined.
  5122. !  */
  5123. ! /* FILE_bufsiz:
  5124. !  *    This macro is used to determine the number of bytes in the I/O
  5125. !  *    buffer pointed to by _base field (or equivalent) of the FILE
  5126. !  *    structure pointed to its argument. This macro will always be defined
  5127. !  *    if USE_STDIO_BASE is defined.
  5128. !  */
  5129. ! #ifdef USE_STDIO_BASE
  5130. ! #endif
  5131.   
  5132.   /* USE_STRUCT_COPY:
  5133.    *    This symbol, if defined, indicates that this C compiler knows how
  5134. ***************
  5135. *** 892,911 ****
  5136.   #define M_VOID            /* Xenix strikes again */     /* config-skip */
  5137.   #endif
  5138.   
  5139. ! 
  5140. ! /* EUNICE:
  5141. !  *    This symbol, if defined, indicates that the program is being compiled
  5142. !  *    under the EUNICE package under VMS.  The program will need to handle
  5143. !  *    things like files that don't go away the first time you unlink them,
  5144. !  *    due to version numbering.  It will also need to compensate for lack
  5145. !  *    of a respectable link() command.
  5146.    */
  5147.   /* VMS:
  5148.    *    This symbol, if defined, indicates that the program is running under
  5149. !  *    VMS.  It is currently only set in conjunction with the EUNICE symbol.
  5150. !  */
  5151. ! #define EUNICE        /**/
  5152. ! /* This symbol is automagically defined by all VMS C compilers I've seen.
  5153.    * Just in case, however . . . */
  5154.   #ifndef VMS
  5155.   #define VMS        /**/
  5156. --- 932,946 ----
  5157.   #define M_VOID            /* Xenix strikes again */     /* config-skip */
  5158.   #endif
  5159.   
  5160. ! /* UNLINK_ALL_VERSIONS:
  5161. !  *    This symbol, if defined, indicates that the program should arrange
  5162. !  *    to remove all versions of a file if unlink() is called.
  5163.    */
  5164. + #undef UNLINK_ALL_VERSIONS        /**/
  5165. + 
  5166.   /* VMS:
  5167.    *    This symbol, if defined, indicates that the program is running under
  5168. !  *    VMS.  It's symbol automagically defined by all VMS C compilers I've seen.
  5169.    * Just in case, however . . . */
  5170.   #ifndef VMS
  5171.   #define VMS        /**/
  5172. Index: vms/ext/MM_VMS.pm
  5173. *** perl5.001h/vms/ext/MM_VMS.pm    Sun Mar 12 03:14:28 1995
  5174. --- perl5.001i/vms/ext/MM_VMS.pm    Mon May 22 15:52:48 1995
  5175. ***************
  5176. *** 83,89 ****
  5177.   # FULLEXT = Pathname for extension directory (eg DBD/Oracle).
  5178.   # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT.
  5179.   # ROOTEXT = Directory part of FULLEXT with leading slash (e.g /DBD)
  5180. ! FULLEXT = ",vmsify($att{FULLEXT}),"
  5181.   BASEEXT = $att{BASEEXT}
  5182.   ROOTEXT = ",($att{ROOTEXT} eq '') ? '[]' : vmspath($att{ROOTEXT}),"
  5183.   
  5184. --- 83,89 ----
  5185.   # FULLEXT = Pathname for extension directory (eg DBD/Oracle).
  5186.   # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT.
  5187.   # ROOTEXT = Directory part of FULLEXT with leading slash (e.g /DBD)
  5188. ! FULLEXT = ",vmspath($att{FULLEXT}),"
  5189.   BASEEXT = $att{BASEEXT}
  5190.   ROOTEXT = ",($att{ROOTEXT} eq '') ? '[]' : vmspath($att{ROOTEXT}),"
  5191.   
  5192. Index: vms/ext/VMS/stdio/stdio.xs
  5193. *** perl5.001h/vms/ext/VMS/stdio/stdio.xs    Sun Mar 12 03:14:34 1995
  5194. --- perl5.001i/vms/ext/VMS/stdio/stdio.xs    Mon May 22 15:52:48 1995
  5195. ***************
  5196. *** 20,26 ****
  5197.   
  5198.   /* Use type for FILE * from Perl's XSUB typemap.  This is a bit
  5199.    * of a hack, since all Perl filehandles using this type will permit
  5200. !  * both read & write operations, but it saves to write the PPCODE
  5201.    * directly for updating the Perl filehandles.
  5202.    */
  5203.   typedef FILE * InOutStream;
  5204. --- 20,26 ----
  5205.   
  5206.   /* Use type for FILE * from Perl's XSUB typemap.  This is a bit
  5207.    * of a hack, since all Perl filehandles using this type will permit
  5208. !  * both read & write operations, but it saves having to write the PPCODE
  5209.    * directly for updating the Perl filehandles.
  5210.    */
  5211.   typedef FILE * InOutStream;
  5212. ***************
  5213. *** 46,51 ****
  5214. --- 46,52 ----
  5215.             if (*(name+1) == '>') *mode = 'a', name += 2;
  5216.             else *mode = 'w',  name++;
  5217.           }
  5218. +         else if (*name == '<') name++;
  5219.           myargc = items - 1;
  5220.           for (i = 0; i < myargc; i++) args[i] = SvPV(ST(i+1),na);
  5221.           /* This hack brought to you by C's opaque arglist management */
  5222. Index: vms/perlvms.pod
  5223. *** perl5.001h/vms/perlvms.pod    Mon Mar  6 20:00:00 1995
  5224. --- perl5.001i/vms/perlvms.pod    Tue May 23 11:02:52 1995
  5225. ***************
  5226. *** 271,277 ****
  5227.       setpwent, shift, sin, sleep, sort, splice, split,
  5228.       sprintf, sqrt, srand, stat, study, substr, sysread,
  5229.       system*, syswrite, tell, telldir, tie, time, times*,
  5230. !     tr///, uc, ucfirst, umask, undef, unlink, unpack,
  5231.       untie, unshift, use, utime*, values, vec, wait,
  5232.       waitpid*, wantarray, warn, write, y///
  5233.   
  5234. --- 271,277 ----
  5235.       setpwent, shift, sin, sleep, sort, splice, split,
  5236.       sprintf, sqrt, srand, stat, study, substr, sysread,
  5237.       system*, syswrite, tell, telldir, tie, time, times*,
  5238. !     tr///, uc, ucfirst, umask, undef, unlink*, unpack,
  5239.       untie, unshift, use, utime*, values, vec, wait,
  5240.       waitpid*, wantarray, warn, write, y///
  5241.   
  5242. ***************
  5243. *** 413,418 ****
  5244. --- 413,449 ----
  5245.   subprocesses spawned using L<fork> and L<exec>; it will not
  5246.   accumulate the times of suprocesses spawned via pipes, L<system>,
  5247.   or backticks.
  5248. + 
  5249. + =item unlink LIST
  5250. + 
  5251. + C<unlink> will delete the highest version of a file only; in
  5252. + order to delete all versions, you need to say
  5253. +     1 while (unlink LIST);
  5254. + You may need to make this change to scripts written for a
  5255. + Unix system which expect that after a call to C<unlink>,
  5256. + no files with the names passed to C<unlink> will exist.
  5257. + (Note: This can be changed at compile time by including
  5258. + C<#define UNLINK_ALL_VERSIONS> in config.h.
  5259. + 
  5260. + C<unlink> will delete a file if at all possible, even if it
  5261. + requires changing file protection (though it won't try to
  5262. + change the protection of the parent directory).  You can tell
  5263. + whether you've got explicit delete access to a file by using the
  5264. + C<VMS::Filespec::candelete> operator.  For instance, in order
  5265. + to delete only files to which you have delete access, you could
  5266. + say something like
  5267. +     sub safe_unlink {
  5268. +         my($file,$num);
  5269. +         foreach $file (@_) {
  5270. +             next unless VMS::Filespec::candelete($file);
  5271. +             $num += unlink $file;
  5272. +         }
  5273. +         $num;
  5274. +     }
  5275. + Finally, if C<unlink> has to change the file protection to
  5276. + delete the file, and you interrupt it in midstream, the file
  5277. + may be left intact, but with a changed ACL allowing you delete
  5278. + access.
  5279.   
  5280.   =item utime LIST
  5281.   
  5282. Index: vms/vms.c
  5283. Prereq:  2.2 
  5284. *** perl5.001h/vms/vms.c    Sun Mar 12 03:14:43 1995
  5285. --- perl5.001i/vms/vms.c    Mon May 22 15:52:47 1995
  5286. ***************
  5287. *** 1100,1106 ****
  5288.   
  5289.     if (path == NULL) return NULL;
  5290.     if (buf) rslt = buf;
  5291. !   else if (ts) New(7016,rslt,strlen(path)+1,char);
  5292.     else rslt = __tovmsspec_retbuf;
  5293.     if (strpbrk(path,"]:>") ||
  5294.         (dirend = strrchr(path,'/')) == NULL) {
  5295. --- 1100,1106 ----
  5296.   
  5297.     if (path == NULL) return NULL;
  5298.     if (buf) rslt = buf;
  5299. !   else if (ts) New(7016,rslt,strlen(path)+3,char);
  5300.     else rslt = __tovmsspec_retbuf;
  5301.     if (strpbrk(path,"]:>") ||
  5302.         (dirend = strrchr(path,'/')) == NULL) {
  5303. Index: x2p/Makefile.SH
  5304. *** perl5.001h/x2p/Makefile.SH    Wed Mar 15 14:28:39 1995
  5305. --- perl5.001i/x2p/Makefile.SH    Fri May 26 10:33:48 1995
  5306. ***************
  5307. *** 26,33 ****
  5308.   
  5309.   CC = $cc
  5310.   BYACC = $byacc
  5311. - mansrc = $mansrc
  5312. - manext = $manext
  5313.   LDFLAGS = $ldflags
  5314.   SMALL = $small
  5315.   LARGE = $large $split
  5316. --- 26,31 ----
  5317. ***************
  5318. *** 52,57 ****
  5319. --- 50,57 ----
  5320.   
  5321.   sh = Makefile.SH cflags.SH find2perl.SH s2p.SH
  5322.   
  5323. + addedbyconf = Makefile cflags find2perl s2p
  5324. + 
  5325.   h = EXTERN.h INTERN.h ../config.h handy.h hash.h a2p.h str.h util.h
  5326.   
  5327.   c = hash.c $(mallocsrc) str.c util.c walk.c
  5328. ***************
  5329. *** 94,100 ****
  5330.   
  5331.   realclean: clean
  5332.       rm -f *.orig core $(addedbyconf) all malloc.c
  5333. !     rm -f Makefile cflags find2perl s2p makefile makefile.old
  5334.   
  5335.   # The following lint has practically everything turned on.  Unfortunately,
  5336.   # you have to wade through a lot of mumbo jumbo that can't be suppressed.
  5337. --- 94,100 ----
  5338.   
  5339.   realclean: clean
  5340.       rm -f *.orig core $(addedbyconf) all malloc.c
  5341. !     rm -f makefile makefile.old
  5342.   
  5343.   # The following lint has practically everything turned on.  Unfortunately,
  5344.   # you have to wade through a lot of mumbo jumbo that can't be suppressed.
  5345. Index: x2p/str.c
  5346. *** perl5.001h/x2p/str.c    Thu Jan 19 19:08:22 1995
  5347. --- perl5.001i/x2p/str.c    Tue May 23 14:12:27 1995
  5348. ***************
  5349. *** 287,293 ****
  5350.   register STR *str;
  5351.   register FILE *fp;
  5352.   {
  5353. ! #ifdef USE_STD_STDIO        /* Here is some breathtakingly efficient cheating */
  5354.   
  5355.       register char *bp;        /* we're going to steal some values */
  5356.       register int cnt;        /*  from the stdio struct and put EVERYTHING */
  5357. --- 287,293 ----
  5358.   register STR *str;
  5359.   register FILE *fp;
  5360.   {
  5361. ! #ifdef USE_STDIO_PTR        /* Here is some breathtakingly efficient cheating */
  5362.   
  5363.       register char *bp;        /* we're going to steal some values */
  5364.       register int cnt;        /*  from the stdio struct and put EVERYTHING */
  5365. ***************
  5366. *** 296,308 ****
  5367.       int i;
  5368.       int bpx;
  5369.   
  5370. !     cnt = fp->_cnt;            /* get count into register */
  5371.       str->str_nok = 0;            /* invalidate number */
  5372.       str->str_pok = 1;            /* validate pointer */
  5373.       if (str->str_len <= cnt)        /* make sure we have the room */
  5374.       GROWSTR(&(str->str_ptr), &(str->str_len), cnt+1);
  5375.       bp = str->str_ptr;            /* move these two too to registers */
  5376. !     ptr = fp->_ptr;
  5377.       for (;;) {
  5378.       while (--cnt >= 0) {
  5379.           if ((*bp++ = *ptr++) == newline)
  5380. --- 296,308 ----
  5381.       int i;
  5382.       int bpx;
  5383.   
  5384. !     cnt = FILE_cnt(fp);            /* get count into register */
  5385.       str->str_nok = 0;            /* invalidate number */
  5386.       str->str_pok = 1;            /* validate pointer */
  5387.       if (str->str_len <= cnt)        /* make sure we have the room */
  5388.       GROWSTR(&(str->str_ptr), &(str->str_len), cnt+1);
  5389.       bp = str->str_ptr;            /* move these two too to registers */
  5390. !     ptr = FILE_ptr(fp);
  5391.       for (;;) {
  5392.       while (--cnt >= 0) {
  5393.           if ((*bp++ = *ptr++) == newline)
  5394. ***************
  5395. *** 314,324 ****
  5396.           }
  5397.       }
  5398.       
  5399. !     fp->_cnt = cnt;            /* deregisterize cnt and ptr */
  5400. !     fp->_ptr = ptr;
  5401.       i = _filbuf(fp);        /* get more characters */
  5402. !     cnt = fp->_cnt;
  5403. !     ptr = fp->_ptr;            /* reregisterize cnt and ptr */
  5404.   
  5405.       bpx = bp - str->str_ptr;    /* prepare for possible relocation */
  5406.       GROWSTR(&(str->str_ptr), &(str->str_len), str->str_cur + cnt + 1);
  5407. --- 314,324 ----
  5408.           }
  5409.       }
  5410.       
  5411. !     FILE_cnt(fp) = cnt;        /* deregisterize cnt and ptr */
  5412. !     FILE_ptr(fp) = ptr;
  5413.       i = _filbuf(fp);        /* get more characters */
  5414. !     cnt = FILE_cnt(fp);
  5415. !     ptr = FILE_ptr(fp);        /* reregisterize cnt and ptr */
  5416.   
  5417.       bpx = bp - str->str_ptr;    /* prepare for possible relocation */
  5418.       GROWSTR(&(str->str_ptr), &(str->str_len), str->str_cur + cnt + 1);
  5419. ***************
  5420. *** 334,345 ****
  5421.       }
  5422.   
  5423.   thats_all_folks:
  5424. !     fp->_cnt = cnt;            /* put these back or we're in trouble */
  5425. !     fp->_ptr = ptr;
  5426.       *bp = '\0';
  5427.       str->str_cur = bp - str->str_ptr;    /* set length */
  5428.   
  5429. ! #else /* !USE_STD_STDIO */    /* The big, slow, and stupid way */
  5430.   
  5431.       static char buf[4192];
  5432.   
  5433. --- 334,345 ----
  5434.       }
  5435.   
  5436.   thats_all_folks:
  5437. !     FILE_cnt(fp) = cnt;            /* put these back or we're in trouble */
  5438. !     FILE_ptr(fp) = ptr;
  5439.       *bp = '\0';
  5440.       str->str_cur = bp - str->str_ptr;    /* set length */
  5441.   
  5442. ! #else /* !USE_STDIO_PTR */    /* The big, slow, and stupid way */
  5443.   
  5444.       static char buf[4192];
  5445.   
  5446. ***************
  5447. *** 348,354 ****
  5448.       else
  5449.       str_set(str, No);
  5450.   
  5451. ! #endif /* USE_STD_STDIO */
  5452.   
  5453.       return str->str_cur ? str->str_ptr : Nullch;
  5454.   }
  5455. --- 348,354 ----
  5456.       else
  5457.       str_set(str, No);
  5458.   
  5459. ! #endif /* USE_STDIO_PTR */
  5460.   
  5461.       return str->str_cur ? str->str_ptr : Nullch;
  5462.   }
  5463.  
  5464.  
  5465. End of patch.
  5466.