Mercurial > urweb

comparison src/mysql.sml @ 882:9c1b7e46eed2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
MySQL CGI working
author Adam Chlipala <adamc@hcoop.net>
date Fri, 17 Jul 2009 12:58:37 -0400
parents 8e9f2d247dba
children ced093080e17
comparison
equal deleted inserted replaced
881:45a63416adb4 882:9c1b7e46eed2
485 end) 485 end)
486 ss, 486 ss,
487 487
488 string "}"] 488 string "}"]
489 else 489 else
490 string "static void uw_db_prepare(uw_context ctx) { }", 490 box [string "static void uw_db_prepare(uw_context ctx) { }",
491 newline,
492 string "static void uw_db_validate(uw_context ctx) { }"],
491 newline, 493 newline,
492 newline, 494 newline,
493 495
494 string "void uw_db_init(uw_context ctx) {", 496 string "void uw_db_init(uw_context ctx) {",
495 newline, 497 newline,
1443 p_blank = p_blank, 1445 p_blank = p_blank,
1444 supportsDeleteAs = false, 1446 supportsDeleteAs = false,
1445 createSequence = fn s => "CREATE TABLE " ^ s ^ " (id INTEGER PRIMARY KEY AUTO_INCREMENT)", 1447 createSequence = fn s => "CREATE TABLE " ^ s ^ " (id INTEGER PRIMARY KEY AUTO_INCREMENT)",
1446 textKeysNeedLengths = true, 1448 textKeysNeedLengths = true,
1447 supportsNextval = false, 1449 supportsNextval = false,
1448 supportsNestedPrepared = false} 1450 supportsNestedPrepared = false,
1451 sqlPrefix = "SET storage_engine=InnoDB;\n"}
1449 1452
1450 end 1453 end