Changeset 15356 for trunk/abcl/contrib/abcl-introspect/util.lisp

Timestamp:

07/30/20 12:20:16 (3 years ago)

Author:

Mark Evenson

Message:

abcl-introspect: add convenience method to read class files

e.g.

(abcl-introspect/jvm/tools/javap:disassemble-class-bytes

(ext:read-class

"~work/abcl/build/classes/org/armedbear/lisp/run_program_60.cls"))

TODO: shorten into generic method

File:

• trunk/abcl/contrib/abcl-introspect/util.lisp (modified) (1 diff)

trunk/abcl/contrib/abcl-introspect/util.lisp

@@ -6 +6 @@
   (with-open-file (stream pathname
                           :direction :output
-                          :element-type '(signed-byte 8))
+                          :element-type '(unsigned-byte 8))
     (dotimes (i (java:jarray-length class-bytes))
       (write-byte (java:jarray-ref class-bytes i) stream))))
 
-(export '(write-class) :extensions)
+(defun read-class (pathname)
+  "Read the file at PATHNAME as a Java byte[] array"
+  (with-open-file (stream pathname
+                          :direction :input
+                          :element-type '(unsigned-byte 8))
+    (let* ((length
+             (file-length stream))
+           (array
+             (make-array length :element-type '(unsigned-byte 8))))
+      (read-sequence array stream :end length)
+      (java:jnew-array-from-array "byte" array))))
+  
+  
+(export '(write-class
+          read-class)
+        :extensions)