Make your own free website on Tripod.com

File : oci-task_environment.ads


with OCI.Lib,
   Reference_Finalization;
package OCI.Task_Environment is

   use OCI.Lib;
   package RF renames Reference_Finalization;
   
   type Thread_Environment is new RF.Controlled_Reference with record
      Environment : OCIEnv := OCIEnv(Empty_Handle);
   end record;
   function Create return Thread_Environment;
   procedure Destroy   (Object : in out Thread_Environment);

   Init_Environment : constant Thread_Environment := 
       (RF.Controlled_Reference with 
            Environment => OCIEnv(Empty_Handle));

     ENVIRONMENT_CREATION_ERROR : exception;

end OCI.Task_Environment