/usr/local/CPAN/PBJ-JNI/PBJ/JNI/Util.pm

• package PBJ::JNI::Util
  • get_static_field
• EOF

# Copyright (c) 2001 Ping Liang
# All rights reserved.
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# $Id: Util.pm,v 1.2 2001/11/13 14:34:49 liang Exp $

package PBJ::JNI::Util;

our $VERSION = '0.1';

use strict;
use Carp;
use PBJ::JNI::JNIEnv;

sub get_static_field() {
  my ($clz, $env, $cls_name, $fld_name, $fld_sig) = @_;
  my ($cls, $fid, $mid, $fld, $value);

  $env->PushLocalFrame(16) == 0 or die;
  $cls = $env->FindClass($cls_name) or die;
  $fid = $env->GetStaticFieldID($cls, $fld_name, $fld_sig) or die;
  $value = $env->GetStaticIntField($cls, $fid) or die;
  $env->PopLocalFrame(0);
  return $value;
};