mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 18:20:22 +02:00
Code Activity

move foreign function interface to its own module

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2010-01-18 12:16:13 +01:00
parent 52fd9639fd
commit ab4779ffcf
5 changed files with 64 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

33
libguile/foreign.c
View file

@ -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);
}
/*

2
libguile/foreign.h
View file

@ -95,7 +95,7 @@ SCM_API SCM scm_foreign_set_x (SCM foreign, SCM val, SCM type, SCM offset);
SCM_INTERNAL void scm_i_foreign_print (SCM foreign, SCM port,
scm_print_state *pstate);
SCM_INTERNAL void scm_init_foreign (void);
SCM_INTERNAL void scm_register_foreign (void);
#endif /* SCM_FOREIGN_H */

2
libguile/init.c
View file

@ -452,6 +452,7 @@ scm_i_init_guile (SCM_STACKITEM *base)
scm_bootstrap_objcodes ();
scm_bootstrap_programs ();
scm_bootstrap_vm ();
scm_register_foreign ();
scm_init_strings (); /* Requires array-handle */
scm_init_struct (); /* Requires strings */
@ -482,7 +483,6 @@ scm_i_init_guile (SCM_STACKITEM *base)
scm_init_ports ();
scm_init_hash ();
scm_init_hashtab ();
scm_init_foreign ();
scm_init_deprecation ();
scm_init_objprop ();
scm_init_promises (); /* requires smob_prehistory */