/********************************************************************************************************************************/
/* Created: 15-MAR-2001 23:38:14 by OpenVMS SDL EV1-33     */
/* Source:  15-MAR-2001 23:34:21 _$11$DUA933:[BUILD.SDL]STARDEFQZ.SDI;1 */
/********************************************************************************************************************************/
/*** MODULE $TPADEF ***/
#ifndef __TPADEF_LOADED
#define __TPADEF_LOADED 1
 
#pragma nostandard
 
#ifdef __cplusplus
    extern "C" {
#define __unknown_params ...
#else
#define __unknown_params
#endif
 
#if !defined(__VAXC) && !defined(VAXC)
#define __struct struct
#define __union union
#else
#define __struct variant_struct
#define __union variant_union
#endif
 
/*                                                                          */
/* TPARSE CONTROL BLOCK. THIS BLOCK IS ONE OF THE ARGUMENTS USED TO CALL TPARSE, */
/* AND BECOMES THE ARGUMENT LIST TO ACTION ROUTINES.                        */
/*                                                                          */
#define TPA$K_COUNT0 8                  /* ZERO LEVEL VALUE IS 8            */
#define TPA$M_BLANKS 0x1
#define TPA$M_ABBREV 0x2
#define TPA$M_ABBRFM 0x4
#define TPA$M_AMBIG 0x10000
#define TPA$K_LENGTH0 36                /* LENGTH OF ZERO LEVEL PARAMETER BLOCK  */
#define TPA$C_LENGTH0 36                /* LENGTH OF ZERO LEVEL PARAMETER BLOCK  */
struct tpadef {
    unsigned int tpa$l_count;           /* ARGUMENT COUNT (NUMBER OF LONGWORDS)  */
    __union  {
        unsigned int tpa$l_options;     /* OPTIONS LONGWORD                 */
        __struct  {
            unsigned tpa$v_blanks : 1;  /* PROCESS BLANKS AND TABS EXPLICITLY  */
            unsigned tpa$v_abbrev : 1;  /* ALLOW MINIMAL ABBREVIATION       */
            unsigned tpa$v_abbrfm : 1;  /* ALLOW FIRST MATCH ABBREVIATION   */
            unsigned tpadef$$_fill_1 : 13;
            unsigned tpa$v_ambig : 1;   /* AMBIGUOUS KEYWORD AT THIS STATE  */
            unsigned tpa$v_fill_12 : 7;
            } tpa$r_options_bits;
        __struct  {
            char tpadef$$_fill_2 [3];
            unsigned char tpa$b_mcount; /* MINIMUM ABBREVIATION ON KEYWORDS  */
            } tpa$r_options_fields;
        } tpa$r_options_overlay;
    unsigned int tpa$l_stringcnt;       /* BYTE COUNT OF STRING BEING PARSED  */
    unsigned int tpa$l_stringptr;       /* ADDRESS OF STRING BEING PARSED   */
    unsigned int tpa$l_tokencnt;        /* BYTE COUNT OF CURRENT MATCHING TOKEN  */
    unsigned int tpa$l_tokenptr;        /* ADDRESS OF MATCHING TOKEN        */
    __union  {
        unsigned int tpa$l_char;        /* ASCII CODE OF SINGLE CHARACTER TOKEN  */
        unsigned char tpa$b_char;       /* BYTE FORM OF SINGLE CHAR CELL    */
        } tpa$r_char_overlay;
    unsigned int tpa$l_number;          /* NUMERIC VALUE OF NUMERIC TOKEN   */
    unsigned int tpa$l_param;           /* PARAMETER LONGWORD FROM STATE TABLE  */
    } ;
 
#if !defined(__VAXC) && !defined(VAXC)
#define tpa$l_options tpa$r_options_overlay.tpa$l_options
#define tpa$v_blanks tpa$r_options_overlay.tpa$r_options_bits.tpa$v_blanks
#define tpa$v_abbrev tpa$r_options_overlay.tpa$r_options_bits.tpa$v_abbrev
#define tpa$v_abbrfm tpa$r_options_overlay.tpa$r_options_bits.tpa$v_abbrfm
#define tpa$v_ambig tpa$r_options_overlay.tpa$r_options_bits.tpa$v_ambig
#define tpa$b_mcount tpa$r_options_overlay.tpa$r_options_fields.tpa$b_mcount
#define tpa$l_char tpa$r_char_overlay.tpa$l_char
#define tpa$b_char tpa$r_char_overlay.tpa$b_char
#endif		/* #if !defined(__VAXC) && !defined(VAXC) */
 
 
#ifdef __cplusplus
    }
#endif
#pragma standard
 
#endif /* __TPADEF_LOADED */