| 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. |
| |
| "TFP" |
| msg := #(2 0 0 1 0 0 0 0 0 0 0 8 |
| 192 232 197 7 0 20 62 2) asByteArray. |
| datagram data: msg. |
| socket nextPut: datagram. |
| |
| "ISUP" |
| msg := #(2 0 0 1 0 0 0 0 0 0 0 11 |
| 197 232 197 7 224 3 0 23 1 1 28) 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. |
| |
| "SST" |
| msg := #(2 0 0 1 0 0 0 0 0 0 0 24 195 233 197 7 224 9 0 3 5 9 2 66 1 4 67 31 0 1 5 3 7 233 5 0 ) asByteArray. |
| datagram data: msg. |
| socket nextPut: datagram. |
| ] |