[perl5.git] / ext / Amiga-ARexx / tagtypes.h

/* defines types for tags */
#ifndef _TAGTYPES_H
#define _TAGTYPES_H

#define TT_APTR    1
#define TT_WORD    2
#define TT_UWORD   3
#define TT_LONG    4
#define TT_ULONG   5
#define TT_STRPTR  6
#define TT_UBYTE   7

typedef union TagReturn
{
    WORD    tr_word;
    UWORD  tr_uword;
    LONG    tr_long;
    ULONG   tr_ulong;
    STRPTR  tr_strptr;
    APTR     tr_aptr;
    UBYTE * tr_ubyte;
}
TAGRET;

#endif
Commit	Line	Data
4ceeac64 AB	1	/* defines types for tags */
	2	#ifndef _TAGTYPES_H
	3	#define _TAGTYPES_H
	4
	5	#define TT_APTR 1
	6	#define TT_WORD 2
	7	#define TT_UWORD 3
	8	#define TT_LONG 4
	9	#define TT_ULONG 5
	10	#define TT_STRPTR 6
	11	#define TT_UBYTE 7
	12
	13	typedef union TagReturn
	14	{
	15	WORD tr_word;
	16	UWORD tr_uword;
	17	LONG tr_long;
	18	ULONG tr_ulong;
	19	STRPTR tr_strptr;
	20	APTR tr_aptr;
	21	UBYTE * tr_ubyte;
	22	}
	23	TAGRET;
	24
	25	#endif