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

The perl generator for the *_l() functions does not need to know

Browse Source 
about the glibtop_* struct layout, so drop this from the definitions.
This commit is contained in:
Benoit Dejean
2015-06-21 19:13:35 +02:00
parent fba67da65d
commit 214c3635da
2 changed files with 32 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/lib.pl
View File

@@ -88,7 +88,7 @@ sub output {
@line_fields = split(/\|/, $line, 9999);
$retval = $line_fields[1];
$feature = $line_fields[2];
$param_def = $line_fields[4];
$param_def = $line_fields[3];
$orig = $feature;
$feature =~ s/^@//;
@@ -106,16 +106,16 @@ sub output {
}
if ($param_def eq 'string') {
$call_param = ', ' . $line_fields[5];
$call_param = ', ' . $line_fields[4];
$param_buf = '';
$buf_set = '';
$param_decl = ",\n " . $space . ' const char *' .
$line_fields[5];
$send_ptr = "\t\tconst void *send_ptr = " . $line_fields[5] . ';';
$send_size = "\t\tconst size_t send_size =\n\t\tstrlen (" .
$line_fields[4];
$send_ptr = "\n\tconst void *send_ptr = " . $line_fields[4] . ';';
$send_size = "\n\tconst size_t send_size =\n\t\tstrlen (" .
$line_fields[5] . ') + 1;';
$line_fields[4] . ') + 1;';
}
else {
$call_param = '';