;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: atk.lisp,v 1.5 2005-04-23 16:48:49 espen Exp $
+;; $Id: atk.lisp,v 1.6 2006-08-30 11:08:12 espen Exp $
(in-package "ATK")
(eval-when (:compile-toplevel :load-toplevel :execute)
(init-types-in-library
#.(concatenate 'string (pkg-config:pkg-variable "atk" "libdir")
- "/libatk-1.0.so") :prefix "atk_"))
+ "/libatk-1.0." asdf:*dso-extension*) :prefix "atk_"))
(define-types-by-introspection "Atk")
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gdktypes.lisp,v 1.25 2006-07-06 13:05:59 espen Exp $
+;; $Id: gdktypes.lisp,v 1.26 2006-08-30 11:08:12 espen Exp $
(in-package "GDK")
(eval-when (:compile-toplevel :load-toplevel :execute)
(init-types-in-library #.(concatenate 'string
(pkg-config:pkg-variable "gtk+-2.0" "libdir")
- "/libgdk-x11-2.0.so") :prefix ("gdk_" "_gdk_"))
+ "/libgdk-x11-2.0." asdf:*dso-extension*) :prefix ("gdk_" "_gdk_"))
(init-types-in-library #.(concatenate 'string
(pkg-config:pkg-variable "gtk+-2.0" "libdir")
- "/libgdk_pixbuf-2.0.so") :prefix "gdk_"))
+ "/libgdk_pixbuf-2.0." asdf:*dso-extension*) :prefix "gdk_"))
(defclass color (boxed)
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: pango.lisp,v 1.11 2006-04-26 12:40:39 espen Exp $
+;; $Id: pango.lisp,v 1.12 2006-08-30 11:08:13 espen Exp $
(in-package "PANGO")
(eval-when (:compile-toplevel :load-toplevel :execute)
(init-types-in-library #.(concatenate 'string
(pkg-variable "pango" "libdir")
- "/libpango-1.0.so") :prefix "pango_")
+ "/libpango-1.0." asdf:*dso-extension*)
+ :prefix "pango_")
(init-types-in-library #.(concatenate 'string
(pkg-variable "pango" "libdir")
- "/libpangoxft-1.0.so") :prefix "pango_xft")
+ "/libpangoxft-1.0." asdf:*dso-extension*)
+ :prefix "pango_xft")
(init-types-in-library #.(concatenate 'string
(pkg-variable "pango" "libdir")
- "/libpangoft2-1.0.so") :prefix "pango_fc"))
+ "/libpangoft2-1.0." asdf:*dso-extension*)
+ :prefix "pango_fc"))
(eval-when (:compile-toplevel :load-toplevel :execute)
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: rsvg.lisp,v 1.4 2006-02-13 20:10:48 espen Exp $
+;; $Id: rsvg.lisp,v 1.5 2006-08-30 11:08:13 espen Exp $
(in-package "RSVG")
(eval-when (:compile-toplevel :load-toplevel :execute)
(init-types-in-library
#.(concatenate 'string (pkg-config:pkg-variable "librsvg-2.0" "libdir")
- "/librsvg-2.so") :prefix "rsvg_")
+ "/librsvg-2." asdf:*dso-extension*) :prefix "rsvg_")
(define-types-by-introspection "Rsvg"
("RsvgError" :ignore t)))
(in-package :asdf)
-(export 'load-dso)
+(export '*dso-extension*)
+
+(defvar *dso-extension* #-darwin"so" #+darwin"dylib")
+
(defun concatenate-strings (strings &optional delimiter)
(if (not (rest strings))
(defmethod output-files ((operation compile-op) (dso unix-dso))
(let ((dir (component-pathname dso)))
(list
- (make-pathname :type "so"
+ (make-pathname :type *dso-extension*
:name (car (last (pathname-directory dir)))
:directory (butlast (pathname-directory dir))
:defaults dir))))
(defmethod component-pathname ((lib library))
- (make-pathname :type "so"
+ (make-pathname :type *dso-extension*
:name (component-name lib)
:directory (split-path (slot-value lib 'libdir))))