ff9f90c7e6
1999-12-05 Martin Baulig <martin@home-of-linux.org> This is now the low-level guile interface to LibGTop. For each of the LibGTop structures we create a new smob here and let the `glibtop-get-<feature>' functions return such a smob. * main.c: New file. (glibtop_boot_guile_main): Initialize "glibtop-global-server" here. * guile.h: New file.
24 lines
525 B
C
24 lines
525 B
C
#include "guile.h"
|
|
#include "structures.h"
|
|
#include <libguile/snarf.h>
|
|
|
|
SCM scm_glibtop_global_server_smob;
|
|
|
|
SCM_GLOBAL_VCELL (s_glibtop_global_server, "glibtop-global-server");
|
|
|
|
void
|
|
glibtop_boot_guile_main (void)
|
|
{
|
|
#ifndef SCM_MAGIC_SNARFER
|
|
#include "main.x"
|
|
#endif
|
|
|
|
SCM_NEWSMOB (scm_glibtop_global_server_smob,
|
|
scm_glibtop_smob_tags [GLIBTOP_STRUCTURE_GLIBTOP],
|
|
glibtop_global_server);
|
|
|
|
glibtop_server_ref (glibtop_global_server);
|
|
|
|
SCM_SETCDR (s_glibtop_global_server, scm_glibtop_global_server_smob);
|
|
}
|