Mercurial > emacs
annotate src/w16select.c @ 89268:09a99ad41f97
("fontset-default"): Add an entry for `indian-is13194' charset.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 30 Oct 2002 01:20:15 +0000 |
parents | aac41b50c875 |
children | 2f877ed80fa6 |
rev | line source |
---|---|
21709
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
1 /* 16-bit Windows Selection processing for emacs on MS-Windows |
39584
6145836b795c
Use SYMBOL_VALUE/ SET_SYMBOL_VALUE macros instead of accessing
Gerd Moellmann <gerd@gnu.org>
parents:
30900
diff
changeset
|
2 Copyright (C) 1996, 1997, 2001 Free Software Foundation. |
17451 | 3 |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
8 the Free Software Foundation; either version 2, or (at your option) | |
9 any later version. | |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
19 Boston, MA 02111-1307, USA. */ | |
20 | |
21 /* These functions work by using WinOldAp interface. WinOldAp | |
22 (WINOLDAP.MOD) is a Microsoft Windows extension supporting | |
23 "old" (character-mode) application access to Dynamic Data Exchange, | |
24 menus, and the Windows clipboard. */ | |
25 | |
26 /* Written by Dale P. Smith <dpsm@en.com> */ | |
27 /* Adapted to DJGPP v1 by Eli Zaretskii <eliz@is.elta.co.il> */ | |
28 | |
29 #ifdef MSDOS | |
30 | |
31 #include <config.h> | |
32 #include <string.h> | |
33 #include <dpmi.h> | |
34 #include <go32.h> | |
35 #include <sys/farptr.h> | |
36 #include "lisp.h" | |
37 #include "dispextern.h" /* frame.h seems to want this */ | |
38 #include "frame.h" /* Need this to get the X window of selected_frame */ | |
39 #include "blockinput.h" | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
40 #include "buffer.h" |
88351
aac41b50c875
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43475
diff
changeset
|
41 #include "character.h" |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
42 #include "coding.h" |
17451 | 43 |
44 /* If ever some function outside this file will need to call any | |
45 clipboard-related function, the following prototypes and constants | |
46 should be put on a header file. Right now, nobody else uses them. */ | |
47 | |
48 #define CF_TEXT 0x01 | |
49 #define CF_BITMAP 0x02 | |
50 #define CF_METAFILE 0x03 | |
51 #define CF_SYLK 0x04 | |
52 #define CF_DIF 0x05 | |
53 #define CF_TIFF 0x06 | |
54 #define CF_OEMTEXT 0x07 | |
55 #define CF_DIBBITMAP 0x08 | |
56 #define CF_WINWRITE 0x80 | |
57 #define CF_DSPTEXT 0x81 | |
58 #define CF_DSPBITMAP 0x82 | |
59 | |
60 unsigned identify_winoldap_version (void); | |
61 unsigned open_clipboard (void); | |
62 unsigned empty_clipboard (void); | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
63 unsigned set_clipboard_data (unsigned, void *, unsigned, int); |
17451 | 64 unsigned get_clipboard_data_size (unsigned); |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
65 unsigned get_clipboard_data (unsigned, void *, unsigned, int); |
17451 | 66 unsigned close_clipboard (void); |
67 unsigned clipboard_compact (unsigned); | |
68 | |
69 Lisp_Object QCLIPBOARD, QPRIMARY; | |
70 | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
71 /* Coding system for communicating with other Windows programs via the |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
72 clipboard. */ |
22904
37738fa8626a
(Fw16_set_clipboard_data, Fw16_get_clipboard_data, syms_of_win16select):
Eli Zaretskii <eliz@gnu.org>
parents:
22749
diff
changeset
|
73 static Lisp_Object Vselection_coding_system; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
74 |
23164
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
75 /* Coding system for the next communicating with other Windows programs. */ |
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
76 static Lisp_Object Vnext_selection_coding_system; |
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
77 |
17451 | 78 /* The segment address and the size of the buffer in low |
79 memory used to move data between us and WinOldAp module. */ | |
80 static struct { | |
81 unsigned long size; | |
82 unsigned short rm_segment; | |
83 } clipboard_xfer_buf_info; | |
24260
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
84 |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
85 /* The last text we put into the clipboard. This is used to prevent |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
86 passing back our own text from the clipboard, instead of using the |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
87 kill ring. The former is undesirable because the clipboard data |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
88 could be MULEtilated by inappropriately chosen |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
89 (next-)selection-coding-system. For this reason, we must store the |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
90 text *after* it was encoded/Unix-to-DOS-converted. */ |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
91 static unsigned char *last_clipboard_text; |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
92 |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
93 /* The size of allocated storage for storing the clipboard data. */ |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
94 static size_t clipboard_storage_size; |
17451 | 95 |
96 /* Emulation of `__dpmi_int' and friends for DJGPP v1.x */ | |
97 | |
98 #if __DJGPP__ < 2 | |
99 | |
100 typedef _go32_dpmi_registers __dpmi_regs; | |
101 #define __tb _go32_info_block.linear_address_of_transfer_buffer | |
102 #define _dos_ds _go32_info_block.selector_for_linear_memory | |
103 | |
104 static int | |
105 __dpmi_int (intno, regs) | |
106 int intno; | |
107 __dpmi_regs *regs; | |
108 { | |
109 regs->x.ss = regs->x.sp = regs->x.flags = 0; | |
110 return _go32_dpmi_simulate_int (intno, regs); | |
111 } | |
112 | |
113 #endif /* __DJGPP__ < 2 */ | |
114 | |
115 /* C functions to access the Windows 3.1x clipboard from DOS apps. | |
116 | |
117 The information was obtained from the Microsoft Knowledge Base, | |
118 article Q67675 and can be found at: | |
119 http://www.microsoft.com/kb/developr/win_dk/q67675.htm */ | |
120 | |
121 /* See also Ralf Brown's Interrupt List. | |
122 | |
123 I also seem to remember reading about this in Dr. Dobbs Journal a | |
124 while ago, but if you knew my memory... :-) | |
125 | |
126 Dale P. Smith <dpsm@en.com> */ | |
127 | |
128 /* Return the WinOldAp support version, or 0x1700 if not supported. */ | |
129 unsigned | |
130 identify_winoldap_version () | |
131 { | |
132 __dpmi_regs regs; | |
133 | |
134 /* Calls Int 2Fh/AX=1700h | |
135 Return Values AX == 1700H: Clipboard functions not available | |
136 <> 1700H: AL = Major version number | |
137 AH = Minor version number */ | |
138 regs.x.ax = 0x1700; | |
139 __dpmi_int(0x2f, ®s); | |
140 return regs.x.ax; | |
141 } | |
142 | |
143 /* Open the clipboard, return non-zero if successfull. */ | |
144 unsigned | |
145 open_clipboard () | |
146 { | |
147 __dpmi_regs regs; | |
148 | |
149 /* Is WINOLDAP supported? */ | |
150 /* Kludge alert!! If WinOldAp is not supported, we return a 0, | |
151 which is the same as ``Clipboard already open''. Currently, | |
152 this is taken as an error by all the functions that use | |
153 `open_clipboard', but if somebody someday will use that ``open'' | |
154 clipboard, they will have interesting time debugging it... */ | |
155 if (identify_winoldap_version () == 0x1700) | |
156 return 0; | |
157 | |
158 /* Calls Int 2Fh/AX=1701h | |
159 Return Values AX == 0: Clipboard already open | |
160 <> 0: Clipboard opened */ | |
161 regs.x.ax = 0x1701; | |
162 __dpmi_int(0x2f, ®s); | |
163 return regs.x.ax; | |
164 } | |
165 | |
166 /* Empty clipboard, return non-zero if successfull. */ | |
167 unsigned | |
168 empty_clipboard () | |
169 { | |
170 __dpmi_regs regs; | |
171 | |
172 /* Calls Int 2Fh/AX=1702h | |
173 Return Values AX == 0: Error occurred | |
174 <> 0: OK, Clipboard emptied */ | |
175 regs.x.ax = 0x1702; | |
176 __dpmi_int(0x2f, ®s); | |
177 return regs.x.ax; | |
178 } | |
179 | |
180 /* Ensure we have a buffer in low memory with enough memory for data | |
181 of size WANT_SIZE. Return the linear address of the buffer. */ | |
182 static unsigned long | |
183 alloc_xfer_buf (want_size) | |
184 unsigned want_size; | |
185 { | |
186 __dpmi_regs regs; | |
187 | |
188 /* If the usual DJGPP transfer buffer is large enough, use that. */ | |
189 if (want_size <= _go32_info_block.size_of_transfer_buffer) | |
190 return __tb & 0xfffff; | |
191 | |
21709
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
192 /* Don't even try to allocate more than 1MB of memory: DOS cannot |
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
193 possibly handle that (it will overflow the BX register below). */ |
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
194 if (want_size > 0xfffff) |
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
195 return 0; |
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
196 |
17451 | 197 /* Need size rounded up to the nearest paragraph, and in |
198 paragraph units (1 paragraph = 16 bytes). */ | |
199 clipboard_xfer_buf_info.size = (want_size + 15) >> 4; | |
200 | |
201 /* The NT DPMI host crashes us if we free DOS memory via the | |
202 DPMI service. Work around by calling DOS allocate/free block. */ | |
203 regs.h.ah = 0x48; | |
204 regs.x.bx = clipboard_xfer_buf_info.size; | |
205 __dpmi_int (0x21, ®s); | |
206 if (regs.x.flags & 1) | |
207 { | |
208 clipboard_xfer_buf_info.size = 0; | |
209 return 0; | |
210 } | |
211 | |
212 clipboard_xfer_buf_info.rm_segment = regs.x.ax; | |
213 return (((int)clipboard_xfer_buf_info.rm_segment) << 4) & 0xfffff; | |
214 } | |
215 | |
216 /* Free our clipboard buffer. We always free it after use, because | |
217 keeping it leaves less free conventional memory for subprocesses. | |
218 The clipboard buffer tends to be large in size, because for small | |
219 clipboard data sizes we use the DJGPP transfer buffer. */ | |
220 static void | |
221 free_xfer_buf () | |
222 { | |
223 /* If the size is 0, we used DJGPP transfer buffer, so don't free. */ | |
224 if (clipboard_xfer_buf_info.size) | |
225 { | |
226 __dpmi_regs regs; | |
227 | |
228 /* The NT DPMI host crashes us if we free DOS memory via | |
229 the DPMI service. Work around by calling DOS free block. */ | |
230 regs.h.ah = 0x49; | |
231 regs.x.es = clipboard_xfer_buf_info.rm_segment; | |
232 __dpmi_int (0x21, ®s); | |
233 clipboard_xfer_buf_info.size = 0; | |
234 } | |
235 } | |
236 | |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
237 /* Copy data into the clipboard, return zero if successfull. */ |
17451 | 238 unsigned |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
239 set_clipboard_data (Format, Data, Size, Raw) |
17451 | 240 unsigned Format; |
241 void *Data; | |
242 unsigned Size; | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
243 int Raw; |
17451 | 244 { |
245 __dpmi_regs regs; | |
246 unsigned truelen; | |
247 unsigned long xbuf_addr, buf_offset; | |
248 unsigned char *dp = Data, *dstart = dp; | |
249 | |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
250 if (Format != CF_OEMTEXT) |
30900
2bec1c202b13
(set_clipboard_data): If there's not enough memory
Eli Zaretskii <eliz@gnu.org>
parents:
29179
diff
changeset
|
251 return 3; |
17451 | 252 |
253 /* need to know final size after '\r' chars are inserted (the | |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
254 standard CF_OEMTEXT clipboard format uses CRLF line endings, |
17451 | 255 while Emacs uses just LF internally). */ |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
256 truelen = Size + 1; /* +1 for the terminating null */ |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
257 |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
258 if (!Raw) |
17451 | 259 { |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
260 /* avoid using strchr because it recomputes the length everytime */ |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
261 while ((dp = memchr (dp, '\n', Size - (dp - dstart))) != 0) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
262 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
263 truelen++; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
264 dp++; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
265 } |
17451 | 266 } |
267 | |
268 if (clipboard_compact (truelen) < truelen) | |
30900
2bec1c202b13
(set_clipboard_data): If there's not enough memory
Eli Zaretskii <eliz@gnu.org>
parents:
29179
diff
changeset
|
269 return 1; |
17451 | 270 |
271 if ((xbuf_addr = alloc_xfer_buf (truelen)) == 0) | |
30900
2bec1c202b13
(set_clipboard_data): If there's not enough memory
Eli Zaretskii <eliz@gnu.org>
parents:
29179
diff
changeset
|
272 return 1; |
17451 | 273 |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
274 /* Move the buffer into the low memory, convert LF into CR-LF if needed. */ |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
275 if (Raw) |
24251
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
276 { |
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
277 dosmemput (Data, Size, xbuf_addr); |
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
278 |
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
279 /* Terminate with a null, otherwise Windows does strange things |
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
280 when the text size is an integral multiple of 32 bytes. */ |
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
281 _farpokeb (_dos_ds, xbuf_addr + Size, '\0'); |
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
282 } |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
283 else |
17451 | 284 { |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
285 dp = Data; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
286 buf_offset = xbuf_addr; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
287 _farsetsel (_dos_ds); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
288 while (Size--) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
289 { |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
290 /* Don't allow them to put binary data into the clipboard, since |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
291 it will cause yanked data to be truncated at the first null. */ |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
292 if (*dp == '\0') |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
293 return 2; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
294 if (*dp == '\n') |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
295 _farnspokeb (buf_offset++, '\r'); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
296 _farnspokeb (buf_offset++, *dp++); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
297 } |
24251
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
298 |
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
299 /* Terminate with a null, otherwise Windows does strange things |
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
300 when the text size is an integral multiple of 32 bytes. */ |
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
301 _farnspokeb (buf_offset, '\0'); |
17451 | 302 } |
303 | |
24260
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
304 /* Stash away the data we are about to put into the clipboard, so we |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
305 could later check inside get_clipboard_data whether the clipboard |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
306 still holds our data. */ |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
307 if (clipboard_storage_size < truelen) |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
308 { |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
309 clipboard_storage_size = truelen + 100; |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
310 last_clipboard_text = |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
311 (char *) xrealloc (last_clipboard_text, clipboard_storage_size); |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
312 } |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
313 if (last_clipboard_text) |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
314 dosmemget (xbuf_addr, truelen, last_clipboard_text); |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
315 |
17451 | 316 /* Calls Int 2Fh/AX=1703h with: |
317 DX = WinOldAp-Supported Clipboard format | |
318 ES:BX = Pointer to data | |
319 SI:CX = Size of data in bytes | |
320 Return Values AX == 0: Error occurred | |
321 <> 0: OK. Data copied into the Clipboard. */ | |
322 regs.x.ax = 0x1703; | |
323 regs.x.dx = Format; | |
324 regs.x.si = truelen >> 16; | |
325 regs.x.cx = truelen & 0xffff; | |
326 regs.x.es = xbuf_addr >> 4; | |
327 regs.x.bx = xbuf_addr & 15; | |
328 __dpmi_int(0x2f, ®s); | |
329 | |
330 free_xfer_buf (); | |
331 | |
24260
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
332 /* If the above failed, invalidate the local copy of the clipboard. */ |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
333 if (regs.x.ax == 0) |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
334 *last_clipboard_text = '\0'; |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
335 |
30900
2bec1c202b13
(set_clipboard_data): If there's not enough memory
Eli Zaretskii <eliz@gnu.org>
parents:
29179
diff
changeset
|
336 /* Zero means success, otherwise (1, 2, or 3) it's an error. */ |
2bec1c202b13
(set_clipboard_data): If there's not enough memory
Eli Zaretskii <eliz@gnu.org>
parents:
29179
diff
changeset
|
337 return regs.x.ax > 0 ? 0 : 3; |
17451 | 338 } |
339 | |
340 /* Return the size of the clipboard data of format FORMAT. */ | |
341 unsigned | |
342 get_clipboard_data_size (Format) | |
343 unsigned Format; | |
344 { | |
345 __dpmi_regs regs; | |
346 | |
347 /* Calls Int 2Fh/AX=1704h with: | |
348 DX = WinOldAp-Supported Clipboard format | |
349 Return Values DX:AX == Size of the data in bytes, including any | |
350 headers. | |
351 == 0 If data in this format is not in | |
352 the clipboard. */ | |
353 regs.x.ax = 0x1704; | |
354 regs.x.dx = Format; | |
355 __dpmi_int(0x2f, ®s); | |
356 return ( (((unsigned)regs.x.dx) << 16) | regs.x.ax); | |
357 } | |
358 | |
359 /* Get clipboard data, return its length. | |
360 Warning: this doesn't check whether DATA has enough space to hold | |
361 SIZE bytes. */ | |
362 unsigned | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
363 get_clipboard_data (Format, Data, Size, Raw) |
17451 | 364 unsigned Format; |
365 void *Data; | |
366 unsigned Size; | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
367 int Raw; |
17451 | 368 { |
369 __dpmi_regs regs; | |
370 unsigned long xbuf_addr; | |
371 unsigned char *dp = Data; | |
372 | |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
373 if (Format != CF_OEMTEXT) |
17451 | 374 return 0; |
375 | |
376 if (Size == 0) | |
377 return 0; | |
378 | |
379 if ((xbuf_addr = alloc_xfer_buf (Size)) == 0) | |
380 return 0; | |
381 | |
382 /* Calls Int 2Fh/AX=1705h with: | |
383 DX = WinOldAp-Supported Clipboard format | |
384 ES:BX = Pointer to data buffer to hold data | |
385 Return Values AX == 0: Error occurred (or data in this format is not | |
386 in the clipboard) | |
387 <> 0: OK */ | |
388 regs.x.ax = 0x1705; | |
389 regs.x.dx = Format; | |
390 regs.x.es = xbuf_addr >> 4; | |
391 regs.x.bx = xbuf_addr & 15; | |
392 __dpmi_int(0x2f, ®s); | |
393 if (regs.x.ax != 0) | |
394 { | |
24260
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
395 unsigned char null_char = '\0'; |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
396 unsigned long xbuf_beg = xbuf_addr; |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
397 |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
398 /* If last_clipboard_text is NULL, we don't want to slow down |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
399 the next loop by an additional test. */ |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
400 register unsigned char *lcdp = |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
401 last_clipboard_text == NULL ? &null_char : last_clipboard_text; |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
402 |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
403 /* Copy data from low memory, remove CR |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
404 characters before LF if needed. */ |
17451 | 405 _farsetsel (_dos_ds); |
406 while (Size--) | |
407 { | |
408 register unsigned char c = _farnspeekb (xbuf_addr++); | |
409 | |
24260
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
410 if (*lcdp == c) |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
411 lcdp++; |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
412 |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
413 if ((*dp++ = c) == '\r' && !Raw && _farnspeekb (xbuf_addr) == '\n') |
17451 | 414 { |
415 dp--; | |
416 *dp++ = '\n'; | |
417 xbuf_addr++; | |
24260
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
418 if (*lcdp == '\n') |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
419 lcdp++; |
17451 | 420 } |
421 /* Windows reportedly rounds up the size of clipboard data | |
24428
3d10131927a6
(get_clipboard_data): Always stop at the first null byte.
Eli Zaretskii <eliz@gnu.org>
parents:
24318
diff
changeset
|
422 (passed in SIZE) to a multiple of 32, and removes trailing |
3d10131927a6
(get_clipboard_data): Always stop at the first null byte.
Eli Zaretskii <eliz@gnu.org>
parents:
24318
diff
changeset
|
423 spaces from each line without updating SIZE. We therefore |
3d10131927a6
(get_clipboard_data): Always stop at the first null byte.
Eli Zaretskii <eliz@gnu.org>
parents:
24318
diff
changeset
|
424 bail out when we see the first null character. */ |
3d10131927a6
(get_clipboard_data): Always stop at the first null byte.
Eli Zaretskii <eliz@gnu.org>
parents:
24318
diff
changeset
|
425 else if (c == '\0') |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
426 break; |
17451 | 427 } |
24260
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
428 |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
429 /* If the text in clipboard is identical to what we put there |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
430 last time set_clipboard_data was called, pretend there's no |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
431 data in the clipboard. This is so we don't pass our own text |
24428
3d10131927a6
(get_clipboard_data): Always stop at the first null byte.
Eli Zaretskii <eliz@gnu.org>
parents:
24318
diff
changeset
|
432 from the clipboard (which might be troublesome if the killed |
3d10131927a6
(get_clipboard_data): Always stop at the first null byte.
Eli Zaretskii <eliz@gnu.org>
parents:
24318
diff
changeset
|
433 text includes null characters). */ |
24260
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
434 if (last_clipboard_text && |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
435 xbuf_addr - xbuf_beg == (long)(lcdp - last_clipboard_text)) |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
436 dp = (unsigned char *)Data + 1; |
17451 | 437 } |
438 | |
439 free_xfer_buf (); | |
440 | |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
441 return (unsigned) (dp - (unsigned char *)Data - 1); |
17451 | 442 } |
443 | |
444 /* Close clipboard, return non-zero if successfull. */ | |
445 unsigned | |
446 close_clipboard () | |
447 { | |
448 __dpmi_regs regs; | |
449 | |
450 /* Calls Int 2Fh/AX=1708h | |
451 Return Values AX == 0: Error occurred | |
452 <> 0: OK */ | |
453 regs.x.ax = 0x1708; | |
454 __dpmi_int(0x2f, ®s); | |
455 return regs.x.ax; | |
456 } | |
457 | |
458 /* Compact clipboard data so that at least SIZE bytes is available. */ | |
459 unsigned | |
460 clipboard_compact (Size) | |
461 unsigned Size; | |
462 { | |
463 __dpmi_regs regs; | |
464 | |
465 /* Calls Int 2Fh/AX=1709H with: | |
466 SI:CX = Desired memory size in bytes. | |
467 Return Values DX:AX == Number of bytes of largest block of free memory. | |
468 == 0 if error or no memory */ | |
469 regs.x.ax = 0x1709; | |
470 regs.x.si = Size >> 16; | |
471 regs.x.cx = Size & 0xffff; | |
472 __dpmi_int(0x2f, ®s); | |
473 return ((unsigned)regs.x.dx << 16) | regs.x.ax; | |
474 } | |
475 | |
476 static char no_mem_msg[] = | |
477 "(Not enough DOS memory to put saved text into clipboard.)"; | |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
478 static char binary_msg[] = |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
479 "(Binary characters in saved text; clipboard data not set.)"; |
30900
2bec1c202b13
(set_clipboard_data): If there's not enough memory
Eli Zaretskii <eliz@gnu.org>
parents:
29179
diff
changeset
|
480 static char system_error_msg[] = |
2bec1c202b13
(set_clipboard_data): If there's not enough memory
Eli Zaretskii <eliz@gnu.org>
parents:
29179
diff
changeset
|
481 "(Clipboard interface failure; clipboard data not set.)"; |
17451 | 482 |
21709
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
483 DEFUN ("w16-set-clipboard-data", Fw16_set_clipboard_data, Sw16_set_clipboard_data, 1, 2, 0, |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
484 doc: /* This sets the clipboard data to the given text. */) |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
485 (string, frame) |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
486 Lisp_Object string, frame; |
17451 | 487 { |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
488 unsigned ok = 1, put_status = 0; |
17451 | 489 int nbytes; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
490 unsigned char *src, *dst = NULL; |
29020
041255b52348
(Fw16_set_clipboard_data): Setup members
Kenichi Handa <handa@m17n.org>
parents:
24428
diff
changeset
|
491 int charset_info; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
492 int no_crlf_conversion; |
17451 | 493 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
39584
diff
changeset
|
494 CHECK_STRING (string); |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
495 |
17451 | 496 if (NILP (frame)) |
497 frame = Fselected_frame (); | |
498 | |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
39584
diff
changeset
|
499 CHECK_LIVE_FRAME (frame); |
17451 | 500 if ( !FRAME_MSDOS_P (XFRAME (frame))) |
501 goto done; | |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
502 |
17451 | 503 BLOCK_INPUT; |
504 | |
22904
37738fa8626a
(Fw16_set_clipboard_data, Fw16_get_clipboard_data, syms_of_win16select):
Eli Zaretskii <eliz@gnu.org>
parents:
22749
diff
changeset
|
505 nbytes = STRING_BYTES (XSTRING (string)); |
17451 | 506 src = XSTRING (string)->data; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
507 |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
508 /* Since we are now handling multilingual text, we must consider |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
509 encoding text for the clipboard. */ |
29020
041255b52348
(Fw16_set_clipboard_data): Setup members
Kenichi Handa <handa@m17n.org>
parents:
24428
diff
changeset
|
510 charset_info = find_charset_in_text (src, XSTRING (string)->size, nbytes, |
041255b52348
(Fw16_set_clipboard_data): Setup members
Kenichi Handa <handa@m17n.org>
parents:
24428
diff
changeset
|
511 NULL, Qnil); |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
512 |
29020
041255b52348
(Fw16_set_clipboard_data): Setup members
Kenichi Handa <handa@m17n.org>
parents:
24428
diff
changeset
|
513 if (charset_info == 0) |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
514 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
515 /* No multibyte character in OBJ. We need not encode it, but we |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
516 will have to convert it to DOS CR-LF style. */ |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
517 no_crlf_conversion = 0; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
518 } |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
519 else |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
520 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
521 /* We must encode contents of STRING according to what |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
522 clipboard-coding-system specifies. */ |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
523 int bufsize; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
524 struct coding_system coding; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
525 unsigned char *htext2; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
526 |
23164
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
527 if (NILP (Vnext_selection_coding_system)) |
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
528 Vnext_selection_coding_system = Vselection_coding_system; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
529 setup_coding_system |
23164
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
530 (Fcheck_coding_system (Vnext_selection_coding_system), &coding); |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
531 if (SYMBOLP (coding.pre_write_conversion) |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
532 && !NILP (Ffboundp (coding.pre_write_conversion))) |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
533 { |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
534 string = run_pre_post_conversion_on_str (string, &coding, 1); |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
535 src = XSTRING (string)->data; |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
536 nbytes = STRING_BYTES (XSTRING (string)); |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
537 } |
29179
b19b46eabcb5
(Fw16_set_clipboard_data): Fix the change from 2000-05-20.
Eli Zaretskii <eliz@gnu.org>
parents:
29020
diff
changeset
|
538 coding.src_multibyte = 1; |
b19b46eabcb5
(Fw16_set_clipboard_data): Fix the change from 2000-05-20.
Eli Zaretskii <eliz@gnu.org>
parents:
29020
diff
changeset
|
539 coding.dst_multibyte = 0; |
23164
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
540 Vnext_selection_coding_system = Qnil; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
541 coding.mode |= CODING_MODE_LAST_BLOCK; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
542 Vlast_coding_system_used = coding.symbol; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
543 bufsize = encoding_buffer_size (&coding, nbytes); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
544 dst = (unsigned char *) xmalloc (bufsize); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
545 encode_coding (&coding, src, dst, nbytes, bufsize); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
546 no_crlf_conversion = 1; |
24257
7507c0552393
(Fw16_set_clipboard_data): When the text needs to be
Eli Zaretskii <eliz@gnu.org>
parents:
24251
diff
changeset
|
547 nbytes = coding.produced; |
24258 | 548 src = dst; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
549 } |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
550 |
17451 | 551 if (!open_clipboard ()) |
552 goto error; | |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
553 |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
554 ok = empty_clipboard () |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
555 && ((put_status |
24258 | 556 = set_clipboard_data (CF_OEMTEXT, src, nbytes, no_crlf_conversion)) |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
557 == 0); |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
558 |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
559 if (!no_crlf_conversion) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
560 Vlast_coding_system_used = Qraw_text; |
17451 | 561 close_clipboard (); |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
562 |
21707
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
563 if (ok) goto unblock; |
17451 | 564 |
565 error: | |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
566 |
17451 | 567 ok = 0; |
568 | |
21707
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
569 unblock: |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
570 if (dst) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
571 xfree (dst); |
21707
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
572 UNBLOCK_INPUT; |
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
573 |
17451 | 574 /* Notify user if the text is too large to fit into DOS memory. |
575 (This will happen somewhere after 600K bytes (470K in DJGPP v1.x), | |
576 depending on user system configuration.) If we just silently | |
577 fail the function, people might wonder why their text sometimes | |
578 doesn't make it to the clipboard. */ | |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
579 if (put_status) |
17451 | 580 { |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
581 switch (put_status) |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
582 { |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
583 case 1: |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
584 message2 (no_mem_msg, sizeof (no_mem_msg) - 1, 0); |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
585 break; |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
586 case 2: |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
587 message2 (binary_msg, sizeof (binary_msg) - 1, 0); |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
588 break; |
30900
2bec1c202b13
(set_clipboard_data): If there's not enough memory
Eli Zaretskii <eliz@gnu.org>
parents:
29179
diff
changeset
|
589 case 3: |
2bec1c202b13
(set_clipboard_data): If there's not enough memory
Eli Zaretskii <eliz@gnu.org>
parents:
29179
diff
changeset
|
590 message2 (system_error_msg, sizeof (system_error_msg) - 1, 0); |
2bec1c202b13
(set_clipboard_data): If there's not enough memory
Eli Zaretskii <eliz@gnu.org>
parents:
29179
diff
changeset
|
591 break; |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
592 } |
17960
5c31b98be973
(Fwin16_set_clipboard_data): Pass new arg to sit_for.
Richard M. Stallman <rms@gnu.org>
parents:
17451
diff
changeset
|
593 sit_for (2, 0, 0, 1, 1); |
17451 | 594 } |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
595 |
17451 | 596 done: |
597 | |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
598 return (ok && put_status == 0 ? string : Qnil); |
17451 | 599 } |
600 | |
21709
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
601 DEFUN ("w16-get-clipboard-data", Fw16_get_clipboard_data, Sw16_get_clipboard_data, 0, 1, 0, |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
602 doc: /* This gets the clipboard data in text format. */) |
17451 | 603 (frame) |
604 Lisp_Object frame; | |
605 { | |
606 unsigned data_size, truelen; | |
607 unsigned char *htext; | |
608 Lisp_Object ret = Qnil; | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
609 int no_crlf_conversion; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
610 int require_encoding = 0; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
611 |
17451 | 612 if (NILP (frame)) |
613 frame = Fselected_frame (); | |
614 | |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
39584
diff
changeset
|
615 CHECK_LIVE_FRAME (frame); |
17451 | 616 if ( !FRAME_MSDOS_P (XFRAME (frame))) |
617 goto done; | |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
618 |
17451 | 619 BLOCK_INPUT; |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
620 |
17451 | 621 if (!open_clipboard ()) |
21707
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
622 goto unblock; |
17451 | 623 |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
624 if ((data_size = get_clipboard_data_size (CF_OEMTEXT)) == 0 || |
17451 | 625 (htext = (unsigned char *)xmalloc (data_size)) == 0) |
626 goto closeclip; | |
627 | |
628 /* need to know final size after '\r' chars are removed because | |
629 we can't change the string size manually, and doing an extra | |
630 copy is silly */ | |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
631 if ((truelen = get_clipboard_data (CF_OEMTEXT, htext, data_size, 0)) == 0) |
17451 | 632 goto closeclip; |
633 | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
634 /* Do we need to decode it? */ |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
635 { |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
636 /* If the clipboard data contains any 8-bit Latin-1 code, we |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
637 need to decode it. */ |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
638 int i; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
639 |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
640 for (i = 0; i < truelen; i++) |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
641 { |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
642 if (htext[i] >= 0x80) |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
643 { |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
644 require_encoding = 1; |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
645 break; |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
646 } |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
647 } |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
648 } |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
649 if (require_encoding) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
650 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
651 int bufsize; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
652 unsigned char *buf; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
653 struct coding_system coding; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
654 |
23164
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
655 if (NILP (Vnext_selection_coding_system)) |
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
656 Vnext_selection_coding_system = Vselection_coding_system; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
657 setup_coding_system |
23164
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
658 (Fcheck_coding_system (Vnext_selection_coding_system), &coding); |
29020
041255b52348
(Fw16_set_clipboard_data): Setup members
Kenichi Handa <handa@m17n.org>
parents:
24428
diff
changeset
|
659 coding.src_multibyte = 0; |
041255b52348
(Fw16_set_clipboard_data): Setup members
Kenichi Handa <handa@m17n.org>
parents:
24428
diff
changeset
|
660 coding.dst_multibyte = 1; |
23164
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
661 Vnext_selection_coding_system = Qnil; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
662 coding.mode |= CODING_MODE_LAST_BLOCK; |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
663 truelen = get_clipboard_data (CF_OEMTEXT, htext, data_size, 1); |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
664 bufsize = decoding_buffer_size (&coding, truelen); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
665 buf = (unsigned char *) xmalloc (bufsize); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
666 decode_coding (&coding, htext, buf, truelen, bufsize); |
29020
041255b52348
(Fw16_set_clipboard_data): Setup members
Kenichi Handa <handa@m17n.org>
parents:
24428
diff
changeset
|
667 ret = make_string_from_bytes ((char *) buf, |
041255b52348
(Fw16_set_clipboard_data): Setup members
Kenichi Handa <handa@m17n.org>
parents:
24428
diff
changeset
|
668 coding.produced_char, coding.produced); |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
669 xfree (buf); |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
670 if (SYMBOLP (coding.post_read_conversion) |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
671 && !NILP (Ffboundp (coding.post_read_conversion))) |
43475
f1ba6420ce49
(Fw16_get_clipboard_data): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
43460
diff
changeset
|
672 ret = run_pre_post_conversion_on_str (ret, &coding, 0); |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
673 Vlast_coding_system_used = coding.symbol; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
674 } |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
675 else |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
676 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
677 ret = make_unibyte_string ((char *) htext, truelen); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
678 Vlast_coding_system_used = Qraw_text; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
679 } |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
680 |
17451 | 681 xfree (htext); |
682 | |
683 closeclip: | |
684 close_clipboard (); | |
21707
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
685 |
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
686 unblock: |
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
687 UNBLOCK_INPUT; |
17451 | 688 |
689 done: | |
690 | |
691 return (ret); | |
692 } | |
693 | |
694 /* Support checking for a clipboard selection. */ | |
695 | |
696 DEFUN ("x-selection-exists-p", Fx_selection_exists_p, Sx_selection_exists_p, | |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
697 0, 1, 0, |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
698 doc: /* Whether there is an owner for the given X Selection. |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
699 The arg should be the name of the selection in question, typically one of |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
700 the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'. |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
701 \(Those are literal upper-case symbol names, since that's what X expects.) |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
702 For convenience, the symbol nil is the same as `PRIMARY', |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
703 and t is the same as `SECONDARY'. */) |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
704 (selection) |
17451 | 705 Lisp_Object selection; |
706 { | |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
39584
diff
changeset
|
707 CHECK_SYMBOL (selection); |
17451 | 708 |
709 /* Return nil for SECONDARY selection. For PRIMARY (or nil) | |
710 selection, check if there is some text on the kill-ring; | |
711 for CLIPBOARD, check if the clipboard currently has valid | |
712 text format contents. | |
713 | |
714 The test for killed text on the kill-ring emulates the Emacs | |
715 behavior on X, where killed text is also put into X selection | |
716 by the X interface code. (On MSDOS, killed text is only put | |
717 into the clipboard if we run under Windows, so we cannot check | |
718 the clipboard alone.) */ | |
719 if ((EQ (selection, Qnil) || EQ (selection, QPRIMARY)) | |
39584
6145836b795c
Use SYMBOL_VALUE/ SET_SYMBOL_VALUE macros instead of accessing
Gerd Moellmann <gerd@gnu.org>
parents:
30900
diff
changeset
|
720 && ! NILP (SYMBOL_VALUE (Fintern_soft (build_string ("kill-ring"), |
6145836b795c
Use SYMBOL_VALUE/ SET_SYMBOL_VALUE macros instead of accessing
Gerd Moellmann <gerd@gnu.org>
parents:
30900
diff
changeset
|
721 Qnil)))) |
17451 | 722 return Qt; |
723 | |
724 if (EQ (selection, QCLIPBOARD)) | |
725 { | |
726 Lisp_Object val = Qnil; | |
727 | |
728 if (open_clipboard ()) | |
729 { | |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
730 if (get_clipboard_data_size (CF_OEMTEXT)) |
17451 | 731 val = Qt; |
732 close_clipboard (); | |
733 } | |
734 return val; | |
735 } | |
736 return Qnil; | |
737 } | |
738 | |
739 void | |
740 syms_of_win16select () | |
741 { | |
21709
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
742 defsubr (&Sw16_set_clipboard_data); |
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
743 defsubr (&Sw16_get_clipboard_data); |
17451 | 744 defsubr (&Sx_selection_exists_p); |
745 | |
22904
37738fa8626a
(Fw16_set_clipboard_data, Fw16_get_clipboard_data, syms_of_win16select):
Eli Zaretskii <eliz@gnu.org>
parents:
22749
diff
changeset
|
746 DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system, |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
747 doc: /* Coding system for communicating with other X clients. |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
748 When sending or receiving text via cut_buffer, selection, and clipboard, |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
749 the text is encoded or decoded by this coding system. |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
750 A default value is `iso-latin-1-dos'. */); |
22904
37738fa8626a
(Fw16_set_clipboard_data, Fw16_get_clipboard_data, syms_of_win16select):
Eli Zaretskii <eliz@gnu.org>
parents:
22749
diff
changeset
|
751 Vselection_coding_system=intern ("iso-latin-1-dos"); |
23164
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
752 |
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
753 DEFVAR_LISP ("next-selection-coding-system", &Vnext_selection_coding_system, |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
754 doc: /* Coding system for the next communication with other X clients. |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
755 Usually, `selection-coding-system' is used for communicating with |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
756 other X clients. But, if this variable is set, it is used for the |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
757 next communication only. After the communication, this variable is |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
758 set to nil. */); |
23164
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
759 Vnext_selection_coding_system = Qnil; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
760 |
17451 | 761 QPRIMARY = intern ("PRIMARY"); staticpro (&QPRIMARY); |
762 QCLIPBOARD = intern ("CLIPBOARD"); staticpro (&QCLIPBOARD); | |
763 } | |
764 | |
765 #endif /* MSDOS */ |