diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-07-16 16:29:13 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-07-16 16:29:13 -0400 |
| commit | 4289cd07dd2467dfbad297cf21ad7cfaedc08f2b (patch) | |
| tree | e84e8e1578e80ec83ada5acef409f93e11fabb03 /src/settings.sml | |
| parent | 7e10920b75383cd953898468385ae29e76bf184d (diff) | |
Sequence code compiles in MySQL
Diffstat (limited to 'src/settings.sml')
| -rw-r--r-- | src/settings.sml | 8 |
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 = |