d6
/
modal
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Unwrap rules during match

This commit is contained in:
Devine Lu Linvega 2024-04-26 21:18:02 -07:00
parent 37effa5dfd
commit 541e8937b0
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/modal.c
View File

@ -190,16 +190,17 @@ compile_rule(Rule *r, int id, char *src)
}
static Rule *
find_rule(char *s)
find_rule(char *s, char *cap)
{
Rule *r = rules;
if(*s == '(') s++, cap--;
while(r < rules_) {
char *ss = s, *a = r->a;
while(*ss++ == *a++)
if(!*a) return r;
r++;
}
return NULL;
return r;
}
static int
@ -227,12 +228,12 @@ rewrite(void)
}
/* phase: undefine */
if(c == '>' && s[1] == '<') {
s += 2;
s += 2, cap = walk(s);
while(*s == ' ') s++;
r = find_rule(s), r->a = 0, s = walk(s);
r = find_rule(s, cap), r->a = 0;
if(!quiet && r->a) fprintf(stderr, ">< (%s)\n", r->a);
while(*s == ' ') s++;
return write_rule(NULL, s);
while(*cap == ' ') cap++;
return write_rule(NULL, cap);
}
/* phase: match */
for(r = rules; r < rules_; r++)