/********************************************************************************************************************************/ /* Created: 30-Mar-2010 17:29:31 by OpenVMS SDL EV3-3 */ /* Source: 30-MAR-2010 17:29:19 $1$DGA7274:[STARLET_H.SRC]LBRUSR.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $MHDDEF ***/ #ifndef __MHDDEF_LOADED #define __MHDDEF_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 /* */ /* Module header */ /* */ #define MHD$C_MHDID 173 /* Value that must be in the ident */ #define MHD$K_REFLNG 8 /* Length of record to end of ref count */ #define MHD$C_REFLNG 8 /* Length of record to end of ref count */ #define MHD$K_INSTIME 8 /* Label for start of insert time */ #define MHD$C_INSTIME 8 /* Label for start of insert time */ #define MHD$K_USRDAT 16 /* Start of user additional header data */ #define MHD$C_USRDAT 16 /* Start of user additional header data */ #define MHD$K_MHDLEN 16 /* Length of fixed part of MHD */ #define MHD$C_MHDLEN 16 /* Length of fixed part of MHD */ #define MHD$M_SELSRC 0x1 #define MHD$M_OBJTIR 0x2 #define MHD$M_WKSYM 0x4 #define MHD$K_OBJIDENT 18 /* */ #define MHD$C_OBJIDENT 18 /* */ #define MHD$K_OREFOFFSET 52 /* Offset of the other ref. count */ #define MHD$C_OREFOFFSET 52 /* Offset of the other ref. count */ #ifdef __NEW_STARLET typedef struct _mhddef { unsigned char mhd$b_lbrflag; /* Librarian-controlled flag byte */ unsigned char mhd$b_id; /* Ident */ short int mhddef$$_fill_1; /* Reserved word */ unsigned int mhd$l_refcnt; /* Reference count */ unsigned int mhd$l_datim; /* Date/time inserted */ __union { int mhddef$$_fill_2; /* ... */ __struct { char mhddef$$_fill_3 [4]; } mhd$r_fill_2_fields; } mhd$r_fill_2_overlay; __union { unsigned char mhd$b_objstat; /* Status of object module */ __struct { unsigned mhd$v_selsrc : 1; /* Selective search */ unsigned mhd$v_objtir : 1; /* Module contains TIR records */ unsigned mhd$v_wksym : 1; /* Module contains other non-group global symbol */ unsigned mhd$v_fill_1_ : 5; } mhd$r_objstat_bits; } mhd$r_objstat_overlay; __union { unsigned char mhd$b_objidlng; /* Length of ident */ __struct { char mhddef$$_fill_4; } mhd$r_objidlng_fields; } mhd$r_objidlng_overlay; char mhddef$$_fill_5 [31]; /* Object module ident data or GSMATCH area */ char mhddef$$_fill_6 [3]; /* space */ unsigned int mhd$l_otherefcnt; /* Other reference count */ unsigned int mhd$l_modsize; /* Module size */ unsigned int mhd$l_fill_7; /* part of module size. */ } MHDDEF; #if !defined(__VAXC) #define mhd$r_fill_2_fields mhd$r_fill_2_overlay.mhd$r_fill_2_fields #define mhd$b_objstat mhd$r_objstat_overlay.mhd$b_objstat #define mhd$r_objstat_bits mhd$r_objstat_overlay.mhd$r_objstat_bits #define mhd$v_selsrc mhd$r_objstat_bits.mhd$v_selsrc #define mhd$v_objtir mhd$r_objstat_bits.mhd$v_objtir #define mhd$v_wksym mhd$r_objstat_bits.mhd$v_wksym #define mhd$b_objidlng mhd$r_objidlng_overlay.mhd$b_objidlng #define mhd$r_objidlng_fields mhd$r_objidlng_overlay.mhd$r_objidlng_fields #endif /* #if !defined(__VAXC) */ #else /* __OLD_STARLET */ struct mhddef { unsigned char mhd$b_lbrflag; /* Librarian-controlled flag byte */ unsigned char mhd$b_id; /* Ident */ short int mhddef$$_fill_1; /* Reserved word */ unsigned int mhd$l_refcnt; /* Reference count */ unsigned int mhd$l_datim; /* Date/time inserted */ __union { int mhddef$$_fill_2; /* ... */ __struct { char mhddef$$_fill_3 [4]; } mhd$r_fill_2_fields; } mhd$r_fill_2_overlay; __union { unsigned char mhd$b_objstat; /* Status of object module */ __struct { unsigned mhd$v_selsrc : 1; /* Selective search */ unsigned mhd$v_objtir : 1; /* Module contains TIR records */ unsigned mhd$v_wksym : 1; /* Module contains other non-group global symbol */ unsigned mhd$v_fill_1_ : 5; } mhd$r_objstat_bits; } mhd$r_objstat_overlay; __union { unsigned char mhd$b_objidlng; /* Length of ident */ __struct { char mhddef$$_fill_4; } mhd$r_objidlng_fields; } mhd$r_objidlng_overlay; char mhddef$$_fill_5 [31]; /* Object module ident data or GSMATCH area */ char mhddef$$_fill_6 [3]; /* space */ unsigned int mhd$l_otherefcnt; /* Other reference count */ unsigned int mhd$l_modsize; /* Module size */ unsigned int mhd$l_fill_7; /* part of module size. */ } ; #if !defined(__VAXC) #define mhd$b_objstat mhd$r_objstat_overlay.mhd$b_objstat #define mhd$v_selsrc mhd$r_objstat_overlay.mhd$r_objstat_bits.mhd$v_selsrc #define mhd$v_objtir mhd$r_objstat_overlay.mhd$r_objstat_bits.mhd$v_objtir #define mhd$v_wksym mhd$r_objstat_overlay.mhd$r_objstat_bits.mhd$v_wksym #define mhd$b_objidlng mhd$r_objidlng_overlay.mhd$b_objidlng #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 /* __MHDDEF_LOADED */