Mercurial > urweb

comparison src/settings.sml @ 891:8f2159040bbb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More command-line options
author Adam Chlipala <adamc@hcoop.net>
date Sat, 18 Jul 2009 11:01:48 -0400
parents 034eeb099564
children ae9e22822ec5
comparison
equal deleted inserted replaced
890:034eeb099564 891:8f2159040bbb
378 case List.find (fn db => #name db = s) (!dbmses) of 378 case List.find (fn db => #name db = s) (!dbmses) of
379 NONE => raise Fail ("Unknown DBMS " ^ s) 379 NONE => raise Fail ("Unknown DBMS " ^ s)
380 | SOME db => curDb := db 380 | SOME db => curDb := db
381 fun currentDbms () = !curDb 381 fun currentDbms () = !curDb
382 382
383 val dbstring = ref (NONE : string option)
384 fun setDbstring so = dbstring := so
385 fun getDbstring () = !dbstring
386
387 val exe = ref (NONE : string option)
388 fun setExe so = exe := so
389 fun getExe () = !exe
390
391 val sql = ref (NONE : string option)
392 fun setSql so = sql := so
393 fun getSql () = !sql
394
383 end 395 end