Changeset 14682

Timestamp:

04/17/14 11:49:30 (9 years ago)

Author:

Mark Evenson

Message:

Make JCALL work in more places.

A reimplementation of org.apache.commons.lang.ClassUtils?.isAssignable
instead of the standard isAssignableFrom test.

<​http://abcl.org/trac/ticket/352> .

From Olof.

Location:

trunk/abcl

Files:

• src/org/armedbear/lisp/Java.java (modified) (3 diffs)
• test/lisp/abcl/java-tests.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/Java.java

@@ -1041 +1041 @@
     }
 
+    private static boolean isAssignable(Class<?> from, Class<?> to) {
+        from = maybeBoxClass(from);
+        to = maybeBoxClass(to);
+        if (to.isAssignableFrom(from)) {
+            return true;
+        }
+        if (Byte.class.equals(from)) {
+            return Short.class.equals(to) || Integer.class.equals(to) || Long.class.equals(to) || Float.class.equals(to) || Double.class.equals(to);
+        } else if (Short.class.equals(from) || Character.class.equals(from)) {
+            return Integer.class.equals(to) || Long.class.equals(to) || Float.class.equals(to) || Double.class.equals(to);
+        } else if (Integer.class.equals(from)) {
+            return Long.class.equals(to) || Float.class.equals(to) || Double.class.equals(to);
+        } else if (Long.class.equals(from)) {
+            return Float.class.equals(to) || Double.class.equals(to);
+        } else if (Float.class.equals(from)) {
+            return Double.class.equals(to);
+        }
+        return false;
+    }
+
     private static boolean isApplicableMethod(Class<?>[] methodTypes,
             Object[] args) {
@@ -1046 +1066 @@
             Class<?> methodType = methodTypes[i];
             Object arg = args[i];
-            if (methodType.isPrimitive()) {
-                Class<?> x = getBoxedClass(methodType);
-                if (!x.isInstance(arg)) {
-                    return false;
-                }
-            } else if (arg != null && !methodType.isInstance(arg)) {
+            if (!isAssignable(arg.getClass(), methodType)) {
                 return false;
             }
@@ -1060 +1075 @@
     private static boolean isMoreSpecialized(Class<?>[] xtypes, Class<?>[] ytypes) {
         for (int i = 0; i < xtypes.length; ++i) {
-            Class<?> xtype = xtypes[i];
-            if (xtype.isPrimitive()) {
-                xtype = getBoxedClass(xtype);
-            }
-            Class<?> ytype = ytypes[i];
-            if (ytype.isPrimitive()) {
-                ytype = getBoxedClass(ytype);
-            }
+            Class<?> xtype = maybeBoxClass(xtypes[i]);
+            Class<?> ytype = maybeBoxClass(ytypes[i]);
             if (xtype.equals(ytype)) {
                 continue;
             }
-            if (ytype.isAssignableFrom(xtype)) {
+            if (isAssignable(xtype, ytype)) {
                 return true;
             }

trunk/abcl/test/lisp/abcl/java-tests.lisp

@@ -196 +196 @@
   t)
 
+(deftest jcall.5
+  (jcall "join" (jstatic "currentThread" "java.lang.Thread") 1 1)
+  nil)
+
+(deftest jcall.6
+  (jcall "offsetByCodePoints" "foobar" 0 #\Nul)
+  0)
+
 (deftest jfield.1
   (type-of (jfield "java.lang.Integer" "TYPE"))