From: "Lele" <lele@libero.it>
Subject: Re: Send command to the Windows prompt from Ada procedure
Date: Thu, 26 Feb 2004 09:50:43 +0100
Date: 2004-02-26T09:50:43+01:00 [thread overview]
Message-ID: <c1kc16$7hp$1@e3k.asi.ansaldo.it> (raw)
In-Reply-To: mailman.23.1077733278.327.comp.lang.ada@ada-france.org
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;
>
next prev parent reply other threads:[~2004-02-26 8:50 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-02-25 16:48 HELP: Send command to the Windows prompt from Ada procedure Lele
2004-02-25 18:20 ` David C. Hoos
2004-02-26 8:50 ` Lele [this message]
2004-02-25 18:27 ` HELP: " tmoran
2004-02-26 9:48 ` Dmitry A. Kazakov
2004-02-27 13:22 ` Stephen Leake
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox