move all code relative to readline into separate file

[calc.git] / element.c

#include <malloc.h>

#include "alloc.h"

#include "element.h"

/* global variables */

/* allocate new element */

element_t *newelement (func_t function, int nbops, int prio)
{
    element_t *new = (element_t *) callocordie (1, sizeof (element_t));
    if (nbops) {
        new->ops = (element_t **) callocordie (nbops, sizeof (element_t *));
    }
    new->func = function;
    new->nbops = nbops;
    new->prio = prio;

    return new;
}

/* desallocate element */

void delelement (element_t *root)
{
    if ((root != NULL) && (root != ERROR_OP)) {
        int i;
        for (i = 0; i < root->nbops; i++) {
            delelement (root->ops[i]);
        }
        if (root->nbops) {
            free (root->ops);
        }
        free (root);
    }
}

/* duplicate element */

element_t *dupelement (element_t *root)
{
    element_t *tmp = NULL;
    int i;

    if ((root == NULL) || (root == ERROR_OP)) {
        return root;
    }
    tmp = newelement (root->func, root->nbops, root->prio);
    tmp->value = root->value;
    for (i = 0; i < root->nbops; i++) {
        tmp->ops[i] = dupelement (root->ops[i]);
    }
    return tmp;
}

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