File: instanceof.R

package info (click to toggle)
rjava 0.9-3-1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 3,196 kB
  • sloc: java: 7,733; ansic: 4,947; sh: 2,878; makefile: 137; perl: 33
file content (25 lines) | stat: -rw-r--r-- 632 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
`%instanceof%` <- .jinstanceof <- function( o, cl ){
	
	if( !inherits( o, "jobjRef" ) ){
		stop( "o is not a java object" )
	}
	
	# first get the class object that represents cl
	if( inherits( cl, "jobjRef" ) ){
		if( .jclass( cl ) == "java.lang.Class" ){
			clazz <- cl
		} else {
			clazz <- .jcall( cl, "Ljava/lang/Class;", "getClass" ) 
		}
	} else if( inherits( cl, "jclassName" ) ) {
		clazz <- cl@jobj
	} else if( inherits( cl, "character" ) ){
		clazz <- .jfindClass(cl)
	} else {
		return(FALSE)
	}
	
	# then find out if o is an instance of the class
	.jcall( clazz , "Z", "isInstance", .jcast(o, "java/lang/Object" ) )
}