Merge: Fix the old bug where (-0.1).to_s == "0.-1"

[nit.git] / lib / standard / kernel.nit

diff --git a/lib/standard/kernel.nit b/lib/standard/kernel.nit
index dcd48b5..2e9c9ae 100644 (file)
--- a/lib/standard/kernel.nit
+++ b/lib/standard/kernel.nit
@@ -83,6 +83,11 @@ class Sys
        # Instructions outside classes implicitly redefine this method.
        fun main do end
 
+       # The entry point for the execution of the whole program.
+       # Its job is to call `main` but some modules may want to refine it
+       # and inject specific work before or after the main part.
+       fun run do main
+
        # Number of the last error
        fun errno: Int is extern `{
                return errno;
@@ -285,6 +290,8 @@ universal Float
        redef type OTHER: Float
 
        redef fun object_id is intern
+       redef fun ==(i) is intern
+       redef fun !=(i) is intern
        redef fun output is intern
 
        redef fun <=(i): Bool is intern
@@ -303,6 +310,44 @@ universal Float
 
        redef fun zero do return 0.0
        redef fun value_of(val) do return val.to_f
+
+       redef fun <=>(other)
+       do
+               if self < other then
+                       return -1
+               else if other < self then
+                       return 1
+               else
+                       return 0
+               end
+       end
+
+       redef fun is_between(c, d)
+       do
+               if self < c or d < self then
+                       return false
+               else
+                       return true
+               end
+       end
+
+       redef fun max(other)
+       do
+               if self < other then
+                       return other
+               else
+                       return self
+               end
+       end
+
+       redef fun min(c)
+       do
+               if c < self then
+                       return c
+               else
+                       return self
+               end
+       end
 end
 
 # Native integer numbers.