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.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,8d831b13bd530c82
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1995-01-25 15:40:10 PST
Newsgroups: comp.lang.ada
Path: 
 nntp.gmd.de!news.rwth-aachen.de!news.rhrz.uni-bonn.de!news.uni-stuttgart.de!rz.uni-karlsruhe.de!xlink.net!howland.reston.ans.net!gatech!purdue!news.bu.edu!inmet!henning!stt
From: stt@henning.camb.inmet.com (Tucker Taft)
Subject: Re: C programmer with Newbie question
Message-ID: <D2zJ2z.HvF@inmet.camb.inmet.com>
Sender: news@inmet.camb.inmet.com
Organization: Intermetrics, Inc.
References: <m-bartz-1701950936420001@macgalois.ee.memst.edu>
 <3fgsin$kc6@info4.rus.uni-stuttgart.de>
Date: Wed, 25 Jan 1995 23:40:10 GMT
Date: 1995-01-25T23:40:10+00:00
List-Id: <comp.lang.ada>

In article <3fgsin$kc6@info4.rus.uni-stuttgart.de>,
Peter Hermann <ucaa2385@iris1.csv.ica.uni-stuttgart.de> wrote:

>Michael Bartz (m-bartz@memphis.edu) wrote:
>: Can you pass command line arguments to an Ada program?
>
>Excerpt from LRM(version5.95) for Ada95 (not Ada83!):

Actually, the excerpt below seems to be from a slightly
older version.  In version 5.95, the type is called
"Exit_Status" and the routine to set it is called 
"Set_Exit_Status".

So "Exit_" should be inserted as indicated below.

>A.15 The Package Command_Line
>
> package Ada.Command_Line is
>   pragma Preelaborate(Command_Line);
>   function Argument_Count return Natural;
>   function Argument (Number : in Positive) return String;
>   function Command_Name return String;
>   type Status is range implementation-defined;
        ^ Exit_
>   Success : constant Status;
                      ^ Exit_
>   Failure : constant Status;
                      ^ Exit_
>   procedure Set_Status (Code : in Status);
                 ^ Exit_           ^ Exit_
> private
>   ... -- not specified by the language
> end Ada.Command_Line;
>
>--
>Peter Hermann  Tel:+49-711-685-3611 Fax:3758 ph@csv.ica.uni-stuttgart.de
>Pfaffenwaldring 27, 70569 Stuttgart Uni Computeranwendungen
>Team Ada: "C'mon people let the world begin" (Paul McCartney)

-Tucker Taft   stt@inmet.com
Intermetrics, Inc.