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

Unwrap rules storage

This commit is contained in:
Devine Lu Linvega 2024-04-04 20:13:14 -07:00
parent 8702b6472b
commit c7c5a20977
3 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/hello.modal
View File

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

2
examples/test.modal
View File

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

10
src/modal.c
View File

@ -119,8 +119,14 @@ parse_rulefrag(FILE *f)
int depth = 0;
char c, *origin = dict_;
while(f && fread(&c, 1, 1, f) && c && c != 0xa) {
if(c == '(') depth++;
if(c == ')') --depth;
if(c == '(') {
depth++;
if(depth == 1) continue;
}
if(c == ')') {
--depth;
if(depth == 0) continue;
}
if(c == ' ' && !depth) break;
*dict_++ = c;
}