X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=shell.tcl;h=d9d32d86c349b44105e9a6c90f9366641804633a;hb=0c66cddf6e923db676ed30691cd1d47b50db0d4a;hp=5a9161aefd92848bb91a6a1a3136de4eec0da9d2;hpb=b7bac2322e7a6855f60d167509108eff3d21bd65;p=ir-tcl-moved-to-github.git

diff --git a/shell.tcl b/shell.tcl
index 5a9161a..d9d32d8 100644
--- a/shell.tcl
+++ b/shell.tcl
@@ -1,9 +1,19 @@
-# $Id: shell.tcl,v 1.1 1995-06-30 12:39:27 adam Exp $
+# $Id: shell.tcl,v 1.2 1995-08-28 12:21:22 adam Exp $
 #
 source display.tcl
 
+ir z
+
+proc help {} {
+    puts "Commands:"
+    puts " target <host> <database>"
+    puts " find <query>"
+    puts " show <offset> <number>"
+    puts ""
+}
+
 proc target {name database} {
-    ir z
+    z disconnect
     z failback {puts "Connection failed"}
     z callback {connect-response}
     z databaseNames $database
@@ -17,7 +27,7 @@ proc connect-response {} {
 }
 
 proc init-response {} {
-    puts "Connect and initalized. ok"
+    puts "Connect and initialized."
 }
 
 proc find-response {z} {