Hi,
I am not sure if the following observation is helpful - but for any case
here it comes...
On my system (Debian etch) the extension `.so.0' is used for some
libraries - and not the extension `.so' cm-gtk was searching for.
Example:
ls -la /usr/lib/libgtk-x11-2.0.so
ls: /usr/lib/libgtk-x11-2.0.so: No such file or directory
ls -la /usr/lib/libgtk-x11-2.0*
lrwxrwxrwx 1 root root 26 2006-10-27 23:30
/usr/lib/libgtk-x11-2.0.so.0 -> libgtk-x11-2.0.so.0.800.20
-rw-r--r-- 1 root root 3039524 2006-10-14 06:29
/usr/lib/libgtk-x11-2.0.so.0.800.20
In order to load the libraries I made some changes to my version of the
code:
- cm-gtk now searches the libraries using both extensions
- the list of extensions searched for is customizable
by setting the variable *gtk-libext* to something different.
current value: #+:darwin '("dylib") #-:darwin '("so" "so.0"))
Thanks for your wonderful program!
Best wishes, Dietrich
Here come my changes...
File: .../common-music/cm-gtk/gtkffi-cmusbcl.lisp
============================================================
original version:
------------------------------------------------------------
(in-package :cl-user)
(eval-when (:compile-toplevel :load-toplevel :execute)
#+sbcl (setq sb-alien::*values-type-okay* t)
(export '(*gtk-libdir* *gtk-libfiles*) :cl-user)
(defvar *gtk-libdir* #+:darwin "/sw/lib/" #-:darwin "/usr/lib/")
(defvar *gtk-libfiles*
'("libgtk-x11-2.0" "libgdk-x11-2.0" "libatk-1.0"
"libgdk_pixbuf-2.0"
#-:darwin "libm" #+:darwin "/usr/lib/libm"
"libpangoxft-1.0" "libpangox-1.0" "libpango-1.0"
"libgobject-2.0" "libgmodule-2.0"
#-:darwin "libdl"
"libglib-2.0"
#+:darwin "libintl"
#+:darwin "libiconv"
))
(flet ((libpath (lib &aux p)
(setq p (namestring
(merge-pathnames (format nil "~A.~A"
lib
#+:darwin "dylib"
#-:darwin "so")
*gtk-libdir*)))
(if (probe-file p)
p
(error "Library ~S not found. Either GTK is not installed
or else cl-user:*gtk-libdir* needs to be set to the directory containing
GTK on your machine." p))))
#+:sbcl
(dolist (l *gtk-libfiles*) (load-shared-object (libpath l)))
#+:cmu
(dolist (l *gtk-libfiles*) (ext:load-foreign (libpath l)))))
============================================================
the changed version:
------------------------------------------------------------
(in-package :cl-user)
(eval-when (:compile-toplevel :load-toplevel :execute)
#+sbcl (setq sb-alien::*values-type-okay* t)
(export '(*gtk-libdir* *gtk-libfiles*) :cl-user)
(defvar *gtk-libdir* #+:darwin "/sw/lib/" #-:darwin "/usr/lib/")
(defvar *gtk-libfiles*
'("libgtk-x11-2.0" "libgdk-x11-2.0" "libatk-1.0"
"libgdk_pixbuf-2.0"
#-:darwin "libm" #+:darwin "/usr/lib/libm"
"libpangoxft-1.0" "libpangox-1.0" "libpango-1.0"
"libgobject-2.0" "libgmodule-2.0"
#-:darwin "libdl"
"libglib-2.0"
#+:darwin "libintl"
#+:darwin "libiconv"
))
(defvar *gtk-libext* #+:darwin '("dylib") #-:darwin '("so" "so.0"))
(flet ((libpath (lib)
(loop for ext in *gtk-libext*
for library = (namestring
(merge-pathnames (format nil "~A.~A" lib
ext)
*gtk-libdir*))
for exists = (probe-file library)
until exists
finally
(return
(if exists
;; found library - return it
library
;; couldn't find library - throw error
(error
(concatenate
'string
(format nil "Library ~S with neither of the
extensions ~{~a~^, ~} found. "
lib *gtk-libext*)
"Either GTK is not installed "
"or else cl-user:*gtk-libdir*,
cl-user:*gtk-libfiles* or cl-user:*gtk-libext* "
"needs to be set to fing the GTK libraries on
your machine.")))))))
(dolist (l *gtk-libfiles*)
(let ((lib (libpath l)))
;; (format t ";;; Loading library ~a~%" lib)
#+:sbcl (load-shared-object lib)
#+:cmu (ext:load-foreign lib)))))
============================================================
