r9756: add tinyint type
authorKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 12 Jul 2004 02:43:12 +0000 (02:43 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 12 Jul 2004 02:43:12 +0000 (02:43 +0000)
ChangeLog
db-mysql/mysql-objects.lisp
doc/ref-ooddl.xml
sql/generic-postgresql.lisp
sql/oodml.lisp
sql/package.lisp

index 29bd732..a425d88 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+11 Jul 2004 Kevin Rosenberg <kevin@rosenberg.net>
+       * sql/oodml.lisp, sql/package.lisp, doc/ref-ooddl.lisp, db-mysql/mysql-objects.lisp: Add tinyint type
+       
 10 Jul 2004 Kevin Rosenberg <kevin@rosenberg.net>
        * Version 2.11.14
        * doc/*.xml: documentation additionals and fixes so
index 5ddad8b..ddd6af2 100644 (file)
   (declare (ignore args database))
   "SMALLINT")
 
+(defmethod database-get-type-specifier ((type (eql 'tinyint)) args database
+                                       (db-type (eql :mysql)))
+  (declare (ignore args database))
+  "TINYINT")
+
 (defmethod database-output-sql-as-type ((type (eql 'boolean)) val database
                                        (db-type (eql :mysql)))
   (declare (ignore database))
index 28fe579..3114dcf 100644 (file)
              <member><parameter>number</parameter></member>
              <member><parameter>(number n)</parameter></member>
              <member><parameter>(number n p)</parameter></member>
+             <member>
+               <parameter>tinyint</parameter> - An integer column 8-bits
+               wide. [not supported by all database backends]
+             </member>
              <member>
                <parameter>smallint</parameter> - An integer column 16-bits
                wide. [not supported by all database backends]
index 43a9201..5149bb0 100644 (file)
       (format nil "CHAR(~A)" (car args))
     "VARCHAR"))
 
+(defmethod database-get-type-specifier ((type (eql 'tinyint)) args database
+                                       (db-type (eql :postgresql)))
+  (declare (ignore args database))
+  "INT2")
+
 (defmethod database-get-type-specifier ((type (eql 'smallint)) args database
                                        (db-type (eql :postgresql)))
   (declare (ignore args database))
index 499a4ed..78fd886 100644 (file)
       (format nil "INT(~A)" (car args))
     "INT"))
 
+(deftype tinyint () 
+  "An 8-bit integer, this width may vary by SQL implementation."
+  'integer)
+
+(defmethod database-get-type-specifier ((type (eql 'tinyint)) args database db-type)
+  (declare (ignore args database db-type))
+  "INT")
+
 (deftype smallint () 
   "An integer smaller than a 32-bit integer, this width may vary by SQL implementation."
   'integer)
index 8d5c33d..750ab90 100644 (file)
         #:varchar
         #:generalized-boolean
         #:smallint
+        #:tinyint
         #:*default-string-length*
 
         ;; OODML (oodml.lisp)