/*
    $Id: attemptremnamedobject.c,v 1.2 1997/01/27 00:32:30 ldp Exp $
    $Log: attemptremnamedobject.c,v $
    Revision 1.2  1997/01/27 00:32:30  ldp
    Polish

    Revision 1.1  1996/12/18 01:27:35  iaint
    NamedObjects

    Desc: AttemptRemNamedObject() - attempt to remove a NamedObject
    Lang: english
*/
#include "utility_intern.h"

/*****************************************************************************

    NAME */
        #include <proto/utility.h>

        AROS_LH1(LONG, AttemptRemNamedObject,

/*  SYNOPSIS */
        AROS_LHA(struct NamedObject *, object, A0),

/*  LOCATION */
        struct Library *, UtilityBase, 39, Utility)

/*  FUNCTION
        Checks to see whether a NamedObject can be removed. If the object
        is in use, or in the process of being removed, this function will
        return a failure code. If the object can be removed, this function
        will remove it and the object will be available for freeing.
        You must have previously have called FindNamedObject() on this
        object.

    INPUTS
        object      - NamedObject to attempt to remove. The address of the
                        NameSpace is contained within the NamedObject.

    RESULT
        If the NamedObject can be removed, then it will be removed from
        the list. Otherwise the routine will just return.

        If the NamedObject has a removal message associated with it that
        message will be returned to the owner of the NamedObject.

    NOTES

    EXAMPLE

    BUGS

    SEE ALSO
        utility/name.h RemNamedObject(), AddNamedObject()

    INTERNALS

    HISTORY
        29-10-95    digulla automatically created from
                            utility_lib.fd and clib/utility_protos.h
        11-08-96    iaint   Adapted from stuff I did.

*****************************************************************************/
{
    AROS_LIBFUNC_INIT

    struct IntNamedObject *no = GetIntNamedObject(object);

    if(no->no_UseCount > 1)
    {
        return FALSE;
    }
    else
    {
        RemNamedObject( object, NULL );
        return TRUE;
    }

    AROS_LIBFUNC_EXIT

} /* AttemptRemNamedObject */