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

Fixed issue in write reg

This commit is contained in:
Devine Lu Linvega 2024-04-04 19:48:10 -07:00
parent 70a158d3da
commit 920be34b20
2 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/test.modal
View File

@ -1,4 +1,4 @@
<> (swap ?x ?y) (?y ?x) <> (?x dup) (?x ?x)
<> (?x ?y swap) (?y ?x)
(swap (123) (456))
foo ((A B swap) dup)

24
src/modal.c
View File

@ -35,31 +35,29 @@ match(char *p, Rule *r)
{ {
char c, *a = r->a, *b = p; char c, *a = r->a, *b = p;
while((c = *a)) { while((c = *a)) {
if(c == '?') { if(c == '?') regs[(int)*(++a)] = b, a++, b = walk(b), c = *b;
regs[(int)*(++a)] = b, a++, b = walk(b), c = *b;
}
if(c != *b) return NULL; if(c != *b) return NULL;
a++, b++; a++, b++;
} }
return b; return b;
} }
static int static void
writereg(char r) writereg(char r)
{ {
int depth = 0; int depth = 0;
char c, *s = regs[(int)r]; char c, *s = regs[(int)r];
while((c = *s++)) { if(s[0] == '(') {
if(c == '(') depth++; while((c = *s++)) {
if(c == ')') { if(c == '(') depth++;
--depth; *outp_++ = c;
if(!depth) break; if(c == ')') --depth;
if(!depth) return;
} }
if(depth < 0) break;
if(depth == 0 && c == ' ') break;
*outp_++ = c;
} }
return 1; while(!spacer(s[0]) && (*outp_++ = *s++))
;
return;
} }
static void static void