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> 2000-01-02 Martin Baulig <martin@home-of-linux.org>
* marshal.pl: New file. Automatically creates `marshal.c'. * marshal.pl: New file. Automatically creates `marshal.c'.

16
backends/sysdeps/marshal.pl
View File

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