mirror of https://github.com/LeOS-GSI/LeOS-Genesis
41 lines
868 B
Plaintext
41 lines
868 B
Plaintext
process main {
|
|
getargs() args;
|
|
value(args) args;
|
|
|
|
num_different(args.length, "2") bad_args;
|
|
If (bad_args) {
|
|
println("bad arguments");
|
|
exit("1");
|
|
};
|
|
|
|
args->get("0") addr_ip;
|
|
args->get("1") addr_port;
|
|
|
|
sys.listen({"tcp", {"ipv4", addr_ip, addr_port}}, "client_handler", {}) listener;
|
|
If (listener.is_error) {
|
|
println("failed to listen");
|
|
exit("1");
|
|
};
|
|
|
|
println("listening");
|
|
}
|
|
|
|
template client_handler {
|
|
to_string(_socket.client_addr) addr_str;
|
|
|
|
println("client ", addr_str, ": connected");
|
|
rprintln("client ", addr_str, ": disconnected");
|
|
|
|
_socket->write("This echo server is implemented in NCD!\n\n");
|
|
|
|
backtrack_point() recv_point;
|
|
|
|
_socket->read() data;
|
|
If (data.not_eof) {
|
|
_socket->write(data);
|
|
recv_point->go();
|
|
};
|
|
|
|
_socket->close();
|
|
}
|