compilers/linux86-0.16.17/libc/regexp/patch.4

   1 Path: uunet!rs
   2 From: rs@uunet.UU.NET (Rich Salz)
   3 Newsgroups: comp.sources.unix
   4 Subject: v10i097:  Bug-fix for regexp() library
   5 Message-ID: <789@uunet.UU.NET>
   6 Date: 7 Aug 87 11:20:15 GMT
   7 Organization: UUNET Communications Services, Arlington, VA
   8 Lines: 46
   9 Approved: rs@uunet.UU.NET
  10
  11 Submitted-by: seismo!ai.toronto.edu!utzoo!henry
  12 Posting-number: Volume 10, Issue 97
  13 Archive-name: regexp.pch
  14
  15 FURTHER NOTE by Rich $alz on Tue Apr 26 20:02:59 EDT 1988:
  16         This is a patch for Henry's regexp posting that appeared in
  17         volume 3 (first patch was volume3/regexp2; the naming
  18         convention used by my predecessor).  There is another
  19         regexp library in volume 7 -- they're unreleated.
  20
  21         The "fastgrep" posting appeards in volume 9.  It also includes
  22         Henry's volume3 posting and both sets of patches.
  23
  24 [  Regexp was published by itself in volume 6, and also as part of the
  25    "fastest grep around" earlier in this volume.  --r$  ]
  26
  27 Jeff Mc Carrell at Berkeley has found (gasp! choke! the horror! the horror!)
  28 another bug in my regexp functions.  One thing my test set did not include
  29 was very large regular expressions.  The bug is in the NEXT macro, which
  30 digs out the offset to the next node of the regexp:  a parenthesization
  31 botch makes trouble if the offset is ever larger than 255.  How humiliating.
  32 Here is the fix to regexp.c:
  33
  34 116c116
  35 < #define       NEXT(p) (((*((p)+1)&0377)<<8) + *((p)+2)&0377)
  36 ---
  37 > #define       NEXT(p) (((*((p)+1)&0377)<<8) + (*((p)+2)&0377))
  38
  39 and here are some more lines for the "tests" file:
  40
  41 [ -~]*  abc     y       &       abc
  42 [ -~ -~]*       abc     y       &       abc
  43 [ -~ -~ -~]*    abc     y       &       abc
  44 [ -~ -~ -~ -~]* abc     y       &       abc
  45 [ -~ -~ -~ -~ -~]*      abc     y       &       abc
  46 [ -~ -~ -~ -~ -~ -~]*   abc     y       &       abc
  47 [ -~ -~ -~ -~ -~ -~ -~]*        abc     y       &       abc
  48
  49
  50 Just to let people know:  there is some prospect of me coming out with
  51 a second edition of my regexp stuff, including a number of improvements
  52 that various people have suggested/contributed.  However, it will not be
  53 soon, because I'm very busy right now.  I can't spare the time to sort
  54 it all out, decide what belongs and what doesn't, write the missing bits
  55 of code, and integrate it all.  Sometime later this year, maybe.
  56
  57                                 Henry Spencer @ U of Toronto Zoology
  58                                 {allegra,ihnp4,decvax,pyramid}!utzoo!henry
  59
  60
  61 --
  62
  63 Rich $alz                       "Anger is an energy"
  64 Cronus Project, BBN Labs        rsalz@bbn.com
  65 Moderator, comp.sources.unix    sources@uunet.uu.net