Housekeeping
This commit is contained in:
parent
9b034eac95
commit
7a27c2ca5b
73
src/modal.c
73
src/modal.c
|
@ -31,7 +31,7 @@ walk(char *s)
|
|||
}
|
||||
|
||||
static void
|
||||
put_reg(char r, char *reg)
|
||||
write_reg(char r, char *reg)
|
||||
{
|
||||
char c, *cap = walk(reg);
|
||||
if(r == '*') {
|
||||
|
@ -78,7 +78,7 @@ put_reg(char r, char *reg)
|
|||
}
|
||||
|
||||
static int
|
||||
commit_rule(Rule *r, char *s, int create)
|
||||
write_rule(Rule *r, char *s, int create)
|
||||
{
|
||||
while((*dst_++ = *s++))
|
||||
;
|
||||
|
@ -96,40 +96,6 @@ commit_rule(Rule *r, char *s, int create)
|
|||
return 1;
|
||||
}
|
||||
|
||||
static int
|
||||
write_rule(Rule *r, char *s)
|
||||
{
|
||||
char c, *b = r->b, *reg, *origin = dst_;
|
||||
while((c = *b++))
|
||||
if(c == '?' && (reg = regs[(int)*b]))
|
||||
put_reg(*b++, reg);
|
||||
else
|
||||
*dst_++ = c;
|
||||
if(dst_ == origin) {
|
||||
while(*s == ' ') s++;
|
||||
if(*s == ')' && *(dst_ - 1) == ' ') dst_--;
|
||||
}
|
||||
return commit_rule(r, s, 0);
|
||||
}
|
||||
|
||||
static char *
|
||||
parse_frag(char *s)
|
||||
{
|
||||
char c, *cap;
|
||||
while((c = *s) && c == ' ') s++;
|
||||
if(c != ')' && !(c == '<' && s[1] == '>')) {
|
||||
cap = walk(s);
|
||||
if(c == '(') {
|
||||
s++;
|
||||
while(s < cap - 1) *dict_++ = *s++;
|
||||
s++;
|
||||
} else
|
||||
while(s < cap) *dict_++ = *s++;
|
||||
}
|
||||
*dict_++ = 0;
|
||||
return s;
|
||||
}
|
||||
|
||||
static int
|
||||
run_rule(Rule *r, char *s)
|
||||
{
|
||||
|
@ -162,7 +128,38 @@ run_rule(Rule *r, char *s)
|
|||
a++, p++;
|
||||
}
|
||||
c = *p;
|
||||
return spacer(c) ? write_rule(r, p) : 0;
|
||||
if(spacer(c)) {
|
||||
char *b = r->b, *reg, *origin = dst_;
|
||||
while((c = *b++))
|
||||
if(c == '?' && (reg = regs[(int)*b]))
|
||||
write_reg(*b++, reg);
|
||||
else
|
||||
*dst_++ = c;
|
||||
if(dst_ == origin) {
|
||||
while(*p == ' ') p++;
|
||||
if(*p == ')' && *(dst_ - 1) == ' ') dst_--;
|
||||
}
|
||||
return write_rule(r, p, 0);
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
static char *
|
||||
parse_frag(char *s)
|
||||
{
|
||||
char c, *cap;
|
||||
while((c = *s) && c == ' ') s++;
|
||||
if(c != ')' && !(c == '<' && s[1] == '>')) {
|
||||
cap = walk(s);
|
||||
if(c == '(') {
|
||||
s++;
|
||||
while(s < cap - 1) *dict_++ = *s++;
|
||||
s++;
|
||||
} else
|
||||
while(s < cap) *dict_++ = *s++;
|
||||
}
|
||||
*dict_++ = 0;
|
||||
return s;
|
||||
}
|
||||
|
||||
static int
|
||||
|
@ -178,7 +175,7 @@ rewrite(void)
|
|||
r->a = dict_, s = parse_frag(s + 2);
|
||||
r->b = dict_, s = parse_frag(s);
|
||||
while(*s == ' ') s++;
|
||||
return commit_rule(r, s, 1);
|
||||
return write_rule(r, s, 1);
|
||||
}
|
||||
if(c == '?' && s[1] == '(') { /* lambda */
|
||||
cap = walk(s + 1);
|
||||
|
|
Loading…
Reference in New Issue