Library: TCP/IP client and server support (OMTCP)
Import : omtcp.xmd
define external stream function tcp.peer-name of value tcp.connection Connection
Use tcp.peer-name to get the fully-qualified domain name of the peer host on the other side of a connection.
Connection must exist (else external Exception TCP05).
If tcp.peer-name fails to get the fully-qualified domain name of the host machine, external exception TCP01 is thrown.
import "omtcp.xmd" prefixed by tcp. process local tcp.service Demo local tcp.connection Client set Demo to tcp.service at 5600 repeat set Client to tcp.accept-connection from Demo output "Request from " || tcp.peer-name of Client || "%n" ;process request again