blob: fcb39932f5ac049eeeab22520cedb034cf08752b (
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
|
# provide a http server
{ <
net .alg .bufferedEpollServer "^" via
<
{ "request unconfigured (of rawHttpServer)" die } /request deffst
{ = }' /set deffst
{ scope keys }' /setters deffst
{ _ ^settings .installSetters =*install
setters { _ { set }_ -01 install }" each
} /installSetters deffst
> _ ==settings "::" via
{ -10 deffst }' ::installSetters
{ ":" via "" ==url "" ==method < { defvst }' /put deffst > ==headers
<
{ :close } _ =*err =*end
{ ==inBuffer
{ inBuffer "\n" regex } { [
{ inBuffer len 2048 gt } { "" =inBuffer :close }
{ inBuffer "^(GET|POST) ([^\r\n]*) HTTP/\\d\\.\\d\r?\n(.*)" regex } { =method =url =inBuffer }
{ inBuffer "^([^:\r\n]+): ([^\r\n]*)\r?\n(.*)" regex } { headers .put =inBuffer }
{ inBuffer "^\r?\n(.*)" regex } { =inBuffer
method url headers < ==headers ==url ==method
{ :close } =*close
{ :write } =*write
{ :finish } =*finish
{ ==contentType
"HTTP/1.0 200 Ok\r\nContent-Type: " contentType cat "\r\n\r\n" cat -01 cat :write :finish
} =*ok
{ ==contentType
"HTTP/1.0 500 Error\r\nContent-Type: " contentType cat "\r\n\r\n" cat -01 cat :write :finish
} =*fail
> ::request
}
{ 1 } {
"HTTP/1.0 400 Error\r\nContent-Type: text/html\r\n\r\n<html><body>Could not parse request</body></html>\r\n"
:write :finish
}
] conds } loop inBuffer } =*in
>
} ^accept
{
{ ^run } {
_ .?close { .close } { ??!' } ? *
} ?!io.net
} /run deffst
> } /rawHttpServer net .alg .deff
{ <
net .alg .rawHttpServer "^" via ^settings "::" via
<
{ "request unconfigured (of httpServer)" die } /request deffst
{ = }' /set deffst
{ scope keys }' /setters deffst
{ _ ^settings .installSetters =*install
setters { _ { set }_ -01 install }" each
} /installSetters deffst
> _ ==settings "::" via
{ -10 deffst }' ::installSetters
{ _ ==req ":" via
< { defvst }' > ==args { net .alg .uri .percentEncoding .|consume -30*20*1* }_ =*setArg
:url _ ==url
"^([^?]*)\\?(.*)$" regex {
=url "&" str .split { _ ==arg
"^([^=]*)=(.*)$" regex not { "" arg } rep
setArg
} each
} rep
url args < ==args ==url req >' ::request
} ^request
{ ^run } /run deffst
> } /httpServer net .alg .deff
# vim: syn=elymas
|
