source ../../oo.tcl @import core.* @interface EchoServer : Server { } @implementation EchoServer { - handleRequest:fromSocket:address:andPort: { aRequest aSocket anAddress aPort } { puts stderr "got \"$aRequest\" from: $anAddress port: $aPort" if [$self isEncrypted] { aRequest encrypt } puts $aSocket $aRequest flush $aSocket } } [[[EchoServer new] port: 2002] start]