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, 25 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 4de39f4e..829a9b99 100644
--- a/lib.c
+++ b/lib.c
@@ -7402,6 +7402,31 @@ val cptr(mem_t *ptr)
   return cobj(ptr, cptr_s, &cptr_ops);
 }
 
+val cptr_int(val n)
+{
+  return if3(missingp(n), cptr(0), cptr(coerce(mem_t *, c_num(n))));
+}
+
+val cptr_obj(val obj)
+{
+  return cptr(coerce(mem_t *, obj));
+}
+
+val cptr_zap(val cptr)
+{
+  (void) cobj_handle(cptr, cptr_s);
+  cptr->co.handle = 0;
+  return cptr;
+}
+
+val cptr_free(val cptr)
+{
+  (void) cobj_handle(cptr, cptr_s);
+  free(cptr->co.handle);
+  cptr->co.handle = 0;
+  return cptr;
+}
+
 mem_t *cptr_get(val cptr)
 {
   return cobj_handle(cptr, cptr_s);