Erythro/src/Pointers.c

/*************/
/*GEMWIRE    */
/*    ERYTHRO*/
/*************/

#include <Defs.h>
#include <Data.h>

int PointerTo(int Type) {

    printf("\t\tPointerising a %s\n", TypeNames[Type]);
    // As it stands, the conversion between
    // RET and PTR is +4.
    // TODO: if we add types, increase this number
    // TODO: Make this a proper translation table
    // TODO: More checks! This can go wrong easily!
    if(Type >= RET_CHAR && Type <= RET_VOID) {
        return Type + 4;
    } else {
        DieDecimal("Unable to create a pointer to the desired type", Type);
    }

    return -1;
}

int ValueAt(int Type) {

    printf("\t\tDereferencing a %s\n", TypeNames[Type]);
    //TODO: this is still bullshittery!
    if(Type >= PTR_CHAR && Type <= PTR_VOID) {
        return Type - 4;
    } else {
        DieDecimal("Unable to dereference type", Type);
    }
    return -1;
}

int ParseOptionalPointer() {

    int Type;
    // TODO: THIS IS WRONG AND SHOULD NOT EXIST
    // TY_CHAR is 22, RET_CHAR is 1.
    // Offset is 20. Rest are in order

    if(CurrentToken.type >= TY_CHAR && CurrentToken.type <= TY_VOID) {
        Type = CurrentToken.type - 21;
        printf("\t\tConverting a %d type to a %d type.\n", CurrentToken.type, Type);
    } else {
        DieDecimal("Illegal type for pointerisation", CurrentToken.type);
    }
    // Recursively scan more *s
    // This makes things like:
    // x = **y;
    // possible.
    while(1) {
        Tokenise(&CurrentToken);
        printf("\t\t\tType on parsing is %d\n", CurrentToken.type);
        if(CurrentToken.type != AR_STAR)
            break;
        
        Type = PointerTo(Type);
    }

    return Type;
}