X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fgeneric-odbc.lisp;fp=sql%2Fgeneric-odbc.lisp;h=a5e8c684db88a0aba36ed419ceeebe1e6278b607;hp=0000000000000000000000000000000000000000;hb=7308bdf188da6424e615ca14096ef53cfb845a90;hpb=606f6b3eb642523512d12927ff83120b688e8bf9

diff --git a/sql/generic-odbc.lisp b/sql/generic-odbc.lisp
new file mode 100644
index 0000000..a5e8c68
--- /dev/null
+++ b/sql/generic-odbc.lisp
@@ -0,0 +1,25 @@
+;;;; -*- 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.
+;;;;
+;;;; CLSQL users are granted the rights to distribute and use this software
+;;;; as governed by the terms of the Lisp Lesser GNU Public License
+;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
+;;;; *************************************************************************
+
+(in-package #:clsql-sys)
+
+(defclass generic-odbc-database (database)
+  ()
+  (:documentation "Encapsulate same behavior across odbc and aodbc backends."))
+
+(defmethod read-sql-value (val (type (eql 'boolean))
+			   (database generic-odbc-database)
+			   (db-type (eql :postgresql)))
+  (if (string= "0" val) nil t))
+