Re: Calling EXEs from ADA95

["David C. Hoos, Sr." <david.c.hoos.sr@ada95.com>]

SoVieTiK <r.lmejiaNOr.SPAM@unitec.edu.invalid> wrote in message
news:022ad336.6a710f8a@usw-ex0109-066.remarq.com...
> Can someone tell me how to call a executable (DOS) from
> ada?
In general, you can execute a shell command from an
Ada executable by means of an interface to the "system"
function from the C runtime library.

Here is a library-level procedure that does just that

with Interfaces.C;
function Execute_Shell_Command (The_Command_String : String)
      return Interfaces.C.Int is
   package C renames Interfaces.C;
   function System (S : C.Char_Array) return C.Int;
   pragma Import (C, System, "system");
begin
   return System (C.To_C (The_Command_String));
end Execute_Shell_Command;