/********************************************************************************************************************************/ /* Created: 30-Mar-2010 17:29:45 by OpenVMS SDL EV3-3 */ /* Source: 30-MAR-2010 17:29:21 $1$DGA7274:[STARLET_H.SRC]SMB$ROUTINES.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE SMB$ROUTINES IDENT X-1 ***/ #ifndef __SMB_ROUTINES_LOADED #define __SMB_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 /* */ /* Symbiont/Job Controller Interface (SMB) Routines */ /* */ /* */ /* SMB$CHECK_FOR_MESSAGE - Check for Message from Job Controller */ /* */ /* status = SMB$CHECK_FOR_MESSAGE () */ /* */ #define smb$check_for_message SMB$CHECK_FOR_MESSAGE #ifdef __NEW_STARLET unsigned int smb$check_for_message(void); #else /* __OLD_STARLET */ unsigned int smb$check_for_message(void); #endif /* #ifdef __NEW_STARLET */ /* */ /* SMB$INITIALIZE - Initialize User-Written Symbiont */ /* */ /* status = SMB$INITIALIZE (structure_level [,ast_routine] [,streams]) */ /* */ /* structure_level - Version of the job-controller/symbiont interface */ /* ast_routine - Message-handling AST routine */ /* streams - Maximum number of streams to support */ /* */ #define smb$initialize SMB$INITIALIZE #ifdef __NEW_STARLET unsigned int smb$initialize( unsigned int *structure_level, __optional_params ); #else /* __OLD_STARLET */ unsigned int smb$initialize(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* SMB$READ_MESSAGE - Obtain Message Sent by Job Controller */ /* */ /* status = SMB$READ_MESSAGE (stream, buffer, request) */ /* */ /* stream - Stream number for message */ /* buffer - Buffer into which message is written */ /* request - Code that identifies the request */ /* */ #define smb$read_message SMB$READ_MESSAGE #ifdef __NEW_STARLET unsigned int smb$read_message( unsigned int *stream, void *buffer, unsigned int *request); #else /* __OLD_STARLET */ unsigned int smb$read_message(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* SMB$READ_MESSAGE_ITEM - Parse Next Item from Message Buffer */ /* */ /* status = SMB$READ_MESSAGE_ITEM (message, context, item_code, buffer */ /* [, size]) */ /* */ /* message - Message items to read */ /* context - Context value */ /* item_code - Item code of message read */ /* buffer - Message item */ /* size - Size of message item */ /* */ #define smb$read_message_item SMB$READ_MESSAGE_ITEM #ifdef __NEW_STARLET unsigned int smb$read_message_item( void *message, unsigned int *context, unsigned int *item_code, void *buffer, __optional_params); #else /* __OLD_STARLET */ unsigned int smb$read_message_item(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* SMB$SEND_TO_JOBCTL - Send Message to Job Controller */ /* */ /* status = SMB$SEND_TO_JOBCTL (stream [,request] [,accounting] */ /* [,checkpoint] [,device_status] [,error]) */ /* */ /* stream - Number of stream to which message refers */ /* request - Code identifying request being completed */ /* accounting - Accounting information about a task */ /* checkpoint - Checkpoint data about current task */ /* device_status - Status of device served by the symbiont */ /* error - Condition code returned by the requested task */ /* */ #define smb$send_to_jobctl SMB$SEND_TO_JOBCTL #ifdef __NEW_STARLET unsigned int smb$send_to_jobctl( unsigned int *stream, __optional_params ); #else /* __OLD_STARLET */ unsigned int smb$send_to_jobctl(__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 /* __SMB_ROUTINES_LOADED */