New cptr functions cptr-cast and int-cptr.

* eval.c (eval_init): Register new intrinsics cptr-cast and
int-cptr.

* lib.c (cptr_cast, int_cptr): New functions.

* lib.h (cptr_cast, int_cptr): Declared.

* txr.1: Documented.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index ffe10c84..63771912 100644
--- a/lib.h
+++ b/lib.h
@@ -961,6 +961,8 @@ val cptr_int(val n, val type_sym);
 val cptr_obj(val obj, val type_sym);
 val cptr_zap(val cptr);
 val cptr_free(val cptr);
+val cptr_cast(val to_type, val cptr);
+val int_cptr(val cptr);
 mem_t *cptr_get(val cptr);
 mem_t *cptr_handle(val cobj, val type_sym, val self);
 mem_t **cptr_addr_of(val cptr, val type_sym, val self);