Implement drag-and-drop of files on Haiku

* lisp/term/haiku-win.el (haiku-dnd-selection-converters): Add
new selection converter.
(haiku-dnd-convert-uri-list): New function.
(x-begin-drag): Allow selection converters to change message
field type.

* src/haikuselect.c (haiku_lisp_to_message): Perform more error
checking.

1 files changed, 37 insertions, 18 deletions

diff --git a/src/haikuselect.c b/src/haikuselect.c
index 807cbc24939..8192a1ad5b9 100644
--- a/src/haikuselect.c
+++ b/src/haikuselect.c
@@ -351,6 +351,7 @@ haiku_lisp_to_message (Lisp_Object obj, void *message)
   int8 char_data;
   bool bool_data;
   intmax_t t4;
+  int rc;
 
   CHECK_LIST (obj);
   for (tem = obj; CONSP (tem); tem = XCDR (tem))
@@ -390,10 +391,13 @@ haiku_lisp_to_message (Lisp_Object obj, void *message)
               short_data = XFIXNUM (data);
 
               block_input ();
-              be_add_message_data (message, SSDATA (name),
-                                   type_code, &short_data,
-                                   sizeof short_data);
+              rc = be_add_message_data (message, SSDATA (name),
+                                        type_code, &short_data,
+                                        sizeof short_data);
               unblock_input ();
+
+              if (rc)
+                signal_error ("Failed to add short", data);
               break;
 
             case 'LONG':
@@ -417,10 +421,13 @@ haiku_lisp_to_message (Lisp_Object obj, void *message)
                 }
 
               block_input ();
-              be_add_message_data (message, SSDATA (name),
-                                   type_code, &long_data,
-                                   sizeof long_data);
+              rc = be_add_message_data (message, SSDATA (name),
+                                        type_code, &long_data,
+                                        sizeof long_data);
               unblock_input ();
+
+              if (rc)
+                signal_error ("Failed to add long", data);
               break;
 
             case 'LLNG':
@@ -443,10 +450,13 @@ haiku_lisp_to_message (Lisp_Object obj, void *message)
                 }
 
               block_input ();
-              be_add_message_data (message, SSDATA (name),
-                                   type_code, &llong_data,
-                                   sizeof llong_data);
+              rc = be_add_message_data (message, SSDATA (name),
+                                        type_code, &llong_data,
+                                        sizeof llong_data);
               unblock_input ();
+
+              if (rc)
+                signal_error ("Failed to add llong", data);
               break;
 
             case 'CHAR':
@@ -456,30 +466,39 @@ haiku_lisp_to_message (Lisp_Object obj, void *message)
               char_data = XFIXNUM (data);
 
               block_input ();
-              be_add_message_data (message, SSDATA (name),
-                                   type_code, &char_data,
-                                   sizeof char_data);
+              rc = be_add_message_data (message, SSDATA (name),
+                                        type_code, &char_data,
+                                        sizeof char_data);
               unblock_input ();
+
+              if (rc)
+                signal_error ("Failed to add char", data);
               break;
 
             case 'BOOL':
               bool_data = !NILP (data);
 
               block_input ();
-              be_add_message_data (message, SSDATA (name),
-                                   type_code, &bool_data,
-                                   sizeof bool_data);
+              rc = be_add_message_data (message, SSDATA (name),
+                                        type_code, &bool_data,
+                                        sizeof bool_data);
               unblock_input ();
+
+              if (rc)
+                signal_error ("Failed to add bool", data);
               break;
 
             default:
               CHECK_STRING (data);
 
               block_input ();
-              be_add_message_data (message, SSDATA (name),
-                                   type_code, SDATA (data),
-                                   SBYTES (data));
+              rc = be_add_message_data (message, SSDATA (name),
+                                        type_code, SDATA (data),
+                                        SBYTES (data));
               unblock_input ();
+
+              if (rc)
+                signal_error ("Failed to add", data);
             }
         }
       CHECK_LIST_END (t2, t1);