Forum du club des d�veloppeurs et IT Pro - Ada

[EDI Emergeance] Environnement de d�veloppement Int�gr�

emergeance — Sun, 22 Mar 2026 04:02:47 GMT

Bonjour !

Vous avez peut �tre d�j� entendu parler de Skywalker ou Computerman.
Il s'agit du m�me projet r�alis� r�cemment suite � plusieurs tentative.
Bien que le gestionnaire de projets soit ing�nieux, il reste � la port� de chacun.
Dans une interface textuelle, il attend �ventuellement la g�om�trie dans un fichier de configuration ".config_file pouvant �tre r�ecrit sur la ligne de commande.
Les fonctions automatiques et les fonctions de gestion offre une ergonomie lib�rant des contraintes cotidi�me de mise � jour.

L'insersion de l'ent�te de fichiers inclue la date et la version chacune mise � jour automatiquement au moment de le finalisation de l'enrichissement gr�ce au fichier Makefile utilis� par la commande "make".
Le projet Emergeance d�pend �galement de l'�diteur GNU/Emacs, ainsi que de source-highlight disponibles sur les syst�me GNU/Linux.

La version 0.14.4a constitue le tier temps apr�s un p�riode durant laquelle j'ai oubli� de tester le rappel de commande du mode commande dans le process Devel.
La documentation ainsi que l'architecture n�cessaire au fonctionnement du programmme sont inclues dans l'archive disponible sur domaine sourceforge.net.

Images attach�es

Notes compl�mentaire pour les Kinder

emergeance — Sat, 21 Mar 2026 23:42:03 GMT

Bonjour � tous et � chacun et chacune.

L'objet de ce message est de vous faire pare d'une tendance cyclique particuli�re en tout point.

Les sp�cifications suivante sont conforme aux contraintes �nonc�es par le langage Ada.
Le message de repport de bug est authentique a contrario de la cause.

Le compilateur Gnat, lequel j'utilise depuis 28 ann�es, devrait se r�jouire de translater la source offerte pour rester aveti avec une expectative en suspend.
Cependant , alors qu'� l'instant le dit translateur proc�de avec succ�s sur mon sys�t�me Debian Bookworm, celui - ci essuie un echec sur mon syst�me Debian Stretch.

John Barnes, comme moi m�me �crirait ce message... Probablement plus pertinant encore.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
type Abstract_Class;
 
   type Abstract_Access is access all Abstract_Class'Class;
 
 
 
 
 
   procedure Obj_Free(O : in out Abstract_Access) is abstract;
 
 
   function Same (Left, Right : in Abstract_Access) return Boolean;
   package Abstract_Vectors is new Vectors (Abstract_Index, Abstract_Access, Same);
 
   type Abstract_Info is
      record
	 Index   : Abstract_Index := 1;
	 Name    : Wide_Access;
	 Created : Time := Time_Of(1970, 1, 1, 0.0);
	 Childs_Num : Natural := 0;
      end record;
 
 
   procedure Print (Info : Abstract_Info; header : in Window_Record);
   procedure Read (Info : out Abstract_Info;File : in W_Io.File_Type);
   procedure Write (Info : in Abstract_Info;File : in W_Io.File_Type);
 
   type Terminal_Type(Name : Terminal_Enum) is
      record
	 Root : Abstract_Access;
	 Path : Abstract_Vectors.Vector;
	 Cur  : Abstract_Access;
	 case Name is
	    when Objects =>
	       U_Count  : Natural := 0;
	    when others =>
	       null;
	 end case;
      end record;
 
   type Terminal_Access is access all Terminal_Type;
 
   type Abstract_Class is abstract tagged
      record
	 Info : Abstract_Info;
	 Childs  : Abstract_Vectors.Vector;
	 Definition : Attributs(10);
      end record;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
type Object_Class(Tag : Object_Enum);
   type Object_Access is access all Object_Class;
   function Tag_Name (Obj : Object_Class) return Natural;
   procedure Obj_Free(O : in out Abstract_Access);
   procedure Tree_Free (O : in out Abstract_Access);
   procedure Remove (T : in out Terminal_Type; Index : in Abstract_Index);
 
   procedure Global_Content_Print (Object : Object_Access;
				   Win       : in Window_Record);
 
   procedure Global_Read(File : W_Io.File_Type;
   			 End_Of_File : out Boolean;
   			 Object : out Abstract_Access);
 
 
   type Object_Class(Tag : Object_Enum) is abstract new Abstract_Class with
      record
 
   	 case Tag is
 
	    when Profile =>
	       Id                  : Natural := 0;
	    when Program .. Rendezvous =>
	       Date          : Time := Time_Of(1970, 1, 1, 0.0);
	       Period        : Duration := 0.0;
	       Locality      : Wide_Access;
	       Define        : Wide_Access;
	    when Book..DVD =>
	       Author : Wide_Access;
	       Editor : Wide_Access;
	       Owner  : Natural := 0;
	    when others =>
	       null;
	 end case;
      end record;

Dans la source correspondante � l'impl�mentation de ce second type r�riv� de Abstract_Class, Gnat signal un bug � la ligne 17.

Mon syst�me est donc d�clar� d�ff�ctueux ici aussi.

Spawn et multitache.

emergeance — Sat, 21 Mar 2026 22:29:29 GMT

Bonjour ;

Je vous �cris pour vous faire pare d'une anomalie sur mon syst�me GNU/Linux depuis quelques temps � propos de la procedure Spanw.

En effet, Spawn permet d'appeller un programme ext�rieur alors que l'instruction Spawn terminera � la terminaison du programme appel�.
Cela n'emp�che en rien de placer l'appel de Spawn dans une tache et de proc�der � un traitement multi-taches.

Mon syst�me ne le perm�ttant pas, il est d�clar� d�ffectueux.

Concr�tement, l'�rreur est programm� par sp�cification lors de la modification des source ou d'un sabotage post�rieur entrainant � l'appel de Spawn l'arr�t du tratement du programme appellant jusqu'� la terminaison du programme appell�.

Non_Blocking_Spawn & Errno

emergeance — Sat, 21 Mar 2026 20:41:40 GMT

Bonjour,

J'�cris avec Ada grace � Gnat sur GNU/Linux un programme appellant Swi-Prolog � travers un autre programme �crit avec Ada duquel je retourne un entier pour renseigner le programme lequel indique 0 malgr�s l'�tat renvoy� par le suivant.

Non_Blocking Spawn ne disposant pas de parametre Errno, j'esp�rer r�cup�rer l'entier �voqu� par OS_Lib.Set_Errno gr�ce � Errno apr�s un Wait_Process lequel malgr�s son emplacement retourne imm�diatement Invalid_ID.

Le programme appell� poursuit normalement ; Alors que cependant ; L'entier retoun� par OS_Lib.Errno ne correspond pas � celui sp�cifi� par OS_Lib.Set_Errno.

Comment proc�der ?
S'il vous plait ?
Merci.