Bonjour,
 
Le programme Emergeance arrive petit à petit après de longues années à chercher l'assemblage permettant de gérer la chaîne de production du logiciel pour le développement avec Ada grâce à un gestionnaire de projets laquel était déjà disponible dans Skywalker.
 
Ce nouveau projet suie succésivement à Adamanborg, puis prehander et Elhoim et Computerman pour enrichir finalement le projet avec l'ensemble des bout de programme écrit spécifiquement sur chacune des versions précédentes.
 
Bien que l'éditeur du programme Emergeance en soit à sont balebussiment, l'interface de commande est quand à lui semblable au fonctionnement d'un shell, bien qu'il ne soit qu'un interpréteur de commande.
 
Sa commande interne Xls est une ébauche pour laquelle il eserait nécessaire de trouver bonne pratique pour traiter l'argement asterisque ('*') comme d'une alernative à la command "ls".
 
Le gestionnaire de projet est confortable et l'organisateur permet de gérer une petite activité personnelle bien que chacun des mode d'utilisation ne soit pas encore inttégrer.
 
Le programme Emegeance écrit avec Ada grâce à Gnat sur Debian Stretch est publié par "prehander" sur sourceforge.net.

Re-  
Juste une modification à apporter pour cette version dans le process Devel_Process dans la tache File_Thread où il convient de placer l'affichage de la fenêtre demandé avec Draw_Window avant l'ouverture du fichier ".Out" dans l'incrémentation conditionnelle de Old_Count à Old_Count + 1 dans la boucle de lecture du dit fichier.
 
Good luck !

 
 
Mauvaise pioche !
La dernière itération efface le résultat.

From the France.
That right.
The last package is uploaded.
The old version are inclued.
The command mode in Devel process working.
The xls is an alternative at the "ls" command.
...

Une modification à mener conssiste à remplcer l'appel de la function "system" importé du C lors de l'appel de la commande xls fourni, dans la tache None_Process contenue dans emerge-life.adb.

J'ai oublié trois petites choses dans la version 0.11.2.
a) exit when Page = 3 doit être ajouté après le end loop du menu Gate_Process responsable de l'affichage de menu sur trois colonnes en sortie de programme.
b) dans emerge-main, Lines et Columns doivent remplacer respectivemnent 67 et 240
c) La colorisation des liens symboliques de la procédure xls s'obtient avec la fonction OS_Lib.Is_Symbolic_Link.
4me petite chose.
d) pour coloriser false de Swi-Prolog, il est nécessaire d'ajouter une variable afectée de la même manière en remplaçant true et dupliqué le bout de code dans la condition Next /= 0 avec la nouvelle variable en place de Pro_Index.

c) sans effet ici.

 
J'ai planché sans succès si ce n'est d'avoir colorisé les lien mort à la bonne couleur, l'entendant comme ma distribution l'entend, soit cyan.
Pour les liens sur des exécutable, pas de réponse pour le moment.
 
J'ai ajouté une condition pour l'extention "txt" colorisé en Black, et placé un else colorisé en yellow pour les périphériques alors que la condition correspondante est celle en reponse à la fonction Normalize_Pathname.
 
Je n'ai pas trouvé de solution pour les liens sur les programmes.
 

Black     : constant String := Character'Val(27) & "[01;30m";

elsif Directories.Extension(File_Name.all) = "txt" then
               Set(File_Index+1) := new String ' (black & Directories.base_Name(File_Name.all) & '.' & Directories.Extension(File_Name.all));
               File_Index := File_Index + 1;
            elsif Os_Lib.Is_Regular_File(File_Name.all) then
               Set(File_Index+1) := 
                 new String ' (white & Directories.simple_Name(File_Name.all));
               File_Index := File_Index + 1;
            elsif Os_Lib.Is_Symbolic_Link(File_Name.all) then
               if Os_Lib.Normalize_Pathname(File_Name.all, Directories.Containing_Directory(File_Name.all))'Length = 0 then             
                  Set(File_Index+1) := new String ' (Red & Directories.base_Name(File_Name.all));
                  File_Index := File_Index + 1;
               else
                  Set(File_Index+1) := new String ' (yellow & Directories.base_Name(File_Name.all));
                  File_Index := File_Index + 1;
               end if;
            else 
               Set(File_Index+1) := 
                 new String ' (Yellow & Directories.simple_Name(File_Name.all));
               File_Index := File_Index + 1;

Ce bout de sources occure deux fois.
 
 
 
J'avais aussi oublié d'affecter Lib.Shared.Line_Cur avec zéro pour la saise de Ctrl+L (Wide_Character'Val(12)) dans la tache None_Process.
 
Et il est nécessaire de décommenter les deux lignes de traitement des arguments dans la procedure xls se trouvant dans emerge-life.adb aussi.
 
 
Bizarement la commande interne "xls" donne le bon résultat pour /dev alors que le programme "xls" échoue.