simplify most commonly uses test commands

This commit is contained in:
2018-06-19 14:41:25 +02:00
parent f462a35db3
commit f94e8bc746
32 changed files with 348 additions and 340 deletions

View File

@ -95,6 +95,14 @@ proc ioccmd {command} {
puts $ioc $command
}
proc process {record} {
ioccmd "dbpf $record.PROC 1"
}
proc put {record value} {
ioccmd "dbpf $record \"$value\""
}
proc send {string} {
global sock lastsent
set lastsent $string