/*
 *	Aes object library interface
 *
 *	    objc_add	      Add an object to an object tree
 *	    objc_delete       Delete an object from an object tree
 *	    objc_draw	      Draw an Object
 *	    objc_find	      Find an Object under mouse
 *	    objc_offset       Compute offset of object relative to screen
 *	    objc_order        Move an object to a new position
 *	    objc_edit	      Let user edit text in an object
 *	    objc_change       Change an Objects state
 *
 *		++jrb	bammi@cadence.com
 *		modified: mj -- ntomczak@vm.ucs.ualberta.ca
 */
#include "common.h"

#ifdef __DEF_ALL__

#define L_objc_add
#define L_objc_del
#define L_objc_dra
#define L_objc_fin
#define L_objc_off
#define L_objc_ord
#define L_objc_edi
#define L_objc_cha

#endif /* __DEF_ALL__ */


#ifdef L_objc_add

/* Add an Object to tree
 *	return 0 on error	>0 no error
 */
int objc_add(void *Tree, int Parent, int Child)
{
    _int_in[0] = Parent;
    _int_in[1] = Child;
    _addrin[0] = Tree;
    return __aes__(AES_CONTROL_ENCODE(40, 2, 1, 1));
}
#endif /* L_objc_add */

#ifdef L_objc_del

/* Delete an Object from a tree
 *	return 0 on error	>0 no error
 */
int objc_delete(void *Tree, int Object)
{
    _addrin[0] = Tree;
    _int_in[0]  = Object;
    return __aes__(AES_CONTROL_ENCODE(41, 1, 1, 1));
}
#endif /* L_objc_del */


#ifdef L_objc_dra

/* Draw an Object
 *	Tree	Address of Tree containing Object
 *	Start	Index of Starting Object
 *	Depth	max depth to draw to
 *	Cx, Cy, Cw, Ch define the clipping rectangle
 *
 *	return 0 on error	>0 no error
 */
int objc_draw(void *Tree, int Start, int Depth,
	      int Cx, int Cy, int Cw, int Ch)
{
    _int_in[0] = Start;
    _int_in[1] = Depth;
    _int_in[2] = Cx;
    _int_in[3] = Cy;
    _int_in[4] = Cw;
    _int_in[5] = Ch;
    _addrin[0] = Tree;
    
    return __aes__(AES_CONTROL_ENCODE(42, 6, 1, 1));
}
#endif /* L_objc_dra */


#ifdef L_objc_fin

/* Find an object under mouse form
 *	Tree	Address of tree containing object Start
 *	Start	The object at which to start the search
 *	Depth	Max depth of tree to search
 *	Mx, My	mouse Location
 *
 *	returns	Index of object found (0 thru n), -1 == no object
 */
int objc_find(void *Tree, int Start, int Depth, int Mx, int My)
{
    _int_in[0] = Start;
    _int_in[1] = Depth;
    _int_in[2] = Mx;
    _int_in[3] = My;
    _addrin[0] = Tree;

    return __aes__(AES_CONTROL_ENCODE(43, 4, 1, 1));
}
#endif /* L_objc_fin */

#ifdef L_objc_off

/* Compute Object offset rel. to screen
 *	returns 0 on error	>0 no error
 */
int objc_offset(void *Tree, int Object,
		int  *X, int *Y)
{
    int retval;
    
    _addrin[0] = Tree;
    _int_in[0] = Object;
    
    retval = __aes__(AES_CONTROL_ENCODE(44, 1, 3, 1));

    *X = _int_out[1];
    *Y = _int_out[2];

    return retval;
}
#endif /* L_objc_off */


#ifdef L_objc_ord

/* Move an Object to NewPos in Tree
 *	returns 0 on error	>0 no error
 */
int objc_order(void *Tree, int Object, int NewPos)
{
    _int_in[0] = Object;
    _int_in[1] = NewPos;
    _addrin[0] = Tree;
    
    return __aes__(AES_CONTROL_ENCODE(45, 2, 1, 1));
}
#endif /* L_objc_ord */


#ifdef L_objc_edi

/* Let user edit text in Object
 *	returns 0 on error	>0 no error
 */
int objc_edit(void *Tree, int Object, int Char, int Index, int Kind,
	      int *NewIndex)
{
    int retval;
    
    _int_in[0] = Object;
    _int_in[1] = Char;
    _int_in[2] = Index;
    _int_in[3] = Kind;
    _addrin[0] = Tree;

    retval = __aes__(AES_CONTROL_ENCODE(46, 4, 2, 1));

    *NewIndex = _int_out[1];
    
    return retval;
}
#endif /* L_objc_edi */

#ifdef L_objc_cha

/* Ch.State of Ob
 *	returns 0 on error	>0 no error
 */
int objc_change(void *Tree, int Object, int Res, int Cx, int Cy, int Cw,
		int Ch,	int NewState, int Redraw)
{
    _int_in[0] = Object;
    _int_in[1] = Res;	/* reserved (for what?) */
    _int_in[2] = Cx;
    _int_in[3] = Cy;
    _int_in[4] = Cw;
    _int_in[5] = Ch;
    _int_in[6] = NewState;
    _int_in[7] = Redraw;
    _addrin[0] = Tree;
    
    return __aes__(AES_CONTROL_ENCODE(47, 8, 1, 1));
}
#endif /* L_objc_cha */
	
/* - eof - */