-/* Selection processing for Emacs using the Win32 API.
+/* Selection processing for Emacs on the Microsoft W32 API.
Copyright (C) 1993, 1994 Free Software Foundation.
This file is part of GNU Emacs.
#include "dispextern.h" /* frame.h seems to want this */
#include "frame.h" /* Need this to get the X window of selected_frame */
#include "blockinput.h"
+#include "buffer.h"
+#include "charset.h"
+#include "coding.h"
Lisp_Object QCLIPBOARD;
+/* Coding system for communicating with other Windows programs via the
+ clipboard. */
+static Lisp_Object Vselection_coding_system;
+
+/* Coding system for the next communicating with other X clients. */
+static Lisp_Object Vnext_selection_coding_system;
+
#if 0
DEFUN ("w32-open-clipboard", Fw32_open_clipboard, Sw32_open_clipboard, 0, 1, 0,
"This opens the clipboard with the given frame pointer.")
BOOL ok = TRUE;
HANDLE htext;
int nbytes;
- int truelen;
+ int truelen, nlines = 0;
unsigned char *src;
unsigned char *dst;
-
+
CHECK_STRING (string, 0);
if (!NILP (frame))
BLOCK_INPUT;
- nbytes = XSTRING (string)->size + 1;
+ nbytes = STRING_BYTES (XSTRING (string)) + 1;
src = XSTRING (string)->data;
-
- /* need to know final size after '\r' chars are inserted (the
- standard CF_TEXT clipboard format uses CRLF line endings,
- while Emacs uses just LF internally) */
-
- truelen = nbytes;
dst = src;
- /* avoid using strchr because it recomputes the length everytime */
+
+ /* We need to know how many lines there are, since we need CRLF line
+ termination for compatibility with other Windows Programs.
+ avoid using strchr because it recomputes the length every time */
while ((dst = memchr (dst, '\n', nbytes - (dst - src))) != NULL)
{
- truelen++;
+ nlines++;
dst++;
}
- if ((htext = GlobalAlloc (GMEM_MOVEABLE | GMEM_DDESHARE, truelen)) == NULL)
- goto error;
+ {
+ /* Since we are now handling multilingual text, we must consider
+ encoding text for the clipboard. */
+ int charset_info = find_charset_in_text (src, XSTRING (string)->size,
+ nbytes, NULL, Qnil);
- if ((dst = (unsigned char *) GlobalLock (htext)) == NULL)
- goto error;
+ if (charset_info == 0)
+ {
+ /* No multibyte character in OBJ. We need not encode it. */
+
+ /* Need to know final size after CR chars are inserted (the
+ standard CF_TEXT clipboard format uses CRLF line endings,
+ while Emacs uses just LF internally). */
+
+ truelen = nbytes + nlines;
+
+ if ((htext = GlobalAlloc (GMEM_MOVEABLE | GMEM_DDESHARE, truelen)) == NULL)
+ goto error;
+
+ if ((dst = (unsigned char *) GlobalLock (htext)) == NULL)
+ goto error;
- /* convert to CRLF line endings expected by clipboard */
- while (1)
- {
- unsigned char *next;
- /* copy next line or remaining bytes including '\0' */
- next = _memccpy (dst, src, '\n', nbytes);
- if (next)
- {
- /* copied one line ending with '\n' */
- int copied = next - dst;
- nbytes -= copied;
- src += copied;
- /* insert '\r' before '\n' */
- next[-1] = '\r';
- next[0] = '\n';
- dst = next + 1;
- }
- else
- /* copied remaining partial line -> now finished */
- break;
- }
+ /* convert to CRLF line endings expected by clipboard */
+ while (1)
+ {
+ unsigned char *next;
+ /* copy next line or remaining bytes including '\0' */
+ next = _memccpy (dst, src, '\n', nbytes);
+ if (next)
+ {
+ /* copied one line ending with '\n' */
+ int copied = next - dst;
+ nbytes -= copied;
+ src += copied;
+ /* insert '\r' before '\n' */
+ next[-1] = '\r';
+ next[0] = '\n';
+ dst = next + 1;
+ }
+ else
+ /* copied remaining partial line -> now finished */
+ break;
+ }
- GlobalUnlock (htext);
+ GlobalUnlock (htext);
+
+ Vlast_coding_system_used = Qraw_text;
+ }
+ else
+ {
+ /* We must encode contents of OBJ to compound text format.
+ The format is compatible with what the target `STRING'
+ expects if OBJ contains only ASCII and Latin-1
+ characters. */
+ int bufsize;
+ struct coding_system coding;
+ HANDLE htext2;
+
+ if (NILP (Vnext_selection_coding_system))
+ Vnext_selection_coding_system = Vselection_coding_system;
+ setup_coding_system
+ (Fcheck_coding_system (Vnext_selection_coding_system), &coding);
+ coding.src_multibyte = 1;
+ coding.dst_multibyte = 0;
+ Vnext_selection_coding_system = Qnil;
+ coding.mode |= CODING_MODE_LAST_BLOCK;
+ bufsize = encoding_buffer_size (&coding, nbytes);
+ if ((htext = GlobalAlloc (GMEM_MOVEABLE | GMEM_DDESHARE, bufsize)) == NULL)
+ goto error;
+ if ((dst = (unsigned char *) GlobalLock (htext)) == NULL)
+ goto error;
+ encode_coding (&coding, src, dst, nbytes, bufsize);
+ Vlast_coding_system_used = coding.symbol;
+ GlobalUnlock (htext);
+ /* Shrink data block to actual size. */
+ htext2 = GlobalReAlloc (htext, coding.produced, GMEM_MOVEABLE | GMEM_DDESHARE);
+ if (htext2 != NULL) htext = htext2;
+ }
+ }
if (!OpenClipboard ((!NILP (frame) && FRAME_W32_P (XFRAME (frame))) ? FRAME_W32_WINDOW (XFRAME (frame)) : NULL))
goto error;
unsigned char *dst;
int nbytes;
int truelen;
+ int require_decoding = 0;
if ((src = (unsigned char *) GlobalLock (htext)) == NULL)
goto closeclip;
nbytes = strlen (src);
- /* need to know final size after '\r' chars are removed because
- we can't change the string size manually, and doing an extra
- copy is silly */
+ if (
+#if 1
+ 1
+#else
+ ! NILP (buffer_defaults.enable_multibyte_characters)
+#endif
+ )
+ {
+ /* If the clipboard data contains any non-ascii code, we
+ need to decode it. */
+ int i;
- truelen = nbytes;
- dst = src;
- /* avoid using strchr because it recomputes the length everytime */
- while ((dst = memchr (dst, '\r', nbytes - (dst - src))) != NULL)
+ for (i = 0; i < nbytes; i++)
+ {
+ if (src[i] >= 0x80)
+ {
+ require_decoding = 1;
+ break;
+ }
+ }
+ }
+
+ if (require_decoding)
{
- truelen--;
- dst++;
+ int bufsize;
+ unsigned char *buf;
+ struct coding_system coding;
+
+ if (NILP (Vnext_selection_coding_system))
+ Vnext_selection_coding_system = Vselection_coding_system;
+ setup_coding_system
+ (Fcheck_coding_system (Vnext_selection_coding_system), &coding);
+ coding.src_multibyte = 0;
+ coding.dst_multibyte = 1;
+ Vnext_selection_coding_system = Qnil;
+ coding.mode |= CODING_MODE_LAST_BLOCK;
+ bufsize = decoding_buffer_size (&coding, nbytes);
+ buf = (unsigned char *) xmalloc (bufsize);
+ decode_coding (&coding, src, buf, nbytes, bufsize);
+ Vlast_coding_system_used = coding.symbol;
+ ret = make_string_from_bytes ((char *) buf,
+ coding.produced_char, coding.produced);
+ xfree (buf);
}
+ else
+ {
+ /* Need to know final size after CR chars are removed because we
+ can't change the string size manually, and doing an extra
+ copy is silly. Note that we only remove CR when it appears
+ as part of CRLF. */
+
+ truelen = nbytes;
+ dst = src;
+ /* avoid using strchr because it recomputes the length everytime */
+ while ((dst = memchr (dst, '\r', nbytes - (dst - src))) != NULL)
+ {
+ if (dst[1] == '\n') /* safe because of trailing '\0' */
+ truelen--;
+ dst++;
+ }
- ret = make_uninit_string (truelen);
+ ret = make_uninit_string (truelen);
- /* convert CRLF line endings (the standard CF_TEXT clipboard
- format) to LF endings as used internally by Emacs */
+ /* Convert CRLF line endings (the standard CF_TEXT clipboard
+ format) to LF endings as used internally by Emacs. */
- dst = XSTRING (ret)->data;
- while (1)
- {
- unsigned char *next;
- /* copy next line or remaining bytes excluding '\0' */
- next = _memccpy (dst, src, '\r', nbytes);
- if (next)
+ dst = XSTRING (ret)->data;
+ while (1)
{
- /* copied one line ending with '\r' */
- int copied = next - dst;
- nbytes -= copied;
- dst += copied - 1; /* overwrite '\r' */
- src += copied;
- }
- else
- /* copied remaining partial line -> now finished */
- break;
+ unsigned char *next;
+ /* copy next line or remaining bytes excluding '\0' */
+ next = _memccpy (dst, src, '\r', nbytes);
+ if (next)
+ {
+ /* copied one line ending with '\r' */
+ int copied = next - dst;
+ nbytes -= copied;
+ dst += copied;
+ src += copied;
+ if (*src == '\n')
+ dst--; /* overwrite '\r' with '\n' */
+ }
+ else
+ /* copied remaining partial line -> now finished */
+ break;
+ }
+
+ Vlast_coding_system_used = Qraw_text;
}
GlobalUnlock (htext);
defsubr (&Sw32_get_clipboard_data);
defsubr (&Sx_selection_exists_p);
+ DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system,
+ "Coding system for communicating with other X clients.\n\
+When sending or receiving text via cut_buffer, selection, and clipboard,\n\
+the text is encoded or decoded by this coding system.\n\
+A default value is `compound-text'");
+ Vselection_coding_system=intern ("iso-latin-1-dos");
+
+ DEFVAR_LISP ("next-selection-coding-system", &Vnext_selection_coding_system,
+ "Coding system for the next communication with other X clients.\n\
+Usually, `selection-coding-system' is used for communicating with\n\
+other X clients. But, if this variable is set, it is used for the\n\
+next communication only. After the communication, this variable is\n\
+set to nil.");
+ Vnext_selection_coding_system = Qnil;
+
QCLIPBOARD = intern ("CLIPBOARD"); staticpro (&QCLIPBOARD);
}