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

(uxnasm) Macros names are stored in dict

This commit is contained in:
Devine Lu Linvega 2024-03-27 09:24:51 -07:00
parent 18f545f3c9
commit c9f2eb0aad
1 changed files with 5 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/uxnasm.c
View File

@ -19,7 +19,7 @@ typedef signed char Sint8;
typedef unsigned short Uint16; typedef unsigned short Uint16;
typedef struct { typedef struct {
char name[0x40], items[0x40][0x40]; char *name, items[0x40][0x40];
Uint8 len; Uint8 len;
} Macro; } Macro;
@ -44,6 +44,7 @@ typedef struct {
} Program; } Program;
char source[0x40], token[0x40], scope[0x40], sublabel[0x40], lambda[0x05]; char source[0x40], token[0x40], scope[0x40], sublabel[0x40], lambda[0x05];
char dict[0x10000], *storenext = dict;
Program p; Program p;
@ -65,6 +66,7 @@ static int scmp(char *a, char *b, int len) { int i = 0; while(a[i] == b[i]) if
static int slen(char *s) { int i = 0; while(s[i]) i++; return i; } /* str length */ static int slen(char *s) { int i = 0; while(s[i]) i++; return i; } /* str length */
static char *scpy(char *src, char *dst, int len) { int i = 0; while((dst[i] = src[i]) && i < len - 2) i++; dst[i + 1] = '\0'; return dst; } /* str copy */ static char *scpy(char *src, char *dst, int len) { int i = 0; while((dst[i] = src[i]) && i < len - 2) i++; dst[i + 1] = '\0'; return dst; } /* str copy */
static char *scat(char *dst, char *src) { char *ptr = dst + slen(dst); while(*src) *ptr++ = *src++; *ptr = '\0'; return dst; } /* str cat */ static char *scat(char *dst, char *src) { char *ptr = dst + slen(dst); while(*src) *ptr++ = *src++; *ptr = '\0'; return dst; } /* str cat */
static char *push(char *s) { char *ptr = storenext; while((*storenext++ = *s++)); *storenext++ = 0; return ptr; } /* save str */
#define isopcode(x) (findopcode(x) || scmp(x, "BRK", 4)) #define isopcode(x) (findopcode(x) || scmp(x, "BRK", 4))
#define writeshort(x) (writebyte(x >> 8) && writebyte(x & 0xff)) #define writeshort(x) (writebyte(x >> 8) && writebyte(x & 0xff))
@ -73,18 +75,6 @@ static char *scat(char *dst, char *src) { char *ptr = dst + slen(dst); while(*sr
/* clang-format on */ /* clang-format on */
char storage[0x10000], *storenext = storage;
static char *
store(char *s)
{
char *ptr = storenext;
while((*storenext++ = *s++))
;
*storenext++ = 0;
return ptr;
}
static int parse(char *w, FILE *f); static int parse(char *w, FILE *f);
static char *makesublabel(char *src, char *name); static char *makesublabel(char *src, char *name);
@ -162,7 +152,7 @@ makemacro(char *name, FILE *f)
if(isopcode(name)) return error_asm("Macro is opcode"); if(isopcode(name)) return error_asm("Macro is opcode");
if(p.macro_len == 0x100) return error_asm("Macros limit exceeded"); if(p.macro_len == 0x100) return error_asm("Macros limit exceeded");
m = &p.macros[p.macro_len++]; m = &p.macros[p.macro_len++];
scpy(name, m->name, 0x40); m->name = push(name);
while(fscanf(f, "%63s", word) == 1) { while(fscanf(f, "%63s", word) == 1) {
if(word[0] == '{') continue; if(word[0] == '{') continue;
if(word[0] == '}') break; if(word[0] == '}') break;
@ -192,7 +182,7 @@ makelabel(char *name, int setscope)
l = &p.labels[p.label_len++]; l = &p.labels[p.label_len++];
l->addr = p.ptr; l->addr = p.ptr;
l->refs = 0; l->refs = 0;
l->name = store(name); l->name = push(name);
if(setscope) { if(setscope) {
int i = 0; int i = 0;
while(name[i] != '/' && i < 0x3e && (scope[i] = name[i])) i++; while(name[i] != '/' && i < 0x3e && (scope[i] = name[i])) i++;