cptr-int and cptr-obj can make typed cptr objects.

* eval.c (eval_init): Update registration of cptr-int and
cptr-obj with one optional argument.

* lib.c (cptr_int): New type symbol argument, defaulting
to nil. Also, don't bother defaulting the integer argument;
the function isn't registered for that being optional.
(cptr_obj): New type symbol argument, defaulting to nil.

* lib.h (cptr_int, cptr_obj): Declarations updated.

* txr.1: Documented cptr-int and cptr-obj function changes.
Added discussion of type tag to introductory paragraph.
Also added neglected documentation of the FFI cptr type,
both unparametrized and parametrized.

1 files changed, 6 insertions, 4 deletions

diff --git a/lib.c b/lib.c
index bf51d9df..80d056b4 100644
--- a/lib.c
+++ b/lib.c
@@ -7531,14 +7531,16 @@ val cptr_type(val cptr)
   return cptr->co.cls;
 }
 
-val cptr_int(val n)
+val cptr_int(val n, val type_sym_in)
 {
-  return if3(missingp(n), cptr(0), cptr(coerce(mem_t *, c_num(n))));
+  val type_sym = default_null_arg(type_sym_in);
+  return cptr_typed(coerce(mem_t *, c_num(n)), type_sym, 0);
 }
 
-val cptr_obj(val obj)
+val cptr_obj(val obj, val type_sym_in)
 {
-  return cptr(coerce(mem_t *, obj));
+  val type_sym = default_null_arg(type_sym_in);
+  return cptr_typed(coerce(mem_t *, obj), type_sym, 0);
 }
 
 val cptr_zap(val cptr)