Merge pull request #9 from lateau/lib191

new methods

Rakefile

@@ -545,9 +545,11 @@ namespace :test do |ns|
     namespace :float do
       test "float/to_f.t"
       test "float/zero.t"
+      test "float/eql.t"
+      test "float/flo_eq.t"
 
       desc "Run tests on Float"
-      task :all => [:to_f, :zero]
+      task :all => [:to_f, :zero, :eql, :flo_eq]
     end
 
     namespace :kernel do

src/classes/Float.pir

@@ -23,6 +23,71 @@ initialize CardinalFloat and it's inheritance
     cardinalmeta.'register'('Float', 'parent'=>'CardinalObject', 'protoobject'=>floatproto)
 .end
 
+=item 
+
+infix:== :method
+infix:=== :method
+
+return true if C<self> and other has same value
+
+=cut
+
+.sub 'infix:==' :method
+    .param pmc other
+
+    $N0 = self
+    $N1 = other
+    eq $N0, $N1, same_at
+
+  not_same:
+    $P0 = get_hll_global 'false'
+    goto done
+  same_at:
+    $P0 = get_hll_global 'true'
+  done:
+    .return ($P0)
+.end
+
+.sub 'infix:===' :method
+    .param pmc other
+
+    $N0 = self
+    $N1 = other
+    eq $N0, $N1, same_at
+
+  not_same:
+    $P0 = get_hll_global 'false'
+    goto done
+  same_at:
+    $P0 = get_hll_global 'true'
+  done:
+    .return ($P0)
+.end
+
+=item eql?() :method
+
+return true if C<self> and other have same type and same value
+
+=cut
+
+.sub 'eql?' :method
+    .param pmc other
+
+    typeof $S0, other
+    ne $S0, 'CardinalFloat', not_same
+    $N0 = self
+    $N1 = other
+    eq $N0, $N1, same_at
+
+  not_same:
+    $P0 = get_hll_global 'false'
+    goto done
+  same_at:
+    $P0 = get_hll_global 'true'
+  done:
+    .return ($P0)
+.end
+
 =item to_f()
 
 return C<self>

t/float/eql.t

@@ -0,0 +1,12 @@
+require 'Test'
+include Test
+
+plan 2
+
+a = 1.0
+b = a.eql? 1.0
+is b, true
+
+c = 1.0
+d = c.eql? 1
+is d, false

t/float/flo_eq.t

@@ -0,0 +1,20 @@
+require 'Test'
+include Test
+
+plan 6
+
+a = 1.0
+b = a == 1
+is b, true
+
+c = 1.0
+d = c == 2.0
+is d, false
+
+e = 1.0
+f = e == 2
+is f, false
+
+skip '.==', 'parser'
+skip '===', 'parser'
+skip '.===', 'parser'