bonjour a tous
j'ai un probleme que j'arrive pas a resoudre et pourtant j'ai cherché
 
voila j'ai une liste d'element que j'écrit dans un fichier : ecrire_elements(liste)
 
procedure ecrire_elements(liste : t_liste) is
   nom_fichier : "fichier.txt";
begin
   Create(Fichier,Out_File,Nom_Fichier);
   while not est_vide(liste) loop
      ecrire_elt(fichier, liste.valeur);
   end loop;
end ;
 
(En gros)
 
ce que je veux faire c est passé le nom du fichieren parametre
 
ecrire_elements(liste : t_liste, nom_fichier : string) is
 
pas dur mais j'arrive pas ensuite a dire le fichier :  est le fichier âr défaut pour afficher en fait dans la console d'éxcecution
 
je veux pas refaire totues mes procedures et sous-procedures juste parceque dans un example je vais faire
- put(element)
et dans l'autre
- put(fichier, element)
 
merci de votre aide

Apres ultime recherche : voila la solution :  
 
procedure ecrire_Element (Lm : in T_List; Nom_Fichier : String := "DEFAUT" ) is  
      Fichier     : File_Type;  
      L           : T_List_Machine := Lm;  
   begin
      if Nom_Fichier /= "DEFAUT" then
         if not Fichier_Existe(Nom_Fichier) then
            Create(Fichier,Out_File,Nom_Fichier);
            Close(Fichier);
         end if;
         Open(Fichier,Out_File,Nom_Fichier);
      end if;
      while not Est_Vide(L) loop
         --Ecrire ligne enregistrement dans le fichier
         if Nom_Fichier /= "DEFAUT" then
            Ecrire_Machine(Fichier, Get_Val(L));
            Put_Line(Fichier, "-----" );
         else  
            Ecrire_Machine(fichier => Ada.Text_IO.Current_Output, M => Get_Val(L));
            Put_Line("-----" );
         end if;
         L := Get_Suiv(L);
      end loop;
      if Nom_Fichier /= "DEFAUT" then
         Close(Fichier);
      end if;
   end ecrire_element;
 
 
A l'appel :  
 
Ecrire_Planning_Atelier(Lm, "planning_atelier.txt" );
ou alors :  
Ecrire_Planning_Atelier(Lm);
 
voila bnonsoir, ca sera peut etre utile pour quelqu'un d'autre

Yep,
 
Il y à certainement un truc à faire avec standard_output, mais le truc que tu cherchais, c'était le paramètre par défaut de procedure, non ?