aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

34
Task/Hello-world-Web-server/Aime/hello-world-web-server-1.aime Normal file
View file

@ -0,0 +1,34 @@
void
serve(dispatch w, file s, list colors)
{
file i, o;
date d;
accept(i, o, s, 0);
f_(o, "HTTP/1.1 200 OK\n"
"Content-Type: text/html; charset=UTF-8\n\n"
"<!DOCTYPE html><html><head><title>Bye-bye baby bye-bye</title>"
"<style>body { background-color: #111 }"
"h1 { font-size:4cm; text-align: center; color: black;"
" text-shadow: 0 0 2mm ", colors[drand(3)], "}</style></head>"
"<body><h1>Goodbye, world!</h1></body></html>\n");
# chrome won't show the page if we close right away. we'll close in 2s.
d.now;
d.offset(2, 0);
w_schedule(w, d, f_close, i);
}
integer
main(void)
{
dispatch w;
file s;
tcpip_listen(s, 8080, 0);
w_watch(w, s, serve, w, s, list("blue", "green", "red", "yellow"));
w_press(w);
return 0;
}

11
Task/Hello-world-Web-server/Aime/hello-world-web-server-2.aime Normal file
View file

@ -0,0 +1,11 @@
file i, o, s;
tcpip_listen(s, 8080, 0);
while (1) {
accept(i, o, s, 0);
f_(o, "HTTP/1.1 200 OK\n"
"Content-Type: text/html; charset=UTF-8\n\n"
"<!DOCTYPE html><html><head><title>baby bye-bye</title></head>"
"<body><h1>Goodbye, world!</h1></body></html>\n");
f_flush(o);
}