diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/haiku_select.cc | 12 | ||||
| -rw-r--r-- | src/haikuselect.c | 56 | ||||
| -rw-r--r-- | src/haikuselect.h | 6 |
3 files changed, 63 insertions, 11 deletions
diff --git a/src/haiku_select.cc b/src/haiku_select.cc index 373ad321c4b..e047b9b5139 100644 --- a/src/haiku_select.cc +++ b/src/haiku_select.cc @@ -413,7 +413,7 @@ be_add_message_message (void *message, const char *name, int be_lock_clipboard_message (enum haiku_clipboard clipboard, - void **message_return) + void **message_return, bool clear) { BClipboard *board; @@ -427,12 +427,15 @@ be_lock_clipboard_message (enum haiku_clipboard clipboard, if (!board->Lock ()) return 1; + if (clear) + board->Clear (); + *message_return = board->Data (); return 0; } void -be_unlock_clipboard (enum haiku_clipboard clipboard) +be_unlock_clipboard (enum haiku_clipboard clipboard, bool discard) { BClipboard *board; @@ -443,5 +446,10 @@ be_unlock_clipboard (enum haiku_clipboard clipboard) else board = system_clipboard; + if (discard) + board->Revert (); + else + board->Commit (); + board->Unlock (); } diff --git a/src/haikuselect.c b/src/haikuselect.c index f1aa4f20d96..461482fea18 100644 --- a/src/haikuselect.c +++ b/src/haikuselect.c @@ -27,6 +27,8 @@ along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ #include <stdlib.h> +static void haiku_lisp_to_message (Lisp_Object, void *); + DEFUN ("haiku-selection-data", Fhaiku_selection_data, Shaiku_selection_data, 2, 2, 0, doc: /* Retrieve content typed as NAME from the clipboard @@ -88,7 +90,7 @@ message in the format accepted by `haiku-drag-message', which see. */) clipboard_name = CLIPBOARD_CLIPBOARD; block_input (); - rc = be_lock_clipboard_message (clipboard_name, &message); + rc = be_lock_clipboard_message (clipboard_name, &message, false); unblock_input (); if (rc) @@ -96,13 +98,19 @@ message in the format accepted by `haiku-drag-message', which see. */) block_input (); str = haiku_message_to_lisp (message); - be_unlock_clipboard (clipboard_name); + be_unlock_clipboard (clipboard_name, true); unblock_input (); } return str; } +static void +haiku_unwind_clipboard_lock (int clipboard) +{ + be_unlock_clipboard (clipboard, false); +} + DEFUN ("haiku-selection-put", Fhaiku_selection_put, Shaiku_selection_put, 3, 4, 0, doc: /* Add or remove content from the clipboard CLIPBOARD. @@ -110,18 +118,53 @@ CLIPBOARD is the symbol `PRIMARY', `SECONDARY' or `CLIPBOARD'. NAME is a MIME type denoting the type of the data to add. DATA is the string that will be placed in the clipboard, or nil if the content is to be removed. CLEAR, if non-nil, means to erase all the previous -contents of the clipboard. */) +contents of the clipboard. + +Alternatively, NAME can be a system message in the format accepted by +`haiku-drag-message', which will replace the contents of CLIPBOARD. +In that case, the arguments after NAME are ignored. */) (Lisp_Object clipboard, Lisp_Object name, Lisp_Object data, Lisp_Object clear) { + enum haiku_clipboard clipboard_name; + specpdl_ref ref; + char *dat; + ptrdiff_t len; + int rc; + void *message; + + if (CONSP (name) || NILP (name)) + { + if (EQ (clipboard, QPRIMARY)) + clipboard_name = CLIPBOARD_PRIMARY; + else if (EQ (clipboard, QSECONDARY)) + clipboard_name = CLIPBOARD_SECONDARY; + else if (EQ (clipboard, QCLIPBOARD)) + clipboard_name = CLIPBOARD_CLIPBOARD; + else + signal_error ("Invalid clipboard", clipboard); + + rc = be_lock_clipboard_message (clipboard_name, + &message, true); + + if (rc) + signal_error ("Couldn't open clipboard", clipboard); + + ref = SPECPDL_INDEX (); + record_unwind_protect_int (haiku_unwind_clipboard_lock, + clipboard_name); + haiku_lisp_to_message (name, message); + + return unbind_to (ref, Qnil); + } + CHECK_SYMBOL (clipboard); CHECK_STRING (name); if (!NILP (data)) CHECK_STRING (data); - block_input (); - char *dat = !NILP (data) ? SSDATA (data) : NULL; - ptrdiff_t len = !NILP (data) ? SBYTES (data) : 0; + dat = !NILP (data) ? SSDATA (data) : NULL; + len = !NILP (data) ? SBYTES (data) : 0; if (EQ (clipboard, QPRIMARY)) BClipboard_set_primary_selection_data (SSDATA (name), dat, len, @@ -136,7 +179,6 @@ contents of the clipboard. */) unblock_input (); signal_error ("Bad clipboard", clipboard); } - unblock_input (); return Qnil; } diff --git a/src/haikuselect.h b/src/haikuselect.h index 01e4ca327da..5d1dd33c8c4 100644 --- a/src/haikuselect.h +++ b/src/haikuselect.h @@ -107,8 +107,10 @@ extern "C" extern int be_add_message_message (void *message, const char *name, void *data); extern int be_lock_clipboard_message (enum haiku_clipboard clipboard, - void **message_return); - extern void be_unlock_clipboard (enum haiku_clipboard clipboard); + void **message_return, + bool clear); + extern void be_unlock_clipboard (enum haiku_clipboard clipboard, + bool discard); #ifdef __cplusplus }; #endif |