+#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: */