/********************************************************************************************************************************/
/* Created:  9-Mar-2021 22:28:05 by OpenVMS SDL EV3-3      */
/* Source:  09-MAR-2021 22:28:01 $1$DGA8085:[STARLET_H.SRC]STARDEFAE.SDI;1 */
/********************************************************************************************************************************/
/*** MODULE CSHDEF IDENT X-1 ***/
#ifndef __CSHDEF_LOADED
#define __CSHDEF_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
 
/* $SCHED function codes                                                    */
#define CSH$_READ_ALL 23                /* Read data on all processes       */
#define CSH$_READ_NEW 24                /* Read data on new processes       */
#define CSH$_SET_CLASS 25               /* Place process(es) into class(es) */
#define CSH$_RES1 26
#define CSH$_RES2 27
#define CSH$_RES3 28
#define CSH$_RES4 29
#define CSH$_SET_NEW 30                 /* Define this process as "new"     */
#define CSH$_SET_TIMEOUT 31             /* Set deadman timer                */
#define CSH$_RES5 32
#define CSH$_RES6 33
#define CSH$_RES7 34
#define CSH$_RES8 35
#define CSH$_READ_QUANT 36              /* Read per-class quanta remaining  */
#define CSH$_SET_QUANT 37               /* Define per-class quanta          */
#define CSH$_RES9 38
#define CSH$_RESA 39
#define CSH$_RESB 40
#define CSH$_RESC 41
#define CSH$_SET_ATTN_AST 42            /* Establish attention AST          */
#define CSH$_RSED 43
#define CSH$_RESE 44
#define CSH$_RESF 45
#define CSH$_RES0 46
#define CSH$_CLEAR_ATTN_AST 47          /* Clear attention AST              */
#define CSH$_MAX_SCHED_FUNC 48
/* AST reason mask                                                          */
#define CSH$V_NEW_PROC 1                /* Possible new process             */
/* CSHC -- Class ScHeduler Class block                                      */
/*                                                                          */
/* Used to communicate from user to system, defining process/class mapping  */
#define CSHC$K_LENGTH 8
#define CSHC$C_LENGTH 8
	
#ifdef __NEW_STARLET
typedef struct _cshc {
    unsigned int cshc$l_epid;           /* EPID of target process           */
    short int cshc$w_class;             /* Class number, 0-N, %X'FFFF' means */
/* `Take out of class scheduling'                                           */
    unsigned short int cshc$w_windfall; /* Windfall ticks to grant          */
    } CSHC;
#else	    /* __OLD_STARLET */
typedef struct _cshc {
    unsigned int cshc$l_epid;           /* EPID of target process           */
    short int cshc$w_class;             /* Class number, 0-N, %X'FFFF' means */
/* `Take out of class scheduling'                                           */
    unsigned short int cshc$w_windfall; /* Windfall ticks to grant          */
    } cshc;
#endif	    /* #ifdef __NEW_STARLET */
/* CSHP -- Class ScHeduler data block for Processes                         */
/*                                                                          */
/* Used to communicate from system to user, showing various characteristics */
/* of processes.                                                            */
#define CSHP$K_LENGTH 24
#define CSHP$C_LENGTH 24
	
#ifdef __NEW_STARLET
typedef struct _cshp {
    unsigned int cshp$l_status;         /* Copy of PCB$L_STS                */
    unsigned short int cshp$w_pix;      /* Process index slot               */
    char cshp$b_pri;                    /* Current priority (internal)      */
    char cshp$b_prib;                   /* Current base priority (internal) */
    unsigned int cshp$l_epid;           /* The official PID                 */
    char cshp$t_account [8];            /* Account string from PCB          */
    unsigned int cshp$l_cputim;         /* CPU time charged                 */
    } CSHP;
#else	    /* __OLD_STARLET */
typedef struct _cshp {
    unsigned int cshp$l_status;         /* Copy of PCB$L_STS                */
    unsigned short int cshp$w_pix;      /* Process index slot               */
    char cshp$b_pri;                    /* Current priority (internal)      */
    char cshp$b_prib;                   /* Current base priority (internal) */
    unsigned int cshp$l_epid;           /* The official PID                 */
    char cshp$t_account [8];            /* Account string from PCB          */
    unsigned int cshp$l_cputim;         /* CPU time charged                 */
    } cshp;
#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 /* __CSHDEF_LOADED */