diff options
Diffstat (limited to 'src/os_win16.c')
| -rw-r--r-- | src/os_win16.c | 424 |
1 files changed, 424 insertions, 0 deletions
diff --git a/src/os_win16.c b/src/os_win16.c new file mode 100644 index 000000000..1b1ccd700 --- /dev/null +++ b/src/os_win16.c @@ -0,0 +1,424 @@ +/* vi:set ts=8 sts=4 sw=4: + * + * VIM - Vi IMproved by Bram Moolenaar + * + * Do ":help uganda" in Vim to read copying and usage conditions. + * Do ":help credits" in Vim to see a list of people who contributed. + * See README.txt for an overview of the Vim source code. + */ +/* + * os_win16.c + * + * Win16 (Windows 3.1x) system-dependent routines. + * Carved brutally from os_win32.c by Vince Negri <vn@aslnet.co.uk> + */ +#ifdef __BORLANDC__ +# pragma warn -par +# pragma warn -ucp +# pragma warn -use +# pragma warn -aus +# pragma warn -obs +#endif + +#include <io.h> +#include "vim.h" + +#include <fcntl.h> +#include <dos.h> +#include <string.h> +#include <sys/types.h> +#include <errno.h> +#include <signal.h> +#include <limits.h> +#include <process.h> + +#undef chdir +#include <direct.h> +#include <shellapi.h> /* required for FindExecutable() */ + + +/* Record all output and all keyboard & mouse input */ +/* #define MCH_WRITE_DUMP */ + +#ifdef MCH_WRITE_DUMP +FILE* fdDump = NULL; +#endif + + +/* + * When generating prototypes for Win32 on Unix, these lines make the syntax + * errors disappear. They do not need to be correct. + */ +#ifdef PROTO +typedef int HANDLE; +typedef int SMALL_RECT; +typedef int COORD; +typedef int SHORT; +typedef int WORD; +typedef int DWORD; +typedef int BOOL; +typedef int LPSTR; +typedef int LPTSTR; +typedef int KEY_EVENT_RECORD; +typedef int MOUSE_EVENT_RECORD; +# define WINAPI +typedef int CONSOLE_CURSOR_INFO; +typedef char * LPCSTR; +# define WINBASEAPI +typedef int INPUT_RECORD; +# define _cdecl +#endif + +#ifdef __BORLANDC__ +/* being a more ANSI compliant compiler, BorlandC doesn't define _stricoll: + * but it does in BC 5.02! */ +# if __BORLANDC__ < 0x502 +int _stricoll(char *a, char *b); +# endif +#endif + +/* cproto doesn't create a prototype for main() */ +int _cdecl +VimMain +__ARGS((int argc, char **argv)); +int (_cdecl *pmain)(int, char **); + +#ifndef PROTO +void _cdecl SaveInst(HINSTANCE hInst); +void (_cdecl *pSaveInst)(HINSTANCE); + +int WINAPI +WinMain( + HINSTANCE hInstance, + HINSTANCE hPrevInst, + LPSTR lpszCmdLine, + int nCmdShow) +{ + int argc; + char **argv; + char *tofree; + char prog[256]; + + /* + * Ron: added full path name so that the $VIM variable will get set to our + * startup path (so the .vimrc file can be found w/o a VIM env. var.) + * Remove the ".exe" extension, and find the 1st non-space. + */ + GetModuleFileName(hInstance, prog, 255); + if (*prog != NUL) + exe_name = FullName_save((char_u *)prog, FALSE); + + /* Separate the command line into arguments. */ + argc = get_cmd_args(prog, (char *)lpszCmdLine, &argv, &tofree); + if (argc == 0) + { + /* Error message? */ + return 0; + } + + pSaveInst = SaveInst; + pmain = VimMain; + pSaveInst(hInstance); + pmain(argc, argv); + + free(argv); + free(tofree); + + return 0; +} +#endif + + + + + + +#ifdef FEAT_MOUSE + +/* + * For the GUI the mouse handling is in gui_w32.c. + */ + void +mch_setmouse( + int on) +{ +} +#endif /* FEAT_MOUSE */ + + + +/* + * GUI version of mch_init(). + */ + void +mch_init() +{ + extern int _fmode; + + + /* Let critical errors result in a failure, not in a dialog box. Required + * for the timestamp test to work on removed floppies. */ + SetErrorMode(SEM_FAILCRITICALERRORS); + + _fmode = O_BINARY; /* we do our own CR-LF translation */ + + /* Specify window size. Is there a place to get the default from? */ + Rows = 25; + Columns = 80; + + + set_option_value((char_u *)"grepprg", 0, (char_u *)"grep -n", 0); + +#ifdef FEAT_CLIPBOARD + clip_init(TRUE); + + /* + * Vim's own clipboard format recognises whether the text is char, line, + * or rectangular block. Only useful for copying between two Vims. + * "VimClipboard" was used for previous versions, using the first + * character to specify MCHAR, MLINE or MBLOCK. + */ + clip_star.format = RegisterClipboardFormat("VimClipboard2"); + clip_star.format_raw = RegisterClipboardFormat("VimRawBytes"); +#endif +} + + + +/* + * Do we have an interactive window? + */ + int +mch_check_win( + int argc, + char **argv) +{ + int i; + + return OK; /* GUI always has a tty */ +} + + +/* + * return process ID + */ + long +mch_get_pid() +{ + return (long)GetCurrentTask(); +} + + +/* + * Specialised version of system(). + * This version proceeds as follows: + * 1. Start the program with WinExec + * 2. Wait for the module use count of the program to go to 0 + * (This is the best way of detecting the program has finished) + */ + + static int +mch_system(char *cmd, int options) +{ + DWORD ret = 0; + UINT wShowWindow; + UINT h_module; + MSG msg; + BOOL again = TRUE; + + /* + * It's nicer to run a filter command in a minimized window, but in + */ + if (options & SHELL_DOOUT) + wShowWindow = SW_SHOWMINIMIZED; + else + wShowWindow = SW_SHOWNORMAL; + + /* Now, run the command */ + h_module = WinExec((LPCSTR)cmd, wShowWindow); + + if (h_module < 32) + { + /*error*/ + ret = -h_module; + } + else + { + /* Wait for the command to terminate before continuing */ + while (GetModuleUsage((HINSTANCE)h_module) > 0 && again ) + { + while( PeekMessage( &msg, NULL, 0, 0, PM_REMOVE ) && again ) + { + if(msg.message == WM_QUIT) + + { + PostQuitMessage(msg.wParam); + again = FALSE; + } + TranslateMessage(&msg); + DispatchMessage(&msg); + } + } + } + + return ret; +} + +/* + * Either execute a command by calling the shell or start a new shell + */ + int +mch_call_shell( + char_u *cmd, + int options) /* SHELL_, see vim.h */ +{ + int x; + int tmode = cur_tmode; + + out_flush(); + + +#ifdef MCH_WRITE_DUMP + if (fdDump) + { + fprintf(fdDump, "mch_call_shell(\"%s\", %d)\n", cmd, options); + fflush(fdDump); + } +#endif + + /* + * Catch all deadly signals while running the external command, because a + * CTRL-C, Ctrl-Break or illegal instruction might otherwise kill us. + */ + signal(SIGINT, SIG_IGN); + signal(SIGILL, SIG_IGN); + signal(SIGFPE, SIG_IGN); + signal(SIGSEGV, SIG_IGN); + signal(SIGTERM, SIG_IGN); + signal(SIGABRT, SIG_IGN); + + if (options & SHELL_COOKED) + settmode(TMODE_COOK); /* set to normal mode */ + + if (cmd == NULL) + { + x = mch_system(p_sh, options); + } + else + { + /* we use "command" or "cmd" to start the shell; slow but easy */ + char_u *newcmd; + + newcmd = lalloc( + STRLEN(p_sh) + STRLEN(p_shcf) + STRLEN(cmd) + 10, TRUE); + if (newcmd != NULL) + { + if (STRNICMP(cmd, "start ", 6) == 0) + { + sprintf((char *)newcmd, "%s\0", cmd+6); + if (WinExec((LPCSTR)newcmd, SW_SHOWNORMAL) > 31) + x = 0; + else + x = -1; + } + else + { + sprintf((char *)newcmd, "%s%s %s %s", + "", + p_sh, + p_shcf, + cmd); + x = mch_system((char *)newcmd, options); + } + vim_free(newcmd); + } + } + + if (tmode == TMODE_RAW) + settmode(TMODE_RAW); /* set to raw mode */ + + if (x && !(options & SHELL_SILENT) && !emsg_silent) + { + smsg(_("shell returned %d"), x); + msg_putchar('\n'); + } +#ifdef FEAT_TITLE + resettitle(); +#endif + + signal(SIGINT, SIG_DFL); + signal(SIGILL, SIG_DFL); + signal(SIGFPE, SIG_DFL); + signal(SIGSEGV, SIG_DFL); + signal(SIGTERM, SIG_DFL); + signal(SIGABRT, SIG_DFL); + + + return x; +} + + +/* + * Delay for half a second. + */ + void +mch_delay( + long msec, + int ignoreinput) +{ +#ifdef MUST_FIX + Sleep((int)msec); /* never wait for input */ +#endif +} + + +/* + * check for an "interrupt signal": CTRL-break or CTRL-C + */ + void +mch_breakcheck() +{ + /* never used */ +} + + +/* + * How much memory is available? + */ + long_u +mch_avail_mem( + int special) +{ + return GetFreeSpace(0); +} + + +/* + * Like rename(), returns 0 upon success, non-zero upon failure. + * Should probably set errno appropriately when errors occur. + */ + int +mch_rename( + const char *pszOldFile, + const char *pszNewFile) +{ + + /* + * No need to play tricks, this isn't rubbish like Windows 95 <g> + */ + return rename(pszOldFile, pszNewFile); + +} + +/* + * Get the default shell for the current hardware platform + */ + char* +default_shell() +{ + char* psz = NULL; + + psz = "command.com"; + + return psz; +} |