--
with system;
with starlet; use starlet;
--
package TPARSE_ACTIONS is
--+----------------------------------------------------------------------
--
--	Unit Type : PACKAGE 
--	Unit Name : TPARSE_ACTIONS
--	Version   : V01.0F
--
--	Author : Stephen R. Rainier               Date : 10/11/85
--
--	Purpose : LIB$TPARSE action routines.
--
--
--	Parameters :
--
--	Name		Mode(I,O,IO)	Type/Subtype		Description
--	----		------------	------------		------------
--	ARG_BLOCK	    IO		tpa_type		tparse arg block
--
--
--	Modifications :
--
--	Name			Date		Description of Change
--	----			----		---------------------
--
--
--	Packages "WITH"ed : Ada$Predefined : Starlet, system
--
--
--	Procedure/Function "CALL"s : READ_CMD,READ_SWITCH,SAVE_PARAM
--
--
--	Exceptions :
--
--	Name			Handled/Raised		Description
--	----			--------------		-----------
--
--
--
--	Side Effects :
--
--
--	Comments :
--
--%----------------------------------------------------------------------

--
--		Declarations
--


	ARG_BLOCK : tpa_type := tpa_type_init;
	CP_LINE,CP_NAME,P1,P2,P3,P4,P5,P6 : string(1..256) := (1..256 => ' ');
	CP_LINE_LEN, CP_NAME_LEN, P1_LEN, P2_LEN, P3_LEN, P4_LEN,
				P5_LEN, P6_LEN : integer := 0;

function READ_CMD return integer;
	pragma export_function(READ_CMD,"READ_CMD");

function READ_SWITCH return integer;
	pragma export_function(READ_SWITCH,"READ_SWITCH");

function SAVE_PARAM return integer;
	pragma export_function(SAVE_PARAM,"SAVE_PARAM");

end TPARSE_ACTIONS;