[calc.git] / argument.c

#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;
    argument = resize_tab (argument, nbops);
    for (i = 0; i < nbops; i++) {
        set_tab (argument, i + 1, evaluate_element (ops[i], 0));
    }
    return size_tab (argument);
}

/* vim: set ts=4 sw=4 et: */
Commit	Line	Data
c91672f9 LM	1	#include "parser.h"
	2	#include "tabular.h"
	3
	4	#include "argument.h"
	5
	6	/* global variables */
	7
	8	tab_t *argument = NULL;
	9
	10	/* argument management */
	11
	12	/* get argument */
	13
	14	double arg (int n)
	15	{
	16	return get_tab (argument, n);
	17	}
	18
	19	/* set arguments */
	20
	21	double def (int nbops, element_t **ops)
	22	{
	23	int i;
	24	argument = resize_tab (argument, nbops);
	25	for (i = 0; i < nbops; i++) {
	26	set_tab (argument, i + 1, evaluate_element (ops[i], 0));
	27	}
	28	return size_tab (argument);
	29	}
	30
	31	/* vim: set ts=4 sw=4 et: */