Discussion :

[Invité]

Bonjour,
Bon, je ne sais pas si le problème s'exprime ainsi. Mais c'est à peu près ça.

J'ai écrit une un bibliothèque avec Ada que j'ai exporté pour le langage C.

Dans mon code de programme Ada actuellement on peut lire ce ceci :

Code ada :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
if Line /= null then
   Text_Io.Put(Line.all);
   if Line_Max-(Line'Length) > 1 then
      Text_Io.Put(Fixed."*"((Line_Max-Line'Length)-1, ' '));
      Text_Io.Put(Character'Val(10));
   else
      Text_Io.Put(Character'Val(13));
   end if;                                       
   Free(Line);                     
end if;

pour que ça fonctionne avec le langage C grâce à un export je doit inverser les caractères de contrôle.

Avec les terminaux c'est encore différent.

C'est pas simple à géré sur de gros projet.

Impossible de faire un New_Line aussi en version Export C.

Je suis sur un système compatible IBM PC avec Gnu/Linux et gnat 4.6

[Invité]

A, ben j'ai trouvé !!



Je met Ascii.CR et Ascii.LF (je suis pas certain qu'il soit utile) respectivement pour les caractères 10 et 13, je sais plus ou j'en suis.

Apparemment c'est résolu.

Merci quand même.

[Invité]

Finalement ma semi-solution, je dis semi parce qu'encore ça fonctionne qu'à moitié c'est ça :

Code ada :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
--
                        if Line /= null then
                           Text_Io.Put(Line.all);
                           if (Line_Max-(Line'Length)) > 1 then
                              Text_Io.Put(Fixed."*"((Line_Max-Line'Length), ' '));
                              Text_Io.Put(ASCII.LF);
                           else
                              Text_Io.Put(ASCII.LF);
                           end if;                         
 
                           Free(Line);                     
                        end if;

Mais j'ai un décalage de 24 caractères à la base de Line_max sensé être le nombre de colonnes du terminal.
Je vais trouver pourquoi mais normalement la procédure ci-dessus est plus naturelle.

En fait ça marche même à moitié parce que parfois j'ai quand même des truc comme : fin.fin.n.