main.c

#include <stdio.h>
#include <stdlib.h>
#include <stdbool.h>
#include <string.h>
#include <sys/time.h>

#include "getline.h"

#include "debug.h"
#include "desc.h"
#include "prim.h"
#include "parse.h"
#include "code.h"
#include "mem.h"

int main ( int argc, char *argv[] )
{
    init_mem();
    init_desc();
    init_prim();

    char* input = "..\\tests\\nfib.bsapl";
    
    if ( argc == 2 )
    {
        input = argv[1];
    }

    FILE* file = fopen(input, "r");
    char* line = NULL;
    size_t bufsize = 0;
    size_t len = 0;

    if ( file == 0 )
    {
        printf( "Could not open file\n" );
    }
    else 
    {	
        len = getline(&line, &bufsize, file);
        if(len == -1)
        {
            printf( "No Input\n" );
        }
			
        fclose( file );
        if(len == -1) exit(-1);
    }

#ifdef DEBUG
    printf("sizeof(int): %d, sizeof(long): %d, sizeof(void*): %d, sizeof(Thunk): %d\n\n", 
            sizeof(int), sizeof(long), sizeof(void*), sizeof(Thunk));
#endif
    
    int nrfuns = parse(&line, len);

#ifdef DEBUG
    printf("Number of functions parsed: %d\n", nrfuns);
#endif

    // TODO: put it into a special "expression" space, instead of "code"
    char *exprstream = "VF4 main";

    Code* expr = parseTerm(&exprstream);
    
#ifdef DEBUG
    struct timeval t1, t2;
    gettimeofday(&t1, NULL);
#endif
    
    exec(expr, stack_top_a, stack_top_a, NULL, true);
    Thunk* res = eval(pop_a());
    
#ifdef DEBUG
    gettimeofday(&t2, NULL);
#endif    
    
    print(res, true);

#ifdef DEBUG
    // compute and print the elapsed time in millisec
    double elapsedTime = (t2.tv_sec - t1.tv_sec) * 1000.0;      // sec to ms
    elapsedTime += (t2.tv_usec - t1.tv_usec) / 1000.0;   // us to ms
    
    printf("\n\nexecution time: %G ms\n", elapsedTime);
    print_stat();
#endif
}