source: branches/0.26.x/abcl/contrib/jss/asdf-jar.lisp

Last change on this file was 13281, checked in by Mark Evenson, 13 years ago

Provisionally working version of JSS without bsh-2.0b4.jar.

This still needs 'jscheme.jar' to be loaded via the top-level
declaration at the beginning of packages.lisp. Adjust the filepath to
a local version of jscheme.jar which may be downloaded from
​http://code.google.com/p/lsw2/source/browse/trunk/lib/jscheme.jar.

Rigourously untested, but still a worthwhile checkpoint for public
consumption, especially since we need to fix on an API.

Re-packaged in JSS package. Use ENSURE-COMPATIBILITY to be compatible
with existing JSS installations.
File size: 1.6 KB
Line 
1(in-package :asdf)
2
3(defclass jar-directory (static-file) ())
4
5(defmethod perform ((operation compile-op) (c jar-directory))
6  (unless jss:*inhibit-add-to-classpath*
7    (jss:add-directory-jars-to-class-path (truename (component-pathname c)) t)))
8
9(defmethod perform ((operation load-op) (c jar-directory))
10  (unless jss:*inhibit-add-to-classpath*
11    (jss:add-directory-jars-to-class-path (truename (component-pathname c)) t)))
12
13(defmethod operation-done-p ((operation load-op) (c jar-directory))
14  (or jss:*inhibit-add-to-classpath*
15    (not (jss:need-to-add-directory-jar? (component-pathname c) t))))
16
17(defmethod operation-done-p ((operation compile-op) (c jar-directory))
18  t)
19
20(defclass jar-file (static-file) ())
21
22(defmethod perform ((operation compile-op) (c jar-file))
23  (jss:add-to-classpath (component-pathname c)))
24
25(defmethod perform ((operation load-op) (c jar-file))
26  (or jss:*inhibit-add-to-classpath*
27      (jss::add-to-classpath (component-pathname c))))
28
29(defmethod operation-done-p ((operation load-op) (c jar-file))
30  t
31#+nil
32  (or jss:*inhibit-add-to-classpath*
33      (member (namestring (truename (component-pathname c))) jss:*added-to-classpath* :test 'equal)))
34
35(defmethod operation-done-p ((operation compile-op) (c jar-file))
36  t)
37
38(defclass class-file-directory (static-file) ())
39
40(defmethod perform ((operation compile-op) (c class-file-directory))
41  (jss:add-to-classpath (component-pathname c)))
42
43(defmethod perform ((operation load-op) (c class-file-directory))
44  (jss:add-to-classpath (component-pathname c)))
45
46(defmethod source-file-type ((c jar-file) (s module)) "jar")
47
48
49
50
Note: See TracBrowser for help on using the repository browser.