1# A little network client using TCP/IP:
2
3LoadPackage("io");
4Print("Connecting via TCP/IP...\n");
5s := IO_socket(IO.PF_INET,IO.SOCK_STREAM,"tcp");
6res := IO_connect(s,IO_MakeIPAddressPort("127.0.0.1",8000));
7if res = fail then
8    Print("Error: ",LastSystemError(),"\n");
9    IO_close(s);
10else
11    f := IO_WrapFD(s,IO.DefaultBufSize,IO.DefaultBufSize);
12    IO_WriteLine(f,"Hello world!\n");
13    Print("Sent: Hello word!\n");
14    st := IO_ReadLine(f);
15    Print("Got back: ",st);
16    IO_Close(f);
17fi;
18s := IO_socket(IO.PF_INET,IO.SOCK_STREAM,"tcp");
19res := IO_connect(s,IO_MakeIPAddressPort("127.0.0.1",8000));
20if res = fail then
21    Print("Error: ",LastSystemError(),"\n");
22    IO_close(s);
23else
24    f := IO_WrapFD(s,IO.DefaultBufSize,IO.DefaultBufSize);
25    IO_WriteLine(f,"QUIT\n");
26    Print("Sent: QUIT\n");
27    st := IO_ReadLine(f);
28    Print("Got back: ",st);
29    IO_Close(f);
30fi;
31