Changeset 12715 for trunk/abcl/src/org/armedbear/lisp/java.lisp

Timestamp:

05/21/10 22:54:55 (13 years ago)

Author:

astalla

Message:

Support for custom defclass options for user-defined metaclasses.
Introduced variable java:*classloader* which holds the classloader used by jclass and friends,
and primitives to create new classloaders and (untested) add new URLs to the classloader at runtime.

File:

• trunk/abcl/src/org/armedbear/lisp/java.lisp (modified) (2 diffs)

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

@@ -35 +35 @@
 (require "PRINT-OBJECT")
 
+(defvar *classloader* (get-default-classloader))
+
+(defun add-url-to-classpath (url &optional (classloader *classloader*))
+  (jcall "addUrl" classloader url))
+
+(defun add-urls-to-classpath (&rest urls)
+  (dolist (url urls)
+    (add-url-to-classpath url)))
+
 (defun jregister-handler (object event handler &key data count)
   (%jregister-handler object event handler data count))
@@ -191 +200 @@
         (setf (apply #'jarray-ref jarray (row-major-to-index dimensions i)) (row-major-aref array i))
         (apply #'(setf jarray-ref) (row-major-aref array i) jarray (row-major-to-index dimensions i))))))
+
+(defun jnew-array-from-list (element-type list)
+  (let ((jarray (jnew-array element-type (length list)))
+  (i 0))
+    (dolist (x list)
+      (setf (jarray-ref jarray i) x
+      i (1+ i)))
+    jarray))
 
 (defun jclass-constructors (class)