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