with Adam.Interfaces;
use Adam.Interfaces;
package Adam.Terminal.Main is
   
   --  type Shell_Interface_Record (Computer : access Ai.Computer_Type) is new Adam.Angels.Shell_Machine_Type(Computer) with
   --     record	 
   --  	 Pattern : Os_Lib.String_Access;
   --    end record;
   
   --  procedure Shell_Initialize (Shell_Interface : in out Adam.Pointers.Adam_Pointer;
   --  			       Computer : access Ai.Computer_Type; 
   --  			       Errno : out Integer);
   
   procedure Main (Shell_Interface : in Main_Interface_access; Quiet : in Boolean; Lines : in Positive; Columns : in Positive; Errno : out Integer);
   
end Adam.Terminal.Main;