diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-10-22 16:15:56 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-10-22 16:15:56 -0400 |
| commit | 7e1e019f3fef4c229c06ba2c0c2aa3ec021eedad (patch) | |
| tree | a765ee0cd11f8b42d77606fa4d133daceefff056 /src/mysql.sml | |
| parent | c4becb5fa4357e7a27e6536f3a20e3d5d6136cb0 (diff) | |
Initial support for char in SQL
Diffstat (limited to 'src/mysql.sml')
| -rw-r--r-- | src/mysql.sml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/mysql.sml b/src/mysql.sml index 2941186c..d4db8710 100644 --- a/src/mysql.sml +++ b/src/mysql.sml @@ -36,6 +36,7 @@ fun p_sql_type t = Int => "bigint" | Float => "double" | String => "longtext" + | Char => "char" | Bool => "bool" | Time => "timestamp" | Blob => "longblob" @@ -48,6 +49,7 @@ fun p_buffer_type t = 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 @@ fun p_sql_type_base t = Int => "bigint" | Float => "double" | String => "longtext" + | Char => "char" | Bool => "tinyint" | Time => "timestamp" | Blob => "longblob" @@ -386,6 +389,8 @@ fun init {dbstring, prepared = ss, tables, views, sequences} = newline, string "uw_sqlsuffixString = \"\";", newline, + string "uw_sqlsuffixChar = \"\";", + newline, string "uw_sqlsuffixBlob = \"\";", newline, string "uw_sqlfmtUint4 = \"%u%n\";", |