+static void term_resume_pasting(Terminal *term)
+{
+ expire_timer_context(&term->paste_timer_ctx);
+ term_paste_queue(term, FALSE);
+}
+
+static void term_paste_timing_callback(void *vterm, unsigned long now)
+{
+ Terminal *term = *(Terminal **)vterm;
+ term_resume_pasting(term);
+}
+
+static void term_paste_queue(Terminal *term, int timed)
+{
+ if (timed) {
+ /*
+ * Delay sending the rest of the paste buffer until we have
+ * seen a newline coming back from the server (indicating that
+ * it's absorbed the data we've sent so far). As a fallback,
+ * continue sending anyway after a longish timeout.
+ *
+ * We use the pointless structure field term->paste_timer_ctx
+ * (which is a Terminal *, and we'll make sure it points
+ * straight back to term) as our timer context, so that it can
+ * be distinguished from term itself. That way, if we see a
+ * reason to continue pasting before the timer goes off, we
+ * can cancel just this timer and none of the other terminal
+ * timers handling display updates, blinking text and cursor,
+ * and visual bells.
+ */
+ term->paste_timer_ctx = term;
+ schedule_timer(450, term_paste_timing_callback,
+ &term->paste_timer_ctx);
+ } else {
+ /*
+ * Just arrange to call term_paste_callback from the top level
+ * at the next opportunity.
+ */
+ queue_toplevel_callback(term_paste_callback, term);
+ }
+}
+
+static void term_paste_callback(void *vterm)
+{
+ Terminal *term = (Terminal *)vterm;
+
+ if (term->paste_len == 0)
+ return;
+
+ while (term->paste_pos < term->paste_len) {
+ int n = 0;
+ while (n + term->paste_pos < term->paste_len) {
+ if (term->paste_buffer[term->paste_pos + n++] == '\015')
+ break;
+ }
+ if (term->ldisc)
+ luni_send(term->ldisc, term->paste_buffer + term->paste_pos, n, 0);
+ term->paste_pos += n;
+
+ if (term->paste_pos < term->paste_len) {
+ term_paste_queue(term, TRUE);
+ return;
+ }
+ }
+ sfree(term->paste_buffer);
+ term->paste_buffer = NULL;
+ term->paste_len = 0;
+}
+