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=-2.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	MAILING_LIST_MULTI autolearn=unavailable autolearn_force=no
	version=3.4.4
X-Google-Thread: 103376,901038687c38f61c
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news2.google.com!proxad.net!freenix!enst.fr!melchior!cuivre.fr.eu.org!melchior.frmug.org!not-for-mail
From: Marius Amado Alves <amado.alves@netcabo.pt>
Newsgroups: comp.lang.ada
Subject: Re: Idiom for a class and an object in Ada
Date: Mon, 18 Oct 2004 13:26:06 +0100
Organization: Cuivre, Argent, Or
Message-ID: <mailman.25.1098102395.10401.comp.lang.ada@ada-france.org>
References: <M3Ocd.237$5i5.72@newsread2.news.atl.earthlink.net>
NNTP-Posting-Host: lovelace.ada-france.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: melchior.cuivre.fr.eu.org 1098102395 7652 212.85.156.195 (18 Oct 2004
 12:26:35 GMT)
X-Complaints-To: usenet@melchior.cuivre.fr.eu.org
NNTP-Posting-Date: Mon, 18 Oct 2004 12:26:35 +0000 (UTC)
To: comp.lang.ada@ada-france.org
Return-Path: <amado.alves@netcabo.pt>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US;
	rv:1.4) Gecko/20030624 Netscape/7.1 (ax)
X-Accept-Language: en-us, en
In-Reply-To: <M3Ocd.237$5i5.72@newsread2.news.atl.earthlink.net>
X-Virus-Scanned: by amavisd-new-20030616-p10 (Debian) at ada-france.org
X-BeenThere: comp.lang.ada@ada-france.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: "Gateway to the comp.lang.ada Usenet newsgroup"
	<comp.lang.ada.ada-france.org>
List-Unsubscribe: <http://www.ada-france.org/mailman/listinfo/comp.lang.ada>,
	<mailto:comp.lang.ada-request@ada-france.org?subject=unsubscribe>
List-Post: <mailto:comp.lang.ada@ada-france.org>
List-Help: <mailto:comp.lang.ada-request@ada-france.org?subject=help>
List-Subscribe: <http://www.ada-france.org/mailman/listinfo/comp.lang.ada>,
	<mailto:comp.lang.ada-request@ada-france.org?subject=subscribe>
Xref: g2news1.google.com comp.lang.ada:5396
Date: 2004-10-18T13:26:06+01:00

> Suppose I have a class with one or a limited set of objects. The objects 
> are "global" in the sense that they hang around from program startup 
> thru the entire life of execution. An example would be an A/D Converter 
> class - My little control box might have 3 or 4 A/Ds in it - they're 
> always there and I want the data associated with them to be static (not 
> declared on the stack.)
> 
> Question: What is the preferred Ada idiom for defining such a creature?

generic
    Line : Number;
package AD_Converter is
    function OK return Boolean;
    function Get return Value;
end;

package Heat is new AD_Converter (123);
package Noise is new AD_Converter (456);
package Wind is new AD_Converter (789);

-- You can't get more "static" than that!