pedroediaz/lexvm
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

get rid of rthreadlist

Browse Source
This commit is contained in:
Kyryl Melekhin
2021-07-31 12:40:11 +00:00
parent 27704df099
commit c774bef5c2
2 changed files with 18 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
pike.c
View File

@@ -111,13 +111,6 @@ struct rthread
rsub *sub;
};
typedef struct rthreadlist rthreadlist;
struct rthreadlist
{
int n;
rthread t[1];
};
#define INSERT_CODE(at, num, pc) \
if (code) \
memmove(code + at + num, code + at, (pc - at)*sizeof(int)); \
@@ -469,7 +462,7 @@ if (--csub->ref == 0) { \
freesub = csub; \
} \
#define addthread(nn, list, _pc, _sub, cont) \
#define addthread(nn, list, listidx, _pc, _sub, cont) \
{ \
int i = 0, *pc = _pc; \
const char *_sp = sp+l; \
@@ -487,8 +480,8 @@ if (--csub->ref == 0) { \
} \
plist[pc - prog->insts] = gen; \
if (*pc < ASSERT) { \
list->t[list->n].sub = sub; \
list->t[list->n++].pc = pc; \
list[listidx].sub = sub; \
list[listidx++].pc = pc; \
goto rec_check##nn; \
} \
switch(*pc) { \
@@ -527,12 +520,14 @@ if (--csub->ref == 0) { \
tmp = clist; \
clist = nlist; \
nlist = tmp; \
nlist->n = 0; \
clistidx = nlistidx; \
nlistidx = 0; \
int re_pikevm(rcode *prog, const char *s, const char **subp, int nsubp)
{
int i, j, c, l = 0, *npc, gen = 1, subidx = 1;
int rsubsize = sizeof(rsub)+(sizeof(char*)*nsubp);
int clistidx = 0, nlistidx = 0;
const char *sp = s;
int plist[prog->unilen];
int *pcs[prog->splits];
@@ -540,12 +535,10 @@ int re_pikevm(rcode *prog, const char *s, const char **subp, int nsubp)
char nsubs[rsubsize*256];
rsub *nsub = (rsub*)nsubs, *lsub = nsub, *matched = NULL, *s1;
rsub *freesub = NULL;
rthreadlist _clist[1+prog->len];
rthreadlist _nlist[1+prog->len];
rthreadlist *clist = _clist, *nlist = _nlist, *tmp;
rthread _clist[prog->len];
rthread _nlist[prog->len];
rthread *clist = _clist, *nlist = _nlist, *tmp;
memset(plist, 0, prog->unilen*sizeof(plist[0]));
memset(clist, 0, (1+prog->len)*sizeof(rthread));
memset(nlist, 0, (1+prog->len)*sizeof(rthread));
for(i=0; i<nsubp; i++) {
subp[i] = NULL;
@@ -557,18 +550,18 @@ int re_pikevm(rcode *prog, const char *s, const char **subp, int nsubp)
newsub(nsub);
nsub->sub[0] = sp;
goto jmp_start;
for(; clist->n; sp += l) {
for(; clistidx; sp += l) {
gen++; uc_len(l, sp) uc_code(c, sp)
for(i=0; i<clist->n; i++) {
npc = clist->t[i].pc;
nsub = clist->t[i].sub;
for(i = 0; i < clistidx; i++) {
npc = clist[i].pc;
nsub = clist[i].sub;
switch(*npc++) {
case CHAR:
if(c != *npc++)
break;
case ANY:
addthread:
addthread(2, nlist, npc, nsub, continue)
addthread(2, nlist, nlistidx, npc, nsub, continue)
case CLASS:
if (!re_classmatch(npc, c))
break;
@@ -592,7 +585,7 @@ int re_pikevm(rcode *prog, const char *s, const char **subp, int nsubp)
swaplist()
jmp_start:
while (1)
addthread(1, clist, prog->insts, nsub, break)
addthread(1, clist, clistidx, prog->insts, nsub, break)
continue;
}
swaplist()

3
test.sh
View File

@@ -58,6 +58,7 @@ abc$|c
^(abc|kj)
([^qwe]*rty)|(asd[^fgh]*)
([^qwe]*rty+)|(asd[^fgh]*)
((abc))(fv)
"
input="\
abcdef
@@ -117,6 +118,7 @@ kj
jhdfh kj hhd
qweasd qqqq fff
qwehh sjsjsj rtyyyyyyyyyj sdj
abcfv
"
expect="\
(0,3)
@@ -176,6 +178,7 @@ expect="\
-nomatch-
(3,16)(?,?)(3,16)
(3,25)(3,25)(?,?)
(0,5)(0,3)(0,3)(3,5)
(0,0)
"
c=1