{
"version": 3,
"sourceRoot": "Source",
"sources": ["WebSharper.MathJS.Extensions/Decimal.fs"],
"sourcesContent": ["// $begin{copyright}\n//\n// This file is part of WebSharper\n//\n// Copyright (c) 2008-2018 IntelliFactory\n//\n// Licensed under the Apache License, Version 2.0 (the \"License\"); you\n// may not use this file except in compliance with the License.  You may\n// obtain a copy of the License at\n//\n//     http://www.apache.org/licenses/LICENSE-2.0\n//\n// Unless required by applicable law or agreed to in writing, software\n// distributed under the License is distributed on an \"AS IS\" BASIS,\n// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or\n// implied.  See the License for the specific language governing\n// permissions and limitations under the License.\n//\n// $end{copyright}\n\nnamespace WebSharper\n\nopen System.Runtime.InteropServices\nopen WebSharper\nopen WebSharper.JavaScript\nopen WebSharper.MathJS\n\nmodule M = WebSharper.Core.Macros\n\n[<Require(typeof<WebSharper.MathJS.Resources.Js>)>]\nmodule internal Decimal =\n    [<JavaScript>]\n    let WSDecimalMath: MathJS.MathInstance =\n        MathJS.Math.Create(Config(Number = \"BigNumber\", Precision = 29., Predictable = true, Epsilon = 1e-60))\n\n    [<JavaScript>]\n    let CreateDecimal(lo: int32, mid: int32, hi: int32, isNegative: bool, scale: byte) : decimal =\n        let n(x:int) = (WSDecimalMath.Bignumber x) |> As<decimal>\n        if lo = 0 && hi = 0 && mid = 0 then\n            n 0\n        else\n            let uint_sup =\n                System.Decimal.Add(System.Decimal.Multiply((n 429496729), (n 10)), (n 6))\n            let reinterpret (x: int) = \n                if x >= 0 then\n                    n(x)\n                else\n                    uint_sup + (n x)\n            let quotient =\n                WSDecimalMath.Pow((n 10 |> As<MathNumber>), WSDecimalMath.UnaryMinus((n <| int scale )|>As<MathNumber>)) |> As<decimal>\n            let value =\n                (((reinterpret hi) * uint_sup + reinterpret mid) * uint_sup + reinterpret lo)\n            let sign = if isNegative then (n -1) else (n 1)\n            sign * value * quotient\n\n    [<JavaScript>]\n    let CreateDecimalBits (bits : int32[]) =\n        if bits.Length = 4 then\n            let sign = (bits.[3] &&& 0x80000000) <> 0\n            let scale = As<byte> ((bits.[3] >>> 16) &&& 0x7F)\n            CreateDecimal(bits.[0], bits.[1], bits.[2], sign, scale) \n        else\n            invalidArg \"bits\" \"The length of the bits array is not 4\"\n\nopen Decimal\n\n[<Require(typeof<WebSharper.MathJS.Resources.Js>)>]\n[<Proxy(typeof<System.Decimal>)>]\n[<Prototype(false)>]\ntype internal DecimalProxy =\n\n    [<Inline>]\n    static member CtorProxy(lo: int32, mid: int32, hi: int32, isNegative: bool, scale: byte) : decimal =\n        CreateDecimal(lo, mid, hi, isNegative, scale) \n\n    [<Inline>]\n    static member CtorProxy(bits: int32[]): decimal =\n        CreateDecimalBits bits\n\n    [<Inline>]\n    static member private mathn (v: decimal): MathNumber = As<MathNumber> v\n\n    [<Inline>]\n    static member private un (op: MathNumber -> MathNumber) (v: decimal) = \n        DecimalProxy.mathn v\n        |> op\n        |> As<decimal>\n\n    [<Inline>]\n    static member private bin (op: (MathNumber * MathNumber) -> MathNumber) (v1: decimal) (v2: decimal) = \n        op (DecimalProxy.mathn v1, DecimalProxy.mathn v2)\n        |> As<decimal>\n\n    [<Inline>]\n    static member private mul (op: (MathNumber * MathNumber * MathNumber []) -> MathNumber) (v1: decimal) (v2: decimal) = \n        op (DecimalProxy.mathn v1, DecimalProxy.mathn v2, [||])\n        |> As<decimal>\n\n    [<Inline>]\n    static member CtorProxy(v : double) : decimal = WSDecimalMath.Bignumber(MathNumber(v)) |> As<decimal>\n\n    [<Inline>]\n    static member CtorProxy(v : int32) : decimal = WSDecimalMath.Bignumber(MathNumber(v)) |> As<decimal>\n\n    [<Inline>]\n    static member CtorProxy(v : int64) : decimal = WSDecimalMath.Bignumber(MathNumber(v)) |> As<decimal>\n\n    [<Inline>]\n    static member CtorProxy(v : single) : decimal = WSDecimalMath.Bignumber(MathNumber(v)) |> As<decimal>\n\n    [<Inline>]\n    static member CtorProxy(v : uint32) : decimal = WSDecimalMath.Bignumber(MathNumber(v)) |> As<decimal>\n\n    [<Inline>]\n    static member CtorProxy(v : uint64) : decimal = WSDecimalMath.Bignumber(MathNumber(v)) |> As<decimal>\n\n    [<Inline>]\n    static member internal Abs(n : decimal) : decimal = DecimalProxy.un WSDecimalMath.Abs n\n\n    [<Inline>]\n    static member Add(n1 : decimal, n2 : decimal) : decimal = DecimalProxy.mul WSDecimalMath.Add n1 n2\n\n    [<Inline>]\n    static member Ceiling(d: decimal) : decimal = DecimalProxy.un WSDecimalMath.Ceil d\n\n    [<Inline>]\n    static member Compare(n1 : decimal, n2 : decimal) : int = DecimalProxy.bin WSDecimalMath.Compare n1 n2 |> float |> As<int>\n\n    [<Inline>]\n    member this.CompareTo(n : decimal) : int = DecimalProxy.bin WSDecimalMath.Compare (this |> As<decimal>) n |> float |> As<int>\n\n    [<Inline>]\n    member this.CompareTo(n : obj) : int = DecimalProxy.bin WSDecimalMath.Compare (this |> As<decimal>) (n |> As<decimal>) |> float |> As<int>\n\n    [<Inline>]\n    static member Divide(n1 : decimal, n2 : decimal): decimal = DecimalProxy.bin WSDecimalMath.Divide n1 n2\n\n    [<Inline>]\n    member this.Equals(n : decimal): bool = DecimalProxy.bin WSDecimalMath.Equal (this |> As<decimal>) n |> As<bool>\n\n    [<Inline>]\n    static member Equals(a: decimal, b : decimal): bool = DecimalProxy.bin WSDecimalMath.Equal a b |> As<bool>\n\n    [<Inline>]\n    static member GreaterThan(a: decimal, b: decimal): bool = DecimalProxy.bin WSDecimalMath.Larger a b |> As<bool>\n\n    [<Inline>]\n    static member LessThan(a: decimal, b: decimal): bool = DecimalProxy.bin WSDecimalMath.Smaller a b |> As<bool>\n\n    [<Inline>]\n    static member Floor(d: decimal) : decimal = DecimalProxy.un WSDecimalMath.Floor d\n\n    [<Inline>]\n    static member internal Max(n1 : decimal, n2 : decimal): decimal =\n        if n1 >= n2 then\n            n1\n        else\n            n2\n\n    [<Inline>]\n    static member internal Min(n1 : decimal, n2 : decimal): decimal =\n        if n1 <= n2 then\n            n1\n        else\n            n2\n\n    [<Inline>]\n    static member Multiply(n1 : decimal, n2 : decimal): decimal = DecimalProxy.mul WSDecimalMath.Multiply n1 n2\n\n    [<Inline>]\n    static member Pow(n1 : decimal, n2 : decimal): decimal = DecimalProxy.bin WSDecimalMath.Pow n1 n2\n\n    [<Inline>]\n    static member Parse(s : string) = WSDecimalMath.Bignumber(MathNumber(s)) |> As<decimal>\n\n    [<Inline>]\n    static member TryParse(s: string, [<Out>] v: decimal byref) =\n        try\n            let x = WSDecimalMath.Bignumber(MathNumber(s)) |> As<decimal>\n            v <- x\n            true\n        with _ ->\n            false\n\n    [<Inline>]\n    static member Remainder(n1 : decimal, n2 : decimal): decimal = DecimalProxy.bin WSDecimalMath.Mod n1 n2\n\n    [<Inline>]\n    static member Subtract(n1 : decimal, n2 : decimal): decimal = DecimalProxy.bin WSDecimalMath.Subtract n1 n2\n\n    [<Inline>]\n    member internal this.Sign = DecimalProxy.un WSDecimalMath.Sign (this |> As<decimal>) |> float |> As<int>\n\n    [<Inline>]\n    static member Zero: decimal = 0m\n    \n    [<Inline>]\n    static member op_Addition(n1 : decimal, n2 : decimal): decimal = DecimalProxy.Add (n1, n2)\n\n    [<Inline>]\n    static member op_Division(n1 : decimal, n2 : decimal): decimal = DecimalProxy.bin WSDecimalMath.Divide n1 n2\n\n    [<Inline>]\n    static member op_Equality(n1 : decimal, n2 : decimal): bool = DecimalProxy.Equals (n1,n2)\n\n    [<Inline>]\n    static member op_Inequality(n1 : decimal, n2 : decimal): bool = not <| DecimalProxy.Equals (n1,n2)\n\n    [<Inline>]\n    static member op_GreaterThan(n1:decimal, n2:decimal): bool = DecimalProxy.GreaterThan (n1, n2)\n\n    [<Inline>]\n    static member op_LessThan(n1:decimal, n2:decimal): bool = DecimalProxy.LessThan (n1, n2)\n\n    [<Inline>]\n    static member op_GreaterThanOrEqual(n1:decimal, n2:decimal): bool = not <| DecimalProxy.LessThan (n1, n2)\n\n    [<Inline>]\n    static member op_LessThanOrEqual(n1:decimal, n2:decimal): bool = not <| DecimalProxy.GreaterThan (n1, n2)\n\n    [<Inline>]\n    static member op_Modulus(n1 : decimal, n2 : decimal): decimal = DecimalProxy.bin WSDecimalMath.Mod n1 n2\n\n    [<Inline>]\n    static member op_Multiply(n1 : decimal, n2 : decimal): decimal = DecimalProxy.Multiply (n1, n2)\n\n    [<Inline>]\n    static member op_Exponentiation(n1 : decimal, n2 : decimal): decimal = DecimalProxy.Pow (n1, n2)\n\n    [<Inline>]\n    static member op_Subtraction(n1 : decimal, n2 : decimal) = DecimalProxy.Subtract (n1,n2)\n\n    [<Inline>]\n    static member op_UnaryNegation(n : decimal): decimal = DecimalProxy.un WSDecimalMath.UnaryMinus n\n\n    [<Inline>]\n    static member op_UnaryPlus(n : decimal) : decimal = DecimalProxy.un WSDecimalMath.UnaryPlus n\n\n[<Proxy \"Microsoft.FSharp.Core.LanguagePrimitives+IntrinsicFunctions, FSharp.Core\">]\nmodule internal IntrinsicFunctionProxy =\n\n    [<Inline>]\n    let MakeDecimal lo med hi isNegative scale = System.Decimal(lo,med,hi,isNegative,scale)\n\n[<Proxy(typeof<System.Math>)>]\ntype private MathProxyForDecimals =\n\n    [<Inline>]\n    static member Abs(value: decimal) = DecimalProxy.Abs value\n\n    [<Inline>]\n    static member Sign(value: decimal) = (As<DecimalProxy> value).Sign\n\n    [<Inline>]\n    static member Max(n1 : decimal, n2 : decimal): decimal = DecimalProxy.Max(n1, n2)\n\n    [<Inline>]\n    static member Min(n1 : decimal, n2 : decimal): decimal = DecimalProxy.Min(n1, n2)\n\n    [<Inline>]\n    static member Ceiling(d: decimal) = DecimalProxy.Ceiling d\n\n    [<Inline>]\n    static member Floor(d: decimal) = DecimalProxy.Floor d\n"],
"names": [],
"mappings": ";;;;;;;;;;;;;S,AAyDW,cAAA,IAAI,C,AAAO,G,AAAG,CAAC,E,AACV,KAAO,CAAC,WAAA,IAAI,C,AAAE,CAAC,C,AAAC,C,AAAK,WAAU,I,AAAK,CAAC,E,AACrC,MAAmB,WAAA,IAAI,C,AAAE,CAAC,C,AAAC,E,AAAK,EAAE,C,AAAM,GAAI,C,AAChD,sBAAc,WAAA,IAAI,C,AAAE,CAAC,C,AAAC,C,AAAE,WAAA,IAAI,C,AAAE,CAAC,C,AAAC,C,AAAE,WAAA,IAAI,C,AAAE,CAAC,C,AAAC,C,AAAE,IAAI,C,AAAE,KAAK,C,AAAC,C,AAFhD,E,AAIR,qBAAW,MAAM,C,AAAC,uCAAuC,C,AAAA,C;;;;;;;U,AAzB7C,uBAAa,W,AAAW,CAAC,C,AAAgB,C;;;;;U,AAO9C,CAAC,E,AAAI,CAAC,C,AACL,EAAE,CAAC,C,AAAC,E,AAEJ,KAAY,EAAE,CAAC,C,AAAA,6E,AAAC,C,AAAA,C;;S,AATzB,EAAE,G,AAAG,CAAC,E,AAAI,EAAE,G,AAAG,CAAC,E,AAAI,GAAG,G,AAAG,CAAC,C,AAC1B,EAAE,CAAC,C,AAAA,E,AAEC,UACA,GAAmB,IAAyB,EAAE,SAAS,C,AAAA,M,AAAI,EAAE,EAAE,C,AAAA,uE,AAAE,O,AAAG,EAAE,CAAC,C,AAAA,sE,AAAE,G,AACzE,SAMA,uBAAa,K,AAAM,EAAE,EAAE,C,AAAkB,C,AAAG,uBAAa,Y,AAAa,CAAC,C,AAAI,gBAAI,KAAK,C,AAAA,C,AAAkB,C,AAAC,C,AAAgB,E,AACvH,OACC,KAAA,KAAC,KAAA,IAAC,YAAY,EAAE,C,AAAA,iF,AAAY,O,AAAG,YAAY,GAAG,C,AAAA,wE,AAAA,kF,AAAY,O,AAAG,YAAY,EAAE,C,AAAA,wE,AAAA,G,AAC5E,KAAU,UAAU,C,AAAO,EAAE,EAAE,C,AAAA,C,AAAQ,EAAE,CAAC,C,AAAA,E,AAC9C,MAAA,4EAAY,mF,AAAW,C,AADf,C,AAFC,C,AAPe,C,AAFZ,C,AAJJ,C;;;;;;;;;;;qB,AAJZ,aAAmB,EAAA,EAAkF,C,AAAlF,CAAkF,Q,AAAlE,WAAW,C,AAA3B,CAAkF,W,AAAzC,EAAG,C,AAA5C,CAAkF,a,AAAtB,IAAI,C,AAAhE,CAAkF,S,AAAN,KAAK,E,AAAC,E,AAAC,C;;;"
}