[lambda-gtk-devel] Libraries & cm-gtk...

[Dietrich Bollmann]

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)))))

============================================================