#include <config.h>
#include "lisp.h"
#include "w32term.h"
#include "dispextern.h"
#include "keyboard.h"
#include "frame.h"
#include "blockinput.h"
#include "buffer.h"
#include "charset.h"
#include "coding.h"
Lisp_Object QCLIPBOARD;
static Lisp_Object Vselection_coding_system;
static Lisp_Object Vnext_selection_coding_system;
static unsigned char *last_clipboard_text = NULL;
static size_t clipboard_storage_size = 0;
#if 0
DEFUN ("w32-open-clipboard", Fw32_open_clipboard, Sw32_open_clipboard, 0, 1, 0,
"This opens the clipboard with the given frame pointer.")
(frame)
Lisp_Object frame;
{
BOOL ok = FALSE;
if (!NILP (frame))
CHECK_LIVE_FRAME (frame, 0);
BLOCK_INPUT;
ok = OpenClipboard ((!NILP (frame) && FRAME_W32_P (XFRAME (frame))) ? FRAME_W32_WINDOW (XFRAME (frame)) : NULL);
UNBLOCK_INPUT;
return (ok ? frame : Qnil);
}
DEFUN ("w32-empty-clipboard", Fw32_empty_clipboard, Sw32_empty_clipboard, 0, 0, 0,
"This empties the clipboard and assigns ownership to the window which opened the clipboard.")
()
{
BOOL ok = FALSE;
BLOCK_INPUT;
ok = EmptyClipboard ();
UNBLOCK_INPUT;
return (ok ? Qt : Qnil);
}
DEFUN ("w32-close-clipboard", Fw32_close_clipboard, Sw32_close_clipboard, 0, 0, 0,
"This closes the clipboard.")
()
{
BOOL ok = FALSE;
BLOCK_INPUT;
ok = CloseClipboard ();
UNBLOCK_INPUT;
return (ok ? Qt : Qnil);
}
#endif
DEFUN ("w32-set-clipboard-data", Fw32_set_clipboard_data, Sw32_set_clipboard_data, 1, 2, 0,
"This sets the clipboard data to the given text.")
(string, frame)
Lisp_Object string, frame;
{
BOOL ok = TRUE;
HANDLE htext;
int nbytes;
int truelen, nlines = 0;
unsigned char *src;
unsigned char *dst;
CHECK_STRING (string, 0);
if (!NILP (frame))
CHECK_LIVE_FRAME (frame, 0);
BLOCK_INPUT;
nbytes = STRING_BYTES (XSTRING (string)) + 1;
src = XSTRING (string)->data;
dst = src;
while ((dst = memchr (dst, '\n', nbytes - (dst - src))) != NULL)
{
nlines++;
dst++;
}
{
int charset_info = find_charset_in_text (src, XSTRING (string)->size,
nbytes, NULL, Qnil);
if (charset_info == 0)
{
truelen = nbytes + nlines;
if ((htext = GlobalAlloc (GMEM_MOVEABLE | GMEM_DDESHARE, truelen)) == NULL)
goto error;
if ((dst = (unsigned char *) GlobalLock (htext)) == NULL)
goto error;
while (1)
{
unsigned char *next;
next = _memccpy (dst, src, '\n', nbytes);
if (next)
{
int copied = next - dst;
nbytes -= copied;
src += copied;
next[-1] = '\r';
next[0] = '\n';
dst = next + 1;
}
else
break;
}
GlobalUnlock (htext);
Vlast_coding_system_used = Qraw_text;
}
else
{
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;
if (clipboard_storage_size < coding.produced)
{
clipboard_storage_size = coding.produced + 100;
last_clipboard_text = (char *) xrealloc (last_clipboard_text,
clipboard_storage_size);
}
if (last_clipboard_text)
memcpy (last_clipboard_text, dst, coding.produced);
GlobalUnlock (htext);
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;
ok = EmptyClipboard () && SetClipboardData (CF_TEXT, htext);
CloseClipboard ();
if (ok) goto done;
error:
ok = FALSE;
if (htext) GlobalFree (htext);
if (last_clipboard_text)
*last_clipboard_text = '\0';
done:
UNBLOCK_INPUT;
return (ok ? string : Qnil);
}
DEFUN ("w32-get-clipboard-data", Fw32_get_clipboard_data, Sw32_get_clipboard_data, 0, 1, 0,
"This gets the clipboard data in text format.")
(frame)
Lisp_Object frame;
{
HANDLE htext;
Lisp_Object ret = Qnil;
if (!NILP (frame))
CHECK_LIVE_FRAME (frame, 0);
BLOCK_INPUT;
if (!OpenClipboard ((!NILP (frame) && FRAME_W32_P (XFRAME (frame))) ? FRAME_W32_WINDOW (XFRAME (frame)) : NULL))
goto done;
if ((htext = GetClipboardData (CF_TEXT)) == NULL)
goto closeclip;
{
unsigned char *src;
unsigned char *dst;
int nbytes;
int truelen;
int require_decoding = 0;
if ((src = (unsigned char *) GlobalLock (htext)) == NULL)
goto closeclip;
nbytes = strlen (src);
if (last_clipboard_text
&& clipboard_storage_size >= nbytes
&& memcmp(last_clipboard_text, src, nbytes) == 0)
goto closeclip;
if (
#if 1
1
#else
! NILP (buffer_defaults.enable_multibyte_characters)
#endif
)
{
int i;
for (i = 0; i < nbytes; i++)
{
if (src[i] >= 0x80)
{
require_decoding = 1;
break;
}
}
}
if (require_decoding)
{
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
{
truelen = nbytes;
dst = src;
while ((dst = memchr (dst, '\r', nbytes - (dst - src))) != NULL)
{
if (dst[1] == '\n')
truelen--;
dst++;
}
ret = make_uninit_string (truelen);
dst = XSTRING (ret)->data;
while (1)
{
unsigned char *next;
next = _memccpy (dst, src, '\r', nbytes);
if (next)
{
int copied = next - dst;
nbytes -= copied;
dst += copied;
src += copied;
if (*src == '\n')
dst--;
}
else
break;
}
Vlast_coding_system_used = Qraw_text;
}
GlobalUnlock (htext);
}
closeclip:
CloseClipboard ();
done:
UNBLOCK_INPUT;
return (ret);
}
DEFUN ("x-selection-exists-p", Fx_selection_exists_p, Sx_selection_exists_p,
0, 1, 0,
"Whether there is an owner for the given X Selection.\n\
The arg should be the name of the selection in question, typically one of\n\
the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.\n\
\(Those are literal upper-case symbol names, since that's what X expects.)\n\
For convenience, the symbol nil is the same as `PRIMARY',\n\
and t is the same as `SECONDARY'.")
(selection)
Lisp_Object selection;
{
CHECK_SYMBOL (selection, 0);
if (EQ (selection, QCLIPBOARD))
{
Lisp_Object val = Qnil;
if (OpenClipboard (NULL))
{
int format = 0;
while (format = EnumClipboardFormats (format))
if (format == CF_TEXT)
{
val = Qt;
break;
}
CloseClipboard ();
}
return val;
}
return Qnil;
}
void
syms_of_w32select ()
{
#if 0
defsubr (&Sw32_open_clipboard);
defsubr (&Sw32_empty_clipboard);
defsubr (&Sw32_close_clipboard);
#endif
defsubr (&Sw32_set_clipboard_data);
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);
}