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

Housekeeping

This commit is contained in:
Devine Lu Linvega 2024-04-08 10:23:28 -07:00
parent c25561c650
commit 09e9e45338
1 changed files with 56 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

103
src/modal.c
View File

@ -30,43 +30,6 @@ walk(char *s)
return s;
}
static int
bind(int id, char *b)
{
if(regs[id]) {
char *a = regs[id], *aa = walk(a), *bb = walk(b);
while(a < aa && b < bb)
if(*a++ != *b++) return 0;
} else if(id == ':') {
char *bb = walk(b);
if(*b == '(') b++, --bb;
while(b < bb) putc(*(b++), stdout);
} else
regs[id] = b;
return 1;
}
static char *
match(char *p, Rule *r)
{
int i;
char c, *a = r->a, *b = p;
for(i = 0x21; i < 0x7f; i++)
if((char)i != ':')
regs[i] = 0;
while((c = *a)) {
if(c == '?') {
if(!bind(*(++a), b)) return NULL;
a++, b = walk(b);
continue;
}
if(*a != *b) return NULL;
a++, b++;
}
c = *b;
return spacer(c) ? b : NULL;
}
static char *
plode(char *s)
{
@ -93,7 +56,23 @@ plode(char *s)
}
static int
commit(char r)
bind_reg(int r, char *b)
{
if(regs[r]) {
char *a = regs[r], *aa = walk(a), *bb = walk(b);
while(a < aa && b < bb)
if(*a++ != *b++) return 0;
} else if(r == ':') {
char *bb = walk(b);
if(*b == '(') b++, --bb;
while(b < bb) putc(*(b++), stdout);
} else
regs[r] = b;
return 1;
}
static int
write_reg(char r)
{
char *s = regs[(int)r];
if(r == '*')
@ -107,8 +86,29 @@ commit(char r)
return 1;
}
static char *
match_rule(char *p, Rule *r)
{
int i;
char c, *a = r->a, *b = p;
for(i = 0x21; i < 0x7f; i++)
if((char)i != ':')
regs[i] = 0;
while((c = *a)) {
if(c == '?') {
if(!bind_reg(*(++a), b)) return NULL;
a++, b = walk(b);
continue;
}
if(*a != *b) return NULL;
a++, b++;
}
c = *b;
return spacer(c) ? b : NULL;
}
static int
save(int rule, char *s)
commit_rule(int rule, char *s)
{
while((*outp_++ = *s++))
;
@ -134,36 +134,41 @@ parse_rule(char *s)
}
static int
rewrite(void)
add_rule(char *p)
{
char c, c_ = 0, last = 0, *p = direction ? bank_b : bank_a, *o = p;
while((c = *p) && c <= ' ') p++;
while((c = *p)) {
int i;
if(p[0] == '<' && p[1] == '>') {
char c;
Rule *r = &rules[rules_len++];
p += 2;
while((c = *p) && c <= ' ') p++;
r->a = parse_rule(p), p = walk(p);
while((c = *p) && c <= ' ') p++;
r->b = parse_rule(p), p = walk(p);
return save(-1, p);
return commit_rule(-1, p);
}
static int
rewrite(void)
{
char c, c_ = 0, last = 0, *p = direction ? bank_b : bank_a, *o = p;
while((c = *p) && c <= ' ') p++;
while((c = *p)) {
int i;
if(p[0] == '<' && p[1] == '>') return add_rule(p);
if(p != o) c_ = *(p - 1);
if(p == o || spacer(c_)) {
for(i = 0; i < rules_len; i++) {
Rule *r = &rules[i];
char *res = match(p, r);
char *res = match_rule(p, r);
if(res != NULL) {
char cc, *b = r->b;
if(!*b && last == ' ') outp_--;
while((cc = *b++)) {
if(cc == '?')
commit(*b++);
write_reg(*b++);
else
*outp_++ = cc;
}
return save(i, res);
return commit_rule(i, res);
}
}
}