lonely-tiger/Script.c

#include <stdarg.h>
#include <stdbool.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "Operation.h"
#include "Script.h"

static void sError(Script* sc, const char* format, ...) {
    va_list args;
    va_start(args, format);
    vsnprintf(sc->error, SCRIPT_ERROR_SIZE, format, args);
    va_end(args);
}

static bool sPrinter(Object* o) {
    switch(o->type) {
        case OT_INT: printf("%d\n", o->data.intValue); return false;
        case OT_FLOAT: printf("%.2f\n", o->data.floatValue); return false;
        case OT_NULL: printf("null\n"); return false;
        case OT_BOOL: printf(o->data.intValue ? "true\n" : "false\n"); return false;
    }
    return true;
}

static ObjectPrinter printer = sPrinter;

static bool sRead(Script* sc, void* buffer, int length) {
    if(sc->readIndex + length > sc->code->length) {
        sError(sc, "cannot read expected %d bytes of data from bytecode on line %d", sc->line);
        return true;
    }
    memcpy(buffer, sc->code->code + sc->readIndex, length);
    sc->readIndex += length;
    return false;
}

static Operation sReadOperation(Script* sc) {
    unsigned char c;
    if(sRead(sc, &c, 1)) {
        return OP_NOTHING;
    }
    return c;
}

static bool sReadInt(Script* sc, int* i) {
    return !sRead(sc, i, sizeof(int));
}

static bool sShiftPush(Script* sc, Object* o, int shift) {
    if(sc->stackIndex >= SCRIPT_STACK_SIZE) {
        sError(sc, "stack overflow on line %d", sc->line);
        return false;
    } else if(sc->stackIndex < shift) {
        sError(sc, "stack shift underflow overflow on line %d", sc->line);
        return false;
    }
    for(int i = sc->stackIndex; i > sc->stackIndex - shift; i--) {
        sc->stack[i] = sc->stack[i - 1];
    }
    sc->stack[sc->stackIndex - shift] = *o;
    sc->stackIndex++;
    return true;
}

static bool sPush(Script* sc, Object* o) {
    if(sc->stackIndex >= SCRIPT_STACK_SIZE) {
        sError(sc, "stack overflow on line %d", sc->line);
        return false;
    }
    sc->stack[sc->stackIndex++] = *o;
    return true;
}

static bool sPop(Script* sc, Object* o) {
    if(sc->stackIndex <= 0) {
        sError(sc, "stack underflow on line %d", sc->line);
        return true;
    }
    *o = sc->stack[--sc->stackIndex];
    return false;
}

static bool sPushInt(Script* sc, int value) {
    Object o = {.type = OT_INT, .data.intValue = value};
    return sPush(sc, &o);
}

static bool sShiftPushInt(Script* sc, int value, int shift) {
    Object o = {.type = OT_INT, .data.intValue = value};
    return sShiftPush(sc, &o, shift);
}

static void sPushFloat(Script* sc, float value) {
    Object o = {.type = OT_FLOAT, .data.floatValue = value};
    sPush(sc, &o);
}

static void sPushNull(Script* sc) {
    Object o = {.type = OT_NULL};
    sPush(sc, &o);
}

static void sPushBool(Script* sc, bool value) {
    Object o = {.type = OT_BOOL, .data.intValue = value};
    sPush(sc, &o);
}

static void sPushVars(Script* sc) {
    int vars = 0;
    int offset = 0;
    if(sReadInt(sc, &vars) && sReadInt(sc, &offset)) {
        int stackVarIndex = sc->stackVarIndex;
        sc->stackVarIndex = sc->stackIndex - offset;
        for(int i = 0; i < vars - offset; i++) {
            sPushNull(sc);
        }
        sPushInt(sc, stackVarIndex);
    }
}

static void sPopVars(Script* sc) {
    int value = 0;
    Object o;
    if(sReadInt(sc, &value) && !sPop(sc, &o)) {
        if(o.type != OT_INT) {
            sError(sc, "stack variable index has wrong type");
            return;
        }
        sc->stackVarIndex = o.data.intValue;
        if(sc->stackIndex < value) {
            sError(sc, "stack underflow on line %d", sc->line);
        } else {
            sc->stackIndex -= value;
        }
    }
}

static void sSet(Script* sc) {
    int value = 0;
    if(sReadInt(sc, &value)) {
        sPop(sc, sc->stack + value + sc->stackVarIndex);
    }
}

static void sGet(Script* sc) {
    int value = 0;
    if(sReadInt(sc, &value)) {
        sPush(sc, sc->stack + value + sc->stackVarIndex);
    }
}

static void sPushCodeInt(Script* sc) {
    int value = 0;
    if(sReadInt(sc, &value)) {
        sPushInt(sc, value);
    }
}

static void sPushCodeFloat(Script* sc) {
    float value = 0;
    if(sRead(sc, &value, sizeof(float))) {
        sError(sc, "cannot read a float from the bytecode on line %d", sc->line);
        return;
    }
    sPushFloat(sc, value);
}

static bool sToFloat(Script* sc, Object* o, float* r) {
    if(o->type == OT_FLOAT) {
        *r = o->data.floatValue;
        return true;
    } else if(o->type == OT_INT) {
        *r = o->data.intValue;
        return true;
    }
    sError(sc, "object is not a number on line %d", sc->line);
    return false;
}

static void sIntBinary(Script* sc, int (*fInt)(int, int), float (*fFloat)(float, float)) {
    Object o[2];
    if(sPop(sc, o) || sPop(sc, o + 1)) {
        return;
    }
    if(o[0].type == OT_INT && o[1].type == OT_INT) {
        sPushInt(sc, fInt(o[0].data.intValue, o[1].data.intValue));
        return;
    }
    float f[2];
    if(sToFloat(sc, o, f) && sToFloat(sc, o + 1, f + 1)) {
        sPushFloat(sc, fFloat(f[0], f[1]));
    }
}

static int sIntAdd(int a, int b) {
    return a + b;
}

static int sIntMul(int a, int b) {
    return a * b;
}

static float sFloatAdd(float a, float b) {
    return a + b;
}

static float sFloatMul(float a, float b) {
    return a * b;
}

static void sPrint(Script* sc) {
    Object o;
    if(!sPop(sc, &o) && printer(&o)) {
        sError(sc, "cannot print given object on line %d", sc->line);
    }
}

static void sLine(Script* sc) {
    if(sRead(sc, &sc->line, 2)) {
        sError(sc, "line operation without a line near line %d", sc->line);
    }
}

static void sGoTo(Script* sc) {
    int gotoIndex;
    if(sReadInt(sc, &gotoIndex)) {
        sc->readIndex = gotoIndex;
    }
}

static void sGoSub(Script* sc) {
    int gotoIndex;
    int arguments;
    if(sReadInt(sc, &gotoIndex) && sReadInt(sc, &arguments) && sShiftPushInt(sc, sc->readIndex, arguments)) {
        sc->readIndex = gotoIndex;
    }
}

static void sReturn(Script* sc) {
    Object o;
    if(sPop(sc, &o)) {
        return;
    } else if(o.type != OT_INT) {
        sError(sc, "return address on stack is not an int");
        return;
    }
    sc->readIndex = o.data.intValue;
}

static void sConsumeInstruction(Script* sc) {
    switch(sReadOperation(sc)) {
        case OP_NOTHING: break;
        case OP_PUSH_INT: sPushCodeInt(sc); break;
        case OP_PUSH_FLOAT: sPushCodeFloat(sc); break;
        case OP_PUSH_NULL: sPushNull(sc); break;
        case OP_PUSH_TRUE: sPushBool(sc, true); break;
        case OP_PUSH_FALSE: sPushBool(sc, false); break;
        case OP_PUSH: sPushVars(sc); break;
        case OP_POP: sPopVars(sc); break;
        case OP_SET: sSet(sc); break;
        case OP_GET: sGet(sc); break;
        case OP_ADD: sIntBinary(sc, sIntAdd, sFloatAdd); break;
        case OP_MUL: sIntBinary(sc, sIntMul, sFloatMul); break;
        case OP_PRINT: sPrint(sc); break;
        case OP_LINE: sLine(sc); break;
        case OP_GOTO: sGoTo(sc); break;
        case OP_GOSUB: sGoSub(sc); break;
        case OP_RETURN: sReturn(sc); break;
    }
}

static bool sHasData(Script* sc) {
    return sc->readIndex < sc->code->length;
}

Script* sInit(ByteCode* code) {
    Script* sc = malloc(sizeof(Script));
    sc->error[0] = '\0';
    sc->code = code;
    sc->readIndex = 0;
    sc->stackIndex = 0;
    sc->stackVarIndex = 0;
    sc->line = 0;
    return sc;
}

void sDelete(Script* sc) {
    bcDelete(sc->code);
    free(sc);
}

void sRun(Script* sc) {
    while(sHasData(sc)) {
        sConsumeInstruction(sc);
        if(sc->error[0] != '\0') {
            puts(sc->error);
            return;
        }
    }
}

void sSetPrinter(ObjectPrinter p) {
    printer = p;
}