Make your own free website on Tripod.com

File : oci-thick-number_functions.ads


with OCI.Thick.Gen_OCINumber,OCI.Lib;
package OCI.Thick.Number_Functions is

use OCI.Thick.Gen_OCINumber,Lib;

   function "Abs" is new Unary_Function(OCINumberAbs);
   function ArcCos is new Unary_Function(OCINumberArcCos);
   function ArcSin is new Unary_Function(OCINumberArcSin);
   function ArcTan is new Unary_Function(OCINumberArcTan);
   function Assign is new Unary_Function(OCINumberAssign);
   function Ceil is new Unary_Function(OCINumberCeil);
   function Cos is new Unary_Function(OCINumberCos);
   function Exp is new Unary_Function(OCINumberExp);
   function Floor is new Unary_Function(OCINumberFloor);
   function HypCos is new Unary_Function(OCINumberHypCos);
   function HypSin is new Unary_Function(OCINumberHypSin);
   function HypTan is new Unary_Function(OCINumberHypTan);
   function Ln is new Unary_Function(OCINumberLn);
   function "-" is new Unary_Function(OCINumberNeg);
   function Sin is new Unary_Function(OCINumberSin);
   function Sqrt is new Unary_Function(OCINumberSqrt);
   function Tan is new Unary_Function(OCINumberTan);

   function ArcTan2 is new Binary_Function(OCINumberArcTan2);
   function "+" is new Binary_Function(OCINumberAdd);
   function "/" is new Binary_Function(OCINumberDiv);
   function Log is new Binary_Function(OCINumberLog);
   function "mod" is new Binary_Function(OCINumberMod);
   function "*" is new Binary_Function(OCINumberMul);
   function "**" is new Binary_Function(OCINumberPower);
   function "-" is new Binary_Function(OCINumberSub);
   
   function To_String(From : OCINumber; Format : String) 
        return String;
   function To_Long_Float(numb : OCINumber) return Long_Float;
   function To_Number(From : Long_Float) return OCINumber;
   
end OCI.Thick.Number_Functions;