From c8ceed08efcc0bdc1fcbd89bce643d9f52f0991b Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 9 Dec 2009 09:47:16 +0000 Subject: moving a few things to deprecated --- deprecated/old-lib/c/gfcc-tree.c | 61 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 61 insertions(+) create mode 100644 deprecated/old-lib/c/gfcc-tree.c (limited to 'deprecated/old-lib/c/gfcc-tree.c') diff --git a/deprecated/old-lib/c/gfcc-tree.c b/deprecated/old-lib/c/gfcc-tree.c new file mode 100644 index 000000000..6cd8759be --- /dev/null +++ b/deprecated/old-lib/c/gfcc-tree.c @@ -0,0 +1,61 @@ +#include "gfcc-tree.h" + +#include + + +extern int arity(Tree *t) { + switch (t->type) { + case ATOM_STRING: + case ATOM_INTEGER: + case ATOM_DOUBLE: + case ATOM_META: + return 0; + default: + return t->value.size; + } +} + +static Tree *create_tree(atom_type c, int n) { + Tree *t = (Tree *)malloc(sizeof(Tree) + n * sizeof(Tree *)); + t->type = c; + return t; +} + +extern Tree *tree_string(const char *s) { + Tree *t = create_tree(ATOM_STRING, 0); + t->value.string_value = s; + return t; +} + +extern Tree *tree_integer(int i) { + Tree *t = create_tree(ATOM_INTEGER, 0); + t->value.integer_value = i; + return t; +} + +extern Tree *tree_double(double d) { + Tree *t = create_tree(ATOM_DOUBLE, 0); + t->value.double_value = d; + return t; +} + +extern Tree *tree_meta() { + return create_tree(ATOM_META, 0); +} + +extern Tree *tree_fun(atom_type f, int n) { + Tree *t = create_tree(f, n); + t->value.size = n; + return t; +} + + +extern void tree_free(Tree *t) { + int n = arity(t); + int i; + + for (i = 0; i < n; i++) { + tree_free(tree_get_child(t,i)); + } + free(t); +} -- cgit v1.2.3