/********************************************************************************************************************************/
/* Created:  9-Mar-2021 22:28:05 by OpenVMS SDL EV3-3      */
/* Source:  09-MAR-2021 22:28:01 $1$DGA8085:[STARLET_H.SRC]STARDEFFL.SDI;1 */
/********************************************************************************************************************************/
/*** MODULE $FDLDEF ***/
#ifndef __FDLDEF_LOADED
#define __FDLDEF_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
 
/*+                                                                         */
/* Define the version level of the FDL file structure                       */
/*-                                                                         */
#define FDL$C_VERSION 2
#define FDL$K_VERSION 2
/*+                                                                         */
/* 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
#define FDL$M_LONG_NAMES 0x20
	
#ifdef __NEW_STARLET
typedef 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_long_names : 1;  /* Allocate and use NAML for FDL$PARSE */
        unsigned fdl$v_fill_0_ : 2;
        } fdl$r_fdldef_bits;
    } FDLDEF;
 
#if !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
#define fdl$v_long_names fdl$r_fdldef_bits.fdl$v_long_names
#endif		/* #if !defined(__VAXC) */
 
#else	    /* __OLD_STARLET */
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_long_names : 1;  /* Allocate and use NAML for FDL$PARSE */
        unsigned fdl$v_fill_0_ : 2;
        } fdl$r_fdldef_bits;
    } ;
 
#if !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
#define fdl$v_long_names fdl$r_fdldef_bits.fdl$v_long_names
#endif		/* #if !defined(__VAXC) */
 
#endif	    /* #ifdef __NEW_STARLET */
 
#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 /* __FDLDEF_LOADED */