Mercurial > emacs
annotate src/w16select.c @ 109885:42a68d95e799
* image.c (imagemagick_clear_image): Remove debugging output.
author | Andreas Schwab <schwab@linux-m68k.org> |
---|---|
date | Fri, 20 Aug 2010 14:02:43 +0200 |
parents | 31def5db596a |
children | 55c8c3ca3d48 |
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 |
64770
a0d1312ede66
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64084
diff
changeset
|
2 Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004, |
106815 | 3 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
45333 | 4 |
17451 | 5 This file is part of GNU Emacs. |
6 | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
7 GNU Emacs is free software: you can redistribute it and/or modify |
17451 | 8 it under the terms of the GNU General Public License as published by |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
9 the Free Software Foundation, either version 3 of the License, or |
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
10 (at your option) any later version. |
17451 | 11 |
12 GNU Emacs is distributed in the hope that it will be useful, | |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
17451 | 19 |
20 /* These functions work by using WinOldAp interface. WinOldAp | |
21 (WINOLDAP.MOD) is a Microsoft Windows extension supporting | |
22 "old" (character-mode) application access to Dynamic Data Exchange, | |
23 menus, and the Windows clipboard. */ | |
24 | |
25 /* Written by Dale P. Smith <dpsm@en.com> */ | |
107733
84b961690802
Remove support for DJGPP v1.x (bug#5813).
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
26 /* Adapted to DJGPP by Eli Zaretskii <eliz@gnu.org> */ |
17451 | 27 |
28 #ifdef MSDOS | |
29 | |
30 #include <config.h> | |
31 #include <string.h> | |
32 #include <dpmi.h> | |
33 #include <go32.h> | |
34 #include <sys/farptr.h> | |
105669
68dd71358159
* alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
100951
diff
changeset
|
35 #include <setjmp.h> |
17451 | 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" |
45988
37913830a881
Include composite.h
Juanma Barranquero <lekktu@gmail.com>
parents:
45982
diff
changeset
|
43 #include "composite.h" |
17451 | 44 |
45 /* If ever some function outside this file will need to call any | |
46 clipboard-related function, the following prototypes and constants | |
47 should be put on a header file. Right now, nobody else uses them. */ | |
48 | |
49 #define CF_TEXT 0x01 | |
50 #define CF_BITMAP 0x02 | |
51 #define CF_METAFILE 0x03 | |
52 #define CF_SYLK 0x04 | |
53 #define CF_DIF 0x05 | |
54 #define CF_TIFF 0x06 | |
55 #define CF_OEMTEXT 0x07 | |
56 #define CF_DIBBITMAP 0x08 | |
57 #define CF_WINWRITE 0x80 | |
58 #define CF_DSPTEXT 0x81 | |
59 #define CF_DSPBITMAP 0x82 | |
60 | |
61 unsigned identify_winoldap_version (void); | |
62 unsigned open_clipboard (void); | |
63 unsigned empty_clipboard (void); | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
64 unsigned set_clipboard_data (unsigned, void *, unsigned, int); |
17451 | 65 unsigned get_clipboard_data_size (unsigned); |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
66 unsigned get_clipboard_data (unsigned, void *, unsigned, int); |
17451 | 67 unsigned close_clipboard (void); |
68 unsigned clipboard_compact (unsigned); | |
69 | |
70 Lisp_Object QCLIPBOARD, QPRIMARY; | |
71 | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
72 /* 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
|
73 clipboard. */ |
22904
37738fa8626a
(Fw16_set_clipboard_data, Fw16_get_clipboard_data, syms_of_win16select):
Eli Zaretskii <eliz@gnu.org>
parents:
22749
diff
changeset
|
74 static Lisp_Object Vselection_coding_system; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
75 |
23164
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
76 /* 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
|
77 static Lisp_Object Vnext_selection_coding_system; |
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
78 |
17451 | 79 /* The segment address and the size of the buffer in low |
80 memory used to move data between us and WinOldAp module. */ | |
81 static struct { | |
82 unsigned long size; | |
83 unsigned short rm_segment; | |
84 } clipboard_xfer_buf_info; | |
24260
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
85 |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
86 /* 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
|
87 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
|
88 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
|
89 could be MULEtilated by inappropriately chosen |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
90 (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
|
91 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
|
92 static unsigned char *last_clipboard_text; |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
93 |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
94 /* 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
|
95 static size_t clipboard_storage_size; |
17451 | 96 |
97 /* C functions to access the Windows 3.1x clipboard from DOS apps. | |
98 | |
99 The information was obtained from the Microsoft Knowledge Base, | |
100 article Q67675 and can be found at: | |
101 http://www.microsoft.com/kb/developr/win_dk/q67675.htm */ | |
102 | |
103 /* See also Ralf Brown's Interrupt List. | |
104 | |
105 I also seem to remember reading about this in Dr. Dobbs Journal a | |
106 while ago, but if you knew my memory... :-) | |
107 | |
108 Dale P. Smith <dpsm@en.com> */ | |
109 | |
110 /* Return the WinOldAp support version, or 0x1700 if not supported. */ | |
111 unsigned | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
108299
diff
changeset
|
112 identify_winoldap_version (void) |
17451 | 113 { |
114 __dpmi_regs regs; | |
115 | |
116 /* Calls Int 2Fh/AX=1700h | |
117 Return Values AX == 1700H: Clipboard functions not available | |
118 <> 1700H: AL = Major version number | |
119 AH = Minor version number */ | |
120 regs.x.ax = 0x1700; | |
121 __dpmi_int(0x2f, ®s); | |
122 return regs.x.ax; | |
123 } | |
124 | |
125 /* Open the clipboard, return non-zero if successfull. */ | |
126 unsigned | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
108299
diff
changeset
|
127 open_clipboard (void) |
17451 | 128 { |
129 __dpmi_regs regs; | |
130 | |
131 /* Is WINOLDAP supported? */ | |
132 /* Kludge alert!! If WinOldAp is not supported, we return a 0, | |
133 which is the same as ``Clipboard already open''. Currently, | |
134 this is taken as an error by all the functions that use | |
135 `open_clipboard', but if somebody someday will use that ``open'' | |
136 clipboard, they will have interesting time debugging it... */ | |
137 if (identify_winoldap_version () == 0x1700) | |
138 return 0; | |
139 | |
140 /* Calls Int 2Fh/AX=1701h | |
141 Return Values AX == 0: Clipboard already open | |
142 <> 0: Clipboard opened */ | |
143 regs.x.ax = 0x1701; | |
144 __dpmi_int(0x2f, ®s); | |
145 return regs.x.ax; | |
146 } | |
147 | |
148 /* Empty clipboard, return non-zero if successfull. */ | |
149 unsigned | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
108299
diff
changeset
|
150 empty_clipboard (void) |
17451 | 151 { |
152 __dpmi_regs regs; | |
45333 | 153 |
17451 | 154 /* Calls Int 2Fh/AX=1702h |
155 Return Values AX == 0: Error occurred | |
156 <> 0: OK, Clipboard emptied */ | |
157 regs.x.ax = 0x1702; | |
158 __dpmi_int(0x2f, ®s); | |
159 return regs.x.ax; | |
160 } | |
161 | |
162 /* Ensure we have a buffer in low memory with enough memory for data | |
163 of size WANT_SIZE. Return the linear address of the buffer. */ | |
164 static unsigned long | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
108299
diff
changeset
|
165 alloc_xfer_buf (unsigned want_size) |
17451 | 166 { |
167 __dpmi_regs regs; | |
168 | |
169 /* If the usual DJGPP transfer buffer is large enough, use that. */ | |
170 if (want_size <= _go32_info_block.size_of_transfer_buffer) | |
171 return __tb & 0xfffff; | |
172 | |
21709
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
173 /* 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
|
174 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
|
175 if (want_size > 0xfffff) |
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
176 return 0; |
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
177 |
17451 | 178 /* Need size rounded up to the nearest paragraph, and in |
179 paragraph units (1 paragraph = 16 bytes). */ | |
180 clipboard_xfer_buf_info.size = (want_size + 15) >> 4; | |
181 | |
182 /* The NT DPMI host crashes us if we free DOS memory via the | |
183 DPMI service. Work around by calling DOS allocate/free block. */ | |
184 regs.h.ah = 0x48; | |
185 regs.x.bx = clipboard_xfer_buf_info.size; | |
186 __dpmi_int (0x21, ®s); | |
187 if (regs.x.flags & 1) | |
188 { | |
189 clipboard_xfer_buf_info.size = 0; | |
190 return 0; | |
191 } | |
192 | |
193 clipboard_xfer_buf_info.rm_segment = regs.x.ax; | |
194 return (((int)clipboard_xfer_buf_info.rm_segment) << 4) & 0xfffff; | |
195 } | |
196 | |
197 /* Free our clipboard buffer. We always free it after use, because | |
198 keeping it leaves less free conventional memory for subprocesses. | |
199 The clipboard buffer tends to be large in size, because for small | |
200 clipboard data sizes we use the DJGPP transfer buffer. */ | |
201 static void | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
108299
diff
changeset
|
202 free_xfer_buf (void) |
17451 | 203 { |
204 /* If the size is 0, we used DJGPP transfer buffer, so don't free. */ | |
205 if (clipboard_xfer_buf_info.size) | |
206 { | |
207 __dpmi_regs regs; | |
208 | |
209 /* The NT DPMI host crashes us if we free DOS memory via | |
210 the DPMI service. Work around by calling DOS free block. */ | |
211 regs.h.ah = 0x49; | |
212 regs.x.es = clipboard_xfer_buf_info.rm_segment; | |
213 __dpmi_int (0x21, ®s); | |
214 clipboard_xfer_buf_info.size = 0; | |
215 } | |
216 } | |
217 | |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
218 /* Copy data into the clipboard, return zero if successfull. */ |
17451 | 219 unsigned |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
108299
diff
changeset
|
220 set_clipboard_data (unsigned Format, void *Data, unsigned Size, int Raw) |
17451 | 221 { |
222 __dpmi_regs regs; | |
223 unsigned truelen; | |
224 unsigned long xbuf_addr, buf_offset; | |
225 unsigned char *dp = Data, *dstart = dp; | |
226 | |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
227 if (Format != CF_OEMTEXT) |
30900
2bec1c202b13
(set_clipboard_data): If there's not enough memory
Eli Zaretskii <eliz@gnu.org>
parents:
29179
diff
changeset
|
228 return 3; |
17451 | 229 |
230 /* 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
|
231 standard CF_OEMTEXT clipboard format uses CRLF line endings, |
17451 | 232 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
|
233 truelen = Size + 1; /* +1 for the terminating null */ |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
234 |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
235 if (!Raw) |
17451 | 236 { |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
237 /* avoid using strchr because it recomputes the length everytime */ |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
238 while ((dp = memchr (dp, '\n', Size - (dp - dstart))) != 0) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
239 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
240 truelen++; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
241 dp++; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
242 } |
17451 | 243 } |
244 | |
245 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
|
246 return 1; |
17451 | 247 |
248 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
|
249 return 1; |
17451 | 250 |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
251 /* 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
|
252 if (Raw) |
24251
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
253 { |
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
254 dosmemput (Data, Size, xbuf_addr); |
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
255 |
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
256 /* 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
|
257 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
|
258 _farpokeb (_dos_ds, xbuf_addr + Size, '\0'); |
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
259 } |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
260 else |
17451 | 261 { |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
262 dp = Data; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
263 buf_offset = xbuf_addr; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
264 _farsetsel (_dos_ds); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
265 while (Size--) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
266 { |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
267 /* 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
|
268 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
|
269 if (*dp == '\0') |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
270 return 2; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
271 if (*dp == '\n') |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
272 _farnspokeb (buf_offset++, '\r'); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
273 _farnspokeb (buf_offset++, *dp++); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
274 } |
24251
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
275 |
2394581ada26
(set_clipboard_data): Correctly null-terminate the
Eli Zaretskii <eliz@gnu.org>
parents:
24003
diff
changeset
|
276 /* 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
|
277 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
|
278 _farnspokeb (buf_offset, '\0'); |
17451 | 279 } |
280 | |
24260
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
281 /* 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
|
282 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
|
283 still holds our data. */ |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
284 if (clipboard_storage_size < truelen) |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
285 { |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
286 clipboard_storage_size = truelen + 100; |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
287 last_clipboard_text = |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
288 (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
|
289 } |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
290 if (last_clipboard_text) |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
291 dosmemget (xbuf_addr, truelen, last_clipboard_text); |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
292 |
17451 | 293 /* Calls Int 2Fh/AX=1703h with: |
294 DX = WinOldAp-Supported Clipboard format | |
295 ES:BX = Pointer to data | |
296 SI:CX = Size of data in bytes | |
297 Return Values AX == 0: Error occurred | |
298 <> 0: OK. Data copied into the Clipboard. */ | |
299 regs.x.ax = 0x1703; | |
300 regs.x.dx = Format; | |
301 regs.x.si = truelen >> 16; | |
302 regs.x.cx = truelen & 0xffff; | |
303 regs.x.es = xbuf_addr >> 4; | |
304 regs.x.bx = xbuf_addr & 15; | |
305 __dpmi_int(0x2f, ®s); | |
306 | |
307 free_xfer_buf (); | |
308 | |
24260
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
309 /* 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
|
310 if (regs.x.ax == 0) |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
311 *last_clipboard_text = '\0'; |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
312 |
30900
2bec1c202b13
(set_clipboard_data): If there's not enough memory
Eli Zaretskii <eliz@gnu.org>
parents:
29179
diff
changeset
|
313 /* 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
|
314 return regs.x.ax > 0 ? 0 : 3; |
17451 | 315 } |
316 | |
317 /* Return the size of the clipboard data of format FORMAT. */ | |
318 unsigned | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
108299
diff
changeset
|
319 get_clipboard_data_size (unsigned Format) |
17451 | 320 { |
321 __dpmi_regs regs; | |
322 | |
323 /* Calls Int 2Fh/AX=1704h with: | |
324 DX = WinOldAp-Supported Clipboard format | |
325 Return Values DX:AX == Size of the data in bytes, including any | |
326 headers. | |
327 == 0 If data in this format is not in | |
328 the clipboard. */ | |
329 regs.x.ax = 0x1704; | |
330 regs.x.dx = Format; | |
331 __dpmi_int(0x2f, ®s); | |
332 return ( (((unsigned)regs.x.dx) << 16) | regs.x.ax); | |
333 } | |
334 | |
335 /* Get clipboard data, return its length. | |
336 Warning: this doesn't check whether DATA has enough space to hold | |
337 SIZE bytes. */ | |
338 unsigned | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
108299
diff
changeset
|
339 get_clipboard_data (unsigned Format, void *Data, unsigned Size, int Raw) |
17451 | 340 { |
341 __dpmi_regs regs; | |
342 unsigned long xbuf_addr; | |
343 unsigned char *dp = Data; | |
344 | |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
345 if (Format != CF_OEMTEXT) |
17451 | 346 return 0; |
347 | |
348 if (Size == 0) | |
349 return 0; | |
350 | |
351 if ((xbuf_addr = alloc_xfer_buf (Size)) == 0) | |
352 return 0; | |
353 | |
354 /* Calls Int 2Fh/AX=1705h with: | |
355 DX = WinOldAp-Supported Clipboard format | |
356 ES:BX = Pointer to data buffer to hold data | |
357 Return Values AX == 0: Error occurred (or data in this format is not | |
358 in the clipboard) | |
359 <> 0: OK */ | |
360 regs.x.ax = 0x1705; | |
361 regs.x.dx = Format; | |
362 regs.x.es = xbuf_addr >> 4; | |
363 regs.x.bx = xbuf_addr & 15; | |
364 __dpmi_int(0x2f, ®s); | |
365 if (regs.x.ax != 0) | |
366 { | |
24260
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
367 unsigned char null_char = '\0'; |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
368 unsigned long xbuf_beg = xbuf_addr; |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
369 |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
370 /* 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
|
371 the next loop by an additional test. */ |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
372 register unsigned char *lcdp = |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
373 last_clipboard_text == NULL ? &null_char : last_clipboard_text; |
45333 | 374 |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
375 /* Copy data from low memory, remove CR |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
376 characters before LF if needed. */ |
17451 | 377 _farsetsel (_dos_ds); |
378 while (Size--) | |
379 { | |
380 register unsigned char c = _farnspeekb (xbuf_addr++); | |
381 | |
24260
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
382 if (*lcdp == c) |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
383 lcdp++; |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
384 |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
385 if ((*dp++ = c) == '\r' && !Raw && _farnspeekb (xbuf_addr) == '\n') |
17451 | 386 { |
387 dp--; | |
388 *dp++ = '\n'; | |
389 xbuf_addr++; | |
24260
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
390 if (*lcdp == '\n') |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
391 lcdp++; |
17451 | 392 } |
393 /* 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
|
394 (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
|
395 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
|
396 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
|
397 else if (c == '\0') |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
398 break; |
17451 | 399 } |
24260
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
400 |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
401 /* 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
|
402 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
|
403 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
|
404 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
|
405 text includes null characters). */ |
24260
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
406 if (last_clipboard_text && |
bd3ce96bc7eb
(last_clipboard_text, clipboard_storage_size): New
Eli Zaretskii <eliz@gnu.org>
parents:
24258
diff
changeset
|
407 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
|
408 dp = (unsigned char *)Data + 1; |
17451 | 409 } |
410 | |
411 free_xfer_buf (); | |
412 | |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
413 return (unsigned) (dp - (unsigned char *)Data - 1); |
17451 | 414 } |
415 | |
416 /* Close clipboard, return non-zero if successfull. */ | |
417 unsigned | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
108299
diff
changeset
|
418 close_clipboard (void) |
17451 | 419 { |
420 __dpmi_regs regs; | |
421 | |
422 /* Calls Int 2Fh/AX=1708h | |
423 Return Values AX == 0: Error occurred | |
424 <> 0: OK */ | |
425 regs.x.ax = 0x1708; | |
426 __dpmi_int(0x2f, ®s); | |
427 return regs.x.ax; | |
428 } | |
429 | |
430 /* Compact clipboard data so that at least SIZE bytes is available. */ | |
431 unsigned | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
108299
diff
changeset
|
432 clipboard_compact (unsigned Size) |
17451 | 433 { |
434 __dpmi_regs regs; | |
435 | |
436 /* Calls Int 2Fh/AX=1709H with: | |
437 SI:CX = Desired memory size in bytes. | |
438 Return Values DX:AX == Number of bytes of largest block of free memory. | |
439 == 0 if error or no memory */ | |
440 regs.x.ax = 0x1709; | |
441 regs.x.si = Size >> 16; | |
442 regs.x.cx = Size & 0xffff; | |
443 __dpmi_int(0x2f, ®s); | |
444 return ((unsigned)regs.x.dx << 16) | regs.x.ax; | |
445 } | |
446 | |
447 static char no_mem_msg[] = | |
448 "(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
|
449 static char binary_msg[] = |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
450 "(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
|
451 static char system_error_msg[] = |
2bec1c202b13
(set_clipboard_data): If there's not enough memory
Eli Zaretskii <eliz@gnu.org>
parents:
29179
diff
changeset
|
452 "(Clipboard interface failure; clipboard data not set.)"; |
17451 | 453 |
21709
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
454 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
|
455 doc: /* This sets the clipboard data to the given text. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109162
diff
changeset
|
456 (Lisp_Object string, Lisp_Object frame) |
17451 | 457 { |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
458 unsigned ok = 1, put_status = 0; |
109761
31def5db596a
Fix -Wall compiler warnings in MSDOS sources.
Eli Zaretskii <eliz@gnu.org>
parents:
109179
diff
changeset
|
459 int nbytes, no_crlf_conversion; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
460 unsigned char *src, *dst = NULL; |
17451 | 461 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
37858
diff
changeset
|
462 CHECK_STRING (string); |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
463 |
17451 | 464 if (NILP (frame)) |
465 frame = Fselected_frame (); | |
466 | |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
37858
diff
changeset
|
467 CHECK_LIVE_FRAME (frame); |
17451 | 468 if ( !FRAME_MSDOS_P (XFRAME (frame))) |
469 goto done; | |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
470 |
17451 | 471 BLOCK_INPUT; |
472 | |
97869
455b25c4ebc2
(Fw16_set_clipboard_data): Don't encode text if clipboard is unavailable.
Eli Zaretskii <eliz@gnu.org>
parents:
97651
diff
changeset
|
473 if (!open_clipboard ()) |
455b25c4ebc2
(Fw16_set_clipboard_data): Don't encode text if clipboard is unavailable.
Eli Zaretskii <eliz@gnu.org>
parents:
97651
diff
changeset
|
474 goto error; |
455b25c4ebc2
(Fw16_set_clipboard_data): Don't encode text if clipboard is unavailable.
Eli Zaretskii <eliz@gnu.org>
parents:
97651
diff
changeset
|
475 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
45988
diff
changeset
|
476 nbytes = SBYTES (string); |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
45988
diff
changeset
|
477 src = SDATA (string); |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
478 |
97651
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
479 /* Do we need to encode this text? */ |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
480 for (dst = src; dst < src + nbytes; dst++) |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
481 { |
97651
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
482 if (*dst == '\0' || *dst >= 0x80) |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
483 break; |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
484 } |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
485 if (dst >= src + nbytes) |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
486 { |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
487 /* No multibyte characters in text. We need not encode it, but we |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
488 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
|
489 no_crlf_conversion = 0; |
97651
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
490 Vlast_coding_system_used = Qraw_text; |
97869
455b25c4ebc2
(Fw16_set_clipboard_data): Don't encode text if clipboard is unavailable.
Eli Zaretskii <eliz@gnu.org>
parents:
97651
diff
changeset
|
491 dst = NULL; /* so we don't try to free a random pointer */ |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
492 } |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
493 else |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
494 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
495 /* We must encode contents of STRING according to what |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
496 clipboard-coding-system specifies. */ |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
497 struct coding_system coding; |
97651
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
498 Lisp_Object coding_system = |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
499 NILP (Vnext_selection_coding_system) ? |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
500 Vselection_coding_system : Vnext_selection_coding_system; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
501 |
97651
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
502 setup_coding_system (Fcheck_coding_system (coding_system), &coding); |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
503 coding.dst_bytes = nbytes * 4; |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
504 coding.destination = (unsigned char *) xmalloc (coding.dst_bytes); |
23164
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
505 Vnext_selection_coding_system = Qnil; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
506 coding.mode |= CODING_MODE_LAST_BLOCK; |
97651
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
507 dst = coding.destination; |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
508 encode_coding_object (&coding, string, 0, 0, |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
509 SCHARS (string), nbytes, Qnil); |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
510 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
|
511 nbytes = coding.produced; |
97651
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
512 Vlast_coding_system_used = CODING_ID_NAME (coding.id); |
24258 | 513 src = dst; |
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 |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
516 ok = empty_clipboard () |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
517 && ((put_status |
24258 | 518 = 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
|
519 == 0); |
22729
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 if (!no_crlf_conversion) |
17451 | 522 close_clipboard (); |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
523 |
21707
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
524 if (ok) goto unblock; |
17451 | 525 |
526 error: | |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
527 |
17451 | 528 ok = 0; |
529 | |
21707
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
530 unblock: |
95481
4390d64d3328
Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents:
94963
diff
changeset
|
531 xfree (dst); |
21707
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
532 UNBLOCK_INPUT; |
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
533 |
17451 | 534 /* Notify user if the text is too large to fit into DOS memory. |
535 (This will happen somewhere after 600K bytes (470K in DJGPP v1.x), | |
536 depending on user system configuration.) If we just silently | |
537 fail the function, people might wonder why their text sometimes | |
538 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
|
539 if (put_status) |
17451 | 540 { |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
541 switch (put_status) |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
542 { |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
543 case 1: |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
544 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
|
545 break; |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
546 case 2: |
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
547 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
|
548 break; |
30900
2bec1c202b13
(set_clipboard_data): If there's not enough memory
Eli Zaretskii <eliz@gnu.org>
parents:
29179
diff
changeset
|
549 case 3: |
2bec1c202b13
(set_clipboard_data): If there's not enough memory
Eli Zaretskii <eliz@gnu.org>
parents:
29179
diff
changeset
|
550 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
|
551 break; |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
552 } |
74183
727f68fa1f38
(Fw16_set_clipboard_data): Fix the call to sit_for as per the calling sequence
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
553 sit_for (make_number (2), 0, 2); |
17451 | 554 } |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
555 |
17451 | 556 done: |
557 | |
24003
5048f069091e
(set_clipboard_data): Terminate the text with a null
Eli Zaretskii <eliz@gnu.org>
parents:
23875
diff
changeset
|
558 return (ok && put_status == 0 ? string : Qnil); |
17451 | 559 } |
560 | |
21709
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
561 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
|
562 doc: /* This gets the clipboard data in text format. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109162
diff
changeset
|
563 (Lisp_Object frame) |
17451 | 564 { |
565 unsigned data_size, truelen; | |
97869
455b25c4ebc2
(Fw16_set_clipboard_data): Don't encode text if clipboard is unavailable.
Eli Zaretskii <eliz@gnu.org>
parents:
97651
diff
changeset
|
566 unsigned char *htext = NULL; |
17451 | 567 Lisp_Object ret = Qnil; |
109761
31def5db596a
Fix -Wall compiler warnings in MSDOS sources.
Eli Zaretskii <eliz@gnu.org>
parents:
109179
diff
changeset
|
568 int require_decoding = 0; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
569 |
17451 | 570 if (NILP (frame)) |
571 frame = Fselected_frame (); | |
572 | |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
37858
diff
changeset
|
573 CHECK_LIVE_FRAME (frame); |
17451 | 574 if ( !FRAME_MSDOS_P (XFRAME (frame))) |
575 goto done; | |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
576 |
17451 | 577 BLOCK_INPUT; |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
578 |
17451 | 579 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
|
580 goto unblock; |
17451 | 581 |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
582 if ((data_size = get_clipboard_data_size (CF_OEMTEXT)) == 0 || |
17451 | 583 (htext = (unsigned char *)xmalloc (data_size)) == 0) |
584 goto closeclip; | |
585 | |
586 /* need to know final size after '\r' chars are removed because | |
587 we can't change the string size manually, and doing an extra | |
588 copy is silly */ | |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
589 if ((truelen = get_clipboard_data (CF_OEMTEXT, htext, data_size, 0)) == 0) |
17451 | 590 goto closeclip; |
591 | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
592 /* 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
|
593 { |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
594 /* 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
|
595 need to decode it. */ |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
596 int i; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
597 |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
598 for (i = 0; i < truelen; i++) |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
599 { |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
600 if (htext[i] >= 0x80) |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
601 { |
97651
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
602 require_decoding = 1; |
43460
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
603 break; |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
604 } |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
605 } |
aa52a9cea9f8
(Fw16_set_clipboard_data): Run pre-write-conversion
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
606 } |
97651
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
607 if (require_decoding) |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
608 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
609 struct coding_system coding; |
97651
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
610 Lisp_Object coding_system = Vnext_selection_coding_system; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
611 |
97651
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
612 truelen = get_clipboard_data (CF_OEMTEXT, htext, data_size, 1); |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
613 if (NILP (coding_system)) |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
614 coding_system = Vselection_coding_system; |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
615 setup_coding_system (Fcheck_coding_system (coding_system), &coding); |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
616 coding.source = htext; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
617 coding.mode |= CODING_MODE_LAST_BLOCK; |
97651
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
618 /* We explicitly disable composition handling because selection |
45982
864289635b41
(Fw16_get_clipboard_data): Disable composition handling.
Kenichi Handa <handa@m17n.org>
parents:
45333
diff
changeset
|
619 data should not contain any composition sequence. */ |
97651
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
620 coding.mode &= CODING_ANNOTATION_MASK; |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
621 decode_coding_object (&coding, Qnil, 0, 0, truelen, truelen, Qt); |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
622 ret = coding.dst_object; |
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
623 Vlast_coding_system_used = CODING_ID_NAME (coding.id); |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
624 } |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
625 else |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
626 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
627 ret = make_unibyte_string ((char *) htext, truelen); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
628 Vlast_coding_system_used = Qraw_text; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
629 } |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
630 |
17451 | 631 xfree (htext); |
97651
62ec1a5d873b
(Fw16_set_clipboard_data, Fw16_get_clipboard_data): Adjust for changes in
Eli Zaretskii <eliz@gnu.org>
parents:
95481
diff
changeset
|
632 Vnext_selection_coding_system = Qnil; |
17451 | 633 |
634 closeclip: | |
635 close_clipboard (); | |
21707
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
636 |
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
637 unblock: |
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
638 UNBLOCK_INPUT; |
45333 | 639 |
17451 | 640 done: |
45333 | 641 |
17451 | 642 return (ret); |
643 } | |
644 | |
645 /* Support checking for a clipboard selection. */ | |
646 | |
647 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
|
648 0, 1, 0, |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
649 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
|
650 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
|
651 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
|
652 \(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
|
653 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
|
654 and t is the same as `SECONDARY'. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109162
diff
changeset
|
655 (Lisp_Object selection) |
17451 | 656 { |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
37858
diff
changeset
|
657 CHECK_SYMBOL (selection); |
17451 | 658 |
659 /* Return nil for SECONDARY selection. For PRIMARY (or nil) | |
660 selection, check if there is some text on the kill-ring; | |
661 for CLIPBOARD, check if the clipboard currently has valid | |
662 text format contents. | |
663 | |
664 The test for killed text on the kill-ring emulates the Emacs | |
665 behavior on X, where killed text is also put into X selection | |
666 by the X interface code. (On MSDOS, killed text is only put | |
667 into the clipboard if we run under Windows, so we cannot check | |
668 the clipboard alone.) */ | |
669 if ((EQ (selection, Qnil) || EQ (selection, QPRIMARY)) | |
108299
a5fcd78ad3eb
Don't use XSYMBOL (foo)->value.
Eli Zaretskii <eliz@gnu.org>
parents:
107733
diff
changeset
|
670 && ! NILP (Fsymbol_value (Fintern_soft (build_string ("kill-ring"), |
a5fcd78ad3eb
Don't use XSYMBOL (foo)->value.
Eli Zaretskii <eliz@gnu.org>
parents:
107733
diff
changeset
|
671 Qnil)))) |
17451 | 672 return Qt; |
673 | |
674 if (EQ (selection, QCLIPBOARD)) | |
675 { | |
676 Lisp_Object val = Qnil; | |
677 | |
678 if (open_clipboard ()) | |
679 { | |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
680 if (get_clipboard_data_size (CF_OEMTEXT)) |
17451 | 681 val = Qt; |
682 close_clipboard (); | |
683 } | |
684 return val; | |
685 } | |
686 return Qnil; | |
687 } | |
688 | |
45333 | 689 void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
108299
diff
changeset
|
690 syms_of_win16select (void) |
17451 | 691 { |
21709
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
692 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
|
693 defsubr (&Sw16_get_clipboard_data); |
17451 | 694 defsubr (&Sx_selection_exists_p); |
695 | |
22904
37738fa8626a
(Fw16_set_clipboard_data, Fw16_get_clipboard_data, syms_of_win16select):
Eli Zaretskii <eliz@gnu.org>
parents:
22749
diff
changeset
|
696 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
|
697 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
|
698 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
|
699 the text is encoded or decoded by this coding system. |
47878
be195e2a4bfb
(syms_of_win16select): Fix docstring for `selection-coding-system'.
Juanma Barranquero <lekktu@gmail.com>
parents:
47279
diff
changeset
|
700 The default value is `iso-latin-1-dos'. */); |
be195e2a4bfb
(syms_of_win16select): Fix docstring for `selection-coding-system'.
Juanma Barranquero <lekktu@gmail.com>
parents:
47279
diff
changeset
|
701 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
|
702 |
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
703 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
|
704 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
|
705 Usually, `selection-coding-system' is used for communicating with |
47279
06197dc11581
(syms_of_win16select): Fix spacing.
Juanma Barranquero <lekktu@gmail.com>
parents:
46370
diff
changeset
|
706 other X clients. But, if this variable is set, it is used for the |
06197dc11581
(syms_of_win16select): Fix spacing.
Juanma Barranquero <lekktu@gmail.com>
parents:
46370
diff
changeset
|
707 next communication only. After the communication, this variable is |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40656
diff
changeset
|
708 set to nil. */); |
23164
ecc4641bf00a
(Vnext_selection_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
22904
diff
changeset
|
709 Vnext_selection_coding_system = Qnil; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
710 |
17451 | 711 QPRIMARY = intern ("PRIMARY"); staticpro (&QPRIMARY); |
712 QCLIPBOARD = intern ("CLIPBOARD"); staticpro (&QCLIPBOARD); | |
713 } | |
714 | |
715 #endif /* MSDOS */ | |
52401 | 716 |
717 /* arch-tag: 085a22c8-7324-436e-a6da-102464ce95d8 | |
718 (do not change this comment) */ |