/********************************************************************************************************************************/ /* Created: 15-MAR-2001 23:37:34 by OpenVMS SDL EV1-33 */ /* Source: 15-MAR-2001 23:34:34 _$11$DUA933:[BUILD.SDL]OBJFMT.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $ENVDEF ***/ #ifndef __ENVDEF_LOADED #define __ENVDEF_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 /* */ /* ENV - Define/reference an environment */ /* */ #define ENV$M_DEF 0x1 #define ENV$M_NESTED 0x2 struct envdef { unsigned char env$b_gsdtyp; /*Type field */ __union { unsigned short int env$w_flags; /*Environment flags */ __struct { unsigned env$v_def : 1; /*Definition of environment */ unsigned env$v_nested : 1; /*Nested environment if set */ unsigned env$v_fill_20 : 6; } env$r_flags_bits; } env$r_flags_overlay; unsigned short int env$w_envindx; /*Index of parent environment */ unsigned char env$b_namlng; /*Length of environment name */ char env$t_name [31]; /*Environment name */ } ; #if !defined(__VAXC) && !defined(VAXC) #define env$w_flags env$r_flags_overlay.env$w_flags #define env$v_def env$r_flags_overlay.env$r_flags_bits.env$v_def #define env$v_nested env$r_flags_overlay.env$r_flags_bits.env$v_nested #endif /* #if !defined(__VAXC) && !defined(VAXC) */ #ifdef __cplusplus } #endif #pragma standard #endif /* __ENVDEF_LOADED */