From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.4 required=5.0 tests=AC_FROM_MANY_DOTS,BAYES_00
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,92af3752b38a0131
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-07-10 13:51:15 PST
Path: 
 archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!news.tele.dk!195.86.7.162!newsfeed.wirehub.nl!psiuk-p2!uknet!psiuk-n!news.pace.co.uk!nh.pace.co.uk!not-for-mail
From: "Marin David Condic" <marin.condic.auntie.spam@pacemicro.com>
Newsgroups: comp.lang.ada
Subject: Re: Unix Executables
Date: Tue, 10 Jul 2001 16:04:49 -0400
Organization: Posted on a server owned by Pace Micro Technology plc
Message-ID: <9ifn53$q4j$1@nh.pace.co.uk>
References: <ab21b49a.0107101051.766f947a@posting.google.com>
NNTP-Posting-Host: 136.170.200.133
X-Trace: nh.pace.co.uk 994795491 26771 136.170.200.133 (10 Jul 2001 20:04:51
 GMT)
X-Complaints-To: newsmaster@pace.co.uk
NNTP-Posting-Date: 10 Jul 2001 20:04:51 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4522.1200
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
Xref: archiver1.google.com comp.lang.ada:9735
Date: 2001-07-10T20:04:51+00:00
List-Id: <comp.lang.ada>

There's always a way. Depends on what exactly you had in mind. If you just
want to invoke a program, here's some code cut from a batch of utilities on
my web page (see: http://www.mcondic.com/):

with Interfaces.C;

procedure UTIL.Perform_System_Command (
    Command     : in     String ;
    Wait        : in     Boolean := True ;
    Success     :    out Boolean) is
    --
    Return_Code : Integer ;
    --
    function Sys (
        Item    : in     Interfaces.C.Char_Array) return Integer ;
    pragma Import (C, Sys, "system") ;
    --
    package C renames Interfaces.C ;
    --
begin
    --
    if (Wait) then
        Return_Code := Sys (
            Item    => C.To_C ("ksh -c " & '"' & Command & '"'));
    else
        Return_Code := Sys (
            Item    => C.To_C ("ksh -c " & '"' & Command & " &" & '"'));
    end if ;
    --
    if (Return_Code /= 0) then
        Success := False ;
    else
        Success := True ;
    end if;
    --
end UTIL.Perform_System_Command ;

If you want to actually interface to some OS service that is normally got to
via a subprogram call, then perhaps if you post the call (I presume it is
written in C?) we could help you with the appropriate pragmas, linkage, etc.

A Solution Does Exist, but you might need to be a little more specific.

MDC
--
Marin David Condic
Senior Software Engineer
Pace Micro Technology Americas    www.pacemicro.com
Enabling the digital revolution
e-Mail:    marin.condic@pacemicro.com
Web:      http://www.mcondic.com/


"Matt Raikes" <mraikes@vt.edu> wrote in message
news:ab21b49a.0107101051.766f947a@posting.google.com...
> Is there a way to call a Unix executable(such as gzip) from within my
code.