Mercurial > urweb
comparison src/prepare.sml @ 1293:acabf3935060
tryDml
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 05 Sep 2010 14:00:57 -0400 |
parents | 7a31e0cf25e9 |
children | b4480a56cab7 |
comparison
equal
deleted
inserted
replaced
1292:a671c986f517 | 1293:acabf3935060 |
---|---|
244 ((EQuery {exps = exps, tables = tables, rnum = rnum, | 244 ((EQuery {exps = exps, tables = tables, rnum = rnum, |
245 state = state, query = query, body = body, | 245 state = state, query = query, body = body, |
246 initial = initial, prepared = SOME {id = id, query = s, nested = true}}, loc), st) | 246 initial = initial, prepared = SOME {id = id, query = s, nested = true}}, loc), st) |
247 end | 247 end |
248 | 248 |
249 | EDml {dml, ...} => | 249 | EDml {dml, mode, ...} => |
250 (case prepString (dml, st) of | 250 (case prepString (dml, st) of |
251 NONE => (e, st) | 251 NONE => (e, st) |
252 | SOME (id, s, st) => | 252 | SOME (id, s, st) => |
253 ((EDml {dml = dml, prepared = SOME {id = id, dml = s}}, loc), st)) | 253 ((EDml {dml = dml, prepared = SOME {id = id, dml = s}, mode = mode}, loc), st)) |
254 | 254 |
255 | ENextval {seq, ...} => | 255 | ENextval {seq, ...} => |
256 if #supportsNextval (Settings.currentDbms ()) then | 256 if #supportsNextval (Settings.currentDbms ()) then |
257 let | 257 let |
258 val s = case seq of | 258 val s = case seq of |