Compare commits
9 Commits
wip/libgto
...
LIBGTOP_ST
Author | SHA1 | Date | |
---|---|---|---|
|
321f5180f7 | ||
|
d9874dca81 | ||
|
0d744987ff | ||
|
e6b544af80 | ||
|
266d62bc3c | ||
|
4c3fb58e3e | ||
|
223f986205 | ||
|
ec0d751472 | ||
|
005eaa8e95 |
38
ChangeLog
38
ChangeLog
@@ -1,3 +1,41 @@
|
||||
1998-06-12 Martin Baulig <baulig@taurus.uni-trier.de>
|
||||
|
||||
* sysdeps/guile/proclist.c: Replaced call to
|
||||
`gh_append2 ()' with `gh_append ()'.
|
||||
|
||||
* sysdeps/guile/names/*.c: dito.
|
||||
|
||||
1998-06-05 Martin Baulig <baulig@taurus.uni-trier.de>
|
||||
|
||||
* support: removed that directory.
|
||||
|
||||
* configure.in: we check whether '-lgnomesupport' is
|
||||
included in $GNOME_LIBS and add it together with
|
||||
$GNOME_LIBDIR to LIBSUPPORT in this case.
|
||||
|
||||
Gnome (gnome-libs) is now required to build libgtop,
|
||||
added short comment to configure.in how to revert this
|
||||
change.
|
||||
|
||||
* Makefile.am: removed `support' subdir.
|
||||
|
||||
1998-06-03 Martin Baulig <baulig@merkur.uni-trier.de>
|
||||
|
||||
* libgtop.spec: New file.
|
||||
|
||||
* Makefile.am (EXTRA_DIST): Added `autogen.sh' and
|
||||
`libgtop.spec'.
|
||||
|
||||
* configure.in (LIBGTOP_INCS): is now identically to
|
||||
`LIBGTOP_GUILE_INCS'.
|
||||
|
||||
* include/glibtop/global.h: only including intl headers
|
||||
while compiling libgtop.
|
||||
|
||||
1998-06-02 Federico Mena Quintero <federico@nuclecu.unam.mx>
|
||||
|
||||
* src/server/main.c: #include <locale.h>
|
||||
|
||||
1998-05-24 Martin Baulig <martin@home-of-linux.org>
|
||||
|
||||
* sysdeps/sun4/{open.c, mem.c, glibtop_machine.h}: added
|
||||
|
@@ -6,13 +6,13 @@ endif
|
||||
|
||||
built_SUBDIRS = include sysdeps src lib
|
||||
|
||||
SUBDIRS = po intl support macros $(built_SUBDIRS) $(examples_SUBDIRS)
|
||||
SUBDIRS = po intl macros $(built_SUBDIRS) $(examples_SUBDIRS)
|
||||
|
||||
DIST_SUBDIRS = po intl support macros include sysdeps src lib examples
|
||||
DIST_SUBDIRS = po intl macros include sysdeps src lib examples
|
||||
|
||||
include_HEADERS = glibtop.h
|
||||
|
||||
EXTRA_DIST = copyright.txt libgtopConf.sh.in
|
||||
EXTRA_DIST = autogen.sh libgtop.spec copyright.txt libgtopConf.sh.in
|
||||
|
||||
release:
|
||||
$(MAKE) dist distdir=$(PACKAGE)$(VERSION)
|
||||
|
611
acinclude.m4
611
acinclude.m4
@@ -101,512 +101,86 @@ AC_DEFUN([AC_LC_SYSDEPS],[
|
||||
AC_SUBST(libgtop_want_examples)
|
||||
])
|
||||
|
||||
# Like AC_CONFIG_HEADER, but automatically create stamp file.
|
||||
|
||||
AC_DEFUN(AM_CONFIG_HEADER,
|
||||
[AC_PREREQ([2.12])
|
||||
AC_CONFIG_HEADER([$1])
|
||||
dnl When config.status generates a header, we must update the stamp-h file.
|
||||
dnl This file resides in the same directory as the config header
|
||||
dnl that is generated. We must strip everything past the first ":",
|
||||
dnl and everything past the last "/".
|
||||
AC_OUTPUT_COMMANDS(changequote(<<,>>)dnl
|
||||
ifelse(patsubst(<<$1>>, <<[^ ]>>, <<>>), <<>>,
|
||||
<<test -z "<<$>>CONFIG_HEADERS" || echo timestamp > patsubst(<<$1>>, <<^\([^:]*/\)?.*>>, <<\1>>)stamp-h<<>>dnl>>,
|
||||
<<am_indx=1
|
||||
for am_file in <<$1>>; do
|
||||
case " <<$>>CONFIG_HEADERS " in
|
||||
*" <<$>>am_file "*<<)>>
|
||||
echo timestamp > `echo <<$>>am_file | sed -e 's%:.*%%' -e 's%[^/]*$%%'`stamp-h$am_indx
|
||||
;;
|
||||
esac
|
||||
am_indx=`expr "<<$>>am_indx" + 1`
|
||||
done<<>>dnl>>)
|
||||
changequote([,]))])
|
||||
|
||||
# Do all the work for Automake. This macro actually does too much --
|
||||
# some checks are only needed if your package does certain things.
|
||||
# But this isn't really a big deal.
|
||||
|
||||
# serial 1
|
||||
|
||||
dnl Usage:
|
||||
dnl AM_INIT_AUTOMAKE(package,version, [no-define])
|
||||
|
||||
AC_DEFUN(AM_INIT_AUTOMAKE,
|
||||
[AC_REQUIRE([AM_PROG_INSTALL])
|
||||
PACKAGE=[$1]
|
||||
AC_SUBST(PACKAGE)
|
||||
VERSION=[$2]
|
||||
AC_SUBST(VERSION)
|
||||
dnl test to see if srcdir already configured
|
||||
if test "`cd $srcdir && pwd`" != "`pwd`" && test -f $srcdir/config.status; then
|
||||
AC_MSG_ERROR([source directory already configured; run "make distclean" there first])
|
||||
fi
|
||||
ifelse([$3],,
|
||||
AC_DEFINE_UNQUOTED(PACKAGE, "$PACKAGE")
|
||||
AC_DEFINE_UNQUOTED(VERSION, "$VERSION"))
|
||||
AC_REQUIRE([AM_SANITY_CHECK])
|
||||
AC_REQUIRE([AC_ARG_PROGRAM])
|
||||
dnl FIXME This is truly gross.
|
||||
missing_dir=`cd $ac_aux_dir && pwd`
|
||||
AM_MISSING_PROG(ACLOCAL, aclocal, $missing_dir)
|
||||
AM_MISSING_PROG(AUTOCONF, autoconf, $missing_dir)
|
||||
AM_MISSING_PROG(AUTOMAKE, automake, $missing_dir)
|
||||
AM_MISSING_PROG(AUTOHEADER, autoheader, $missing_dir)
|
||||
AM_MISSING_PROG(MAKEINFO, makeinfo, $missing_dir)
|
||||
AC_REQUIRE([AC_PROG_MAKE_SET])])
|
||||
|
||||
|
||||
# serial 1
|
||||
|
||||
AC_DEFUN(AM_PROG_INSTALL,
|
||||
[AC_REQUIRE([AC_PROG_INSTALL])
|
||||
test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL_PROGRAM}'
|
||||
AC_SUBST(INSTALL_SCRIPT)dnl
|
||||
])
|
||||
|
||||
######################################################################
|
||||
# progtest.m4 from gettext 0.32
|
||||
######################################################################
|
||||
# Search path for a program which passes the given test.
|
||||
# Ulrich Drepper <drepper@cygnus.com>, 1996.
|
||||
#
|
||||
# Check to make sure that the build environment is sane.
|
||||
#
|
||||
|
||||
AC_DEFUN(AM_SANITY_CHECK,
|
||||
[AC_MSG_CHECKING([whether build environment is sane])
|
||||
# Just in case
|
||||
sleep 1
|
||||
echo timestamp > conftestfile
|
||||
# Do `set' in a subshell so we don't clobber the current shell's
|
||||
# arguments. Must try -L first in case configure is actually a
|
||||
# symlink; some systems play weird games with the mod time of symlinks
|
||||
# (eg FreeBSD returns the mod time of the symlink's containing
|
||||
# directory).
|
||||
if (
|
||||
set X `ls -Lt $srcdir/configure conftestfile 2> /dev/null`
|
||||
if test "[$]*" = "X"; then
|
||||
# -L didn't work.
|
||||
set X `ls -t $srcdir/configure conftestfile`
|
||||
fi
|
||||
if test "[$]*" != "X $srcdir/configure conftestfile" \
|
||||
&& test "[$]*" != "X conftestfile $srcdir/configure"; then
|
||||
|
||||
# If neither matched, then we have a broken ls. This can happen
|
||||
# if, for instance, CONFIG_SHELL is bash and it inherits a
|
||||
# broken ls alias from the environment. This has actually
|
||||
# happened. Such a system could not be considered "sane".
|
||||
AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken
|
||||
alias in your environment])
|
||||
fi
|
||||
|
||||
test "[$]2" = conftestfile
|
||||
)
|
||||
then
|
||||
# Ok.
|
||||
:
|
||||
else
|
||||
AC_MSG_ERROR([newly created file is older than distributed files!
|
||||
Check your system clock])
|
||||
fi
|
||||
rm -f conftest*
|
||||
AC_MSG_RESULT(yes)])
|
||||
|
||||
dnl AM_MISSING_PROG(NAME, PROGRAM, DIRECTORY)
|
||||
dnl The program must properly implement --version.
|
||||
AC_DEFUN(AM_MISSING_PROG,
|
||||
[AC_MSG_CHECKING(for working $2)
|
||||
# Run test in a subshell; some versions of sh will print an error if
|
||||
# an executable is not found, even if stderr is redirected.
|
||||
# Redirect stdin to placate older versions of autoconf. Sigh.
|
||||
if ($2 --version) < /dev/null > /dev/null 2>&1; then
|
||||
$1=$2
|
||||
AC_MSG_RESULT(found)
|
||||
else
|
||||
$1="$3/missing $2"
|
||||
AC_MSG_RESULT(missing)
|
||||
fi
|
||||
AC_SUBST($1)])
|
||||
|
||||
# Add --enable-maintainer-mode option to configure.
|
||||
# From Jim Meyering
|
||||
# This file file be copied and used freely without restrictions. It can
|
||||
# be used in projects which are not available under the GNU Public License
|
||||
# but which still want to provide support for the GNU gettext functionality.
|
||||
# Please note that the actual code is *not* freely available.
|
||||
|
||||
# serial 1
|
||||
|
||||
AC_DEFUN(AM_MAINTAINER_MODE,
|
||||
[AC_MSG_CHECKING([whether to enable maintainer-specific portions of Makefiles])
|
||||
dnl maintainer-mode is disabled by default
|
||||
AC_ARG_ENABLE(maintainer-mode,
|
||||
[ --enable-maintainer-mode enable make rules and dependencies not useful
|
||||
(and sometimes confusing) to the casual installer],
|
||||
USE_MAINTAINER_MODE=$enableval,
|
||||
USE_MAINTAINER_MODE=no)
|
||||
AC_MSG_RESULT($USE_MAINTAINER_MODE)
|
||||
if test $USE_MAINTAINER_MODE = yes; then
|
||||
MAINT=
|
||||
else
|
||||
MAINT='#M#'
|
||||
fi
|
||||
AC_SUBST(MAINT)dnl
|
||||
]
|
||||
)
|
||||
|
||||
# aclocal-include.m4
|
||||
#
|
||||
# This macro adds the name macrodir to the set of directories
|
||||
# that `aclocal' searches for macros.
|
||||
|
||||
# serial 1
|
||||
|
||||
dnl AM_ACLOCAL_INCLUDE(macrodir)
|
||||
AC_DEFUN([AM_ACLOCAL_INCLUDE],
|
||||
[ACLOCAL="$ACLOCAL -I $1"])
|
||||
|
||||
dnl
|
||||
dnl GNOME_CHECK_GUILE (failflag)
|
||||
dnl
|
||||
dnl if failflag is "fail" then GNOME_CHECK_GUILE will abort if guile is not found.
|
||||
dnl
|
||||
|
||||
AC_DEFUN([GNOME_CHECK_GUILE],
|
||||
[
|
||||
saved_ldflags="$LDFLAGS"
|
||||
saved_cppflags="$CPPFLAGS"
|
||||
LDFLAGS="$LDFLAGS $GNOME_LIBDIR"
|
||||
|
||||
AC_CHECK_LIB(qthreads,main,[
|
||||
QTTHREADS_LIB="-lqthreads"
|
||||
],[
|
||||
AC_CHECK_LIB(qt, qt_null, QTTHREADS_LIB="-lqt")
|
||||
],$LIBS)
|
||||
AC_SUBST(QTTHREADS_LIB)
|
||||
|
||||
AC_CHECK_LIB(termcap,main,TERMCAP_LIB="-ltermcap")
|
||||
AC_CHECK_LIB(readline,main,READLINE_LIB="-lreadline",,$TERMCAP_LIB)
|
||||
|
||||
AC_SUBST(TERMCAP_LIB)
|
||||
AC_SUBST(READLINE_LIB)
|
||||
|
||||
AC_CHECK_PROG(BUILD_GUILE, build-guile, yes, no)
|
||||
|
||||
if test "x$BUILD_GUILE" = "xyes"; then
|
||||
AC_MSG_CHECKING(whether build-guile works)
|
||||
if test x`build-guile --version >/dev/null 2>&1 || \
|
||||
echo no` = xno; then
|
||||
BUILD_GUILE=no
|
||||
fi
|
||||
AC_MSG_RESULT($BUILD_GUILE)
|
||||
fi
|
||||
|
||||
AC_CHECK_LIB(m, sin)
|
||||
|
||||
if test "x$BUILD_GUILE" = "xyes"; then
|
||||
AC_MSG_CHECKING(for guile libraries)
|
||||
GUILE_LIBS="-L`build-guile info libdir` `build-guile link`"
|
||||
AC_MSG_RESULT($GUILE_LIBS)
|
||||
AC_MSG_CHECKING(for guile headers)
|
||||
GUILE_INCS="-I`build-guile info includedir`"
|
||||
AC_MSG_RESULT($GUILE_INCS)
|
||||
else
|
||||
GUILE_LIBS="$GNOME_LIBDIR"
|
||||
GUILE_INCS="$GNOME_INCLUDEDIR"
|
||||
AC_CHECK_LIB(rx, main, GUILE_LIBS="-lrx $GUILE_LIBS")
|
||||
AC_CHECK_LIB(qt, main, GUILE_LIBS="-lqt $GUILE_LIBS")
|
||||
AC_CHECK_LIB(dl, dlopen, GUILE_LIBS="-ldl $GUILE_LIBS")
|
||||
GUILE_LIBS="-lguile $GUILE_LIBS $QTTHREADS_LIB $TERMCAP_LIB $READLINE_LIB"
|
||||
fi
|
||||
|
||||
AC_SUBST(GUILE_LIBS)
|
||||
AC_SUBST(GUILE_INCS)
|
||||
|
||||
LDFLAGS="$saved_ldflags $GUILE_LIBS"
|
||||
CPPFLAGS="$saved_cppflags $GUILE_INCS"
|
||||
|
||||
AC_MSG_CHECKING(whether guile works)
|
||||
AC_TRY_LINK([
|
||||
#include <libguile.h>
|
||||
#include <guile/gh.h>
|
||||
],[
|
||||
gh_eval_str("(newline)");
|
||||
scm_boot_guile(0,NULL,NULL,NULL);
|
||||
],[
|
||||
ac_cv_guile_found=yes
|
||||
AC_DEFINE(HAVE_GUILE)
|
||||
],[
|
||||
ac_cv_guile_found=no
|
||||
])
|
||||
AC_MSG_RESULT($ac_cv_guile_found)
|
||||
|
||||
if test x$ac_cv_guile_found = xno ; then
|
||||
if test x$1 = xfail ; then
|
||||
AC_MSG_ERROR(Can not find Guile 1.2 on this system)
|
||||
else
|
||||
AC_MSG_WARN(Can not find Guile 1.2 on this system)
|
||||
fi
|
||||
ac_cv_guile_found=no
|
||||
fi
|
||||
|
||||
LDFLAGS="$saved_ldflags"
|
||||
CPPFLAGS="$saved_cppflags"
|
||||
|
||||
AC_SUBST(GUILE_LIBS)
|
||||
AM_CONDITIONAL(GUILE, test x$ac_cv_guile_found = xyes)
|
||||
])
|
||||
|
||||
# Define a conditional.
|
||||
|
||||
AC_DEFUN(AM_CONDITIONAL,
|
||||
[AC_SUBST($1_TRUE)
|
||||
AC_SUBST($1_FALSE)
|
||||
if $2; then
|
||||
$1_TRUE=
|
||||
$1_FALSE='#'
|
||||
else
|
||||
$1_TRUE='#'
|
||||
$1_FALSE=
|
||||
fi])
|
||||
|
||||
|
||||
dnl AM_PROG_LEX
|
||||
dnl Look for flex, lex or missing, then run AC_PROG_LEX and AC_DECL_YYTEXT
|
||||
AC_DEFUN(AM_PROG_LEX,
|
||||
[AC_CHECK_PROGS(LEX, flex lex, "$1/missing flex")
|
||||
AC_PROG_LEX
|
||||
AC_DECL_YYTEXT])
|
||||
|
||||
|
||||
# serial 18 AM_PROG_LIBTOOL
|
||||
AC_DEFUN(AM_PROG_LIBTOOL,
|
||||
[AC_REQUIRE([AC_CANONICAL_HOST])
|
||||
AC_REQUIRE([AC_PROG_RANLIB])
|
||||
AC_REQUIRE([AC_PROG_CC])
|
||||
AC_REQUIRE([AM_PROG_LD])
|
||||
AC_REQUIRE([AM_PROG_NM])
|
||||
AC_REQUIRE([AC_PROG_LN_S])
|
||||
|
||||
# Always use our own libtool.
|
||||
LIBTOOL='$(SHELL) $(top_builddir)/libtool'
|
||||
AC_SUBST(LIBTOOL)
|
||||
|
||||
dnl Allow the --disable-shared flag to stop us from building shared libs.
|
||||
AC_ARG_ENABLE(shared,
|
||||
[ --enable-shared build shared libraries [default=yes]],
|
||||
[if test "$enableval" = no; then
|
||||
libtool_enable_shared=no
|
||||
else
|
||||
libtool_enable_shared=yes
|
||||
fi])
|
||||
test -n "$libtool_enable_shared" && enable_shared="$libtool_enable_shared"
|
||||
libtool_shared=
|
||||
test "$enable_shared" = no && libtool_shared=" --disable-shared"
|
||||
|
||||
dnl Allow the --disable-static flag to stop us from building static libs.
|
||||
AC_ARG_ENABLE(static,
|
||||
[ --enable-static build static libraries [default=yes]],
|
||||
[if test "$enableval" = no; then
|
||||
libtool_enable_static=no
|
||||
else
|
||||
libtool_enable_static=yes
|
||||
fi])
|
||||
test -n "$libtool_enable_static" && enable_static="$libtool_enable_static"
|
||||
libtool_static=
|
||||
test "$enable_static" = no && libtool_static=" --disable-static"
|
||||
|
||||
libtool_flags="$libtool_shared$libtool_static"
|
||||
test "$silent" = yes && libtool_flags="$libtool_flags --silent"
|
||||
test "$ac_cv_prog_gcc" = yes && libtool_flags="$libtool_flags --with-gcc"
|
||||
test "$ac_cv_prog_gnu_ld" = yes && libtool_flags="$libtool_flags --with-gnu-ld"
|
||||
|
||||
# Some flags need to be propagated to the compiler or linker for good
|
||||
# libtool support.
|
||||
[case "$host" in
|
||||
*-*-irix6*)
|
||||
ac_save_CFLAGS="$CFLAGS"
|
||||
flag_passed=no
|
||||
for f in -32 -64 -n32 ABI -cckr -mips1 -mips2 -mips3 -mips4; do
|
||||
case "$f" in
|
||||
ABI)
|
||||
test -n "$SGI_ABI" && flag_passed=yes
|
||||
if test "$flag_passed" = no && test "$ac_cv_prog_gcc" = yes; then
|
||||
# Choose the ABI flag according to GCC's specs.
|
||||
if $CC -dumpspecs 2>&1 | sed '/^\*link:$/,/^$/!d' | egrep -e '[ ]-32' >/dev/null; then
|
||||
LD="${LD-ld} -32"
|
||||
else
|
||||
LD="${LD-ld} -n32"
|
||||
fi
|
||||
fi
|
||||
;;
|
||||
|
||||
*)
|
||||
if echo " $CC $CFLAGS " | egrep -e "[ ]$f[ ]" > /dev/null; then
|
||||
flag_passed=yes
|
||||
LD="${LD-ld} $f"
|
||||
fi
|
||||
;;
|
||||
esac
|
||||
done
|
||||
CFLAGS="$ac_save_CFLAGS"
|
||||
;;
|
||||
|
||||
*-*-sco3.2v5*)
|
||||
# On SCO OpenServer 5, we need -belf to get full-featured binaries.
|
||||
CFLAGS="$CFLAGS -belf"
|
||||
;;
|
||||
esac]
|
||||
|
||||
# Actually configure libtool. ac_aux_dir is where install-sh is found.
|
||||
CC="$CC" CFLAGS="$CFLAGS" CPPFLAGS="$CPPFLAGS" \
|
||||
LD="$LD" NM="$NM" RANLIB="$RANLIB" LN_S="$LN_S" \
|
||||
${CONFIG_SHELL-/bin/sh} $ac_aux_dir/ltconfig \
|
||||
$libtool_flags --no-verify $ac_aux_dir/ltmain.sh $host \
|
||||
|| AC_MSG_ERROR([libtool configure failed])
|
||||
])
|
||||
|
||||
# AM_PROG_LD - find the path to the GNU or non-GNU linker
|
||||
AC_DEFUN(AM_PROG_LD,
|
||||
[AC_ARG_WITH(gnu-ld,
|
||||
[ --with-gnu-ld assume the C compiler uses GNU ld [default=no]],
|
||||
test "$withval" = no || with_gnu_ld=yes, with_gnu_ld=no)
|
||||
AC_REQUIRE([AC_PROG_CC])
|
||||
ac_prog=ld
|
||||
if test "$ac_cv_prog_gcc" = yes; then
|
||||
# Check if gcc -print-prog-name=ld gives a path.
|
||||
AC_MSG_CHECKING([for ld used by GCC])
|
||||
ac_prog=`($CC -print-prog-name=ld) 2>&5`
|
||||
case "$ac_prog" in
|
||||
# Accept absolute paths.
|
||||
dnl AM_PATH_PROG_WITH_TEST(VARIABLE, PROG-TO-CHECK-FOR,
|
||||
dnl TEST-PERFORMED-ON-FOUND_PROGRAM [, VALUE-IF-NOT-FOUND [, PATH]])
|
||||
AC_DEFUN(AM_PATH_PROG_WITH_TEST,
|
||||
[# Extract the first word of "$2", so it can be a program name with args.
|
||||
set dummy $2; ac_word=[$]2
|
||||
AC_MSG_CHECKING([for $ac_word])
|
||||
AC_CACHE_VAL(ac_cv_path_$1,
|
||||
[case "[$]$1" in
|
||||
/*)
|
||||
test -z "$LD" && LD="$ac_prog"
|
||||
;;
|
||||
"")
|
||||
# If it fails, then pretend we aren't using GCC.
|
||||
ac_prog=ld
|
||||
ac_cv_path_$1="[$]$1" # Let the user override the test with a path.
|
||||
;;
|
||||
*)
|
||||
# If it is relative, then search for the first ld in PATH.
|
||||
with_gnu_ld=unknown
|
||||
;;
|
||||
esac
|
||||
elif test "$with_gnu_ld" = yes; then
|
||||
AC_MSG_CHECKING([for GNU ld])
|
||||
else
|
||||
AC_MSG_CHECKING([for non-GNU ld])
|
||||
fi
|
||||
AC_CACHE_VAL(ac_cv_path_LD,
|
||||
[if test -z "$LD"; then
|
||||
IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
|
||||
for ac_dir in $PATH; do
|
||||
for ac_dir in ifelse([$5], , $PATH, [$5]); do
|
||||
test -z "$ac_dir" && ac_dir=.
|
||||
if test -f "$ac_dir/$ac_prog"; then
|
||||
ac_cv_path_LD="$ac_dir/$ac_prog"
|
||||
# Check to see if the program is GNU ld. I'd rather use --version,
|
||||
# but apparently some GNU ld's only accept -v.
|
||||
# Break only if it was the GNU/non-GNU ld that we prefer.
|
||||
if "$ac_cv_path_LD" -v 2>&1 < /dev/null | egrep '(GNU|with BFD)' > /dev/null; then
|
||||
test "$with_gnu_ld" != no && break
|
||||
else
|
||||
test "$with_gnu_ld" != yes && break
|
||||
if test -f $ac_dir/$ac_word; then
|
||||
if [$3]; then
|
||||
ac_cv_path_$1="$ac_dir/$ac_word"
|
||||
break
|
||||
fi
|
||||
fi
|
||||
done
|
||||
IFS="$ac_save_ifs"
|
||||
else
|
||||
ac_cv_path_LD="$LD" # Let the user override the test with a path.
|
||||
fi])
|
||||
LD="$ac_cv_path_LD"
|
||||
if test -n "$LD"; then
|
||||
AC_MSG_RESULT($LD)
|
||||
dnl If no 4th arg is given, leave the cache variable unset,
|
||||
dnl so AC_PATH_PROGS will keep looking.
|
||||
ifelse([$4], , , [ test -z "[$]ac_cv_path_$1" && ac_cv_path_$1="$4"
|
||||
])dnl
|
||||
;;
|
||||
esac])dnl
|
||||
$1="$ac_cv_path_$1"
|
||||
if test -n "[$]$1"; then
|
||||
AC_MSG_RESULT([$]$1)
|
||||
else
|
||||
AC_MSG_RESULT(no)
|
||||
fi
|
||||
test -z "$LD" && AC_MSG_ERROR([no acceptable ld found in \$PATH])
|
||||
AC_SUBST(LD)
|
||||
AM_PROG_LD_GNU
|
||||
AC_SUBST($1)dnl
|
||||
])
|
||||
|
||||
AC_DEFUN(AM_PROG_LD_GNU,
|
||||
[AC_CACHE_CHECK([if the linker ($LD) is GNU ld], ac_cv_prog_gnu_ld,
|
||||
[# I'd rather use --version here, but apparently some GNU ld's only accept -v.
|
||||
if $LD -v 2>&1 </dev/null | egrep '(GNU|with BFD)' 1>&5; then
|
||||
ac_cv_prog_gnu_ld=yes
|
||||
else
|
||||
ac_cv_prog_gnu_ld=no
|
||||
|
||||
######################################################################
|
||||
# lcmessage.m4 from gettext 0.32
|
||||
######################################################################
|
||||
# Check whether LC_MESSAGES is available in <locale.h>.
|
||||
# Ulrich Drepper <drepper@cygnus.com>, 1995.
|
||||
#
|
||||
# This file file be copied and used freely without restrictions. It can
|
||||
# be used in projects which are not available under the GNU Public License
|
||||
# but which still want to provide support for the GNU gettext functionality.
|
||||
# Please note that the actual code is *not* freely available.
|
||||
|
||||
# serial 1
|
||||
|
||||
AC_DEFUN(AM_LC_MESSAGES,
|
||||
[if test $ac_cv_header_locale_h = yes; then
|
||||
AC_CACHE_CHECK([for LC_MESSAGES], am_cv_val_LC_MESSAGES,
|
||||
[AC_TRY_LINK([#include <locale.h>], [return LC_MESSAGES],
|
||||
am_cv_val_LC_MESSAGES=yes, am_cv_val_LC_MESSAGES=no)])
|
||||
if test $am_cv_val_LC_MESSAGES = yes; then
|
||||
AC_DEFINE(HAVE_LC_MESSAGES)
|
||||
fi
|
||||
fi])
|
||||
])
|
||||
|
||||
# AM_PROG_NM - find the path to a BSD-compatible name lister
|
||||
AC_DEFUN(AM_PROG_NM,
|
||||
[AC_MSG_CHECKING([for BSD-compatible nm])
|
||||
AC_CACHE_VAL(ac_cv_path_NM,
|
||||
[case "$NM" in
|
||||
/*)
|
||||
ac_cv_path_NM="$NM" # Let the user override the test with a path.
|
||||
;;
|
||||
*)
|
||||
IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
|
||||
for ac_dir in /usr/ucb /usr/ccs/bin $PATH /bin; do
|
||||
test -z "$ac_dir" && dir=.
|
||||
if test -f $ac_dir/nm; then
|
||||
# Check to see if the nm accepts a BSD-compat flag.
|
||||
# Adding the `sed 1!d' prevents false positives on HP-UX, which says:
|
||||
# nm: unknown option "B" ignored
|
||||
if ($ac_dir/nm -B /dev/null 2>&1 | sed '1!d'; exit 0) | egrep /dev/null >/dev/null; then
|
||||
ac_cv_path_NM="$ac_dir/nm -B"
|
||||
elif ($ac_dir/nm -p /dev/null 2>&1 | sed '1!d'; exit 0) | egrep /dev/null >/dev/null; then
|
||||
ac_cv_path_NM="$ac_dir/nm -p"
|
||||
else
|
||||
ac_cv_path_NM="$ac_dir/nm"
|
||||
fi
|
||||
break
|
||||
fi
|
||||
done
|
||||
IFS="$ac_save_ifs"
|
||||
test -z "$ac_cv_path_NM" && ac_cv_path_NM=nm
|
||||
;;
|
||||
esac])
|
||||
NM="$ac_cv_path_NM"
|
||||
AC_MSG_RESULT([$NM])
|
||||
AC_SUBST(NM)
|
||||
])
|
||||
|
||||
dnl LIBGTOP_SUPPORT_CHECKS
|
||||
dnl Check for various support functions needed by the standard
|
||||
dnl Gnome libraries. Sets LIBOBJS, might define some macros,
|
||||
dnl and will set the need_libgtop_support shell variable to "yes"
|
||||
dnl or "no". Also sets up the Automake BUILD_LIBGTOP_SUPPORT
|
||||
dnl conditional.
|
||||
AC_DEFUN([LIBGTOP_SUPPORT_CHECKS],[
|
||||
need_libgtop_support=no
|
||||
save_LIBOBJS="$LIBOBJS"
|
||||
LIBOBJS=
|
||||
|
||||
AC_CACHE_CHECK([for program_invocation_short_name], libgtop_cv_short_name, [
|
||||
AC_TRY_LINK([#include <errno.h>],[
|
||||
char *foo = program_invocation_short_name],
|
||||
libgtop_cv_short_name=yes, libgtop_cv_short_name=no)])
|
||||
if test "$libgtop_cv_short_name" = yes; then
|
||||
AC_DEFINE(HAVE_PROGRAM_INVOCATION_SHORT_NAME)
|
||||
fi
|
||||
|
||||
AC_CACHE_CHECK([for program_invocation_name], libgtop_cv_invocation_name, [
|
||||
AC_TRY_LINK([#include <errno.h>],[
|
||||
char *foo = program_invocation_name],
|
||||
libgtop_cv_invocation_name=yes, libgtop_cv_invocation_name=no)])
|
||||
if test "$libgtop_cv_invocation_name" = yes; then
|
||||
AC_DEFINE(HAVE_PROGRAM_INVOCATION_NAME)
|
||||
fi
|
||||
|
||||
AC_REPLACE_FUNCS(strtok_r strcasecmp strndup strnlen strerror)
|
||||
|
||||
if test "$LIBOBJS" != ""; then
|
||||
need_libgtop_support=yes
|
||||
fi
|
||||
# Turn our LIBOBJS into libtool objects. This is gross, but it
|
||||
# requires changes to autoconf before it goes away.
|
||||
LTLIBOBJS=`echo "$LIBOBJS" | sed 's/\.o/.lo/g'`
|
||||
AC_SUBST(LTLIBOBJS)
|
||||
|
||||
LIBOBJS="$save_LIBOBJS"
|
||||
AM_CONDITIONAL(BUILD_LIBGTOP_SUPPORT, test "$need_libgtop_support" = yes)
|
||||
])
|
||||
|
||||
######################################################################
|
||||
# gettext.m4 from gettext 0.32
|
||||
######################################################################
|
||||
# Macro to add for using GNU gettext.
|
||||
# Ulrich Drepper <drepper@cygnus.com>, 1995.
|
||||
#
|
||||
@@ -915,72 +489,3 @@ __argz_count __argz_stringify __argz_next])
|
||||
sed -e "/^#/d" -e "/^\$/d" -e "s,.*, $posrcprefix& \\\\," -e "\$s/\(.*\) \\\\/\1/" \
|
||||
< $srcdir/po/POTFILES.in > po/POTFILES
|
||||
])
|
||||
|
||||
# Search path for a program which passes the given test.
|
||||
# Ulrich Drepper <drepper@cygnus.com>, 1996.
|
||||
#
|
||||
# This file file be copied and used freely without restrictions. It can
|
||||
# be used in projects which are not available under the GNU Public License
|
||||
# but which still want to provide support for the GNU gettext functionality.
|
||||
# Please note that the actual code is *not* freely available.
|
||||
|
||||
# serial 1
|
||||
|
||||
dnl AM_PATH_PROG_WITH_TEST(VARIABLE, PROG-TO-CHECK-FOR,
|
||||
dnl TEST-PERFORMED-ON-FOUND_PROGRAM [, VALUE-IF-NOT-FOUND [, PATH]])
|
||||
AC_DEFUN(AM_PATH_PROG_WITH_TEST,
|
||||
[# Extract the first word of "$2", so it can be a program name with args.
|
||||
set dummy $2; ac_word=[$]2
|
||||
AC_MSG_CHECKING([for $ac_word])
|
||||
AC_CACHE_VAL(ac_cv_path_$1,
|
||||
[case "[$]$1" in
|
||||
/*)
|
||||
ac_cv_path_$1="[$]$1" # Let the user override the test with a path.
|
||||
;;
|
||||
*)
|
||||
IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
|
||||
for ac_dir in ifelse([$5], , $PATH, [$5]); do
|
||||
test -z "$ac_dir" && ac_dir=.
|
||||
if test -f $ac_dir/$ac_word; then
|
||||
if [$3]; then
|
||||
ac_cv_path_$1="$ac_dir/$ac_word"
|
||||
break
|
||||
fi
|
||||
fi
|
||||
done
|
||||
IFS="$ac_save_ifs"
|
||||
dnl If no 4th arg is given, leave the cache variable unset,
|
||||
dnl so AC_PATH_PROGS will keep looking.
|
||||
ifelse([$4], , , [ test -z "[$]ac_cv_path_$1" && ac_cv_path_$1="$4"
|
||||
])dnl
|
||||
;;
|
||||
esac])dnl
|
||||
$1="$ac_cv_path_$1"
|
||||
if test -n "[$]$1"; then
|
||||
AC_MSG_RESULT([$]$1)
|
||||
else
|
||||
AC_MSG_RESULT(no)
|
||||
fi
|
||||
AC_SUBST($1)dnl
|
||||
])
|
||||
|
||||
# Check whether LC_MESSAGES is available in <locale.h>.
|
||||
# Ulrich Drepper <drepper@cygnus.com>, 1995.
|
||||
#
|
||||
# This file file be copied and used freely without restrictions. It can
|
||||
# be used in projects which are not available under the GNU Public License
|
||||
# but which still want to provide support for the GNU gettext functionality.
|
||||
# Please note that the actual code is *not* freely available.
|
||||
|
||||
# serial 1
|
||||
|
||||
AC_DEFUN(AM_LC_MESSAGES,
|
||||
[if test $ac_cv_header_locale_h = yes; then
|
||||
AC_CACHE_CHECK([for LC_MESSAGES], am_cv_val_LC_MESSAGES,
|
||||
[AC_TRY_LINK([#include <locale.h>], [return LC_MESSAGES],
|
||||
am_cv_val_LC_MESSAGES=yes, am_cv_val_LC_MESSAGES=no)])
|
||||
if test $am_cv_val_LC_MESSAGES = yes; then
|
||||
AC_DEFINE(HAVE_LC_MESSAGES)
|
||||
fi
|
||||
fi])
|
||||
|
||||
|
33
configure.in
33
configure.in
@@ -24,6 +24,9 @@ AC_CHECK_TOOL(NM,nm)
|
||||
NM=`which $NM`
|
||||
export CC CXX RANLIB LD AS AR NM
|
||||
|
||||
dnl If you want to use libgtop without gnome, comment the following line out.
|
||||
GNOME_INIT
|
||||
|
||||
AC_LC_SYSDEPS
|
||||
|
||||
if test x$libgtop_want_guile = xyes ; then
|
||||
@@ -60,7 +63,8 @@ AC_PROG_MAKE_SET
|
||||
export cross_compiling
|
||||
AM_PROG_LIBTOOL
|
||||
|
||||
GNOME_SUPPORT_CHECKS
|
||||
dnl You need to uncomment the following line if you want to use libgtop without Gnome.
|
||||
dnl GNOME_SUPPORT_CHECKS
|
||||
|
||||
dnl Checks for typedefs, structures, and compiler characteristics.
|
||||
AC_C_CONST
|
||||
@@ -101,12 +105,24 @@ AC_SUBST(LDFLAGS)
|
||||
|
||||
AC_ARG_ENABLE(debug, [ --enable-debug turn on debugging [default=no]],AC_DEFINE(GNOME_ENABLE_DEBUG),)
|
||||
|
||||
LIBSUPPORT=
|
||||
SUPPORTINCS=
|
||||
if test "$need_gnome_support" = yes; then
|
||||
LIBSUPPORT='$(top_builddir)/support/libgnomesupport.la'
|
||||
SUPPORTINCS='-I$(top_srcdir)/support'
|
||||
dnl If you want to use libgtop without gnome, uncomment the following paragraph:
|
||||
dnl LIBSUPPORT=
|
||||
dnl SUPPORTINCS=
|
||||
dnl if test "$need_gnome_support" = yes; then
|
||||
dnl LIBSUPPORT='$(top_builddir)/support/libgnomesupport.la'
|
||||
dnl SUPPORTINCS='-I$(top_srcdir)/support'
|
||||
dnl fi
|
||||
dnl AC_SUBST(LIBSUPPORT)
|
||||
dnl AC_SUBST(SUPPORTINCS)
|
||||
|
||||
dnl Some ugly hack; if '-lgnomesupport' is part of $GNOME_LIBS, we include it here.
|
||||
echo "$GNOME_LIBS" | grep -q -e '-lgnomesupport'
|
||||
if test $? = 0 ; then
|
||||
LIBSUPPORT="$GNOME_LIBDIR -lgnomesupport"
|
||||
SUPPORTINCS="$GNOME_INCLUDEDIR"
|
||||
fi
|
||||
AC_SUBST(LIBSUPPORT)
|
||||
AC_SUBST(SUPPORTINCS)
|
||||
|
||||
dnl These definitions are expanded in make.
|
||||
LIBGTOP_LIBS='-L$(libdir)'
|
||||
@@ -153,6 +169,7 @@ else
|
||||
fi
|
||||
|
||||
if test "x$ac_cv_guile_found" = "xyes" ; then
|
||||
LIBGTOP_INCS="$LIBGTOP_INCS $GUILE_INCS"
|
||||
LIBGTOP_GUILE_INCS="$LIBGTOP_INCS $GUILE_INCS"
|
||||
LIBGTOP_GUILE_LIBS="$LIBGTOP_GUILE_LIBS $GUILE_LIBS"
|
||||
fi
|
||||
@@ -170,9 +187,6 @@ AC_SUBST(LIBGTOP_GUILE_INCS)
|
||||
AC_SUBST(LIBGTOP_BINDIR)
|
||||
AC_SUBST(LIBGTOP_SERVER)
|
||||
|
||||
AC_SUBST(LIBSUPPORT)
|
||||
AC_SUBST(SUPPORTINCS)
|
||||
|
||||
AC_OUTPUT([
|
||||
Makefile
|
||||
po/Makefile.in
|
||||
@@ -192,5 +206,4 @@ src/Makefile
|
||||
src/server/Makefile
|
||||
lib/Makefile
|
||||
examples/Makefile
|
||||
support/Makefile
|
||||
macros/Makefile],[sed -e "/POTFILES =/r po/POTFILES" po/Makefile.in > po/Makefile])
|
||||
|
@@ -19,6 +19,8 @@
|
||||
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
Boston, MA 02111-1307, USA. */
|
||||
|
||||
#include <locale.h>
|
||||
|
||||
#include <glibtop.h>
|
||||
#include <glibtop/open.h>
|
||||
#include <glibtop/close.h>
|
||||
|
@@ -19,6 +19,8 @@
|
||||
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
Boston, MA 02111-1307, USA. */
|
||||
|
||||
#include <locale.h>
|
||||
|
||||
#include <glibtop.h>
|
||||
#include <glibtop/open.h>
|
||||
#include <glibtop/close.h>
|
||||
|
@@ -19,6 +19,8 @@
|
||||
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
Boston, MA 02111-1307, USA. */
|
||||
|
||||
#include <locale.h>
|
||||
|
||||
#include <glibtop.h>
|
||||
|
||||
#include <glibtop/open.h>
|
||||
|
@@ -1,10 +0,0 @@
|
||||
(display (get-cpu)) (newline)
|
||||
(display (get-mem)) (newline)
|
||||
(display (get-swap)) (newline)
|
||||
(display (get-uptime)) (newline)
|
||||
(display (get-loadavg)) (newline)
|
||||
(display (get-shm_limits)) (newline)
|
||||
(display (get-msg_limits)) (newline)
|
||||
(display (get-sem_limits)) (newline)
|
||||
(display (get-sysdeps)) (newline)
|
||||
(display (get-proclist)) (newline)
|
@@ -55,11 +55,13 @@
|
||||
#include <guile/gh.h>
|
||||
#endif
|
||||
|
||||
#ifdef _IN_LIBGTOP
|
||||
#if (defined HAVE_LIBINTL_H) || (defined HAVE_GETTEXT)
|
||||
#include <libintl.h>
|
||||
#else
|
||||
#include <libgettext.h>
|
||||
#endif
|
||||
#endif
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
|
@@ -1,32 +0,0 @@
|
||||
/* $Id$ */
|
||||
|
||||
/* Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
|
||||
This file is part of the Gnome Top Library.
|
||||
Contributed by Martin Baulig <martin@home-of-linux.org>, April 1998.
|
||||
|
||||
The Gnome Top Library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Library General Public License as
|
||||
published by the Free Software Foundation; either version 2 of the
|
||||
License, or (at your option) any later version.
|
||||
|
||||
The Gnome Top Library 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
|
||||
Library General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Library General Public
|
||||
License along with the GNU C Library; see the file COPYING.LIB. If not,
|
||||
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
Boston, MA 02111-1307, USA. */
|
||||
|
||||
#include <glibtop/sysdeps.h>
|
||||
#include <glibtop/command.h>
|
||||
|
||||
/* Checks which features are implemented. */
|
||||
|
||||
void
|
||||
glibtop_get_sysdeps__r (glibtop *server, glibtop_sysdeps *buf)
|
||||
{
|
||||
glibtop_init__r (&server);
|
||||
glibtop_call__r (server, GLIBTOP_CMND_SYSDEPS, 0, NULL, sizeof (glibtop_sysdeps), buf);
|
||||
}
|
89
libgtop.spec
Normal file
89
libgtop.spec
Normal file
@@ -0,0 +1,89 @@
|
||||
# Note that this is NOT a relocatable package
|
||||
%define ver 0.01
|
||||
%define rel SNAP
|
||||
%define prefix /usr
|
||||
|
||||
Summary: GNOME Top Library
|
||||
Name: libgtop
|
||||
Version: %ver
|
||||
Release: %rel
|
||||
Copyright: LGPL
|
||||
Group: X11/gnome
|
||||
Source: ftp://ftp.gnome.org/pub/libgtop-%{ver}.tar.gz
|
||||
BuildRoot: /tmp/libgtop-root
|
||||
Obsoletes: gnome
|
||||
Packager: Marc Ewing <marc@redhat.com>
|
||||
URL: http://www.gnome.org/
|
||||
Docdir: %{prefix}/doc
|
||||
|
||||
%description
|
||||
Library that fetches information about the running system such as cpu
|
||||
and memory usage, active processes etc. On Linux systems, these information
|
||||
are taken directly from the /proc filesystem. For other systems such as
|
||||
Solaris, where such programs need to be suid root (or only setgid kmem/mem
|
||||
on some systems), it provides a suid/setgid server that fetches those
|
||||
information and a client-side library that talks to this server.
|
||||
|
||||
Main idea was to have the same interface for all operating systems,
|
||||
thus all system dependent details are hidden in the implementation
|
||||
of that server.
|
||||
|
||||
%package devel
|
||||
Summary: Libraries, includes, etc to use libgtop in GNOME applications
|
||||
Group: X11/gnome
|
||||
Requires: libgtop
|
||||
Obsoletes: gnome
|
||||
|
||||
%description devel
|
||||
Libraries, include files, etc you need to use libgtop in GNOME applications.
|
||||
|
||||
%prep
|
||||
%setup
|
||||
|
||||
%build
|
||||
# Needed for snapshot releases.
|
||||
if [ ! -f configure ]; then
|
||||
CFLAGS="$RPM_OPT_FLAGS" ./autogen.sh --prefix=%prefix
|
||||
else
|
||||
CFLAGS="$RPM_OPT_FLAGS" ./configure --prefix=%prefix
|
||||
fi
|
||||
|
||||
if [ "$SMP" != "" ]; then
|
||||
(make "MAKE=make -k -j $SMP"; exit 0)
|
||||
make
|
||||
else
|
||||
make
|
||||
fi
|
||||
|
||||
%install
|
||||
rm -rf $RPM_BUILD_ROOT
|
||||
|
||||
make prefix=$RPM_BUILD_ROOT%{prefix} install
|
||||
|
||||
%clean
|
||||
rm -rf $RPM_BUILD_ROOT
|
||||
|
||||
%post
|
||||
if ! grep %{prefix}/lib /etc/ld.so.conf > /dev/null ; then
|
||||
echo "%{prefix}/lib" >> /etc/ld.so.conf
|
||||
fi
|
||||
|
||||
/sbin/ldconfig
|
||||
|
||||
%postun -p /sbin/ldconfig
|
||||
|
||||
%files
|
||||
%defattr(-, root, root)
|
||||
|
||||
%doc AUTHORS COPYING ChangeLog NEWS README
|
||||
%{prefix}/lib/lib*.so.*
|
||||
%{prefix}/bin/*
|
||||
|
||||
%files devel
|
||||
%defattr(-, root, root)
|
||||
|
||||
%{prefix}/lib/lib*.so
|
||||
%{prefix}/lib/*a
|
||||
%{prefix}/lib/*.sh
|
||||
%{prefix}/lib/libgtop
|
||||
%{prefix}/include/*
|
@@ -6,7 +6,6 @@ lib/open.c
|
||||
lib/read.c
|
||||
lib/swap.c
|
||||
lib/write.c
|
||||
lib/sysdeps.c
|
||||
lib/uptime.c
|
||||
lib/loadavg.c
|
||||
lib/shm_limits.c
|
||||
|
@@ -26,6 +26,7 @@
|
||||
#include <glibtop/open.h>
|
||||
|
||||
#include <fcntl.h>
|
||||
#include <locale.h>
|
||||
|
||||
#if defined(HAVE_GETDTABLESIZE)
|
||||
#define GET_MAX_FDS() getdtablesize()
|
||||
|
@@ -33,9 +33,9 @@ glibtop_guile_names_cpu (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_CPU; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_names_cpu [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_cpu [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -50,9 +50,9 @@ glibtop_guile_types_cpu (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_CPU; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_types_cpu [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_types_cpu [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -67,10 +67,10 @@ glibtop_guile_labels_cpu (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_CPU; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_labels_cpu [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_labels_cpu [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_cpu (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_CPU; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_descriptions_cpu [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_descriptions_cpu [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -33,9 +33,9 @@ glibtop_guile_names_loadavg (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_names_loadavg [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_loadavg [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -50,9 +50,9 @@ glibtop_guile_types_loadavg (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_types_loadavg [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_types_loadavg [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -67,10 +67,10 @@ glibtop_guile_labels_loadavg (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_labels_loadavg [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_labels_loadavg [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_loadavg (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_descriptions_loadavg [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_descriptions_loadavg [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -33,9 +33,9 @@ glibtop_guile_names_mem (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_MEM; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_names_mem [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_mem [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -50,9 +50,9 @@ glibtop_guile_types_mem (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_MEM; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_types_mem [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_types_mem [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -67,10 +67,10 @@ glibtop_guile_labels_mem (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_MEM; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_labels_mem [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_labels_mem [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_mem (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_MEM; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_descriptions_mem [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_descriptions_mem [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -33,9 +33,9 @@ glibtop_guile_names_msg_limits (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_names_msg_limits [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_msg_limits [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -50,9 +50,9 @@ glibtop_guile_types_msg_limits (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_types_msg_limits [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_types_msg_limits [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -67,10 +67,10 @@ glibtop_guile_labels_msg_limits (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_labels_msg_limits [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_labels_msg_limits [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_msg_limits (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_descriptions_msg_limits [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_descriptions_msg_limits [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -33,9 +33,9 @@ glibtop_guile_names_proc_kernel (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_names_proc_kernel [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_proc_kernel [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -50,9 +50,9 @@ glibtop_guile_types_proc_kernel (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_types_proc_kernel [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_types_proc_kernel [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -67,10 +67,10 @@ glibtop_guile_labels_proc_kernel (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_labels_proc_kernel [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_labels_proc_kernel [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_proc_kernel (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_descriptions_proc_kernel [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_descriptions_proc_kernel [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -34,9 +34,9 @@ glibtop_guile_names_proclist (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_names_proclist [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_proclist [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -51,9 +51,9 @@ glibtop_guile_types_proclist (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_types_proclist [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_types_proclist [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -68,10 +68,10 @@ glibtop_guile_labels_proclist (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_labels_proclist [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_labels_proclist [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -86,10 +86,10 @@ glibtop_guile_descriptions_proclist (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_descriptions_proclist [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_descriptions_proclist [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -33,9 +33,9 @@ glibtop_guile_names_proc_mem (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_names_proc_mem [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_proc_mem [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -50,9 +50,9 @@ glibtop_guile_types_proc_mem (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_types_proc_mem [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_types_proc_mem [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -67,10 +67,10 @@ glibtop_guile_labels_proc_mem (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_labels_proc_mem [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_labels_proc_mem [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_proc_mem (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_descriptions_proc_mem [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_descriptions_proc_mem [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -33,9 +33,9 @@ glibtop_guile_names_proc_segment (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_names_proc_segment [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_proc_segment [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -50,9 +50,9 @@ glibtop_guile_types_proc_segment (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_types_proc_segment [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_types_proc_segment [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -67,10 +67,10 @@ glibtop_guile_labels_proc_segment (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_labels_proc_segment [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_labels_proc_segment [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_proc_segment (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_descriptions_proc_segment [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_descriptions_proc_segment [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -33,9 +33,9 @@ glibtop_guile_names_proc_signal (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_names_proc_signal [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_proc_signal [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -50,9 +50,9 @@ glibtop_guile_types_proc_signal (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_types_proc_signal [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_types_proc_signal [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -67,10 +67,10 @@ glibtop_guile_labels_proc_signal (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_labels_proc_signal [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_labels_proc_signal [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_proc_signal (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_descriptions_proc_signal [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_descriptions_proc_signal [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -33,9 +33,9 @@ glibtop_guile_names_proc_state (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_names_proc_state [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_proc_state [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -50,9 +50,9 @@ glibtop_guile_types_proc_state (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_types_proc_state [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_types_proc_state [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -67,10 +67,10 @@ glibtop_guile_labels_proc_state (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_labels_proc_state [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_labels_proc_state [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_proc_state (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_descriptions_proc_state [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_descriptions_proc_state [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -33,9 +33,9 @@ glibtop_guile_names_proc_time (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_names_proc_time [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_proc_time [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -50,9 +50,9 @@ glibtop_guile_types_proc_time (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_types_proc_time [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_types_proc_time [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -67,10 +67,10 @@ glibtop_guile_labels_proc_time (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_labels_proc_time [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_labels_proc_time [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_proc_time (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_descriptions_proc_time [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_descriptions_proc_time [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -33,9 +33,9 @@ glibtop_guile_names_proc_uid (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_names_proc_uid [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_proc_uid [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -50,9 +50,9 @@ glibtop_guile_types_proc_uid (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (glibtop_types_proc_uid [i]),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_types_proc_uid [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -67,10 +67,10 @@ glibtop_guile_labels_proc_uid (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_labels_proc_uid [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_labels_proc_uid [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_proc_uid (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++)
|
||||
list = gh_append2
|
||||
(list, gh_list
|
||||
(gh_str02scm (gettext
|
||||
(glibtop_descriptions_proc_uid [i])),
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_str02scm (gettext
|
||||
(glibtop_descriptions_proc_uid [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -33,7 +33,8 @@ glibtop_guile_names_sem_limits (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_SEM_LIMITS; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (glibtop_names_sem_limits [i]),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_sem_limits [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -48,7 +49,8 @@ glibtop_guile_types_sem_limits (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_SEM_LIMITS; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_types_sem_limits [i])),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (gettext (glibtop_types_sem_limits [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -63,7 +65,8 @@ glibtop_guile_labels_sem_limits (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_SEM_LIMITS; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_labels_sem_limits [i])),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (gettext (glibtop_labels_sem_limits [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -78,7 +81,8 @@ glibtop_guile_descriptions_sem_limits (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_SEM_LIMITS; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_descriptions_sem_limits [i])),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (gettext (glibtop_descriptions_sem_limits [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -33,7 +33,8 @@ glibtop_guile_names_shm_limits (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (glibtop_names_shm_limits [i]),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_shm_limits [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -48,7 +49,8 @@ glibtop_guile_types_shm_limits (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_types_shm_limits [i])),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (gettext (glibtop_types_shm_limits [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -63,7 +65,8 @@ glibtop_guile_labels_shm_limits (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_labels_shm_limits [i])),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (gettext (glibtop_labels_shm_limits [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -78,7 +81,8 @@ glibtop_guile_descriptions_shm_limits (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_descriptions_shm_limits [i])),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (gettext (glibtop_descriptions_shm_limits [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -33,7 +33,9 @@ glibtop_guile_names_swap (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_SWAP; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (glibtop_names_swap [i]), SCM_UNDEFINED));
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_swap [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
}
|
||||
@@ -47,7 +49,8 @@ glibtop_guile_types_swap (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_SWAP; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_types_swap [i])),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (gettext (glibtop_types_swap [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -62,7 +65,8 @@ glibtop_guile_labels_swap (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_SWAP; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_labels_swap [i])),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (gettext (glibtop_labels_swap [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -77,7 +81,8 @@ glibtop_guile_descriptions_swap (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_SWAP; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_descriptions_swap [i])),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (gettext (glibtop_descriptions_swap [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -33,7 +33,8 @@ glibtop_guile_names_sysdeps (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_SYSDEPS; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (glibtop_names_sysdeps [i]),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_sysdeps [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -48,7 +49,8 @@ glibtop_guile_types_sysdeps (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_SYSDEPS; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_types_sysdeps [i])),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (gettext (glibtop_types_sysdeps [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -63,7 +65,8 @@ glibtop_guile_labels_sysdeps (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_SYSDEPS; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_labels_sysdeps [i])),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (gettext (glibtop_labels_sysdeps [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -78,7 +81,8 @@ glibtop_guile_descriptions_sysdeps (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_SYSDEPS; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_descriptions_sysdeps [i])),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (gettext (glibtop_descriptions_sysdeps [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -33,7 +33,9 @@ glibtop_guile_names_uptime (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_UPTIME; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (glibtop_names_uptime [i]), SCM_UNDEFINED));
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (glibtop_names_uptime [i])),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
}
|
||||
@@ -47,7 +49,8 @@ glibtop_guile_types_uptime (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_UPTIME; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_types_uptime [i])),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (gettext (glibtop_types_uptime [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -62,7 +65,8 @@ glibtop_guile_labels_uptime (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_UPTIME; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_labels_uptime [i])),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (gettext (glibtop_labels_uptime [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
@@ -77,7 +81,8 @@ glibtop_guile_descriptions_uptime (void)
|
||||
list = gh_list (SCM_UNDEFINED);
|
||||
|
||||
for (i = 0; i < GLIBTOP_MAX_UPTIME; i++)
|
||||
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_descriptions_uptime [i])),
|
||||
list = gh_append (gh_list (list,
|
||||
gh_list (gh_str02scm (gettext (glibtop_descriptions_uptime [i]))),
|
||||
SCM_UNDEFINED));
|
||||
|
||||
return list;
|
||||
|
@@ -43,7 +43,10 @@ glibtop_guile_get_proclist (void)
|
||||
|
||||
if (ptr) {
|
||||
for (i = 0; i < proclist.number; i++)
|
||||
list = gh_append2 (list, gh_list (gh_ulong2scm ((unsigned long) ptr [i]), SCM_UNDEFINED));
|
||||
list = gh_append
|
||||
(gh_list (list,
|
||||
gh_list (gh_ulong2scm ((unsigned long) ptr [i])),
|
||||
SCM_UNDEFINED));
|
||||
}
|
||||
|
||||
glibtop_free (ptr);
|
||||
|
Reference in New Issue
Block a user