jruby · Jun 24, 2015 · Jun 24, 2015 · Jun 24, 2015 · Jun 24, 2015 · Jun 24, 2015
diff --git a/lib/ruby/truffle/truffle/bigdecimal.rb b/lib/ruby/truffle/truffle/bigdecimal.rb
@@ -6,10 +6,68 @@ class Truffle::BigDecimal < Numeric
   SIGN_NEGATIVE_INFINITE = -3
   SIGN_NEGATIVE_FINITE   = -2
   SIGN_NEGATIVE_ZERO     = -1
-  SIGN_NaN               =  0
-  SIGN_POSITIVE_ZERO     =  1
-  SIGN_POSITIVE_FINITE   =  2
-  SIGN_POSITIVE_INFINITE =  3
+  SIGN_NaN               = 0
+  SIGN_POSITIVE_ZERO     = 1
+  SIGN_POSITIVE_FINITE   = 2
+  SIGN_POSITIVE_INFINITE = 3
+
+  EXCEPTION_INFINITY   = 1
+  EXCEPTION_OVERFLOW   = 1
+  EXCEPTION_NaN        = 2
+  EXCEPTION_UNDERFLOW  = 4
+  EXCEPTION_ZERODIVIDE = 16
+  EXCEPTION_ALL        = 255
+  ROUND_MODE           = 256
+
+  ROUND_UP        = 1
+  ROUND_DOWN      = 2
+  ROUND_HALF_UP   = 3
+  ROUND_HALF_DOWN = 4
+  ROUND_CEILING   = 5
+  ROUND_FLOOR     = 6
+  ROUND_HALF_EVEN = 7
+
+  def self.mode(key, value = nil)
+    raise ArgumentError, 'requires key to be Fixnum' unless key.is_a? Fixnum
+    if key == ROUND_MODE
+      Thread.current[:'BigDecimal.rounding_mode'] ||= 3
+      if value
+        Thread.current[:'BigDecimal.rounding_mode'] = value
+      else
+        Thread.current[:'BigDecimal.rounding_mode']
+      end
+    else
+      Thread.current[:'BigDecimal.exception_mode'] ||= 0
+      case value
+        when true
+          Thread.current[:'BigDecimal.exception_mode'] |= key
+          return value
+        when false
+          Thread.current[:'BigDecimal.exception_mode'] &= ~key
+          return value
+        when nil
+          # FIXME (pitr 20-Jun-2015): CRuby always returns BigDecimal.exception_mode internal value ignoring the key
+          return Thread.current[:'BigDecimal.exception_mode'] & key == key
+      end
+    end
+  end
+
+  def self.limit(limit = nil)
+    Thread.current[:'BigDecimal.precision_limit'] ||= 0
+    if limit
+      raise ArgumentError, 'requires key to be Fixnum' unless limit.is_a? Fixnum
+      old                                           = Thread.current[:'BigDecimal.precision_limit']
+      Thread.current[:'BigDecimal.precision_limit'] = limit
+      old
+    else
+      Thread.current[:'BigDecimal.precision_limit']
+    end
+  end
+
+  # TODO (pitr 20-jun-2015): remove when lazy setup is added
+  def self.name
+    'BigDecimal'
+  end
 
   def ==(o)
     (self <=> o) == 0 rescue false
@@ -69,6 +127,60 @@ def split
     sign = -1 if sign < -1
     [sign, unscaled, 10, exponent]
   end
+
+  def floor(digit = nil)
+    if digit
+      round digit, ROUND_FLOOR
+    else
+      rounded = round 0, ROUND_FLOOR
+      integer = rounded.to_i
+      return rounded == integer ? integer : rounded
+    end
+  end
+
+  def truncate(digit = nil)
+    if finite?
+      if digit
+        round digit, ROUND_DOWN
+      else
+        rounded = round 0, ROUND_DOWN
+        integer = rounded.to_i
+        return rounded == integer ? integer : rounded
+      end
+    else
+      if digit
+        self
+      else
+        raise FloatDomainError
+      end
+    end
+  end
+
+  def ceil(digit = nil)
+    if digit
+      round digit, ROUND_CEILING
+    else
+      rounded = round 0, ROUND_CEILING
+      integer = rounded.to_i
+      return rounded == integer ? integer : rounded
+    end
+  end
+
+  def fix
+    if finite?
+      round 0, ROUND_DOWN
+    else
+      self
+    end
+  end
+
+  def frac
+    if finite?
+      self - fix
+    else
+      self
+    end
+  end
 end
 
 BigDecimal = Truffle::BigDecimal

diff --git a/spec/ruby/library/bigdecimal/round_spec.rb b/spec/ruby/library/bigdecimal/round_spec.rb
@@ -187,4 +187,10 @@
       @n2_49.round(0, BigDecimal::ROUND_HALF_EVEN).should == @neg_two
     end
   end
+
+  it 'raise exception, if self is special value' do
+    lambda { BigDecimal('NaN').round }.should raise_error(FloatDomainError)
+    lambda { BigDecimal('Infinity').round }.should raise_error(FloatDomainError)
+    lambda { BigDecimal('-Infinity').round }.should raise_error(FloatDomainError)
+  end
 end
diff --git a/spec/truffle/tags/library/bigdecimal/add_tags.txt b/spec/truffle/tags/library/bigdecimal/add_tags.txt
@@ -1,6 +1,3 @@
-fails:BigDecimal#add favors the precision specified in the second argument over the global limit
-fails:BigDecimal#add uses the current rounding mode if rounding is needed
-fails:BigDecimal#add returns NaN if NaN is involved
-fails:BigDecimal#add returns Infinity or -Infinity if these are involved
-fails:BigDecimal#add returns NaN if Infinity + (- Infinity)
+fails:BigDecimal#add raises TypeError when precision parameter is nil
+fails:BigDecimal#add raises TypeError when adds nil
 fails:BigDecimal#add raises ArgumentError when precision parameter is negative
diff --git a/spec/truffle/tags/library/bigdecimal/ceil_tags.txt b/spec/truffle/tags/library/bigdecimal/ceil_tags.txt
diff --git a/spec/truffle/tags/library/bigdecimal/div_tags.txt b/spec/truffle/tags/library/bigdecimal/div_tags.txt
@@ -1,14 +1,8 @@
 fails:BigDecimal#div with precision set to 0 returns a / b
-fails:BigDecimal#div with precision set to 0 returns 0 if divided by Infinity
-fails:BigDecimal#div with precision set to 0 returns (+|-) Infinity if (+|-) Infinity divided by one
-fails:BigDecimal#div with precision set to 0 returns NaN if Infinity / ((+|-) Infinity)
-fails:BigDecimal#div with precision set to 0 returns (+|-) Infinity if divided by zero
-fails:BigDecimal#div with precision set to 0 returns NaN if zero is divided by zero
 fails:BigDecimal#div returns a / b with optional precision
 fails:BigDecimal#div raises FloatDomainError if NaN is involved
+fails:BigDecimal#div raises ZeroDivisionError if divided by zero and no precision given
 fails:BigDecimal#div returns 0 if divided by Infinity and no precision given
 fails:BigDecimal#div returns 0 if divided by Infinity with given precision
 fails:BigDecimal#div returns NaN if zero is divided by zero
 fails:BigDecimal#div raises FloatDomainError if (+|-) Infinity divided by 1 and no precision given
-fails:BigDecimal#div returns (+|-)Infinity if (+|-)Infinity by 1 and precision given
-fails:BigDecimal#div returns NaN if Infinity / ((+|-) Infinity)
diff --git a/spec/truffle/tags/library/bigdecimal/divmod_tags.txt b/spec/truffle/tags/library/bigdecimal/divmod_tags.txt
@@ -12,3 +12,5 @@ fails:BigDecimal#divmod returns an array of Infinity and NaN if the dividend is
 fails:BigDecimal#divmod returns an array of zero and the dividend if the divisor is Infinity
 fails:BigDecimal#divmod returns an array of two zero if the diviend is zero
 fails:BigDecimal#divmod raises TypeError if the argument cannot be coerced to BigDecimal
+fails:BigDecimal#mod_part_of_divmod raises ZeroDivisionError if other is zero
+fails:BigDecimal#divmod raises ZeroDivisionError if the divisor is zero
diff --git a/spec/truffle/tags/library/bigdecimal/exponent_tags.txt b/spec/truffle/tags/library/bigdecimal/exponent_tags.txt
diff --git a/spec/truffle/tags/library/bigdecimal/fix_tags.txt b/spec/truffle/tags/library/bigdecimal/fix_tags.txt
diff --git a/spec/truffle/tags/library/bigdecimal/floor_tags.txt b/spec/truffle/tags/library/bigdecimal/floor_tags.txt
diff --git a/spec/truffle/tags/library/bigdecimal/frac_tags.txt b/spec/truffle/tags/library/bigdecimal/frac_tags.txt
diff --git a/spec/truffle/tags/library/bigdecimal/limit_tags.txt b/spec/truffle/tags/library/bigdecimal/limit_tags.txt
diff --git a/spec/truffle/tags/library/bigdecimal/mode_tags.txt b/spec/truffle/tags/library/bigdecimal/mode_tags.txt
@@ -1,3 +1 @@
-fails:BigDecimal.mode returns the appropriate value and continue the computation if the flag is false
 fails:BigDecimal.mode returns Infinity when too big
-fails:BigDecimal.mode raise an exception if the flag is true
diff --git a/spec/truffle/tags/library/bigdecimal/modulo_tags.txt b/spec/truffle/tags/library/bigdecimal/modulo_tags.txt
@@ -10,3 +10,5 @@ fails:BigDecimal#modulo returns NaN if NaN is involved
 fails:BigDecimal#modulo returns NaN if the dividend is Infinity
 fails:BigDecimal#modulo returns the dividend if the divisor is Infinity
 fails:BigDecimal#modulo raises TypeError if the argument cannot be coerced to BigDecimal
+fails:BigDecimal#% raises ZeroDivisionError if other is zero
+fails:BigDecimal#modulo raises ZeroDivisionError if other is zero
diff --git a/spec/truffle/tags/library/bigdecimal/mult_tags.txt b/spec/truffle/tags/library/bigdecimal/mult_tags.txt
diff --git a/spec/truffle/tags/library/bigdecimal/power_tags.txt b/spec/truffle/tags/library/bigdecimal/power_tags.txt
diff --git a/spec/truffle/tags/library/bigdecimal/round_tags.txt b/spec/truffle/tags/library/bigdecimal/round_tags.txt
diff --git a/spec/truffle/tags/library/bigdecimal/sqrt_tags.txt b/spec/truffle/tags/library/bigdecimal/sqrt_tags.txt
diff --git a/spec/truffle/tags/library/bigdecimal/sub_tags.txt b/spec/truffle/tags/library/bigdecimal/sub_tags.txt
diff --git a/spec/truffle/tags/library/bigdecimal/truncate_tags.txt b/spec/truffle/tags/library/bigdecimal/truncate_tags.txt
diff --git a/truffle/src/main/java/org/jruby/truffle/nodes/cast/ArrayCastNode.java b/truffle/src/main/java/org/jruby/truffle/nodes/cast/ArrayCastNode.java
@@ -91,7 +91,6 @@ public Object cast(Object nil) {
                 return nil;
 
             default: {
-                CompilerAsserts.neverPartOfCompilation();
                 throw new UnsupportedOperationException();
             }
         }

diff --git a/truffle/src/main/java/org/jruby/truffle/nodes/cast/SplatCastNode.java b/truffle/src/main/java/org/jruby/truffle/nodes/cast/SplatCastNode.java
@@ -71,7 +71,6 @@ public RubyBasicObject splat(Object nil) {
                 return ArrayNodes.fromObject(getContext().getCoreLibrary().getArrayClass(), nil());
 
             default: {
-                CompilerAsserts.neverPartOfCompilation();
                 throw new UnsupportedOperationException();
             }
         }

diff --git a/truffle/src/main/java/org/jruby/truffle/nodes/ext/BigDecimalNodes.java b/truffle/src/main/java/org/jruby/truffle/nodes/ext/BigDecimalNodes.java