# -*-c-*-
#
# $Id: 36MQGET,v 25.1 2004/01/14 19:10:10 biersma Exp $
#
# (c) 1999-2004 Morgan Stanley Dean Witter and Co.
# See ..../src/LICENSE for terms of distribution.
#

SV *
MQGET(Hconn,Hobj,MsgDesc,GetMsgOpts,Length,CompCode,Reason)
	MQHCONN	Hconn
	MQHOBJ	Hobj
	MQMD	MsgDesc
	MQGMO	GetMsgOpts
	MQLONG  Length
	MQLONG	CompCode
	MQLONG	Reason

	CODE:
	{
	PMQCHAR pBuffer = NULL; /* guess at the beginning size */
	MQLONG  bufLen  = Length;
	MQLONG  dataLen = 0;

	CompCode = MQCC_FAILED;
	Reason = MQRC_UNEXPECTED_ERROR;
	sv_setiv(ST(5),(IV)CompCode);
	sv_setiv(ST(6),(IV)Reason);
	
	if ( (pBuffer = (PMQCHAR)malloc(bufLen)) == NULL ) {
	  warn("Unable to allocate memory in MQGET!\n");
	  XSRETURN_EMPTY;
	}

	/*
	 * We set the MQMD and MQGMO version to 2, so users of
	 * segmentation or grouping won't have to do this manually.
	 */
	if (MsgDesc.Version < MQMD_VERSION_2) {
	  MsgDesc.Version = MQMD_VERSION_2;
	}
	if (GetMsgOpts.Version < MQGMO_VERSION_2) {
	  GetMsgOpts.Version = MQGMO_VERSION_2;
	}

	MQGET(Hconn,Hobj,&MsgDesc,&GetMsgOpts,bufLen,pBuffer,&dataLen,&CompCode,&Reason);
	Length = dataLen;
	if (CompCode != MQCC_FAILED) {
	  RETVAL = newSVpvn(pBuffer,(dataLen < bufLen ? dataLen : bufLen));
	}
	else
	  RETVAL = newSV(0);

	if (pBuffer)
	  free(pBuffer);
	}
	OUTPUT:
	RETVAL
	MsgDesc
	GetMsgOpts
	Length
	CompCode
	Reason