package Gmface.Gm_Application.Gm_interface is   
   
   
   
   
   type Device_Info_Record is tagged
      record
	 Id : Integer := -1;
	 Name : access String;
      end record;
   
   type Device_Record is tagged
      record
	 Input : Device_Info_Record;
	 Output : Device_Info_Record;
	 Device_Id : Natural := 0;	 
      end record;      
   
   type Device_Access is access all Device_Record;
   
   type Device_Array is array (1..128) of Device_Access;
   
   type Gm_Interface_Record is tagged
      record
	 Devices_Info : Device_Array;	 
      end record;
   
   type Gm_Interface is access all Gm_Interface_Record;
   
end Gmface.Gm_Application.Gm_Interface;