From mmommer at common-lisp.net Thu Apr 28 18:10:33 2005 From: mmommer at common-lisp.net (Mario Mommer) Date: Thu, 28 Apr 2005 20:10:33 +0200 (CEST) Subject: [lgtk-cvs] CVS update: lgtk/lgtk.asd Message-ID: <20050428181033.3BED888030@common-lisp.net> Update of /project/lgtk/cvsroot/lgtk In directory common-lisp.net:/tmp/cvs-serv1188 Modified Files: lgtk.asd Log Message: Added support for multiple libraries, in particular glade. Patch by Sean Champ. Date: Thu Apr 28 20:10:32 2005 Author: mmommer Index: lgtk/lgtk.asd diff -u lgtk/lgtk.asd:1.10 lgtk/lgtk.asd:1.11 --- lgtk/lgtk.asd:1.10 Thu May 13 21:33:49 2004 +++ lgtk/lgtk.asd Thu Apr 28 20:10:32 2005 @@ -12,6 +12,11 @@ (defvar *ccompiler* "cc") + +;; list of library/module names to provide to pkgconfig +(defparameter *pkgconfig-modules* '("gtk+-2.0" "libglade-2.0")) + + ;; Split a string at whitespace. (defun splitatspc (str) (labels ((whitespace-p (c) @@ -32,10 +37,10 @@ (cdr buf)))) (defun pkg-config-lib-string () - #+sbcl (run-program "pkg-config" '("--libs" "gtk+-2.0") + #+sbcl (run-program "pkg-config" (list* "--libs" *pkgconfig-modules*) :search t :output :stream) - #+cmu (ext:run-program "pkg-config" '("--libs" "gtk+-2.0") + #+cmu (ext:run-program "pkg-config" (list* "--libs" *pkgconfig-modules*) :output :stream)) ;; Get the list of libraries. @@ -55,10 +60,10 @@ (defun pkg-config-cflags-string () - #+sbcl (run-program "pkg-config" '("--cflags" "gtk+-2.0") + #+sbcl (run-program "pkg-config" (list* "--cflags" *pkgconfig-modules*) :search t :output :stream) - #+cmu (ext:run-program "pkg-config" '("--cflags" "gtk+-2.0") + #+cmu (ext:run-program "pkg-config" (list* "--cflags" *pkgconfig-modules*) :output :stream)) (defun get-gtk-cflags ()