Changeset 13102

Timestamp:

12/25/10 11:03:50 (13 years ago)

Author:

ehuelsmann

Message:

Add more type-conversion helpers to java.lisp.

File:

• trunk/abcl/src/org/armedbear/lisp/java.lisp (modified) (1 diff)

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

@@ -219 +219 @@
       i (1+ i)))
     jarray))
+
+(defun list-from-jarray (jarray)
+  "Returns a list with the elements of `jarray`."
+  (loop for i from 0 below (jarray-length jarray)
+        collect (jarray-ref jarray i)))
+
+(defun vector-from-jarray (jarray)
+  "Returns a vector with the elements of `jarray`."
+  (loop with vec = (make-array (jarray-length jarray))
+        for i from 0 below (jarray-length jarray)
+        do (setf (aref vec i) (jarray-ref jarray i))
+        finally (return vec)))
+
+(defun list-from-jenumeration (jenumeration)
+  "Returns a list with the elements returned by successive `nextElement`
+calls on the java.util.Enumeration `jenumeration`."
+  (loop while (jcall jenumeration
+                     (jmethod "java.util.Enumeration" "hasMoreElements"))
+        collect (jcall jenumeration
+                       (jmethod "java.util.Enumeration" "nextElement"))))
 
 (defun jclass-constructors (class)