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,
	T_FILL_THIS_FORM_SHORT autolearn=unavailable autolearn_force=no
	version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!gandalf.srv.welterde.de!news.jacob-sparre.dk!loke.jacob-sparre.dk!pnx.dk!.POSTED!not-for-mail
From: Jacob Sparre Andersen <jacob@jacob-sparre.dk>
Newsgroups: comp.lang.ada
Subject: Re: What is your opinion on Global Objects?
Date: Wed, 19 Nov 2014 11:11:56 +0100
Organization: Jacob Sparre Andersen Research & Innovation
Message-ID: <87wq6r33f7.fsf@adaheads.sparre-andersen.dk>
References: <Joxaw.777571$yK.135556@fx14.iad> <m4ec9k$n7r$2@dont-email.me>
NNTP-Posting-Host: 109.56.62.246.mobile.3.dk
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: loke.gir.dk 1416391917 11155 109.56.62.246 (19 Nov 2014 10:11:57 GMT)
X-Complaints-To: news@jacob-sparre.dk
NNTP-Posting-Date: Wed, 19 Nov 2014 10:11:57 +0000 (UTC)
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.4 (gnu/linux)
Cancel-Lock: sha1:ZR8P0JdEQEbLgFihcXFZp1qPuA0=
Xref: news.eternal-september.org comp.lang.ada:23545
Date: 2014-11-19T11:11:56+01:00
List-Id: <comp.lang.ada>

Jeffrey Carter wrote:

> This is only a problem in poorly designed languages. In Ada these
> "singletons" should be packages.

A simple, untested example:

package Counter is
   procedure Reset;
   procedure Increment;
   function Value return Natural;
end Counter;

package body Counter is
   State : Natural := 0;

   procedure Reset is
   begin
      State := 0;
   end Reset;

   procedure Increment is
   begin
      State := State + 1;
   end Increment;

   function Value return Natural is
   begin
      return State;
   end Value;
end Counter;

Greetings,

Jacob
-- 
Photo of the day:
                    http://billeder.sparre-andersen.dk/dagens/2014-11-10