blob: c4d025af99140c77f47f978932c25134a4809fa6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
if {[info commands vwait] eq ""} {
return "noimpl"
}
proc bgerror {msg} {
#puts "bgerror: $msg"
#exit 0
}
if {[info commands verbose] == ""} {
proc verbose {msg} {
puts $msg
}
}
if {[os.fork] == 0} {
verbose "child: waiting a bit"
# This will be our client
sleep .1
set f [socket stream localhost:9876]
set done 0
proc onread {f} {
if {[$f gets buf] > 0} {
verbose "child: read response '$buf'"
} else {
verbose "child: read got eof"
close $f
set ::done 1
$f readable {}
}
}
proc oneof {f} {
$f close
verbose "child: eof so closing"
set ::done 1
}
proc onwrite {f} {
verbose "child: sending request"
$f puts -nonewline "GET / HTTP/1.0\r\n\r\n"
$f flush
$f writable {}
}
$f readable {onread $f} {oneof $f}
$f writable {onwrite $f}
alarm 10
catch -signal {
verbose "child: in event loop"
vwait done
verbose "child: done event loop"
}
alarm 0
exit 0
}
verbose "parent: opening socket"
set done 0
# This will be our server
set f [socket stream.server 0.0.0.0:9876]
proc server_onread {f} {
verbose "parent: onread (server) got connection on $f"
set cfd [$f accept]
verbose "parent: onread accepted $cfd"
verbose "parent: read request '[string trim [$cfd gets]]'"
$cfd puts "Thanks for the request"
$cfd close
verbose "parent: sent response"
incr ::done
}
$f readable {server_onread $f}
alarm 10
catch -signal {
vwait done
}
alarm 0
sleep .5
return "ok"
|