API Reference

procedure Register_Attribute, procedure Register_Attribute

   procedure Register_Attribute(  
      This   : in out Object; 
      Name   : in Unbounded_String; 
      Offset : in Natural ); 
 
   procedure Register_Attribute( 
      This   : in out Object; 
      Id     : in Natural; 
      Offset : in Natural; 
      Cls    : in Tag ); 
 
   Unknown_Attribute : exception; 

Description

Resgister the attrbute based on the field id as it is registered in the class it self.

Preconditions

C.1 - Object is valid.

C.2 - Tag references an object derived from ODB.Persistent.Object

Postconditions

Exceptions:

function Lookup_Attribute

   function Lookup_Attribute(  
      This   : in Object; 
      Name   : in String ) return Natural; 
 

Description

Return the offset for the named attribute in the header.

Preconditions

C.1 - The attribute Name has been registered via Register_Attribute

Postconditions

P.1 - Returns offset

Exceptions

Unknown_Attribute : C.1 violated

function Attributes

   function Attributes(  
      This   : in Object ) return String_Array.Handle; 
 

Description

Return all attribute names which are registered in the header.

Preconditions

C.1 - Object is valid

Postconditions

P.1 - Returns null if the header is empty P.2 - Returns the point to a string array.

Exceptions

Notes:

The string array has to be destroyed by means of the operation Free in Util.String_Array.

procedure Clear, function Class_Name, procedure Class_Name

   procedure Clear(  
      This   : in out Object ); 
 
   function Class_Name( 
      This   : in Object ) return String ; 
 
   procedure Class_Name( 
      This   : in out Object; 
      Value  : in String ); 
 

Description

Clear the header.

Preconditions

C.1 - Object is valid

Postconditions

P.1 - All attributes are removed from the header.

Exceptions

Notes: