43 lines
1.1 KiB
Smalltalk
43 lines
1.1 KiB
Smalltalk
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.
|
|
]
|