XS(XS_REGTEST_rcv_msg)
{
    dXSARGS;
    if (items != 8)
	Perl_croak(aTHX_ "Usage: REGTEST::rcv_msg(query, queryLen, testHost, testPort, prodHost, prodPort, testMsg, prodMsg)");
    {
	char *	int	char *	char *	char *	char *	char *	testMsg;
	char *	prodMsg;
	int	RETVAL;

	RETVAL = rcv_msg(query, queryLen, testHost, testPort, prodHost, prodPort, testMsg, prodMsg);
    }
    XSRETURN(1);
}


##</code><code>##

void
GetBorders(handle)
    HWND handle
PREINIT:
    int aBorders [3];
PPCODE:
    if(SendMessage(handle, SB_GETBORDERS, (WPARAM) 0, (LPARAM) aBorders) == TRUE) {
        EXTEND(SP,3);
        XST_mIV(0,aBorders[0]);
        XST_mIV(1,aBorders[1]);
        XST_mIV(2,aBorders[2]);
        XSRETURN(3);
    }
    else {
        XSRETURN_UNDEF;
    }

##</code><code>##

void
tdxs_wait_for_response()
	PPCODE:
		I32 result = EM_OK;
		I32 sessid = 0;
		I32 token = 0;
		char *cnta = NULL;
		DBCHWAT(&result, cnta, &sessid, &token);
		EXTEND(SP, 3);
		if (result != EM_OK) {
			PUSHs(&PL_sv_undef);
			PUSHs(sv_2mortal(newSViv(result)));
			PUSHs(&PL_sv_undef);
			XSRETURN(3);
		}
		PUSHs(sv_2mortal(newSViv(sessid)));
		PUSHs(sv_2mortal(newSViv(0)));
		PUSHs(&PL_sv_undef);
		XSRETURN(3);