r9756: add tinyint type

diff --git a/ChangeLog b/ChangeLog
index 29bd7328fcd08e8917587bb04734dd8ceb1d732b..a425d8821fa291cdd0f7e5edc0296edfb1d88792 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

diff --git a/db-mysql/mysql-objects.lisp b/db-mysql/mysql-objects.lisp
index 5ddad8b5d73817da2aaded534fb153b30e3f10ce..ddd6af22452656810c5365a417148f8e7e82c3c6 100644 (file)
--- a/db-mysql/mysql-objects.lisp
+++ b/db-mysql/mysql-objects.lisp
@@ -25,6 +25,11 @@
   (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))

diff --git a/doc/ref-ooddl.xml b/doc/ref-ooddl.xml
index 28fe5796dd737c777c18efaee8adbc8532d94dec..3114dcf6b6069cc07a01f9644f7e0a8ac6492829 100644 (file)
--- a/doc/ref-ooddl.xml
+++ b/doc/ref-ooddl.xml
@@ -406,6 +406,10 @@
              <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]

diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp
index 43a92012532c85bfdc51098c00bfb95e8e18601b..5149bb08a6db516621c89870892825fb292b90c7 100644 (file)
--- a/sql/generic-postgresql.lisp
+++ b/sql/generic-postgresql.lisp
@@ -34,6 +34,11 @@
       (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))

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 499a4ed64a95190896eaafa2cd68e23937a4d851..78fd88648db8ca12cd081605d7d7bcf84d3c5e6c 100644 (file)
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -317,6 +317,14 @@
       (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)

diff --git a/sql/package.lisp b/sql/package.lisp
index 8d5c33dc292f2c1795f930ee416952cea9693c5b..750ab907694583cacb1b53148cae0e2f7bebc52a 100644 (file)
--- a/sql/package.lisp
+++ b/sql/package.lisp
@@ -349,6 +349,7 @@
         #:varchar
         #:generalized-boolean
         #:smallint
+        #:tinyint
         #:*default-string-length*
 
         ;; OODML (oodml.lisp)