[cells-gtk-cvs] CVS update: root/load.lisp

[Peter Denno]

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

Modified Files:
	load.lisp 
Log Message:
Push :libcellsgtk onto *features* when it can be found.
Date: Sat Feb 26 23:46:42 2005
Author: pdenno

Index: root/load.lisp
diff -u root/load.lisp:1.5 root/load.lisp:1.6
--- root/load.lisp:1.5	Tue Jan 25 16:57:31 2005
+++ root/load.lisp	Sat Feb 26 23:46:40 2005
@@ -1,6 +1,6 @@
 (in-package :cl-user)
 
-#| Step One: Get ASDF into the game.
+#| Step 1: Get ASDF into the game.
 
    Obviously not necessary if you always have that
    loaded. Note that you will have to adjust the pathname to point to where you
@@ -21,11 +21,26 @@
          (make-pathname :name "config" :type "lisp")
          *load-pathname*))
 
-;;;; Step 3: Compile and load via ASDF
+;;; Step 3: (completely optional) build libcellsgtk.so (see Makefile) and
+;;; place it where the other gtk libraries will be found. 
+
+#+mswindows
+(warn "MSWindows users: If you want to use libcellsgtk.so see gtk-ffi/Makefile.")
+
+#-mswindows
+(let ((libpath (cond ((directory "/usr/lib/libgtk*") "/usr/lib/")
+                     ((directory "/opt/gnome/lib/libgtk*") "/opt/gnome/lib/"))))
+  (if libpath
+    (if (probe-file (concatenate 'string libpath "libcellsgtk.so"))
+      (pushnew :libcellsgtk *features*)
+      (warn "libcellsgtk.so not found. Just a few capabilities will be unavailable."))
+    (error "Cannot find a path containing libgtk")))
+
+;;;; Step 4: Compile and load via ASDF
 ; these are handy when one is first working up to getting things to build at all
 ; but the "test-gtk" ASDF has dependencies which will load everything else, so
 ; you can just execute that.
-;
+
 ;(Asdf:operate 'asdf:load-op :utils-kt :force nil)
 ;(Asdf:operate 'asdf:load-op :cells :force nil)
 ;(Asdf:operate 'asdf:load-op :hello-c :force nil)
@@ -34,7 +49,6 @@
 
 (Asdf:operate 'asdf:load-op :test-gtk :force nil)
 
-#+Step-4
-
+#+Step-5
 (test-gtk::gtk-demo)