master d2865bfa2c: Implement more data type conversions for Haiku selections

[Po Lu]

branch: master
commit d2865bfa2ca933b712b34507fe294dbcc047cdf0
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    Implement more data type conversions for Haiku selections
    
    * src/haikuselect.c (haiku_message_to_lisp):
    (lisp_to_type_code):
    (haiku_lisp_to_message):
    (Fhaiku_drag_message): Recognize `double' and `float' types.
    (syms_of_haikuselect): New defsyms.
---
 src/haikuselect.c | 53 ++++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 52 insertions(+), 1 deletion(-)

diff --git a/src/haikuselect.c b/src/haikuselect.c
index 313b26f6ba..6d03d6eb68 100644
--- a/src/haikuselect.c
+++ b/src/haikuselect.c
@@ -295,6 +295,14 @@ haiku_message_to_lisp (void *message)
              t1 = make_int ((intmax_t) *(ssize_t *) buf);
              break;
 
+           case 'DBLE':
+             t1 = make_float (*(double *) buf);
+             break;
+
+           case 'FLOT':
+             t1 = make_float (*(float *) buf);
+             break;
+
            default:
              t1 = make_uninit_string (buf_size);
              memcpy (SDATA (t1), buf, buf_size);
@@ -353,6 +361,14 @@ haiku_message_to_lisp (void *message)
          t2 = Qpoint;
          break;
 
+       case 'DBLE':
+         t2 = Qdouble;
+         break;
+
+       case 'FLOT':
+         t2 = Qfloat;
+         break;
+
        default:
          t2 = make_int (type_code);
        }
@@ -398,6 +414,10 @@ lisp_to_type_code (Lisp_Object obj)
     return 'SSZT';
   else if (EQ (obj, Qpoint))
     return 'BPNT';
+  else if (EQ (obj, Qfloat))
+    return 'FLOT';
+  else if (EQ (obj, Qdouble))
+    return 'DBLE';
   else
     return -1;
 }
@@ -416,7 +436,8 @@ haiku_lisp_to_message (Lisp_Object obj, void *message)
   ssize_t ssizet_data;
   intmax_t t4;
   uintmax_t t5;
-  float t6, t7;
+  float t6, t7, float_data;
+  double double_data;
   int rc;
   specpdl_ref ref;
 
@@ -520,6 +541,30 @@ haiku_lisp_to_message (Lisp_Object obj, void *message)
                signal_error ("Invalid point", data);
              break;
 
+           case 'FLOT':
+             CHECK_NUMBER (data);
+             float_data = XFLOATINT (data);
+
+             rc = be_add_message_data (message, SSDATA (name),
+                                       type_code, &float_data,
+                                       sizeof float_data);
+
+             if (rc)
+               signal_error ("Failed to add float", data);
+             break;
+
+           case 'DBLE':
+             CHECK_NUMBER (data);
+             double_data = XFLOATINT (data);
+
+             rc = be_add_message_data (message, SSDATA (name),
+                                       type_code, &double_data,
+                                       sizeof double_data);
+
+             if (rc)
+               signal_error ("Failed to add double", data);
+             break;
+
            case 'SHRT':
              if (!TYPE_RANGED_FIXNUMP (int16, data))
                signal_error ("Invalid value", data);
@@ -734,6 +779,10 @@ system.  If TYPE is `ssize_t', then DATA is an integer 
that can hold
 values from -1 to the maximum value of the C data type `ssize_t' on
 the current system.  If TYPE is `point', then DATA is a cons of float
 values describing the X and Y coordinates of an on-screen location.
+If TYPE is `float', then DATA is a low-precision floating point
+number, whose exact precision is not guaranteed.  If TYPE is `double',
+then DATA is a floating point number that can represent any value a
+Lisp float can represent.
 
 If the field name is not a string but the symbol `type', then it
 associates to a 32-bit unsigned integer describing the type of the
@@ -928,6 +977,8 @@ used to retrieve the current position of the mouse.  */);
   DEFSYM (Qsize_t, "size_t");
   DEFSYM (Qssize_t, "ssize_t");
   DEFSYM (Qpoint, "point");
+  DEFSYM (Qfloat, "float");
+  DEFSYM (Qdouble, "double");
   DEFSYM (Qalready_running, "already-running");
 
   defsubr (&Shaiku_selection_data);