X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=db-odbc%2Fodbc-dbi.lisp;h=8aa0b07c6faefae5ea4772b167f8f1c9cf039850;hb=53d82f855034e08c128c1f29ac905c0897a01480;hp=9ebbaad5bb1499bb03ebbc0c89cff882734c1405;hpb=a3e1cd20eec3903790c6e8f126345558904488f4;p=clsql.git

diff --git a/db-odbc/odbc-dbi.lisp b/db-odbc/odbc-dbi.lisp
index 9ebbaad..8aa0b07 100644
--- a/db-odbc/odbc-dbi.lisp
+++ b/db-odbc/odbc-dbi.lisp
@@ -30,6 +30,7 @@
    #:disconnect
    #:end-transaction
    #:fetch-row
+   #:list-all-data-sources
    #:list-all-database-tables
    #:list-all-table-columns
    #:loop-over-results
@@ -183,6 +184,12 @@ the query against." ))
   (declare (ignore hstmt))
   (db-describe-columns db "" "" table ""))
 
+(defun list-all-data-sources ()
+  (let ((db (make-instance 'odbc-db)))
+    (unless (henv db) ;; has class allocation!
+      (setf (henv db) (%new-environment-handle)))
+    (%list-data-sources (henv db))))
+
 (defun rr-sql (hstmt sql-statement &key db)
   (declare (ignore hstmt sql-statement db))
   (warn "rr-sql not implemented."))