Re: Directories and files

[sk <noname@myob.com>]

Hi, 

If you are using Gnat, look at Gnat.Directory_Operations.

This package provides the necessary primitives to traverse
a directory and change directories from within code.

If you need to detect that a file within the directory is
a sub-directory, use the function "Is_Directory" from
Gnat.Os_Lib.

For more detailed file information bind to the OS code of
your choice. On linux for example, I bound to all the 
necessary functions to be able to "stat" from within an Ada 
procedure which enables me to ignore sockets etc.


Pseudo-code :

GDOP renames Gnat.Directory_Operations;

Store Directory name of interest in a queue

loop

   Is the directory name queue empty ?
   YES : Exit loop
   NO  : 
       Get the Directory name and GDOP.Open it.

       while GDOP.Read (... opened directory) /= no more files

           Do what you want with the file name.

           Is the file name a directory ?
           YES : Add the name to the directory name queue.
           NO  : No Action

       end loop;

       GDOP.Close ( ... opened directory).       

end loop;

-------------------------------------
-- Merge vertically for real address
-------------------------------------
s n p @ t . o
 k i e k c c m
-------------------------------------