This is now the low-level guile interface to LibGTop. For each of the
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:
committed by
Martin Baulig
parent
d48d48cafb
commit
ff9f90c7e6
50
sysdeps/guile/guile.h
Normal file
50
sysdeps/guile/guile.h
Normal file
@@ -0,0 +1,50 @@
|
||||
/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 4 -*- */
|
||||
|
||||
/* $Id$ */
|
||||
|
||||
/* Copyright (C) 1998-99 Martin Baulig
|
||||
This file is part of LibGTop 1.0.
|
||||
|
||||
Contributed by Martin Baulig <martin@home-of-linux.org>, April 1998.
|
||||
|
||||
LibGTop is free software; you can redistribute it and/or modify it
|
||||
under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License,
|
||||
or (at your option) any later version.
|
||||
|
||||
LibGTop is distributed in the hope that it will be useful, but WITHOUT
|
||||
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||||
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
||||
for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with LibGTop; see the file COPYING. If not, write to the
|
||||
Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
Boston, MA 02111-1307, USA.
|
||||
*/
|
||||
|
||||
#ifndef __GLIBTOP_GUILE_H__
|
||||
#define __GLIBTOP_GUILE_H__
|
||||
|
||||
#include <glibtop.h>
|
||||
#include <glibtop/xmalloc.h>
|
||||
#include <glibtop/sysdeps.h>
|
||||
#include <glibtop/union.h>
|
||||
|
||||
#include <guile/gh.h>
|
||||
|
||||
BEGIN_LIBGTOP_DECLS
|
||||
|
||||
extern long scm_glibtop_smob_tags [];
|
||||
extern SCM scm_glibtop_global_server_smob;
|
||||
|
||||
#ifdef _IN_LIBGTOP
|
||||
|
||||
void
|
||||
glibtop_boot_guile_main (void);
|
||||
|
||||
#endif
|
||||
|
||||
END_LIBGTOP_DECLS
|
||||
|
||||
#endif /* __GLIBTOP_GUILE_H__ */
|
Reference in New Issue
Block a user