Changeset 13394

Timestamp:

07/11/11 13:57:21 (12 years ago)

Author:

Mark Evenson

Message:

Ensure that ASDF jar-file always loaded when encountered.

JSS:NEW is no longer deprecated.

Documentation improvements.

Update to version jss-2.1.0.

Location:

trunk/abcl/contrib/jss

Files:

• README.markdown (modified) (3 diffs)
• asdf-jar.lisp (modified) (1 diff)
• jss.asd (modified) (1 diff)
• packages.lisp (modified) (2 diffs)

trunk/abcl/contrib/jss/README.markdown

@@ -30 +30 @@
 class. In your call to new, as long as the symbol can refer to only
 one class, we use that class. In this case, it is
-java.io.StringWriter. You could also have written (new
-'io.stringwriter), (new '|io.StringWriter|), (new
-'java.io.StringWriter)...
+java.io.StringWriter. You could also have written 
 
-the call (#"write" sw "Hello "), uses the code in invoke.java to
-call the method named "write" with the arguments sw and "Hello ". 
-JSS figures out the right java method to call, and calls it.
+     (new 'io.stringwriter)
+
+or      
+     (new '|io.StringWriter|)
+
+or     
+     (new 'java.io.StringWriter)
+
+The call 
+
+     (#"write" sw "Hello ")
+     
+uses the code in invoke.java to call the method named "write" with
+the arguments sw and "Hello ".  JSS figures out the right java method
+to call, and calls it.
+
+Static calls are possible as well with the #" macro, but the
+first argument MUST BE A SYMBOL to distinguish 
+
+     (#"getProperties" "java.lang.System")
+     
+from 
+
+     (#"getProperties" 'java.lang.System)     
+     
+The first attempts to call a method on the java.lang.String object
+with the contents "java.lang.System", which results in an error, while
+the second invokes the static java.lang.System.getProperties() method.     
 
 If you want to do a raw java call, use #0"toString". Raw calls
@@ -42 +65 @@
 object to Lisp object conversions that ABCL does.
 
-(with-constant-signature ((name jname raw?)*) &body body)
+
+    (with-constant-signature ((name jname raw?)*) &body body)
+    
 binds a macro which expands to a jcall, promising that the same method 
 will be called every time. Use this if you are making a lot of calls and 
 want to avoid the overhead of a the dynamic dispatch. 
-e.g. (with-constant-signature ((tostring "toString")) 
+e.g.
+ 
+    (with-constant-signature ((tostring "toString")) 
         (time (dotimes (i 10000) (tostring "foo"))))
-runs about 3x faster than (time (dotimes (i 10000) (#"toString" "foo")))
 
-(with-constant-signature ((tostring "toString" t)) ...) will cause the
-toString to be a raw java call. see get-all-jar-classnames below for
-an example.
+runs about three times faster than 
+ 
+    (time (dotimes (i 10000) (#"toString" "foo")))
+
+
+    (with-constant-signature ((tostring "toString" t)) ...) 
+    
+will cause the toString to be a raw java call. See
+JSS::GET-ALL-JAR-CLASSNAMES for an example.
  
 Implementation is that the first time the function is called, the
@@ -62 +94 @@
 
 (jcmn class-name) lists the names of all methods for the class
+
+
+Compatibility
+-------------
+
+The function ENSURE-COMPATIBILITY attempts to provide a compatibility
+mode to existing users of JSS by importing the necessary symbols into
+CL-USER.
+
+Some notes on other compatibilty issues:
+
+*classpath-manager* 
+
+   Since we are no longer using Beanshell, this is no longer present.
+   For obtaining the current classloader use JAVA:*CLASSLOADER*.
+   

trunk/abcl/contrib/jss/asdf-jar.lisp

@@ -25 +25 @@
 (defmethod perform ((operation load-op) (c jar-file))
   (or jss:*inhibit-add-to-classpath*
-      (jss::add-to-classpath (component-pathname c))))
+      (jss:add-to-classpath (component-pathname c))))
 
 (defmethod operation-done-p ((operation load-op) (c jar-file))
-  t
-#+nil
   (or jss:*inhibit-add-to-classpath*
       (member (namestring (truename (component-pathname c))) jss:*added-to-classpath* :test 'equal)))

trunk/abcl/contrib/jss/jss.asd

@@ -4 +4 @@
 (defsystem :jss
   :author "Alan Ruttenberg, Mark Evenson"
-  :version "2.0.1" 
+  :version "2.1.0" 
   :components 
   ((:module base :pathname "" :serial t 

trunk/abcl/contrib/jss/packages.lisp

@@ -17 +17 @@
    #:jcmn
    #:japropos
+   #:new 
 
 ;;; Useful utilities to convert common Java items to Lisp counterparts
@@ -26 +27 @@
 
 ;;; deprecated
-   #:new ; use JAVA:NEW
+
    #:get-java-field ; use JAVA:JFIELD