Mercurial > urweb

comparison src/mysql.sml @ 884:ced093080e17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Check for existence of sequences (MySQL)
author Adam Chlipala <adamc@hcoop.net>
date Fri, 17 Jul 2009 14:04:05 -0400
parents 9c1b7e46eed2
children e6070333d8a8
comparison
equal deleted inserted replaced
883:467285bb5578 884:ced093080e17
411 newline, 411 newline,
412 string "MYSQL_ROW row;", 412 string "MYSQL_ROW row;",
413 newline, 413 newline,
414 newline, 414 newline,
415 p_list_sep newline (checkRel ("tables", true)) tables, 415 p_list_sep newline (checkRel ("tables", true)) tables,
416 p_list_sep newline (fn name => checkRel ("tables", true)
417 (name, [("id", Settings.Client)])) sequences,
416 p_list_sep newline (checkRel ("views", false)) views, 418 p_list_sep newline (checkRel ("views", false)) views,
417 string "}", 419 string "}",
418 newline, 420 newline,
419 newline, 421 newline,
420 422
1442 nextvalPrepared = nextvalPrepared, 1444 nextvalPrepared = nextvalPrepared,
1443 sqlifyString = sqlifyString, 1445 sqlifyString = sqlifyString,
1444 p_cast = p_cast, 1446 p_cast = p_cast,
1445 p_blank = p_blank, 1447 p_blank = p_blank,
1446 supportsDeleteAs = false, 1448 supportsDeleteAs = false,
1447 createSequence = fn s => "CREATE TABLE " ^ s ^ " (id INTEGER PRIMARY KEY AUTO_INCREMENT)", 1449 createSequence = fn s => "CREATE TABLE " ^ s ^ " (uw_id INTEGER PRIMARY KEY AUTO_INCREMENT)",
1448 textKeysNeedLengths = true, 1450 textKeysNeedLengths = true,
1449 supportsNextval = false, 1451 supportsNextval = false,
1450 supportsNestedPrepared = false, 1452 supportsNestedPrepared = false,
1451 sqlPrefix = "SET storage_engine=InnoDB;\n"} 1453 sqlPrefix = "SET storage_engine=InnoDB;\n"}
1452 1454