fix bracket evaluation

[calc.git] / storage.c

#include <malloc.h>
#include <math.h>
#include <stdio.h>

#include "alloc.h"
#include "debug.h"
#include "format.h"
#include "tabular.h"

#include "storage.h"

/* global variables */

#define DEFAULT_STORAGE_SIZE 10
tab_t *storage = NULL;

/* storage functions */

int memory (int nb)
{
    if ((nb != -1) && (nb != size_tab (storage))) {
        storage = resize_tab (storage, nb);
    }
    if (nb == -1) {
        memory (DEFAULT_STORAGE_SIZE);
    }
    return size_tab (storage);
}

double store (int id, double value)
{
    if (storage == NULL) {
        memory (DEFAULT_STORAGE_SIZE);
    }
    return set_tab (storage, id, value);
}

double recall (int id)
{
    if (storage == NULL) {
        memory (DEFAULT_STORAGE_SIZE);
    }
    return get_tab (storage, id);
}

double increase (int id)
{
    if (storage == NULL) {
        memory (DEFAULT_STORAGE_SIZE);
    }
    double val = get_tab (storage, id);
    if (!isnan (val)) {
        set_tab (storage, id, ++val);
    }
    return val;
}

double decrease (int id)
{
    if (storage == NULL) {
        memory (DEFAULT_STORAGE_SIZE);
    }
    double val = get_tab (storage, id);
    if (!isnan (val)) {
        set_tab (storage, id, --val);
    }
    return val;
}

void display (void)
{
    if (storage == NULL) {
        memory (DEFAULT_STORAGE_SIZE);
    }
    int i, n = size_tab (storage);
    printf ("storage:");
    for (i = 0; i < n; i++) {
        printf (" ");
        printl (get_tab (storage, i + 1));
    }
    printf ("\n");
}

void clear ()
{
    if (storage == NULL) {
        memory (DEFAULT_STORAGE_SIZE);
    }
    int i, n = size_tab (storage);
    for (i = 0; i < n; i++) {
        set_tab (storage, i, 0);
    }
}

/* vim: set ts=4 sw=4 et: */