Mercurial > urweb

comparison src/sqlite.sml @ 1295:929981850d9d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
'tryDml' works with Postgres
author Adam Chlipala <adam@chlipala.net>
date Tue, 07 Sep 2010 09:06:13 -0400
parents acabf3935060
children 703c2c94afd5
comparison
equal deleted inserted replaced
1294:b4480a56cab7 1295:929981850d9d
1 (* Copyright (c) 2009, Adam Chlipala 1 (* Copyright (c) 2009-2010, Adam Chlipala
2 * All rights reserved. 2 * All rights reserved.
3 * 3 *
4 * Redistribution and use in source and binary forms, with or without 4 * Redistribution and use in source and binary forms, with or without
5 * modification, are permitted provided that the following conditions are met: 5 * modification, are permitted provided that the following conditions are met:
6 * 6 *
706 Settings.Error => box [string "uw_error(ctx, FATAL, \"", 706 Settings.Error => box [string "uw_error(ctx, FATAL, \"",
707 string (ErrorMsg.spanToString loc), 707 string (ErrorMsg.spanToString loc),
708 string ": DML step failed: %s<br />%s\", ", 708 string ": DML step failed: %s<br />%s\", ",
709 dml, 709 dml,
710 string ", sqlite3_errmsg(conn->conn));"] 710 string ", sqlite3_errmsg(conn->conn));"]
711 | Settings.None => string "uw_errmsg = sqlite3_errmsg(conn->conn);", 711 | Settings.None => string "uw_set_error_message(ctx, sqlite3_errmsg(conn->conn));",
712 newline] 712 newline]
713 713
714 fun dml (loc, mode) = 714 fun dml (loc, mode) =
715 box [string "uw_conn *conn = uw_get_db(ctx);", 715 box [string "uw_conn *conn = uw_get_db(ctx);",
716 newline, 716 newline,