Merge pull request #118 from jmkuhn/directed

Constructors with RoundingMode

src/DecFP.jl

@@ -117,6 +117,13 @@ for w in (32,64,128)
         $BID(x::Number) = convert($BID, x)
         Base.reinterpret(::Type{$BID}, x::$Ti) = new(x)
     end
+
+    @eval function $BID(x::Real, mode::RoundingMode)
+        setrounding($BID, mode) do
+            convert($BID, x)
+        end
+    end
+
     # fix method ambiguities:
     @eval $BID(x::Rational{T}) where {T} = convert($BID, x)
 end
@@ -209,6 +216,12 @@ for w in (32,64,128)
 
         $BID(x::AbstractString) = parse($BID, x)
 
+        function $BID(x::AbstractString, mode::RoundingMode)
+            setrounding($BID, mode) do
+                parse($BID, x)
+            end
+        end
+
         function tostring(x::$BID)
             # fills global _buffer
             ccall(($(bidsym(w,"to_string")), libbid), Cvoid, (Ptr{UInt8},$BID,Ref{Cuint}), _buffer[Threads.threadid()], x, RefArray(flags, Threads.threadid()))

test/runtests.jl

@@ -51,6 +51,23 @@ for T in (Dec32, Dec64, Dec128)
     @test parse(T, "0.1")::T == T(1//10)
     @test T("0.1")::T == T(1//10)
 
+    if T != Dec128
+        @test T(0.1) == T("0.1")
+        @test T(0.1, RoundNearest) == T("0.1")
+        @test T(0.1, RoundDown) == T("0.1")
+        @test T(0.1, RoundUp) == nextfloat(T("0.1"))
+    end
+    @test T("1", RoundDown) == T(1)
+    @test T("1", RoundUp) == T(1)
+    @test T("1.0000000000000000000000000000000000000001") == T(1)
+    @test T("1.0000000000000000000000000000000000000001", RoundNearest) == T(1)
+    @test T("1.0000000000000000000000000000000000000001", RoundDown) == T(1)
+    @test T("1.0000000000000000000000000000000000000001", RoundUp) == nextfloat(T(1))
+    @test T("0.9999999999999999999999999999999999999999") == T(1)
+    @test T("0.9999999999999999999999999999999999999999", RoundNearest) == T(1)
+    @test T("0.9999999999999999999999999999999999999999", RoundUp) == T(1)
+    @test T("0.9999999999999999999999999999999999999999", RoundDown) == prevfloat(T(1))
+
     io = IOBuffer()
     show(io, T("NaN")); @test String(take!(io)) == "NaN"
     show(io, T("Inf")); @test String(take!(io)) == "Inf"