Bonjour, je fais actuellement de l'ADA sur le shell de cygwin et je cherche à afficher le contenu d'un fichier texte. Mon programme compile mais seulement la première ligne de mon fichier texte est lu. De plus, mon programme ne se termine pas... donc j'imagine qu'il doit y avoir un problème avec ma boucle. Ou est-ce que ça vient de cygwin
Voici le code :
Code :
- with Ada.Text_io; use Ada.Text_io;
- procedure exemple is
- fichier:File_type;
- car : Character;
- begin
- open (fichier,in_file, "texte.txt" );
- while not end_of_file( fichier ) loop
- while not end_of_line( fichier ) loop
- get(fichier,car);
- put(car);
- end loop;
- skip_line;
- end loop;
- close(fichier);
- end exemple;
|
Message édité par alpachinois le 22-04-2009 à 22:30:45
