Changeset 13953

Timestamp:

05/29/12 19:06:04 (12 years ago)

Author:

Mark Evenson

Message:

Customize the disassembler used locally to analyze JVM bytecode.

File:

• trunk/abcl/examples/misc/dotabclrc (modified) (1 diff)

trunk/abcl/examples/misc/dotabclrc

@@ -7 +7 @@
 ;;;   .clisprc.lisp      (CLISP)
 ;;;   .lispworks         (LispWorks)
+
+;;; Customize the procedure used by CL:DISASSEMBLE
+(progn 
+  (setf *disassembler*       
+        (let ((strategies (list 
+                                   (lambda (p)
+                                     (let ((class (make-pathname :name (pathname-name p)))
+                                           (path (directory-namestring p)))
+                                       (format nil "javap -c -l -verbose -classpath ~A ~A" path class))
+                                     "/Users/evenson/bin/jad -a -p"
+                                     (lambda (p)
+                                       (format nil "java -jar ~
+/Users/evenson/work/classfileanalyzer/classfileanalyzer.jar ~A"
+                                               p))))))
+          (first strategies))))
+
 
 (defparameter *ansi-tests-directory*