r9517: initial rename to db2 files

[clsql.git] / db-db2 / db2-objects.lisp

diff --git a/db-db2/db2-objects.lisp b/db-db2/db2-objects.lisp
new file mode 100644 (file)
index 0000000..288e573
--- /dev/null
+++ b/db-db2/db2-objects.lisp
@@ -0,0 +1,119 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name: db2-objects.lisp
+;;;;
+;;;; $Id$
+;;;;
+;;;; 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-db2)
+
+(defmethod database-get-type-specifier (type args database (db-type (eql :db2)))
+  (declare (ignore type args database))
+    (format nil "VARCHAR2(~D)" *default-varchar-length*))
+
+(defmethod database-get-type-specifier ((type (eql 'integer)) args 
+                                       database (db-type (eql :db2)))
+  (declare (ignore database))
+  (if args
+      (format nil "NUMBER(~A,~A)"
+             (or (first args) 38) (or (second args) 0))
+    "INTEGER"))
+
+(defmethod database-get-type-specifier ((type (eql 'bigint)) args
+                                       database (db-type (eql :db2)))
+  (declare (ignore args database)) 
+  "CHAR(20)")
+
+(defmethod database-get-type-specifier ((type (eql 'universal-time)) args
+                                       database (db-type (eql :db2)))
+  (declare (ignore args database)) 
+  "CHAR(20)")
+
+(defmethod database-get-type-specifier ((type (eql 'string)) args
+                                       database (db-type (eql :db2)))
+  (declare (ignore database)) 
+  (if args
+      (format nil "CHAR(~A)" (car args))
+    (format nil "VARCHAR2(~D)" *default-varchar-length*)))
+
+(defmethod database-get-type-specifier ((type (eql 'varchar)) args
+                                       database (db-type (eql :db2)))
+  (declare (ignore database)) 
+  (if args
+      (format nil "VARCHAR2(~A)" (car args))
+    (format nil "VARCHAR2(~D)" *default-varchar-length*)))
+
+(defmethod database-get-type-specifier ((type (eql 'float)) args
+                                       database (db-type (eql :db2)))
+  (declare (ignore database)) 
+  (if args
+      (format nil "NUMBER(~A,~A)" (or (first args) 38) (or (second args) 38))
+    "DOUBLE PRECISION"))
+
+(defmethod database-get-type-specifier ((type (eql 'long-float)) args
+                                       database (db-type (eql :db2)))
+  (declare (ignore database)) 
+  (if args
+      (format nil "NUMBER(~A,~A)"
+             (or (first args) 38) (or (second args) 38))
+    "DOUBLE PRECISION"))
+
+(defmethod database-get-type-specifier ((type (eql 'boolean)) args
+                                       database (db-type (eql :db2)))
+  (declare (ignore args database))
+  "CHAR(1)")
+
+(defmethod read-sql-value (val type
+                          database (db-type (eql :db2)))
+  ;;(format t "value is \"~A\" of type ~A~%" val (type-of val))
+  (declare (ignore type database))
+  (etypecase val
+    (string
+     (read-from-string val))
+    (symbol
+     nil)))
+
+(defmethod read-sql-value (val (type (eql 'integer))
+                          database (db-type (eql :db2)))
+  (declare (ignore database))
+  val)
+
+(defmethod read-sql-value (val (type (eql 'float))
+                          database (db-type (eql :db2)))
+  (declare (ignore database))
+  val)
+
+(defmethod read-sql-value (val (type (eql 'boolean))
+                          database (db-type (eql :db2)))
+  (declare (ignore database))
+  (when (char-equal #\t (schar val 0))
+    t))
+
+(defmethod read-sql-value (val (type (eql 'bigint))
+                          database (db-type (eql :db2)))
+  (declare (ignore database))
+  (parse-integer val))
+
+(defmethod read-sql-value (val (type (eql 'universal-time))
+                          database (db-type (eql :db2)))
+  (declare (ignore database))
+  (parse-integer val))
+
+
+(defmethod database-get-type-specifier ((type (eql 'wall-time)) args
+                                       database (db-type (eql :db2)))
+  (declare (ignore args database))
+  "DATE")
+
+(defmethod database-get-type-specifier ((type (eql 'duration)) args
+                                       database (db-type (eql :db2)))
+  (declare (ignore args database))
+  "NUMBER(38)")