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