Mercurial > vim

comparison src/os_win16.c @ 7:3fc0f57ecb91 v7.0001

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.0001
author vimboss
date Sun, 13 Jun 2004 20:20:40 +0000
parents
children d6d6ca943713
comparison
equal deleted inserted replaced
6:c2daee826b8f 7:3fc0f57ecb91
1 /* vi:set ts=8 sts=4 sw=4:
2 *
3 * VIM - Vi IMproved by Bram Moolenaar
4 *
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.
8 */
9 /*
10 * os_win16.c
11 *
12 * Win16 (Windows 3.1x) system-dependent routines.
13 * Carved brutally from os_win32.c by Vince Negri <vn@aslnet.co.uk>
14 */
15 #ifdef __BORLANDC__
16 # pragma warn -par
17 # pragma warn -ucp
18 # pragma warn -use
19 # pragma warn -aus
20 # pragma warn -obs
21 #endif
22
23 #include <io.h>
24 #include "vim.h"
25
26 #include <fcntl.h>
27 #include <dos.h>
28 #include <string.h>
29 #include <sys/types.h>
30 #include <errno.h>
31 #include <signal.h>
32 #include <limits.h>
33 #include <process.h>
34
35 #undef chdir
36 #include <direct.h>
37 #include <shellapi.h> /* required for FindExecutable() */
38
39
40 /* Record all output and all keyboard & mouse input */
41 /* #define MCH_WRITE_DUMP */
42
43 #ifdef MCH_WRITE_DUMP
44 FILE* fdDump = NULL;
45 #endif
46
47
48 /*
49 * When generating prototypes for Win32 on Unix, these lines make the syntax
50 * errors disappear. They do not need to be correct.
51 */
52 #ifdef PROTO
53 typedef int HANDLE;
54 typedef int SMALL_RECT;
55 typedef int COORD;
56 typedef int SHORT;
57 typedef int WORD;
58 typedef int DWORD;
59 typedef int BOOL;
60 typedef int LPSTR;
61 typedef int LPTSTR;
62 typedef int KEY_EVENT_RECORD;
63 typedef int MOUSE_EVENT_RECORD;
64 # define WINAPI
65 typedef int CONSOLE_CURSOR_INFO;
66 typedef char * LPCSTR;
67 # define WINBASEAPI
68 typedef int INPUT_RECORD;
69 # define _cdecl
70 #endif
71
72 #ifdef __BORLANDC__
73 /* being a more ANSI compliant compiler, BorlandC doesn't define _stricoll:
74 * but it does in BC 5.02! */
75 # if __BORLANDC__ < 0x502
76 int _stricoll(char *a, char *b);
77 # endif
78 #endif
79
80 /* cproto doesn't create a prototype for main() */
81 int _cdecl
82 VimMain
83 __ARGS((int argc, char **argv));
84 int (_cdecl *pmain)(int, char **);
85
86 #ifndef PROTO
87 void _cdecl SaveInst(HINSTANCE hInst);
88 void (_cdecl *pSaveInst)(HINSTANCE);
89
90 int WINAPI
91 WinMain(
92 HINSTANCE hInstance,
93 HINSTANCE hPrevInst,
94 LPSTR lpszCmdLine,
95 int nCmdShow)
96 {
97 int argc;
98 char **argv;
99 char *tofree;
100 char prog[256];
101
102 /*
103 * Ron: added full path name so that the $VIM variable will get set to our
104 * startup path (so the .vimrc file can be found w/o a VIM env. var.)
105 * Remove the ".exe" extension, and find the 1st non-space.
106 */
107 GetModuleFileName(hInstance, prog, 255);
108 if (*prog != NUL)
109 exe_name = FullName_save((char_u *)prog, FALSE);
110
111 /* Separate the command line into arguments. */
112 argc = get_cmd_args(prog, (char *)lpszCmdLine, &argv, &tofree);
113 if (argc == 0)
114 {
115 /* Error message? */
116 return 0;
117 }
118
119 pSaveInst = SaveInst;
120 pmain = VimMain;
121 pSaveInst(hInstance);
122 pmain(argc, argv);
123
124 free(argv);
125 free(tofree);
126
127 return 0;
128 }
129 #endif
130
131
132
133
134
135
136 #ifdef FEAT_MOUSE
137
138 /*
139 * For the GUI the mouse handling is in gui_w32.c.
140 */
141 void
142 mch_setmouse(
143 int on)
144 {
145 }
146 #endif /* FEAT_MOUSE */
147
148
149
150 /*
151 * GUI version of mch_init().
152 */
153 void
154 mch_init()
155 {
156 extern int _fmode;
157
158
159 /* Let critical errors result in a failure, not in a dialog box. Required
160 * for the timestamp test to work on removed floppies. */
161 SetErrorMode(SEM_FAILCRITICALERRORS);
162
163 _fmode = O_BINARY; /* we do our own CR-LF translation */
164
165 /* Specify window size. Is there a place to get the default from? */
166 Rows = 25;
167 Columns = 80;
168
169
170 set_option_value((char_u *)"grepprg", 0, (char_u *)"grep -n", 0);
171
172 #ifdef FEAT_CLIPBOARD
173 clip_init(TRUE);
174
175 /*
176 * Vim's own clipboard format recognises whether the text is char, line,
177 * or rectangular block. Only useful for copying between two Vims.
178 * "VimClipboard" was used for previous versions, using the first
179 * character to specify MCHAR, MLINE or MBLOCK.
180 */
181 clip_star.format = RegisterClipboardFormat("VimClipboard2");
182 clip_star.format_raw = RegisterClipboardFormat("VimRawBytes");
183 #endif
184 }
185
186
187
188 /*
189 * Do we have an interactive window?
190 */
191 int
192 mch_check_win(
193 int argc,
194 char **argv)
195 {
196 int i;
197
198 return OK; /* GUI always has a tty */
199 }
200
201
202 /*
203 * return process ID
204 */
205 long
206 mch_get_pid()
207 {
208 return (long)GetCurrentTask();
209 }
210
211
212 /*
213 * Specialised version of system().
214 * This version proceeds as follows:
215 * 1. Start the program with WinExec
216 * 2. Wait for the module use count of the program to go to 0
217 * (This is the best way of detecting the program has finished)
218 */
219
220 static int
221 mch_system(char *cmd, int options)
222 {
223 DWORD ret = 0;
224 UINT wShowWindow;
225 UINT h_module;
226 MSG msg;
227 BOOL again = TRUE;
228
229 /*
230 * It's nicer to run a filter command in a minimized window, but in
231 */
232 if (options & SHELL_DOOUT)
233 wShowWindow = SW_SHOWMINIMIZED;
234 else
235 wShowWindow = SW_SHOWNORMAL;
236
237 /* Now, run the command */
238 h_module = WinExec((LPCSTR)cmd, wShowWindow);
239
240 if (h_module < 32)
241 {
242 /*error*/
243 ret = -h_module;
244 }
245 else
246 {
247 /* Wait for the command to terminate before continuing */
248 while (GetModuleUsage((HINSTANCE)h_module) > 0 && again )
249 {
250 while( PeekMessage( &msg, NULL, 0, 0, PM_REMOVE ) && again )
251 {
252 if(msg.message == WM_QUIT)
253
254 {
255 PostQuitMessage(msg.wParam);
256 again = FALSE;
257 }
258 TranslateMessage(&msg);
259 DispatchMessage(&msg);
260 }
261 }
262 }
263
264 return ret;
265 }
266
267 /*
268 * Either execute a command by calling the shell or start a new shell
269 */
270 int
271 mch_call_shell(
272 char_u *cmd,
273 int options) /* SHELL_, see vim.h */
274 {
275 int x;
276 int tmode = cur_tmode;
277
278 out_flush();
279
280
281 #ifdef MCH_WRITE_DUMP
282 if (fdDump)
283 {
284 fprintf(fdDump, "mch_call_shell(\"%s\", %d)\n", cmd, options);
285 fflush(fdDump);
286 }
287 #endif
288
289 /*
290 * Catch all deadly signals while running the external command, because a
291 * CTRL-C, Ctrl-Break or illegal instruction might otherwise kill us.
292 */
293 signal(SIGINT, SIG_IGN);
294 signal(SIGILL, SIG_IGN);
295 signal(SIGFPE, SIG_IGN);
296 signal(SIGSEGV, SIG_IGN);
297 signal(SIGTERM, SIG_IGN);
298 signal(SIGABRT, SIG_IGN);
299
300 if (options & SHELL_COOKED)
301 settmode(TMODE_COOK); /* set to normal mode */
302
303 if (cmd == NULL)
304 {
305 x = mch_system(p_sh, options);
306 }
307 else
308 {
309 /* we use "command" or "cmd" to start the shell; slow but easy */
310 char_u *newcmd;
311
312 newcmd = lalloc(
313 STRLEN(p_sh) + STRLEN(p_shcf) + STRLEN(cmd) + 10, TRUE);
314 if (newcmd != NULL)
315 {
316 if (STRNICMP(cmd, "start ", 6) == 0)
317 {
318 sprintf((char *)newcmd, "%s\0", cmd+6);
319 if (WinExec((LPCSTR)newcmd, SW_SHOWNORMAL) > 31)
320 x = 0;
321 else
322 x = -1;
323 }
324 else
325 {
326 sprintf((char *)newcmd, "%s%s %s %s",
327 "",
328 p_sh,
329 p_shcf,
330 cmd);
331 x = mch_system((char *)newcmd, options);
332 }
333 vim_free(newcmd);
334 }
335 }
336
337 if (tmode == TMODE_RAW)
338 settmode(TMODE_RAW); /* set to raw mode */
339
340 if (x && !(options & SHELL_SILENT) && !emsg_silent)
341 {
342 smsg(_("shell returned %d"), x);
343 msg_putchar('\n');
344 }
345 #ifdef FEAT_TITLE
346 resettitle();
347 #endif
348
349 signal(SIGINT, SIG_DFL);
350 signal(SIGILL, SIG_DFL);
351 signal(SIGFPE, SIG_DFL);
352 signal(SIGSEGV, SIG_DFL);
353 signal(SIGTERM, SIG_DFL);
354 signal(SIGABRT, SIG_DFL);
355
356
357 return x;
358 }
359
360
361 /*
362 * Delay for half a second.
363 */
364 void
365 mch_delay(
366 long msec,
367 int ignoreinput)
368 {
369 #ifdef MUST_FIX
370 Sleep((int)msec); /* never wait for input */
371 #endif
372 }
373
374
375 /*
376 * check for an "interrupt signal": CTRL-break or CTRL-C
377 */
378 void
379 mch_breakcheck()
380 {
381 /* never used */
382 }
383
384
385 /*
386 * How much memory is available?
387 */
388 long_u
389 mch_avail_mem(
390 int special)
391 {
392 return GetFreeSpace(0);
393 }
394
395
396 /*
397 * Like rename(), returns 0 upon success, non-zero upon failure.
398 * Should probably set errno appropriately when errors occur.
399 */
400 int
401 mch_rename(
402 const char *pszOldFile,
403 const char *pszNewFile)
404 {
405
406 /*
407 * No need to play tricks, this isn't rubbish like Windows 95 <g>
408 */
409 return rename(pszOldFile, pszNewFile);
410
411 }
412
413 /*
414 * Get the default shell for the current hardware platform
415 */
416 char*
417 default_shell()
418 {
419 char* psz = NULL;
420
421 psz = "command.com";
422
423 return psz;
424 }