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,FREEMAIL_FROM,
	T_FILL_THIS_FORM_SHORT autolearn=unavailable autolearn_force=no
	version=3.4.4
X-Received: by 10.50.134.199 with SMTP id pm7mr6329284igb.0.1446375039148;
        Sun, 01 Nov 2015 02:50:39 -0800 (PST)
X-Received: by 10.182.250.169 with SMTP id zd9mr169154obc.1.1446375039113;
 Sun, 01 Nov 2015 02:50:39 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!news.glorb.com!i2no1372001igv.0!news-out.google.com!z4ni42710ign.0!nntp.google.com!i2no1371996igv.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sun, 1 Nov 2015 02:50:38 -0800 (PST)
In-Reply-To: <n12v3l$i78$1@dont-email.me>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=82.243.252.139;
 posting-account=zd4fUAoAAABZGnAfDxrdJ5Lpts-qUilv
NNTP-Posting-Host: 82.243.252.139
References: <4d618dd3-3bc1-4afc-8e74-78aca76b0b09@googlegroups.com>
 <n12v3l$i78$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <43748d8e-0b14-43ba-ae13-74334a0502d6@googlegroups.com>
Subject: Re: Simple call of Procedure in package from a main program
From: comicfanzine@gmail.com
Injection-Date: Sun, 01 Nov 2015 10:50:39 +0000
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Xref: news.eternal-september.org comp.lang.ada:28156
Date: 2015-11-01T02:50:38-08:00
List-Id: <comp.lang.ada>

Le samedi 31 octobre 2015 18:54:05 UTC+1, Jeffrey R. Carter a =E9crit=A0:

> It seems to me you need something like
>=20
> package Identification is
>    subtype Password_Value is String (1 .. 5);
>=20
>    procedure Get (Password : out Password_Value);
> end Identification;
>=20
> with Ada.Text_IO;
> with Identification;
>=20
> procedure Log_In is
>    Password : Identification.Password_Value;
> begin -- Log_In
>    Identification.Get (Password =3D> Password);
>=20
>    if Password =3D "admin" then
>       Ada.Text_IO.Put_Line (Item =3D> "Welcome, Administrator.");
>    end if;
> end Log_In;
>=20
> with Ada.Text_IO;
>=20
> package body Identification is
>    procedure Get (Password : out Password_Value) is
>    begin -- Get
>       Ada.Text_IO.Put (Item =3D> "Hello, User. What's your name? ");
>=20
>       Get_Name : declare
>          Name : constant String :=3D Ada.Text_IO.Get_Line;
>       begin -- Get_Name
>          if Name /=3D "fanzine" then
>             Ada.Text_IO.Put_Line (Item =3D> "You're not Administrator.");
>             -- There is a 1 / 256 ** 5 chance that Password will contain =
"admin"
>          else
>             Ada.Text_IO.Get (Item =3D> Password); -- Requires 5 character=
s
>             Ada.Text_IO.Skip_Line;
>             Ada.Text_IO.New_Line;
>          end if;
>       end Get_Name;
>    end Get;
> end Identification;

Thanks that exactly what i wanted to do :)