diff options
Diffstat (limited to 'contrib')
-rw-r--r-- | contrib/TestSender.st | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/contrib/TestSender.st b/contrib/TestSender.st new file mode 100644 index 0000000..c059dae --- /dev/null +++ b/contrib/TestSender.st @@ -0,0 +1,25 @@ +PackageLoader fileInPackage: 'Sockets'. + +Eval [ + | msg socket datagram addr | + + addr := Sockets.SocketAddress byName: '127.0.0.1'. + socket := Sockets.DatagramSocket local: '127.0.0.1' port: 5000. + datagram := Sockets.Datagram new. + datagram port: 1313. + datagram address: addr. + + "SLTM" + msg := #(2 0 0 1 0 0 0 0 0 0 0 + 15 193 232 197 7 0 17 + 128 247 248 249 250 251 + 252 253 254 ) asByteArray. + + datagram data: msg. + socket nextPut: datagram. + + "TRA" + msg := #(2 0 0 1 0 0 0 0 0 0 0 6 192 232 197 7 0 23) asByteArray. + datagram data: msg. + socket nextPut: datagram. +] |