;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;;
-;;;; $Id$
-;;;;
;;;; Generic ODBC layer, used by db-odbc and db-aodbc backends
;;;;
;;;; This file is part of CLSQL.
(slot-value db 'list-all-table-columns-fn)
(intern (symbol-name '#:list-all-table-columns) pkg))))
-;;; Object methods
-
-(defmethod read-sql-value (val (type (eql 'boolean))
- (database generic-odbc-database)
- (db-type (eql :postgresql)))
- (if (string= "0" val) nil t))
-
-(defmethod read-sql-value (val (type (eql 'generalized-boolean))
- (database generic-odbc-database)
- (db-type (eql :postgresql)))
- (if (string= "0" val) nil t))
-
-(defmethod read-sql-value (val (type (eql 'boolean)) database
- (db-type (eql :mssql)))
- (declare (ignore database))
- (etypecase val
- (string (if (string= "0" val) nil t))
- (integer (if (zerop val) nil t))))
-
-(defmethod read-sql-value (val (type (eql 'generalized-boolean)) database
- (db-type (eql :mssql)))
- (declare (ignore database))
- (etypecase val
- (string (if (string= "0" val) nil t))
- (integer (if (zerop val) nil t))))
-
;;; Type methods
-(defmethod database-get-type-specifier ((type (eql 'wall-time)) args database
- (db-type (eql :mssql)))
- (declare (ignore args database))
- "DATETIME")
-
-(defmethod database-get-type-specifier ((type (eql 'boolean)) args database
+(defmethod database-get-type-specifier ((type symbol) args database
(db-type (eql :mssql)))
- (declare (ignore args database))
- "BIT")
-
-(defmethod database-get-type-specifier ((type (eql 'generalized-boolean)) args database
- (db-type (eql :mssql)))
- (declare (ignore args database))
- "BIT")
+ "Special database types for MSSQL backends"
+ (declare (ignore database db-type args))
+ (case type
+ (wall-time "DATETIME")
+ (date "SMALLDATETIME")
+ ((generalized-boolean boolean) "BIT")
+ ((longchar text) "ntext")
+ ((varchar string)
+ (if args
+ (format nil "NVARCHAR(~A)" (car args))
+ (format nil "NVARCHAR(~D)" *default-string-length*)))
+ (t (call-next-method))))
;;; Generation of SQL strings from lisp expressions
(:mssql "1")
(t "'Y'")))
-(defmethod database-output-sql-as-type ((type (eql 'boolean)) val database
- (db-type (eql :mssql)))
- (declare (ignore database))
- (if val 1 0))
-
-(defmethod database-output-sql-as-type ((type (eql 'generalized-boolean)) val database
- (db-type (eql :mssql)))
- (declare (ignore database))
- (if val 1 0))
-
;;; Database backend capabilities
(defmethod db-type-use-fully-qualified-column-on-drop-index? ((db-type (eql :mssql)))
(%database-list-* database "VIEW" owner))
-(defmethod database-list-attributes ((table string) (database generic-odbc-database)
- &key (owner nil))
+(defmethod database-list-attributes ((table %database-identifier) (database generic-odbc-database)
+ &key (owner nil)
+ &aux (table (unescaped-database-identifier table)))
(declare (ignore owner))
(multiple-value-bind (rows col-names)
(funcall (list-all-table-columns-fn database) table
(loop for row in rows
collect (fourth row))))
-(defmethod database-attribute-type ((attribute string) (table string) (database generic-odbc-database)
- &key (owner nil))
+(defmethod database-attribute-type ((attribute %database-identifier) (table %database-identifier)
+ (database generic-odbc-database)
+ &key (owner nil)
+ &aux (table (unescaped-database-identifier table))
+ (attribute (unescaped-database-identifier attribute)))
(declare (ignore owner))
(multiple-value-bind (rows col-names)
(funcall (list-all-table-columns-fn database) table