/**************************************************************************
 *
 * AESFAST PD utilties.
 *
 *  Object-related utilities 5...
 *   obj_xtfind
 *
 * 05/26/90 - v1.4 
 *            >  This module is new with this release.
 *************************************************************************/

#include <gemfast.h>

/**************************************************************************
 *
 * obj_xtfind - Return index of object with specified extended object type.
 *
 *************************************************************************/

obj_xtfind(ptree, parent, xtype)
    register OBJECT *ptree;
    register int    parent; 
    register char   xtype;
{
    register int    curobj;

    curobj = ptree[parent].ob_head;
    while(curobj != parent && curobj != -1) {
        if (xtype == *(char *)&(ptree[curobj].ob_type)) { 
            return curobj;
        }
        curobj = ptree[curobj].ob_next; 
    }
    return -1;
}