X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-db2%2Foracle-objects.lisp;fp=db-db2%2Foracle-objects.lisp;h=a5583ee4ea6c142dfa318541add6833af6f3973b;hp=0000000000000000000000000000000000000000;hb=fe038ef290c0c055d42c39ac699bc25585d74874;hpb=e87d4424655500770ceb3fe57f4945b56acc21bc

diff --git a/db-db2/oracle-objects.lisp b/db-db2/oracle-objects.lisp
new file mode 100644
index 0000000..a5583ee
--- /dev/null
+++ b/db-db2/oracle-objects.lisp
@@ -0,0 +1,119 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name: oracle-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-oracle)
+
+(defmethod database-get-type-specifier (type args database (db-type (eql :oracle)))
+  (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 :oracle)))
+  (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 :oracle)))
+  (declare (ignore args database)) 
+  "CHAR(20)")
+
+(defmethod database-get-type-specifier ((type (eql 'universal-time)) args
+					database (db-type (eql :oracle)))
+  (declare (ignore args database)) 
+  "CHAR(20)")
+
+(defmethod database-get-type-specifier ((type (eql 'string)) args
+					database (db-type (eql :oracle)))
+  (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 :oracle)))
+  (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 :oracle)))
+  (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 :oracle)))
+  (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 :oracle)))
+  (declare (ignore args database))
+  "CHAR(1)")
+
+(defmethod read-sql-value (val type
+			   database (db-type (eql :oracle)))
+  ;;(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 :oracle)))
+  (declare (ignore database))
+  val)
+
+(defmethod read-sql-value (val (type (eql 'float))
+			   database (db-type (eql :oracle)))
+  (declare (ignore database))
+  val)
+
+(defmethod read-sql-value (val (type (eql 'boolean))
+			   database (db-type (eql :oracle)))
+  (declare (ignore database))
+  (when (char-equal #\t (schar val 0))
+    t))
+
+(defmethod read-sql-value (val (type (eql 'bigint))
+			   database (db-type (eql :oracle)))
+  (declare (ignore database))
+  (parse-integer val))
+
+(defmethod read-sql-value (val (type (eql 'universal-time))
+			   database (db-type (eql :oracle)))
+  (declare (ignore database))
+  (parse-integer val))
+
+
+(defmethod database-get-type-specifier ((type (eql 'wall-time)) args
+					database (db-type (eql :oracle)))
+  (declare (ignore args database))
+  "DATE")
+
+(defmethod database-get-type-specifier ((type (eql 'duration)) args
+					database (db-type (eql :oracle)))
+  (declare (ignore args database))
+  "NUMBER(38)")