/********************************************************************************************************************************/ /* Created: 30-Mar-2010 17:29:24 by OpenVMS SDL EV3-3 */ /* Source: 30-MAR-2010 17:29:18 $1$DGA7274:[STARLET_H.SRC]CRF.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $CRFDEF ***/ #ifndef __CRFDEF_LOADED #define __CRFDEF_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 /* */ /* CRF$INSRTREF ARGUMENT LIST */ /* */ #ifdef __NEW_STARLET typedef struct _crfdef { int crfdef$$_fill_1; /* ARGUMENT COUNT */ unsigned int crf$l_ir_ctltbl; /* CRF CONTROL TABLE ADR */ unsigned int crf$l_ir_keyadr; /* KEY ADDRESS */ unsigned int crf$l_ir_refadr; /* REFERENCE INDICATOR ADR */ unsigned short int crf$w_ir_reflag; /* REFERENCE INDICATOR FLAGS */ char crfdef$$_fill_2 [2]; /* UNUSED */ unsigned char crf$b_ir_defind; /* DEFINITION INDICATOR */ char crfdef$$_fill_3 [3]; /* UNUSED */ } CRFDEF; #else /* __OLD_STARLET */ struct crfdef { int crfdef$$_fill_1; /* ARGUMENT COUNT */ unsigned int crf$l_ir_ctltbl; /* CRF CONTROL TABLE ADR */ unsigned int crf$l_ir_keyadr; /* KEY ADDRESS */ unsigned int crf$l_ir_refadr; /* REFERENCE INDICATOR ADR */ unsigned short int crf$w_ir_reflag; /* REFERENCE INDICATOR FLAGS */ char crfdef$$_fill_2 [2]; /* UNUSED */ unsigned char crf$b_ir_defind; /* DEFINITION INDICATOR */ char crfdef$$_fill_3 [3]; /* UNUSED */ } ; #endif /* #ifdef __NEW_STARLET */ /* */ /* CRF$INSRTKEY ARGUMENT LIST */ /* */ #ifdef __NEW_STARLET typedef struct _crfdef1 { int crfdef$$_fill_4; /* ARGUMENT COUNT */ unsigned int crf$l_ik_ctltbl; /* CRF CONTROL TABLE ADR */ unsigned int crf$l_ik_keyadr; /* ADDRESS OF KEY */ unsigned int crf$l_ik_valadr; /* ADDRESS OF VALUE */ unsigned short int crf$w_ik_valflg; /* VALUE FLAGS */ char crfdef$$_fill_5 [2]; /* UNUSED */ } CRFDEF1; #else /* __OLD_STARLET */ struct crfdef1 { int crfdef$$_fill_4; /* ARGUMENT COUNT */ unsigned int crf$l_ik_ctltbl; /* CRF CONTROL TABLE ADR */ unsigned int crf$l_ik_keyadr; /* ADDRESS OF KEY */ unsigned int crf$l_ik_valadr; /* ADDRESS OF VALUE */ unsigned short int crf$w_ik_valflg; /* VALUE FLAGS */ char crfdef$$_fill_5 [2]; /* UNUSED */ } ; #endif /* #ifdef __NEW_STARLET */ /* */ /* CRF$OUT ARGUMENT LIST */ /* */ #ifdef __NEW_STARLET typedef struct _crfdef2 { int crfdef$$_fill_6; /* ARGUMENT COUNT */ unsigned int crf$l_ou_ctltbl; /* CRF CONTROL TABLE ADR */ unsigned int crf$l_ou_linwid; /* OUTPUT LINE WIDTH */ unsigned char crf$b_ou_pag1; /* ! LINES/PAGE 1 */ char crfdef$$_fill_7 [3]; /* UNUSED */ unsigned char crf$b_ou_sucpag; /* ! LINES/SUCCESSIVE PAGES */ char crfdef$$_fill_8 [3]; /* UNUSED */ unsigned char crf$b_ou_prtind; /* REF PRINT INDICATOR */ char crfdef$$_fill_9 [3]; /* UNUSED */ unsigned char crf$b_ou_savind; /* SAVE INDICATOR */ } CRFDEF2; #else /* __OLD_STARLET */ struct crfdef2 { int crfdef$$_fill_6; /* ARGUMENT COUNT */ unsigned int crf$l_ou_ctltbl; /* CRF CONTROL TABLE ADR */ unsigned int crf$l_ou_linwid; /* OUTPUT LINE WIDTH */ unsigned char crf$b_ou_pag1; /* ! LINES/PAGE 1 */ char crfdef$$_fill_7 [3]; /* UNUSED */ unsigned char crf$b_ou_sucpag; /* ! LINES/SUCCESSIVE PAGES */ char crfdef$$_fill_8 [3]; /* UNUSED */ unsigned char crf$b_ou_prtind; /* REF PRINT INDICATOR */ char crfdef$$_fill_9 [3]; /* UNUSED */ unsigned char crf$b_ou_savind; /* SAVE INDICATOR */ } ; #endif /* #ifdef __NEW_STARLET */ /* */ /* CRF CONTROL TABLE OFFSETS */ /* */ #define CRF$M_MULDEF 0x1 #ifdef __NEW_STARLET typedef struct _crfdef3 { unsigned int crf$l_hasht; /* HASH TABLE ADDRESS */ unsigned int crf$l_lastkey; /* LAST KEY LOOKED AT ADDRESS */ __union { unsigned char crf$b_keytype; /* TYPE OF KEY IN TABLE */ __struct { unsigned crf$v_binary : 1; /* OBSOLETE FIELD. RETAINED FOR COMPATIBLILTY */ unsigned crf$v_fill_2_ : 7; } crf$r_keytype_bits; } crf$r_keytype_overlay; __union { unsigned char crf$b_flags; /* MISC. FLAGS FOR FUTURE EXPANSION */ __struct { unsigned crf$v_muldef : 1; /* Multi-Definers */ unsigned crf$v_fill_3_ : 7; } crf$r_fill_1_; } crf$r_fill_0_; unsigned short int crf$w_errsts; /* SECONDARY ERROR STATUS CODE */ unsigned int crf$l_entries; /* NUMBER OF ENTRIES IN CROSS REFERENCE */ unsigned int crf$l_dynmem [2]; /* LISTHEAD OF DYNAMIC MEMORY */ unsigned int crf$l_maxblk; /* SIZE (IN BYTES) OF BLOCK TO ALLOCATE */ unsigned int crf$l_memexp; /* SIZE (IN PAGES) OF BLOCK TO ALLOCATE */ unsigned short int crf$w_ctltabver; /* VERSION OF CONTROL TABLE */ unsigned char crf$b_valtype; /* SYMBOL VALUE DATA TYPE (Ver 1 and later) */ unsigned char crf$b_reftype; /* SYMBOL REFERENCE DATA TYPE (Ver 1 and later) */ int crfdef$$_fill_10 [7]; /* SPARES */ unsigned int crf$l_error; /* ERROR ROUTINE ADDRESS */ unsigned int crf$l_output; /* OUTPUT ROUTINE ADDRESS */ unsigned int crf$l_k1fmtbl; /* KEY1 FIELD FORMAT TBL ADR */ unsigned int crf$l_k2fmtbl; /* KEY2 FIELD FORMAT TBL ADR */ unsigned int crf$l_v1fmtbl; /* VAL1 FIELD FORMAT TBL ADR */ unsigned int crf$l_v2fmtbl; /* VAL2 FIELD FORMAT TBL ADR */ unsigned int crf$l_r1fmtbl; /* REF1 FIELD FORMAT TBL ADR */ unsigned int crf$l_r2fmtbl; /* REF2 FIELD FORMAT TBL ADR */ } CRFDEF3; #if !defined(__VAXC) #define crf$b_keytype crf$r_keytype_overlay.crf$b_keytype #define crf$r_keytype_bits crf$r_keytype_overlay.crf$r_keytype_bits #define crf$v_binary crf$r_keytype_bits.crf$v_binary #define crf$b_flags crf$r_fill_0_.crf$b_flags #define crf$v_muldef crf$r_fill_0_.crf$r_fill_1_.crf$v_muldef #endif /* #if !defined(__VAXC) */ #else /* __OLD_STARLET */ struct crfdef3 { unsigned int crf$l_hasht; /* HASH TABLE ADDRESS */ unsigned int crf$l_lastkey; /* LAST KEY LOOKED AT ADDRESS */ __union { unsigned char crf$b_keytype; /* TYPE OF KEY IN TABLE */ __struct { unsigned crf$v_binary : 1; /* OBSOLETE FIELD. RETAINED FOR COMPATIBLILTY */ unsigned crf$v_fill_2_ : 7; } crf$r_keytype_bits; } crf$r_keytype_overlay; __union { unsigned char crf$b_flags; /* MISC. FLAGS FOR FUTURE EXPANSION */ __struct { unsigned crf$v_muldef : 1; /* Multi-Definers */ unsigned crf$v_fill_3_ : 7; } crf$r_fill_1_; } crf$r_fill_0_; unsigned short int crf$w_errsts; /* SECONDARY ERROR STATUS CODE */ unsigned int crf$l_entries; /* NUMBER OF ENTRIES IN CROSS REFERENCE */ unsigned int crf$l_dynmem [2]; /* LISTHEAD OF DYNAMIC MEMORY */ unsigned int crf$l_maxblk; /* SIZE (IN BYTES) OF BLOCK TO ALLOCATE */ unsigned int crf$l_memexp; /* SIZE (IN PAGES) OF BLOCK TO ALLOCATE */ unsigned short int crf$w_ctltabver; /* VERSION OF CONTROL TABLE */ unsigned char crf$b_valtype; /* SYMBOL VALUE DATA TYPE (Ver 1 and later) */ unsigned char crf$b_reftype; /* SYMBOL REFERENCE DATA TYPE (Ver 1 and later) */ int crfdef$$_fill_10 [7]; /* SPARES */ unsigned int crf$l_error; /* ERROR ROUTINE ADDRESS */ unsigned int crf$l_output; /* OUTPUT ROUTINE ADDRESS */ unsigned int crf$l_k1fmtbl; /* KEY1 FIELD FORMAT TBL ADR */ unsigned int crf$l_k2fmtbl; /* KEY2 FIELD FORMAT TBL ADR */ unsigned int crf$l_v1fmtbl; /* VAL1 FIELD FORMAT TBL ADR */ unsigned int crf$l_v2fmtbl; /* VAL2 FIELD FORMAT TBL ADR */ unsigned int crf$l_r1fmtbl; /* REF1 FIELD FORMAT TBL ADR */ unsigned int crf$l_r2fmtbl; /* REF2 FIELD FORMAT TBL ADR */ } ; #if !defined(__VAXC) #define crf$b_keytype crf$r_keytype_overlay.crf$b_keytype #define crf$v_binary crf$r_keytype_overlay.crf$r_keytype_bits.crf$v_binary #define crf$b_flags crf$r_fill_0_.crf$b_flags #define crf$v_muldef crf$r_fill_0_.crf$r_fill_1_.crf$v_muldef #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 /* __CRFDEF_LOADED */