diff options
| author | Martin Baulig <martin@home-of-linux.org> | 2000-01-12 13:10:35 +0000 |
|---|---|---|
| committer | Martin Baulig <martin@src.gnome.org> | 2000-01-12 13:10:35 +0000 |
| commit | fc4f288ce1d6f8866198f445ba1a6d9efb51c1a9 (patch) | |
| tree | bb9570cae0ed361b33cf2adfcc7f38b1304c0f3b /backends | |
| parent | 7e20f2f5f2f6dc6608d25c928241a4cfcfd19481 (diff) | |
| download | libgtop-fc4f288ce1d6f8866198f445ba1a6d9efb51c1a9.tar.gz | |
Create the `_glibtop_init_hook_s' as well.
2000-01-12 Martin Baulig <martin@home-of-linux.org>
* marshal.pl: Create the `_glibtop_init_hook_s' as well.
Diffstat (limited to 'backends')
| -rw-r--r-- | backends/sysdeps/ChangeLog | 2 | ||||
| -rw-r--r-- | backends/sysdeps/marshal.pl | 18 |
2 files changed, 19 insertions, 1 deletions
diff --git a/backends/sysdeps/ChangeLog b/backends/sysdeps/ChangeLog index 66894d8d..07bc2d91 100644 --- a/backends/sysdeps/ChangeLog +++ b/backends/sysdeps/ChangeLog @@ -1,5 +1,7 @@ 2000-01-12 Martin Baulig <martin@home-of-linux.org> + * marshal.pl: Create the `_glibtop_init_hook_s' as well. + * marshal.pl: Don't create code for things which are now in the new `glibtop-backend-common' backend. diff --git a/backends/sysdeps/marshal.pl b/backends/sysdeps/marshal.pl index 2c42559c..6fd497ac 100644 --- a/backends/sysdeps/marshal.pl +++ b/backends/sysdeps/marshal.pl @@ -60,7 +60,7 @@ sub output { $features{++$feature_count} = $orig; - return if $orig =~ /^@//; + return if $orig =~ /^@/; if ($retval eq 'retval') { $retval_param = '&retval'; @@ -163,6 +163,7 @@ sub output { print $total_code; } +$init_hook_code = ''; $call_vector_code = ''; for ($nr = 1; $nr <= $feature_count; $nr++) { $feature = $features{$nr}; @@ -174,10 +175,25 @@ for ($nr = 1; $nr <= $feature_count; $nr++) { (qq[\#if GLIBTOP_SUID_%s\n\tNULL,\n\#else\n\t_glibtop_get_%s_c,\n\#endif\n], &toupper($feature), $feature); } + + if (!($feature =~ /^@/)) { + $init_hook_code .= sprintf + (qq[\#if !GLIBTOP_SUID_%s\n\tglibtop_init_%s_s,\n\#endif\n], + &toupper($feature), $feature); + } } +$init_hook_code .= sprintf (qq[\tNULL\n]); + +chop $init_hook_code; +chop $call_vector_code; print 'glibtop_call_vector glibtop_backend_sysdeps_call_vector = {'; print $call_vector_code; print '};'; print ''; +print 'glibtop_init_func_t _glibtop_init_hook_s [] = {'; +print $init_hook_code; +print '};'; +print ''; + |