1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
6 ;;;; Purpose: Mid-level (DBI) interface for CLSQL ODBC backend
7 ;;;; Author: Kevin M. Rosenberg
8 ;;;; Create: April 2004
10 ;;;; $Id: odbc-sql.lisp 8983 2004-04-12 21:16:48Z kevin $
12 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
14 ;;;; CLSQL users are granted the rights to distribute and use this software
15 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
16 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
17 ;;;; *************************************************************************
19 (in-package #:cl-user)
21 (defpackage #:odbc-dbi
33 #:list-all-database-tables
34 #:list-all-table-columns
44 #:*default-odbc-external-format*
47 (:documentation "This is the mid-level interface ODBC.")))
49 (in-package #:odbc-dbi)
51 (defun connect (&key user password data-source-name)
52 (warn "Not implemented.")
55 (defun disconnect (conn)
56 (warn "Not implemented."))
58 (defun query (expr &key db result-types row-count column-names)
59 (warn "Not implemented."))
61 (defun execute (expr conn)
62 (warn "Not implemented."))
64 (defun close-query (result-set)
65 (warn "Not implemented."))
67 (defun fetch-row (result-set error-eof eof-value)
68 (warn "Not implemented."))