home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / patches / old / 5.6.032 < prev    next >
Encoding:
Internet Message Format  |  2000-03-24  |  4.8 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 5.6.032
  3. Fcc: outbox
  4. From: Bram Moolenaar <Bram@moolenaar.net>
  5. ------------
  6.  
  7. Patch 5.6.032
  8. Problem:    Functions with an argument that is a line number don't all accept
  9.             ".", "$", etc. (Ralf Arens)
  10. Solution:   Add get_art_lnum() and use it for setline(), line2byte() and
  11.             synID().
  12. Files:      src/eval.c
  13.  
  14.  
  15. *** ../vim-5.6.31/src/eval.c    Wed Jan 12 21:14:54 2000
  16. --- src/eval.c    Sat Feb 19 21:04:14 2000
  17. ***************
  18. *** 143,148 ****
  19. --- 143,149 ----
  20.   static int get_env_var __ARGS((char_u **arg, VAR retvar, int evaluate));
  21.   static int find_internal_func __ARGS((char_u *name));
  22.   static int get_func_var __ARGS((char_u *name, int len, VAR retvar, char_u **arg, linenr_t firstline, linenr_t lastline, int *doesrange, int evaluate));
  23. + static linenr_t get_arg_lnum __ARGS((VAR argvars, VAR retvar));
  24.   static void f_append __ARGS((VAR argvars, VAR retvar));
  25.   static void f_argc __ARGS((VAR argvars, VAR retvar));
  26.   static void f_argv __ARGS((VAR argvars, VAR retvar));
  27. ***************
  28. *** 2133,2147 ****
  29.       return ret;
  30.   }
  31.   
  32. - /*********************************************
  33. -  * Implementation of the built-in functions
  34. -  */
  35. - 
  36.   /*
  37. !  * "append(lnum, string)" function
  38.    */
  39. !     static void
  40. ! f_append(argvars, retvar)
  41.       VAR        argvars;
  42.       VAR        retvar;
  43.   {
  44. --- 2134,2144 ----
  45.       return ret;
  46.   }
  47.   
  48.   /*
  49. !  * Get the lnum from the first argument.  Also accepts ".", "$", etc.
  50.    */
  51. !     static linenr_t
  52. ! get_arg_lnum(argvars, retvar)
  53.       VAR        argvars;
  54.       VAR        retvar;
  55.   {
  56. ***************
  57. *** 2154,2159 ****
  58. --- 2151,2174 ----
  59.       lnum = retvar->var_val.var_number;
  60.       clear_var(retvar);
  61.       }
  62. +     return lnum;
  63. + }
  64. + 
  65. + /*********************************************
  66. +  * Implementation of the built-in functions
  67. +  */
  68. + 
  69. + /*
  70. +  * "append(lnum, string)" function
  71. +  */
  72. +     static void
  73. + f_append(argvars, retvar)
  74. +     VAR        argvars;
  75. +     VAR        retvar;
  76. + {
  77. +     long    lnum;
  78. + 
  79. +     lnum = get_arg_lnum(argvars, retvar);
  80.       retvar->var_val.var_number = 1; /* Default: Failed */
  81.   
  82.       if (lnum >= 0 && lnum <= curbuf->b_ml.ml_line_count
  83. ***************
  84. *** 2747,2760 ****
  85.       linenr_t    lnum;
  86.       char_u    *p;
  87.   
  88. !     lnum = get_var_number(&argvars[0]);
  89. !     if (lnum == 0)  /* no valid number, try using line() */
  90. !     {
  91. !     f_line(argvars, retvar);
  92. !     lnum = retvar->var_val.var_number;
  93. !     clear_var(retvar);
  94. !     }
  95. ! 
  96.       if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count)
  97.       p = ml_get(lnum);
  98.       else
  99. --- 2762,2768 ----
  100.       linenr_t    lnum;
  101.       char_u    *p;
  102.   
  103. !     lnum = get_arg_lnum(argvars, retvar);
  104.       if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count)
  105.       p = ml_get(lnum);
  106.       else
  107. ***************
  108. *** 3390,3396 ****
  109.   #else
  110.       linenr_t    lnum;
  111.   
  112. !     lnum = get_var_number(&argvars[0]);
  113.       if (lnum < 1 || lnum > curbuf->b_ml.ml_line_count + 1)
  114.       retvar->var_val.var_number = -1;
  115.       else
  116. --- 3398,3404 ----
  117.   #else
  118.       linenr_t    lnum;
  119.   
  120. !     lnum = get_arg_lnum(argvars, retvar);
  121.       if (lnum < 1 || lnum > curbuf->b_ml.ml_line_count + 1)
  122.       retvar->var_val.var_number = -1;
  123.       else
  124. ***************
  125. *** 3598,3604 ****
  126.       linenr_t    lnum;
  127.       char_u    *line;
  128.   
  129. !     lnum = get_var_number(&argvars[0]);
  130.       line = get_var_string(&argvars[1]);
  131.       retvar->var_val.var_number = 1;        /* FAIL is default */
  132.   
  133. --- 3606,3612 ----
  134.       linenr_t    lnum;
  135.       char_u    *line;
  136.   
  137. !     lnum = get_arg_lnum(argvars, retvar);
  138.       line = get_var_string(&argvars[1]);
  139.       retvar->var_val.var_number = 1;        /* FAIL is default */
  140.   
  141. ***************
  142. *** 3722,3728 ****
  143.       long    col;
  144.       int        trans;
  145.   
  146. !     line = get_var_number(&argvars[0]);
  147.       col = get_var_number(&argvars[1]) - 1;
  148.       trans = get_var_number(&argvars[2]);
  149.   
  150. --- 3730,3736 ----
  151.       long    col;
  152.       int        trans;
  153.   
  154. !     line = get_arg_lnum(argvars, retvar);
  155.       col = get_var_number(&argvars[1]) - 1;
  156.       trans = get_var_number(&argvars[2]);
  157.   
  158. *** ../vim-5.6.31/src/version.c    Sat Mar 25 21:29:50 2000
  159. --- src/version.c    Sat Mar 25 21:31:20 2000
  160. ***************
  161. *** 420,421 ****
  162. --- 420,423 ----
  163.   {   /* Add new patch number below this line */
  164. + /**/
  165. +     32,
  166.   /**/
  167.  
  168. -- 
  169.    An extraordinary TALL KNIGHT in all black (possibly John with Mike on his
  170.    shoulders) walks out from the dark trees.  He is extremely fierce and
  171.    gruesome countenance.  He walks towards KING ARTHUR and PATSY, who are
  172.    wazzing like mad.  (Salopian slang, meaning very scared.  almost to the
  173.    point of wetting oneself, e.g. before an important football match or
  174.    prior to a postering.  Salopian slang meaning a beating by the school
  175.    praeposters.  Sorry about the Salopian slant to this stage direction - Ed.)
  176.                  "Monty Python and the Holy Grail" PYTHON (MONTY) PICTURES LTD
  177.  
  178. /-/-- Bram Moolenaar --- Bram@moolenaar.net --- http://www.moolenaar.net --\-\
  179. \-\-- Vim: http://www.vim.org ---- ICCF Holland: http://www.vim.org/iccf --/-/
  180.