Library: TCP/IP client and server support (OMTCP)
Import : omtcp.xmd
define external stream function tcp.peer-ip of value tcp.connection Connection
Use tcp.peer-ip to determine the IP address of the peer host on the other side of a connection.
Connection must exist (else external exception TCP05).
The IP address is returned in dotted decimal format (for example, "127.0.0.1").
import "omtcp.xmd" prefixed by tcp. process local tcp.service Demo local tcp.connection Client set Demo to tcp.create-service on 5600 repeat set Client to tcp.accept-connection from Demo output "Request from " || tcp.peer-ip of Client || "%n" ;process request again