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

Don't create code for things which are now in the new

Browse Source 
2000-01-12  Martin Baulig  <martin@home-of-linux.org>

	* marshal.pl: Don't create code for things which are now
	in the new `glibtop-backend-common' backend.
This commit is contained in:
Martin Baulig
2000-01-12 13:04:09 +00:00
committed by Martin Baulig
parent d74c329404
commit 720cb52cf3
2 changed files with 16 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
backends/sysdeps/ChangeLog
View File

@@ -1,3 +1,8 @@
2000-01-12 Martin Baulig <martin@home-of-linux.org>
* marshal.pl: Don't create code for things which are now
in the new `glibtop-backend-common' backend.
2000-01-02 Martin Baulig <martin@home-of-linux.org>
* marshal.pl: New file. Automatically creates `marshal.c'.

16
backends/sysdeps/marshal.pl
View File

@@ -58,7 +58,9 @@ sub output {
$space = $feature;
$space =~ s/./ /g;
$features{++$feature_count} = $feature;
$features{++$feature_count} = $orig;
return if $orig =~ /^@//;
if ($retval eq 'retval') {
$retval_param = '&retval';
@@ -113,7 +115,7 @@ sub output {
}
if ($param_decl eq '') {
$param_decl = ",\n " . $space . ' ';
$param_decl = ",\n " . $space . ' ';
}
else {
$param_decl = $param_decl . ', ';
@@ -165,9 +167,13 @@ $call_vector_code = '';
for ($nr = 1; $nr <= $feature_count; $nr++) {
$feature = $features{$nr};
$call_vector_code .= sprintf
(qq[\#if GLIBTOP_SUID_%s\n\tNULL,\n\#else\n\t_glibtop_get_%s_c,\n\#endif\n],
&toupper($feature), $feature);
if ($feature =~ /^@/) {
$call_vector_code .= sprintf (qq[\tNULL,\n]);
} else {
$call_vector_code .= sprintf
(qq[\#if GLIBTOP_SUID_%s\n\tNULL,\n\#else\n\t_glibtop_get_%s_c,\n\#endif\n],
&toupper($feature), $feature);
}
}
print 'glibtop_call_vector glibtop_backend_sysdeps_call_vector = {';