loadfile.c

Go to the documentation of this file.

#include <stdio.h>
#include <errno.h>
#include <string.h>
#include <stdlib.h>
 
#include "loadfile.h"
#include "token_t.h"
#include "tokenFunc.h"
#include "logging.h"
 
int read_token(FILE* f, Token* t) {
    t->binSize = 0;
 
    int seen_whitespace = 1, eol = 0;
    int ptr, c;
 
    // -1 for trailing nullbyte
    for (ptr = 0; ptr < TOKEN_BUFFER_SIZE - 1;) {
        // read char
        c = fgetc(f);
 
        // stop condition
        if (c == EOF || c == '\n') {
            break;
        }
 
        if (c == '\r') continue; // damn line endings!
 
        // don't write if already reached a comment
        if (eol)
            continue;
 
        // whitespace handling
        if (c == '\t' || c == ' ') {
            if (!seen_whitespace) {
                c = ' ';
                seen_whitespace = 1;
            } else {
                continue;
            }
        } else { // all othet chars
            seen_whitespace = 0;
 
            // mark comment
            if (c == ';') {
                eol = 1;
                continue;
            }
        }
 
        // tha actual write
        // continues skipt this
        t->stripped[ptr++] = c;
    }
 
    // too long line
    if (ptr == TOKEN_BUFFER_SIZE - 1) {
        t->len = ptr;
        return -1;
    }
 
    // kill trailing whitespace
    if (t->stripped[ptr - 1] == ' ')
        ptr--;
 
    // zero-terminate
    t->stripped[ptr] = 0;
    // len
    t->len = ptr;
    t->instr.number = 0;
 
    // log
    if (ptr > 0) {
        LOG(5, "READ TOKEN:\n");
        LOGDO(5, token_print(t));
    }
 
    // EOF return
    if (c == EOF)
        return 0;
 
    return 1;
}
 
TokensList* read_file(char* name) {
 
    // basic file open
    FILE* f = fopen(name, "r");
    if (f == NULL) {
        ERROR("An error occured opening the file %s!\n", name);
        ERROR("Error opening file: %s\n", strerror(errno));
        return NULL;
    }
 
    TokensList* tokenslist = tokenslist_new();
    if (tokenslist == NULL) goto ERR_MEM;
    Token tok;
    int lineno = 1;
    int res;
 
    // reading tokens while possible
    do {
        res = read_token(f, &tok);
        if (tok.len > 0) {
            strncpy(tok.source.fname, name, TOKEN_SOURCE_FILE_SIZE - 1);
            tok.source.fname[TOKEN_SOURCE_FILE_SIZE - 1] = 0;
            tok.source.lineno = lineno;
            if (tokenslist_add(tokenslist, tok) < 0) goto ERR_MEM;
        }
        lineno++;
    } while (res > 0);
 
    fclose(f);
 
    // return error if stopped due to reading error
    if (res < 0) {
        ERROR("line is too long!\n");
        token_print(&tok);
        tokenslist_free(tokenslist);
        return NULL;
    }
    return tokenslist;
ERR_MEM:
 
    FAIL("read_file() failed!\n");
    fclose(f);
    tokenslist_free(tokenslist);
    return NULL;
}
 
// documented in header
TokensList* load_file(char* name) {
    LOG(3, "Reading file...\n");
 
    TokensList* list = read_file(name);
    if (list == NULL)
        goto ERROR;
 
    LOG(3, "Running first analysis...\n");
    if (tokenslist_recognize(list) < 0)
        goto ERROR;
 
    return list;
 
ERROR:
    FAIL("Failed to load file contents: '%s'\n", name);
    tokenslist_free(list);
    return NULL;
}