blob: d32348fb914778c9c5e45dbf2bbdf9d7e35d4332 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
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.
"ISUP GSR"
msg := #(2 0 0 1 0 0 0 0 0 0 0 11 197 8 197 7 224 3 0 23 1 1 28) asByteArray.
datagram data: msg.
socket nextPut: datagram.
]
|