Re: running an exe from gnat

[Samuel Tardieu <sam@ada.eu.org>]

>>>>> "Mindy" == Mindy Matusewicz
>>>>> <Mindy_matusewicz@ny.essd.northgrum.com> writes:

Mindy> I am running gnat for windows nt on my pentium and I need to
Mindy> call an exe program.  How do you do that in Ada?

Just as you does in C, call for example the system()
function. Something such as the following piece of code (untested)
should do the job:

  with Interfaces.C.Strings; use Interfaces.C, Interfaces.C.Strings;
  [...]
     function Execute (Command : String) return int is
        C_Command : chars_ptr := New_String (Command);
        function C_System (Command : chars_ptr) return int;
        pragma Import (C, C_System, "system");
        Result : constant int := C_System (C_Command);
     begin
        Free (C_Command);
        return Result;
     end Execute;
        
  Sam
--
Samuel Tardieu -- sam@ada.eu.org