ffi: functions and macros for basic type properties.

* ffi.c (ffi_alignof, ffi_offsetof, ffi_arraysize,
ffi_elemsize, ffi_elemtype): New functions.
(ffi_init): Registered intrinsics ffi-alignof, ffi-offsetof,
ffi-arraysize, ffi-elemsize, ffi-elemtype.

* ffi.h (ffi_alignof, ffi_offsetof, ffi_arraysize,
ffi_elemsize, ffi_elemtype): Declared.

* lisplib.c (ffi_set_entries): New autoload entries alignof,
offsetof, arraysize, elemsize, elemtype.

* share/txr/stdlib/ffi.tl (alignof, offsetof, arraysize,
elemsize, elemtype): New macros.

* txr.1: Documented new functions and macros.

1 files changed, 3 insertions, 2 deletions

diff --git a/lisplib.c b/lisplib.c
index df5e9a93..f8ce2f47 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -524,8 +524,9 @@ static val ffi_set_entries(val dlt, val fun)
 {
   val name[] = {
     lit("with-dyn-lib"), lit("deffi"), lit("deffi-type"), lit("deffi-cb"),
-    lit("deffi-var"), lit("typedef"), lit("sizeof"), lit("ffi"),
-    lit("carray-ref"),
+    lit("deffi-var"), lit("typedef"), lit("sizeof"), lit("alignof"),
+    lit("offsetof"), lit("arraysize"), lit("elemsize"), lit("elemtype"),
+    lit("ffi"), lit("carray-ref"),
     nil
   };
   set_dlt_entries(dlt, name, fun);