/********************************************************************************************************************************/ /* 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 $CLISERVDEF ***/ #ifndef __CLISERVDEF_LOADED #define __CLISERVDEF_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 CLI SERVICE REQUEST CODES */ /* */ /* DEFINE CLI SERVICE CODES */ #define CLI$K_PAUSE 1 /* PAUSE THE IMAGE */ #define CLI$K_DEFLOCAL 2 /* DEFINE A SYMBOL IN THE LOCAL TABLE */ #define CLI$K_DEFGLOBAL 3 /* DEFINE A SYMBOL IN THE GLOBAL TABLE */ #define CLI$K_CHAIN 4 /* PASS AN IMAGE TO RUN AFTER THIS ONE */ #define CLI$K_COMMAND 5 /* PASS A COMMAND LINE TO LATER EXECUTE */ #define CLI$K_CREALOG 6 /* DEFINE A PROCESS LOGICAL NAME */ #define CLI$K_DELELOG 7 /* DELETE A PROCESS LOGICAL NAME */ #define CLI$K_DISACTRLY 8 /* DISABLE DCL CONTROL Y PROCESSING */ #define CLI$K_ENABCTRLY 9 /* ENABLE DCL CONTROL Y PROCESSING */ #define CLI$K_GETSYM 10 /* RETURN VALUE OF A SYMBOL */ #define CLI$K_DELELCL 11 /* DELETE A LOCAL SYMBOL */ #define CLI$K_DELEGBL 12 /* DELETE A GLOBAL SYMBOL */ #define CLI$K_DISAOOB 13 /* DISABLE OUT-OF-BAND CHARACTER(S) */ #define CLI$K_ENABOOB 14 /* RE-ENABLE OUT-OF-BAND CHARACTER(S) */ #define CLI$K_SPAWN 15 /* SPAWN A SUBPROCESS */ #define CLI$K_ATTACH 16 /* ATTACH TO A PROCESS */ #define CLI$K_LIBDEFLOCAL 17 /* DEFINE A SYMBOL IN LOCAL TABLE USING LIB$SET_SYMBOL */ #define CLI$K_LIBDEFGLOBAL 18 /* DEFINE A SYMBOL IN GLOBAL TABLE USING LIB$SET_SYMBOL */ #define CLI$K_LIBGETSYM 19 /* GET A SYMBOL VALUE USING LIB$GET_SYMBOL */ #define CLI$K_LIBDELELCL 20 /* DELETE A SYMBOL USING LIB$DELETE_SYMBOL */ #define CLI$K_LIBDELEGBL 21 /* DELETE A GLOBAL SYMBOL USING LIB$DELETE_SYMBOL */ #define CLI$K_SETCODESET 22 /* SET CODE SET */ /* */ /* Define local/global symbol flag returned by GETSYM */ /* */ #define CLI$K_LOCAL_SYM 1 /* Local symbol */ #define CLI$K_GLOBAL_SYM 2 /* Global symbol */ #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 /* __CLISERVDEF_LOADED */