/*
 * $RCSfile: EAGUI_lib.c,v $
 *
 * $Author: Marcel_Offermans $
 *
 * $Revision: 1.7 $
 *
 * $Date: 1993/11/21 14:19:18 $
 *
 * $Locker: Marcel_Offermans $
 *
 * $State: Exp $
 */

#include "EAGUI.h"
#include "EAGUI_pragmas.h"

STATIC UBYTE rcs_id_string[] = "$Id: EAGUI_lib.c,v 1.7 1993/11/21 14:19:18 Marcel_Offermans Exp Marcel_Offermans $";

/* varargs stubs which work with SAS/C */
LONG ea_NewRelation(struct ea_Object *obj_ptr, struct Hook *relmethod_ptr, ULONG tag1, ...)
{
     return(ea_NewRelationA(obj_ptr, relmethod_ptr, (struct TagItem *)&tag1));
}

struct ea_Object *ea_NewObject(ULONG type, ULONG tag1, ...)
{
     return(ea_NewObjectA(type, (struct TagItem *)&tag1));
}

ULONG ea_GetAttrs(struct ea_Object *obj_ptr, ULONG tag1, ...)
{
     return(ea_GetAttrsA(obj_ptr, (struct TagItem *)&tag1));
}

ULONG ea_SetAttrs(struct ea_Object *obj_ptr, ULONG tag1, ...)
{
     return(ea_SetAttrsA(obj_ptr, (struct TagItem *)&tag1));
}