21 lines
681 B
Tcl
21 lines
681 B
Tcl
#----------------------------------------------------------------------------
|
|
# 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;
|
|
}
|