st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-06 14:58:50 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

lapce fix

Browse source
This commit is contained in:
Danya Berezun 2025-02-27 20:59:10 +01:00
parent b55a3c80b6
commit 5814b3f90a
1 changed files with 180 additions and 140 deletions
Download patch file Download diff file Expand all files Collapse all files

112
byterun/byterun.c
View file

@ -3,14 +3,15 @@
#include <string.h> #include <string.h>
#include <stdio.h> #include <stdio.h>
#include <errno.h> #include <errno.h>
# include <stdib.h> #include <stdlib.h>
#include "../runtime/runtime.h" #include "../runtime/runtime.h"
void *__start_custom_data; void *__start_custom_data;
void *__stop_custom_data; void *__stop_custom_data;
/* The unpacked representation of bytecode file */ /* The unpacked representation of bytecode file */
typedef struct { typedef struct
{
char *string_ptr; /* A pointer to the beginning of the string table */ char *string_ptr; /* A pointer to the beginning of the string table */
int *public_ptr; /* A pointer to the beginning of publics table */ int *public_ptr; /* A pointer to the beginning of publics table */
char *code_ptr; /* A pointer to the bytecode itself */ char *code_ptr; /* A pointer to the bytecode itself */
@ -22,43 +23,51 @@ typedef struct {
} bytefile; } bytefile;
/* Gets a string from a string table by an index */ /* Gets a string from a string table by an index */
char* get_string (bytefile *f, int pos) { char *get_string(bytefile *f, int pos)
{
return &f->string_ptr[pos]; return &f->string_ptr[pos];
} }
/* Gets a name for a public symbol */ /* Gets a name for a public symbol */
char* get_public_name (bytefile *f, int i) { char *get_public_name(bytefile *f, int i)
{
return get_string(f, f->public_ptr[i * 2]); return get_string(f, f->public_ptr[i * 2]);
} }
/* Gets an offset for a publie symbol */ /* Gets an offset for a publie symbol */
int get_public_offset (bytefile *f, int i) { int get_public_offset(bytefile *f, int i)
{
return f->public_ptr[i * 2 + 1]; return f->public_ptr[i * 2 + 1];
} }
/* Reads a binary bytecode file by name and unpacks it */ /* Reads a binary bytecode file by name and unpacks it */
bytefile* read_file (char *fname) { bytefile *read_file(char *fname)
{
FILE *f = fopen(fname, "rb"); FILE *f = fopen(fname, "rb");
long size; long size;
bytefile *file; bytefile *file;
if (f == 0) { if (f == 0)
{
failure("%s\n", strerror(errno)); failure("%s\n", strerror(errno));
} }
if (fseek (f, 0, SEEK_END) == -1) { if (fseek(f, 0, SEEK_END) == -1)
{
failure("%s\n", strerror(errno)); failure("%s\n", strerror(errno));
} }
file = (bytefile *)malloc(sizeof(int) * 4 + (size = ftell(f))); file = (bytefile *)malloc(sizeof(int) * 4 + (size = ftell(f)));
if (file == 0) { if (file == 0)
{
failure("*** FAILURE: unable to allocate memory.\n"); failure("*** FAILURE: unable to allocate memory.\n");
} }
rewind(f); rewind(f);
if (size != fread (&file->stringtab_size, 1, size, f)) { if (size != fread(&file->stringtab_size, 1, size, f))
{
failure("%s\n", strerror(errno)); failure("%s\n", strerror(errno));
} }
@ -73,7 +82,8 @@ bytefile* read_file (char *fname) {
} }
/* Disassembles the bytecode pool */ /* Disassembles the bytecode pool */
void disassemble (FILE *f, bytefile *bf) { void disassemble(FILE *f, bytefile *bf)
{
#define INT (ip += sizeof(int), *(int *)(ip - sizeof(int))) #define INT (ip += sizeof(int), *(int *)(ip - sizeof(int)))
#define BYTE *ip++ #define BYTE *ip++
@ -84,14 +94,16 @@ void disassemble (FILE *f, bytefile *bf) {
char *ops[] = {"+", "-", "*", "/", "%", "<", "<=", ">", ">=", "==", "!=", "&&", "!!"}; char *ops[] = {"+", "-", "*", "/", "%", "<", "<=", ">", ">=", "==", "!=", "&&", "!!"};
char *pats[] = {"=str", "#string", "#array", "#sexp", "#ref", "#val", "#fun"}; char *pats[] = {"=str", "#string", "#array", "#sexp", "#ref", "#val", "#fun"};
char *lds[] = {"LD", "LDA", "ST"}; char *lds[] = {"LD", "LDA", "ST"};
do { do
{
char x = BYTE, char x = BYTE,
h = (x & 0xF0) >> 4, h = (x & 0xF0) >> 4,
l = x & 0x0F; l = x & 0x0F;
fprintf(f, "0x%.8x:\t", ip - bf->code_ptr - 1); fprintf(f, "0x%.8x:\t", ip - bf->code_ptr - 1);
switch (h) { switch (h)
{
case 15: case 15:
goto stop; goto stop;
@ -101,7 +113,8 @@ void disassemble (FILE *f, bytefile *bf) {
break; break;
case 1: case 1:
switch (l) { switch (l)
{
case 0: case 0:
fprintf(f, "CONST\t%d", INT); fprintf(f, "CONST\t%d", INT);
break; break;
@ -160,17 +173,28 @@ void disassemble (FILE *f, bytefile *bf) {
case 3: case 3:
case 4: case 4:
fprintf(f, "%s\t", lds[h - 2]); fprintf(f, "%s\t", lds[h - 2]);
switch (l) { switch (l)
case 0: fprintf (f, "G(%d)", INT); break; {
case 1: fprintf (f, "L(%d)", INT); break; case 0:
case 2: fprintf (f, "A(%d)", INT); break; fprintf(f, "G(%d)", INT);
case 3: fprintf (f, "C(%d)", INT); break; break;
default: FAIL; case 1:
fprintf(f, "L(%d)", INT);
break;
case 2:
fprintf(f, "A(%d)", INT);
break;
case 3:
fprintf(f, "C(%d)", INT);
break;
default:
FAIL;
} }
break; break;
case 5: case 5:
switch (l) { switch (l)
{
case 0: case 0:
fprintf(f, "CJMPz\t0x%.8x", INT); fprintf(f, "CJMPz\t0x%.8x", INT);
break; break;
@ -191,14 +215,26 @@ void disassemble (FILE *f, bytefile *bf) {
case 4: case 4:
fprintf(f, "CLOSURE\t0x%.8x", INT); fprintf(f, "CLOSURE\t0x%.8x", INT);
{int n = INT; {
for (int i = 0; i<n; i++) { int n = INT;
switch (BYTE) { for (int i = 0; i < n; i++)
case 0: fprintf (f, "G(%d)", INT); break; {
case 1: fprintf (f, "L(%d)", INT); break; switch (BYTE)
case 2: fprintf (f, "A(%d)", INT); break; {
case 3: fprintf (f, "C(%d)", INT); break; case 0:
default: FAIL; fprintf(f, "G(%d)", INT);
break;
case 1:
fprintf(f, "L(%d)", INT);
break;
case 2:
fprintf(f, "A(%d)", INT);
break;
case 3:
fprintf(f, "C(%d)", INT);
break;
default:
FAIL;
} }
} }
}; };
@ -240,8 +276,10 @@ void disassemble (FILE *f, bytefile *bf) {
fprintf(f, "PATT\t%s", pats[l]); fprintf(f, "PATT\t%s", pats[l]);
break; break;
case 7: { case 7:
switch (l) { {
switch (l)
{
case 0: case 0:
fprintf(f, "CALL\tLread"); fprintf(f, "CALL\tLread");
break; break;
@ -273,13 +311,14 @@ void disassemble (FILE *f, bytefile *bf) {
} }
fprintf(f, "\n"); fprintf(f, "\n");
} } while (1);
while (1); stop:
stop: fprintf (f, "<end>\n"); fprintf(f, "<end>\n");
} }
/* Dumps the contents of the file */ /* Dumps the contents of the file */
void dump_file (FILE *f, bytefile *bf) { void dump_file(FILE *f, bytefile *bf)
{
int i; int i;
fprintf(f, "String table size : %d\n", bf->stringtab_size); fprintf(f, "String table size : %d\n", bf->stringtab_size);
@ -294,7 +333,8 @@ void dump_file (FILE *f, bytefile *bf) {
disassemble(f, bf); disassemble(f, bf);
} }
int main (int argc, char* argv[]) { int main(int argc, char *argv[])
{
bytefile *f = read_file(argv[1]); bytefile *f = read_file(argv[1]);
dump_file(stdout, f); dump_file(stdout, f);
return 0; return 0;