home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / portfoli / grep / grep.c next >
Encoding:
Text File  |  1991-08-21  |  16.7 KB  |  466 lines
  1. /*
  2.  *
  3.  *
  4.  * The  information  in  this  document  is  subject  to  change
  5.  * without  notice  and  should not be construed as a commitment
  6.  * by Digital Equipment Corporation or by DECUS.
  7.  *
  8.  * Neither Digital Equipment Corporation, DECUS, nor the authors
  9.  * assume any responsibility for the use or reliability of  this
  10.  * document or the described software.
  11.  *
  12.  *      Copyright (C) 1980, DECUS
  13.  *
  14.  *
  15.  * General permission to copy or modify, but not for profit,  is
  16.  * hereby  granted,  provided that the above copyright notice is
  17.  * included and reference made to  the  fact  that  reproduction
  18.  * privileges were granted by DECUS≡pנij≡pנijijppנ≡pכ⇩î⇧Ç    êOכä⇧ëé@âכ≡pנ≡pij@≡pנijנê⇦ê◆ij≡pנij≡pנijנäÇäOÇנüâêOÖê ⇦Oî◆é⇧ê⇦נÇ⇦נÇנÇÇ⇦@≡pנijנ£Çê⇦üê    נêÇ⇦נ£ÖäOî◆é⇧ê⇦נבÇëê⇦נ£◆ij⓪@CואAנגוij⓪ÄijCגAנîéO£⇨äé⇦OÉ✓⇦Çij≡pנij≡pנijנ£Çê⇦üê    נüÇOÆÉOç£OÇ⇩⇧âנ£②@Cijנ£O£◆é⇧ê⇦נÉÇêOהBCגOîéOÖÄé    נÉijנä⇩⇧â≡pנij≡pנijנÉנÇÇ⇦Aנëê✓éêOÄ⇦@≡pנij≡pנijננננננê⇦ê◆נijij@Oכחëé⇦@Ç üÇ✓⇦ê◆כנננננבÇÄ⇧éêBppנijננננננê⇦ê◆נijij@Oכחëé⇦@Ç üÇ✓⇦ê◆נêrep"     (Decus)
  19.  *
  20.  * See below for more information.
  21.  *
  22.  */
  23.  
  24.  
  25. char    *documentation[] = {
  26. "grep searches a file for a given pattern.  Execute by",
  27. "   grep [flags] regular_expression file_list",
  28. "",
  29. "Flags are singleî⇨Ä⇦Ä ⇧ê⇦äP892õØØØ2Ø⓪1<É③ûô¥①⑥╱à①⓪⓪⓪⑥õÉ⓪⓪⓪⓪⓪'Ã6<É0É1ôÃ:⓪7ø⓪6ã´1œ4Ã3É64Ã2¨É4¨É894Ã:2Ø①⑥╱à①⓪⓪⓪⑥ø⓪⓪⓪⓪⓪⓪+אA@τגAג'ijG⇦'ג@⇩gij◆ה⇧IJD'ijIJD⇩'א⇧ה⇧ατא⇦⑨H⑧Ö[§זï⇨Bêê✓✓♪[ê✓✓✓✓✓①XXם✓ə[ÖHə\זÖXךYY⑨Y✓⑧ßHə]זə[ÖH¥[XÖ\êï⇨Bêê✓✓♪]ê✓✓✓✓✓③ף¢HÜ[¥✓¢ףï[X]⑧םə[Öזə[Ö\זï⇨Bêêï⇨Bêòə⑨H⑨Ü[⑨Wףə\§✓⑥⇨ו╱④⇨⇧ã⇦Φϕ³œ╱Φ⇧¯½¯④⇨u⌠¯❎⇨í❎⇨
  30. ijuקδIJו╱⑥⇨í❎⇨ï⑥⇨PS╱WîזÄij™⇩⇧ו╱❎⇨⇧Φ¥¯u⑨_◆[Xú❎⇨ë⑥⇨®⇩⇧¨⇧≤ºt③Õ⇦Çב_◆[ë⑥⇨[ë❎⇨♪ijבí◆⇨ï⑥    ⇨❎⇧âפú◆⇨ë⑥    ⇨¯╱⑥⇨í❎⇨-⇧ú❎⇨uÿבΦz²í❎⇨=u⇦ΦWבΦδã0Φ¯Φ/t⇧ב¯╱⑥⇨ו╱④⇨⇧ã⇦Φ9³&ïGGœ❎Φδ¯④⇨u≡¯❎⇨í❎⇨
  31. ijuסδ´Φ⌠²ãtΦ④³œ╱Φ(³¿⇧u@
  32. ijy⇦¿✓tτ3ijבו╱⓪⇨ו╱②⇨זΦכ²ãtΦ∮²œ╱Φ³¯⓪⇨u╱¯②⇨t♪
  33. ijxπ¿⇧u✓3ijב¨ Çδ◆¿ t✓¨
  34. ÇïIJ♪ijב¿@u❎¨⇩Çδ≥
  35. ijy"ו╱⓪⇨Φä²ãtΦñ²œ╱ΦÕ²¯⓪⇨â>⓪⇨tג
  36. ijxΣã④Φﲜ╱Φƒ²¿@t❎¨⇦Çδ¨¿⇩t❎¨╱Çδ㨠ǿ⓪t⌐¨✓ÇδñPã$δ⑦Pã4δ②PãDδPãTδ✓Pãdδ⇨PãtΦI²Y2ϕœ❎èד$≡
  37. ג∈ΦMⁿçצã⇩∈ΦEⁿ2ij∈Φ?ⁿçצèדסαסαסαסα
  38. ג∈Φ-ⁿçצã⇩∈Φ%ⁿ2ij∈ΦⁿçצèIJ$≡
  39. ג∈Φ③ⁿçצã⇩∈Φ♪ⁿ2ij∈Φ❎ⁿçצèIJסαסαסαסα
  40. ג∈Φ≤√çצã⇩∈Φδ√2ij∈Φσ√çצèג$ ∈בPí⑥⇨ג>④&ëE②X♪ijב&èE⇧ó⇩⇨:╱
  41. s†2Σעα⇨ןï/3ijבÕ⇧Ç
  42. ijבîזÄijÄן™⇩⇧ו╱❎⇨⇧ïF①ú◆⇨ïF③ú    ⇨ב&ïE②ú❎⇨3פ&ïE④è⇦÷IJ⇩t=¯¯u✓&ïEə&ïU⇨F①③V③ú◆⇨ë⑥    ⇨ב⇩⇦⇧⇩⇩°✓①⇦⇩⇦⇧⇩⇩°✓①⇦⇩⇦⇧⇩⇩°✓①⇦⇩⇦⇧⇩⇩°✓①⇦⇩⇦⇧⇩⇩°✓①⇦⇩⇦⇧⇩⇩°✓①⇦⇩⇦⇧⇩⇩°✓①⇦⇩⇦⇧⇩⇩°✓①⇦⇩⇦⇧⇩⇩°✓①⇦⇩⇦⇧⇩⇩°✓①⇦⇩⇦⇧⇩⇩°✓①⇦⇩⇦⇧⇩⇩°✓①⇦⇩⇦⇧⇩⇩°✓①⇦⇩⇦⇧⇩⇩°✓①⇦⇩⇦⇧⇩⇩°✓①⇦⇩⇦⇧⇩⇩°✓①⇦⇩⇦⇧⇩⇩°✓①⇦g⇩╱Wœ    ´å①ל!Õ0ל!<⇩t
  43. ´④œ    ל!Θª⇩ה╱⑨ ג>④ה╱∞
  44. ⇨&דu②3ח3פ¼</t
  45. <✓t≈< roδ±¼<✓t√< rdt⌡$∞<Tt5<Puδ¼<✓t√< rO</t∧<0r∩<9v$∞<Arσ<Fwβ,7δ⇩,0עΓעΓעΓעΓ
  46. סδנ¼<✓t√< r</t¡<0r∩<9wδ,02Σïךעβעβ⇨יעβ⇨זδךîזÄןÄijâ·t9ü·x⇩t#ü·x⇨tü·¶⇨t⑦ü·xÇt①ïא†å②Φë❎œ    ´å②ל!δ⓪ü·x⇨t
  47. Φ≥°ë⑥əΦת°â∙t⑥ïIJ=❎r=τ⇨w
  48. 3פ¨❎≈±ó⇧⇧3ijΦ╱∙ו╱④⇨B²ï④⇨2ΣΦø√2ΣΦ)∙;╱④⇨t⑨†H③Φ0❎†C③í④⇨Φ'❎´,③œ    ל!Θm⇧í④⇨-◆ú④⇨uזΦ©⇦Φא·t⇨ΘW⇧3ijΦd√ãÉΦd√Φã·u∈ã④Φ⌐°œ╱Φ©°<⇧t!´O③<⇩t①´n③<⇨t
  49. ´É③<❎t⇨´À③Pœ    ל!XΘ)⇧ã∮Φ+√Φw·t⇨Θ ⇧™⇩⇧ã⇦Φj°ו╱④⇨⇧œ╱Φx°½¯④⇨u⌠®⇩⇧¡=Zt+=\⇩t&=Z⇩t!=Z
  50. t⑥ï\◆♪ףt⑤†ÿ④Φ}⇦´ç④œ    ל!δ╱ה╱¼④⇧Éú②¡úα
  51. †⓪②¨Φ⇨Φ!⇦¡¡úל
  52. ¨
  53. †╱②Φ③⇦¡¡¡úי
  54. ≈&ל
  55. ≈&α
  56. ♪iju⇨ΘïP♪פt⇨Õ¯¯úה
  57. X¨✓≈±¨d†ך①ΦΣ⇨íי
  58. †∙①¨
  59. Φן⇨íə†≤①Φ ⇦á⇧⇧2Σïןעαעα⇨ב†<②¨Φ⇨Φ¨⇨´ך①œ    ל!á⇧⇧
  60. ijtəΦ7≈tה╱⇧⇧´②œ    ל!δ◆´<②œ    ל!Φ√⇩Ç>ז②ar♪á¼④4⇧ó¼④ΦΘ⇩´ה②œ    ל!δ2íə†`②Φº⇨œ    ´[②ל!Ç>⑨ u✓ה╱⑨⇧ΘÉ⇩_◆3ij&êE&ëE&îM⓪3ijבΦ⇨3ijΦן∙ã⓪Φן∙Φ$∙u8©«✓îזÄijÄן2ijó⇩⇨ó
  61. 3ijú¿④ú¬④ה╱⇨⇨™⇩⇧Õ⇧ú❎⇨í¿④ú◆⇨í¬④ú    ⇨Φש≈t⇩δéÇ>⇩⇨u~®⇩⇧ü¶ã⇧ל½us3פïäØ⇧≈ñœ⇧≈ñÀ⇧♪אta2ףïäØ⇧;╱ל
  62. t❎úל
  63. ø⇧ïäœ⇧;╱י
  64. t❎úי
  65. ø⇧ïäÀ⇧;╱α
  66. t❎úα
  67. ø⇧
  68. ףt.Φl⇩íα
  69. †Q④¨Φ⇨ΦÅ⇩íל
  70. †c④¨dΦâ⇩íי
  71. †n④¨dΦw⇩´:④œ    ל!®⇨ü<U¬t⇨Θá⇧®ij⇩™¡④¨@≤ñ®¡④á⇨⇨2Σעαעαעαעα⇨≡èD⇦
  72. iju①Ç>
  73. u◆´④③œ    ל!Θk⇧<⇧tT<⇦tP<╱t<❎u⇨Θ∙á⇩⇨2Σ¨
  74. †ץ③Φ⇩œ    ´ת③ל!Θ@⇧ïD ïT♪פuëF✓3ijëF⑤ëF⑦δ$ëF⑤ëV⑦3ijëF✓è⇦÷IJ⇩u⓪δ†ïD ëF✓3ijëF⑤ëF⑦³╱
  75. ΦJ⇧ïD✓ïT
  76. ⇨╱¿④③⑥¬④ëF①ëV③ú◆⇨ë⑥    ⇨™⇩⇧Õ⇧ú❎⇨Φx÷t⇩δ⑨á⇩⇧<Θt⇦<δuהF ⇧®⇧ﲨ≤ñá∞
  77. ⇩╱⇩⇨⇦Aó⇧③3פïF✓♪ijuïF⑤ïV⑦♪iju⇦♪פt❎¨✓≈±♪פt⇧@¨d†⇦③ΦH⇧´≤②œ    ל!³╱⇩⇨Ç>⇩⇨⓪w①³╱⇨⇨Ç>⇨⇨⇨w╱âד!Θכ³δ_ïD✓ïT
  78. ⇨╱¿④③⑥¬④ú¿④ë⑥¬④3פèD⇨èd⇩èץסגסגÇΣ⇨≈f≈fÇπ?³י2¯⇨בâפèL⇧
  79. חt
  80. ⇨Fâפ³חδ≥;╱¿④u╱;⑥¬④t◆ú¿④ë⑥¬④Θ«²_◆á
  82. iju⇩³ij&êEõ!÷β❎«✓&ëE&îM⓪&וE②&îM④Õ    ⇦ú⑧⇨3ijב®8⇧¨④™ז②Φ⇧ב¡Ç>¼④⇧t⇩åג½Γ≤בSQ3פïF✓♪ijuïF⑤ïV⑦♪פu⇦♪ijt-ø⇧♪פu❎=@r✓סπעΩעןδ∩=≈r❎¨⇧δ⇨¨U⇧≈±♪פt⇧@ëF♪ê^⇩Y[בîזÄij™«✓®®
  83. õ2ϕ≤ñâו⇩ü¯¥
  84. v∈בãhΦ⇨⌠¨⇦œ    ΦÃ÷3חœ    Φã÷ב3פê⑥ϕ④3פ≈±$✓╱ϕ④⇦0Ç>ϕ④u⇩ã ê◆CRïIJ3פ¨
  85. ≈±ïזXâ∙uשÇ>ϕ④u❎ã0êG¯בQR´⇦¨⇦צijïזâβâIJ0â∙9v⇨âIJ◆êCJuσZYב (c) 1991 Mountain Air Designs 
  86. Flash Drive software: Version 1.04A-S
  87. (C) 1991  BSE Company  Tustin, Calif. 
  88.  
  89. $XXX meg drive found: port xxxx
  90. xx sect/trk, XX heads, XXXX cyls
  91. $Power down mode not supported
  92. $XXXX second power down delay
  93. $Port XXXX not responding;
  94. load aborted.
  95. $XXXX: invalid port address.
  96. Using default port 8078 instead.
  97. $
  98. 1234567890123456789012345678901234567890
  99. $Logical drive x: xxx megabytes
  100. $No partitions defined
  101. $Interface test failed: xxxx xxxx
  102. $Diag. test: CONTROLLER ERROR
  103. $Diag. test: SECTOR BUFFER ERROR
  104. $Diag. test: CONTROL PROCESSOR ERROR
  105. $Diag. test: UNKNOWN TYPE ERROR
  106. $Unit xx : partition type is not
  107. compatible with this version of DOS
  108. $DOS version 2.x required.
  109. $Drive reconfigured for xxxx Cylinders, 
  110. xxx Heads, xxx Sectors per Track.
  111. $Drive signature: xxxx unknown.
  112. $k Stack Stack ⇧⇧Γ
  113. ª⇨»⇨    ⇦א⇨╱⇦╱⇦╱⇦ש⇨Ω⇨╱⇦╱⇦    ⇦.ë④.î╱⑥יPSQR╱WVU£ⁿîזÄןë&²î⑥¯·ÕⁿïαîזÄס√ג>④&è]⇩2¯:⑨~❎Õ⇨Çδ④עπ·Φ1⇧¯ù⑧⇨Φ<⇧√ג>④⇧&ëE⇨·í²ïαí¯Äס√¥]^_◆ZY[Xיã⇧&êE3ijבΦÄ⇦t⇧ב&ëm②îז&ëE④3ijבΦ{⇦t⇧בΦØ⇦&ג}Φ②⇩Φ[⇦בΦg⇦t⇧בΦß⇦&ג}Φ»⇩ΦG⇦בΦΘ¯t⇧בîזÄןג>④Φé⇦&ג}Φ (--pp > lp)       /* Move pattern down    */
  114.             *pp = pp[-1];        /* one byte             */
  115.          *pp =   (c == '*') ? STAR :
  116.             (c == '-') ? MINUS : PLUS;
  117.          pp = spp;               /* Restore pattern end  */
  118.          continue;
  119.       }
  120.       /*
  121.        * All the rest.
  122.        */
  123.       lp = pp;         /* Remember start       */
  124.       switch(c) {
  125.  
  126.       case '^':
  127.          store(BOL);
  128.          break;
  129.  
  130.       case '$':
  131.          store(EOL);
  132.          break;
  133.  
  134.       case '.':
  135.          store(ANY);
  136.          break;
  137.  
  138.       case '[':
  139.          s = cclass(source, s);
  140.          break;
  141.  
  142.       case ':':
  143.          if (*s) {
  144.             c = *s++;
  145.             switch(tolower(c)) {
  146.  
  147.             case 'a':
  148.             case 'A':
  149.                store(ALPHA);
  150.                break;
  151.  
  152.             case 'd':
  153.             case 'D':
  154.                store(DIGIT);
  155.                break;
  156.  
  157.             case 'n':
  158.             case 'N':
  159.                store(NALPHA);
  160.                break;
  161.  
  162.             case ' ':
  163.                store(PUNCT);
  164.                break;
  165.  
  166.             default:
  167.                badpat("Unknown : type", source, s);
  168.  
  169.             }
  170.             break;
  171.          }
  172.          else    badpat("No : type", source, s);
  173.  
  174.       case '\\':
  175.          if (*s)
  176.             c = *s++;
  177.  
  178.       default:
  179.          store(CHAR);
  180.          store(tolower(c));
  181.       }
  182.    }
  183.    store(ENDPAT);
  184.    store(0);                /* Terminate string     */
  185.    if (debug) {
  186.       for (lp = pbuf; lp < pp;) {
  187.          if ((c = (*lp++ & 0377)) < ' ')
  188.             printf("\\%o ", c);
  189.          else    printf("%c ", c);
  190.         }
  191.         printf("\n");
  192.    }
  193. }
  194.  
  195. /*******************************************************/
  196.  
  197. char *
  198. cclass(source, src)
  199. char       *source;   /* Pattern start -- for error msg.      */
  200. char       *src;      /* Class start           */
  201. /*
  202.  * Compile a class (within [])
  203.  */
  204. {
  205.    register char   *s;        /* Source pointer    */
  206.    register char   *cp;       /* Pattern start     */
  207.    register int    c;         /* Current character */
  208.    int             o;         /* Temp              */
  209.  
  210.    s = src;
  211.    o = CLASS;
  212.    if (*s == '^') {
  213.       ++s;
  214.       o = NCLASS;
  215.    }
  216.    store(o);
  217.    cp = pp;
  218.    store(0);                          /* Byte count      */
  219.    while ((c = *s++) && c!=']') {
  220.       if (c == '\\') {                /* Store quoted char    */
  221.          if ((c = *s++) == '\0')      /* Gotta get something  */
  222.             badpat("Class terminates badly", source, s);
  223.          else    store(tolower(c));
  224.       }
  225.       else if (c == '-' &&
  226.             (pp - cp) > 1 && *s != ']' && *s != '\0') {
  227.          c = pp[-1];             /* Range start     */
  228.          pp[-1] = RANGE;         /* Range signal    */
  229.          store(c);               /* Re-store start  */
  230.          c = *s++;               /* Get end char and*/
  231.          store(tolower(c));      /* Store it        */
  232.       }
  233.       else {
  234.          store(tolower(c));      /* Store normal char */
  235.       }
  236.    }
  237.    if (c != ']')
  238.       badpat("Unterminated class", source, s);
  239.    if ((c = (pp - cp)) >= 256)
  240.       badpat("Class too large", source, s);
  241.    if (c == 0)
  242.       badpat("Empty class", source, s);
  243.    *cp = c;
  244.    return(s);
  245. }
  246.  
  247. /*******************************************************/
  248.  
  249. store(op)
  250. {
  251.    if (pp >= &pbuf[PMAX])
  252.       error("Pattern too complex\n");
  253.    *pp++ = op;
  254. }
  255.  
  256.  
  257. /*******************************************************/
  258.  
  259. badpat(message, source, stop)
  260. char  *message;       /* Error message */
  261. char  *source;        /* Pattern start */
  262. char  *stop;          /* Pattern end   */
  263. {
  264.    register int    c;
  265.  
  266.    fprintf(stderr, "-GREP-E-%s, pattern is\"%s\"\n", message, source);
  267.    fprintf(stderr, "-GREP-E-Stopped at byte %d, '%c'\n",
  268.          stop-source, stop[-1]);
  269.    error("?GREP-E-Bad pattern\n");
  270. }
  271.  
  272.  
  273.  
  274. /*******************************************************/
  275.  
  276. grep(fp, fn)
  277. FILE       *fp;       /* File to process            */
  278. char       *fn;       /* File name (for -f option)  */
  279. /*
  280.  * Scan the file for the pattern in pbuf[]
  281.  */
  282. {
  283.    register int lno, count, m;
  284.  
  285.    lno = 0;
  286.    count = 0;
  287.    while (fgets(lbuf, LMAX, fp)) {
  288.       ++lno;
  289.       m = match();
  290.       if ((m && !vflag) || (!m && vflag)) {
  291.          ++count;
  292.          if (!cflag) {
  293.             if (fflag && fn) {
  294.                file(fn);
  295.                fn = 0;
  296.             }
  297.             if (nflag)
  298.                printf("%d\t", lno);
  299.             printf("%s\n", lbuf);
  300.          }
  301.       }
  302.    }
  303.    if (cflag) {
  304.       if (fflag && fn)
  305.          file(fn);
  306.       printf("%d\n", count);
  307.    }
  308. }
  309.  
  310.  
  311. /*******************************************************/
  312.  
  313. match()
  314. /*
  315.  * Match the current line (in lbuf[]), return 1 if it does.
  316.  */
  317. {
  318.    register char   *l;        /* Line pointer       */
  319.    char *pmatch();
  320.  
  321.    for (l = lbuf; *l; l++) {
  322.       if (pmatch(l, pbuf))
  323.          return(1);
  324.    }
  325.    return(0);
  326. }
  327.  
  328. /*******************************************************/
  329.  
  330. char *
  331. pmatch(line, pattern)
  332. char               *line;     /* (partial) line to match      */
  333. char               *pattern;  /* (partial) pattern to match   */
  334. {
  335.    register char   *l;        /* Current line pointer         */
  336.    register char   *p;        /* Current pattern pointer      */
  337.    register char   c;         /* Current character            */
  338.    char            *e;        /* End for STAR and PLUS match  */
  339.    int             op;        /* Pattern operation            */
  340.    int             n;         /* Class counter                */
  341.    char            *are;      /* Start of STAR match          */
  342.  
  343.    l = line;
  344.    if (debug > 1)
  345.       printf("pmatch(\"%s\")\n", line);
  346.    p = pattern;
  347.    while ((op = *p++) != ENDPAT) {
  348.       if (debug > 1)
  349.          printf("byte[%d] = 0%o, '%c', op = 0%o\n",
  350.                l-line, *l, *l, op);
  351.       switch(op) {
  352.  
  353.       case CHAR:
  354.          if (tolower(*l++) != *p++)
  355.             return(0);
  356.          break;
  357.  
  358.       case BOL:
  359.          if (l != lbuf)
  360.             return(0);
  361.          break;
  362.  
  363.       case EOL:
  364.          if (*l != '\0')
  365.             return(0);
  366.          break;
  367.  
  368.       case ANY:
  369.          if (*l++ == '\0')
  370.             return(0);
  371.          break;
  372.  
  373.       case DIGIT:
  374.          if ((c = *l++) < '0' || (c > '9'))
  375.             return(0);
  376.          break;
  377.  
  378.       case ALPHA:
  379.          c = tolower(*l++);
  380.          if (c < 'a' || c > 'z')
  381.             return(0);
  382.          break;
  383.  
  384.       case NALPHA:
  385.          c = tolower(*l++);
  386.          if (c >= 'a' && c <= 'z')
  387.             break;
  388.          else if (c < '0' || c > '9')
  389.             return(0);
  390.          break;
  391.  
  392.       case PUNCT:
  393.          c = *l++;
  394.          if (c == 0 || c > ' ')
  395.             return(0);
  396.          break;
  397.  
  398.       case CLASS:
  399.       case NCLASS:
  400.          c = tolower(*l++);
  401.          n = *p++ & 0377;
  402.          do {
  403.             if (*p == RANGE) {
  404.                p += 3;
  405.                n -= 2;
  406.                if (c >= p[-2] && c <= p[-1])
  407.                   break;
  408.             }
  409.             else if (c == *p++)
  410.                break;
  411.          } while (--n > 1);
  412.          if ((op == CLASS) == (n <= 1))
  413.             return(0);
  414.          if (op == CLASS)
  415.             p += n - 2;
  416.          break;
  417.  
  418.       case MINUS:
  419.          e = pmatch(l, p);       /* Look for a match    */
  420.          while (*p++ != ENDPAT); /* Skip over pattern   */
  421.          if (e)                  /* Got a match?        */
  422.             l = e;               /* Yes, update string  */
  423.          break;                  /* Always succeeds     */
  424.  
  425.       case PLUS:                 /* One or more ...     */
  426.          if ((l = pmatch(l, p)) == 0)
  427.             return(0);           /* Gotta have a match  */
  428.       case STAR:                 /* Zero or more ...    */
  429.          are = l;                /* Remember line start */
  430.          while (*l && (e = pmatch(l, p)))
  431.             l = e;               /* Get longest match   */
  432.          while (*p++ != ENDPAT); /* Skip over pattern   */
  433.          while (l >= are) {      /* Try to match rest   */
  434.             if (e = pmatch(l, p))
  435.                return(e);
  436.             --l;                 /* Nope, try earlier   */
  437.          }
  438.          return(0);              /* Nothing else worked */
  439.  
  440.       default:
  441.          printf("Bad op code %d\n", op);
  442.          error("Cannot happen -- match\n");
  443.       }
  444.    }
  445.    return(l);
  446. }
  447.  
  448. /*******************************************************/
  449.  
  450. error(s)
  451. char *s;
  452. {
  453.    fprintf(stderr, "%s", s);
  454.    exit(1);
  455. }
  456.  
  457. /*******************************************************/
  458.  
  459. #ifdef DeSmet
  460. fclose(file)
  461. FILE file;
  462. {
  463.      return(close(file));
  464. }
  465. #endif
  466. ə