type Association is new Object with private;
type A_Association is access all Association'Class;
function Create_Association return A_Association;
function As_Boolean
( | this | : access Association; |
name | : String ) return Boolean; |
function As_Integer
( | this | : access Association; |
name | : String ) return Integer; |
function As_String
( | this | : access Association; |
name | : String ) return String; |
procedure Iterate
( | this | : access Association; |
examine | : not null access procedure( name : String; | |
value | : A_Value ) ); |
function Length
( | this | : access Association ) return Natural; |
function Object_Input
( | stream | : access Root_Stream_Type'Class ) return Association; |
procedure Remove
( | this | : access Association; |
name | : String ); |
procedure Set_Value
( | this | : access Association; |
name | : String; | |
val | : Boolean ); |
procedure Set_Value
( | this | : access Association; |
name | : String; | |
val | : Integer ); |
procedure Set_Value
( | this | : access Association; |
name | : String; | |
val | : String ); |
procedure Set_Value
( | this | : access Association; |
name | : String; | |
val | : in out A_Value ); |
function Copy
( | src | : A_Association ) return A_Association; |