Re: How to rename a file?

[Pascal Obry <p.obry@wanadoo.fr>]

"David Botton" <David@Botton.com> writes:

> That's not cool, but certainly an alternative.

;)

> The coolness is in that code was that you don't need any "special" bindings
> for accessing low level C calls. In fact I think far to much emphasis has
> been placed on the need of thin bindings. Concentration should rather be

David, really POSIX is *far* from being a thin binding.

Your cool example is way more thin than mine :)

<<
   function Rename_File2 (Old_File, New_File : String) return Boolean
   is
      function MoveFile
        (Old_Name : String := Old_File & Character'Val (0);
         New_Name : String := New_File & Character'Val (0))
        return Boolean;
      pragma Import (StdCall, MoveFile, "MoveFileA");
   begin
      return MoveFile;
   end Rename_File2;
>>

Character'Val (0), Stdcall, pragma Import...

> made on "frameworks" (which POSIX bindings may perhaps also be included, as
> cross platform was in mind) and tools that abstract the C interfaces and
> work in a more Ada like nature.

I won't call POSIX a framework since it is a _binding_ but yet not a
thin one. And yes in cross-platform environemnt it is definitly the 
choice, this is why I do use it!

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|         http://perso.wanadoo.fr/pascal.obry
--|
--| "The best way to travel is by means of imagination"