summaryrefslogtreecommitdiff
path: root/libguile/foreign.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-01-18 12:16:13 +0100
committerAndy Wingo <wingo@pobox.com>2010-01-26 22:56:41 +0100
commitab4779ffcfb463201d46459e06b9188dd5f1cbda (patch)
tree9476b22f0bddf76ca18cdc0fc5017773a9b42b18 /libguile/foreign.c
parent52fd9639fdeee068434342e1bdb8693b05ecac5c (diff)
downloadguile-ab4779ffcfb463201d46459e06b9188dd5f1cbda.tar.gz
move foreign function interface to its own module
* libguile/foreign.h: * libguile/init.c: Change so that init just registers an extension, later called by foreign.scm. * libguile/foreign.c (scm_init_foreign): Define constants for the various foreign types. * module/Makefile.am: * module/system/foreign.scm: New module, for the foreign function interface.
Diffstat (limited to 'libguile/foreign.c')
-rw-r--r--libguile/foreign.c33
1 files changed, 32 insertions, 1 deletions
diff --git a/libguile/foreign.c b/libguile/foreign.c
index ec76a00aa..224f06ce3 100644
--- a/libguile/foreign.c
+++ b/libguile/foreign.c
@@ -26,6 +26,18 @@
+SCM_SYMBOL (sym_void, "void");
+SCM_SYMBOL (sym_float, "float");
+SCM_SYMBOL (sym_double, "double");
+SCM_SYMBOL (sym_uint8, "uint8");
+SCM_SYMBOL (sym_int8, "int8");
+SCM_SYMBOL (sym_uint16, "uint16");
+SCM_SYMBOL (sym_int16, "int16");
+SCM_SYMBOL (sym_uint32, "uint32");
+SCM_SYMBOL (sym_int32, "int32");
+SCM_SYMBOL (sym_uint64, "uint64");
+SCM_SYMBOL (sym_int64, "int64");
+
static void
foreign_finalizer_trampoline (GC_PTR ptr, GC_PTR data)
{
@@ -308,12 +320,31 @@ scm_i_foreign_print (SCM foreign, SCM port, scm_print_state *pstate)
-void
+static void
scm_init_foreign (void)
{
#ifndef SCM_MAGIC_SNARFER
#include "libguile/foreign.x"
#endif
+ scm_define (sym_void, scm_from_uint8 (SCM_FOREIGN_TYPE_VOID));
+ scm_define (sym_float, scm_from_uint8 (SCM_FOREIGN_TYPE_FLOAT));
+ scm_define (sym_double, scm_from_uint8 (SCM_FOREIGN_TYPE_DOUBLE));
+ scm_define (sym_uint8, scm_from_uint8 (SCM_FOREIGN_TYPE_UINT8));
+ scm_define (sym_int8, scm_from_uint8 (SCM_FOREIGN_TYPE_INT8));
+ scm_define (sym_uint16, scm_from_uint8 (SCM_FOREIGN_TYPE_UINT16));
+ scm_define (sym_int16, scm_from_uint8 (SCM_FOREIGN_TYPE_INT16));
+ scm_define (sym_uint32, scm_from_uint8 (SCM_FOREIGN_TYPE_UINT32));
+ scm_define (sym_int32, scm_from_uint8 (SCM_FOREIGN_TYPE_INT32));
+ scm_define (sym_uint64, scm_from_uint8 (SCM_FOREIGN_TYPE_UINT64));
+ scm_define (sym_int64, scm_from_uint8 (SCM_FOREIGN_TYPE_INT64));
+}
+
+void
+scm_register_foreign (void)
+{
+ scm_c_register_extension ("libguile", "scm_init_foreign",
+ (scm_t_extension_init_func)scm_init_foreign,
+ NULL);
}
/*