Untitled

socket := ServerSocket new()
ai: InAddr

match(inet_pton(AddressFamily IP4, "0.0.0.0", ai&)) {
    case -1 =>
	// Check errno, it should be set to EAFNOSUPPORT
	"Invalid address family (?)." println()
    case 0 =>
	// src does not contain a character string representing a valid network address in the specified address family.
	"Invalid network address." println()
    case 1 =>
	// Success!
	"Success!" println()
}

addr := SocketAddressIP4 new(ai, 8000)
socket bind(addr)
socket listen(100)

while(true) {
    conn := socket accept()
    writer := conn writer()
    writer write("<html><body>Hello, from the ooc socket world!</body></html>")
    conn close()
}