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.0.030 < prev    next >
Encoding:
Internet Message Format  |  2001-10-27  |  9.6 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 6.0.030
  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.0.030
  11. Problem:    Using ":source! file" doesn't work inside a loop or after
  12.         ":argdo". (Pavol Juhas)
  13. Solution:   Execute the commands in the file right away, do not let the main
  14.         loop do it.
  15. Files:        src/ex_cmds2.c, src/ex_docmd.c, src/getchar.c, src/globals.h,
  16.         src/proto/ex_docmd.pro, src/proto/getchar.pro
  17.  
  18.  
  19. *** ../vim60.29/src/ex_cmds2.c    Tue Sep 25 14:18:04 2001
  20. --- src/ex_cmds2.c    Thu Oct 25 10:08:24 2001
  21. ***************
  22. *** 14,20 ****
  23.   #include "vim.h"
  24.   #include "version.h"
  25.   
  26. ! static void    cmd_source __ARGS((char_u *fname, int forceit));
  27.   
  28.   #if defined(FEAT_EVAL) || defined(PROTO)
  29.   
  30. --- 14,20 ----
  31.   #include "vim.h"
  32.   #include "version.h"
  33.   
  34. ! static void    cmd_source __ARGS((char_u *fname, exarg_T *eap));
  35.   
  36.   #if defined(FEAT_EVAL) || defined(PROTO)
  37.   
  38. ***************
  39. *** 1454,1461 ****
  40. --- 1454,1463 ----
  41.   #endif
  42.   
  43.           /* execute the command */
  44. +         listcmd_busy = TRUE;
  45.           do_cmdline(eap->arg, eap->getline, eap->cookie,
  46.                           DOCMD_VERBOSE + DOCMD_NOWAIT);
  47. +         listcmd_busy = FALSE;
  48.   
  49.           if (eap->cmdidx == CMD_bufdo)
  50.           {
  51. ***************
  52. *** 1693,1699 ****
  53.   ex_options(eap)
  54.       exarg_T    *eap;
  55.   {
  56. !     cmd_source((char_u *)SYS_OPTWIN_FILE, FALSE);
  57.   }
  58.   #endif
  59.   
  60. --- 1695,1701 ----
  61.   ex_options(eap)
  62.       exarg_T    *eap;
  63.   {
  64. !     cmd_source((char_u *)SYS_OPTWIN_FILE, NULL);
  65.   }
  66.   #endif
  67.   
  68. ***************
  69. *** 1713,1737 ****
  70.           NULL, NULL, eap->arg, BROWSE_FILTER_MACROS, curbuf);
  71.       if (fname != NULL)
  72.       {
  73. !         cmd_source(fname, eap->forceit);
  74.           vim_free(fname);
  75.       }
  76.       }
  77.       else
  78.   #endif
  79. !     cmd_source(eap->arg, eap->forceit);
  80.   }
  81.   
  82.       static void
  83. ! cmd_source(fname, forceit)
  84.       char_u    *fname;
  85. !     int        forceit;
  86.   {
  87.       if (*fname == NUL)
  88.       EMSG(_(e_argreq));
  89. !     else if (forceit)        /* :so! read vi commands */
  90. !     (void)openscript(fname);
  91. !                 /* :so read ex commands */
  92.       else if (do_source(fname, FALSE, FALSE) == FAIL)
  93.       EMSG2(_(e_notopen), fname);
  94.   }
  95. --- 1715,1752 ----
  96.           NULL, NULL, eap->arg, BROWSE_FILTER_MACROS, curbuf);
  97.       if (fname != NULL)
  98.       {
  99. !         cmd_source(fname, eap);
  100.           vim_free(fname);
  101.       }
  102.       }
  103.       else
  104.   #endif
  105. !     cmd_source(eap->arg, eap);
  106.   }
  107.   
  108.       static void
  109. ! cmd_source(fname, eap)
  110.       char_u    *fname;
  111. !     exarg_T    *eap;
  112.   {
  113.       if (*fname == NUL)
  114.       EMSG(_(e_argreq));
  115. ! 
  116. !     /* ":source!" read vi commands */
  117. !     else if (eap != NULL && eap->forceit)
  118. !     /* Need to execute the commands directly when:
  119. !      * - ":g" command busy
  120. !      * - after ":argdo", ":windo" or ":bufdo"
  121. !      * - another command follows
  122. !      * - inside a loop
  123. !      */
  124. !     openscript(fname, global_busy || listcmd_busy || eap->nextcmd != NULL
  125. ! #ifdef FEAT_EVAL
  126. !                          || eap->cstack->cs_idx >= 0
  127. ! #endif
  128. !                          );
  129. ! 
  130. !     /* ":source" read ex commands */
  131.       else if (do_source(fname, FALSE, FALSE) == FAIL)
  132.       EMSG2(_(e_notopen), fname);
  133.   }
  134. *** ../vim60.29/src/ex_docmd.c    Fri Oct 19 11:18:45 2001
  135. --- src/ex_docmd.c    Sat Oct 20 16:53:27 2001
  136. ***************
  137. *** 276,282 ****
  138.   #endif
  139.   #ifdef FEAT_EX_EXTRA
  140.   static void    ex_normal __ARGS((exarg_T *eap));
  141. - static void    update_topline_cursor __ARGS((void));
  142.   static void    ex_startinsert __ARGS((exarg_T *eap));
  143.   #else
  144.   # define ex_normal        ex_ni
  145. --- 276,281 ----
  146. ***************
  147. *** 6777,6782 ****
  148. --- 6776,6794 ----
  149.       }
  150.   }
  151.   
  152. + /*
  153. +  * Update w_topline, w_leftcol and the cursor position.
  154. +  */
  155. +     void
  156. + update_topline_cursor()
  157. + {
  158. +     check_cursor();        /* put cursor on valid line */
  159. +     update_topline();
  160. +     if (!curwin->w_p_wrap)
  161. +     validate_cursor();
  162. +     update_curswant();
  163. + }
  164. + 
  165.   #ifdef FEAT_EX_EXTRA
  166.   /*
  167.    * ":normal[!] {commands}": Execute normal mode commands.
  168. ***************
  169. *** 6937,6955 ****
  170.   #ifdef FEAT_MBYTE
  171.       vim_free(arg);
  172.   #endif
  173. - }
  174. - 
  175. - /*
  176. -  * Update w_topline, w_leftcol and the cursor position.
  177. -  */
  178. -     static void
  179. - update_topline_cursor()
  180. - {
  181. -     check_cursor();        /* put cursor on valid line */
  182. -     update_topline();
  183. -     if (!curwin->w_p_wrap)
  184. -     validate_cursor();
  185. -     update_curswant();
  186.   }
  187.   
  188.   /*
  189. --- 6949,6954 ----
  190. *** ../vim60.29/src/getchar.c    Sun Sep 16 14:38:55 2001
  191. --- src/getchar.c    Sat Oct 20 18:07:04 2001
  192. ***************
  193. *** 1224,1244 ****
  194.   }
  195.   
  196.   /*
  197. !  * open new script file for ":so!" command
  198. !  * return OK on success, FAIL on error
  199.    */
  200. !     int
  201. ! openscript(name)
  202. !     char_u *name;
  203.   {
  204. -     int        oldcurscript;
  205. -     oparg_T    oa;
  206. -     int        save_State;
  207. - 
  208.       if (curscript + 1 == NSCRIPT)
  209.       {
  210.       EMSG(_(e_nesting));
  211. !     return FAIL;
  212.       }
  213.   
  214.       if (scriptin[curscript] != NULL)    /* already reading script */
  215. --- 1224,1240 ----
  216.   }
  217.   
  218.   /*
  219. !  * Open a new script file for the ":source!" command.
  220.    */
  221. !     void
  222. ! openscript(name, directly)
  223. !     char_u    *name;
  224. !     int        directly;    /* when TRUE execute directly */
  225.   {
  226.       if (curscript + 1 == NSCRIPT)
  227.       {
  228.       EMSG(_(e_nesting));
  229. !     return;
  230.       }
  231.   
  232.       if (scriptin[curscript] != NULL)    /* already reading script */
  233. ***************
  234. *** 1250,1281 ****
  235.       EMSG2(_(e_notopen), name);
  236.       if (curscript)
  237.           --curscript;
  238. !     return FAIL;
  239.       }
  240.       if (save_typebuf() == FAIL)
  241. !     return FAIL;
  242.   
  243.       /*
  244. !      * With command ":g/pat/so! file" we have to execute the
  245. !      * commands from the file now.
  246.        */
  247. !     if (global_busy)
  248.       {
  249. !     clear_oparg(&oa);
  250. !     save_State = State;
  251.       State = NORMAL;
  252.       oldcurscript = curscript;
  253.       do
  254.       {
  255. !         check_cursor();    /* put cursor on an existing line */
  256. !         normal_cmd(&oa, FALSE);
  257. !         vpeekc();        /* check for end of file */
  258.       }
  259.       while (scriptin[oldcurscript] != NULL);
  260.       State = save_State;
  261.       }
  262. - 
  263. -     return OK;
  264.   }
  265.   
  266.   /*
  267. --- 1246,1294 ----
  268.       EMSG2(_(e_notopen), name);
  269.       if (curscript)
  270.           --curscript;
  271. !     return;
  272.       }
  273.       if (save_typebuf() == FAIL)
  274. !     return;
  275.   
  276.       /*
  277. !      * Execute the commands from the file right now when using ":source!"
  278. !      * after ":global" or ":argdo" or in a loop.  Also when another command
  279. !      * follows.  This means the display won't be updated.  Don't do this
  280. !      * always, "make test" would fail.
  281.        */
  282. !     if (directly)
  283.       {
  284. !     oparg_T    oa;
  285. !     int    oldcurscript;
  286. !     int    save_State = State;
  287. !     int    save_restart_edit = restart_edit;
  288. !     int    save_insertmode = p_im;
  289. !     int    save_finish_op = finish_op;
  290. !     int    save_msg_scroll = msg_scroll;
  291. ! 
  292.       State = NORMAL;
  293. +     msg_scroll = FALSE;    /* no msg scrolling in Normal mode */
  294. +     restart_edit = 0;    /* don't go to Insert mode */
  295. +     p_im = FALSE;        /* don't use 'insertmode' */
  296. +     clear_oparg(&oa);
  297. +     finish_op = FALSE;
  298. + 
  299.       oldcurscript = curscript;
  300.       do
  301.       {
  302. !         update_topline_cursor();    /* update cursor position and topline */
  303. !         normal_cmd(&oa, FALSE);    /* execute one command */
  304. !         vpeekc();            /* check for end of file */
  305.       }
  306.       while (scriptin[oldcurscript] != NULL);
  307. + 
  308.       State = save_State;
  309. +     msg_scroll = save_msg_scroll;
  310. +     restart_edit = save_restart_edit;
  311. +     p_im = save_insertmode;
  312. +     finish_op = save_finish_op;
  313.       }
  314.   }
  315.   
  316.   /*
  317. *** ../vim60.29/src/globals.h    Fri Sep 28 22:19:57 2001
  318. --- src/globals.h    Sat Oct 20 17:49:38 2001
  319. ***************
  320. *** 752,757 ****
  321. --- 752,759 ----
  322.                           /* set after swap write error msg */
  323.   EXTERN int    undo_off INIT(= FALSE);        /* undo switched off for now */
  324.   EXTERN int    global_busy INIT(= 0);        /* set when :global is executing */
  325. + EXTERN int    listcmd_busy INIT(= FALSE); /* set when :argdo, :windo or
  326. +                            :bufdo is executing */
  327.   EXTERN int    need_start_insertmode INIT(= FALSE);
  328.                           /* start insert mode soon */
  329.   EXTERN char_u    *last_cmdline INIT(= NULL); /* last command line (for ":) */
  330. *** ../vim60.29/src/proto/ex_docmd.pro    Tue Sep 25 21:49:13 2001
  331. --- src/proto/ex_docmd.pro    Sat Oct 20 16:55:04 2001
  332. ***************
  333. *** 29,34 ****
  334. --- 29,35 ----
  335.   void do_exedit __ARGS((exarg_T *eap, win_T *old_curwin));
  336.   void do_sleep __ARGS((long msec));
  337.   FILE *open_exfile __ARGS((char_u *fname, int forceit, char *mode));
  338. + void update_topline_cursor __ARGS((void));
  339.   char_u *eval_vars __ARGS((char_u *src, int *usedlen, linenr_T *lnump, char_u **errormsg, char_u *srcstart));
  340.   char_u *expand_sfile __ARGS((char_u *arg));
  341.   int put_eol __ARGS((FILE *fd));
  342. *** ../vim60.29/src/proto/getchar.pro    Tue Sep 25 21:49:15 2001
  343. --- src/proto/getchar.pro    Sat Oct 20 17:23:58 2001
  344. ***************
  345. *** 26,32 ****
  346.   int alloc_typebuf __ARGS((void));
  347.   void free_typebuf __ARGS((void));
  348.   int save_typebuf __ARGS((void));
  349. ! int openscript __ARGS((char_u *name));
  350.   int using_script __ARGS((void));
  351.   void updatescript __ARGS((int c));
  352.   int vgetc __ARGS((void));
  353. --- 26,32 ----
  354.   int alloc_typebuf __ARGS((void));
  355.   void free_typebuf __ARGS((void));
  356.   int save_typebuf __ARGS((void));
  357. ! void openscript __ARGS((char_u *name, int directly));
  358.   int using_script __ARGS((void));
  359.   void updatescript __ARGS((int c));
  360.   int vgetc __ARGS((void));
  361. *** ../vim60.29/src/version.c    Sun Oct 28 21:15:32 2001
  362. --- src/version.c    Sun Oct 28 21:17:56 2001
  363. ***************
  364. *** 608,609 ****
  365. --- 608,611 ----
  366.   {   /* Add new patch number below this line */
  367. + /**/
  368. +     30,
  369.   /**/
  370.  
  371. -- 
  372. BLACK KNIGHT:  I move for no man.
  373. ARTHUR:        So be it!
  374.     [hah] [parry thrust]
  375.     [ARTHUR chops the BLACK KNIGHT's left arm off]
  376. ARTHUR:        Now stand aside, worthy adversary.
  377. BLACK KNIGHT:  'Tis but a scratch.
  378.                                   The Quest for the Holy Grail (Monty Python)
  379.  
  380.  ///  Bram Moolenaar -- Bram@moolenaar.net -- http://www.moolenaar.net  \\\
  381. (((   Creator of Vim -- http://vim.sf.net -- ftp://ftp.vim.org/pub/vim   )))
  382.  \\\  Help me helping AIDS orphans in Uganda - http://iccf-holland.org  ///
  383.