/********************************************************************************************************************************/
/* 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 $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 */