cptr: new functions.

* eval.c (eval_init): Register cptr-int, ctpr-obj, cptr-zap
and cptr-free functions and cptr-null variable.

* lib.c (cptr_int, cptr_obj, cptr_zap, cptr_free): New
functions.

* lib.c (cptr_int, cptr_obj, cptr_zap, cptr_free): Declared.

1 files changed, 4 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 814b0621..b5593475 100644
--- a/lib.h
+++ b/lib.h
@@ -938,6 +938,10 @@ val cobjp(val obj);
 mem_t *cobj_handle(val cobj, val cls_sym);
 struct cobj_ops *cobj_ops(val cobj, val cls_sym);
 val cptr(mem_t *ptr);
+val cptr_int(val n);
+val cptr_obj(val obj);
+val cptr_zap(val cptr);
+val cptr_free(val cptr);
 mem_t *cptr_get(val cptr);
 mem_t **cptr_addr_of(val cptr);
 val assoc(val key, val list);