diff options
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 4657 |
1 files changed, 0 insertions, 4657 deletions
diff --git a/src/buffer.c b/src/buffer.c deleted file mode 100644 index 7cd773b55c..0000000000 --- a/src/buffer.c +++ /dev/null @@ -1,4657 +0,0 @@ -/* - * VIM - Vi IMproved by Bram Moolenaar - * - * Do ":help uganda" in Vim to read copying and usage conditions. - * Do ":help credits" in Vim to see a list of people who contributed. - * See README.txt for an overview of the Vim source code. - */ - -/* - * buffer.c: functions for dealing with the buffer structure - */ - -/* - * The buffer list is a double linked list of all buffers. - * Each buffer can be in one of these states: - * never loaded: BF_NEVERLOADED is set, only the file name is valid - * not loaded: b_ml.ml_mfp == NULL, no memfile allocated - * hidden: b_nwindows == 0, loaded but not displayed in a window - * normal: loaded and displayed in a window - * - * Instead of storing file names all over the place, each file name is - * stored in the buffer list. It can be referenced by a number. - * - * The current implementation remembers all file names ever used. - */ - -#include <string.h> - -#include "vim.h" -#include "buffer.h" -#include "charset.h" -#include "diff.h" -#include "digraph.h" -#include "eval.h" -#include "ex_cmds2.h" -#include "ex_cmds.h" -#include "ex_docmd.h" -#include "ex_eval.h" -#include "ex_getln.h" -#include "fileio.h" -#include "fold.h" -#include "getchar.h" -#include "hashtab.h" -#include "indent.h" -#include "indent_c.h" -#include "main.h" -#include "mark.h" -#include "mbyte.h" -#include "memline.h" -#include "memory.h" -#include "message.h" -#include "misc1.h" -#include "misc2.h" -#include "garray.h" -#include "move.h" -#include "option.h" -#include "os_unix.h" -#include "path.h" -#include "quickfix.h" -#include "regexp.h" -#include "screen.h" -#include "spell.h" -#include "syntax.h" -#include "term.h" -#include "ui.h" -#include "undo.h" -#include "window.h" -#include "os/os.h" - -// Todo(stefan991): remove this macro -#define INVALID_DEVICE_ID UINT64_MAX - -static char_u *buflist_match(regprog_T *prog, buf_T *buf); -# define HAVE_BUFLIST_MATCH -static char_u *fname_match(regprog_T *prog, char_u *name); -static void buflist_setfpos(buf_T *buf, win_T *win, linenr_T lnum, - colnr_T col, int copy_options); -static wininfo_T *find_wininfo(buf_T *buf, int skip_diff_buffer); -static buf_T *buflist_findname_file_info(char_u *ffname, FileInfo *file_info); -static int otherfile_buf(buf_T *buf, char_u *ffname, FileInfo *file_info); -static int buf_same_ino(buf_T *buf, FileInfo *file_info); -static int ti_change(char_u *str, char_u **last); -static int append_arg_number(win_T *wp, char_u *buf, int buflen, int add_file); -static void free_buffer(buf_T *); -static void free_buffer_stuff(buf_T *buf, int free_options); -static void clear_wininfo(buf_T *buf); - -static void insert_sign(buf_T *buf, signlist_T *prev, signlist_T *next, int id, linenr_T lnum, int typenr); - -static char *msg_loclist = N_("[Location List]"); -static char *msg_qflist = N_("[Quickfix List]"); -static char *e_auabort = N_("E855: Autocommands caused command to abort"); - -/* - * Open current buffer, that is: open the memfile and read the file into - * memory. - * Return FAIL for failure, OK otherwise. - */ -int -open_buffer ( - int read_stdin, /* read file from stdin */ - exarg_T *eap, /* for forced 'ff' and 'fenc' or NULL */ - int flags /* extra flags for readfile() */ -) -{ - int retval = OK; - buf_T *old_curbuf; - long old_tw = curbuf->b_p_tw; - - /* - * The 'readonly' flag is only set when BF_NEVERLOADED is being reset. - * When re-entering the same buffer, it should not change, because the - * user may have reset the flag by hand. - */ - if (readonlymode && curbuf->b_ffname != NULL - && (curbuf->b_flags & BF_NEVERLOADED)) - curbuf->b_p_ro = TRUE; - - if (ml_open(curbuf) == FAIL) { - /* - * There MUST be a memfile, otherwise we can't do anything - * If we can't create one for the current buffer, take another buffer - */ - close_buffer(NULL, curbuf, 0, FALSE); - for (curbuf = firstbuf; curbuf != NULL; curbuf = curbuf->b_next) - if (curbuf->b_ml.ml_mfp != NULL) - break; - /* - * if there is no memfile at all, exit - * This is OK, since there are no changes to lose. - */ - if (curbuf == NULL) { - EMSG(_("E82: Cannot allocate any buffer, exiting...")); - getout(2); - } - EMSG(_("E83: Cannot allocate buffer, using other one...")); - enter_buffer(curbuf); - if (old_tw != curbuf->b_p_tw) - check_colorcolumn(curwin); - return FAIL; - } - - /* The autocommands in readfile() may change the buffer, but only AFTER - * reading the file. */ - old_curbuf = curbuf; - modified_was_set = FALSE; - - /* mark cursor position as being invalid */ - curwin->w_valid = 0; - - if (curbuf->b_ffname != NULL - ) { - retval = readfile(curbuf->b_ffname, curbuf->b_fname, - (linenr_T)0, (linenr_T)0, (linenr_T)MAXLNUM, eap, - flags | READ_NEW); - /* Help buffer is filtered. */ - if (curbuf->b_help) - fix_help_buffer(); - } else if (read_stdin) { - int save_bin = curbuf->b_p_bin; - linenr_T line_count; - - /* - * First read the text in binary mode into the buffer. - * Then read from that same buffer and append at the end. This makes - * it possible to retry when 'fileformat' or 'fileencoding' was - * guessed wrong. - */ - curbuf->b_p_bin = TRUE; - retval = readfile(NULL, NULL, (linenr_T)0, - (linenr_T)0, (linenr_T)MAXLNUM, NULL, - flags | (READ_NEW + READ_STDIN)); - curbuf->b_p_bin = save_bin; - if (retval == OK) { - line_count = curbuf->b_ml.ml_line_count; - retval = readfile(NULL, NULL, (linenr_T)line_count, - (linenr_T)0, (linenr_T)MAXLNUM, eap, - flags | READ_BUFFER); - if (retval == OK) { - /* Delete the binary lines. */ - while (--line_count >= 0) - ml_delete((linenr_T)1, FALSE); - } else { - /* Delete the converted lines. */ - while (curbuf->b_ml.ml_line_count > line_count) - ml_delete(line_count, FALSE); - } - /* Put the cursor on the first line. */ - curwin->w_cursor.lnum = 1; - curwin->w_cursor.col = 0; - - /* Set or reset 'modified' before executing autocommands, so that - * it can be changed there. */ - if (!readonlymode && !bufempty()) - changed(); - else if (retval != FAIL) - unchanged(curbuf, FALSE); - apply_autocmds_retval(EVENT_STDINREADPOST, NULL, NULL, FALSE, - curbuf, &retval); - } - } - - /* if first time loading this buffer, init b_chartab[] */ - if (curbuf->b_flags & BF_NEVERLOADED) { - (void)buf_init_chartab(curbuf, FALSE); - parse_cino(curbuf); - } - - /* - * Set/reset the Changed flag first, autocmds may change the buffer. - * Apply the automatic commands, before processing the modelines. - * So the modelines have priority over auto commands. - */ - /* When reading stdin, the buffer contents always needs writing, so set - * the changed flag. Unless in readonly mode: "ls | gview -". - * When interrupted and 'cpoptions' contains 'i' set changed flag. */ - if ((got_int && vim_strchr(p_cpo, CPO_INTMOD) != NULL) - || modified_was_set /* ":set modified" used in autocmd */ - || (aborting() && vim_strchr(p_cpo, CPO_INTMOD) != NULL) - ) - changed(); - else if (retval != FAIL && !read_stdin) - unchanged(curbuf, FALSE); - save_file_ff(curbuf); /* keep this fileformat */ - - /* require "!" to overwrite the file, because it wasn't read completely */ - if (aborting()) - curbuf->b_flags |= BF_READERR; - - /* Need to update automatic folding. Do this before the autocommands, - * they may use the fold info. */ - foldUpdateAll(curwin); - - /* need to set w_topline, unless some autocommand already did that. */ - if (!(curwin->w_valid & VALID_TOPLINE)) { - curwin->w_topline = 1; - curwin->w_topfill = 0; - } - apply_autocmds_retval(EVENT_BUFENTER, NULL, NULL, FALSE, curbuf, &retval); - - if (retval != FAIL) { - /* - * The autocommands may have changed the current buffer. Apply the - * modelines to the correct buffer, if it still exists and is loaded. - */ - if (buf_valid(old_curbuf) && old_curbuf->b_ml.ml_mfp != NULL) { - aco_save_T aco; - - /* Go to the buffer that was opened. */ - aucmd_prepbuf(&aco, old_curbuf); - do_modelines(0); - curbuf->b_flags &= ~(BF_CHECK_RO | BF_NEVERLOADED); - - apply_autocmds_retval(EVENT_BUFWINENTER, NULL, NULL, FALSE, curbuf, - &retval); - - /* restore curwin/curbuf and a few other things */ - aucmd_restbuf(&aco); - } - } - - return retval; -} - -/* - * Return TRUE if "buf" points to a valid buffer (in the buffer list). - */ -int buf_valid(buf_T *buf) -{ - buf_T *bp; - - for (bp = firstbuf; bp != NULL; bp = bp->b_next) - if (bp == buf) - return TRUE; - return FALSE; -} - -/* - * Close the link to a buffer. - * "action" is used when there is no longer a window for the buffer. - * It can be: - * 0 buffer becomes hidden - * DOBUF_UNLOAD buffer is unloaded - * DOBUF_DELETE buffer is unloaded and removed from buffer list - * DOBUF_WIPE buffer is unloaded and really deleted - * When doing all but the first one on the current buffer, the caller should - * get a new buffer very soon! - * - * The 'bufhidden' option can force freeing and deleting. - * - * When "abort_if_last" is TRUE then do not close the buffer if autocommands - * cause there to be only one window with this buffer. e.g. when ":quit" is - * supposed to close the window but autocommands close all other windows. - */ -void -close_buffer ( - win_T *win, /* if not NULL, set b_last_cursor */ - buf_T *buf, - int action, - int abort_if_last -) -{ - int is_curbuf; - int nwindows; - int unload_buf = (action != 0); - int del_buf = (action == DOBUF_DEL || action == DOBUF_WIPE); - int wipe_buf = (action == DOBUF_WIPE); - - /* - * Force unloading or deleting when 'bufhidden' says so. - * The caller must take care of NOT deleting/freeing when 'bufhidden' is - * "hide" (otherwise we could never free or delete a buffer). - */ - if (buf->b_p_bh[0] == 'd') { /* 'bufhidden' == "delete" */ - del_buf = TRUE; - unload_buf = TRUE; - } else if (buf->b_p_bh[0] == 'w') { /* 'bufhidden' == "wipe" */ - del_buf = TRUE; - unload_buf = TRUE; - wipe_buf = TRUE; - } else if (buf->b_p_bh[0] == 'u') /* 'bufhidden' == "unload" */ - unload_buf = TRUE; - - if (win != NULL) { - /* Set b_last_cursor when closing the last window for the buffer. - * Remember the last cursor position and window options of the buffer. - * This used to be only for the current window, but then options like - * 'foldmethod' may be lost with a ":only" command. */ - if (buf->b_nwindows == 1) - set_last_cursor(win); - buflist_setfpos(buf, win, - win->w_cursor.lnum == 1 ? 0 : win->w_cursor.lnum, - win->w_cursor.col, TRUE); - } - - /* When the buffer is no longer in a window, trigger BufWinLeave */ - if (buf->b_nwindows == 1) { - buf->b_closing = TRUE; - apply_autocmds(EVENT_BUFWINLEAVE, buf->b_fname, buf->b_fname, - FALSE, buf); - if (!buf_valid(buf)) { - /* Autocommands deleted the buffer. */ -aucmd_abort: - EMSG(_(e_auabort)); - return; - } - buf->b_closing = FALSE; - if (abort_if_last && one_window()) - /* Autocommands made this the only window. */ - goto aucmd_abort; - - /* When the buffer becomes hidden, but is not unloaded, trigger - * BufHidden */ - if (!unload_buf) { - buf->b_closing = TRUE; - apply_autocmds(EVENT_BUFHIDDEN, buf->b_fname, buf->b_fname, - FALSE, buf); - if (!buf_valid(buf)) - /* Autocommands deleted the buffer. */ - goto aucmd_abort; - buf->b_closing = FALSE; - if (abort_if_last && one_window()) - /* Autocommands made this the only window. */ - goto aucmd_abort; - } - if (aborting()) /* autocmds may abort script processing */ - return; - } - nwindows = buf->b_nwindows; - - /* decrease the link count from windows (unless not in any window) */ - if (buf->b_nwindows > 0) - --buf->b_nwindows; - - /* Return when a window is displaying the buffer or when it's not - * unloaded. */ - if (buf->b_nwindows > 0 || !unload_buf) - return; - - /* Always remove the buffer when there is no file name. */ - if (buf->b_ffname == NULL) - del_buf = TRUE; - - /* - * Free all things allocated for this buffer. - * Also calls the "BufDelete" autocommands when del_buf is TRUE. - */ - /* Remember if we are closing the current buffer. Restore the number of - * windows, so that autocommands in buf_freeall() don't get confused. */ - is_curbuf = (buf == curbuf); - buf->b_nwindows = nwindows; - - buf_freeall(buf, (del_buf ? BFA_DEL : 0) + (wipe_buf ? BFA_WIPE : 0)); - if ( - win_valid(win) && - win->w_buffer == buf) - win->w_buffer = NULL; /* make sure we don't use the buffer now */ - - /* Autocommands may have deleted the buffer. */ - if (!buf_valid(buf)) - return; - if (aborting()) /* autocmds may abort script processing */ - return; - - /* Autocommands may have opened or closed windows for this buffer. - * Decrement the count for the close we do here. */ - if (buf->b_nwindows > 0) - --buf->b_nwindows; - - /* - * It's possible that autocommands change curbuf to the one being deleted. - * This might cause the previous curbuf to be deleted unexpectedly. But - * in some cases it's OK to delete the curbuf, because a new one is - * obtained anyway. Therefore only return if curbuf changed to the - * deleted buffer. - */ - if (buf == curbuf && !is_curbuf) - return; - - /* Change directories when the 'acd' option is set. */ - do_autochdir(); - - /* - * Remove the buffer from the list. - */ - if (wipe_buf) { - free(buf->b_ffname); - free(buf->b_sfname); - if (buf->b_prev == NULL) - firstbuf = buf->b_next; - else - buf->b_prev->b_next = buf->b_next; - if (buf->b_next == NULL) - lastbuf = buf->b_prev; - else - buf->b_next->b_prev = buf->b_prev; - free_buffer(buf); - } else { - if (del_buf) { - /* Free all internal variables and reset option values, to make - * ":bdel" compatible with Vim 5.7. */ - free_buffer_stuff(buf, TRUE); - - /* Make it look like a new buffer. */ - buf->b_flags = BF_CHECK_RO | BF_NEVERLOADED; - - /* Init the options when loaded again. */ - buf->b_p_initialized = FALSE; - } - buf_clear_file(buf); - if (del_buf) - buf->b_p_bl = FALSE; - } -} - -/* - * Make buffer not contain a file. - */ -void buf_clear_file(buf_T *buf) -{ - buf->b_ml.ml_line_count = 1; - unchanged(buf, TRUE); - buf->b_p_eol = TRUE; - buf->b_start_eol = TRUE; - buf->b_p_bomb = FALSE; - buf->b_start_bomb = FALSE; - buf->b_ml.ml_mfp = NULL; - buf->b_ml.ml_flags = ML_EMPTY; /* empty buffer */ -} - -/* - * buf_freeall() - free all things allocated for a buffer that are related to - * the file. flags: - * BFA_DEL buffer is going to be deleted - * BFA_WIPE buffer is going to be wiped out - * BFA_KEEP_UNDO do not free undo information - */ -void buf_freeall(buf_T *buf, int flags) -{ - int is_curbuf = (buf == curbuf); - - buf->b_closing = TRUE; - apply_autocmds(EVENT_BUFUNLOAD, buf->b_fname, buf->b_fname, FALSE, buf); - if (!buf_valid(buf)) /* autocommands may delete the buffer */ - return; - if ((flags & BFA_DEL) && buf->b_p_bl) { - apply_autocmds(EVENT_BUFDELETE, buf->b_fname, buf->b_fname, FALSE, buf); - if (!buf_valid(buf)) /* autocommands may delete the buffer */ - return; - } - if (flags & BFA_WIPE) { - apply_autocmds(EVENT_BUFWIPEOUT, buf->b_fname, buf->b_fname, - FALSE, buf); - if (!buf_valid(buf)) /* autocommands may delete the buffer */ - return; - } - buf->b_closing = FALSE; - if (aborting()) /* autocmds may abort script processing */ - return; - - /* - * It's possible that autocommands change curbuf to the one being deleted. - * This might cause curbuf to be deleted unexpectedly. But in some cases - * it's OK to delete the curbuf, because a new one is obtained anyway. - * Therefore only return if curbuf changed to the deleted buffer. - */ - if (buf == curbuf && !is_curbuf) - return; - diff_buf_delete(buf); /* Can't use 'diff' for unloaded buffer. */ - /* Remove any ownsyntax, unless exiting. */ - if (firstwin != NULL && curwin->w_buffer == buf) - reset_synblock(curwin); - - /* No folds in an empty buffer. */ - { - win_T *win; - tabpage_T *tp; - - FOR_ALL_TAB_WINDOWS(tp, win) - if (win->w_buffer == buf) - clearFolding(win); - } - - ml_close(buf, TRUE); /* close and delete the memline/memfile */ - buf->b_ml.ml_line_count = 0; /* no lines in buffer */ - if ((flags & BFA_KEEP_UNDO) == 0) { - u_blockfree(buf); /* free the memory allocated for undo */ - u_clearall(buf); /* reset all undo information */ - } - syntax_clear(&buf->b_s); /* reset syntax info */ - buf->b_flags &= ~BF_READERR; /* a read error is no longer relevant */ -} - -/* - * Free a buffer structure and the things it contains related to the buffer - * itself (not the file, that must have been done already). - */ -static void free_buffer(buf_T *buf) -{ - free_buffer_stuff(buf, TRUE); - unref_var_dict(buf->b_vars); - aubuflocal_remove(buf); - if (autocmd_busy) { - // Do not free the buffer structure while autocommands are executing, - // it's still needed. Free it when autocmd_busy is reset. - buf->b_next = au_pending_free_buf; - au_pending_free_buf = buf; - } else { - free(buf); - } -} - -/* - * Free stuff in the buffer for ":bdel" and when wiping out the buffer. - */ -static void -free_buffer_stuff ( - buf_T *buf, - int free_options /* free options as well */ -) -{ - if (free_options) { - clear_wininfo(buf); /* including window-local options */ - free_buf_options(buf, TRUE); - ga_clear(&buf->b_s.b_langp); - } - vars_clear(&buf->b_vars->dv_hashtab); /* free all internal variables */ - hash_init(&buf->b_vars->dv_hashtab); - uc_clear(&buf->b_ucmds); /* clear local user commands */ - buf_delete_signs(buf); /* delete any signs */ - map_clear_int(buf, MAP_ALL_MODES, TRUE, FALSE); /* clear local mappings */ - map_clear_int(buf, MAP_ALL_MODES, TRUE, TRUE); /* clear local abbrevs */ - free(buf->b_start_fenc); - buf->b_start_fenc = NULL; -} - -/* - * Free the b_wininfo list for buffer "buf". - */ -static void clear_wininfo(buf_T *buf) -{ - wininfo_T *wip; - - while (buf->b_wininfo != NULL) { - wip = buf->b_wininfo; - buf->b_wininfo = wip->wi_next; - if (wip->wi_optset) { - clear_winopt(&wip->wi_opt); - deleteFoldRecurse(&wip->wi_folds); - } - free(wip); - } -} - -/* - * Go to another buffer. Handles the result of the ATTENTION dialog. - */ -void goto_buffer(exarg_T *eap, int start, int dir, int count) -{ -# if defined(FEAT_WINDOWS) && defined(HAS_SWAP_EXISTS_ACTION) - buf_T *old_curbuf = curbuf; - - swap_exists_action = SEA_DIALOG; -# endif - (void)do_buffer(*eap->cmd == 's' ? DOBUF_SPLIT : DOBUF_GOTO, - start, dir, count, eap->forceit); -# if defined(FEAT_WINDOWS) && defined(HAS_SWAP_EXISTS_ACTION) - if (swap_exists_action == SEA_QUIT && *eap->cmd == 's') { - cleanup_T cs; - - /* Reset the error/interrupt/exception state here so that - * aborting() returns FALSE when closing a window. */ - enter_cleanup(&cs); - - /* Quitting means closing the split window, nothing else. */ - win_close(curwin, TRUE); - swap_exists_action = SEA_NONE; - swap_exists_did_quit = TRUE; - - /* Restore the error/interrupt/exception state if not discarded by a - * new aborting error, interrupt, or uncaught exception. */ - leave_cleanup(&cs); - } else - handle_swap_exists(old_curbuf); -# endif -} - -#if defined(HAS_SWAP_EXISTS_ACTION) || defined(PROTO) -/* - * Handle the situation of swap_exists_action being set. - * It is allowed for "old_curbuf" to be NULL or invalid. - */ -void handle_swap_exists(buf_T *old_curbuf) -{ - cleanup_T cs; - long old_tw = curbuf->b_p_tw; - - if (swap_exists_action == SEA_QUIT) { - /* Reset the error/interrupt/exception state here so that - * aborting() returns FALSE when closing a buffer. */ - enter_cleanup(&cs); - - /* User selected Quit at ATTENTION prompt. Go back to previous - * buffer. If that buffer is gone or the same as the current one, - * open a new, empty buffer. */ - swap_exists_action = SEA_NONE; /* don't want it again */ - swap_exists_did_quit = TRUE; - close_buffer(curwin, curbuf, DOBUF_UNLOAD, FALSE); - if (!buf_valid(old_curbuf) || old_curbuf == curbuf) - old_curbuf = buflist_new(NULL, NULL, 1L, BLN_CURBUF | BLN_LISTED); - if (old_curbuf != NULL) { - enter_buffer(old_curbuf); - if (old_tw != curbuf->b_p_tw) - check_colorcolumn(curwin); - } - /* If "old_curbuf" is NULL we are in big trouble here... */ - - /* Restore the error/interrupt/exception state if not discarded by a - * new aborting error, interrupt, or uncaught exception. */ - leave_cleanup(&cs); - } else if (swap_exists_action == SEA_RECOVER) { - /* Reset the error/interrupt/exception state here so that - * aborting() returns FALSE when closing a buffer. */ - enter_cleanup(&cs); - - /* User selected Recover at ATTENTION prompt. */ - msg_scroll = TRUE; - ml_recover(); - MSG_PUTS("\n"); /* don't overwrite the last message */ - cmdline_row = msg_row; - do_modelines(0); - - /* Restore the error/interrupt/exception state if not discarded by a - * new aborting error, interrupt, or uncaught exception. */ - leave_cleanup(&cs); - } - swap_exists_action = SEA_NONE; -} -#endif - -/* - * do_bufdel() - delete or unload buffer(s) - * - * addr_count == 0: ":bdel" - delete current buffer - * addr_count == 1: ":N bdel" or ":bdel N [N ..]" - first delete - * buffer "end_bnr", then any other arguments. - * addr_count == 2: ":N,N bdel" - delete buffers in range - * - * command can be DOBUF_UNLOAD (":bunload"), DOBUF_WIPE (":bwipeout") or - * DOBUF_DEL (":bdel") - * - * Returns error message or NULL - */ -char_u * -do_bufdel ( - int command, - char_u *arg, /* pointer to extra arguments */ - int addr_count, - int start_bnr, /* first buffer number in a range */ - int end_bnr, /* buffer nr or last buffer nr in a range */ - int forceit -) -{ - int do_current = 0; /* delete current buffer? */ - int deleted = 0; /* number of buffers deleted */ - char_u *errormsg = NULL; /* return value */ - int bnr; /* buffer number */ - char_u *p; - - if (addr_count == 0) { - (void)do_buffer(command, DOBUF_CURRENT, FORWARD, 0, forceit); - } else { - if (addr_count == 2) { - if (*arg) /* both range and argument is not allowed */ - return (char_u *)_(e_trailing); - bnr = start_bnr; - } else /* addr_count == 1 */ - bnr = end_bnr; - - for (; !got_int; ui_breakcheck()) { - /* - * delete the current buffer last, otherwise when the - * current buffer is deleted, the next buffer becomes - * the current one and will be loaded, which may then - * also be deleted, etc. - */ - if (bnr == curbuf->b_fnum) - do_current = bnr; - else if (do_buffer(command, DOBUF_FIRST, FORWARD, (int)bnr, - forceit) == OK) - ++deleted; - - /* - * find next buffer number to delete/unload - */ - if (addr_count == 2) { - if (++bnr > end_bnr) - break; - } else { /* addr_count == 1 */ - arg = skipwhite(arg); - if (*arg == NUL) - break; - if (!VIM_ISDIGIT(*arg)) { - p = skiptowhite_esc(arg); - bnr = buflist_findpat(arg, p, command == DOBUF_WIPE, - FALSE, FALSE); - if (bnr < 0) /* failed */ - break; - arg = p; - } else - bnr = getdigits(&arg); - } - } - if (!got_int && do_current && do_buffer(command, DOBUF_FIRST, - FORWARD, do_current, forceit) == OK) - ++deleted; - - if (deleted == 0) { - if (command == DOBUF_UNLOAD) - STRCPY(IObuff, _("E515: No buffers were unloaded")); - else if (command == DOBUF_DEL) - STRCPY(IObuff, _("E516: No buffers were deleted")); - else - STRCPY(IObuff, _("E517: No buffers were wiped out")); - errormsg = IObuff; - } else if (deleted >= p_report) { - if (command == DOBUF_UNLOAD) { - if (deleted == 1) - MSG(_("1 buffer unloaded")); - else - smsg((char_u *)_("%d buffers unloaded"), deleted); - } else if (command == DOBUF_DEL) { - if (deleted == 1) - MSG(_("1 buffer deleted")); - else - smsg((char_u *)_("%d buffers deleted"), deleted); - } else { - if (deleted == 1) - MSG(_("1 buffer wiped out")); - else - smsg((char_u *)_("%d buffers wiped out"), deleted); - } - } - } - - - return errormsg; -} - - -static int empty_curbuf(int close_others, int forceit, int action); - -/* - * Make the current buffer empty. - * Used when it is wiped out and it's the last buffer. - */ -static int empty_curbuf(int close_others, int forceit, int action) -{ - int retval; - buf_T *buf = curbuf; - - if (action == DOBUF_UNLOAD) { - EMSG(_("E90: Cannot unload last buffer")); - return FAIL; - } - - if (close_others) { - /* Close any other windows on this buffer, then make it empty. */ - close_windows(buf, TRUE); - } - - setpcmark(); - retval = do_ecmd(0, NULL, NULL, NULL, ECMD_ONE, - forceit ? ECMD_FORCEIT : 0, curwin); - - /* - * do_ecmd() may create a new buffer, then we have to delete - * the old one. But do_ecmd() may have done that already, check - * if the buffer still exists. - */ - if (buf != curbuf && buf_valid(buf) && buf->b_nwindows == 0) - close_buffer(NULL, buf, action, FALSE); - if (!close_others) - need_fileinfo = FALSE; - return retval; -} -/* - * Implementation of the commands for the buffer list. - * - * action == DOBUF_GOTO go to specified buffer - * action == DOBUF_SPLIT split window and go to specified buffer - * action == DOBUF_UNLOAD unload specified buffer(s) - * action == DOBUF_DEL delete specified buffer(s) from buffer list - * action == DOBUF_WIPE delete specified buffer(s) really - * - * start == DOBUF_CURRENT go to "count" buffer from current buffer - * start == DOBUF_FIRST go to "count" buffer from first buffer - * start == DOBUF_LAST go to "count" buffer from last buffer - * start == DOBUF_MOD go to "count" modified buffer from current buffer - * - * Return FAIL or OK. - */ -int -do_buffer ( - int action, - int start, - int dir, /* FORWARD or BACKWARD */ - int count, /* buffer number or number of buffers */ - int forceit /* TRUE for :...! */ -) -{ - buf_T *buf; - buf_T *bp; - int unload = (action == DOBUF_UNLOAD || action == DOBUF_DEL - || action == DOBUF_WIPE); - - switch (start) { - case DOBUF_FIRST: buf = firstbuf; break; - case DOBUF_LAST: buf = lastbuf; break; - default: buf = curbuf; break; - } - if (start == DOBUF_MOD) { /* find next modified buffer */ - while (count-- > 0) { - do { - buf = buf->b_next; - if (buf == NULL) - buf = firstbuf; - } while (buf != curbuf && !bufIsChanged(buf)); - } - if (!bufIsChanged(buf)) { - EMSG(_("E84: No modified buffer found")); - return FAIL; - } - } else if (start == DOBUF_FIRST && count) { /* find specified buffer number */ - while (buf != NULL && buf->b_fnum != count) - buf = buf->b_next; - } else { - bp = NULL; - while (count > 0 || (!unload && !buf->b_p_bl && bp != buf)) { - /* remember the buffer where we start, we come back there when all - * buffers are unlisted. */ - if (bp == NULL) - bp = buf; - if (dir == FORWARD) { - buf = buf->b_next; - if (buf == NULL) - buf = firstbuf; - } else { - buf = buf->b_prev; - if (buf == NULL) - buf = lastbuf; - } - /* don't count unlisted buffers */ - if (unload || buf->b_p_bl) { - --count; - bp = NULL; /* use this buffer as new starting point */ - } - if (bp == buf) { - /* back where we started, didn't find anything. */ - EMSG(_("E85: There is no listed buffer")); - return FAIL; - } - } - } - - if (buf == NULL) { /* could not find it */ - if (start == DOBUF_FIRST) { - /* don't warn when deleting */ - if (!unload) - EMSGN(_("E86: Buffer %" PRId64 " does not exist"), count); - } else if (dir == FORWARD) - EMSG(_("E87: Cannot go beyond last buffer")); - else - EMSG(_("E88: Cannot go before first buffer")); - return FAIL; - } - - - /* - * delete buffer buf from memory and/or the list - */ - if (unload) { - int forward; - - /* When unloading or deleting a buffer that's already unloaded and - * unlisted: fail silently. */ - if (action != DOBUF_WIPE && buf->b_ml.ml_mfp == NULL && !buf->b_p_bl) - return FAIL; - - if (!forceit && bufIsChanged(buf)) { - if ((p_confirm || cmdmod.confirm) && p_write) { - dialog_changed(buf, FALSE); - if (!buf_valid(buf)) - /* Autocommand deleted buffer, oops! It's not changed - * now. */ - return FAIL; - /* If it's still changed fail silently, the dialog already - * mentioned why it fails. */ - if (bufIsChanged(buf)) - return FAIL; - } else { - EMSGN(_("E89: No write since last change for buffer %" PRId64 - " (add ! to override)"), - buf->b_fnum); - return FAIL; - } - } - - /* - * If deleting the last (listed) buffer, make it empty. - * The last (listed) buffer cannot be unloaded. - */ - for (bp = firstbuf; bp != NULL; bp = bp->b_next) - if (bp->b_p_bl && bp != buf) - break; - if (bp == NULL && buf == curbuf) - return empty_curbuf(TRUE, forceit, action); - - /* - * If the deleted buffer is the current one, close the current window - * (unless it's the only window). Repeat this so long as we end up in - * a window with this buffer. - */ - while (buf == curbuf - && !(curwin->w_closing || curwin->w_buffer->b_closing) - && (firstwin != lastwin || first_tabpage->tp_next != NULL)) { - if (win_close(curwin, FALSE) == FAIL) - break; - } - - /* - * If the buffer to be deleted is not the current one, delete it here. - */ - if (buf != curbuf) { - close_windows(buf, FALSE); - if (buf != curbuf && buf_valid(buf) && buf->b_nwindows <= 0) - close_buffer(NULL, buf, action, FALSE); - return OK; - } - - /* - * Deleting the current buffer: Need to find another buffer to go to. - * There should be another, otherwise it would have been handled - * above. However, autocommands may have deleted all buffers. - * First use au_new_curbuf, if it is valid. - * Then prefer the buffer we most recently visited. - * Else try to find one that is loaded, after the current buffer, - * then before the current buffer. - * Finally use any buffer. - */ - buf = NULL; /* selected buffer */ - bp = NULL; /* used when no loaded buffer found */ - if (au_new_curbuf != NULL && buf_valid(au_new_curbuf)) - buf = au_new_curbuf; - else if (curwin->w_jumplistlen > 0) { - int jumpidx; - - jumpidx = curwin->w_jumplistidx - 1; - if (jumpidx < 0) - jumpidx = curwin->w_jumplistlen - 1; - - forward = jumpidx; - while (jumpidx != curwin->w_jumplistidx) { - buf = buflist_findnr(curwin->w_jumplist[jumpidx].fmark.fnum); - if (buf != NULL) { - if (buf == curbuf || !buf->b_p_bl) - buf = NULL; /* skip current and unlisted bufs */ - else if (buf->b_ml.ml_mfp == NULL) { - /* skip unloaded buf, but may keep it for later */ - if (bp == NULL) - bp = buf; - buf = NULL; - } - } - if (buf != NULL) /* found a valid buffer: stop searching */ - break; - /* advance to older entry in jump list */ - if (!jumpidx && curwin->w_jumplistidx == curwin->w_jumplistlen) - break; - if (--jumpidx < 0) - jumpidx = curwin->w_jumplistlen - 1; - if (jumpidx == forward) /* List exhausted for sure */ - break; - } - } - - if (buf == NULL) { /* No previous buffer, Try 2'nd approach */ - forward = TRUE; - buf = curbuf->b_next; - for (;; ) { - if (buf == NULL) { - if (!forward) /* tried both directions */ - break; - buf = curbuf->b_prev; - forward = FALSE; - continue; - } - /* in non-help buffer, try to skip help buffers, and vv */ - if (buf->b_help == curbuf->b_help && buf->b_p_bl) { - if (buf->b_ml.ml_mfp != NULL) /* found loaded buffer */ - break; - if (bp == NULL) /* remember unloaded buf for later */ - bp = buf; - } - if (forward) - buf = buf->b_next; - else - buf = buf->b_prev; - } - } - if (buf == NULL) /* No loaded buffer, use unloaded one */ - buf = bp; - if (buf == NULL) { /* No loaded buffer, find listed one */ - for (buf = firstbuf; buf != NULL; buf = buf->b_next) - if (buf->b_p_bl && buf != curbuf) - break; - } - if (buf == NULL) { /* Still no buffer, just take one */ - if (curbuf->b_next != NULL) - buf = curbuf->b_next; - else - buf = curbuf->b_prev; - } - } - - if (buf == NULL) { - /* Autocommands must have wiped out all other buffers. Only option - * now is to make the current buffer empty. */ - return empty_curbuf(FALSE, forceit, action); - } - - /* - * make buf current buffer - */ - if (action == DOBUF_SPLIT) { /* split window first */ - /* If 'switchbuf' contains "useopen": jump to first window containing - * "buf" if one exists */ - if ((swb_flags & SWB_USEOPEN) && buf_jump_open_win(buf)) - return OK; - /* If 'switchbuf' contains "usetab": jump to first window in any tab - * page containing "buf" if one exists */ - if ((swb_flags & SWB_USETAB) && buf_jump_open_tab(buf)) - return OK; - if (win_split(0, 0) == FAIL) - return FAIL; - } - - /* go to current buffer - nothing to do */ - if (buf == curbuf) - return OK; - - /* - * Check if the current buffer may be abandoned. - */ - if (action == DOBUF_GOTO && !can_abandon(curbuf, forceit)) { - if ((p_confirm || cmdmod.confirm) && p_write) { - dialog_changed(curbuf, FALSE); - if (!buf_valid(buf)) - /* Autocommand deleted buffer, oops! */ - return FAIL; - } - if (bufIsChanged(curbuf)) { - EMSG(_(e_nowrtmsg)); - return FAIL; - } - } - - /* Go to the other buffer. */ - set_curbuf(buf, action); - -#if defined(FEAT_LISTCMDS) \ - && (defined(FEAT_SCROLLBIND) || defined(FEAT_CURSORBIND)) - if (action == DOBUF_SPLIT) { - RESET_BINDING(curwin); /* reset 'scrollbind' and 'cursorbind' */ - } -#endif - - if (aborting()) /* autocmds may abort script processing */ - return FAIL; - - return OK; -} - - -/* - * Set current buffer to "buf". Executes autocommands and closes current - * buffer. "action" tells how to close the current buffer: - * DOBUF_GOTO free or hide it - * DOBUF_SPLIT nothing - * DOBUF_UNLOAD unload it - * DOBUF_DEL delete it - * DOBUF_WIPE wipe it out - */ -void set_curbuf(buf_T *buf, int action) -{ - buf_T *prevbuf; - int unload = (action == DOBUF_UNLOAD || action == DOBUF_DEL - || action == DOBUF_WIPE); - long old_tw = curbuf->b_p_tw; - - setpcmark(); - if (!cmdmod.keepalt) - curwin->w_alt_fnum = curbuf->b_fnum; /* remember alternate file */ - buflist_altfpos(curwin); /* remember curpos */ - - /* Don't restart Select mode after switching to another buffer. */ - VIsual_reselect = FALSE; - - /* close_windows() or apply_autocmds() may change curbuf */ - prevbuf = curbuf; - - apply_autocmds(EVENT_BUFLEAVE, NULL, NULL, FALSE, curbuf); - if (buf_valid(prevbuf) && !aborting()) { - if (prevbuf == curwin->w_buffer) - reset_synblock(curwin); - if (unload) - close_windows(prevbuf, FALSE); - if (buf_valid(prevbuf) && !aborting()) { - win_T *previouswin = curwin; - if (prevbuf == curbuf) - u_sync(FALSE); - close_buffer(prevbuf == curwin->w_buffer ? curwin : NULL, prevbuf, - unload ? action : (action == DOBUF_GOTO - && !P_HID(prevbuf) - && !bufIsChanged( - prevbuf)) ? DOBUF_UNLOAD : 0, FALSE); - if (curwin != previouswin && win_valid(previouswin)) - /* autocommands changed curwin, Grr! */ - curwin = previouswin; - } - } - /* An autocommand may have deleted "buf", already entered it (e.g., when - * it did ":bunload") or aborted the script processing! - * If curwin->w_buffer is null, enter_buffer() will make it valid again */ - if ((buf_valid(buf) && buf != curbuf - && !aborting() - ) || curwin->w_buffer == NULL - ) { - enter_buffer(buf); - if (old_tw != curbuf->b_p_tw) - check_colorcolumn(curwin); - } -} - -/* - * Enter a new current buffer. - * Old curbuf must have been abandoned already! This also means "curbuf" may - * be pointing to freed memory. - */ -void enter_buffer(buf_T *buf) -{ - /* Copy buffer and window local option values. Not for a help buffer. */ - buf_copy_options(buf, BCO_ENTER | BCO_NOHELP); - if (!buf->b_help) - get_winopts(buf); - else - /* Remove all folds in the window. */ - clearFolding(curwin); - foldUpdateAll(curwin); /* update folds (later). */ - - /* Get the buffer in the current window. */ - curwin->w_buffer = buf; - curbuf = buf; - ++curbuf->b_nwindows; - - if (curwin->w_p_diff) - diff_buf_add(curbuf); - - curwin->w_s = &(buf->b_s); - - /* Cursor on first line by default. */ - curwin->w_cursor.lnum = 1; - curwin->w_cursor.col = 0; - curwin->w_cursor.coladd = 0; - curwin->w_set_curswant = TRUE; - curwin->w_topline_was_set = FALSE; - - /* mark cursor position as being invalid */ - curwin->w_valid = 0; - - /* Make sure the buffer is loaded. */ - if (curbuf->b_ml.ml_mfp == NULL) { /* need to load the file */ - /* If there is no filetype, allow for detecting one. Esp. useful for - * ":ball" used in a autocommand. If there already is a filetype we - * might prefer to keep it. */ - if (*curbuf->b_p_ft == NUL) - did_filetype = FALSE; - - open_buffer(FALSE, NULL, 0); - } else { - if (!msg_silent) - need_fileinfo = TRUE; /* display file info after redraw */ - (void)buf_check_timestamp(curbuf, FALSE); /* check if file changed */ - curwin->w_topline = 1; - curwin->w_topfill = 0; - apply_autocmds(EVENT_BUFENTER, NULL, NULL, FALSE, curbuf); - apply_autocmds(EVENT_BUFWINENTER, NULL, NULL, FALSE, curbuf); - } - - /* If autocommands did not change the cursor position, restore cursor lnum - * and possibly cursor col. */ - if (curwin->w_cursor.lnum == 1 && inindent(0)) - buflist_getfpos(); - - check_arg_idx(curwin); /* check for valid arg_idx */ - maketitle(); - /* when autocmds didn't change it */ - if (curwin->w_topline == 1 && !curwin->w_topline_was_set) - scroll_cursor_halfway(FALSE); /* redisplay at correct position */ - - - /* Change directories when the 'acd' option is set. */ - do_autochdir(); - - if (curbuf->b_kmap_state & KEYMAP_INIT) - (void)keymap_init(); - /* May need to set the spell language. Can only do this after the buffer - * has been properly setup. */ - if (!curbuf->b_help && curwin->w_p_spell && *curwin->w_s->b_p_spl != NUL) - (void)did_set_spelllang(curwin); - - redraw_later(NOT_VALID); -} - -/* - * Change to the directory of the current buffer. - */ -void do_autochdir(void) -{ - if (p_acd) { - if (curbuf->b_ffname != NULL && vim_chdirfile(curbuf->b_ffname) == OK) { - shorten_fnames(TRUE); - } - } -} - -/* - * functions for dealing with the buffer list - */ - -/* - * Add a file name to the buffer list. Return a pointer to the buffer. - * If the same file name already exists return a pointer to that buffer. - * If it does not exist, or if fname == NULL, a new entry is created. - * If (flags & BLN_CURBUF) is TRUE, may use current buffer. - * If (flags & BLN_LISTED) is TRUE, add new buffer to buffer list. - * If (flags & BLN_DUMMY) is TRUE, don't count it as a real buffer. - * This is the ONLY way to create a new buffer. - */ -static int top_file_num = 1; /* highest file number */ - -buf_T * -buflist_new ( - char_u *ffname, /* full path of fname or relative */ - char_u *sfname, /* short fname or NULL */ - linenr_T lnum, /* preferred cursor line */ - int flags /* BLN_ defines */ -) -{ - buf_T *buf; - - fname_expand(curbuf, &ffname, &sfname); /* will allocate ffname */ - - /* - * If file name already exists in the list, update the entry. - */ - /* We can use inode numbers when the file exists. Works better - * for hard links. */ - FileInfo file_info; - if (sfname == NULL || !os_get_file_info((char *)sfname, &file_info)) { - file_info.stat.st_dev = INVALID_DEVICE_ID; - } - if (ffname != NULL && !(flags & BLN_DUMMY) - && (buf = buflist_findname_file_info(ffname, &file_info)) != NULL) { - free(ffname); - if (lnum != 0) - buflist_setfpos(buf, curwin, lnum, (colnr_T)0, FALSE); - /* copy the options now, if 'cpo' doesn't have 's' and not done - * already */ - buf_copy_options(buf, 0); - if ((flags & BLN_LISTED) && !buf->b_p_bl) { - buf->b_p_bl = TRUE; - if (!(flags & BLN_DUMMY)) { - apply_autocmds(EVENT_BUFADD, NULL, NULL, FALSE, buf); - if (!buf_valid(buf)) { - return NULL; - } - } - } - return buf; - } - - /* - * If the current buffer has no name and no contents, use the current - * buffer. Otherwise: Need to allocate a new buffer structure. - * - * This is the ONLY place where a new buffer structure is allocated! - * (A spell file buffer is allocated in spell.c, but that's not a normal - * buffer.) - */ - buf = NULL; - if ((flags & BLN_CURBUF) - && curbuf != NULL - && curbuf->b_ffname == NULL - && curbuf->b_nwindows <= 1 - && (curbuf->b_ml.ml_mfp == NULL || bufempty())) { - buf = curbuf; - /* It's like this buffer is deleted. Watch out for autocommands that - * change curbuf! If that happens, allocate a new buffer anyway. */ - if (curbuf->b_p_bl) - apply_autocmds(EVENT_BUFDELETE, NULL, NULL, FALSE, curbuf); - if (buf == curbuf) - apply_autocmds(EVENT_BUFWIPEOUT, NULL, NULL, FALSE, curbuf); - if (aborting()) /* autocmds may abort script processing */ - return NULL; - if (buf == curbuf) { - /* Make sure 'bufhidden' and 'buftype' are empty */ - clear_string_option(&buf->b_p_bh); - clear_string_option(&buf->b_p_bt); - } - } - if (buf != curbuf || curbuf == NULL) { - buf = xcalloc(1, sizeof(buf_T)); - /* init b: variables */ - buf->b_vars = dict_alloc(); - init_var_dict(buf->b_vars, &buf->b_bufvar, VAR_SCOPE); - } - - if (ffname != NULL) { - buf->b_ffname = ffname; - buf->b_sfname = vim_strsave(sfname); - } - - clear_wininfo(buf); - buf->b_wininfo = xcalloc(1, sizeof(wininfo_T)); - - if (ffname != NULL && (buf->b_ffname == NULL || buf->b_sfname == NULL)) { - free(buf->b_ffname); - buf->b_ffname = NULL; - free(buf->b_sfname); - buf->b_sfname = NULL; - if (buf != curbuf) - free_buffer(buf); - return NULL; - } - - if (buf == curbuf) { - /* free all things allocated for this buffer */ - buf_freeall(buf, 0); - if (buf != curbuf) /* autocommands deleted the buffer! */ - return NULL; - if (aborting()) /* autocmds may abort script processing */ - return NULL; - /* buf->b_nwindows = 0; why was this here? */ - free_buffer_stuff(buf, FALSE); /* delete local variables et al. */ - - /* Init the options. */ - buf->b_p_initialized = FALSE; - buf_copy_options(buf, BCO_ENTER); - - /* need to reload lmaps and set b:keymap_name */ - curbuf->b_kmap_state |= KEYMAP_INIT; - } else { - /* - * put new buffer at the end of the buffer list - */ - buf->b_next = NULL; - if (firstbuf == NULL) { /* buffer list is empty */ - buf->b_prev = NULL; - firstbuf = buf; - } else { /* append new buffer at end of list */ - lastbuf->b_next = buf; - buf->b_prev = lastbuf; - } - lastbuf = buf; - - buf->b_fnum = top_file_num++; - if (top_file_num < 0) { /* wrap around (may cause duplicates) */ - EMSG(_("W14: Warning: List of file names overflow")); - if (emsg_silent == 0) { - out_flush(); - ui_delay(3000L, TRUE); /* make sure it is noticed */ - } - top_file_num = 1; - } - - /* - * Always copy the options from the current buffer. - */ - buf_copy_options(buf, BCO_ALWAYS); - } - - buf->b_wininfo->wi_fpos.lnum = lnum; - buf->b_wininfo->wi_win = curwin; - - hash_init(&buf->b_s.b_keywtab); - hash_init(&buf->b_s.b_keywtab_ic); - - buf->b_fname = buf->b_sfname; - if (file_info.stat.st_dev == INVALID_DEVICE_ID) - buf->b_dev_valid = FALSE; - else { - buf->b_dev_valid = TRUE; - buf->b_dev = file_info.stat.st_dev; - buf->b_ino = file_info.stat.st_ino; - } - buf->b_u_synced = TRUE; - buf->b_flags = BF_CHECK_RO | BF_NEVERLOADED; - if (flags & BLN_DUMMY) - buf->b_flags |= BF_DUMMY; - buf_clear_file(buf); - clrallmarks(buf); /* clear marks */ - fmarks_check_names(buf); /* check file marks for this file */ - buf->b_p_bl = (flags & BLN_LISTED) ? TRUE : FALSE; /* init 'buflisted' */ - if (!(flags & BLN_DUMMY)) { - apply_autocmds(EVENT_BUFNEW, NULL, NULL, FALSE, buf); - if (!buf_valid(buf)) { - return NULL; - } - if (flags & BLN_LISTED) { - apply_autocmds(EVENT_BUFADD, NULL, NULL, FALSE, buf); - if (!buf_valid(buf)) { - return NULL; - } - } - if (aborting()) /* autocmds may abort script processing */ - return NULL; - } - - return buf; -} - -/* - * Free the memory for the options of a buffer. - * If "free_p_ff" is TRUE also free 'fileformat', 'buftype' and - * 'fileencoding'. - */ -void free_buf_options(buf_T *buf, int free_p_ff) -{ - if (free_p_ff) { - clear_string_option(&buf->b_p_fenc); - clear_string_option(&buf->b_p_ff); - clear_string_option(&buf->b_p_bh); - clear_string_option(&buf->b_p_bt); - } - clear_string_option(&buf->b_p_def); - clear_string_option(&buf->b_p_inc); - clear_string_option(&buf->b_p_inex); - clear_string_option(&buf->b_p_inde); - clear_string_option(&buf->b_p_indk); - clear_string_option(&buf->b_p_cm); - clear_string_option(&buf->b_p_fex); - clear_string_option(&buf->b_p_key); - clear_string_option(&buf->b_p_kp); - clear_string_option(&buf->b_p_mps); - clear_string_option(&buf->b_p_fo); - clear_string_option(&buf->b_p_flp); - clear_string_option(&buf->b_p_isk); - clear_string_option(&buf->b_p_keymap); - ga_clear(&buf->b_kmap_ga); - clear_string_option(&buf->b_p_com); - clear_string_option(&buf->b_p_cms); - clear_string_option(&buf->b_p_nf); - clear_string_option(&buf->b_p_syn); - clear_string_option(&buf->b_s.b_p_spc); - clear_string_option(&buf->b_s.b_p_spf); - vim_regfree(buf->b_s.b_cap_prog); - buf->b_s.b_cap_prog = NULL; - clear_string_option(&buf->b_s.b_p_spl); - clear_string_option(&buf->b_p_sua); - clear_string_option(&buf->b_p_ft); - clear_string_option(&buf->b_p_cink); - clear_string_option(&buf->b_p_cino); - clear_string_option(&buf->b_p_cinw); - clear_string_option(&buf->b_p_cpt); - clear_string_option(&buf->b_p_cfu); - clear_string_option(&buf->b_p_ofu); - clear_string_option(&buf->b_p_gp); - clear_string_option(&buf->b_p_mp); - clear_string_option(&buf->b_p_efm); - clear_string_option(&buf->b_p_ep); - clear_string_option(&buf->b_p_path); - clear_string_option(&buf->b_p_tags); - clear_string_option(&buf->b_p_dict); - clear_string_option(&buf->b_p_tsr); - clear_string_option(&buf->b_p_qe); - buf->b_p_ar = -1; - buf->b_p_ul = NO_LOCAL_UNDOLEVEL; -} - -/* - * get alternate file n - * set linenr to lnum or altfpos.lnum if lnum == 0 - * also set cursor column to altfpos.col if 'startofline' is not set. - * if (options & GETF_SETMARK) call setpcmark() - * if (options & GETF_ALT) we are jumping to an alternate file. - * if (options & GETF_SWITCH) respect 'switchbuf' settings when jumping - * - * return FAIL for failure, OK for success - */ -int buflist_getfile(int n, linenr_T lnum, int options, int forceit) -{ - buf_T *buf; - win_T *wp = NULL; - pos_T *fpos; - colnr_T col; - - buf = buflist_findnr(n); - if (buf == NULL) { - if ((options & GETF_ALT) && n == 0) - EMSG(_(e_noalt)); - else - EMSGN(_("E92: Buffer %" PRId64 " not found"), n); - return FAIL; - } - - /* if alternate file is the current buffer, nothing to do */ - if (buf == curbuf) - return OK; - - if (text_locked()) { - text_locked_msg(); - return FAIL; - } - if (curbuf_locked()) - return FAIL; - - /* altfpos may be changed by getfile(), get it now */ - if (lnum == 0) { - fpos = buflist_findfpos(buf); - lnum = fpos->lnum; - col = fpos->col; - } else - col = 0; - - if (options & GETF_SWITCH) { - /* If 'switchbuf' contains "useopen": jump to first window containing - * "buf" if one exists */ - if (swb_flags & SWB_USEOPEN) - wp = buf_jump_open_win(buf); - /* If 'switchbuf' contains "usetab": jump to first window in any tab - * page containing "buf" if one exists */ - if (wp == NULL && (swb_flags & SWB_USETAB)) - wp = buf_jump_open_tab(buf); - /* If 'switchbuf' contains "split" or "newtab" and the current buffer - * isn't empty: open new window */ - if (wp == NULL && (swb_flags & (SWB_SPLIT | SWB_NEWTAB)) && !bufempty()) { - if (swb_flags & SWB_NEWTAB) /* Open in a new tab */ - tabpage_new(); - else if (win_split(0, 0) == FAIL) /* Open in a new window */ - return FAIL; - RESET_BINDING(curwin); - } - } - - ++RedrawingDisabled; - if (getfile(buf->b_fnum, NULL, NULL, (options & GETF_SETMARK), - lnum, forceit) <= 0) { - --RedrawingDisabled; - - /* cursor is at to BOL and w_cursor.lnum is checked due to getfile() */ - if (!p_sol && col != 0) { - curwin->w_cursor.col = col; - check_cursor_col(); - curwin->w_cursor.coladd = 0; - curwin->w_set_curswant = TRUE; - } - return OK; - } - --RedrawingDisabled; - return FAIL; -} - -/* - * go to the last know line number for the current buffer - */ -void buflist_getfpos(void) -{ - pos_T *fpos; - - fpos = buflist_findfpos(curbuf); - - curwin->w_cursor.lnum = fpos->lnum; - check_cursor_lnum(); - - if (p_sol) - curwin->w_cursor.col = 0; - else { - curwin->w_cursor.col = fpos->col; - check_cursor_col(); - curwin->w_cursor.coladd = 0; - curwin->w_set_curswant = TRUE; - } -} - -/* - * Find file in buffer list by name (it has to be for the current window). - * Returns NULL if not found. - */ -buf_T *buflist_findname_exp(char_u *fname) -{ - char_u *ffname; - buf_T *buf = NULL; - - /* First make the name into a full path name */ - ffname = FullName_save(fname, -#ifdef UNIX - TRUE /* force expansion, get rid of symbolic links */ -#else - FALSE -#endif - ); - if (ffname != NULL) { - buf = buflist_findname(ffname); - free(ffname); - } - return buf; -} - -/* - * Find file in buffer list by name (it has to be for the current window). - * "ffname" must have a full path. - * Skips dummy buffers. - * Returns NULL if not found. - */ -buf_T *buflist_findname(char_u *ffname) -{ - FileInfo file_info; - if (!os_get_file_info((char *)ffname, &file_info)) { - file_info.stat.st_dev = INVALID_DEVICE_ID; - } - return buflist_findname_file_info(ffname, &file_info); -} - -/* - * Same as buflist_findname(), but pass the FileInfo structure to avoid - * getting it twice for the same file. - * Returns NULL if not found. - */ -static buf_T *buflist_findname_file_info(char_u *ffname, FileInfo *file_info) -{ - buf_T *buf; - - for (buf = firstbuf; buf != NULL; buf = buf->b_next) { - if ((buf->b_flags & BF_DUMMY) == 0 - && !otherfile_buf(buf, ffname, file_info)) { - return buf; - } - } - return NULL; -} - -/* - * Find file in buffer list by a regexp pattern. - * Return fnum of the found buffer. - * Return < 0 for error. - */ -int -buflist_findpat ( - char_u *pattern, - char_u *pattern_end, /* pointer to first char after pattern */ - int unlisted, /* find unlisted buffers */ - int diffmode, /* find diff-mode buffers only */ - int curtab_only /* find buffers in current tab only */ -) -{ - buf_T *buf; - regprog_T *prog; - int match = -1; - int find_listed; - char_u *pat; - char_u *patend; - int attempt; - char_u *p; - int toggledollar; - - if (pattern_end == pattern + 1 && (*pattern == '%' || *pattern == '#')) { - if (*pattern == '%') - match = curbuf->b_fnum; - else - match = curwin->w_alt_fnum; - if (diffmode && !diff_mode_buf(buflist_findnr(match))) - match = -1; - } - /* - * Try four ways of matching a listed buffer: - * attempt == 0: without '^' or '$' (at any position) - * attempt == 1: with '^' at start (only at position 0) - * attempt == 2: with '$' at end (only match at end) - * attempt == 3: with '^' at start and '$' at end (only full match) - * Repeat this for finding an unlisted buffer if there was no matching - * listed buffer. - */ - else { - pat = file_pat_to_reg_pat(pattern, pattern_end, NULL, FALSE); - if (pat == NULL) - return -1; - patend = pat + STRLEN(pat) - 1; - toggledollar = (patend > pat && *patend == '$'); - - /* First try finding a listed buffer. If not found and "unlisted" - * is TRUE, try finding an unlisted buffer. */ - find_listed = TRUE; - for (;; ) { - for (attempt = 0; attempt <= 3; ++attempt) { - /* may add '^' and '$' */ - if (toggledollar) - *patend = (attempt < 2) ? NUL : '$'; /* add/remove '$' */ - p = pat; - if (*p == '^' && !(attempt & 1)) /* add/remove '^' */ - ++p; - prog = vim_regcomp(p, p_magic ? RE_MAGIC : 0); - if (prog == NULL) { - free(pat); - return -1; - } - - for (buf = firstbuf; buf != NULL; buf = buf->b_next) - if (buf->b_p_bl == find_listed - && (!diffmode || diff_mode_buf(buf)) - && buflist_match(prog, buf) != NULL) { - if (curtab_only) { - /* Ignore the match if the buffer is not open in - * the current tab. */ - win_T *wp; - - for (wp = firstwin; wp != NULL; wp = wp->w_next) - if (wp->w_buffer == buf) - break; - if (wp == NULL) - continue; - } - if (match >= 0) { /* already found a match */ - match = -2; - break; - } - match = buf->b_fnum; /* remember first match */ - } - - vim_regfree(prog); - if (match >= 0) /* found one match */ - break; - } - - /* Only search for unlisted buffers if there was no match with - * a listed buffer. */ - if (!unlisted || !find_listed || match != -1) - break; - find_listed = FALSE; - } - - free(pat); - } - - if (match == -2) - EMSG2(_("E93: More than one match for %s"), pattern); - else if (match < 0) - EMSG2(_("E94: No matching buffer for %s"), pattern); - return match; -} - - -/* - * Find all buffer names that match. - * For command line expansion of ":buf" and ":sbuf". - * Return OK if matches found, FAIL otherwise. - */ -int ExpandBufnames(char_u *pat, int *num_file, char_u ***file, int options) -{ - int count = 0; - buf_T *buf; - int round; - char_u *p; - int attempt; - regprog_T *prog; - char_u *patc; - - *num_file = 0; /* return values in case of FAIL */ - *file = NULL; - - /* Make a copy of "pat" and change "^" to "\(^\|[\/]\)". */ - if (*pat == '^') { - patc = xmalloc(STRLEN(pat) + 11); - STRCPY(patc, "\\(^\\|[\\/]\\)"); - STRCPY(patc + 11, pat + 1); - } else - patc = pat; - - /* - * attempt == 0: try match with '\<', match at start of word - * attempt == 1: try match without '\<', match anywhere - */ - for (attempt = 0; attempt <= 1; ++attempt) { - if (attempt > 0 && patc == pat) - break; /* there was no anchor, no need to try again */ - prog = vim_regcomp(patc + attempt * 11, RE_MAGIC); - if (prog == NULL) { - if (patc != pat) - free(patc); - return FAIL; - } - - /* - * round == 1: Count the matches. - * round == 2: Build the array to keep the matches. - */ - for (round = 1; round <= 2; ++round) { - count = 0; - for (buf = firstbuf; buf != NULL; buf = buf->b_next) { - if (!buf->b_p_bl) /* skip unlisted buffers */ - continue; - p = buflist_match(prog, buf); - if (p != NULL) { - if (round == 1) - ++count; - else { - if (options & WILD_HOME_REPLACE) - p = home_replace_save(buf, p); - else - p = vim_strsave(p); - (*file)[count++] = p; - } - } - } - if (count == 0) /* no match found, break here */ - break; - if (round == 1) { - *file = xmalloc(count * sizeof(**file)); - } - } - vim_regfree(prog); - if (count) /* match(es) found, break here */ - break; - } - - if (patc != pat) - free(patc); - - *num_file = count; - return count == 0 ? FAIL : OK; -} - - -#ifdef HAVE_BUFLIST_MATCH -/* - * Check for a match on the file name for buffer "buf" with regprog "prog". - */ -static char_u *buflist_match(regprog_T *prog, buf_T *buf) -{ - char_u *match; - - /* First try the short file name, then the long file name. */ - match = fname_match(prog, buf->b_sfname); - if (match == NULL) - match = fname_match(prog, buf->b_ffname); - - return match; -} - -/* - * Try matching the regexp in "prog" with file name "name". - * Return "name" when there is a match, NULL when not. - */ -static char_u *fname_match(regprog_T *prog, char_u *name) -{ - char_u *match = NULL; - char_u *p; - regmatch_T regmatch; - - if (name != NULL) { - regmatch.regprog = prog; - regmatch.rm_ic = p_fic; /* ignore case when 'fileignorecase' is set */ - if (vim_regexec(®match, name, (colnr_T)0)) - match = name; - else { - /* Replace $(HOME) with '~' and try matching again. */ - p = home_replace_save(NULL, name); - if (p != NULL && vim_regexec(®match, p, (colnr_T)0)) - match = name; - free(p); - } - } - - return match; -} -#endif - -/* - * find file in buffer list by number - */ -buf_T *buflist_findnr(int nr) -{ - buf_T *buf; - - if (nr == 0) - nr = curwin->w_alt_fnum; - for (buf = firstbuf; buf != NULL; buf = buf->b_next) - if (buf->b_fnum == nr) - return buf; - return NULL; -} - -/* - * Get name of file 'n' in the buffer list. - * When the file has no name an empty string is returned. - * home_replace() is used to shorten the file name (used for marks). - * Returns a pointer to allocated memory, of NULL when failed. - */ -char_u * -buflist_nr2name ( - int n, - int fullname, - int helptail /* for help buffers return tail only */ -) -{ - buf_T *buf; - - buf = buflist_findnr(n); - if (buf == NULL) - return NULL; - return home_replace_save(helptail ? buf : NULL, - fullname ? buf->b_ffname : buf->b_fname); -} - -/* - * Set the "lnum" and "col" for the buffer "buf" and the current window. - * When "copy_options" is TRUE save the local window option values. - * When "lnum" is 0 only do the options. - */ -static void buflist_setfpos(buf_T *buf, win_T *win, linenr_T lnum, colnr_T col, int copy_options) -{ - wininfo_T *wip; - - for (wip = buf->b_wininfo; wip != NULL; wip = wip->wi_next) - if (wip->wi_win == win) - break; - if (wip == NULL) { - /* allocate a new entry */ - wip = xcalloc(1, sizeof(wininfo_T)); - wip->wi_win = win; - if (lnum == 0) /* set lnum even when it's 0 */ - lnum = 1; - } else { - /* remove the entry from the list */ - if (wip->wi_prev) - wip->wi_prev->wi_next = wip->wi_next; - else - buf->b_wininfo = wip->wi_next; - if (wip->wi_next) - wip->wi_next->wi_prev = wip->wi_prev; - if (copy_options && wip->wi_optset) { - clear_winopt(&wip->wi_opt); - deleteFoldRecurse(&wip->wi_folds); - } - } - if (lnum != 0) { - wip->wi_fpos.lnum = lnum; - wip->wi_fpos.col = col; - } - if (copy_options) { - /* Save the window-specific option values. */ - copy_winopt(&win->w_onebuf_opt, &wip->wi_opt); - wip->wi_fold_manual = win->w_fold_manual; - cloneFoldGrowArray(&win->w_folds, &wip->wi_folds); - wip->wi_optset = TRUE; - } - - /* insert the entry in front of the list */ - wip->wi_next = buf->b_wininfo; - buf->b_wininfo = wip; - wip->wi_prev = NULL; - if (wip->wi_next) - wip->wi_next->wi_prev = wip; - - return; -} - -static int wininfo_other_tab_diff(wininfo_T *wip); - -/* - * Return TRUE when "wip" has 'diff' set and the diff is only for another tab - * page. That's because a diff is local to a tab page. - */ -static int wininfo_other_tab_diff(wininfo_T *wip) -{ - win_T *wp; - - if (wip->wi_opt.wo_diff) { - for (wp = firstwin; wp != NULL; wp = wp->w_next) - /* return FALSE when it's a window in the current tab page, thus - * the buffer was in diff mode here */ - if (wip->wi_win == wp) - return FALSE; - return TRUE; - } - return FALSE; -} - -/* - * Find info for the current window in buffer "buf". - * If not found, return the info for the most recently used window. - * When "skip_diff_buffer" is TRUE avoid windows with 'diff' set that is in - * another tab page. - * Returns NULL when there isn't any info. - */ -static wininfo_T *find_wininfo(buf_T *buf, int skip_diff_buffer) -{ - wininfo_T *wip; - - for (wip = buf->b_wininfo; wip != NULL; wip = wip->wi_next) - if (wip->wi_win == curwin - && (!skip_diff_buffer || !wininfo_other_tab_diff(wip)) - ) - break; - - /* If no wininfo for curwin, use the first in the list (that doesn't have - * 'diff' set and is in another tab page). */ - if (wip == NULL) { - if (skip_diff_buffer) { - for (wip = buf->b_wininfo; wip != NULL; wip = wip->wi_next) - if (!wininfo_other_tab_diff(wip)) - break; - } else - wip = buf->b_wininfo; - } - return wip; -} - -/* - * Reset the local window options to the values last used in this window. - * If the buffer wasn't used in this window before, use the values from - * the most recently used window. If the values were never set, use the - * global values for the window. - */ -void get_winopts(buf_T *buf) -{ - wininfo_T *wip; - - clear_winopt(&curwin->w_onebuf_opt); - clearFolding(curwin); - - wip = find_wininfo(buf, TRUE); - if (wip != NULL && wip->wi_optset) { - copy_winopt(&wip->wi_opt, &curwin->w_onebuf_opt); - curwin->w_fold_manual = wip->wi_fold_manual; - curwin->w_foldinvalid = TRUE; - cloneFoldGrowArray(&wip->wi_folds, &curwin->w_folds); - } else - copy_winopt(&curwin->w_allbuf_opt, &curwin->w_onebuf_opt); - - /* Set 'foldlevel' to 'foldlevelstart' if it's not negative. */ - if (p_fdls >= 0) - curwin->w_p_fdl = p_fdls; - check_colorcolumn(curwin); -} - -/* - * Find the position (lnum and col) for the buffer 'buf' for the current - * window. - * Returns a pointer to no_position if no position is found. - */ -pos_T *buflist_findfpos(buf_T *buf) -{ - wininfo_T *wip; - static pos_T no_position = INIT_POS_T(1, 0, 0); - - wip = find_wininfo(buf, FALSE); - if (wip != NULL) - return &(wip->wi_fpos); - else - return &no_position; -} - -/* - * Find the lnum for the buffer 'buf' for the current window. - */ -linenr_T buflist_findlnum(buf_T *buf) -{ - return buflist_findfpos(buf)->lnum; -} - -/* - * List all know file names (for :files and :buffers command). - */ -void buflist_list(exarg_T *eap) -{ - buf_T *buf; - int len; - int i; - - for (buf = firstbuf; buf != NULL && !got_int; buf = buf->b_next) { - /* skip unlisted buffers, unless ! was used */ - if (!buf->b_p_bl && !eap->forceit) - continue; - msg_putchar('\n'); - if (buf_spname(buf) != NULL) - vim_strncpy(NameBuff, buf_spname(buf), MAXPATHL - 1); - else - home_replace(buf, buf->b_fname, NameBuff, MAXPATHL, TRUE); - - len = vim_snprintf((char *)IObuff, IOSIZE - 20, "%3d%c%c%c%c%c \"%s\"", - buf->b_fnum, - buf->b_p_bl ? ' ' : 'u', - buf == curbuf ? '%' : - (curwin->w_alt_fnum == buf->b_fnum ? '#' : ' '), - buf->b_ml.ml_mfp == NULL ? ' ' : - (buf->b_nwindows == 0 ? 'h' : 'a'), - !buf->b_p_ma ? '-' : (buf->b_p_ro ? '=' : ' '), - (buf->b_flags & BF_READERR) ? 'x' - : (bufIsChanged(buf) ? '+' : ' '), - NameBuff); - - /* put "line 999" in column 40 or after the file name */ - i = 40 - vim_strsize(IObuff); - do { - IObuff[len++] = ' '; - } while (--i > 0 && len < IOSIZE - 18); - vim_snprintf((char *)IObuff + len, (size_t)(IOSIZE - len), - _("line %" PRId64), - buf == curbuf ? (int64_t)curwin->w_cursor.lnum - : (int64_t)buflist_findlnum(buf)); - msg_outtrans(IObuff); - out_flush(); /* output one line at a time */ - ui_breakcheck(); - } -} - -/* - * Get file name and line number for file 'fnum'. - * Used by DoOneCmd() for translating '%' and '#'. - * Used by insert_reg() and cmdline_paste() for '#' register. - * Return FAIL if not found, OK for success. - */ -int buflist_name_nr(int fnum, char_u **fname, linenr_T *lnum) -{ - buf_T *buf; - - buf = buflist_findnr(fnum); - if (buf == NULL || buf->b_fname == NULL) - return FAIL; - - *fname = buf->b_fname; - *lnum = buflist_findlnum(buf); - - return OK; -} - -/* - * Set the file name for "buf"' to 'ffname', short file name to 'sfname'. - * The file name with the full path is also remembered, for when :cd is used. - * Returns FAIL for failure (file name already in use by other buffer) - * OK otherwise. - */ -int -setfname ( - buf_T *buf, - char_u *ffname, - char_u *sfname, - int message /* give message when buffer already exists */ -) -{ - buf_T *obuf = NULL; - FileInfo file_info; - - if (ffname == NULL || *ffname == NUL) { - /* Removing the name. */ - free(buf->b_ffname); - free(buf->b_sfname); - buf->b_ffname = NULL; - buf->b_sfname = NULL; - file_info.stat.st_dev = INVALID_DEVICE_ID; - } else { - fname_expand(buf, &ffname, &sfname); /* will allocate ffname */ - if (ffname == NULL) /* out of memory */ - return FAIL; - - /* - * if the file name is already used in another buffer: - * - if the buffer is loaded, fail - * - if the buffer is not loaded, delete it from the list - */ - if (!os_get_file_info((char *)ffname, &file_info)) { - file_info.stat.st_dev = INVALID_DEVICE_ID; - } - if (!(buf->b_flags & BF_DUMMY)) { - obuf = buflist_findname_file_info(ffname, &file_info); - } - if (obuf != NULL && obuf != buf) { - if (obuf->b_ml.ml_mfp != NULL) { /* it's loaded, fail */ - if (message) - EMSG(_("E95: Buffer with this name already exists")); - free(ffname); - return FAIL; - } - /* delete from the list */ - close_buffer(NULL, obuf, DOBUF_WIPE, FALSE); - } - sfname = vim_strsave(sfname); - if (ffname == NULL || sfname == NULL) { - free(sfname); - free(ffname); - return FAIL; - } -#ifdef USE_FNAME_CASE - fname_case(sfname, 0); /* set correct case for short file name */ -#endif - free(buf->b_ffname); - free(buf->b_sfname); - buf->b_ffname = ffname; - buf->b_sfname = sfname; - } - buf->b_fname = buf->b_sfname; - if (file_info.stat.st_dev == INVALID_DEVICE_ID) { - buf->b_dev_valid = FALSE; - } else { - buf->b_dev_valid = TRUE; - buf->b_dev = file_info.stat.st_dev; - buf->b_ino = file_info.stat.st_ino; - } - - buf_name_changed(buf); - return OK; -} - -/* - * Crude way of changing the name of a buffer. Use with care! - * The name should be relative to the current directory. - */ -void buf_set_name(int fnum, char_u *name) -{ - buf_T *buf; - - buf = buflist_findnr(fnum); - if (buf != NULL) { - free(buf->b_sfname); - free(buf->b_ffname); - buf->b_ffname = vim_strsave(name); - buf->b_sfname = NULL; - /* Allocate ffname and expand into full path. Also resolves .lnk - * files on Win32. */ - fname_expand(buf, &buf->b_ffname, &buf->b_sfname); - buf->b_fname = buf->b_sfname; - } -} - -/* - * Take care of what needs to be done when the name of buffer "buf" has - * changed. - */ -void buf_name_changed(buf_T *buf) -{ - /* - * If the file name changed, also change the name of the swapfile - */ - if (buf->b_ml.ml_mfp != NULL) - ml_setname(buf); - - if (curwin->w_buffer == buf) - check_arg_idx(curwin); /* check file name for arg list */ - maketitle(); /* set window title */ - status_redraw_all(); /* status lines need to be redrawn */ - fmarks_check_names(buf); /* check named file marks */ - ml_timestamp(buf); /* reset timestamp */ -} - -/* - * set alternate file name for current window - * - * Used by do_one_cmd(), do_write() and do_ecmd(). - * Return the buffer. - */ -buf_T *setaltfname(char_u *ffname, char_u *sfname, linenr_T lnum) -{ - buf_T *buf; - - /* Create a buffer. 'buflisted' is not set if it's a new buffer */ - buf = buflist_new(ffname, sfname, lnum, 0); - if (buf != NULL && !cmdmod.keepalt) - curwin->w_alt_fnum = buf->b_fnum; - return buf; -} - -/* - * Get alternate file name for current window. - * Return NULL if there isn't any, and give error message if requested. - */ -char_u * -getaltfname ( - int errmsg /* give error message */ -) -{ - char_u *fname; - linenr_T dummy; - - if (buflist_name_nr(0, &fname, &dummy) == FAIL) { - if (errmsg) - EMSG(_(e_noalt)); - return NULL; - } - return fname; -} - -/* - * Add a file name to the buflist and return its number. - * Uses same flags as buflist_new(), except BLN_DUMMY. - * - * used by qf_init(), main() and doarglist() - */ -int buflist_add(char_u *fname, int flags) -{ - buf_T *buf; - - buf = buflist_new(fname, NULL, (linenr_T)0, flags); - if (buf != NULL) - return buf->b_fnum; - return 0; -} - -#if defined(BACKSLASH_IN_FILENAME) || defined(PROTO) -/* - * Adjust slashes in file names. Called after 'shellslash' was set. - */ -void buflist_slash_adjust(void) -{ - buf_T *bp; - - for (bp = firstbuf; bp != NULL; bp = bp->b_next) { - if (bp->b_ffname != NULL) - slash_adjust(bp->b_ffname); - if (bp->b_sfname != NULL) - slash_adjust(bp->b_sfname); - } -} - -#endif - -/* - * Set alternate cursor position for the current buffer and window "win". - * Also save the local window option values. - */ -void buflist_altfpos(win_T *win) -{ - buflist_setfpos(curbuf, win, win->w_cursor.lnum, win->w_cursor.col, TRUE); -} - -/* - * Return TRUE if 'ffname' is not the same file as current file. - * Fname must have a full path (expanded by path_get_absolute_path()). - */ -int otherfile(char_u *ffname) -{ - return otherfile_buf(curbuf, ffname, NULL); -} - -static int otherfile_buf(buf_T *buf, char_u *ffname, FileInfo *file_info_p) -{ - /* no name is different */ - if (ffname == NULL || *ffname == NUL || buf->b_ffname == NULL) { - return TRUE; - } - if (fnamecmp(ffname, buf->b_ffname) == 0) { - return FALSE; - } - { - FileInfo file_info; - - /* If no struct stat given, get it now */ - if (file_info_p == NULL) { - if (!buf->b_dev_valid || !os_get_file_info((char *)ffname, &file_info)) { - file_info.stat.st_dev = INVALID_DEVICE_ID; - } - file_info_p = &file_info; - } - /* Use dev/ino to check if the files are the same, even when the names - * are different (possible with links). Still need to compare the - * name above, for when the file doesn't exist yet. - * Problem: The dev/ino changes when a file is deleted (and created - * again) and remains the same when renamed/moved. We don't want to - * stat() each buffer each time, that would be too slow. Get the - * dev/ino again when they appear to match, but not when they appear - * to be different: Could skip a buffer when it's actually the same - * file. */ - if (buf_same_ino(buf, file_info_p)) { - buf_setino(buf); - if (buf_same_ino(buf, file_info_p)) - return FALSE; - } - } - return TRUE; -} - -/* - * Set inode and device number for a buffer. - * Must always be called when b_fname is changed!. - */ -void buf_setino(buf_T *buf) -{ - FileInfo file_info; - if (buf->b_fname != NULL - && os_get_file_info((char *)buf->b_fname, &file_info)) { - buf->b_dev_valid = TRUE; - buf->b_dev = file_info.stat.st_dev; - buf->b_ino = file_info.stat.st_ino; - } else { - buf->b_dev_valid = FALSE; - } -} - -/* - * Return TRUE if dev/ino in buffer "buf" matches with "stp". - */ -static int buf_same_ino(buf_T *buf, FileInfo *file_info) -{ - return buf->b_dev_valid - && file_info->stat.st_dev == buf->b_dev - && file_info->stat.st_ino == buf->b_ino; -} - -/* - * Print info about the current buffer. - */ -void -fileinfo ( - int fullname, /* when non-zero print full path */ - int shorthelp, - int dont_truncate -) -{ - char_u *name; - int n; - char_u *p; - char_u *buffer; - size_t len; - - buffer = xmalloc(IOSIZE); - - if (fullname > 1) { /* 2 CTRL-G: include buffer number */ - vim_snprintf((char *)buffer, IOSIZE, "buf %d: ", curbuf->b_fnum); - p = buffer + STRLEN(buffer); - } else - p = buffer; - - *p++ = '"'; - if (buf_spname(curbuf) != NULL) - vim_strncpy(p, buf_spname(curbuf), IOSIZE - (p - buffer) - 1); - else { - if (!fullname && curbuf->b_fname != NULL) - name = curbuf->b_fname; - else - name = curbuf->b_ffname; - home_replace(shorthelp ? curbuf : NULL, name, p, - (int)(IOSIZE - (p - buffer)), TRUE); - } - - vim_snprintf_add((char *)buffer, IOSIZE, "\"%s%s%s%s%s%s", - curbufIsChanged() ? (shortmess(SHM_MOD) - ? " [+]" : _(" [Modified]")) : " ", - (curbuf->b_flags & BF_NOTEDITED) - && !bt_dontwrite(curbuf) - ? _("[Not edited]") : "", - (curbuf->b_flags & BF_NEW) - && !bt_dontwrite(curbuf) - ? _("[New file]") : "", - (curbuf->b_flags & BF_READERR) ? _("[Read errors]") : "", - curbuf->b_p_ro ? (shortmess(SHM_RO) ? _("[RO]") - : _("[readonly]")) : "", - (curbufIsChanged() || (curbuf->b_flags & BF_WRITE_MASK) - || curbuf->b_p_ro) ? - " " : ""); - /* With 32 bit longs and more than 21,474,836 lines multiplying by 100 - * causes an overflow, thus for large numbers divide instead. */ - if (curwin->w_cursor.lnum > 1000000L) - n = (int)(((long)curwin->w_cursor.lnum) / - ((long)curbuf->b_ml.ml_line_count / 100L)); - else - n = (int)(((long)curwin->w_cursor.lnum * 100L) / - (long)curbuf->b_ml.ml_line_count); - if (curbuf->b_ml.ml_flags & ML_EMPTY) { - vim_snprintf_add((char *)buffer, IOSIZE, "%s", _(no_lines_msg)); - } else if (p_ru) { - /* Current line and column are already on the screen -- webb */ - if (curbuf->b_ml.ml_line_count == 1) - vim_snprintf_add((char *)buffer, IOSIZE, _("1 line --%d%%--"), n); - else - vim_snprintf_add((char *)buffer, IOSIZE, _("%" PRId64 " lines --%d%%--"), - (int64_t)curbuf->b_ml.ml_line_count, n); - } else { - vim_snprintf_add((char *)buffer, IOSIZE, - _("line %" PRId64 " of %" PRId64 " --%d%%-- col "), - (int64_t)curwin->w_cursor.lnum, - (int64_t)curbuf->b_ml.ml_line_count, - n); - validate_virtcol(); - len = STRLEN(buffer); - col_print(buffer + len, IOSIZE - len, - (int)curwin->w_cursor.col + 1, (int)curwin->w_virtcol + 1); - } - - (void)append_arg_number(curwin, buffer, IOSIZE, !shortmess(SHM_FILE)); - - if (dont_truncate) { - /* Temporarily set msg_scroll to avoid the message being truncated. - * First call msg_start() to get the message in the right place. */ - msg_start(); - n = msg_scroll; - msg_scroll = TRUE; - msg(buffer); - msg_scroll = n; - } else { - p = msg_trunc_attr(buffer, FALSE, 0); - if (restart_edit != 0 || (msg_scrolled && !need_wait_return)) - /* Need to repeat the message after redrawing when: - * - When restart_edit is set (otherwise there will be a delay - * before redrawing). - * - When the screen was scrolled but there is no wait-return - * prompt. */ - set_keep_msg(p, 0); - } - - free(buffer); -} - -void col_print(char_u *buf, size_t buflen, int col, int vcol) -{ - if (col == vcol) - vim_snprintf((char *)buf, buflen, "%d", col); - else - vim_snprintf((char *)buf, buflen, "%d-%d", col, vcol); -} - -/* - * put file name in title bar of window and in icon title - */ - -static char_u *lasttitle = NULL; -static char_u *lasticon = NULL; - -void maketitle(void) -{ - char_u *p; - char_u *t_str = NULL; - char_u *i_name; - char_u *i_str = NULL; - int maxlen = 0; - int len; - int mustset; - char_u buf[IOSIZE]; - int off; - - if (!redrawing()) { - /* Postpone updating the title when 'lazyredraw' is set. */ - need_maketitle = TRUE; - return; - } - - need_maketitle = FALSE; - if (!p_title && !p_icon && lasttitle == NULL && lasticon == NULL) - return; - - if (p_title) { - if (p_titlelen > 0) { - maxlen = p_titlelen * Columns / 100; - if (maxlen < 10) - maxlen = 10; - } - - t_str = buf; - if (*p_titlestring != NUL) { - if (stl_syntax & STL_IN_TITLE) { - int use_sandbox = FALSE; - int save_called_emsg = called_emsg; - - use_sandbox = was_set_insecurely((char_u *)"titlestring", 0); - called_emsg = FALSE; - build_stl_str_hl(curwin, t_str, sizeof(buf), - p_titlestring, use_sandbox, - 0, maxlen, NULL, NULL); - if (called_emsg) - set_string_option_direct((char_u *)"titlestring", -1, - (char_u *)"", OPT_FREE, SID_ERROR); - called_emsg |= save_called_emsg; - } else - t_str = p_titlestring; - } else { - /* format: "fname + (path) (1 of 2) - VIM" */ - -#define SPACE_FOR_FNAME (IOSIZE - 100) -#define SPACE_FOR_DIR (IOSIZE - 20) -#define SPACE_FOR_ARGNR (IOSIZE - 10) /* at least room for " - VIM" */ - if (curbuf->b_fname == NULL) - vim_strncpy(buf, (char_u *)_("[No Name]"), SPACE_FOR_FNAME); - else { - p = transstr(path_tail(curbuf->b_fname)); - vim_strncpy(buf, p, SPACE_FOR_FNAME); - free(p); - } - - switch (bufIsChanged(curbuf) - + (curbuf->b_p_ro * 2) - + (!curbuf->b_p_ma * 4)) { - case 1: STRCAT(buf, " +"); break; - case 2: STRCAT(buf, " ="); break; - case 3: STRCAT(buf, " =+"); break; - case 4: - case 6: STRCAT(buf, " -"); break; - case 5: - case 7: STRCAT(buf, " -+"); break; - } - - if (curbuf->b_fname != NULL) { - /* Get path of file, replace home dir with ~ */ - off = (int)STRLEN(buf); - buf[off++] = ' '; - buf[off++] = '('; - home_replace(curbuf, curbuf->b_ffname, - buf + off, SPACE_FOR_DIR - off, TRUE); -#ifdef BACKSLASH_IN_FILENAME - /* avoid "c:/name" to be reduced to "c" */ - if (isalpha(buf[off]) && buf[off + 1] == ':') - off += 2; -#endif - /* remove the file name */ - p = path_tail_with_sep(buf + off); - if (p == buf + off) - /* must be a help buffer */ - vim_strncpy(buf + off, (char_u *)_("help"), - (size_t)(SPACE_FOR_DIR - off - 1)); - else - *p = NUL; - - /* Translate unprintable chars and concatenate. Keep some - * room for the server name. When there is no room (very long - * file name) use (...). */ - if (off < SPACE_FOR_DIR) { - p = transstr(buf + off); - vim_strncpy(buf + off, p, (size_t)(SPACE_FOR_DIR - off)); - free(p); - } else { - vim_strncpy(buf + off, (char_u *)"...", - (size_t)(SPACE_FOR_ARGNR - off)); - } - STRCAT(buf, ")"); - } - - append_arg_number(curwin, buf, SPACE_FOR_ARGNR, FALSE); - - STRCAT(buf, " - VIM"); - - if (maxlen > 0) { - /* make it shorter by removing a bit in the middle */ - if (vim_strsize(buf) > maxlen) - trunc_string(buf, buf, maxlen, IOSIZE); - } - } - } - mustset = ti_change(t_str, &lasttitle); - - if (p_icon) { - i_str = buf; - if (*p_iconstring != NUL) { - if (stl_syntax & STL_IN_ICON) { - int use_sandbox = FALSE; - int save_called_emsg = called_emsg; - - use_sandbox = was_set_insecurely((char_u *)"iconstring", 0); - called_emsg = FALSE; - build_stl_str_hl(curwin, i_str, sizeof(buf), - p_iconstring, use_sandbox, - 0, 0, NULL, NULL); - if (called_emsg) - set_string_option_direct((char_u *)"iconstring", -1, - (char_u *)"", OPT_FREE, SID_ERROR); - called_emsg |= save_called_emsg; - } else - i_str = p_iconstring; - } else { - if (buf_spname(curbuf) != NULL) - i_name = buf_spname(curbuf); - else /* use file name only in icon */ - i_name = path_tail(curbuf->b_ffname); - *i_str = NUL; - /* Truncate name at 100 bytes. */ - len = (int)STRLEN(i_name); - if (len > 100) { - len -= 100; - if (has_mbyte) - len += (*mb_tail_off)(i_name, i_name + len) + 1; - i_name += len; - } - STRCPY(i_str, i_name); - trans_characters(i_str, IOSIZE); - } - } - - mustset |= ti_change(i_str, &lasticon); - - if (mustset) - resettitle(); -} - -/* - * Used for title and icon: Check if "str" differs from "*last". Set "*last" - * from "str" if it does. - * Return TRUE when "*last" changed. - */ -static int ti_change(char_u *str, char_u **last) -{ - if ((str == NULL) != (*last == NULL) - || (str != NULL && *last != NULL && STRCMP(str, *last) != 0)) { - free(*last); - if (str == NULL) - *last = NULL; - else - *last = vim_strsave(str); - return TRUE; - } - return FALSE; -} - -/* - * Put current window title back (used after calling a shell) - */ -void resettitle(void) -{ - mch_settitle(lasttitle, lasticon); -} - -# if defined(EXITFREE) || defined(PROTO) -void free_titles(void) -{ - free(lasttitle); - free(lasticon); -} - -# endif - - -/* - * Build a string from the status line items in "fmt". - * Return length of string in screen cells. - * - * Normally works for window "wp", except when working for 'tabline' then it - * is "curwin". - * - * Items are drawn interspersed with the text that surrounds it - * Specials: %-<wid>(xxx%) => group, %= => middle marker, %< => truncation - * Item: %-<minwid>.<maxwid><itemch> All but <itemch> are optional - * - * If maxwidth is not zero, the string will be filled at any middle marker - * or truncated if too long, fillchar is used for all whitespace. - */ -int -build_stl_str_hl ( - win_T *wp, - char_u *out, /* buffer to write into != NameBuff */ - size_t outlen, /* length of out[] */ - char_u *fmt, - int use_sandbox, /* "fmt" was set insecurely, use sandbox */ - int fillchar, - int maxwidth, - struct stl_hlrec *hltab, /* return: HL attributes (can be NULL) */ - struct stl_hlrec *tabtab /* return: tab page nrs (can be NULL) */ -) -{ - char_u *p; - char_u *s; - char_u *t; - int byteval; - win_T *o_curwin; - buf_T *o_curbuf; - int empty_line; - colnr_T virtcol; - long l; - long n; - int prevchar_isflag; - int prevchar_isitem; - int itemisflag; - int fillable; - char_u *str; - long num; - int width; - int itemcnt; - int curitem; - int groupitem[STL_MAX_ITEM]; - int groupdepth; - struct stl_item { - char_u *start; - int minwid; - int maxwid; - enum { - Normal, - Empty, - Group, - Middle, - Highlight, - TabPage, - Trunc - } type; - } item[STL_MAX_ITEM]; - int minwid; - int maxwid; - int zeropad; - char_u base; - char_u opt; -#define TMPLEN 70 - char_u tmp[TMPLEN]; - char_u *usefmt = fmt; - struct stl_hlrec *sp; - - /* - * When the format starts with "%!" then evaluate it as an expression and - * use the result as the actual format string. - */ - if (fmt[0] == '%' && fmt[1] == '!') { - usefmt = eval_to_string_safe(fmt + 2, NULL, use_sandbox); - if (usefmt == NULL) - usefmt = fmt; - } - - if (fillchar == 0) - fillchar = ' '; - /* Can't handle a multi-byte fill character yet. */ - else if (mb_char2len(fillchar) > 1) - fillchar = '-'; - - /* Get line & check if empty (cursorpos will show "0-1"). Note that - * p will become invalid when getting another buffer line. */ - p = ml_get_buf(wp->w_buffer, wp->w_cursor.lnum, FALSE); - empty_line = (*p == NUL); - - /* Get the byte value now, in case we need it below. This is more - * efficient than making a copy of the line. */ - if (wp->w_cursor.col > (colnr_T)STRLEN(p)) - byteval = 0; - else - byteval = (*mb_ptr2char)(p + wp->w_cursor.col); - - groupdepth = 0; - p = out; - curitem = 0; - prevchar_isflag = TRUE; - prevchar_isitem = FALSE; - for (s = usefmt; *s; ) { - if (curitem == STL_MAX_ITEM) { - /* There are too many items. Add the error code to the statusline - * to give the user a hint about what went wrong. */ - if (p + 6 < out + outlen) { - memmove(p, " E541", (size_t)5); - p += 5; - } - break; - } - - if (*s != NUL && *s != '%') - prevchar_isflag = prevchar_isitem = FALSE; - - /* - * Handle up to the next '%' or the end. - */ - while (*s != NUL && *s != '%' && p + 1 < out + outlen) - *p++ = *s++; - if (*s == NUL || p + 1 >= out + outlen) - break; - - /* - * Handle one '%' item. - */ - s++; - if (*s == NUL) /* ignore trailing % */ - break; - if (*s == '%') { - if (p + 1 >= out + outlen) - break; - *p++ = *s++; - prevchar_isflag = prevchar_isitem = FALSE; - continue; - } - if (*s == STL_MIDDLEMARK) { - s++; - if (groupdepth > 0) - continue; - item[curitem].type = Middle; - item[curitem++].start = p; - continue; - } - if (*s == STL_TRUNCMARK) { - s++; - item[curitem].type = Trunc; - item[curitem++].start = p; - continue; - } - if (*s == ')') { - s++; - if (groupdepth < 1) - continue; - groupdepth--; - - t = item[groupitem[groupdepth]].start; - *p = NUL; - l = vim_strsize(t); - if (curitem > groupitem[groupdepth] + 1 - && item[groupitem[groupdepth]].minwid == 0) { - /* remove group if all items are empty */ - for (n = groupitem[groupdepth] + 1; n < curitem; n++) - if (item[n].type == Normal) - break; - if (n == curitem) { - p = t; - l = 0; - } - } - if (l > item[groupitem[groupdepth]].maxwid) { - /* truncate, remove n bytes of text at the start */ - if (has_mbyte) { - /* Find the first character that should be included. */ - n = 0; - while (l >= item[groupitem[groupdepth]].maxwid) { - l -= ptr2cells(t + n); - n += (*mb_ptr2len)(t + n); - } - } else - n = (long)(p - t) - item[groupitem[groupdepth]].maxwid + 1; - - *t = '<'; - memmove(t + 1, t + n, (size_t)(p - (t + n))); - p = p - n + 1; - /* Fill up space left over by half a double-wide char. */ - while (++l < item[groupitem[groupdepth]].minwid) - *p++ = fillchar; - - /* correct the start of the items for the truncation */ - for (l = groupitem[groupdepth] + 1; l < curitem; l++) { - item[l].start -= n; - if (item[l].start < t) - item[l].start = t; - } - } else if (abs(item[groupitem[groupdepth]].minwid) > l) { - /* fill */ - n = item[groupitem[groupdepth]].minwid; - if (n < 0) { - /* fill by appending characters */ - n = 0 - n; - while (l++ < n && p + 1 < out + outlen) - *p++ = fillchar; - } else { - /* fill by inserting characters */ - memmove(t + n - l, t, (size_t)(p - t)); - l = n - l; - if (p + l >= out + outlen) - l = (long)((out + outlen) - p - 1); - p += l; - for (n = groupitem[groupdepth] + 1; n < curitem; n++) - item[n].start += l; - for (; l > 0; l--) - *t++ = fillchar; - } - } - continue; - } - minwid = 0; - maxwid = 9999; - zeropad = FALSE; - l = 1; - if (*s == '0') { - s++; - zeropad = TRUE; - } - if (*s == '-') { - s++; - l = -1; - } - if (VIM_ISDIGIT(*s)) { - minwid = (int)getdigits(&s); - if (minwid < 0) /* overflow */ - minwid = 0; - } - if (*s == STL_USER_HL) { - item[curitem].type = Highlight; - item[curitem].start = p; - item[curitem].minwid = minwid > 9 ? 1 : minwid; - s++; - curitem++; - continue; - } - if (*s == STL_TABPAGENR || *s == STL_TABCLOSENR) { - if (*s == STL_TABCLOSENR) { - if (minwid == 0) { - /* %X ends the close label, go back to the previously - * define tab label nr. */ - for (n = curitem - 1; n >= 0; --n) - if (item[n].type == TabPage && item[n].minwid >= 0) { - minwid = item[n].minwid; - break; - } - } else - /* close nrs are stored as negative values */ - minwid = -minwid; - } - item[curitem].type = TabPage; - item[curitem].start = p; - item[curitem].minwid = minwid; - s++; - curitem++; - continue; - } - if (*s == '.') { - s++; - if (VIM_ISDIGIT(*s)) { - maxwid = (int)getdigits(&s); - if (maxwid <= 0) /* overflow */ - maxwid = 50; - } - } - minwid = (minwid > 50 ? 50 : minwid) * l; - if (*s == '(') { - groupitem[groupdepth++] = curitem; - item[curitem].type = Group; - item[curitem].start = p; - item[curitem].minwid = minwid; - item[curitem].maxwid = maxwid; - s++; - curitem++; - continue; - } - if (vim_strchr(STL_ALL, *s) == NULL) { - s++; - continue; - } - opt = *s++; - - /* OK - now for the real work */ - base = 'D'; - itemisflag = FALSE; - fillable = TRUE; - num = -1; - str = NULL; - switch (opt) { - case STL_FILEPATH: - case STL_FULLPATH: - case STL_FILENAME: - fillable = FALSE; /* don't change ' ' to fillchar */ - if (buf_spname(wp->w_buffer) != NULL) - vim_strncpy(NameBuff, buf_spname(wp->w_buffer), MAXPATHL - 1); - else { - t = (opt == STL_FULLPATH) ? wp->w_buffer->b_ffname - : wp->w_buffer->b_fname; - home_replace(wp->w_buffer, t, NameBuff, MAXPATHL, TRUE); - } - trans_characters(NameBuff, MAXPATHL); - if (opt != STL_FILENAME) - str = NameBuff; - else - str = path_tail(NameBuff); - break; - - case STL_VIM_EXPR: /* '{' */ - itemisflag = TRUE; - t = p; - while (*s != '}' && *s != NUL && p + 1 < out + outlen) - *p++ = *s++; - if (*s != '}') /* missing '}' or out of space */ - break; - s++; - *p = 0; - p = t; - - vim_snprintf((char *)tmp, sizeof(tmp), "%d", curbuf->b_fnum); - set_internal_string_var((char_u *)"actual_curbuf", tmp); - - o_curbuf = curbuf; - o_curwin = curwin; - curwin = wp; - curbuf = wp->w_buffer; - - str = eval_to_string_safe(p, &t, use_sandbox); - - curwin = o_curwin; - curbuf = o_curbuf; - do_unlet((char_u *)"g:actual_curbuf", TRUE); - - if (str != NULL && *str != 0) { - if (*skipdigits(str) == NUL) { - num = atoi((char *)str); - free(str); - str = NULL; - itemisflag = FALSE; - } - } - break; - - case STL_LINE: - num = (wp->w_buffer->b_ml.ml_flags & ML_EMPTY) - ? 0L : (long)(wp->w_cursor.lnum); - break; - - case STL_NUMLINES: - num = wp->w_buffer->b_ml.ml_line_count; - break; - - case STL_COLUMN: - num = !(State & INSERT) && empty_line - ? 0 : (int)wp->w_cursor.col + 1; - break; - - case STL_VIRTCOL: - case STL_VIRTCOL_ALT: - /* In list mode virtcol needs to be recomputed */ - virtcol = wp->w_virtcol; - if (wp->w_p_list && lcs_tab1 == NUL) { - wp->w_p_list = FALSE; - getvcol(wp, &wp->w_cursor, NULL, &virtcol, NULL); - wp->w_p_list = TRUE; - } - ++virtcol; - /* Don't display %V if it's the same as %c. */ - if (opt == STL_VIRTCOL_ALT - && (virtcol == (colnr_T)(!(State & INSERT) && empty_line - ? 0 : (int)wp->w_cursor.col + 1))) - break; - num = (long)virtcol; - break; - - case STL_PERCENTAGE: - num = (int)(((long)wp->w_cursor.lnum * 100L) / - (long)wp->w_buffer->b_ml.ml_line_count); - break; - - case STL_ALTPERCENT: - str = tmp; - get_rel_pos(wp, str, TMPLEN); - break; - - case STL_ARGLISTSTAT: - fillable = FALSE; - tmp[0] = 0; - if (append_arg_number(wp, tmp, (int)sizeof(tmp), FALSE)) - str = tmp; - break; - - case STL_KEYMAP: - fillable = FALSE; - if (get_keymap_str(wp, tmp, TMPLEN)) - str = tmp; - break; - case STL_PAGENUM: - num = printer_page_num; - break; - - case STL_BUFNO: - num = wp->w_buffer->b_fnum; - break; - - case STL_OFFSET_X: - base = 'X'; - case STL_OFFSET: - l = ml_find_line_or_offset(wp->w_buffer, wp->w_cursor.lnum, NULL); - num = (wp->w_buffer->b_ml.ml_flags & ML_EMPTY) || l < 0 ? - 0L : l + 1 + (!(State & INSERT) && empty_line ? - 0 : (int)wp->w_cursor.col); - break; - - case STL_BYTEVAL_X: - base = 'X'; - case STL_BYTEVAL: - num = byteval; - if (num == NL) - num = 0; - else if (num == CAR && get_fileformat(wp->w_buffer) == EOL_MAC) - num = NL; - break; - - case STL_ROFLAG: - case STL_ROFLAG_ALT: - itemisflag = TRUE; - if (wp->w_buffer->b_p_ro) - str = (char_u *)((opt == STL_ROFLAG_ALT) ? ",RO" : _("[RO]")); - break; - - case STL_HELPFLAG: - case STL_HELPFLAG_ALT: - itemisflag = TRUE; - if (wp->w_buffer->b_help) - str = (char_u *)((opt == STL_HELPFLAG_ALT) ? ",HLP" - : _("[Help]")); - break; - - case STL_FILETYPE: - if (*wp->w_buffer->b_p_ft != NUL - && STRLEN(wp->w_buffer->b_p_ft) < TMPLEN - 3) { - vim_snprintf((char *)tmp, sizeof(tmp), "[%s]", - wp->w_buffer->b_p_ft); - str = tmp; - } - break; - - case STL_FILETYPE_ALT: - itemisflag = TRUE; - if (*wp->w_buffer->b_p_ft != NUL - && STRLEN(wp->w_buffer->b_p_ft) < TMPLEN - 2) { - vim_snprintf((char *)tmp, sizeof(tmp), ",%s", - wp->w_buffer->b_p_ft); - for (t = tmp; *t != 0; t++) - *t = TOUPPER_LOC(*t); - str = tmp; - } - break; - - case STL_PREVIEWFLAG: - case STL_PREVIEWFLAG_ALT: - itemisflag = TRUE; - if (wp->w_p_pvw) - str = (char_u *)((opt == STL_PREVIEWFLAG_ALT) ? ",PRV" - : _("[Preview]")); - break; - - case STL_QUICKFIX: - if (bt_quickfix(wp->w_buffer)) - str = (char_u *)(wp->w_llist_ref - ? _(msg_loclist) - : _(msg_qflist)); - break; - - case STL_MODIFIED: - case STL_MODIFIED_ALT: - itemisflag = TRUE; - switch ((opt == STL_MODIFIED_ALT) - + bufIsChanged(wp->w_buffer) * 2 - + (!wp->w_buffer->b_p_ma) * 4) { - case 2: str = (char_u *)"[+]"; break; - case 3: str = (char_u *)",+"; break; - case 4: str = (char_u *)"[-]"; break; - case 5: str = (char_u *)",-"; break; - case 6: str = (char_u *)"[+-]"; break; - case 7: str = (char_u *)",+-"; break; - } - break; - - case STL_HIGHLIGHT: - t = s; - while (*s != '#' && *s != NUL) - ++s; - if (*s == '#') { - item[curitem].type = Highlight; - item[curitem].start = p; - item[curitem].minwid = -syn_namen2id(t, (int)(s - t)); - curitem++; - } - if (*s != NUL) - ++s; - continue; - } - - item[curitem].start = p; - item[curitem].type = Normal; - if (str != NULL && *str) { - t = str; - if (itemisflag) { - if ((t[0] && t[1]) - && ((!prevchar_isitem && *t == ',') - || (prevchar_isflag && *t == ' '))) - t++; - prevchar_isflag = TRUE; - } - l = vim_strsize(t); - if (l > 0) - prevchar_isitem = TRUE; - if (l > maxwid) { - while (l >= maxwid) - if (has_mbyte) { - l -= ptr2cells(t); - t += (*mb_ptr2len)(t); - } else - l -= byte2cells(*t++); - if (p + 1 >= out + outlen) - break; - *p++ = '<'; - } - if (minwid > 0) { - for (; l < minwid && p + 1 < out + outlen; l++) { - /* Don't put a "-" in front of a digit. */ - if (l + 1 == minwid && fillchar == '-' && VIM_ISDIGIT(*t)) - *p++ = ' '; - else - *p++ = fillchar; - } - minwid = 0; - } else - minwid *= -1; - while (*t && p + 1 < out + outlen) { - *p++ = *t++; - /* Change a space by fillchar, unless fillchar is '-' and a - * digit follows. */ - if (fillable && p[-1] == ' ' - && (!VIM_ISDIGIT(*t) || fillchar != '-')) - p[-1] = fillchar; - } - for (; l < minwid && p + 1 < out + outlen; l++) - *p++ = fillchar; - } else if (num >= 0) { - int nbase = (base == 'D' ? 10 : (base == 'O' ? 8 : 16)); - char_u nstr[20]; - - if (p + 20 >= out + outlen) - break; /* not sufficient space */ - prevchar_isitem = TRUE; - t = nstr; - if (opt == STL_VIRTCOL_ALT) { - *t++ = '-'; - minwid--; - } - *t++ = '%'; - if (zeropad) - *t++ = '0'; - *t++ = '*'; - *t++ = nbase == 16 ? base : (char_u)(nbase == 8 ? 'o' : 'd'); - *t = 0; - - for (n = num, l = 1; n >= nbase; n /= nbase) - l++; - if (opt == STL_VIRTCOL_ALT) - l++; - if (l > maxwid) { - l += 2; - n = l - maxwid; - while (l-- > maxwid) - num /= nbase; - *t++ = '>'; - *t++ = '%'; - *t = t[-3]; - *++t = 0; - vim_snprintf((char *)p, outlen - (p - out), (char *)nstr, - 0, num, n); - } else - vim_snprintf((char *)p, outlen - (p - out), (char *)nstr, - minwid, num); - p += STRLEN(p); - } else - item[curitem].type = Empty; - - if (opt == STL_VIM_EXPR) - free(str); - - if (num >= 0 || (!itemisflag && str && *str)) - prevchar_isflag = FALSE; /* Item not NULL, but not a flag */ - curitem++; - } - *p = NUL; - itemcnt = curitem; - - if (usefmt != fmt) - free(usefmt); - - width = vim_strsize(out); - if (maxwidth > 0 && width > maxwidth) { - /* Result is too long, must truncate somewhere. */ - l = 0; - if (itemcnt == 0) - s = out; - else { - for (; l < itemcnt; l++) - if (item[l].type == Trunc) { - /* Truncate at %< item. */ - s = item[l].start; - break; - } - if (l == itemcnt) { - /* No %< item, truncate first item. */ - s = item[0].start; - l = 0; - } - } - - if (width - vim_strsize(s) >= maxwidth) { - /* Truncation mark is beyond max length */ - if (has_mbyte) { - s = out; - width = 0; - for (;; ) { - width += ptr2cells(s); - if (width >= maxwidth) - break; - s += (*mb_ptr2len)(s); - } - /* Fill up for half a double-wide character. */ - while (++width < maxwidth) - *s++ = fillchar; - } else - s = out + maxwidth - 1; - for (l = 0; l < itemcnt; l++) - if (item[l].start > s) - break; - itemcnt = l; - *s++ = '>'; - *s = 0; - } else { - if (has_mbyte) { - n = 0; - while (width >= maxwidth) { - width -= ptr2cells(s + n); - n += (*mb_ptr2len)(s + n); - } - } else - n = width - maxwidth + 1; - p = s + n; - STRMOVE(s + 1, p); - *s = '<'; - - /* Fill up for half a double-wide character. */ - while (++width < maxwidth) { - s = s + STRLEN(s); - *s++ = fillchar; - *s = NUL; - } - - --n; /* count the '<' */ - for (; l < itemcnt; l++) { - if (item[l].start - n >= s) - item[l].start -= n; - else - item[l].start = s; - } - } - width = maxwidth; - } else if (width < maxwidth && STRLEN(out) + maxwidth - width + 1 < - outlen) { - /* Apply STL_MIDDLE if any */ - for (l = 0; l < itemcnt; l++) - if (item[l].type == Middle) - break; - if (l < itemcnt) { - p = item[l].start + maxwidth - width; - STRMOVE(p, item[l].start); - for (s = item[l].start; s < p; s++) - *s = fillchar; - for (l++; l < itemcnt; l++) - item[l].start += maxwidth - width; - width = maxwidth; - } - } - - /* Store the info about highlighting. */ - if (hltab != NULL) { - sp = hltab; - for (l = 0; l < itemcnt; l++) { - if (item[l].type == Highlight) { - sp->start = item[l].start; - sp->userhl = item[l].minwid; - sp++; - } - } - sp->start = NULL; - sp->userhl = 0; - } - - /* Store the info about tab pages labels. */ - if (tabtab != NULL) { - sp = tabtab; - for (l = 0; l < itemcnt; l++) { - if (item[l].type == TabPage) { - sp->start = item[l].start; - sp->userhl = item[l].minwid; - sp++; - } - } - sp->start = NULL; - sp->userhl = 0; - } - - return width; -} - -#if defined(FEAT_STL_OPT) || defined(FEAT_CMDL_INFO) \ - || defined(FEAT_GUI_TABLINE) || defined(PROTO) -/* - * Get relative cursor position in window into "buf[buflen]", in the form 99%, - * using "Top", "Bot" or "All" when appropriate. - */ -void get_rel_pos(win_T *wp, char_u *buf, int buflen) -{ - long above; /* number of lines above window */ - long below; /* number of lines below window */ - - above = wp->w_topline - 1; - above += diff_check_fill(wp, wp->w_topline) - wp->w_topfill; - below = wp->w_buffer->b_ml.ml_line_count - wp->w_botline + 1; - if (below <= 0) - vim_strncpy(buf, (char_u *)(above == 0 ? _("All") : _("Bot")), - (size_t)(buflen - 1)); - else if (above <= 0) - vim_strncpy(buf, (char_u *)_("Top"), (size_t)(buflen - 1)); - else - vim_snprintf((char *)buf, (size_t)buflen, "%2d%%", above > 1000000L - ? (int)(above / ((above + below) / 100L)) - : (int)(above * 100L / (above + below))); -} -#endif - -/* - * Append (file 2 of 8) to "buf[buflen]", if editing more than one file. - * Return TRUE if it was appended. - */ -static int -append_arg_number ( - win_T *wp, - char_u *buf, - int buflen, - int add_file /* Add "file" before the arg number */ -) -{ - char_u *p; - - if (ARGCOUNT <= 1) /* nothing to do */ - return FALSE; - - p = buf + STRLEN(buf); /* go to the end of the buffer */ - if (p - buf + 35 >= buflen) /* getting too long */ - return FALSE; - *p++ = ' '; - *p++ = '('; - if (add_file) { - STRCPY(p, "file "); - p += 5; - } - vim_snprintf((char *)p, (size_t)(buflen - (p - buf)), - wp->w_arg_idx_invalid ? "(%d) of %d)" - : "%d of %d)", wp->w_arg_idx + 1, ARGCOUNT); - return TRUE; -} - -/* - * Make "ffname" a full file name, set "sfname" to "ffname" if not NULL. - * "ffname" becomes a pointer to allocated memory (or NULL). - */ -void fname_expand(buf_T *buf, char_u **ffname, char_u **sfname) -{ - if (*ffname == NULL) /* if no file name given, nothing to do */ - return; - if (*sfname == NULL) /* if no short file name given, use ffname */ - *sfname = *ffname; - *ffname = fix_fname(*ffname); /* expand to full path */ - -#ifdef FEAT_SHORTCUT - if (!buf->b_p_bin) { - char_u *rfname; - - /* If the file name is a shortcut file, use the file it links to. */ - rfname = mch_resolve_shortcut(*ffname); - if (rfname != NULL) { - free(*ffname); - *ffname = rfname; - *sfname = rfname; - } - } -#endif -} - -/* - * Get the file name for an argument list entry. - */ -char_u *alist_name(aentry_T *aep) -{ - buf_T *bp; - - /* Use the name from the associated buffer if it exists. */ - bp = buflist_findnr(aep->ae_fnum); - if (bp == NULL || bp->b_fname == NULL) - return aep->ae_fname; - return bp->b_fname; -} - -/* - * do_arg_all(): Open up to 'count' windows, one for each argument. - */ -void -do_arg_all ( - int count, - int forceit, /* hide buffers in current windows */ - int keep_tabs /* keep current tabs, for ":tab drop file" */ -) -{ - int i; - win_T *wp, *wpnext; - char_u *opened; /* Array of weight for which args are open: - * 0: not opened - * 1: opened in other tab - * 2: opened in curtab - * 3: opened in curtab and curwin - */ - int opened_len; /* length of opened[] */ - int use_firstwin = FALSE; /* use first window for arglist */ - int split_ret = OK; - int p_ea_save; - alist_T *alist; /* argument list to be used */ - buf_T *buf; - tabpage_T *tpnext; - int had_tab = cmdmod.tab; - win_T *old_curwin, *last_curwin; - tabpage_T *old_curtab, *last_curtab; - win_T *new_curwin = NULL; - tabpage_T *new_curtab = NULL; - - if (ARGCOUNT <= 0) { - /* Don't give an error message. We don't want it when the ":all" - * command is in the .vimrc. */ - return; - } - setpcmark(); - - opened_len = ARGCOUNT; - opened = xcalloc(opened_len, 1); - - /* Autocommands may do anything to the argument list. Make sure it's not - * freed while we are working here by "locking" it. We still have to - * watch out for its size to be changed. */ - alist = curwin->w_alist; - ++alist->al_refcount; - - old_curwin = curwin; - old_curtab = curtab; - - - /* - * Try closing all windows that are not in the argument list. - * Also close windows that are not full width; - * When 'hidden' or "forceit" set the buffer becomes hidden. - * Windows that have a changed buffer and can't be hidden won't be closed. - * When the ":tab" modifier was used do this for all tab pages. - */ - if (had_tab > 0) - goto_tabpage_tp(first_tabpage, TRUE, TRUE); - for (;; ) { - tpnext = curtab->tp_next; - for (wp = firstwin; wp != NULL; wp = wpnext) { - wpnext = wp->w_next; - buf = wp->w_buffer; - if (buf->b_ffname == NULL - || (!keep_tabs && buf->b_nwindows > 1) - || wp->w_width != Columns - ) - i = opened_len; - else { - /* check if the buffer in this window is in the arglist */ - for (i = 0; i < opened_len; ++i) { - if (i < alist->al_ga.ga_len - && (AARGLIST(alist)[i].ae_fnum == buf->b_fnum - || path_full_compare(alist_name(&AARGLIST(alist)[i]), - buf->b_ffname, TRUE) & kEqualFiles)) { - int weight = 1; - - if (old_curtab == curtab) { - ++weight; - if (old_curwin == wp) - ++weight; - } - - if (weight > (int)opened[i]) { - opened[i] = (char_u)weight; - if (i == 0) { - if (new_curwin != NULL) - new_curwin->w_arg_idx = opened_len; - new_curwin = wp; - new_curtab = curtab; - } - } else if (keep_tabs) - i = opened_len; - - if (wp->w_alist != alist) { - /* Use the current argument list for all windows - * containing a file from it. */ - alist_unlink(wp->w_alist); - wp->w_alist = alist; - ++wp->w_alist->al_refcount; - } - break; - } - } - } - wp->w_arg_idx = i; - - if (i == opened_len && !keep_tabs) { /* close this window */ - if (P_HID(buf) || forceit || buf->b_nwindows > 1 - || !bufIsChanged(buf)) { - /* If the buffer was changed, and we would like to hide it, - * try autowriting. */ - if (!P_HID(buf) && buf->b_nwindows <= 1 - && bufIsChanged(buf)) { - (void)autowrite(buf, FALSE); - /* check if autocommands removed the window */ - if (!win_valid(wp) || !buf_valid(buf)) { - wpnext = firstwin; /* start all over... */ - continue; - } - } - /* don't close last window */ - if (firstwin == lastwin - && (first_tabpage->tp_next == NULL || !had_tab)) - use_firstwin = TRUE; - else { - win_close(wp, !P_HID(buf) && !bufIsChanged(buf)); - /* check if autocommands removed the next window */ - if (!win_valid(wpnext)) - wpnext = firstwin; /* start all over... */ - } - } - } - } - - /* Without the ":tab" modifier only do the current tab page. */ - if (had_tab == 0 || tpnext == NULL) - break; - - /* check if autocommands removed the next tab page */ - if (!valid_tabpage(tpnext)) - tpnext = first_tabpage; /* start all over...*/ - goto_tabpage_tp(tpnext, TRUE, TRUE); - } - - /* - * Open a window for files in the argument list that don't have one. - * ARGCOUNT may change while doing this, because of autocommands. - */ - if (count > opened_len || count <= 0) - count = opened_len; - - /* Don't execute Win/Buf Enter/Leave autocommands here. */ - ++autocmd_no_enter; - ++autocmd_no_leave; - last_curwin = curwin; - last_curtab = curtab; - win_enter(lastwin, FALSE); - /* ":drop all" should re-use an empty window to avoid "--remote-tab" - * leaving an empty tab page when executed locally. */ - if (keep_tabs && bufempty() && curbuf->b_nwindows == 1 - && curbuf->b_ffname == NULL && !curbuf->b_changed) - use_firstwin = TRUE; - - for (i = 0; i < count && i < opened_len && !got_int; ++i) { - if (alist == &global_alist && i == global_alist.al_ga.ga_len - 1) - arg_had_last = TRUE; - if (opened[i] > 0) { - /* Move the already present window to below the current window */ - if (curwin->w_arg_idx != i) { - for (wpnext = firstwin; wpnext != NULL; wpnext = wpnext->w_next) { - if (wpnext->w_arg_idx == i) { - if (keep_tabs) { - new_curwin = wpnext; - new_curtab = curtab; - } else - win_move_after(wpnext, curwin); - break; - } - } - } - } else if (split_ret == OK) { - if (!use_firstwin) { /* split current window */ - p_ea_save = p_ea; - p_ea = TRUE; /* use space from all windows */ - split_ret = win_split(0, WSP_ROOM | WSP_BELOW); - p_ea = p_ea_save; - if (split_ret == FAIL) - continue; - } else /* first window: do autocmd for leaving this buffer */ - --autocmd_no_leave; - - /* - * edit file "i" - */ - curwin->w_arg_idx = i; - if (i == 0) { - new_curwin = curwin; - new_curtab = curtab; - } - (void)do_ecmd(0, alist_name(&AARGLIST(alist)[i]), NULL, NULL, - ECMD_ONE, - ((P_HID(curwin->w_buffer) - || bufIsChanged(curwin->w_buffer)) ? ECMD_HIDE : 0) - + ECMD_OLDBUF, curwin); - if (use_firstwin) - ++autocmd_no_leave; - use_firstwin = FALSE; - } - ui_breakcheck(); - - /* When ":tab" was used open a new tab for a new window repeatedly. */ - if (had_tab > 0 && tabpage_index(NULL) <= p_tpm) - cmdmod.tab = 9999; - } - - /* Remove the "lock" on the argument list. */ - alist_unlink(alist); - - --autocmd_no_enter; - /* restore last referenced tabpage's curwin */ - if (last_curtab != new_curtab) { - if (valid_tabpage(last_curtab)) - goto_tabpage_tp(last_curtab, TRUE, TRUE); - if (win_valid(last_curwin)) - win_enter(last_curwin, FALSE); - } - /* to window with first arg */ - if (valid_tabpage(new_curtab)) - goto_tabpage_tp(new_curtab, TRUE, TRUE); - if (win_valid(new_curwin)) - win_enter(new_curwin, FALSE); - - --autocmd_no_leave; - free(opened); -} - -/* - * Open a window for a number of buffers. - */ -void ex_buffer_all(exarg_T *eap) -{ - buf_T *buf; - win_T *wp, *wpnext; - int split_ret = OK; - int p_ea_save; - int open_wins = 0; - int r; - int count; /* Maximum number of windows to open. */ - int all; /* When TRUE also load inactive buffers. */ - int had_tab = cmdmod.tab; - tabpage_T *tpnext; - - if (eap->addr_count == 0) /* make as many windows as possible */ - count = 9999; - else - count = eap->line2; /* make as many windows as specified */ - if (eap->cmdidx == CMD_unhide || eap->cmdidx == CMD_sunhide) - all = FALSE; - else - all = TRUE; - - setpcmark(); - - - /* - * Close superfluous windows (two windows for the same buffer). - * Also close windows that are not full-width. - */ - if (had_tab > 0) - goto_tabpage_tp(first_tabpage, TRUE, TRUE); - for (;; ) { - tpnext = curtab->tp_next; - for (wp = firstwin; wp != NULL; wp = wpnext) { - wpnext = wp->w_next; - if ((wp->w_buffer->b_nwindows > 1 - || ((cmdmod.split & WSP_VERT) - ? wp->w_height + wp->w_status_height < Rows - p_ch - - tabline_height() - : wp->w_width != Columns) - || (had_tab > 0 && wp != firstwin) - ) && firstwin != lastwin - && !(wp->w_closing || wp->w_buffer->b_closing) - ) { - win_close(wp, FALSE); - wpnext = firstwin; /* just in case an autocommand does - something strange with windows */ - tpnext = first_tabpage; /* start all over...*/ - open_wins = 0; - } else - ++open_wins; - } - - /* Without the ":tab" modifier only do the current tab page. */ - if (had_tab == 0 || tpnext == NULL) - break; - goto_tabpage_tp(tpnext, TRUE, TRUE); - } - - /* - * Go through the buffer list. When a buffer doesn't have a window yet, - * open one. Otherwise move the window to the right position. - * Watch out for autocommands that delete buffers or windows! - */ - /* Don't execute Win/Buf Enter/Leave autocommands here. */ - ++autocmd_no_enter; - win_enter(lastwin, FALSE); - ++autocmd_no_leave; - for (buf = firstbuf; buf != NULL && open_wins < count; buf = buf->b_next) { - /* Check if this buffer needs a window */ - if ((!all && buf->b_ml.ml_mfp == NULL) || !buf->b_p_bl) - continue; - - if (had_tab != 0) { - /* With the ":tab" modifier don't move the window. */ - if (buf->b_nwindows > 0) - wp = lastwin; /* buffer has a window, skip it */ - else - wp = NULL; - } else { - /* Check if this buffer already has a window */ - for (wp = firstwin; wp != NULL; wp = wp->w_next) - if (wp->w_buffer == buf) - break; - /* If the buffer already has a window, move it */ - if (wp != NULL) - win_move_after(wp, curwin); - } - - if (wp == NULL && split_ret == OK) { - /* Split the window and put the buffer in it */ - p_ea_save = p_ea; - p_ea = TRUE; /* use space from all windows */ - split_ret = win_split(0, WSP_ROOM | WSP_BELOW); - ++open_wins; - p_ea = p_ea_save; - if (split_ret == FAIL) - continue; - - /* Open the buffer in this window. */ -#if defined(HAS_SWAP_EXISTS_ACTION) - swap_exists_action = SEA_DIALOG; -#endif - set_curbuf(buf, DOBUF_GOTO); - if (!buf_valid(buf)) { /* autocommands deleted the buffer!!! */ -#if defined(HAS_SWAP_EXISTS_ACTION) - swap_exists_action = SEA_NONE; -# endif - break; - } -#if defined(HAS_SWAP_EXISTS_ACTION) - if (swap_exists_action == SEA_QUIT) { - cleanup_T cs; - - /* Reset the error/interrupt/exception state here so that - * aborting() returns FALSE when closing a window. */ - enter_cleanup(&cs); - - /* User selected Quit at ATTENTION prompt; close this window. */ - win_close(curwin, TRUE); - --open_wins; - swap_exists_action = SEA_NONE; - swap_exists_did_quit = TRUE; - - /* Restore the error/interrupt/exception state if not - * discarded by a new aborting error, interrupt, or uncaught - * exception. */ - leave_cleanup(&cs); - } else - handle_swap_exists(NULL); -#endif - } - - ui_breakcheck(); - if (got_int) { - (void)vgetc(); /* only break the file loading, not the rest */ - break; - } - /* Autocommands deleted the buffer or aborted script processing!!! */ - if (aborting()) - break; - /* When ":tab" was used open a new tab for a new window repeatedly. */ - if (had_tab > 0 && tabpage_index(NULL) <= p_tpm) - cmdmod.tab = 9999; - } - --autocmd_no_enter; - win_enter(firstwin, FALSE); /* back to first window */ - --autocmd_no_leave; - - /* - * Close superfluous windows. - */ - for (wp = lastwin; open_wins > count; ) { - r = (P_HID(wp->w_buffer) || !bufIsChanged(wp->w_buffer) - || autowrite(wp->w_buffer, FALSE) == OK); - if (!win_valid(wp)) { - /* BufWrite Autocommands made the window invalid, start over */ - wp = lastwin; - } else if (r) { - win_close(wp, !P_HID(wp->w_buffer)); - --open_wins; - wp = lastwin; - } else { - wp = wp->w_prev; - if (wp == NULL) - break; - } - } -} - - -static int chk_modeline(linenr_T, int); - -/* - * do_modelines() - process mode lines for the current file - * - * "flags" can be: - * OPT_WINONLY only set options local to window - * OPT_NOWIN don't set options local to window - * - * Returns immediately if the "ml" option isn't set. - */ -void do_modelines(int flags) -{ - linenr_T lnum; - int nmlines; - static int entered = 0; - - if (!curbuf->b_p_ml || (nmlines = (int)p_mls) == 0) - return; - - /* Disallow recursive entry here. Can happen when executing a modeline - * triggers an autocommand, which reloads modelines with a ":do". */ - if (entered) - return; - - ++entered; - for (lnum = 1; lnum <= curbuf->b_ml.ml_line_count && lnum <= nmlines; - ++lnum) - if (chk_modeline(lnum, flags) == FAIL) - nmlines = 0; - - for (lnum = curbuf->b_ml.ml_line_count; lnum > 0 && lnum > nmlines - && lnum > curbuf->b_ml.ml_line_count - nmlines; --lnum) - if (chk_modeline(lnum, flags) == FAIL) - nmlines = 0; - --entered; -} - -#include "version_defs.h" /* for version number */ - -/* - * chk_modeline() - check a single line for a mode string - * Return FAIL if an error encountered. - */ -static int -chk_modeline ( - linenr_T lnum, - int flags /* Same as for do_modelines(). */ -) -{ - char_u *s; - char_u *e; - char_u *linecopy; /* local copy of any modeline found */ - int prev; - int vers; - int end; - int retval = OK; - char_u *save_sourcing_name; - linenr_T save_sourcing_lnum; - scid_T save_SID; - - prev = -1; - for (s = ml_get(lnum); *s != NUL; ++s) { - if (prev == -1 || vim_isspace(prev)) { - if ((prev != -1 && STRNCMP(s, "ex:", (size_t)3) == 0) - || STRNCMP(s, "vi:", (size_t)3) == 0) - break; - /* Accept both "vim" and "Vim". */ - if ((s[0] == 'v' || s[0] == 'V') && s[1] == 'i' && s[2] == 'm') { - if (s[3] == '<' || s[3] == '=' || s[3] == '>') - e = s + 4; - else - e = s + 3; - vers = getdigits(&e); - if (*e == ':' - && (s[0] != 'V' - || STRNCMP(skipwhite(e + 1), "set", 3) == 0) - && (s[3] == ':' - || (VIM_VERSION_100 >= vers && isdigit(s[3])) - || (VIM_VERSION_100 < vers && s[3] == '<') - || (VIM_VERSION_100 > vers && s[3] == '>') - || (VIM_VERSION_100 == vers && s[3] == '='))) - break; - } - } - prev = *s; - } - - if (*s) { - do /* skip over "ex:", "vi:" or "vim:" */ - ++s; - while (s[-1] != ':'); - - s = linecopy = vim_strsave(s); /* copy the line, it will change */ - if (linecopy == NULL) - return FAIL; - - save_sourcing_lnum = sourcing_lnum; - save_sourcing_name = sourcing_name; - sourcing_lnum = lnum; /* prepare for emsg() */ - sourcing_name = (char_u *)"modelines"; - - end = FALSE; - while (end == FALSE) { - s = skipwhite(s); - if (*s == NUL) - break; - - /* - * Find end of set command: ':' or end of line. - * Skip over "\:", replacing it with ":". - */ - for (e = s; *e != ':' && *e != NUL; ++e) - if (e[0] == '\\' && e[1] == ':') - STRMOVE(e, e + 1); - if (*e == NUL) - end = TRUE; - - /* - * If there is a "set" command, require a terminating ':' and - * ignore the stuff after the ':'. - * "vi:set opt opt opt: foo" -- foo not interpreted - * "vi:opt opt opt: foo" -- foo interpreted - * Accept "se" for compatibility with Elvis. - */ - if (STRNCMP(s, "set ", (size_t)4) == 0 - || STRNCMP(s, "se ", (size_t)3) == 0) { - if (*e != ':') /* no terminating ':'? */ - break; - end = TRUE; - s = vim_strchr(s, ' ') + 1; - } - *e = NUL; /* truncate the set command */ - - if (*s != NUL) { /* skip over an empty "::" */ - save_SID = current_SID; - current_SID = SID_MODELINE; - retval = do_set(s, OPT_MODELINE | OPT_LOCAL | flags); - current_SID = save_SID; - if (retval == FAIL) /* stop if error found */ - break; - } - s = e + 1; /* advance to next part */ - } - - sourcing_lnum = save_sourcing_lnum; - sourcing_name = save_sourcing_name; - - free(linecopy); - } - return retval; -} - -int read_viminfo_bufferlist(vir_T *virp, int writing) -{ - char_u *tab; - linenr_T lnum; - colnr_T col; - buf_T *buf; - char_u *sfname; - char_u *xline; - - /* Handle long line and escaped characters. */ - xline = viminfo_readstring(virp, 1, FALSE); - - /* don't read in if there are files on the command-line or if writing: */ - if (xline != NULL && !writing && ARGCOUNT == 0 - && find_viminfo_parameter('%') != NULL) { - /* Format is: <fname> Tab <lnum> Tab <col>. - * Watch out for a Tab in the file name, work from the end. */ - lnum = 0; - col = 0; - tab = vim_strrchr(xline, '\t'); - if (tab != NULL) { - *tab++ = '\0'; - col = (colnr_T)atoi((char *)tab); - tab = vim_strrchr(xline, '\t'); - if (tab != NULL) { - *tab++ = '\0'; - lnum = atol((char *)tab); - } - } - - /* Expand "~/" in the file name at "line + 1" to a full path. - * Then try shortening it by comparing with the current directory */ - expand_env(xline, NameBuff, MAXPATHL); - sfname = path_shorten_fname_if_possible(NameBuff); - - buf = buflist_new(NameBuff, sfname, (linenr_T)0, BLN_LISTED); - if (buf != NULL) { /* just in case... */ - buf->b_last_cursor.lnum = lnum; - buf->b_last_cursor.col = col; - buflist_setfpos(buf, curwin, lnum, col, FALSE); - } - } - free(xline); - - return viminfo_readline(virp); -} - -void write_viminfo_bufferlist(FILE *fp) -{ - buf_T *buf; - win_T *win; - tabpage_T *tp; - char_u *line; - int max_buffers; - - if (find_viminfo_parameter('%') == NULL) - return; - - /* Without a number -1 is returned: do all buffers. */ - max_buffers = get_viminfo_parameter('%'); - - /* Allocate room for the file name, lnum and col. */ -#define LINE_BUF_LEN (MAXPATHL + 40) - line = xmalloc(LINE_BUF_LEN); - - FOR_ALL_TAB_WINDOWS(tp, win) - set_last_cursor(win); - - fputs(_("\n# Buffer list:\n"), fp); - for (buf = firstbuf; buf != NULL; buf = buf->b_next) { - if (buf->b_fname == NULL - || !buf->b_p_bl - || bt_quickfix(buf) - || removable(buf->b_ffname)) - continue; - - if (max_buffers-- == 0) - break; - putc('%', fp); - home_replace(NULL, buf->b_ffname, line, MAXPATHL, TRUE); - vim_snprintf_add((char *)line, LINE_BUF_LEN, "\t%" PRId64 "\t%d", - (int64_t)buf->b_last_cursor.lnum, - buf->b_last_cursor.col); - viminfo_writestring(fp, line); - } - free(line); -} - - -/* - * Return special buffer name. - * Returns NULL when the buffer has a normal file name. - */ -char_u *buf_spname(buf_T *buf) -{ - if (bt_quickfix(buf)) { - win_T *win; - tabpage_T *tp; - - /* - * For location list window, w_llist_ref points to the location list. - * For quickfix window, w_llist_ref is NULL. - */ - if (find_win_for_buf(buf, &win, &tp) == OK && win->w_llist_ref != NULL) - return (char_u *)_(msg_loclist); - else - return (char_u *)_(msg_qflist); - } - /* There is no _file_ when 'buftype' is "nofile", b_sfname - * contains the name as specified by the user */ - if (bt_nofile(buf)) { - if (buf->b_sfname != NULL) - return buf->b_sfname; - return (char_u *)_("[Scratch]"); - } - if (buf->b_fname == NULL) - return (char_u *)_("[No Name]"); - return NULL; -} - -/* - * Find a window for buffer "buf". - * If found OK is returned and "wp" and "tp" are set to the window and tabpage. - * If not found FAIL is returned. - */ -int find_win_for_buf(buf_T *buf, win_T **wp, tabpage_T **tp) -{ - FOR_ALL_TAB_WINDOWS(*tp, *wp) - if ((*wp)->w_buffer == buf) - goto win_found; - return FAIL; -win_found: - return OK; -} - -/* - * Insert the sign into the signlist. - */ -static void insert_sign( - buf_T *buf, /* buffer to store sign in */ - signlist_T *prev, /* previous sign entry */ - signlist_T *next, /* next sign entry */ - int id, /* sign ID */ - linenr_T lnum, /* line number which gets the mark */ - int typenr /* typenr of sign we are adding */ - ) -{ - signlist_T *newsign = xmalloc(sizeof(signlist_T)); - newsign->id = id; - newsign->lnum = lnum; - newsign->typenr = typenr; - newsign->next = next; - - if (prev == NULL) { - /* When adding first sign need to redraw the windows to create the - * column for signs. */ - if (buf->b_signlist == NULL) { - redraw_buf_later(buf, NOT_VALID); - changed_cline_bef_curs(); - } - - /* first sign in signlist */ - buf->b_signlist = newsign; - } - else { - prev->next = newsign; - } -} - -/* - * Add the sign into the signlist. Find the right spot to do it though. - */ -void buf_addsign( - buf_T *buf, /* buffer to store sign in */ - int id, /* sign ID */ - linenr_T lnum, /* line number which gets the mark */ - int typenr /* typenr of sign we are adding */ - ) -{ - signlist_T *sign; /* a sign in the signlist */ - signlist_T *prev; /* the previous sign */ - - prev = NULL; - for (sign = buf->b_signlist; sign != NULL; sign = sign->next) { - if (lnum == sign->lnum && id == sign->id) { - sign->typenr = typenr; - return; - } - else if (id < 0 /* keep signs sorted by lnum */ - && lnum < sign->lnum) - { - insert_sign(buf, prev, sign, id, lnum, typenr); - return; - } - prev = sign; - } - insert_sign(buf, prev, sign, id, lnum, typenr); - - return; -} - -linenr_T buf_change_sign_type( - buf_T *buf, /* buffer to store sign in */ - int markId, /* sign ID */ - int typenr /* typenr of sign we are adding */ - ) -{ - signlist_T *sign; /* a sign in the signlist */ - - for (sign = buf->b_signlist; sign != NULL; sign = sign->next) { - if (sign->id == markId) { - sign->typenr = typenr; - return sign->lnum; - } - } - - return (linenr_T)0; -} - -int buf_getsigntype( - buf_T *buf, - linenr_T lnum, - int type /* SIGN_ICON, SIGN_TEXT, SIGN_ANY, SIGN_LINEHL */ - ) -{ - signlist_T *sign; /* a sign in a b_signlist */ - - for (sign = buf->b_signlist; sign != NULL; sign = sign->next) { - if (sign->lnum == lnum - && (type == SIGN_ANY - || (type == SIGN_TEXT - && sign_get_text(sign->typenr) != NULL) - || (type == SIGN_LINEHL - && sign_get_attr(sign->typenr, TRUE) != 0))) { - return sign->typenr; - } - } - return 0; -} - - -linenr_T buf_delsign( - buf_T *buf, /* buffer sign is stored in */ - int id /* sign id */ - ) -{ - signlist_T **lastp; /* pointer to pointer to current sign */ - signlist_T *sign; /* a sign in a b_signlist */ - signlist_T *next; /* the next sign in a b_signlist */ - linenr_T lnum; /* line number whose sign was deleted */ - - lastp = &buf->b_signlist; - lnum = 0; - for (sign = buf->b_signlist; sign != NULL; sign = next) { - next = sign->next; - if (sign->id == id) { - *lastp = next; - lnum = sign->lnum; - free(sign); - break; - } else { - lastp = &sign->next; - } - } - - /* When deleted the last sign needs to redraw the windows to remove the - * sign column. */ - if (buf->b_signlist == NULL) { - redraw_buf_later(buf, NOT_VALID); - changed_cline_bef_curs(); - } - - return lnum; -} - - -/* - * Find the line number of the sign with the requested id. If the sign does - * not exist, return 0 as the line number. This will still let the correct file - * get loaded. - */ -int buf_findsign( - buf_T *buf, /* buffer to store sign in */ - int id /* sign ID */ - ) -{ - signlist_T *sign; /* a sign in the signlist */ - - for (sign = buf->b_signlist; sign != NULL; sign = sign->next) { - if (sign->id == id) { - return sign->lnum; - } - } - - return 0; -} - -int buf_findsign_id( - buf_T *buf, /* buffer whose sign we are searching for */ - linenr_T lnum /* line number of sign */ - ) -{ - signlist_T *sign; /* a sign in the signlist */ - - for (sign = buf->b_signlist; sign != NULL; sign = sign->next) { - if (sign->lnum == lnum) { - return sign->id; - } - } - - return 0; -} - - -/* - * Delete signs in buffer "buf". - */ -void buf_delete_signs(buf_T *buf) -{ - signlist_T *next; - - while (buf->b_signlist != NULL) { - next = buf->b_signlist->next; - free(buf->b_signlist); - buf->b_signlist = next; - } -} - -/* - * Delete all signs in all buffers. - */ -void buf_delete_all_signs() -{ - buf_T *buf; /* buffer we are checking for signs */ - - for (buf = firstbuf; buf != NULL; buf = buf->b_next) { - if (buf->b_signlist != NULL) { - /* Need to redraw the windows to remove the sign column. */ - redraw_buf_later(buf, NOT_VALID); - buf_delete_signs(buf); - } - } -} - -/* - * List placed signs for "rbuf". If "rbuf" is NULL do it for all buffers. - */ -void sign_list_placed(buf_T *rbuf) -{ - buf_T *buf; - signlist_T *p; - char lbuf[BUFSIZ]; - - MSG_PUTS_TITLE(_("\n--- Signs ---")); - msg_putchar('\n'); - if (rbuf == NULL) { - buf = firstbuf; - } else { - buf = rbuf; - } - while (buf != NULL && !got_int) { - if (buf->b_signlist != NULL) { - vim_snprintf(lbuf, BUFSIZ, _("Signs for %s:"), buf->b_fname); - MSG_PUTS_ATTR(lbuf, hl_attr(HLF_D)); - msg_putchar('\n'); - } - for (p = buf->b_signlist; p != NULL && !got_int; p = p->next) { - vim_snprintf(lbuf, BUFSIZ, _(" line=%" PRId64 " id=%d name=%s"), - (int64_t)p->lnum, p->id, sign_typenr2name(p->typenr)); - MSG_PUTS(lbuf); - msg_putchar('\n'); - } - if (rbuf != NULL) { - break; - } - buf = buf->b_next; - } -} - -/* - * Adjust a placed sign for inserted/deleted lines. - */ -void sign_mark_adjust(linenr_T line1, linenr_T line2, long amount, long amount_after) -{ - signlist_T *sign; /* a sign in a b_signlist */ - - for (sign = curbuf->b_signlist; sign != NULL; sign = sign->next) { - if (sign->lnum >= line1 && sign->lnum <= line2) { - if (amount == MAXLNUM) { - sign->lnum = line1; - } else { - sign->lnum += amount; - } - } - else if (sign->lnum > line2) - sign->lnum += amount_after; - } -} - -/* - * Set 'buflisted' for curbuf to "on" and trigger autocommands if it changed. - */ -void set_buflisted(int on) -{ - if (on != curbuf->b_p_bl) { - curbuf->b_p_bl = on; - if (on) - apply_autocmds(EVENT_BUFADD, NULL, NULL, FALSE, curbuf); - else - apply_autocmds(EVENT_BUFDELETE, NULL, NULL, FALSE, curbuf); - } -} - -/* - * Read the file for "buf" again and check if the contents changed. - * Return TRUE if it changed or this could not be checked. - */ -int buf_contents_changed(buf_T *buf) -{ - buf_T *newbuf; - int differ = TRUE; - linenr_T lnum; - aco_save_T aco; - exarg_T ea; - - /* Allocate a buffer without putting it in the buffer list. */ - newbuf = buflist_new(NULL, NULL, (linenr_T)1, BLN_DUMMY); - if (newbuf == NULL) - return TRUE; - - /* Force the 'fileencoding' and 'fileformat' to be equal. */ - prep_exarg(&ea, buf); - - /* set curwin/curbuf to buf and save a few things */ - aucmd_prepbuf(&aco, newbuf); - - if (ml_open(curbuf) == OK - && readfile(buf->b_ffname, buf->b_fname, - (linenr_T)0, (linenr_T)0, (linenr_T)MAXLNUM, - &ea, READ_NEW | READ_DUMMY) == OK) { - /* compare the two files line by line */ - if (buf->b_ml.ml_line_count == curbuf->b_ml.ml_line_count) { - differ = FALSE; - for (lnum = 1; lnum <= curbuf->b_ml.ml_line_count; ++lnum) - if (STRCMP(ml_get_buf(buf, lnum, FALSE), ml_get(lnum)) != 0) { - differ = TRUE; - break; - } - } - } - free(ea.cmd); - - /* restore curwin/curbuf and a few other things */ - aucmd_restbuf(&aco); - - if (curbuf != newbuf) /* safety check */ - wipe_buffer(newbuf, FALSE); - - return differ; -} - -/* - * Wipe out a buffer and decrement the last buffer number if it was used for - * this buffer. Call this to wipe out a temp buffer that does not contain any - * marks. - */ -void -wipe_buffer ( - buf_T *buf, - int aucmd /* When TRUE trigger autocommands. */ -) -{ - if (buf->b_fnum == top_file_num - 1) - --top_file_num; - - if (!aucmd) /* Don't trigger BufDelete autocommands here. */ - block_autocmds(); - close_buffer(NULL, buf, DOBUF_WIPE, FALSE); - if (!aucmd) - unblock_autocmds(); -} |