17 lines
470 B
Plaintext
Executable File
17 lines
470 B
Plaintext
Executable File
#!/usr/bin/env clyx
|
|
_start [
|
|
say "Listening on port 1337..."
|
|
1337 nlstn # listen on port 1337
|
|
1 while [ # outer connection accept loop
|
|
dup read # accept a new connection -> conn_fd
|
|
1 # loop condition for client session loop
|
|
while [
|
|
dup read # read data
|
|
dup vlen 0 != # check if data is non-empty
|
|
if [ over swap write drop 1 ] [ drop 0 ]
|
|
]
|
|
close # close the connection socket
|
|
1 # loop condition for outer server loop
|
|
]
|
|
]
|