ground/cground
3
2
Fork 1
Code Issues 2 Pull Requests Actions Packages Projects Releases Wiki Activity

Start work on interpreter

Browse Source
This commit is contained in:
Maxwell
2025-11-23 18:34:30 +11:00
parent 31cc30ee48
commit a69901be7b
7 changed files with 1460 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

196
src/types.c
View File

@@ -1,4 +1,5 @@
#include "types.h"
#include <inttypes.h>
GroundValue createIntGroundValue(int64_t in) {
GroundValue gv;
@@ -35,6 +36,39 @@ GroundValue createBoolGroundValue(bool in) {
return gv;
}
void printGroundValue(GroundValue* gv) {
switch (gv->type) {
case INT: {
printf("%" PRId64 "", gv->data.intVal);
break;
}
case DOUBLE: {
printf("%f", gv->data.doubleVal);
break;
}
case STRING: {
printf("%s", gv->data.stringVal);
break;
}
case CHAR: {
printf("%c", gv->data.charVal);
break;
}
case BOOL: {
if (gv->data.boolVal) {
printf("true");
} else {
printf("false");
}
break;
}
default: {
printf("FIXME");
break;
}
}
}
void freeGroundValue(GroundValue* gv) {
if (gv->type == STRING && gv->data.stringVal != NULL) {
free(gv->data.stringVal);
@@ -63,6 +97,39 @@ void freeGroundArg(GroundArg* ga) {
}
}
void printGroundArg(GroundArg* ga) {
switch (ga->type) {
case VALUE: {
printGroundValue(&ga->value.value);
break;
}
case DIRREF: {
printf("&%s", ga->value.refName);
break;
}
case VALREF: {
printf("$%s", ga->value.refName);
break;
}
case LINEREF: {
printf("%%%s", ga->value.refName);
break;
}
case LABEL: {
printf("@%s", ga->value.refName);
break;
}
case FNREF: {
printf("!%s", ga->value.refName);
break;
}
case TYPEREF: {
printf("-%s", ga->value.refName);
break;
}
}
}
GroundInstruction createGroundInstruction(GroundInstType type) {
GroundInstruction gi;
gi.type = type;
@@ -88,3 +155,132 @@ void addArgToInstruction(GroundInstruction* gi, GroundArg arg) {
gi->args.args[gi->args.length - 1] = arg;
}
void printGroundInstruction(GroundInstruction* gi) {
switch (gi->type) {
case IF:
printf("if");
break;
case JUMP:
printf("jump");
break;
case END:
printf("end");
break;
case INPUT:
printf("input");
break;
case PRINT:
printf("print");
break;
case PRINTLN:
printf("println");
break;
case SET:
printf("set");
break;
case GETTYPE:
printf("gettype");
break;
case EXISTS:
printf("exists");
break;
case SETLIST:
printf("setlist");
break;
case SETLISTAT:
printf("setlistat");
break;
case GETLISTAT:
printf("getlistat");
break;
case GETLISTSIZE:
printf("getlistsize");
break;
case LISTAPPEND:
printf("listappend");
break;
case GETSTRSIZE:
printf("getstrsize");
break;
case GETSTRCHARAT:
printf("getstrcharat");
break;
case ADD:
printf("add");
break;
case SUBTRACT:
printf("subtract");
break;
case MULTIPLY:
printf("multiply");
break;
case DIVIDE:
printf("divide");
break;
case EQUAL:
printf("equal");
break;
case INEQUAL:
printf("inequal");
break;
case NOT:
printf("not");
break;
case GREATER:
printf("greater");
break;
case LESSER:
printf("lesser");
break;
case STOI:
printf("stoi");
break;
case STOD:
printf("stod");
break;
case TOSTRING:
printf("tostring");
break;
case FUN:
printf("fun");
break;
case RETURN:
printf("return");
break;
case ENDFUN:
printf("endfun");
break;
case PUSHARG:
printf("pusharg");
break;
case CALL:
printf("call");
break;
case STRUCT:
printf("struct");
break;
case ENDSTRUCT:
printf("endstruct");
break;
case INIT:
printf("init");
break;
case USE:
printf("use");
break;
case EXTERN:
printf("extern");
break;
case CREATELABEL:
printf("createlabel");
break;
default:
printf("FIXME");
break;
}
printf(" ");
for (int i = 0; i < gi->args.length; i++) {
printGroundArg(&gi->args.args[i]);
printf(" ");
}
}