HELP: Send command to the Windows prompt from Ada procedure

HELP: Send command to the Windows prompt from Ada procedure

[Lele]

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.

Re: Send command to the Windows prompt from Ada procedure

[David C. Hoos]

----- 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;

Re: Send command to the Windows prompt from Ada procedure

[Lele]

Great !!!!! It works fine !!!
Thank you
I'm really a newbie ;(



> 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;
>

Re: HELP: Send command to the Windows prompt from Ada procedure

[tmoran]

>does anyone show me the simplest way to perform a windows system call using
>Ada ?
  That's not part of Ada - it varies a great deal among OSes so it's
normally supplied by the compiler vendor for the particular compiler
and OS.  Look in your docs.  If you're using Gnat, my Gnat docs have
it under Gnat.OS_Lib in the reference manual (not the user guide).

Re: HELP: Send command to the Windows prompt from Ada procedure

[Dmitry A. Kazakov]

On Wed, 25 Feb 2004 17:48:54 +0100, "Lele" <lele@libero.it> wrote:

>does anyone show me the simplest way to perform a windows system call using
>Ada ?

There are Win32 bindings for that. If you have a compiler for Windows
you probably have them.

Even if some of API are not listed there it is usually quite easy to
call them manually using pragma Import. For example:

with Interfaces.C;
with Win32.WinDef; use Win32.WinDef;
with Win32.WinNT; use Win32.WinNT;

function LoadImage (Instance : HINSTANCE;  ...) return HANDLE;
pragma Import (StdCall, LoadImage, "LoadImageA");

>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?

Generally the same way as you would do it in C or Basic.

--
Regards,
Dmitry A. Kazakov
www.dmitry-kazakov.de

Re: HELP: Send command to the Windows prompt from Ada procedure

[Stephen Leake]

"Lele" <lele@libero.it> writes:

> 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?

If you are using GNAT, see gnat.os_lib.spawn.

-- 
-- Stephe