-- valid commands, that can be entered through the command line
type Command_Type is (<>);
-- a function that contains the control logic for the execution of the commands.
with function Handle_Command ( Command : in Command_TypeTo API docTo spec ) return boolean;
package Command_Line_GenericTo API docTo body is
procedure Get_CommandTo API docTo body;
end Command_Line_GenericTo API docTo specTo body;