27 lines
482 B
Plaintext
27 lines
482 B
Plaintext
url = require "net.url"
|
|
|
|
class Server
|
|
new: (cq, hdlr) =>
|
|
@cq = cq
|
|
@hdlr = hdlr
|
|
|
|
listen: (srv) =>
|
|
@cq\wrap ->
|
|
for conn in srv\clients!
|
|
@cq\wrap ->
|
|
with conn
|
|
_, ip = \peername!
|
|
request = \read "*l"
|
|
u = url.parse request
|
|
ctx =
|
|
:ip
|
|
host: u.host
|
|
path: u.path
|
|
query: u.query
|
|
@hdlr\serve ctx, conn
|
|
\close!
|
|
|
|
{
|
|
:Server
|
|
}
|