Housekeeping
This commit is contained in:
parent
c25561c650
commit
09e9e45338
105
src/modal.c
105
src/modal.c
|
@ -30,43 +30,6 @@ walk(char *s)
|
||||||
return 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 *
|
static char *
|
||||||
plode(char *s)
|
plode(char *s)
|
||||||
{
|
{
|
||||||
|
@ -93,7 +56,23 @@ plode(char *s)
|
||||||
}
|
}
|
||||||
|
|
||||||
static int
|
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];
|
char *s = regs[(int)r];
|
||||||
if(r == '*')
|
if(r == '*')
|
||||||
|
@ -107,8 +86,29 @@ commit(char r)
|
||||||
return 1;
|
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
|
static int
|
||||||
save(int rule, char *s)
|
commit_rule(int rule, char *s)
|
||||||
{
|
{
|
||||||
while((*outp_++ = *s++))
|
while((*outp_++ = *s++))
|
||||||
;
|
;
|
||||||
|
@ -134,36 +134,41 @@ parse_rule(char *s)
|
||||||
}
|
}
|
||||||
|
|
||||||
static int
|
static int
|
||||||
rewrite(void)
|
add_rule(char *p)
|
||||||
{
|
{
|
||||||
char c, c_ = 0, last = 0, *p = direction ? bank_b : bank_a, *o = p;
|
char c;
|
||||||
while((c = *p) && c <= ' ') p++;
|
|
||||||
while((c = *p)) {
|
|
||||||
int i;
|
|
||||||
if(p[0] == '<' && p[1] == '>') {
|
|
||||||
Rule *r = &rules[rules_len++];
|
Rule *r = &rules[rules_len++];
|
||||||
p += 2;
|
p += 2;
|
||||||
while((c = *p) && c <= ' ') p++;
|
while((c = *p) && c <= ' ') p++;
|
||||||
r->a = parse_rule(p), p = walk(p);
|
r->a = parse_rule(p), p = walk(p);
|
||||||
while((c = *p) && c <= ' ') p++;
|
while((c = *p) && c <= ' ') p++;
|
||||||
r->b = parse_rule(p), p = walk(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) c_ = *(p - 1);
|
||||||
if(p == o || spacer(c_)) {
|
if(p == o || spacer(c_)) {
|
||||||
for(i = 0; i < rules_len; i++) {
|
for(i = 0; i < rules_len; i++) {
|
||||||
Rule *r = &rules[i];
|
Rule *r = &rules[i];
|
||||||
char *res = match(p, r);
|
char *res = match_rule(p, r);
|
||||||
if(res != NULL) {
|
if(res != NULL) {
|
||||||
char cc, *b = r->b;
|
char cc, *b = r->b;
|
||||||
if(!*b && last == ' ') outp_--;
|
if(!*b && last == ' ') outp_--;
|
||||||
while((cc = *b++)) {
|
while((cc = *b++)) {
|
||||||
if(cc == '?')
|
if(cc == '?')
|
||||||
commit(*b++);
|
write_reg(*b++);
|
||||||
else
|
else
|
||||||
*outp_++ = cc;
|
*outp_++ = cc;
|
||||||
}
|
}
|
||||||
return save(i, res);
|
return commit_rule(i, res);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue