diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-07-18 11:01:48 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-07-18 11:01:48 -0400 |
| commit | dddebbe923d37a5246a6727b27028e77b8252a1d (patch) | |
| tree | 8bf5b15ad81f9a06146c5d0a4895492dcd9fc8d0 /src/settings.sml | |
| parent | fdca372b5e04a3f460fb3a635076b0fb81a492e7 (diff) | |
More command-line options
Diffstat (limited to 'src/settings.sml')
| -rw-r--r-- | src/settings.sml | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/settings.sml b/src/settings.sml index c28e1102..c7e68960 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -380,4 +380,16 @@ fun setDbms s = | SOME db => curDb := db fun currentDbms () = !curDb +val dbstring = ref (NONE : string option) +fun setDbstring so = dbstring := so +fun getDbstring () = !dbstring + +val exe = ref (NONE : string option) +fun setExe so = exe := so +fun getExe () = !exe + +val sql = ref (NONE : string option) +fun setSql so = sql := so +fun getSql () = !sql + end |