Index

Package: Pool_Testing

Description

package Pool_Testing is

Classes

Car (abstract)

type Car is abstract tagged private;

Immediate Children:

Primitive operations:

Construct
Destruct

Audi

type Audi is new Car with private;

Ancestors:

Primitive operations:

Construct (Inherited)
Construct
Destroy (overriding Destroy)
Destruct (overriding Destruct)
Drive (overriding Drive)

Types

A_Car

type A_Car is access all Car'Class;

A_Audi

type A_Audi is access all Audi'Class;

Subprograms & Entries

Drive

procedure Drive
( this: access Car );

Delete

procedure Delete
( this: in out A_Car );

Destroy (abstract)

procedure Destroy
( this: access Car ) is abstract;

Create_Audi

function Create_Audi return A_Audi;

Go

procedure Go;