/********************************************************************************************************************************/ /* Created: 15-MAR-2001 23:37:58 by OpenVMS SDL EV1-33 */ /* Source: 15-MAR-2001 23:34:09 _$11$DUA933:[BUILD.SDL]STARDEFFL.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $FDLDEF ***/ #ifndef __FDLDEF_LOADED #define __FDLDEF_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 /*+ */ /* FDL CALL INTERFACE CONTROL FLAGS */ /*- */ #define FDL$M_SIGNAL 0x1 #define FDL$M_FDL_STRING 0x2 #define FDL$M_DEFAULT_STRING 0x4 #define FDL$M_FULL_OUTPUT 0x8 #define FDL$M_$CALLBACK 0x10 union fdldef { __struct { unsigned fdl$v_signal : 1; /* SIGNAL ERRORS, DON'T RETURN */ unsigned fdl$v_fdl_string : 1; /* MAIN FDL SPEC IS A CHAR STRING */ unsigned fdl$v_default_string : 1; /* DEFAULT FDL SPEC IS A CHAR STRING */ unsigned fdl$v_full_output : 1; /* PRODUCE A 'COMPLETE' FDL SPEC */ unsigned fdl$v_$callback : 1; /* USED BY EDF ON INPUT (DEC ONLY) */ unsigned fdl$v_fill_0 : 3; } fdl$r_fdldef_bits; } ; #if !defined(__VAXC) && !defined(VAXC) #define fdl$v_signal fdl$r_fdldef_bits.fdl$v_signal #define fdl$v_fdl_string fdl$r_fdldef_bits.fdl$v_fdl_string #define fdl$v_default_string fdl$r_fdldef_bits.fdl$v_default_string #define fdl$v_full_output fdl$r_fdldef_bits.fdl$v_full_output #define fdl$v_$callback fdl$r_fdldef_bits.fdl$v_$callback #endif /* #if !defined(__VAXC) && !defined(VAXC) */ #ifdef __cplusplus } #endif #pragma standard #endif /* __FDLDEF_LOADED */