Re: What is your opinion on Global Objects?

[Jacob Sparre Andersen <jacob@jacob-sparre.dk>]

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