API Reference

function Self, procedure Session_Begin, procedure Session_End, function Is_Session_Active, procedure Info, procedure Create_Object, procedure Delete_Object, procedure Reserve_Object, procedure Unreserve_Object, procedure Commit_Object, procedure Fetch_Object, procedure Execute_Object, procedure Add_Rootname, procedure Get_Object_ID, procedure Template_ID, procedure Fetch_Template, procedure Delete_Rootname, procedure Stop_Server, procedure Register_OS, procedure Unregister_OS, procedure Unregister_Serverclass, procedure Register_Serverclass

   function Self(  
      This : in Object ) return Handle ; 
 
   procedure Session_Begin( 
      This : in out Object; 
      Name : in String := "" ); 
 
   procedure Session_End( 
      This : in out Object ); 
 
   function Is_Session_Active( 
      This : in Object ) return Boolean; 
             
   procedure Info(  
      This : in out Object; 
      Info : in String ) ; 
                                                                                                                       
   procedure Create_Object( 
      This     : in out Object; 
      Obj      : in out Persistent.Object'Class; 
      Name     : in String := ""; 
      Cls      : in String := ""; 
      Template : in Boolean := False ); 
 
   procedure Delete_Object( 
      This : in out Object; 
      Obj  : in out Persistent.Object'Class ); 
 
   procedure Reserve_Object( 
      This : in out Object; 
      Obj  : in out Persistent.Object'Class; 
      Name : in String := ""; 
      ID   : in Object_ID := Null_Object_ID ) ; 
 
   procedure Unreserve_Object( 
      This : in out Object; 
      Obj  : in out Persistent.Object'Class ); 
 
   procedure Commit_Object(  
      This     : in out Object; 
      Obj      : in out Persistent.Object'Class; 
      Template : in Boolean := True ); 
 
   procedure Fetch_Object( 
      This     : in out Object; 
      Obj      : in out Persistent.Object'Class; 
      Name     : in String := ""; 
      ID       : in Object_ID := Null_Object_ID; 
      Template : in Boolean := True ) ; 
 
   procedure Execute_Object( 
      This   : in out Object; 
      Obj    : in out Persistent.Object'Class; 
      Method : in String; 
      Cls    : in String := "" ) ; 
 
   procedure Add_Rootname( 
      This : in out Object; 
      Name : in String; 
      Id   : in Object_ID ); 
 
   procedure Get_Object_ID( 
      This   : in out Object; 
      Name   : in String; 
      Result : out Object_ID ); 
 
   procedure Template_ID( 
      This   : in out Object; 
      Id     : in Object_ID; 
      Result : out Object_ID ); 
 
   procedure Fetch_Template( 
      This : in out Object; 
      Obj  : in out Persistent.Object'Class; 
      Name : in String := ""; 
      ID   : in Object_ID := Null_Object_ID ) ; 
 
   procedure Delete_Rootname( 
      This : in out Object; 
      Name : in String ); 
 
   procedure Stop_Server( 
      This : in out Object ); 
 
   procedure Register_OS( 
      This : in out Object; 
      Name : in String; 
      Path : in String); 
 
   procedure Unregister_OS( 
      This : in out Object; 
      Name : in String); 
 
   procedure Unregister_Serverclass( 
      This : in out Object; 
      Name : in String ); 
 
   procedure Register_Serverclass( 
      This : in out Object; 
      Name : in String ); 
 
   Objectspace_Already_Registered : exception; 
   Objectspace_Not_Registered    : exception; 
   Objectspace_In_Use     : exception; 
   Invalid_Object_ID    : exception; 
   Object_Not_Existing            : exception; 
   Object_Existing    : exception; 
   Object_Invalid_Size            : exception; 
   Not_Object_Owner               : exception; 
   Execution_Error    : exception;