Initial revision

transact.tcl

@@ -0,0 +1,20 @@
+#----------------------------------------------------------------------------
+# This implements a little command which just sets marks in the output
+# stream. This is for experimenting with client communications schemes.
+#
+# Mark Koennecke, May 1999
+#-----------------------------------------------------------------------------
+
+proc transact { key } {
+     set keyy [string tolower $key]
+     if {[string compare $keyy "start"] == 0 } {
+         ClientPut "TRANSACTSTART"
+         return
+     } 
+     if {[string compare $keyy "end"] == 0 } {
+         ClientPut "TRANSACTEND"
+         return
+     } 
+     ClientPut "ERROR: Transact understands only start and end"
+     return;
+}