Mercurial > urweb

comparison src/mysql.sml @ 869:64ba57fa20bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Moved nextval code into Settings
author Adam Chlipala <adamc@hcoop.net>
date Sun, 28 Jun 2009 16:41:10 -0400
parents 06497beb265b
children 7fa9a37a34b3
comparison
equal deleted inserted replaced
868:06497beb265b 869:64ba57fa20bf
255 255
256 fun query _ = raise Fail "MySQL query" 256 fun query _ = raise Fail "MySQL query"
257 fun queryPrepared _ = raise Fail "MySQL queryPrepared" 257 fun queryPrepared _ = raise Fail "MySQL queryPrepared"
258 fun dml _ = raise Fail "MySQL dml" 258 fun dml _ = raise Fail "MySQL dml"
259 fun dmlPrepared _ = raise Fail "MySQL dmlPrepared" 259 fun dmlPrepared _ = raise Fail "MySQL dmlPrepared"
260 fun nextval _ = raise Fail "MySQL nextval"
261 fun nextvalPrepared _ = raise Fail "MySQL nextvalPrepared"
260 262
261 val () = addDbms {name = "mysql", 263 val () = addDbms {name = "mysql",
262 header = "mysql/mysql.h", 264 header = "mysql/mysql.h",
263 link = "-lmysqlclient", 265 link = "-lmysqlclient",
264 global_init = box [string "void uw_client_init() {", 266 global_init = box [string "void uw_client_init() {",
275 newline], 277 newline],
276 init = init, 278 init = init,
277 query = query, 279 query = query,
278 queryPrepared = queryPrepared, 280 queryPrepared = queryPrepared,
279 dml = dml, 281 dml = dml,
280 dmlPrepared = dmlPrepared} 282 dmlPrepared = dmlPrepared,
283 nextval = nextval,
284 nextvalPrepared = nextvalPrepared}
281 285
282 end 286 end