/********************************************************************************************************************************/ /* Created: 9-Mar-2021 22:28:06 by OpenVMS SDL EV3-3 */ /* Source: 09-MAR-2021 22:28:01 $1$DGA8085:[STARLET_H.SRC]STARDEFQZ.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $TPADEF ***/ #ifndef __TPADEF_LOADED #define __TPADEF_LOADED 1 #pragma __nostandard /* This file uses non-ANSI-Standard features */ #pragma __member_alignment __save #pragma __nomember_alignment #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __save /* Save the previously-defined required ptr size */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif #ifdef __cplusplus extern "C" { #define __unknown_params ... #define __optional_params ... #else #define __unknown_params #define __optional_params ... #endif #ifndef __struct #if !defined(__VAXC) #define __struct struct #else #define __struct variant_struct #endif #endif #ifndef __union #if !defined(__VAXC) #define __union union #else #define __union variant_union #endif #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 */ #ifdef __NEW_STARLET typedef 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_30_ : 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 */ #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif void *tpa$l_stringptr; /* ADDRESS OF STRING BEING PARSED */ unsigned int tpa$l_tokencnt; /* BYTE COUNT OF CURRENT MATCHING TOKEN */ void *tpa$l_tokenptr; /* ADDRESS OF MATCHING TOKEN */ __union { __struct { __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 */ } tpa$r_number_struct; unsigned __int64 tpa$q_number; /* 64-bit NUMERIC VALUE OF NUMERIC TOKEN */ } tpa$r_number_overlay; unsigned int tpa$l_param; /* PARAMETER LONGWORD FROM STATE TABLE */ } TPADEF; #if !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$r_number_struct tpa$r_number_overlay.tpa$r_number_struct #define tpa$l_char tpa$r_number_struct.tpa$r_char_overlay.tpa$l_char #define tpa$b_char tpa$r_number_struct.tpa$r_char_overlay.tpa$b_char #define tpa$l_number tpa$r_number_struct.tpa$l_number #define tpa$q_number tpa$r_number_overlay.tpa$q_number #endif /* #if !defined(__VAXC) */ #else /* __OLD_STARLET */ 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_30_ : 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 */ int tpa$l_stringptr; /* ADDRESS OF STRING BEING PARSED */ unsigned int tpa$l_tokencnt; /* BYTE COUNT OF CURRENT MATCHING TOKEN */ int tpa$l_tokenptr; /* ADDRESS OF MATCHING TOKEN */ __union { __struct { __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 */ } tpa$r_number_struct; unsigned int tpa$q_number [2]; /* 64-bit NUMERIC VALUE OF NUMERIC TOKEN */ } tpa$r_number_overlay; unsigned int tpa$l_param; /* PARAMETER LONGWORD FROM STATE TABLE */ } ; #if !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_number_overlay.tpa$r_number_struct.tpa$r_char_overlay.tpa$l_char #define tpa$b_char tpa$r_number_overlay.tpa$r_number_struct.tpa$r_char_overlay.tpa$b_char #define tpa$l_number tpa$r_number_overlay.tpa$r_number_struct.tpa$l_number #define tpa$q_number tpa$r_number_overlay.tpa$q_number #endif /* #if !defined(__VAXC) */ #endif /* #ifdef __NEW_STARLET */ /* */ /* TPARSE CONTROL BLOCK. THIS BLOCK IS ONE OF THE ARGUMENTS USED TO CALL TPARSE, */ /* AND BECOMES THE ARGUMENT LIST TO ACTION ROUTINES. */ /* */ #define TPA64$K_COUNT0 -1 /* ZERO LEVEL VALUE IS -1 */ #define TPA64$M_BLANKS 0x1 #define TPA64$M_ABBREV 0x2 #define TPA64$M_ABBRFM 0x4 #define TPA64$M_AMBIG 0x10000 #define TPA64$K_LENGTH0 80 /* LENGTH OF ZERO LEVEL PARAMETER BLOCK */ #define TPA64$C_LENGTH0 80 /* LENGTH OF ZERO LEVEL PARAMETER BLOCK */ #ifdef __NEW_STARLET typedef struct _tpa64def { unsigned int tpa64$l_count; /* ARGUMENT COUNT (NUMBER OF LONGWORDS) */ __union { unsigned int tpa64$l_options; /* OPTIONS LONGWORD */ __struct { unsigned tpa64$v_blanks : 1; /* PROCESS BLANKS AND TABS EXPLICITLY */ unsigned tpa64$v_abbrev : 1; /* ALLOW MINIMAL ABBREVIATION */ unsigned tpa64$v_abbrfm : 1; /* ALLOW FIRST MATCH ABBREVIATION */ unsigned tpa64def$$_fill_1 : 13; unsigned tpa64$v_ambig : 1; /* AMBIGUOUS KEYWORD AT THIS STATE */ unsigned tpa64$v_fill_31_ : 7; } tpa64$r_options_bits; __struct { char tpa64def$$_fill_2 [3]; unsigned char tpa64$b_mcount; /* MINIMUM ABBREVIATION ON KEYWORDS */ } tpa64$r_options_fields; } tpa64$r_options_overlay; unsigned __int64 tpa64$q_stringdesc; /* DSC64 first quadword of string being parsed */ unsigned __int64 tpa64$q_stringcnt; /* BYTE COUNT OF STRING BEING PARSED */ #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *tpa64$q_stringptr; /* ADDRESS OF STRING BEING PARSED */ #else unsigned __int64 tpa64$q_stringptr; #endif unsigned __int64 tpa64$q_tokendesc; /* DSC64 first quadword OF CURRENT MATCHING TOKEN */ unsigned __int64 tpa64$q_tokencnt; /* BYTE COUNT OF CURRENT MATCHING TOKEN */ #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __long /* And set ptr size default to 64-bit pointers */ void *tpa64$q_tokenptr; /* ADDRESS OF MATCHING TOKEN */ #else unsigned __int64 tpa64$q_tokenptr; #endif __union { unsigned __int64 tpa64$q_char; /* ASCII CODE OF SINGLE CHARACTER TOKEN */ unsigned char tpa64$b_char; /* BYTE FORM OF SINGLE CHAR CELL */ } tpa64$r_char_overlay; unsigned __int64 tpa64$q_number; /* NUMERIC VALUE OF NUMERIC TOKEN */ unsigned __int64 tpa64$q_param; /* PARAMETER LONGWORD FROM STATE TABLE */ } TPA64DEF; #if !defined(__VAXC) #define tpa64$l_options tpa64$r_options_overlay.tpa64$l_options #define tpa64$v_blanks tpa64$r_options_overlay.tpa64$r_options_bits.tpa64$v_blanks #define tpa64$v_abbrev tpa64$r_options_overlay.tpa64$r_options_bits.tpa64$v_abbrev #define tpa64$v_abbrfm tpa64$r_options_overlay.tpa64$r_options_bits.tpa64$v_abbrfm #define tpa64$v_ambig tpa64$r_options_overlay.tpa64$r_options_bits.tpa64$v_ambig #define tpa64$b_mcount tpa64$r_options_overlay.tpa64$r_options_fields.tpa64$b_mcount #define tpa64$q_char tpa64$r_char_overlay.tpa64$q_char #define tpa64$b_char tpa64$r_char_overlay.tpa64$b_char #endif /* #if !defined(__VAXC) */ #else /* __OLD_STARLET */ struct tpa64def { unsigned int tpa64$l_count; /* ARGUMENT COUNT (NUMBER OF LONGWORDS) */ __union { unsigned int tpa64$l_options; /* OPTIONS LONGWORD */ __struct { unsigned tpa64$v_blanks : 1; /* PROCESS BLANKS AND TABS EXPLICITLY */ unsigned tpa64$v_abbrev : 1; /* ALLOW MINIMAL ABBREVIATION */ unsigned tpa64$v_abbrfm : 1; /* ALLOW FIRST MATCH ABBREVIATION */ unsigned tpa64def$$_fill_1 : 13; unsigned tpa64$v_ambig : 1; /* AMBIGUOUS KEYWORD AT THIS STATE */ unsigned tpa64$v_fill_31_ : 7; } tpa64$r_options_bits; __struct { char tpa64def$$_fill_2 [3]; unsigned char tpa64$b_mcount; /* MINIMUM ABBREVIATION ON KEYWORDS */ } tpa64$r_options_fields; } tpa64$r_options_overlay; unsigned int tpa64$q_stringdesc [2]; /* DSC64 first quadword of string being parsed */ unsigned int tpa64$q_stringcnt [2]; /* BYTE COUNT OF STRING BEING PARSED */ unsigned __int64 tpa64$q_stringptr; /* ADDRESS OF STRING BEING PARSED */ unsigned int tpa64$q_tokendesc [2]; /* DSC64 first quadword OF CURRENT MATCHING TOKEN */ unsigned int tpa64$q_tokencnt [2]; /* BYTE COUNT OF CURRENT MATCHING TOKEN */ unsigned __int64 tpa64$q_tokenptr; /* ADDRESS OF MATCHING TOKEN */ __union { unsigned int tpa64$q_char [2]; /* ASCII CODE OF SINGLE CHARACTER TOKEN */ unsigned char tpa64$b_char; /* BYTE FORM OF SINGLE CHAR CELL */ } tpa64$r_char_overlay; unsigned int tpa64$q_number [2]; /* NUMERIC VALUE OF NUMERIC TOKEN */ unsigned int tpa64$q_param [2]; /* PARAMETER LONGWORD FROM STATE TABLE */ } ; #if !defined(__VAXC) #define tpa64$l_options tpa64$r_options_overlay.tpa64$l_options #define tpa64$v_blanks tpa64$r_options_overlay.tpa64$r_options_bits.tpa64$v_blanks #define tpa64$v_abbrev tpa64$r_options_overlay.tpa64$r_options_bits.tpa64$v_abbrev #define tpa64$v_abbrfm tpa64$r_options_overlay.tpa64$r_options_bits.tpa64$v_abbrfm #define tpa64$v_ambig tpa64$r_options_overlay.tpa64$r_options_bits.tpa64$v_ambig #define tpa64$b_mcount tpa64$r_options_overlay.tpa64$r_options_fields.tpa64$b_mcount #define tpa64$q_char tpa64$r_char_overlay.tpa64$q_char #define tpa64$b_char tpa64$r_char_overlay.tpa64$b_char #endif /* #if !defined(__VAXC) */ #endif /* #ifdef __NEW_STARLET */ #pragma __member_alignment __restore #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __restore /* Restore the previously-defined required ptr size */ #endif #ifdef __cplusplus } #endif #pragma __standard #endif /* __TPADEF_LOADED */