Re: Advanced file manipulation (multiple question)

["Steve" <nospam_steved94@comcast.net>]

Here is a (partial) example of binding to the Win32 copy file:

WITH Win32;
WITH Win32.WinBase;
WITH Win32.WinNT;
WITH Interfaces.C;

PACKAGE BODY DFUdiskFileUtils IS

  PACKAGE WinBase RENAMES Win32.WinBase;
  PACKAGE WinNT RENAMES Win32.WinNT;
  PACKAGE C RENAMES Interfaces.C;

  USE TYPE Win32.BOOL;
  USE TYPE Win32.DWORD;
  USE TYPE WinNT.HANDLE;

  PROCEDURE CopyFileDFU( sourceFileNameDFU,
                         destFileNameDFU : STRING;
                         copiedDFU : out BOOLEAN ) IS
    result     : Win32.BOOL;
    sourceName : ALIASED C.Char_Array := C.To_C( sourceFileNameDFU );
    destName   : ALIASED C.Char_Array := C.To_C( destFileNameDFU );
  BEGIN
    result := WinBase.CopyFile( sourceName(0)'UNCHECKED_ACCESS,
                                destName(0)'UNCHECKED_ACCESS,
                                Win32.FALSE );
    copiedDFU := result /= Win32.FALSE;
  END CopyFileDFU;

It's part of a package I made to wrap a number of OS dependent system calls.

Also... when Ada 2005 becomes available you will be able to use the 
Copy_File function in the package Ada.Directories.  There is a preliminary 
implementation at:

http://www.martin.dowie.btinternet.co.uk/

I haven't tried it, but I appears that you can add the implementation to 
your GNAT installation and have the Ada.Directories package with GNAT 3.15p.

In any case it is a good idea to at least be aware of what it takes to make 
OS calls, for those cases where you need to do something that isn't built 
into the standard libraries.

Steve
(The Duck)