home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume20 / perl / patch10 < prev    next >
Encoding:
Text File  |  1991-06-19  |  22.1 KB  |  819 lines
  1. Newsgroups: comp.sources.misc
  2. From: Larry Wall <lwall@netlabs.com>
  3. Subject:  v20i062:  perl - The perl programming language, Patch10
  4. Message-ID: <1991Jun20.030845.8919@sparky.IMD.Sterling.COM>
  5. X-Md4-Signature: de248178bb74b164e1b03b6260eebbfc
  6. Date: Thu, 20 Jun 1991 03:08:45 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Larry Wall <lwall@netlabs.com>
  10. Posting-number: Volume 20, Issue 62
  11. Archive-name: perl/patch10
  12. Patch-To: perl: Volume 18, Issue 19-54
  13.  
  14. System: perl version 4.0
  15. Patch #: 10
  16. Priority: HIGH
  17. Subject: pack(hh,1) dumped core
  18. Subject: read didn't work from character special files open for writing
  19. Subject: close-on-exec wrongly set on system file descriptors
  20. Subject: //g only worked first time through
  21. Subject: perl -v printed incorrect copyright notice
  22. Subject: certain pattern optimizations were botched
  23. Subject: documented some newer features in addenda
  24. Subject: $) and $| incorrectly handled in run-time patterns
  25. Subject: added tests for case-insensitive regular expressions
  26. Subject: m'$foo' now treats string as single quoted
  27.  
  28. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your perl source
  29.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  30.     If you don't have the patch program, apply the following by hand,
  31.     or get patch (version 2.0, latest patchlevel).
  32.  
  33.     After patching:
  34.         Configure -d
  35.         make depend
  36.         make
  37.         make test
  38.         make install
  39.  
  40.     If patch indicates that patchlevel is the wrong version, you may need
  41.     to apply one or more previous patches, or the patch may already
  42.     have been applied.  See the patchlevel.h file to find out what has or
  43.     has not been applied.  In any event, don't continue with the patch.
  44.  
  45.     If you are missing previous patches they can be obtained from me:
  46.  
  47.     Larry Wall
  48.     lwall@netlabs.com
  49.  
  50.     If you send a mail message of the following form it will greatly speed
  51.     processing:
  52.  
  53.     Subject: Command
  54.     @SH mailpatch PATH perl 4.0 LIST
  55.            ^ note the c
  56.  
  57.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  58.     or in bang notation from some well-known host, and LIST is the number
  59.     of one or more patches you need, separated by spaces, commas, and/or
  60.     hyphens.  Saying 35- says everything from 35 to the end.
  61.  
  62.  
  63. Index: patchlevel.h
  64. Prereq: 9
  65. 1c1
  66. < #define PATCHLEVEL 9
  67. ---
  68. > #define PATCHLEVEL 10
  69.  
  70. Index: doarg.c
  71. *** doarg.c.old    Mon Jun 10 01:32:56 1991
  72. --- doarg.c    Mon Jun 10 01:33:01 1991
  73. ***************
  74. *** 1,4 ****
  75. ! /* $RCSfile: doarg.c,v $$Revision: 4.0.1.2 $$Date: 91/06/07 10:42:17 $
  76.    *
  77.    *    Copyright (c) 1991, Larry Wall
  78.    *
  79. --- 1,4 ----
  80. ! /* $RCSfile: doarg.c,v $$Revision: 4.0.1.3 $$Date: 91/06/10 01:18:41 $
  81.    *
  82.    *    Copyright (c) 1991, Larry Wall
  83.    *
  84. ***************
  85. *** 6,11 ****
  86. --- 6,14 ----
  87.    *    License or the Artistic License, as specified in the README file.
  88.    *
  89.    * $Log:    doarg.c,v $
  90. +  * Revision 4.0.1.3  91/06/10  01:18:41  lwall
  91. +  * patch10: pack(hh,1) dumped core
  92. +  * 
  93.    * Revision 4.0.1.2  91/06/07  10:42:17  lwall
  94.    * patch4: new copyright notice
  95.    * patch4: // wouldn't use previous pattern if it started with a null character
  96. ***************
  97. *** 494,502 ****
  98.       case 'b':
  99.           {
  100.           char *savepat = pat;
  101. !         int saveitems = items;
  102.   
  103.           fromstr = NEXTFROM;
  104.           aptr = str_get(fromstr);
  105.           if (pat[-1] == '*')
  106.               len = fromstr->str_cur;
  107. --- 497,506 ----
  108.       case 'b':
  109.           {
  110.           char *savepat = pat;
  111. !         int saveitems;
  112.   
  113.           fromstr = NEXTFROM;
  114. +         saveitems = items;
  115.           aptr = str_get(fromstr);
  116.           if (pat[-1] == '*')
  117.               len = fromstr->str_cur;
  118. ***************
  119. *** 551,559 ****
  120.       case 'h':
  121.           {
  122.           char *savepat = pat;
  123. !         int saveitems = items;
  124.   
  125.           fromstr = NEXTFROM;
  126.           aptr = str_get(fromstr);
  127.           if (pat[-1] == '*')
  128.               len = fromstr->str_cur;
  129. --- 555,564 ----
  130.       case 'h':
  131.           {
  132.           char *savepat = pat;
  133. !         int saveitems;
  134.   
  135.           fromstr = NEXTFROM;
  136. +         saveitems = items;
  137.           aptr = str_get(fromstr);
  138.           if (pat[-1] == '*')
  139.               len = fromstr->str_cur;
  140.  
  141. Index: doio.c
  142. *** doio.c.old    Mon Jun 10 01:33:20 1991
  143. --- doio.c    Mon Jun 10 01:33:26 1991
  144. ***************
  145. *** 1,4 ****
  146. ! /* $RCSfile: doio.c,v $$Revision: 4.0.1.2 $$Date: 91/06/07 10:53:39 $
  147.    *
  148.    *    Copyright (c) 1991, Larry Wall
  149.    *
  150. --- 1,4 ----
  151. ! /* $RCSfile: doio.c,v $$Revision: 4.0.1.3 $$Date: 91/06/10 01:21:19 $
  152.    *
  153.    *    Copyright (c) 1991, Larry Wall
  154.    *
  155. ***************
  156. *** 6,11 ****
  157. --- 6,15 ----
  158.    *    License or the Artistic License, as specified in the README file.
  159.    *
  160.    * $Log:    doio.c,v $
  161. +  * Revision 4.0.1.3  91/06/10  01:21:19  lwall
  162. +  * patch10: read didn't work from character special files open for writing
  163. +  * patch10: close-on-exec wrongly set on system file descriptors
  164. +  * 
  165.    * Revision 4.0.1.2  91/06/07  10:53:39  lwall
  166.    * patch4: new copyright notice
  167.    * patch4: system fd's are now treated specially
  168. ***************
  169. *** 237,243 ****
  170.           (void)fclose(fp);
  171.           goto say_false;
  172.       }
  173. !     if (S_ISSOCK(statbuf.st_mode) || (S_ISCHR(statbuf.st_mode) && writing))
  174.           stio->type = 's';    /* in case a socket was passed in to us */
  175.   #ifdef S_IFMT
  176.       else if (!(statbuf.st_mode & S_IFMT))
  177. --- 241,247 ----
  178.           (void)fclose(fp);
  179.           goto say_false;
  180.       }
  181. !     if (S_ISSOCK(statbuf.st_mode))
  182.           stio->type = 's';    /* in case a socket was passed in to us */
  183.   #ifdef S_IFMT
  184.       else if (!(statbuf.st_mode & S_IFMT))
  185. ***************
  186. *** 244,253 ****
  187.           stio->type = 's';    /* some OS's return 0 on fstat()ed socket */
  188.   #endif
  189.       }
  190. - #if defined(HAS_FCNTL) && defined(F_SETFD)
  191. -     fd = fileno(fp);
  192. -     fcntl(fd,F_SETFD,fd > maxsysfd);
  193. - #endif
  194.       if (saveifp) {        /* must use old fp? */
  195.       fd = fileno(saveifp);
  196.       if (saveofp) {
  197. --- 248,253 ----
  198. ***************
  199. *** 263,278 ****
  200.       }
  201.       fp = saveifp;
  202.       }
  203.       stio->ifp = fp;
  204.       if (writing) {
  205. !     if (stio->type != 's')
  206. !         stio->ofp = fp;
  207. !     else
  208.           if (!(stio->ofp = fdopen(fileno(fp),"w"))) {
  209.           fclose(fp);
  210.           stio->ifp = Nullfp;
  211.           goto say_false;
  212.           }
  213.       }
  214.       return TRUE;
  215.   
  216. --- 263,284 ----
  217.       }
  218.       fp = saveifp;
  219.       }
  220. + #if defined(HAS_FCNTL) && defined(F_SETFD)
  221. +     fd = fileno(fp);
  222. +     fcntl(fd,F_SETFD,fd > maxsysfd);
  223. + #endif
  224.       stio->ifp = fp;
  225.       if (writing) {
  226. !     if (stio->type == 's'
  227. !       || (stio->type == '>' && S_ISCHR(statbuf.st_mode)) ) {
  228.           if (!(stio->ofp = fdopen(fileno(fp),"w"))) {
  229.           fclose(fp);
  230.           stio->ifp = Nullfp;
  231.           goto say_false;
  232.           }
  233. +     }
  234. +     else
  235. +         stio->ofp = fp;
  236.       }
  237.       return TRUE;
  238.   
  239.  
  240. Index: dolist.c
  241. *** dolist.c.old    Mon Jun 10 01:33:39 1991
  242. --- dolist.c    Mon Jun 10 01:33:43 1991
  243. ***************
  244. *** 1,4 ****
  245. ! /* $RCSfile: dolist.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 10:58:28 $
  246.    *
  247.    *    Copyright (c) 1991, Larry Wall
  248.    *
  249. --- 1,4 ----
  250. ! /* $RCSfile: dolist.c,v $$Revision: 4.0.1.2 $$Date: 91/06/10 01:22:15 $
  251.    *
  252.    *    Copyright (c) 1991, Larry Wall
  253.    *
  254. ***************
  255. *** 6,11 ****
  256. --- 6,14 ----
  257.    *    License or the Artistic License, as specified in the README file.
  258.    *
  259.    * $Log:    dolist.c,v $
  260. +  * Revision 4.0.1.2  91/06/10  01:22:15  lwall
  261. +  * patch10: //g only worked first time through
  262. +  * 
  263.    * Revision 4.0.1.1  91/06/07  10:58:28  lwall
  264.    * patch4: new copyright notice
  265.    * patch4: added global modifier for pattern matches
  266. ***************
  267. *** 202,207 ****
  268. --- 205,212 ----
  269.           goto gotcha;
  270.       }
  271.       else {
  272. +         if (global)
  273. +         spat->spat_regexp->startp[0] = Nullch;
  274.           if (gimme == G_ARRAY)
  275.           return sp;
  276.           str_sset(str,&str_no);
  277. ***************
  278. *** 276,281 ****
  279. --- 281,288 ----
  280.   nope:
  281.       spat->spat_regexp->startp[0] = Nullch;
  282.       ++spat->spat_short->str_u.str_useful;
  283. +     if (global)
  284. +     spat->spat_regexp->startp[0] = Nullch;
  285.       if (gimme == G_ARRAY)
  286.       return sp;
  287.       str_sset(str,&str_no);
  288.  
  289. Index: t/op/pat.t
  290. *** t/op/pat.t.old    Mon Jun 10 01:35:45 1991
  291. --- t/op/pat.t    Mon Jun 10 01:35:47 1991
  292. ***************
  293. *** 1,8 ****
  294.   #!./perl
  295.   
  296. ! # $RCSfile: pat.t,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:01:26 $
  297.   
  298. ! print "1..48\n";
  299.   
  300.   $x = "abc\ndef\n";
  301.   
  302. --- 1,8 ----
  303.   #!./perl
  304.   
  305. ! # $RCSfile: pat.t,v $$Revision: 4.0.1.2 $$Date: 91/06/10 01:29:34 $
  306.   
  307. ! print "1..51\n";
  308.   
  309.   $x = "abc\ndef\n";
  310.   
  311. ***************
  312. *** 174,176 ****
  313. --- 174,184 ----
  314.   
  315.   $x = "$t1$t2$t3$t4$t5$t6$t7$t8$t9";
  316.   print $x eq '505550555' ? "ok 48\n" : "not ok 48 $x\n";
  317. + 
  318. + $xyz = 'xyz';
  319. + print "abc" =~ /^abc$|$xyz/ ? "ok 49\n" : "not ok 49\n";
  320. + 
  321. + # perl 4.009 says "unmatched ()"
  322. + eval '"abc" =~ /a(bc$)|$xyz/; $result = "$&:$1"';
  323. + print $@ eq "" ? "ok 50\n" : "not ok 50\n";
  324. + print $result eq "abc:bc" ? "ok 51\n" : "not ok 51\n";
  325.  
  326. Index: perl.c
  327. *** perl.c.old    Mon Jun 10 01:33:57 1991
  328. --- perl.c    Mon Jun 10 01:34:01 1991
  329. ***************
  330. *** 1,4 ****
  331. ! char rcsid[] = "$RCSfile: perl.c,v $$Revision: 4.0.1.3 $$Date: 91/06/07 11:40:18 $\nPatch level: ###\n";
  332.   /*
  333.    *    Copyright (c) 1991, Larry Wall
  334.    *
  335. --- 1,4 ----
  336. ! char rcsid[] = "$RCSfile: perl.c,v $$Revision: 4.0.1.4 $$Date: 91/06/10 01:23:07 $\nPatch level: ###\n";
  337.   /*
  338.    *    Copyright (c) 1991, Larry Wall
  339.    *
  340. ***************
  341. *** 6,11 ****
  342. --- 6,14 ----
  343.    *    License or the Artistic License, as specified in the README file.
  344.    *
  345.    * $Log:    perl.c,v $
  346. +  * Revision 4.0.1.4  91/06/10  01:23:07  lwall
  347. +  * patch10: perl -v printed incorrect copyright notice
  348. +  * 
  349.    * Revision 4.0.1.3  91/06/07  11:40:18  lwall
  350.    * patch4: changed old $^P to $^X
  351.    * 
  352. ***************
  353. *** 1199,1206 ****
  354.   #endif
  355.   #endif
  356.       fputs("\n\
  357. ! Perl may be copied only under the terms of the GNU General Public License,\n\
  358. ! a copy of which can be found with the Perl 4.0 distribution kit.\n",stdout);
  359.   #ifdef MSDOS
  360.           usage(origargv[0]);
  361.   #endif
  362. --- 1202,1209 ----
  363.   #endif
  364.   #endif
  365.       fputs("\n\
  366. ! Perl may be copied only under the terms of either the Artistic License or the\n\
  367. ! GNU General Public License, which may be found in the Perl 4.0 source kit.\n",stdout);
  368.   #ifdef MSDOS
  369.           usage(origargv[0]);
  370.   #endif
  371.  
  372. Index: perl.h
  373. *** perl.h.old    Mon Jun 10 01:34:12 1991
  374. --- perl.h    Mon Jun 10 01:34:14 1991
  375. ***************
  376. *** 1,4 ****
  377. ! /* $RCSfile: perl.h,v $$Revision: 4.0.1.2 $$Date: 91/06/07 11:28:33 $
  378.    *
  379.    *    Copyright (c) 1991, Larry Wall
  380.    *
  381. --- 1,4 ----
  382. ! /* $RCSfile: perl.h,v $$Revision: 4.0.1.3 $$Date: 91/06/10 01:25:10 $
  383.    *
  384.    *    Copyright (c) 1991, Larry Wall
  385.    *
  386. ***************
  387. *** 6,11 ****
  388. --- 6,14 ----
  389.    *    License or the Artistic License, as specified in the README file.
  390.    *
  391.    * $Log:    perl.h,v $
  392. +  * Revision 4.0.1.3  91/06/10  01:25:10  lwall
  393. +  * patch10: certain pattern optimizations were botched
  394. +  * 
  395.    * Revision 4.0.1.2  91/06/07  11:28:33  lwall
  396.    * patch4: new copyright notice
  397.    * patch4: made some allowances for "semi-standard" C
  398. ***************
  399. *** 749,754 ****
  400. --- 752,758 ----
  401.   STR *interp();
  402.   void free_arg();
  403.   STIO *stio_new();
  404. + void hoistmust();
  405.   
  406.   EXT struct stat statbuf;
  407.   EXT struct stat statcache;
  408.  
  409. Index: perl.man
  410. *** perl.man.old    Mon Jun 10 01:34:47 1991
  411. --- perl.man    Mon Jun 10 01:35:01 1991
  412. ***************
  413. *** 1,7 ****
  414.   .rn '' }`
  415. ! ''' $RCSfile: perl.man,v $$Revision: 4.0.1.2 $$Date: 91/06/07 11:41:23 $
  416.   ''' 
  417.   ''' $Log:    perl.man,v $
  418.   ''' Revision 4.0.1.2  91/06/07  11:41:23  lwall
  419.   ''' patch4: added global modifier for pattern matches
  420.   ''' patch4: default top-of-form format is now FILEHANDLE_TOP
  421. --- 1,10 ----
  422.   .rn '' }`
  423. ! ''' $RCSfile: perl.man,v $$Revision: 4.0.1.3 $$Date: 91/06/10 01:26:02 $
  424.   ''' 
  425.   ''' $Log:    perl.man,v $
  426. + ''' Revision 4.0.1.3  91/06/10  01:26:02  lwall
  427. + ''' patch10: documented some newer features in addenda
  428. + ''' 
  429.   ''' Revision 4.0.1.2  91/06/07  11:41:23  lwall
  430.   ''' patch4: added global modifier for pattern matches
  431.   ''' patch4: default top-of-form format is now FILEHANDLE_TOP
  432. ***************
  433. *** 5802,5807 ****
  434. --- 5805,5815 ----
  435.   The
  436.   .B $/
  437.   variable may now be set to a multi-character delimiter.
  438. + .PP
  439. + There is now a g modifier on ordinary pattern matching that causes it
  440. + to iterate through a string finding multiple matches.
  441. + .PP
  442. + All of the $^X variables are new except for $^T.
  443.   .SH BUGS
  444.   .PP
  445.   .I Perl
  446.  
  447. Index: t/op/re_tests
  448. *** t/op/re_tests.old    Mon Jun 10 01:35:52 1991
  449. --- t/op/re_tests    Mon Jun 10 01:35:54 1991
  450. ***************
  451. *** 135,137 ****
  452. --- 135,274 ----
  453.   a[-]?c    ac    y    $&    ac
  454.   (abc)\1    abcabc    y    $1    abc
  455.   ([a-c]*)\1    abcabc    y    $1    abc
  456. + 'abc'i    ABC    y    $&    ABC
  457. + 'abc'i    XBC    n    -    -
  458. + 'abc'i    AXC    n    -    -
  459. + 'abc'i    ABX    n    -    -
  460. + 'abc'i    XABCY    y    $&    ABC
  461. + 'abc'i    ABABC    y    $&    ABC
  462. + 'ab*c'i    ABC    y    $&    ABC
  463. + 'ab*bc'i    ABC    y    $&    ABC
  464. + 'ab*bc'i    ABBC    y    $&    ABBC
  465. + 'ab*bc'i    ABBBBC    y    $&    ABBBBC
  466. + 'ab{0,}bc'i    ABBBBC    y    $&    ABBBBC
  467. + 'ab+bc'i    ABBC    y    $&    ABBC
  468. + 'ab+bc'i    ABC    n    -    -
  469. + 'ab+bc'i    ABQ    n    -    -
  470. + 'ab{1,}bc'i    ABQ    n    -    -
  471. + 'ab+bc'i    ABBBBC    y    $&    ABBBBC
  472. + 'ab{1,}bc'i    ABBBBC    y    $&    ABBBBC
  473. + 'ab{1,3}bc'i    ABBBBC    y    $&    ABBBBC
  474. + 'ab{3,4}bc'i    ABBBBC    y    $&    ABBBBC
  475. + 'ab{4,5}bc'i    ABBBBC    n    -    -
  476. + 'ab?bc'i    ABBC    y    $&    ABBC
  477. + 'ab?bc'i    ABC    y    $&    ABC
  478. + 'ab{0,1}bc'i    ABC    y    $&    ABC
  479. + 'ab?bc'i    ABBBBC    n    -    -
  480. + 'ab?c'i    ABC    y    $&    ABC
  481. + 'ab{0,1}c'i    ABC    y    $&    ABC
  482. + '^abc$'i    ABC    y    $&    ABC
  483. + '^abc$'i    ABCC    n    -    -
  484. + '^abc'i    ABCC    y    $&    ABC
  485. + '^abc$'i    AABC    n    -    -
  486. + 'abc$'i    AABC    y    $&    ABC
  487. + '^'i    ABC    y    $&    
  488. + '$'i    ABC    y    $&    
  489. + 'a.c'i    ABC    y    $&    ABC
  490. + 'a.c'i    AXC    y    $&    AXC
  491. + 'a.*c'i    AXYZC    y    $&    AXYZC
  492. + 'a.*c'i    AXYZD    n    -    -
  493. + 'a[bc]d'i    ABC    n    -    -
  494. + 'a[bc]d'i    ABD    y    $&    ABD
  495. + 'a[b-d]e'i    ABD    n    -    -
  496. + 'a[b-d]e'i    ACE    y    $&    ACE
  497. + 'a[b-d]'i    AAC    y    $&    AC
  498. + 'a[-b]'i    A-    y    $&    A-
  499. + 'a[b-]'i    A-    y    $&    A-
  500. + 'a[b-a]'i    -    c    -    -
  501. + 'a[]b'i    -    c    -    -
  502. + 'a['i    -    c    -    -
  503. + 'a]'i    A]    y    $&    A]
  504. + 'a[]]b'i    A]B    y    $&    A]B
  505. + 'a[^bc]d'i    AED    y    $&    AED
  506. + 'a[^bc]d'i    ABD    n    -    -
  507. + 'a[^-b]c'i    ADC    y    $&    ADC
  508. + 'a[^-b]c'i    A-C    n    -    -
  509. + 'a[^]b]c'i    A]C    n    -    -
  510. + 'a[^]b]c'i    ADC    y    $&    ADC
  511. + 'ab|cd'i    ABC    y    $&    AB
  512. + 'ab|cd'i    ABCD    y    $&    AB
  513. + '()ef'i    DEF    y    $&-$1    EF-
  514. + '()*'i    -    c    -    -
  515. + '*a'i    -    c    -    -
  516. + '^*'i    -    c    -    -
  517. + '$*'i    -    c    -    -
  518. + '(*)b'i    -    c    -    -
  519. + '$b'i    B    n    -    -
  520. + 'a\'i    -    c    -    -
  521. + 'a\(b'i    A(B    y    $&-$1    A(B-
  522. + 'a\(*b'i    AB    y    $&    AB
  523. + 'a\(*b'i    A((B    y    $&    A((B
  524. + 'a\\b'i    A\B    y    $&    A\B
  525. + 'abc)'i    -    c    -    -
  526. + '(abc'i    -    c    -    -
  527. + '((a))'i    ABC    y    $&-$1-$2    A-A-A
  528. + '(a)b(c)'i    ABC    y    $&-$1-$2    ABC-A-C
  529. + 'a+b+c'i    AABBABC    y    $&    ABC
  530. + 'a{1,}b{1,}c'i    AABBABC    y    $&    ABC
  531. + 'a**'i    -    c    -    -
  532. + 'a*?'i    -    c    -    -
  533. + '(a*)*'i    -    c    -    -
  534. + '(a*)+'i    -    c    -    -
  535. + '(a|)*'i    -    c    -    -
  536. + '(a*|b)*'i    -    c    -    -
  537. + '(a+|b)*'i    AB    y    $&-$1    AB-B
  538. + '(a+|b){0,}'i    AB    y    $&-$1    AB-B
  539. + '(a+|b)+'i    AB    y    $&-$1    AB-B
  540. + '(a+|b){1,}'i    AB    y    $&-$1    AB-B
  541. + '(a+|b)?'i    AB    y    $&-$1    A-A
  542. + '(a+|b){0,1}'i    AB    y    $&-$1    A-A
  543. + '(^)*'i    -    c    -    -
  544. + '(ab|)*'i    -    c    -    -
  545. + ')('i    -    c    -    -
  546. + '[^ab]*'i    CDE    y    $&    CDE
  547. + 'abc'i        n    -    -
  548. + 'a*'i        y    $&    
  549. + '([abc])*d'i    ABBBCD    y    $&-$1    ABBBCD-C
  550. + '([abc])*bcd'i    ABCD    y    $&-$1    ABCD-A
  551. + 'a|b|c|d|e'i    E    y    $&    E
  552. + '(a|b|c|d|e)f'i    EF    y    $&-$1    EF-E
  553. + '((a*|b))*'i    -    c    -    -
  554. + 'abcd*efg'i    ABCDEFG    y    $&    ABCDEFG
  555. + 'ab*'i    XABYABBBZ    y    $&    AB
  556. + 'ab*'i    XAYABBBZ    y    $&    A
  557. + '(ab|cd)e'i    ABCDE    y    $&-$1    CDE-CD
  558. + '[abhgefdc]ij'i    HIJ    y    $&    HIJ
  559. + '^(ab|cd)e'i    ABCDE    n    x$1y    XY
  560. + '(abc|)ef'i    ABCDEF    y    $&-$1    EF-
  561. + '(a|b)c*d'i    ABCD    y    $&-$1    BCD-B
  562. + '(ab|ab*)bc'i    ABC    y    $&-$1    ABC-A
  563. + 'a([bc]*)c*'i    ABC    y    $&-$1    ABC-BC
  564. + 'a([bc]*)(c*d)'i    ABCD    y    $&-$1-$2    ABCD-BC-D
  565. + 'a([bc]+)(c*d)'i    ABCD    y    $&-$1-$2    ABCD-BC-D
  566. + 'a([bc]*)(c+d)'i    ABCD    y    $&-$1-$2    ABCD-B-CD
  567. + 'a[bcd]*dcdcde'i    ADCDCDE    y    $&    ADCDCDE
  568. + 'a[bcd]+dcdcde'i    ADCDCDE    n    -    -
  569. + '(ab|a)b*c'i    ABC    y    $&-$1    ABC-AB
  570. + '((a)(b)c)(d)'i    ABCD    y    $1-$2-$3-$4    ABC-A-B-D
  571. + '[a-zA-Z_][a-zA-Z0-9_]*'i    ALPHA    y    $&    ALPHA
  572. + '^a(bc+|b[eh])g|.h$'i    ABH    y    $&-$1    BH-
  573. + '(bc+d$|ef*g.|h?i(j|k))'i    EFFGZ    y    $&-$1-$2    EFFGZ-EFFGZ-
  574. + '(bc+d$|ef*g.|h?i(j|k))'i    IJ    y    $&-$1-$2    IJ-IJ-J
  575. + '(bc+d$|ef*g.|h?i(j|k))'i    EFFG    n    -    -
  576. + '(bc+d$|ef*g.|h?i(j|k))'i    BCDD    n    -    -
  577. + '(bc+d$|ef*g.|h?i(j|k))'i    REFFGZ    y    $&-$1-$2    EFFGZ-EFFGZ-
  578. + '((((((((((a))))))))))'i    A    y    $10    A
  579. + '((((((((((a))))))))))\10'i    AA    y    $&    AA
  580. + '((((((((((a))))))))))\41'i    AA    n    -    -
  581. + '((((((((((a))))))))))\41'i    A!    y    $&    A!
  582. + '(((((((((a)))))))))'i    A    y    $&    A
  583. + 'multiple words of text'i    UH-UH    n    -    -
  584. + 'multiple words'i    MULTIPLE WORDS, YEAH    y    $&    MULTIPLE WORDS
  585. + '(.*)c(.*)'i    ABCDE    y    $&-$1-$2    ABCDE-AB-DE
  586. + '\((.*), (.*)\)'i    (A, B)    y    ($2, $1)    (B, A)
  587. + '[k]'i    AB    n    -    -
  588. + 'abcd'i    ABCD    y    $&-\$&-\\$&    ABCD-$&-\ABCD
  589. + 'a(bc)d'i    ABCD    y    $1-\$1-\\$1    BC-$1-\BC
  590. + 'a[-]?c'i    AC    y    $&    AC
  591. + '(abc)\1'i    ABCABC    y    $1    ABC
  592. + '([a-c]*)\1'i    ABCABC    y    $1    ABC
  593.  
  594. Index: t/op/regexp.t
  595. Prereq: 4.0
  596. *** t/op/regexp.t.old    Mon Jun 10 01:36:00 1991
  597. --- t/op/regexp.t    Mon Jun 10 01:36:01 1991
  598. ***************
  599. *** 1,6 ****
  600.   #!./perl
  601.   
  602. ! # $Header: regexp.t,v 4.0 91/03/20 01:54:22 lwall Locked $
  603.   
  604.   open(TESTS,'op/re_tests') || open(TESTS,'t/op/re_tests')
  605.       || die "Can't open re_tests";
  606. --- 1,6 ----
  607.   #!./perl
  608.   
  609. ! # $RCSfile: regexp.t,v $$Revision: 4.0.1.1 $$Date: 91/06/10 01:30:29 $
  610.   
  611.   open(TESTS,'op/re_tests') || open(TESTS,'t/op/re_tests')
  612.       || die "Can't open re_tests";
  613. ***************
  614. *** 11,20 ****
  615.   print "1..$numtests\n";
  616.   open(TESTS,'op/re_tests') || open(TESTS,'t/op/re_tests')
  617.       || die "Can't open re_tests";
  618.   while (<TESTS>) {
  619.       ($pat, $subject, $result, $repl, $expect) = split(/[\t\n]/,$_);
  620.       $input = join(':',$pat,$subject,$result,$repl,$expect);
  621. !     eval "\$match = (\$subject =~ \$pat); \$got = \"$repl\";";
  622.       if ($result eq 'c') {
  623.       if ($@ ne '') {print "ok $.\n";} else {print "not ok $.\n";}
  624.       }
  625. --- 11,22 ----
  626.   print "1..$numtests\n";
  627.   open(TESTS,'op/re_tests') || open(TESTS,'t/op/re_tests')
  628.       || die "Can't open re_tests";
  629. + $| = 1;
  630.   while (<TESTS>) {
  631.       ($pat, $subject, $result, $repl, $expect) = split(/[\t\n]/,$_);
  632.       $input = join(':',$pat,$subject,$result,$repl,$expect);
  633. !     $pat = "'$pat'" unless $pat =~ /^'/;
  634. !     eval "\$match = (\$subject =~ m$pat); \$got = \"$repl\";";
  635.       if ($result eq 'c') {
  636.       if ($@ ne '') {print "ok $.\n";} else {print "not ok $.\n";}
  637.       }
  638.  
  639. Index: str.c
  640. *** str.c.old    Mon Jun 10 01:35:33 1991
  641. --- str.c    Mon Jun 10 01:35:37 1991
  642. ***************
  643. *** 1,4 ****
  644. ! /* $RCSfile: str.c,v $$Revision: 4.0.1.2 $$Date: 91/06/07 11:58:13 $
  645.    *
  646.    *    Copyright (c) 1991, Larry Wall
  647.    *
  648. --- 1,4 ----
  649. ! /* $RCSfile: str.c,v $$Revision: 4.0.1.3 $$Date: 91/06/10 01:27:54 $
  650.    *
  651.    *    Copyright (c) 1991, Larry Wall
  652.    *
  653. ***************
  654. *** 6,11 ****
  655. --- 6,14 ----
  656.    *    License or the Artistic License, as specified in the README file.
  657.    *
  658.    * $Log:    str.c,v $
  659. +  * Revision 4.0.1.3  91/06/10  01:27:54  lwall
  660. +  * patch10: $) and $| incorrectly handled in run-time patterns
  661. +  * 
  662.    * Revision 4.0.1.2  91/06/07  11:58:13  lwall
  663.    * patch4: new copyright notice
  664.    * patch4: taint check on undefined string could cause core dump
  665. ***************
  666. *** 939,946 ****
  667.           ++s;
  668.           t = s;
  669.       }
  670. !     else if ((*s == '@' || (*s == '$' && !index(nointrp,s[1]))) &&
  671. !       s+1 < send) {
  672.           str_ncat(str,t,s-t);
  673.           t = s;
  674.           if (*s == '$' && s[1] == '#' && (isalpha(s[2]) || s[2] == '_'))
  675. --- 942,955 ----
  676.           ++s;
  677.           t = s;
  678.       }
  679. !     else if (*s == '$' && s+1 < send && *nointrp && index(nointrp,s[1])) {
  680. !         str_ncat(str, t, s - t);
  681. !         str_ncat(str, "$b", 2);
  682. !         str_ncat(str, s, 2);
  683. !         s += 2;
  684. !         t = s;
  685. !     }
  686. !     else if ((*s == '@' || *s == '$') && s+1 < send) {
  687.           str_ncat(str,t,s-t);
  688.           t = s;
  689.           if (*s == '$' && s[1] == '#' && (isalpha(s[2]) || s[2] == '_'))
  690. ***************
  691. *** 1171,1176 ****
  692. --- 1180,1188 ----
  693.           if (s-t > 0)
  694.           str_ncat(str,t,s-t);
  695.           switch(*++s) {
  696. +         default:
  697. +         fatal("panic: unknown interp cookie\n");
  698. +         break;
  699.           case 'a':
  700.           str_scat(str,*++elem);
  701.           break;
  702.  
  703. Index: toke.c
  704. *** toke.c.old    Mon Jun 10 01:36:15 1991
  705. --- toke.c    Mon Jun 10 01:36:21 1991
  706. ***************
  707. *** 1,4 ****
  708. ! /* $RCSfile: toke.c,v $$Revision: 4.0.1.2 $$Date: 91/06/07 12:05:56 $
  709.    *
  710.    *    Copyright (c) 1991, Larry Wall
  711.    *
  712. --- 1,4 ----
  713. ! /* $RCSfile: toke.c,v $$Revision: 4.0.1.3 $$Date: 91/06/10 01:32:26 $
  714.    *
  715.    *    Copyright (c) 1991, Larry Wall
  716.    *
  717. ***************
  718. *** 6,11 ****
  719. --- 6,15 ----
  720.    *    License or the Artistic License, as specified in the README file.
  721.    *
  722.    * $Log:    toke.c,v $
  723. +  * Revision 4.0.1.3  91/06/10  01:32:26  lwall
  724. +  * patch10: m'$foo' now treats string as single quoted
  725. +  * patch10: certain pattern optimizations were botched
  726. +  * 
  727.    * Revision 4.0.1.2  91/06/07  12:05:56  lwall
  728.    * patch4: new copyright notice
  729.    * patch4: debugger lost track of lines in eval
  730. ***************
  731. *** 1514,1519 ****
  732. --- 1518,1524 ----
  733.       int len;
  734.       SPAT savespat;
  735.       STR *str = Str_new(93,0);
  736. +     char delim;
  737.   
  738.       Newz(801,spat,1,SPAT);
  739.       spat->spat_next = curstash->tbl_spatroot;    /* link into spat list */
  740. ***************
  741. *** 1538,1544 ****
  742.       yylval.arg = Nullarg;
  743.       return s;
  744.       }
  745. !     s++;
  746.       while (*s == 'i' || *s == 'o' || *s == 'g') {
  747.       if (*s == 'i') {
  748.           s++;
  749. --- 1543,1549 ----
  750.       yylval.arg = Nullarg;
  751.       return s;
  752.       }
  753. !     delim = *s++;
  754.       while (*s == 'i' || *s == 'o' || *s == 'g') {
  755.       if (*s == 'i') {
  756.           s++;
  757. ***************
  758. *** 1556,1562 ****
  759.       }
  760.       len = str->str_cur;
  761.       e = str->str_ptr + len;
  762. !     for (d = str->str_ptr; d < e; d++) {
  763.       if (*d == '\\')
  764.           d++;
  765.       else if ((*d == '$' && d[1] && d[1] != '|' && d[1] != ')') ||
  766. --- 1561,1571 ----
  767.       }
  768.       len = str->str_cur;
  769.       e = str->str_ptr + len;
  770. !     if (delim == '\'')
  771. !     d = e;
  772. !     else
  773. !     d = str->str_ptr;
  774. !     for (; d < e; d++) {
  775.       if (*d == '\\')
  776.           d++;
  777.       else if ((*d == '$' && d[1] && d[1] != '|' && d[1] != ')') ||
  778. ***************
  779. *** 1738,1743 ****
  780. --- 1747,1753 ----
  781.       return s;
  782.   }
  783.   
  784. + void
  785.   hoistmust(spat)
  786.   register SPAT *spat;
  787.   {
  788. ***************
  789. *** 1744,1752 ****
  790.       if (!spat->spat_short && spat->spat_regexp->regstart &&
  791.       (!spat->spat_regexp->regmust || spat->spat_regexp->reganch & ROPT_ANCH)
  792.          ) {
  793. -     spat->spat_short = spat->spat_regexp->regstart;
  794.       if (!(spat->spat_regexp->reganch & ROPT_ANCH))
  795.           spat->spat_flags |= SPAT_SCANFIRST;
  796.       }
  797.       else if (spat->spat_regexp->regmust) {/* is there a better short-circuit? */
  798.       if (spat->spat_short &&
  799. --- 1754,1764 ----
  800.       if (!spat->spat_short && spat->spat_regexp->regstart &&
  801.       (!spat->spat_regexp->regmust || spat->spat_regexp->reganch & ROPT_ANCH)
  802.          ) {
  803.       if (!(spat->spat_regexp->reganch & ROPT_ANCH))
  804.           spat->spat_flags |= SPAT_SCANFIRST;
  805. +     else if (spat->spat_flags & SPAT_FOLD)
  806. +         return;
  807. +     spat->spat_short = str_smake(spat->spat_regexp->regstart);
  808.       }
  809.       else if (spat->spat_regexp->regmust) {/* is there a better short-circuit? */
  810.       if (spat->spat_short &&
  811.  
  812. #### End of Patch 10 ####
  813. exit 0 # Just in case...
  814. -- 
  815. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  816. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  817. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  818. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  819.