ffi: array support.

* ffi.c (array_s): New symbol variable.
(ffi_array_put, ffi_array_get, ffi_array_fill,
make_ffi_type_array): New static functions.
(ffi_type_compile): Support (array <dim> <type>)
syntax.
(ffi_init): Initialize array_s.

* ffi.h (array_s): Declared.

1 files changed, 2 insertions, 0 deletions

diff --git a/ffi.h b/ffi.h
index 1c437fd6..79b5dd2e 100644
--- a/ffi.h
+++ b/ffi.h
@@ -41,6 +41,8 @@ extern val wstr_s;
 
 extern val ptr_in_s, ptr_out_s, ptr_in_out_s;
 
+extern val array_s;
+
 extern val void_s;
 
 extern val ffi_type_s, ffi_call_desc_s;