/*
    $Id: packbooltags.c,v 1.6 1997/01/27 00:32:32 ldp Exp $
    $Log: packbooltags.c,v $
    Revision 1.6  1997/01/27 00:32:32  ldp
    Polish

    Revision 1.5  1996/11/21 16:41:05  aros
    Includes must start in the first column

    No includes may be used in the SEE ALSO field

    Revision 1.4  1996/10/24 22:51:46  aros
    Use proper Amiga datatypes (eg: ULONG not unsigned long)

    Revision 1.3  1996/10/24 15:51:36  aros
    Use the official AROS macros over the __AROS versions.

    Revision 1.2  1996/10/23 14:08:59  aros
    Formatted

    Added parens to all assignments which are used truth expressions

    Revision 1.1  1996/10/22 04:46:00  aros
    Some more utility.library functions.

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

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

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

	AROS_LH3(ULONG, PackBoolTags,

/*  SYNOPSIS */
	AROS_LHA(ULONG           , initialFlags, D0),
	AROS_LHA(struct TagItem *, tagList, A0),
	AROS_LHA(struct TagItem *, boolMap, A1),

/*  LOCATION */
	struct UtilityBase *, UtilityBase, 7, Utility)

/*  FUNCTION
	Scans through the list tagList to find the tags which are contained
	in the list boolMap which are then converted to a bit-flag
	representation as defined in boolMap.

	If the value of the Tag's data is 0, then the boolean value of the
	tag is defined as false, otherwise it is true.

    INPUTS
	initialFlags -	an initial set of bit-flags which will be changed
			by this function.

	tagList      -	A TagItem list which contains some tags which are
			defined as boolean by having a corresponding tag
			in boolMap. The boolean value of tag->ti_Data
			determines whether the bits in the flag are
			TRUE or FALSE.

	boolMap      -	A TagItem list containing a series of tags which
			are to be considered Boolean.

    RESULT
	flags	     -	The value of initialFlags modified by the values
			of the boolean tags defined in boolMap.

    NOTES
	If there is more than one Tag in tagList of a single type. The
	last of these tags will determine the value of that bit-flag.

    EXAMPLE

    BUGS

    SEE ALSO
	GetTagData(), FindTagItem(), NextTagItem()

    INTERNALS

    HISTORY
	29-10-95    digulla automatically created from
			    utility_lib.fd and clib/utility_protos.h
	18-08-96    iaint   Created. But still needs some testing.

*****************************************************************************/
{
    AROS_LIBFUNC_INIT
    struct TagItem *current, *found;

    while ((current = NextTagItem (&tagList)))
    {
	if ((found = FindTagItem (current->ti_Tag, boolMap)))
	{
	    if (current->ti_Data == 0)
		initialFlags &= ~(found->ti_Data);
	    else
		initialFlags |= found->ti_Data;
	}
    }

    return initialFlags;
    AROS_LIBFUNC_EXIT
} /* PackBoolTags */