Re: System call

[dale@cs.rmit.edu.au (Dale Stanbrough)]

In article <6ulqvt$728$2@pinah.connect.com.au>, "Adnan"
<a0mohame@teaching.cs.adelaide.edu.au> wrote:

> How do I use a Unix system call from an Ada program.
> 
> Thanx

by calling the appropriate Unix routine, just as C does.
the code below does this, but is not really the best it could be.

dale


function invoke_system(name     :string) return integer is
        
        C_name  :constant interfaces.c.char_array(1..name'length+1) := 
                interfaces.c.to_C(name);

        function C_system(      name    :system.address)
                                return interfaces.c.int;
        pragma import(C, C_system, "system");
begin
        return integer(C_system(C_name(1)'address));
end;