/* -*-c-*-
 $Id: 21core,v 25.2 2004/01/14 19:10:06 biersma Exp $

 (c) 1999-2004 Morgan Stanley Dean Witter and Co.
 See ..../src/LICENSE for terms of distribution.
 */

MODULE = __APITYPE__::MQSeries		PACKAGE = __APITYPE__::MQSeries		

PROTOTYPES: DISABLE

MQULONG
constant_hex(name)
	char *		name

	PPCODE:
	{
	SV		*Return;
	MQULONG		 Result;

	Result = constant_hex(name);

	if ( errno ) 
	  XSRETURN_UNDEF;
	else {
	  Return = sv_newmortal();
	  sv_setuv(Return, (UV)Result);	
	  XPUSHs(Return);
	}

	}

MQLONG
constant_numeric(name)
	char *		name

	PPCODE:
	{
	SV		*Return;
	MQLONG		Result;

	Result = constant_numeric(name);

	if ( errno ) 
	  XSRETURN_UNDEF;
	else {
	  Return = sv_newmortal();
	  sv_setiv(Return, (IV)Result);	
	  XPUSHs(Return);
	}

	}

char *
constant_string(name)
	char *		name

	PPCODE:
	{
	char	tmp[256];
	int	status;
	SV	*Return;

	if ( (status = constant_string(name,tmp)) != 0 ) {
	  Return = sv_newmortal();
	  sv_setpv(Return, tmp);	
	  XPUSHs(Return);
	} else {
	  XSRETURN_UNDEF;
	}

	}

char *
constant_char(name)
	char *		name

	PPCODE:
	{
	char	tmp[1];
	int	status;
	SV	*Return;

	if ( (status = constant_char(name,tmp)) != 0 ) {
	  Return = sv_newmortal();
	  sv_setpvn(Return, tmp, 1);	
	  XPUSHs(Return);
	} else {
	  XSRETURN_UNDEF;
	}

	}