Mercurial > urweb

comparison src/postgres.sml @ 2226:e10881cd92da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Ziv Scully <ziv@mit.edu>
date Fri, 27 Mar 2015 11:26:06 -0400
parents 661b531f55bd
children d2a98983f502
comparison
equal deleted inserted replaced
2225:6262dabc08d6 2226:e10881cd92da
338 newline, 338 newline,
339 string "PGresult *res;", 339 string "PGresult *res;",
340 newline, 340 newline,
341 newline, 341 newline,
342 342
343 p_list_sepi newline (fn i => fn (s, n) => 343 p_list_sepi newline (fn i => fn (s, _) =>
344 box [string "res = PQprepare(conn, \"uw", 344 box [string "res = PQprepare(conn, \"uw",
345 string (Int.toString i), 345 string (Int.toString i),
346 string "\", \"", 346 string "\", \"",
347 string (Prim.toCString s), 347 string (Prim.toCString s),
348 string "\", ", 348 string "\", 0, NULL);",
349 string (Int.toString n),
350 string ", NULL);",
351 newline, 349 newline,
352 string "if (PQresultStatus(res) != PGRES_COMMAND_OK) {", 350 string "if (PQresultStatus(res) != PGRES_COMMAND_OK) {",
353 newline, 351 newline,
354 box [string "char msg[1024];", 352 box [string "char msg[1024];",
355 newline, 353 newline,