Make your own free website on Tripod.com

File : oci-thick-gen_ocinumber.adb


with OCI.Thread;
package body OCI.Thick.Gen_OCINumber is

   --------------------
   -- Unary_Operator --
   --------------------

   function Unary_Function(from : OCINumber) return OCINumber is
     Result : aliased OCINumber;
     rc : sword := OCINumberOper(Thread.Error,From,Result'Access);
   begin
     Check_Error(rc);
     return Result;
   end;
   
   ---------------------
   -- Binary_Operator --
   ---------------------

   function Binary_Function (Left,Right : OCINumber) return OCINumber is
     Result : aliased OCINumber;
     rc : sword := OCINumberOper(Thread.Error,Left,Right,Result'Access);
   begin
     Check_Error(rc);
     return Result;
   end;
   

end OCI.Thick.Gen_OCINumber;