etc
/
uxn
mirror of https://git.sr.ht/~rabbits/uxn
0
1
Fork 0
Code Issues Projects Releases Wiki Activity

(uxnasm) Read characters into char buffers

This commit is contained in:
Devine Lu Linvega 2024-03-26 13:45:08 -07:00
parent 832ba26e30
commit 0ae8812680
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/uxnasm.c
View File

@ -278,10 +278,9 @@ writehex(char *w)
static int
tokenize(FILE *f)
{
unsigned int buf;
char c;
char *cptr = token;
while(fread(&buf, 1, 1, f)) {
char c = (char)buf;
while(fread(&c, 1, 1, f)) {
if(c < 0x21) {
*cptr++ = 0x00;
if(c == 0x0a)
@ -315,17 +314,15 @@ doinclude(char *filename)
static int
walkcomment(char *w, FILE *f)
{
int i = 1;
unsigned int buf;
if(slen(w) != 1)
return 0;
while(fread(&buf, 1, 1, f)) {
char c = (char)buf;
if(c == '(')
i++;
else if(c == ')' && --i < 1)
return 1;
}
int depth = 1;
char c;
if(slen(w) == 1)
while(fread(&c, 1, 1, f)) {
if(c == '(')
depth++;
else if(c == ')' && --depth < 1)
return 1;
}
return 0;
}