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=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,15e9725ee4ac8322
X-Google-Attributes: gid103376,public
From: "David C. Hoos, Sr." <david.c.hoos.sr@ada95.com>
Subject: Re: [Q] Operating System Command Interface
Date: 1998/05/05
Message-ID: <6in54g$jc9$1@polo.advicom.net>#1/1
X-Deja-AN: 350435043
Distribution: world
References: <6ims5j$1vo@gcsin3.geccs.gecm.com>
X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3
Organization: ADViCOM -- Advanced Internet Communications
Newsgroups: comp.lang.ada
Date: 1998-05-05T00:00:00+00:00
List-Id: <comp.lang.ada>


You're right, but the solution is simple.  I use the following library
function:
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;
David C. Hoos, Sr.

John McCabe wrote in message <6ims5j$1vo@gcsin3.geccs.gecm.com>...
>Am I right in thinking that, as standard, Ada has no direct perating
>system command interface akin to the C "System" call?
>
>--
>Best Regards
>John McCabe
>
>=====================================================================
>Any opinions expressed are mine and based on my own experience. They
>  should in no way be taken as the opinion of anyone I am currently
>     working with, or of the company I am currently working for.
>       If you have a problem with anything I say, SPEAK TO ME!
>                (remove "nospam." to reply by e-mail)
>=====================================================================
>
>