generic 

   -- 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_Type
To API doc
To spec ) return boolean; 

package Command_Line_Generic
To API doc
To body is 

   procedure Get_Command
To API doc
To body; 

end Command_Line_Generic
To API doc
To spec
To body;