manu@Chaos:~/Harmonie$ cat main.adb
   -- Program name : harmonie ; -- Description : Ordonnanceur.    -- Copyright © 2009 Manuel De Girardi
 
    -- Ce programme est un logiciel libre ; vous pouvez le redistribuer et/ou le modifier au titre
    -- des clauses de la Licence Publique Générale GNU, telle que publiée par la Free
    --Software Foundation ; soit la version 2 de la Licence, ou (à votre discrétion) une version
    --ultérieure quelconque. Ce programme est distribué dans l'espoir qu'il sera utile, mais
    --SANS AUCUNE GARANTIE ; sans même une garantie implicite de COMMERCIABILITE
    --ou DE CONFORMITE A UNE UTILISATION PARTICULIERE. Voir la Licence Publique
    --Générale GNU pour plus de détails. Vous devriez avoir reçu un exemplaire de la Licence
    --Publique Générale GNU avec ce programme ; si ce n'est pas le cas, écrivez à la Free
    --Software Foundation Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 
 
-------------------------------------------------------------------------------
-- Author      : Manuel De Girardi
-- Date        : 2009/08/09
-- Version     : 0.0.0-0a
-- Description : Compositeur-intepreteur de musique automatique.
-------------------------------------------------------------------------------
 
 
with Text_Io;
with Ada.Characters.Handling;
with Ada.Characters.Latin_1;
with Ada.Strings, Ada.Strings.Fixed;
with Pragmarc.Ansi_Tty_Control;
use Text_Io;
use Ada.Characters;
use Ada.Characters.Handling;
use Ada.Strings, Ada.Strings.Fixed;
use Pragmarc.Ansi_Tty_Control;
 
with Harmonia;
 
procedure Main is
 
 
   Clear_Screen : constant String := Latin_1.Esc & "[;H" & Latin_1.Esc & "[2J";
 
 
 
   task Harmonie is
      entry Start;
      entry Receive(Char : in Character);
      entry Halt;
   end Harmonie;
  task body Harmonie is
      Banner : String(1..80) := (others => ' ');
      Help   : String(1..80) := (others => ' ');
 
      End_Of_Task : Boolean := False;
      Line : String(1..256) :=  (others => ' ');
      Last : Natural := 0;
 
 
      type T_Command is (Null_Item, Start, Halt);
 
      function Value(Command : String) return T_Command is
         Result : T_Command := Null_Item;
      begin
         if Ada.Strings.Fixed.Index(Command , " ",  Ada.Strings.Fixed.Index_Non_Blank(command)) /= 0 then
            return T_Command'Value(Command(Ada.Strings.Fixed.Index_Non_Blank(Command)..Ada.Strings.Fixed.Index(Command, " ", Ada.Strings.Fixed.Index_Non_Blank(Command)) - 1));
         else
            return T_Command'Value(Command(Index_Non_Blank(Command)..Command'last));
         end if;
      exception
            when Constraint_Error =>
            Return Result;
      end Value;
 
      command : T_Command;
 
 
   begin
      accept Start;
      Move("Commands : HALT, START ; 'Esc' to quit.", Help, Error, Center);
      Move("""Welcome to Harmonie.""", Banner, Error, Center);
      while not End_Of_Task loop
         select
            accept Receive(Char : in Character) do
               if Is_Control(Char) then
                  case Char is
                     when Character'Val(10) =>
                        Command := Value(Line(1..Last));
                        Last := 0;
                        case Command is
                           when Halt =>
                              Harmonia.Conductor.halt;
                           when Start =>
                              Harmonia.Conductor.start;
                           when others =>
                              null;
                        end case;
                     when Character'Val(127) =>
                        if Last /= 0 then
                           Line(Last) := ' ';
                           Last := Last - 1;
                        end if;
                     when others =>
                        null;
                  end case;
               elsif Is_Special(Char) then
                  null;
               else
                  if Last < Line'Length then
                     Line(Last+1) := Char;
                     Last := Last + 1;
                  end if;
               end if;
            end Receive;
         or
            accept Halt do
               Harmonia.Conductor.Stop;
               End_Of_Task := True;
            end Halt;
         or
            delay 0.05;
            Put(Clear_Screen);
            New_Line;
            Put(Banner);
            New_Line(2);
            Put(help);
            New_Line;
            if Last /= 0 then
               Put(Position((30 - Last/80),1));
               put(Line(1..Last));
            end if;
         end select;
      end loop;
   end Harmonie;
 
 
   Char : Character;
 
begin
   Harmonie.Start;
   loop
      Get_Immediate(Char);
      case Char is
         when Character'Val(27) =>
            Harmonie.Halt;
            exit;
         when others =>
            Harmonie.Receive(Char);
      end case;
   end loop;
end Main;