|
442
|
1 /* Utility routines for XEmacs on Windows 9x, NT and Cygwin.
|
|
|
2 Copyright (C) 2000 Ben Wing.
|
|
|
3
|
|
|
4 This file is part of XEmacs.
|
|
|
5
|
|
|
6 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
7 under the terms of the GNU General Public License as published by the
|
|
|
8 Free Software Foundation; either version 2, or (at your option) any
|
|
|
9 later version.
|
|
|
10
|
|
|
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
14 for more details.
|
|
|
15
|
|
|
16 You should have received a copy of the GNU General Public License
|
|
|
17 along with XEmacs; see the file COPYING. If not, write to the Free
|
|
|
18 Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
|
|
19 02111-1307, USA. */
|
|
|
20
|
|
|
21 #include <config.h>
|
|
|
22 #include "lisp.h"
|
|
|
23
|
|
|
24 #include "buffer.h"
|
|
|
25 #include "syswindows.h"
|
|
|
26
|
|
|
27 typedef BOOL (WINAPI *pfSwitchToThread_t) (VOID);
|
|
|
28 pfSwitchToThread_t xSwitchToThread;
|
|
|
29
|
|
|
30 typedef HKL (WINAPI *pfGetKeyboardLayout_t) (DWORD);
|
|
|
31 pfGetKeyboardLayout_t xGetKeyboardLayout;
|
|
|
32 typedef BOOL (WINAPI *pfSetMenuDefaultItem_t) (HMENU, UINT, UINT);
|
|
|
33 pfSetMenuDefaultItem_t xSetMenuDefaultItem;
|
|
|
34 typedef BOOL (WINAPI *pfInsertMenuItemA_t)
|
|
|
35 (HMENU, UINT, BOOL, LPCMENUITEMINFOA);
|
|
|
36 pfInsertMenuItemA_t xInsertMenuItemA;
|
|
|
37 typedef BOOL (WINAPI *pfInsertMenuItemW_t)
|
|
|
38 (HMENU, UINT, BOOL, LPCMENUITEMINFOW);
|
|
|
39 pfInsertMenuItemW_t xInsertMenuItemW;
|
|
|
40 typedef HANDLE (WINAPI *pfLoadImageA_t)
|
|
|
41 (HINSTANCE, LPCSTR, UINT, int, int, UINT);
|
|
|
42 pfLoadImageA_t xLoadImageA;
|
|
|
43 typedef HANDLE (WINAPI *pfLoadImageW_t)
|
|
|
44 (HINSTANCE, LPCWSTR, UINT, int, int, UINT);
|
|
|
45 pfLoadImageW_t xLoadImageW;
|
|
|
46 typedef ATOM (WINAPI *pfRegisterClassExA_t) (CONST WNDCLASSEXA *);
|
|
|
47 pfRegisterClassExA_t xRegisterClassExA;
|
|
|
48 typedef ATOM (WINAPI *pfRegisterClassExW_t) (CONST WNDCLASSEXW *);
|
|
|
49 pfRegisterClassExW_t xRegisterClassExW;
|
|
|
50
|
|
|
51 typedef int (WINAPI *pfEnumFontFamiliesExA_t)
|
|
|
52 (HDC, LPLOGFONTA, FONTENUMPROCA, LPARAM, DWORD);
|
|
|
53 pfEnumFontFamiliesExA_t xEnumFontFamiliesExA;
|
|
|
54 typedef int (WINAPI *pfEnumFontFamiliesExW_t)
|
|
|
55 (HDC, LPLOGFONTW, FONTENUMPROCW, LPARAM, DWORD);
|
|
|
56 pfEnumFontFamiliesExW_t xEnumFontFamiliesExW;
|
|
|
57
|
|
|
58 typedef DWORD (WINAPI *pfSHGetFileInfoA_t)
|
|
|
59 (LPCSTR, DWORD, SHFILEINFOA FAR *, UINT, UINT);
|
|
|
60 pfSHGetFileInfoA_t xSHGetFileInfoA;
|
|
|
61 typedef DWORD (WINAPI *pfSHGetFileInfoW_t)
|
|
|
62 (LPCWSTR, DWORD, SHFILEINFOW FAR *, UINT, UINT);
|
|
|
63 pfSHGetFileInfoW_t xSHGetFileInfoW;
|
|
|
64
|
|
531
|
65 typedef NET_API_STATUS (NET_API_FUNCTION *pfNetUserEnum_t)
|
|
|
66 (
|
|
|
67 IN LPCWSTR servername OPTIONAL,
|
|
|
68 IN DWORD level,
|
|
|
69 IN DWORD filter,
|
|
|
70 OUT LPBYTE *bufptr,
|
|
|
71 IN DWORD prefmaxlen,
|
|
|
72 OUT LPDWORD entriesread,
|
|
|
73 OUT LPDWORD totalentries,
|
|
|
74 IN OUT LPDWORD resume_handle OPTIONAL
|
|
|
75 );
|
|
|
76 pfNetUserEnum_t xNetUserEnum;
|
|
|
77
|
|
|
78 typedef NET_API_STATUS (NET_API_FUNCTION *pfNetApiBufferFree_t)
|
|
|
79 (
|
|
|
80 IN LPVOID Buffer
|
|
|
81 );
|
|
|
82 pfNetApiBufferFree_t xNetApiBufferFree;
|
|
|
83
|
|
442
|
84 Lisp_Object
|
|
|
85 tstr_to_local_file_format (Extbyte *pathout)
|
|
|
86 {
|
|
|
87 Bufbyte *ttlff;
|
|
|
88 Lisp_Object in;
|
|
|
89
|
|
|
90 EXTERNAL_TO_C_STRING (pathout, ttlff, Qmswindows_tstr);
|
|
|
91 WIN32_TO_LOCAL_FILE_FORMAT (ttlff, in);
|
|
|
92
|
|
|
93 return in;
|
|
|
94 }
|
|
|
95
|
|
|
96 static void
|
|
|
97 init_potentially_nonexistent_functions (void)
|
|
|
98 {
|
|
|
99 HMODULE h_kernel = GetModuleHandle ("kernel32");
|
|
|
100 HMODULE h_user = GetModuleHandle ("user32");
|
|
|
101 HMODULE h_gdi = GetModuleHandle ("gdi32");
|
|
|
102 HMODULE h_shell = GetModuleHandle ("shell32");
|
|
531
|
103 /* the following does not seem to get mapped in automatically */
|
|
|
104 HMODULE h_netapi = LoadLibrary ("netapi32.dll");
|
|
442
|
105
|
|
|
106 if (h_kernel)
|
|
|
107 {
|
|
|
108 xSwitchToThread =
|
|
|
109 (pfSwitchToThread_t) GetProcAddress (h_kernel, "SwitchToThread");
|
|
|
110 }
|
|
|
111
|
|
|
112 if (h_user)
|
|
|
113 {
|
|
|
114 xGetKeyboardLayout =
|
|
|
115 (pfGetKeyboardLayout_t) GetProcAddress (h_user, "GetKeyboardLayout");
|
|
|
116 xSetMenuDefaultItem =
|
|
|
117 (pfSetMenuDefaultItem_t) GetProcAddress (h_user, "SetMenuDefaultItem");
|
|
|
118 xInsertMenuItemA =
|
|
|
119 (pfInsertMenuItemA_t) GetProcAddress (h_user, "InsertMenuItemA");
|
|
|
120 xInsertMenuItemW =
|
|
|
121 (pfInsertMenuItemW_t) GetProcAddress (h_user, "InsertMenuItemW");
|
|
|
122 xLoadImageA =
|
|
|
123 (pfLoadImageA_t) GetProcAddress (h_user, "LoadImageA");
|
|
|
124 xLoadImageW =
|
|
|
125 (pfLoadImageW_t) GetProcAddress (h_user, "LoadImageW");
|
|
|
126 xRegisterClassExA =
|
|
|
127 (pfRegisterClassExA_t) GetProcAddress (h_user, "RegisterClassExA");
|
|
|
128 xRegisterClassExW =
|
|
|
129 (pfRegisterClassExW_t) GetProcAddress (h_user, "RegisterClassExW");
|
|
|
130 }
|
|
|
131
|
|
|
132 if (h_gdi)
|
|
|
133 {
|
|
|
134 xEnumFontFamiliesExA =
|
|
|
135 (pfEnumFontFamiliesExA_t) GetProcAddress (h_gdi, "EnumFontFamiliesExA");
|
|
|
136 xEnumFontFamiliesExW =
|
|
|
137 (pfEnumFontFamiliesExW_t) GetProcAddress (h_gdi, "EnumFontFamiliesExW");
|
|
|
138 }
|
|
|
139
|
|
|
140 if (h_shell)
|
|
|
141 {
|
|
|
142 xSHGetFileInfoA =
|
|
|
143 (pfSHGetFileInfoA_t) GetProcAddress (h_shell, "SHGetFileInfoA");
|
|
|
144 xSHGetFileInfoW =
|
|
|
145 (pfSHGetFileInfoW_t) GetProcAddress (h_shell, "SHGetFileInfoW");
|
|
|
146 }
|
|
531
|
147
|
|
|
148 if (h_netapi)
|
|
|
149 {
|
|
|
150 xNetUserEnum =
|
|
|
151 (pfNetUserEnum_t) GetProcAddress (h_netapi, "NetUserEnum");
|
|
|
152 xNetApiBufferFree =
|
|
|
153 (pfNetApiBufferFree_t) GetProcAddress (h_netapi, "NetApiBufferFree");
|
|
|
154 }
|
|
442
|
155 }
|
|
|
156
|
|
|
157 DEFUN ("mswindows-shell-execute", Fmswindows_shell_execute, 2, 4, 0, /*
|
|
|
158 Get Windows to perform OPERATION on DOCUMENT.
|
|
|
159 This is a wrapper around the ShellExecute system function, which
|
|
|
160 invokes the application registered to handle OPERATION for DOCUMENT.
|
|
|
161 OPERATION is typically \"open\", \"print\" or \"explore\" (but can be
|
|
|
162 nil for the default action), and DOCUMENT is typically the name of a
|
|
|
163 document file or URL, but can also be a program executable to run or
|
|
|
164 a directory to open in the Windows Explorer.
|
|
|
165
|
|
|
166 If DOCUMENT is a program executable, PARAMETERS can be a string
|
|
|
167 containing command line parameters, but otherwise should be nil.
|
|
|
168
|
|
|
169 SHOW-FLAG can be used to control whether the invoked application is hidden
|
|
|
170 or minimized. If SHOW-FLAG is nil, the application is displayed normally,
|
|
|
171 otherwise it is an integer representing a ShowWindow flag:
|
|
|
172
|
|
|
173 0 - start hidden
|
|
|
174 1 - start normally
|
|
|
175 3 - start maximized
|
|
|
176 6 - start minimized
|
|
|
177 */
|
|
|
178 (operation, document, parameters, show_flag))
|
|
|
179 {
|
|
|
180 /* Encode filename and current directory. */
|
|
|
181 Lisp_Object current_dir = Ffile_name_directory (document);
|
|
|
182 char* path = NULL;
|
|
|
183 char* doc = NULL;
|
|
|
184 Extbyte* f=0;
|
|
|
185 int ret;
|
|
|
186 struct gcpro gcpro1, gcpro2;
|
|
|
187
|
|
|
188 CHECK_STRING (document);
|
|
|
189
|
|
|
190 if (NILP (current_dir))
|
|
|
191 current_dir = current_buffer->directory;
|
|
|
192
|
|
|
193 GCPRO2 (current_dir, document);
|
|
|
194
|
|
|
195 /* Use mule and cygwin-safe APIs top get at file data. */
|
|
|
196 if (STRINGP (current_dir))
|
|
|
197 {
|
|
|
198 TO_EXTERNAL_FORMAT (LISP_STRING, current_dir,
|
|
|
199 C_STRING_ALLOCA, f,
|
|
|
200 Qfile_name);
|
|
|
201 #ifdef CYGWIN
|
|
|
202 CYGWIN_WIN32_PATH (f, path);
|
|
|
203 #else
|
|
|
204 path = f;
|
|
|
205 #endif
|
|
|
206 }
|
|
|
207
|
|
|
208 if (STRINGP (document))
|
|
|
209 {
|
|
|
210 TO_EXTERNAL_FORMAT (LISP_STRING, document,
|
|
|
211 C_STRING_ALLOCA, f,
|
|
|
212 Qfile_name);
|
|
|
213 #ifdef CYGWIN
|
|
|
214 CYGWIN_WIN32_PATH (f, doc);
|
|
|
215 #else
|
|
|
216 doc = f;
|
|
|
217 #endif
|
|
|
218 }
|
|
|
219
|
|
|
220 UNGCPRO;
|
|
|
221
|
|
|
222 ret = (int) ShellExecute (NULL,
|
|
|
223 (STRINGP (operation) ?
|
|
|
224 XSTRING_DATA (operation) : NULL),
|
|
|
225 doc,
|
|
|
226 (STRINGP (parameters) ?
|
|
|
227 XSTRING_DATA (parameters) : NULL),
|
|
|
228 path,
|
|
|
229 (INTP (show_flag) ?
|
|
|
230 XINT (show_flag) : SW_SHOWDEFAULT));
|
|
|
231
|
|
|
232 if (ret > 32)
|
|
|
233 return Qt;
|
|
|
234
|
|
|
235 if (ret == ERROR_FILE_NOT_FOUND)
|
|
|
236 signal_simple_error ("file not found", document);
|
|
|
237 else if (ret == ERROR_PATH_NOT_FOUND)
|
|
|
238 signal_simple_error ("path not found", current_dir);
|
|
|
239 else if (ret == ERROR_BAD_FORMAT)
|
|
|
240 signal_simple_error ("bad executable format", document);
|
|
|
241 else
|
|
|
242 error ("internal error");
|
|
|
243
|
|
|
244 return Qnil;
|
|
|
245 }
|
|
|
246
|
|
|
247 void
|
|
|
248 syms_of_win32 (void)
|
|
|
249 {
|
|
|
250 DEFSUBR (Fmswindows_shell_execute);
|
|
|
251 }
|
|
|
252
|
|
|
253 void
|
|
|
254 init_win32 (void)
|
|
|
255 {
|
|
|
256 init_potentially_nonexistent_functions ();
|
|
|
257 }
|
