Annotation of /openisis/current/tcl/oitstest

#!/usr/bin/tclsh
#       ^^^ shebang line only for vim to recognize the language :)
#
#       $Id: oitstest,v 1.1 2003/03/28 19:07:49 kripke Exp $
#       oits tester
#

proc oitsopen {} {
        set sock [socket localhost 8080]
        fconfigure $sock -translation binary
        return $sock
}

proc oitsreq {srv {req request} {res response}} {
        puts $srv [$req serialize]
        flush $srv
        set i 0
        while {0 < [gets $srv line]} {
                $res deserialize $line
                incr i
        }
        return $i
}


set server [oitsopen]
openIsisRec request
openIsisRec response

request add 42 foo 142 bar

puts [request serialize]
puts [oitsreq $server]
puts [response serialize]
1	dpavlin	237	#!/usr/bin/tclsh
2			# ^^^ shebang line only for vim to recognize the language :)
3			#
4			# $Id: oitstest,v 1.1 2003/03/28 19:07:49 kripke Exp $
5			# oits tester
6			#
7
8			proc oitsopen {} {
9			set sock [socket localhost 8080]
10			fconfigure $sock -translation binary
11			return $sock
12			}
13
14			proc oitsreq {srv {req request} {res response}} {
15			puts $srv [$req serialize]
16			flush $srv
17			set i 0
18			while {0 < [gets $srv line]} {
19			$res deserialize $line
20			incr i
21			}
22			return $i
23			}
24
25
26			set server [oitsopen]
27			openIsisRec request
28			openIsisRec response
29
30			request add 42 foo 142 bar
31
32			puts [request serialize]
33			puts [oitsreq $server]
34			puts [response serialize]