AdaCL.Limited_Base

Base Class for Limited Object.

Entities

Get_Name
Get_Name

34	type Object_Class is access all Object_Interface'Class;

33	type Object_Interface is limited interface;

50	type Object is abstract new Ada.Finalization.Limited_Controlled and Object_Interface with private;

Base Class for Limited Object. In AdaCL great care is taken to make all classes non limited so this base class is not actualy used yet.

Inherited by Object

42	function Get_Name (This : in Object_Interface) return String is abstract;

Get name of the Class. Shortcut for Ada.Tags.Expanded_Name (This'Class'Tag);

56	overriding function Get_Name (This : in Object) return String is
57	(Ada.Tags.Expanded_Name (Object'Class (This)'Tag)) with
58	Inline;

Get name of the Class. Shortcut for Ada.Tags.Expanded_Name (This'Class'Tag);