/********************************************************************************************************************************/ /* Created: 30-Mar-2010 17:29:43 by OpenVMS SDL EV3-3 */ /* Source: 30-MAR-2010 17:29:21 $1$DGA7274:[STARLET_H.SRC]RMSUSR.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $XABDEF ***/ #ifndef __XABDEF_LOADED #define __XABDEF_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 /* */ /* definitions for all xabs */ /* $xabdef */ /* */ /* the first four fields are shared in common between all xabs */ /* and hence are defined only once */ /* (the only exception is that the spare word may be used by some xabs) */ /* */ #ifdef __NEW_STARLET typedef struct _xabdef { unsigned char xab$b_cod; /* xab id code */ unsigned char xab$b_bln; /* block length */ short int xabdef$$_fill_1; /* (spare) */ void *xab$l_nxt; /* xab chain link */ unsigned short int xab$w_rvn; short int xabdef$$_fill_2; __int64 xab$q_rdt; } XABDEF; #else /* __OLD_STARLET */ struct xabdef { unsigned char xab$b_cod; /* xab id code */ unsigned char xab$b_bln; /* block length */ short int xabdef$$_fill_1; /* (spare) */ void *xab$l_nxt; /* xab chain link */ unsigned short int xab$w_rvn; short int xabdef$$_fill_2; __int64 xab$q_rdt; } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _xabdef1 { char xabdef$$_fill_3 [8]; char xabdef$$_fill_4; /*THESE FIELDS WILL BE DEFINED LATER */ char xabdef$$_fill_5; short int xabdef$$_fill_6; unsigned int xabdef$$_fill_7; unsigned int xabdef$$_fill_8; short int xabdef$$_fill_9; unsigned char xab$b_bkz; /*COMMON TO FHC AND ALQ XABS */ } XABDEF1; #else /* __OLD_STARLET */ struct xabdef1 { char xabdef$$_fill_3 [8]; char xabdef$$_fill_4; /*THESE FIELDS WILL BE DEFINED LATER */ char xabdef$$_fill_5; short int xabdef$$_fill_6; unsigned int xabdef$$_fill_7; unsigned int xabdef$$_fill_8; short int xabdef$$_fill_9; unsigned char xab$b_bkz; /*COMMON TO FHC AND ALQ XABS */ } ; #endif /* #ifdef __NEW_STARLET */ #define XAB$C_CXT_VER1 1 /* RMS Context Extraction version 1 */ #ifdef __NEW_STARLET #else #define XAB xabdef #define XABDEF1 xabdef1 #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 /* __XABDEF_LOADED */