/*
 *	Aes resource library interface
 *
 *		rsrc_load		Load a resource into memory
 *		rsrc_free		Free memory allocated by rsrc_load
 *		rsrc_gaddr		Gets the address of a resource tree
 *		rsrc_saddr		Stores the address of a resource in memory
 *		rsrc_obfix		Converts Char to Pixel coordinate for obj loc.
 *
 *		++jrb	bammi@cadence.com
 *		modified: mj -- ntomczak@vm.ucs.ualberta.ca
 */

#include "common.h"

/* Load a resource file into memory
 *	return =0 on error	>0 no error
 */

#ifdef __DEF_ALL__

#define L_rsrc_loa
#define L_rsrc_fre
#define L_rsrc_gad
#define L_rsrc_sad
#define L_rsrc_obf

#endif /* __DEF_ALL__ */


#ifdef L_rsrc_loa

int rsrc_load(char *Name)
{
	_addrin[0] = Name;
	return __aes__(AES_CONTROL_ENCODE(110, 0, 1, 1));
}
#endif /* L_rsrc_loa */

#ifdef L_rsrc_fre

/* Free memory allocated by rsrc_load
 *	return =0 error >0 no error
 */
int rsrc_free(void)
{
	return __aes__(AES_CONTROL_ENCODE(111, 0, 1, 0));
}
#endif /* L_rsrc_fre */


#ifdef L_rsrc_gad

/* get the address of resource in mem
 *
 * Type: see object types below
 *	returns 0 on error	>0 no error
 */
int rsrc_gaddr(int Type, int Index, /* inputs  */
		   void **Address)		/* outputs */
{
	int retval;

	_int_in[0] = Type;	/* type of object (see below) */
	_int_in[1] = Index;

#ifdef __OLD__
	/* see hack in common.c for control[4] */
	retval =  __aes__(AES_CONTROL_ENCODE(112, 2, 1, 0));
#else
	_control[4] = 1;
	retval =  __aes__(AES_CONTROL_ENCODE(112, 2, 1, 0));
	_control[4] = 0;
#endif
	*Address = _addrout[0];
	return retval;
}
#endif /* L_rsrc_gad */

#ifdef L_rsrc_sad

/* store addr of data struct in mem
 *	return	=0 error	>0 no error
 */
int rsrc_saddr(int Type, int Index, void *Address)
{
	_int_in[0] = Type;
	_int_in[1] = Index;
	_addrin[0] = Address;
	return __aes__(AES_CONTROL_ENCODE(113, 2, 1, 1));
}
#endif /* L_rsrc_sad */

#ifdef L_rsrc_obf

/* Fix pixel coordinate of Object
 *	always returns 1
 */
int rsrc_obfix(void *Tree, int Index)
{
	_int_in[0] = Index;   /* Index of Object in Tree */
	_addrin[0] = Tree;	  /* Address of Tree containing Object */
	return __aes__(AES_CONTROL_ENCODE(114, 1, 1, 1));
}
#endif /* L_rsrc_obf */


/*
 *	Object Types
 *	0	Tree
 *	1	Object
 *	2	TedInfo (for any object containing an editable string)
 *	3	IconBlk
 *	4	BitBlock
 *	5	string
 *	6	image data
 *	7	obspec
 *	8	te_ptext	text field of a Tedinfo
 *	9	te_ptmplt	template field of a TedInfo
 *	10	te_pvalid	valid field of a TedInfo
 *	11	ib_pmask	for Icon Block
 *	12	ib_pdata
 *	13	ib_ptext
 *	14	bi_pdata	for BitBlock
 *	15	ad_frstr	address of pointer to free string
 *	16	ad_frimg	address of pointer to free image
 */

/* - eof - */