! *** PREDECLARED TYPES %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN RECORD BASIC$H_FLOATING_COMPLEX_AXP BASIC$HFLOAT_AXP REAL_PART BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF ! ! Text Processing Utility (TPU) Routines ! ! ! TPU$CLEANUP - Free System Resources Used During TPU Session ! ! status = TPU$CLEANUP (flags) ! ! flags - Cleanup options ! EXTERNAL LONG FUNCTION TPU$CLEANUP & ( & LONG BY REF & ) ! ! 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 ! EXTERNAL LONG FUNCTION TPU$CLIPARSE & ( & STRING BY DESC, & ANY BY REF, & ANY BY REF & ) ! ! TPU$CLOSE_TERMINAL - Close Channel to Terminal ! ! status = TPU$CLOSE_TERMINAL () ! EXTERNAL LONG FUNCTION TPU$CLOSE_TERMINAL ! ! TPU$CONTROL - Pass Control to TPU ! ! status = TPU$CONTROL () ! EXTERNAL LONG FUNCTION TPU$CONTROL ! ! TPU$EDIT - Edit a file ! ! status = TPU$EDIT (input, output) ! ! input - Input file name ! output - Output file name ! EXTERNAL LONG FUNCTION TPU$EDIT & ( & STRING BY DESC, & STRING BY DESC & ) ! ! TPU$EXECUTE_COMMAND - Execute One or More TPU Statements ! ! status = TPU$EXECUTE_COMMAND (string) ! ! string - TPU statement(s) to execute ! EXTERNAL LONG FUNCTION TPU$EXECUTE_COMMAND & ( & STRING BY DESC & ) ! ! TPU$EXECUTE_INIFILE - Execute Initialization Files ! ! status = TPU$EXECUTE_INIFILE () ! EXTERNAL LONG FUNCTION TPU$EXECUTE_INIFILE ! ! TPU$FILEIO - Perform File Operations ! ! status = TPU$FILEIO (code, stream, data) ! ! code - Item code specifying a TPU function ! stream - File description ! data - Stream data ! EXTERNAL LONG FUNCTION TPU$FILEIO & ( & LONG BY REF, & ANY BY REF, & ANY BY REF & ) ! ! 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 ! EXTERNAL LONG FUNCTION TPU$FILE_PARSE & ( & STRING BY DESC, & LONG BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & STRING BY DESC & ) ! ! 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 ! EXTERNAL LONG FUNCTION TPU$FILE_SEARCH & ( & STRING BY DESC, & LONG BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & STRING BY DESC & ) ! ! TPU$HANDLER - TPU Condition Handler ! ! status = TPU$HANDLER (signal_vector, mechanism_vector) ! ! signal_vector - Signal vector ! mechanism_vector - Mechanism vector ! EXTERNAL LONG FUNCTION TPU$HANDLER & ( & LONG DIM() BY REF, & LONG DIM() BY REF & ) ! ! TPU$INITIALIZE - Initialize TPU for Editing ! ! status = TPU$INITIALIZE (callback [, user_arg) ! ! callback - Callback routine bound procedure value ! user_arg - User argument ! EXTERNAL LONG FUNCTION TPU$INITIALIZE & ( & ANY BY REF, & OPTIONAL LONG BY REF & ) ! ! TPU$MESSAGE - Write Message String ! ! status = TPU$MESSAGE (string) ! ! string - Formatted message ! EXTERNAL LONG FUNCTION TPU$MESSAGE & ( & STRING BY DESC & ) ! ! 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 ! EXTERNAL LONG FUNCTION TPU$PARSEINFO & ( & ANY BY REF, & ANY BY REF & ) ! ! TPU$SIGNAL - Signal a TPU Status ! ! status = TPU$SIGNAL (condition_code) ! ! condition_code - Condition code to signal ! EXTERNAL LONG FUNCTION TPU$SIGNAL & ( & LONG BY VALUE & ) ! ! 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 ! EXTERNAL LONG FUNCTION TPU$SPECIFY_ASYNC_ACTION & ( & LONG BY REF, & OPTIONAL STRING BY DESC & ) ! ! TPU$TPU - Invoke TPU ! ! status = TPU$TPU (command) ! ! command - Command string ! EXTERNAL LONG FUNCTION TPU$TPU & ( & STRING BY DESC & ) ! ! TPU$TRIGGER_ASYNC_ACTION - Trigger an Asynchronous Action ! ! status = TPU$TRIGGER_ASYNC_ACTION (facility_index) ! ! facility_index - Index number of this action ! EXTERNAL LONG FUNCTION TPU$TRIGGER_ASYNC_ACTION & ( & LONG BY REF & )