source: trunk/abcl/contrib/jss/asdf-jar.lisp @ 13394

Last change on this file since 13394 was 13394, checked in by Mark Evenson, 10 years ago

Ensure that ASDF jar-file always loaded when encountered.

JSS:NEW is no longer deprecated.

Documentation improvements.

Update to version jss-2.1.0.

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  (or jss:*inhibit-add-to-classpath*
31      (member (namestring (truename (component-pathname c))) jss:*added-to-classpath* :test 'equal)))
32
33(defmethod operation-done-p ((operation compile-op) (c jar-file))
34  t)
35
36(defclass class-file-directory (static-file) ())
37
38(defmethod perform ((operation compile-op) (c class-file-directory))
39  (jss:add-to-classpath (component-pathname c)))
40
41(defmethod perform ((operation load-op) (c class-file-directory))
42  (jss:add-to-classpath (component-pathname c)))
43
44(defmethod source-file-type ((c jar-file) (s module)) "jar")
45
46
47
48
Note: See TracBrowser for help on using the repository browser.