diff 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
line wrap: on
line diff
--- a/src/settings.sig	Thu Jul 16 13:59:30 2009 -0400
+++ b/src/settings.sig	Thu Jul 16 16:29:13 2009 -0400
@@ -142,14 +142,15 @@
          dml : ErrorMsg.span -> Print.PD.pp_desc,
          dmlPrepared : {loc : ErrorMsg.span, id : int, dml : string,
                         inputs : sql_type list} -> Print.PD.pp_desc,
-         nextval : ErrorMsg.span -> Print.PD.pp_desc,
+         nextval : {loc : ErrorMsg.span, seqE : Print.PD.pp_desc, seqName : string option} -> Print.PD.pp_desc,
          nextvalPrepared : {loc : ErrorMsg.span, id : int, query : string} -> Print.PD.pp_desc,
          sqlifyString : string -> string,
          p_cast : string * sql_type -> string,
          p_blank : int * sql_type -> string (* Prepared statement input *),
          supportsDeleteAs : bool,
          createSequence : string -> string,
-         textKeysNeedLengths : bool
+         textKeysNeedLengths : bool,
+         supportsNextval : bool
     }
 
     val addDbms : dbms -> unit