From 5cb27535f5f0cdbcc0eca8976cac47bd178ae230 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 9 May 2021 18:14:20 -0700 Subject: tree: expose insert, lookup and delete functions. * tree.c (tree_insert, tree_lookup_node, tree_delete_node, tree_delete): Switch internal linkage to external linkage. * tree.h (tree_insert, tree_lookup_node, tree_delete_node, tree_delete): Declared. --- tree.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'tree.c') diff --git a/tree.c b/tree.c index 2a5334a2..1f9bd9ff 100644 --- a/tree.c +++ b/tree.c @@ -519,32 +519,32 @@ val tree_insert_node(val tree, val node) return node; } -static val tree_insert(val tree, val key) +val tree_insert(val tree, val key) { return tree_insert_node(tree, tnode(key, nil, nil)); } -static val tree_lookup_node(val tree, val key) +val tree_lookup_node(val tree, val key) { val self = lit("tree-lookup-node"); struct tree *tr = coerce(struct tree *, cobj_handle(self, tree, tree_s)); return tr_lookup(tr, key); } -static val tree_lookup(val tree, val key) +val tree_lookup(val tree, val key) { val node = tree_lookup_node(tree, key); return if2(node, node->tn.key); } -static val tree_delete_node(val tree, val key) +val tree_delete_node(val tree, val key) { val self = lit("tree-delete-node"); struct tree *tr = coerce(struct tree *, cobj_handle(self, tree, tree_s)); return tr_delete(tree, tr, key); } -static val tree_delete(val tree, val key) +val tree_delete(val tree, val key) { val node = tree_delete_node(tree, key); return if2(node, node->tn.key); -- cgit v1.2.3