Anonymous user
Hello world/Web server: Difference between revisions
Added socket only version for D
(Add NetRexx implementation) |
(Added socket only version for D) |
||
Line 138:
}
}</lang>
=={{header|D}}==
Using sockets only, also shows use of heredoc syntax, std.array.replace, and casting to bool to satisfy the while conditional.
<lang D>
import std.socket, std.array;
ushort port = 8081;
void main() {
Socket listener = new TcpSocket;
listener.bind(new InternetAddress(port));
listener.listen(10);
Socket currSock;
while(cast(bool)(currSock = listener.accept())) {
currSock.sendTo(replace(q"EOF
HTTP/1.1 200 OK
Content-Type: text/html; charset=UTF-8
<html>
<head><title>Hello, world!</title></head>
<body>Hello, world!</body>
</html>
EOF", "\n", "\r\n"));
currSock.close();
}
}
</lang>
=={{header|Delphi}}==
| |||