/********************************************************************************************************************************/
/* Created:  9-Mar-2021 22:28:04 by OpenVMS SDL EV3-3      */
/* Source:  09-MAR-2021 22:28:01 $1$DGA8085:[STARLET_H.SRC]PSM$ROUTINES.SDI;1 */
/********************************************************************************************************************************/
/*** MODULE PSM$ROUTINES IDENT X-1 ***/
#ifndef __PSM_ROUTINES_LOADED
#define __PSM_ROUTINES_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
 
/*                                                                          */
/* Print Symbiont Modification (PSM) Routines                               */
/*                                                                          */
/*                                                                          */
/* PSM$PRINT - Invoke VMS-Supplied Print Symbiont                           */
/*                                                                          */
/* status = PSM$PRINT ([streams], [bufsiz], [worksiz])                      */
/*                                                                          */
/*  streams - Maximum number of streams to support                          */
/*  bufsiz  - Maximum buffer size in bytes for output operations            */
/*  worksiz - Size in bytes of work area to be allocated                    */
/*                                                                          */
#define  psm$print  PSM$PRINT
	
#ifdef __NEW_STARLET
unsigned int psm$print(
	__optional_params
	);
#else	/* __OLD_STARLET */
unsigned int psm$print(__unknown_params);
#endif	/* #ifdef __NEW_STARLET */
/*                                                                          */
/* PSM$READ_ITEM_DX - Obtain Value of Message Items                         */
/*                                                                          */
/* status = PSM$READ_ITEM_DX (request_id, item, buffer)                     */
/*                                                                          */
/*  request_id - Request identifier supplied by the symbiont to user routine */
/*  item       - Item code identifying message item to be returned          */
/*  buffer     - Buffer into which data is returned                         */
/*                                                                          */
#define  psm$read_item_dx  PSM$READ_ITEM_DX
	
#ifdef __NEW_STARLET
unsigned int psm$read_item_dx(
	unsigned int *request_id,
	unsigned int *item,
	void *buffer);
#else	/* __OLD_STARLET */
unsigned int psm$read_item_dx(__unknown_params);
#endif	/* #ifdef __NEW_STARLET */
/*                                                                          */
/* PSM$REPLACE - Declare User Service Routine                               */
/*                                                                          */
/* status = PSM$REPLACE (code, routine)                                     */
/*                                                                          */
/*  code    - Code identifying symbiont routine to be replaced              */
/*  routine - User routine to replace symbiont routine                      */
/*                                                                          */
#define  psm$replace  PSM$REPLACE
	
#ifdef __NEW_STARLET
unsigned int psm$replace(
	unsigned int *code,
	int (*routine)(void));
#else	/* __OLD_STARLET */
unsigned int psm$replace(__unknown_params);
#endif	/* #ifdef __NEW_STARLET */
/*                                                                          */
/* PSM$REPORT - Report Completion Status                                    */
/*                                                                          */
/* status = PSM$REPORT (request_id [, status])                              */
/*                                                                          */
/*  request_id - Request identifier supplied by the symbiont to user routine */
/*  status     - Completion status of asynchronous operation completed      */
/*                                                                          */
#define  psm$report  PSM$REPORT
	
#ifdef __NEW_STARLET
unsigned int psm$report(
	unsigned int *request_id,
	__optional_params);
#else	/* __OLD_STARLET */
unsigned int psm$report(__unknown_params);
#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 /* __PSM_ROUTINES_LOADED */