utilisation de ansi_console dans un terminal GNU/Linux.

Source ada : 

with Ansi_Console;                      use Ansi_Console;

procedure Gnasterm is
   
   generic
      
      Lines_Max   : Short_Integer := 24;
      Columns_Max : Short_Integer := 80;
   package Term is                        
      
      task Terminal is
    entry Receive (Keystroke : in Keystroke_Input_Type);
    entry Halt;
      end Terminal;
                  
   end Term;
   
   package body Term is                        
      
      task body Terminal is
      begin
    loop
       select
          accept Receive (Keystroke : in Keystroke_Input_Type) do
        null;
          end Receive;
       or
          accept Halt;
          exit;
       end select;
    end loop;
      end Terminal;
                  
   end Term;
   
   
   package Gnasterminal is new Term;
   
   Keystroke : Keystroke_Input_Type;
   
begin
   loop
      Get_Key(Keystroke);
      Gnasterminal.Terminal.Receive(Keystroke);      
   end loop;         
end Gnasterm;