Export exponent10 and ldexp10 (#67)

Author: jmkuhn

src/DecFP.jl

@@ -20,7 +20,7 @@ using Compat, Compat.Printf, Compat.Unicode
     export GC
 end
 
-export Dec32, Dec64, Dec128, @d_str, @d32_str, @d64_str, @d128_str
+export Dec32, Dec64, Dec128, @d_str, @d32_str, @d64_str, @d128_str, exponent10, ldexp10
 
 # Load libbid from our deps.jl
 const depsjl_path = joinpath(dirname(@__FILE__), "..", "deps", "deps.jl")
@@ -124,6 +124,32 @@ function isnanstr(s::AbstractString)
     return true
 end
 
+"""
+    exponent10(x::DecFP.DecimalFloatingPoint)
+
+Get the exponent of the base 10 representation of a normalized floating-point number.
+
+# Examples
+```jldoctest
+julia> exponent10(Dec64(123))
+2
+```
+"""
+exponent10(x::DecimalFloatingPoint)
+
+"""
+    ldexp10(x::DecFP.DecimalFloatingPoint, n::Integer)
+
+Compute ``x * 10^n``.
+
+# Examples
+```jldoctest
+julia> ldexp10(Dec64(15), 2)
+1500.0
+```
+"""
+ldexp10(x::DecFP.DecimalFloatingPoint, n::Integer)
+
 for w in (32,64,128)
     BID = Symbol(string("Dec",w))
     Ti = eval(Symbol(string("UInt",w)))

test/runtests.jl

@@ -192,8 +192,8 @@ for T in (Dec32, Dec64, Dec128)
     @test_throws DomainError sqrt(yd)
     @test_throws DomainError acosh(zd)
 
-    @test DecFP.ldexp10(parse(T, "1"), 3) == 1000
-    @test DecFP.exponent10(parse(T, "1000")) == 3
+    @test ldexp10(parse(T, "1"), 3) == 1000
+    @test exponent10(parse(T, "1000")) == 3
     @test sqrt(complex(yd)) ≈ sqrt(complex(y))
 
     @test typeof(xd * pi) == T