20 lines
676 B
Smalltalk
20 lines
676 B
Smalltalk
Eval [
|
|
| msg dt socket dgram |
|
|
|
|
PackageLoader fileInPackage: #Sockets.
|
|
PackageLoader fileInPackage: #OsmoNetwork.
|
|
msg := Osmo.M2UAMSG fromClass: Osmo.M2UAConstants clsMAUP type: Osmo.M2UAConstants maupData.
|
|
msg addTag: (Osmo.M2UATag initWith: Osmo.M2UAConstants tagIdentText data: 'm2ua' asByteArray).
|
|
msg addTag: (Osmo.M2UATag initWith: Osmo.M2UAConstants tagData data: #(0 0 0 0 0 0 0 0 0 0) asByteArray).
|
|
dt := msg toMessage asByteArray.
|
|
|
|
dt inspect.
|
|
|
|
socket := Sockets.DatagramSocket new.
|
|
dgram := Sockets.Datagram data: dt.
|
|
dgram port: 5001.
|
|
dgram address: Sockets.SocketAddress loopbackHost.
|
|
|
|
socket nextPut: dgram.
|
|
]
|