blob: 882b46f5825c4fe766879b6f92d40ecbac5b57e5 (
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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
# provide a standard epoll-based tcp/ip server
<
{ ==err _ 0 lt { err ?? } rep } "+??" deffd
{ ==err ==actions _ 0 lt { actions err ??? } rep } "+???" deffd
{ <
sys .linux "+" via +epoll "++" via
sys .asm "+!" via
net .tcp "+:" via
<
{ 1 } /running deffst
{ 1000000 } /interval deffst
{ "unconfigured accept (of epollServer)" die } /accept deffst
{ "unconfigured port (of epollServer)" die } /port deffst
{ 1 -01 +setsockopt .reuseAddr +??io.net.setsockopt -- } /reuseAddr deffst
{ = }' /set deffst
{ scope keys }' /setters deffst
{ =*install
setters { _ { set }_ -01 install }" each
} /installSetters deffst
> _ ==settings "::" via
{ deffst }' ::installSetters
< > ==:noHandler
{
::port { # ==s
::reuseAddr
} +:listenOptFd ==listenFd
[ ] ==allEventHandlers
{ ==fd ==handler
{ allEventHandlers len fd le }' {
allEventHandlers [ noHandler ] cat =allEventHandlers
} loop
handler fd allEventHandlers =[]
} /protectGC deffst
{ ==fd noHandler fd allEventHandlers =[] } /unprotectGC deffst
<
{
listenFd +:acceptFd +??io.net.accept ==fd
noHandler ==eventHandler
++EPOLLIN ++EPOLLERR bor ==initialFlags
<
{
epoll ++EPOLLCTLDEL fd 0 0 ++ctl +??io.net.epoll --
fd +close +??io.net.close --
fd unprotectGC
} /close deffst
{ ==count
count str .alloc ==buf
fd buf count +read
|close < { 0 } ; =*close > +???io.net.con.read
buf str .inplacePrefix
} /read deff
{ ==buf
fd buf _ len +write
|close < =*close > +???io.net.con.write
} /write deff
{ ==flags
eventHandler +!rawAddress noHandler +!rawAddress eq {
flags =initialFlags
} {
epoll ++EPOLLCTLMOD fd flags eventHandler +!rawAddress ++ctl +??io.net.epoll --
} ? *
} /ctl deffst
> ::accept =eventHandler
epoll ++EPOLLCTLADD fd initialFlags eventHandler +!rawAddress ++ctl +??io.net.epoll --
eventHandler fd protectGC
} =*in
{ "unexpected output capability on listening socket" die } =*out
{ ??io.net } =*err
> ==listenFdEventHandler
listenFdEventHandler listenFd protectGC
++create +??io.net.epoll ==epoll
epoll ++EPOLLCTLADD listenFd ++EPOLLIN listenFdEventHandler +!rawAddress ++ctl +??io.net.epoll --
{ ::running } {
epoll 16 ::interval ++wait +??io.net.wait --
{
_ .data +!rawObject ":" via
.events
_ ++EPOLLIN band not not { :in } rep
_ ++EPOLLOUT band not not { :out } rep
++EPOLLERR band not not { :err } rep
} each
} loop
} /run deffst
> } /epollServer net .alg .deff
{ <
net .alg .epollServer "^" via
<
{ "unconfigured accept (of bufferedEpollServer)" die } /accept deffst
{ 1048576 } /outputBufferLimit deffst
{ = }' /set deffst
{ scope keys }' /setters deffst
{ _ ^settings .installSetters =*install
setters { _ { set }_ -01 install }" each
} /installSetters deffst
> _ ==settings "::" via
{ deffst }' ::installSetters
sys .linux .epoll "++" via
{ ":" via "" ==inBuffer "" ==outBuffer 0 ==finished
<
{
outBuffer -01 cat _ =outBuffer
len ::outputBufferLimit gt {
|close < =*close
{ ::outputBufferLimit 2 mul outputBufferLimit } =*increase
> ???limit.io.out
} rep
++EPOLLOUT ++EPOLLIN ++EPOLLERR bor bor :ctl
} =*write
{ :close } =*close
{ 1 =finished } =*finish
> ::accept ":::" via <
{
4096 :read _ len
{ inBuffer -01 cat :::in =inBuffer }
{ -- :::end }
? *
} =*in
{
outBuffer _ :write -01 str .postfix
_ =outBuffer
len _ { ++EPOLLOUT } { 0 } ? * ++EPOLLIN ++EPOLLERR bor bor :ctl
not finished and { :close } rep
} =*out
{ :::err } =*err
>
} ^accept
{ ^run } /run deffst
> } /bufferedEpollServer net .alg .deff
> --
# vim: syn=elymas
|
