Re: Idiom for a class and an object in Ada

[Marin David Condic <nobody@noplace.com>]

Interesting, but I think it misses my question. In your first package: 
General_Classes - if you had 5 specific objects of type Class and they 
are totally static (something that exists from the moment you hit the 
first instruction to the moment the power goes down and you *really* 
need them to be in global memory) - where would you declare the five 
objects of type "Class" as you've defined it?

How to do it is simple:

Object_1 : General_Classes.Class ;
Object_2 : General_Classes.Class ;
Object_3 : General_Classes.Class ;
Object_4 : General_Classes.Class ;
Object_5 : General_Classes.Class ;

In what context would you put those objects?

MDC


Martin Dowie wrote:

>>Does anybody have an opinion or experience with doing this? I know
>>what I've done in the past, but I'm curious if there is any preferred
>>method or idiom for this in the OO paradigm as applied to Ada?
> 
> 
> I tend to use Ward-Mellor RTSA/OOD as a method which leaves me with a number 
> of "project specific" processes on static data. But the data type also leads 
> to project specific classes (or ADT) which may be based on more general 
> classes (e.g. containers). e.g.
> 
> package General_Classes is  -- Most re-usable
>    type Class is private;
> end General_Classes;
> 
> with General_Classes;
> package Project_Classes is  -- Less re-usable
>    type Class is private;
>    procedure Process_1 (C : in out Class);
>    procedure Process_2 (C : in out Class; I : Integer);
> private
>    type Class is new General_Classes.Class with ...;
> end Project_Classes;
> 
> package Project_Objects is  -- Least re-usable
>    procedure Process_1;  -- Each process maps to a RTSA process (or a UML 
> use-case)
>    procedure Process_2;
> end Project_Objects;
> 
> with Project_Classes;
> package body Project_Objects is
>    Objects : Project_Classes.Class;  -- Safely hidden data...
>    procedure Process_1 is ...
>    procedure Process_2 is ...
> end Project_Objects;
> 
> It maps requirements to design to code very well.
> 
> $0.02
> 
> -- Martin
> 
> 
> 
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.778 / Virus Database: 525 - Release Date: 15/10/2004 
> 
> 

-- 
======================================================================
Marin David Condic
I work for: http://www.belcan.com/
My project is: http://www.jsf.mil/NSFrames.htm

Send Replies To: m   o   d   c @ a   m   o   g
                    c   n   i       c   .   r

     "Power corrupts.  Absolute power is kind of neat"
         -- John Lehman, Secretary of the Navy 1981-1987
======================================================================