static int prNetAddr_Disconnect(VMGlobals *g, int numArgsPushed)
{
PyrSlot* netAddrSlot = g->sp;
PyrObject* netAddrObj = slotRawObject(netAddrSlot);
SC_TcpClientPort *comPort = (SC_TcpClientPort*)slotRawPtr(netAddrObj->slots + ivxNetAddr_Socket);
if (comPort) comPort->Close();
return errNone;
}
int netAddrSend(PyrObject *netAddrObj, int msglen, char *bufptr, bool sendMsgLen)
{
int err, port, addr;
SC_TcpClientPort* comPort = (SC_TcpClientPort*)(netAddrObj->slots + ivxNetAddr_Socket)->uptr;
if (comPort) {
// send TCP
int tcpSocket = comPort->Socket();
if (sendMsgLen) {
// send length of message in network byte-order
int32 sizebuf = htonl(msglen);
sendall(tcpSocket, &sizebuf, sizeof(int32));
}
sendall(tcpSocket, bufptr, msglen);
} else {
if (gUDPport == 0) return errFailed;
// send UDP
err = slotIntVal(netAddrObj->slots + ivxNetAddr_Hostaddr, &addr);
if (err) return err;
if (addr == 0) {
#ifdef NO_INTERNAL_SERVER
// no internal server under SC_WIN32 yet
#else
if (gInternalSynthServer.mWorld) {
World_SendPacket(gInternalSynthServer.mWorld, msglen, bufptr, &localServerReplyFunc);
}
#endif
return errNone;
}
err = slotIntVal(netAddrObj->slots + ivxNetAddr_PortID, &port);
if (err) return err;
struct sockaddr_in toaddr;
makeSockAddr(toaddr, addr, port);
sendallto(gUDPport->Socket(), bufptr, msglen, (sockaddr*)&toaddr, sizeof(toaddr));
}
return errNone;
}
static int netAddrSend(PyrObject *netAddrObj, int msglen, char *bufptr, bool sendMsgLen = true)
{
using namespace boost::asio;
if (IsPtr(netAddrObj->slots + ivxNetAddr_Socket)) {
SC_TcpClientPort* comPort = (SC_TcpClientPort*)slotRawPtr(netAddrObj->slots + ivxNetAddr_Socket);
// send TCP
ip::tcp::socket & socket = comPort->Socket();
boost::system::error_code errc;
if (sendMsgLen) {
// send length of message in network byte-order
int32 sizebuf = sc_htonl(msglen);
write( socket, buffer(&sizebuf, sizeof(int32)), errc );
}
if (!errc)
write( socket, buffer(bufptr, msglen), errc );
if (errc)
{
::error("Error in netAddrSend: %s\n", errc.message().c_str());
return errFailed;
}
return errNone;
} else {
if (gUDPport == 0) return errFailed;
// send UDP
int addr;
int err = slotIntVal(netAddrObj->slots + ivxNetAddr_Hostaddr, &addr);
if (err) return err;
if (addr == 0) {
#ifndef NO_INTERNAL_SERVER
if (gInternalSynthServer.mWorld) {
World_SendPacket(gInternalSynthServer.mWorld, msglen, bufptr, &localServerReplyFunc);
}
#endif
return errNone;
}
int port;
err = slotIntVal(netAddrObj->slots + ivxNetAddr_PortID, &port);
if (err) return err;
unsigned long ulAddress = (unsigned int)addr;
using namespace boost::asio;
ip::udp::endpoint address(ip::address_v4(ulAddress), port);
gUDPport->Socket().send_to( buffer(bufptr, msglen), address );
}
return errNone;
}
int prNetAddr_Connect(VMGlobals *g, int numArgsPushed)
{
PyrSlot* netAddrSlot = g->sp;
PyrObject* netAddrObj = netAddrSlot->uo;
int err, port, addr;
err = slotIntVal(netAddrObj->slots + ivxNetAddr_PortID, &port);
if (err) return err;
err = slotIntVal(netAddrObj->slots + ivxNetAddr_Hostaddr, &addr);
if (err) return err;
struct sockaddr_in toaddr;
makeSockAddr(toaddr, addr, port);
int aSocket = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
if (aSocket == -1) {
//post("\nCould not create socket\n");
return errFailed;
}
const int on = 1;
#ifdef SC_WIN32
if (setsockopt( aSocket, IPPROTO_TCP, TCP_NODELAY, (const char*)&on, sizeof(on)) != 0) {
#else
if (setsockopt( aSocket, IPPROTO_TCP, TCP_NODELAY, &on, sizeof(on)) != 0) {
#endif
//post("\nCould not setsockopt TCP_NODELAY\n");
#ifdef SC_WIN32
closesocket(aSocket);
#else
close(aSocket);
#endif
return errFailed;
};
if(connect(aSocket,(struct sockaddr*)&toaddr,sizeof(toaddr)) != 0)
{
//post("\nCould not connect socket\n");
#ifdef SC_WIN32
closesocket(aSocket);
#else
close(aSocket);
#endif
return errFailed;
}
SC_TcpClientPort *comPort = new SC_TcpClientPort(aSocket, netAddrTcpClientNotifyFunc, netAddrObj);
SetPtr(netAddrObj->slots + ivxNetAddr_Socket, comPort);
return errNone;
}
int prNetAddr_Disconnect(VMGlobals *g, int numArgsPushed);
int prNetAddr_Disconnect(VMGlobals *g, int numArgsPushed)
{
PyrSlot* netAddrSlot = g->sp;
PyrObject* netAddrObj = netAddrSlot->uo;
SC_TcpClientPort *comPort = (SC_TcpClientPort*)(netAddrObj->slots + ivxNetAddr_Socket)->uptr;
if (comPort) comPort->Close();
return errNone;
}
