summaryrefslogtreecommitdiff
path: root/src/settings.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-07-16 16:29:13 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-07-16 16:29:13 -0400
commit4289cd07dd2467dfbad297cf21ad7cfaedc08f2b (patch)
treee84e8e1578e80ec83ada5acef409f93e11fabb03 /src/settings.sml
parent7e10920b75383cd953898468385ae29e76bf184d (diff)
Sequence code compiles in MySQL
Diffstat (limited to 'src/settings.sml')
-rw-r--r--src/settings.sml8
1 files changed, 5 insertions, 3 deletions
diff --git a/src/settings.sml b/src/settings.sml
index 99fa748d..7393013e 100644
--- a/src/settings.sml
+++ b/src/settings.sml
@@ -332,14 +332,15 @@ type dbms = {
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, seqName : string option, seqE : Print.PD.pp_desc} -> 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,
supportsDeleteAs : bool,
createSequence : string -> string,
- textKeysNeedLengths : bool
+ textKeysNeedLengths : bool,
+ supportsNextval : bool
}
val dbmses = ref ([] : dbms list)
@@ -359,7 +360,8 @@ val curDb = ref ({name = "",
p_blank = fn _ => "",
supportsDeleteAs = false,
createSequence = fn _ => "",
- textKeysNeedLengths = false} : dbms)
+ textKeysNeedLengths = false,
+ supportsNextval = false} : dbms)
fun addDbms v = dbmses := v :: !dbmses
fun setDbms s =