Discussion :

[Invité]

Bonjour, j'essaie de lister le contenu d'un répertoire incluant les sous répertoires avec Gnat.Directries_Operations.

Le contenu de mon répertoire est le suivant :

bin
Documentations
obj
src/lib/
src/main.adb
src/lib/aethers.ads
src/lib/aether.adb

J'ai écrit une procédure récursive qui semble de pas pouvoir descendre de plus d'un niveau de répertoire.
Dans cette procédure je recueille les noms des fichiers dans un Containers.vectors.vector.

Code ada :

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
20
21
22
23
24
25
26
27
 
--
   procedure Parse(Path : in string ;Units_Vector : in out Units_Vectors.Vector) is
 
      Name             : String(1..256);
      Last             : Natural;
      Project_Dir      : Dir_Type;
   begin
      Open(Project_Dir, Path);
      Text_Io.Put_Line("Oppening : " & Path);
      loop
         Read(Project_Dir, Name, Last);
         if Last /= 0 then
            if (Name(1..Last) /= ".") and (Name(1..Last) /= "..") then
               if Is_Directory(Name(1..Last)) then
                  Text_Io.Put_Line("Enterring sub directory : " & Name(1..Last));
                  Parse(Name(1..Last), Units_Vector);
               else
                  Text_Io.Put_Line("Add unit : " & Name(1..Last));
               end if;
            end if;
         else
            exit;
         end if;
      end loop;
      Close(Project_Dir);
   end Parse;

Voici ce que j'obtiens :

Oppening : ./
Enterring sub directory : bin
Oppening : bin
Add unit : Aether
Enterring sub directory : src
Oppening : src
Add unit : main.adb
Add unit : lib
Enterring sub directory : obj
Oppening : obj
Enterring sub directory : Documentations
Oppening : Documentations

Donc lib n'est pas visité, y a t il une soluce ?
Merci pour vos réponses.

[Invité]

En corrigeant avec un ajout du début du chemin, dans le path, ça marche mieux.

Corrections :

Code ada :

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
20
21
22
23
24
25
26
 
procedure Parse(Path : in string ;Units_Vector : in out Units_Vectors.Vector) is                                                        
 
      Name             : String(1..256);                                                                                                   
      Last             : Natural;                                                                                                          
      Project_Dir      : Dir_Type;                                                                                                         
   begin
      Open(Project_Dir, Path);
      Text_Io.Put_Line("Oppening : " & Path);
      loop
         Read(Project_Dir, Name, Last);
         if Last /= 0 then
            if (Name(1..Last) /= ".") and (Name(1..Last) /= "..") then
               if Is_Directory(Path & '/' & Name(1..Last)) then
                  Text_Io.Put_Line("Enterring sub directory : " & Name(1..Last));
                  Parse(Path  & '/' & Name(1..Last), Units_Vector);
               else
                  Text_Io.Put_Line("Add unit : " & Name(1..Last));
               end if;
            end if;
         else
            exit;
         end if;
      end loop;
      Close(Project_Dir);
   end Parse;

Result :

Oppening : ./
Add unit : main.ali
Add unit : aether.ali
Enterring sub directory : bin
Oppening : .//bin
Add unit : Aether
Add unit : main.o
Enterring sub directory : src
Oppening : .//src
Add unit : main.adb
Enterring sub directory : lib
Oppening : .//src/lib
Add unit : aether.adb
Add unit : aether.ads

Thx, merci beaucoup.

[Zerte]

Okazou, c'est aussi dans Ada.Directories. Exemple par ici:

http://rosettacode.org/wiki/Walk_a_d...ecursively#Ada

[Invité]

Okazou, c'est aussi dans Ada.Directories. Exemple par ici:

http://rosettacode.org/wiki/Walk_a_d...ecursively#Ada

Merci Zerte.