test

[calc.git] / argument.c

#include <stdio.h>

#include "parser.h"
#include "tabular.h"

#include "argument.h"

/* global variables */

tab_t *argument = NULL;

/* argument management */

/* get argument */

double arg (int n)
{
    return get_tab (argument, n);
}

/* set arguments */

double def (int nbops, element_t **ops)
{
    int i;
    tab_t *new = alloc_tab (nbops);
    for (i = 0; i < nbops; i++) {
        double val = evaluate_element (ops[i], 0);
        VERBOSE (DEBUG, fprintf (stdout, "arg[%d] = %g\n", i + i, val));
        set_tab (new, i + 1, val);
    }
    free_tab (argument);
    argument = new;
    return size_tab (argument);
}

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