/* Ported to GNU C openVMS/Alpha by Klaus Kämpf, kkaempf@progis.de  */
/* <xabrdtdef.h>
 *
 *	RMS revision date/time XAB definitions
 */
#ifndef _XABRDTDEF_H
#define _XABRDTDEF_H

#ifdef __cplusplus
extern "C" {
#endif

#define XAB$C_RDT	30	/* xabrdt ID code */
#define XAB$K_RDTLEN	20	/* length of rdt xab */
#define XAB$C_RDTLEN	20

#ifndef __XABSTART_FIELDS
#include <vms/xabdef.h>
#endif

struct xabrdtdef {
  __XABSTART_FIELDS
    unsigned short xab$w_rvn;		/* revision number */
	unsigned short : 16;		/* spare */
    unsigned long long  xab$q_rdt;	/* revision date & time */
} __attribute__ ((packed));

#define XABRDT xabrdtdef

/* declare initialized prototype data structure */
#ifdef __ALPHA
extern struct XABRDT *cc$rms_xabrdt_ptr __asm("DECC$GA_RMS_XABRDT");
#define cc$rms_xabrdt (*cc$rms_xabrdt_ptr)
#else
extern struct XABRDT cc$rms_xabrdt __asm("_$$PsectAttributes_GLOBALSYMBOL$$cc$rms_xabrdt");
/* globalref struct XABRDT cc$rms_xabrdt; */
#endif

#ifdef __cplusplus
  }
#endif

#endif	/*_XABRDTDEF_H*/