Re: help about execute a command

[Samuel Tardieu <sam@ada.eu.org>]

> I am learning ADA 95 with gnat 3.10 under linux, and I must write a
> program that executes a command of the operating system such as
> ls,insmod , cp ... Is that possible ? Thanks in advance !

This is really a FAQ... Here is an untested version of a function
(Spawn) which does this in Ada[1].

  Sam

Footnotes: 
[1]  Note the capitalization, it's not ADA
-- 
Samuel Tardieu -- sam@ada.eu.org

function Spawn (Command : String) return Integer;
--  Spawn a command and return its exit status

with Interfaces.C.Strings; use Interfaces.C, Interfaces.C.Strings;

function Spawn (Command : String) return Integer is
   function C_System (Command : chars_ptr) return int;
   pragma Import (C, C_System, "system");
   C_Command : chars_ptr    := New_String (Command);
   Code      : constant int := C_System (C_Command);
begin
   Free (C_Command);
   return Integer (Code / 256);
end Spawn;