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

*

This commit is contained in:
Devine Lu Linvega 2024-04-04 10:01:09 -07:00
parent e109696e7c
commit 22312cf425
1 changed files with 14 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
src/modal.c
View File

@ -1,18 +1,13 @@
#include <stdio.h> #include <stdio.h>
/* dict */
static char dict[0x8000], *next = dict;
/* rule */
typedef struct { typedef struct {
char *a; char *a, *b;
char *b;
} Rule; } Rule;
static int rules_len; static int rules_len;
static Rule rules[0x100]; static Rule rules[0x100];
static char dict[0x8000], *next = dict;
static char program[0x1000], *prog_ = program;
static char * static char *
addside(FILE *f) addside(FILE *f)
@ -38,10 +33,6 @@ addrule(FILE *f)
r->a = addside(f), r->b = addside(f); r->a = addside(f), r->b = addside(f);
} }
/* program */
static char program[0x1000], *prog_ = program;
static void static void
addprogram(FILE *f) addprogram(FILE *f)
{ {
@ -61,23 +52,6 @@ tokenize(char *t, FILE *f)
addprogram(f); addprogram(f);
} }
static int
walk(FILE *f)
{
char c, token[0x40], *tokptr;
tokptr = token;
while(f && fread(&c, 1, 1, f)) {
if(c < 0x21)
*tokptr++ = 0x00, tokenize(token, f), tokptr = token;
else if(tokptr - token < 0x3f)
*tokptr++ = c;
else
return printf("Token too long: %s\n", token);
}
*tokptr++ = 0x00, tokenize(token, f), tokptr = token;
return 1;
}
static void static void
display() display()
{ {
@ -93,9 +67,19 @@ static int
eval(char *path) eval(char *path)
{ {
FILE *f; FILE *f;
char c, token[0x40], *tokptr;
if(!(f = fopen(path, "r"))) if(!(f = fopen(path, "r")))
return !printf("Invalid file: %s\n", path); return !printf("Invalid file: %s\n", path);
walk(f); tokptr = token;
while(f && fread(&c, 1, 1, f)) {
if(c < 0x21)
*tokptr++ = 0x00, tokenize(token, f), tokptr = token;
else if(tokptr - token < 0x3f)
*tokptr++ = c;
else
return printf("Token too long: %s\n", token);
}
*tokptr++ = 0x00, tokenize(token, f), tokptr = token;
display(); display();
fclose(f); fclose(f);
return 1; return 1;