[HELP] How can I retrieves filenames?

[HELP] How can I retrieves filenames?

[Newtelco News]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 417 bytes --]


Hi,

I study Ada 95 at school and I don't know how I can retrieve the filenames
in a directory under UNIX (Solaris 2.?) and Windows (95 and NT).

Is there a package to do that?

Should I use the Windows API (It seems to be not portable to UNIX?)


____________________________________
C�dric Rathgeb
shark@infomaniak.ch.net (please remove the ".net" to reply)
Switzerland
____________________________________

Re: [HELP] How can I retrieves filenames?

[Jerry van Dijk]

> I study Ada 95 at school and I don't know how I can retrieve the
filenames
> in a directory under UNIX (Solaris 2.?) and Windows (95 and NT).
> 
> Is there a package to do that?
> 
> Should I use the Windows API (It seems to be not portable to UNIX?)

To do this portable you need to use a Posix binding.

For Solaris there probably is a Florist version for GNAT, 
for Win95/NT there is a partial binding available (see my 
homepage: http://stad.dsl.nl/~jvandyk)

Otherwise write a single package "directories" which
contains the functionality you need. This package should
have one spec (.ads) file and two implementations,
one for Win95 (using the MS C Runtime Library) and one
for Solaris (using libc).

Success,
Jerry.

Re: [HELP] How can I retrieves filenames?

[Nick Roberts]

Under Win32, you use the FindFirstFile, FindNextFile, and FindClose API
functions to get the information you require.  You will need Win32
documentation to see how to bind and use these functions, and documentation
for your Ada compiler on binding _stdcall functions (all Win32 API calls
use the _stdcall convention).

To get portability, you could write a package with a general specification,
and two bodies (one for Windows, and one for UNIX).

== Nick Roberts ================================================
== Croydon, UK                       ===========================
==                                              ================
== Proprietor, ThoughtWing Software                   ==========
== Independent Software Development Consultant            ======
== Nick.Roberts@dial.pipex.com                              ====
== Voicemail & Fax +44 181-405 1124                          ===
==                                                            ==
==           I live not in myself, but I become               ==
===          Portion of that around me; and to me             ==
====         High mountains are a feeling, but the hum        ==
=======      Of human cities torture.
===========                             -- Byron [Childe Harold]