[GR-20446] Implement date as C extension

PullRequest: truffleruby/2693

Author: bjfish

CHANGELOG.md

@@ -36,6 +36,7 @@ Compatibility:
 * Implemented `Enumerator::Lazy#with_index` (#2356).
 * Implement `rb_backref_set`.
 * Fix `Float#<=>` when comparing `Infinity` to other `#infinite?` values.
+* Implement `date` library as a C extension to improve compatibility (#2344).
 
 Performance:
 

lib/cext/ABI_version.txt

@@ -1 +1 @@
-2
+3

lib/mri/date.rb

@@ -0,0 +1,65 @@
+# frozen_string_literal: true
+# date.rb: Written by Tadayoshi Funaba 1998-2011
+
+require 'date_core'
+
+class Date
+
+  def infinite?
+    false
+  end
+
+  class Infinity < Numeric # :nodoc:
+
+    include Comparable
+
+    def initialize(d=1) @d = d <=> 0 end
+
+    def d() @d end
+
+    protected :d
+
+    def zero?() false end
+    def finite?() false end
+    def infinite?() d.nonzero? end
+    def nan?() d.zero? end
+
+    def abs() self.class.new end
+
+    def -@() self.class.new(-d) end
+    def +@() self.class.new(+d) end
+
+    def <=>(other)
+      case other
+      when Infinity; return d <=> other.d
+      when Numeric; return d
+      else
+        begin
+          l, r = other.coerce(self)
+          return l <=> r
+        rescue NoMethodError
+        end
+      end
+      nil
+    end
+
+    def coerce(other)
+      case other
+      when Numeric; return -d, d
+      else
+        super
+      end
+    end
+
+    def to_f
+      return 0 if @d == 0
+      if @d > 0
+        Float::INFINITY
+      else
+        -Float::INFINITY
+      end
+    end
+
+  end
+
+end