;;;; Programmers: Kevin M. Rosenberg
;;;; Date Started: April 2004
;;;;
-;;;; $Id: odbc-loader.lisp 8270 2003-11-25 06:37:14Z kevin $
+;;;; $Id$
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2004 by Kevin M. Rosenberg
;;;;
(in-package #:odbc)
-(defparameter *odbc-library-path*
- (uffi:find-foreign-library
- '("odbc32" "libodbc" "libiodbc")
- `(,(make-pathname :directory (pathname-directory *load-truename*))
- #+64bit "/usr/lib64/"
- "/usr/lib/"
- "/sw/lib/"
- "/usr/local/lib/"
- "/home/kevin/debian/src/clsql/db-odbc/"
- "/windows/system32/"
- "/odbc/lib/opt/")
- :drive-letters '("C")))
-
+(defparameter *odbc-library-filenames*
+ '("odbc32" "libodbc" "libiodbc"))
+
(defvar *odbc-supporting-libraries* '("c")
"Used only by CMU. List of library flags needed to be passed to ld to
load the Odbc client library succesfully. If this differs at your site,
(defmethod clsql-sys:database-type-library-loaded ((database-type (eql :odbc)))
*odbc-library-loaded*)
-
+
(defmethod clsql-sys:database-type-load-foreign ((database-type (eql :odbc)))
- (uffi:load-foreign-library *odbc-library-path*
- :module "odbc")
+ (clsql-uffi:find-and-load-foreign-library *odbc-library-filenames*
+ :module "odbc")
(setq *odbc-library-loaded* t))
(clsql-sys:database-type-load-foreign :odbc)