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: FRENCH,ASCII-7-bit
X-Google-Thread: 103376,b4670f99c2106eaf
X-Google-Attributes: gid103376,public
From: "Simon H�bert" <simon.hebert@gpo.canada.cdev.com>
Subject: Re: probleme de paquetage
Date: 1997/01/14
Message-ID: <simon.hebert-1401971202310001@c6261.canada.cdev.com>#1/1
X-Deja-AN: 209754071
references: <01bbfd86$4030b700$8ea6cec2@Pkonieztb>
organization: Computing Devices Canada
newsgroups: comp.lang.ada
Date: 1997-01-14T00:00:00+00:00
List-Id: <comp.lang.ada>


In article <01bbfd86$4030b700$8ea6cec2@Pkonieztb>, "konieztb"
<konieztb@worldnet.fr> wrote:

> Si vous pouviez m'expliquer comment rendre ce paquetage
> utilisable par un programme principale ce serait sympas ...
> REM : J'utilise ADA95 (gnat) sous DOS version 3.05 
> 
> Merci par Avance.
> 
> Ci-joint le paquetage complet:
> 
> -----------------------------------------------------------------------
> package VECTEURS is
>     type VECTEUR is array (1..100) of INTEGER ;
>     function "+"(x, y : VECTEUR) return VECTEUR ;
>     function minus(x : VECTEUR) return VECTEUR ;
>     function longueur(x : VECTEUR) return INTEGER ;
>     procedure put(x : VECTEUR) ;
> end ;
>

Il faut tout simplement donner la visibilite du paquetage au programme
principale, avec une clause d'inclusion (with).

Donc, le fichier du programme principale contient quelque chose que
resemble:

with VECTEURS;

procedure UTILISATEUR is

  function "+" ( X, Y: VECTEURS.VECTEUR ) return VECTEURS.VECTEUR
    renames VECTEURS."+";

  Mon_Premier_Vecteur : VECTEURS.VECTEUR := ( others => 1);
  Mon_Second_Vecteur : VECTEURS.VECTEUR := ( others => 2 );
  Mon_Troisieme_Vecteur : VECTEURS.VECTEUR := (others => 0);

begin

  Mon_Troisieme_Vecteur := Mon_Premier_Vecteur + Mon_Deuxieme_Vecteur;

  VECTEURS.PUT ( Mon_Troisieme_Vecteur );  

end;