Mercurial > urweb

comparison src/settings.sig @ 873:41971801b62d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
MySQL query gets up to C linking
author Adam Chlipala <adamc@hcoop.net>
date Sun, 12 Jul 2009 13:16:05 -0400
parents 9654bce27cff
children 3c7b48040dcf
comparison
equal deleted inserted replaced
872:9654bce27cff 873:41971801b62d
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 -> string 115 val p_sql_ctype : sql_type -> string
116 val isBlob : sql_type -> bool 116 val isBlob : sql_type -> bool
117 val isNotNull : sql_type -> bool 117 val isNotNull : sql_type -> bool
118 118
119 type dbms = { 119 type dbms = {
120 name : string, 120 name : string,
123 (* Include this C header file *) 123 (* Include this C header file *)
124 link : string, 124 link : string,
125 (* Pass these linker arguments *) 125 (* Pass these linker arguments *)
126 global_init : Print.PD.pp_desc, 126 global_init : Print.PD.pp_desc,
127 (* Define uw_client_init() *) 127 (* Define uw_client_init() *)
128 p_sql_type : sql_type -> string,
128 init : {dbstring : string, 129 init : {dbstring : string,
129 prepared : (string * int) list, 130 prepared : (string * int) list,
130 tables : (string * (string * sql_type) list) list, 131 tables : (string * (string * sql_type) list) list,
131 views : (string * (string * sql_type) list) list, 132 views : (string * (string * sql_type) list) list,
132 sequences : string list} -> Print.PD.pp_desc, 133 sequences : string list} -> Print.PD.pp_desc,
133 (* Define uw_db_init(), uw_db_close(), uw_db_begin(), uw_db_commit(), and uw_db_rollback() *) 134 (* Define uw_db_init(), uw_db_close(), uw_db_begin(), uw_db_commit(), and uw_db_rollback() *)
134 query : {loc : ErrorMsg.span, numCols : int, 135 query : {loc : ErrorMsg.span, cols : sql_type list,
135 doCols : ({wontLeakStrings : bool, col : int, typ : sql_type} -> Print.PD.pp_desc) 136 doCols : ({wontLeakStrings : bool, col : int, typ : sql_type} -> Print.PD.pp_desc)
136 -> Print.PD.pp_desc} 137 -> Print.PD.pp_desc}
137 -> Print.PD.pp_desc, 138 -> Print.PD.pp_desc,
138 queryPrepared : {loc : ErrorMsg.span, id : int, query : string, 139 queryPrepared : {loc : ErrorMsg.span, id : int, query : string,
139 inputs : sql_type list, numCols : int, 140 inputs : sql_type list, cols : sql_type list,
140 doCols : ({wontLeakStrings : bool, col : int, typ : sql_type} -> Print.PD.pp_desc) 141 doCols : ({wontLeakStrings : bool, col : int, typ : sql_type} -> Print.PD.pp_desc)
141 -> Print.PD.pp_desc} 142 -> Print.PD.pp_desc}
142 -> Print.PD.pp_desc, 143 -> Print.PD.pp_desc,
143 dml : ErrorMsg.span -> Print.PD.pp_desc, 144 dml : ErrorMsg.span -> Print.PD.pp_desc,
144 dmlPrepared : {loc : ErrorMsg.span, id : int, dml : string, 145 dmlPrepared : {loc : ErrorMsg.span, id : int, dml : string,