Mercurial > urweb

comparison src/settings.sig @ 870:7fa9a37a34b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move all DBMS initialization to #init
author Adam Chlipala <adamc@hcoop.net>
date Tue, 30 Jun 2009 15:45:10 -0400
parents 64ba57fa20bf
children 9654bce27cff
comparison
equal deleted inserted replaced
869:64ba57fa20bf 870:7fa9a37a34b3
110 | Blob 110 | Blob
111 | Channel 111 | Channel
112 | Client 112 | Client
113 | Nullable of sql_type 113 | Nullable of sql_type
114 114
115 val p_sql_type : sql_type -> Print.PD.pp_desc 115 val p_sql_type : sql_type -> string
116 val isBlob : sql_type -> bool 116 val isBlob : sql_type -> bool
117 val isNotNull : sql_type -> bool
117 118
118 type dbms = { 119 type dbms = {
119 name : string, 120 name : string,
120 (* Call it this on the command line *) 121 (* Call it this on the command line *)
121 header : string, 122 header : string,
122 (* Include this C header file *) 123 (* Include this C header file *)
123 link : string, 124 link : string,
124 (* Pass these linker arguments *) 125 (* Pass these linker arguments *)
125 global_init : Print.PD.pp_desc, 126 global_init : Print.PD.pp_desc,
126 (* Define uw_client_init() *) 127 (* Define uw_client_init() *)
127 init : string * (string * int) list -> Print.PD.pp_desc, 128 init : {dbstring : string,
128 (* Define uw_db_init(), uw_db_close(), uw_db_begin(), uw_db_commit(), and uw_db_rollback() 129 prepared : (string * int) list,
129 * from dbstring and prepared statements *) 130 tables : (string * (string * sql_type) list) list,
131 sequences : string list} -> Print.PD.pp_desc,
132 (* Define uw_db_init(), uw_db_close(), uw_db_begin(), uw_db_commit(), and uw_db_rollback() *)
130 query : {loc : ErrorMsg.span, numCols : int, 133 query : {loc : ErrorMsg.span, numCols : int,
131 doCols : ({wontLeakStrings : bool, col : int, typ : sql_type} -> Print.PD.pp_desc) 134 doCols : ({wontLeakStrings : bool, col : int, typ : sql_type} -> Print.PD.pp_desc)
132 -> Print.PD.pp_desc} 135 -> Print.PD.pp_desc}
133 -> Print.PD.pp_desc, 136 -> Print.PD.pp_desc,
134 queryPrepared : {loc : ErrorMsg.span, id : int, query : string, 137 queryPrepared : {loc : ErrorMsg.span, id : int, query : string,