/********************************************************************************************************************************/
/* Created:  9-Mar-2021 22:28:06 by OpenVMS SDL EV3-3      */
/* Source:  09-MAR-2021 22:28:01 $1$DGA8085:[STARLET_H.SRC]STARDEFMP.SDI;1 */
/********************************************************************************************************************************/
/*** MODULE $PCCDEF ***/
#ifndef __PCCDEF_LOADED
#define __PCCDEF_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
 
/*+                                                                         */
/* PRINTER/TERMINAL CARRIAGE CONTROL SPECIFIERS                             */
/*--                                                                        */
#define PCC$M_CHAR 0x1F
#define PCC$M_EIGHTBIT 0x40
#define PCC$M_SINGLE 0x80
#define PCC$M_LINECNT 0x7F
#define PCC$_FTN_SINGLE 32              /* SINGLE SPACE                     */
#define PCC$_FTN_DOUBLE 48              /* DOUBLE SPACE                     */
#define PCC$_FTN_PAGE 49                /* PAGE SPACE                       */
#define PCC$_FTN_OVRPRT 43              /* OVER PRINT                       */
#define PCC$_FTN_PROMPT 36              /* PROMPT                           */
	
#ifdef __NEW_STARLET
typedef struct _pccdef {
    unsigned short int pcc$w_fortran;   /* FORTRAN FIELD                    */
    __union  {                          /* PREFIX FIELD                     */
        unsigned char pcc$b_prefix;
        __struct  {
            unsigned pccdef$$_bits0 : 1;
            unsigned pcc$v_fill_49_ : 7;
            } pcc$r_prefix_bits0;
        __struct  {
            unsigned pccdef$$_bits1 : 1;
            unsigned pcc$v_fill_50_ : 7;
            } pcc$r_prefix_bits1;
        } pcc$r_prefix_overlay;
    __union  {
        unsigned char pcc$b_postfix;    /* POSTFIX FIELD                    */
        __struct  {
            unsigned pcc$v_char : 5;    /* CHARACTER FIELD                  */
            unsigned pccdef$$_fill_1 : 1;
            unsigned pcc$v_eightbit : 1; /* EIGHTBIT CHARACTER SET          */
            unsigned pcc$v_single : 1;  /* SINGLE CHARACTER                 */
            } pcc$r_postfix_bits0;
        __struct  {
            unsigned pcc$v_linecnt : 7; /* LINE COUNT FOR NEWLINES          */
            unsigned pcc$v_fill_51_ : 1;
            } pcc$r_postfix_bits1;
/* FORTRAN CONSTANTS                                                        */
        } pcc$r_postfix_overlay;
    } PCCDEF;
 
#if !defined(__VAXC)
#define pcc$b_prefix pcc$r_prefix_overlay.pcc$b_prefix
#define pcc$b_postfix pcc$r_postfix_overlay.pcc$b_postfix
#define pcc$v_char pcc$r_postfix_overlay.pcc$r_postfix_bits0.pcc$v_char
#define pcc$v_eightbit pcc$r_postfix_overlay.pcc$r_postfix_bits0.pcc$v_eightbit
#define pcc$v_single pcc$r_postfix_overlay.pcc$r_postfix_bits0.pcc$v_single
#define pcc$v_linecnt pcc$r_postfix_overlay.pcc$r_postfix_bits1.pcc$v_linecnt
#endif		/* #if !defined(__VAXC) */
 
#else	    /* __OLD_STARLET */
struct pccdef {
    unsigned short int pcc$w_fortran;   /* FORTRAN FIELD                    */
    __union  {                          /* PREFIX FIELD                     */
        unsigned char pcc$b_prefix;
        __struct  {
            unsigned pccdef$$_bits0 : 1;
            unsigned pcc$v_fill_49_ : 7;
            } pcc$r_prefix_bits0;
        __struct  {
            unsigned pccdef$$_bits1 : 1;
            unsigned pcc$v_fill_50_ : 7;
            } pcc$r_prefix_bits1;
        } pcc$r_prefix_overlay;
    __union  {
        unsigned char pcc$b_postfix;    /* POSTFIX FIELD                    */
        __struct  {
            unsigned pcc$v_char : 5;    /* CHARACTER FIELD                  */
            unsigned pccdef$$_fill_1 : 1;
            unsigned pcc$v_eightbit : 1; /* EIGHTBIT CHARACTER SET          */
            unsigned pcc$v_single : 1;  /* SINGLE CHARACTER                 */
            } pcc$r_postfix_bits0;
        __struct  {
            unsigned pcc$v_linecnt : 7; /* LINE COUNT FOR NEWLINES          */
            unsigned pcc$v_fill_51_ : 1;
            } pcc$r_postfix_bits1;
/* FORTRAN CONSTANTS                                                        */
        } pcc$r_postfix_overlay;
    } ;
 
#if !defined(__VAXC)
#define pcc$b_prefix pcc$r_prefix_overlay.pcc$b_prefix
#define pcc$b_postfix pcc$r_postfix_overlay.pcc$b_postfix
#define pcc$v_char pcc$r_postfix_overlay.pcc$r_postfix_bits0.pcc$v_char
#define pcc$v_eightbit pcc$r_postfix_overlay.pcc$r_postfix_bits0.pcc$v_eightbit
#define pcc$v_single pcc$r_postfix_overlay.pcc$r_postfix_bits0.pcc$v_single
#define pcc$v_linecnt pcc$r_postfix_overlay.pcc$r_postfix_bits1.pcc$v_linecnt
#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 /* __PCCDEF_LOADED */