DBMS database creation

[hcoop/domtool2.git] / src / dbms.sml

diff --git a/src/dbms.sml b/src/dbms.sml
index 6f7bb9d..caf504a 100644 (file)
--- a/src/dbms.sml
+++ b/src/dbms.sml
@@ -22,7 +22,10 @@ structure Dbms :> DBMS = struct
 
 open DataStructures
 
 
 open DataStructures
 

-type handler = {adduser : string -> string option}
+val validDbname = CharVector.all Char.isAlpha
+
+type handler = {adduser : string -> string option,
+               createdb : {user : string, dbname : string} -> string option}

               
 val dbmses : handler StringMap.map ref = ref StringMap.empty
                  
               
 val dbmses : handler StringMap.map ref = ref StringMap.empty