Programmation orientée objet avec Ada

Déclaration

La technologie objet est énoncée avec Ada par l'usage des mots "tagged" et "abstract".

Le mot "tagged"

Le mot "tagged" permet de déclarer qu'il sera possible de dérivé le type grâce au mot "new" en un autre type ; Lequel sera alors en partie constitué des attributs du type dont il dérive.

Exemple

		  type Vehicule (Nb_Roue : Short_Integer) is tagged
		     record
		        ...
		     end record ; 


		  type Une_Voiture is new Vehicule (Nb_Roue => 4) with
		     record
		        ...
		     end record;

Le mot "abstract"

Le mot "abstract" permet de déclarer un type dont les types en dérivant hériterons des propriétés de la classe considéré.
L'ensemble des procédures et fonctions de la classe devra être écrit pour chaque type dérivant du type considéré.

Exemple

		  type Une_Page is abstract tagged null record;
		  procedure Write (Page : in out Une_Page) is abstrcat;
		  procedure Read (Page : in Page) is abstract;