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

add GET macro for Java object -> C struct conversion

This commit is contained in:
Doug MacEachern 2008-03-12 06:19:52 +00:00
parent 3d33130db8
commit 93db8c99cd
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
bindings/SigarWrapper.pm
View File

@ -1958,8 +1958,10 @@ public class $class implements java.io.Serializable {
EOF EOF
my(@copy, @tostring); my(@copy, @tostring);
my $define = "JAVA_SIGAR_SET_FIELDS_\U$class"; my $setter = "JAVA_SIGAR_SET_FIELDS_\U$class";
my @macro = ("\#define $define(cls, obj, s)"); my $getter = "JAVA_SIGAR_GET_FIELDS_\U$class";
my @setter = ("\#define $setter(cls, obj, s)");
my @getter = ("\#define $getter(obj, s)");
my $init_define = "JAVA_SIGAR_INIT_FIELDS_\U$class"; my $init_define = "JAVA_SIGAR_INIT_FIELDS_\U$class";
my $field_class_ix = "JSIGAR_FIELDS_\U$class"; my $field_class_ix = "JSIGAR_FIELDS_\U$class";
my $field_class_ix = "JSIGAR_FIELDS_\U$class"; my $field_class_ix = "JSIGAR_FIELDS_\U$class";
@ -1986,6 +1988,7 @@ EOF
$jname = jname($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";
my $get = "JENV->Get${type}Field";
my $field_ix = $field_class_ix . "_\U$name"; my $field_ix = $field_class_ix . "_\U$name";
my $get_id = qq|JENV->GetFieldID(env, cls, "$jname", $sig)|; my $get_id = qq|JENV->GetFieldID(env, cls, "$jname", $sig)|;
@ -1998,8 +2001,10 @@ EOF
" $id_cache = ", " $id_cache = ",
" $get_id;"; " $get_id;";
push @macro, push @setter,
qq| $set(env, obj, $id_lookup, s.$member);|; qq| $set(env, obj, $id_lookup, s.$member);|;
push @getter,
qq| s.$member = $get(env, obj, $id_lookup);|;
my $init = $init{$type} || '0'; my $init = $init{$type} || '0';
my $jtype = $type{$type} || lcfirst($type); my $jtype = $type{$type} || lcfirst($type);
@ -2064,8 +2069,9 @@ EOF
print $hfh "#define $init_define(cls)\n"; print $hfh "#define $init_define(cls)\n";
} }
print $hfh join(' \\' . "\n", @macro), "\n\n"; print $hfh join(' \\' . "\n", @setter), "\n\n";
print $cfh "\n\n $define(cls, obj, s);" if $func->{has_get}; print $hfh join(' \\' . "\n", @getter), "\n\n";
print $cfh "\n\n $setter(cls, obj, s);" if $func->{has_get};
print $cfh "\n}\n" if $func->{has_get}; print $cfh "\n}\n" if $func->{has_get};
print $jfh "\n}\n"; print $jfh "\n}\n";