1 /* vi:set ts=8 sts=4 sw=4:
3 * VIM - Vi IMproved by Bram Moolenaar
5 * Do ":help uganda" in Vim to read copying and usage conditions.
6 * Do ":help credits" in Vim to see a list of people who contributed.
7 * See README.txt for an overview of the Vim source code.
13 * Routines common to both Win16 and Win32.
29 # define SHORT_FNAME /* always 8.3 file name */
33 #include <sys/types.h>
48 #if defined(FEAT_TITLE) && !defined(FEAT_GUI_W32)
49 # include <shellapi.h>
52 #if defined(FEAT_PRINTER) && !defined(FEAT_POSTSCRIPT)
55 # include <winspool.h>
63 # ifndef FROM_LEFT_1ST_BUTTON_PRESSED
64 # define FROM_LEFT_1ST_BUTTON_PRESSED 0x0001
66 # ifndef RIGHTMOST_BUTTON_PRESSED
67 # define RIGHTMOST_BUTTON_PRESSED 0x0002
69 # ifndef FROM_LEFT_2ND_BUTTON_PRESSED
70 # define FROM_LEFT_2ND_BUTTON_PRESSED 0x0004
72 # ifndef FROM_LEFT_3RD_BUTTON_PRESSED
73 # define FROM_LEFT_3RD_BUTTON_PRESSED 0x0008
75 # ifndef FROM_LEFT_4TH_BUTTON_PRESSED
76 # define FROM_LEFT_4TH_BUTTON_PRESSED 0x0010
83 # define MOUSE_MOVED 0x0001
86 # define DOUBLE_CLICK 0x0002
91 * When generating prototypes for Win32 on Unix, these lines make the syntax
92 * errors disappear. They do not need to be correct.
100 typedef int CONSOLE_CURSOR_INFO
;
103 typedef int ENUMLOGFONT
;
109 typedef int INPUT_RECORD
;
110 typedef int KEY_EVENT_RECORD
;
120 typedef int MOUSE_EVENT_RECORD
;
121 typedef int NEWTEXTMETRIC
;
123 typedef int PRINTDLG
;
124 typedef int PSECURITY_DESCRIPTOR
;
126 typedef int SECURITY_INFORMATION
;
128 typedef int SMALL_RECT
;
129 typedef int TEXTMETRIC
;
137 /* Record all output and all keyboard & mouse input */
138 /* #define MCH_WRITE_DUMP */
140 #ifdef MCH_WRITE_DUMP
145 extern DWORD g_PlatformId
;
148 #ifndef FEAT_GUI_MSWIN
149 extern char g_szOrigTitle
[];
155 static HWND s_hwnd
= 0; /* console window handle, set by GetConsoleHwnd() */
158 extern int WSInitialized
;
160 /* Don't generate prototypes here, because some systems do have these
162 #if defined(__GNUC__) && !defined(PROTO)
164 int _stricoll(char *a
, char *b
)
166 // the ANSI-ish correct way is to use strxfrm():
167 char a_buff
[512], b_buff
[512]; // file names, so this is enough on Win32
168 strxfrm(a_buff
, a
, 512);
169 strxfrm(b_buff
, b
, 512);
170 return strcoll(a_buff
, b_buff
);
173 char * _fullpath(char *buf
, char *fname
, int len
)
177 return (char *)GetFullPathName(fname
, len
, buf
, &toss
);
181 int _chdrive(int drive
)
183 char temp
[3] = "-:";
184 temp
[0] = drive
+ 'A' - 1;
185 return !SetCurrentDirectory(temp
);
189 /* being a more ANSI compliant compiler, BorlandC doesn't define _stricoll:
190 * but it does in BC 5.02! */
191 # if __BORLANDC__ < 0x502
192 int _stricoll(char *a
, char *b
)
195 // this is fast but not correct:
196 return stricmp(a
, b
);
198 // the ANSI-ish correct way is to use strxfrm():
199 char a_buff
[512], b_buff
[512]; // file names, so this is enough on Win32
200 strxfrm(a_buff
, a
, 512);
201 strxfrm(b_buff
, b
, 512);
202 return strcoll(a_buff
, b_buff
);
210 #if defined(FEAT_GUI_MSWIN) || defined(PROTO)
212 * GUI version of mch_exit().
213 * Shut down and exit with status `r'
214 * Careful: mch_exit() may be called before mch_init()!
221 ml_close_all(TRUE
); /* remove all memfiles */
226 # ifdef FEAT_NETBEANS_INTG
229 WSInitialized
= FALSE
;
233 #ifdef DYNAMIC_GETTEXT
247 #endif /* FEAT_GUI_MSWIN */
251 * Init the tables for toupper() and tolower().
262 /* Init the tables for toupper() and tolower() */
263 for (i
= 0; i
< 256; ++i
)
264 toupper_tab
[i
] = tolower_tab
[i
] = i
;
266 CharUpperBuff(toupper_tab
, 256);
267 CharLowerBuff(tolower_tab
, 256);
269 AnsiUpperBuff(toupper_tab
, 256);
270 AnsiLowerBuff(tolower_tab
, 256);
273 #if defined(FEAT_MBYTE) && !defined(FEAT_GUI)
274 (void)get_cmd_argsW(NULL
);
280 * Return TRUE if the input comes from a terminal, FALSE otherwise.
285 #ifdef FEAT_GUI_MSWIN
286 return OK
; /* GUI always has a tty */
288 if (isatty(read_cmd_fd
))
296 * mch_settitle(): set titlebar of our window
303 # ifdef FEAT_GUI_MSWIN
304 gui_mch_settitle(title
, icon
);
309 if (enc_codepage
>= 0 && (int)GetACP() != enc_codepage
)
311 /* Convert the title from 'encoding' to the active codepage. */
312 WCHAR
*wp
= enc_to_utf16(title
, NULL
);
317 n
= SetConsoleTitleW(wp
);
319 if (n
!= 0 || GetLastError() != ERROR_CALL_NOT_IMPLEMENTED
)
324 SetConsoleTitle(title
);
331 * Restore the window/icon title.
333 * 1: Just restore title
334 * 2: Just restore icon (which we don't have)
335 * 3: Restore title and icon (which we don't have)
342 #ifndef FEAT_GUI_MSWIN
343 mch_settitle((which
& 1) ? g_szOrigTitle
: NULL
, NULL
);
349 * Return TRUE if we can restore the title (we can)
352 mch_can_restore_title()
359 * Return TRUE if we can restore the icon title (we can't)
362 mch_can_restore_icon()
366 #endif /* FEAT_TITLE */
370 * Get absolute file name into buffer "buf" of length "len" bytes,
371 * turning all '/'s into '\\'s and getting the correct case of each component
372 * of the file name. Append a (back)slash to a directory name.
373 * When 'shellslash' set do it the other way around.
387 if (*fname
== NUL
) /* Borland behaves badly here - make it consistent */
388 nResult
= mch_dirname(buf
, len
);
393 if (enc_codepage
>= 0 && (int)GetACP() != enc_codepage
395 /* Wide functions of Borland C 5.5 do not work on Windows 98. */
396 && g_PlatformId
== VER_PLATFORM_WIN32_NT
401 WCHAR wbuf
[MAX_PATH
];
402 char_u
*cname
= NULL
;
404 /* Use the wide function:
405 * - convert the fname from 'encoding' to UCS2.
406 * - invoke _wfullpath()
407 * - convert the result from UCS2 to 'encoding'.
409 wname
= enc_to_utf16(fname
, NULL
);
410 if (wname
!= NULL
&& _wfullpath(wbuf
, wname
, MAX_PATH
- 1) != NULL
)
412 cname
= utf16_to_enc((short_u
*)wbuf
, NULL
);
415 vim_strncpy(buf
, cname
, len
- 1);
422 if (nResult
== FAIL
) /* fall back to non-wide function */
425 if (_fullpath(buf
, fname
, len
- 1) == NULL
)
427 /* failed, use relative path name */
428 vim_strncpy(buf
, fname
, len
- 1);
435 #ifdef USE_FNAME_CASE
436 fname_case(buf
, len
);
446 * Return TRUE if "fname" does not depend on the current directory.
449 mch_isFullName(char_u
*fname
)
451 char szName
[_MAX_PATH
+ 1];
453 /* A name like "d:/foo" and "//server/share" is absolute */
454 if ((fname
[0] && fname
[1] == ':' && (fname
[2] == '/' || fname
[2] == '\\'))
455 || (fname
[0] == fname
[1] && (fname
[0] == '/' || fname
[0] == '\\')))
458 /* A name that can't be made absolute probably isn't absolute. */
459 if (mch_FullName(fname
, szName
, _MAX_PATH
, FALSE
) == FAIL
)
462 return pathcmp(fname
, szName
, -1) == 0;
466 * Replace all slashes by backslashes.
467 * This used to be the other way around, but MS-DOS sometimes has problems
468 * with slashes (e.g. in a command name). We can't have mixed slashes and
469 * backslashes, because comparing file names will not work correctly. The
470 * commands that use a file name should try to avoid the need to type a
472 * When 'shellslash' set do it the other way around.
488 * stat() can't handle a trailing '/' or '\', remove it first.
491 vim_stat(const char *name
, struct stat
*stp
)
493 char buf
[_MAX_PATH
+ 1];
496 vim_strncpy((char_u
*)buf
, (char_u
*)name
, _MAX_PATH
);
497 p
= buf
+ strlen(buf
);
500 if (p
> buf
&& (*p
== '\\' || *p
== '/') && p
[-1] != ':')
503 if (enc_codepage
>= 0 && (int)GetACP() != enc_codepage
505 /* Wide functions of Borland C 5.5 do not work on Windows 98. */
506 && g_PlatformId
== VER_PLATFORM_WIN32_NT
510 WCHAR
*wp
= enc_to_utf16(buf
, NULL
);
515 n
= _wstat(wp
, (struct _stat
*)stp
);
519 /* Retry with non-wide function (for Windows 98). Can't use
520 * GetLastError() here and it's unclear what errno gets set to if
521 * the _wstat() fails for missing wide functions. */
525 return stat(buf
, stp
);
528 #if defined(FEAT_GUI_MSWIN) || defined(PROTO)
531 mch_settmode(int tmode
)
537 mch_get_shellsize(void)
544 mch_set_shellsize(void)
550 * Rows and/or Columns has changed.
553 mch_new_shellsize(void)
561 * We have no job control, so fake it by starting a new shell.
569 #if defined(USE_MCH_ERRMSG) || defined(PROTO)
571 #ifdef display_errors
572 # undef display_errors
576 * Display the saved error message(s).
583 if (error_ga
.ga_data
!= NULL
)
585 /* avoid putting up a message box with blanks only */
586 for (p
= (char *)error_ga
.ga_data
; *p
; ++p
)
589 (void)gui_mch_dialog(
591 gui
.starting
? VIM_INFO
:
595 gui
.starting
? (char_u
*)_("Message") :
597 (char_u
*)_("Error"),
598 p
, (char_u
*)_("&Ok"), 1, NULL
);
608 * Return TRUE if "p" contain a wildcard that can be expanded by
612 mch_has_exp_wildcard(char_u
*p
)
614 for ( ; *p
; mb_ptr_adv(p
))
616 if (vim_strchr((char_u
*)"?*[", *p
) != NULL
617 || (*p
== '~' && p
[1] != NUL
))
624 * Return TRUE if "p" contain a wildcard or a "~1" kind of thing (could be a
625 * shortened file name).
628 mch_has_wildcard(char_u
*p
)
630 for ( ; *p
; mb_ptr_adv(p
))
632 if (vim_strchr((char_u
*)
639 || (*p
== '~' && p
[1] != NUL
))
647 * The normal _chdir() does not change the default drive. This one does.
648 * Returning 0 implies success; -1 implies failure.
651 mch_chdir(char *path
)
653 if (path
[0] == NUL
) /* just checking... */
656 if (isalpha(path
[0]) && path
[1] == ':') /* has a drive name */
658 /* If we can change to the drive, skip that part of the path. If we
659 * can't then the current directory may be invalid, try using chdir()
660 * with the whole path. */
661 if (_chdrive(TOLOWER_ASC(path
[0]) - 'a' + 1) == 0)
665 if (*path
== NUL
) /* drive name only */
669 if (enc_codepage
>= 0 && (int)GetACP() != enc_codepage
)
671 WCHAR
*p
= enc_to_utf16(path
, NULL
);
680 /* Retry with non-wide function (for Windows 98). */
685 return chdir(path
); /* let the normal chdir() do the rest */
690 * Switching off termcap mode is only allowed when Columns is 80, otherwise a
691 * crash may result. It's always allowed on NT or when running the GUI.
695 can_end_termcap_mode(
698 #ifdef FEAT_GUI_MSWIN
699 return TRUE
; /* GUI starts a new console anyway */
701 if (g_PlatformId
== VER_PLATFORM_WIN32_NT
|| Columns
== 80)
704 msg(_("'columns' is not 80, cannot execute external commands"));
709 #ifdef FEAT_GUI_MSWIN
711 * return non-zero if a character is available
723 * set screen mode, always fails.
730 EMSG(_(e_screenmode
));
735 #if defined(FEAT_LIBCALL) || defined(PROTO)
737 * Call a DLL routine which takes either a string or int param
738 * and returns an allocated string.
739 * Return OK if it worked, FAIL if not.
742 typedef LPTSTR (*MYSTRPROCSTR
)(LPTSTR
);
743 typedef LPTSTR (*MYINTPROCSTR
)(int);
744 typedef int (*MYSTRPROCINT
)(LPTSTR
);
745 typedef int (*MYINTPROCINT
)(int);
747 typedef LPSTR (*MYSTRPROCSTR
)(LPSTR
);
748 typedef LPSTR (*MYINTPROCSTR
)(int);
749 typedef int (*MYSTRPROCINT
)(LPSTR
);
750 typedef int (*MYINTPROCINT
)(int);
755 * Check if a pointer points to a valid NUL terminated string.
756 * Return the length of the string, including terminating NUL.
757 * Returns 0 for an invalid pointer, 1 for an empty string.
760 check_str_len(char_u
*str
)
763 MEMORY_BASIC_INFORMATION mbi
;
771 /* get memory information */
772 if (VirtualQuery(str
, &mbi
, sizeof(mbi
)))
774 /* pre cast these (typing savers) */
775 long_u dwStr
= (long_u
)str
;
776 long_u dwBaseAddress
= (long_u
)mbi
.BaseAddress
;
778 /* get start address of page that str is on */
779 long_u strPage
= dwStr
- (dwStr
- dwBaseAddress
) % si
.dwPageSize
;
781 /* get length from str to end of page */
782 long_u pageLength
= si
.dwPageSize
- (dwStr
- strPage
);
784 for (p
= str
; !IsBadReadPtr(p
, pageLength
);
785 p
+= pageLength
, pageLength
= si
.dwPageSize
)
786 for (i
= 0; i
< pageLength
; ++i
, ++length
)
799 char_u
*argstring
, /* NULL when using a argint */
801 char_u
**string_result
,/* NULL when using number_result */
805 MYSTRPROCSTR ProcAdd
;
806 MYINTPROCSTR ProcAddI
;
807 char_u
*retval_str
= NULL
;
811 BOOL fRunTimeLinkSuccess
= FALSE
;
813 // Get a handle to the DLL module.
814 hinstLib
= LoadLibrary(libname
);
816 // If the handle is valid, try to get the function address.
817 if (hinstLib
!= NULL
)
819 #ifdef HAVE_TRY_EXCEPT
823 if (argstring
!= NULL
)
825 /* Call with string argument */
826 ProcAdd
= (MYSTRPROCSTR
) GetProcAddress(hinstLib
, funcname
);
827 if ((fRunTimeLinkSuccess
= (ProcAdd
!= NULL
)) != 0)
829 if (string_result
== NULL
)
830 retval_int
= ((MYSTRPROCINT
)ProcAdd
)(argstring
);
832 retval_str
= (ProcAdd
)(argstring
);
837 /* Call with number argument */
838 ProcAddI
= (MYINTPROCSTR
) GetProcAddress(hinstLib
, funcname
);
839 if ((fRunTimeLinkSuccess
= (ProcAddI
!= NULL
)) != 0)
841 if (string_result
== NULL
)
842 retval_int
= ((MYINTPROCINT
)ProcAddI
)(argint
);
844 retval_str
= (ProcAddI
)(argint
);
848 // Save the string before we free the library.
849 // Assume that a "1" result is an illegal pointer.
850 if (string_result
== NULL
)
851 *number_result
= retval_int
;
852 else if (retval_str
!= NULL
854 && retval_str
!= (char_u
*)1
855 && retval_str
!= (char_u
*)-1
856 && !IsBadStringPtr(retval_str
, INT_MAX
)
857 && (len
= strlen(retval_str
) + 1) > 0
859 && (len
= check_str_len(retval_str
)) > 0
863 *string_result
= lalloc((long_u
)len
, TRUE
);
864 if (*string_result
!= NULL
)
865 mch_memmove(*string_result
, retval_str
, len
);
868 #ifdef HAVE_TRY_EXCEPT
870 __except(EXCEPTION_EXECUTE_HANDLER
)
872 if (GetExceptionCode() == EXCEPTION_STACK_OVERFLOW
)
874 fRunTimeLinkSuccess
= 0;
878 // Free the DLL module.
879 (void)FreeLibrary(hinstLib
);
882 if (!fRunTimeLinkSuccess
)
884 EMSG2(_(e_libcall
), funcname
);
892 #if defined(FEAT_MBYTE) || defined(PROTO)
894 * Convert an UTF-8 string to UTF-16.
895 * "instr[inlen]" is the input. "inlen" is in bytes.
896 * When "outstr" is NULL only return the number of UTF-16 words produced.
897 * Otherwise "outstr" must be a buffer of sufficient size.
898 * Returns the number of UTF-16 words produced.
901 utf8_to_utf16(char_u
*instr
, int inlen
, short_u
*outstr
, int *unconvlenp
)
911 /* Only convert if we have a complete sequence. */
912 l
= utf_ptr2len_len(p
, todo
);
915 /* Return length of incomplete sequence. */
916 if (unconvlenp
!= NULL
)
921 ch
= utf_ptr2char(p
);
924 /* non-BMP character, encoding with surrogate pairs */
928 *outstr
++ = (0xD800 - (0x10000 >> 10)) + (ch
>> 10);
929 *outstr
++ = 0xDC00 | (ch
& 0x3FF);
932 else if (outstr
!= NULL
)
943 * Convert an UTF-16 string to UTF-8.
944 * The input is "instr[inlen]" with "inlen" in number of UTF-16 words.
945 * When "outstr" is NULL only return the required number of bytes.
946 * Otherwise "outstr" must be a buffer of sufficient size.
947 * Return the number of bytes produced.
950 utf16_to_utf8(short_u
*instr
, int inlen
, char_u
*outstr
)
961 if (ch
>= 0xD800 && ch
<= 0xDBFF && todo
> 1)
963 /* surrogate pairs handling */
965 if (ch2
>= 0xDC00 && ch2
<= 0xDFFF)
967 ch
= ((ch
- 0xD800) << 10) + (ch2
& 0x3FF) + 0x10000;
974 l
= utf_char2bytes(ch
, outstr
);
978 l
= utf_char2len(ch
);
988 * Call MultiByteToWideChar() and allocate memory for the result.
989 * Returns the result in "*out[*outlen]" with an extra zero appended.
990 * "outlen" is in words.
993 MultiByteToWideChar_alloc(UINT cp
, DWORD flags
,
994 LPCSTR in
, int inlen
,
995 LPWSTR
*out
, int *outlen
)
997 *outlen
= MultiByteToWideChar(cp
, flags
, in
, inlen
, 0, 0);
998 /* Add one one word to avoid a zero-length alloc(). */
999 *out
= (LPWSTR
)alloc(sizeof(WCHAR
) * (*outlen
+ 1));
1002 MultiByteToWideChar(cp
, flags
, in
, inlen
, *out
, *outlen
);
1003 (*out
)[*outlen
] = 0;
1008 * Call WideCharToMultiByte() and allocate memory for the result.
1009 * Returns the result in "*out[*outlen]" with an extra NUL appended.
1012 WideCharToMultiByte_alloc(UINT cp
, DWORD flags
,
1013 LPCWSTR in
, int inlen
,
1014 LPSTR
*out
, int *outlen
,
1015 LPCSTR def
, LPBOOL useddef
)
1017 *outlen
= WideCharToMultiByte(cp
, flags
, in
, inlen
, NULL
, 0, def
, useddef
);
1018 /* Add one one byte to avoid a zero-length alloc(). */
1019 *out
= alloc((unsigned)*outlen
+ 1);
1022 WideCharToMultiByte(cp
, flags
, in
, inlen
, *out
, *outlen
, def
, useddef
);
1023 (*out
)[*outlen
] = 0;
1027 #endif /* FEAT_MBYTE */
1029 #ifdef FEAT_CLIPBOARD
1031 * Clipboard stuff, for cutting and pasting text to other windows.
1034 /* Type used for the clipboard type of Vim's data. */
1037 int type
; /* MCHAR, MBLOCK or MLINE */
1038 int txtlen
; /* length of CF_TEXT in bytes */
1039 int ucslen
; /* length of CF_UNICODETEXT in words */
1040 int rawlen
; /* length of clip_star.format_raw, including encoding,
1041 excluding terminating NUL */
1045 * Make vim the owner of the current selection. Return OK upon success.
1049 clip_mch_own_selection(VimClipboard
*cbd
)
1052 * Never actually own the clipboard. If another application sets the
1053 * clipboard, we don't want to think that we still own it.
1059 * Make vim NOT the owner of the current selection.
1063 clip_mch_lose_selection(VimClipboard
*cbd
)
1065 /* Nothing needs to be done here */
1069 * Copy "str[*size]" into allocated memory, changing CR-NL to NL.
1070 * Return the allocated result and the size in "*size".
1071 * Returns NULL when out of memory.
1074 crnl_to_nl(const char_u
*str
, int *size
)
1077 int str_len
= *size
;
1081 /* Avoid allocating zero bytes, it generates an error message. */
1082 ret
= lalloc((long_u
)(str_len
== 0 ? 1 : str_len
), TRUE
);
1086 for (pos
= 0; pos
< str_len
; ++pos
)
1088 if (str
[pos
] == '\r' && str
[pos
+ 1] == '\n')
1100 #if defined(FEAT_MBYTE) || defined(PROTO)
1102 * Note: the following two functions are only guaranteed to work when using
1103 * valid MS-Windows codepages or when iconv() is available.
1107 * Convert "str" from 'encoding' to UTF-16.
1108 * Input in "str" with length "*lenp". When "lenp" is NULL, use strlen().
1109 * Output is returned as an allocated string. "*lenp" is set to the length of
1110 * the result. A trailing NUL is always added.
1111 * Returns NULL when out of memory.
1114 enc_to_utf16(char_u
*str
, int *lenp
)
1118 char_u
*allocbuf
= NULL
;
1124 len_loc
= (int)STRLEN(str
) + 1;
1128 if (enc_codepage
> 0)
1130 /* We can do any CP### -> UTF-16 in one pass, and we can do it
1131 * without iconv() (convert_* may need iconv). */
1132 MultiByteToWideChar_alloc(enc_codepage
, 0, str
, *lenp
, &ret
, &length
);
1136 /* Use "latin1" by default, we might be called before we have p_enc
1137 * set up. Convert to utf-8 first, works better with iconv(). Does
1138 * nothing if 'encoding' is "utf-8". */
1139 conv
.vc_type
= CONV_NONE
;
1140 if (convert_setup(&conv
, p_enc
? p_enc
: (char_u
*)"latin1",
1141 (char_u
*)"utf-8") == FAIL
)
1143 if (conv
.vc_type
!= CONV_NONE
)
1145 str
= allocbuf
= string_convert(&conv
, str
, lenp
);
1149 convert_setup(&conv
, NULL
, NULL
);
1151 length
= utf8_to_utf16(str
, *lenp
, NULL
, NULL
);
1152 ret
= (WCHAR
*)alloc((unsigned)((length
+ 1) * sizeof(WCHAR
)));
1155 utf8_to_utf16(str
, *lenp
, (short_u
*)ret
, NULL
);
1163 return (short_u
*)ret
;
1167 * Convert an UTF-16 string to 'encoding'.
1168 * Input in "str" with length (counted in wide characters) "*lenp". When
1169 * "lenp" is NULL, use wcslen().
1170 * Output is returned as an allocated string. If "*lenp" is not NULL it is
1171 * set to the length of the result.
1172 * Returns NULL when out of memory.
1175 utf16_to_enc(short_u
*str
, int *lenp
)
1178 char_u
*utf8_str
= NULL
, *enc_str
= NULL
;
1183 len_loc
= (int)wcslen(str
) + 1;
1187 if (enc_codepage
> 0)
1189 /* We can do any UTF-16 -> CP### in one pass. */
1192 WideCharToMultiByte_alloc(enc_codepage
, 0, str
, *lenp
,
1193 (LPSTR
*)&enc_str
, &length
, 0, 0);
1198 /* Avoid allocating zero bytes, it generates an error message. */
1199 utf8_str
= alloc(utf16_to_utf8(str
, *lenp
== 0 ? 1 : *lenp
, NULL
));
1200 if (utf8_str
!= NULL
)
1202 *lenp
= utf16_to_utf8(str
, *lenp
, utf8_str
);
1204 /* We might be called before we have p_enc set up. */
1205 conv
.vc_type
= CONV_NONE
;
1206 convert_setup(&conv
, (char_u
*)"utf-8",
1207 p_enc
? p_enc
: (char_u
*)"latin1");
1208 if (conv
.vc_type
== CONV_NONE
)
1210 /* p_enc is utf-8, so we're done. */
1215 enc_str
= string_convert(&conv
, utf8_str
, lenp
);
1219 convert_setup(&conv
, NULL
, NULL
);
1224 #endif /* FEAT_MBYTE */
1227 * Get the current selection and put it in the clipboard register.
1229 * NOTE: Must use GlobalLock/Unlock here to ensure Win32s compatibility.
1230 * On NT/W95 the clipboard data is a fixed global memory object and
1231 * so its handle = its pointer.
1232 * On Win32s, however, co-operation with the Win16 system means that
1233 * the clipboard data is moveable and its handle is not a pointer at all,
1234 * so we can't just cast the return value of GetClipboardData to (char_u*).
1238 clip_mch_request_selection(VimClipboard
*cbd
)
1240 VimClipType_t metadata
= { -1, -1, -1, -1 };
1241 HGLOBAL hMem
= NULL
;
1243 #if defined(FEAT_MBYTE) && defined(WIN3264)
1244 char_u
*to_free
= NULL
;
1247 HGLOBAL rawh
= NULL
;
1254 * Don't pass GetActiveWindow() as an argument to OpenClipboard() because
1255 * then we can't paste back into the same window for some reason - webb.
1257 if (!OpenClipboard(NULL
))
1260 /* Check for vim's own clipboard format first. This only gets the type of
1261 * the data, still need to use CF_UNICODETEXT or CF_TEXT for the text. */
1262 if (IsClipboardFormatAvailable(cbd
->format
))
1264 VimClipType_t
*meta_p
;
1267 /* We have metadata on the clipboard; try to get it. */
1268 if ((meta_h
= GetClipboardData(cbd
->format
)) != NULL
1269 && (meta_p
= (VimClipType_t
*)GlobalLock(meta_h
)) != NULL
)
1271 /* The size of "VimClipType_t" changed, "rawlen" was added later.
1272 * Only copy what is available for backwards compatibility. */
1273 n
= sizeof(VimClipType_t
);
1274 if (GlobalSize(meta_h
) < n
)
1275 n
= GlobalSize(meta_h
);
1276 memcpy(&metadata
, meta_p
, n
);
1277 GlobalUnlock(meta_h
);
1282 /* Check for Vim's raw clipboard format first. This is used without
1283 * conversion, but only if 'encoding' matches. */
1284 if (IsClipboardFormatAvailable(cbd
->format_raw
)
1285 && metadata
.rawlen
> (int)STRLEN(p_enc
))
1287 /* We have raw data on the clipboard; try to get it. */
1288 if ((rawh
= GetClipboardData(cbd
->format_raw
)) != NULL
)
1292 rawp
= (char_u
*)GlobalLock(rawh
);
1293 if (rawp
!= NULL
&& STRCMP(p_enc
, rawp
) == 0)
1295 n
= STRLEN(p_enc
) + 1;
1297 str_size
= (int)(metadata
.rawlen
- n
);
1310 #if defined(FEAT_MBYTE) && defined(WIN3264)
1311 /* Try to get the clipboard in Unicode if it's not an empty string. */
1312 if (IsClipboardFormatAvailable(CF_UNICODETEXT
) && metadata
.ucslen
!= 0)
1316 if ((hMemW
= GetClipboardData(CF_UNICODETEXT
)) != NULL
)
1318 WCHAR
*hMemWstr
= (WCHAR
*)GlobalLock(hMemW
);
1320 /* Use the length of our metadata if possible, but limit it to the
1321 * GlobalSize() for safety. */
1322 maxlen
= (int)(GlobalSize(hMemW
) / sizeof(WCHAR
));
1323 if (metadata
.ucslen
>= 0)
1325 if (metadata
.ucslen
> maxlen
)
1328 str_size
= metadata
.ucslen
;
1332 for (str_size
= 0; str_size
< maxlen
; ++str_size
)
1333 if (hMemWstr
[str_size
] == NUL
)
1336 to_free
= str
= utf16_to_enc((short_u
*)hMemWstr
, &str_size
);
1337 GlobalUnlock(hMemW
);
1342 /* Get the clipboard in the Active codepage. */
1343 if (IsClipboardFormatAvailable(CF_TEXT
))
1345 if ((hMem
= GetClipboardData(CF_TEXT
)) != NULL
)
1347 str
= (char_u
*)GlobalLock(hMem
);
1349 /* The length is either what our metadata says or the strlen().
1350 * But limit it to the GlobalSize() for safety. */
1351 maxlen
= (int)GlobalSize(hMem
);
1352 if (metadata
.txtlen
>= 0)
1354 if (metadata
.txtlen
> maxlen
)
1357 str_size
= metadata
.txtlen
;
1361 for (str_size
= 0; str_size
< maxlen
; ++str_size
)
1362 if (str
[str_size
] == NUL
)
1366 # if defined(FEAT_MBYTE) && defined(WIN3264)
1367 /* The text is in the active codepage. Convert to 'encoding',
1368 * going through UTF-16. */
1369 acp_to_enc(str
, str_size
, &to_free
, &maxlen
);
1370 if (to_free
!= NULL
)
1382 if (str
!= NULL
&& *str
!= NUL
)
1384 char_u
*temp_clipboard
;
1386 /* If the type is not known guess it. */
1387 if (metadata
.type
== -1)
1388 metadata
.type
= (vim_strchr(str
, '\n') == NULL
) ? MCHAR
: MLINE
;
1390 /* Translate <CR><NL> into <NL>. */
1391 temp_clipboard
= crnl_to_nl(str
, &str_size
);
1392 if (temp_clipboard
!= NULL
)
1394 clip_yank_selection(metadata
.type
, temp_clipboard
, str_size
, cbd
);
1395 vim_free(temp_clipboard
);
1399 /* unlock the global object */
1407 #if defined(FEAT_MBYTE) && defined(WIN3264)
1412 #if (defined(FEAT_MBYTE) && defined(WIN3264)) || defined(PROTO)
1414 * Convert from the active codepage to 'encoding'.
1415 * Input is "str[str_size]".
1416 * The result is in allocated memory: "out[outlen]". With terminating NUL.
1419 acp_to_enc(str
, str_size
, out
, outlen
)
1428 MultiByteToWideChar_alloc(GetACP(), 0, str
, str_size
, &widestr
, outlen
);
1429 if (widestr
!= NULL
)
1431 ++*outlen
; /* Include the 0 after the string */
1432 *out
= utf16_to_enc((short_u
*)widestr
, outlen
);
1439 * Send the current selection to the clipboard.
1442 clip_mch_set_selection(VimClipboard
*cbd
)
1445 VimClipType_t metadata
;
1447 HGLOBAL hMemRaw
= NULL
;
1448 HGLOBAL hMem
= NULL
;
1449 HGLOBAL hMemVim
= NULL
;
1450 # if defined(FEAT_MBYTE) && defined(WIN3264)
1451 HGLOBAL hMemW
= NULL
;
1454 /* If the '*' register isn't already filled in, fill it in now */
1456 clip_get_selection(cbd
);
1459 /* Get the text to be put on the clipboard, with CR-LF. */
1460 metadata
.type
= clip_convert_selection(&str
, &txtlen
, cbd
);
1461 if (metadata
.type
< 0)
1463 metadata
.txtlen
= (int)txtlen
;
1464 metadata
.ucslen
= 0;
1465 metadata
.rawlen
= 0;
1468 /* Always set the raw bytes: 'encoding', NUL and the text. This is used
1469 * when copy/paste from/to Vim with the same 'encoding', so that illegal
1470 * bytes can also be copied and no conversion is needed. */
1474 metadata
.rawlen
= (int)(txtlen
+ STRLEN(p_enc
) + 1);
1475 hMemRaw
= (LPSTR
)GlobalAlloc(GMEM_MOVEABLE
| GMEM_DDESHARE
,
1476 metadata
.rawlen
+ 1);
1477 lpszMemRaw
= (LPSTR
)GlobalLock(hMemRaw
);
1478 if (lpszMemRaw
!= NULL
)
1480 STRCPY(lpszMemRaw
, p_enc
);
1481 memcpy(lpszMemRaw
+ STRLEN(p_enc
) + 1, str
, txtlen
+ 1);
1482 GlobalUnlock(hMemRaw
);
1485 metadata
.rawlen
= 0;
1489 # if defined(FEAT_MBYTE) && defined(WIN3264)
1492 int len
= metadata
.txtlen
;
1494 /* Convert the text to UTF-16. This is put on the clipboard as
1495 * CF_UNICODETEXT. */
1496 out
= (WCHAR
*)enc_to_utf16(str
, &len
);
1501 /* Convert the text for CF_TEXT to Active codepage. Otherwise it's
1502 * p_enc, which has no relation to the Active codepage. */
1503 metadata
.txtlen
= WideCharToMultiByte(GetACP(), 0, out
, len
,
1506 str
= (char_u
*)alloc((unsigned)(metadata
.txtlen
== 0 ? 1
1507 : metadata
.txtlen
));
1511 return; /* out of memory */
1513 WideCharToMultiByte(GetACP(), 0, out
, len
,
1514 str
, metadata
.txtlen
, 0, 0);
1516 /* Allocate memory for the UTF-16 text, add one NUL word to
1517 * terminate the string. */
1518 hMemW
= (LPSTR
)GlobalAlloc(GMEM_MOVEABLE
| GMEM_DDESHARE
,
1519 (len
+ 1) * sizeof(WCHAR
));
1520 lpszMemW
= (WCHAR
*)GlobalLock(hMemW
);
1521 if (lpszMemW
!= NULL
)
1523 memcpy(lpszMemW
, out
, len
* sizeof(WCHAR
));
1524 lpszMemW
[len
] = NUL
;
1525 GlobalUnlock(hMemW
);
1528 metadata
.ucslen
= len
;
1533 /* Allocate memory for the text, add one NUL byte to terminate the string.
1535 hMem
= GlobalAlloc(GMEM_MOVEABLE
| GMEM_DDESHARE
, metadata
.txtlen
+ 1);
1537 LPSTR lpszMem
= (LPSTR
)GlobalLock(hMem
);
1541 vim_strncpy(lpszMem
, str
, metadata
.txtlen
);
1546 /* Set up metadata: */
1548 VimClipType_t
*lpszMemVim
= NULL
;
1550 hMemVim
= GlobalAlloc(GMEM_MOVEABLE
|GMEM_DDESHARE
,
1551 sizeof(VimClipType_t
));
1552 lpszMemVim
= (VimClipType_t
*)GlobalLock(hMemVim
);
1553 memcpy(lpszMemVim
, &metadata
, sizeof(metadata
));
1554 GlobalUnlock(hMemVim
);
1558 * Open the clipboard, clear it and put our text on it.
1559 * Always set our Vim format. Put Unicode and plain text on it.
1561 * Don't pass GetActiveWindow() as an argument to OpenClipboard()
1562 * because then we can't paste back into the same window for some
1565 if (OpenClipboard(NULL
))
1567 if (EmptyClipboard())
1569 SetClipboardData(cbd
->format
, hMemVim
);
1571 # if defined(FEAT_MBYTE) && defined(WIN3264)
1574 if (SetClipboardData(CF_UNICODETEXT
, hMemW
) != NULL
)
1578 /* Always use CF_TEXT. On Win98 Notepad won't obtain the
1579 * CF_UNICODETEXT text, only CF_TEXT. */
1580 SetClipboardData(CF_TEXT
, hMem
);
1587 /* Free any allocations we didn't give to the clipboard: */
1589 GlobalFree(hMemRaw
);
1592 # if defined(FEAT_MBYTE) && defined(WIN3264)
1597 GlobalFree(hMemVim
);
1600 #endif /* FEAT_CLIPBOARD */
1604 * Debugging helper: expose the MCH_WRITE_DUMP stuff to other modules
1611 # ifdef MCH_WRITE_DUMP
1615 if (psz
[strlen(psz
) - 1] != '\n')
1616 fputc('\n', fdDump
);
1632 va_start(args
, pszFormat
);
1633 vsprintf(szBuff
, pszFormat
, args
);
1636 OutputDebugString(szBuff
);
1641 #if !defined(FEAT_GUI) || defined(PROTO)
1642 # if defined(FEAT_TITLE) && defined(WIN3264)
1643 extern HWND g_hWnd
; /* This is in os_win32.c. */
1647 * Showing the printer dialog is tricky since we have no GUI
1648 * window to parent it. The following routines are needed to
1649 * get the window parenting and Z-order to work properly.
1652 GetConsoleHwnd(void)
1654 # define MY_BUFSIZE 1024 // Buffer size for console window titles.
1656 char pszNewWindowTitle
[MY_BUFSIZE
]; // Contains fabricated WindowTitle.
1657 char pszOldWindowTitle
[MY_BUFSIZE
]; // Contains original WindowTitle.
1659 /* Skip if it's already set. */
1663 # if defined(FEAT_TITLE) && defined(WIN3264)
1664 /* Window handle may have been found by init code (Windows NT only) */
1672 GetConsoleTitle(pszOldWindowTitle
, MY_BUFSIZE
);
1674 wsprintf(pszNewWindowTitle
, "%s/%d/%d",
1677 GetCurrentProcessId());
1678 SetConsoleTitle(pszNewWindowTitle
);
1680 s_hwnd
= FindWindow(NULL
, pszNewWindowTitle
);
1682 SetConsoleTitle(pszOldWindowTitle
);
1686 * Console implementation of ":winpos".
1689 mch_get_winpos(int *x
, int *y
)
1694 GetWindowRect(s_hwnd
, &rect
);
1701 * Console implementation of ":winpos x y".
1704 mch_set_winpos(int x
, int y
)
1707 SetWindowPos(s_hwnd
, NULL
, x
, y
, 0, 0,
1708 SWP_NOZORDER
| SWP_NOSIZE
| SWP_NOACTIVATE
);
1712 #if (defined(FEAT_PRINTER) && !defined(FEAT_POSTSCRIPT)) || defined(PROTO)
1717 /*=================================================================
1718 * Win32 printer stuff
1721 static HFONT prt_font_handles
[2][2][2];
1722 static PRINTDLG prt_dlg
;
1723 static const int boldface
[2] = {FW_REGULAR
, FW_BOLD
};
1724 static TEXTMETRIC prt_tm
;
1725 static int prt_line_height
;
1726 static int prt_number_width
;
1727 static int prt_left_margin
;
1728 static int prt_right_margin
;
1729 static int prt_top_margin
;
1730 static char_u szAppName
[] = TEXT("VIM");
1731 static HWND hDlgPrint
;
1732 static int *bUserAbort
= NULL
;
1733 static char_u
*prt_name
= NULL
;
1735 /* Defines which are also in vim.rc. */
1736 #define IDC_BOX1 400
1737 #define IDC_PRINTTEXT1 401
1738 #define IDC_PRINTTEXT2 402
1739 #define IDC_PROGRESS 403
1742 * Convert BGR to RGB for Windows GDI calls
1745 swap_me(COLORREF colorref
)
1748 char *ptr
= (char *)&colorref
;
1751 *(ptr
) = *(ptr
+ 2);
1756 /* Attempt to make this work for old and new compilers */
1758 # define PDP_RETVAL BOOL
1760 # define PDP_RETVAL INT_PTR
1764 static PDP_RETVAL CALLBACK
1765 PrintDlgProc(HWND hDlg
, UINT message
, WPARAM wParam
, LPARAM lParam
)
1768 NONCLIENTMETRICS nm
;
1776 nm
.cbSize
= sizeof(NONCLIENTMETRICS
);
1777 if (SystemParametersInfo(
1778 SPI_GETNONCLIENTMETRICS
,
1779 sizeof(NONCLIENTMETRICS
),
1783 char buff
[MAX_PATH
];
1786 /* Translate the dialog texts */
1787 hfont
= CreateFontIndirect(&nm
.lfMessageFont
);
1788 for (i
= IDC_PRINTTEXT1
; i
<= IDC_PROGRESS
; i
++)
1790 SendDlgItemMessage(hDlg
, i
, WM_SETFONT
, (WPARAM
)hfont
, 1);
1791 if (GetDlgItemText(hDlg
,i
, buff
, sizeof(buff
)))
1792 SetDlgItemText(hDlg
,i
, _(buff
));
1794 SendDlgItemMessage(hDlg
, IDCANCEL
,
1795 WM_SETFONT
, (WPARAM
)hfont
, 1);
1796 if (GetDlgItemText(hDlg
,IDCANCEL
, buff
, sizeof(buff
)))
1797 SetDlgItemText(hDlg
,IDCANCEL
, _(buff
));
1800 SetWindowText(hDlg
, szAppName
);
1801 if (prt_name
!= NULL
)
1803 SetDlgItemText(hDlg
, IDC_PRINTTEXT2
, (LPSTR
)prt_name
);
1807 EnableMenuItem(GetSystemMenu(hDlg
, FALSE
), SC_CLOSE
, MF_GRAYED
);
1809 BringWindowToTop(s_hwnd
);
1815 EnableWindow(GetParent(hDlg
), TRUE
);
1816 DestroyWindow(hDlg
);
1819 DeleteObject(hfont
);
1827 static BOOL CALLBACK
1828 AbortProc(HDC hdcPrn
, int iCode
)
1832 while (!*bUserAbort
&& PeekMessage(&msg
, NULL
, 0, 0, PM_REMOVE
))
1834 if (!hDlgPrint
|| !IsDialogMessage(hDlgPrint
, &msg
))
1836 TranslateMessage(&msg
);
1837 DispatchMessage(&msg
);
1840 return !*bUserAbort
;
1845 static UINT CALLBACK
1847 HWND hDlg
, // handle to dialog box
1848 UINT uiMsg
, // message identifier
1849 WPARAM wParam
, // message parameter
1850 LPARAM lParam
// message parameter
1854 RECT rc
, rcDlg
, rcOwner
;
1857 if (uiMsg
== WM_INITDIALOG
)
1859 // Get the owner window and dialog box rectangles.
1860 if ((hwndOwner
= GetParent(hDlg
)) == NULL
)
1861 hwndOwner
= GetDesktopWindow();
1863 GetWindowRect(hwndOwner
, &rcOwner
);
1864 GetWindowRect(hDlg
, &rcDlg
);
1865 CopyRect(&rc
, &rcOwner
);
1867 // Offset the owner and dialog box rectangles so that
1868 // right and bottom values represent the width and
1869 // height, and then offset the owner again to discard
1870 // space taken up by the dialog box.
1872 OffsetRect(&rcDlg
, -rcDlg
.left
, -rcDlg
.top
);
1873 OffsetRect(&rc
, -rc
.left
, -rc
.top
);
1874 OffsetRect(&rc
, -rcDlg
.right
, -rcDlg
.bottom
);
1876 // The new position is the sum of half the remaining
1877 // space and the owner's original position.
1881 rcOwner
.left
+ (rc
.right
/ 2),
1882 rcOwner
.top
+ (rc
.bottom
/ 2),
1883 0, 0, // ignores size arguments
1886 /* tackle the printdlg copiesctrl problem */
1887 pPD
= (PRINTDLG
*)lParam
;
1888 pPD
->nCopies
= (WORD
)pPD
->lCustData
;
1889 SetDlgItemInt( hDlg
, edt3
, pPD
->nCopies
, FALSE
);
1890 /* Bring the window to top */
1891 BringWindowToTop(GetParent(hDlg
));
1892 SetForegroundWindow(hDlg
);
1900 mch_print_cleanup(void)
1906 for (pifBold
= 0; pifBold
<= 1; pifBold
++)
1907 for (pifItalic
= 0; pifItalic
<= 1; pifItalic
++)
1908 for (pifUnderline
= 0; pifUnderline
<= 1; pifUnderline
++)
1909 DeleteObject(prt_font_handles
[pifBold
][pifItalic
][pifUnderline
]);
1911 if (prt_dlg
.hDC
!= NULL
)
1912 DeleteDC(prt_dlg
.hDC
);
1914 SendMessage(hDlgPrint
, WM_COMMAND
, 0, 0);
1918 to_device_units(int idx
, int dpi
, int physsize
, int offset
, int def_number
)
1924 u
= prt_get_unit(idx
);
1925 if (u
== PRT_UNIT_NONE
)
1931 nr
= printer_opts
[idx
].number
;
1936 ret
= (physsize
* nr
) / 100;
1942 ret
= (nr
* 10 * dpi
) / 254;
1944 case PRT_UNIT_POINT
:
1945 ret
= (nr
* 10 * dpi
) / 720;
1952 return ret
- offset
;
1967 GetTextMetrics(prt_dlg
.hDC
, &prt_tm
);
1968 prt_line_height
= prt_tm
.tmHeight
+ prt_tm
.tmExternalLeading
;
1970 hr
= GetDeviceCaps(prt_dlg
.hDC
, HORZRES
);
1972 Escape(prt_dlg
.hDC
, GETPHYSPAGESIZE
, NULL
, NULL
, &pagesize
);
1974 Escape(prt_dlg
.hDC
, GETPRINTINGOFFSET
, NULL
, NULL
, &pagesize
);
1977 phyw
= GetDeviceCaps(prt_dlg
.hDC
, PHYSICALWIDTH
);
1978 dvoff
= GetDeviceCaps(prt_dlg
.hDC
, PHYSICALOFFSETX
);
1980 dpi
= GetDeviceCaps(prt_dlg
.hDC
, LOGPIXELSX
);
1982 rev_offset
= phyw
- (dvoff
+ hr
);
1984 prt_left_margin
= to_device_units(OPT_PRINT_LEFT
, dpi
, phyw
, dvoff
, 10);
1985 if (prt_use_number())
1987 prt_number_width
= PRINT_NUMBER_WIDTH
* prt_tm
.tmAveCharWidth
;
1988 prt_left_margin
+= prt_number_width
;
1991 prt_number_width
= 0;
1993 prt_right_margin
= hr
- to_device_units(OPT_PRINT_RIGHT
, dpi
, phyw
,
1996 return (prt_right_margin
- prt_left_margin
) / prt_tm
.tmAveCharWidth
;
2012 vr
= GetDeviceCaps(prt_dlg
.hDC
, VERTRES
);
2014 Escape(prt_dlg
.hDC
, GETPHYSPAGESIZE
, NULL
, NULL
, &pagesize
);
2016 Escape(prt_dlg
.hDC
, GETPRINTINGOFFSET
, NULL
, NULL
, &pagesize
);
2019 phyw
= GetDeviceCaps(prt_dlg
.hDC
, PHYSICALHEIGHT
);
2020 dvoff
= GetDeviceCaps(prt_dlg
.hDC
, PHYSICALOFFSETY
);
2022 dpi
= GetDeviceCaps(prt_dlg
.hDC
, LOGPIXELSY
);
2024 rev_offset
= phyw
- (dvoff
+ vr
);
2026 prt_top_margin
= to_device_units(OPT_PRINT_TOP
, dpi
, phyw
, dvoff
, 5);
2028 /* adjust top margin if there is a header */
2029 prt_top_margin
+= prt_line_height
* prt_header_height();
2031 bottom_margin
= vr
- to_device_units(OPT_PRINT_BOT
, dpi
, phyw
,
2034 return (bottom_margin
- prt_top_margin
) / prt_line_height
;
2038 mch_print_init(prt_settings_T
*psettings
, char_u
*jobname
, int forceit
)
2040 static HGLOBAL stored_dm
= NULL
;
2041 static HGLOBAL stored_devn
= NULL
;
2042 static int stored_nCopies
= 1;
2043 static int stored_nFlags
= 0;
2054 bUserAbort
= &(psettings
->user_abort
);
2055 memset(&prt_dlg
, 0, sizeof(PRINTDLG
));
2056 prt_dlg
.lStructSize
= sizeof(PRINTDLG
);
2058 GetConsoleHwnd(); /* get value of s_hwnd */
2060 prt_dlg
.hwndOwner
= s_hwnd
;
2061 prt_dlg
.Flags
= PD_NOPAGENUMS
| PD_NOSELECTION
| PD_RETURNDC
;
2064 prt_dlg
.hDevMode
= stored_dm
;
2065 prt_dlg
.hDevNames
= stored_devn
;
2066 prt_dlg
.lCustData
= stored_nCopies
; // work around bug in print dialog
2069 * Use hook to prevent console window being sent to back
2071 prt_dlg
.lpfnPrintHook
= PrintHookProc
;
2072 prt_dlg
.Flags
|= PD_ENABLEPRINTHOOK
;
2074 prt_dlg
.Flags
|= stored_nFlags
;
2078 * If bang present, return default printer setup with no dialog
2079 * never show dialog if we are running over telnet
2087 prt_dlg
.Flags
|= PD_RETURNDEFAULT
;
2090 * MSDN suggests setting the first parameter to WINSPOOL for
2091 * NT, but NULL appears to work just as well.
2094 prt_dlg
.hDC
= CreateDC(NULL
, p_pdev
, NULL
, NULL
);
2098 prt_dlg
.Flags
|= PD_RETURNDEFAULT
;
2099 if (PrintDlg(&prt_dlg
) == 0)
2103 else if (PrintDlg(&prt_dlg
) == 0)
2108 * keep the previous driver context
2110 stored_dm
= prt_dlg
.hDevMode
;
2111 stored_devn
= prt_dlg
.hDevNames
;
2112 stored_nFlags
= prt_dlg
.Flags
;
2113 stored_nCopies
= prt_dlg
.nCopies
;
2116 if (prt_dlg
.hDC
== NULL
)
2118 EMSG(_("E237: Printer selection failed"));
2119 mch_print_cleanup();
2123 /* Not all printer drivers report the support of color (or grey) in the
2124 * same way. Let's set has_color if there appears to be some way to print
2126 i
= GetDeviceCaps(prt_dlg
.hDC
, NUMCOLORS
);
2127 psettings
->has_color
= (GetDeviceCaps(prt_dlg
.hDC
, BITSPIXEL
) > 1
2128 || GetDeviceCaps(prt_dlg
.hDC
, PLANES
) > 1
2129 || i
> 2 || i
== -1);
2131 /* Ensure all font styles are baseline aligned */
2132 SetTextAlign(prt_dlg
.hDC
, TA_BASELINE
|TA_LEFT
);
2135 * On some windows systems the nCopies parameter is not
2136 * passed back correctly. It must be retrieved from the
2139 mem
= (DEVMODE
*)GlobalLock(prt_dlg
.hDevMode
);
2143 if (mem
->dmCopies
!= 1)
2144 stored_nCopies
= mem
->dmCopies
;
2146 if ((mem
->dmFields
& DM_DUPLEX
) && (mem
->dmDuplex
& ~DMDUP_SIMPLEX
))
2147 psettings
->duplex
= TRUE
;
2148 if ((mem
->dmFields
& DM_COLOR
) && (mem
->dmColor
& DMCOLOR_COLOR
))
2149 psettings
->has_color
= TRUE
;
2151 GlobalUnlock(prt_dlg
.hDevMode
);
2153 devname
= (DEVNAMES
*)GlobalLock(prt_dlg
.hDevNames
);
2156 char_u
*printer_name
= (char_u
*)devname
+ devname
->wDeviceOffset
;
2157 char_u
*port_name
= (char_u
*)devname
+devname
->wOutputOffset
;
2158 char_u
*text
= _("to %s on %s");
2160 prt_name
= alloc((unsigned)(STRLEN(printer_name
) + STRLEN(port_name
)
2162 if (prt_name
!= NULL
)
2163 wsprintf(prt_name
, text
, printer_name
, port_name
);
2165 GlobalUnlock(prt_dlg
.hDevNames
);
2168 * Initialise the font according to 'printfont'
2170 memset(&fLogFont
, 0, sizeof(fLogFont
));
2171 if (get_logfont(&fLogFont
, p_pfn
, prt_dlg
.hDC
, TRUE
) == FAIL
)
2173 EMSG2(_("E613: Unknown printer font: %s"), p_pfn
);
2174 mch_print_cleanup();
2178 for (pifBold
= 0; pifBold
<= 1; pifBold
++)
2179 for (pifItalic
= 0; pifItalic
<= 1; pifItalic
++)
2180 for (pifUnderline
= 0; pifUnderline
<= 1; pifUnderline
++)
2182 fLogFont
.lfWeight
= boldface
[pifBold
];
2183 fLogFont
.lfItalic
= pifItalic
;
2184 fLogFont
.lfUnderline
= pifUnderline
;
2185 prt_font_handles
[pifBold
][pifItalic
][pifUnderline
]
2186 = CreateFontIndirect(&fLogFont
);
2189 SetBkMode(prt_dlg
.hDC
, OPAQUE
);
2190 SelectObject(prt_dlg
.hDC
, prt_font_handles
[0][0][0]);
2193 * Fill in the settings struct
2195 psettings
->chars_per_line
= prt_get_cpl();
2196 psettings
->lines_per_page
= prt_get_lpp();
2197 psettings
->n_collated_copies
= (prt_dlg
.Flags
& PD_COLLATE
)
2198 ? prt_dlg
.nCopies
: 1;
2199 psettings
->n_uncollated_copies
= (prt_dlg
.Flags
& PD_COLLATE
)
2200 ? 1 : prt_dlg
.nCopies
;
2202 if (psettings
->n_collated_copies
== 0)
2203 psettings
->n_collated_copies
= 1;
2205 if (psettings
->n_uncollated_copies
== 0)
2206 psettings
->n_uncollated_copies
= 1;
2208 psettings
->jobname
= jobname
;
2214 DWORD err
= CommDlgExtendedError();
2221 sprintf(buf
, "%ld", err
);
2222 EMSG2(_("E238: Print error: %s"), buf
);
2226 /* I suspect FormatMessage() doesn't work for values returned by
2227 * CommDlgExtendedError(). What does? */
2228 FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER
|
2229 FORMAT_MESSAGE_FROM_SYSTEM
|
2230 FORMAT_MESSAGE_IGNORE_INSERTS
,
2231 NULL
, err
, 0, (LPTSTR
)(&buf
), 0, NULL
);
2232 EMSG2(_("E238: Print error: %s"),
2233 buf
== NULL
? (char_u
*)_("Unknown") : buf
);
2234 LocalFree((LPVOID
)(buf
));
2238 msg_clr_eos(); /* Maybe canceled */
2240 mch_print_cleanup();
2247 mch_print_begin(prt_settings_T
*psettings
)
2253 hDlgPrint
= CreateDialog(GetModuleHandle(NULL
), TEXT("PrintDlgBox"),
2254 prt_dlg
.hwndOwner
, PrintDlgProc
);
2256 Escape(prt_dlg
.hDC
, SETABORTPROC
, 0, (LPSTR
)AbortProc
, NULL
);
2258 SetAbortProc(prt_dlg
.hDC
, AbortProc
);
2260 wsprintf(szBuffer
, _("Printing '%s'"), gettail(psettings
->jobname
));
2261 SetDlgItemText(hDlgPrint
, IDC_PRINTTEXT1
, (LPSTR
)szBuffer
);
2263 memset(&di
, 0, sizeof(DOCINFO
));
2264 di
.cbSize
= sizeof(DOCINFO
);
2265 di
.lpszDocName
= psettings
->jobname
;
2266 ret
= StartDoc(prt_dlg
.hDC
, &di
);
2269 /* Give focus back to main window (when using MDI). */
2278 mch_print_end(prt_settings_T
*psettings
)
2280 EndDoc(prt_dlg
.hDC
);
2282 SendMessage(hDlgPrint
, WM_COMMAND
, 0, 0);
2286 mch_print_end_page(void)
2288 return (EndPage(prt_dlg
.hDC
) > 0);
2292 mch_print_begin_page(char_u
*msg
)
2295 SetDlgItemText(hDlgPrint
, IDC_PROGRESS
, (LPSTR
)msg
);
2296 return (StartPage(prt_dlg
.hDC
) > 0);
2300 mch_print_blank_page(void)
2302 return (mch_print_begin_page(NULL
) ? (mch_print_end_page()) : FALSE
);
2305 static int prt_pos_x
= 0;
2306 static int prt_pos_y
= 0;
2309 mch_print_start_line(margin
, page_line
)
2314 prt_pos_x
= -prt_number_width
;
2317 prt_pos_y
= page_line
* prt_line_height
2318 + prt_tm
.tmAscent
+ prt_tm
.tmExternalLeading
;
2322 mch_print_text_out(char_u
*p
, int len
)
2324 #ifdef FEAT_PROPORTIONAL_FONTS
2328 TextOut(prt_dlg
.hDC
, prt_pos_x
+ prt_left_margin
,
2329 prt_pos_y
+ prt_top_margin
, p
, len
);
2330 #ifndef FEAT_PROPORTIONAL_FONTS
2331 prt_pos_x
+= len
* prt_tm
.tmAveCharWidth
;
2332 return (prt_pos_x
+ prt_left_margin
+ prt_tm
.tmAveCharWidth
2333 + prt_tm
.tmOverhang
> prt_right_margin
);
2336 GetTextExtentPoint(prt_dlg
.hDC
, p
, len
, &sz
);
2338 GetTextExtentPoint32(prt_dlg
.hDC
, p
, len
, &sz
);
2340 prt_pos_x
+= (sz
.cx
- prt_tm
.tmOverhang
);
2341 /* This is wrong when printing spaces for a TAB. */
2345 GetTextExtentPoint(prt_dlg
.hDC
, p
+ len
, 1, &sz
);
2347 GetTextExtentPoint32(prt_dlg
.hDC
, p
+ len
, 1, &sz
);
2349 return (prt_pos_x
+ prt_left_margin
+ sz
.cx
> prt_right_margin
);
2354 mch_print_set_font(int iBold
, int iItalic
, int iUnderline
)
2356 SelectObject(prt_dlg
.hDC
, prt_font_handles
[iBold
][iItalic
][iUnderline
]);
2360 mch_print_set_bg(long_u bgcol
)
2362 SetBkColor(prt_dlg
.hDC
, GetNearestColor(prt_dlg
.hDC
,
2363 swap_me((COLORREF
)bgcol
)));
2365 * With a white background we can draw characters transparent, which is
2366 * good for italic characters that overlap to the next char cell.
2368 if (bgcol
== 0xffffffUL
)
2369 SetBkMode(prt_dlg
.hDC
, TRANSPARENT
);
2371 SetBkMode(prt_dlg
.hDC
, OPAQUE
);
2375 mch_print_set_fg(long_u fgcol
)
2377 SetTextColor(prt_dlg
.hDC
, GetNearestColor(prt_dlg
.hDC
,
2378 swap_me((COLORREF
)fgcol
)));
2381 #endif /*FEAT_PRINTER && !FEAT_POSTSCRIPT*/
2385 #if defined(FEAT_SHORTCUT) || defined(PROTO)
2386 # include <shlobj.h>
2389 * When "fname" is the name of a shortcut (*.lnk) resolve the file it points
2390 * to and return that name in allocated memory.
2391 * Otherwise NULL is returned.
2394 mch_resolve_shortcut(char_u
*fname
)
2397 IShellLink
*psl
= NULL
;
2398 IPersistFile
*ppf
= NULL
;
2399 OLECHAR wsz
[MAX_PATH
];
2400 WIN32_FIND_DATA ffd
; // we get those free of charge
2401 TCHAR buf
[MAX_PATH
]; // could have simply reused 'wsz'...
2402 char_u
*rfname
= NULL
;
2405 /* Check if the file name ends in ".lnk". Avoid calling
2406 * CoCreateInstance(), it's quite slow. */
2409 len
= (int)STRLEN(fname
);
2410 if (len
<= 4 || STRNICMP(fname
+ len
- 4, ".lnk", 4) != 0)
2415 // create a link manager object and request its interface
2416 hr
= CoCreateInstance(
2417 &CLSID_ShellLink
, NULL
, CLSCTX_INPROC_SERVER
,
2418 &IID_IShellLink
, (void**)&psl
);
2420 goto shortcut_error
;
2422 // Get a pointer to the IPersistFile interface.
2423 hr
= psl
->lpVtbl
->QueryInterface(
2424 psl
, &IID_IPersistFile
, (void**)&ppf
);
2426 goto shortcut_error
;
2428 // full path string must be in Unicode.
2429 MultiByteToWideChar(CP_ACP
, 0, fname
, -1, wsz
, MAX_PATH
);
2431 // "load" the name and resolve the link
2432 hr
= ppf
->lpVtbl
->Load(ppf
, wsz
, STGM_READ
);
2434 goto shortcut_error
;
2435 #if 0 // This makes Vim wait a long time if the target doesn't exist.
2436 hr
= psl
->lpVtbl
->Resolve(psl
, NULL
, SLR_NO_UI
);
2438 goto shortcut_error
;
2441 // Get the path to the link target.
2442 ZeroMemory(buf
, MAX_PATH
);
2443 hr
= psl
->lpVtbl
->GetPath(psl
, buf
, MAX_PATH
, &ffd
, 0);
2444 if (hr
== S_OK
&& buf
[0] != NUL
)
2445 rfname
= vim_strsave(buf
);
2448 // Release all interface pointers (both belong to the same object)
2450 ppf
->lpVtbl
->Release(ppf
);
2452 psl
->lpVtbl
->Release(psl
);
2459 #if (defined(FEAT_EVAL) && !defined(FEAT_GUI)) || defined(PROTO)
2461 * Bring ourselves to the foreground. Does work if the OS doesn't allow it.
2464 win32_set_foreground()
2467 GetConsoleHwnd(); /* get value of s_hwnd */
2470 SetForegroundWindow(s_hwnd
);
2474 #if defined(FEAT_CLIENTSERVER) || defined(PROTO)
2476 * Client-server code for Vim
2478 * Originally written by Paul Moore
2481 /* In order to handle inter-process messages, we need to have a window. But
2482 * the functions in this module can be called before the main GUI window is
2483 * created (and may also be called in the console version, where there is no
2484 * GUI window at all).
2486 * So we create a hidden window, and arrange to destroy it on exit.
2488 HWND message_window
= 0; /* window that's handling messsages */
2490 #define VIM_CLASSNAME "VIM_MESSAGES"
2491 #define VIM_CLASSNAME_LEN (sizeof(VIM_CLASSNAME) - 1)
2493 /* Communication is via WM_COPYDATA messages. The message type is send in
2494 * the dwData parameter. Types are defined here. */
2495 #define COPYDATA_KEYS 0
2496 #define COPYDATA_REPLY 1
2497 #define COPYDATA_EXPR 10
2498 #define COPYDATA_RESULT 11
2499 #define COPYDATA_ERROR_RESULT 12
2500 #define COPYDATA_ENCODING 20
2502 /* This is a structure containing a server HWND and its name. */
2509 /* Last received 'encoding' that the client uses. */
2510 static char_u
*client_enc
= NULL
;
2513 * Tell the other side what encoding we are using.
2514 * Errors are ignored.
2517 serverSendEnc(HWND target
)
2519 COPYDATASTRUCT data
;
2521 data
.dwData
= COPYDATA_ENCODING
;
2523 data
.cbData
= (DWORD
)STRLEN(p_enc
) + 1;
2524 data
.lpData
= p_enc
;
2526 data
.cbData
= STRLEN("latin1") + 1;
2527 data
.lpData
= "latin1";
2529 (void)SendMessage(target
, WM_COPYDATA
, (WPARAM
)message_window
,
2534 * Clean up on exit. This destroys the hidden message window.
2540 CleanUpMessaging(void)
2542 if (message_window
!= 0)
2544 DestroyWindow(message_window
);
2549 static int save_reply(HWND server
, char_u
*reply
, int expr
);
2552 * The window procedure for the hidden message window.
2553 * It handles callback messages and notifications from servers.
2554 * In order to process these messages, it is necessary to run a
2555 * message loop. Code which may run before the main message loop
2556 * is started (in the GUI) is careful to pump messages when it needs
2557 * to. Features which require message delivery during normal use will
2558 * not work in the console version - this basically means those
2559 * features which allow Vim to act as a server, rather than a client.
2561 static LRESULT CALLBACK
2562 Messaging_WndProc(HWND hwnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
)
2564 if (msg
== WM_COPYDATA
)
2566 /* This is a message from another Vim. The dwData member of the
2567 * COPYDATASTRUCT determines the type of message:
2568 * COPYDATA_ENCODING:
2569 * The encoding that the client uses. Following messages will
2570 * use this encoding, convert if needed.
2572 * A key sequence. We are a server, and a client wants these keys
2573 * adding to the input queue.
2575 * A reply. We are a client, and a server has sent this message
2576 * in response to a request. (server2client())
2578 * An expression. We are a server, and a client wants us to
2579 * evaluate this expression.
2581 * A reply. We are a client, and a server has sent this message
2582 * in response to a COPYDATA_EXPR.
2583 * COPYDATA_ERROR_RESULT:
2584 * A reply. We are a client, and a server has sent this message
2585 * in response to a COPYDATA_EXPR that failed to evaluate.
2587 COPYDATASTRUCT
*data
= (COPYDATASTRUCT
*)lParam
;
2588 HWND sender
= (HWND
)wParam
;
2589 COPYDATASTRUCT reply
;
2596 switch (data
->dwData
)
2598 case COPYDATA_ENCODING
:
2600 /* Remember the encoding that the client uses. */
2601 vim_free(client_enc
);
2602 client_enc
= enc_canonize((char_u
*)data
->lpData
);
2607 /* Remember who sent this, for <client> */
2608 clientWindow
= sender
;
2610 /* Add the received keys to the input buffer. The loop waiting
2611 * for the user to do something should check the input buffer. */
2612 str
= serverConvert(client_enc
, (char_u
*)data
->lpData
, &tofree
);
2613 server_to_input_buf(str
);
2617 /* Wake up the main GUI loop. */
2619 PostMessage(s_hwnd
, WM_NULL
, 0, 0);
2624 /* Remember who sent this, for <client> */
2625 clientWindow
= sender
;
2627 str
= serverConvert(client_enc
, (char_u
*)data
->lpData
, &tofree
);
2628 res
= eval_client_expr_to_string(str
);
2633 res
= vim_strsave(_(e_invexprmsg
));
2634 reply
.dwData
= COPYDATA_ERROR_RESULT
;
2637 reply
.dwData
= COPYDATA_RESULT
;
2639 reply
.cbData
= (DWORD
)STRLEN(res
) + 1;
2641 serverSendEnc(sender
);
2642 retval
= (int)SendMessage(sender
, WM_COPYDATA
, (WPARAM
)message_window
,
2647 case COPYDATA_REPLY
:
2648 case COPYDATA_RESULT
:
2649 case COPYDATA_ERROR_RESULT
:
2650 if (data
->lpData
!= NULL
)
2652 str
= serverConvert(client_enc
, (char_u
*)data
->lpData
,
2655 str
= vim_strsave(str
);
2656 if (save_reply(sender
, str
,
2657 (data
->dwData
== COPYDATA_REPLY
? 0 :
2658 (data
->dwData
== COPYDATA_RESULT
? 1 :
2662 else if (data
->dwData
== COPYDATA_REPLY
)
2664 sprintf((char *)winstr
, PRINTF_HEX_LONG_U
, (long_u
)sender
);
2665 apply_autocmds(EVENT_REMOTEREPLY
, winstr
, str
,
2676 else if (msg
== WM_ACTIVATE
&& wParam
== WA_ACTIVE
)
2678 /* When the message window is activated (brought to the foreground),
2679 * this actually applies to the text window. */
2681 GetConsoleHwnd(); /* get value of s_hwnd */
2685 SetForegroundWindow(s_hwnd
);
2690 return DefWindowProc(hwnd
, msg
, wParam
, lParam
);
2694 * Initialise the message handling process. This involves creating a window
2695 * to handle messages - the window will not be visible.
2698 serverInitMessaging(void)
2703 /* Clean up on exit */
2704 atexit(CleanUpMessaging
);
2706 /* Register a window class - we only really care
2707 * about the window procedure
2709 s_hinst
= (HINSTANCE
)GetModuleHandle(0);
2711 wndclass
.lpfnWndProc
= Messaging_WndProc
;
2712 wndclass
.cbClsExtra
= 0;
2713 wndclass
.cbWndExtra
= 0;
2714 wndclass
.hInstance
= s_hinst
;
2715 wndclass
.hIcon
= NULL
;
2716 wndclass
.hCursor
= NULL
;
2717 wndclass
.hbrBackground
= NULL
;
2718 wndclass
.lpszMenuName
= NULL
;
2719 wndclass
.lpszClassName
= VIM_CLASSNAME
;
2720 RegisterClass(&wndclass
);
2722 /* Create the message window. It will be hidden, so the details don't
2723 * matter. Don't use WS_OVERLAPPEDWINDOW, it will make a shortcut remove
2724 * focus from gvim. */
2725 message_window
= CreateWindow(VIM_CLASSNAME
, "",
2726 WS_POPUPWINDOW
| WS_CAPTION
,
2727 CW_USEDEFAULT
, CW_USEDEFAULT
,
2728 100, 100, NULL
, NULL
,
2732 /* Used by serverSendToVim() to find an alternate server name. */
2733 static char_u
*altname_buf_ptr
= NULL
;
2736 * Get the title of the window "hwnd", which is the Vim server name, in
2737 * "name[namelen]" and return the length.
2738 * Returns zero if window "hwnd" is not a Vim server.
2741 getVimServerName(HWND hwnd
, char *name
, int namelen
)
2744 char buffer
[VIM_CLASSNAME_LEN
+ 1];
2746 /* Ignore windows which aren't Vim message windows */
2747 len
= GetClassName(hwnd
, buffer
, sizeof(buffer
));
2748 if (len
!= VIM_CLASSNAME_LEN
|| STRCMP(buffer
, VIM_CLASSNAME
) != 0)
2751 /* Get the title of the window */
2752 return GetWindowText(hwnd
, name
, namelen
);
2755 static BOOL CALLBACK
2756 enumWindowsGetServer(HWND hwnd
, LPARAM lparam
)
2758 struct server_id
*id
= (struct server_id
*)lparam
;
2759 char server
[MAX_PATH
];
2761 /* Get the title of the window */
2762 if (getVimServerName(hwnd
, server
, sizeof(server
)) == 0)
2765 /* If this is the server we're looking for, return its HWND */
2766 if (STRICMP(server
, id
->name
) == 0)
2772 /* If we are looking for an alternate server, remember this name. */
2773 if (altname_buf_ptr
!= NULL
2774 && STRNICMP(server
, id
->name
, STRLEN(id
->name
)) == 0
2775 && vim_isdigit(server
[STRLEN(id
->name
)]))
2777 STRCPY(altname_buf_ptr
, server
);
2778 altname_buf_ptr
= NULL
; /* don't use another name */
2781 /* Otherwise, keep looking */
2785 static BOOL CALLBACK
2786 enumWindowsGetNames(HWND hwnd
, LPARAM lparam
)
2788 garray_T
*ga
= (garray_T
*)lparam
;
2789 char server
[MAX_PATH
];
2791 /* Get the title of the window */
2792 if (getVimServerName(hwnd
, server
, sizeof(server
)) == 0)
2795 /* Add the name to the list */
2796 ga_concat(ga
, server
);
2797 ga_concat(ga
, "\n");
2802 findServer(char_u
*name
)
2804 struct server_id id
;
2809 EnumWindows(enumWindowsGetServer
, (LPARAM
)(&id
));
2815 serverSetName(char_u
*name
)
2822 /* Leave enough space for a 9-digit suffix to ensure uniqueness! */
2823 ok_name
= alloc((unsigned)STRLEN(name
) + 10);
2825 STRCPY(ok_name
, name
);
2826 p
= ok_name
+ STRLEN(name
);
2830 /* This is inefficient - we're doing an EnumWindows loop for each
2831 * possible name. It would be better to grab all names in one go,
2832 * and scan the list each time...
2834 hwnd
= findServer(ok_name
);
2842 sprintf((char *)p
, "%d", i
);
2849 /* Remember the name */
2850 serverName
= ok_name
;
2852 need_maketitle
= TRUE
; /* update Vim window title later */
2855 /* Update the message window title */
2856 SetWindowText(message_window
, ok_name
);
2859 /* Set the servername variable */
2860 set_vim_var_string(VV_SEND_SERVER
, serverName
, -1);
2866 serverGetVimNames(void)
2870 ga_init2(&ga
, 1, 100);
2872 EnumWindows(enumWindowsGetNames
, (LPARAM
)(&ga
));
2873 ga_append(&ga
, NUL
);
2879 serverSendReply(name
, reply
)
2880 char_u
*name
; /* Where to send. */
2881 char_u
*reply
; /* What to send. */
2884 COPYDATASTRUCT data
;
2887 /* The "name" argument is a magic cookie obtained from expand("<client>").
2888 * It should be of the form 0xXXXXX - i.e. a C hex literal, which is the
2889 * value of the client's message window HWND.
2891 sscanf((char *)name
, SCANF_HEX_LONG_U
, &n
);
2896 if (!IsWindow(target
))
2899 data
.dwData
= COPYDATA_REPLY
;
2900 data
.cbData
= (DWORD
)STRLEN(reply
) + 1;
2901 data
.lpData
= reply
;
2903 serverSendEnc(target
);
2904 if (SendMessage(target
, WM_COPYDATA
, (WPARAM
)message_window
,
2912 serverSendToVim(name
, cmd
, result
, ptarget
, asExpr
, silent
)
2913 char_u
*name
; /* Where to send. */
2914 char_u
*cmd
; /* What to send. */
2915 char_u
**result
; /* Result of eval'ed expression */
2916 void *ptarget
; /* HWND of server */
2917 int asExpr
; /* Expression or keys? */
2918 int silent
; /* don't complain about no server */
2921 COPYDATASTRUCT data
;
2922 char_u
*retval
= NULL
;
2924 char_u altname_buf
[MAX_PATH
];
2926 /* If the server name does not end in a digit then we look for an
2927 * alternate name. e.g. when "name" is GVIM the we may find GVIM2. */
2928 if (STRLEN(name
) > 1 && !vim_isdigit(name
[STRLEN(name
) - 1]))
2929 altname_buf_ptr
= altname_buf
;
2930 altname_buf
[0] = NUL
;
2931 target
= findServer(name
);
2932 altname_buf_ptr
= NULL
;
2933 if (target
== 0 && altname_buf
[0] != NUL
)
2934 /* Use another server name we found. */
2935 target
= findServer(altname_buf
);
2940 EMSG2(_(e_noserver
), name
);
2945 *(HWND
*)ptarget
= target
;
2947 data
.dwData
= asExpr
? COPYDATA_EXPR
: COPYDATA_KEYS
;
2948 data
.cbData
= (DWORD
)STRLEN(cmd
) + 1;
2951 serverSendEnc(target
);
2952 if (SendMessage(target
, WM_COPYDATA
, (WPARAM
)message_window
,
2953 (LPARAM
)(&data
)) == 0)
2957 retval
= serverGetReply(target
, &retcode
, TRUE
, TRUE
);
2962 *result
= retval
; /* Caller assumes responsibility for freeing */
2968 * Bring the server to the foreground.
2971 serverForeground(name
)
2974 HWND target
= findServer(name
);
2977 SetForegroundWindow(target
);
2980 /* Replies from server need to be stored until the client picks them up via
2981 * remote_read(). So we maintain a list of server-id/reply pairs.
2982 * Note that there could be multiple replies from one server pending if the
2983 * client is slow picking them up.
2984 * We just store the replies in a simple list. When we remove an entry, we
2985 * move list entries down to fill the gap.
2986 * The server ID is simply the HWND.
2990 HWND server
; /* server window */
2991 char_u
*reply
; /* reply string */
2992 int expr_result
; /* 0 for REPLY, 1 for RESULT 2 for error */
2995 static garray_T reply_list
= {0, 0, sizeof(reply_T
), 5, 0};
2997 #define REPLY_ITEM(i) ((reply_T *)(reply_list.ga_data) + (i))
2998 #define REPLY_COUNT (reply_list.ga_len)
3000 /* Flag which is used to wait for a reply */
3001 static int reply_received
= 0;
3004 * Store a reply. "reply" must be allocated memory (or NULL).
3007 save_reply(HWND server
, char_u
*reply
, int expr
)
3011 if (ga_grow(&reply_list
, 1) == FAIL
)
3014 rep
= REPLY_ITEM(REPLY_COUNT
);
3015 rep
->server
= server
;
3017 rep
->expr_result
= expr
;
3018 if (rep
->reply
== NULL
)
3027 * Get a reply from server "server".
3028 * When "expr_res" is non NULL, get the result of an expression, otherwise a
3029 * server2client() message.
3030 * When non NULL, point to return code. 0 => OK, -1 => ERROR
3031 * If "remove" is TRUE, consume the message, the caller must free it then.
3032 * if "wait" is TRUE block until a message arrives (or the server exits).
3035 serverGetReply(HWND server
, int *expr_res
, int remove
, int wait
)
3041 /* When waiting, loop until the message waiting for is received. */
3044 /* Reset this here, in case a message arrives while we are going
3045 * through the already received messages. */
3048 for (i
= 0; i
< REPLY_COUNT
; ++i
)
3050 rep
= REPLY_ITEM(i
);
3051 if (rep
->server
== server
3052 && ((rep
->expr_result
!= 0) == (expr_res
!= NULL
)))
3054 /* Save the values we've found for later */
3056 if (expr_res
!= NULL
)
3057 *expr_res
= rep
->expr_result
== 1 ? 0 : -1;
3061 /* Move the rest of the list down to fill the gap */
3062 mch_memmove(rep
, rep
+ 1,
3063 (REPLY_COUNT
- i
- 1) * sizeof(reply_T
));
3067 /* Return the reply to the caller, who takes on responsibility
3068 * for freeing it if "remove" is TRUE. */
3073 /* If we got here, we didn't find a reply. Return immediately if the
3074 * "wait" parameter isn't set. */
3078 /* We need to wait for a reply. Enter a message loop until the
3079 * "reply_received" flag gets set. */
3081 /* Loop until we receive a reply */
3082 while (reply_received
== 0)
3084 /* Wait for a SendMessage() call to us. This could be the reply
3085 * we are waiting for. Use a timeout of a second, to catch the
3086 * situation that the server died unexpectedly. */
3087 MsgWaitForMultipleObjects(0, NULL
, TRUE
, 1000, QS_ALLINPUT
);
3089 /* If the server has died, give up */
3090 if (!IsWindow(server
))
3093 serverProcessPendingMessages();
3101 * Process any messages in the Windows message queue.
3104 serverProcessPendingMessages(void)
3108 while (PeekMessage(&msg
, NULL
, 0, 0, PM_REMOVE
))
3110 TranslateMessage(&msg
);
3111 DispatchMessage(&msg
);
3115 #endif /* FEAT_CLIENTSERVER */
3117 #if defined(FEAT_GUI) || (defined(FEAT_PRINTER) && !defined(FEAT_POSTSCRIPT)) \
3126 static struct charset_pair
3129 {"ANSI", ANSI_CHARSET
},
3130 {"CHINESEBIG5", CHINESEBIG5_CHARSET
},
3131 {"DEFAULT", DEFAULT_CHARSET
},
3132 {"HANGEUL", HANGEUL_CHARSET
},
3133 {"OEM", OEM_CHARSET
},
3134 {"SHIFTJIS", SHIFTJIS_CHARSET
},
3135 {"SYMBOL", SYMBOL_CHARSET
},
3137 {"ARABIC", ARABIC_CHARSET
},
3138 {"BALTIC", BALTIC_CHARSET
},
3139 {"EASTEUROPE", EASTEUROPE_CHARSET
},
3140 {"GB2312", GB2312_CHARSET
},
3141 {"GREEK", GREEK_CHARSET
},
3142 {"HEBREW", HEBREW_CHARSET
},
3143 {"JOHAB", JOHAB_CHARSET
},
3144 {"MAC", MAC_CHARSET
},
3145 {"RUSSIAN", RUSSIAN_CHARSET
},
3146 {"THAI", THAI_CHARSET
},
3147 {"TURKISH", TURKISH_CHARSET
},
3148 # if (!defined(_MSC_VER) || (_MSC_VER > 1010)) \
3149 && (!defined(__BORLANDC__) || (__BORLANDC__ > 0x0500))
3150 {"VIETNAMESE", VIETNAMESE_CHARSET
},
3157 * Convert a charset ID to a name.
3158 * Return NULL when not recognized.
3161 charset_id2name(int id
)
3163 struct charset_pair
*cp
;
3165 for (cp
= charset_pairs
; cp
->name
!= NULL
; ++cp
)
3166 if ((BYTE
)id
== cp
->charset
)
3171 static const LOGFONT s_lfDefault
=
3173 -12, 0, 0, 0, FW_NORMAL
, FALSE
, FALSE
, FALSE
, DEFAULT_CHARSET
,
3174 OUT_DEFAULT_PRECIS
, CLIP_DEFAULT_PRECIS
,
3175 PROOF_QUALITY
, FIXED_PITCH
| FF_DONTCARE
,
3176 "Fixedsys" /* see _ReadVimIni */
3179 /* Initialise the "current height" to -12 (same as s_lfDefault) just
3180 * in case the user specifies a font in "guifont" with no size before a font
3181 * with an explicit size has been set. This defaults the size to this value
3182 * (-12 equates to roughly 9pt).
3184 int current_font_height
= -12; /* also used in gui_w48.c */
3186 /* Convert a string representing a point size into pixels. The string should
3187 * be a positive decimal number, with an optional decimal point (eg, "12", or
3188 * "10.5"). The pixel value is returned, and a pointer to the next unconverted
3189 * character is stored in *end. The flag "vertical" says whether this
3190 * calculation is for a vertical (height) size or a horizontal (width) one.
3193 points_to_pixels(char_u
*str
, char_u
**end
, int vertical
, long_i pprinter_dc
)
3198 HWND hwnd
= (HWND
)0;
3200 HDC printer_dc
= (HDC
)pprinter_dc
;
3204 if (*str
== '.' && divisor
== 0)
3206 /* Start keeping a divisor, for later */
3211 if (!VIM_ISDIGIT(*str
))
3215 points
+= *str
- '0';
3224 if (printer_dc
== NULL
)
3226 hwnd
= GetDesktopWindow();
3227 hdc
= GetWindowDC(hwnd
);
3232 pixels
= MulDiv(points
,
3233 GetDeviceCaps(hdc
, vertical
? LOGPIXELSY
: LOGPIXELSX
),
3236 if (printer_dc
== NULL
)
3237 ReleaseDC(hwnd
, hdc
);
3252 * 0 = terminate now (monospace & ANSI)
3253 * 1 = continue, still no luck...
3254 * 2 = continue, but we have an acceptable LOGFONT
3255 * (monospace, not ANSI)
3256 * We use these values, as EnumFontFamilies returns 1 if the
3257 * callback function is never called. So, we check the return as
3258 * 0 = perfect, 2 = OK, 1 = no good...
3259 * It's not pretty, but it works!
3262 LOGFONT
*lf
= (LOGFONT
*)(lparam
);
3264 #ifndef FEAT_PROPORTIONAL_FONTS
3265 /* Ignore non-monospace fonts without further ado */
3266 if ((ntm
->tmPitchAndFamily
& 1) != 0)
3270 /* Remember this LOGFONT as a "possible" */
3271 *lf
= elf
->elfLogFont
;
3273 /* Terminate the scan as soon as we find an ANSI font */
3274 if (lf
->lfCharSet
== ANSI_CHARSET
3275 || lf
->lfCharSet
== OEM_CHARSET
3276 || lf
->lfCharSet
== DEFAULT_CHARSET
)
3279 /* Continue the scan - we have a non-ANSI font */
3284 init_logfont(LOGFONT
*lf
)
3287 HWND hwnd
= GetDesktopWindow();
3288 HDC hdc
= GetWindowDC(hwnd
);
3290 n
= EnumFontFamilies(hdc
,
3291 (LPCSTR
)lf
->lfFaceName
,
3292 (FONTENUMPROC
)font_enumproc
,
3295 ReleaseDC(hwnd
, hdc
);
3297 /* If we couldn't find a useable font, return failure */
3301 /* Tidy up the rest of the LOGFONT structure. We set to a basic
3302 * font - get_logfont() sets bold, italic, etc based on the user's
3305 lf
->lfHeight
= current_font_height
;
3307 lf
->lfItalic
= FALSE
;
3308 lf
->lfUnderline
= FALSE
;
3309 lf
->lfStrikeOut
= FALSE
;
3310 lf
->lfWeight
= FW_NORMAL
;
3312 /* Return success */
3317 * Get font info from "name" into logfont "lf".
3318 * Return OK for a valid name, FAIL otherwise.
3329 static LOGFONT
*lastlf
= NULL
;
3335 if (STRCMP(name
, "*") == 0)
3337 #if defined(FEAT_GUI_W32)
3339 /* if name is "*", bring up std font dialog: */
3340 memset(&cf
, 0, sizeof(cf
));
3341 cf
.lStructSize
= sizeof(cf
);
3342 cf
.hwndOwner
= s_hwnd
;
3343 cf
.Flags
= CF_SCREENFONTS
| CF_FIXEDPITCHONLY
| CF_INITTOLOGFONTSTRUCT
;
3347 cf
.nFontType
= 0 ; //REGULAR_FONTTYPE;
3348 if (ChooseFont(&cf
))
3356 * Split name up, it could be <name>:h<height>:w<width> etc.
3358 for (p
= name
; *p
&& *p
!= ':'; p
++)
3360 if (p
- name
+ 1 > LF_FACESIZE
)
3361 return FAIL
; /* Name too long */
3362 lf
->lfFaceName
[p
- name
] = *p
;
3365 lf
->lfFaceName
[p
- name
] = NUL
;
3367 /* First set defaults */
3370 lf
->lfWeight
= FW_NORMAL
;
3371 lf
->lfItalic
= FALSE
;
3372 lf
->lfUnderline
= FALSE
;
3373 lf
->lfStrikeOut
= FALSE
;
3376 * If the font can't be found, try replacing '_' by ' '.
3378 if (init_logfont(lf
) == FAIL
)
3380 int did_replace
= FALSE
;
3382 for (i
= 0; lf
->lfFaceName
[i
]; ++i
)
3383 if (lf
->lfFaceName
[i
] == '_')
3385 lf
->lfFaceName
[i
] = ' ';
3388 if (!did_replace
|| init_logfont(lf
) == FAIL
)
3395 /* Set the values found after ':' */
3401 lf
->lfHeight
= - points_to_pixels(p
, &p
, TRUE
, (long_i
)printer_dc
);
3404 lf
->lfWidth
= points_to_pixels(p
, &p
, FALSE
, (long_i
)printer_dc
);
3407 #ifndef MSWIN16_FASTTEXT
3408 lf
->lfWeight
= FW_BOLD
;
3412 #ifndef MSWIN16_FASTTEXT
3413 lf
->lfItalic
= TRUE
;
3417 lf
->lfUnderline
= TRUE
;
3420 lf
->lfStrikeOut
= TRUE
;
3424 struct charset_pair
*cp
;
3426 for (cp
= charset_pairs
; cp
->name
!= NULL
; ++cp
)
3427 if (STRNCMP(p
, cp
->name
, strlen(cp
->name
)) == 0)
3429 lf
->lfCharSet
= cp
->charset
;
3430 p
+= strlen(cp
->name
);
3433 if (cp
->name
== NULL
&& verbose
)
3435 vim_snprintf((char *)IObuff
, IOSIZE
,
3436 _("E244: Illegal charset name \"%s\" in font name \"%s\""), p
, name
);
3445 vim_snprintf((char *)IObuff
, IOSIZE
,
3446 _("E245: Illegal char '%c' in font name \"%s\""),
3456 #if defined(FEAT_GUI_W32)
3459 /* ron: init lastlf */
3460 if (printer_dc
== NULL
)
3463 lastlf
= (LOGFONT
*)alloc(sizeof(LOGFONT
));
3465 mch_memmove(lastlf
, lf
, sizeof(LOGFONT
));
3471 #endif /* defined(FEAT_GUI) || defined(FEAT_PRINTER) */