APTR                   T_PTR
intArray *             T_ARRAY
UWORD                  T_UV
ULONG                  T_UV
WORD                   T_IV
LONG                   T_IV
BOOL                   T_IV
TagList *              T_TAGLIST

#############################################################################
INPUT
T_TAGLIST
        U32 ix_$var = $argoff;
        U32 _tag_type;
        /* allocate taglist struct, +2 as tags lists end in a TAG_DONE by tradition */
        /* if by some chance someone  adds something after the TAG_DONE it will just*/
        /* result in harmless empty space */
        $var = $ntype((items -= $argoff) +2);
        while(items > 0)
        {
            int __index = (ix_$var - $argoff)/3;
            $var\[__index\].ti_Tag = (ULONG)SvUV(ST(ix_$var));
            ix_$var++;
            items--;
            /* the last is a tag_done and usualy has no followers so check for > 1 */
            if(items > 1 && ($var\[__index\].ti_Tag != TAG_DONE))
            {
                _tag_type = (ULONG)SvUV(ST(ix_$var));
                ix_$var++;
                switch(_tag_type)
                {
                    case TT_APTR:
                            $var\[__index\].ti_Data = (ULONG)INT2PTR(APTR,SvIV(ST(ix_$var)));
                        break;
                    case TT_WORD:
                            $var\[__index\].ti_Data = (WORD)SvIV(ST(ix_$var));
                        break;
                    case TT_LONG:
                            $var\[__index\].ti_Data = (LONG)SvIV(ST(ix_$var));
                        break;
                    case TT_UWORD:
                            $var\[__index\].ti_Data = (UWORD)SvUV(ST(ix_$var));
                        break;
                    case TT_ULONG:
                            $var\[__index\].ti_Data = (ULONG)SvUV(ST(ix_$var));
                        break;
                    case TT_STRPTR:
                    case TT_UBYTE:
                            $var\[__index\].ti_Data = (ULONG)(STRPTR)SvPV_nolen(ST(ix_$var));
                        break;
                    default:
                        Perl_croak(aTHX_ \"Unkown TAGTYPE \%d\",_tag_type);
                }
                ix_$var++;
                items -=2;
            }
        }

