/*
    (C) 1995-96 AROS - The Amiga Replacement OS
    $Id: findtooltype.c,v 1.1 1997/02/03 13:34:32 digulla Exp $

    Desc:
    Lang: english
*/
#include "icon_intern.h"

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

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

	AROS_LH2(UBYTE *, FindToolType,

/*  SYNOPSIS */
	AROS_LHA(UBYTE **, toolTypeArray, A0),
	AROS_LHA(UBYTE  *, typeName, A1),

/*  LOCATION */
	struct Library *, IconBase, 16, Icon)

/*  FUNCTION
	Finds the supplied typeName inside the given toolTypeArray.

    INPUTS
	toolTypeArray  -  pointer to an array of tooltype strings.
	typeName      -  name of a specific tool-type.

    RESULT
	NULL if the tooltype wasn't found and a pointer to the value
	of the tooltype otherwise.

    NOTES

    EXAMPLE

    BUGS

    SEE ALSO
	MatchToolValue()

    INTERNALS

    HISTORY

*****************************************************************************/
{
    AROS_LIBFUNC_INIT
    AROS_LIBBASE_EXT_DECL(struct Library *,IconBase)
    ULONG typenamelen;

    typenamelen = strlen(typeName);

    while (*toolTypeArray)
    {
	/* case sensetive compare */
	if (!strncmp (*toolTypeArray, typeName, typenamelen) )
	{
	    /* Only a toolTypeArray if next char is '=' */
	    if ((*toolTypeArray)[typenamelen] == '=')
		return (*toolTypeArray+typenamelen+1);
	}

	toolTypeArray ++;
    }

    return NULL;
    AROS_LIBFUNC_EXIT
} /* FindToolType */