1 b2cfc4e2 2003-09-30 devnull #include "lib9.h"
2 b2cfc4e2 2003-09-30 devnull #include "regexp9.h"
3 b2cfc4e2 2003-09-30 devnull #include "regcomp.h"
7 b2cfc4e2 2003-09-30 devnull * save a new match in mp
9 b2cfc4e2 2003-09-30 devnull extern void
10 b2cfc4e2 2003-09-30 devnull _renewmatch(Resub *mp, int ms, Resublist *sp)
14 b2cfc4e2 2003-09-30 devnull if(mp==0 || ms<=0)
16 b2cfc4e2 2003-09-30 devnull if(mp[0].s.sp==0 || sp->m[0].s.sp<mp[0].s.sp ||
17 b2cfc4e2 2003-09-30 devnull (sp->m[0].s.sp==mp[0].s.sp && sp->m[0].e.ep>mp[0].e.ep)){
18 b2cfc4e2 2003-09-30 devnull for(i=0; i<ms && i<NSUBEXP; i++)
19 b2cfc4e2 2003-09-30 devnull mp[i] = sp->m[i];
20 b2cfc4e2 2003-09-30 devnull for(; i<ms; i++)
21 b2cfc4e2 2003-09-30 devnull mp[i].s.sp = mp[i].e.ep = 0;
26 b2cfc4e2 2003-09-30 devnull * Note optimization in _renewthread:
27 b2cfc4e2 2003-09-30 devnull * *lp must be pending when _renewthread called; if *l has been looked
28 b2cfc4e2 2003-09-30 devnull * at already, the optimization is a bug.
30 b2cfc4e2 2003-09-30 devnull extern Relist*
31 b2cfc4e2 2003-09-30 devnull _renewthread(Relist *lp, /* _relist to add to */
32 b2cfc4e2 2003-09-30 devnull Reinst *ip, /* instruction to add */
34 b2cfc4e2 2003-09-30 devnull Resublist *sep) /* pointers to subexpressions */
36 b2cfc4e2 2003-09-30 devnull Relist *p;
38 b2cfc4e2 2003-09-30 devnull for(p=lp; p->inst; p++){
39 b2cfc4e2 2003-09-30 devnull if(p->inst == ip){
40 62390091 2004-03-05 devnull if(sep->m[0].s.sp < p->se.m[0].s.sp){
41 62390091 2004-03-05 devnull if(ms > 1)
42 62390091 2004-03-05 devnull p->se = *sep;
44 62390091 2004-03-05 devnull p->se.m[0] = sep->m[0];
46 b2cfc4e2 2003-09-30 devnull return 0;
49 b2cfc4e2 2003-09-30 devnull p->inst = ip;
50 62390091 2004-03-05 devnull if(ms > 1)
51 62390091 2004-03-05 devnull p->se = *sep;
53 62390091 2004-03-05 devnull p->se.m[0] = sep->m[0];
54 b2cfc4e2 2003-09-30 devnull (++p)->inst = 0;
55 b2cfc4e2 2003-09-30 devnull return p;
59 b2cfc4e2 2003-09-30 devnull * same as renewthread, but called with
60 b2cfc4e2 2003-09-30 devnull * initial empty start pointer.
62 b2cfc4e2 2003-09-30 devnull extern Relist*
63 b2cfc4e2 2003-09-30 devnull _renewemptythread(Relist *lp, /* _relist to add to */
64 b2cfc4e2 2003-09-30 devnull Reinst *ip, /* instruction to add */
66 b2cfc4e2 2003-09-30 devnull char *sp) /* pointers to subexpressions */
68 b2cfc4e2 2003-09-30 devnull Relist *p;
70 b2cfc4e2 2003-09-30 devnull for(p=lp; p->inst; p++){
71 b2cfc4e2 2003-09-30 devnull if(p->inst == ip){
72 b2cfc4e2 2003-09-30 devnull if(sp < p->se.m[0].s.sp) {
73 62390091 2004-03-05 devnull if(ms > 1)
74 62390091 2004-03-05 devnull memset(&p->se, 0, sizeof(p->se));
75 b2cfc4e2 2003-09-30 devnull p->se.m[0].s.sp = sp;
77 b2cfc4e2 2003-09-30 devnull return 0;
80 b2cfc4e2 2003-09-30 devnull p->inst = ip;
81 62390091 2004-03-05 devnull if(ms > 1)
82 62390091 2004-03-05 devnull memset(&p->se, 0, sizeof(p->se));
83 b2cfc4e2 2003-09-30 devnull p->se.m[0].s.sp = sp;
84 b2cfc4e2 2003-09-30 devnull (++p)->inst = 0;
85 b2cfc4e2 2003-09-30 devnull return p;
88 62390091 2004-03-05 devnull extern Relist*
89 62390091 2004-03-05 devnull _rrenewemptythread(Relist *lp, /* _relist to add to */
90 62390091 2004-03-05 devnull Reinst *ip, /* instruction to add */
92 62390091 2004-03-05 devnull Rune *rsp) /* pointers to subexpressions */
94 62390091 2004-03-05 devnull Relist *p;
96 62390091 2004-03-05 devnull for(p=lp; p->inst; p++){
97 62390091 2004-03-05 devnull if(p->inst == ip){
98 62390091 2004-03-05 devnull if(rsp < p->se.m[0].s.rsp) {
99 62390091 2004-03-05 devnull if(ms > 1)
100 62390091 2004-03-05 devnull memset(&p->se, 0, sizeof(p->se));
101 62390091 2004-03-05 devnull p->se.m[0].s.rsp = rsp;
103 62390091 2004-03-05 devnull return 0;
106 62390091 2004-03-05 devnull p->inst = ip;
107 62390091 2004-03-05 devnull if(ms > 1)
108 62390091 2004-03-05 devnull memset(&p->se, 0, sizeof(p->se));
109 62390091 2004-03-05 devnull p->se.m[0].s.rsp = rsp;
110 62390091 2004-03-05 devnull (++p)->inst = 0;
111 62390091 2004-03-05 devnull return p;