oxmc/libgtop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

This is now the low-level guile interface to LibGTop. For each of the

Browse Source 
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.
This commit is contained in:
Martin Baulig
1999-12-05 13:58:03 +00:00
committed by Martin Baulig
parent d48d48cafb
commit ff9f90c7e6
6 changed files with 224 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
sysdeps/guile/main.c Normal file
View File

@@ -0,0 +1,23 @@
#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);
}