chiark / gitweb /
User data mechanism protected by locking
[clg] / tools / asdf-extensions.lisp
CommitLineData
77dd2192 1(in-package :asdf)
2
34abe734 3(export '*dso-extension*)
4
1dfea3ab 5(defparameter *dso-extension* #-darwin"so" #+darwin"dylib")
34abe734 6
1a9c1e08 7
77dd2192 8;;; The following code is more or less copied frm sb-bsd-sockets.asd,
73572c12 9;;; but extended to allow flags to be set in a general way
77dd2192 10
bcd6b6af 11(defclass unix-dso (module)
12 ((ldflags :initform nil :initarg :ldflags)))
13
77dd2192 14(defun unix-name (pathname)
15 (namestring
16 (typecase pathname
17 (logical-pathname (translate-logical-pathname pathname))
18 (t pathname))))
19
1a9c1e08 20(defmethod input-files ((operation compile-op) (dso unix-dso))
77dd2192 21 (mapcar #'component-pathname (module-components dso)))
22
23(defmethod output-files ((operation compile-op) (dso unix-dso))
24 (let ((dir (component-pathname dso)))
25 (list
34abe734 26 (make-pathname :type *dso-extension*
77dd2192 27 :name (car (last (pathname-directory dir)))
28 :directory (butlast (pathname-directory dir))
29 :defaults dir))))
30
31
32(defmethod perform :after ((operation compile-op) (dso unix-dso))
33 (let ((dso-name (unix-name (car (output-files operation dso)))))
34 (unless (zerop
35 (run-shell-command
36 "gcc ~A -o ~S ~{~S ~}"
bcd6b6af 37 (clg-utils:concatenate-strings
38 (cons
39 #+sunos "-shared -lresolv -lsocket -lnsl"
40 #+darwin "-bundle"
41 #-(or darwin sunos) "-shared"
42 (slot-value dso 'ldflags))
43 #\sp)
77dd2192 44 dso-name
45 (mapcar #'unix-name
46 (mapcan (lambda (c)
47 (output-files operation c))
48 (module-components dso)))))
49 (error 'operation-error :operation operation :component dso))))
50
dfdb198f 51#+clisp
52(defvar *loaded-libraries* ())
73572c12 53
54(defun load-dso (filename)
55 #+sbcl(sb-alien:load-shared-object filename)
dfdb198f 56 #+cmu(ext:load-foreign filename)
57 #+clisp
58 (unless (find filename *loaded-libraries* :test #'equal)
59 (ffi::foreign-library (namestring filename))
60 (push filename *loaded-libraries*)))
1a9c1e08 61
62
77dd2192 63(defmethod perform ((o load-op) (c unix-dso))
64 (let ((co (make-instance 'compile-op)))
65 (let ((filename (car (output-files co c))))
1a9c1e08 66 (load-dso filename))))
77dd2192 67
68
69
70(defclass c-source-file (source-file)
71 ((cflags :initform nil :initarg :cflags)
72 (optimization :initform 2 :initarg :optimization)
73 (definitions :initform nil :initarg :definitions)
74 (include-paths :initform nil :initarg :include-paths)))
75
76
77(defmethod output-files ((op compile-op) (c c-source-file))
73572c12 78 (list (make-pathname :type "o" :defaults (component-pathname c))))
77dd2192 79
80
81(defmethod perform ((op compile-op) (c c-source-file))
82 (unless
83 (= 0 (run-shell-command "gcc ~A -o ~S -c ~S"
bcd6b6af 84 (clg-utils:concatenate-strings
77dd2192 85 (append
86 (list "-fPIC")
87 (when (slot-value c 'optimization)
88 (list (format nil "-O~A" (slot-value c 'optimization))))
89 (loop
90 for symbol in (slot-value c 'definitions)
91 collect (format nil "-D~A" symbol))
92 (loop
93 for path in (slot-value c 'include-paths)
94 collect (format nil "-I~A" path))
95 (slot-value c 'cflags))
96 #\sp)
97 (unix-name (car (output-files op c)))
98 (unix-name (component-pathname c))))
99 (error 'operation-error :operation op :component c)))
100
101
102(defmethod perform ((operation load-op) (c c-source-file))
103 t)
104
105
fd9d29a4 106;;; Shared libraries
1a9c1e08 107
fd9d29a4 108(defclass library (component)
1dfea3ab 109 ((libdir :initarg :libdir)
110 (libname :initarg :libname :initform nil)))
1a9c1e08 111
112
3e9e71e7 113(defun split-path (path)
114 (labels ((split (path)
115 (unless (zerop (length path))
116 (let ((slash (position #\/ path)))
117 (if slash
118 (cons (subseq path 0 slash) (split (subseq path (1+ slash))))
119 (list path))))))
120 (if (and (not (zerop (length path))) (char= (char path 0) #\/))
121 (cons :absolute (split (subseq path 1)))
122 (cons :relative (split path)))))
123
1a9c1e08 124
125(defmethod component-pathname ((lib library))
34abe734 126 (make-pathname :type *dso-extension*
1dfea3ab 127 :name (or (slot-value lib 'libname) (component-name lib))
3e9e71e7 128 :directory (split-path (slot-value lib 'libdir))))
1a9c1e08 129
130(defmethod perform ((o load-op) (c library))
131 (load-dso (component-pathname c)))
fd9d29a4 132
133(defmethod perform ((operation operation) (c library))
134 nil)
135
136(defmethod operation-done-p ((o load-op) (c library))
137 #+sbcl(find (sb-ext::unix-namestring (component-pathname c)) sb-alien::*shared-objects* :key #'sb-alien::shared-object-file :test #'equal)
138 #+cmu(rassoc (unix::unix-namestring (component-pathname c))
139 system::*global-table*
140 :key #'(lambda (pathname)
141 (when pathname (unix::unix-namestring pathname)))
dfdb198f 142 :test #'equal)
143 #+clisp(find (component-pathname c) *loaded-libraries* :test #'equal))
fd9d29a4 144
145(defmethod operation-done-p ((o operation) (c library))
146 t)