[script] Add support for Infinity and NaN

The rules are inhertited from C (NaN != NaN etc).

diff --git a/src/plugins/splash/script/script-object.c b/src/plugins/splash/script/script-object.c
index 041255cc4d4505d425872cf45e631f7eb2d53c4c..1d01af0bf532036e6d35c4e86ed4b694a0fc0832 100644 (file)
--- a/src/plugins/splash/script/script-object.c
+++ b/src/plugins/splash/script/script-object.c
@@ -150,7 +150,6 @@ script_obj_t *script_obj_new_null (void)
 
 script_obj_t *script_obj_new_number (script_number_t number)
 {
-  if (isnan (number)) return script_obj_new_null ();
   script_obj_t *obj = malloc (sizeof (script_obj_t));
   obj->type = SCRIPT_OBJ_TYPE_NUMBER;
   obj->refcount = 1;
@@ -220,14 +219,10 @@ script_number_t script_obj_as_number (script_obj_t *obj)
         return obj->data.number;
 
       case SCRIPT_OBJ_TYPE_NULL:
-        return NAN;
-
       case SCRIPT_OBJ_TYPE_REF:
       case SCRIPT_OBJ_TYPE_HASH:
       case SCRIPT_OBJ_TYPE_FUNCTION:
       case SCRIPT_OBJ_TYPE_NATIVE:
-        return NAN;
-
       case SCRIPT_OBJ_TYPE_STRING:
         return NAN;
     }
@@ -580,10 +575,15 @@ script_obj_cmp_result_t script_obj_cmp (script_obj_t *script_obj_a,
     {
       if (script_obj_is_number (script_obj_b))
         {
-          script_number_t diff = script_obj_as_number (script_obj_a) - script_obj_as_number (script_obj_b);
-          if (diff < 0) return SCRIPT_OBJ_CMP_RESULT_LT;
-          if (diff > 0) return SCRIPT_OBJ_CMP_RESULT_GT;
-          return SCRIPT_OBJ_CMP_RESULT_EQ;
+          script_number_t num_a = script_obj_as_number (script_obj_a);
+          script_number_t num_b = script_obj_as_number (script_obj_b);
+          if (num_b == 21)
+            printf("%f-%f ", num_a, num_b);
+
+          if (num_a < num_b) return SCRIPT_OBJ_CMP_RESULT_LT;
+          if (num_a > num_b) return SCRIPT_OBJ_CMP_RESULT_GT;
+          if (num_a == num_b) return SCRIPT_OBJ_CMP_RESULT_EQ;
+          return SCRIPT_OBJ_CMP_RESULT_NE;
         }
     }
   else if (script_obj_is_string (script_obj_a))

diff --git a/src/plugins/splash/script/script-parse.c b/src/plugins/splash/script/script-parse.c
index cebf4f95e72c9d98e3d4c79f0117bf2f2e5cfb6c..a502e020f128a0f02f63a28bad33dabc7c6af10e 100644 (file)
--- a/src/plugins/splash/script/script-parse.c
+++ b/src/plugins/splash/script/script-parse.c
@@ -28,6 +28,7 @@
 #include <stdlib.h>
 #include <fcntl.h>
 #include <assert.h>
+#include <math.h>
 #include <stdbool.h>
 #include <string.h>
 #include <stdbool.h>
@@ -185,6 +186,16 @@ static script_exp_t *script_parse_exp_tm (script_scan_t *scan)
       exp = malloc (sizeof (script_exp_t));
       if (script_scan_token_is_identifier_of_value (curtoken, "NULL"))
         exp->type = SCRIPT_EXP_TYPE_TERM_NULL;
+      else if (script_scan_token_is_identifier_of_value (curtoken, "INFINITY"))
+        {
+          exp->type = SCRIPT_EXP_TYPE_TERM_NUMBER;
+          exp->data.number = INFINITY;
+        }
+      else if (script_scan_token_is_identifier_of_value (curtoken, "NAN"))
+        {
+          exp->type = SCRIPT_EXP_TYPE_TERM_NUMBER;
+          exp->data.number = NAN;
+        }
       else if (script_scan_token_is_identifier_of_value (curtoken, "global"))
         exp->type = SCRIPT_EXP_TYPE_TERM_GLOBAL;
       else if (script_scan_token_is_identifier_of_value (curtoken, "local"))