Update of /cvsroot/hcoop/domtool2/src
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv7614/src
Modified Files:
main-dbtool.sml
Log Message:
dbtool gives help URL on bad arguments
Index: main-dbtool.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/main-dbtool.sml,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** main-dbtool.sml 2 Jul 2007 16:14:44 -0000 1.6
--- main-dbtool.sml 23 Dec 2007 22:26:39 -0000 1.7
***************
*** 19,25 ****
(* Driver for dbtool *)
val _ =
case CommandLine.arguments () of
! [] => print "Invalid command-line arguments\n"
| dbtype :: rest =>
case Dbms.lookup dbtype of
--- 19,28 ----
(* Driver for dbtool *)
+ fun badArgs () =
+ print "Invalid command-line arguments. See documentation
at:\n\thttp://wiki.hcoop.net/MemberManual/Databases\n";
+
val _ =
case CommandLine.arguments () of
! [] => badArgs ()
| dbtype :: rest =>
case Dbms.lookup dbtype of
***************
*** 69,71 ****
else
print ("Invalid database name " ^ dbname ^ ".\n")
! | _ => print "Invalid command-line arguments\n"
--- 72,74 ----
else
print ("Invalid database name " ^ dbname ^ ".\n")
! | _ => badArgs ()
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
