aboutsummaryrefslogtreecommitdiffstats
path: root/contrib/TestSender.st
blob: 124a0fe9403d308cbcb0789baae8472a3f0e8402 (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.

    "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.
]