Removed everything in this subdirectory. This was only experimental. The
1998-10-11 Martin Baulig <martin@home-of-linux.org> * perl: Removed everything in this subdirectory. This was only experimental. The real perl bindings for LibGTop are in the libgtop-bindings module.
This commit is contained in:
Martin Baulig
committed by
Martin Baulig
Martin Baulig
parent
669f7a6b17
commit
70bbae9b75
@@ -1,3 +1,9 @@
|
|||||||
|
1998-10-11 Martin Baulig <martin@home-of-linux.org>
|
||||||
|
|
||||||
|
* perl: Removed everything in this subdirectory. This was
|
||||||
|
only experimental. The real perl bindings for LibGTop are
|
||||||
|
in the libgtop-bindings module.
|
||||||
|
|
||||||
1998-10-11 Martin Baulig <martin@home-of-linux.org>
|
1998-10-11 Martin Baulig <martin@home-of-linux.org>
|
||||||
|
|
||||||
* src/inodedb/Makefile.am: Removed @libs_xauth@ and -lgdbm
|
* src/inodedb/Makefile.am: Removed @libs_xauth@ and -lgdbm
|
||||||
|
|||||||
@@ -33,8 +33,6 @@ confexec_DATA = $(top_builddir)/libgtopConf.sh
|
|||||||
|
|
||||||
bin_SCRIPTS = $(top_builddir)/libgtop-config
|
bin_SCRIPTS = $(top_builddir)/libgtop-config
|
||||||
|
|
||||||
noinst_DATA = $(top_builddir)/perl/features.def
|
|
||||||
|
|
||||||
## to automatically rebuild aclocal.m4 if any of the macros in
|
## to automatically rebuild aclocal.m4 if any of the macros in
|
||||||
## `macros/' change
|
## `macros/' change
|
||||||
@MAINT@include macros/macros.dep
|
@MAINT@include macros/macros.dep
|
||||||
@@ -80,5 +78,3 @@ libgtop-config: libgtop-config.in Makefile
|
|||||||
&& mv libgtop-config.tmp libgtop-config && \
|
&& mv libgtop-config.tmp libgtop-config && \
|
||||||
chmod 755 libgtop-config
|
chmod 755 libgtop-config
|
||||||
|
|
||||||
perl/features.def: features.def
|
|
||||||
cd perl && @LN_S@ $(srcdir)/features.def
|
|
||||||
|
|||||||
@@ -1,4 +0,0 @@
|
|||||||
Automakefile Automakefile.in
|
|
||||||
configure config.h Makefile.PL blib Libgtop.xs
|
|
||||||
Makefile pm_to_blib Libgtop.c
|
|
||||||
stamp.h.in features.def Libgtop.bs
|
|
||||||
@@ -1,33 +0,0 @@
|
|||||||
## Process this file with automake to produce Makefile.in.
|
|
||||||
|
|
||||||
EXTRA_DIST = Makefile.PL.in perl.awk Names/Makefile.PL.in Names/names.awk
|
|
||||||
|
|
||||||
noinst_DATA = $(top_builddir)/Libgtop.xs \
|
|
||||||
$(top_builddir)/Names/Names.xs
|
|
||||||
|
|
||||||
Libgtop.xs: perl.awk $(top_builddir)/config.h $(top_builddir)/features.def
|
|
||||||
$(AWK) -f $(top_srcdir)/perl.awk < $(top_builddir)/features.def > lgt-t
|
|
||||||
mv lgt-t Libgtop.xs
|
|
||||||
|
|
||||||
Names/Names.xs: Names/names.awk $(top_builddir)/config.h $(top_builddir)/features.def
|
|
||||||
$(AWK) -f $(top_srcdir)/Names/names.awk < $(top_builddir)/features.def > Names/lgtn-t
|
|
||||||
mv Names/lgtn-t Names/Names.xs
|
|
||||||
|
|
||||||
Makefile Names/Makefile: Libgtop.xs Names/Names.xs Makefile.PL Names/Makefile.PL
|
|
||||||
perl $(top_builddir)/Makefile.PL
|
|
||||||
|
|
||||||
all: Makefile Names/Makefile
|
|
||||||
$(MAKE) -f Makefile
|
|
||||||
|
|
||||||
clean-local:
|
|
||||||
(cd Names && rm -rf Names.c blib Makefile.aperl perlmain.c mon.out \
|
|
||||||
core so_locations pm_to_blib *~ */*~ */*/*~ *.o *.a perl.exe \
|
|
||||||
Names.bs Names.bso Names.def Names.exp Makefile.old )
|
|
||||||
rm -rf Libgtop.c ./blib Makefile.aperl perlmain.c mon.out core \
|
|
||||||
so_locations pm_to_blib *~ */*~ */*/*~ *.o *.a perl.exe \
|
|
||||||
Libgtop.bs Libgtop.bso Libgtop.def Libgtop.exp Makefile.old
|
|
||||||
|
|
||||||
distclean-local:
|
|
||||||
(cd Names && rm -rf Makefile Makefile.PL Names.xs )
|
|
||||||
rm -rf Makefile Makefile.PL Libgtop.xs
|
|
||||||
|
|
||||||
@@ -1,20 +0,0 @@
|
|||||||
1998-10-11 Martin Baulig <martin@home-of-linux.org>
|
|
||||||
|
|
||||||
* configure.in, automake.sh, Automakefile.am: New files.
|
|
||||||
This is now a package of its own.
|
|
||||||
|
|
||||||
1998-10-10 Martin Baulig <martin@home-of-linux.org>
|
|
||||||
|
|
||||||
* Names: New directory. Defines `Libgtop::Names' module with
|
|
||||||
is the Perl interface of the LibGTop names library.
|
|
||||||
|
|
||||||
1998-10-10 Martin Baulig <martin@home-of-linux.org>
|
|
||||||
|
|
||||||
* typemap: New file.
|
|
||||||
|
|
||||||
* perl.awk: Make it work with the new format of `features.def'.
|
|
||||||
|
|
||||||
* Makefile.PL.in: Added typemap.
|
|
||||||
|
|
||||||
* Libgtop.pm (new): New function.
|
|
||||||
|
|
||||||
@@ -1,31 +0,0 @@
|
|||||||
package Libgtop;
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
|
|
||||||
|
|
||||||
require Exporter;
|
|
||||||
require DynaLoader;
|
|
||||||
require AutoLoader;
|
|
||||||
|
|
||||||
@ISA = qw(Exporter DynaLoader);
|
|
||||||
# Items to export into callers namespace by default. Note: do not export
|
|
||||||
# names by default without a very good reason. Use EXPORT_OK instead.
|
|
||||||
# Do not simply export all your public functions/methods/constants.
|
|
||||||
@EXPORT = qw[];
|
|
||||||
$VERSION = '0.01';
|
|
||||||
|
|
||||||
bootstrap Libgtop $VERSION;
|
|
||||||
|
|
||||||
# Preloaded methods go here.
|
|
||||||
|
|
||||||
sub new {
|
|
||||||
my $proto = shift;
|
|
||||||
my $class = ref($proto) || $proto;
|
|
||||||
my $self = Libgtop::init ($class);
|
|
||||||
return $self;
|
|
||||||
}
|
|
||||||
|
|
||||||
# Autoload methods go after __END__, and are processed by the autosplit program.
|
|
||||||
|
|
||||||
1;
|
|
||||||
__END__
|
|
||||||
@@ -1,31 +0,0 @@
|
|||||||
.cvsignore
|
|
||||||
AUTHORS
|
|
||||||
Automakefile.am
|
|
||||||
COPYING
|
|
||||||
ChangeLog
|
|
||||||
INSTALL
|
|
||||||
Libgtop.pm
|
|
||||||
Libgtop.xs
|
|
||||||
MANIFEST
|
|
||||||
MANIFEST.SKIP
|
|
||||||
Makefile.PL
|
|
||||||
Makefile.PL.in
|
|
||||||
NEWS
|
|
||||||
NO-AUTO-GEN
|
|
||||||
Names/.cvsignore
|
|
||||||
Names/MANIFEST
|
|
||||||
Names/Makefile.PL
|
|
||||||
Names/Makefile.PL.in
|
|
||||||
Names/Names.pm
|
|
||||||
Names/Names.xs
|
|
||||||
Names/names.awk
|
|
||||||
Names/test.pl
|
|
||||||
README
|
|
||||||
acconfig.h
|
|
||||||
autogen.sh
|
|
||||||
configure.in
|
|
||||||
features.def
|
|
||||||
new.pl
|
|
||||||
perl.awk
|
|
||||||
test.pl
|
|
||||||
typemap
|
|
||||||
@@ -1,22 +0,0 @@
|
|||||||
\bblib\b
|
|
||||||
~$
|
|
||||||
\.swp$
|
|
||||||
\bstamp
|
|
||||||
^Libgtop-
|
|
||||||
^Automakefile$
|
|
||||||
^Automakefile\.in$
|
|
||||||
\bCVS\b
|
|
||||||
\.bs$
|
|
||||||
\.o$
|
|
||||||
\.bak$
|
|
||||||
^config\.cache$
|
|
||||||
^config\.status$
|
|
||||||
^configure$
|
|
||||||
^config\.log$
|
|
||||||
^config\.h
|
|
||||||
\bMakefile\.old$
|
|
||||||
^Libgtop\.c$
|
|
||||||
\bMakefile$
|
|
||||||
^aclocal\.m4$
|
|
||||||
^Names/Names\.c$
|
|
||||||
\bpm_to_blib\b
|
|
||||||
@@ -1,13 +0,0 @@
|
|||||||
# -*-cperl-*-
|
|
||||||
use ExtUtils::MakeMaker;
|
|
||||||
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
|
|
||||||
# the contents of the Makefile that is written.
|
|
||||||
WriteMakefile('NAME' => 'Libgtop',
|
|
||||||
'DIR' => ['Names'],
|
|
||||||
'VERSION_FROM' => '@srcdir@/Libgtop.pm',
|
|
||||||
'TYPEMAPS' => ['@srcdir@/typemap' ],
|
|
||||||
'LIBS' => ['@LIBGTOP_GUILE_LIBS@ @LIBGTOP_EXTRA_LIBS@'],
|
|
||||||
'DEFINE' => '',
|
|
||||||
'INC' => '@LIBGTOP_GUILE_INCS@',
|
|
||||||
);
|
|
||||||
|
|
||||||
@@ -1 +0,0 @@
|
|||||||
Names.xs Makefile blib pm_to_blib Names.c Names.bs Makefile.PL
|
|
||||||
@@ -1,10 +0,0 @@
|
|||||||
MANIFEST
|
|
||||||
Makefile.PL.in
|
|
||||||
Names.pm
|
|
||||||
names.awk
|
|
||||||
test.pl
|
|
||||||
Names.pm
|
|
||||||
Names.xs
|
|
||||||
names.awk
|
|
||||||
test.pl
|
|
||||||
.cvsignore
|
|
||||||
@@ -1,10 +0,0 @@
|
|||||||
# -*-cperl-*-
|
|
||||||
use ExtUtils::MakeMaker;
|
|
||||||
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
|
|
||||||
# the contents of the Makefile that is written.
|
|
||||||
WriteMakefile('NAME' => 'Libgtop::Names',
|
|
||||||
'VERSION_FROM' => '@srcdir@/Names.pm',
|
|
||||||
'LIBS' => ['@LIBGTOP_NAMES_LIBS@ @LIBGTOP_EXTRA_LIBS@'],
|
|
||||||
'DEFINE' => '',
|
|
||||||
'INC' => '@LIBGTOP_NAMES_INCS@',
|
|
||||||
);
|
|
||||||
@@ -1,24 +0,0 @@
|
|||||||
package Libgtop::Names;
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
|
|
||||||
|
|
||||||
require Exporter;
|
|
||||||
require DynaLoader;
|
|
||||||
require AutoLoader;
|
|
||||||
|
|
||||||
@ISA = qw(Exporter AutoLoader DynaLoader);
|
|
||||||
# Items to export into callers namespace by default. Note: do not export
|
|
||||||
# names by default without a very good reason. Use EXPORT_OK instead.
|
|
||||||
# Do not simply export all your public functions/methods/constants.
|
|
||||||
@EXPORT_OK = qw[%names %labels %types %descriptions];
|
|
||||||
$VERSION = '0.01';
|
|
||||||
|
|
||||||
bootstrap Libgtop::Names $VERSION;
|
|
||||||
|
|
||||||
# Preloaded methods go here.
|
|
||||||
|
|
||||||
# Autoload methods go after __END__, and are processed by the autosplit program.
|
|
||||||
|
|
||||||
1;
|
|
||||||
__END__
|
|
||||||
@@ -1,88 +0,0 @@
|
|||||||
BEGIN {
|
|
||||||
print "/* Names.xs */";
|
|
||||||
print "/* This is a generated file. Please modify `names.awk' */";
|
|
||||||
print "";
|
|
||||||
|
|
||||||
print "#ifdef __cplusplus";
|
|
||||||
print "extern \"C\" {";
|
|
||||||
print "#endif";
|
|
||||||
print "#include \"EXTERN.h\"";
|
|
||||||
print "#include \"perl.h\"";
|
|
||||||
print "#include \"XSUB.h\"";
|
|
||||||
print "#ifdef __cplusplus";
|
|
||||||
print "}";
|
|
||||||
print "#endif";
|
|
||||||
print "";
|
|
||||||
print "#undef PACKAGE";
|
|
||||||
print "";
|
|
||||||
print "#include <glibtop.h>";
|
|
||||||
print "#include <glibtop/union.h>";
|
|
||||||
print "#include <glibtop/xmalloc.h>";
|
|
||||||
print "";
|
|
||||||
print "MODULE = Libgtop::Names\t\tPACKAGE = Libgtop::Names";
|
|
||||||
print "";
|
|
||||||
print "PROTOTYPES: ENABLE";
|
|
||||||
print "";
|
|
||||||
}
|
|
||||||
|
|
||||||
function output(line) {
|
|
||||||
split (line, line_fields, /\|/);
|
|
||||||
retval = line_fields[1];
|
|
||||||
feature = line_fields[2];
|
|
||||||
element_def = line_fields[3];
|
|
||||||
param_def = line_fields[4];
|
|
||||||
|
|
||||||
orig = feature; sub(/^@/,"",feature);
|
|
||||||
space = feature; gsub(/./," ",space);
|
|
||||||
|
|
||||||
features[feature] = feature;
|
|
||||||
}
|
|
||||||
|
|
||||||
/^[^#]/ { output($0) }
|
|
||||||
|
|
||||||
END {
|
|
||||||
print "BOOT:";
|
|
||||||
print "{";
|
|
||||||
print "\tHV *names = perl_get_hv (\"Libgtop::Names::names\", TRUE);";
|
|
||||||
print "\tHV *labels = perl_get_hv (\"Libgtop::Names::labels\", TRUE);";
|
|
||||||
print "\tHV *types = perl_get_hv (\"Libgtop::Names::types\", TRUE);";
|
|
||||||
print "\tHV *descriptions = perl_get_hv (\"Libgtop::Names::descriptions\", TRUE);";
|
|
||||||
print "\tAV *array;";
|
|
||||||
print "\tSV *ref;";
|
|
||||||
print "\tint i;";
|
|
||||||
|
|
||||||
for (feature in features) {
|
|
||||||
print "\tarray = newAV ();";
|
|
||||||
print "\tref = newRV_inc ((SV*)array);";
|
|
||||||
print "\tfor (i = 0; i < GLIBTOP_MAX_"toupper(feature)"; i++)";
|
|
||||||
print "\t{";
|
|
||||||
print "\t\tav_push (array, newSVpv ((char*)glibtop_names_"feature" [i], 0));";
|
|
||||||
print "\t}";
|
|
||||||
print "\thv_store (names, \""feature"\", "length(feature)+1", ref, 0);";
|
|
||||||
print "\tarray = newAV ();";
|
|
||||||
print "\tref = newRV_inc ((SV*)array);";
|
|
||||||
print "\tfor (i = 0; i < GLIBTOP_MAX_"toupper(feature)"; i++)";
|
|
||||||
print "\t{";
|
|
||||||
print "\t\tav_push (array, newSVpv ((char*)_(glibtop_labels_"feature" [i]), 0));";
|
|
||||||
print "\t}";
|
|
||||||
print "\thv_store (labels, \""feature"\", "length(feature)+1", ref, 0);";
|
|
||||||
print "\tarray = newAV ();";
|
|
||||||
print "\tref = newRV_inc ((SV*)array);";
|
|
||||||
print "\tfor (i = 0; i < GLIBTOP_MAX_"toupper(feature)"; i++)";
|
|
||||||
print "\t{";
|
|
||||||
print "\t\tav_push (array, newSViv (glibtop_types_"feature" [i]));";
|
|
||||||
print "\t}";
|
|
||||||
print "\thv_store (types, \""feature"\", "length(feature)+1", ref, 0);";
|
|
||||||
|
|
||||||
print "\tarray = newAV ();";
|
|
||||||
print "\tref = newRV_inc ((SV*)array);";
|
|
||||||
print "\tfor (i = 0; i < GLIBTOP_MAX_"toupper(feature)"; i++)";
|
|
||||||
print "\t{";
|
|
||||||
print "\t\tav_push (array, newSVpv ((char*)_(glibtop_descriptions_"feature" [i]), 0));";
|
|
||||||
print "\t}";
|
|
||||||
print "\thv_store (descriptions, \""feature"\", "length(feature)+1", ref, 0);";
|
|
||||||
}
|
|
||||||
|
|
||||||
print "}";
|
|
||||||
print "";
|
|
||||||
}
|
|
||||||
@@ -1,20 +0,0 @@
|
|||||||
# Before `make install' is performed this script should be runnable with
|
|
||||||
# `make test'. After `make install' it should work as `perl test.pl'
|
|
||||||
|
|
||||||
######################### We start with some black magic to print on failure.
|
|
||||||
|
|
||||||
# Change 1..1 below to 1..last_test_to_print .
|
|
||||||
# (It may become useful if the test is moved to ./t subdirectory.)
|
|
||||||
|
|
||||||
BEGIN { $| = 1; print "1..1\n"; }
|
|
||||||
END {print "not ok 1\n" unless $loaded;}
|
|
||||||
use Libgtop::Names;
|
|
||||||
$loaded = 1;
|
|
||||||
print "ok 1\n";
|
|
||||||
|
|
||||||
######################### End of black magic.
|
|
||||||
|
|
||||||
# Insert your test code below (better if it prints "ok 13"
|
|
||||||
# (correspondingly "not ok 13") depending on the success of chunk 13
|
|
||||||
# of the test code):
|
|
||||||
|
|
||||||
15
perl/README
15
perl/README
@@ -1,15 +0,0 @@
|
|||||||
This is the new (still experimental) Perl interface to LibGTop.
|
|
||||||
|
|
||||||
How to build it:
|
|
||||||
|
|
||||||
* first compile and install LibGTop
|
|
||||||
|
|
||||||
* run the autogen.sh script in this directory
|
|
||||||
(it should also work with a separate builddir)
|
|
||||||
|
|
||||||
* run a `make -f Automakefile'
|
|
||||||
|
|
||||||
* run a `make install'
|
|
||||||
|
|
||||||
Martin <martin@home-of-linux.org>
|
|
||||||
|
|
||||||
@@ -1,33 +0,0 @@
|
|||||||
#undef HAVE_LC_MESSAGES
|
|
||||||
#undef HAVE_STPCPY
|
|
||||||
#undef PACKAGE
|
|
||||||
#undef VERSION
|
|
||||||
#undef ENABLE_NLS
|
|
||||||
#undef HAVE_LC_MESSAGES
|
|
||||||
#undef HAVE_CATGETS
|
|
||||||
#undef HAVE_GETTEXT
|
|
||||||
#undef HAVE_LIBSM
|
|
||||||
#undef HAVE_PROGRAM_INVOCATION_NAME
|
|
||||||
#undef HAVE_PROGRAM_INVOCATION_SHORT_NAME
|
|
||||||
|
|
||||||
#undef HAVE_LIBGTOP
|
|
||||||
#undef NEED_LIBGTOP
|
|
||||||
|
|
||||||
/* Define if LibGTop has support for multiple processors. */
|
|
||||||
#undef HAVE_LIBGTOP_SMP
|
|
||||||
|
|
||||||
/* Define if there is no `u_int64_t' and `int64_t'. */
|
|
||||||
#undef u_int64_t
|
|
||||||
#undef int64_t
|
|
||||||
|
|
||||||
/* LibGTop major, minor and micro version. */
|
|
||||||
#undef LIBGTOP_MAJOR_VERSION
|
|
||||||
#undef LIBGTOP_MINOR_VERSION
|
|
||||||
#undef LIBGTOP_MICRO_VERSION
|
|
||||||
|
|
||||||
/* LibGTop version and numerical version code ("1.234.567" -> 1234567). */
|
|
||||||
#undef LIBGTOP_VERSION
|
|
||||||
#undef LIBGTOP_VERSION_CODE
|
|
||||||
|
|
||||||
/* LibGTop server version, increased each time the protocol changes. */
|
|
||||||
#undef LIBGTOP_SERVER_VERSION
|
|
||||||
@@ -1,91 +0,0 @@
|
|||||||
#!/bin/sh
|
|
||||||
# Run this to generate all the initial makefiles, etc.
|
|
||||||
|
|
||||||
srcdir=`dirname $0`
|
|
||||||
test -z "$srcdir" && srcdir=.
|
|
||||||
|
|
||||||
PKG_NAME="LibGTop Perl Interface"
|
|
||||||
|
|
||||||
(test -f $srcdir/configure.in \
|
|
||||||
&& test -f $srcdir/Libgtop.pm ) || {
|
|
||||||
echo -n "**Error**: Directory "\`$srcdir\'" does not look like the"
|
|
||||||
echo " top-level $PKG_NAME directory"
|
|
||||||
exit 1
|
|
||||||
}
|
|
||||||
|
|
||||||
DIE=0
|
|
||||||
|
|
||||||
(autoconf --version) < /dev/null > /dev/null 2>&1 || {
|
|
||||||
echo
|
|
||||||
echo "**Error**: You must have "\`autoconf\'" installed to compile Gnome."
|
|
||||||
echo "Download the appropriate package for your distribution,"
|
|
||||||
echo "or get the source tarball at ftp://ftp.gnu.org/pub/gnu/"
|
|
||||||
DIE=1
|
|
||||||
}
|
|
||||||
|
|
||||||
(automake --version) < /dev/null > /dev/null 2>&1 || {
|
|
||||||
echo
|
|
||||||
echo "**Error**: You must have "\`automake\'" installed to compile Gnome."
|
|
||||||
echo "Get ftp://ftp.gnu.org/pub/gnu/automake-1.3.tar.gz"
|
|
||||||
echo "(or a newer version if it is available)"
|
|
||||||
DIE=1
|
|
||||||
NO_AUTOMAKE=yes
|
|
||||||
}
|
|
||||||
|
|
||||||
# if no automake, don't bother testing for aclocal
|
|
||||||
test -n "$NO_AUTOMAKE" || (aclocal --version) < /dev/null > /dev/null 2>&1 || {
|
|
||||||
echo
|
|
||||||
echo "**Error**: Missing "\`aclocal\'". The version of "\`automake\'
|
|
||||||
echo "installed doesn't appear recent enough."
|
|
||||||
echo "Get ftp://ftp.gnu.org/pub/gnu/automake-1.3.tar.gz"
|
|
||||||
echo "(or a newer version if it is available)"
|
|
||||||
DIE=1
|
|
||||||
}
|
|
||||||
|
|
||||||
if test "$DIE" -eq 1; then
|
|
||||||
exit 1
|
|
||||||
fi
|
|
||||||
|
|
||||||
if test -z "$*"; then
|
|
||||||
echo "**Warning**: I am going to run "\`configure\'" with no arguments."
|
|
||||||
echo "If you wish to pass any to it, please specify them on the"
|
|
||||||
echo \`$0\'" command line."
|
|
||||||
echo
|
|
||||||
fi
|
|
||||||
|
|
||||||
case $CC in
|
|
||||||
xlc )
|
|
||||||
am_opt=--include-deps;;
|
|
||||||
esac
|
|
||||||
|
|
||||||
for j in $srcdir
|
|
||||||
do
|
|
||||||
i=`dirname $j`
|
|
||||||
if test -f $i/REAL-NO-AUTO-GEN; then
|
|
||||||
echo skipping $i -- flagged as no auto-gen
|
|
||||||
else
|
|
||||||
macrodirs=$srcdir'/../macros'
|
|
||||||
echo processing $i
|
|
||||||
## debug
|
|
||||||
test -n "$macrodirs" && echo \`aclocal\' will also look in \`$macrodirs\'
|
|
||||||
(cd $i; \
|
|
||||||
aclocalinclude="$ACLOCAL_FLAGS"; \
|
|
||||||
for k in $macrodirs; do \
|
|
||||||
if test -d $k; then aclocalinclude="$aclocalinclude -I $k"; \
|
|
||||||
else echo "**Warning**: No such directory \`$k'. Ignored."; fi; \
|
|
||||||
done; \
|
|
||||||
libtoolize --copy --force; \
|
|
||||||
aclocal $aclocalinclude; \
|
|
||||||
autoheader; automake --add-missing --gnu $am_opt Automakefile; \
|
|
||||||
autoheader; autoconf)
|
|
||||||
fi
|
|
||||||
done
|
|
||||||
|
|
||||||
if test x$NOCONFIGURE = x; then
|
|
||||||
conf_flags="--enable-maintainer-mode --enable-compile-warnings" #--enable-iso-c
|
|
||||||
echo running $srcdir/configure $conf_flags "$@"
|
|
||||||
$srcdir/configure $conf_flags "$@" \
|
|
||||||
&& echo Now type \`make -f Automakefile\' to compile $PKG_NAME
|
|
||||||
else
|
|
||||||
echo Skipping configure process.
|
|
||||||
fi
|
|
||||||
@@ -1,24 +0,0 @@
|
|||||||
|
|
||||||
AC_INIT(Libgtop.pm)
|
|
||||||
|
|
||||||
AM_CONFIG_HEADER(config.h)
|
|
||||||
AM_INIT_AUTOMAKE(Libgtop, 0.29)
|
|
||||||
|
|
||||||
AM_MAINTAINER_MODE
|
|
||||||
|
|
||||||
dnl We don't use `AC_PROG_AWK' since it checks for mawk first which
|
|
||||||
dnl does not work for libgtop.
|
|
||||||
AC_CHECK_PROGS(AWK, gawk awk, )
|
|
||||||
test -z "$AWK" && AC_MSG_ERROR([Sorry, you need a working awk interpreter.])
|
|
||||||
|
|
||||||
dnl Check for libgtop
|
|
||||||
GNOME_INIT_LIBGTOP(0.25, fail)
|
|
||||||
|
|
||||||
dnl utility conditional
|
|
||||||
AM_CONDITIONAL(FALSE, test "x" = "y")
|
|
||||||
|
|
||||||
AC_OUTPUT([
|
|
||||||
Automakefile
|
|
||||||
Makefile.PL
|
|
||||||
Names/Makefile.PL
|
|
||||||
stamp.h],[])
|
|
||||||
16
perl/new.pl
16
perl/new.pl
@@ -1,16 +0,0 @@
|
|||||||
#!/usr/bin/perl -w
|
|
||||||
|
|
||||||
require 5.004;
|
|
||||||
|
|
||||||
use blib;
|
|
||||||
use strict;
|
|
||||||
use Libgtop;
|
|
||||||
|
|
||||||
my $server = Libgtop->new;
|
|
||||||
|
|
||||||
print "CPU Usage: ".join (' ', $server->cpu)."\n";
|
|
||||||
print "Memory Usage: ".join (' ', $server->mem)."\n";
|
|
||||||
print "Swap Usage: ".join (' ', $server->swap)."\n";
|
|
||||||
|
|
||||||
print "Process List: ".join (' ', $server->proclist (0,0))."\n";
|
|
||||||
|
|
||||||
135
perl/perl.awk
135
perl/perl.awk
@@ -1,135 +0,0 @@
|
|||||||
BEGIN {
|
|
||||||
print "/* Libgtop.xs */";
|
|
||||||
print "/* This is a generated file. Please modify `perl.awk' */";
|
|
||||||
print "";
|
|
||||||
|
|
||||||
print "#ifdef __cplusplus";
|
|
||||||
print "extern \"C\" {";
|
|
||||||
print "#endif";
|
|
||||||
print "#include \"EXTERN.h\"";
|
|
||||||
print "#include \"perl.h\"";
|
|
||||||
print "#include \"XSUB.h\"";
|
|
||||||
print "#ifdef __cplusplus";
|
|
||||||
print "}";
|
|
||||||
print "#endif";
|
|
||||||
print "";
|
|
||||||
print "#undef PACKAGE";
|
|
||||||
print "";
|
|
||||||
print "#include <glibtop.h>";
|
|
||||||
print "#include <glibtop/union.h>";
|
|
||||||
print "#include <glibtop/xmalloc.h>";
|
|
||||||
print "";
|
|
||||||
print "MODULE = Libgtop\t\tPACKAGE = Libgtop";
|
|
||||||
print "";
|
|
||||||
print "PROTOTYPES: ENABLE";
|
|
||||||
print "";
|
|
||||||
print "glibtop *";
|
|
||||||
print "init (CLASS)";
|
|
||||||
print "\tchar *CLASS;";
|
|
||||||
print "CODE:";
|
|
||||||
print "\tRETVAL = glibtop_calloc (1, sizeof (glibtop));";
|
|
||||||
print "\tglibtop_init_s (&RETVAL, 0, 0);";
|
|
||||||
print "OUTPUT:";
|
|
||||||
print "\tRETVAL";
|
|
||||||
print "";
|
|
||||||
|
|
||||||
type_convert["long"] = "int64_t";
|
|
||||||
type_convert["ulong"] = "u_int64_t";
|
|
||||||
type_convert["pid_t"] = "pid_t";
|
|
||||||
type_convert["int"] = "int";
|
|
||||||
|
|
||||||
convert["long"] = "newSViv";
|
|
||||||
convert["ulong"] = "newSViv";
|
|
||||||
convert["double"] = "newSVnv";
|
|
||||||
}
|
|
||||||
|
|
||||||
function output(line) {
|
|
||||||
split (line, line_fields, /\|/);
|
|
||||||
retval = line_fields[1];
|
|
||||||
feature = line_fields[2];
|
|
||||||
element_def = line_fields[3];
|
|
||||||
param_def = line_fields[4];
|
|
||||||
|
|
||||||
orig = feature; sub(/^@/,"",feature);
|
|
||||||
space = feature; gsub(/./," ",space);
|
|
||||||
|
|
||||||
if (feature ~ /^proc_map/)
|
|
||||||
return;
|
|
||||||
else if (feature ~ /^mountlist/)
|
|
||||||
return;
|
|
||||||
else if (feature ~ /^fsusage/)
|
|
||||||
return;
|
|
||||||
|
|
||||||
if (param_def == "string") {
|
|
||||||
call_param = line_fields[5];
|
|
||||||
param_decl = "\tconst char *"line_fields[5]";\n";
|
|
||||||
} else {
|
|
||||||
call_param = "";
|
|
||||||
param_decl = "";
|
|
||||||
nr_params = split (param_def, params, /:/);
|
|
||||||
for (param = 1; param <= nr_params; param++) {
|
|
||||||
list = params[param];
|
|
||||||
type = params[param];
|
|
||||||
sub(/\(.*/, "", type);
|
|
||||||
sub(/^.*\(/, "", list); sub(/\)$/, "", list);
|
|
||||||
count = split (list, fields, /,/);
|
|
||||||
for (field = 1; field <= count; field++) {
|
|
||||||
param_decl = param_decl"\t";
|
|
||||||
call_param = call_param", ";
|
|
||||||
param_decl = param_decl""type_convert[type]" "fields[field]";\n";
|
|
||||||
call_param = call_param""fields[field];
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
print "void";
|
|
||||||
print feature" (server"call_param")";
|
|
||||||
print "\tglibtop *server;";
|
|
||||||
print param_decl"PREINIT:";
|
|
||||||
print "\tglibtop_"feature" "feature";";
|
|
||||||
|
|
||||||
if (feature ~ /^proclist/) {
|
|
||||||
print "\tunsigned i, *ptr;";
|
|
||||||
print "PPCODE:";
|
|
||||||
print "\tptr = glibtop_get_proclist (&proclist, which, arg);";
|
|
||||||
print "";
|
|
||||||
print "\tif (ptr) {";
|
|
||||||
print "\t\tfor (i = 0; i < proclist.number; i++)";
|
|
||||||
print "\t\t\tXPUSHs (sv_2mortal (newSViv (ptr [i])));";
|
|
||||||
print "\t}";
|
|
||||||
print "";
|
|
||||||
print "\tglibtop_free (ptr);";
|
|
||||||
} else {
|
|
||||||
print "PPCODE:";
|
|
||||||
if (call_param != "")
|
|
||||||
print "\tglibtop_get_"feature"_l (server, &"feature""call_param");";
|
|
||||||
else
|
|
||||||
print "\tglibtop_get_"feature"_l (server, &"feature");";
|
|
||||||
print "";
|
|
||||||
|
|
||||||
nr_elements = split (element_def, elements, /:/);
|
|
||||||
for (element = 1; element <= nr_elements; element++) {
|
|
||||||
list = elements[element];
|
|
||||||
type = elements[element];
|
|
||||||
sub(/\(.*/, "", type);
|
|
||||||
sub(/^.*\(/, "", list); sub(/\)$/, "", list);
|
|
||||||
count = split (list, fields, /,/);
|
|
||||||
for (field = 1; field <= count; field++) {
|
|
||||||
if (type ~ /^str$/) {
|
|
||||||
print "\tXPUSHs (sv_2mortal (newSVpv ("feature"."fields[field]", 0)));";
|
|
||||||
} else {
|
|
||||||
if (type ~ /^char$/) {
|
|
||||||
print "\tXPUSHs (sv_2mortal (newSVpv (&"feature"."fields[field]", 1)));";
|
|
||||||
} else {
|
|
||||||
print "\tXPUSHs (sv_2mortal ("convert[type]" ("feature"."fields[field]")));";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
print "";
|
|
||||||
}
|
|
||||||
|
|
||||||
/^[^#]/ { output($0) }
|
|
||||||
|
|
||||||
@@ -1 +0,0 @@
|
|||||||
timestamp
|
|
||||||
20
perl/test.pl
20
perl/test.pl
@@ -1,20 +0,0 @@
|
|||||||
# Before `make install' is performed this script should be runnable with
|
|
||||||
# `make test'. After `make install' it should work as `perl test.pl'
|
|
||||||
|
|
||||||
######################### We start with some black magic to print on failure.
|
|
||||||
|
|
||||||
# Change 1..1 below to 1..last_test_to_print .
|
|
||||||
# (It may become useful if the test is moved to ./t subdirectory.)
|
|
||||||
|
|
||||||
BEGIN { $| = 1; print "1..1\n"; }
|
|
||||||
END {print "not ok 1\n" unless $loaded;}
|
|
||||||
use Libgtop;
|
|
||||||
$loaded = 1;
|
|
||||||
print "ok 1\n";
|
|
||||||
|
|
||||||
######################### End of black magic.
|
|
||||||
|
|
||||||
# Insert your test code below (better if it prints "ok 13"
|
|
||||||
# (correspondingly "not ok 13") depending on the success of chunk 13
|
|
||||||
# of the test code):
|
|
||||||
|
|
||||||
22
perl/typemap
22
perl/typemap
@@ -1,22 +0,0 @@
|
|||||||
TYPEMAP
|
|
||||||
int64_t T_IV
|
|
||||||
pid_t T_IV
|
|
||||||
const char * T_PV
|
|
||||||
|
|
||||||
glibtop * O_OBJECT
|
|
||||||
|
|
||||||
OUTPUT
|
|
||||||
# The Perl object is blessed into 'CLASS', which should be a
|
|
||||||
# char* having the name of the package for the blessing.
|
|
||||||
O_OBJECT
|
|
||||||
sv_setref_pv ($arg, CLASS, (void*)$var);
|
|
||||||
|
|
||||||
INPUT
|
|
||||||
O_OBJECT
|
|
||||||
if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG))
|
|
||||||
$var = ($type)SvIV((SV*)SvRV($arg));
|
|
||||||
else {
|
|
||||||
warn (\"${Package}::$func_name() -- \"
|
|
||||||
\"$var is not a blessed SV reference\");
|
|
||||||
XSRETURN_UNDEF;
|
|
||||||
}
|
|
||||||
Reference in New Issue
Block a user