(******************************************** General Purpose RTL Routine Declarations ********************************************) [EXTERNAL, ASYNCHRONOUS] FUNCTION LIB$CRC (%REF Table : INTEGER; %REF Inicrc : INTEGER; %DESCR Stream : VARYING [u] OF CHAR): INTEGER; EXTERN; [EXTERNAL, ASYNCHRONOUS] PROCEDURE LIB$CRC_TABLE (%REF Poly : UNSIGNED; %REF Table : INTEGER); EXTERN; [EXTERNAL, ASYNCHRONOUS] FUNCTION LIB$FIND_FILE (%DESCR File_Spec : VARYING [u] OF CHAR; %DESCR Result_Spec : VARYING [v] OF CHAR; %REF Context : INTEGER; %DESCR Default_Spec : VARYING [w] OF CHAR := %IMMED 0; %DESCR Related_Spec : VARYING [x] OF CHAR := %IMMED 0; %REF STV_Addr : INTEGER := %IMMED 0; %REF User_Flags : UNSIGNED := %IMMED 0): INTEGER; EXTERN; [EXTERNAL, ASYNCHRONOUS] FUNCTION LIB$FIND_FILE_END (%REF Context : INTEGER): INTEGER; EXTERN; [EXTERNAL, ASYNCHRONOUS] FUNCTION LIB$GET_INPUT (%DESCR Get_Str : VARYING [u] OF CHAR; %DESCR Prompt_Str : VARYING [v] OF CHAR := %IMMED 0; %REF Out_Len : UNSIGNED): INTEGER;EXTERN; [EXTERNAL, ASYNCHRONOUS] FUNCTION LIB$PUT_OUTPUT (%DESCR Msg_Str : VARYING [u] OF CHAR): INTEGER;EXTERN; [EXTERNAL, ASYNCHRONOUS] FUNCTION LIB$SIGNAL (Condition_Value : INTEGER; %IMMED Sig_Args : [LIST, UNSAFE] INTEGER := %IMMED 0): INTEGER;EXTERN; [EXTERNAL, ASYNCHRONOUS] FUNCTION LIB$SPAWN (%DESCR Command_String : VARYING [u] OF CHAR := %IMMED 0; %DESCR Input_File : VARYING [v] OF CHAR := %IMMED 0; %DESCR Output_File : VARYING [w] OF CHAR := %IMMED 0; %REF Flags : UNSIGNED := %IMMED 0; %DESCR Process_Name : VARYING [x] OF CHAR := %IMMED 0; %REF Process_ID : UNSIGNED := %IMMED 0; %REF Completion_Status : UNSIGNED := %IMMED 0; %REF Completion_EFN : UNSIGNED := %IMMED 0; %REF Completion_astadr : UNSIGNED := %IMMED 0; %IMMED Completion_astarg : UNSIGNED := %IMMED 0; %DESCR Prompt : VARYING [y] OF CHAR := %IMMED 0; %DESCR CLI : VARYING [z] OF CHAR := %IMMED 0): INTEGER; EXTERN; [EXTERNAL, ASYNCHRONOUS] FUNCTION LIB$STOP (Condition_Value : INTEGER; %IMMED Sig_Args : [LIST, UNSAFE] INTEGER := %IMMED 0): INTEGER; EXTERN; [EXTERNAL, ASYNCHRONOUS] FUNCTION LIB$TPARSE (%REF Arg_Blk : TPA$TYPE; %REF State_Tbl : INTEGER; %REF Key_Tbl : INTEGER): INTEGER; EXTERN;