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

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

编辑器/阅读器

开发平台：

DOS

misc2.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. /*
  10.  * misc2.c: Various functions.
  11.  */
  13. #include "vim.h"
  15. #ifdef HAVE_FCNTL_H
  16. # include <fcntl.h>     /* for chdir() */
  17. #endif
  19. /*
  20.  * coladvance(col)
  21.  *
  22.  * Try to advance the Cursor to the specified column.
  23.  *
  24.  * return OK if desired column is reached, FAIL if not
  25.  */
  26.     int
  27. coladvance(wcol)
  28.     colnr_t     wcol;
  29. {
  30.     int idx;
  31.     char_u *ptr;
  32.     colnr_t col;
  34.     ptr = ml_get_curline();
  36.     /* try to advance to the specified column */
  37.     idx = -1;
  38.     col = 0;
  39.     while (col <= wcol && *ptr)
  40.     {
  41. ++idx;
  42. /* Count a tab for what it's worth (if list mode not on) */
  43. col += lbr_chartabsize(ptr, col);
  44. ++ptr;
  45.     }
  46.     /*
  47.      * In Insert mode it is allowed to be one char beyond the end of the line.
  48.      * Also in Visual mode, when 'selection' is not "old".
  49.      */
  50.     if (((State & INSERT) || (VIsual_active && *p_sel != 'o')) && col <= wcol)
  51. ++idx;
  52.     if (idx < 0)
  53. curwin->w_cursor.col = 0;
  54.     else
  55. curwin->w_cursor.col = idx;
  56. #ifdef MULTI_BYTE
  57.     /* prevent cursor from moving on the trail byte */
  58.     if (is_dbcs)
  59. AdjustCursorForMultiByteCharacter();
  60. #endif
  62.     if (col <= wcol)
  63. return FAIL;     /* Couldn't reach column */
  64.     else
  65. return OK;     /* Reached column */
  66. }
  68. /*
  69.  * inc(p)
  70.  *
  71.  * Increment the line pointer 'p' crossing line boundaries as necessary.
  72.  * Return 1 when crossing a line, -1 when at end of file, 0 otherwise.
  73.  */
  74.     int
  75. inc_cursor()
  76. {
  77.     return inc(&curwin->w_cursor);
  78. }
  80.     int
  81. inc(lp)
  82.     FPOS  *lp;
  83. {
  84.     char_u  *p = ml_get_pos(lp);
  86.     if (*p != NUL) /* still within line, move to next char (may be NUL) */
  87.     {
  88. #ifdef MULTI_BYTE
  89. if (is_dbcs && IsLeadByte(p[0]) && p[1] != NUL)
  90. {
  91.     lp->col += 2;
  92.     return ((p[2] != NUL) ? 0 : 1);
  93. }
  94. #endif
  95. lp->col++;
  96. return ((p[1] != NUL) ? 0 : 1);
  97.     }
  98.     if (lp->lnum != curbuf->b_ml.ml_line_count)     /* there is a next line */
  99.     {
  100. lp->col = 0;
  101. lp->lnum++;
  102. return 1;
  103.     }
  104.     return -1;
  105. }
  107. /*
  108.  * incl(lp): same as inc(), but skip the NUL at the end of non-empty lines
  109.  */
  110.     int
  111. incl(lp)
  112.     FPOS    *lp;
  113. {
  114.     int     r;
  116.     if ((r = inc(lp)) == 1 && lp->col)
  117. r = inc(lp);
  118.     return r;
  119. }
  121. /*
  122.  * dec(p)
  123.  *
  124.  * Decrement the line pointer 'p' crossing line boundaries as necessary.
  125.  * Return 1 when crossing a line, -1 when at start of file, 0 otherwise.
  126.  */
  127.     int
  128. dec_cursor()
  129. {
  130. #ifdef MULTI_BYTE
  131.     return (is_dbcs ? han_dec(&curwin->w_cursor) : dec(&curwin->w_cursor));
  132. #else
  133.     return dec(&curwin->w_cursor);
  134. #endif
  135. }
  137.     int
  138. dec(lp)
  139.     FPOS  *lp;
  140. {
  141.     if (lp->col > 0)
  142.     { /* still within line */
  143. lp->col--;
  144. return 0;
  145.     }
  146.     if (lp->lnum > 1)
  147.     { /* there is a prior line */
  148. lp->lnum--;
  149. lp->col = STRLEN(ml_get(lp->lnum));
  150. return 1;
  151.     }
  152.     return -1; /* at start of file */
  153. }
  155. /*
  156.  * decl(lp): same as dec(), but skip the NUL at the end of non-empty lines
  157.  */
  158.     int
  159. decl(lp)
  160.     FPOS    *lp;
  161. {
  162.     int     r;
  164.     if ((r = dec(lp)) == 1 && lp->col)
  165. r = dec(lp);
  166.     return r;
  167. }
  169. /*
  170.  * Make sure curwin->w_cursor.lnum is valid.
  171.  */
  172.     void
  173. check_cursor_lnum()
  174. {
  175.     if (curwin->w_cursor.lnum > curbuf->b_ml.ml_line_count)
  176. curwin->w_cursor.lnum = curbuf->b_ml.ml_line_count;
  177.     if (curwin->w_cursor.lnum <= 0)
  178. curwin->w_cursor.lnum = 1;
  179. }
  181. /*
  182.  * Make sure curwin->w_cursor.col is valid.
  183.  */
  184.     void
  185. check_cursor_col()
  186. {
  187.     colnr_t len;
  189.     len = STRLEN(ml_get_curline());
  190.     if (len == 0)
  191. curwin->w_cursor.col = 0;
  192.     else if (curwin->w_cursor.col >= len)
  193.     {
  194. if (State & INSERT || restart_edit)
  195.     curwin->w_cursor.col = len;
  196. else
  197.     curwin->w_cursor.col = len - 1;
  198.     }
  199. }
  201. /*
  202.  * make sure curwin->w_cursor in on a valid character
  203.  */
  204.     void
  205. adjust_cursor()
  206. {
  207.     check_cursor_lnum();
  208.     check_cursor_col();
  209. }
  211. /*
  212.  * Make sure curwin->w_cursor is not on the NUL at the end of the line.
  213.  * Allow it when in Visual mode and 'selection' is not "old".
  214.  */
  215.     void
  216. adjust_cursor_col()
  217. {
  218.     if ((!VIsual_active || *p_sel == 'o')
  219.     && curwin->w_cursor.col && gchar_cursor() == NUL)
  220. --curwin->w_cursor.col;
  221. }
  223. /*
  224.  * When curwin->w_leftcol has changed, adjust the cursor position.
  225.  * Return TRUE if the cursor was moved.
  226.  */
  227.     int
  228. leftcol_changed()
  229. {
  230.     long lastcol;
  231.     colnr_t s, e;
  232.     int retval = FALSE;
  234.     changed_cline_bef_curs();
  235.     lastcol = curwin->w_leftcol + Columns - (curwin->w_p_nu ? 8 : 0) - 1;
  236.     validate_virtcol();
  238.     /*
  239.      * If the cursor is right or left of the screen, move it to last or first
  240.      * character.
  241.      */
  242.     if (curwin->w_virtcol > (colnr_t)lastcol)
  243.     {
  244. retval = TRUE;
  245. coladvance((colnr_t)lastcol);
  246.     }
  247.     else if (curwin->w_virtcol < curwin->w_leftcol)
  248.     {
  249. retval = TRUE;
  250. (void)coladvance(curwin->w_leftcol);
  251.     }
  253.     /*
  254.      * If the start of the character under the cursor is not on the screen,
  255.      * advance the cursor one more char.  If this fails (last char of the
  256.      * line) adjust the scrolling.
  257.      */
  258.     getvcol(curwin, &curwin->w_cursor, &s, NULL, &e);
  259.     if (e > (colnr_t)lastcol)
  260.     {
  261. retval = TRUE;
  262. coladvance(s - 1);
  263.     }
  264.     else if (s < curwin->w_leftcol)
  265.     {
  266. retval = TRUE;
  267. if (coladvance(e + 1) == FAIL) /* there isn't another character */
  268. {
  269.     curwin->w_leftcol = s; /* adjust w_leftcol instead */
  270.     changed_cline_bef_curs();
  271. }
  272.     }
  274.     redraw_later(NOT_VALID);
  275.     return retval;
  276. }
  278. /**********************************************************************
  279.  * Various routines dealing with allocation and deallocation of memory.
  280.  */
  282. #if defined(MEM_PROFILE) || defined(PROTO)
  284. # define MEM_SIZES  8200
  285. static long_u mem_allocs[MEM_SIZES];
  286. static long_u mem_frees[MEM_SIZES];
  287. static long_u mem_allocated;
  288. static long_u mem_freed;
  289. static long_u mem_peak;
  290. static long_u num_alloc;
  291. static long_u num_freed;
  293. static void mem_pre_alloc_s __ARGS((size_t *sizep));
  294. static void mem_pre_alloc_l __ARGS((long_u *sizep));
  295. static void mem_post_alloc __ARGS((void **pp, size_t size));
  296. static void mem_pre_free __ARGS((void **pp));
  298.     static void
  299. mem_pre_alloc_s(sizep)
  300.     size_t *sizep;
  301. {
  302.     *sizep += sizeof(size_t);
  303. }
  305.     static void
  306. mem_pre_alloc_l(sizep)
  307.     long_u *sizep;
  308. {
  309.     *sizep += sizeof(size_t);
  310. }
  312.     static void
  313. mem_post_alloc(pp, size)
  314.     void **pp;
  315.     size_t size;
  316. {
  317.     if (*pp == NULL)
  318. return;
  319.     size -= sizeof(size_t);
  320.     *(long_u *)*pp = size;
  321.     if (size <= MEM_SIZES-1)
  322. mem_allocs[size-1]++;
  323.     else
  324. mem_allocs[MEM_SIZES-1]++;
  325.     mem_allocated += size;
  326.     if (mem_allocated - mem_freed > mem_peak)
  327. mem_peak = mem_allocated - mem_freed;
  328.     num_alloc++;
  329.     *pp = (void *)((char *)*pp + sizeof(size_t));
  330. }
  332.     static void
  333. mem_pre_free(pp)
  334.     void **pp;
  335. {
  336.     long_u size;
  338.     *pp = (void *)((char *)*pp - sizeof(size_t));
  339.     size = *(size_t *)*pp;
  340.     if (size <= MEM_SIZES-1)
  341. mem_frees[size-1]++;
  342.     else
  343. mem_frees[MEM_SIZES-1]++;
  344.     mem_freed += size;
  345.     num_freed++;
  346. }
  348. /*
  349.  * called on exit via atexit()
  350.  */
  351.     void
  352. vim_mem_profile_dump()
  353. {
  354.     int i, j;
  356.     printf("rn");
  357.     j = 0;
  358.     for (i = 0; i < MEM_SIZES - 1; i++)
  359.     {
  360. if (mem_allocs[i] || mem_frees[i])
  361. {
  362.     if (mem_frees[i] > mem_allocs[i])
  363. printf("rnERROR: ");
  364.     printf("[%4d / %4lu-%-4lu] ", i + 1, mem_allocs[i], mem_frees[i]);
  365.     j++;
  366.     if (j > 3)
  367.     {
  368. j = 0;
  369. printf("rn");
  370.     }
  371. }
  372.     }
  374.     i = MEM_SIZES - 1;
  375.     if (mem_allocs[i])
  376.     {
  377. printf("rn");
  378. if (mem_frees[i] > mem_allocs[i])
  379.     printf("ERROR: ");
  380. printf("[>%d / %4lu-%-4lu]", i, mem_allocs[i], mem_frees[i]);
  381.     }
  383.     printf("rnn[bytes] total alloc-freed %lu-%lu, in use %lu, peak use %lurn",
  384.     mem_allocated, mem_freed, mem_allocated - mem_freed, mem_peak);
  385.     printf("[calls] total re/malloc()'s %lu, total free()'s %lurnn",
  386.     num_alloc, num_freed);
  387. }
  389. #endif /* MEM_PROFILE */
  391. /*
  392.  * Some memory is reserved for error messages and for being able to
  393.  * call mf_release_all(), which needs some memory for mf_trans_add().
  394.  */
  395. #define KEEP_ROOM 8192L
  397. static void vim_strup __ARGS((char_u *p));
  399. /*
  400.  * Note: if unsinged is 16 bits we can only allocate up to 64K with alloc().
  401.  * Use lalloc for larger blocks.
  402.  */
  403.     char_u *
  404. alloc(size)
  405.     unsigned     size;
  406. {
  407.     return (lalloc((long_u)size, TRUE));
  408. }
  410. /*
  411.  * Allocate memory and set all bytes to zero.
  412.  */
  413.     char_u *
  414. alloc_clear(size)
  415.     unsigned     size;
  416. {
  417.     char_u *p;
  419.     p = (lalloc((long_u)size, TRUE));
  420.     if (p != NULL)
  421. (void)vim_memset(p, 0, (size_t)size);
  422.     return p;
  423. }
  425. /*
  426.  * alloc() with check for maximum line length
  427.  */
  428.     char_u *
  429. alloc_check(size)
  430.     unsigned     size;
  431. {
  432. #if !defined(UNIX) && !defined(__EMX__)
  433.     if (sizeof(int) == 2 && size > 0x7fff)
  434.     {
  435. EMSG("Line is becoming too long");
  436. return NULL;
  437.     }
  438. #endif
  439.     return (lalloc((long_u)size, TRUE));
  440. }
  442. /*
  443.  * Allocate memory like lalloc() and set all bytes to zero.
  444.  */
  445.     char_u *
  446. lalloc_clear(size, message)
  447.     long_u size;
  448.     int message;
  449. {
  450.     char_u *p;
  452.     p = (lalloc(size, message));
  453.     if (p != NULL)
  454. (void)vim_memset(p, 0, (size_t)size);
  455.     return p;
  456. }
  458.     char_u *
  459. lalloc(size, message)
  460.     long_u size;
  461.     int message;
  462. {
  463.     char_u *p;     /* pointer to new storage space */
  464.     static int releasing = FALSE;  /* don't do mf_release_all() recursive */
  465.     int try_again;
  467.     if (size <= 0)
  468.     {
  469. EMSGN("Internal error: lalloc(%ld, )", size);
  470. return NULL;
  471.     }
  473. #ifdef MEM_PROFILE
  474.     mem_pre_alloc_l(&size);
  475. #endif
  477. #if defined(MSDOS) && !defined(DJGPP)
  478.     if (size >= 0xfff0) /* in MSDOS we can't deal with >64K blocks */
  479. p = NULL;
  480.     else
  481. #endif
  483.     /*
  484.      * If out of memory, try to release some memfile blocks.
  485.      * If some blocks are released call malloc again.
  486.      */
  487.     for (;;)
  488.     {
  489. if ((p = (char_u *)malloc((size_t)size)) != NULL)
  490. {
  491.     if (mch_avail_mem(TRUE) < KEEP_ROOM && !releasing)
  492.     {     /* System is low... no go! */
  493.     vim_free((char *)p);
  494.     p = NULL;
  495.     }
  496. }
  497.     /*
  498.      * Remember that mf_release_all() is being called to avoid an endless loop,
  499.      * because mf_release_all() may call alloc() recursively.
  500.      */
  501. if (p != NULL || releasing)
  502.     break;
  503. releasing = TRUE;
  504. try_again = mf_release_all();
  505. releasing = FALSE;
  506. if (!try_again)
  507.     break;
  508.     }
  510.     if (message && p == NULL)
  511. do_outofmem_msg();
  513. #ifdef MEM_PROFILE
  514.     mem_post_alloc((void **)&p, (size_t)size);
  515. #endif
  517.     return (p);
  518. }
  520. #if defined(MEM_PROFILE) || defined(PROTO)
  521. /*
  522.  * realloc(), with memory profiling.
  523.  */
  524.     void *
  525. vim_realloc(ptr, size)
  526.     void *ptr;
  527.     size_t size;
  528. {
  529.     void *p;
  531.     mem_pre_free(&ptr);
  532.     mem_pre_alloc_s(&size);
  534.     p = realloc(ptr, size);
  536.     mem_post_alloc(&p, size);
  538.     return p;
  539. }
  540. #endif
  542. /*
  543. * Avoid repeating the error message many times (they take 1 second each).
  544. * Did_outofmem_msg is reset when a character is read.
  545. */
  546.     void
  547. do_outofmem_msg()
  548. {
  549.     if (!did_outofmem_msg)
  550.     {
  551. emsg(e_outofmem);
  552. did_outofmem_msg = TRUE;
  553.     }
  554. }
  556. /*
  557.  * copy a string into newly allocated memory
  558.  */
  559.     char_u *
  560. vim_strsave(string)
  561.     char_u *string;
  562. {
  563.     char_u *p;
  564.     unsigned len;
  566.     len = STRLEN(string) + 1;
  567.     p = alloc(len);
  568.     if (p != NULL)
  569. mch_memmove(p, string, (size_t)len);
  570.     return p;
  571. }
  573.     char_u *
  574. vim_strnsave(string, len)
  575.     char_u *string;
  576.     int len;
  577. {
  578.     char_u *p;
  580.     p = alloc((unsigned)(len + 1));
  581.     if (p != NULL)
  582.     {
  583. STRNCPY(p, string, len);
  584. p[len] = NUL;
  585.     }
  586.     return p;
  587. }
  589. /*
  590.  * like vim_strnsave(), but remove backslashes from the string.
  591.  */
  592.     char_u *
  593. vim_strnsave_esc(string, len)
  594.     char_u *string;
  595.     int len;
  596. {
  597.     char_u *p1, *p2;
  599.     p1 = alloc((unsigned) (len + 1));
  600.     if (p1 != NULL)
  601.     {
  602. STRNCPY(p1, string, len);
  603. p1[len] = NUL;
  604. for (p2 = p1; *p2; ++p2)
  605.     if (*p2 == '\' && *(p2 + 1) != NUL)
  606. STRCPY(p2, p2 + 1);
  607.     }
  608.     return p1;
  609. }
  611. /*
  612.  * Same as vim_strsave(), but any characters found in esc_chars are preceded
  613.  * by a backslash.
  614.  */
  615.     char_u *
  616. vim_strsave_escaped(string, esc_chars)
  617.     char_u *string;
  618.     char_u *esc_chars;
  619. {
  620.     char_u *p;
  621.     char_u *p2;
  622.     char_u *escaped_string;
  623.     unsigned length;
  625.     /*
  626.      * First count the number of backslashes required.
  627.      * Then allocate the memory and insert them.
  628.      */
  629.     length = 1; /* count the trailing '/' and NUL */
  630.     for (p = string; *p; p++)
  631.     {
  632. if (vim_strchr(esc_chars, *p) != NULL)
  633.     ++length; /* count a backslash */
  634. ++length; /* count an ordinary char */
  635.     }
  636.     escaped_string = alloc(length);
  637.     if (escaped_string != NULL)
  638.     {
  639. p2 = escaped_string;
  640. for (p = string; *p; p++)
  641. {
  642.     if (vim_strchr(esc_chars, *p) != NULL)
  643. *p2++ = '\';
  644.     *p2++ = *p;
  645. }
  646. *p2 = NUL;
  647.     }
  648.     return escaped_string;
  649. }
  651. /*
  652.  * like vim_strsave(), but make all characters uppercase.
  653.  */
  654.     char_u *
  655. vim_strsave_up(string)
  656.     char_u *string;
  657. {
  658.     char_u *p1;
  660.     p1 = vim_strsave(string);
  661.     vim_strup(p1);
  662.     return p1;
  663. }
  665. /*
  666.  * like vim_strnsave(), but make all characters uppercase.
  667.  */
  668.     char_u *
  669. vim_strnsave_up(string, len)
  670.     char_u *string;
  671.     int len;
  672. {
  673.     char_u *p1;
  675.     p1 = vim_strnsave(string, len);
  676.     vim_strup(p1);
  677.     return p1;
  678. }
  680.     static void
  681. vim_strup(p)
  682.     char_u *p;
  683. {
  684.     char_u  *p2;
  685.     int     c;
  687.     if (p != NULL)
  688.     {
  689. p2 = p;
  690. while ((c = *p2) != NUL)
  691.     *p2++ = TO_UPPER(c);
  692.     }
  693. }
  695. /*
  696.  * copy a number of spaces
  697.  */
  698.     void
  699. copy_spaces(ptr, count)
  700.     char_u  *ptr;
  701.     size_t  count;
  702. {
  703.     size_t  i = count;
  704.     char_u  *p = ptr;
  706.     while (i--)
  707. *p++ = ' ';
  708. }
  710. /*
  711.  * delete spaces at the end of a string
  712.  */
  713.     void
  714. del_trailing_spaces(ptr)
  715.     char_u *ptr;
  716. {
  717.     char_u  *q;
  719.     q = ptr + STRLEN(ptr);
  720.     while (--q > ptr && vim_iswhite(q[0]) && q[-1] != '\' &&
  721.    q[-1] != Ctrl('V'))
  722. *q = NUL;
  723. }
  725. /*
  726.  * vim_strncpy()
  727.  *
  728.  * This is here because strncpy() does not guarantee successful results when
  729.  * the to and from strings overlap.  It is only currently called from nextwild()
  730.  * which copies part of the command line to another part of the command line.
  731.  * This produced garbage when expanding files etc in the middle of the command
  732.  * line (on my terminal, anyway) -- webb.
  733.  */
  734.     void
  735. vim_strncpy(to, from, len)
  736.     char_u *to;
  737.     char_u *from;
  738.     int len;
  739. {
  740.     int i;
  742.     if (to <= from)
  743.     {
  744. while (len-- && *from)
  745.     *to++ = *from++;
  746. if (len >= 0)
  747.     *to = *from;    /* Copy NUL */
  748.     }
  749.     else
  750.     {
  751. for (i = 0; i < len; i++)
  752. {
  753.     to++;
  754.     if (*from++ == NUL)
  755.     {
  756. i++;
  757. break;
  758.     }
  759. }
  760. for (; i > 0; i--)
  761.     *--to = *--from;
  762.     }
  763. }
  765. /*
  766.  * Isolate one part of a string option where parts are separated with commas.
  767.  * The part is copied into buf[maxlen].
  768.  * "*option" is advanced to the next part.
  769.  * The length is returned.
  770.  */
  771.     int
  772. copy_option_part(option, buf, maxlen, sep_chars)
  773.     char_u **option;
  774.     char_u *buf;
  775.     int maxlen;
  776.     char *sep_chars;
  777. {
  778.     int     len = 0;
  779.     char_u  *p = *option;
  781.     /* skip '.' at start of option part, for 'suffixes' */
  782.     if (*p == '.')
  783. buf[len++] = *p++;
  784.     while (*p && vim_strchr((char_u *)sep_chars, *p) == NULL)
  785.     {
  786. /*
  787.  * Skip backslash before a separator character and space.
  788.  */
  789. if (p[0] == '\' && vim_strchr((char_u *)sep_chars, p[1]) != NULL)
  790.     ++p;
  791. if (len < maxlen - 1)
  792.     buf[len++] = *p;
  793. ++p;
  794.     }
  795.     buf[len] = NUL;
  797.     p = skip_to_option_part(p); /* p points to next file name */
  799.     *option = p;
  800.     return len;
  801. }
  803. /*
  804.  * replacement for free() that ignores NULL pointers
  805.  */
  806.     void
  807. vim_free(x)
  808.     void *x;
  809. {
  810.     if (x != NULL)
  811.     {
  812. #ifdef MEM_PROFILE
  813. mem_pre_free(&x);
  814. #endif
  815. free(x);
  816.     }
  817. }
  819. #ifndef HAVE_MEMSET
  820.     void *
  821. vim_memset(ptr, c, size)
  822.     void    *ptr;
  823.     int     c;
  824.     size_t  size;
  825. {
  826.     char *p = ptr;
  828.     while (size-- > 0)
  829. *p++ = c;
  830.     return ptr;
  831. }
  832. #endif
  834. #ifdef VIM_MEMCMP
  835. /*
  836.  * Return zero when "b1" and "b2" are the same for "len" bytes.
  837.  * Return non-zero otherwise.
  838.  */
  839.     int
  840. vim_memcmp(b1, b2, len)
  841.     void    *b1;
  842.     void    *b2;
  843.     size_t  len;
  844. {
  845.     char_u  *p1 = (char_u *)b1, *p2 = (char_u *)b2;
  847.     for ( ; len > 0; --len)
  848.     {
  849. if (*p1 != *p2)
  850.     return 1;
  851. ++p1;
  852. ++p2;
  853.     }
  854.     return 0;
  855. }
  856. #endif
  858. #ifdef VIM_MEMMOVE
  859. /*
  860.  * Version of memmove that handles overlapping source and destination.
  861.  * For systems that don't have a function that is guaranteed to do that (SYSV).
  862.  */
  863.     void
  864. mch_memmove(dst_arg, src_arg, len)
  865.     void    *src_arg, *dst_arg;
  866.     size_t  len;
  867. {
  868.     /*
  869.      * A void doesn't have a size, we use char pointers.
  870.      */
  871.     char *dst = dst_arg, *src = src_arg;
  873. /* overlap, copy backwards */
  874.     if (dst > src && dst < src + len)
  875.     {
  876. src +=len;
  877. dst +=len;
  878. while (len-- > 0)
  879.     *--dst = *--src;
  880.     }
  881.     else /* copy forwards */
  882. while (len-- > 0)
  883.     *dst++ = *src++;
  884. }
  885. #endif
  887. #if (!defined(HAVE_STRCASECMP) && !defined(HAVE_STRICMP)) || defined(PROTO)
  888. /*
  889.  * Compare two strings, ignoring case.
  890.  * return 0 for match, 1 for difference
  891.  */
  892.     int
  893. vim_stricmp(s1, s2)
  894.     char    *s1;
  895.     char    *s2;
  896. {
  897.     for (;;)
  898.     {
  899. if (TO_LOWER(*s1) != TO_LOWER(*s2))
  900.     return 1;     /* this character different */
  901. if (*s1 == NUL)
  902.     break;     /* strings match until NUL */
  903. ++s1;
  904. ++s2;
  905.     }
  906.     return 0;     /* strings match */
  907. }
  908. #endif
  910. #if (!defined(HAVE_STRNCASECMP) && !defined(HAVE_STRNICMP)) || defined(PROTO)
  911. /*
  912.  * Compare two strings, for length "len", ignoring case.
  913.  * return 0 for match, 1 for difference
  914.  */
  915.     int
  916. vim_strnicmp(s1, s2, len)
  917.     char    *s1;
  918.     char    *s2;
  919.     size_t  len;
  920. {
  921.     while (len)
  922.     {
  923. if (TO_LOWER(*s1) != TO_LOWER(*s2))
  924.     return 1;     /* this character different */
  925. if (*s1 == NUL)
  926.     break;     /* strings match until NUL */
  927. ++s1;
  928. ++s2;
  929. --len;
  930.     }
  931.     return 0;     /* strings match */
  932. }
  933. #endif
  935. /*
  936.  * Version of strchr() and strrchr() that handle unsigned char strings
  937.  * with characters above 128 correctly. Also it doesn't return a pointer to
  938.  * the NUL at the end of the string.
  939.  */
  940.     char_u  *
  941. vim_strchr(string, n)
  942.     char_u  *string;
  943.     int     n;
  944. {
  945.     char_u *p;
  946.     int c;
  948.     p = string;
  949.     while ((c = *p) != NUL)
  950.     {
  951. if (c == n)
  952.     return p;
  953. ++p;
  954.     }
  955.     return NULL;
  956. }
  958.     char_u  *
  959. vim_strrchr(string, n)
  960.     char_u  *string;
  961.     int     n;
  962. {
  963.     char_u  *retval = NULL;
  965.     while (*string)
  966.     {
  967. if (*string == n)
  968.     retval = string;
  969. ++string;
  970.     }
  971.     return retval;
  972. }
  974. /*
  975.  * Vim's version of strpbrk(), in case it's missing.
  976.  * Don't generate a prototype for this, causes problems when it's not used.
  977.  */
  978. #ifndef PROTO
  979. # ifndef HAVE_STRPBRK
  980. #  ifdef vim_strpbrk
  981. #   undef vim_strpbrk
  982. #  endif
  983.     char_u *
  984. vim_strpbrk(s, charset)
  985.     char_u  *s;
  986.     char_u  *charset;
  987. {
  988.     while (*s)
  989.     {
  990. if (vim_strchr(charset, *s) != NULL)
  991.     return s;
  992. ++s;
  993.     }
  994.     return NULL;
  995. }
  996. # endif
  997. #endif
  999. /*
  1000.  * Vim has its own isspace() function, because on some machines isspace()
  1001.  * can't handle characters above 128.
  1002.  */
  1003.     int
  1004. vim_isspace(x)
  1005.     int     x;
  1006. {
  1007.     return ((x >= 9 && x <= 13) || x == ' ');
  1008. }
  1010. /************************************************************************
  1011.  * Functions for hanlding growing arrays.
  1012.  */
  1014. /*
  1015.  * Clear an allocated growing array.
  1016.  */
  1017.     void
  1018. ga_clear(gap)
  1019.     struct growarray *gap;
  1020. {
  1021.     vim_free(gap->ga_data);
  1022.     ga_init(gap);
  1023. }
  1025. /*
  1026.  * Clear a growing array that contains a list of strings.
  1027.  */
  1028.     void
  1029. ga_clear_strings(gap)
  1030.     struct growarray *gap;
  1031. {
  1032.     int i;
  1034.     for (i = 0; i < gap->ga_len; ++i)
  1035. vim_free(((char_u **)(gap->ga_data))[i]);
  1036.     ga_clear(gap);
  1037. }
  1039. /*
  1040.  * Initialize a growing array. Don't forget to set ga_itemsize and
  1041.  * ga_growsize!  Or use ga_init2().
  1042.  */
  1043.     void
  1044. ga_init(gap)
  1045.     struct growarray *gap;
  1046. {
  1047.     gap->ga_data = NULL;
  1048.     gap->ga_room = 0;
  1049.     gap->ga_len = 0;
  1050. }
  1052.     void
  1053. ga_init2(gap, itemsize, growsize)
  1054.     struct growarray *gap;
  1055.     int itemsize;
  1056.     int growsize;
  1057. {
  1058.     ga_init(gap);
  1059.     gap->ga_itemsize = itemsize;
  1060.     gap->ga_growsize = growsize;
  1061. }
  1063. /*
  1064.  * Make room in growing array "ga" for at least "n" items.
  1065.  * Return FAIL for failure, OK otherwise.
  1066.  */
  1067.     int
  1068. ga_grow(ga, n)
  1069.     struct growarray *ga;
  1070.     int n;
  1071. {
  1072.     size_t     len;
  1073.     char_u     *pp;
  1075.     if (ga->ga_room < n)
  1076.     {
  1077. if (n < ga->ga_growsize)
  1078.     n = ga->ga_growsize;
  1079. len = ga->ga_itemsize * (ga->ga_len + n);
  1080. pp = alloc_clear((unsigned)len);
  1081. if (pp == NULL)
  1082.     return FAIL;
  1083. ga->ga_room = n;
  1084. if (ga->ga_data != NULL)
  1085. {
  1086.     mch_memmove(pp, ga->ga_data,
  1087.       (size_t)(ga->ga_itemsize * ga->ga_len));
  1088.     vim_free(ga->ga_data);
  1089. }
  1090. ga->ga_data = pp;
  1091.     }
  1092.     return OK;
  1093. }
  1095. /************************************************************************
  1096.  * functions that use lookup tables for various things, generally to do with
  1097.  * special key codes.
  1098.  */
  1100. /*
  1101.  * Some useful tables.
  1102.  */
  1104. static struct modmasktable
  1105. {
  1106.     int     mod_mask;     /* Bit-mask for particular key modifier */
  1107.     char_u  name;     /* Single letter name of modifier */
  1108. } mod_mask_table[] =
  1109. {
  1110.     {MOD_MASK_ALT, (char_u)'M'},
  1111.     {MOD_MASK_CTRL, (char_u)'C'},
  1112.     {MOD_MASK_SHIFT, (char_u)'S'},
  1113.     {MOD_MASK_2CLICK, (char_u)'2'},
  1114.     {MOD_MASK_3CLICK, (char_u)'3'},
  1115.     {MOD_MASK_4CLICK, (char_u)'4'},
  1116. #ifdef macintosh
  1117.     {MOD_MASK_CMD,      (char_u)'D'},
  1118. #endif
  1119.     {0x0, NUL}
  1120. };
  1122. /*
  1123.  * Shifted key terminal codes and their unshifted equivalent.
  1124.  * Don't add mouse codes here, they are handled seperately!
  1125.  */
  1126. static char_u shifted_keys_table[] =
  1127. {
  1128. /*  shifted unshifted  */
  1129.     '&', '9', '@', '1', /* begin */
  1130.     '&', '0', '@', '2', /* cancel */
  1131.     '*', '1', '@', '4', /* command */
  1132.     '*', '2', '@', '5', /* copy */
  1133.     '*', '3', '@', '6', /* create */
  1134.     '*', '4', 'k', 'D', /* delete char */
  1135.     '*', '5', 'k', 'L', /* delete line */
  1136.     '*', '7', '@', '7', /* end */
  1137.     '*', '9', '@', '9', /* exit */
  1138.     '*', '0', '@', '0', /* find */
  1139.     '#', '1', '%', '1', /* help */
  1140.     '#', '2', 'k', 'h', /* home */
  1141.     '#', '3', 'k', 'I', /* insert */
  1142.     '#', '4', 'k', 'l', /* left arrow */
  1143.     '%', 'a', '%', '3', /* message */
  1144.     '%', 'b', '%', '4', /* move */
  1145.     '%', 'c', '%', '5', /* next */
  1146.     '%', 'd', '%', '7', /* options */
  1147.     '%', 'e', '%', '8', /* previous */
  1148.     '%', 'f', '%', '9', /* print */
  1149.     '%', 'g', '%', '0', /* redo */
  1150.     '%', 'h', '&', '3', /* replace */
  1151.     '%', 'i', 'k', 'r', /* right arrow */
  1152.     '%', 'j', '&', '5', /* resume */
  1153.     '!', '1', '&', '6', /* save */
  1154.     '!', '2', '&', '7', /* suspend */
  1155.     '!', '3', '&', '8', /* undo */
  1156.     KS_EXTRA, (int)KE_S_UP, 'k', 'u', /* up arrow */
  1157.     KS_EXTRA, (int)KE_S_DOWN, 'k', 'd', /* down arrow */
  1159.     KS_EXTRA, (int)KE_S_F1, 'k', '1', /* F1 */
  1160.     KS_EXTRA, (int)KE_S_F2, 'k', '2',
  1161.     KS_EXTRA, (int)KE_S_F3, 'k', '3',
  1162.     KS_EXTRA, (int)KE_S_F4, 'k', '4',
  1163.     KS_EXTRA, (int)KE_S_F5, 'k', '5',
  1164.     KS_EXTRA, (int)KE_S_F6, 'k', '6',
  1165.     KS_EXTRA, (int)KE_S_F7, 'k', '7',
  1166.     KS_EXTRA, (int)KE_S_F8, 'k', '8',
  1167.     KS_EXTRA, (int)KE_S_F9, 'k', '9',
  1168.     KS_EXTRA, (int)KE_S_F10, 'k', ';', /* F10 */
  1170.     KS_EXTRA, (int)KE_S_F11, 'F', '1',
  1171.     KS_EXTRA, (int)KE_S_F12, 'F', '2',
  1172.     KS_EXTRA, (int)KE_S_F13, 'F', '3',
  1173.     KS_EXTRA, (int)KE_S_F14, 'F', '4',
  1174.     KS_EXTRA, (int)KE_S_F15, 'F', '5',
  1175.     KS_EXTRA, (int)KE_S_F16, 'F', '6',
  1176.     KS_EXTRA, (int)KE_S_F17, 'F', '7',
  1177.     KS_EXTRA, (int)KE_S_F18, 'F', '8',
  1178.     KS_EXTRA, (int)KE_S_F19, 'F', '9',
  1179.     KS_EXTRA, (int)KE_S_F20, 'F', 'A',
  1181.     KS_EXTRA, (int)KE_S_F21, 'F', 'B',
  1182.     KS_EXTRA, (int)KE_S_F22, 'F', 'C',
  1183.     KS_EXTRA, (int)KE_S_F23, 'F', 'D',
  1184.     KS_EXTRA, (int)KE_S_F24, 'F', 'E',
  1185.     KS_EXTRA, (int)KE_S_F25, 'F', 'F',
  1186.     KS_EXTRA, (int)KE_S_F26, 'F', 'G',
  1187.     KS_EXTRA, (int)KE_S_F27, 'F', 'H',
  1188.     KS_EXTRA, (int)KE_S_F28, 'F', 'I',
  1189.     KS_EXTRA, (int)KE_S_F29, 'F', 'J',
  1190.     KS_EXTRA, (int)KE_S_F30, 'F', 'K',
  1192.     KS_EXTRA, (int)KE_S_F31, 'F', 'L',
  1193.     KS_EXTRA, (int)KE_S_F32, 'F', 'M',
  1194.     KS_EXTRA, (int)KE_S_F33, 'F', 'N',
  1195.     KS_EXTRA, (int)KE_S_F34, 'F', 'O',
  1196.     KS_EXTRA, (int)KE_S_F35, 'F', 'P',
  1198.     KS_EXTRA, (int)KE_S_TAB, KS_EXTRA, (int)KE_TAB, /* TAB pseudo code*/
  1200.     NUL
  1201. };
  1203. static struct key_name_entry
  1204. {
  1205.     int     key; /* Special key code or ascii value */
  1206.     char_u  *name; /* Name of key */
  1207. } key_names_table[] =
  1208. {
  1209.     {' ', (char_u *)"Space"},
  1210.     {TAB, (char_u *)"Tab"},
  1211.     {K_TAB, (char_u *)"Tab"},
  1212.     {NL, (char_u *)"NL"},
  1213.     {NL, (char_u *)"NewLine"}, /* Alternative name */
  1214.     {NL, (char_u *)"LineFeed"}, /* Alternative name */
  1215.     {NL, (char_u *)"LF"}, /* Alternative name */
  1216.     {CR, (char_u *)"CR"},
  1217.     {CR, (char_u *)"Return"}, /* Alternative name */
  1218.     {K_BS, (char_u *)"BS"},
  1219.     {K_BS, (char_u *)"BackSpace"}, /* Alternative name */
  1220.     {ESC, (char_u *)"Esc"},
  1221.     {'|', (char_u *)"Bar"},
  1222.     {'\', (char_u *)"Bslash"},
  1223.     {K_DEL, (char_u *)"Del"},
  1224.     {K_DEL, (char_u *)"Delete"}, /* Alternative name */
  1225.     {K_UP, (char_u *)"Up"},
  1226.     {K_DOWN, (char_u *)"Down"},
  1227.     {K_LEFT, (char_u *)"Left"},
  1228.     {K_RIGHT, (char_u *)"Right"},
  1230.     {K_F1, (char_u *)"F1"},
  1231.     {K_F2, (char_u *)"F2"},
  1232.     {K_F3, (char_u *)"F3"},
  1233.     {K_F4, (char_u *)"F4"},
  1234.     {K_F5, (char_u *)"F5"},
  1235.     {K_F6, (char_u *)"F6"},
  1236.     {K_F7, (char_u *)"F7"},
  1237.     {K_F8, (char_u *)"F8"},
  1238.     {K_F9, (char_u *)"F9"},
  1239.     {K_F10, (char_u *)"F10"},
  1241.     {K_F11, (char_u *)"F11"},
  1242.     {K_F12, (char_u *)"F12"},
  1243.     {K_F13, (char_u *)"F13"},
  1244.     {K_F14, (char_u *)"F14"},
  1245.     {K_F15, (char_u *)"F15"},
  1246.     {K_F16, (char_u *)"F16"},
  1247.     {K_F17, (char_u *)"F17"},
  1248.     {K_F18, (char_u *)"F18"},
  1249.     {K_F19, (char_u *)"F19"},
  1250.     {K_F20, (char_u *)"F20"},
  1252.     {K_F21, (char_u *)"F21"},
  1253.     {K_F22, (char_u *)"F22"},
  1254.     {K_F23, (char_u *)"F23"},
  1255.     {K_F24, (char_u *)"F24"},
  1256.     {K_F25, (char_u *)"F25"},
  1257.     {K_F26, (char_u *)"F26"},
  1258.     {K_F27, (char_u *)"F27"},
  1259.     {K_F28, (char_u *)"F28"},
  1260.     {K_F29, (char_u *)"F29"},
  1261.     {K_F30, (char_u *)"F30"},
  1263.     {K_F31, (char_u *)"F31"},
  1264.     {K_F32, (char_u *)"F32"},
  1265.     {K_F33, (char_u *)"F33"},
  1266.     {K_F34, (char_u *)"F34"},
  1267.     {K_F35, (char_u *)"F35"},
  1269.     {K_XF1, (char_u *)"F1"},
  1270.     {K_XF2, (char_u *)"F2"},
  1271.     {K_XF3, (char_u *)"F3"},
  1272.     {K_XF4, (char_u *)"F4"},
  1274.     {K_HELP, (char_u *)"Help"},
  1275.     {K_UNDO, (char_u *)"Undo"},
  1276.     {K_INS, (char_u *)"Insert"},
  1277.     {K_INS, (char_u *)"Ins"}, /* Alternative name */
  1278.     {K_HOME, (char_u *)"Home"},
  1279.     {K_END, (char_u *)"End"},
  1280.     {K_PAGEUP, (char_u *)"PageUp"},
  1281.     {K_PAGEDOWN, (char_u *)"PageDown"},
  1282.     {K_KHOME, (char_u *)"kHome"},
  1283.     {K_KEND, (char_u *)"kEnd"},
  1284.     {K_KPAGEUP, (char_u *)"kPageUp"},
  1285.     {K_KPAGEDOWN, (char_u *)"kPageDown"},
  1286.     {K_KPLUS, (char_u *)"kPlus"},
  1287.     {K_KMINUS, (char_u *)"kMinus"},
  1288.     {K_KDIVIDE, (char_u *)"kDivide"},
  1289.     {K_KMULTIPLY, (char_u *)"kMultiply"},
  1290.     {K_KENTER, (char_u *)"kEnter"},
  1292.     {'<', (char_u *)"lt"},
  1294.     {K_MOUSE, (char_u *)"Mouse"},
  1295.     {K_LEFTMOUSE, (char_u *)"LeftMouse"},
  1296.     {K_LEFTDRAG, (char_u *)"LeftDrag"},
  1297.     {K_LEFTRELEASE, (char_u *)"LeftRelease"},
  1298.     {K_MIDDLEMOUSE, (char_u *)"MiddleMouse"},
  1299.     {K_MIDDLEDRAG, (char_u *)"MiddleDrag"},
  1300.     {K_MIDDLERELEASE, (char_u *)"MiddleRelease"},
  1301.     {K_RIGHTMOUSE, (char_u *)"RightMouse"},
  1302.     {K_RIGHTDRAG, (char_u *)"RightDrag"},
  1303.     {K_RIGHTRELEASE, (char_u *)"RightRelease"},
  1304.     {K_ZERO, (char_u *)"Nul"},
  1305.     {0, NULL}
  1306. };
  1308. #define KEY_NAMES_TABLE_LEN (sizeof(key_names_table) / sizeof(struct key_name_entry))
  1310. #ifdef USE_MOUSE
  1311. static struct mousetable
  1312. {
  1313.     int     pseudo_code; /* Code for pseudo mouse event */
  1314.     int     button; /* Which mouse button is it? */
  1315.     int     is_click; /* Is it a mouse button click event? */
  1316.     int     is_drag; /* Is it a mouse drag event? */
  1317. } mouse_table[] =
  1318. {
  1319.     {(int)KE_LEFTMOUSE, MOUSE_LEFT, TRUE, FALSE},
  1320.     {(int)KE_LEFTDRAG, MOUSE_LEFT, FALSE, TRUE},
  1321.     {(int)KE_LEFTRELEASE, MOUSE_LEFT, FALSE, FALSE},
  1322.     {(int)KE_MIDDLEMOUSE, MOUSE_MIDDLE, TRUE, FALSE},
  1323.     {(int)KE_MIDDLEDRAG, MOUSE_MIDDLE, FALSE, TRUE},
  1324.     {(int)KE_MIDDLERELEASE, MOUSE_MIDDLE, FALSE, FALSE},
  1325.     {(int)KE_RIGHTMOUSE, MOUSE_RIGHT, TRUE, FALSE},
  1326.     {(int)KE_RIGHTDRAG, MOUSE_RIGHT, FALSE, TRUE},
  1327.     {(int)KE_RIGHTRELEASE, MOUSE_RIGHT, FALSE, FALSE},
  1328.     /* DRAG without CLICK */
  1329.     {(int)KE_IGNORE, MOUSE_RELEASE, FALSE, TRUE},
  1330.     /* RELEASE without CLICK */
  1331.     {(int)KE_IGNORE, MOUSE_RELEASE, FALSE, FALSE},
  1332.     {0, 0, 0, 0},
  1333. };
  1334. #endif /* USE_MOUSE */
  1336. /*
  1337.  * Return the modifier mask bit (MOD_MASK_*) which corresponds to the given
  1338.  * modifier name ('S' for Shift, 'C' for Ctrl etc).
  1339.  */
  1340.     int
  1341. name_to_mod_mask(c)
  1342.     int     c;
  1343. {
  1344.     int     i;
  1346.     for (i = 0; mod_mask_table[i].mod_mask; i++)
  1347. if (TO_LOWER(c) == TO_LOWER(mod_mask_table[i].name))
  1348.     return mod_mask_table[i].mod_mask;
  1349.     return 0x0;
  1350. }
  1352. /*
  1353.  * Decide whether the given key code (K_*) is a shifted special
  1354.  * key (by looking at mod_mask).  If it is, then return the appropriate shifted
  1355.  * key code, otherwise just return the character as is.
  1356.  */
  1357.     int
  1358. check_shifted_spec_key(c)
  1359.     int     c;
  1360. {
  1361.     return simplify_key(c, &mod_mask);
  1362. }
  1364. /*
  1365.  * Check if if there is a special key code for "key" that includes the
  1366.  * modifiers specified.
  1367.  */
  1368.     int
  1369. simplify_key(key, modifiers)
  1370.     int     key;
  1371.     int     *modifiers;
  1372. {
  1373.     int     i;
  1374.     int     key0;
  1375.     int     key1;
  1377.     if (*modifiers & MOD_MASK_SHIFT)
  1378.     {
  1379. if (key == TAB) /* TAB is a special case */
  1380. {
  1381.     *modifiers &= ~MOD_MASK_SHIFT;
  1382.     return K_S_TAB;
  1383. }
  1384. key0 = KEY2TERMCAP0(key);
  1385. key1 = KEY2TERMCAP1(key);
  1386. for (i = 0; shifted_keys_table[i] != NUL; i += 4)
  1387.     if (key0 == shifted_keys_table[i + 2] &&
  1388.     key1 == shifted_keys_table[i + 3])
  1389.     {
  1390. *modifiers &= ~MOD_MASK_SHIFT;
  1391. return TERMCAP2KEY(shifted_keys_table[i],
  1392.    shifted_keys_table[i + 1]);
  1393.     }
  1394.     }
  1395.     return key;
  1396. }
  1398. /*
  1399.  * Return a string which contains the name of the given key when the given
  1400.  * modifiers are down.
  1401.  */
  1402.     char_u *
  1403. get_special_key_name(c, modifiers)
  1404.     int     c;
  1405.     int     modifiers;
  1406. {
  1407.     static char_u string[MAX_KEY_NAME_LEN + 1];
  1409.     int     i, idx;
  1410.     int     table_idx;
  1411.     char_u  *s;
  1413.     string[0] = '<';
  1414.     idx = 1;
  1416.     /*
  1417.      * Translate shifted special keys into unshifted keys and set modifier.
  1418.      */
  1419.     if (IS_SPECIAL(c))
  1420.     {
  1421. for (i = 0; shifted_keys_table[i]; i += 4)
  1422.     if (       KEY2TERMCAP0(c) == shifted_keys_table[i]
  1423.     && KEY2TERMCAP1(c) == shifted_keys_table[i + 1])
  1424.     {
  1425. modifiers |= MOD_MASK_SHIFT;
  1426. c = TERMCAP2KEY(shifted_keys_table[i + 2],
  1427.    shifted_keys_table[i + 3]);
  1428. break;
  1429.     }
  1430.     }
  1432.     /* try to find the key in the special key table */
  1433.     table_idx = find_special_key_in_table(c);
  1435.     /*
  1436.      * When not a known special key, and not a printable character, try to
  1437.      * extract modifiers.
  1438.      */
  1439.     if (table_idx < 0 && (!vim_isprintc(c) || (c & 0x7f) == ' ') && (c & 0x80))
  1440.     {
  1441. c &= 0x7f;
  1442. modifiers |= MOD_MASK_ALT;
  1443. /* try again, to find the un-alted key in the special key table */
  1444. table_idx = find_special_key_in_table(c);
  1445.     }
  1446.     if (table_idx < 0 && !vim_isprintc(c) && c < ' ')
  1447.     {
  1448. c += '@';
  1449. modifiers |= MOD_MASK_CTRL;
  1450.     }
  1452.     /* translate the modifier into a string */
  1453.     for (i = 0; mod_mask_table[i].mod_mask; i++)
  1454. if (modifiers & mod_mask_table[i].mod_mask)
  1455. {
  1456.     string[idx++] = mod_mask_table[i].name;
  1457.     string[idx++] = (char_u)'-';
  1458. }
  1460.     if (table_idx < 0) /* unknown special key, output t_xx */
  1461.     {
  1462. if (IS_SPECIAL(c))
  1463. {
  1464.     string[idx++] = 't';
  1465.     string[idx++] = '_';
  1466.     string[idx++] = KEY2TERMCAP0(c);
  1467.     string[idx++] = KEY2TERMCAP1(c);
  1468. }
  1469. /* Not a special key, only modifiers, output directly */
  1470. else
  1471. {
  1472.     if (vim_isprintc(c))
  1473. string[idx++] = c;
  1474.     else
  1475.     {
  1476. s = transchar(c);
  1477. while (*s)
  1478.     string[idx++] = *s++;
  1479.     }
  1480. }
  1481.     }
  1482.     else /* use name of special key */
  1483.     {
  1484. STRCPY(string + idx, key_names_table[table_idx].name);
  1485. idx = STRLEN(string);
  1486.     }
  1487.     string[idx++] = '>';
  1488.     string[idx] = NUL;
  1489.     return string;
  1490. }
  1492. /*
  1493.  * Try translating a <> name at (*srcp)[] to dst[].
  1494.  * Return the number of characters added to dst[], zero for no match.
  1495.  * If there is a match, srcp is advanced to after the <> name.
  1496.  * dst[] must be big enough to hold the result (up to six characters)!
  1497.  */
  1498.     int
  1499. trans_special(srcp, dst, keycode)
  1500.     char_u **srcp;
  1501.     char_u *dst;
  1502.     int keycode; /* prefer key code, e.g. K_DEL instead of DEL */
  1503. {
  1504.     int     modifiers;
  1505.     int     key;
  1506.     int     dlen = 0;
  1508.     key = find_special_key(srcp, &modifiers, keycode);
  1509.     if (key == 0)
  1510. return 0;
  1512.     /* Put the appropriate modifier in a string */
  1513.     if (modifiers != 0)
  1514.     {
  1515. dst[dlen++] = K_SPECIAL;
  1516. dst[dlen++] = KS_MODIFIER;
  1517. dst[dlen++] = modifiers;
  1518.     }
  1520.     if (IS_SPECIAL(key))
  1521.     {
  1522. dst[dlen++] = K_SPECIAL;
  1523. dst[dlen++] = KEY2TERMCAP0(key);
  1524. dst[dlen++] = KEY2TERMCAP1(key);
  1525.     }
  1526.     else
  1527. dst[dlen++] = key;
  1529.     return dlen;
  1530. }
  1532. /*
  1533.  * Try translating a <> name at (*srcp)[], return the key and modifiers.
  1534.  * srcp is advanced to after the <> name.
  1535.  * returns 0 if there is no match.
  1536.  */
  1537.     int
  1538. find_special_key(srcp, modp, keycode)
  1539.     char_u **srcp;
  1540.     int *modp;
  1541.     int keycode; /* prefer key code, e.g. K_DEL instead of DEL */
  1542. {
  1543.     char_u  *last_dash;
  1544.     char_u  *end_of_name;
  1545.     char_u  *src;
  1546.     char_u  *bp;
  1547.     int     modifiers;
  1548.     int     bit;
  1549.     int     key;
  1551.     src = *srcp;
  1552.     if (src[0] != '<')
  1553. return 0;
  1555.     /* Find end of modifier list */
  1556.     last_dash = src;
  1557.     for (bp = src + 1; *bp == '-' || vim_isIDc(*bp); bp++)
  1558.     {
  1559. if (*bp == '-')
  1560. {
  1561.     last_dash = bp;
  1562.     if (bp[1] != NUL && bp[2] == '>')
  1563. ++bp; /* anything accepted, like <C-?> */
  1564. }
  1565. if (bp[0] == 't' && bp[1] == '_' && bp[2] && bp[3])
  1566.     bp += 3; /* skip t_xx, xx may be '-' or '>' */
  1567.     }
  1569.     if (*bp == '>') /* found matching '>' */
  1570.     {
  1571. end_of_name = bp + 1;
  1573. /* Which modifiers are given? */
  1574. modifiers = 0x0;
  1575. for (bp = src + 1; bp < last_dash; bp++)
  1576. {
  1577.     if (*bp != '-')
  1578.     {
  1579. bit = name_to_mod_mask(*bp);
  1580. if (bit == 0x0)
  1581.     break; /* Illegal modifier name */
  1582. modifiers |= bit;
  1583.     }
  1584. }
  1586. /*
  1587.  * Legal modifier name.
  1588.  */
  1589. if (bp >= last_dash)
  1590. {
  1591.     /*
  1592.      * Modifier with single letter, or special key name.
  1593.      */
  1594.     if (modifiers != 0 && last_dash[2] == '>')
  1595. key = last_dash[1];
  1596.     else
  1597. key = get_special_key_code(last_dash + 1);
  1599.     /*
  1600.      * get_special_key_code() may return NUL for invalid
  1601.      * special key name.
  1602.      */
  1603.     if (key != NUL)
  1604.     {
  1605. /*
  1606.  * Only use a modifier when there is no special key code that
  1607.  * includes the modifier.
  1608.  */
  1609. key = simplify_key(key, &modifiers);
  1611. if (!keycode)
  1612. {
  1613.     /* don't want keycode, use single byte code */
  1614.     if (key == K_BS)
  1615. key = BS;
  1616.     else if (key == K_DEL)
  1617. key = DEL;
  1618. }
  1620. /*
  1621.  * Normal Key with modifier: Try to make a single byte code.
  1622.  */
  1623. if (!IS_SPECIAL(key))
  1624. {
  1625.     if ((modifiers & MOD_MASK_SHIFT) && isalpha(key))
  1626.     {
  1627. key = TO_UPPER(key);
  1628. modifiers &= ~MOD_MASK_SHIFT;
  1629.     }
  1630.     if ((modifiers & MOD_MASK_CTRL)
  1631.     && ((key >= '?' && key <= '_') || isalpha(key)))
  1632.     {
  1633. if (key == '?')
  1634.     key = DEL;
  1635. else
  1636.     key &= 0x1f;
  1637. modifiers &= ~MOD_MASK_CTRL;
  1638.     }
  1639.     if ((modifiers & MOD_MASK_ALT) && key < 0x80)
  1640.     {
  1641. key |= 0x80;
  1642. modifiers &= ~MOD_MASK_ALT;
  1643.     }
  1644. }
  1646. *modp = modifiers;
  1647. *srcp = end_of_name;
  1648. return key;
  1649.     }
  1650. }
  1651.     }
  1652.     return 0;
  1653. }
  1655. /*
  1656.  * Try to find key "c" in the special key table.
  1657.  * Return the index when found, -1 when not found.
  1658.  */
  1659.     int
  1660. find_special_key_in_table(c)
  1661.     int     c;
  1662. {
  1663.     int     i;
  1665.     for (i = 0; key_names_table[i].name != NULL; i++)
  1666. if (c == key_names_table[i].key)
  1667.     break;
  1668.     if (key_names_table[i].name == NULL)
  1669. i = -1;
  1670.     return i;
  1671. }
  1673. /*
  1674.  * Find the special key with the given name (the given string does not have to
  1675.  * end with NUL, the name is assumed to end before the first non-idchar).
  1676.  * If the name starts with "t_" the next two characters are interpreted as a
  1677.  * termcap name.
  1678.  * Return the key code, or 0 if not found.
  1679.  */
  1680.     int
  1681. get_special_key_code(name)
  1682.     char_u  *name;
  1683. {
  1684.     char_u  *table_name;
  1685.     char_u  string[3];
  1686.     int     i, j;
  1688.     /*
  1689.      * If it's <t_xx> we get the code for xx from the termcap
  1690.      */
  1691.     if (name[0] == 't' && name[1] == '_' && name[2] != NUL && name[3] != NUL)
  1692.     {
  1693. string[0] = name[2];
  1694. string[1] = name[3];
  1695. string[2] = NUL;
  1696. if (add_termcap_entry(string, FALSE) == OK)
  1697.     return TERMCAP2KEY(name[2], name[3]);
  1698.     }
  1699.     else
  1700. for (i = 0; key_names_table[i].name != NULL; i++)
  1701. {
  1702.     table_name = key_names_table[i].name;
  1703.     for (j = 0; vim_isIDc(name[j]) && table_name[j] != NUL; j++)
  1704. if (TO_LOWER(table_name[j]) != TO_LOWER(name[j]))
  1705.     break;
  1706.     if (!vim_isIDc(name[j]) && table_name[j] == NUL)
  1707. return key_names_table[i].key;
  1708. }
  1709.     return 0;
  1710. }
  1712.     char_u *
  1713. get_key_name(i)
  1714.     int     i;
  1715. {
  1716.     if (i >= KEY_NAMES_TABLE_LEN)
  1717. return NULL;
  1718.     return  key_names_table[i].name;
  1719. }
  1721. #ifdef USE_MOUSE
  1722. /*
  1723.  * Look up the given mouse code to return the relevant information in the other
  1724.  * arguments.  Return which button is down or was released.
  1725.  */
  1726.     int
  1727. get_mouse_button(code, is_click, is_drag)
  1728.     int     code;
  1729.     int     *is_click;
  1730.     int     *is_drag;
  1731. {
  1732.     int     i;
  1734.     for (i = 0; mouse_table[i].pseudo_code; i++)
  1735. if (code == mouse_table[i].pseudo_code)
  1736. {
  1737.     *is_click = mouse_table[i].is_click;
  1738.     *is_drag = mouse_table[i].is_drag;
  1739.     return mouse_table[i].button;
  1740. }
  1741.     return 0;     /* Shouldn't get here */
  1742. }
  1744. /*
  1745.  * Return the appropriate pseudo mouse event token (KE_LEFTMOUSE etc) based on
  1746.  * the given information about which mouse button is down, and whether the
  1747.  * mouse was clicked, dragged or released.
  1748.  */
  1749.     int
  1750. get_pseudo_mouse_code(button, is_click, is_drag)
  1751.     int     button; /* eg MOUSE_LEFT */
  1752.     int     is_click;
  1753.     int     is_drag;
  1754. {
  1755.     int     i;
  1757.     for (i = 0; mouse_table[i].pseudo_code; i++)
  1758. if (button == mouse_table[i].button
  1759.     && is_click == mouse_table[i].is_click
  1760.     && is_drag == mouse_table[i].is_drag)
  1761. {
  1762.     return mouse_table[i].pseudo_code;
  1763. }
  1764.     return (int)KE_IGNORE;     /* not recongnized, ignore it */
  1765. }
  1766. #endif /* USE_MOUSE */
  1768. /*
  1769.  * Return the current end-of-line type: EOL_DOS, EOL_UNIX or EOL_MAC.
  1770.  */
  1771.     int
  1772. get_fileformat(buf)
  1773.     BUF     *buf;
  1774. {
  1775.     int     c = *buf->b_p_ff;
  1777.     if (buf->b_p_bin || c == 'u')
  1778. return EOL_UNIX;
  1779.     if (c == 'm')
  1780. return EOL_MAC;
  1781.     return EOL_DOS;
  1782. }
  1784. /*
  1785.  * Set the current end-of-line type to EOL_DOS, EOL_UNIX or EOL_MAC.
  1786.  * Sets both 'textmode' and 'fileformat'.
  1787.  */
  1788.     void
  1789. set_fileformat(t)
  1790.     int t;
  1791. {
  1792.     switch (t)
  1793.     {
  1794.     case EOL_DOS:
  1795. set_string_option_direct((char_u *)"ff", -1, (char_u *)FF_DOS, TRUE);
  1796. curbuf->b_p_tx = TRUE;
  1797. break;
  1798.     case EOL_UNIX:
  1799. set_string_option_direct((char_u *)"ff", -1, (char_u *)FF_UNIX, TRUE);
  1800. curbuf->b_p_tx = FALSE;
  1801. break;
  1802.     case EOL_MAC:
  1803. set_string_option_direct((char_u *)"ff", -1, (char_u *)FF_MAC, TRUE);
  1804. curbuf->b_p_tx = FALSE;
  1805. break;
  1806.     }
  1807.     check_status(curbuf);
  1808. }
  1810. /*
  1811.  * Return the default fileformat from 'fileformats'.
  1812.  */
  1813.     int
  1814. default_fileformat()
  1815. {
  1816.     switch (*p_ffs)
  1817.     {
  1818. case 'm':   return EOL_MAC;
  1819. case 'd':   return EOL_DOS;
  1820.     }
  1821.     return EOL_UNIX;
  1822. }
  1824. /*
  1825.  * Call shell. Calls mch_call_shell, with 'shellxquote' added.
  1826.  */
  1827.     int
  1828. call_shell(cmd, opt)
  1829.     char_u *cmd;
  1830.     int opt;
  1831. {
  1832.     char_u *ncmd;
  1834. #ifdef USE_GUI_WIN32
  1835.     /* Don't hide the pointer while executing a shell command. */
  1836.     gui_mch_mousehide(FALSE);
  1837. #endif
  1839.     if (cmd == NULL || *p_sxq == NUL)
  1840. call_shell_retval = mch_call_shell(cmd, opt);
  1841.     else
  1842.     {
  1843. ncmd = alloc((unsigned)(STRLEN(cmd) + STRLEN(p_sxq) * 2 + 1));
  1844. if (ncmd != NULL)
  1845. {
  1846.     STRCPY(ncmd, p_sxq);
  1847.     STRCAT(ncmd, cmd);
  1848.     STRCAT(ncmd, p_sxq);
  1849.     call_shell_retval = mch_call_shell(ncmd, opt);
  1850.     vim_free(ncmd);
  1851. }
  1852. else
  1853.     call_shell_retval = -1;
  1854.     }
  1855.     return call_shell_retval;
  1856. }
  1858. /*
  1859.  * VISUAL and OP_PENDING State are never set, they are equal to NORMAL State
  1860.  * with a condition.  This function returns the real State.
  1861.  */
  1862.     int
  1863. get_real_state()
  1864. {
  1865.     if ((State & NORMAL))
  1866.     {
  1867. if (VIsual_active)
  1868.     return VISUAL;
  1869. else if (finish_op)
  1870.     return OP_PENDING;
  1871.     }
  1872.     return State;
  1873. }
  1875. /*
  1876.  * Change to a file's directory.
  1877.  */
  1878.     int
  1879. vim_chdirfile(fname)
  1880.     char_u *fname;
  1881. {
  1882.     char_u temp_string[MAXPATHL];
  1883.     char_u *p;
  1884.     char_u *t;
  1886.     STRCPY(temp_string, fname);
  1887.     p = get_past_head(temp_string);
  1888.     t = gettail(temp_string);
  1889.     while (t > p && vim_ispathsep(t[-1]))
  1890. --t;
  1891.     *t = NUL; /* chop off end of string */
  1893.     return mch_chdir((char *)temp_string);
  1894. }
  1896. #ifdef CURSOR_SHAPE
  1898. /*
  1899.  * Handling of cursor shapes in various modes.
  1900.  */
  1902. struct cursor_entry cursor_table[SHAPE_COUNT] =
  1903. {
  1904.     /* The values will be filled in from the guicursor' default when the GUI
  1905.      * starts. */
  1906.     {0, 0, 700L, 400L, 250L, 0, "n"},
  1907.     {0, 0, 700L, 400L, 250L, 0, "v"},
  1908.     {0, 0, 700L, 400L, 250L, 0, "i"},
  1909.     {0, 0, 700L, 400L, 250L, 0, "r"},
  1910.     {0, 0, 700L, 400L, 250L, 0, "c"},
  1911.     {0, 0, 700L, 400L, 250L, 0, "ci"},
  1912.     {0, 0, 700L, 400L, 250L, 0, "cr"},
  1913.     {0, 0, 100L, 100L, 100L, 0, "sm"},
  1914.     {0, 0, 700L, 400L, 250L, 0, "o"},
  1915.     {0, 0, 700L, 400L, 250L, 0, "ve"}
  1916. };
  1918. /*
  1919.  * Parse the 'guicursor' option.
  1920.  * Returns error message for an illegal option, NULL otherwise.
  1921.  */
  1922.     char_u *
  1923. parse_guicursor()
  1924. {
  1925.     char_u *modep;
  1926.     char_u *colonp;
  1927.     char_u *commap;
  1928.     char_u *p, *endp;
  1929.     int idx = 0; /* init for GCC */
  1930.     int all_idx;
  1931.     int len;
  1932.     int i;
  1933.     long n;
  1934.     int found_ve = FALSE; /* found "ve" flag */
  1936.     /*
  1937.      * Repeat for all comma separated parts.
  1938.      */
  1939.     modep = p_guicursor;
  1940.     while (*modep)
  1941.     {
  1942. colonp = vim_strchr(modep, ':');
  1943. if (colonp == NULL)
  1944.     return (char_u *)"Missing colon";
  1945. commap = vim_strchr(modep, ',');
  1947. /*
  1948.  * Repeat for all mode's before the colon.
  1949.  * For the 'a' mode, we loop to handle all the modes.
  1950.  */
  1951. all_idx = -1;
  1952. while (modep < colonp || all_idx >= 0)
  1953. {
  1954.     if (all_idx < 0)
  1955.     {
  1956. /* Find the mode. */
  1957. if (modep[1] == '-' || modep[1] == ':')
  1958.     len = 1;
  1959. else
  1960.     len = 2;
  1961. if (len == 1 && TO_LOWER(modep[0]) == 'a')
  1962.     all_idx = SHAPE_COUNT - 1;
  1963. else
  1964. {
  1965.     for (idx = 0; idx < SHAPE_COUNT; ++idx)
  1966. if (STRNICMP(modep, cursor_table[idx].name, len) == 0)
  1967.     break;
  1968.     if (idx == SHAPE_COUNT)
  1969. return (char_u *)"Illegal mode";
  1970.     if (len == 2 && modep[0] == 'v' && modep[1] == 'e')
  1971. found_ve = TRUE;
  1972. }
  1973. modep += len + 1;
  1974.     }
  1976.     if (all_idx >= 0)
  1977. idx = all_idx--;
  1978.     else
  1979.     {
  1980. /* Set the defaults, for the missing parts */
  1981. cursor_table[idx].shape = SHAPE_BLOCK;
  1982. cursor_table[idx].blinkwait = 700L;
  1983. cursor_table[idx].blinkon = 400L;
  1984. cursor_table[idx].blinkoff = 250L;
  1985.     }
  1987.     /* Parse the part after the colon */
  1988.     for (p = colonp + 1; *p && *p != ','; )
  1989.     {
  1990. /*
  1991.  * First handle the ones with a number argument.
  1992.  */
  1993. i = *p;
  1994. len = 0;
  1995. if (STRNICMP(p, "ver", 3) == 0)
  1996.     len = 3;
  1997. else if (STRNICMP(p, "hor", 3) == 0)
  1998.     len = 3;
  1999. else if (STRNICMP(p, "blinkwait", 9) == 0)
  2000.     len = 9;
  2001. else if (STRNICMP(p, "blinkon", 7) == 0)
  2002.     len = 7;
  2003. else if (STRNICMP(p, "blinkoff", 8) == 0)
  2004.     len = 8;
  2005. if (len)
  2006. {
  2007.     p += len;
  2008.     if (!isdigit(*p))
  2009. return (char_u *)"digit expected";
  2010.     n = getdigits(&p);
  2011.     if (len == 3)   /* "ver" or "hor" */
  2012.     {
  2013. if (n == 0)
  2014.     return (char_u *)"Illegal percentage";
  2015. if (TO_LOWER(i) == 'v')
  2016.     cursor_table[idx].shape = SHAPE_VER;
  2017. else
  2018.     cursor_table[idx].shape = SHAPE_HOR;
  2019. cursor_table[idx].percentage = n;
  2020.     }
  2021.     else if (len == 9)
  2022. cursor_table[idx].blinkwait = n;
  2023.     else if (len == 7)
  2024. cursor_table[idx].blinkon = n;
  2025.     else
  2026. cursor_table[idx].blinkoff = n;
  2027. }
  2028. else if (STRNICMP(p, "block", 5) == 0)
  2029. {
  2030.     cursor_table[idx].shape = SHAPE_BLOCK;
  2031.     p += 5;
  2032. }
  2033. else /* must be a highlight group name then */
  2034. {
  2035.     endp = vim_strchr(p, '-');
  2036.     if (commap == NULL)     /* last part */
  2037.     {
  2038. if (endp == NULL)
  2039.     endp = p + STRLEN(p);   /* find end of part */
  2040.     }
  2041.     else if (endp > commap || endp == NULL)
  2042. endp = commap;
  2043.     cursor_table[idx].id = syn_check_group(p, (int)(endp - p));
  2044.     p = endp;
  2045. }
  2046. if (*p == '-')
  2047.     ++p;
  2048.     }
  2049. }
  2050. modep = p;
  2051. if (*modep == ',')
  2052.     ++modep;
  2053.     }
  2055.     /* If the 's' flag is not given, use the 'v' cursor for 's' */
  2056.     if (!found_ve)
  2057.     {
  2058. cursor_table[SHAPE_VE].shape = cursor_table[SHAPE_V].shape;
  2059. cursor_table[SHAPE_VE].percentage = cursor_table[SHAPE_V].percentage;
  2060. cursor_table[SHAPE_VE].blinkwait = cursor_table[SHAPE_V].blinkwait;
  2061. cursor_table[SHAPE_VE].blinkon = cursor_table[SHAPE_V].blinkon;
  2062. cursor_table[SHAPE_VE].blinkoff = cursor_table[SHAPE_V].blinkoff;
  2063. cursor_table[SHAPE_VE].id = cursor_table[SHAPE_V].id;
  2064.     }
  2066.     return NULL;
  2067. }
  2069. /*
  2070.  * Return the index into cursor_table[] for the current mode.
  2071.  */
  2072.     int
  2073. get_cursor_idx()
  2074. {
  2075.     if (State == SHOWMATCH)
  2076. return SHAPE_SM;
  2077.     if (State == INSERT)
  2078. return SHAPE_I;
  2079.     if (State == REPLACE)
  2080. return SHAPE_R;
  2081.     if (State == CMDLINE)
  2082.     {
  2083. if (cmdline_at_end())
  2084.     return SHAPE_C;
  2085. if (cmdline_overstrike())
  2086.     return SHAPE_CR;
  2087. return SHAPE_CI;
  2088.     }
  2089.     if (finish_op)
  2090. return SHAPE_O;
  2091.     if (VIsual_active)
  2092.     {
  2093. if (*p_sel == 'e')
  2094.     return SHAPE_VE;
  2095. else
  2096.     return SHAPE_V;
  2097.     }
  2098.     return SHAPE_N;
  2099. }
  2101. #endif /* CURSOR_SHAPE */