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 / 6.2.475 < prev    next >
Encoding:
Internet Message Format  |  2004-04-15  |  9.6 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 6.2.475
  3. Fcc: outbox
  4. From: Bram Moolenaar <Bram@moolenaar.net>
  5. Mime-Version: 1.0
  6. Content-Type: text/plain; charset=ISO-8859-1
  7. Content-Transfer-Encoding: 8bit
  8. ------------
  9.  
  10. Patch 6.2.475
  11. Problem:    Commands after "perl <<EOF" are parsed as Vim commands when they
  12.         are not executed.
  13. Solution:   Properly skip over the perl commands.
  14. Files:        src/ex_docmd.c, src/ex_getln.c, src/if_perl.xs, src/if_python.c,
  15.         src/if_ruby.c, src/if_tcl.c, src/misc2.c
  16.  
  17.  
  18. *** ../vim-6.2.474/src/ex_docmd.c    Wed Apr 14 11:08:53 2004
  19. --- src/ex_docmd.c    Fri Apr 16 10:13:10 2004
  20. ***************
  21. *** 127,132 ****
  22. --- 127,136 ----
  23.   
  24.   static int    check_more __ARGS((int, int));
  25.   static linenr_T get_address __ARGS((char_u **, int skip, int to_other_file));
  26. + #if !defined(FEAT_PERL) || !defined(FEAT_PYTHON) || !defined(FEAT_TCL) \
  27. +     || !defined(FEAT_RUBY)
  28. + static void    ex_script_ni __ARGS((exarg_T *eap));
  29. + #endif
  30.   static char_u    *invalid_range __ARGS((exarg_T *eap));
  31.   static void    correct_range __ARGS((exarg_T *eap));
  32.   static char_u    *repl_cmdline __ARGS((exarg_T *eap, char_u *src, int srclen, char_u *repl, char_u **cmdlinep));
  33. ***************
  34. *** 217,236 ****
  35.   # define ex_syntax        ex_ni
  36.   #endif
  37.   #ifndef FEAT_PERL
  38. ! # define ex_perl        ex_ni
  39.   # define ex_perldo        ex_ni
  40.   #endif
  41.   #ifndef FEAT_PYTHON
  42. ! # define ex_python        ex_ni
  43.   # define ex_pyfile        ex_ni
  44.   #endif
  45.   #ifndef FEAT_TCL
  46. ! # define ex_tcl            ex_ni
  47.   # define ex_tcldo        ex_ni
  48.   # define ex_tclfile        ex_ni
  49.   #endif
  50.   #ifndef FEAT_RUBY
  51. ! # define ex_ruby        ex_ni
  52.   # define ex_rubydo        ex_ni
  53.   # define ex_rubyfile        ex_ni
  54.   #endif
  55. --- 221,240 ----
  56.   # define ex_syntax        ex_ni
  57.   #endif
  58.   #ifndef FEAT_PERL
  59. ! # define ex_perl        ex_script_ni
  60.   # define ex_perldo        ex_ni
  61.   #endif
  62.   #ifndef FEAT_PYTHON
  63. ! # define ex_python        ex_script_ni
  64.   # define ex_pyfile        ex_ni
  65.   #endif
  66.   #ifndef FEAT_TCL
  67. ! # define ex_tcl            ex_script_ni
  68.   # define ex_tcldo        ex_ni
  69.   # define ex_tclfile        ex_ni
  70.   #endif
  71.   #ifndef FEAT_RUBY
  72. ! # define ex_ruby        ex_script_ni
  73.   # define ex_rubydo        ex_ni
  74.   # define ex_rubyfile        ex_ni
  75.   #endif
  76. ***************
  77. *** 2367,2381 ****
  78.           case CMD_let:
  79.           case CMD_lockmarks:
  80.           case CMD_match:
  81.           case CMD_psearch:
  82.           case CMD_return:
  83. -         case CMD_throw:
  84.           case CMD_rightbelow:
  85.           case CMD_silent:
  86.           case CMD_smagic:
  87.           case CMD_snomagic:
  88.           case CMD_substitute:
  89.           case CMD_syntax:
  90.           case CMD_tilde:
  91.           case CMD_topleft:
  92.           case CMD_unlet:
  93. --- 2369,2387 ----
  94.           case CMD_let:
  95.           case CMD_lockmarks:
  96.           case CMD_match:
  97. +         case CMD_perl:
  98.           case CMD_psearch:
  99. +         case CMD_python:
  100.           case CMD_return:
  101.           case CMD_rightbelow:
  102. +         case CMD_ruby:
  103.           case CMD_silent:
  104.           case CMD_smagic:
  105.           case CMD_snomagic:
  106.           case CMD_substitute:
  107.           case CMD_syntax:
  108. +         case CMD_tcl:
  109. +         case CMD_throw:
  110.           case CMD_tilde:
  111.           case CMD_topleft:
  112.           case CMD_unlet:
  113. ***************
  114. *** 3779,3784 ****
  115. --- 3785,3807 ----
  116.       if (!eap->skip)
  117.       eap->errmsg = (char_u *)N_("E319: Sorry, the command is not available in this version");
  118.   }
  119. + 
  120. + #if !defined(FEAT_PERL) || !defined(FEAT_PYTHON) || !defined(FEAT_TCL) \
  121. +     || !defined(FEAT_RUBY)
  122. + /*
  123. +  * Function called for script command which is Not Implemented.  NI!
  124. +  * Skips over ":perl <<EOF" constructs.
  125. +  */
  126. +     static void
  127. + ex_script_ni(eap)
  128. +     exarg_T    *eap;
  129. + {
  130. +     if (!eap->skip)
  131. +     ex_ni(eap);
  132. +     else
  133. +     vim_free(script_get(eap, eap->arg));
  134. + }
  135. + #endif
  136.   
  137.   /*
  138.    * Check range in Ex command for validity.
  139. *** ../vim-6.2.474/src/ex_getln.c    Mon Apr  5 20:28:39 2004
  140. --- src/ex_getln.c    Fri Apr 16 10:00:28 2004
  141. ***************
  142. *** 5302,5309 ****
  143.   }
  144.   #endif /* FEAT_CMDWIN */
  145.   
  146. - #if defined(FEAT_PYTHON) || defined(FEAT_RUBY) || defined(FEAT_TCL) \
  147. -     || defined(FEAT_PERL) || defined(PROTO)
  148.   /*
  149.    * Used for commands that either take a simple command string argument, or:
  150.    *    cmd << endmarker
  151. --- 5302,5307 ----
  152. ***************
  153. *** 5349,5352 ****
  154.   
  155.       return (char_u *)ga.ga_data;
  156.   }
  157. - #endif /* SCRIPTS */
  158. --- 5347,5349 ----
  159. *** ../vim-6.2.474/src/if_perl.xs    Wed Oct 29 14:45:27 2003
  160. --- src/if_perl.xs    Fri Apr 16 09:57:54 2004
  161. ***************
  162. *** 567,578 ****
  163. --- 567,586 ----
  164.       SV        *sv;
  165.       SV        *safe;
  166.   
  167. +     script = (char *)script_get(eap, eap->arg);
  168. +     if (eap->skip)
  169. +     {
  170. +     vim_free(script);
  171. +     return;
  172. +     }
  173. + 
  174.       if (perl_interp == NULL)
  175.       {
  176.   #ifdef DYNAMIC_PERL
  177.       if (!perl_enabled(TRUE))
  178.       {
  179.           EMSG(_(e_noperl));
  180. +         vim_free(script);
  181.           return;
  182.       }
  183.   #endif
  184. ***************
  185. *** 584,590 ****
  186.       ENTER;
  187.       SAVETMPS;
  188.   
  189. -     script = (char *)script_get(eap, eap->arg);
  190.       if (script == NULL)
  191.       sv = newSVpv((char *)eap->arg, 0);
  192.       else
  193. --- 592,597 ----
  194. *** ../vim-6.2.474/src/if_python.c    Tue Apr  6 20:19:26 2004
  195. --- src/if_python.c    Fri Apr 16 10:03:07 2004
  196. ***************
  197. *** 524,530 ****
  198.       else
  199.       {
  200.       /* Need to make a copy, value may change when setting new locale. */
  201. !     saved_locale = vim_strsave(saved_locale);
  202.       (void)setlocale(LC_NUMERIC, "C");
  203.       }
  204.   #endif
  205. --- 524,530 ----
  206.       else
  207.       {
  208.       /* Need to make a copy, value may change when setting new locale. */
  209. !     saved_locale = (char *)vim_strsave((char_u *)saved_locale);
  210.       (void)setlocale(LC_NUMERIC, "C");
  211.       }
  212.   #endif
  213. ***************
  214. *** 573,585 ****
  215.       char_u *script;
  216.   
  217.       script = script_get(eap, eap->arg);
  218. !     if (script == NULL)
  219. !     DoPythonCommand(eap, (char *)eap->arg);
  220. !     else
  221.       {
  222. !     DoPythonCommand(eap, (char *)script);
  223. !     vim_free(script);
  224.       }
  225.   }
  226.   
  227.   #define BUFFER_SIZE 1024
  228. --- 573,586 ----
  229.       char_u *script;
  230.   
  231.       script = script_get(eap, eap->arg);
  232. !     if (!eap->skip)
  233.       {
  234. !     if (script == NULL)
  235. !         DoPythonCommand(eap, (char *)eap->arg);
  236. !     else
  237. !         DoPythonCommand(eap, (char *)script);
  238.       }
  239. +     vim_free(script);
  240.   }
  241.   
  242.   #define BUFFER_SIZE 1024
  243. *** ../vim-6.2.474/src/if_ruby.c    Thu Mar 18 12:18:09 2004
  244. --- src/if_ruby.c    Fri Apr 16 10:05:10 2004
  245. ***************
  246. *** 325,343 ****
  247.       int state;
  248.       char *script = NULL;
  249.   
  250. !     if (ensure_ruby_initialized())
  251.       {
  252. -     script = script_get(eap, eap->arg);
  253.       if (script == NULL)
  254.           rb_eval_string_protect((char *)eap->arg, &state);
  255.       else
  256. -     {
  257.           rb_eval_string_protect(script, &state);
  258. -         vim_free(script);
  259. -     }
  260.       if (state)
  261.           error_print(state);
  262.       }
  263.   }
  264.   
  265.   void ex_rubydo(exarg_T *eap)
  266. --- 325,341 ----
  267.       int state;
  268.       char *script = NULL;
  269.   
  270. !     script = script_get(eap, eap->arg);
  271. !     if (!eap->skip && ensure_ruby_initialized())
  272.       {
  273.       if (script == NULL)
  274.           rb_eval_string_protect((char *)eap->arg, &state);
  275.       else
  276.           rb_eval_string_protect(script, &state);
  277.       if (state)
  278.           error_print(state);
  279.       }
  280. +     vim_free(script);
  281.   }
  282.   
  283.   void ex_rubydo(exarg_T *eap)
  284. *** ../vim-6.2.474/src/if_tcl.c    Sat Apr 19 15:21:27 2003
  285. --- src/if_tcl.c    Fri Apr 16 10:04:05 2004
  286. ***************
  287. *** 1931,1950 ****
  288.       char_u    *script;
  289.       int        err;
  290.   
  291. !     err = tclinit(eap);
  292. !     if (err == OK)
  293.       {
  294. !     Tcl_AllowExceptions(tclinfo.interp);
  295. !     script = script_get(eap, eap->arg);
  296. !     if (script == NULL)
  297. !         err = Tcl_Eval(tclinfo.interp, (char *)eap->arg);
  298. !     else
  299.       {
  300. !         err = Tcl_Eval(tclinfo.interp, (char *)script);
  301. !         vim_free(script);
  302.       }
  303. -     err = tclexit(err);
  304.       }
  305.   }
  306.   
  307.   /*
  308. --- 1931,1951 ----
  309.       char_u    *script;
  310.       int        err;
  311.   
  312. !     script = script_get(eap, eap->arg);
  313. !     if (!eap->skip)
  314.       {
  315. !     err = tclinit(eap);
  316. !     if (err == OK)
  317.       {
  318. !         Tcl_AllowExceptions(tclinfo.interp);
  319. !         if (script == NULL)
  320. !         err = Tcl_Eval(tclinfo.interp, (char *)eap->arg);
  321. !         else
  322. !         err = Tcl_Eval(tclinfo.interp, (char *)script);
  323. !         err = tclexit(err);
  324.       }
  325.       }
  326. +     vim_free(script);
  327.   }
  328.   
  329.   /*
  330. *** ../vim-6.2.474/src/misc2.c    Wed Apr  7 13:14:18 2004
  331. --- src/misc2.c    Fri Apr 16 10:18:55 2004
  332. ***************
  333. *** 1582,1592 ****
  334.       return OK;
  335.   }
  336.   
  337. - #if defined(FEAT_EVAL) || defined(FEAT_CMDL_COMPL) || defined(FEAT_PYTHON) \
  338. -     || defined(FEAT_RUBY) || defined(FEAT_TCL) || defined(FEAT_PERL) \
  339. -     || defined(FEAT_GUI_GTK) || defined(FEAT_GUI_MOTIF) \
  340. -     || defined(MSWIN_FIND_REPLACE) \
  341. -     || defined(FEAT_CLIENTSERVER) || defined(PROTO)
  342.   /*
  343.    * Concatenate a string to a growarray which contains characters.
  344.    * Note: Does NOT copy the NUL at the end!
  345. --- 1582,1587 ----
  346. ***************
  347. *** 1605,1618 ****
  348.       gap->ga_room -= len;
  349.       }
  350.   }
  351. - #endif
  352.   
  353. - #if defined(FEAT_EVAL) || defined(FEAT_CMDL_COMPL) || defined(FEAT_PYTHON) \
  354. -     || defined(FEAT_RUBY) || defined(FEAT_TCL) || defined(FEAT_PERL) \
  355. -     || defined(FEAT_CLIENTSERVER) \
  356. -     || defined(FEAT_GUI_GTK) || defined(FEAT_GUI_MOTIF) \
  357. -     || defined(MSWIN_FIND_REPLACE) \
  358. -     || (defined(FEAT_PRINTER) && defined(FEAT_POSTSCRIPT)) || defined(PROTO)
  359.   /*
  360.    * Append one byte to a growarray which contains bytes.
  361.    */
  362. --- 1600,1606 ----
  363. ***************
  364. *** 1628,1634 ****
  365.       --gap->ga_room;
  366.       }
  367.   }
  368. - #endif
  369.   
  370.   /************************************************************************
  371.    * functions that use lookup tables for various things, generally to do with
  372. --- 1616,1621 ----
  373. *** ../vim-6.2.474/src/version.c    Fri Apr 16 11:08:02 2004
  374. --- src/version.c    Fri Apr 16 11:10:14 2004
  375. ***************
  376. *** 639,640 ****
  377. --- 639,642 ----
  378.   {   /* Add new patch number below this line */
  379. + /**/
  380. +     475,
  381.   /**/
  382.  
  383. -- 
  384. Men may not be seen publicly in any kind of strapless gown.
  385.         [real standing law in Florida, United States of America]
  386.  
  387.  /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
  388. ///        Sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
  389. \\\              Project leader for A-A-P -- http://www.A-A-P.org        ///
  390.  \\\  Buy at Amazon and help AIDS victims -- http://ICCF.nl/click1.html ///
  391.