🚀 go-pugleaf

Bonjour,

J'apprends Ada et donc j'écris un petit logiciel.

Dans mon domaine, l'automatisation, les types Byte, Word, DWord sont classiques ainsi que les fonctions SHL, ROL...

J'ai trouvé tout cela dans le paquetage Interfaces et j'ai écrit le paquetage père suivant :


-- Ada For Automation
with Interfaces;
package A4A is

   subtype Byte is Interfaces.Unsigned_8;
   --  8-bit unsigned integer

   subtype Word is Interfaces.Unsigned_16;
   -- 16-bit unsigned integer

   subtype DWord is Interfaces.Unsigned_32;
   -- 32-bit unsigned integer

    function SHL
     (Value  : DWord;
      Amount : Natural) return DWord renames Interfaces.Shift_Left;
   -- Shift Left

   function ROL
     (Value  : DWord;
      Amount : Natural) return DWord renames Interfaces.Rotate_Left;
   -- Rotate Left

   -- Global variables

   Quit : Boolean := False;
   -- When Quit is set, the application shall exit
   -- Quit is set either by SIGINT Handler or by GUI
   -- All tasks should care about Quit and terminate themselves

end A4A;

De ce que je comprends, une ligne comme :
   subtype Byte is Interfaces.Unsigned_8;
définit une sorte d'alias que je peux utiliser comme bon me semble dans tous les paquetages fils de A4A.

En tous cas cela fonctionne.

Pour mes fonctions SHL et ROL, cela fonctionne également, mais à la condition expresse que je with Interfaces dans le paquetage fils, ce que je souhaiterais éviter si possible.

Pourquoi faut-il faire ce with ?

Il y a-t-il une solution triviale à mon besoin ?

Cordialement,
Stéphane