Compare commits

...

9 Commits

Author SHA1 Message Date
Martin Baulig
321f5180f7 Fixing mistakes from previous checkin. 1998-06-11 23:53:16 +00:00
Martin Baulig
d9874dca81 Replaced call to gh_append2 ()' with gh_append ()'.
1998-06-12  Martin Baulig  <baulig@taurus.uni-trier.de>

	* sysdeps/guile/proclist.c: Replaced call to
	`gh_append2 ()' with `gh_append ()'.
1998-06-11 22:45:18 +00:00
Martin Baulig
0d744987ff removed that directory.
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.

I have now removed all the `support' stuff from libgtop. It uses
'-lgnomesupport' from gnome-libs when it's required. So you have to
build gnome-libs before you can build libgtop.

If all works well, this is my last checkin into the stable branch.
I will now continue working on the main trunk.

Martin
1998-06-05 15:06:54 +00:00
Martin Baulig
e6b544af80 Removed stuff from support directory. 1998-06-05 14:40:20 +00:00
Martin Baulig
266d62bc3c Added sample spec file for libgtop. 1998-06-03 17:30:56 +00:00
Martin Baulig
4c3fb58e3e New file.
* 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'.
1998-06-03 17:29:47 +00:00
Martin Baulig
223f986205 only including intl headers while compiling libgtop.
* include/glibtop/global.h: only including intl headers
while compiling libgtop.
1998-06-03 17:27:26 +00:00
Martin Baulig
ec0d751472 Committing Federico's changes into the stable branch. 1998-06-03 11:06:53 +00:00
Martin Baulig
005eaa8e95 *** empty log message *** 1998-06-02 23:13:30 +00:00
31 changed files with 502 additions and 866 deletions

View File

@@ -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> 1998-05-24 Martin Baulig <martin@home-of-linux.org>
* sysdeps/sun4/{open.c, mem.c, glibtop_machine.h}: added * sysdeps/sun4/{open.c, mem.c, glibtop_machine.h}: added

View File

@@ -6,13 +6,13 @@ endif
built_SUBDIRS = include sysdeps src lib 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 include_HEADERS = glibtop.h
EXTRA_DIST = copyright.txt libgtopConf.sh.in EXTRA_DIST = autogen.sh libgtop.spec copyright.txt libgtopConf.sh.in
release: release:
$(MAKE) dist distdir=$(PACKAGE)$(VERSION) $(MAKE) dist distdir=$(PACKAGE)$(VERSION)

View File

@@ -101,512 +101,86 @@ AC_DEFUN([AC_LC_SYSDEPS],[
AC_SUBST(libgtop_want_examples) AC_SUBST(libgtop_want_examples)
]) ])
# Like AC_CONFIG_HEADER, but automatically create stamp file. ######################################################################
# progtest.m4 from gettext 0.32
AC_DEFUN(AM_CONFIG_HEADER, ######################################################################
[AC_PREREQ([2.12]) # Search path for a program which passes the given test.
AC_CONFIG_HEADER([$1]) # Ulrich Drepper <drepper@cygnus.com>, 1996.
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
])
# #
# Check to make sure that the build environment is sane. # 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.
AC_DEFUN(AM_SANITY_CHECK, # Please note that the actual code is *not* freely available.
[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
# serial 1 # serial 1
AC_DEFUN(AM_MAINTAINER_MODE, dnl AM_PATH_PROG_WITH_TEST(VARIABLE, PROG-TO-CHECK-FOR,
[AC_MSG_CHECKING([whether to enable maintainer-specific portions of Makefiles]) dnl TEST-PERFORMED-ON-FOUND_PROGRAM [, VALUE-IF-NOT-FOUND [, PATH]])
dnl maintainer-mode is disabled by default AC_DEFUN(AM_PATH_PROG_WITH_TEST,
AC_ARG_ENABLE(maintainer-mode, [# Extract the first word of "$2", so it can be a program name with args.
[ --enable-maintainer-mode enable make rules and dependencies not useful set dummy $2; ac_word=[$]2
(and sometimes confusing) to the casual installer], AC_MSG_CHECKING([for $ac_word])
USE_MAINTAINER_MODE=$enableval, AC_CACHE_VAL(ac_cv_path_$1,
USE_MAINTAINER_MODE=no) [case "[$]$1" in
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.
/*) /*)
test -z "$LD" && LD="$ac_prog" ac_cv_path_$1="[$]$1" # Let the user override the test with a path.
;;
"")
# If it fails, then pretend we aren't using GCC.
ac_prog=ld
;; ;;
*) *)
# 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}:" 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=. test -z "$ac_dir" && ac_dir=.
if test -f "$ac_dir/$ac_prog"; then if test -f $ac_dir/$ac_word; then
ac_cv_path_LD="$ac_dir/$ac_prog" if [$3]; then
# Check to see if the program is GNU ld. I'd rather use --version, ac_cv_path_$1="$ac_dir/$ac_word"
# but apparently some GNU ld's only accept -v. break
# 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
fi fi
fi fi
done done
IFS="$ac_save_ifs" IFS="$ac_save_ifs"
else dnl If no 4th arg is given, leave the cache variable unset,
ac_cv_path_LD="$LD" # Let the user override the test with a path. dnl so AC_PATH_PROGS will keep looking.
fi]) ifelse([$4], , , [ test -z "[$]ac_cv_path_$1" && ac_cv_path_$1="$4"
LD="$ac_cv_path_LD" ])dnl
if test -n "$LD"; then ;;
AC_MSG_RESULT($LD) esac])dnl
$1="$ac_cv_path_$1"
if test -n "[$]$1"; then
AC_MSG_RESULT([$]$1)
else else
AC_MSG_RESULT(no) AC_MSG_RESULT(no)
fi fi
test -z "$LD" && AC_MSG_ERROR([no acceptable ld found in \$PATH]) AC_SUBST($1)dnl
AC_SUBST(LD)
AM_PROG_LD_GNU
]) ])
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. # lcmessage.m4 from gettext 0.32
if $LD -v 2>&1 </dev/null | egrep '(GNU|with BFD)' 1>&5; then ######################################################################
ac_cv_prog_gnu_ld=yes # Check whether LC_MESSAGES is available in <locale.h>.
else # Ulrich Drepper <drepper@cygnus.com>, 1995.
ac_cv_prog_gnu_ld=no #
# 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]) 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. # Macro to add for using GNU gettext.
# Ulrich Drepper <drepper@cygnus.com>, 1995. # 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/" \ sed -e "/^#/d" -e "/^\$/d" -e "s,.*, $posrcprefix& \\\\," -e "\$s/\(.*\) \\\\/\1/" \
< $srcdir/po/POTFILES.in > po/POTFILES < $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])

View File

@@ -24,6 +24,9 @@ AC_CHECK_TOOL(NM,nm)
NM=`which $NM` NM=`which $NM`
export CC CXX RANLIB LD AS AR 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 AC_LC_SYSDEPS
if test x$libgtop_want_guile = xyes ; then if test x$libgtop_want_guile = xyes ; then
@@ -60,7 +63,8 @@ AC_PROG_MAKE_SET
export cross_compiling export cross_compiling
AM_PROG_LIBTOOL 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. dnl Checks for typedefs, structures, and compiler characteristics.
AC_C_CONST 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),) AC_ARG_ENABLE(debug, [ --enable-debug turn on debugging [default=no]],AC_DEFINE(GNOME_ENABLE_DEBUG),)
LIBSUPPORT= dnl If you want to use libgtop without gnome, uncomment the following paragraph:
SUPPORTINCS= dnl LIBSUPPORT=
if test "$need_gnome_support" = yes; then dnl SUPPORTINCS=
LIBSUPPORT='$(top_builddir)/support/libgnomesupport.la' dnl if test "$need_gnome_support" = yes; then
SUPPORTINCS='-I$(top_srcdir)/support' 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 fi
AC_SUBST(LIBSUPPORT)
AC_SUBST(SUPPORTINCS)
dnl These definitions are expanded in make. dnl These definitions are expanded in make.
LIBGTOP_LIBS='-L$(libdir)' LIBGTOP_LIBS='-L$(libdir)'
@@ -153,6 +169,7 @@ else
fi fi
if test "x$ac_cv_guile_found" = "xyes" ; then if test "x$ac_cv_guile_found" = "xyes" ; then
LIBGTOP_INCS="$LIBGTOP_INCS $GUILE_INCS"
LIBGTOP_GUILE_INCS="$LIBGTOP_INCS $GUILE_INCS" LIBGTOP_GUILE_INCS="$LIBGTOP_INCS $GUILE_INCS"
LIBGTOP_GUILE_LIBS="$LIBGTOP_GUILE_LIBS $GUILE_LIBS" LIBGTOP_GUILE_LIBS="$LIBGTOP_GUILE_LIBS $GUILE_LIBS"
fi fi
@@ -170,9 +187,6 @@ AC_SUBST(LIBGTOP_GUILE_INCS)
AC_SUBST(LIBGTOP_BINDIR) AC_SUBST(LIBGTOP_BINDIR)
AC_SUBST(LIBGTOP_SERVER) AC_SUBST(LIBGTOP_SERVER)
AC_SUBST(LIBSUPPORT)
AC_SUBST(SUPPORTINCS)
AC_OUTPUT([ AC_OUTPUT([
Makefile Makefile
po/Makefile.in po/Makefile.in
@@ -192,5 +206,4 @@ src/Makefile
src/server/Makefile src/server/Makefile
lib/Makefile lib/Makefile
examples/Makefile examples/Makefile
support/Makefile
macros/Makefile],[sed -e "/POTFILES =/r po/POTFILES" po/Makefile.in > po/Makefile]) macros/Makefile],[sed -e "/POTFILES =/r po/POTFILES" po/Makefile.in > po/Makefile])

View File

@@ -19,6 +19,8 @@
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */ Boston, MA 02111-1307, USA. */
#include <locale.h>
#include <glibtop.h> #include <glibtop.h>
#include <glibtop/open.h> #include <glibtop/open.h>
#include <glibtop/close.h> #include <glibtop/close.h>

View File

@@ -19,6 +19,8 @@
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */ Boston, MA 02111-1307, USA. */
#include <locale.h>
#include <glibtop.h> #include <glibtop.h>
#include <glibtop/open.h> #include <glibtop/open.h>
#include <glibtop/close.h> #include <glibtop/close.h>

View File

@@ -19,6 +19,8 @@
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */ Boston, MA 02111-1307, USA. */
#include <locale.h>
#include <glibtop.h> #include <glibtop.h>
#include <glibtop/open.h> #include <glibtop/open.h>

View File

@@ -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)

View File

@@ -55,11 +55,13 @@
#include <guile/gh.h> #include <guile/gh.h>
#endif #endif
#ifdef _IN_LIBGTOP
#if (defined HAVE_LIBINTL_H) || (defined HAVE_GETTEXT) #if (defined HAVE_LIBINTL_H) || (defined HAVE_GETTEXT)
#include <libintl.h> #include <libintl.h>
#else #else
#include <libgettext.h> #include <libgettext.h>
#endif #endif
#endif
#include <stdio.h> #include <stdio.h>
#include <stdlib.h> #include <stdlib.h>

View File

@@ -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
View 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/*

View File

@@ -6,7 +6,6 @@ lib/open.c
lib/read.c lib/read.c
lib/swap.c lib/swap.c
lib/write.c lib/write.c
lib/sysdeps.c
lib/uptime.c lib/uptime.c
lib/loadavg.c lib/loadavg.c
lib/shm_limits.c lib/shm_limits.c

View File

@@ -26,6 +26,7 @@
#include <glibtop/open.h> #include <glibtop/open.h>
#include <fcntl.h> #include <fcntl.h>
#include <locale.h>
#if defined(HAVE_GETDTABLESIZE) #if defined(HAVE_GETDTABLESIZE)
#define GET_MAX_FDS() getdtablesize() #define GET_MAX_FDS() getdtablesize()

View File

@@ -33,9 +33,9 @@ glibtop_guile_names_cpu (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_CPU; i++) for (i = 0; i < GLIBTOP_MAX_CPU; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_names_cpu [i]), gh_list (gh_str02scm (glibtop_names_cpu [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -50,9 +50,9 @@ glibtop_guile_types_cpu (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_CPU; i++) for (i = 0; i < GLIBTOP_MAX_CPU; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_types_cpu [i]), gh_list (gh_str02scm (glibtop_types_cpu [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -67,10 +67,10 @@ glibtop_guile_labels_cpu (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_CPU; i++) for (i = 0; i < GLIBTOP_MAX_CPU; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_labels_cpu [i])), (glibtop_labels_cpu [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_cpu (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_CPU; i++) for (i = 0; i < GLIBTOP_MAX_CPU; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_descriptions_cpu [i])), (glibtop_descriptions_cpu [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;

View File

@@ -33,9 +33,9 @@ glibtop_guile_names_loadavg (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++) for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_names_loadavg [i]), gh_list (gh_str02scm (glibtop_names_loadavg [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -50,9 +50,9 @@ glibtop_guile_types_loadavg (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++) for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_types_loadavg [i]), gh_list (gh_str02scm (glibtop_types_loadavg [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -67,10 +67,10 @@ glibtop_guile_labels_loadavg (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++) for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_labels_loadavg [i])), (glibtop_labels_loadavg [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_loadavg (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++) for (i = 0; i < GLIBTOP_MAX_LOADAVG; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_descriptions_loadavg [i])), (glibtop_descriptions_loadavg [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;

View File

@@ -33,9 +33,9 @@ glibtop_guile_names_mem (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MEM; i++) for (i = 0; i < GLIBTOP_MAX_MEM; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_names_mem [i]), gh_list (gh_str02scm (glibtop_names_mem [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -50,9 +50,9 @@ glibtop_guile_types_mem (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MEM; i++) for (i = 0; i < GLIBTOP_MAX_MEM; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_types_mem [i]), gh_list (gh_str02scm (glibtop_types_mem [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -67,10 +67,10 @@ glibtop_guile_labels_mem (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MEM; i++) for (i = 0; i < GLIBTOP_MAX_MEM; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_labels_mem [i])), (glibtop_labels_mem [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_mem (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MEM; i++) for (i = 0; i < GLIBTOP_MAX_MEM; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_descriptions_mem [i])), (glibtop_descriptions_mem [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;

View File

@@ -33,9 +33,9 @@ glibtop_guile_names_msg_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++) for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_names_msg_limits [i]), gh_list (gh_str02scm (glibtop_names_msg_limits [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -50,9 +50,9 @@ glibtop_guile_types_msg_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++) for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_types_msg_limits [i]), gh_list (gh_str02scm (glibtop_types_msg_limits [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -67,10 +67,10 @@ glibtop_guile_labels_msg_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++) for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_labels_msg_limits [i])), (glibtop_labels_msg_limits [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_msg_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++) for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_descriptions_msg_limits [i])), (glibtop_descriptions_msg_limits [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;

View File

@@ -33,9 +33,9 @@ glibtop_guile_names_proc_kernel (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++) for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_names_proc_kernel [i]), gh_list (gh_str02scm (glibtop_names_proc_kernel [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -50,9 +50,9 @@ glibtop_guile_types_proc_kernel (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++) for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_types_proc_kernel [i]), gh_list (gh_str02scm (glibtop_types_proc_kernel [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -67,10 +67,10 @@ glibtop_guile_labels_proc_kernel (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++) for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_labels_proc_kernel [i])), (glibtop_labels_proc_kernel [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_proc_kernel (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++) for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_descriptions_proc_kernel [i])), (glibtop_descriptions_proc_kernel [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;

View File

@@ -34,9 +34,9 @@ glibtop_guile_names_proclist (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++) for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_names_proclist [i]), gh_list (gh_str02scm (glibtop_names_proclist [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -51,9 +51,9 @@ glibtop_guile_types_proclist (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++) for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_types_proclist [i]), gh_list (gh_str02scm (glibtop_types_proclist [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -68,10 +68,10 @@ glibtop_guile_labels_proclist (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++) for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_labels_proclist [i])), (glibtop_labels_proclist [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -86,10 +86,10 @@ glibtop_guile_descriptions_proclist (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++) for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_descriptions_proclist [i])), (glibtop_descriptions_proclist [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;

View File

@@ -33,9 +33,9 @@ glibtop_guile_names_proc_mem (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++) for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_names_proc_mem [i]), gh_list (gh_str02scm (glibtop_names_proc_mem [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -50,9 +50,9 @@ glibtop_guile_types_proc_mem (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++) for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_types_proc_mem [i]), gh_list (gh_str02scm (glibtop_types_proc_mem [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -67,10 +67,10 @@ glibtop_guile_labels_proc_mem (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++) for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_labels_proc_mem [i])), (glibtop_labels_proc_mem [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_proc_mem (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++) for (i = 0; i < GLIBTOP_MAX_PROC_MEM; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_descriptions_proc_mem [i])), (glibtop_descriptions_proc_mem [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;

View File

@@ -33,9 +33,9 @@ glibtop_guile_names_proc_segment (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++) for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_names_proc_segment [i]), gh_list (gh_str02scm (glibtop_names_proc_segment [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -50,9 +50,9 @@ glibtop_guile_types_proc_segment (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++) for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_types_proc_segment [i]), gh_list (gh_str02scm (glibtop_types_proc_segment [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -67,10 +67,10 @@ glibtop_guile_labels_proc_segment (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++) for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_labels_proc_segment [i])), (glibtop_labels_proc_segment [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_proc_segment (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++) for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_descriptions_proc_segment [i])), (glibtop_descriptions_proc_segment [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;

View File

@@ -33,9 +33,9 @@ glibtop_guile_names_proc_signal (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++) for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_names_proc_signal [i]), gh_list (gh_str02scm (glibtop_names_proc_signal [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -50,9 +50,9 @@ glibtop_guile_types_proc_signal (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++) for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_types_proc_signal [i]), gh_list (gh_str02scm (glibtop_types_proc_signal [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -67,10 +67,10 @@ glibtop_guile_labels_proc_signal (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++) for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_labels_proc_signal [i])), (glibtop_labels_proc_signal [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_proc_signal (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++) for (i = 0; i < GLIBTOP_MAX_PROC_SIGNAL; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_descriptions_proc_signal [i])), (glibtop_descriptions_proc_signal [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;

View File

@@ -33,9 +33,9 @@ glibtop_guile_names_proc_state (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++) for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_names_proc_state [i]), gh_list (gh_str02scm (glibtop_names_proc_state [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -50,9 +50,9 @@ glibtop_guile_types_proc_state (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++) for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_types_proc_state [i]), gh_list (gh_str02scm (glibtop_types_proc_state [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -67,10 +67,10 @@ glibtop_guile_labels_proc_state (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++) for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_labels_proc_state [i])), (glibtop_labels_proc_state [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_proc_state (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++) for (i = 0; i < GLIBTOP_MAX_PROC_STATE; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_descriptions_proc_state [i])), (glibtop_descriptions_proc_state [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;

View File

@@ -33,9 +33,9 @@ glibtop_guile_names_proc_time (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++) for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_names_proc_time [i]), gh_list (gh_str02scm (glibtop_names_proc_time [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -50,9 +50,9 @@ glibtop_guile_types_proc_time (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++) for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_types_proc_time [i]), gh_list (gh_str02scm (glibtop_types_proc_time [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -67,10 +67,10 @@ glibtop_guile_labels_proc_time (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++) for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_labels_proc_time [i])), (glibtop_labels_proc_time [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_proc_time (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++) for (i = 0; i < GLIBTOP_MAX_PROC_TIME; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_descriptions_proc_time [i])), (glibtop_descriptions_proc_time [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;

View File

@@ -33,9 +33,9 @@ glibtop_guile_names_proc_uid (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++) for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_names_proc_uid [i]), gh_list (gh_str02scm (glibtop_names_proc_uid [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -50,9 +50,9 @@ glibtop_guile_types_proc_uid (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++) for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (glibtop_types_proc_uid [i]), gh_list (gh_str02scm (glibtop_types_proc_uid [i])),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -67,10 +67,10 @@ glibtop_guile_labels_proc_uid (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++) for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_labels_proc_uid [i])), (glibtop_labels_proc_uid [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;
@@ -85,10 +85,10 @@ glibtop_guile_descriptions_proc_uid (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++) for (i = 0; i < GLIBTOP_MAX_PROC_UID; i++)
list = gh_append2 list = gh_append
(list, gh_list (gh_list (list,
(gh_str02scm (gettext gh_list (gh_str02scm (gettext
(glibtop_descriptions_proc_uid [i])), (glibtop_descriptions_proc_uid [i]))),
SCM_UNDEFINED)); SCM_UNDEFINED));
return list; return list;

View File

@@ -33,7 +33,8 @@ glibtop_guile_names_sem_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SEM_LIMITS; i++) 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)); SCM_UNDEFINED));
return list; return list;
@@ -48,7 +49,8 @@ glibtop_guile_types_sem_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SEM_LIMITS; i++) 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)); SCM_UNDEFINED));
return list; return list;
@@ -63,7 +65,8 @@ glibtop_guile_labels_sem_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SEM_LIMITS; i++) 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)); SCM_UNDEFINED));
return list; return list;
@@ -78,7 +81,8 @@ glibtop_guile_descriptions_sem_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SEM_LIMITS; i++) 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)); SCM_UNDEFINED));
return list; return list;

View File

@@ -33,7 +33,8 @@ glibtop_guile_names_shm_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++) 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)); SCM_UNDEFINED));
return list; return list;
@@ -48,7 +49,8 @@ glibtop_guile_types_shm_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++) 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)); SCM_UNDEFINED));
return list; return list;
@@ -63,7 +65,8 @@ glibtop_guile_labels_shm_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++) 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)); SCM_UNDEFINED));
return list; return list;
@@ -78,7 +81,8 @@ glibtop_guile_descriptions_shm_limits (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++) 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)); SCM_UNDEFINED));
return list; return list;

View File

@@ -33,7 +33,9 @@ glibtop_guile_names_swap (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SWAP; i++) 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; return list;
} }
@@ -47,7 +49,8 @@ glibtop_guile_types_swap (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SWAP; i++) 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)); SCM_UNDEFINED));
return list; return list;
@@ -62,7 +65,8 @@ glibtop_guile_labels_swap (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SWAP; i++) 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)); SCM_UNDEFINED));
return list; return list;
@@ -77,7 +81,8 @@ glibtop_guile_descriptions_swap (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SWAP; i++) 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)); SCM_UNDEFINED));
return list; return list;

View File

@@ -33,7 +33,8 @@ glibtop_guile_names_sysdeps (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SYSDEPS; i++) 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)); SCM_UNDEFINED));
return list; return list;
@@ -48,7 +49,8 @@ glibtop_guile_types_sysdeps (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SYSDEPS; i++) 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)); SCM_UNDEFINED));
return list; return list;
@@ -63,7 +65,8 @@ glibtop_guile_labels_sysdeps (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SYSDEPS; i++) 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)); SCM_UNDEFINED));
return list; return list;
@@ -78,7 +81,8 @@ glibtop_guile_descriptions_sysdeps (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SYSDEPS; i++) 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)); SCM_UNDEFINED));
return list; return list;

View File

@@ -33,7 +33,9 @@ glibtop_guile_names_uptime (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_UPTIME; i++) 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; return list;
} }
@@ -47,7 +49,8 @@ glibtop_guile_types_uptime (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_UPTIME; i++) 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)); SCM_UNDEFINED));
return list; return list;
@@ -62,7 +65,8 @@ glibtop_guile_labels_uptime (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_UPTIME; i++) 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)); SCM_UNDEFINED));
return list; return list;
@@ -77,7 +81,8 @@ glibtop_guile_descriptions_uptime (void)
list = gh_list (SCM_UNDEFINED); list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_UPTIME; i++) 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)); SCM_UNDEFINED));
return list; return list;

View File

@@ -43,7 +43,10 @@ glibtop_guile_get_proclist (void)
if (ptr) { if (ptr) {
for (i = 0; i < proclist.number; i++) 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); glibtop_free (ptr);