comparison src/settings.sig @ 878:a8952047e1d3

Sequence code compiles in MySQL
author Adam Chlipala <adamc@hcoop.net>
date Thu, 16 Jul 2009 16:29:13 -0400
parents dae141d911d9
children b2a175a0f2ef
comparison
equal deleted inserted replaced
877:dae141d911d9 878:a8952047e1d3
140 -> Print.PD.pp_desc} 140 -> Print.PD.pp_desc}
141 -> Print.PD.pp_desc, 141 -> Print.PD.pp_desc,
142 dml : ErrorMsg.span -> Print.PD.pp_desc, 142 dml : ErrorMsg.span -> Print.PD.pp_desc,
143 dmlPrepared : {loc : ErrorMsg.span, id : int, dml : string, 143 dmlPrepared : {loc : ErrorMsg.span, id : int, dml : string,
144 inputs : sql_type list} -> Print.PD.pp_desc, 144 inputs : sql_type list} -> Print.PD.pp_desc,
145 nextval : ErrorMsg.span -> Print.PD.pp_desc, 145 nextval : {loc : ErrorMsg.span, seqE : Print.PD.pp_desc, seqName : string option} -> Print.PD.pp_desc,
146 nextvalPrepared : {loc : ErrorMsg.span, id : int, query : string} -> Print.PD.pp_desc, 146 nextvalPrepared : {loc : ErrorMsg.span, id : int, query : string} -> Print.PD.pp_desc,
147 sqlifyString : string -> string, 147 sqlifyString : string -> string,
148 p_cast : string * sql_type -> string, 148 p_cast : string * sql_type -> string,
149 p_blank : int * sql_type -> string (* Prepared statement input *), 149 p_blank : int * sql_type -> string (* Prepared statement input *),
150 supportsDeleteAs : bool, 150 supportsDeleteAs : bool,
151 createSequence : string -> string, 151 createSequence : string -> string,
152 textKeysNeedLengths : bool 152 textKeysNeedLengths : bool,
153 supportsNextval : bool
153 } 154 }
154 155
155 val addDbms : dbms -> unit 156 val addDbms : dbms -> unit
156 val setDbms : string -> unit 157 val setDbms : string -> unit
157 val currentDbms : unit -> dbms 158 val currentDbms : unit -> dbms