🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fr.comp.lang.ada
Article #38

clause with

#38
From: philippe.torgue
Date: Wed, 03 Oct 2012 08:54
19 lines
1521 bytes
bonjour.

à quoi sert la clause with dans le cas suivant :

main.adb :
with montype;
procedure main is
var1 : natural := 1;
.........
.........
end main;

montype.adb:
with main;
package montype is
....ici je voudrais utiliser var1
....mais main.var1 ne marche pas.
....à quoi sert ici la clause "with main" ????
end montype;
Technical Details
Message-ID: <4d952fa8-552e-4b34-abac-84899bfbb381@googlegroups.com>
Path: arc1-ca.pugleaf.net!e10ni165558057qan.0!nntp.google.com!l8no22803202qao.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Thread: 43d0c745c,69c67130386736b0,start
X-Google-Attributes: gid43d0c745c,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: FRENCH,ASCII
Received: by 10.224.183.13 with SMTP id ce13mr2820248qab.4.1349254492595;
        Wed, 03 Oct 2012 01:54:52 -0700 (PDT)
Received: by 10.52.29.174 with SMTP id l14mr97971vdh.13.1349254492529; Wed, 03
 Oct 2012 01:54:52 -0700 (PDT)
Path: arc1-ca.pugleaf.net!e10ni165558057qan.0!nntp.google.com!l8no22803202qao.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: fr.comp.lang.ada
Date: Wed, 3 Oct 2012 01:54:52 -0700 (PDT)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=2a01:e35:2e51:de10:21e:2aff:feb8:2031;
 posting-account=W5WOAwoAAADKJf0Mwbqw2yIGrYsfxIlw
NNTP-Posting-Host: 2a01:e35:2e51:de10:21e:2aff:feb8:2031
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <4d952fa8-552e-4b34-abac-84899bfbb381@googlegroups.com>
Subject: clause with
From: "philippe.torgue" <faustogone@gmail.com>
Injection-Date: Wed, 03 Oct 2012 08:54:52 +0000
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable