source: tags/1.5.0/contrib/abcl-introspect/objectweb.lisp

Last change on this file was 15013, checked in by mevenson, 3 months ago

Restore the ability SYSTEM:CHOOSE-ASSEMBLER to use Objectweb

The Objectweb disassembler has been moved into the ABCL-INTROSPECT
contrib where it can be rationally installed via ABCL-ASDF
encapsulation of Maven artifacts.

To enable the Objectweb disassembler use

(require :abcl-contrib)
(require :objectweb)

File size: 999 bytes
Line 
1(in-package :cl-user)
2(defpackage :abcl/build/jvm/tools/objectweb
3  (:use :cl)
4  (:export
5   #:disassemble-class-bytes))
6(in-package :abcl/build/jvm/tools/objectweb)
7
8(defun disassemble-class-bytes (object)
9  (let* ((reader (java:jnew "org.objectweb.asm.ClassReader" object))
10         (writer (java:jnew "java.io.StringWriter"))
11         (printer (java:jnew "java.io.PrintWriter" writer))
12         (tracer (java:jnew "org.objectweb.asm.util.TraceClassVisitor" java:+null+ printer))
13         ;; this is to support both the 1.X and subsequent releases
14         (flags (ignore-errors (java:jfield "org.objectweb.asm.ClassReader" "SKIP_DEBUG"))))
15    (java:jcall-raw "accept" reader tracer (or flags java:+false+))
16    (java:jcall "toString" writer)))
17
18(eval-when (:load-toplevel :execute)
19  (pushnew `(:objectweb . abcl/build/jvm/tools/objectweb::disassemble-class-bytes)
20           sys::*disassemblers*)
21  (format cl:*load-verbose* "~&; ~a ; Successfully added Objectweb disassembler.~%" *package*))
22
Note: See TracBrowser for help on using the repository browser.