#ifndef __MXMACROS_LOADED
#define __MXMACROS_LOADED 1
 
#include	<descrip.h>
#include	<iledef.h>
#define	__NEW_STARLET	1
#include	"mxdef.h"

#ifdef __DECC
#include <builtins.h>
#else
#pragma builtins
#endif


#define	INIT_DDESC(dsc)			{(dsc).dsc$b_dtype = DSC$K_DTYPE_T;\
			(dsc).dsc$b_class = DSC$K_CLASS_D;(dsc).dsc$w_length = 0;\
			(dsc).dsc$a_pointer = 0;}

#define	INIT_SDESC(dsc, len, ptr)	{(dsc).dsc$b_dtype = DSC$K_DTYPE_T;\
			(dsc).dsc$b_class = DSC$K_CLASS_S; (dsc).dsc$w_length = (short) (len);\
			(dsc).dsc$a_pointer = (ptr);}

#define INIT_ILE3(i,l,c,b,r)		{(i).ile3$w_length = (l);\
			(i).ile3$w_code = (c); (i).ile3$ps_bufaddr = (b);\
			(i).ile3$ps_retlen_addr = (r);}



#define	min(x,y)	((x > y)?y:x)
#define	max(x,y)	((x < y)?y:x)

#define	$MX_QUE(n)	MX_QUE n = {&n,&n}
#define	$MX_TXT(n)	MX_TXT n = {&n,&n}
#define	$MX_RCPT(n)	MX_RCPT n = {&n,&n}
#define	$MX_ENVL(n)	MX_ENVL n = {&n,&n,\
			.envl$l_rcptcount = 0,\
			.envl$r_rcptque = {&(n).envl$r_rcptque,&(n).envl$r_rcptque}}

#define	$MX_QENT(n)	MX_QENT n = {.qent$l_flqver = FLQ_K_VER}
#endif /* __MXMACROS_LOADED */