;;;; Programmers: Kevin M. Rosenberg
;;;; Date Started: April 2004
;;;;
-;;;; $Id: odbc-loader.lisp 8270 2003-11-25 06:37:14Z kevin $
-;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2004 by Kevin M. Rosenberg
;;;;
;;;; CLSQL users are granted the rights to distribute and use this software
(in-package #:odbc)
-(defparameter *odbc-library-path*
- (uffi:find-foreign-library
- '("odbc32" "libodbc" "libiodbc")
- `(,(make-pathname :directory (pathname-directory *load-truename*))
- "/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,
(defvar *odbc-library-loaded* nil
"T if foreign library was able to be loaded successfully")
-(defmethod clsql-base-sys:database-type-library-loaded ((database-type (eql :odbc)))
+(defmethod clsql-sys:database-type-library-loaded ((database-type (eql :odbc)))
*odbc-library-loaded*)
-
-(defmethod clsql-base-sys:database-type-load-foreign ((database-type (eql :odbc)))
- (uffi:load-foreign-library *odbc-library-path*
- :module "odbc")
+
+(defmethod clsql-sys:database-type-load-foreign ((database-type (eql :odbc)))
+ (clsql-uffi:find-and-load-foreign-library *odbc-library-filenames*
+ :module "odbc")
(setq *odbc-library-loaded* t))
-(clsql-base-sys:database-type-load-foreign :odbc)
+(clsql-sys:database-type-load-foreign :odbc)