开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编辑器/阅读器 > 查看源码
main.c
资源名称：vim53src.zip　[点击查看]
上传用户：gddssl
上传日期：2007-01-06
资源大小：1003k
文件大小：43k
源码类别：

编辑器/阅读器

开发平台：

DOS

main.c：源码内容
  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.  */
  9. #define EXTERN
  10. #include "vim.h"
  12. #ifdef SPAWNO
  13. # include <spawno.h> /* special MSDOS swapping library */
  14. #endif
  16. static void mainerr __ARGS((int, char_u *));
  17. static void main_msg __ARGS((char *s));
  18. static void usage __ARGS((void));
  19. static int get_number_arg __ARGS((char_u *p, int *idx, int def));
  21. /*
  22.  * Type of error message.  These must match with errors[] in mainerr().
  23.  */
  24. #define ME_UNKNOWN_OPTION 0
  25. #define ME_TOO_MANY_ARGS 1
  26. #define ME_ARG_MISSING 2
  27. #define ME_GARBAGE 3
  28. #define ME_EXTRA_CMD 4
  30.     static void
  31. mainerr(n, str)
  32.     int     n;
  33.     char_u  *str;
  34. {
  35.     static char *(errors[]) =
  36.     {
  37. "Unknown option",
  38. "Too many edit arguments",
  39. "Argument missing after",
  40. "Garbage after option",
  41. "Too many "+command" or "-c command" arguments",
  42.     };
  44. #if defined(UNIX) || defined(__EMX__)
  45.     reset_signals(); /* kill us with CTRL-C here, if you like */
  46. #endif
  48.     mch_errmsg(longVersion);
  49.     mch_errmsg("n");
  50.     mch_errmsg(errors[n]);
  51.     if (str != NULL)
  52.     {
  53. mch_errmsg(": "");
  54. mch_errmsg((char *)str);
  55. mch_errmsg(""");
  56.     }
  57.     mch_errmsg("nMore info with: "vim -h"n");
  59.     mch_windexit(1);
  60. }
  62. /*
  63.  * print a message with three spaces prepended and 'n' appended.
  64.  */
  65.     static void
  66. main_msg(s)
  67.     char *s;
  68. {
  69.     mch_msg("   ");
  70.     mch_msg(s);
  71.     mch_msg("n");
  72. }
  74.     static void
  75. usage()
  76. {
  77.     int     i;
  78.     static char_u *(use[]) =
  79.     {
  80. (char_u *)"[file ..]       edit specified file(s)",
  81. (char_u *)"-               read from stdin",
  82. (char_u *)"-t tag          edit file where tag is defined",
  83. #ifdef QUICKFIX
  84. (char_u *)"-q [errorfile]  edit file with first error"
  85. #endif
  86.     };
  88. #if defined(UNIX) || defined(__EMX__)
  89.     reset_signals(); /* kill us with CTRL-C here, if you like */
  90. #endif
  92.     mch_msg(longVersion);
  93.     mch_msg("nusage:");
  94.     for (i = 0; ; ++i)
  95.     {
  96. mch_msg(" vim [options] ");
  97. mch_msg((char *)use[i]);
  98. if (i == (sizeof(use) / sizeof(char_u *)) - 1)
  99.     break;
  100. mch_msg("n   or:");
  101.     }
  103.     mch_msg("nnOptions:n");
  104.     main_msg("--tttEnd of options");
  105. #ifdef HAVE_OLE
  106.     main_msg("-registerttRegister this gvim for OLE");
  107.     main_msg("-unregisterttUnregister gvim for OLE");
  108. #endif
  109. #ifdef USE_GUI
  110.     main_msg("-gtttRun using GUI (like "gvim")");
  111.     main_msg("-ftttForeground: Don't fork when starting GUI");
  112. #endif
  113.     main_msg("-vtttVi mode (like "vi")");
  114.     main_msg("-etttEx mode (like "ex")");
  115.     main_msg("-stttSilent (batch) mode (only for "ex")");
  116.     main_msg("-RtttReadonly mode (like "view")");
  117.     main_msg("-ZtttRestricted mode (like "rvim")");
  118.     main_msg("-btttBinary mode");
  119. #ifdef LISPINDENT
  120.     main_msg("-ltttLisp mode");
  121. #endif
  122.     main_msg("-CtttCompatible with Vi: 'compatible'");
  123.     main_msg("-NtttNot fully Vi compatible: 'nocompatible'");
  124.     main_msg("-V[N]ttVerbose level");
  125.     main_msg("-ntttNo swap file, use memory only");
  126.     main_msg("-rtttList swap files and exit");
  127.     main_msg("-r (with file name)tRecover crashed session");
  128.     main_msg("-LtttSame as -r");
  129. #ifdef AMIGA
  130.     main_msg("-ftttDon't use newcli to open window");
  131.     main_msg("-d <device>ttUse <device> for I/O");
  132. #endif
  133. #ifdef RIGHTLEFT
  134.     main_msg("-Htttstart in Hebrew mode");
  135. #endif
  136. #ifdef FKMAP
  137.     main_msg("-Ftttstart in Farsi mode");
  138. #endif
  139.     main_msg("-T <terminal>tSet terminal type to <terminal>");
  140.     main_msg("-o[N]ttOpen N windows (default: one for each file)");
  141.     main_msg("+tttStart at end of file");
  142.     main_msg("+<lnum>ttStart at line <lnum>");
  143.     main_msg("-c <command>ttExecute <command> first");
  144.     main_msg("-s <scriptin>tRead commands from script file <scriptin>");
  145.     main_msg("-w <scriptout>tAppend commands to script file <scriptout>");
  146.     main_msg("-W <scriptout>tWrite commands to script file <scriptout>");
  147.     main_msg("-u <vimrc>ttUse <vimrc> instead of any .vimrc");
  148. #ifdef USE_GUI
  149.     main_msg("-U <gvimrc>ttUse <gvimrc> instead of any .gvimrc");
  150. #endif
  151. #ifdef VIMINFO
  152.     main_msg("-i <viminfo>ttUse <viminfo> instead of .viminfo");
  153. #endif
  154.     main_msg("-htttprint Help (this message) and exit");
  155.     main_msg("--versionttprint version information and exit");
  157. #ifdef USE_GUI_X11
  158. # ifdef USE_GUI_MOTIF
  159.     mch_msg("nOptions recognised by gvim (Motif version):n");
  160. # else
  161. #  ifdef USE_GUI_ATHENA
  162.     mch_msg("nOptions recognised by gvim (Athena version):n");
  163. #  endif /* USE_GUI_ATHENA */
  164. # endif /* USE_GUI_MOTIF */
  165.     main_msg("-display <display>tRun vim on <display>");
  166.     main_msg("-iconicttStart vim iconified");
  167. # if 0
  168.     main_msg("-name <name>ttUse resource as if vim was <name>");
  169.     mch_msg("ttt  (Unimplemented)n");
  170. # endif
  171.     main_msg("-background <color>tUse <color> for the background (also: -bg)");
  172.     main_msg("-foreground <color>tUse <color> for normal text (also: -fg)");
  173.     main_msg("-font <font>ttUse <font> for normal text (also: -fn)");
  174.     main_msg("-boldfont <font>tUse <font> for bold text");
  175.     main_msg("-italicfont <font>tUse <font> for italic text");
  176.     main_msg("-geometry <geom>tUse <geom> for initial geometry (also: -geom)");
  177.     main_msg("-borderwidth <width>tUse a border width of <width> (also: -bw)");
  178.     main_msg("-scrollbarwidth <width>tUse a scrollbar width of <width> (also: -sw)");
  179.     main_msg("-menuheight <height>tUse a menu bar height of <height> (also: -mh)");
  180.     main_msg("-reversettUse reverse video (also: -rv)");
  181.     main_msg("+reversettDon't use reverse video (also: +rv)");
  182.     main_msg("-xrm <resource>tSet the specified resource");
  183. #endif /* USE_GUI_X11 */
  185.     mch_windexit(1);
  186. }
  188. #ifdef HAVE_LOCALE_H
  189. # include <locale.h>
  190. #endif
  192. /* Maximum number of commands from + or -c options */
  193. #define MAX_ARG_CMDS 10
  195. #ifndef PROTO     /* don't want a prototype for main() */
  196.     int
  197. #ifdef VIMDLL
  198. _export
  199. #endif
  200. main(argc, argv)
  201.     int     argc;
  202.     char   **argv;
  203. {
  204.     char_u    *initstr;     /* init string from environment */
  205.     char_u    *term = NULL;     /* specified terminal name */
  206.     char_u    *fname = NULL;     /* file name from command line */
  207.     char_u    *tagname = NULL;     /* tag from -t option */
  208.     char_u    *use_vimrc = NULL;     /* vimrc from -u option */
  209. #ifdef QUICKFIX
  210.     char_u    *use_ef = NULL;     /* 'errorfile' from -q option */
  211. #endif
  212.     int     n_commands = 0;     /* no. of commands from + or -c */
  213.     char_u    *commands[MAX_ARG_CMDS]; /* commands from + or -c option */
  214.     int     no_swap_file = FALSE;   /* "-n" option used */
  215.     int     c;
  216.     int     i;
  217.     int     bin_mode = FALSE;     /* -b option used */
  218.     int     window_count = 1;     /* number of windows to use */
  219.     int     arg_idx = 0;     /* index for arg_files[] */
  220.     int     had_minmin = FALSE;     /* found "--" option */
  221.     int     argv_idx;     /* index in argv[n][] */
  222.     int     want_full_screen = TRUE;
  223.     int     want_argument;     /* option with argument */
  224. #define EDIT_NONE   0     /* no edit type yet */
  225. #define EDIT_FILE   1     /* file name argument[s] given, use arg_files[] */
  226. #define EDIT_STDIN  2     /* read file from stdin */
  227. #define EDIT_TAG    3     /* tag name argument given, use tagname */
  228. #define EDIT_QF     4     /* start in quickfix mode */
  229.     int     edit_type = EDIT_NONE;  /* type of editing to do */
  230.     int     stdout_isatty;     /* is stdout a terminal? */
  231.     int     input_isatty;     /* is active input a terminal? */
  232.     OPARG     oa;     /* operator arguments */
  234. #ifdef RISCOS
  235.     /* Turn off all the horrible filename munging in UnixLib. */
  236.     __uname_control = __UNAME_NO_PROCESS;
  237. #endif
  239. #if defined(MSDOS) || defined(WIN32) || defined(OS2)
  240.     /*
  241.      * Default mappings for some often used keys.
  242.      * Use the Windows (CUA) keybindings.
  243.      */
  244.     static struct initmap
  245.     {
  246. char_u     *arg;
  247. int     mode;
  248.     } initmappings[] =
  249.     {
  250. # ifdef USE_GUI
  251. {(char_u *)"<C-PageUp> H", NORMAL+VISUAL},
  252. {(char_u *)"<C-PageUp> <C-O>H",INSERT},
  253. {(char_u *)"<C-PageDown> L$", NORMAL+VISUAL},
  254. {(char_u *)"<C-PageDown> <C-O>L<C-O>$", INSERT},
  256. /* paste, copy and cut */
  257. {(char_u *)"<S-Insert> "*P", NORMAL},
  258. {(char_u *)"<S-Insert> "-d"*P", VISUAL},
  259. {(char_u *)"<S-Insert> <C-R>*", INSERT+CMDLINE},
  260. {(char_u *)"<C-Insert> "*y", VISUAL},
  261. {(char_u *)"<S-Del> "*d", VISUAL},
  262. {(char_u *)"<C-Del> "*d", VISUAL},
  263. {(char_u *)"<C-X> "*d", VISUAL},
  264. /* Missing: CTRL-C (can't be mapped) and CTRL-V (means something) */
  265. # else
  266. {(char_u *)"316204 H", NORMAL+VISUAL},    /* CTRL-PageUp is "H" */
  267. {(char_u *)"316204 17H",INSERT},     /* CTRL-PageUp is "^OH"*/
  268. {(char_u *)"316v L$", NORMAL+VISUAL},     /* CTRL-PageDown is "L$" */
  269. {(char_u *)"316v 17L17$", INSERT},     /* CTRL-PageDown ="^OL^O$"*/
  270. {(char_u *)"316w <C-Home>", NORMAL+VISUAL},
  271. {(char_u *)"316w <C-Home>", INSERT+CMDLINE},
  272. {(char_u *)"316u <C-End>", NORMAL+VISUAL},
  273. {(char_u *)"316u <C-End>", INSERT+CMDLINE},
  275. /* paste, copy and cut */
  276. #  ifdef USE_CLIPBOARD
  277. {(char_u *)"316324 "*P", NORMAL},     /* SHIFT-Insert is "*P */
  278. {(char_u *)"316324 "-d"*P", VISUAL},    /* SHIFT-Insert is "-d"*P */
  279. {(char_u *)"316324 17"*P", INSERT},    /* SHIFT-Insert is ^O"*P */
  280. {(char_u *)"316325 "*y", VISUAL},     /* CTRL-Insert is "*y */
  281. {(char_u *)"316327 "*d", VISUAL},     /* SHIFT-Del is "*d */
  282. {(char_u *)"316330 "*d", VISUAL},     /* CTRL-Del is "*d */
  283. {(char_u *)"30 "-d", VISUAL},     /* CTRL-X is "-d */
  284. #  else
  285. {(char_u *)"316324 P", NORMAL},     /* SHIFT-Insert is P */
  286. {(char_u *)"316324 d"0P", VISUAL},     /* SHIFT-Insert is d"0P */
  287. {(char_u *)"316324 17P", INSERT},     /* SHIFT-Insert is ^OP */
  288. {(char_u *)"316325 y", VISUAL},     /* CTRL-Insert is y */
  289. {(char_u *)"316327 d", VISUAL},     /* SHIFT-Del is d */
  290. {(char_u *)"316330 d", VISUAL},     /* CTRL-Del is d */
  291. #  endif
  292. # endif
  293.     };
  294. #endif
  296. #if defined(macintosh)
  297.     /*
  298.      * Default mappings for some often used keys.
  299.      * Use the Standard MacOS binding.
  300.      */
  301.     static struct initmap
  302.     {
  303. char_u     *arg;
  304. int     mode;
  305.     } initmappings[] =
  306.     {
  307. /* paste, copy and cut */
  308. {(char_u *)"<D-v> "*P", NORMAL},
  309. {(char_u *)"<D-v> "-d"*P", VISUAL},
  310. {(char_u *)"<D-v> <C-R>*", INSERT+CMDLINE},
  311. {(char_u *)"<D-c> "*y", VISUAL},
  312. {(char_u *)"<D-x> "*d", VISUAL},
  313. {(char_u *)"<Backspace> "-d", VISUAL},
  314.     };
  315. #endif
  317. #ifdef MEM_PROFILE
  318.     atexit(vim_mem_profile_dump);
  319. #endif
  321. #ifdef __EMX__
  322.     _wildcard(&argc, &argv);
  323. #endif
  325. #ifdef HAVE_LOCALE_H
  326.     setlocale(LC_ALL, ""); /* for ctype() and the like */
  327. #endif
  329. #if defined(USE_GUI_WIN32) && defined(HAVE_OLE)
  330.     /* Check for special OLE command line parameters */
  331.     if (argc == 2 && (argv[1][0] == '-' || argv[1][0] == '/'))
  332.     {
  333. /* Register Vim as an OLE Automation server */
  334. if (STRICMP(argv[1] + 1, "register") == 0)
  335. {
  336.     RegisterMe();
  337.     mch_windexit(0);
  338. }
  340. /* Unregister Vim as an OLE Automation server */
  341. if (STRICMP(argv[1] + 1, "unregister") == 0)
  342. {
  343.     UnregisterMe(TRUE);
  344.     mch_windexit(0);
  345. }
  347. /* Ignore an -embedding argument. It is only relevant if the
  348.  * application wants to treat the case when it is started manually
  349.  * differently from the case where it is started via automation (and
  350.  * we don't).
  351.  */
  352. if (STRICMP(argv[1] + 1, "embedding") == 0)
  353.     argc = 1;
  354.     }
  356.     {
  357. int bDoRestart = FALSE;
  359. InitOLE(&bDoRestart);
  360. /* automatically exit after registering */
  361. if (bDoRestart)
  362.     mch_windexit(0);
  363.     }
  364. #endif
  366. #ifdef USE_GUI
  367.     gui_prepare(&argc, argv); /* Prepare for possibly starting GUI sometime */
  368. #endif
  370. #ifdef USE_CLIPBOARD
  371.     clip_init(FALSE); /* Initialise clipboard stuff */
  372. #endif
  374.     /*
  375.      * Check if we have an interactive window.
  376.      * On the Amiga: If there is no window, we open one with a newcli command
  377.      * (needed for :! to * work). mch_check_win() will also handle the -d
  378.      * argument.
  379.      */
  380.     stdout_isatty = (mch_check_win(argc, argv) != FAIL);
  382.     /*
  383.      * allocate the first window and buffer. Can't do anything without it
  384.      */
  385.     if ((curwin = win_alloc(NULL)) == NULL ||
  386. (curbuf = buflist_new(NULL, NULL, 1L, FALSE)) == NULL)
  387. mch_windexit(0);
  388.     curwin->w_buffer = curbuf;
  389.     curbuf->b_nwindows = 1; /* there is one window */
  390.     win_init(curwin); /* init current window */
  391.     init_yank(); /* init yank buffers */
  393.     /*
  394.      * Allocate space for the generic buffers (needed for set_init_1()).
  395.      */
  396.     if ((IObuff = alloc(IOSIZE)) == NULL ||
  397.     (NameBuff = alloc(MAXPATHL)) == NULL)
  398. mch_windexit(0);
  400.     /*
  401.      * Set the default values for the options.
  402.      * First find out the home directory, needed to expand "~" in options.
  403.      */
  404.     init_homedir(); /* find real value of $HOME */
  405.     set_init_1();
  407.     /*
  408.      * If the executable name starts with "r" we disable shell commands.
  409.      * If the next character is "g" we run the GUI version.
  410.      * If the next characters are "view" we start in readonly mode.
  411.      * If the next characters are "ex" we start in ex mode.
  412.      */
  413.     initstr = gettail((char_u *)argv[0]);
  415.     if (initstr[0] == 'r')
  416.     {
  417. restricted = TRUE;
  418. ++initstr;
  419.     }
  421.     if (initstr[0] == 'g')
  422.     {
  423. #ifdef USE_GUI
  424. gui.starting = TRUE;
  425. ++initstr;
  426. #else
  427. mch_errmsg((char *)e_nogvim);
  428. mch_windexit(2);
  429. #endif
  430.     }
  432.     if (STRNCMP(initstr, "view", 4) == 0)
  433.     {
  434. readonlymode = TRUE;
  435. curbuf->b_p_ro = TRUE;
  436. p_uc = 10000; /* don't update very often */
  437.     }
  439.     if (STRNCMP(initstr, "ex", 2) == 0)
  440.     {
  441. exmode_active = TRUE;
  442. change_compatible(TRUE); /* set 'compatible' */
  443.     }
  445.     /*
  446.      * On some systems, when we compile with the GUI, we always use it.  On Mac
  447.      * there is no terminal version, and on Windows we can't figure out how to
  448.      * fork one off with :gui.
  449.      */
  450. #ifdef ALWAYS_USE_GUI
  451.     gui.starting = TRUE;
  452. #endif
  454.     ++argv;
  455.     --argc;
  457. #ifndef macintosh
  458.     /*
  459.      * Allocate arg_files[], big enough to hold all potential file name
  460.      * arguments.
  461.      */
  462.     arg_files = (char_u **)alloc((unsigned)(sizeof(char_u *) * (argc + 1)));
  463.     if (arg_files == NULL)
  464. mch_windexit(2);
  465. #else
  466.     arg_files = NULL;
  467. #endif
  468.     arg_file_count = 0;
  470.     /*
  471.      * Process the command line arguments.
  472.      */
  473.     argv_idx = 1;     /* active option letter is argv[0][argv_idx] */
  474.     while (argc > 0)
  475.     {
  476. /*
  477.  * "+" or "+{number}" or "+/{pat}" or "+{command}" argument.
  478.  */
  479. if (argv[0][0] == '+' && !had_minmin)
  480. {
  481.     if (n_commands >= MAX_ARG_CMDS)
  482. mainerr(ME_EXTRA_CMD, NULL);
  483.     argv_idx = -1;     /* skip to next argument */
  484.     if (argv[0][1] == NUL)
  485. commands[n_commands++] = (char_u *)"$";
  486.     else
  487. commands[n_commands++] = (char_u *)&(argv[0][1]);
  488. }
  490. /*
  491.  * Option argument.
  492.  */
  493. else if (argv[0][0] == '-' && !had_minmin)
  494. {
  495.     want_argument = FALSE;
  496.     c = argv[0][argv_idx++];
  497.     switch (c)
  498.     {
  499.     case NUL: /* "-"  read from stdin */
  500. if (edit_type != EDIT_NONE)
  501.     mainerr(ME_TOO_MANY_ARGS, (char_u *)argv[0]);
  502. edit_type = EDIT_STDIN;
  503. read_cmd_fd = 2; /* read from stderr instead of stdin */
  504. argv_idx = -1; /* skip to next argument */
  505. break;
  507.     case '-': /* "--" don't take any more options */
  508. /* "--help" give help message */
  509. /* "--version" give version message */
  510. if (STRCMP(argv[0] + argv_idx, "help") == 0)
  511.     usage();
  512. if (STRCMP(argv[0] + argv_idx, "version") == 0)
  513. {
  514.     Columns = 80; /* need to init Columns */
  515.     do_version((char_u *)"");
  516.     mch_windexit(1);
  517. }
  518. if (argv[0][argv_idx])
  519.     mainerr(ME_UNKNOWN_OPTION, (char_u *)argv[0]);
  520. had_minmin = TRUE;
  521. argv_idx = -1; /* skip to next argument */
  522. break;
  524.     case 'b': /* "-b" binary mode */
  525. bin_mode = TRUE;    /* postpone to after reading .exrc files */
  526. break;
  528.     case 'C': /* "-C"  Compatible */
  529. change_compatible(TRUE);
  530. break;
  532.     case 'e': /* "-e" Ex mode */
  533. exmode_active = TRUE;
  534. break;
  536.     case 'f': /* "-f"  GUI: run in foreground.  Amiga: open
  537. window directly, not with newcli */
  538. #ifdef USE_GUI
  539. gui.dofork = FALSE; /* don't fork() when starting GUI */
  540. #endif
  541. break;
  543.     case 'g': /* "-g" start GUI */
  544. #ifdef USE_GUI
  545. gui.starting = TRUE; /* start GUI a bit later */
  546. #else
  547. mch_errmsg((char *)e_nogvim);
  548. mch_windexit(2);
  549. #endif
  550. break;
  552.     case 'F': /* "-F" start in Farsi mode: rl + fkmap set */
  553. #ifdef FKMAP
  554. curwin->w_p_rl = p_fkmap = TRUE;
  555. #else
  556. mch_errmsg((char *)e_nofarsi);
  557. mch_windexit(2);
  558. #endif
  559. break;
  561.     case 'h': /* "-h" give help message */
  562. usage();
  563. break;
  565.     case 'H': /* "-H" start in Hebrew mode: rl + hkmap set */
  566. #ifdef RIGHTLEFT
  567. curwin->w_p_rl = p_hkmap = TRUE;
  568. #else
  569. mch_errmsg((char *)e_nohebrew);
  570. mch_windexit(2);
  571. #endif
  572. break;
  574.     case 'l': /* "-l" lisp mode, 'lisp' and 'showmatch' on */
  575. #ifdef LISPINDENT
  576. curbuf->b_p_lisp = TRUE;
  577. p_sm = TRUE;
  578. #endif
  579. break;
  581.     case 'N': /* "-N"  Nocompatible */
  582. change_compatible(FALSE);
  583. break;
  585.     case 'n': /* "-n" no swap file */
  586. no_swap_file = TRUE;
  587. break;
  589.     case 'o': /* "-o[N]" open N windows */
  590. /* default is 0: open window for each file */
  591. window_count = get_number_arg((char_u *)argv[0], &argv_idx, 0);
  592. break;
  594. #ifdef QUICKFIX
  595.     case 'q': /* "-q" QuickFix mode */
  596. if (edit_type != EDIT_NONE)
  597.     mainerr(ME_TOO_MANY_ARGS, (char_u *)argv[0]);
  598. edit_type = EDIT_QF;
  599. if (argv[0][argv_idx]) /* "-q{errorfile}" */
  600. {
  601.     use_ef = (char_u *)argv[0] + argv_idx;
  602.     argv_idx = -1;
  603. }
  604. else if (argc > 1) /* "-q {errorfile}" */
  605.     want_argument = TRUE;
  606. break;
  607. #endif
  609.     case 'R': /* "-R" readonly mode */
  610. readonlymode = TRUE;
  611. curbuf->b_p_ro = TRUE;
  612. p_uc = 10000; /* don't update very often */
  613. break;
  615.     case 'r': /* "-r" recovery mode */
  616.     case 'L': /* "-L" recovery mode */
  617. recoverymode = 1;
  618. break;
  620.     case 's':
  621. if (exmode_active) /* "-s" silent (batch) mode */
  622.     silent_mode = TRUE;
  623. else /* "-s {scriptin}" read from script file */
  624.     want_argument = TRUE;
  625. break;
  627.     case 't': /* "-t {tag}" or "-t{tag}" jump to tag */
  628. if (edit_type != EDIT_NONE)
  629.     mainerr(ME_TOO_MANY_ARGS, (char_u *)argv[0]);
  630. edit_type = EDIT_TAG;
  631. if (argv[0][argv_idx]) /* "-t{tag}" */
  632. {
  633.     tagname = (char_u *)argv[0] + argv_idx;
  634.     argv_idx = -1;
  635. }
  636. else /* "-t {tag}" */
  637.     want_argument = TRUE;
  638. break;
  640.     case 'V': /* "-V{N}" Verbose level */
  641. /* default is 10: a little bit verbose */
  642. p_verbose = get_number_arg((char_u *)argv[0], &argv_idx, 10);
  643. break;
  645.     case 'v': /* "-v"  Vi-mode (as if called "vi") */
  646. exmode_active = FALSE;
  647. break;
  649.     case 'w': /* "-w{number}" set window height */
  650. /* "-w {scriptout}" write to script */
  651. if (isdigit(((char_u *)argv[0])[argv_idx]))
  652. {
  653.     argv_idx = -1;
  654.     break; /* not implemented, ignored */
  655. }
  656. want_argument = TRUE;
  657. break;
  659.     case 'x':     /* "-x"  use "crypt" for reading/writing files. */
  660. /* TODO */
  661. break;
  663.     case 'Z': /* "-Z"  restricted mode */
  664. restricted = TRUE;
  665. break;
  667.     case 'c': /* "-c {command}" execute command */
  668.     case 'd': /* "-d {device}" device (for Amiga) */
  669.     case 'i': /* "-i {viminfo}" use for viminfo */
  670.     case 'T': /* "-T {terminal}" terminal name */
  671.     case 'u': /* "-u {vimrc}" vim inits file */
  672.     case 'U': /* "-U {gvimrc}" gvim inits file */
  673.     case 'W': /* "-W {scriptout}" overwrite */
  674. want_argument = TRUE;
  675. break;
  677.     default:
  678. mainerr(ME_UNKNOWN_OPTION, (char_u *)argv[0]);
  679.     }
  681.     /*
  682.      * Handle options with argument.
  683.      */
  684.     if (want_argument)
  685.     {
  686. /*
  687.  * Check for garbage immediately after the option letter.
  688.  */
  689. if (argv[0][argv_idx] != NUL)
  690.     mainerr(ME_GARBAGE, (char_u *)argv[0]);
  692. --argc;
  693. if (argc < 1)
  694.     mainerr(ME_ARG_MISSING, (char_u *)argv[0]);
  695. ++argv;
  696. argv_idx = -1;
  698. switch (c)
  699. {
  700. case 'c': /* "-c {command}" execute command */
  701.     if (n_commands >= MAX_ARG_CMDS)
  702. mainerr(ME_EXTRA_CMD, NULL);
  703.     commands[n_commands++] = (char_u *)argv[0];
  704.     break;
  706.     /* case 'd':   This is handled in mch_check_win() */
  708. #ifdef QUICKFIX
  709. case 'q': /* "-q {errorfile}" QuickFix mode */
  710.     use_ef = (char_u *)argv[0];
  711.     break;
  712. #endif
  714. case 'i': /* "-i {viminfo}" use for viminfo */
  715.     use_viminfo = (char_u *)argv[0];
  716.     break;
  718. case 's': /* "-s {scriptin}" read from script file */
  719.     if (scriptin[0] != NULL)
  720.     {
  721. mch_errmsg("Attempt to open script file again: "");
  722. mch_errmsg(argv[-1]);
  723. mch_errmsg(" ");
  724. mch_errmsg(argv[0]);
  725. mch_errmsg(""n");
  726. mch_windexit(2);
  727.     }
  728.     if ((scriptin[0] = fopen(argv[0], READBIN)) == NULL)
  729.     {
  730. mch_errmsg("Cannot open "");
  731. mch_errmsg(argv[0]);
  732. mch_errmsg("" for readingn");
  733. mch_windexit(2);
  734.     }
  735.     if (save_typebuf() == FAIL)
  736. mch_windexit(2); /* out of memory */
  737.     break;
  739. case 't': /* "-t {tag}" */
  740.     tagname = (char_u *)argv[0];
  741.     break;
  743. case 'T': /* "-T {terminal}" terminal name */
  744.     /*
  745.      * The -T term option is always available and when
  746.      * HAVE_TERMLIB is supported it overrides the environment
  747.      * variable TERM.
  748.      */
  749. #ifdef USE_GUI
  750.     if (term_is_gui((char_u *)argv[0]))
  751. gui.starting = TRUE; /* start GUI a bit later */
  752.     else
  753. #endif
  754. term = (char_u *)argv[0];
  755.     break;
  757. case 'u': /* "-u {vimrc}" vim inits file */
  758.     use_vimrc = (char_u *)argv[0];
  759.     break;
  761. case 'U': /* "-U {gvimrc}" gvim inits file */
  762.     use_gvimrc = (char_u *)argv[0];
  763.     break;
  765. case 'w': /* "-w {scriptout}" append to script file */
  766. case 'W': /* "-W {scriptout}" overwrite script file */
  767.     if (scriptout != NULL)
  768.     {
  769. mch_errmsg("Attempt to open script file again: "");
  770. mch_errmsg(argv[-1]);
  771. mch_errmsg(" ");
  772. mch_errmsg(argv[0]);
  773. mch_errmsg(""n");
  774. mch_windexit(2);
  775.     }
  776.     if ((scriptout = fopen(argv[0],
  777.     c == 'w' ? APPENDBIN : WRITEBIN)) == NULL)
  778.     {
  779. mch_errmsg("cannot open "");
  780. mch_errmsg(argv[0]);
  781. mch_errmsg("" for outputn");
  782. mch_windexit(2);
  783.     }
  784.     break;
  785. }
  786.     }
  787. }
  789. /*
  790.  * File name argument.
  791.  */
  792. else
  793. {
  794.     argv_idx = -1;     /* skip to next argument */
  795.     if (edit_type != EDIT_NONE && edit_type != EDIT_FILE)
  796. mainerr(ME_TOO_MANY_ARGS, (char_u *)argv[0]);
  797.     edit_type = EDIT_FILE;
  798.     arg_files[arg_file_count] = vim_strsave((char_u *)argv[0]);
  799.     if (arg_files[arg_file_count] != NULL)
  800. ++arg_file_count;
  801. }
  803. /*
  804.  * If there are no more letters after the current "-", go to next
  805.  * argument.  argv_idx is set to -1 when the current argument is to be
  806.  * skipped.
  807.  */
  808. if (argv_idx <= 0 || argv[0][argv_idx] == NUL)
  809. {
  810.     --argc;
  811.     ++argv;
  812.     argv_idx = 1;
  813. }
  814.     }
  816.     /*
  817.      * May expand wildcards in file names.
  818.      */
  819.     if (arg_file_count > 0)
  820.     {
  821. #if (!defined(UNIX) && !defined(__EMX__)) || defined(ARCHIE)
  822. char_u     **new_arg_files;
  823. int     new_arg_file_count;
  825. if (expand_wildcards(arg_file_count, arg_files, &new_arg_file_count,
  826.     &new_arg_files, EW_FILE|EW_NOTFOUND) == OK
  827. && new_arg_file_count != 0)
  828. {
  829.     FreeWild(arg_file_count, arg_files);
  830.     arg_file_count = new_arg_file_count;
  831.     arg_files = new_arg_files;
  832. }
  833. #endif
  834. fname = arg_files[0];
  835.     }
  836.     if (arg_file_count > 1)
  837. printf("%d files to editn", arg_file_count);
  838. #ifdef WIN32
  839.     else if (arg_file_count == 1)
  840.     {
  841. /*
  842.  * If there is one filename, fully qualified, we have very probably
  843.  * been invoked from explorer, so change to the file's directory.
  844.  */
  845. if (fname[0] != NUL && fname[1] == ':' && fname[2] == '\')
  846. {
  847.     /* If the cd fails, it doesn't matter.. */
  848.     (void)vim_chdirfile(fname);
  849. }
  850.     }
  851. #endif
  853.     RedrawingDisabled = TRUE;
  855.     /*
  856.      * When listing swap file names, don't do cursor positioning et. al.
  857.      */
  858.     if (recoverymode && fname == NULL)
  859. want_full_screen = FALSE;
  861.     /*
  862.      * When starting the GUI, don't need to check capabilities of terminal.
  863.      */
  864. #ifdef USE_GUI
  865.     if (gui.starting)
  866. want_full_screen = FALSE;
  867. #endif
  869.     /*
  870.      * mch_windinit() sets up the terminal (window) for use.  This must be
  871.      * done after resetting full_screen, otherwise it may move the cursor
  872.      * (MSDOS).
  873.      * Note that we may use mch_windexit() before mch_windinit()!
  874.      */
  875.     mch_windinit();
  877.     /*
  878.      * Print a warning if stdout is not a terminal.
  879.      * When starting in Ex mode and commands come from a file, set Silent mode.
  880.      */
  881.     input_isatty = mch_input_isatty();
  882.     if (exmode_active)
  883.     {
  884. if (!input_isatty)
  885.     silent_mode = TRUE;
  886.     }
  887.     else if (want_full_screen && (!stdout_isatty || !input_isatty))
  888.     {
  889. if (!stdout_isatty)
  890.     mch_errmsg("Vim: Warning: Output is not to a terminaln");
  891. if (!input_isatty)
  892.     mch_errmsg("Vim: Warning: Input is not from a terminaln");
  893. ui_delay(2000L, TRUE);
  894.     }
  896.     if (want_full_screen)
  897.     {
  898. termcapinit(term); /* set terminal name and get terminal
  899.    capabilities (will set full_screen) */
  900. screen_start(); /* don't know where cursor is now */
  901.     }
  902.     screenclear(); /* clear screen (just inits screen structures,
  903.     because starting is TRUE) */
  905.     /*
  906.      * Set the default values for the options that use Rows and Columns.
  907.      */
  908.     ui_get_winsize(); /* inits Rows and Columns */
  909.     set_init_2();
  911.     firstwin->w_height = Rows - 1;
  912.     cmdline_row = Rows - 1;
  914.     if (full_screen)
  915. msg_start();     /* in case a mapping or error message is printed */
  916.     msg_scroll = TRUE;
  917.     no_wait_return = TRUE;
  919. #if defined(MSDOS) || defined(WIN32) || defined(OS2) || defined(macintosh)
  920.     /*
  921.      * Default mappings for some often used keys.
  922.      * Need to put string in allocated memory, because do_map() will modify it.
  923.      */
  924.     {
  925. char_u *cpo_save = p_cpo;
  927. p_cpo = (char_u *)""; /* Allow <> notation */
  928. for (i = 0; i < sizeof(initmappings) / sizeof(struct initmap); ++i)
  929. {
  930.     initstr = vim_strsave(initmappings[i].arg);
  931.     if (initstr != NULL)
  932.     {
  933. do_map(0, initstr, initmappings[i].mode, FALSE);
  934. vim_free(initstr);
  935.     }
  936. }
  937. p_cpo = cpo_save;
  938.     }
  939. #endif
  941.     init_highlight(TRUE); /* set the default highlight groups */
  942. #ifdef CURSOR_SHAPE
  943.     parse_guicursor(); /* set cursor shapes from 'guicursor' */
  944. #endif
  946.     /*
  947.      * If -u option given, use only the initializations from that file and
  948.      * nothing else.
  949.      */
  950.     if (use_vimrc != NULL)
  951.     {
  952. if (STRCMP(use_vimrc, "NONE") == 0)
  953. {
  954.     if (use_gvimrc == NULL)     /* don't load gvimrc either */
  955. use_gvimrc = use_vimrc;
  956. }
  957. else
  958. {
  959.     if (do_source(use_vimrc, FALSE, FALSE) != OK)
  960. EMSG2("Cannot read from "%s"", use_vimrc);
  961. }
  962.     }
  963.     else if (!silent_mode)
  964.     {
  965. /*
  966.  * Get system wide defaults, if the file name is defined.
  967.  */
  968. #ifdef SYS_VIMRC_FILE
  969. (void)do_source((char_u *)SYS_VIMRC_FILE, TRUE, FALSE);
  970. #endif
  972. /*
  973.  * Try to read initialization commands from the following places:
  974.  * - environment variable VIMINIT
  975.  * - user vimrc file (s:.vimrc for Amiga, ~/.vimrc otherwise)
  976.  * - second user vimrc file ($VIM/.vimrc for Dos)
  977.  * - environment variable EXINIT
  978.  * - user exrc file (s:.exrc for Amiga, ~/.exrc otherwise)
  979.  * - second user exrc file ($VIM/.exrc for Dos)
  980.  * The first that exists is used, the rest is ignored.
  981.  */
  982. if (process_env((char_u *)"VIMINIT") == OK)
  983.     vimrc_found();
  984. else
  985. {
  986.     if (do_source((char_u *)USR_VIMRC_FILE, TRUE, TRUE) == FAIL
  987. #ifdef USR_VIMRC_FILE2
  988. && do_source((char_u *)USR_VIMRC_FILE2, TRUE, TRUE) == FAIL
  989. #endif
  990. && process_env((char_u *)"EXINIT") == FAIL
  991. && do_source((char_u *)USR_EXRC_FILE, FALSE, FALSE) == FAIL)
  992.     {
  993. #ifdef USR_EXRC_FILE2
  994. (void)do_source((char_u *)USR_EXRC_FILE2, FALSE, FALSE);
  995. #endif
  996.     }
  997. }
  999. /*
  1000.  * Read initialization commands from ".vimrc" or ".exrc" in current
  1001.  * directory.  This is only done if the 'exrc' option is set.
  1002.  * Because of security reasons we disallow shell and write commands
  1003.  * now, except for unix if the file is owned by the user or 'secure'
  1004.  * option has been reset in environmet of global ".exrc" or ".vimrc".
  1005.  * Only do this if VIMRC_FILE is not the same as USR_VIMRC_FILE or
  1006.  * SYS_VIMRC_FILE.
  1007.  */
  1008. if (p_exrc)
  1009. {
  1010. #ifdef UNIX
  1011.     {
  1012. struct stat s;
  1014. /* if ".vimrc" file is not owned by user, set 'secure' mode */
  1015. if (stat(VIMRC_FILE, &s) || s.st_uid != getuid())
  1016.     secure = p_secure;
  1017.     }
  1018. #else
  1019.     secure = p_secure;
  1020. #endif
  1022.     i = FAIL;
  1023.     if (fullpathcmp((char_u *)USR_VIMRC_FILE,
  1024.       (char_u *)VIMRC_FILE, FALSE) != FPC_SAME
  1025. #ifdef USR_VIMRC_FILE2
  1026.     && fullpathcmp((char_u *)USR_VIMRC_FILE2,
  1027.       (char_u *)VIMRC_FILE, FALSE) != FPC_SAME
  1028. #endif
  1029. #ifdef SYS_VIMRC_FILE
  1030.     && fullpathcmp((char_u *)SYS_VIMRC_FILE,
  1031.       (char_u *)VIMRC_FILE, FALSE) != FPC_SAME
  1032. #endif
  1033. )
  1034. i = do_source((char_u *)VIMRC_FILE, TRUE, TRUE);
  1036.     if (i == FAIL)
  1037.     {
  1038. #ifdef UNIX
  1039. struct stat s;
  1041. /* if ".exrc" is not owned by user set 'secure' mode */
  1042. if (stat(EXRC_FILE, &s) || s.st_uid != getuid())
  1043.     secure = p_secure;
  1044. else
  1045.     secure = 0;
  1046. #endif
  1047. if (    fullpathcmp((char_u *)USR_EXRC_FILE,
  1048.       (char_u *)EXRC_FILE, FALSE) != FPC_SAME
  1049. #ifdef USR_EXRC_FILE2
  1050. && fullpathcmp((char_u *)USR_EXRC_FILE2,
  1051.       (char_u *)EXRC_FILE, FALSE) != FPC_SAME
  1052. #endif
  1053. )
  1054.     (void)do_source((char_u *)EXRC_FILE, FALSE, FALSE);
  1055.     }
  1056. }
  1057. if (secure == 2)
  1058.     need_wait_return = TRUE;
  1059. secure = 0;
  1060.     }
  1062.     /*
  1063.      * Recovery mode without a file name: List swap files.
  1064.      * This uses the 'dir' option, therefore it must be after the
  1065.      * initializations.
  1066.      */
  1067.     if (recoverymode && fname == NULL)
  1068.     {
  1069. recover_names(NULL, TRUE, 0);
  1070. mch_windexit(0);
  1071.     }
  1073.     /*
  1074.      * Set a few option defaults after reading .vimrc files:
  1075.      * 'title' and 'icon', Unix: 'shellpipe' and 'shellredir'.
  1076.      */
  1077.     set_init_3();
  1079.     /*
  1080.      * "-n" argument: Disable swap file by setting 'updatecount' to 0.
  1081.      * Note that this overrides anything from a vimrc file.
  1082.      */
  1083.     if (no_swap_file)
  1084. p_uc = 0;
  1086. #ifdef FKMAP
  1087.     if (curwin->w_p_rl && p_altkeymap)
  1088.     {
  1089. p_hkmap = FALSE; /* Reset the Hebrew keymap mode */
  1090. p_fkmap = TRUE; /* Set the Farsi keymap mode */
  1091.     }
  1092. #endif
  1094.     if (bin_mode)     /* "-b" argument used */
  1095.     {
  1096. set_options_bin(curbuf->b_p_bin, 1);
  1097. curbuf->b_p_bin = 1;     /* binary file I/O */
  1098.     }
  1100. #ifdef USE_GUI
  1101.     if (gui.starting)
  1102. gui_start(); /* will set full_screen to TRUE */
  1103. #endif
  1105. #ifdef VIMINFO
  1106.     /*
  1107.      * Read in registers, history etc, but not marks, from the viminfo file
  1108.      */
  1109.     if (*p_viminfo != NUL)
  1110. read_viminfo(NULL, TRUE, FALSE, FALSE);
  1111. #endif /* VIMINFO */
  1113. #ifdef SPAWNO /* special MSDOS swapping library */
  1114.     init_SPAWNO("", SWAP_ANY);
  1115. #endif
  1117. #ifdef QUICKFIX
  1118.     /*
  1119.      * "-q errorfile": Load the error file now.
  1120.      * If the error file can't be read, exit before doing anything else.
  1121.      */
  1122.     if (edit_type == EDIT_QF)
  1123.     {
  1124. if (use_ef != NULL)
  1125.     set_string_option_direct((char_u *)"ef", -1, use_ef, TRUE);
  1126. if (qf_init(p_ef, p_efm) < 0)
  1127. {
  1128.     out_char('n');
  1129.     mch_windexit(3);
  1130. }
  1131.     }
  1132. #endif
  1134.     /*
  1135.      * Don't set the file name if there was a command in .vimrc that already
  1136.      * loaded the file
  1137.      */
  1138.     if (curbuf->b_ffname == NULL)
  1139.     {
  1140. (void)setfname(fname, NULL, TRUE);  /* includes maketitle() */
  1141. ++arg_idx;     /* used first argument name */
  1142.     }
  1144.     if (window_count == 0)
  1145. window_count = arg_file_count;
  1146.     if (window_count > 1)
  1147.     {
  1148. /* Don't change the windows if there was a command in .vimrc that
  1149.  * already split some windows */
  1150. if (firstwin->w_next == NULL)
  1151.     window_count = make_windows(window_count);
  1152. else
  1153.     window_count = win_count();
  1154.     }
  1155.     else
  1156. window_count = 1;
  1158.     /*
  1159.      * Start putting things on the screen.
  1160.      * Scroll screen down before drawing over it
  1161.      * Clear screen now, so file message will not be cleared.
  1162.      */
  1163.     starting = FALSE;
  1164.     no_wait_return = FALSE;
  1165.     msg_scroll = FALSE;
  1167. #ifdef USE_GUI
  1168.     /*
  1169.      * This seems to be required to make callbacks to be called now, instead
  1170.      * of after things have been put on the screen, which then may be deleted
  1171.      * when getting a resize callback.
  1172.      */
  1173.     if (gui.in_use)
  1174. gui_wait_for_chars(50L);
  1175. #endif
  1177.     /*
  1178.      * When done something that is not allowed or error message call
  1179.      * wait_return.  This must be done before starttermcap(), because it may
  1180.      * switch to another screen. It must be done after settmode(TMODE_RAW),
  1181.      * because we want to react on a single key stroke.
  1182.      * Call settmode and starttermcap here, so the T_KS and T_TI may be
  1183.      * defined by termcapinit and redifined in .exrc.
  1184.      */
  1185.     settmode(TMODE_RAW);
  1186.     if (need_wait_return || msg_didany)
  1187. wait_return(TRUE);
  1189.     starttermcap();     /* start termcap if not done by wait_return() */
  1190. #ifdef USE_MOUSE
  1191.     setmouse(); /* may start using the mouse */
  1192. #endif
  1193.     if (scroll_region)
  1194. scroll_region_reset(); /* In case Rows changed */
  1196.     scroll_start();
  1197.     /*
  1198.      * Don't clear the screen when starting in Ex mode, unless using the GUI.
  1199.      */
  1200.     if (exmode_active
  1201. #ifdef USE_GUI
  1202. && !gui.in_use
  1203. #endif
  1204. )
  1205. must_redraw = CLEAR;
  1206.     else
  1207. screenclear(); /* clear screen */
  1209.     no_wait_return = TRUE;
  1211.     if (recoverymode) /* do recover */
  1212.     {
  1213. msg_scroll = TRUE; /* scroll message up */
  1214. ml_recover();
  1215. msg_scroll = FALSE;
  1216. if (curbuf->b_ml.ml_mfp == NULL) /* failed */
  1217.     getout(1);
  1218. do_modelines(); /* do modelines */
  1219.     }
  1220.     else
  1221.     {
  1222. /*
  1223.  * If "-" argument given: read file from stdin.
  1224.  * Need to stop Raw mode for terminal in case stdin and stderr are the
  1225.  * same terminal: "cat | vim -".
  1226.  */
  1227. if (edit_type == EDIT_STDIN)
  1228. {
  1229.     stoptermcap();
  1230.     settmode(TMODE_COOK); /* set to normal mode */
  1231.     (void)open_buffer(TRUE); /* create memfile and read file */
  1232.     if (!termcap_active) /* if readfile() didn't do it already */
  1233.     {
  1234. settmode(TMODE_RAW); /* set to raw mode */
  1235. starttermcap();
  1236.     }
  1237. }
  1239. /*
  1240.  * Open a buffer for windows that don't have one yet.
  1241.  * Commands in the .vimrc might have loaded a file or split the window.
  1242.  * Watch out for autocommands that delete a window.
  1243.  */
  1244. #ifdef AUTOCMD
  1245. /*
  1246.  * Don't execute Win/Buf Enter/Leave autocommands here
  1247.  */
  1248. ++autocmd_no_enter;
  1249. ++autocmd_no_leave;
  1250. #endif
  1251. for (curwin = firstwin; curwin != NULL; curwin = curwin->w_next)
  1252. {
  1253.     curbuf = curwin->w_buffer;
  1254.     if (curbuf->b_ml.ml_mfp == NULL)
  1255.     {
  1256. (void)open_buffer(FALSE);   /* create memfile and read file */
  1257. #ifdef AUTOCMD
  1258. curwin = firstwin;     /* start again */
  1259. #endif
  1260.     }
  1261.     ui_breakcheck();
  1262.     if (got_int)
  1263.     {
  1264. (void)vgetc(); /* only break the file loading, not the rest */
  1265. break;
  1266.     }
  1267. }
  1268. #ifdef AUTOCMD
  1269. --autocmd_no_enter;
  1270. --autocmd_no_leave;
  1271. #endif
  1272. curwin = firstwin;
  1273. curbuf = curwin->w_buffer;
  1274.     }
  1276.     /* Ex starts at last line of the file */
  1277.     if (exmode_active)
  1278. curwin->w_cursor.lnum = curbuf->b_ml.ml_line_count;
  1280. #ifdef AUTOCMD
  1281.     apply_autocmds(EVENT_BUFENTER, NULL, NULL, FALSE, curbuf);
  1282. #endif
  1283.     setpcmark();
  1285. #ifdef QUICKFIX
  1286.     /*
  1287.      * When started with "-q errorfile" jump to first error now.
  1288.      */
  1289.     if (edit_type == EDIT_QF)
  1290. qf_jump(0, 0, FALSE);
  1291. #endif
  1293.     /*
  1294.      * If opened more than one window, start editing files in the other
  1295.      * windows.  Make_windows() has already opened the windows.
  1296.      */
  1297. #ifdef AUTOCMD
  1298.     /*
  1299.      * Don't execute Win/Buf Enter/Leave autocommands here
  1300.      */
  1301.     ++autocmd_no_enter;
  1302.     ++autocmd_no_leave;
  1303. #endif
  1304.     for (i = 1; i < window_count; ++i)
  1305.     {
  1306. if (curwin->w_next == NULL)     /* just checking */
  1307.     break;
  1308. win_enter(curwin->w_next, FALSE);
  1310. /* Only open the file if there is no file in this window yet (that can
  1311.  * happen when .vimrc contains ":sall") */
  1312. if (curbuf == firstwin->w_buffer || curbuf->b_ffname == NULL)
  1313. {
  1314.     curwin->w_arg_idx = arg_idx;
  1315.     /* edit file from arg list, if there is one */
  1316.     (void)do_ecmd(0,
  1317.  arg_idx < arg_file_count ? arg_files[arg_idx] : NULL,
  1318.   NULL, NULL, (linenr_t)0, ECMD_HIDE);
  1319.     if (arg_idx == arg_file_count - 1)
  1320. arg_had_last = TRUE;
  1321.     ++arg_idx;
  1322. }
  1323. ui_breakcheck();
  1324. if (got_int)
  1325. {
  1326.     (void)vgetc(); /* only break the file loading, not the rest */
  1327.     break;
  1328. }
  1329.     }
  1330. #ifdef AUTOCMD
  1331.     --autocmd_no_enter;
  1332. #endif
  1333.     win_enter(firstwin, FALSE);     /* back to first window */
  1334. #ifdef AUTOCMD
  1335.     --autocmd_no_leave;
  1336. #endif
  1337.     if (window_count > 1)
  1338. win_equal(curwin, FALSE);     /* adjust heights */
  1340.     /*
  1341.      * If there are more file names in the argument list than windows,
  1342.      * put the rest of the names in the buffer list.
  1343.      */
  1344.     while (arg_idx < arg_file_count)
  1345. (void)buflist_add(arg_files[arg_idx++]);
  1347.     /*
  1348.      * Now shorten any of the filenames if possible
  1349.      */
  1350.     shorten_fnames();
  1352.     /*
  1353.      * Need to jump to the tag before executing the '-c command'.
  1354.      * Makes "vim -c '/return' -t main" work.
  1355.      */
  1356.     if (tagname)
  1357.     {
  1358. STRCPY(IObuff, "ta ");
  1360. STRCAT(IObuff, tagname);
  1361. do_cmdline(IObuff, NULL, NULL, DOCMD_NOWAIT|DOCMD_VERBOSE);
  1362.     }
  1364.     if (n_commands > 0)
  1365.     {
  1366. /*
  1367.  * We start commands on line 0, make "vim +/pat file" match a
  1368.  * pattern on line 1.
  1369.  */
  1370. curwin->w_cursor.lnum = 0;
  1371. sourcing_name = (char_u *)"command line";
  1372. for (i = 0; i < n_commands; ++i)
  1373.     do_cmdline(commands[i], NULL, NULL, DOCMD_NOWAIT|DOCMD_VERBOSE);
  1374. sourcing_name = NULL;
  1375. if (curwin->w_cursor.lnum == 0)
  1376.     curwin->w_cursor.lnum = 1;
  1378. #ifdef QUICKFIX
  1379. /* When started with "-q errorfile" jump to first again. */
  1380. if (edit_type == EDIT_QF)
  1381.     qf_jump(0, 0, FALSE);
  1382. #endif
  1383.     }
  1385.     RedrawingDisabled = FALSE;
  1386.     redraw_later(NOT_VALID);
  1387.     no_wait_return = FALSE;
  1389.     /* start in insert mode */
  1390.     if (p_im)
  1391. need_start_insertmode = TRUE;
  1393. #ifdef AUTOCMD
  1394.     apply_autocmds(EVENT_VIMENTER, NULL, NULL, FALSE, curbuf);
  1395. #endif
  1397. #if defined(WIN32) && !defined(USE_GUI_WIN32)
  1398.     mch_set_winsize_now();     /* Allow winsize changes from now on */
  1399. #endif
  1401.     /*
  1402.      * main command loop
  1403.      */
  1404.     clear_oparg(&oa);
  1405.     for (;;)
  1406.     {
  1407. if (stuff_empty())
  1408. {
  1409.     if (need_check_timestamps)
  1410. check_timestamps();
  1411.     if (need_wait_return) /* if wait_return still needed ... */
  1412. wait_return(FALSE); /* ... call it now */
  1413.     if (need_start_insertmode && goto_im())
  1414.     {
  1415. need_start_insertmode = FALSE;
  1416. stuffReadbuff((char_u *)"i"); /* start insert mode next */
  1417. /* skip the fileinfo message now, because it would be shown
  1418.  * after insert mode finishes! */
  1419. need_fileinfo = FALSE;
  1420.     }
  1421. }
  1422. dont_wait_return = FALSE;
  1423. if (got_int && !global_busy)
  1424. {
  1425.     (void)vgetc(); /* flush all buffers */
  1426.     got_int = FALSE;
  1427. }
  1428. msg_scroll = FALSE;
  1429. quit_more = FALSE;
  1431. /*
  1432.  * If skip redraw is set (for ":" in wait_return()), don't redraw now.
  1433.  * If there is nothing in the stuff_buffer or do_redraw is TRUE,
  1434.  * update cursor and redraw.
  1435.  */
  1436. if (skip_redraw || exmode_active)
  1437.     skip_redraw = FALSE;
  1438. else if (do_redraw || stuff_empty())
  1439. {
  1440.     /*
  1441.      * Before redrawing, make sure w_topline is correct, and w_leftcol
  1442.      * if lines don't wrap, and w_skipcol if lines wrap.
  1443.      */
  1444.     update_topline();
  1445.     validate_cursor();
  1447.     if (VIsual_active)
  1448. update_curbuf(INVERTED);/* update inverted part */
  1449.     else if (must_redraw)
  1450. update_screen(must_redraw);
  1451.     else if (redraw_cmdline || clear_cmdline)
  1452. showmode();
  1453.     redraw_statuslines();
  1454.     /* display message after redraw */
  1455.     if (keep_msg != NULL)
  1456. msg_attr(keep_msg, keep_msg_attr);
  1457.     if (need_fileinfo) /* show file info after redraw */
  1458.     {
  1459. fileinfo(FALSE, TRUE, FALSE);
  1460. need_fileinfo = FALSE;
  1461.     }
  1463.     emsg_on_display = FALSE; /* can delete error message now */
  1464.     msg_didany = FALSE; /* reset lines_left in msg_start() */
  1465.     do_redraw = FALSE;
  1466.     showruler(FALSE);
  1468.     setcursor();
  1469.     cursor_on();
  1470. }
  1471. #ifdef USE_GUI
  1472. if (need_mouse_correct)
  1473.     gui_mouse_correct();
  1474. #endif
  1476. /*
  1477.  * Update w_curswant if w_set_curswant has been set.
  1478.  * Postponed until here to avoid computing w_virtcol too often.
  1479.  */
  1480. update_curswant();
  1482. /*
  1483.  * If we're invoked as ex, do a round of ex commands.
  1484.  * Otherwise, get and execute a normal mode command.
  1485.  */
  1486. if (exmode_active)
  1487.     do_exmode();
  1488. else
  1489.     normal_cmd(&oa, TRUE);
  1490.     }
  1491.     /*NOTREACHED*/
  1492. #if !defined(MSDOS) || defined(DJGPP)
  1493.     return 0; /* Borland C++ gives a "not reached" error message here */
  1494. #endif
  1495. }
  1496. #endif /* PROTO */
  1498. /*
  1499.  * Get a (optional) count for a Vim argument.
  1500.  */
  1501.     static int
  1502. get_number_arg(p, idx, def)
  1503.     char_u *p;     /* pointer to argument */
  1504.     int *idx;     /* index in argument, is incremented */
  1505.     int def;     /* default value */
  1506. {
  1507.     if (isdigit(p[*idx]))
  1508.     {
  1509. def = atoi((char *)&(p[*idx]));
  1510. while (isdigit(p[*idx]))
  1511.     *idx = *idx + 1;
  1512.     }
  1513.     return def;
  1514. }
  1516. /*
  1517.  * Get an evironment variable, and execute it as Ex commands.
  1518.  * Returns FAIL if the environment variable was not executed, OK otherwise.
  1519.  */
  1520.     int
  1521. process_env(env)
  1522.     char_u *env;
  1523. {
  1524.     char_u *initstr;
  1525.     char_u *save_sourcing_name;
  1527.     if ((initstr = mch_getenv(env)) != NULL && *initstr != NUL)
  1528.     {
  1529. save_sourcing_name = sourcing_name;
  1530. sourcing_name = env;
  1531. do_cmdline(initstr, NULL, NULL, DOCMD_NOWAIT|DOCMD_VERBOSE);
  1532. sourcing_name = save_sourcing_name;
  1533. return OK;
  1534.     }
  1535.     return FAIL;
  1536. }
  1538.     void
  1539. getout(r)
  1540.     int     r;
  1541. {
  1542.     exiting = TRUE;
  1544.     /* Position the cursor on the last screen line, below all the text */
  1545. #ifdef USE_GUI
  1546.     if (!gui.in_use)
  1547. #endif
  1548. windgoto((int)Rows - 1, 0);
  1550. #ifdef AUTOCMD
  1551.     apply_autocmds(EVENT_VIMLEAVEPRE, NULL, NULL, FALSE, curbuf);
  1552. #endif
  1554. #ifdef VIMINFO
  1555.     if (*p_viminfo != NUL)
  1556.     {
  1557. /* Write out the registers, history, marks etc, to the viminfo file */
  1558. msg_didany = FALSE;
  1559. write_viminfo(NULL, FALSE);
  1560. if (msg_didany) /* make the user read the error message */
  1561. {
  1562.     no_wait_return = FALSE;
  1563.     wait_return(FALSE);
  1564. }
  1565.     }
  1566. #endif /* VIMINFO */
  1568. #ifdef AUTOCMD
  1569.     apply_autocmds(EVENT_VIMLEAVE, NULL, NULL, FALSE, curbuf);
  1571.     /* Position the cursor again, the autocommands may have moved it */
  1572. # ifdef USE_GUI
  1573.     if (!gui.in_use)
  1574. # endif
  1575. windgoto((int)Rows - 1, 0);
  1576. #endif
  1578. #ifdef HAVE_PERL_INTERP
  1579.     perl_end();
  1580. #endif
  1582.     mch_windexit(r);
  1583. }
  1585. /*
  1586.  * When FKMAP is defined, also compile the Farsi source code.
  1587.  */
  1588. #if defined(FKMAP) || defined(PROTO)
  1589. # include "farsi.c"
  1590. #endif