mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-06 15:40:29 +02:00
Code Activity

Add (system finalizers)

Browse source 
This will replace an internal interface in (system foreign-objects).

* module/system/finalizers.scm: New file.
* am/bootstrap.am (SOURCES): Add new file.
* libguile/foreign-object.h:
* libguile/foreign-object.c (invoke_finalizer):
(sys_add_finalizer_x):
(scm_init_foreign_object):
(scm_register_foreign_object): Remove.
* libguile/init.c (scm_i_init_guile): Register finalizers instead of
foreign-object.
* module/system/foreign-object.scm (allocate-instance): Use finalizers
module.
* libguile/finalizers.c (invoke_finalizer):
(scm_sys_add_finalizer): New helper.
This commit is contained in:
Andy Wingo 2025-05-02 15:26:37 +02:00
parent 604a8e8540
commit 75c7f79abc
9 changed files with 98 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

55
libguile/finalizers.c
View file

@ -32,12 +32,16 @@
#include <unistd.h>
#include "async.h"
#include "atomics-internal.h"
#include "bdw-gc.h"
#include "eval.h"
#include "extensions.h"
#include "gc.h"
#include "gsubr.h"
#include "init.h"
#include "numbers.h"
#include "threads.h"
#include "atomics-internal.h"
#include "version.h"
#include "finalizers.h"
@ -53,6 +57,13 @@ static SCM run_finalizers_subr;
enum finalizer_priority
{
FINALIZER_PRIORITY_GUARDIAN,
FINALIZER_PRIORITY_DEFAULT
};
void
scm_i_set_finalizer (void *obj, scm_t_finalizer_proc proc, void *data)
{
@ -139,6 +150,29 @@ scm_i_add_finalizer (void *obj, scm_t_finalizer_proc proc, void *data)
shuffle_resuscitators_to_front (chained_data);
}
static void
invoke_finalizer (void *obj, void *data)
{
scm_call_1 (PTR2SCM (data), PTR2SCM (obj));
}
SCM_DEFINE_STATIC(scm_sys_add_finalizer, "%add-finalizer!", 3, 0, 0,
(SCM obj, SCM proc, SCM priority),
"Add a finalizer @var{proc} to object @var{obj}, with "
"priority @var{priority}. Return the finalizer object.")
#define FUNC_NAME s_scm_sys_add_finalizer
{
SCM_MAKE_VALIDATE (1, obj, HEAP_OBJECT_P);
SCM_VALIDATE_PROC (2, proc);
size_t c_priority = scm_to_unsigned_integer (priority,
FINALIZER_PRIORITY_GUARDIAN,
FINALIZER_PRIORITY_DEFAULT);
(void) c_priority;
scm_i_add_finalizer (SCM2PTR (obj), invoke_finalizer, SCM2PTR (proc));
return SCM_UNSPECIFIED;
}
#undef FUNC_NAME
@ -447,6 +481,17 @@ scm_run_finalizers (void)
static void scm_init_finalizers_module (void);
void
scm_register_finalizers (void)
{
scm_c_register_extension ("libguile-" SCM_EFFECTIVE_VERSION,
"scm_init_finalizers_module",
(scm_t_extension_init_func)scm_init_finalizers_module,
NULL);
}
void
scm_init_finalizers (void)
{
@ -459,6 +504,14 @@ scm_init_finalizers (void)
GC_set_finalizer_notifier (queue_finalizer_async);
}
static void
scm_init_finalizers_module (void)
{
#ifndef SCM_MAGIC_SNARFER
#include "finalizers.x"
#endif
}
void
scm_init_finalizer_thread (void)
{