[armedbear-cvs] r13953 - trunk/abcl/examples/misc

[mevenson at common-lisp.net]

Author: mevenson
Date: Tue May 29 12:06:04 2012
New Revision: 13953

Log:
Customize the disassembler used locally to analyze JVM bytecode.

Modified:
   trunk/abcl/examples/misc/dotabclrc

Modified: trunk/abcl/examples/misc/dotabclrc
==============================================================================
--- trunk/abcl/examples/misc/dotabclrc	Tue May 29 12:05:58 2012	(r13952)
+++ trunk/abcl/examples/misc/dotabclrc	Tue May 29 12:06:04 2012	(r13953)
@@ -7,6 +7,22 @@
 ;;;   .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*
   #-(or windows mswindows win32)
   #p"/home/peter/xcl/x/ansi-tests/"