Re: Exec shell command with GNAT

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

Here's such a function I've been using for some years:
It should be portable across compilers and OSs, as long
as the C-runtime library has the "system" function.
------------------------------------------------------------------------
-- $Source: /usr/local/cvsroot/execute_shell_command.adb,v $
-- $Revision: 1.1 $
-- $Date: 1999/08/11 12:58:58 $
-- $Author: hoosd $
-- $State: Exp $
-- Revision History:
-- $Log: execute_shell_command.adb,v $
-- Revision 1.1  1999/08/11 12:58:58  hoosd
-- Initial checkin
--
--
-- Execute_Shell_Command
-- Purpose:
--   This library-level function is an Ada interface to the "system"
--   command of the C run-time library.
------------------------------------------------------------------------
with Ada.Characters.Latin_1;
with System;
function Execute_Shell_Command
  (The_Command : String) return Integer is

   function Execute
              (The_Command_Address : System.Address) return Integer;
   pragma Import (C, Execute, "system");
   The_Nul_Terminated_Command_String : constant String :=
     The_Command & Ada.Characters.Latin_1.Nul;
begin
   return Execute (The_Nul_Terminated_Command_String'Address);
end Execute_Shell_Command;

----- Original Message ----- 
From: "JuK" <calvinix@caramail.com>
Newsgroups: comp.lang.ada
To: <comp.lang.ada@ada.eu.org>
Sent: Monday, January 13, 2003 10:58 AM
Subject: Exec shell command with GNAT


> Hello 
> I want to execute a shell command in my ADA application :
> 
>  function EXEC_SHELL_COMMAND (COMMAND : in STRING) return EXIT_STATUS ;
> 
> 
> How Can I do that  ?
> 
> ( SOLARIS with GNAT 3.14 )
> 
> Thank you
> _______________________________________________
> comp.lang.ada mailing list
> comp.lang.ada@ada.eu.org
> http://ada.eu.org/mailman/listinfo/comp.lang.ada
>