Discussion :

[Invité]

Bonjour,

je souhaite lire du texte sur l'entrée standard jusqu'à la fin du fichier, c''est à dire à la frappe de Ctrl+d

Je suis sur une machiine Gnu/Linux Sarge, je charche donc dans un premier temps, une solution pour cette plate-forme, mais j'espère porter le programme sur Windows.

Mon problème est que le programme termine prématurément.

Je voudrais savoir quelle sont les précaution à prendre éventuellement .... Un solution en tout cas, si c'est possible.


Mon code est le suivant ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
With Text_Io; 
 
 use Text_Io;
 
procédure Main is
 
   Char : Character;
begin
 
   while not End_Of_File loop
 
      Get_Immediate(Char);
 
      -- Traitement du caractère.
 
   end loop;
 
end Main;

[Lowelace]

Bonjour,

Qu'entends-tu par se terminer prématurement ?

Sinon au lieu de tester End_Of_File, teste peut-être le "character" EOF.

Ou alors, tu testes trop tôt le End_Of_File (un fichier vide = End_Of_File); essaie :

Code :

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

1
2
3
4
5
6
 
loop
Get_Immediate(char);
 
exit when End_Of_File; -- ou alors : Char = EOF
end loop;

Ps : n'oublie pas quand le pb est résolu

[Invité]

Bonsoir,

Merci Lowelace.

J'ai essayer déjà de lire avant de tester la fin du fichier.

Pour le caractère EOF, je suis bien content que tu m'en reparle,
depuis tout petit, j'attend de savoir, comment il se ce code.

C'est quoi le caractère EOF ?

Mon problème, je crois, que c'est de faire ça dans une tache

Qu'entends-tu par se terminer prématurement ?

L'algo exacte, ... Alors, que j'attends un caractère infiniment ....

Il en prend un, puis entrée, puis un second, puis termine.


(je pofine ma liste générique)

[Invité]

J'attend un caractère jusqu'à Ctrl+d (End of Transmmition ou en core le code ascii 4)... et pas infiniment

[Lowelace]

J'ai pas trop d'idées en stock : pas très familier avec les tâches Ada et les IO.

Pour EOF, j'ai été "enduit" d'erreur par la RT Gnat (Interfaces.C_Streams), qui définit un EOF qui n'est pas un caractère ASCII.

Essaie voir sur un petit exe avec le code que je t'ai suggéré et en testant le char vis-à-vis de EOT.

[Invité]

J'ai pas trop d'idées en stock : pas très familier avec les tâches Ada et les IO.

Pour EOF, j'ai été "enduit" d'erreur par la RT Gnat (Interfaces.C_Streams), qui définit un EOF qui n'est pas un caractère ASCII.

Essaie voir sur un petit exe avec le code que je t'ai suggéré et en testant le char vis-à-vis de EOT.

Bonjour,

l'algo avec le teste de fin de fichier après le get_immediate ne change rien ..

j'ai fait une petite erreur dans ma description ci-dessus ... le programme attend d'abord le caractere Entrée puis se déroule normalement.

En revanche ... je n'avais pas remarqué ... puisque je m'attendais normalement à la fin du programme lors de la fin du fichier ... que EOT provoque la fin du programme... je ne sais comment ça ce fait par contre

[Invité]

Bonsoir,

Mon objectif en fait c'est de pourvoir fair "cat fichier.txt | mon_prog" et lire le text sur l'entré stadard.

[Lowelace]

"cat fichier.txt | mon_prog" et lire le text sur l'entré stadard.

En résumé, quel est le comportement attendu ?

[Invité]

En résumé, quel est le comportement attendu ?

J'attends que mon programme soit appelé en lui passant des données en sortie standard sur l'entrée standard (le pipe) et que celui-ci lise sur l'entrée standard jusqu'à la fin du fichier, puis s'exécute normalement.

[Lowelace]

Pourquoi veux-tu faire cela ?

Pourquoi ne pas passer ton fichier en argument de ton exe (Comme en C ou en shell) puis de le lire dans ton exe ?

[Invité]

Pourquoi veux-tu faire cela ?

Pourquoi ne pas passer ton fichier en argument de ton exe (Comme en C ou en shell) puis de le lire dans ton exe ?

Pour des raisons de souplesse d'utilisation.

C'est plu facile de pourvoir écrire

mon_programme --input_file="les_données.txt" | mon_programme --ouput_file="le_résultat.txt"

que

touch fichier_temp
mon_programme --input_file="les données.txt" -- output="fichier_temp" && mon_programme input="fichier_temp" --ouput_file="le_résultat.txt"

la souplesse quoi

[Lowelace]

Et si tu essayais d'utiliser le fichier Standard_Input défini dans Text_io comme un fichier normal ? (open , read while not End_of_file, Close )

[Invité]

Et si tu essayais d'utiliser le fichier Standard_Input défini dans Text_io comme un fichier normal ? (open , read while not End_of_file, Close )

Euh oui, c'est pas bête ... cependant, Standard_Input n'est pas une variable.

[Lowelace]

Certes,mais c'est une fonction qui retourne un handler de fichier (File_Type).

[Invité]

Certes,mais c'est une fonction qui retourne un handler de fichier (File_Type).

Et ... ou veux-tu en venir ?

[Orni-Dev]

Bonjour,
Voici un xemple pour copier un fichier texte (si ca peut t'aider) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
With Text_Io; 
 
 use Text_Io;
 
procédure Main is
       original,copie: File_Type;
      temp : Character;
   begin
      open(original,In_File,"fichierEntree.txt");
      create(copie,Out_File,"fichierSortie.txt");
      while not End_Of_File(original) loop
         Get(original,temp);   
         Put(copie,temp);
      end loop;
      close(original);
      close(copie);
end Main;

Le End_Of_File utilise un paramètre, sans ce dernier ça ne marchait pas chez moi : le fichier n'etait pas recopié.

[Invité]

Merci pour l'exemple.

Si tu set_input avec ton fichier, alors current_input sera ton fichier et tu dois pouvoir te passer de donner le fichier à end_of_file.

Si je ne m'abuse.

[Invité]

Ah oui, tu as raison Orni-Dev, ... ça fonctionne beaucoup mieu en passant "Current_Input". Je n'avais pas remarqué encore.

C'est louche au passage ... Il faudra que je vérifi sur Microsoft

[Invité]

Bon, mais ça règle pas mon problème.

Mon code pour le moment est celui-ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
with Computer, Text_Io;
 use Computer, Text_Io;
procedure Main is
   Char : Character;
begin
   while not End_Of_File(Current_Input) Loop
      Get_Immediate(Char);
      case Char is
         when Character'Val(0) =>
            exit;
         when others =>
            Console.Receive(Char);
      end case;
   end loop;
   Console.Shutdown;
 
end Main;

Donc là, si je fait "cat fichier.txt | mon_prog" ça exit bien en fin de fichier.
Mais si j'appelle simplement "mon_prog" ... ça saisi pas.

si je fait une simple boucle, avec le "cat fichier | ... " ça exit pas. par contre en appelant "mon_prog" ça saisi .. évidemment.

Il doit y avoir une astuce ... c'est pas possible autrement.

[Lowelace]

Bonjour,

je pense peut-être que tu essaies de lire dans deux "fichiers" différents :
- sur la console,
- sur l'entrée standard de ton appli.

Peut-être, faut-il tester celui qui est non-vide et lire en fonction.