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

We now have a new, more extensible client/server communication model.

Browse Source 
1999-11-28  Martin Baulig  <martin@home-of-linux.org>

	* lib/lib.pl: We now have a new, more extensible client/server
	communication model. Include `$(top_srcdir)/scripts/c_types.pl' here.
This commit is contained in:
Martin Baulig
1999-11-28 16:21:51 +00:00
committed by Martin Baulig
parent b60b7fd201
commit aeeef43f45
6 changed files with 165 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@@ -1,3 +1,8 @@
1999-11-28 Martin Baulig <martin@home-of-linux.org>
* lib/lib.pl: We now have a new, more extensible client/server
communication model. Include `$(top_srcdir)/scripts/c_types.pl' here.
1999-11-21 Martin Baulig <martin@home-of-linux.org> 1999-11-21 Martin Baulig <martin@home-of-linux.org>
Added new feature to get a list of network interface names. Added new feature to get a list of network interface names.

3
Makefile.am
View File

@@ -4,7 +4,8 @@ if BUILD_GNOME_SUPPORT
support = support support = support
endif endif
SUBDIRS = po intl $(support) macros misc include sysdeps lib src doc SUBDIRS = po intl $(support) macros misc include sysdeps lib src doc \
scripts
include_HEADERS = glibtop.h include_HEADERS = glibtop.h
configincludedir = $(pkglibdir)/include configincludedir = $(pkglibdir)/include

1
configure.in
View File

@@ -590,6 +590,7 @@ sysdeps/solaris/Makefile
src/Makefile src/Makefile
src/daemon/Makefile src/daemon/Makefile
src/inodedb/Makefile src/inodedb/Makefile
scripts/Makefile
lib/Makefile lib/Makefile
doc/Makefile doc/Makefile
support/Makefile support/Makefile

4
features.def
View File

@@ -17,7 +17,7 @@ retval|proc_segment|ulong(text_rss,shlib_rss,data_rss,stack_rss,dirty_size,start
char *|proc_args|ulong(size)|pid_t(pid):unsigned(max_len) char *|proc_args|ulong(size)|pid_t(pid):unsigned(max_len)
glibtop_map_entry *|proc_map|ulong(number,size,total)|pid_t(pid) glibtop_map_entry *|proc_map|ulong(number,size,total)|pid_t(pid)
glibtop_mountentry *|@mountlist|ulong(number,size,total)|int(all_fs) glibtop_mountentry *|@mountlist|ulong(number,size,total)|int(all_fs)
retval|@fsusage|ulong(blocks,bfree,bavail,files,ffree)|string|mount_dir retval|@fsusage|ulong(blocks,bfree,bavail,files,ffree)|string(mount_dir)
retval|netload|ulong(if_flags,mtu,subnet,address,packets_in,packets_out,packets_total,bytes_in,bytes_out,bytes_total,errors_in,errors_out,errors_total,collisions)|string|interface retval|netload|ulong(if_flags,mtu,subnet,address,packets_in,packets_out,packets_total,bytes_in,bytes_out,bytes_total,errors_in,errors_out,errors_total,collisions)|string(interface)
char *|interface_names|ulong(size)|unsigned(interface,number,strategy) char *|interface_names|ulong(size)|unsigned(interface,number,strategy)
retval|ppp|ulong(state,bytes_in,bytes_out)|ushort(device) retval|ppp|ulong(state,bytes_in,bytes_out)|ushort(device)

4
lib/Makefile.am
View File

@@ -12,8 +12,8 @@ libgtop_la_LDFLAGS = $(LT_VERSION_INFO)
BUILT_SOURCES = lib.c BUILT_SOURCES = lib.c
lib.c: lib.pl $(top_builddir)/config.h $(top_srcdir)/features.def lib.c: lib.pl $(top_builddir)/config.h $(top_srcdir)/features.def $(top_srcdir)/scripts/c_types.pl
$(PERL) $(srcdir)/lib.pl < $(top_srcdir)/features.def > lib-t $(PERL) -I $(top_srcdir)/scripts $(srcdir)/lib.pl < $(top_srcdir)/features.def > lib-t
mv lib-t lib.c mv lib-t lib.c
EXTRA_DIST = lib.pl EXTRA_DIST = lib.pl

249
lib/lib.pl
View File

@@ -1,9 +1,13 @@
#!/usr/bin/perl #!/usr/bin/perl
require 'c_types.pl';
$[ = 1; # set array base to 1 $[ = 1; # set array base to 1
$, = ' '; # set output field separator $, = ' '; # set output field separator
$\ = "\n"; # set output record separator $\ = "\n"; # set output record separator
$always_use_temp_storage = 1;
sub toupper { sub toupper {
local($_) = @_; local($_) = @_;
tr/a-z/A-Z/; tr/a-z/A-Z/;
@@ -22,6 +26,7 @@ print '';
print '#include <glibtop.h>'; print '#include <glibtop.h>';
print '#include <glibtop/open.h>'; print '#include <glibtop/open.h>';
print '#include <glibtop/xmalloc.h>';
print ''; print '';
print '#include <glibtop/sysdeps.h>'; print '#include <glibtop/sysdeps.h>';
print '#include <glibtop/union.h>'; print '#include <glibtop/union.h>';
@@ -64,15 +69,6 @@ print '';
print '/* Library functions. */'; print '/* Library functions. */';
print ''; print '';
$convert{'long'} = 'int64_t';
$convert{'ulong'} = 'u_int64_t';
$convert{'pid_t'} = 'pid_t';
$convert{'int'} = 'int';
$convert{'retval'} = 'int';
$convert{'ushort'} = 'unsigned short';
$convert{'unsigned'} = 'unsigned';
$convert{'string'} = 'const char *';
while (<>) { while (<>) {
chop; # strip record separator chop; # strip record separator
@@ -116,23 +112,25 @@ sub output {
$prefix_space = ''; $prefix_space = '';
} }
print $retval; $check_server_code = "\n";
$check_server_code .=
"\t/* If neccessary, we ask the server for the requested\n" .
"\t * feature. If not, we call the sysdeps function. */\n\n" .
"\tif ((server->flags & _GLIBTOP_INIT_STATE_SERVER) &&\n" .
"\t (server->features & (1 << GLIBTOP_SYSDEPS_" .
&toupper($feature) . ")))\n" .
"\t\tgoto call_server;\n\telse\n" .
"\t\tgoto call_sysdeps;\n\n";
if ($param_def eq 'string') { $need_temp_storage = $always_use_temp_storage;
$call_param = ', ' . $line_fields[5]; $size_code = "\t_LIBGTOP_SEND_len = 0;\n";
$param_decl = ",\n " . $space . ' const char *' . $marshal_code = "\t_LIBGTOP_SEND_offset = 0;\n";
$marshal_code .= "\tmemset (_LIBGTOP_SEND_buf, 0, _LIBGTOP_SEND_len);\n";
$first_param_name = '';
$line_fields[5];
$send_ptr = "\n\tconst void *send_ptr = " . $line_fields[5] . ';';
$send_size = "\n\tconst size_t send_size =\n\t\tstrlen (" .
$line_fields[5] . ') + 1;';
}
else {
$call_param = ''; $call_param = '';
$param_decl = ''; $param_decl = '';
$send_size = ''; $need_temp_len = 0;
$send_ptr = '';
$nr_params = (@params = split(/:/, $param_def, 9999)); $nr_params = (@params = split(/:/, $param_def, 9999));
for ($param = 1; $param <= $nr_params; $param++) { for ($param = 1; $param <= $nr_params; $param++) {
$list = $params[$param]; $list = $params[$param];
@@ -142,123 +140,156 @@ sub output {
$list =~ s/\)$//; $list =~ s/\)$//;
$count = (@fields = split(/,/, $list, 9999)); $count = (@fields = split(/,/, $list, 9999));
for ($field = 1; $field <= $count; $field++) { for ($field = 1; $field <= $count; $field++) {
my $c_type = $typeinfo->{$type}->[1];
if ($first_param_name eq '') {
$first_param_name = $fields[$field];
}
if ($typeinfo->{$type}->[2]) {
$need_temp_storage = 1;
}
if ($param_decl eq '') { if ($param_decl eq '') {
$param_decl = ",\n " . $space . ' '; $param_decl = ",\n " . $space . ' ';
} }
else { else {
$param_decl = $param_decl . ', '; $param_decl = $param_decl . ', ';
} }
$param_decl = $param_decl . '' . $convert{$type} . ' ' . $param_decl = $param_decl . $c_type . ' ' . $fields[$field];
$fields[$field];
$call_param = $call_param . ', ' . $fields[$field]; $call_param = $call_param . ', ' . $fields[$field];
if ($send_ptr eq '') {
$send_ptr = "\n\tconst void *send_ptr = &" .
$fields[$field] . ';'; $size_code .= "\t_LIBGTOP_SEND_len += ";
} if (defined $sizeof_funcs->{$type}) {
if ($send_size eq '') { $size_code .= $sizeof_funcs->{$type}->($fields[$field]);
$send_size = "\n\tconst size_t send_size =\n\t\t";
}
else {
$send_size = $send_size . ' + ';
}
$send_size = $send_size . 'sizeof (' . $fields[$field] . ')';
}
}
if ($send_size ne '') {
$send_size = $send_size . ';';
}
else {
$send_size = "\n\tconst size_t send_size = 0;";
}
if ($send_ptr eq '') {
$send_ptr = "\n\tconst void *send_ptr = NULL;";
}
}
if ($line_fields[3] eq '') {
print 'glibtop_get_' . $feature . '_l (glibtop *server' . $param_decl . ')';
} else { } else {
print 'glibtop_get_' . $feature . '_l (glibtop *server, glibtop_' . $size_code .= sprintf ("sizeof (%s)", $c_type);
$feature . ' *buf' . $param_decl . ')'; }
$size_code .= ";\n";
$marshal_code .= "\t_LIBGTOP_SEND_ptr = ".
"(char *) _LIBGTOP_SEND_buf + _LIBGTOP_SEND_offset;\n";
if (defined $marshal_funcs->{$type}) {
$marshal_code .= $marshal_funcs->{$type}->($c_type, $fields[$field], "\t");
} else {
$marshal_code .= sprintf ("\tmemcpy (_LIBGTOP_SEND_ptr, %s, %s);\n",
'&'.$fields[$field], "sizeof ($c_type)");
} }
print '{' . $send_ptr . '' . $send_size; $marshal_code .= "\t_LIBGTOP_SEND_offset += ";
if (defined $sizeof_funcs->{$type}) {
$marshal_code .= $sizeof_funcs->{$type}->($fields[$field]);
} else {
$marshal_code .= sprintf ("sizeof (%s)", $c_type);
}
$marshal_code .= ";\n";
}
}
$local_var_code = "";
$local_var_code .= "\tunsigned _LIBGTOP_SEND_offset, _LIBGTOP_SEND_len;\n";
if ($need_temp_len) {
$local_var_code .= "\tunsigned _LIBGTOP_SEND_temp_len;\n";
}
$local_var_code .= "\tvoid *_LIBGTOP_SEND_buf;\n";
$local_var_code .= "\tchar *_LIBGTOP_SEND_ptr;\n";
if ($retval !~ /^void$/) { if ($retval !~ /^void$/) {
print "\t" . $retval . ' retval = (' . $retval . ') 0;'; $local_var_code .= sprintf ("\t%s retval = (%s) 0;\n",
$retval, $retval);
} }
print '';
print "\tglibtop_init_r (&server, (1 << GLIBTOP_SYSDEPS_" .
&toupper($feature) . '), 0);';
print '';
print "\t/* If neccessary, we ask the server for the requested";
print "\t * feature. If not, we call the sysdeps function. */";
print '';
print "\tif ((server->flags & _GLIBTOP_INIT_STATE_SERVER) &&";
print "\t (server->features & (1 << GLIBTOP_SYSDEPS_" .
&toupper($feature) . ')))';
print "\t{";
print "\t\t" . $call_prefix . 'glibtop_call_l (server, GLIBTOP_CMND_' .
&toupper($feature) . ',';
print "\t\t\t\t" . $call_prefix_space . 'send_size, send_ptr,';
if ($line_fields[3] eq '') {
print "\t\t\t\t". $call_prefix_space . "0, NULL,";
} else {
print "\t\t\t\t" . $call_prefix_space . 'sizeof (glibtop_' . $feature .
'), buf,';
}
print "\t\t\t\t" . $call_prefix_space . $retval_param . ');';
print "\t} else {";
$sysdeps_code = "call_sysdeps:\n";
if ($orig !~ /^@/) { if ($orig !~ /^@/) {
print '#if (!GLIBTOP_SUID_' . &toupper($feature) . ')'; $sysdeps_code .= sprintf ("#if (!GLIBTOP_SUID_%s)\n", &toupper($feature));
} }
if ($line_fields[3] eq '') { if ($line_fields[3] eq '') {
print "\t\t" . $prefix . 'glibtop_get_' . $feature . '_s (server' . $sysdeps_code .= sprintf ("\t%sglibtop_get_%s_s (server%s);\n",
$call_param . ');'; $prefix, $feature, $call_param);
} else { } else {
print "\t\t" . $prefix . 'glibtop_get_' . $feature . '_s (server, buf' . $sysdeps_code .= sprintf ("\t%sglibtop_get_%s_s (server, buf%s);\n",
$call_param . ');'; $prefix, $feature, $call_param);
} }
$sysdeps_code .= "\tgoto check_missing;\n";
if ($orig !~ /^@/) { if ($orig !~ /^@/) {
print '#else'; $sysdeps_code .= "#else\n\terrno = ENOSYS;\n";
print "\t\terrno = ENOSYS;"; $sysdeps_code .= sprintf ("\tglibtop_error_io_r (server, \"%s\");\n",
print "\t\tglibtop_error_io_r (server, \"glibtop_get_" . $feature . "glibtop_get_" . $feature);
$sysdeps_code .= "\tgoto do_return;\n";
"\");"; $sysdeps_code .= "#endif\n";
print '#endif';
} }
print "\t}"; $total_code = sprintf ("%s%s%s\n", $init_code, $check_server_code,
$sysdeps_code);
print ''; $send_buf_code = "\t_LIBGTOP_SEND_buf = ";
if ($need_temp_storage) {
$send_buf_code .= "glibtop_malloc_r (server, _LIBGTOP_SEND_len+1)";
} else {
$send_buf_code .= '(void *) &'.$first_param_name;
}
$send_buf_code .= ";\n";
$call_code = '';
$call_code .= sprintf ("\t%sglibtop_call_l (server, GLIBTOP_CMND_%s,\n",
$call_prefix, &toupper($feature));
$call_code .= sprintf ("\t\t\t%s%s, %s,\n", $call_prefix_space,
"_LIBGTOP_SEND_len", "_LIBGTOP_SEND_ptr");
if ($line_fields[3] eq '') {
$call_code .= sprintf ("\t\t\t%s0, NULL,\n", $call_prefix_space);
} else {
$call_code .= sprintf ("\t\t\t%ssizeof (glibtop_%s), buf,\n",
$call_prefix_space, $feature);
}
$call_code .= sprintf ("\t\t\t%s%s);\n", $call_prefix_space, $retval_param);
if ($need_temp_storage) {
$send_buf_free_code = "\tglibtop_free_r (server, _LIBGTOP_SEND_buf);\n";
} else {
$send_buf_free_code = "";
}
$total_code .= sprintf ("call_server:\n%s\n%s\n%s\n%s\n%s\n",
$size_code, $send_buf_code, $marshal_code,
$call_code, $send_buf_free_code);
$total_code .= "\tgoto check_missing;\n\n";
$check_code = "check_missing:\n";
$check_code .= "\t/* Make sure that all required fields are present. */\n";
if (!($line_fields[3] eq '')) { if (!($line_fields[3] eq '')) {
print "\t/* Make sure that all required fields are present. */"; $check_code .= "\tif (buf->flags & server->required." . $feature . ")\n";
print ''; $check_code .= "\t\t_glibtop_missing_feature (server, \"" . $feature .
"\", buf->flags,\n\t\t\t\t\t &server->required." . $feature . ");\n";
print "\tif (buf->flags & server->required." . $feature . ')';
print "\t\t_glibtop_missing_feature (server, \"" . $feature .
"\", buf->flags,";
print "\t\t\t\t\t &server->required." . $feature . ');';
} }
$total_code .= $check_code."\tgoto do_return;\n\n";
$return_code = "do_return:\n";
if ($retval !~ /^void$/) { if ($retval !~ /^void$/) {
print "\n\t/* Now we can return. */"; $return_code .= "\treturn retval;\n";
print "\n\treturn retval;"; } else {
$return_code .= "\treturn;\n";
} }
print '}'; $total_code .= $return_code;
print '';
$func_decl = $retval."\n";
if ($line_fields[3] eq '') {
$func_decl .= sprintf ("glibtop_get_%s_l (glibtop *server%s)\n",
$feature, $param_decl);
} else {
$func_decl .= sprintf ("glibtop_get_%s_l (glibtop *server, %s *buf%s)\n",
$feature, 'glibtop_'.$feature, $param_decl);
}
$init_code = sprintf ("\tglibtop_init_r (&server, (1 << %s), 0);\n",
"GLIBTOP_SYSDEPS_".&toupper($feature));
$total_code = sprintf ("%s{\n%s\n%s\n%s}\n", $func_decl,
$local_var_code, $total_code);
print $total_code;
} }