bughz/sigar
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add nfs.null + special case java field name

Browse Source
This commit is contained in:
Doug MacEachern 2007-11-06 04:45:52 +00:00
parent 58dcb425c2
commit 9955d435de
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
bindings/SigarWrapper.pm
View File

@ -101,6 +101,9 @@ sub hash {
} }
my $nfs_v2 = [ my $nfs_v2 = [
{
name => 'null', type => 'Long',
},
{ {
name => 'getattr', type => 'Long', name => 'getattr', type => 'Long',
}, },
@ -155,6 +158,9 @@ my $nfs_v2 = [
]; ];
my $nfs_v3 = [ my $nfs_v3 = [
{
name => 'null', type => 'Long',
},
{ {
name => 'getattr', type => 'Long', name => 'getattr', type => 'Long',
}, },
@ -1820,6 +1826,12 @@ sub start {
print $hfh "#define JSIGAR_FIELDS_MAX $i\n"; print $hfh "#define JSIGAR_FIELDS_MAX $i\n";
} }
sub jname {
my $jname = shift;
#special case for nfs
return $jname eq 'null' ? "_$jname" : $jname;
}
#using mega-method pattern here #using mega-method pattern here
sub generate_class { sub generate_class {
my($self, $func) = @_; my($self, $func) = @_;
@ -1965,6 +1977,8 @@ EOF
my $member = $field->{member} || $name; my $member = $field->{member} || $name;
my $desc = $field->{desc} || $name; my $desc = $field->{desc} || $name;
(my $jname = $name) =~ s/_(\w)/\u$1/g; (my $jname = $name) =~ s/_(\w)/\u$1/g;
my $getter = "get\u$jname";
$jname = jname($jname);
my $sig = qq("$field_types{$type}"); my $sig = qq("$field_types{$type}");
my $set = "JENV->Set${type}Field"; my $set = "JENV->Set${type}Field";
@ -2005,7 +2019,7 @@ EOF
print $jfh " * \@return $desc\n"; print $jfh " * \@return $desc\n";
print $jfh " */\n"; print $jfh " */\n";
print $jfh " public $jtype get\u$jname() { return $jname; }\n"; print $jfh " public $jtype $getter() { return $jname; }\n";
} }
print $jfh "\n void copyTo($class copy) {\n", @copy, " }\n"; print $jfh "\n void copyTo($class copy) {\n", @copy, " }\n";