Mercurial > urweb

comparison src/cjr_print.sml @ 273:09c66a30ef32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Table declarations pushed to Cjr
author Adam Chlipala <adamc@hcoop.net>
date Tue, 02 Sep 2008 13:09:54 -0400
parents 4d80d6122df1
children e4baf03a3a64
comparison
equal deleted inserted replaced
272:4d80d6122df1 273:09c66a30ef32
686 string ");"]) vis, 686 string ");"]) vis,
687 newline, 687 newline,
688 p_list_sep newline (p_fun env) vis, 688 p_list_sep newline (p_fun env) vis,
689 newline] 689 newline]
690 end 690 end
691 | DTable (x, _) => box [string "/* SQL table ",
692 string x,
693 string " */",
694 newline]
691 | DDatabase s => box [string "void lw_db_init(lw_context ctx) {", 695 | DDatabase s => box [string "void lw_db_init(lw_context ctx) {",
696 newline,
697 string "PGresult *res;",
692 newline, 698 newline,
693 string "PGconn *conn = PQconnectdb(\"", 699 string "PGconn *conn = PQconnectdb(\"",
694 string (String.toString s), 700 string (String.toString s),
695 string "\");", 701 string "\");",
696 newline, 702 newline,