Re: Send command to the Windows prompt from Ada procedure

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

----- Original Message ----- 
From: "Lele" <lele@libero.it>
Newsgroups: comp.lang.ada
To: <comp.lang.ada@ada-france.org>
Sent: Wednesday, February 25, 2004 10:48 AM
Subject: HELP: Send command to the Windows prompt from Ada procedure


> Hi,
> does anyone show me the simplest way to perform a windows system call
using
> Ada ?
> I've to call a batch file from my not-professional Ada procedure, or I've
to
> send command to the windows prompt (command.com) . How can I do that?
> Thanx for the advices.
>
Here is a library-level function that invokes the "system" function
of the C-runtime library.

with Interfaces.C;
function Execute_Shell_Command (Command : in String) return Integer
  is
    function Execute (Command : in Interfaces.C.char_array)
       return Interfaces.C.int;
    pragma Import (C, Execute, "system");
  begin --  Execute_Shell_Command
     return Integer (Run (Interfaces.C.To_C (Item => Command)));
end Execute_Shell_Command;