File: typemap

package info (click to toggle)
libinline-java-perl 0.58~dfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 964 kB
  • ctags: 684
  • sloc: perl: 4,717; java: 2,844; makefile: 35
file content (23 lines) | stat: -rw-r--r-- 338 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
TYPEMAP
InlineJavaJNIVM * 	T_PTROBJ_IJVM


OUTPUT

T_PTROBJ_IJVM
	sv_setref_pv($arg, \"Inline::Java::JNI\", (void *)$var) ;


INPUT

T_PTROBJ_IJVM
	if (sv_derived_from($arg, \"Inline::Java::JNI\")) {
	    $var = ($type)SvIV((SV*)SvRV($arg)) ;
	}
	else{
		if (SvOK($arg)){
		    croak(\"$var is not of type Inline::Java::JNI\") ;
		}
	}