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