/********************************************************************************************************************************/ /* Created: 9-Mar-2021 22:28:07 by OpenVMS SDL EV3-3 */ /* Source: 09-MAR-2021 22:28:01 $1$DGA8085:[STARLET_H.SRC]TPU$ROUTINES.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE TPU$ROUTINES IDENT X-1 ***/ #ifndef __TPU_ROUTINES_LOADED #define __TPU_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 /* */ /* Text Processing Utility (TPU) Routines */ /* */ /* */ /* TPU$CLEANUP - Free System Resources Used During TPU Session */ /* */ /* status = TPU$CLEANUP (flags) */ /* */ /* flags - Cleanup options */ /* */ #define tpu$cleanup TPU$CLEANUP #ifdef __NEW_STARLET unsigned int tpu$cleanup( unsigned int *flags); #else /* __OLD_STARLET */ unsigned int tpu$cleanup(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$CLIPARSE - Parse a command line */ /* */ /* status = TPU$CLIPARSE (string, fileio, call_user) */ /* */ /* string - Command line to be parsed */ /* fileio - Bound Procedure Value for File I/O routine */ /* call_user - Bound Procedure Value for call-user routine */ /* */ #define tpu$cliparse TPU$CLIPARSE #ifdef __NEW_STARLET unsigned int tpu$cliparse( void *string, unsigned int *fileio, unsigned int *call_user); #else /* __OLD_STARLET */ unsigned int tpu$cliparse(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$CLOSE_TERMINAL - Close Channel to Terminal */ /* */ /* status = TPU$CLOSE_TERMINAL () */ /* */ #define tpu$close_terminal TPU$CLOSE_TERMINAL #ifdef __NEW_STARLET unsigned int tpu$close_terminal(void); #else /* __OLD_STARLET */ unsigned int tpu$close_terminal(void); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$CONTROL - Pass Control to TPU */ /* */ /* status = TPU$CONTROL () */ /* */ #define tpu$control TPU$CONTROL #ifdef __NEW_STARLET unsigned int tpu$control(void); #else /* __OLD_STARLET */ unsigned int tpu$control(void); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$EDIT - Edit a file */ /* */ /* status = TPU$EDIT (input, output) */ /* */ /* input - Input file name */ /* output - Output file name */ /* */ #define tpu$edit TPU$EDIT #ifdef __NEW_STARLET unsigned int tpu$edit( void *input, void *output); #else /* __OLD_STARLET */ unsigned int tpu$edit(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$EXECUTE_COMMAND - Execute One or More TPU Statements */ /* */ /* status = TPU$EXECUTE_COMMAND (string) */ /* */ /* string - TPU statement(s) to execute */ /* */ #define tpu$execute_command TPU$EXECUTE_COMMAND #ifdef __NEW_STARLET unsigned int tpu$execute_command( void *string); #else /* __OLD_STARLET */ unsigned int tpu$execute_command(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$EXECUTE_INIFILE - Execute Initialization Files */ /* */ /* status = TPU$EXECUTE_INIFILE () */ /* */ #define tpu$execute_inifile TPU$EXECUTE_INIFILE #ifdef __NEW_STARLET unsigned int tpu$execute_inifile(void); #else /* __OLD_STARLET */ unsigned int tpu$execute_inifile(void); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$FILEIO - Perform File Operations */ /* */ /* status = TPU$FILEIO (code, stream, data) */ /* */ /* code - Item code specifying a TPU function */ /* stream - File description */ /* data - Stream data */ /* */ #define tpu$fileio TPU$FILEIO #ifdef __NEW_STARLET unsigned int tpu$fileio( unsigned int *code, unsigned int *stream, unsigned int *data); #else /* __OLD_STARLET */ unsigned int tpu$fileio(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$FILE_PARSE - Parse a File Specification */ /* */ /* status = TPU$FILE_PARSE (result_string, flags, filespec, */ /* [default_spec], [related_spec]) */ /* */ /* result_string - Resultant file specification */ /* flags - Specifies components to be returned */ /* filespec - File specification to parse */ /* default_spec - Default file specification */ /* related_spec - Related file specification */ /* */ #define tpu$file_parse TPU$FILE_PARSE #ifdef __NEW_STARLET unsigned int tpu$file_parse( void *result_string, unsigned int *flags, void *filespec, __optional_params ); #else /* __OLD_STARLET */ unsigned int tpu$file_parse(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$FILE_SEARCH - Search for a File Specification */ /* */ /* status = TPU$FILE_SEARCH (result_string, flags, filespec, */ /* [default_spec], [related_spec]) */ /* */ /* result_string - Resultant file specification */ /* flags - Specifies components to be returned */ /* filespec - File specification to parse */ /* default_spec - Default file specification */ /* related_spec - Related file specification */ /* */ #define tpu$file_search TPU$FILE_SEARCH #ifdef __NEW_STARLET unsigned int tpu$file_search( void *result_string, unsigned int *flags, void *filespec, __optional_params ); #else /* __OLD_STARLET */ unsigned int tpu$file_search(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$HANDLER - TPU Condition Handler */ /* */ /* status = TPU$HANDLER (signal_vector, mechanism_vector) */ /* */ /* signal_vector - Signal vector */ /* mechanism_vector - Mechanism vector */ /* */ #define tpu$handler TPU$HANDLER #ifdef __NEW_STARLET unsigned int tpu$handler( unsigned int signal_vector [], unsigned int mechanism_vector []); #else /* __OLD_STARLET */ unsigned int tpu$handler(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$INITIALIZE - Initialize TPU for Editing */ /* */ /* status = TPU$INITIALIZE (callback [, user_arg) */ /* */ /* callback - Callback routine bound procedure value */ /* user_arg - User argument */ /* */ #define tpu$initialize TPU$INITIALIZE #ifdef __NEW_STARLET unsigned int tpu$initialize( unsigned int *callback, __optional_params); #else /* __OLD_STARLET */ unsigned int tpu$initialize(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$MESSAGE - Write Message String */ /* */ /* status = TPU$MESSAGE (string) */ /* */ /* string - Formatted message */ /* */ #define tpu$message TPU$MESSAGE #ifdef __NEW_STARLET unsigned int tpu$message( void *string); #else /* __OLD_STARLET */ unsigned int tpu$message(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$PARSEINFO - Parse Command Line and Build Item List */ /* */ /* status = TPU$PARSEINFO (fileio, call_user) */ /* */ /* fileio - Bound Procedure Value File I/O routine */ /* call_user - Bound Procedure Value for call-user routine */ /* */ #define tpu$parseinfo TPU$PARSEINFO #ifdef __NEW_STARLET unsigned int tpu$parseinfo( unsigned int *fileio, unsigned int *call_user); #else /* __OLD_STARLET */ unsigned int tpu$parseinfo(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$SIGNAL - Signal a TPU Status */ /* */ /* status = TPU$SIGNAL (condition_code) */ /* */ /* condition_code - Condition code to signal */ /* */ #define tpu$signal TPU$SIGNAL #ifdef __NEW_STARLET unsigned int tpu$signal( unsigned int condition_code); #else /* __OLD_STARLET */ unsigned int tpu$signal(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$SPECIFY_ASYNC_ACTION - Register an Asynchronous Action */ /* */ /* status = TPU$SPECIFY_ASYNC_ACTION (facility_index [, tpu_statement]) */ /* */ /* facility_index - Index number of this action */ /* tpu_statement - TPU statement to execute for action */ /* */ #define tpu$specify_async_action TPU$SPECIFY_ASYNC_ACTION #ifdef __NEW_STARLET unsigned int tpu$specify_async_action( unsigned int *facility_index, __optional_params); #else /* __OLD_STARLET */ unsigned int tpu$specify_async_action(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$TPU - Invoke TPU */ /* */ /* status = TPU$TPU (command) */ /* */ /* command - Command string */ /* */ #define tpu$tpu TPU$TPU #ifdef __NEW_STARLET unsigned int tpu$tpu( void *command); #else /* __OLD_STARLET */ unsigned int tpu$tpu(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* TPU$TRIGGER_ASYNC_ACTION - Trigger an Asynchronous Action */ /* */ /* status = TPU$TRIGGER_ASYNC_ACTION (facility_index) */ /* */ /* facility_index - Index number of this action */ /* */ #define tpu$trigger_async_action TPU$TRIGGER_ASYNC_ACTION #ifdef __NEW_STARLET unsigned int tpu$trigger_async_action( unsigned int *facility_index); #else /* __OLD_STARLET */ unsigned int tpu$trigger_async_action(__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 /* __TPU_ROUTINES_LOADED */