File: serverUDP.g

package info (click to toggle)
gap-io 4.7.0%2Bds-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 772 kB
  • sloc: xml: 2,871; ansic: 2,685; makefile: 36; sh: 6
file content (11 lines) | stat: -rw-r--r-- 334 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
 
# A small server example using UDP:
LoadPackage("io");
Print("Waiting for UDP packets...\n");
s := IO_socket(IO.PF_INET,IO.SOCK_DGRAM,"udp");
IO_bind(s,IO_MakeIPAddressPort("127.0.0.1",8000));
repeat
    b := "";
    l := IO_recv(s,b,0,80,0);
    Print("Received ",l," bytes: ",b{[1..l]},"\n");
until b{[1..l]} = "QUIT";
IO_close(s);