Merge branch 'vim-with-runtime' into fix/fast-join
[vim_extended.git] / src / os_win16.c
blob1cf3ff8e93dfbde46e0bcda84fc6de82fd33362d
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.
8 */
9 /*
10 * os_win16.c
12 * Win16 (Windows 3.1x) system-dependent routines.
13 * Carved brutally from os_win32.c by Vince Negri <vn@aslnet.co.uk>
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
23 #include "vimio.h"
24 #include "vim.h"
26 #include <dos.h>
27 #include <string.h>
28 #include <sys/types.h>
29 #include <errno.h>
30 #include <signal.h>
31 #include <limits.h>
32 #include <process.h>
34 #undef chdir
35 #include <direct.h>
36 #include <shellapi.h> /* required for FindExecutable() */
39 /* Record all output and all keyboard & mouse input */
40 /* #define MCH_WRITE_DUMP */
42 #ifdef MCH_WRITE_DUMP
43 FILE* fdDump = NULL;
44 #endif
48 * When generating prototypes for Win32 on Unix, these lines make the syntax
49 * errors disappear. They do not need to be correct.
51 #ifdef PROTO
52 typedef int HANDLE;
53 typedef int SMALL_RECT;
54 typedef int COORD;
55 typedef int SHORT;
56 typedef int WORD;
57 typedef int DWORD;
58 typedef int BOOL;
59 typedef int LPSTR;
60 typedef int LPTSTR;
61 typedef int KEY_EVENT_RECORD;
62 typedef int MOUSE_EVENT_RECORD;
63 # define WINAPI
64 typedef int CONSOLE_CURSOR_INFO;
65 typedef char * LPCSTR;
66 # define WINBASEAPI
67 typedef int INPUT_RECORD;
68 # define _cdecl
69 #endif
71 #ifdef __BORLANDC__
72 /* being a more ANSI compliant compiler, BorlandC doesn't define _stricoll:
73 * but it does in BC 5.02! */
74 # if __BORLANDC__ < 0x502
75 int _stricoll(char *a, char *b);
76 # endif
77 #endif
79 /* cproto doesn't create a prototype for main() */
80 int _cdecl
81 VimMain
82 __ARGS((int argc, char **argv));
83 static int (_cdecl *pmain)(int, char **);
85 #ifndef PROTO
86 void _cdecl SaveInst(HINSTANCE hInst);
87 static void (_cdecl *pSaveInst)(HINSTANCE);
89 int WINAPI
90 WinMain(
91 HINSTANCE hInstance,
92 HINSTANCE hPrevInst,
93 LPSTR lpszCmdLine,
94 int nCmdShow)
96 int argc;
97 char **argv;
98 char *tofree;
99 char prog[256];
102 * Ron: added full path name so that the $VIM variable will get set to our
103 * startup path (so the .vimrc file can be found w/o a VIM env. var.)
104 * Remove the ".exe" extension, and find the 1st non-space.
106 GetModuleFileName(hInstance, prog, 255);
107 if (*prog != NUL)
108 exe_name = FullName_save((char_u *)prog, FALSE);
110 /* Separate the command line into arguments. */
111 argc = get_cmd_args(prog, (char *)lpszCmdLine, &argv, &tofree);
112 if (argc == 0)
114 /* Error message? */
115 return 0;
118 pSaveInst = SaveInst;
119 pmain = VimMain;
120 pSaveInst(hInstance);
121 pmain(argc, argv);
123 free(argv);
124 if (tofree != NULL)
125 free(tofree);
127 return 0;
129 #endif
136 #ifdef FEAT_MOUSE
139 * For the GUI the mouse handling is in gui_w32.c.
141 void
142 mch_setmouse(
143 int on)
146 #endif /* FEAT_MOUSE */
151 * GUI version of mch_init().
153 void
154 mch_init()
156 extern int _fmode;
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);
163 _fmode = O_BINARY; /* we do our own CR-LF translation */
165 /* Specify window size. Is there a place to get the default from? */
166 Rows = 25;
167 Columns = 80;
170 set_option_value((char_u *)"grepprg", 0, (char_u *)"grep -n", 0);
172 #ifdef FEAT_CLIPBOARD
173 clip_init(TRUE);
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.
181 clip_star.format = RegisterClipboardFormat("VimClipboard2");
182 clip_star.format_raw = RegisterClipboardFormat("VimRawBytes");
183 #endif
189 * Do we have an interactive window?
192 mch_check_win(
193 int argc,
194 char **argv)
196 int i;
198 return OK; /* GUI always has a tty */
203 * return process ID
205 long
206 mch_get_pid()
208 return (long)GetCurrentTask();
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)
220 static int
221 mch_system(char *cmd, int options)
223 DWORD ret = 0;
224 UINT wShowWindow;
225 UINT h_module;
226 MSG msg;
227 BOOL again = TRUE;
230 * It's nicer to run a filter command in a minimized window, but in
232 if (options & SHELL_DOOUT)
233 wShowWindow = SW_SHOWMINIMIZED;
234 else
235 wShowWindow = SW_SHOWNORMAL;
237 /* Now, run the command */
238 h_module = WinExec((LPCSTR)cmd, wShowWindow);
240 if (h_module < 32)
242 /*error*/
243 ret = -h_module;
245 else
247 /* Wait for the command to terminate before continuing */
248 while (GetModuleUsage((HINSTANCE)h_module) > 0 && again )
250 while( PeekMessage( &msg, NULL, 0, 0, PM_REMOVE ) && again )
252 if(msg.message == WM_QUIT)
255 PostQuitMessage(msg.wParam);
256 again = FALSE;
258 TranslateMessage(&msg);
259 DispatchMessage(&msg);
264 return ret;
268 * Either execute a command by calling the shell or start a new shell
271 mch_call_shell(
272 char_u *cmd,
273 int options) /* SHELL_, see vim.h */
275 int x;
276 int tmode = cur_tmode;
278 out_flush();
281 #ifdef MCH_WRITE_DUMP
282 if (fdDump)
284 fprintf(fdDump, "mch_call_shell(\"%s\", %d)\n", cmd, options);
285 fflush(fdDump);
287 #endif
290 * Catch all deadly signals while running the external command, because a
291 * CTRL-C, Ctrl-Break or illegal instruction might otherwise kill us.
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);
300 if (options & SHELL_COOKED)
301 settmode(TMODE_COOK); /* set to normal mode */
303 if (cmd == NULL)
305 x = mch_system(p_sh, options);
307 else
309 /* we use "command" or "cmd" to start the shell; slow but easy */
310 char_u *newcmd;
312 newcmd = lalloc(
313 STRLEN(p_sh) + STRLEN(p_shcf) + STRLEN(cmd) + 10, TRUE);
314 if (newcmd != NULL)
316 if (STRNICMP(cmd, "start ", 6) == 0)
318 sprintf((char *)newcmd, "%s\0", cmd+6);
319 if (WinExec((LPCSTR)newcmd, SW_SHOWNORMAL) > 31)
320 x = 0;
321 else
322 x = -1;
324 else
326 sprintf((char *)newcmd, "%s%s %s %s",
328 p_sh,
329 p_shcf,
330 cmd);
331 x = mch_system((char *)newcmd, options);
333 vim_free(newcmd);
337 if (tmode == TMODE_RAW)
338 settmode(TMODE_RAW); /* set to raw mode */
340 if (x && !(options & SHELL_SILENT) && !emsg_silent)
342 smsg(_("shell returned %d"), x);
343 msg_putchar('\n');
345 #ifdef FEAT_TITLE
346 resettitle();
347 #endif
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);
357 return x;
362 * Delay for half a second.
364 void
365 mch_delay(
366 long msec,
367 int ignoreinput)
369 #ifdef MUST_FIX
370 Sleep((int)msec); /* never wait for input */
371 #endif
376 * check for an "interrupt signal": CTRL-break or CTRL-C
378 void
379 mch_breakcheck()
381 /* never used */
386 * How much memory is available?
388 long_u
389 mch_avail_mem(
390 int special)
392 return GetFreeSpace(0);
397 * Like rename(), returns 0 upon success, non-zero upon failure.
398 * Should probably set errno appropriately when errors occur.
401 mch_rename(
402 const char *pszOldFile,
403 const char *pszNewFile)
407 * No need to play tricks, this isn't rubbish like Windows 95 <g>
409 return rename(pszOldFile, pszNewFile);
414 * Get the default shell for the current hardware platform
416 char*
417 default_shell()
419 char* psz = NULL;
421 psz = "command.com";
423 return psz;