home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume25 / perl / patch18 < prev    next >
Encoding:
Text File  |  1991-11-13  |  44.6 KB  |  1,632 lines
  1. Newsgroups: comp.sources.misc
  2. From: lwall@netlabs.com (Larry Wall)
  3. Subject:  v25i067:  perl - The perl programming language, Patch18
  4. Message-ID: <1991Nov13.214743.4194@sparky.imd.sterling.com>
  5. X-Md4-Signature: 92b3f4b5b176a41c5507726daf138a90
  6. Date: Wed, 13 Nov 1991 21:47:43 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: lwall@netlabs.com (Larry Wall)
  10. Posting-number: Volume 25, Issue 67
  11. Archive-name: perl/patch18
  12. Environment: UNIX, MS-DOS, OS2
  13. Patch-To: perl: Volume 18, Issue 19-54
  14.  
  15. System: perl version 4.0
  16. Patch #: 18
  17. Priority: MED-HIGH
  18. Subject: patch #11, continued
  19.  
  20. Description:
  21.     See patch #11.
  22.  
  23. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your perl source
  24.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  25.     If you don't have the patch program, apply the following by hand,
  26.     or get patch (version 2.0, latest patchlevel).
  27.  
  28.     After patching:
  29.         Configure -d
  30.         make depend
  31.         make
  32.         make test
  33.         make install
  34.  
  35.     If patch indicates that patchlevel is the wrong version, you may need
  36.     to apply one or more previous patches, or the patch may already
  37.     have been applied.  See the patchlevel.h file to find out what has or
  38.     has not been applied.  In any event, don't continue with the patch.
  39.  
  40.     If you are missing previous patches they can be obtained from me:
  41.  
  42.     Larry Wall
  43.     lwall@netlabs.com
  44.  
  45.     If you send a mail message of the following form it will greatly speed
  46.     processing:
  47.  
  48.     Subject: Command
  49.     @SH mailpatch PATH perl 4.0 LIST
  50.            ^ note the c
  51.  
  52.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  53.     or in bang notation from some well-known host, and LIST is the number
  54.     of one or more patches you need, separated by spaces, commas, and/or
  55.     hyphens.  Saying 35- says everything from 35 to the end.
  56.  
  57.  
  58. Index: patchlevel.h
  59. Prereq: 17
  60. 1c1
  61. < #define PATCHLEVEL 17
  62. ---
  63. > #define PATCHLEVEL 18
  64.  
  65. Index: x2p/util.h
  66. *** x2p/util.h.old    Tue Nov  5 19:28:37 1991
  67. --- x2p/util.h    Tue Nov  5 19:28:38 1991
  68. ***************
  69. *** 1,4 ****
  70. ! /* $RCSfile: util.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:20:43 $
  71.    *
  72.    *    Copyright (c) 1991, Larry Wall
  73.    *
  74. --- 1,4 ----
  75. ! /* $RCSfile: util.h,v $$Revision: 4.0.1.2 $$Date: 91/11/05 19:21:20 $
  76.    *
  77.    *    Copyright (c) 1991, Larry Wall
  78.    *
  79. ***************
  80. *** 6,11 ****
  81. --- 6,14 ----
  82.    *    License or the Artistic License, as specified in the README file.
  83.    *
  84.    * $Log:    util.h,v $
  85. +  * Revision 4.0.1.2  91/11/05  19:21:20  lwall
  86. +  * patch11: various portability fixes
  87. +  * 
  88.    * Revision 4.0.1.1  91/06/07  12:20:43  lwall
  89.    * patch4: new copyright notice
  90.    * 
  91. ***************
  92. *** 15,20 ****
  93. --- 18,25 ----
  94.    */
  95.   
  96.   /* is the string for makedir a directory name or a filename? */
  97. + 
  98. + #define fatal Myfatal
  99.   
  100.   #define MD_DIR 0
  101.   #define MD_FILE 1
  102.  
  103. Index: x2p/walk.c
  104. *** x2p/walk.c.old    Tue Nov  5 19:28:40 1991
  105. --- x2p/walk.c    Tue Nov  5 19:28:41 1991
  106. ***************
  107. *** 1,4 ****
  108. ! /* $RCSfile: walk.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:22:04 $
  109.    *
  110.    *    Copyright (c) 1991, Larry Wall
  111.    *
  112. --- 1,4 ----
  113. ! /* $RCSfile: walk.c,v $$Revision: 4.0.1.2 $$Date: 91/11/05 19:25:09 $
  114.    *
  115.    *    Copyright (c) 1991, Larry Wall
  116.    *
  117. ***************
  118. *** 6,11 ****
  119. --- 6,14 ----
  120.    *    License or the Artistic License, as specified in the README file.
  121.    *
  122.    * $Log:    walk.c,v $
  123. +  * Revision 4.0.1.2  91/11/05  19:25:09  lwall
  124. +  * patch11: in a2p, split on whitespace produced extra null field
  125. +  * 
  126.    * Revision 4.0.1.1  91/06/07  12:22:04  lwall
  127.    * patch4: new copyright notice
  128.    * patch4: a2p didn't correctly implement -n switch
  129. ***************
  130. *** 30,35 ****
  131. --- 33,39 ----
  132.   int maxtmp = 0;
  133.   char *lparen;
  134.   char *rparen;
  135. + char *limit;
  136.   STR *subs;
  137.   STR *curargs = Nullstr;
  138.   
  139. ***************
  140. *** 670,675 ****
  141. --- 674,680 ----
  142.       break;
  143.       case OSPLIT:
  144.       str = str_new(0);
  145. +     limit = ", 9999)";
  146.       numeric = 1;
  147.       tmpstr = walk(1,level,ops[node+2].ival,&numarg,P_MIN);
  148.       if (useval)
  149. ***************
  150. *** 700,711 ****
  151.       }
  152.       else if (saw_FS)
  153.           str_cat(str,"$FS");
  154. !     else
  155.           str_cat(str,"' '");
  156.       str_cat(str,", ");
  157.       str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,P_COMMA+1));
  158.       str_free(fstr);
  159. !     str_cat(str,", 9999)");
  160.       if (useval) {
  161.           str_cat(str,")");
  162.       }
  163. --- 705,718 ----
  164.       }
  165.       else if (saw_FS)
  166.           str_cat(str,"$FS");
  167. !     else {
  168.           str_cat(str,"' '");
  169. +         limit = ")";
  170. +     }
  171.       str_cat(str,", ");
  172.       str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,P_COMMA+1));
  173.       str_free(fstr);
  174. !     str_cat(str,limit);
  175.       if (useval) {
  176.           str_cat(str,")");
  177.       }
  178.  
  179. Index: MANIFEST
  180. *** MANIFEST.old    Tue Nov  5 21:09:16 1991
  181. --- MANIFEST    Tue Nov  5 21:09:18 1991
  182. ***************
  183. *** 13,18 ****
  184. --- 13,20 ----
  185.   arg.h            Public declarations for the above
  186.   array.c            Numerically subscripted arrays
  187.   array.h            Public declarations for the above
  188. + c2ph.SH            program to translate dbx stabs to perl
  189. + c2ph.doc        documentation for c2ph
  190.   cflags.SH        A script that emits C compilation flags per file
  191.   client            A client to test sockets
  192.   cmd.c            Command interpreter
  193. ***************
  194. *** 65,73 ****
  195.   eg/van/vanexp        A program to expire vanished files
  196.   eg/van/vanish        A program to put files in a trashcan
  197.   eg/who            A sample who program
  198. - emacs/perldb.pl        Emacs debugging
  199. - emacs/perldb.el        Emacs debugging
  200.   emacs/perl-mode.el    Emacs major mode for perl
  201.   emacs/tedstuff        Some optional patches
  202.   eval.c            The expression evaluator
  203.   form.c            Format processing
  204. --- 67,75 ----
  205.   eg/van/vanexp        A program to expire vanished files
  206.   eg/van/vanish        A program to put files in a trashcan
  207.   eg/who            A sample who program
  208.   emacs/perl-mode.el    Emacs major mode for perl
  209. + emacs/perldb.el        Emacs debugging
  210. + emacs/perldb.pl        Emacs debugging
  211.   emacs/tedstuff        Some optional patches
  212.   eval.c            The expression evaluator
  213.   form.c            Format processing
  214. ***************
  215. *** 93,111 ****
  216. --- 95,119 ----
  217.   hints/3b2.sh
  218.   hints/aix_rs.sh
  219.   hints/aix_rt.sh
  220. + hints/altos486.sh    
  221.   hints/apollo_C6_7.sh
  222. + hints/apollo_C6_8.sh    
  223.   hints/aux.sh
  224.   hints/dnix.sh
  225.   hints/dynix.sh
  226.   hints/fps.sh
  227.   hints/genix.sh
  228. + hints/greenhills.sh    
  229.   hints/hp9000_300.sh
  230.   hints/hp9000_400.sh
  231. + hints/hp9000_800.sh    
  232.   hints/hpux.sh
  233.   hints/i386.sh
  234.   hints/mips.sh
  235. + hints/mpc.sh    
  236.   hints/ncr_tower.sh
  237.   hints/next.sh
  238. + hints/opus.sh    
  239.   hints/osf_1.sh
  240.   hints/sco_2_3_0.sh
  241.   hints/sco_2_3_1.sh
  242. ***************
  243. *** 113,123 ****
  244. --- 121,133 ----
  245.   hints/sco_2_3_3.sh
  246.   hints/sco_3.sh
  247.   hints/sgi.sh
  248. + hints/stellar.sh    
  249.   hints/sunos_3_4.sh
  250.   hints/sunos_3_5.sh
  251.   hints/sunos_4_0_1.sh
  252.   hints/sunos_4_0_2.sh
  253.   hints/svr4.sh
  254. + hints/ti1500.sh    
  255.   hints/ultrix_3.sh
  256.   hints/ultrix_4.sh
  257.   hints/uts.sh
  258. ***************
  259. *** 125,140 ****
  260. --- 135,155 ----
  261.   installperl        Perl script to do "make install" dirty work
  262.   ioctl.pl        Sample ioctl.pl
  263.   lib/abbrev.pl        An abbreviation table builder
  264. + lib/assert.pl        assertion and panic with stack trace
  265.   lib/bigfloat.pl        An arbitrary precision floating point package
  266.   lib/bigint.pl        An arbitrary precision integer arithmetic package
  267.   lib/bigrat.pl        An arbitrary precision rational arithmetic package
  268.   lib/cacheout.pl        Manages output filehandles when you need too many
  269. + lib/chat2.pl        Randal's famous expect-ish routines
  270.   lib/complete.pl        A command completion subroutine
  271.   lib/ctime.pl        A ctime workalike
  272.   lib/dumpvar.pl        A variable dumper
  273. + lib/exceptions.pl    catch and throw routines
  274. + lib/fastcwd.pl        a faster but more dangerous getcwd
  275.   lib/find.pl        A find emulator--used by find2perl
  276.   lib/finddepth.pl    A depth-first find emulator--used by find2perl
  277.   lib/flush.pl        Routines to do single flush
  278. + lib/getcwd.pl        a getcwd() emulator
  279.   lib/getopt.pl        Perl library supporting option parsing
  280.   lib/getopts.pl        Perl library supporting option parsing
  281.   lib/importenv.pl    Perl routine to get environment into variables
  282. ***************
  283. *** 155,162 ****
  284.   msdos/Makefile        MS-DOS makefile
  285.   msdos/README.msdos    Compiling and usage information
  286.   msdos/Wishlist.dds    My wishlist
  287. - msdos/config.h        Definitions for msdos
  288.   msdos/chdir.c        A chdir that can change drives
  289.   msdos/dir.h        MS-DOS header for directory access functions
  290.   msdos/directory.c    MS-DOS directory access functions.
  291.   msdos/eg/crlf.bat    Convert files from unix to MS-DOS line termination
  292. --- 170,177 ----
  293.   msdos/Makefile        MS-DOS makefile
  294.   msdos/README.msdos    Compiling and usage information
  295.   msdos/Wishlist.dds    My wishlist
  296.   msdos/chdir.c        A chdir that can change drives
  297. + msdos/config.h        Definitions for msdos
  298.   msdos/dir.h        MS-DOS header for directory access functions
  299.   msdos/directory.c    MS-DOS directory access functions.
  300.   msdos/eg/crlf.bat    Convert files from unix to MS-DOS line termination
  301. ***************
  302. *** 200,207 ****
  303.   perl.h            Global declarations
  304.   perl.man        The manual page(s)
  305.   perlsh            A poor man's perl shell
  306. - perly.y            Yacc grammar for perl
  307.   perly.fixer        A program to remove yacc stack limitations
  308.   regcomp.c        Regular expression compiler
  309.   regcomp.h        Private declarations for above
  310.   regexec.c        Regular expression evaluator
  311. --- 215,222 ----
  312.   perl.h            Global declarations
  313.   perl.man        The manual page(s)
  314.   perlsh            A poor man's perl shell
  315.   perly.fixer        A program to remove yacc stack limitations
  316. + perly.y            Yacc grammar for perl
  317.   regcomp.c        Regular expression compiler
  318.   regcomp.h        Private declarations for above
  319.   regexec.c        Regular expression evaluator
  320. ***************
  321. *** 270,275 ****
  322. --- 285,291 ----
  323.   t/op/pat.t        See if esoteric patterns work
  324.   t/op/push.t        See if push and pop work
  325.   t/op/range.t        See if .. works
  326. + t/op/re_tests        Input file for op.regexp
  327.   t/op/read.t        See if read() works
  328.   t/op/regexp.t        See if regular expressions work
  329.   t/op/repeat.t        See if x operator works
  330. ***************
  331. *** 286,296 ****
  332.   t/op/unshift.t        See if unshift works
  333.   t/op/vec.t        See if vectors work
  334.   t/op/write.t        See if write works
  335. - t/op/re_tests        Input file for op.regexp
  336.   toke.c            The tokener
  337.   usersub.c        User supplied (possibly proprietary) subroutines
  338. - usub/README        Instructions for user supplied subroutines
  339.   usub/Makefile        Makefile for curseperl
  340.   usub/curses.mus        Glue routines for BSD curses
  341.   usub/man2mus        A manual page to .mus translator
  342.   usub/mus        A .mus to .c translator
  343. --- 302,312 ----
  344.   t/op/unshift.t        See if unshift works
  345.   t/op/vec.t        See if vectors work
  346.   t/op/write.t        See if write works
  347.   toke.c            The tokener
  348.   usersub.c        User supplied (possibly proprietary) subroutines
  349.   usub/Makefile        Makefile for curseperl
  350. + usub/README        Instructions for user supplied subroutines
  351. + usub/bsdcurses.mus    what used to be curses.mus
  352.   usub/curses.mus        Glue routines for BSD curses
  353.   usub/man2mus        A manual page to .mus translator
  354.   usub/mus        A .mus to .c translator
  355.  
  356. Index: usub/README
  357. *** usub/README.old    Tue Nov  5 19:28:13 1991
  358. --- usub/README    Tue Nov  5 19:28:14 1991
  359. ***************
  360. *** 6,14 ****
  361.   
  362.   The sole purpose of the userinit() routine is to call the initialization
  363.   routines for any modules that you want to link in.  In this example, we just
  364. ! call init_curses(), which sets up to link in the BSD curses routines.
  365.   You'll find this in the file curses.c, which is the processed output of
  366. ! curses.mus.
  367.   
  368.   The magicname() routine adds variable names into the symbol table.  Along
  369.   with the name of the variable as Perl knows it, we pass a structure containing
  370. --- 6,14 ----
  371.   
  372.   The sole purpose of the userinit() routine is to call the initialization
  373.   routines for any modules that you want to link in.  In this example, we just
  374. ! call init_curses(), which sets up to link in the System V curses routines.
  375.   You'll find this in the file curses.c, which is the processed output of
  376. ! curses.mus.  (To get BSD curses, replace curses.mus with bsdcurses.mus.)
  377.   
  378.   The magicname() routine adds variable names into the symbol table.  Along
  379.   with the name of the variable as Perl knows it, we pass a structure containing
  380. ***************
  381. *** 96,110 ****
  382.   But it can save you a lot of time if the man pages for a library are
  383.   reasonably well formed.
  384.   
  385. ! If you happen to have BSD curses on your machine, you might try compiling
  386.   a copy of curseperl.  The "pager" program in this directory is a rudimentary
  387.   start on writing a pager--don't believe the help message, which is stolen
  388.   from the less program.
  389.   
  390. - There is currently no official way to call a Perl routine back from C,
  391. - but we're working on it.  It might be easiest to fake up a call to do_eval()
  392. - or do_subr().  This is not for the faint of heart.  If you come up with
  393. - such a glue routine, I'll be glad to add it into the distribution.
  394. - 
  395.   User-defined subroutines may not currently be called as a signal handler,
  396.   though a signal handler may itself call a user-defined subroutine.
  397. --- 96,114 ----
  398.   But it can save you a lot of time if the man pages for a library are
  399.   reasonably well formed.
  400.   
  401. ! If you happen to have curses on your machine, you might try compiling
  402.   a copy of curseperl.  The "pager" program in this directory is a rudimentary
  403.   start on writing a pager--don't believe the help message, which is stolen
  404.   from the less program.
  405.   
  406.   User-defined subroutines may not currently be called as a signal handler,
  407.   though a signal handler may itself call a user-defined subroutine.
  408. + 
  409. + There are now glue routines to call back from C into Perl.  In usersub.c
  410. + in this directory, you'll find callback() and callv().  The callback()
  411. + routine presumes that any arguments to pass to the Perl subroutine
  412. + have already been pushed onto the Perl stack.  The callv() routine
  413. + is a wrapper that pushes an argv-style array of strings onto the
  414. + stack for you, and then calls callback().  Be sure to recheck your
  415. + stack pointer after returning from these routine, since the Perl code
  416. + may have reallocated it.
  417.  
  418. Index: arg.h
  419. *** arg.h.old    Tue Nov  5 19:25:28 1991
  420. --- arg.h    Tue Nov  5 19:25:29 1991
  421. ***************
  422. *** 1,4 ****
  423. ! /* $RCSfile: arg.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 10:18:30 $
  424.    *
  425.    *    Copyright (c) 1991, Larry Wall
  426.    *
  427. --- 1,4 ----
  428. ! /* $RCSfile: arg.h,v $$Revision: 4.0.1.2 $$Date: 91/11/05 15:51:05 $
  429.    *
  430.    *    Copyright (c) 1991, Larry Wall
  431.    *
  432. ***************
  433. *** 6,11 ****
  434. --- 6,15 ----
  435.    *    License or the Artistic License, as specified in the README file.
  436.    *
  437.    * $Log:    arg.h,v $
  438. +  * Revision 4.0.1.2  91/11/05  15:51:05  lwall
  439. +  * patch11: added eval {}
  440. +  * patch11: added sort {} LIST
  441. +  * 
  442.    * Revision 4.0.1.1  91/06/07  10:18:30  lwall
  443.    * patch4: length($`), length($&), length($') now optimized to avoid string copy
  444.    * patch4: new copyright notice
  445. ***************
  446. *** 283,289 ****
  447.   #define O_CLOSEDIR 264
  448.   #define O_SYSCALL 265
  449.   #define O_PIPE 266
  450. ! #define MAXO 267
  451.   
  452.   #ifndef DOINIT
  453.   extern char *opname[];
  454. --- 287,295 ----
  455.   #define O_CLOSEDIR 264
  456.   #define O_SYSCALL 265
  457.   #define O_PIPE 266
  458. ! #define O_TRY 267
  459. ! #define O_EVALONCE 268
  460. ! #define MAXO 269
  461.   
  462.   #ifndef DOINIT
  463.   extern char *opname[];
  464. ***************
  465. *** 556,562 ****
  466.       "CLOSEDIR",
  467.       "SYSCALL",
  468.       "PIPE",
  469. !     "267"
  470.   };
  471.   #endif
  472.   
  473. --- 562,570 ----
  474.       "CLOSEDIR",
  475.       "SYSCALL",
  476.       "PIPE",
  477. !     "TRY",
  478. !     "EVALONCE",
  479. !     "269"
  480.   };
  481.   #endif
  482.   
  483. ***************
  484. *** 957,962 ****
  485. --- 965,972 ----
  486.       A(1,0,0),    /* CLOSEDIR */
  487.       A(1,3,0),    /* SYSCALL */
  488.       A(1,1,0),    /* PIPE */
  489. +     A(0,0,0),    /* TRY */
  490. +     A(1,0,0),    /* EVALONCE */
  491.       0
  492.   };
  493.   #undef A
  494.  
  495. Index: array.c
  496. *** array.c.old    Tue Nov  5 19:25:32 1991
  497. --- array.c    Tue Nov  5 19:25:32 1991
  498. ***************
  499. *** 1,4 ****
  500. ! /* $RCSfile: array.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 10:19:08 $
  501.    *
  502.    *    Copyright (c) 1991, Larry Wall
  503.    *
  504. --- 1,4 ----
  505. ! /* $RCSfile: array.c,v $$Revision: 4.0.1.2 $$Date: 91/11/05 16:00:14 $
  506.    *
  507.    *    Copyright (c) 1991, Larry Wall
  508.    *
  509. ***************
  510. *** 6,11 ****
  511. --- 6,15 ----
  512.    *    License or the Artistic License, as specified in the README file.
  513.    *
  514.    * $Log:    array.c,v $
  515. +  * Revision 4.0.1.2  91/11/05  16:00:14  lwall
  516. +  * patch11: random cleanup
  517. +  * patch11: passing non-existend array elements to subrouting caused core dump
  518. +  * 
  519.    * Revision 4.0.1.1  91/06/07  10:19:08  lwall
  520.    * patch4: new copyright notice
  521.    * 
  522. ***************
  523. *** 87,103 ****
  524.           ar->ary_max = newmax;
  525.       }
  526.       }
  527. !     if ((ar->ary_flags & ARF_REAL) && ar->ary_fill < key) {
  528. !     while (++ar->ary_fill < key) {
  529. !         if (ar->ary_array[ar->ary_fill] != Nullstr) {
  530. !         str_free(ar->ary_array[ar->ary_fill]);
  531. !         ar->ary_array[ar->ary_fill] = Nullstr;
  532.           }
  533.       }
  534.       }
  535. !     retval = (ar->ary_array[key] != Nullstr);
  536. !     if (retval && (ar->ary_flags & ARF_REAL))
  537. !     str_free(ar->ary_array[key]);
  538.       ar->ary_array[key] = val;
  539.       return retval;
  540.   }
  541. --- 91,111 ----
  542.           ar->ary_max = newmax;
  543.       }
  544.       }
  545. !     if (ar->ary_flags & ARF_REAL) {
  546. !     if (ar->ary_fill < key) {
  547. !         while (++ar->ary_fill < key) {
  548. !         if (ar->ary_array[ar->ary_fill] != Nullstr) {
  549. !             str_free(ar->ary_array[ar->ary_fill]);
  550. !             ar->ary_array[ar->ary_fill] = Nullstr;
  551. !         }
  552.           }
  553.       }
  554. +     retval = (ar->ary_array[key] != Nullstr);
  555. +     if (retval)
  556. +         str_free(ar->ary_array[key]);
  557.       }
  558. !     else
  559. !     retval = 0;
  560.       ar->ary_array[key] = val;
  561.       return retval;
  562.   }
  563. ***************
  564. *** 135,141 ****
  565.       ar->ary_max = size - 1;
  566.       ar->ary_flags = 0;
  567.       while (size--) {
  568. !     (*strp++)->str_pok &= ~SP_TEMP;
  569.       }
  570.       return ar;
  571.   }
  572. --- 143,151 ----
  573.       ar->ary_max = size - 1;
  574.       ar->ary_flags = 0;
  575.       while (size--) {
  576. !     if (*strp)
  577. !         (*strp)->str_pok &= ~SP_TEMP;
  578. !     strp++;
  579.       }
  580.       return ar;
  581.   }
  582. ***************
  583. *** 148,153 ****
  584. --- 158,164 ----
  585.   
  586.       if (!ar || !(ar->ary_flags & ARF_REAL) || ar->ary_max < 0)
  587.       return;
  588. +     /*SUPPRESS 560*/
  589.       if (key = ar->ary_array - ar->ary_alloc) {
  590.       ar->ary_max += key;
  591.       ar->ary_array -= key;
  592. ***************
  593. *** 166,171 ****
  594. --- 177,183 ----
  595.   
  596.       if (!ar)
  597.       return;
  598. +     /*SUPPRESS 560*/
  599.       if (key = ar->ary_array - ar->ary_alloc) {
  600.       ar->ary_max += key;
  601.       ar->ary_array -= key;
  602. ***************
  603. *** 222,228 ****
  604.   #ifdef BUGGY_MSC5
  605.    # pragma loop_opt(off)    /* don't loop-optimize the following code */
  606.   #endif /* BUGGY_MSC5 */
  607. !     for (i = ar->ary_fill; i >= 0; i--) {
  608.           *dstr-- = *sstr--;
  609.   #ifdef BUGGY_MSC5
  610.    # pragma loop_opt()    /* loop-optimization back to command-line setting */
  611. --- 234,240 ----
  612.   #ifdef BUGGY_MSC5
  613.    # pragma loop_opt(off)    /* don't loop-optimize the following code */
  614.   #endif /* BUGGY_MSC5 */
  615. !     for (i = ar->ary_fill - num; i >= 0; i--) {
  616.           *dstr-- = *sstr--;
  617.   #ifdef BUGGY_MSC5
  618.    # pragma loop_opt()    /* loop-optimization back to command-line setting */
  619.  
  620. Index: cmd.c
  621. *** cmd.c.old    Tue Nov  5 19:25:41 1991
  622. --- cmd.c    Tue Nov  5 19:25:41 1991
  623. ***************
  624. *** 1,4 ****
  625. ! /* $RCSfile: cmd.c,v $$Revision: 4.0.1.2 $$Date: 91/06/07 10:26:45 $
  626.    *
  627.    *    Copyright (c) 1991, Larry Wall
  628.    *
  629. --- 1,4 ----
  630. ! /* $RCSfile: cmd.c,v $$Revision: 4.0.1.3 $$Date: 91/11/05 16:07:43 $
  631.    *
  632.    *    Copyright (c) 1991, Larry Wall
  633.    *
  634. ***************
  635. *** 6,11 ****
  636. --- 6,16 ----
  637.    *    License or the Artistic License, as specified in the README file.
  638.    *
  639.    * $Log:    cmd.c,v $
  640. +  * Revision 4.0.1.3  91/11/05  16:07:43  lwall
  641. +  * patch11: random cleanup
  642. +  * patch11: "foo\0" eq "foo" was sometimes optimized to true
  643. +  * patch11: foreach on null list could spring memory leak
  644. +  * 
  645.    * Revision 4.0.1.2  91/06/07  10:26:45  lwall
  646.    * patch4: new copyright notice
  647.    * patch4: made some allowances for "semi-standard" C
  648. ***************
  649. *** 230,236 ****
  650.   #endif
  651.               newsp = cmd_exec(cmd->ucmd.ccmd.cc_true,gimme && (cmdflags & CF_TERM),sp);
  652.               st = stack->ary_array;    /* possibly reallocated */
  653. !             retstr = st[newsp];
  654.           }
  655.           if (!goto_targ) {
  656.               go_to = Nullch;
  657. --- 235,242 ----
  658.   #endif
  659.               newsp = cmd_exec(cmd->ucmd.ccmd.cc_true,gimme && (cmdflags & CF_TERM),sp);
  660.               st = stack->ary_array;    /* possibly reallocated */
  661. !             if (newsp >= 0)
  662. !             retstr = st[newsp];
  663.           }
  664.           if (!goto_targ) {
  665.               go_to = Nullch;
  666. ***************
  667. *** 250,256 ****
  668.   #endif
  669.               newsp = cmd_exec(cmd->ucmd.ccmd.cc_alt,gimme && (cmdflags & CF_TERM),sp);
  670.               st = stack->ary_array;    /* possibly reallocated */
  671. !             retstr = st[newsp];
  672.           }
  673.           if (goto_targ)
  674.               break;
  675. --- 256,263 ----
  676.   #endif
  677.               newsp = cmd_exec(cmd->ucmd.ccmd.cc_alt,gimme && (cmdflags & CF_TERM),sp);
  678.               st = stack->ary_array;    /* possibly reallocated */
  679. !             if (newsp >= 0)
  680. !             retstr = st[newsp];
  681.           }
  682.           if (goto_targ)
  683.               break;
  684. ***************
  685. *** 331,342 ****
  686.           else
  687.               break;        /* must evaluate */
  688.           }
  689. !         /* FALL THROUGH */
  690.       case CFT_STROP:        /* string op optimization */
  691.           retstr = STAB_STR(cmd->c_stab);
  692.           newsp = -2;
  693.   #ifndef I286
  694.           if (*cmd->c_short->str_ptr == *str_get(retstr) &&
  695.               bcmp(cmd->c_short->str_ptr, str_get(retstr),
  696.                 cmd->c_slen) == 0 ) {
  697.           if (cmdflags & CF_EQSURE) {
  698. --- 338,355 ----
  699.           else
  700.               break;        /* must evaluate */
  701.           }
  702. !         match = 0;
  703. !         goto strop;
  704. ! 
  705.       case CFT_STROP:        /* string op optimization */
  706. +         match = 1;
  707. +       strop:
  708.           retstr = STAB_STR(cmd->c_stab);
  709.           newsp = -2;
  710.   #ifndef I286
  711.           if (*cmd->c_short->str_ptr == *str_get(retstr) &&
  712. +             (match ? retstr->str_cur == cmd->c_slen - 1 :
  713. +                      retstr->str_cur >= cmd->c_slen) &&
  714.               bcmp(cmd->c_short->str_ptr, str_get(retstr),
  715.                 cmd->c_slen) == 0 ) {
  716.           if (cmdflags & CF_EQSURE) {
  717. ***************
  718. *** 576,581 ****
  719. --- 589,597 ----
  720.           }
  721.   
  722.           if (match >= ar->ary_fill) {    /* we're in LAST, probably */
  723. +         if (match < 0 &&        /* er, probably not... */
  724. +           savestack->ary_fill > aryoptsave)
  725. +             restorelist(aryoptsave);
  726.           retstr = &str_undef;
  727.           cmd->c_short->str_u.str_useful = -1;    /* actually redundant */
  728.           match = FALSE;
  729.  
  730. Index: lib/complete.pl
  731. *** lib/complete.pl.old    Tue Nov  5 19:26:54 1991
  732. --- lib/complete.pl    Tue Nov  5 19:26:54 1991
  733. ***************
  734. *** 1,5 ****
  735.   ;#
  736. ! ;#    @(#)complete.pl    1.0 (sun!waynet) 11/11/88
  737.   ;#
  738.   ;# Author: Wayne Thompson
  739.   ;#
  740. --- 1,5 ----
  741.   ;#
  742. ! ;#      @(#)complete.pl,v1.1            (me@anywhere.EBay.Sun.COM) 09/23/91
  743.   ;#
  744.   ;# Author: Wayne Thompson
  745.   ;#
  746. ***************
  747. *** 7,13 ****
  748.   ;#     This routine provides word completion.
  749.   ;#     (TAB) attempts word completion.
  750.   ;#     (^D)  prints completion list.
  751. ! ;#    (These may be changed by setting $Complete'complete, etc.)
  752.   ;#
  753.   ;# Diagnostics:
  754.   ;#     Bell when word completion fails.
  755. --- 7,13 ----
  756.   ;#     This routine provides word completion.
  757.   ;#     (TAB) attempts word completion.
  758.   ;#     (^D)  prints completion list.
  759. ! ;#      (These may be changed by setting $Complete'complete, etc.)
  760.   ;#
  761.   ;# Diagnostics:
  762.   ;#     Bell when word completion fails.
  763. ***************
  764. *** 18,95 ****
  765.   ;# Bugs:
  766.   ;#
  767.   ;# Usage:
  768. ! ;#     $input = do Complete('prompt_string', @completion_list);
  769.   ;#
  770.   
  771.   CONFIG: {
  772.       package Complete;
  773.   
  774. !     $complete =    "\004";
  775. !     $kill =    "\025";
  776. !     $erase1 =    "\177";
  777. !     $erase2 =    "\010";
  778.   }
  779.   
  780.   sub Complete {
  781.       package Complete;
  782.   
  783. -     local ($prompt) = shift (@_);
  784. -     local ($c, $cmp, $l, $r, $ret, $return, $test);
  785. -     @_cmp_lst = sort @_;
  786.       local($[) = 0;
  787. !     system 'stty raw -echo';
  788. !     loop: {
  789. !     print $prompt, $return;
  790. !     while (($c = getc(stdin)) ne "\r") {
  791. !         if ($c eq "\t") {            # (TAB) attempt completion
  792. !         @_match = ();
  793. !         foreach $cmp (@_cmp_lst) {
  794. !             push (@_match, $cmp) if $cmp =~ /^$return/;
  795. !         }
  796. !                 $test = $_match[0];
  797. !                 $l = length ($test);
  798. !         unless ($#_match == 0) {
  799. !                     shift (@_match);
  800. !                     foreach $cmp (@_match) {
  801. !                         until (substr ($cmp, 0, $l) eq substr ($test, 0, $l)) {
  802. !                             $l--;
  803. !                         }
  804. !                     }
  805. !                     print "\007";
  806. !                 }
  807. !                 print $test = substr ($test, $r, $l - $r);
  808. !                 $r = length ($return .= $test);
  809. !         }
  810. !         elsif ($c eq $complete) {        # (^D) completion list
  811. !         print "\r\n";
  812. !         foreach $cmp (@_cmp_lst) {
  813. !             print "$cmp\r\n" if $cmp =~ /^$return/;
  814. !         }
  815. !         redo loop;
  816. !         }
  817. !             elsif ($c eq $kill && $r) {    # (^U) kill
  818. !                 $return = '';
  819. !                 $r = 0;
  820. !                 print "\r\n";
  821. !                 redo loop;
  822. !             }
  823. !                                             # (DEL) || (BS) erase
  824. !         elsif ($c eq $erase1 || $c eq $erase2) {
  825. !         if($r) {
  826. !             print "\b \b";
  827. !             chop ($return);
  828. !             $r--;
  829. !         }
  830. !         }
  831. !         elsif ($c =~ /\S/) {                # printable char
  832. !         $return .= $c;
  833. !         $r++;
  834. !         print $c;
  835. !         }
  836. !     }
  837.       }
  838. !     system 'stty -raw echo';
  839. !     print "\n";
  840.       $return;
  841.   }
  842.   
  843. --- 18,109 ----
  844.   ;# Bugs:
  845.   ;#
  846.   ;# Usage:
  847. ! ;#     $input = &Complete('prompt_string', *completion_list);
  848. ! ;#         or
  849. ! ;#     $input = &Complete('prompt_string', @completion_list);
  850.   ;#
  851.   
  852.   CONFIG: {
  853.       package Complete;
  854.   
  855. !     $complete = "\004";
  856. !     $kill     = "\025";
  857. !     $erase1 =   "\177";
  858. !     $erase2 =   "\010";
  859.   }
  860.   
  861.   sub Complete {
  862.       package Complete;
  863.   
  864.       local($[) = 0;
  865. !     if ($_[1] =~ /^StB\0/) {
  866. !         ($prompt, *_) = @_;
  867.       }
  868. !     else {
  869. !         $prompt = shift(@_);
  870. !     }
  871. !     @cmp_lst = sort(@_);
  872. ! 
  873. !     system('stty raw -echo');
  874. !     LOOP: {
  875. !         print($prompt, $return);
  876. !         while (($_ = getc(STDIN)) ne "\r") {
  877. !             CASE: {
  878. !                 # (TAB) attempt completion
  879. !                 $_ eq "\t" && do {
  880. !                     @match = grep(/^$return/, @cmp_lst);
  881. !                     $l = length($test = shift(@match));
  882. !                     unless ($#match < 0) {
  883. !                         foreach $cmp (@match) {
  884. !                             until (substr($cmp, 0, $l) eq substr($test, 0, $l)) {
  885. !                                 $l--;
  886. !                             }
  887. !                         }
  888. !                         print("\a");
  889. !                     }
  890. !                     print($test = substr($test, $r, $l - $r));
  891. !                     $r = length($return .= $test);
  892. !                     last CASE;
  893. !                 };
  894. ! 
  895. !                 # (^D) completion list
  896. !                 $_ eq $complete && do {
  897. !                     print(join("\r\n", '', grep(/^$return/, @cmp_lst)), "\r\n");
  898. !                     redo LOOP;
  899. !                 };
  900. ! 
  901. !                 # (^U) kill
  902. !                 $_ eq $kill && do {
  903. !                     if ($r) {
  904. !                         undef($r, $return);
  905. !                         print("\r\n");
  906. !                         redo LOOP;
  907. !                     }
  908. !                     last CASE;
  909. !                 };
  910. ! 
  911. !                 # (DEL) || (BS) erase
  912. !                 ($_ eq $erase1 || $_ eq $erase2) && do {
  913. !                     if($r) {
  914. !                         print("\b \b");
  915. !                         chop($return);
  916. !                         $r--;
  917. !                     }
  918. !                     last CASE;
  919. !                 };
  920. ! 
  921. !                 # printable char
  922. !                 ord >= 32 && do {
  923. !                     $return .= $_;
  924. !                     $r++;
  925. !                     print;
  926. !                     last CASE;
  927. !                 };
  928. !             }
  929. !         }
  930. !     }
  931. !     system('stty -raw echo');
  932. !     print("\n");
  933.       $return;
  934.   }
  935.   
  936.  
  937. Index: form.c
  938. *** form.c.old    Tue Nov  5 19:26:16 1991
  939. --- form.c    Tue Nov  5 19:26:16 1991
  940. ***************
  941. *** 1,4 ****
  942. ! /* $RCSfile: form.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:07:59 $
  943.    *
  944.    *    Copyright (c) 1991, Larry Wall
  945.    *
  946. --- 1,4 ----
  947. ! /* $RCSfile: form.c,v $$Revision: 4.0.1.2 $$Date: 91/11/05 17:18:43 $
  948.    *
  949.    *    Copyright (c) 1991, Larry Wall
  950.    *
  951. ***************
  952. *** 6,11 ****
  953. --- 6,16 ----
  954.    *    License or the Artistic License, as specified in the README file.
  955.    *
  956.    * $Log:    form.c,v $
  957. +  * Revision 4.0.1.2  91/11/05  17:18:43  lwall
  958. +  * patch11: formats didn't fill their fields as well as they could
  959. +  * patch11: ^ fields chopped hyphens on line break
  960. +  * patch11: # fields could write outside allocated memory
  961. +  * 
  962.    * Revision 4.0.1.1  91/06/07  11:07:59  lwall
  963.    * patch4: new copyright notice
  964.    * patch4: default top-of-form format is now FILEHANDLE_TOP
  965. ***************
  966. *** 97,102 ****
  967. --- 102,108 ----
  968.       for (; fcmd; fcmd = nextfcmd) {
  969.       nextfcmd = fcmd->f_next;
  970.       CHKLEN(fcmd->f_presize);
  971. +     /*SUPPRESS 560*/
  972.       if (s = fcmd->f_pre) {
  973.           while (*s) {
  974.           if (*s == '\n') {
  975. ***************
  976. *** 141,147 ****
  977.           if (*s == '\n' && (fcmd->f_flags & FC_CHOP))
  978.               *s = ' ';
  979.           }
  980. !         if (size)
  981.           chophere = s;
  982.           else if (chophere && chophere < s && *s && index(chopset,*s))
  983.           chophere = s;
  984. --- 147,153 ----
  985.           if (*s == '\n' && (fcmd->f_flags & FC_CHOP))
  986.               *s = ' ';
  987.           }
  988. !         if (size || !*s)
  989.           chophere = s;
  990.           else if (chophere && chophere < s && *s && index(chopset,*s))
  991.           chophere = s;
  992. ***************
  993. *** 165,171 ****
  994.               *d++ = '.';
  995.               size -= 3;
  996.           }
  997. !         while (*chophere && index(chopset,*chophere))
  998.               chophere++;
  999.           str_chop(str,chophere);
  1000.           }
  1001. --- 171,178 ----
  1002.               *d++ = '.';
  1003.               size -= 3;
  1004.           }
  1005. !         while (*chophere && index(chopset,*chophere)
  1006. !           && isSPACE(*chophere))
  1007.               chophere++;
  1008.           str_chop(str,chophere);
  1009.           }
  1010. ***************
  1011. *** 192,198 ****
  1012.           if (*s == '\n' && (fcmd->f_flags & FC_CHOP))
  1013.               *s = ' ';
  1014.           }
  1015. !         if (size)
  1016.           chophere = s;
  1017.           else if (chophere && chophere < s && *s && index(chopset,*s))
  1018.           chophere = s;
  1019. --- 199,205 ----
  1020.           if (*s == '\n' && (fcmd->f_flags & FC_CHOP))
  1021.               *s = ' ';
  1022.           }
  1023. !         if (size || !*s)
  1024.           chophere = s;
  1025.           else if (chophere && chophere < s && *s && index(chopset,*s))
  1026.           chophere = s;
  1027. ***************
  1028. *** 201,207 ****
  1029.               chophere = s;
  1030.           size += (s - chophere);
  1031.           s = chophere;
  1032. !         while (*chophere && index(chopset,*chophere))
  1033.               chophere++;
  1034.           }
  1035.           tmpchar = *s;
  1036. --- 208,215 ----
  1037.               chophere = s;
  1038.           size += (s - chophere);
  1039.           s = chophere;
  1040. !         while (*chophere && index(chopset,*chophere)
  1041. !           && isSPACE(*chophere))
  1042.               chophere++;
  1043.           }
  1044.           tmpchar = *s;
  1045. ***************
  1046. *** 235,241 ****
  1047.           if (*s == '\n' && (fcmd->f_flags & FC_CHOP))
  1048.               *s = ' ';
  1049.           }
  1050. !         if (size)
  1051.           chophere = s;
  1052.           else if (chophere && chophere < s && *s && index(chopset,*s))
  1053.           chophere = s;
  1054. --- 243,249 ----
  1055.           if (*s == '\n' && (fcmd->f_flags & FC_CHOP))
  1056.               *s = ' ';
  1057.           }
  1058. !         if (size || !*s)
  1059.           chophere = s;
  1060.           else if (chophere && chophere < s && *s && index(chopset,*s))
  1061.           chophere = s;
  1062. ***************
  1063. *** 244,250 ****
  1064.               chophere = s;
  1065.           size += (s - chophere);
  1066.           s = chophere;
  1067. !         while (*chophere && index(chopset,*chophere))
  1068.               chophere++;
  1069.           }
  1070.           tmpchar = *s;
  1071. --- 252,259 ----
  1072.               chophere = s;
  1073.           size += (s - chophere);
  1074.           s = chophere;
  1075. !         while (*chophere && index(chopset,*chophere)
  1076. !           && isSPACE(*chophere))
  1077.               chophere++;
  1078.           }
  1079.           tmpchar = *s;
  1080. ***************
  1081. *** 291,297 ****
  1082.           (void)eval(fcmd->f_expr,G_SCALAR,sp);
  1083.           str = stack->ary_array[sp+1];
  1084.           size = fcmd->f_size;
  1085. !         CHKLEN(size);
  1086.           /* If the field is marked with ^ and the value is undefined,
  1087.              blank it out. */
  1088.           if ((fcmd->f_flags & FC_CHOP) && !str->str_pok && !str->str_nok) {
  1089. --- 300,306 ----
  1090.           (void)eval(fcmd->f_expr,G_SCALAR,sp);
  1091.           str = stack->ary_array[sp+1];
  1092.           size = fcmd->f_size;
  1093. !         CHKLEN(size+1);
  1094.           /* If the field is marked with ^ and the value is undefined,
  1095.              blank it out. */
  1096.           if ((fcmd->f_flags & FC_CHOP) && !str->str_pok && !str->str_nok) {
  1097.  
  1098. Index: lib/getcwd.pl
  1099. *** lib/getcwd.pl.old    Tue Nov  5 19:26:59 1991
  1100. --- lib/getcwd.pl    Tue Nov  5 19:27:00 1991
  1101. ***************
  1102. *** 0 ****
  1103. --- 1,62 ----
  1104. + # By Brandon S. Allbery
  1105. + #
  1106. + # Usage: $cwd = &getcwd;
  1107. + 
  1108. + sub getcwd
  1109. + {
  1110. +     local($dotdots, $cwd, @pst, @cst, $dir, @tst);
  1111. + 
  1112. +     unless (@cst = stat('.'))
  1113. +     {
  1114. +     warn "stat(.): $!";
  1115. +     return '';
  1116. +     }
  1117. +     $cwd = '';
  1118. +     do
  1119. +     {
  1120. +     $dotdots .= '/' if $dotdots;
  1121. +     $dotdots .= '..';
  1122. +     @pst = @cst;
  1123. +     unless (opendir(getcwd'PARENT, $dotdots))            #'))
  1124. +     {
  1125. +         warn "opendir($dotdots): $!";
  1126. +         return '';
  1127. +     }
  1128. +     unless (@cst = stat($dotdots))
  1129. +     {
  1130. +         warn "stat($dotdots): $!";
  1131. +         closedir(getcwd'PARENT);                    #');
  1132. +         return '';
  1133. +     }
  1134. +     if ($pst[$[] == $cst[$[] && $pst[$[ + 1] == $cst[$[ + 1])
  1135. +     {
  1136. +         $dir = '';
  1137. +     }
  1138. +     else
  1139. +     {
  1140. +         do
  1141. +         {
  1142. +         unless ($dir = readdir(getcwd'PARENT))            #'))
  1143. +         {
  1144. +             warn "readdir($dotdots): $!";
  1145. +             closedir(getcwd'PARENT);                #');
  1146. +             return '';
  1147. +         }
  1148. +         unless (@tst = stat("$dotdots/$dir"))
  1149. +         {
  1150. +             warn "stat($dotdots/$dir): $!";
  1151. +             closedir(getcwd'PARENT);                #');
  1152. +             return '';
  1153. +         }
  1154. +         }
  1155. +         while ($dir eq '.' || $dir eq '..' || $tst[$[] != $pst[$[] ||
  1156. +            $tst[$[ + 1] != $pst[$[ + 1]);
  1157. +     }
  1158. +     $cwd = "$dir/$cwd";
  1159. +     closedir(getcwd'PARENT);                    #');
  1160. +     } while ($dir);
  1161. +     chop($cwd);
  1162. +     $cwd;
  1163. + }
  1164. + 
  1165. + 1;
  1166.  
  1167. Index: lib/getopt.pl
  1168. Prereq: 4.0
  1169. *** lib/getopt.pl.old    Tue Nov  5 19:27:01 1991
  1170. --- lib/getopt.pl    Tue Nov  5 19:27:02 1991
  1171. ***************
  1172. *** 1,4 ****
  1173. ! ;# $Header: getopt.pl,v 4.0 91/03/20 01:25:11 lwall Locked $
  1174.   
  1175.   ;# Process single-character switches with switch clustering.  Pass one argument
  1176.   ;# which is a string containing all switches that take an argument.  For each
  1177. --- 1,4 ----
  1178. ! ;# $RCSfile: getopt.pl,v $$Revision: 4.0.1.1 $$Date: 91/11/05 17:53:01 $
  1179.   
  1180.   ;# Process single-character switches with switch clustering.  Pass one argument
  1181.   ;# which is a string containing all switches that take an argument.  For each
  1182. ***************
  1183. *** 14,20 ****
  1184.       local($_,$first,$rest);
  1185.       local($[) = 0;
  1186.   
  1187. !     while (($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
  1188.       ($first,$rest) = ($1,$2);
  1189.       if (index($argumentative,$first) >= $[) {
  1190.           if ($rest ne '') {
  1191. --- 14,20 ----
  1192.       local($_,$first,$rest);
  1193.       local($[) = 0;
  1194.   
  1195. !     while (@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
  1196.       ($first,$rest) = ($1,$2);
  1197.       if (index($argumentative,$first) >= $[) {
  1198.           if ($rest ne '') {
  1199.  
  1200. Index: lib/getopts.pl
  1201. *** lib/getopts.pl.old    Tue Nov  5 19:27:03 1991
  1202. --- lib/getopts.pl    Tue Nov  5 19:27:04 1991
  1203. ***************
  1204. *** 6,16 ****
  1205.   
  1206.   sub Getopts {
  1207.       local($argumentative) = @_;
  1208. !     local(@args,$_,$first,$rest,$errs);
  1209.       local($[) = 0;
  1210.   
  1211.       @args = split( / */, $argumentative );
  1212. !     while(($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
  1213.       ($first,$rest) = ($1,$2);
  1214.       $pos = index($argumentative,$first);
  1215.       if($pos >= $[) {
  1216. --- 6,17 ----
  1217.   
  1218.   sub Getopts {
  1219.       local($argumentative) = @_;
  1220. !     local(@args,$_,$first,$rest);
  1221. !     local($errs) = 0;
  1222.       local($[) = 0;
  1223.   
  1224.       @args = split( / */, $argumentative );
  1225. !     while(@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
  1226.       ($first,$rest) = ($1,$2);
  1227.       $pos = index($argumentative,$first);
  1228.       if($pos >= $[) {
  1229.  
  1230. Index: hints/greenhills.sh
  1231. *** hints/greenhills.sh.old    Tue Nov  5 19:26:30 1991
  1232. --- hints/greenhills.sh    Tue Nov  5 19:26:31 1991
  1233. ***************
  1234. *** 0 ****
  1235. --- 1 ----
  1236. + ccflags="$ccflags -X18"
  1237.  
  1238. Index: h2ph.SH
  1239. *** h2ph.SH.old    Tue Nov  5 19:26:18 1991
  1240. --- h2ph.SH    Tue Nov  5 19:26:18 1991
  1241. ***************
  1242. *** 24,30 ****
  1243.   'di';
  1244.   'ig00';
  1245.   
  1246. ! \$perlincl = '$privlib';
  1247.   !GROK!THIS!
  1248.   
  1249.   : In the following dollars and backticks do not need the extra backslash.
  1250. --- 24,30 ----
  1251.   'di';
  1252.   'ig00';
  1253.   
  1254. ! \$perlincl = '$installprivlib';
  1255.   !GROK!THIS!
  1256.   
  1257.   : In the following dollars and backticks do not need the extra backslash.
  1258. ***************
  1259. *** 40,46 ****
  1260.       FILE
  1261.   END
  1262.   
  1263. ! $isatype{@isatype} = (1) x @isatype;
  1264.   
  1265.   @ARGV = ('-') unless @ARGV;
  1266.   
  1267. --- 40,46 ----
  1268.       FILE
  1269.   END
  1270.   
  1271. ! @isatype{@isatype} = (1) x @isatype;
  1272.   
  1273.   @ARGV = ('-') unless @ARGV;
  1274.   
  1275. ***************
  1276. *** 86,91 ****
  1277. --- 86,92 ----
  1278.               $args = $1;
  1279.               if ($args ne '') {
  1280.               foreach $arg (split(/,\s*/,$args)) {
  1281. +                 $arg =~ s/^\s*([^\s].*[^\s])\s*$/$1/;
  1282.                   $curargs{$arg} = 1;
  1283.               }
  1284.               $args =~ s/\b(\w)/\$$1/g;
  1285. ***************
  1286. *** 117,123 ****
  1287.               }
  1288.           }
  1289.           }
  1290. !         elsif (/^include <(.*)>/) {
  1291.           ($incl = $1) =~ s/\.h$/.ph/;
  1292.           print OUT $t,"require '$incl';\n";
  1293.           }
  1294. --- 118,124 ----
  1295.               }
  1296.           }
  1297.           }
  1298. !         elsif (/^include\s+<(.*)>/) {
  1299.           ($incl = $1) =~ s/\.h$/.ph/;
  1300.           print OUT $t,"require '$incl';\n";
  1301.           }
  1302.  
  1303. Index: handy.h
  1304. *** handy.h.old    Tue Nov  5 19:26:20 1991
  1305. --- handy.h    Tue Nov  5 19:26:20 1991
  1306. ***************
  1307. *** 1,4 ****
  1308. ! /* $RCSfile: handy.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:09:56 $
  1309.    *
  1310.    *    Copyright (c) 1991, Larry Wall
  1311.    *
  1312. --- 1,4 ----
  1313. ! /* $RCSfile: handy.h,v $$Revision: 4.0.1.2 $$Date: 91/11/05 17:23:38 $
  1314.    *
  1315.    *    Copyright (c) 1991, Larry Wall
  1316.    *
  1317. ***************
  1318. *** 6,11 ****
  1319. --- 6,14 ----
  1320.    *    License or the Artistic License, as specified in the README file.
  1321.    *
  1322.    * $Log:    handy.h,v $
  1323. +  * Revision 4.0.1.2  91/11/05  17:23:38  lwall
  1324. +  * patch11: prepared for ctype implementations that don't define isascii()
  1325. +  * 
  1326.    * Revision 4.0.1.1  91/06/07  11:09:56  lwall
  1327.    * patch4: new copyright notice
  1328.    * 
  1329. ***************
  1330. *** 51,56 ****
  1331. --- 54,75 ----
  1332.   #define strGE(s1,s2) (strcmp(s1,s2) >= 0)
  1333.   #define strnNE(s1,s2,l) (strncmp(s1,s2,l))
  1334.   #define strnEQ(s1,s2,l) (!strncmp(s1,s2,l))
  1335. + 
  1336. + #if defined(CTYPE256) || !defined(isascii)
  1337. + #define isALNUM(c) (isalpha(c) || isdigit(c) || c == '_')
  1338. + #define isALPHA(c) isalpha(c)
  1339. + #define isSPACE(c) isspace(c)
  1340. + #define isDIGIT(c) isdigit(c)
  1341. + #define isUPPER(c) isupper(c)
  1342. + #define isLOWER(c) islower(c)
  1343. + #else
  1344. + #define isALNUM(c) (isascii(c) && (isalpha(c) || isdigit(c) || c == '_'))
  1345. + #define isALPHA(c) (isascii(c) && isalpha(c))
  1346. + #define isSPACE(c) (isascii(c) && isspace(c))
  1347. + #define isDIGIT(c) (isascii(c) && isdigit(c))
  1348. + #define isUPPER(c) (isascii(c) && isupper(c))
  1349. + #define isLOWER(c) (isascii(c) && islower(c))
  1350. + #endif
  1351.   
  1352.   #define MEM_SIZE unsigned int
  1353.   
  1354.  
  1355. Index: makedepend.SH
  1356. *** makedepend.SH.old    Tue Nov  5 19:27:10 1991
  1357. --- makedepend.SH    Tue Nov  5 19:27:10 1991
  1358. ***************
  1359. *** 15,23 ****
  1360.   echo "Extracting makedepend (with variable substitutions)"
  1361.   $spitshell >makedepend <<!GROK!THIS!
  1362.   $startsh
  1363. ! # $RCSfile: makedepend.SH,v $$Revision: 4.0.1.2 $$Date: 91/06/07 15:40:06 $
  1364.   #
  1365.   # $Log:    makedepend.SH,v $
  1366.   # Revision 4.0.1.2  91/06/07  15:40:06  lwall
  1367.   # patch4: fixed cppstdin to run in the right directory
  1368.   # 
  1369. --- 15,26 ----
  1370.   echo "Extracting makedepend (with variable substitutions)"
  1371.   $spitshell >makedepend <<!GROK!THIS!
  1372.   $startsh
  1373. ! # $RCSfile: makedepend.SH,v $$Revision: 4.0.1.3 $$Date: 91/11/05 17:56:33 $
  1374.   #
  1375.   # $Log:    makedepend.SH,v $
  1376. + # Revision 4.0.1.3  91/11/05  17:56:33  lwall
  1377. + # patch11: various portability fixes
  1378. + # 
  1379.   # Revision 4.0.1.2  91/06/07  15:40:06  lwall
  1380.   # patch4: fixed cppstdin to run in the right directory
  1381.   # 
  1382. ***************
  1383. *** 92,98 ****
  1384.       -e '}'
  1385.       $cppstdin -I/usr/local/include -I. $cppflags $cppminus <$file.c | sed -e 's#\.[0-9][0-9]*\.c#'"$file.c#" | \
  1386.       $sed \
  1387. !     -e '/^# *[0-9]/!d' \
  1388.       -e 's/^.*"\(.*\)".*$/'$filebase'.o: \1/' \
  1389.       -e 's|: \./|: |' \
  1390.       -e 's|\.c\.c|.c|' | \
  1391. --- 95,102 ----
  1392.       -e '}'
  1393.       $cppstdin -I/usr/local/include -I. $cppflags $cppminus <$file.c | sed -e 's#\.[0-9][0-9]*\.c#'"$file.c#" | \
  1394.       $sed \
  1395. !     -e 's/^[     ]*#[     ]*line/#/' \
  1396. !     -e '/^# *[0-9][0-9]* *"/!d' \
  1397.       -e 's/^.*"\(.*\)".*$/'$filebase'.o: \1/' \
  1398.       -e 's|: \./|: |' \
  1399.       -e 's|\.c\.c|.c|' | \
  1400.  
  1401. Index: lib/cacheout.pl
  1402. *** lib/cacheout.pl.old    Tue Nov  5 19:26:50 1991
  1403. --- lib/cacheout.pl    Tue Nov  5 19:26:50 1991
  1404. ***************
  1405. *** 12,22 ****
  1406.       package cacheout;
  1407.   
  1408.       ($file) = @_;
  1409. -     ($package) = caller;
  1410.       if (!$isopen{$file}) {
  1411.       if (++$numopen > $maxopen) {
  1412. !         sub byseq {$isopen{$a} != $isopen{$b};}
  1413. !         local(@lru) = sort byseq keys(%isopen);
  1414.           splice(@lru, $maxopen / 3);
  1415.           $numopen -= @lru;
  1416.           for (@lru) { close $_; delete $isopen{$_}; }
  1417. --- 12,20 ----
  1418.       package cacheout;
  1419.   
  1420.       ($file) = @_;
  1421.       if (!$isopen{$file}) {
  1422.       if (++$numopen > $maxopen) {
  1423. !         local(@lru) = sort {$isopen{$a} <=> $isopen{$b};} keys(%isopen);
  1424.           splice(@lru, $maxopen / 3);
  1425.           $numopen -= @lru;
  1426.           for (@lru) { close $_; delete $isopen{$_}; }
  1427. ***************
  1428. *** 35,41 ****
  1429.   if (open(PARAM,'/usr/include/sys/param.h')) {
  1430.       local($.);
  1431.       while (<PARAM>) {
  1432. !     $maxopen = $1 - 4 if /^#define NOFILE\s+(\d+)/;
  1433.       }
  1434.       close PARAM;
  1435.   }
  1436. --- 33,39 ----
  1437.   if (open(PARAM,'/usr/include/sys/param.h')) {
  1438.       local($.);
  1439.       while (<PARAM>) {
  1440. !     $maxopen = $1 - 4 if /^\s*#\s*define\s+NOFILE\s+(\d+)/;
  1441.       }
  1442.       close PARAM;
  1443.   }
  1444.  
  1445. Index: t/op/sort.t
  1446. Prereq: 4.0
  1447. *** t/op/sort.t.old    Tue Nov  5 19:28:04 1991
  1448. --- t/op/sort.t    Tue Nov  5 19:28:04 1991
  1449. ***************
  1450. *** 1,8 ****
  1451.   #!./perl
  1452.   
  1453. ! # $Header: sort.t,v 4.0 91/03/20 01:54:38 lwall Locked $
  1454.   
  1455. ! print "1..8\n";
  1456.   
  1457.   sub reverse { $a lt $b ? 1 : $a gt $b ? -1 : 0; }
  1458.   
  1459. --- 1,8 ----
  1460.   #!./perl
  1461.   
  1462. ! # $RCSfile: sort.t,v $$Revision: 4.0.1.1 $$Date: 91/11/05 18:43:47 $
  1463.   
  1464. ! print "1..9\n";
  1465.   
  1466.   sub reverse { $a lt $b ? 1 : $a gt $b ? -1 : 0; }
  1467.   
  1468. ***************
  1469. *** 37,39 ****
  1470. --- 37,43 ----
  1471.   @a = (1,2,3,4);
  1472.   @b = reverse @a;
  1473.   print ("@b" eq "4 3 2 1" ? "ok 8\n" : "not ok 8 (@b)\n");
  1474. + 
  1475. + @a = (10,2,3,4);
  1476. + @b = sort {$a <=> $b;} @a;
  1477. + print ("@b" eq "2 3 4 10" ? "ok 9\n" : "not ok 9 (@b)\n");
  1478.  
  1479. Index: regexp.h
  1480. *** regexp.h.old    Tue Nov  5 19:27:46 1991
  1481. --- regexp.h    Tue Nov  5 19:27:46 1991
  1482. ***************
  1483. *** 5,13 ****
  1484.    * not the System V one.
  1485.    */
  1486.   
  1487. ! /* $RCSfile: regexp.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:51:18 $
  1488.    *
  1489.    * $Log:    regexp.h,v $
  1490.    * Revision 4.0.1.1  91/06/07  11:51:18  lwall
  1491.    * patch4: new copyright notice
  1492.    * patch4: // wouldn't use previous pattern if it started with a null character
  1493. --- 5,17 ----
  1494.    * not the System V one.
  1495.    */
  1496.   
  1497. ! /* $RCSfile: regexp.h,v $$Revision: 4.0.1.2 $$Date: 91/11/05 18:24:31 $
  1498.    *
  1499.    * $Log:    regexp.h,v $
  1500. +  * Revision 4.0.1.2  91/11/05  18:24:31  lwall
  1501. +  * patch11: minimum match length calculation in regexp is now cumulative
  1502. +  * patch11: initial .* in pattern had dependency on value of $*
  1503. +  * 
  1504.    * Revision 4.0.1.1  91/06/07  11:51:18  lwall
  1505.    * patch4: new copyright notice
  1506.    * patch4: // wouldn't use previous pattern if it started with a null character
  1507. ***************
  1508. *** 25,30 ****
  1509. --- 29,35 ----
  1510.       char *regstclass;
  1511.       STR *regmust;        /* Internal use only. */
  1512.       int regback;        /* Can regmust locate first try? */
  1513. +     int minlen;        /* mininum possible length of $& */
  1514.       int prelen;        /* length of precomp */
  1515.       char *precomp;        /* pre-compilation regular expression */
  1516.       char *subbase;        /* saved string so \digit works forever */
  1517. ***************
  1518. *** 39,44 ****
  1519. --- 44,50 ----
  1520.   
  1521.   #define ROPT_ANCH 1
  1522.   #define ROPT_SKIP 2
  1523. + #define ROPT_IMPLICIT 4
  1524.   
  1525.   regexp *regcomp();
  1526.   int regexec();
  1527.  
  1528. Index: hints/aix_rs.sh
  1529. *** hints/aix_rs.sh.old    Tue Nov  5 22:55:53 1991
  1530. --- hints/aix_rs.sh    Tue Nov  5 22:55:53 1991
  1531. ***************
  1532. *** 1,4 ****
  1533.   eval_cflags='optimize="-g"'
  1534.   toke_cflags='optimize="-g"'
  1535.   teval_cflags='optimize="-g"'
  1536. ! ttoke_cflags='optimize="-g"'; cflags="$cflags -D_NO_PROTO"
  1537. --- 1,5 ----
  1538.   eval_cflags='optimize="-g"'
  1539.   toke_cflags='optimize="-g"'
  1540.   teval_cflags='optimize="-g"'
  1541. ! ttoke_cflags='optimize="-g"';
  1542. ! ccflags="$ccflags -D_NO_PROTO"
  1543.  
  1544. Index: handy.h
  1545. *** handy.h.old    Tue Nov  5 22:54:35 1991
  1546. --- handy.h    Tue Nov  5 22:54:36 1991
  1547. ***************
  1548. *** 1,4 ****
  1549. ! /* $RCSfile: handy.h,v $$Revision: 4.0.1.2 $$Date: 91/11/05 17:23:38 $
  1550.    *
  1551.    *    Copyright (c) 1991, Larry Wall
  1552.    *
  1553. --- 1,4 ----
  1554. ! /* $RCSfile: handy.h,v $$Revision: 4.0.1.3 $$Date: 91/11/05 22:54:26 $
  1555.    *
  1556.    *    Copyright (c) 1991, Larry Wall
  1557.    *
  1558. ***************
  1559. *** 6,11 ****
  1560. --- 6,14 ----
  1561.    *    License or the Artistic License, as specified in the README file.
  1562.    *
  1563.    * $Log:    handy.h,v $
  1564. +  * Revision 4.0.1.3  91/11/05  22:54:26  lwall
  1565. +  * patch11: erratum
  1566. +  * 
  1567.    * Revision 4.0.1.2  91/11/05  17:23:38  lwall
  1568.    * patch11: prepared for ctype implementations that don't define isascii()
  1569.    * 
  1570. ***************
  1571. *** 83,91 ****
  1572. --- 86,96 ----
  1573.   
  1574.   #ifndef lint
  1575.   #ifndef LEAKTEST
  1576. + #ifndef safemalloc
  1577.   char *safemalloc();
  1578.   char *saferealloc();
  1579.   void safefree();
  1580. + #endif
  1581.   #ifndef MSDOS
  1582.   #define New(x,v,n,t)  (v = (t*)safemalloc((MEM_SIZE)((n) * sizeof(t))))
  1583.   #define Newc(x,v,n,t,c)  (v = (c*)safemalloc((MEM_SIZE)((n) * sizeof(t))))
  1584.  
  1585. Index: regcomp.c
  1586. *** regcomp.c.old    Tue Nov  5 22:55:26 1991
  1587. --- regcomp.c    Tue Nov  5 22:55:27 1991
  1588. ***************
  1589. *** 7,15 ****
  1590.    * blame Henry for some of the lack of readability.
  1591.    */
  1592.   
  1593. ! /* $RCSfile: regcomp.c,v $$Revision: 4.0.1.3 $$Date: 91/11/05 18:22:28 $
  1594.    *
  1595.    * $Log:    regcomp.c,v $
  1596.    * Revision 4.0.1.3  91/11/05  18:22:28  lwall
  1597.    * patch11: minimum match length calculation in regexp is now cumulative
  1598.    * patch11: initial .* in pattern had dependency on value of $*
  1599. --- 7,18 ----
  1600.    * blame Henry for some of the lack of readability.
  1601.    */
  1602.   
  1603. ! /* $RCSfile: regcomp.c,v $$Revision: 4.0.1.4 $$Date: 91/11/05 22:55:14 $
  1604.    *
  1605.    * $Log:    regcomp.c,v $
  1606. +  * Revision 4.0.1.4  91/11/05  22:55:14  lwall
  1607. +  * patch11: Erratum
  1608. +  * 
  1609.    * Revision 4.0.1.3  91/11/05  18:22:28  lwall
  1610.    * patch11: minimum match length calculation in regexp is now cumulative
  1611.    * patch11: initial .* in pattern had dependency on value of $*
  1612. ***************
  1613. *** 157,163 ****
  1614. --- 160,168 ----
  1615.       int backest;
  1616.       int curback;
  1617.       int minlen;
  1618. + #ifndef safemalloc
  1619.       extern char *safemalloc();
  1620. + #endif
  1621.       extern char *savestr();
  1622.       int sawplus = 0;
  1623.       int sawopen = 0;
  1624.  
  1625. *** End of Patch 18 ***
  1626. exit 0 # Just in case...
  1627. -- 
  1628. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1629. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1630. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1631. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1632.