Bonjour,
Je doit ecrire une fonction traduisant l'effet d'une macro C donnant un entier en concatenant  trois hexa.
 
Mon problème est de trouver comment obtenit une représentation hexa avec Ada, pas trouvé
 
Merci pour votre aide.  

Donc, je disais... Que j'avais réussi à convertir un base 10 en base 16... Avec le code ci-dessous...

function Hex_Image(Num : Integer) return String is
      Image : String(1..9);
      Last  : Positive := 9;
      Number : Integer := num;
      type Hexa_Digit is
        ('0', '1', '2', '3', '4', '5', '6', '7',
         '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
 
      Rest : Integer;
   begin
      while (Number rem 16) /= 0 loop
 
         Rest := (Number rem 16);
         image(Last) := Character'Value(Hexa_Digit'image(Hexa_Digit'val((rest))));
         number := Number - rest;
 
         Last := Last - 1;
 
      end loop;
      image(Last) := Character'Value(Hexa_Digit'image(Hexa_Digit'val(Number/16)));
      return Image(Last..Image'length);
   end Hex_Image;

 
La concatenation, bon, je donne pas de cours....
 
Par contre maintenant, je doit retrouver l'entier correspondant à la chaîne de trois hexa concatené.
 
J'ai donc une chaîne de caractères exprimant un nombre en base 16 et je veux un type entier long en base 10.
 
Et la question est, comment procéder... Comme d'hab, le premier sera le premier.

Hep !
 
 
Pour l'instant, je n'ai rien trouvé de mieux que d'écrire la chaîne dans un fichier en l'encadrant par "16#" et '#' et de relire. Ca marche.

Ca me parait pas trop difficile en théorie après en ADA j'en sais rien du tout mais tu lis ton nombre hexa caractère par caractère, tu transforme chacun en nombre (1->1 , ... , A -> 10, ... F->15) et tu fais la somme des produits de chaque nombre avec 16^position du caractère. Sachant que le caractère tout à droite est à la position 0.

Je sais pas si ça répond à ton problème.

 
Ok, merci, donc reconvertir...
 
 
 
Pour le code ci-dessus, il n'est pas exacte ... voici la correction.
 

function Hex_Image(Num : Integer) return String is
      Image : String(1..9);
      Last  : Positive := 9;
      Number : Integer := num;
      type Hexa_Digit is
        ('0', '1', '2', '3', '4', '5', '6', '7',
         '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
 
      Rest : Integer;
   begin
      loop
 
         Rest := (Number rem 16);
         image(Last) := Character'Value(Hexa_Digit'image(Hexa_Digit'val((Rest))));
         number := Number - rest;
 
         Last := Last - 1;
         exit when (Number rem 16) = 0;
      end loop;
      image(Last) := Character'Value(Hexa_Digit'image(Hexa_Digit'val(Number/16)));
      return Image(Last..Image'length);
   end Hex_Image;

 
 
J'ai terminé de se côté ci.