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-Thread: 103376,910a48a538936849
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news4.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!wns13feed!worldnet.att.net!attbi_s71.POSTED!53ab2750!not-for-mail
From: "Jeffrey R. Carter" <spam.not.jrcarter@acm.not.spam.org>
Organization: jrcarter at acm dot org
User-Agent: Thunderbird 1.5.0.8 (Windows/20061025)
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: how to import a package
References: <1165371252.358817.57840@80g2000cwy.googlegroups.com>
   <sa4veko5ndy.fsf@margay.local>   <4577dc92$1_1@glkas0286.greenlnk.net>
   <7ft8le.vk1.ln@hunter.axlog.fr>
   <1165817760.736164.218530@73g2000cwn.googlegroups.com>
   <1165819804.449958.305980@73g2000cwn.googlegroups.com>
   <1165830005.15844.5.camel@localhost>
   <1165846777.475130.199390@f1g2000cwa.googlegroups.com>
   <Abjfh.1093829$084.864157@attbi_s22>
 <1165893584.829025.235440@l12g2000cwl.googlegroups.com>
In-Reply-To: <1165893584.829025.235440@l12g2000cwl.googlegroups.com>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <_npfh.267674$FQ1.161060@attbi_s71>
NNTP-Posting-Host: 12.201.97.213
X-Complaints-To: abuse@mchsi.com
X-Trace: attbi_s71 1165894266 12.201.97.213 (Tue, 12 Dec 2006 03:31:06 GMT)
NNTP-Posting-Date: Tue, 12 Dec 2006 03:31:06 GMT
Date: Tue, 12 Dec 2006 03:31:06 GMT
Xref: g2news2.google.com comp.lang.ada:7898
Date: 2006-12-12T03:31:06+00:00
List-Id: <comp.lang.ada>

markww wrote:
> 
>     generic
>         type T is private;
>     package Generic_List is
>       ...
>       -- Something like:
>       m_Start : Node_Ptr;
>       m_Last : Node_Ptr;
> 
>    end Generic_List;


You can do that, but then your package can only be a single list. If 
that's what you want, you should consider moving the type and data 
declarations to the body, and only having the operations in the spec. 
Perhaps what you really want is something like

type List is record
    First : Node_Ptr;
    Last  : Node_Ptr;
end record;

procedure Add (To : in out List; Item : in T);

-- 
Jeff Carter
"Blessed is just about anyone with a vested interest in the status quo."
Monty Python's Life of Brian
73