vim: src/GvimExt/gvimext.cpp annotate

author	Christian Brabandt <cb@256bit.org>
date	Mon, 26 Jun 2023 09:54:34 +0200
parents	32c9b7396a75
children	695b50472e85

rev	line source
32669 448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	1 /* vi:set ts=8 sts=4 sw=4:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	2 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	3 * VIM - Vi IMproved gvimext by Tianmiao Hu
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	4 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	7 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	8
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	9 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	10 * gvimext is a DLL which is used for the "Edit with Vim" context menu
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	11 * extension. It implements a MS defined interface with the Shell.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	12 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	13 * If you have any questions or any suggestions concerning gvimext, please
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	14 * contact Tianmiao Hu: tianmiao@acm.org.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	15 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	16
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	17 #include "gvimext.h"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	18
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	19 static char searchpath(char name);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	20
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	21 // Always get an error while putting the following stuff to the
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	22 // gvimext.h file as class protected variables, give up and
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	23 // declare them as global stuff
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	24 FORMATETC fmte = {CF_HDROP,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	25 (DVTARGETDEVICE FAR *)NULL,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	26 DVASPECT_CONTENT,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	27 -1,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	28 TYMED_HGLOBAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	29 };
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	30 STGMEDIUM medium;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	31 HRESULT hres = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	32 UINT cbFiles = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	33
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	34 /* The buffers size used to be MAX_PATH (260 bytes), but that's not always
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	35 * enough */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	36 #define BUFSIZE 1100
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	37
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	38 // The "Edit with Vim" shell extension provides these choices when
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	39 // a new instance of Gvim is selected:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	40 // - use tabpages
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	41 // - enable diff mode
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	42 // - none of the above
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	43 #define EDIT_WITH_VIM_USE_TABPAGES (2)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	44 #define EDIT_WITH_VIM_IN_DIFF_MODE (1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	45 #define EDIT_WITH_VIM_NO_OPTIONS (0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	46
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	47 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	48 // Get the name of the Gvim executable to use, with the path.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	49 // When "runtime" is non-zero, we were called to find the runtime directory.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	50 // Returns the path in name[BUFSIZE]. It's empty when it fails.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	51 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	52 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	53 getGvimName(char *name, int runtime)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	54 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	55 HKEY keyhandle;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	56 DWORD hlen;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	57
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	58 // Get the location of gvim from the registry.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	59 name[0] = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	60 if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\\Vim\\Gvim", 0,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	61 KEY_READ, &keyhandle) == ERROR_SUCCESS)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	62 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	63 hlen = BUFSIZE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	64 if (RegQueryValueEx(keyhandle, "path", 0, NULL, (BYTE *)name, &hlen)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	65 != ERROR_SUCCESS)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	66 name[0] = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	67 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	68 name[hlen] = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	69 RegCloseKey(keyhandle);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	70 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	71
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	72 // Registry didn't work, use the search path.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	73 if (name[0] == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	74 strcpy(name, searchpath((char *)"gvim.exe"));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	75
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	76 if (!runtime)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	77 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	78 // Only when looking for the executable, not the runtime dir, we can
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	79 // search for the batch file or a name without a path.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	80 if (name[0] == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	81 strcpy(name, searchpath((char *)"gvim.bat"));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	82 if (name[0] == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	83 strcpy(name, "gvim"); // finds gvim.bat or gvim.exe
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	84 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	85 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	86
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	87 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	88 getGvimInvocation(char *name, int runtime)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	89 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	90 getGvimName(name, runtime);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	91 // avoid that Vim tries to expand wildcards in the file names
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	92 strcat(name, " --literal");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	93 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	94
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	95 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	96 getGvimInvocationW(wchar_t *nameW)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	97 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	98 char *name;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	99
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	100 name = (char *)malloc(BUFSIZE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	101 getGvimInvocation(name, 0);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	102 mbstowcs(nameW, name, BUFSIZE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	103 free(name);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	104 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	105
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	106 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	107 // Get the Vim runtime directory into buf[BUFSIZE].
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	108 // The result is empty when it failed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	109 // When it works, the path ends in a slash or backslash.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	110 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	111 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	112 getRuntimeDir(char *buf)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	113 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	114 int idx;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	115
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	116 getGvimName(buf, 1);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	117 if (buf[0] != 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	118 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	119 // When no path found, use the search path to expand it.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	120 if (strchr(buf, '/') == NULL && strchr(buf, '\\') == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	121 strcpy(buf, searchpath(buf));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	122
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	123 // remove "gvim.exe" from the end
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	124 for (idx = (int)strlen(buf) - 1; idx >= 0; idx--)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	125 if (buf[idx] == '\\' \|\| buf[idx] == '/')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	126 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	127 buf[idx + 1] = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	128 break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	129 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	130 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	131 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	132
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	133 WCHAR *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	134 utf8_to_utf16(const char *s)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	135 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	136 int size = MultiByteToWideChar(CP_UTF8, 0, s, -1, NULL, 0);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	137 WCHAR buf = (WCHAR )malloc(size * sizeof(WCHAR));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	138 MultiByteToWideChar(CP_UTF8, 0, s, -1, buf, size);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	139 return buf;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	140 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	141
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	142 HBITMAP
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	143 IconToBitmap(HICON hIcon, HBRUSH hBackground, int width, int height)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	144 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	145 HDC hDC = GetDC(NULL);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	146 HDC hMemDC = CreateCompatibleDC(hDC);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	147 HBITMAP hMemBmp = CreateCompatibleBitmap(hDC, width, height);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	148 HBITMAP hResultBmp = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	149 HGDIOBJ hOrgBMP = SelectObject(hMemDC, hMemBmp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	150
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	151 DrawIconEx(hMemDC, 0, 0, hIcon, width, height, 0, hBackground, DI_NORMAL);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	152
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	153 hResultBmp = hMemBmp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	154 hMemBmp = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	155
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	156 SelectObject(hMemDC, hOrgBMP);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	157 DeleteDC(hMemDC);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	158 ReleaseDC(NULL, hDC);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	159 DestroyIcon(hIcon);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	160 return hResultBmp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	161 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	162
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	163 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	164 // GETTEXT: translated messages and menu entries
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	165 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	166 #ifndef FEAT_GETTEXT
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	167 # define _(x) x
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	168 # define W_impl(x) _wcsdup(L##x)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	169 # define W(x) W_impl(x)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	170 # define set_gettext_codeset() NULL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	171 # define restore_gettext_codeset(x)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	172 #else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	173 # define _(x) (*dyn_libintl_gettext)(x)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	174 # define W(x) utf8_to_utf16(x)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	175 # define VIMPACKAGE "vim"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	176 # ifndef GETTEXT_DLL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	177 # define GETTEXT_DLL "libintl.dll"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	178 # define GETTEXT_DLL_ALT "libintl-8.dll"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	179 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	180
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	181 // Dummy functions
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	182 static char null_libintl_gettext(const char );
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	183 static char null_libintl_textdomain(const char );
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	184 static char null_libintl_bindtextdomain(const char , const char *);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	185 static char null_libintl_bind_textdomain_codeset(const char , const char *);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	186 static int dyn_libintl_init(char *dir);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	187 static void dyn_libintl_end(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	188
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	189 static HINSTANCE hLibintlDLL = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	190 static char (dyn_libintl_gettext)(const char *) = null_libintl_gettext;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	191 static char (dyn_libintl_textdomain)(const char *) = null_libintl_textdomain;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	192 static char (dyn_libintl_bindtextdomain)(const char , const char )
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	193 = null_libintl_bindtextdomain;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	194 static char (dyn_libintl_bind_textdomain_codeset)(const char , const char )
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	195 = null_libintl_bind_textdomain_codeset;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	196
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	197 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	198 // Attempt to load libintl.dll. If it doesn't work, use dummy functions.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	199 // "dir" is the directory where the libintl.dll might be.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	200 // Return 1 for success, 0 for failure.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	201 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	202 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	203 dyn_libintl_init(char *dir)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	204 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	205 int i;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	206 static struct
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	207 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	208 char *name;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	209 FARPROC *ptr;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	210 } libintl_entry[] =
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	211 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	212 {(char )"gettext", (FARPROC)&dyn_libintl_gettext},
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	213 {(char )"textdomain", (FARPROC)&dyn_libintl_textdomain},
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	214 {(char )"bindtextdomain", (FARPROC)&dyn_libintl_bindtextdomain},
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	215 {(char )"bind_textdomain_codeset", (FARPROC)&dyn_libintl_bind_textdomain_codeset},
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	216 {NULL, NULL}
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	217 };
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	218 DWORD len, len2;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	219 LPWSTR buf = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	220 LPWSTR buf2 = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	221
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	222 // No need to initialize twice.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	223 if (hLibintlDLL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	224 return 1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	225
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	226 // Load gettext library from $VIMRUNTIME\GvimExt{64,32} directory.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	227 // Add the directory to $PATH temporarily.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	228 len = GetEnvironmentVariableW(L"PATH", NULL, 0);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	229 len2 = MAX_PATH + 1 + len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	230 buf = (LPWSTR)malloc(len * sizeof(WCHAR));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	231 buf2 = (LPWSTR)malloc(len2 * sizeof(WCHAR));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	232 if (buf != NULL && buf2 != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	233 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	234 GetEnvironmentVariableW(L"PATH", buf, len);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	235 # ifdef _WIN64
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	236 _snwprintf(buf2, len2, L"%S\\GvimExt64;%s", dir, buf);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	237 # else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	238 _snwprintf(buf2, len2, L"%S\\GvimExt32;%s", dir, buf);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	239 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	240 SetEnvironmentVariableW(L"PATH", buf2);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	241 hLibintlDLL = LoadLibrary(GETTEXT_DLL);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	242 # ifdef GETTEXT_DLL_ALT
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	243 if (!hLibintlDLL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	244 hLibintlDLL = LoadLibrary(GETTEXT_DLL_ALT);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	245 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	246 SetEnvironmentVariableW(L"PATH", buf);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	247 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	248 free(buf);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	249 free(buf2);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	250 if (!hLibintlDLL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	251 return 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	252
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	253 // Get the addresses of the functions we need.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	254 for (i = 0; libintl_entry[i].name != NULL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	255 && libintl_entry[i].ptr != NULL; ++i)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	256 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	257 if ((*libintl_entry[i].ptr = GetProcAddress(hLibintlDLL,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	258 libintl_entry[i].name)) == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	259 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	260 dyn_libintl_end();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	261 return 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	262 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	263 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	264 return 1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	265 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	266
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	267 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	268 dyn_libintl_end(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	269 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	270 if (hLibintlDLL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	271 FreeLibrary(hLibintlDLL);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	272 hLibintlDLL = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	273 dyn_libintl_gettext = null_libintl_gettext;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	274 dyn_libintl_textdomain = null_libintl_textdomain;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	275 dyn_libintl_bindtextdomain = null_libintl_bindtextdomain;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	276 dyn_libintl_bind_textdomain_codeset = null_libintl_bind_textdomain_codeset;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	277 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	278
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	279 static char *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	280 null_libintl_gettext(const char *msgid)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	281 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	282 return (char *)msgid;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	283 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	284
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	285 static char *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	286 null_libintl_textdomain(const char * /* domainname */)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	287 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	288 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	289 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	290
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	291 static char *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	292 null_libintl_bindtextdomain(const char * /* domainname /, const char /* dirname */)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	293 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	294 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	295 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	296
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	297 static char *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	298 null_libintl_bind_textdomain_codeset(const char * /* domainname /, const char /* codeset */)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	299 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	300 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	301 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	302
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	303 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	304 // Setup for translating strings.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	305 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	306 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	307 dyn_gettext_load(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	308 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	309 char szBuff[BUFSIZE];
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	310 DWORD len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	311
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	312 // Try to locate the runtime files. The path is used to find libintl.dll
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	313 // and the vim.mo files.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	314 getRuntimeDir(szBuff);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	315 if (szBuff[0] != 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	316 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	317 len = (DWORD)strlen(szBuff);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	318 if (dyn_libintl_init(szBuff))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	319 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	320 strcpy(szBuff + len, "lang");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	321
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	322 (*dyn_libintl_bindtextdomain)(VIMPACKAGE, szBuff);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	323 (*dyn_libintl_textdomain)(VIMPACKAGE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	324 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	325 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	326 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	327
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	328 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	329 dyn_gettext_free(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	330 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	331 dyn_libintl_end();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	332 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	333
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	334 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	335 // Use UTF-8 for gettext. Returns previous codeset.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	336 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	337 static char *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	338 set_gettext_codeset(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	339 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	340 char *prev = dyn_libintl_bind_textdomain_codeset(VIMPACKAGE, NULL);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	341 prev = _strdup((prev != NULL) ? prev : "char");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	342 dyn_libintl_bind_textdomain_codeset(VIMPACKAGE, "utf-8");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	343
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	344 return prev;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	345 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	346
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	347 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	348 // Restore previous codeset for gettext.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	349 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	350 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	351 restore_gettext_codeset(char *prev)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	352 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	353 dyn_libintl_bind_textdomain_codeset(VIMPACKAGE, prev);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	354 free(prev);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	355 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	356 #endif // FEAT_GETTEXT
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	357
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	358 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	359 // Global variables
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	360 //
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	361 UINT g_cRefThisDll = 0; // Reference count of this DLL.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	362 HINSTANCE g_hmodThisDll = NULL; // Handle to this DLL itself.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	363
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	364
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	365 //---------------------------------------------------------------------------
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	366 // DllMain
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	367 //---------------------------------------------------------------------------
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	368 extern "C" int APIENTRY
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	369 DllMain(HINSTANCE hInstance, DWORD dwReason, LPVOID /* lpReserved */)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	370 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	371 switch (dwReason)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	372 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	373 case DLL_PROCESS_ATTACH:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	374 // Extension DLL one-time initialization
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	375 g_hmodThisDll = hInstance;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	376 break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	377
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	378 case DLL_PROCESS_DETACH:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	379 break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	380 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	381
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	382 return 1; // ok
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	383 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	384
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	385 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	386 inc_cRefThisDLL()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	387 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	388 #ifdef FEAT_GETTEXT
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	389 if (g_cRefThisDll == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	390 dyn_gettext_load();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	391 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	392 InterlockedIncrement((LPLONG)&g_cRefThisDll);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	393 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	394
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	395 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	396 dec_cRefThisDLL()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	397 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	398 #ifdef FEAT_GETTEXT
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	399 if (InterlockedDecrement((LPLONG)&g_cRefThisDll) == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	400 dyn_gettext_free();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	401 #else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	402 InterlockedDecrement((LPLONG)&g_cRefThisDll);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	403 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	404 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	405
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	406 //---------------------------------------------------------------------------
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	407 // DllCanUnloadNow
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	408 //---------------------------------------------------------------------------
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	409
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	410 STDAPI DllCanUnloadNow(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	411 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	412 return (g_cRefThisDll == 0 ? S_OK : S_FALSE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	413 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	414
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	415 STDAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppvOut)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	416 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	417 *ppvOut = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	418
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	419 if (IsEqualIID(rclsid, CLSID_ShellExtension))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	420 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	421 CShellExtClassFactory *pcf = new CShellExtClassFactory;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	422
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	423 return pcf->QueryInterface(riid, ppvOut);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	424 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	425
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	426 return CLASS_E_CLASSNOTAVAILABLE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	427 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	428
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	429 CShellExtClassFactory::CShellExtClassFactory()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	430 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	431 m_cRef = 0L;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	432
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	433 inc_cRefThisDLL();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	434 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	435
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	436 CShellExtClassFactory::~CShellExtClassFactory()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	437 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	438 dec_cRefThisDLL();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	439 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	440
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	441 STDMETHODIMP CShellExtClassFactory::QueryInterface(REFIID riid,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	442 LPVOID FAR *ppv)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	443 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	444 *ppv = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	445
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	446 // any interface on this object is the object pointer
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	447
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	448 if (IsEqualIID(riid, IID_IUnknown) \|\| IsEqualIID(riid, IID_IClassFactory))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	449 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	450 *ppv = (LPCLASSFACTORY)this;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	451
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	452 AddRef();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	453
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	454 return NOERROR;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	455 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	456
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	457 return E_NOINTERFACE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	458 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	459
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	460 STDMETHODIMP_(ULONG) CShellExtClassFactory::AddRef()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	461 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	462 return InterlockedIncrement((LPLONG)&m_cRef);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	463 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	464
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	465 STDMETHODIMP_(ULONG) CShellExtClassFactory::Release()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	466 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	467 if (InterlockedDecrement((LPLONG)&m_cRef))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	468 return m_cRef;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	469
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	470 delete this;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	471
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	472 return 0L;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	473 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	474
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	475 STDMETHODIMP CShellExtClassFactory::CreateInstance(LPUNKNOWN pUnkOuter,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	476 REFIID riid,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	477 LPVOID *ppvObj)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	478 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	479 *ppvObj = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	480
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	481 // Shell extensions typically don't support aggregation (inheritance)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	482
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	483 if (pUnkOuter)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	484 return CLASS_E_NOAGGREGATION;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	485
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	486 // Create the main shell extension object. The shell will then call
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	487 // QueryInterface with IID_IShellExtInit--this is how shell extensions are
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	488 // initialized.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	489
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	490 LPCSHELLEXT pShellExt = new CShellExt(); // create the CShellExt object
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	491
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	492 if (NULL == pShellExt)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	493 return E_OUTOFMEMORY;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	494
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	495 return pShellExt->QueryInterface(riid, ppvObj);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	496 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	497
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	498
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	499 STDMETHODIMP CShellExtClassFactory::LockServer(BOOL /* fLock */)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32491 diff changeset	500 {

32669

448aef880252 normalize line endings