--
with system, starlet, condition_handling;
use system, starlet, condition_handling;
--
package SYSTEM_LIBRARY is
--+----------------------------------------------------------------------
--
--	Unit Type : package type
--	Unit Name : SYSTEM_LIBRARY_.ADA
--	Version   : V01.00
--
--	Author : Stephen R. Rainier            --  Date :  8/ 27/ 85 --
--
--	Purpose : Specification for a number of system service library
--		  routines.
--
--	Parameters :
--
--	Name		Mode(I,O,IO)	Type/Subtype		Description
--	----		------------	------------		------------
--
--
--
--
--	Modifications :
--
--	Name			Date		Description of Change
--	----			----		---------------------
--
--
--	Packages "WITH"ed : system, starlet, condition_handling
--
--
--	Procedure/Function "CALL"s :
--
--
--	Exceptions :
--
--	Name			Handled/Raised		Description
--	----			--------------		-----------
--
--
--
--	Side Effects :
--
--
--	Comments :
--
--%----------------------------------------------------------------------

--
--	Global Declarations
--

procedure SET_DIR(STATUS : out unsigned_longword; DIR_STR : in string;
		OUT_LEN : out unsigned_word; OUT_DIR : out string);
pragma interface(external, SET_DIR);
pragma import_valued_procedure(SET_DIR, "SYS$SETDDIR", 
		(unsigned_longword, string, unsigned_word, string),
		(value, descriptor(s), reference, descriptor(s)));

procedure ATTACH(STATUS : out unsigned_longword; PROC_ID: in unsigned_longword);
pragma interface(EXTERNAL, ATTACH);
pragma import_valued_procedure(ATTACH, "LIB$ATTACH",
		(unsigned_longword, unsigned_longword), (value, reference));

procedure DO_COMMAND(STATUS : out unsigned_longword; CMD_LINE : in string);
pragma interface(EXTERNAL, DO_COMMAND);
pragma import_valued_procedure(DO_COMMAND, "LIB$DO_COMMAND",
		(unsigned_longword, string), (value, descriptor(s)));

procedure SPAWN_DCL(STATUS : out cond_value_type; CMD_LINE : in string;
		IN_FILE : in string := ""; OUT_FILE : in string := "";
		FLAGS : unsigned_longword:=0; PROCESS_NAME : in string := "";
		PROCESS_ID : out unsigned_longword;
		COMPLETION_STATUS : out unsigned_longword);
pragma interface(EXTERNAL, SPAWN_DCL);
pragma import_valued_procedure(SPAWN_DCL, "LIB$SPAWN",
		(cond_value_type, string, string, string, unsigned_longword,
		 string, unsigned_longword, unsigned_longword),
		(value, descriptor(s), descriptor(s), descriptor(s), reference,
		 descriptor(s), reference, reference));

procedure VMS_TPARSE(STATUS : out unsigned_longword;ARG_BLOCK : in out tpa_type;
		STATES : in address; KEYS : in address);
pragma interface (external, VMS_TPARSE);
pragma import_valued_procedure(VMS_TPARSE, "LIB$TPARSE",
		(unsigned_longword, tpa_type, address, address),
		(value, reference, value, value));

procedure FIND_FILE(STATUS : out unsigned_longword; WILD : in string;
  		FILE : in out string; CONTEXT : in out integer;
  		DEFAULT : in string; RELATED : in string;
  		RMS_SEC_STATUS : out integer; USER_FLAG : in unsigned_longword);
pragma interface(EXTERNAL, FIND_FILE);
pragma import_valued_procedure(FIND_FILE, "LIB$FIND_FILE",
  		(unsigned_longword, string, string, integer, string, string,
		 integer, unsigned_longword),
		(value, descriptor(s), descriptor(s), reference, descriptor(s),
		 descriptor(s), reference, reference));

procedure FILE_END(STATUS : out unsigned_longword; CONTEXT : in out integer);
pragma interface(EXTERNAL, FILE_END);
pragma import_valued_procedure(FILE_END, "LIB$FIND_FILE_END",
  		(unsigned_longword, integer),(value, reference));

procedure GET_CMD_LINE(STATUS : out unsigned_longword; CMD_LINE : out string;
		PROMPT : in string := ">"; LEN : out short_integer;
		FORCE : in integer := 0);
pragma interface(EXTERNAL, GET_CMD_LINE);
pragma import_valued_procedure(GET_CMD_LINE, "LIB$GET_FOREIGN",
		(unsigned_longword, string, string, short_integer, integer),
		(value, descriptor(s), descriptor(s), reference, value));

procedure DISABLE_CONTROL(STATUS : out unsigned_longword;
		MASK : in unsigned_longword; OLD_MASK : out unsigned_longword);
pragma interface(EXTERNAL, DISABLE_CONTROL);
pragma import_valued_procedure(DISABLE_CONTROL, "LIB$DISABLE_CTRL",
		(unsigned_longword, unsigned_longword, unsigned_longword),
		(value, reference, reference));

procedure ENABLE_CONTROL(STATUS : out unsigned_longword;
		MASK : in unsigned_longword; OLD_MASK : out unsigned_longword);
pragma interface(EXTERNAL, ENABLE_CONTROL);
pragma import_valued_procedure(ENABLE_CONTROL, "LIB$ENABLE_CTRL",
		(unsigned_longword, unsigned_longword, unsigned_longword),
		(value, reference, reference));

end SYSTEM_LIBRARY;