aboutsummaryrefslogtreecommitdiffstats
path: root/contrib/TestSender.st
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/TestSender.st')
-rw-r--r--contrib/TestSender.st25
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.
+]