/********************************************************************************************************************************/
/* Created: 15-MAR-2001 23:38:20 by OpenVMS SDL EV1-33     */
/* Source:  15-MAR-2001 23:35:08 _$11$DUA933:[BUILD.SDL]TPU$ROUTINES.SDI;1 */
/********************************************************************************************************************************/
/*** MODULE TPU$ROUTINES IDENT X-1 ***/
#ifndef __TPU$ROUTINES_LOADED
#define __TPU$ROUTINES_LOADED 1
 
#pragma nostandard
 
#ifdef __cplusplus
    extern "C" {
#define __unknown_params ...
#else
#define __unknown_params
#endif
 
#if !defined(__VAXC) && !defined(VAXC)
#define __struct struct
#define __union union
#else
#define __struct variant_struct
#define __union variant_union
#endif
 
/*                                                                          */
/* Text Processing Utility (TPU) Routines                                   */
/*                                                                          */
/*                                                                          */
/* TPU$CLEANUP - Free System Resources Used During TPU Session              */
/*                                                                          */
/* status = TPU$CLEANUP (flags)                                             */
/*                                                                          */
/*  flags - Cleanup options                                                 */
/*                                                                          */
unsigned int tpu$cleanup(__unknown_params);
/*                                                                          */
/* 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                 */
/*                                                                          */
unsigned int tpu$cliparse(__unknown_params);
/*                                                                          */
/* TPU$CLOSE_TERMINAL - Close Channel to Terminal                           */
/*                                                                          */
/* status = TPU$CLOSE_TERMINAL ()                                           */
/*                                                                          */
unsigned int tpu$close_terminal(void);
/*                                                                          */
/* TPU$CONTROL - Pass Control to TPU                                        */
/*                                                                          */
/* status = TPU$CONTROL ()                                                  */
/*                                                                          */
unsigned int tpu$control(void);
/*                                                                          */
/* TPU$EDIT - Edit a file                                                   */
/*                                                                          */
/* status = TPU$EDIT (input, output)                                        */
/*                                                                          */
/*  input  - Input file name                                                */
/*  output - Output file name                                               */
/*                                                                          */
unsigned int tpu$edit(__unknown_params);
/*                                                                          */
/* TPU$EXECUTE_COMMAND - Execute One or More TPU Statements                 */
/*                                                                          */
/* status = TPU$EXECUTE_COMMAND (string)                                    */
/*                                                                          */
/*  string - TPU statement(s) to execute                                    */
/*                                                                          */
unsigned int tpu$execute_command(__unknown_params);
/*                                                                          */
/* TPU$EXECUTE_INIFILE - Execute Initialization Files                       */
/*                                                                          */
/* status = TPU$EXECUTE_INIFILE ()                                          */
/*                                                                          */
unsigned int tpu$execute_inifile(void);
/*                                                                          */
/* TPU$FILEIO - Perform File Operations                                     */
/*                                                                          */
/* status = TPU$FILEIO (code, stream, data)                                 */
/*                                                                          */
/*  code   - Item code specifying a TPU function                            */
/*  stream - File description                                               */
/*  data   - Stream data                                                    */
/*                                                                          */
unsigned int tpu$fileio(__unknown_params);
/*                                                                          */
/* 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                              */
/*                                                                          */
unsigned int tpu$file_parse(__unknown_params);
/*                                                                          */
/* 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                              */
/*                                                                          */
unsigned int tpu$file_search(__unknown_params);
/*                                                                          */
/* TPU$HANDLER - TPU Condition Handler                                      */
/*                                                                          */
/* status = TPU$HANDLER (signal_vector, mechanism_vector)                   */
/*                                                                          */
/*  signal_vector    - Signal vector                                        */
/*  mechanism_vector - Mechanism vector                                     */
/*                                                                          */
unsigned int tpu$handler(__unknown_params);
/*                                                                          */
/* TPU$INITIALIZE - Initialize TPU for Editing                              */
/*                                                                          */
/* status = TPU$INITIALIZE (callback [, user_arg)                           */
/*                                                                          */
/*  callback - Callback routine bound procedure value                       */
/*  user_arg - User argument                                                */
/*                                                                          */
unsigned int tpu$initialize(__unknown_params);
/*                                                                          */
/* TPU$MESSAGE - Write Message String                                       */
/*                                                                          */
/* status = TPU$MESSAGE (string)                                            */
/*                                                                          */
/*  string - Formatted message                                              */
/*                                                                          */
unsigned int tpu$message(__unknown_params);
/*                                                                          */
/* 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                 */
/*                                                                          */
unsigned int tpu$parseinfo(__unknown_params);
/*                                                                          */
/* TPU$SIGNAL - Signal a TPU Status                                         */
/*                                                                          */
/* status = TPU$SIGNAL (condition_code)                                     */
/*                                                                          */
/*  condition_code - Condition code to signal                               */
/*                                                                          */
unsigned int tpu$signal(__unknown_params);
/*                                                                          */
/* 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                    */
/*                                                                          */
unsigned int tpu$specify_async_action(__unknown_params);
/*                                                                          */
/* TPU$TPU - Invoke TPU                                                     */
/*                                                                          */
/* status = TPU$TPU (command)                                               */
/*                                                                          */
/*  command - Command string                                                */
/*                                                                          */
unsigned int tpu$tpu(__unknown_params);
/*                                                                          */
/* TPU$TRIGGER_ASYNC_ACTION - Trigger an Asynchronous Action                */
/*                                                                          */
/* status = TPU$TRIGGER_ASYNC_ACTION (facility_index)                       */
/*                                                                          */
/*  facility_index - Index number of this action                            */
/*                                                                          */
unsigned int tpu$trigger_async_action(__unknown_params);
 
#ifdef __cplusplus
    }
#endif
#pragma standard
 
#endif /* __TPU$ROUTINES_LOADED */