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_ucs2(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_ucs2(fname
, NULL
);
410 if (wname
!= NULL
&& _wfullpath(wbuf
, wname
, MAX_PATH
- 1) != NULL
)
412 cname
= ucs2_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_ucs2(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_ucs2(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 UCS-2.
895 * "instr[inlen]" is the input. "inlen" is in bytes.
896 * When "outstr" is NULL only return the number of UCS-2 words produced.
897 * Otherwise "outstr" must be a buffer of sufficient size.
898 * Returns the number of UCS-2 words produced.
901 utf8_to_ucs2(char_u
*instr
, int inlen
, short_u
*outstr
, int *unconvlenp
)
910 /* Only convert if we have a complete sequence. */
911 l
= utf_ptr2len_len(p
, todo
);
914 /* Return length of incomplete sequence. */
915 if (unconvlenp
!= NULL
)
921 *outstr
++ = utf_ptr2char(p
);
931 * Convert an UCS-2 string to UTF-8.
932 * The input is "instr[inlen]" with "inlen" in number of ucs-2 words.
933 * When "outstr" is NULL only return the required number of bytes.
934 * Otherwise "outstr" must be a buffer of sufficient size.
935 * Return the number of bytes produced.
938 ucs2_to_utf8(short_u
*instr
, int inlen
, char_u
*outstr
)
949 l
= utf_char2bytes(*p
, outstr
);
953 l
= utf_char2len(*p
);
963 * Call MultiByteToWideChar() and allocate memory for the result.
964 * Returns the result in "*out[*outlen]" with an extra zero appended.
965 * "outlen" is in words.
968 MultiByteToWideChar_alloc(UINT cp
, DWORD flags
,
969 LPCSTR in
, int inlen
,
970 LPWSTR
*out
, int *outlen
)
972 *outlen
= MultiByteToWideChar(cp
, flags
, in
, inlen
, 0, 0);
973 /* Add one one word to avoid a zero-length alloc(). */
974 *out
= (LPWSTR
)alloc(sizeof(WCHAR
) * (*outlen
+ 1));
977 MultiByteToWideChar(cp
, flags
, in
, inlen
, *out
, *outlen
);
983 * Call WideCharToMultiByte() and allocate memory for the result.
984 * Returns the result in "*out[*outlen]" with an extra NUL appended.
987 WideCharToMultiByte_alloc(UINT cp
, DWORD flags
,
988 LPCWSTR in
, int inlen
,
989 LPSTR
*out
, int *outlen
,
990 LPCSTR def
, LPBOOL useddef
)
992 *outlen
= WideCharToMultiByte(cp
, flags
, in
, inlen
, NULL
, 0, def
, useddef
);
993 /* Add one one byte to avoid a zero-length alloc(). */
994 *out
= alloc((unsigned)*outlen
+ 1);
997 WideCharToMultiByte(cp
, flags
, in
, inlen
, *out
, *outlen
, def
, useddef
);
1002 #endif /* FEAT_MBYTE */
1004 #ifdef FEAT_CLIPBOARD
1006 * Clipboard stuff, for cutting and pasting text to other windows.
1009 /* Type used for the clipboard type of Vim's data. */
1012 int type
; /* MCHAR, MBLOCK or MLINE */
1013 int txtlen
; /* length of CF_TEXT in bytes */
1014 int ucslen
; /* length of CF_UNICODETEXT in words */
1015 int rawlen
; /* length of clip_star.format_raw, including encoding,
1016 excluding terminating NUL */
1020 * Make vim the owner of the current selection. Return OK upon success.
1024 clip_mch_own_selection(VimClipboard
*cbd
)
1027 * Never actually own the clipboard. If another application sets the
1028 * clipboard, we don't want to think that we still own it.
1034 * Make vim NOT the owner of the current selection.
1038 clip_mch_lose_selection(VimClipboard
*cbd
)
1040 /* Nothing needs to be done here */
1044 * Copy "str[*size]" into allocated memory, changing CR-NL to NL.
1045 * Return the allocated result and the size in "*size".
1046 * Returns NULL when out of memory.
1049 crnl_to_nl(const char_u
*str
, int *size
)
1052 int str_len
= *size
;
1056 /* Avoid allocating zero bytes, it generates an error message. */
1057 ret
= lalloc((long_u
)(str_len
== 0 ? 1 : str_len
), TRUE
);
1061 for (pos
= 0; pos
< str_len
; ++pos
)
1063 if (str
[pos
] == '\r' && str
[pos
+ 1] == '\n')
1075 #if defined(FEAT_MBYTE) || defined(PROTO)
1077 * Note: the following two functions are only guaranteed to work when using
1078 * valid MS-Windows codepages or when iconv() is available.
1082 * Convert "str" from 'encoding' to UCS-2.
1083 * Input in "str" with length "*lenp". When "lenp" is NULL, use strlen().
1084 * Output is returned as an allocated string. "*lenp" is set to the length of
1085 * the result. A trailing NUL is always added.
1086 * Returns NULL when out of memory.
1089 enc_to_ucs2(char_u
*str
, int *lenp
)
1093 char_u
*allocbuf
= NULL
;
1099 len_loc
= (int)STRLEN(str
) + 1;
1103 if (enc_codepage
> 0)
1105 /* We can do any CP### -> UCS-2 in one pass, and we can do it
1106 * without iconv() (convert_* may need iconv). */
1107 MultiByteToWideChar_alloc(enc_codepage
, 0, str
, *lenp
, &ret
, &length
);
1111 /* Use "latin1" by default, we might be called before we have p_enc
1112 * set up. Convert to utf-8 first, works better with iconv(). Does
1113 * nothing if 'encoding' is "utf-8". */
1114 conv
.vc_type
= CONV_NONE
;
1115 if (convert_setup(&conv
, p_enc
? p_enc
: (char_u
*)"latin1",
1116 (char_u
*)"utf-8") == FAIL
)
1118 if (conv
.vc_type
!= CONV_NONE
)
1120 str
= allocbuf
= string_convert(&conv
, str
, lenp
);
1124 convert_setup(&conv
, NULL
, NULL
);
1126 length
= utf8_to_ucs2(str
, *lenp
, NULL
, NULL
);
1127 ret
= (WCHAR
*)alloc((unsigned)((length
+ 1) * sizeof(WCHAR
)));
1130 utf8_to_ucs2(str
, *lenp
, (short_u
*)ret
, NULL
);
1138 return (short_u
*)ret
;
1142 * Convert an UCS-2 string to 'encoding'.
1143 * Input in "str" with length (counted in wide characters) "*lenp". When
1144 * "lenp" is NULL, use wcslen().
1145 * Output is returned as an allocated string. If "*lenp" is not NULL it is
1146 * set to the length of the result.
1147 * Returns NULL when out of memory.
1150 ucs2_to_enc(short_u
*str
, int *lenp
)
1153 char_u
*utf8_str
= NULL
, *enc_str
= NULL
;
1158 len_loc
= (int)wcslen(str
) + 1;
1162 if (enc_codepage
> 0)
1164 /* We can do any UCS-2 -> CP### in one pass. */
1167 WideCharToMultiByte_alloc(enc_codepage
, 0, str
, *lenp
,
1168 (LPSTR
*)&enc_str
, &length
, 0, 0);
1173 /* Avoid allocating zero bytes, it generates an error message. */
1174 utf8_str
= alloc(ucs2_to_utf8(str
, *lenp
== 0 ? 1 : *lenp
, NULL
));
1175 if (utf8_str
!= NULL
)
1177 *lenp
= ucs2_to_utf8(str
, *lenp
, utf8_str
);
1179 /* We might be called before we have p_enc set up. */
1180 conv
.vc_type
= CONV_NONE
;
1181 convert_setup(&conv
, (char_u
*)"utf-8",
1182 p_enc
? p_enc
: (char_u
*)"latin1");
1183 if (conv
.vc_type
== CONV_NONE
)
1185 /* p_enc is utf-8, so we're done. */
1190 enc_str
= string_convert(&conv
, utf8_str
, lenp
);
1194 convert_setup(&conv
, NULL
, NULL
);
1199 #endif /* FEAT_MBYTE */
1202 * Get the current selection and put it in the clipboard register.
1204 * NOTE: Must use GlobalLock/Unlock here to ensure Win32s compatibility.
1205 * On NT/W95 the clipboard data is a fixed global memory object and
1206 * so its handle = its pointer.
1207 * On Win32s, however, co-operation with the Win16 system means that
1208 * the clipboard data is moveable and its handle is not a pointer at all,
1209 * so we can't just cast the return value of GetClipboardData to (char_u*).
1213 clip_mch_request_selection(VimClipboard
*cbd
)
1215 VimClipType_t metadata
= { -1, -1, -1, -1 };
1216 HGLOBAL hMem
= NULL
;
1218 #if defined(FEAT_MBYTE) && defined(WIN3264)
1219 char_u
*to_free
= NULL
;
1222 HGLOBAL rawh
= NULL
;
1229 * Don't pass GetActiveWindow() as an argument to OpenClipboard() because
1230 * then we can't paste back into the same window for some reason - webb.
1232 if (!OpenClipboard(NULL
))
1235 /* Check for vim's own clipboard format first. This only gets the type of
1236 * the data, still need to use CF_UNICODETEXT or CF_TEXT for the text. */
1237 if (IsClipboardFormatAvailable(cbd
->format
))
1239 VimClipType_t
*meta_p
;
1242 /* We have metadata on the clipboard; try to get it. */
1243 if ((meta_h
= GetClipboardData(cbd
->format
)) != NULL
1244 && (meta_p
= (VimClipType_t
*)GlobalLock(meta_h
)) != NULL
)
1246 /* The size of "VimClipType_t" changed, "rawlen" was added later.
1247 * Only copy what is available for backwards compatibility. */
1248 n
= sizeof(VimClipType_t
);
1249 if (GlobalSize(meta_h
) < n
)
1250 n
= GlobalSize(meta_h
);
1251 memcpy(&metadata
, meta_p
, n
);
1252 GlobalUnlock(meta_h
);
1257 /* Check for Vim's raw clipboard format first. This is used without
1258 * conversion, but only if 'encoding' matches. */
1259 if (IsClipboardFormatAvailable(cbd
->format_raw
)
1260 && metadata
.rawlen
> (int)STRLEN(p_enc
))
1262 /* We have raw data on the clipboard; try to get it. */
1263 if ((rawh
= GetClipboardData(cbd
->format_raw
)) != NULL
)
1267 rawp
= (char_u
*)GlobalLock(rawh
);
1268 if (rawp
!= NULL
&& STRCMP(p_enc
, rawp
) == 0)
1270 n
= STRLEN(p_enc
) + 1;
1272 str_size
= (int)(metadata
.rawlen
- n
);
1285 #if defined(FEAT_MBYTE) && defined(WIN3264)
1286 /* Try to get the clipboard in Unicode if it's not an empty string. */
1287 if (IsClipboardFormatAvailable(CF_UNICODETEXT
) && metadata
.ucslen
!= 0)
1291 if ((hMemW
= GetClipboardData(CF_UNICODETEXT
)) != NULL
)
1293 WCHAR
*hMemWstr
= (WCHAR
*)GlobalLock(hMemW
);
1295 /* Use the length of our metadata if possible, but limit it to the
1296 * GlobalSize() for safety. */
1297 maxlen
= (int)(GlobalSize(hMemW
) / sizeof(WCHAR
));
1298 if (metadata
.ucslen
>= 0)
1300 if (metadata
.ucslen
> maxlen
)
1303 str_size
= metadata
.ucslen
;
1307 for (str_size
= 0; str_size
< maxlen
; ++str_size
)
1308 if (hMemWstr
[str_size
] == NUL
)
1311 to_free
= str
= ucs2_to_enc((short_u
*)hMemWstr
, &str_size
);
1312 GlobalUnlock(hMemW
);
1317 /* Get the clipboard in the Active codepage. */
1318 if (IsClipboardFormatAvailable(CF_TEXT
))
1320 if ((hMem
= GetClipboardData(CF_TEXT
)) != NULL
)
1322 str
= (char_u
*)GlobalLock(hMem
);
1324 /* The length is either what our metadata says or the strlen().
1325 * But limit it to the GlobalSize() for safety. */
1326 maxlen
= (int)GlobalSize(hMem
);
1327 if (metadata
.txtlen
>= 0)
1329 if (metadata
.txtlen
> maxlen
)
1332 str_size
= metadata
.txtlen
;
1336 for (str_size
= 0; str_size
< maxlen
; ++str_size
)
1337 if (str
[str_size
] == NUL
)
1341 # if defined(FEAT_MBYTE) && defined(WIN3264)
1342 /* The text is in the active codepage. Convert to 'encoding',
1343 * going through UCS-2. */
1344 acp_to_enc(str
, str_size
, &to_free
, &maxlen
);
1345 if (to_free
!= NULL
)
1357 if (str
!= NULL
&& *str
!= NUL
)
1359 char_u
*temp_clipboard
;
1361 /* If the type is not known guess it. */
1362 if (metadata
.type
== -1)
1363 metadata
.type
= (vim_strchr(str
, '\n') == NULL
) ? MCHAR
: MLINE
;
1365 /* Translate <CR><NL> into <NL>. */
1366 temp_clipboard
= crnl_to_nl(str
, &str_size
);
1367 if (temp_clipboard
!= NULL
)
1369 clip_yank_selection(metadata
.type
, temp_clipboard
, str_size
, cbd
);
1370 vim_free(temp_clipboard
);
1374 /* unlock the global object */
1382 #if defined(FEAT_MBYTE) && defined(WIN3264)
1387 #if (defined(FEAT_MBYTE) && defined(WIN3264)) || defined(PROTO)
1389 * Convert from the active codepage to 'encoding'.
1390 * Input is "str[str_size]".
1391 * The result is in allocated memory: "out[outlen]". With terminating NUL.
1394 acp_to_enc(str
, str_size
, out
, outlen
)
1403 MultiByteToWideChar_alloc(GetACP(), 0, str
, str_size
, &widestr
, outlen
);
1404 if (widestr
!= NULL
)
1406 ++*outlen
; /* Include the 0 after the string */
1407 *out
= ucs2_to_enc((short_u
*)widestr
, outlen
);
1414 * Send the current selection to the clipboard.
1417 clip_mch_set_selection(VimClipboard
*cbd
)
1420 VimClipType_t metadata
;
1422 HGLOBAL hMemRaw
= NULL
;
1423 HGLOBAL hMem
= NULL
;
1424 HGLOBAL hMemVim
= NULL
;
1425 # if defined(FEAT_MBYTE) && defined(WIN3264)
1426 HGLOBAL hMemW
= NULL
;
1429 /* If the '*' register isn't already filled in, fill it in now */
1431 clip_get_selection(cbd
);
1434 /* Get the text to be put on the clipboard, with CR-LF. */
1435 metadata
.type
= clip_convert_selection(&str
, &txtlen
, cbd
);
1436 if (metadata
.type
< 0)
1438 metadata
.txtlen
= (int)txtlen
;
1439 metadata
.ucslen
= 0;
1440 metadata
.rawlen
= 0;
1443 /* Always set the raw bytes: 'encoding', NUL and the text. This is used
1444 * when copy/paste from/to Vim with the same 'encoding', so that illegal
1445 * bytes can also be copied and no conversion is needed. */
1449 metadata
.rawlen
= (int)(txtlen
+ STRLEN(p_enc
) + 1);
1450 hMemRaw
= (LPSTR
)GlobalAlloc(GMEM_MOVEABLE
| GMEM_DDESHARE
,
1451 metadata
.rawlen
+ 1);
1452 lpszMemRaw
= (LPSTR
)GlobalLock(hMemRaw
);
1453 if (lpszMemRaw
!= NULL
)
1455 STRCPY(lpszMemRaw
, p_enc
);
1456 memcpy(lpszMemRaw
+ STRLEN(p_enc
) + 1, str
, txtlen
+ 1);
1457 GlobalUnlock(hMemRaw
);
1460 metadata
.rawlen
= 0;
1464 # if defined(FEAT_MBYTE) && defined(WIN3264)
1467 int len
= metadata
.txtlen
;
1469 /* Convert the text to UCS-2. This is put on the clipboard as
1470 * CF_UNICODETEXT. */
1471 out
= (WCHAR
*)enc_to_ucs2(str
, &len
);
1476 /* Convert the text for CF_TEXT to Active codepage. Otherwise it's
1477 * p_enc, which has no relation to the Active codepage. */
1478 metadata
.txtlen
= WideCharToMultiByte(GetACP(), 0, out
, len
,
1481 str
= (char_u
*)alloc((unsigned)(metadata
.txtlen
== 0 ? 1
1482 : metadata
.txtlen
));
1486 return; /* out of memory */
1488 WideCharToMultiByte(GetACP(), 0, out
, len
,
1489 str
, metadata
.txtlen
, 0, 0);
1491 /* Allocate memory for the UCS-2 text, add one NUL word to
1492 * terminate the string. */
1493 hMemW
= (LPSTR
)GlobalAlloc(GMEM_MOVEABLE
| GMEM_DDESHARE
,
1494 (len
+ 1) * sizeof(WCHAR
));
1495 lpszMemW
= (WCHAR
*)GlobalLock(hMemW
);
1496 if (lpszMemW
!= NULL
)
1498 memcpy(lpszMemW
, out
, len
* sizeof(WCHAR
));
1499 lpszMemW
[len
] = NUL
;
1500 GlobalUnlock(hMemW
);
1503 metadata
.ucslen
= len
;
1508 /* Allocate memory for the text, add one NUL byte to terminate the string.
1510 hMem
= GlobalAlloc(GMEM_MOVEABLE
| GMEM_DDESHARE
, metadata
.txtlen
+ 1);
1512 LPSTR lpszMem
= (LPSTR
)GlobalLock(hMem
);
1516 vim_strncpy(lpszMem
, str
, metadata
.txtlen
);
1521 /* Set up metadata: */
1523 VimClipType_t
*lpszMemVim
= NULL
;
1525 hMemVim
= GlobalAlloc(GMEM_MOVEABLE
|GMEM_DDESHARE
,
1526 sizeof(VimClipType_t
));
1527 lpszMemVim
= (VimClipType_t
*)GlobalLock(hMemVim
);
1528 memcpy(lpszMemVim
, &metadata
, sizeof(metadata
));
1529 GlobalUnlock(hMemVim
);
1533 * Open the clipboard, clear it and put our text on it.
1534 * Always set our Vim format. Put Unicode and plain text on it.
1536 * Don't pass GetActiveWindow() as an argument to OpenClipboard()
1537 * because then we can't paste back into the same window for some
1540 if (OpenClipboard(NULL
))
1542 if (EmptyClipboard())
1544 SetClipboardData(cbd
->format
, hMemVim
);
1546 # if defined(FEAT_MBYTE) && defined(WIN3264)
1549 if (SetClipboardData(CF_UNICODETEXT
, hMemW
) != NULL
)
1553 /* Always use CF_TEXT. On Win98 Notepad won't obtain the
1554 * CF_UNICODETEXT text, only CF_TEXT. */
1555 SetClipboardData(CF_TEXT
, hMem
);
1562 /* Free any allocations we didn't give to the clipboard: */
1564 GlobalFree(hMemRaw
);
1567 # if defined(FEAT_MBYTE) && defined(WIN3264)
1572 GlobalFree(hMemVim
);
1575 #endif /* FEAT_CLIPBOARD */
1579 * Debugging helper: expose the MCH_WRITE_DUMP stuff to other modules
1586 # ifdef MCH_WRITE_DUMP
1590 if (psz
[strlen(psz
) - 1] != '\n')
1591 fputc('\n', fdDump
);
1607 va_start(args
, pszFormat
);
1608 vsprintf(szBuff
, pszFormat
, args
);
1611 OutputDebugString(szBuff
);
1616 #if !defined(FEAT_GUI) || defined(PROTO)
1617 # if defined(FEAT_TITLE) && defined(WIN3264)
1618 extern HWND g_hWnd
; /* This is in os_win32.c. */
1622 * Showing the printer dialog is tricky since we have no GUI
1623 * window to parent it. The following routines are needed to
1624 * get the window parenting and Z-order to work properly.
1627 GetConsoleHwnd(void)
1629 # define MY_BUFSIZE 1024 // Buffer size for console window titles.
1631 char pszNewWindowTitle
[MY_BUFSIZE
]; // Contains fabricated WindowTitle.
1632 char pszOldWindowTitle
[MY_BUFSIZE
]; // Contains original WindowTitle.
1634 /* Skip if it's already set. */
1638 # if defined(FEAT_TITLE) && defined(WIN3264)
1639 /* Window handle may have been found by init code (Windows NT only) */
1647 GetConsoleTitle(pszOldWindowTitle
, MY_BUFSIZE
);
1649 wsprintf(pszNewWindowTitle
, "%s/%d/%d",
1652 GetCurrentProcessId());
1653 SetConsoleTitle(pszNewWindowTitle
);
1655 s_hwnd
= FindWindow(NULL
, pszNewWindowTitle
);
1657 SetConsoleTitle(pszOldWindowTitle
);
1661 * Console implementation of ":winpos".
1664 mch_get_winpos(int *x
, int *y
)
1669 GetWindowRect(s_hwnd
, &rect
);
1676 * Console implementation of ":winpos x y".
1679 mch_set_winpos(int x
, int y
)
1682 SetWindowPos(s_hwnd
, NULL
, x
, y
, 0, 0,
1683 SWP_NOZORDER
| SWP_NOSIZE
| SWP_NOACTIVATE
);
1687 #if (defined(FEAT_PRINTER) && !defined(FEAT_POSTSCRIPT)) || defined(PROTO)
1692 /*=================================================================
1693 * Win32 printer stuff
1696 static HFONT prt_font_handles
[2][2][2];
1697 static PRINTDLG prt_dlg
;
1698 static const int boldface
[2] = {FW_REGULAR
, FW_BOLD
};
1699 static TEXTMETRIC prt_tm
;
1700 static int prt_line_height
;
1701 static int prt_number_width
;
1702 static int prt_left_margin
;
1703 static int prt_right_margin
;
1704 static int prt_top_margin
;
1705 static char_u szAppName
[] = TEXT("VIM");
1706 static HWND hDlgPrint
;
1707 static int *bUserAbort
= NULL
;
1708 static char_u
*prt_name
= NULL
;
1710 /* Defines which are also in vim.rc. */
1711 #define IDC_BOX1 400
1712 #define IDC_PRINTTEXT1 401
1713 #define IDC_PRINTTEXT2 402
1714 #define IDC_PROGRESS 403
1717 * Convert BGR to RGB for Windows GDI calls
1720 swap_me(COLORREF colorref
)
1723 char *ptr
= (char *)&colorref
;
1726 *(ptr
) = *(ptr
+ 2);
1731 /* Attempt to make this work for old and new compilers */
1733 # define PDP_RETVAL BOOL
1735 # define PDP_RETVAL INT_PTR
1739 static PDP_RETVAL CALLBACK
1740 PrintDlgProc(HWND hDlg
, UINT message
, WPARAM wParam
, LPARAM lParam
)
1743 NONCLIENTMETRICS nm
;
1751 nm
.cbSize
= sizeof(NONCLIENTMETRICS
);
1752 if (SystemParametersInfo(
1753 SPI_GETNONCLIENTMETRICS
,
1754 sizeof(NONCLIENTMETRICS
),
1758 char buff
[MAX_PATH
];
1761 /* Translate the dialog texts */
1762 hfont
= CreateFontIndirect(&nm
.lfMessageFont
);
1763 for (i
= IDC_PRINTTEXT1
; i
<= IDC_PROGRESS
; i
++)
1765 SendDlgItemMessage(hDlg
, i
, WM_SETFONT
, (WPARAM
)hfont
, 1);
1766 if (GetDlgItemText(hDlg
,i
, buff
, sizeof(buff
)))
1767 SetDlgItemText(hDlg
,i
, _(buff
));
1769 SendDlgItemMessage(hDlg
, IDCANCEL
,
1770 WM_SETFONT
, (WPARAM
)hfont
, 1);
1771 if (GetDlgItemText(hDlg
,IDCANCEL
, buff
, sizeof(buff
)))
1772 SetDlgItemText(hDlg
,IDCANCEL
, _(buff
));
1775 SetWindowText(hDlg
, szAppName
);
1776 if (prt_name
!= NULL
)
1778 SetDlgItemText(hDlg
, IDC_PRINTTEXT2
, (LPSTR
)prt_name
);
1782 EnableMenuItem(GetSystemMenu(hDlg
, FALSE
), SC_CLOSE
, MF_GRAYED
);
1784 BringWindowToTop(s_hwnd
);
1790 EnableWindow(GetParent(hDlg
), TRUE
);
1791 DestroyWindow(hDlg
);
1794 DeleteObject(hfont
);
1802 static BOOL CALLBACK
1803 AbortProc(HDC hdcPrn
, int iCode
)
1807 while (!*bUserAbort
&& PeekMessage(&msg
, NULL
, 0, 0, PM_REMOVE
))
1809 if (!hDlgPrint
|| !IsDialogMessage(hDlgPrint
, &msg
))
1811 TranslateMessage(&msg
);
1812 DispatchMessage(&msg
);
1815 return !*bUserAbort
;
1820 static UINT CALLBACK
1822 HWND hDlg
, // handle to dialog box
1823 UINT uiMsg
, // message identifier
1824 WPARAM wParam
, // message parameter
1825 LPARAM lParam
// message parameter
1829 RECT rc
, rcDlg
, rcOwner
;
1832 if (uiMsg
== WM_INITDIALOG
)
1834 // Get the owner window and dialog box rectangles.
1835 if ((hwndOwner
= GetParent(hDlg
)) == NULL
)
1836 hwndOwner
= GetDesktopWindow();
1838 GetWindowRect(hwndOwner
, &rcOwner
);
1839 GetWindowRect(hDlg
, &rcDlg
);
1840 CopyRect(&rc
, &rcOwner
);
1842 // Offset the owner and dialog box rectangles so that
1843 // right and bottom values represent the width and
1844 // height, and then offset the owner again to discard
1845 // space taken up by the dialog box.
1847 OffsetRect(&rcDlg
, -rcDlg
.left
, -rcDlg
.top
);
1848 OffsetRect(&rc
, -rc
.left
, -rc
.top
);
1849 OffsetRect(&rc
, -rcDlg
.right
, -rcDlg
.bottom
);
1851 // The new position is the sum of half the remaining
1852 // space and the owner's original position.
1856 rcOwner
.left
+ (rc
.right
/ 2),
1857 rcOwner
.top
+ (rc
.bottom
/ 2),
1858 0, 0, // ignores size arguments
1861 /* tackle the printdlg copiesctrl problem */
1862 pPD
= (PRINTDLG
*)lParam
;
1863 pPD
->nCopies
= (WORD
)pPD
->lCustData
;
1864 SetDlgItemInt( hDlg
, edt3
, pPD
->nCopies
, FALSE
);
1865 /* Bring the window to top */
1866 BringWindowToTop(GetParent(hDlg
));
1867 SetForegroundWindow(hDlg
);
1875 mch_print_cleanup(void)
1881 for (pifBold
= 0; pifBold
<= 1; pifBold
++)
1882 for (pifItalic
= 0; pifItalic
<= 1; pifItalic
++)
1883 for (pifUnderline
= 0; pifUnderline
<= 1; pifUnderline
++)
1884 DeleteObject(prt_font_handles
[pifBold
][pifItalic
][pifUnderline
]);
1886 if (prt_dlg
.hDC
!= NULL
)
1887 DeleteDC(prt_dlg
.hDC
);
1889 SendMessage(hDlgPrint
, WM_COMMAND
, 0, 0);
1893 to_device_units(int idx
, int dpi
, int physsize
, int offset
, int def_number
)
1899 u
= prt_get_unit(idx
);
1900 if (u
== PRT_UNIT_NONE
)
1906 nr
= printer_opts
[idx
].number
;
1911 ret
= (physsize
* nr
) / 100;
1917 ret
= (nr
* 10 * dpi
) / 254;
1919 case PRT_UNIT_POINT
:
1920 ret
= (nr
* 10 * dpi
) / 720;
1927 return ret
- offset
;
1942 GetTextMetrics(prt_dlg
.hDC
, &prt_tm
);
1943 prt_line_height
= prt_tm
.tmHeight
+ prt_tm
.tmExternalLeading
;
1945 hr
= GetDeviceCaps(prt_dlg
.hDC
, HORZRES
);
1947 Escape(prt_dlg
.hDC
, GETPHYSPAGESIZE
, NULL
, NULL
, &pagesize
);
1949 Escape(prt_dlg
.hDC
, GETPRINTINGOFFSET
, NULL
, NULL
, &pagesize
);
1952 phyw
= GetDeviceCaps(prt_dlg
.hDC
, PHYSICALWIDTH
);
1953 dvoff
= GetDeviceCaps(prt_dlg
.hDC
, PHYSICALOFFSETX
);
1955 dpi
= GetDeviceCaps(prt_dlg
.hDC
, LOGPIXELSX
);
1957 rev_offset
= phyw
- (dvoff
+ hr
);
1959 prt_left_margin
= to_device_units(OPT_PRINT_LEFT
, dpi
, phyw
, dvoff
, 10);
1960 if (prt_use_number())
1962 prt_number_width
= PRINT_NUMBER_WIDTH
* prt_tm
.tmAveCharWidth
;
1963 prt_left_margin
+= prt_number_width
;
1966 prt_number_width
= 0;
1968 prt_right_margin
= hr
- to_device_units(OPT_PRINT_RIGHT
, dpi
, phyw
,
1971 return (prt_right_margin
- prt_left_margin
) / prt_tm
.tmAveCharWidth
;
1987 vr
= GetDeviceCaps(prt_dlg
.hDC
, VERTRES
);
1989 Escape(prt_dlg
.hDC
, GETPHYSPAGESIZE
, NULL
, NULL
, &pagesize
);
1991 Escape(prt_dlg
.hDC
, GETPRINTINGOFFSET
, NULL
, NULL
, &pagesize
);
1994 phyw
= GetDeviceCaps(prt_dlg
.hDC
, PHYSICALHEIGHT
);
1995 dvoff
= GetDeviceCaps(prt_dlg
.hDC
, PHYSICALOFFSETY
);
1997 dpi
= GetDeviceCaps(prt_dlg
.hDC
, LOGPIXELSY
);
1999 rev_offset
= phyw
- (dvoff
+ vr
);
2001 prt_top_margin
= to_device_units(OPT_PRINT_TOP
, dpi
, phyw
, dvoff
, 5);
2003 /* adjust top margin if there is a header */
2004 prt_top_margin
+= prt_line_height
* prt_header_height();
2006 bottom_margin
= vr
- to_device_units(OPT_PRINT_BOT
, dpi
, phyw
,
2009 return (bottom_margin
- prt_top_margin
) / prt_line_height
;
2013 mch_print_init(prt_settings_T
*psettings
, char_u
*jobname
, int forceit
)
2015 static HGLOBAL stored_dm
= NULL
;
2016 static HGLOBAL stored_devn
= NULL
;
2017 static int stored_nCopies
= 1;
2018 static int stored_nFlags
= 0;
2029 bUserAbort
= &(psettings
->user_abort
);
2030 memset(&prt_dlg
, 0, sizeof(PRINTDLG
));
2031 prt_dlg
.lStructSize
= sizeof(PRINTDLG
);
2033 GetConsoleHwnd(); /* get value of s_hwnd */
2035 prt_dlg
.hwndOwner
= s_hwnd
;
2036 prt_dlg
.Flags
= PD_NOPAGENUMS
| PD_NOSELECTION
| PD_RETURNDC
;
2039 prt_dlg
.hDevMode
= stored_dm
;
2040 prt_dlg
.hDevNames
= stored_devn
;
2041 prt_dlg
.lCustData
= stored_nCopies
; // work around bug in print dialog
2044 * Use hook to prevent console window being sent to back
2046 prt_dlg
.lpfnPrintHook
= PrintHookProc
;
2047 prt_dlg
.Flags
|= PD_ENABLEPRINTHOOK
;
2049 prt_dlg
.Flags
|= stored_nFlags
;
2053 * If bang present, return default printer setup with no dialog
2054 * never show dialog if we are running over telnet
2062 prt_dlg
.Flags
|= PD_RETURNDEFAULT
;
2065 * MSDN suggests setting the first parameter to WINSPOOL for
2066 * NT, but NULL appears to work just as well.
2069 prt_dlg
.hDC
= CreateDC(NULL
, p_pdev
, NULL
, NULL
);
2073 prt_dlg
.Flags
|= PD_RETURNDEFAULT
;
2074 if (PrintDlg(&prt_dlg
) == 0)
2078 else if (PrintDlg(&prt_dlg
) == 0)
2083 * keep the previous driver context
2085 stored_dm
= prt_dlg
.hDevMode
;
2086 stored_devn
= prt_dlg
.hDevNames
;
2087 stored_nFlags
= prt_dlg
.Flags
;
2088 stored_nCopies
= prt_dlg
.nCopies
;
2091 if (prt_dlg
.hDC
== NULL
)
2093 EMSG(_("E237: Printer selection failed"));
2094 mch_print_cleanup();
2098 /* Not all printer drivers report the support of color (or grey) in the
2099 * same way. Let's set has_color if there appears to be some way to print
2101 i
= GetDeviceCaps(prt_dlg
.hDC
, NUMCOLORS
);
2102 psettings
->has_color
= (GetDeviceCaps(prt_dlg
.hDC
, BITSPIXEL
) > 1
2103 || GetDeviceCaps(prt_dlg
.hDC
, PLANES
) > 1
2104 || i
> 2 || i
== -1);
2106 /* Ensure all font styles are baseline aligned */
2107 SetTextAlign(prt_dlg
.hDC
, TA_BASELINE
|TA_LEFT
);
2110 * On some windows systems the nCopies parameter is not
2111 * passed back correctly. It must be retrieved from the
2114 mem
= (DEVMODE
*)GlobalLock(prt_dlg
.hDevMode
);
2118 if (mem
->dmCopies
!= 1)
2119 stored_nCopies
= mem
->dmCopies
;
2121 if ((mem
->dmFields
& DM_DUPLEX
) && (mem
->dmDuplex
& ~DMDUP_SIMPLEX
))
2122 psettings
->duplex
= TRUE
;
2123 if ((mem
->dmFields
& DM_COLOR
) && (mem
->dmColor
& DMCOLOR_COLOR
))
2124 psettings
->has_color
= TRUE
;
2126 GlobalUnlock(prt_dlg
.hDevMode
);
2128 devname
= (DEVNAMES
*)GlobalLock(prt_dlg
.hDevNames
);
2131 char_u
*printer_name
= (char_u
*)devname
+ devname
->wDeviceOffset
;
2132 char_u
*port_name
= (char_u
*)devname
+devname
->wOutputOffset
;
2133 char_u
*text
= _("to %s on %s");
2135 prt_name
= alloc((unsigned)(STRLEN(printer_name
) + STRLEN(port_name
)
2137 if (prt_name
!= NULL
)
2138 wsprintf(prt_name
, text
, printer_name
, port_name
);
2140 GlobalUnlock(prt_dlg
.hDevNames
);
2143 * Initialise the font according to 'printfont'
2145 memset(&fLogFont
, 0, sizeof(fLogFont
));
2146 if (get_logfont(&fLogFont
, p_pfn
, prt_dlg
.hDC
, TRUE
) == FAIL
)
2148 EMSG2(_("E613: Unknown printer font: %s"), p_pfn
);
2149 mch_print_cleanup();
2153 for (pifBold
= 0; pifBold
<= 1; pifBold
++)
2154 for (pifItalic
= 0; pifItalic
<= 1; pifItalic
++)
2155 for (pifUnderline
= 0; pifUnderline
<= 1; pifUnderline
++)
2157 fLogFont
.lfWeight
= boldface
[pifBold
];
2158 fLogFont
.lfItalic
= pifItalic
;
2159 fLogFont
.lfUnderline
= pifUnderline
;
2160 prt_font_handles
[pifBold
][pifItalic
][pifUnderline
]
2161 = CreateFontIndirect(&fLogFont
);
2164 SetBkMode(prt_dlg
.hDC
, OPAQUE
);
2165 SelectObject(prt_dlg
.hDC
, prt_font_handles
[0][0][0]);
2168 * Fill in the settings struct
2170 psettings
->chars_per_line
= prt_get_cpl();
2171 psettings
->lines_per_page
= prt_get_lpp();
2172 psettings
->n_collated_copies
= (prt_dlg
.Flags
& PD_COLLATE
)
2173 ? prt_dlg
.nCopies
: 1;
2174 psettings
->n_uncollated_copies
= (prt_dlg
.Flags
& PD_COLLATE
)
2175 ? 1 : prt_dlg
.nCopies
;
2177 if (psettings
->n_collated_copies
== 0)
2178 psettings
->n_collated_copies
= 1;
2180 if (psettings
->n_uncollated_copies
== 0)
2181 psettings
->n_uncollated_copies
= 1;
2183 psettings
->jobname
= jobname
;
2189 DWORD err
= CommDlgExtendedError();
2196 sprintf(buf
, "%ld", err
);
2197 EMSG2(_("E238: Print error: %s"), buf
);
2201 /* I suspect FormatMessage() doesn't work for values returned by
2202 * CommDlgExtendedError(). What does? */
2203 FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER
|
2204 FORMAT_MESSAGE_FROM_SYSTEM
|
2205 FORMAT_MESSAGE_IGNORE_INSERTS
,
2206 NULL
, err
, 0, (LPTSTR
)(&buf
), 0, NULL
);
2207 EMSG2(_("E238: Print error: %s"),
2208 buf
== NULL
? (char_u
*)_("Unknown") : buf
);
2209 LocalFree((LPVOID
)(buf
));
2213 msg_clr_eos(); /* Maybe canceled */
2215 mch_print_cleanup();
2222 mch_print_begin(prt_settings_T
*psettings
)
2228 hDlgPrint
= CreateDialog(GetModuleHandle(NULL
), TEXT("PrintDlgBox"),
2229 prt_dlg
.hwndOwner
, PrintDlgProc
);
2231 Escape(prt_dlg
.hDC
, SETABORTPROC
, 0, (LPSTR
)AbortProc
, NULL
);
2233 SetAbortProc(prt_dlg
.hDC
, AbortProc
);
2235 wsprintf(szBuffer
, _("Printing '%s'"), gettail(psettings
->jobname
));
2236 SetDlgItemText(hDlgPrint
, IDC_PRINTTEXT1
, (LPSTR
)szBuffer
);
2238 memset(&di
, 0, sizeof(DOCINFO
));
2239 di
.cbSize
= sizeof(DOCINFO
);
2240 di
.lpszDocName
= psettings
->jobname
;
2241 ret
= StartDoc(prt_dlg
.hDC
, &di
);
2244 /* Give focus back to main window (when using MDI). */
2253 mch_print_end(prt_settings_T
*psettings
)
2255 EndDoc(prt_dlg
.hDC
);
2257 SendMessage(hDlgPrint
, WM_COMMAND
, 0, 0);
2261 mch_print_end_page(void)
2263 return (EndPage(prt_dlg
.hDC
) > 0);
2267 mch_print_begin_page(char_u
*msg
)
2270 SetDlgItemText(hDlgPrint
, IDC_PROGRESS
, (LPSTR
)msg
);
2271 return (StartPage(prt_dlg
.hDC
) > 0);
2275 mch_print_blank_page(void)
2277 return (mch_print_begin_page(NULL
) ? (mch_print_end_page()) : FALSE
);
2280 static int prt_pos_x
= 0;
2281 static int prt_pos_y
= 0;
2284 mch_print_start_line(margin
, page_line
)
2289 prt_pos_x
= -prt_number_width
;
2292 prt_pos_y
= page_line
* prt_line_height
2293 + prt_tm
.tmAscent
+ prt_tm
.tmExternalLeading
;
2297 mch_print_text_out(char_u
*p
, int len
)
2299 #ifdef FEAT_PROPORTIONAL_FONTS
2303 TextOut(prt_dlg
.hDC
, prt_pos_x
+ prt_left_margin
,
2304 prt_pos_y
+ prt_top_margin
, p
, len
);
2305 #ifndef FEAT_PROPORTIONAL_FONTS
2306 prt_pos_x
+= len
* prt_tm
.tmAveCharWidth
;
2307 return (prt_pos_x
+ prt_left_margin
+ prt_tm
.tmAveCharWidth
2308 + prt_tm
.tmOverhang
> prt_right_margin
);
2311 GetTextExtentPoint(prt_dlg
.hDC
, p
, len
, &sz
);
2313 GetTextExtentPoint32(prt_dlg
.hDC
, p
, len
, &sz
);
2315 prt_pos_x
+= (sz
.cx
- prt_tm
.tmOverhang
);
2316 /* This is wrong when printing spaces for a TAB. */
2320 GetTextExtentPoint(prt_dlg
.hDC
, p
+ len
, 1, &sz
);
2322 GetTextExtentPoint32(prt_dlg
.hDC
, p
+ len
, 1, &sz
);
2324 return (prt_pos_x
+ prt_left_margin
+ sz
.cx
> prt_right_margin
);
2329 mch_print_set_font(int iBold
, int iItalic
, int iUnderline
)
2331 SelectObject(prt_dlg
.hDC
, prt_font_handles
[iBold
][iItalic
][iUnderline
]);
2335 mch_print_set_bg(long_u bgcol
)
2337 SetBkColor(prt_dlg
.hDC
, GetNearestColor(prt_dlg
.hDC
,
2338 swap_me((COLORREF
)bgcol
)));
2340 * With a white background we can draw characters transparent, which is
2341 * good for italic characters that overlap to the next char cell.
2343 if (bgcol
== 0xffffffUL
)
2344 SetBkMode(prt_dlg
.hDC
, TRANSPARENT
);
2346 SetBkMode(prt_dlg
.hDC
, OPAQUE
);
2350 mch_print_set_fg(long_u fgcol
)
2352 SetTextColor(prt_dlg
.hDC
, GetNearestColor(prt_dlg
.hDC
,
2353 swap_me((COLORREF
)fgcol
)));
2356 #endif /*FEAT_PRINTER && !FEAT_POSTSCRIPT*/
2360 #if defined(FEAT_SHORTCUT) || defined(PROTO)
2361 # include <shlobj.h>
2364 * When "fname" is the name of a shortcut (*.lnk) resolve the file it points
2365 * to and return that name in allocated memory.
2366 * Otherwise NULL is returned.
2369 mch_resolve_shortcut(char_u
*fname
)
2372 IShellLink
*psl
= NULL
;
2373 IPersistFile
*ppf
= NULL
;
2374 OLECHAR wsz
[MAX_PATH
];
2375 WIN32_FIND_DATA ffd
; // we get those free of charge
2376 TCHAR buf
[MAX_PATH
]; // could have simply reused 'wsz'...
2377 char_u
*rfname
= NULL
;
2380 /* Check if the file name ends in ".lnk". Avoid calling
2381 * CoCreateInstance(), it's quite slow. */
2384 len
= (int)STRLEN(fname
);
2385 if (len
<= 4 || STRNICMP(fname
+ len
- 4, ".lnk", 4) != 0)
2390 // create a link manager object and request its interface
2391 hr
= CoCreateInstance(
2392 &CLSID_ShellLink
, NULL
, CLSCTX_INPROC_SERVER
,
2393 &IID_IShellLink
, (void**)&psl
);
2395 goto shortcut_error
;
2397 // Get a pointer to the IPersistFile interface.
2398 hr
= psl
->lpVtbl
->QueryInterface(
2399 psl
, &IID_IPersistFile
, (void**)&ppf
);
2401 goto shortcut_error
;
2403 // full path string must be in Unicode.
2404 MultiByteToWideChar(CP_ACP
, 0, fname
, -1, wsz
, MAX_PATH
);
2406 // "load" the name and resolve the link
2407 hr
= ppf
->lpVtbl
->Load(ppf
, wsz
, STGM_READ
);
2409 goto shortcut_error
;
2410 #if 0 // This makes Vim wait a long time if the target doesn't exist.
2411 hr
= psl
->lpVtbl
->Resolve(psl
, NULL
, SLR_NO_UI
);
2413 goto shortcut_error
;
2416 // Get the path to the link target.
2417 ZeroMemory(buf
, MAX_PATH
);
2418 hr
= psl
->lpVtbl
->GetPath(psl
, buf
, MAX_PATH
, &ffd
, 0);
2419 if (hr
== S_OK
&& buf
[0] != NUL
)
2420 rfname
= vim_strsave(buf
);
2423 // Release all interface pointers (both belong to the same object)
2425 ppf
->lpVtbl
->Release(ppf
);
2427 psl
->lpVtbl
->Release(psl
);
2434 #if (defined(FEAT_EVAL) && !defined(FEAT_GUI)) || defined(PROTO)
2436 * Bring ourselves to the foreground. Does work if the OS doesn't allow it.
2439 win32_set_foreground()
2442 GetConsoleHwnd(); /* get value of s_hwnd */
2445 SetForegroundWindow(s_hwnd
);
2449 #if defined(FEAT_CLIENTSERVER) || defined(PROTO)
2451 * Client-server code for Vim
2453 * Originally written by Paul Moore
2456 /* In order to handle inter-process messages, we need to have a window. But
2457 * the functions in this module can be called before the main GUI window is
2458 * created (and may also be called in the console version, where there is no
2459 * GUI window at all).
2461 * So we create a hidden window, and arrange to destroy it on exit.
2463 HWND message_window
= 0; /* window that's handling messsages */
2465 #define VIM_CLASSNAME "VIM_MESSAGES"
2466 #define VIM_CLASSNAME_LEN (sizeof(VIM_CLASSNAME) - 1)
2468 /* Communication is via WM_COPYDATA messages. The message type is send in
2469 * the dwData parameter. Types are defined here. */
2470 #define COPYDATA_KEYS 0
2471 #define COPYDATA_REPLY 1
2472 #define COPYDATA_EXPR 10
2473 #define COPYDATA_RESULT 11
2474 #define COPYDATA_ERROR_RESULT 12
2475 #define COPYDATA_ENCODING 20
2477 /* This is a structure containing a server HWND and its name. */
2484 /* Last received 'encoding' that the client uses. */
2485 static char_u
*client_enc
= NULL
;
2488 * Tell the other side what encoding we are using.
2489 * Errors are ignored.
2492 serverSendEnc(HWND target
)
2494 COPYDATASTRUCT data
;
2496 data
.dwData
= COPYDATA_ENCODING
;
2498 data
.cbData
= (DWORD
)STRLEN(p_enc
) + 1;
2499 data
.lpData
= p_enc
;
2501 data
.cbData
= STRLEN("latin1") + 1;
2502 data
.lpData
= "latin1";
2504 (void)SendMessage(target
, WM_COPYDATA
, (WPARAM
)message_window
,
2509 * Clean up on exit. This destroys the hidden message window.
2515 CleanUpMessaging(void)
2517 if (message_window
!= 0)
2519 DestroyWindow(message_window
);
2524 static int save_reply(HWND server
, char_u
*reply
, int expr
);
2527 * The window procedure for the hidden message window.
2528 * It handles callback messages and notifications from servers.
2529 * In order to process these messages, it is necessary to run a
2530 * message loop. Code which may run before the main message loop
2531 * is started (in the GUI) is careful to pump messages when it needs
2532 * to. Features which require message delivery during normal use will
2533 * not work in the console version - this basically means those
2534 * features which allow Vim to act as a server, rather than a client.
2536 static LRESULT CALLBACK
2537 Messaging_WndProc(HWND hwnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
)
2539 if (msg
== WM_COPYDATA
)
2541 /* This is a message from another Vim. The dwData member of the
2542 * COPYDATASTRUCT determines the type of message:
2543 * COPYDATA_ENCODING:
2544 * The encoding that the client uses. Following messages will
2545 * use this encoding, convert if needed.
2547 * A key sequence. We are a server, and a client wants these keys
2548 * adding to the input queue.
2550 * A reply. We are a client, and a server has sent this message
2551 * in response to a request. (server2client())
2553 * An expression. We are a server, and a client wants us to
2554 * evaluate this expression.
2556 * A reply. We are a client, and a server has sent this message
2557 * in response to a COPYDATA_EXPR.
2558 * COPYDATA_ERROR_RESULT:
2559 * A reply. We are a client, and a server has sent this message
2560 * in response to a COPYDATA_EXPR that failed to evaluate.
2562 COPYDATASTRUCT
*data
= (COPYDATASTRUCT
*)lParam
;
2563 HWND sender
= (HWND
)wParam
;
2564 COPYDATASTRUCT reply
;
2571 switch (data
->dwData
)
2573 case COPYDATA_ENCODING
:
2575 /* Remember the encoding that the client uses. */
2576 vim_free(client_enc
);
2577 client_enc
= enc_canonize((char_u
*)data
->lpData
);
2582 /* Remember who sent this, for <client> */
2583 clientWindow
= sender
;
2585 /* Add the received keys to the input buffer. The loop waiting
2586 * for the user to do something should check the input buffer. */
2587 str
= serverConvert(client_enc
, (char_u
*)data
->lpData
, &tofree
);
2588 server_to_input_buf(str
);
2592 /* Wake up the main GUI loop. */
2594 PostMessage(s_hwnd
, WM_NULL
, 0, 0);
2599 /* Remember who sent this, for <client> */
2600 clientWindow
= sender
;
2602 str
= serverConvert(client_enc
, (char_u
*)data
->lpData
, &tofree
);
2603 res
= eval_client_expr_to_string(str
);
2608 res
= vim_strsave(_(e_invexprmsg
));
2609 reply
.dwData
= COPYDATA_ERROR_RESULT
;
2612 reply
.dwData
= COPYDATA_RESULT
;
2614 reply
.cbData
= (DWORD
)STRLEN(res
) + 1;
2616 serverSendEnc(sender
);
2617 retval
= (int)SendMessage(sender
, WM_COPYDATA
, (WPARAM
)message_window
,
2622 case COPYDATA_REPLY
:
2623 case COPYDATA_RESULT
:
2624 case COPYDATA_ERROR_RESULT
:
2625 if (data
->lpData
!= NULL
)
2627 str
= serverConvert(client_enc
, (char_u
*)data
->lpData
,
2630 str
= vim_strsave(str
);
2631 if (save_reply(sender
, str
,
2632 (data
->dwData
== COPYDATA_REPLY
? 0 :
2633 (data
->dwData
== COPYDATA_RESULT
? 1 :
2637 else if (data
->dwData
== COPYDATA_REPLY
)
2639 sprintf((char *)winstr
, PRINTF_HEX_LONG_U
, (long_u
)sender
);
2640 apply_autocmds(EVENT_REMOTEREPLY
, winstr
, str
,
2651 else if (msg
== WM_ACTIVATE
&& wParam
== WA_ACTIVE
)
2653 /* When the message window is activated (brought to the foreground),
2654 * this actually applies to the text window. */
2656 GetConsoleHwnd(); /* get value of s_hwnd */
2660 SetForegroundWindow(s_hwnd
);
2665 return DefWindowProc(hwnd
, msg
, wParam
, lParam
);
2669 * Initialise the message handling process. This involves creating a window
2670 * to handle messages - the window will not be visible.
2673 serverInitMessaging(void)
2678 /* Clean up on exit */
2679 atexit(CleanUpMessaging
);
2681 /* Register a window class - we only really care
2682 * about the window procedure
2684 s_hinst
= (HINSTANCE
)GetModuleHandle(0);
2686 wndclass
.lpfnWndProc
= Messaging_WndProc
;
2687 wndclass
.cbClsExtra
= 0;
2688 wndclass
.cbWndExtra
= 0;
2689 wndclass
.hInstance
= s_hinst
;
2690 wndclass
.hIcon
= NULL
;
2691 wndclass
.hCursor
= NULL
;
2692 wndclass
.hbrBackground
= NULL
;
2693 wndclass
.lpszMenuName
= NULL
;
2694 wndclass
.lpszClassName
= VIM_CLASSNAME
;
2695 RegisterClass(&wndclass
);
2697 /* Create the message window. It will be hidden, so the details don't
2698 * matter. Don't use WS_OVERLAPPEDWINDOW, it will make a shortcut remove
2699 * focus from gvim. */
2700 message_window
= CreateWindow(VIM_CLASSNAME
, "",
2701 WS_POPUPWINDOW
| WS_CAPTION
,
2702 CW_USEDEFAULT
, CW_USEDEFAULT
,
2703 100, 100, NULL
, NULL
,
2707 /* Used by serverSendToVim() to find an alternate server name. */
2708 static char_u
*altname_buf_ptr
= NULL
;
2711 * Get the title of the window "hwnd", which is the Vim server name, in
2712 * "name[namelen]" and return the length.
2713 * Returns zero if window "hwnd" is not a Vim server.
2716 getVimServerName(HWND hwnd
, char *name
, int namelen
)
2719 char buffer
[VIM_CLASSNAME_LEN
+ 1];
2721 /* Ignore windows which aren't Vim message windows */
2722 len
= GetClassName(hwnd
, buffer
, sizeof(buffer
));
2723 if (len
!= VIM_CLASSNAME_LEN
|| STRCMP(buffer
, VIM_CLASSNAME
) != 0)
2726 /* Get the title of the window */
2727 return GetWindowText(hwnd
, name
, namelen
);
2730 static BOOL CALLBACK
2731 enumWindowsGetServer(HWND hwnd
, LPARAM lparam
)
2733 struct server_id
*id
= (struct server_id
*)lparam
;
2734 char server
[MAX_PATH
];
2736 /* Get the title of the window */
2737 if (getVimServerName(hwnd
, server
, sizeof(server
)) == 0)
2740 /* If this is the server we're looking for, return its HWND */
2741 if (STRICMP(server
, id
->name
) == 0)
2747 /* If we are looking for an alternate server, remember this name. */
2748 if (altname_buf_ptr
!= NULL
2749 && STRNICMP(server
, id
->name
, STRLEN(id
->name
)) == 0
2750 && vim_isdigit(server
[STRLEN(id
->name
)]))
2752 STRCPY(altname_buf_ptr
, server
);
2753 altname_buf_ptr
= NULL
; /* don't use another name */
2756 /* Otherwise, keep looking */
2760 static BOOL CALLBACK
2761 enumWindowsGetNames(HWND hwnd
, LPARAM lparam
)
2763 garray_T
*ga
= (garray_T
*)lparam
;
2764 char server
[MAX_PATH
];
2766 /* Get the title of the window */
2767 if (getVimServerName(hwnd
, server
, sizeof(server
)) == 0)
2770 /* Add the name to the list */
2771 ga_concat(ga
, server
);
2772 ga_concat(ga
, "\n");
2777 findServer(char_u
*name
)
2779 struct server_id id
;
2784 EnumWindows(enumWindowsGetServer
, (LPARAM
)(&id
));
2790 serverSetName(char_u
*name
)
2797 /* Leave enough space for a 9-digit suffix to ensure uniqueness! */
2798 ok_name
= alloc((unsigned)STRLEN(name
) + 10);
2800 STRCPY(ok_name
, name
);
2801 p
= ok_name
+ STRLEN(name
);
2805 /* This is inefficient - we're doing an EnumWindows loop for each
2806 * possible name. It would be better to grab all names in one go,
2807 * and scan the list each time...
2809 hwnd
= findServer(ok_name
);
2817 sprintf((char *)p
, "%d", i
);
2824 /* Remember the name */
2825 serverName
= ok_name
;
2827 need_maketitle
= TRUE
; /* update Vim window title later */
2830 /* Update the message window title */
2831 SetWindowText(message_window
, ok_name
);
2834 /* Set the servername variable */
2835 set_vim_var_string(VV_SEND_SERVER
, serverName
, -1);
2841 serverGetVimNames(void)
2845 ga_init2(&ga
, 1, 100);
2847 EnumWindows(enumWindowsGetNames
, (LPARAM
)(&ga
));
2848 ga_append(&ga
, NUL
);
2854 serverSendReply(name
, reply
)
2855 char_u
*name
; /* Where to send. */
2856 char_u
*reply
; /* What to send. */
2859 COPYDATASTRUCT data
;
2862 /* The "name" argument is a magic cookie obtained from expand("<client>").
2863 * It should be of the form 0xXXXXX - i.e. a C hex literal, which is the
2864 * value of the client's message window HWND.
2866 sscanf((char *)name
, SCANF_HEX_LONG_U
, &n
);
2871 if (!IsWindow(target
))
2874 data
.dwData
= COPYDATA_REPLY
;
2875 data
.cbData
= (DWORD
)STRLEN(reply
) + 1;
2876 data
.lpData
= reply
;
2878 serverSendEnc(target
);
2879 if (SendMessage(target
, WM_COPYDATA
, (WPARAM
)message_window
,
2887 serverSendToVim(name
, cmd
, result
, ptarget
, asExpr
, silent
)
2888 char_u
*name
; /* Where to send. */
2889 char_u
*cmd
; /* What to send. */
2890 char_u
**result
; /* Result of eval'ed expression */
2891 void *ptarget
; /* HWND of server */
2892 int asExpr
; /* Expression or keys? */
2893 int silent
; /* don't complain about no server */
2896 COPYDATASTRUCT data
;
2897 char_u
*retval
= NULL
;
2899 char_u altname_buf
[MAX_PATH
];
2901 /* If the server name does not end in a digit then we look for an
2902 * alternate name. e.g. when "name" is GVIM the we may find GVIM2. */
2903 if (STRLEN(name
) > 1 && !vim_isdigit(name
[STRLEN(name
) - 1]))
2904 altname_buf_ptr
= altname_buf
;
2905 altname_buf
[0] = NUL
;
2906 target
= findServer(name
);
2907 altname_buf_ptr
= NULL
;
2908 if (target
== 0 && altname_buf
[0] != NUL
)
2909 /* Use another server name we found. */
2910 target
= findServer(altname_buf
);
2915 EMSG2(_(e_noserver
), name
);
2920 *(HWND
*)ptarget
= target
;
2922 data
.dwData
= asExpr
? COPYDATA_EXPR
: COPYDATA_KEYS
;
2923 data
.cbData
= (DWORD
)STRLEN(cmd
) + 1;
2926 serverSendEnc(target
);
2927 if (SendMessage(target
, WM_COPYDATA
, (WPARAM
)message_window
,
2928 (LPARAM
)(&data
)) == 0)
2932 retval
= serverGetReply(target
, &retcode
, TRUE
, TRUE
);
2937 *result
= retval
; /* Caller assumes responsibility for freeing */
2943 * Bring the server to the foreground.
2946 serverForeground(name
)
2949 HWND target
= findServer(name
);
2952 SetForegroundWindow(target
);
2955 /* Replies from server need to be stored until the client picks them up via
2956 * remote_read(). So we maintain a list of server-id/reply pairs.
2957 * Note that there could be multiple replies from one server pending if the
2958 * client is slow picking them up.
2959 * We just store the replies in a simple list. When we remove an entry, we
2960 * move list entries down to fill the gap.
2961 * The server ID is simply the HWND.
2965 HWND server
; /* server window */
2966 char_u
*reply
; /* reply string */
2967 int expr_result
; /* 0 for REPLY, 1 for RESULT 2 for error */
2970 static garray_T reply_list
= {0, 0, sizeof(reply_T
), 5, 0};
2972 #define REPLY_ITEM(i) ((reply_T *)(reply_list.ga_data) + (i))
2973 #define REPLY_COUNT (reply_list.ga_len)
2975 /* Flag which is used to wait for a reply */
2976 static int reply_received
= 0;
2979 * Store a reply. "reply" must be allocated memory (or NULL).
2982 save_reply(HWND server
, char_u
*reply
, int expr
)
2986 if (ga_grow(&reply_list
, 1) == FAIL
)
2989 rep
= REPLY_ITEM(REPLY_COUNT
);
2990 rep
->server
= server
;
2992 rep
->expr_result
= expr
;
2993 if (rep
->reply
== NULL
)
3002 * Get a reply from server "server".
3003 * When "expr_res" is non NULL, get the result of an expression, otherwise a
3004 * server2client() message.
3005 * When non NULL, point to return code. 0 => OK, -1 => ERROR
3006 * If "remove" is TRUE, consume the message, the caller must free it then.
3007 * if "wait" is TRUE block until a message arrives (or the server exits).
3010 serverGetReply(HWND server
, int *expr_res
, int remove
, int wait
)
3016 /* When waiting, loop until the message waiting for is received. */
3019 /* Reset this here, in case a message arrives while we are going
3020 * through the already received messages. */
3023 for (i
= 0; i
< REPLY_COUNT
; ++i
)
3025 rep
= REPLY_ITEM(i
);
3026 if (rep
->server
== server
3027 && ((rep
->expr_result
!= 0) == (expr_res
!= NULL
)))
3029 /* Save the values we've found for later */
3031 if (expr_res
!= NULL
)
3032 *expr_res
= rep
->expr_result
== 1 ? 0 : -1;
3036 /* Move the rest of the list down to fill the gap */
3037 mch_memmove(rep
, rep
+ 1,
3038 (REPLY_COUNT
- i
- 1) * sizeof(reply_T
));
3042 /* Return the reply to the caller, who takes on responsibility
3043 * for freeing it if "remove" is TRUE. */
3048 /* If we got here, we didn't find a reply. Return immediately if the
3049 * "wait" parameter isn't set. */
3053 /* We need to wait for a reply. Enter a message loop until the
3054 * "reply_received" flag gets set. */
3056 /* Loop until we receive a reply */
3057 while (reply_received
== 0)
3059 /* Wait for a SendMessage() call to us. This could be the reply
3060 * we are waiting for. Use a timeout of a second, to catch the
3061 * situation that the server died unexpectedly. */
3062 MsgWaitForMultipleObjects(0, NULL
, TRUE
, 1000, QS_ALLINPUT
);
3064 /* If the server has died, give up */
3065 if (!IsWindow(server
))
3068 serverProcessPendingMessages();
3076 * Process any messages in the Windows message queue.
3079 serverProcessPendingMessages(void)
3083 while (PeekMessage(&msg
, NULL
, 0, 0, PM_REMOVE
))
3085 TranslateMessage(&msg
);
3086 DispatchMessage(&msg
);
3090 #endif /* FEAT_CLIENTSERVER */
3092 #if defined(FEAT_GUI) || (defined(FEAT_PRINTER) && !defined(FEAT_POSTSCRIPT)) \
3101 static struct charset_pair
3104 {"ANSI", ANSI_CHARSET
},
3105 {"CHINESEBIG5", CHINESEBIG5_CHARSET
},
3106 {"DEFAULT", DEFAULT_CHARSET
},
3107 {"HANGEUL", HANGEUL_CHARSET
},
3108 {"OEM", OEM_CHARSET
},
3109 {"SHIFTJIS", SHIFTJIS_CHARSET
},
3110 {"SYMBOL", SYMBOL_CHARSET
},
3112 {"ARABIC", ARABIC_CHARSET
},
3113 {"BALTIC", BALTIC_CHARSET
},
3114 {"EASTEUROPE", EASTEUROPE_CHARSET
},
3115 {"GB2312", GB2312_CHARSET
},
3116 {"GREEK", GREEK_CHARSET
},
3117 {"HEBREW", HEBREW_CHARSET
},
3118 {"JOHAB", JOHAB_CHARSET
},
3119 {"MAC", MAC_CHARSET
},
3120 {"RUSSIAN", RUSSIAN_CHARSET
},
3121 {"THAI", THAI_CHARSET
},
3122 {"TURKISH", TURKISH_CHARSET
},
3123 # if (!defined(_MSC_VER) || (_MSC_VER > 1010)) \
3124 && (!defined(__BORLANDC__) || (__BORLANDC__ > 0x0500))
3125 {"VIETNAMESE", VIETNAMESE_CHARSET
},
3132 * Convert a charset ID to a name.
3133 * Return NULL when not recognized.
3136 charset_id2name(int id
)
3138 struct charset_pair
*cp
;
3140 for (cp
= charset_pairs
; cp
->name
!= NULL
; ++cp
)
3141 if ((BYTE
)id
== cp
->charset
)
3146 static const LOGFONT s_lfDefault
=
3148 -12, 0, 0, 0, FW_NORMAL
, FALSE
, FALSE
, FALSE
, DEFAULT_CHARSET
,
3149 OUT_DEFAULT_PRECIS
, CLIP_DEFAULT_PRECIS
,
3150 PROOF_QUALITY
, FIXED_PITCH
| FF_DONTCARE
,
3151 "Fixedsys" /* see _ReadVimIni */
3154 /* Initialise the "current height" to -12 (same as s_lfDefault) just
3155 * in case the user specifies a font in "guifont" with no size before a font
3156 * with an explicit size has been set. This defaults the size to this value
3157 * (-12 equates to roughly 9pt).
3159 int current_font_height
= -12; /* also used in gui_w48.c */
3161 /* Convert a string representing a point size into pixels. The string should
3162 * be a positive decimal number, with an optional decimal point (eg, "12", or
3163 * "10.5"). The pixel value is returned, and a pointer to the next unconverted
3164 * character is stored in *end. The flag "vertical" says whether this
3165 * calculation is for a vertical (height) size or a horizontal (width) one.
3168 points_to_pixels(char_u
*str
, char_u
**end
, int vertical
, long_i pprinter_dc
)
3173 HWND hwnd
= (HWND
)0;
3175 HDC printer_dc
= (HDC
)pprinter_dc
;
3179 if (*str
== '.' && divisor
== 0)
3181 /* Start keeping a divisor, for later */
3186 if (!VIM_ISDIGIT(*str
))
3190 points
+= *str
- '0';
3199 if (printer_dc
== NULL
)
3201 hwnd
= GetDesktopWindow();
3202 hdc
= GetWindowDC(hwnd
);
3207 pixels
= MulDiv(points
,
3208 GetDeviceCaps(hdc
, vertical
? LOGPIXELSY
: LOGPIXELSX
),
3211 if (printer_dc
== NULL
)
3212 ReleaseDC(hwnd
, hdc
);
3227 * 0 = terminate now (monospace & ANSI)
3228 * 1 = continue, still no luck...
3229 * 2 = continue, but we have an acceptable LOGFONT
3230 * (monospace, not ANSI)
3231 * We use these values, as EnumFontFamilies returns 1 if the
3232 * callback function is never called. So, we check the return as
3233 * 0 = perfect, 2 = OK, 1 = no good...
3234 * It's not pretty, but it works!
3237 LOGFONT
*lf
= (LOGFONT
*)(lparam
);
3239 #ifndef FEAT_PROPORTIONAL_FONTS
3240 /* Ignore non-monospace fonts without further ado */
3241 if ((ntm
->tmPitchAndFamily
& 1) != 0)
3245 /* Remember this LOGFONT as a "possible" */
3246 *lf
= elf
->elfLogFont
;
3248 /* Terminate the scan as soon as we find an ANSI font */
3249 if (lf
->lfCharSet
== ANSI_CHARSET
3250 || lf
->lfCharSet
== OEM_CHARSET
3251 || lf
->lfCharSet
== DEFAULT_CHARSET
)
3254 /* Continue the scan - we have a non-ANSI font */
3259 init_logfont(LOGFONT
*lf
)
3262 HWND hwnd
= GetDesktopWindow();
3263 HDC hdc
= GetWindowDC(hwnd
);
3265 n
= EnumFontFamilies(hdc
,
3266 (LPCSTR
)lf
->lfFaceName
,
3267 (FONTENUMPROC
)font_enumproc
,
3270 ReleaseDC(hwnd
, hdc
);
3272 /* If we couldn't find a useable font, return failure */
3276 /* Tidy up the rest of the LOGFONT structure. We set to a basic
3277 * font - get_logfont() sets bold, italic, etc based on the user's
3280 lf
->lfHeight
= current_font_height
;
3282 lf
->lfItalic
= FALSE
;
3283 lf
->lfUnderline
= FALSE
;
3284 lf
->lfStrikeOut
= FALSE
;
3285 lf
->lfWeight
= FW_NORMAL
;
3287 /* Return success */
3292 * Get font info from "name" into logfont "lf".
3293 * Return OK for a valid name, FAIL otherwise.
3304 static LOGFONT
*lastlf
= NULL
;
3310 if (STRCMP(name
, "*") == 0)
3312 #if defined(FEAT_GUI_W32)
3314 /* if name is "*", bring up std font dialog: */
3315 memset(&cf
, 0, sizeof(cf
));
3316 cf
.lStructSize
= sizeof(cf
);
3317 cf
.hwndOwner
= s_hwnd
;
3318 cf
.Flags
= CF_SCREENFONTS
| CF_FIXEDPITCHONLY
| CF_INITTOLOGFONTSTRUCT
;
3322 cf
.nFontType
= 0 ; //REGULAR_FONTTYPE;
3323 if (ChooseFont(&cf
))
3331 * Split name up, it could be <name>:h<height>:w<width> etc.
3333 for (p
= name
; *p
&& *p
!= ':'; p
++)
3335 if (p
- name
+ 1 > LF_FACESIZE
)
3336 return FAIL
; /* Name too long */
3337 lf
->lfFaceName
[p
- name
] = *p
;
3340 lf
->lfFaceName
[p
- name
] = NUL
;
3342 /* First set defaults */
3345 lf
->lfWeight
= FW_NORMAL
;
3346 lf
->lfItalic
= FALSE
;
3347 lf
->lfUnderline
= FALSE
;
3348 lf
->lfStrikeOut
= FALSE
;
3351 * If the font can't be found, try replacing '_' by ' '.
3353 if (init_logfont(lf
) == FAIL
)
3355 int did_replace
= FALSE
;
3357 for (i
= 0; lf
->lfFaceName
[i
]; ++i
)
3358 if (lf
->lfFaceName
[i
] == '_')
3360 lf
->lfFaceName
[i
] = ' ';
3363 if (!did_replace
|| init_logfont(lf
) == FAIL
)
3370 /* Set the values found after ':' */
3376 lf
->lfHeight
= - points_to_pixels(p
, &p
, TRUE
, (long_i
)printer_dc
);
3379 lf
->lfWidth
= points_to_pixels(p
, &p
, FALSE
, (long_i
)printer_dc
);
3382 #ifndef MSWIN16_FASTTEXT
3383 lf
->lfWeight
= FW_BOLD
;
3387 #ifndef MSWIN16_FASTTEXT
3388 lf
->lfItalic
= TRUE
;
3392 lf
->lfUnderline
= TRUE
;
3395 lf
->lfStrikeOut
= TRUE
;
3399 struct charset_pair
*cp
;
3401 for (cp
= charset_pairs
; cp
->name
!= NULL
; ++cp
)
3402 if (STRNCMP(p
, cp
->name
, strlen(cp
->name
)) == 0)
3404 lf
->lfCharSet
= cp
->charset
;
3405 p
+= strlen(cp
->name
);
3408 if (cp
->name
== NULL
&& verbose
)
3410 vim_snprintf((char *)IObuff
, IOSIZE
,
3411 _("E244: Illegal charset name \"%s\" in font name \"%s\""), p
, name
);
3420 vim_snprintf((char *)IObuff
, IOSIZE
,
3421 _("E245: Illegal char '%c' in font name \"%s\""),
3431 #if defined(FEAT_GUI_W32)
3434 /* ron: init lastlf */
3435 if (printer_dc
== NULL
)
3438 lastlf
= (LOGFONT
*)alloc(sizeof(LOGFONT
));
3440 mch_memmove(lastlf
, lf
, sizeof(LOGFONT
));
3446 #endif /* defined(FEAT_GUI) || defined(FEAT_PRINTER) */