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

New file. Creates command.h' from command.h.in'. New file. Template file

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

	* command.pl: New file. Creates `command.h' from `command.h.in'.
	* command.h.in: New file. Template file for `command.h'.

	* io.c, version.c: New files. Copied here from `src/daemon'.
This commit is contained in:
Martin Baulig
2000-01-02 16:13:08 +00:00
committed by Martin Baulig
parent 6fe80f02ce
commit e0d9f28674
13 changed files with 479 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
backends/server/demarshal.pl
View File

@@ -31,10 +31,10 @@ print '';
print '#include <glibtop/sysdeps.h>';
print '#include <glibtop/union.h>';
print '';
print '#include <glibtop/command.h>';
print '#include <glibtop/backend.h>';
print '';
print '#include <glibtop-backend-private.h>';
print '#include "command.h"';
print '';
$feature_count = 0;
@@ -251,3 +251,25 @@ sub output {
print $total_code;
}
$func_decl_code = sprintf
(qq[int\nglibtop_demarshal_func_i (glibtop *server, glibtop_backend *backend, unsigned command, const void *send_ptr, size_t send_size, void *data_ptr, size_t data_size, int *retval_ptr)]);
$switch_body_code = '';
for ($nr = 1; $nr <= $feature_count; $nr++) {
$feature = $features{$nr};
$switch_body_code .= sprintf
(qq[\tcase GLIBTOP_CMND_%s:\n\t\treturn _glibtop_demarshal_%s_i\n\t\t\t(server, backend, send_ptr, send_size,\n\t\t\t data_ptr, data_size, retval_ptr);\n],
&toupper ($feature), $feature);
}
$switch_code = sprintf
(qq[\tswitch (command) {\n%s\tdefault:\n\t\treturn -GLIBTOP_ERROR_INVALID_ARGUMENT;\n\t}\n], $switch_body_code);
$total_code = sprintf
(qq[%s\n{\n%s}\n\n], $func_decl_code, $switch_code);
print $total_code;
1;