ffi: new carray-get and carray-put functions.

* ffi.c (struct carray): New member, artype.
(carray_mark_op): Mark artype member.
(make_carray): Initialize artype to nil.
(carray_ensure_artype, carray_get_common, carray_put_common):
New static functions.
(carray_get, carray_getz, carray_put, carray_putz): New
functions.
(ffi_init): Register intrinsics carray-get, carray-getz,
carray-put, carray-putz.

* ffi.h (carray_get, carray_getz, carray_put, carray_putz):
Declared.

* txr.1: Documented new functions.

1 files changed, 4 insertions, 0 deletions

diff --git a/ffi.h b/ffi.h
index bf46c8a6..88557b7b 100644
--- a/ffi.h
+++ b/ffi.h
@@ -103,4 +103,8 @@ val vec_carray(val carray, val null_term_p);
 val list_carray(val carray, val null_term_p);
 val carray_ref(val carray, val idx);
 val carray_refset(val carray, val idx, val newval);
+val carray_get(val carray);
+val carray_getz(val carray);
+val carray_put(val array, val seq);
+val carray_putz(val array, val seq);
 void ffi_init(void);