emacs: src/w16select.c comparison

comparison src/w16select.c @ 22729:3537e1563a66

(Vclipboard_coding_system): New variable. (set_clipboard_data, set_clipboard_data): New parameter Raw determines whether CRLF <-> NL translation needs to be done. All callers changed. (Fw16_set_clipboard_data): Encode the text using Vclipboard_coding_system, if necessary. (Fw16_get_clipboard_data): Decode the text using Vclipboard_coding_system, if necessary. (syms_of_win16select): DEFVAR Vclipboard_coding_system and staticpro it.

author	Eli Zaretskii <eliz@gnu.org>
date	Thu, 09 Jul 1998 14:02:15 +0000
parents	64adf1f4d54d
children	14bde44d261c

comparison

equal deleted inserted replaced

-:4596d7f197d8
+:3537e1563a66
 #include <sys/farptr.h>
 #include "lisp.h"
 #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"
 /* If ever some function outside this file will need to call any
 clipboard-related function, the following prototypes and constants
 should be put on a header file.  Right now, nobody else uses them.  */
 #define CF_DSPBITMAP 0x82
 unsigned identify_winoldap_version (void);
 unsigned open_clipboard (void);
 unsigned empty_clipboard (void);
-unsigned set_clipboard_data (unsigned, void *, unsigned);
+unsigned set_clipboard_data (unsigned, void *, unsigned, int);
 unsigned get_clipboard_data_size (unsigned);
-unsigned get_clipboard_data (unsigned, void *, unsigned);
+unsigned get_clipboard_data (unsigned, void *, unsigned, int);
 unsigned close_clipboard (void);
 unsigned clipboard_compact (unsigned);
 Lisp_Object QCLIPBOARD, QPRIMARY;
+/* Coding system for communicating with other Windows programs via the
+clipboard.  */
+static Lisp_Object Vclipboard_coding_system;
 /* The segment address and the size of the buffer in low
 memory used to move data between us and WinOldAp module.  */
 static struct {
 }
 }
 /* Copy data into the clipboard, return non-zero if successfull.  */
 unsigned
-set_clipboard_data (Format, Data, Size)
+set_clipboard_data (Format, Data, Size, Raw)
 unsigned Format;
 void *Data;
 unsigned Size;
+int Raw;
 {
 __dpmi_regs regs;
 unsigned truelen;
 unsigned long xbuf_addr, buf_offset;
 unsigned char *dp = Data, *dstart = dp;
 /* 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 = Size;
-/* avoid using strchr because it recomputes the length everytime */
-while ((dp = memchr (dp, '\n', Size - (dp - dstart))) != 0)
+if (!Raw)
 {
-truelen++;
+/* avoid using strchr because it recomputes the length everytime */
-dp++;
+while ((dp = memchr (dp, '\n', Size - (dp - dstart))) != 0)
+	{
+	  truelen++;
+	  dp++;
+	}
 }
 if (clipboard_compact (truelen) < truelen)
 return 0;
 if ((xbuf_addr = alloc_xfer_buf (truelen)) == 0)
 return 0;
-/* Move the buffer into the low memory, convert LF into CR-LF pairs.  */
+/* Move the buffer into the low memory, convert LF into CR-LF if needed.  */
-dp = Data;
+if (Raw)
-buf_offset = xbuf_addr;
+dosmemput (Data, truelen, __tb);
-_farsetsel (_dos_ds);
+else
-while (Size--)
+{
-{
+dp = Data;
-if (*dp == '\n')
+buf_offset = xbuf_addr;
-	_farnspokeb (buf_offset++, '\r');
+_farsetsel (_dos_ds);
-_farnspokeb (buf_offset++, *dp++);
+while (Size--)
+	{
+	  if (*dp == '\n')
+	    _farnspokeb (buf_offset++, '\r');
+	  _farnspokeb (buf_offset++, *dp++);
+	}
 }
 /* Calls Int 2Fh/AX=1703h with:
 	             DX = WinOldAp-Supported Clipboard format
 ES:BX = Pointer to data
 /* Get clipboard data, return its length.
 Warning: this doesn't check whether DATA has enough space to hold
 SIZE bytes.  */
 unsigned
-get_clipboard_data (Format, Data, Size)
+get_clipboard_data (Format, Data, Size, Raw)
 unsigned Format;
 void *Data;
 unsigned Size;
+int Raw;
 {
 __dpmi_regs regs;
 unsigned datalen = 0;
 unsigned long xbuf_addr;
 unsigned char *dp = Data;
 regs.x.es = xbuf_addr >> 4;
 regs.x.bx = xbuf_addr & 15;
 __dpmi_int(0x2f, &regs);
 if (regs.x.ax != 0)
 {
-/* Copy data from low memory, remove CR characters if before LF.  */
+/* Copy data from low memory, remove CR
+	 characters before LF if needed.  */
 _farsetsel (_dos_ds);
 while (Size--)
 	{
 	  register unsigned char c = _farnspeekb (xbuf_addr++);
-	  if ((*dp++ = c) == '\r' && _farnspeekb (xbuf_addr) == '\n')
+	  if ((*dp++ = c) == '\r' && !Raw && _farnspeekb (xbuf_addr) == '\n')
 	    {
 	      dp--;
 	      *dp++ = '\n';
 	      xbuf_addr++;
 	    }
 (string, frame)
 Lisp_Object string, frame;
 {
 int ok = 1, ok1 = 1;
 int nbytes;
-unsigned char *src;
+unsigned char *src, *dst = NULL;
+int charsets[MAX_CHARSET + 1];
+int num;
+int no_crlf_conversion;
 CHECK_STRING (string, 0);
 if (NILP (frame))
 frame = Fselected_frame ();
 if ( !FRAME_MSDOS_P (XFRAME (frame)))
 goto done;
 BLOCK_INPUT;
-nbytes = XSTRING (string)->size + 1;
+nbytes = STRING_BYTES (XSTRING (string)) + 1;
 src = XSTRING (string)->data;
+/* Since we are now handling multilingual text, we must consider
+encoding text for the clipboard.  */
+bzero (charsets, (MAX_CHARSET + 1) * sizeof (int));
+num = ((nbytes <= 2	/* Check the possibility of short cut.  */
+	  || NILP (buffer_defaults.enable_multibyte_characters))
+	 ? 0
+	 : find_charset_in_str (src, nbytes, charsets, Qnil, 1));
+if (!num || (num == 1 && charsets[CHARSET_ASCII]))
+{
+/* No multibyte character in OBJ.  We need not encode it, but we
+	 will have to convert it to DOS CR-LF style.  */
+no_crlf_conversion = 0;
+}
+else
+{
+/* We must encode contents of STRING according to what
+	 clipboard-coding-system specifies.  */
+int bufsize;
+struct coding_system coding;
+unsigned char *htext2;
+setup_coding_system
+	(Fcheck_coding_system (Vclipboard_coding_system), &coding);
+coding.mode |= CODING_MODE_LAST_BLOCK;
+Vlast_coding_system_used = coding.symbol;
+bufsize = encoding_buffer_size (&coding, nbytes);
+dst = (unsigned char *) xmalloc (bufsize);
+encode_coding (&coding, src, dst, nbytes, bufsize);
+no_crlf_conversion = 1;
+}
 if (!open_clipboard ())
 goto error;
-ok = empty_clipboard () && (ok1 = set_clipboard_data (CF_TEXT, src, nbytes));
+ok = empty_clipboard ()
+&& (ok1 = set_clipboard_data (CF_TEXT, src, nbytes, no_crlf_conversion));
+if (!no_crlf_conversion)
+Vlast_coding_system_used = Qraw_text;
 close_clipboard ();
 if (ok) goto unblock;
 error:
 ok = 0;
 unblock:
+if (dst)
+xfree (dst);
 UNBLOCK_INPUT;
 /* Notify user if the text is too large to fit into DOS memory.
 (This will happen somewhere after 600K bytes (470K in DJGPP v1.x),
 depending on user system configuration.)  If we just silently
 Lisp_Object frame;
 {
 unsigned data_size, truelen;
 unsigned char *htext;
 Lisp_Object ret = Qnil;
+int no_crlf_conversion;
-if (!NILP (frame))
+int require_encoding = 0;
-CHECK_LIVE_FRAME (frame, 0);
 if (NILP (frame))
 frame = Fselected_frame ();
 CHECK_LIVE_FRAME (frame, 0);
 if ( !FRAME_MSDOS_P (XFRAME (frame)))
 goto closeclip;
 /* 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 ((truelen = get_clipboard_data (CF_TEXT, htext, data_size)) == 0)
+if ((truelen = get_clipboard_data (CF_TEXT, htext, data_size, 0)) == 0)
 goto closeclip;
-ret = make_string (htext, truelen);
+/* Do we need to decode it?  */
+if (! NILP (buffer_defaults.enable_multibyte_characters))
+{
+/* If the clipboard data contains any 8-bit Latin-1 code, we
+	 need to decode it.  */
+int i;
+for (i = 0; i < truelen; i++)
+	{
+	  if (htext[i] >= 0x80)
+	    {
+	      require_encoding = 1;
+	      break;
+	    }
+	}
+}
+if (require_encoding)
+{
+int bufsize;
+unsigned char *buf;
+struct coding_system coding;
+setup_coding_system
+	(Fcheck_coding_system (Vclipboard_coding_system), &coding);
+coding.mode |= CODING_MODE_LAST_BLOCK;
+truelen = get_clipboard_data (CF_TEXT, htext, data_size, 1);
+bufsize = decoding_buffer_size (&coding, truelen);
+buf = (unsigned char *) xmalloc (bufsize);
+decode_coding (&coding, htext, buf, truelen, bufsize);
+truelen = (coding.fake_multibyte
+		 ? multibyte_chars_in_text (buf, coding.produced)
+		 : coding.produced_char);
+ret = make_string_from_bytes ((char *) buf, truelen, coding.produced);
+xfree (buf);
+Vlast_coding_system_used = coding.symbol;
+}
+else
+{
+ret = make_unibyte_string ((char *) htext, truelen);
+Vlast_coding_system_used = Qraw_text;
+}
 xfree (htext);
 closeclip:
 close_clipboard ();
 {
 defsubr (&Sw16_set_clipboard_data);
 defsubr (&Sw16_get_clipboard_data);
 defsubr (&Sx_selection_exists_p);
+DEFVAR_LISP ("clipboard-coding-system", &Vclipboard_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 `iso-latin-1-dos'");
+Vclipboard_coding_system=intern ("iso-latin-1-dos");
+staticpro(&Vclipboard_coding_system);
 QPRIMARY   = intern ("PRIMARY");	staticpro (&QPRIMARY);
 QCLIPBOARD = intern ("CLIPBOARD");	staticpro (&QCLIPBOARD);
 }
 #endif /* MSDOS */

Mercurial > emacs

comparison src/w16select.c @ 22729:3537e1563a66