sys/src/ape/lib/regexp/regaux.c

   1 #include <stdlib.h>
   2 #include <stdio.h>
   3 #include "regexp.h"
   4 #include "regcomp.h"
   5
   6 /*
   7  *      Machine state
   8  */
   9 Relist* _relist[2];
  10 Relist* _reliste[2];
  11 int     _relistsize = LISTINCREMENT;
  12
  13 /*
  14  *  save a new match in mp
  15  */
  16 extern void
  17 _renewmatch(Resub *mp, int ms, Resublist *sp)
  18 {
  19         int i;
  20
  21         if(mp==0 || ms<=0)
  22                 return;
  23         if(mp[0].s.sp==0 || sp->m[0].s.sp<mp[0].s.sp ||
  24            (sp->m[0].s.sp==mp[0].s.sp && sp->m[0].e.ep>mp[0].e.ep)){
  25                 for(i=0; i<ms && i<NSUBEXP; i++)
  26                         mp[i] = sp->m[i];
  27                 for(; i<ms; i++)
  28                         mp[i].s.sp = mp[i].e.ep = 0;
  29         }
  30 }
  31
  32 /*
  33  * Note optimization in _renewthread:
  34  *      *lp must be pending when _renewthread called; if *l has been looked
  35  *              at already, the optimization is a bug.
  36  */
  37 extern Relist*
  38 _renewthread(Relist *lp,        /* _relist to add to */
  39         Reinst *ip,     /* instruction to add */
  40         Resublist *sep) /* pointers to subexpressions */
  41 {
  42         Relist *p;
  43
  44         for(p=lp; p->inst; p++){
  45                 if(p->inst == ip){
  46                         if((sep)->m[0].s.sp < p->se.m[0].s.sp)
  47                                 p->se = *sep;
  48                         return 0;
  49                 }
  50         }
  51         p->inst = ip;
  52         p->se = *sep;
  53         (++p)->inst = 0;
  54         return p;
  55 }
  56