/********************************************************************************************************************************/ /* Created: 9-Mar-2021 22:28:04 by OpenVMS SDL EV3-3 */ /* Source: 09-MAR-2021 22:28:01 $1$DGA8085:[STARLET_H.SRC]RMSUSR.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $XABTRMDEF ***/ #ifndef __XABTRMDEF_LOADED #define __XABTRMDEF_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 /* */ /* terminal control xab field definitions */ /* $xabtrmdef */ /* */ /* */ #define XAB$C_TRM 31 /*XABTRM ID CODE */ #ifdef __NEW_STARLET #if !defined(__NOBASEALIGN_SUPPORT) && !defined(__cplusplus) /* If using pre DECC V4.0 or C++ */ #pragma __nomember_alignment __longword #else #pragma __nomember_alignment #endif typedef struct _xabtrmdef { #pragma __nomember_alignment unsigned char xab$b_cod; /* xab id code */ unsigned char xab$b_bln; /* block length */ short int xabtrmdef$$_fill_1; /* (spare) */ void *xab$l_nxt; /* xab chain link */ void *xab$l_itmlst; /* item list address */ unsigned short int xab$w_itmlst_len; /* item list length */ short int xabtrmdef$$_fill_5; /* spare */ unsigned int xabtrmdef$$_fill_6; /* spare */ unsigned int xabtrmdef$$_fill_7; /* spare */ unsigned int xabtrmdef$$_fill_8; /* spare */ unsigned int xabtrmdef$$_fill_9; /* spare */ unsigned int xabtrmdef$$_fill_10; /* spare */ } XABTRMDEF; #else /* __OLD_STARLET */ #if !defined(__NOBASEALIGN_SUPPORT) && !defined(__cplusplus) /* If using pre DECC V4.0 or C++ */ #pragma __nomember_alignment __longword #else #pragma __nomember_alignment #endif struct xabtrmdef { #pragma __nomember_alignment unsigned char xab$b_cod; /* xab id code */ unsigned char xab$b_bln; /* block length */ short int xabtrmdef$$_fill_1; /* (spare) */ void *xab$l_nxt; /* xab chain link */ void *xab$l_itmlst; /* item list address */ unsigned short int xab$w_itmlst_len; /* item list length */ short int xabtrmdef$$_fill_5; /* spare */ unsigned int xabtrmdef$$_fill_6; /* spare */ unsigned int xabtrmdef$$_fill_7; /* spare */ unsigned int xabtrmdef$$_fill_8; /* spare */ unsigned int xabtrmdef$$_fill_9; /* spare */ unsigned int xabtrmdef$$_fill_10; /* spare */ } ; #endif /* #ifdef __NEW_STARLET */ /* basealign on aggregate XABTRMDEF operates after aggregate end */ #define XAB$K_TRMLEN 36 /* length of xab of type terminal control */ #define XAB$C_TRMLEN 36 /* length of xab of type terminal control */ #ifdef __NEW_STARLET #define XABTRM _xabtrmdef #else #define XABTRM xabtrmdef #endif #define cc$rms_xabtrm (*decc$ga_rms_xabtrm) #if defined(__DECC) || defined(__DECCXX) # pragma extern_model __save # pragma extern_model strict_refdef extern struct XABTRM cc$rms_xabtrm; /* Declare initialized prototype data structures */ # pragma extern_model __restore #else globalref struct XABTRM cc$rms_xabtrm; /* Declare initialized prototype data structures */ #endif #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 /* __XABTRMDEF_LOADED */