🚀 go-pugleaf

Bonjour,

Cela fait longtemps que je n'ai pas fait d'Ada mais, pour �viter 
d'�crire "with Interfaces" l� o� tu �cris "with A4A", une solution 
consisterait, si je me souviens bien, � remplacer les d�clarations 
"subtype XXX is Interfaces.YYY;" par "type XXX is new is Interfaces.YYY;".

Avec "subtype XXX", on ne fait que d�clarer une sorte d'alias de YYY.
Les fonctions primitives du type XXX sont en fait celles de YYY, qui 
sont (toujours) dans le package Interfaces, qui doit donc �tre import�.

En revanche, avec "type XXX", on cr�e un nouveau type (XXX), qui ram�ne 
avec lui les fonctions primitives de YYY dans le package A4A. Il n'y a 
donc pas besoin de de faire "with Interfaces".

Les sp�cialistes Ada utiliseront un vocabulaire plus pr�cis et exact que 
le mien, mais j'esp�re que ces explications sont compr�hensibles pour toi.

Donc je pense qu'il te suffis d'�crire  ceci :

-- Ada For Automation
with Interfaces;
package A4A is

     type Byte is new Interfaces.Unsigned_8;
     --  8-bit unsigned integer

     type Word is new Interfaces.Unsigned_16;
     -- 16-bit unsigned integer
     ...


Cordialement,
Damien Carbonne



Le 26/08/2012 00:07, slos a �crit :
> 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
>