diff src/mysql.sml @ 1011:16f7cb0891b6

Initial support for char in SQL
author Adam Chlipala <adamc@hcoop.net>
date Thu, 22 Oct 2009 16:15:56 -0400
parents ad434669f299
children d9483301ff0e
line wrap: on
line diff
--- a/src/mysql.sml	Thu Oct 22 14:05:48 2009 -0400
+++ b/src/mysql.sml	Thu Oct 22 16:15:56 2009 -0400
@@ -36,6 +36,7 @@
         Int => "bigint"
       | Float => "double"
       | String => "longtext"
+      | Char => "char"
       | Bool => "bool"
       | Time => "timestamp"
       | Blob => "longblob"
@@ -48,6 +49,7 @@
         Int => "MYSQL_TYPE_LONGLONG"
       | Float => "MYSQL_TYPE_DOUBLE"
       | String => "MYSQL_TYPE_STRING"
+      | Char => "MYSQL_TYPE_TINY"
       | Bool => "MYSQL_TYPE_LONG"
       | Time => "MYSQL_TYPE_TIMESTAMP"
       | Blob => "MYSQL_TYPE_BLOB"
@@ -60,6 +62,7 @@
         Int => "bigint"
       | Float => "double"
       | String => "longtext"
+      | Char => "char"
       | Bool => "tinyint"
       | Time => "timestamp"
       | Blob => "longblob"
@@ -386,6 +389,8 @@
                   newline,
                   string "uw_sqlsuffixString = \"\";",
                   newline,
+                  string "uw_sqlsuffixChar = \"\";",
+                  newline,
                   string "uw_sqlsuffixBlob = \"\";",
                   newline,
                   string "uw_sqlfmtUint4 = \"%u%n\";",