ADA12 — Section 21.8.9: Examples

Summary: Section 21.8.9:

Example Chicken.idl:

Freezing rules (ARM 13.14) cause the packages Egg and Chicken to be illegal.
The declaration of
function To_Ref (The_Ref : in Corba.Object.Ref"Class) return Ref;
has to occur before the declaration of
package Convert is new Egg/Chicken_Forward.Convert (Ref);
ARM 13.14(5,16).

Example Tank:

package Tank is

type Ref is new Vehicle.Ref with record
Mixin: Asset.Ref;
end record;

If I"m not missing something fundamental, this mixin is needed to allow
reference to Asset.Op1/2.

No Data Available