From: Kevin M. Rosenberg Date: Sat, 23 Nov 2002 18:00:26 +0000 (+0000) Subject: r3458: load library fixes X-Git-Tag: v3.8.6~889 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=189d8548346c0b5f594f3b1657d3bdf8c970e05d r3458: load library fixes --- diff --git a/db-mysql/mysql-loader.lisp b/db-mysql/mysql-loader.lisp index 7960808..4a7fe2a 100644 --- a/db-mysql/mysql-loader.lisp +++ b/db-mysql/mysql-loader.lisp @@ -7,7 +7,7 @@ ;;;; Programmers: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: mysql-loader.lisp,v 1.4 2002/10/18 01:16:26 kevin Exp $ +;;;; $Id: mysql-loader.lisp,v 1.5 2002/11/23 18:00:26 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -30,33 +30,15 @@ "clsql-mysql" `(,(make-pathname :directory (pathname-directory *load-truename*)) "/usr/lib/clsql/" + "/sw/lib/clsql/" "/home/kevin/debian/src/clsql/db-mysql/") - :drive-letters '("C" "D" "E" "F" "G"))) + :drive-letters '("C" "D" "E"))) -(defvar *mysql-library-filename* - (cond - ((probe-file "/opt/mysql/lib/mysql/libmysqlclient.so") - "/opt/mysql/lib/mysql/libmysqlclient.so") - ((probe-file "/usr/local/lib/libmysqlclient.so") - "/usr/local/lib/libmysqlclient.so") - ((probe-file "/usr/local/lib/mysql/libmysqlclient.so") - "/usr/local/lib/mysql/libmysqlclient.so") - ((probe-file "/usr/lib/libmysqlclient.so") - "/usr/lib/libmysqlclient.so") - ((probe-file "/usr/lib/mysql/libmysqlclient.so") - "/usr/lib/mysql/libmysqlclient.so") - #+(or win32 mswindows) - ((probe-file "c:/mysql/lib/opt/libmysql.dll") - "c:/mysql/lib/opt/libmysql.dll") - (t - (error "Can't find MySQL client library to load."))) - "Location where the MySQL client library is to be found.") - (defvar *mysql-library-candidate-names* '("libmysqlclient" "libmysql")) (defvar *mysql-library-candidate-directories* - '("/opt/mysql/lib/mysql/" "/usr/local/lib/" "/usr/lib/" "/usr/local/lib/mysql/" "/usr/lib/mysql/" "/mysql/lib/opt/")) + '("/opt/mysql/lib/mysql/" "/usr/local/lib/" "/usr/lib/" "/usr/local/lib/mysql/" "/usr/lib/mysql/" "/mysql/lib/opt/" "/sw/lib/mysql/")) (defvar *mysql-library-candidate-drive-letters* '("C" "D" "E")) @@ -84,7 +66,7 @@ set to the right path before compiling or loading the system.") (error "Can't find mysql client library to load")) (unless (probe-file zlib-path) (error "Can't find zlib client library to load")) - + (uffi:load-foreign-library zlib-path) (if (and (uffi:load-foreign-library mysql-path diff --git a/db-postgresql/postgresql-loader.lisp b/db-postgresql/postgresql-loader.lisp index 5a0f039..cfb9a36 100644 --- a/db-postgresql/postgresql-loader.lisp +++ b/db-postgresql/postgresql-loader.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: postgresql-loader.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $ +;;;; $Id: postgresql-loader.lisp,v 1.2 2002/11/23 18:00:26 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -39,7 +39,7 @@ set to the right path before compiling or loading the system.") '("/opt/postgresql/lib/" "/usr/local/lib/" "/usr/lib/" "/postgresql/lib/" "/usr/local/pgsql/lib/" "/usr/lib/pgsql/" - "/opt/pgsql/lib/pgsql") + "/opt/pgsql/lib/pgsql" "/sw/lib/pgsql/") :drive-letters '("C" "D" "E")))) (if (uffi:load-foreign-library libpath :module "postgresql" diff --git a/uffi/Makefile b/uffi/Makefile index 8093b70..d24b555 100644 --- a/uffi/Makefile +++ b/uffi/Makefile @@ -7,7 +7,7 @@ # Programer: Kevin M. Rosenberg # Date Started: Mar 2002 # -# CVS Id: $Id: Makefile,v 1.1 2002/09/18 07:50:01 kevin Exp $ +# CVS Id: $Id: Makefile,v 1.2 2002/11/23 18:00:26 kevin Exp $ # # This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg # @@ -50,3 +50,6 @@ clean: distclean: clean +macosx: $(source) Makefile + cc -dynamic -c $(source) -o $(object) + ld -bundle /usr/lib/bundle1.o -flat_namespace -undefined suppress -o $(base).dylib $(object)