annotate src/winclip.c @ 20723:8b2d3cd55f97 v8.2.0914

patch 8.2.0914: MS-Windows: cannot specify a "modified by" text Commit: https://github.com/vim/vim/commit/d8df304c59040ef6689a1e4af1dac27ce566909e Author: Bram Moolenaar <Bram@vim.org> Date: Sat Jun 6 16:18:46 2020 +0200 patch 8.2.0914: MS-Windows: cannot specify a "modified by" text Problem: MS-Windows: cannot specify a "modified by" text. Solution: Add MODIFIED_BY in the MSVC build file. (Chen Lei, closes https://github.com/vim/vim/issues/1275)
author Bram Moolenaar <Bram@vim.org>
date Sat, 06 Jun 2020 16:30:04 +0200
parents 1e78bf92f168
children 599b29b6e540
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
10042
4aead6a9b7a9 commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents: 8140
diff changeset
1 /* vi:set ts=8 sts=4 sw=4 noet:
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
2 *
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
3 * VIM - Vi IMproved by Bram Moolenaar
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
4 *
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
5 * Do ":help uganda" in Vim to read copying and usage conditions.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
6 * Do ":help credits" in Vim to see a list of people who contributed.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
7 * See README.txt for an overview of the Vim source code.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
8 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
9
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
10 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
11 * winclip.c
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
12 *
10783
04eb70c77cf4 patch 8.0.0281: some files are still using ARGSUSED instead of UNUSED
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
13 * Routines for Win32 clipboard handling.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
14 * Also used by Cygwin, using os_unix.c.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
15 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
16
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
17 #include "vim.h"
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
18
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
19 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
20 * Compile only the clipboard handling features when compiling for cygwin
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
21 * posix environment.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
22 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
23 #ifdef FEAT_CYGWIN_WIN32_CLIPBOARD
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
24 # define WIN32_LEAN_AND_MEAN
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
25 # include <windows.h>
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
26 # include "winclip.pro"
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
27 #endif
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
28
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
29 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
30 * When generating prototypes for Win32 on Unix, these lines make the syntax
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
31 * errors disappear. They do not need to be correct.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
32 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
33 #ifdef PROTO
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
34 #define WINAPI
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
35 #define WINBASEAPI
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
36 typedef int DWORD;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
37 typedef int LPBOOL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
38 typedef int LPCSTR;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
39 typedef int LPCWSTR;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
40 typedef int LPSTR;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
41 typedef int LPWSTR;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
42 typedef int UINT;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
43 #endif
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
44
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
45 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
46 * Convert an UTF-8 string to UTF-16.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
47 * "instr[inlen]" is the input. "inlen" is in bytes.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
48 * When "outstr" is NULL only return the number of UTF-16 words produced.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
49 * Otherwise "outstr" must be a buffer of sufficient size.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
50 * Returns the number of UTF-16 words produced.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
51 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
52 int
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
53 utf8_to_utf16(char_u *instr, int inlen, short_u *outstr, int *unconvlenp)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
54 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
55 int outlen = 0;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
56 char_u *p = instr;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
57 int todo = inlen;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
58 int l;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
59 int ch;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
60
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
61 while (todo > 0)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
62 {
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
63 // Only convert if we have a complete sequence.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
64 l = utf_ptr2len_len(p, todo);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
65 if (l > todo)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
66 {
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
67 // Return length of incomplete sequence.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
68 if (unconvlenp != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
69 *unconvlenp = todo;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
70 break;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
71 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
72
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
73 ch = utf_ptr2char(p);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
74 if (ch >= 0x10000)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
75 {
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
76 // non-BMP character, encoding with surrogate pairs
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
77 ++outlen;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
78 if (outstr != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
79 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
80 *outstr++ = (0xD800 - (0x10000 >> 10)) + (ch >> 10);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
81 *outstr++ = 0xDC00 | (ch & 0x3FF);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
82 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
83 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
84 else if (outstr != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
85 *outstr++ = ch;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
86 ++outlen;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
87 p += l;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
88 todo -= l;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
89 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
90
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
91 return outlen;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
92 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
93
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
94 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
95 * Convert an UTF-16 string to UTF-8.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
96 * The input is "instr[inlen]" with "inlen" in number of UTF-16 words.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
97 * When "outstr" is NULL only return the required number of bytes.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
98 * Otherwise "outstr" must be a buffer of sufficient size.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
99 * Return the number of bytes produced.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
100 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
101 int
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
102 utf16_to_utf8(short_u *instr, int inlen, char_u *outstr)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
103 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
104 int outlen = 0;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
105 int todo = inlen;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
106 short_u *p = instr;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
107 int l;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
108 int ch, ch2;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
109
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
110 while (todo > 0)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
111 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
112 ch = *p;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
113 if (ch >= 0xD800 && ch <= 0xDBFF && todo > 1)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
114 {
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
115 // surrogate pairs handling
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
116 ch2 = p[1];
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
117 if (ch2 >= 0xDC00 && ch2 <= 0xDFFF)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
118 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
119 ch = ((ch - 0xD800) << 10) + (ch2 & 0x3FF) + 0x10000;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
120 ++p;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
121 --todo;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
122 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
123 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
124 if (outstr != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
125 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
126 l = utf_char2bytes(ch, outstr);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
127 outstr += l;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
128 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
129 else
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
130 l = utf_char2len(ch);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
131 ++p;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
132 outlen += l;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
133 --todo;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
134 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
135
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
136 return outlen;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
137 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
138
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
139 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
140 * Call MultiByteToWideChar() and allocate memory for the result.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
141 * Returns the result in "*out[*outlen]" with an extra zero appended.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
142 * "outlen" is in words.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
143 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
144 void
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
145 MultiByteToWideChar_alloc(UINT cp, DWORD flags,
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
146 LPCSTR in, int inlen,
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
147 LPWSTR *out, int *outlen)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
148 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
149 *outlen = MultiByteToWideChar(cp, flags, in, inlen, 0, 0);
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
150 // Add one one word to avoid a zero-length alloc().
16825
ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents: 16768
diff changeset
151 *out = ALLOC_MULT(WCHAR, *outlen + 1);
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
152 if (*out != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
153 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
154 MultiByteToWideChar(cp, flags, in, inlen, *out, *outlen);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
155 (*out)[*outlen] = 0;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
156 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
157 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
158
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
159 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
160 * Call WideCharToMultiByte() and allocate memory for the result.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
161 * Returns the result in "*out[*outlen]" with an extra NUL appended.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
162 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
163 void
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
164 WideCharToMultiByte_alloc(UINT cp, DWORD flags,
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
165 LPCWSTR in, int inlen,
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
166 LPSTR *out, int *outlen,
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
167 LPCSTR def, LPBOOL useddef)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
168 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
169 *outlen = WideCharToMultiByte(cp, flags, in, inlen, NULL, 0, def, useddef);
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
170 // Add one one byte to avoid a zero-length alloc().
16825
ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents: 16768
diff changeset
171 *out = alloc(*outlen + 1);
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
172 if (*out != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
173 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
174 WideCharToMultiByte(cp, flags, in, inlen, *out, *outlen, def, useddef);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
175 (*out)[*outlen] = 0;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
176 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
177 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
178
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
179
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
180 #ifdef FEAT_CLIPBOARD
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
181 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
182 * Clipboard stuff, for cutting and pasting text to other windows.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
183 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
184
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
185 void
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
186 win_clip_init(void)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
187 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
188 clip_init(TRUE);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
189
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
190 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
191 * Vim's own clipboard format recognises whether the text is char, line,
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
192 * or rectangular block. Only useful for copying between two Vims.
17063
3147c7c2e86b patch 8.1.1531: clipboard type name is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
193 * "Clipboard_T" was used for previous versions, using the first
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
194 * character to specify MCHAR, MLINE or MBLOCK.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
195 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
196 clip_star.format = RegisterClipboardFormat("VimClipboard2");
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
197 clip_star.format_raw = RegisterClipboardFormat("VimRawBytes");
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
198 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
199
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
200 // Type used for the clipboard type of Vim's data.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
201 typedef struct
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
202 {
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
203 int type; // MCHAR, MBLOCK or MLINE
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
204 int txtlen; // length of CF_TEXT in bytes
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
205 int ucslen; // length of CF_UNICODETEXT in words
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
206 int rawlen; // length of clip_star.format_raw, including encoding,
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
207 // excluding terminating NUL
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
208 } VimClipType_t;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
209
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
210 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
211 * Make vim the owner of the current selection. Return OK upon success.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
212 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
213 int
17063
3147c7c2e86b patch 8.1.1531: clipboard type name is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
214 clip_mch_own_selection(Clipboard_T *cbd UNUSED)
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
215 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
216 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
217 * Never actually own the clipboard. If another application sets the
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
218 * clipboard, we don't want to think that we still own it.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
219 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
220 return FAIL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
221 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
222
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
223 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
224 * Make vim NOT the owner of the current selection.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
225 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
226 void
17063
3147c7c2e86b patch 8.1.1531: clipboard type name is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
227 clip_mch_lose_selection(Clipboard_T *cbd UNUSED)
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
228 {
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
229 // Nothing needs to be done here
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
230 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
231
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
232 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
233 * Copy "str[*size]" into allocated memory, changing CR-NL to NL.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
234 * Return the allocated result and the size in "*size".
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
235 * Returns NULL when out of memory.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
236 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
237 static char_u *
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
238 crnl_to_nl(const char_u *str, int *size)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
239 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
240 int pos = 0;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
241 int str_len = *size;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
242 char_u *ret;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
243 char_u *retp;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
244
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
245 // Avoid allocating zero bytes, it generates an error message.
16768
695d9ef00b03 patch 8.1.1386: unessesary type casts for lalloc()
Bram Moolenaar <Bram@vim.org>
parents: 16764
diff changeset
246 ret = alloc(str_len == 0 ? 1 : str_len);
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
247 if (ret != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
248 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
249 retp = ret;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
250 for (pos = 0; pos < str_len; ++pos)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
251 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
252 if (str[pos] == '\r' && str[pos + 1] == '\n')
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
253 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
254 ++pos;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
255 --(*size);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
256 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
257 *retp++ = str[pos];
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
258 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
259 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
260
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
261 return ret;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
262 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
263
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
264 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
265 * Wait for another process to Close the Clipboard.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
266 * Returns TRUE for success.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
267 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
268 static int
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
269 vim_open_clipboard(void)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
270 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
271 int delay = 10;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
272
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
273 while (!OpenClipboard(NULL))
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
274 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
275 if (delay > 500)
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
276 return FALSE; // waited too long, give up
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
277 Sleep(delay);
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
278 delay *= 2; // wait for 10, 20, 40, 80, etc. msec
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
279 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
280 return TRUE;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
281 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
282
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
283 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
284 * Get the current selection and put it in the clipboard register.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
285 *
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
286 * NOTE: Must use GlobalLock/Unlock here to ensure Win32s compatibility.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
287 * On NT/W95 the clipboard data is a fixed global memory object and
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
288 * so its handle = its pointer.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
289 * On Win32s, however, co-operation with the Win16 system means that
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
290 * the clipboard data is moveable and its handle is not a pointer at all,
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
291 * so we can't just cast the return value of GetClipboardData to (char_u*).
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
292 * <VN>
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
293 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
294 void
17063
3147c7c2e86b patch 8.1.1531: clipboard type name is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
295 clip_mch_request_selection(Clipboard_T *cbd)
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
296 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
297 VimClipType_t metadata = { -1, -1, -1, -1 };
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
298 HGLOBAL hMem = NULL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
299 char_u *str = NULL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
300 char_u *to_free = NULL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
301 HGLOBAL rawh = NULL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
302 int str_size = 0;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
303 int maxlen;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
304 size_t n;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
305
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
306 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
307 * Don't pass GetActiveWindow() as an argument to OpenClipboard() because
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
308 * then we can't paste back into the same window for some reason - webb.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
309 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
310 if (!vim_open_clipboard())
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
311 return;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
312
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
313 // Check for vim's own clipboard format first. This only gets the type of
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
314 // the data, still need to use CF_UNICODETEXT or CF_TEXT for the text.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
315 if (IsClipboardFormatAvailable(cbd->format))
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
316 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
317 VimClipType_t *meta_p;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
318 HGLOBAL meta_h;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
319
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
320 // We have metadata on the clipboard; try to get it.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
321 if ((meta_h = GetClipboardData(cbd->format)) != NULL
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
322 && (meta_p = (VimClipType_t *)GlobalLock(meta_h)) != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
323 {
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
324 // The size of "VimClipType_t" changed, "rawlen" was added later.
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
325 // Only copy what is available for backwards compatibility.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
326 n = sizeof(VimClipType_t);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
327 if (GlobalSize(meta_h) < n)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
328 n = GlobalSize(meta_h);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
329 memcpy(&metadata, meta_p, n);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
330 GlobalUnlock(meta_h);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
331 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
332 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
333
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
334 // Check for Vim's raw clipboard format first. This is used without
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
335 // conversion, but only if 'encoding' matches.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
336 if (IsClipboardFormatAvailable(cbd->format_raw)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
337 && metadata.rawlen > (int)STRLEN(p_enc))
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
338 {
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
339 // We have raw data on the clipboard; try to get it.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
340 if ((rawh = GetClipboardData(cbd->format_raw)) != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
341 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
342 char_u *rawp;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
343
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
344 rawp = (char_u *)GlobalLock(rawh);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
345 if (rawp != NULL && STRCMP(p_enc, rawp) == 0)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
346 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
347 n = STRLEN(p_enc) + 1;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
348 str = rawp + n;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
349 str_size = (int)(metadata.rawlen - n);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
350 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
351 else
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
352 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
353 GlobalUnlock(rawh);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
354 rawh = NULL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
355 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
356 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
357 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
358 if (str == NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
359 {
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
360 // Try to get the clipboard in Unicode if it's not an empty string.
15605
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
361 if (IsClipboardFormatAvailable(CF_UNICODETEXT) && metadata.ucslen != 0)
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
362 {
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
363 HGLOBAL hMemW;
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
364
15605
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
365 if ((hMemW = GetClipboardData(CF_UNICODETEXT)) != NULL)
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
366 {
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
367 WCHAR *hMemWstr = (WCHAR *)GlobalLock(hMemW);
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
368
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
369 // Use the length of our metadata if possible, but limit it to
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
370 // the GlobalSize() for safety.
15605
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
371 maxlen = (int)(GlobalSize(hMemW) / sizeof(WCHAR));
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
372 if (metadata.ucslen >= 0)
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
373 {
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
374 if (metadata.ucslen > maxlen)
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
375 str_size = maxlen;
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
376 else
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
377 str_size = metadata.ucslen;
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
378 }
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
379 else
15605
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
380 {
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
381 for (str_size = 0; str_size < maxlen; ++str_size)
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
382 if (hMemWstr[str_size] == NUL)
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
383 break;
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
384 }
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
385 to_free = str = utf16_to_enc((short_u *)hMemWstr, &str_size);
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
386 GlobalUnlock(hMemW);
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
387 }
15605
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
388 }
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
389 // Get the clipboard in the Active codepage.
15957
209f65bb155f patch 8.1.0984: unnecessary #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15868
diff changeset
390 else if (IsClipboardFormatAvailable(CF_TEXT))
15605
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
391 {
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
392 if ((hMem = GetClipboardData(CF_TEXT)) != NULL)
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
393 {
15605
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
394 str = (char_u *)GlobalLock(hMem);
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
395
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
396 // The length is either what our metadata says or the strlen().
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
397 // But limit it to the GlobalSize() for safety.
15605
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
398 maxlen = (int)GlobalSize(hMem);
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
399 if (metadata.txtlen >= 0)
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
400 {
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
401 if (metadata.txtlen > maxlen)
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
402 str_size = maxlen;
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
403 else
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
404 str_size = metadata.txtlen;
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
405 }
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
406 else
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
407 {
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
408 for (str_size = 0; str_size < maxlen; ++str_size)
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
409 if (str[str_size] == NUL)
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
410 break;
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
411 }
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
412
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
413 // The text is in the active codepage. Convert to
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
414 // 'encoding', going through UTF-16.
15605
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
415 acp_to_enc(str, str_size, &to_free, &maxlen);
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
416 if (to_free != NULL)
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
417 {
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
418 str_size = maxlen;
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
419 str = to_free;
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 10783
diff changeset
420 }
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
421 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
422 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
423 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
424
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
425 if (str != NULL && *str != NUL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
426 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
427 char_u *temp_clipboard;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
428
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
429 // If the type is not known detect it.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
430 if (metadata.type == -1)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
431 metadata.type = MAUTO;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
432
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
433 // Translate <CR><NL> into <NL>.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
434 temp_clipboard = crnl_to_nl(str, &str_size);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
435 if (temp_clipboard != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
436 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
437 clip_yank_selection(metadata.type, temp_clipboard, str_size, cbd);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
438 vim_free(temp_clipboard);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
439 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
440 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
441
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
442 // unlock the global object
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
443 if (hMem != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
444 GlobalUnlock(hMem);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
445 if (rawh != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
446 GlobalUnlock(rawh);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
447 CloseClipboard();
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
448 vim_free(to_free);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
449 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
450
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
451 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
452 * Send the current selection to the clipboard.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
453 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
454 void
17063
3147c7c2e86b patch 8.1.1531: clipboard type name is inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
455 clip_mch_set_selection(Clipboard_T *cbd)
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
456 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
457 char_u *str = NULL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
458 VimClipType_t metadata;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
459 long_u txtlen;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
460 HGLOBAL hMemRaw = NULL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
461 HGLOBAL hMem = NULL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
462 HGLOBAL hMemVim = NULL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
463 HGLOBAL hMemW = NULL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
464
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
465 // If the '*' register isn't already filled in, fill it in now
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
466 cbd->owned = TRUE;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
467 clip_get_selection(cbd);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
468 cbd->owned = FALSE;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
469
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
470 // Get the text to be put on the clipboard, with CR-LF.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
471 metadata.type = clip_convert_selection(&str, &txtlen, cbd);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
472 if (metadata.type < 0)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
473 return;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
474 metadata.txtlen = (int)txtlen;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
475 metadata.ucslen = 0;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
476 metadata.rawlen = 0;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
477
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
478 // Always set the raw bytes: 'encoding', NUL and the text. This is used
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
479 // when copy/paste from/to Vim with the same 'encoding', so that illegal
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
480 // bytes can also be copied and no conversion is needed.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
481 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
482 LPSTR lpszMemRaw;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
483
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
484 metadata.rawlen = (int)(txtlen + STRLEN(p_enc) + 1);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
485 hMemRaw = (LPSTR)GlobalAlloc(GMEM_MOVEABLE | GMEM_DDESHARE,
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
486 metadata.rawlen + 1);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
487 lpszMemRaw = (LPSTR)GlobalLock(hMemRaw);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
488 if (lpszMemRaw != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
489 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
490 STRCPY(lpszMemRaw, p_enc);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
491 memcpy(lpszMemRaw + STRLEN(p_enc) + 1, str, txtlen + 1);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
492 GlobalUnlock(hMemRaw);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
493 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
494 else
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
495 metadata.rawlen = 0;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
496 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
497
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
498 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
499 WCHAR *out;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
500 int len = metadata.txtlen;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
501
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
502 // Convert the text to UTF-16. This is put on the clipboard as
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
503 // CF_UNICODETEXT.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
504 out = (WCHAR *)enc_to_utf16(str, &len);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
505 if (out != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
506 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
507 WCHAR *lpszMemW;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
508
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
509 // Convert the text for CF_TEXT to Active codepage. Otherwise it's
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
510 // p_enc, which has no relation to the Active codepage.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
511 metadata.txtlen = WideCharToMultiByte(GetACP(), 0, out, len,
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
512 NULL, 0, 0, 0);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
513 vim_free(str);
16825
ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents: 16768
diff changeset
514 str = alloc(metadata.txtlen == 0 ? 1 : metadata.txtlen);
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
515 if (str == NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
516 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
517 vim_free(out);
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
518 return; // out of memory
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
519 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
520 WideCharToMultiByte(GetACP(), 0, out, len,
5082
7b20dc804164 updated for version 7.3.1284
Bram Moolenaar <bram@vim.org>
parents: 4168
diff changeset
521 (LPSTR)str, metadata.txtlen, 0, 0);
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
522
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
523 // Allocate memory for the UTF-16 text, add one NUL word to
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
524 // terminate the string.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
525 hMemW = (LPSTR)GlobalAlloc(GMEM_MOVEABLE | GMEM_DDESHARE,
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
526 (len + 1) * sizeof(WCHAR));
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
527 lpszMemW = (WCHAR *)GlobalLock(hMemW);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
528 if (lpszMemW != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
529 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
530 memcpy(lpszMemW, out, len * sizeof(WCHAR));
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
531 lpszMemW[len] = NUL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
532 GlobalUnlock(hMemW);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
533 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
534 vim_free(out);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
535 metadata.ucslen = len;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
536 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
537 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
538
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
539 // Allocate memory for the text, add one NUL byte to terminate the string.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
540 hMem = GlobalAlloc(GMEM_MOVEABLE | GMEM_DDESHARE, metadata.txtlen + 1);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
541 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
542 LPSTR lpszMem = (LPSTR)GlobalLock(hMem);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
543
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
544 if (lpszMem)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
545 {
5082
7b20dc804164 updated for version 7.3.1284
Bram Moolenaar <bram@vim.org>
parents: 4168
diff changeset
546 vim_strncpy((char_u *)lpszMem, str, metadata.txtlen);
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
547 GlobalUnlock(hMem);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
548 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
549 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
550
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
551 // Set up metadata:
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
552 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
553 VimClipType_t *lpszMemVim = NULL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
554
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
555 hMemVim = GlobalAlloc(GMEM_MOVEABLE|GMEM_DDESHARE,
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
556 sizeof(VimClipType_t));
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
557 lpszMemVim = (VimClipType_t *)GlobalLock(hMemVim);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
558 memcpy(lpszMemVim, &metadata, sizeof(metadata));
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
559 GlobalUnlock(hMemVim);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
560 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
561
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
562 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
563 * Open the clipboard, clear it and put our text on it.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
564 * Always set our Vim format. Put Unicode and plain text on it.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
565 *
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
566 * Don't pass GetActiveWindow() as an argument to OpenClipboard()
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
567 * because then we can't paste back into the same window for some
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
568 * reason - webb.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
569 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
570 if (vim_open_clipboard())
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
571 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
572 if (EmptyClipboard())
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
573 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
574 SetClipboardData(cbd->format, hMemVim);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
575 hMemVim = 0;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
576 if (hMemW != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
577 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
578 if (SetClipboardData(CF_UNICODETEXT, hMemW) != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
579 hMemW = NULL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
580 }
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
581 // Always use CF_TEXT. On Win98 Notepad won't obtain the
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
582 // CF_UNICODETEXT text, only CF_TEXT.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
583 SetClipboardData(CF_TEXT, hMem);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
584 hMem = 0;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
585 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
586 CloseClipboard();
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
587 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
588
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
589 vim_free(str);
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
590 // Free any allocations we didn't give to the clipboard:
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
591 if (hMemRaw)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
592 GlobalFree(hMemRaw);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
593 if (hMem)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
594 GlobalFree(hMem);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
595 if (hMemW)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
596 GlobalFree(hMemW);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
597 if (hMemVim)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
598 GlobalFree(hMemVim);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
599 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
600
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
601 #endif // FEAT_CLIPBOARD
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
602
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
603 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
604 * Note: the following two functions are only guaranteed to work when using
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
605 * valid MS-Windows codepages or when iconv() is available.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
606 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
607
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
608 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
609 * Convert "str" from 'encoding' to UTF-16.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
610 * Input in "str" with length "*lenp". When "lenp" is NULL, use strlen().
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
611 * Output is returned as an allocated string. "*lenp" is set to the length of
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
612 * the result. A trailing NUL is always added.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
613 * Returns NULL when out of memory.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
614 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
615 short_u *
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
616 enc_to_utf16(char_u *str, int *lenp)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
617 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
618 vimconv_T conv;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
619 WCHAR *ret;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
620 char_u *allocbuf = NULL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
621 int len_loc;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
622 int length;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
623
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
624 if (lenp == NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
625 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
626 len_loc = (int)STRLEN(str) + 1;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
627 lenp = &len_loc;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
628 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
629
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
630 if (enc_codepage > 0)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
631 {
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
632 // We can do any CP### -> UTF-16 in one pass, and we can do it
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
633 // without iconv() (convert_* may need iconv).
5082
7b20dc804164 updated for version 7.3.1284
Bram Moolenaar <bram@vim.org>
parents: 4168
diff changeset
634 MultiByteToWideChar_alloc(enc_codepage, 0, (LPCSTR)str, *lenp,
7b20dc804164 updated for version 7.3.1284
Bram Moolenaar <bram@vim.org>
parents: 4168
diff changeset
635 &ret, &length);
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
636 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
637 else
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
638 {
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
639 // Use "latin1" by default, we might be called before we have p_enc
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
640 // set up. Convert to utf-8 first, works better with iconv(). Does
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
641 // nothing if 'encoding' is "utf-8".
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
642 conv.vc_type = CONV_NONE;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
643 if (convert_setup(&conv, p_enc ? p_enc : (char_u *)"latin1",
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
644 (char_u *)"utf-8") == FAIL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
645 return NULL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
646 if (conv.vc_type != CONV_NONE)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
647 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
648 str = allocbuf = string_convert(&conv, str, lenp);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
649 if (str == NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
650 return NULL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
651 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
652 convert_setup(&conv, NULL, NULL);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
653
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
654 length = utf8_to_utf16(str, *lenp, NULL, NULL);
16825
ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents: 16768
diff changeset
655 ret = ALLOC_MULT(WCHAR, length + 1);
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
656 if (ret != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
657 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
658 utf8_to_utf16(str, *lenp, (short_u *)ret, NULL);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
659 ret[length] = 0;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
660 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
661
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
662 vim_free(allocbuf);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
663 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
664
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
665 *lenp = length;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
666 return (short_u *)ret;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
667 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
668
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
669 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
670 * Convert an UTF-16 string to 'encoding'.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
671 * Input in "str" with length (counted in wide characters) "*lenp". When
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
672 * "lenp" is NULL, use wcslen().
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
673 * Output is returned as an allocated string. If "*lenp" is not NULL it is
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
674 * set to the length of the result.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
675 * Returns NULL when out of memory.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
676 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
677 char_u *
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
678 utf16_to_enc(short_u *str, int *lenp)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
679 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
680 vimconv_T conv;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
681 char_u *utf8_str = NULL, *enc_str = NULL;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
682 int len_loc;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
683
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
684 if (lenp == NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
685 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
686 len_loc = (int)wcslen(str) + 1;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
687 lenp = &len_loc;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
688 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
689
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
690 if (enc_codepage > 0)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
691 {
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
692 // We can do any UTF-16 -> CP### in one pass.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
693 int length;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
694
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
695 WideCharToMultiByte_alloc(enc_codepage, 0, str, *lenp,
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
696 (LPSTR *)&enc_str, &length, 0, 0);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
697 *lenp = length;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
698 return enc_str;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
699 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
700
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
701 // Avoid allocating zero bytes, it generates an error message.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
702 utf8_str = alloc(utf16_to_utf8(str, *lenp == 0 ? 1 : *lenp, NULL));
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
703 if (utf8_str != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
704 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
705 *lenp = utf16_to_utf8(str, *lenp, utf8_str);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
706
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
707 // We might be called before we have p_enc set up.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
708 conv.vc_type = CONV_NONE;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
709 convert_setup(&conv, (char_u *)"utf-8",
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
710 p_enc? p_enc: (char_u *)"latin1");
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
711 if (conv.vc_type == CONV_NONE)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
712 {
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
713 // p_enc is utf-8, so we're done.
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
714 enc_str = utf8_str;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
715 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
716 else
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
717 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
718 enc_str = string_convert(&conv, utf8_str, lenp);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
719 vim_free(utf8_str);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
720 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
721
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
722 convert_setup(&conv, NULL, NULL);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
723 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
724
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
725 return enc_str;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
726 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
727
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
728 /*
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
729 * Convert from the active codepage to 'encoding'.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
730 * Input is "str[str_size]".
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
731 * The result is in allocated memory: "out[outlen]". With terminating NUL.
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
732 */
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
733 void
7837
33ba2adb6065 commit https://github.com/vim/vim/commit/b638a7be952544ceb03052c25b84224577a6494b
Christian Brabandt <cb@256bit.org>
parents: 5714
diff changeset
734 acp_to_enc(
33ba2adb6065 commit https://github.com/vim/vim/commit/b638a7be952544ceb03052c25b84224577a6494b
Christian Brabandt <cb@256bit.org>
parents: 5714
diff changeset
735 char_u *str,
33ba2adb6065 commit https://github.com/vim/vim/commit/b638a7be952544ceb03052c25b84224577a6494b
Christian Brabandt <cb@256bit.org>
parents: 5714
diff changeset
736 int str_size,
33ba2adb6065 commit https://github.com/vim/vim/commit/b638a7be952544ceb03052c25b84224577a6494b
Christian Brabandt <cb@256bit.org>
parents: 5714
diff changeset
737 char_u **out,
33ba2adb6065 commit https://github.com/vim/vim/commit/b638a7be952544ceb03052c25b84224577a6494b
Christian Brabandt <cb@256bit.org>
parents: 5714
diff changeset
738 int *outlen)
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
739
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
740 {
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
741 LPWSTR widestr;
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
742
5082
7b20dc804164 updated for version 7.3.1284
Bram Moolenaar <bram@vim.org>
parents: 4168
diff changeset
743 MultiByteToWideChar_alloc(GetACP(), 0, (LPCSTR)str, str_size,
7b20dc804164 updated for version 7.3.1284
Bram Moolenaar <bram@vim.org>
parents: 4168
diff changeset
744 &widestr, outlen);
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
745 if (widestr != NULL)
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
746 {
18816
15539899a112 patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17063
diff changeset
747 ++*outlen; // Include the 0 after the string
4168
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
748 *out = utf16_to_enc((short_u *)widestr, outlen);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
749 vim_free(widestr);
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
750 }
ff193256398a updated for version 7.3.836
Bram Moolenaar <bram@vim.org>
parents:
diff changeset
751 }
5714
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
752
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
753 /*
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
754 * Convert from 'encoding' to the active codepage.
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
755 * Input is "str[str_size]".
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
756 * The result is in allocated memory: "out[outlen]". With terminating NUL.
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
757 */
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
758 void
7837
33ba2adb6065 commit https://github.com/vim/vim/commit/b638a7be952544ceb03052c25b84224577a6494b
Christian Brabandt <cb@256bit.org>
parents: 5714
diff changeset
759 enc_to_acp(
33ba2adb6065 commit https://github.com/vim/vim/commit/b638a7be952544ceb03052c25b84224577a6494b
Christian Brabandt <cb@256bit.org>
parents: 5714
diff changeset
760 char_u *str,
33ba2adb6065 commit https://github.com/vim/vim/commit/b638a7be952544ceb03052c25b84224577a6494b
Christian Brabandt <cb@256bit.org>
parents: 5714
diff changeset
761 int str_size,
33ba2adb6065 commit https://github.com/vim/vim/commit/b638a7be952544ceb03052c25b84224577a6494b
Christian Brabandt <cb@256bit.org>
parents: 5714
diff changeset
762 char_u **out,
33ba2adb6065 commit https://github.com/vim/vim/commit/b638a7be952544ceb03052c25b84224577a6494b
Christian Brabandt <cb@256bit.org>
parents: 5714
diff changeset
763 int *outlen)
5714
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
764
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
765 {
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
766 LPWSTR widestr;
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
767 int len = str_size;
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
768
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
769 widestr = (WCHAR *)enc_to_utf16(str, &len);
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
770 if (widestr != NULL)
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
771 {
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
772 WideCharToMultiByte_alloc(GetACP(), 0, widestr, len,
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
773 (LPSTR *)out, outlen, 0, 0);
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
774 vim_free(widestr);
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
775 }
22d7af9ff3e5 updated for version 7.4.202
Bram Moolenaar <bram@vim.org>
parents: 5082
diff changeset
776 }