[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-ffi.asd

[Peter Denno]

Update of /project/cells-gtk/cvsroot/root/gtk-ffi
In directory common-lisp.net:/tmp/cvs-serv9046/gtk-ffi

Modified Files:
	gtk-ffi.asd 
Log Message:
New procedure for finding libraries: set the path once, in here. Unfortunately it seems that we /still/ need the path for cmu. Reason to be investigated.
Date: Sun May 29 23:18:24 2005
Author: pdenno

Index: root/gtk-ffi/gtk-ffi.asd
diff -u root/gtk-ffi/gtk-ffi.asd:1.5 root/gtk-ffi/gtk-ffi.asd:1.6
--- root/gtk-ffi/gtk-ffi.asd:1.5	Tue Dec 14 05:02:05 2004
+++ root/gtk-ffi/gtk-ffi.asd	Sun May 29 23:18:24 2005
@@ -1,3 +1,28 @@
+
+(in-package "CL-USER")
+;;;---------------------
+;;; Two steps:
+;;;---------------------
+
+(defvar *gtk-lib-path* nil)
+
+;;; Step 1 -- If you are not using Linux nor BSD and the GTK libs are not 
+;;;           in the places specified below, adjust these.
+
+#+macosx (setf *gtk-lib-path* "/sw/lib/")
+#+(or win32 mswindows) (setf *gtk-lib-path* "C:/Program Files/Common Files/GTK/2.0/bin/")
+
+;;; This need not be specified for cmucl (leave as a null string).
+#+cmu(setf *gtk-lib-path* "/usr/lib/")
+;#+cmu(setf *gtk-lib-path* "/opt/gnome/lib/")  ; For my Suse machine
+
+;;; Specify for Lispworks.
+#-(or macosx win32 mswindows cmu) (setf *gtk-lib-path* "/usr/lib/") 
+;#-(or macosx win32 mswindows cmu) (setf *gtk-lib-path* "/opt/gnome/lib/")  ; For my Suse machine
+
+;;; Step 2 -- If you built libcellsgtk.so, uncomment the next line.
+;(pushnew :libcellsgtk *features*)
+
 (asdf:defsystem :gtk-ffi
   :name "gtk-ffi"
   :depends-on (:cells :hello-c)