Reading Filenames

Reading Filenames

[-=[CheecH]=-]

I want to write a little programme which can read in all the filenames in a
directory and write them to a text file.  But I have have no idea how to
read all the names in.  Can any one help please.

Re: Reading Filenames

[David]

In article <86v59u$l05$1@newsg3.svr.pol.co.uk>,
  "-=[CheecH]=-" <cheech@chongs.freeserve.co.uk> wrote:
> I want to write a little programme which can read in all the
filenames in a
> directory and write them to a text file.  But I have have no idea how
to
> read all the names in.  Can any one help please
It is difficult to give precise answers when you state neither the
platform (hardware and OS), nor the compiler you are using.

The most portable approach I can suggest is to use the appropriate one
of the existing Ada bindings for POSIX 1003.5

For Win32 there is a partial binding that includes what you need at:
http://perso.wanadoo.fr/pascal.obry/w32posix.html

For UNIX platforms, you can look for the FLORIST bindings in several
places.  The generic implementation is at
ftp://ftp.cs.fsu.edu/pub/PART/FLORIST/
there are also implementations at
ftp://ftp.cs.nyu.edu/pub/gnat/florist/ and at
http://www.gnuada.org/alt.html

Once you have the proper POSIX library for your platform and compiler,
use the subprograms in the package POSIX.Files



Sent via Deja.com http://www.deja.com/
Before you buy.

Re: Reading Filenames

[Laurent Guerby]

"-=[CheecH]=-" <cheech@chongs.freeserve.co.uk> writes:
> I want to write a little programme which can read in all the
> filenames in a directory and write them to a text file.  But I have
> have no idea how to read all the names in.  Can any one help please.

If you use GNAT look for the file g-dirope.ads in your adainclude directory:

<<
--  This package provides routines for manipulating directories. A directory
--  can be treated as a file, using open and close routines, and a scanning
--  routine is provided for iterating through the entries in a directory.

package GNAT.Directory_Operations is
>>

--LG