eon/eon-unix/vars/vars.c

#ifndef VARS_C
#define VARS_C
#include "vars.h"

/*
    Author: xerox
    Date: 1/20/2020
    
    add var to hashmap of variables.
*/
static void add_var(char* p_name, variable_values* p_values, map_void_t* p_var_map)
{
    if (!p_name || !p_values)
        return;
    map_set(p_var_map, p_name, p_values);
}


/*
    Author: xerox
    Date: 1/20/2020

    get value given name and hashmap.
*/
static variable_values* get_value(char* p_name, map_void_t* p_var_map)
{
    if (!p_name)
        return NULL;
    return *map_get(&*((map_void_t* ) p_var_map), p_name);
}

/*
    Author: xerox
    Date: 1/20/2020

    makes a variable struct and define it.
*/
static variable* make_variable(char* p_name, void* value, variable_type var_type)
{
    if (!p_name || !value)
        return NULL;

    variable* new_var = malloc(sizeof(variable));
    variable_values* new_value = malloc(sizeof(variable_values));
    new_value->type = var_type;
    new_value->data_ptr = value;
    new_var->name = p_name;
    new_var->value = new_value;
    return new_var;
}

/*
    Author: xerox
    Date: 1/20/2020

    allocate memory for values that are 8 bytes or less.
*/
static void* alloc_value(void* value, variable_type var_type)
{
    if (!value)
        return NULL;

    switch (var_type)
    {
    case VAR_INT:
    {
        int* p_int = malloc(sizeof(int));
        *p_int = *(int*)value;
        return p_int;
    }
    case VAR_SHORT:
    {
        short* p_short = malloc(sizeof(short));
        *p_short = *(short*)value;
        return p_short;
    }
    case VAR_BYTE:
    {
        char* p_char = malloc(sizeof(char));
        if (!p_char)
            return NULL;
        *p_char = *(char*)value;
        return p_char;
    }
    case VAR_DOUBLE:
    {
        double* p_double = malloc(sizeof(double));
        *p_double = *(double*)value;
        return p_double;
    }
    default:
        return NULL;
    }
}

/*
    Author: xerox
    Updated: 1/19/2020

    create variable given name, value, and type.
*/
static node_info* create_variable(char* p_name, void* value, variable_type var_type)
{
    if (!p_name || !value)
        return NULL;

    node_info* new_node = malloc(sizeof(node_info));
    variable* new_var = make_variable(p_name, value, var_type);
    new_node->assignment = malloc(sizeof(assignment_operation));
    new_node->operation = ASSIGNMENT_OPERATION;
    new_node->operation_type.assignment = ASSIGN_FROM_CONST;
    new_node->assignment->var = new_var;
    new_node->statement_list = NULL;
    new_node->next = NULL;
    return new_node;
}

/*
    Author: xerox
    Updated: 1/20/2020

    Move value from one variable to another.
*/
static node_info* move_value(char* to, char* from)
{
    if (!from || !to)
        return NULL;

    node_info* new_node = malloc(sizeof(node_info));
    new_node->assignment = malloc(sizeof(*new_node->assignment));
    new_node->operation = ASSIGNMENT_OPERATION;
    new_node->operation_type.assignment = ASSIGN_FROM_VAR;
    new_node->assignment->from = from;
    new_node->assignment->to = to;
    new_node->statement_list = NULL;
    new_node->next = NULL;
    return new_node;
}
#endif