aboutsummaryrefslogtreecommitdiff
path: root/src/nvim/ex_cmds2.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/nvim/ex_cmds2.c')
-rw-r--r--src/nvim/ex_cmds2.c1867
1 files changed, 6 insertions, 1861 deletions
diff --git a/src/nvim/ex_cmds2.c b/src/nvim/ex_cmds2.c
index 730a2f1b69..54315a6417 100644
--- a/src/nvim/ex_cmds2.c
+++ b/src/nvim/ex_cmds2.c
@@ -11,30 +11,27 @@
#include <stdbool.h>
#include <string.h>
+#include "nvim/arglist.h"
#include "nvim/ascii.h"
+#include "nvim/autocmd.h"
#include "nvim/globals.h"
#include "nvim/vim.h"
#ifdef HAVE_LOCALE_H
# include <locale.h>
#endif
-#include "nvim/api/private/defs.h"
-#include "nvim/api/private/helpers.h"
#include "nvim/buffer.h"
#include "nvim/change.h"
#include "nvim/charset.h"
-#include "nvim/debugger.h"
-#include "nvim/eval/userfunc.h"
+#include "nvim/eval.h"
#include "nvim/eval/vars.h"
#include "nvim/ex_cmds.h"
#include "nvim/ex_cmds2.h"
+#include "nvim/ex_docmd.h"
#include "nvim/ex_eval.h"
#include "nvim/ex_getln.h"
#include "nvim/fileio.h"
-#include "nvim/garray.h"
-#include "nvim/lua/executor.h"
#include "nvim/mark.h"
#include "nvim/mbyte.h"
-#include "nvim/memline.h"
#include "nvim/memory.h"
#include "nvim/message.h"
#include "nvim/move.h"
@@ -42,101 +39,19 @@
#include "nvim/ops.h"
#include "nvim/option.h"
#include "nvim/os/fs_defs.h"
-#include "nvim/os/input.h"
#include "nvim/os/shell.h"
#include "nvim/os_unix.h"
#include "nvim/path.h"
-#include "nvim/profile.h"
#include "nvim/quickfix.h"
-#include "nvim/regexp.h"
+#include "nvim/runtime.h"
#include "nvim/strings.h"
#include "nvim/undo.h"
-#include "nvim/version.h"
#include "nvim/window.h"
-/// Growarray to store info about already sourced scripts.
-static garray_T script_items = { 0, 0, sizeof(scriptitem_T), 4, NULL };
-#define SCRIPT_ITEM(id) (((scriptitem_T *)script_items.ga_data)[(id) - 1])
-
-// Struct used in sn_prl_ga for every line of a script.
-typedef struct sn_prl_S {
- int snp_count; ///< nr of times line was executed
- proftime_T sn_prl_total; ///< time spent in a line + children
- proftime_T sn_prl_self; ///< time spent in a line itself
-} sn_prl_T;
-
-/// Structure used to store info for each sourced file.
-/// It is shared between do_source() and getsourceline().
-/// This is required, because it needs to be handed to do_cmdline() and
-/// sourcing can be done recursively.
-struct source_cookie {
- FILE *fp; ///< opened file for sourcing
- char *nextline; ///< if not NULL: line that was read ahead
- linenr_T sourcing_lnum; ///< line number of the source file
- int finished; ///< ":finish" used
-#if defined(USE_CRNL)
- int fileformat; ///< EOL_UNKNOWN, EOL_UNIX or EOL_DOS
- bool error; ///< true if LF found after CR-LF
-#endif
- linenr_T breakpoint; ///< next line with breakpoint or zero
- char *fname; ///< name of sourced file
- int dbg_tick; ///< debug_tick when breakpoint was set
- int level; ///< top nesting level of sourced file
- vimconv_T conv; ///< type of conversion
-};
-
-#define PRL_ITEM(si, idx) (((sn_prl_T *)(si)->sn_prl_ga.ga_data)[(idx)])
-
#ifdef INCLUDE_GENERATED_DECLARATIONS
# include "ex_cmds2.c.generated.h"
#endif
-static char *profile_fname = NULL;
-
-/// ":profile cmd args"
-void ex_profile(exarg_T *eap)
-{
- static proftime_T pause_time;
-
- char *e;
- int len;
-
- e = (char *)skiptowhite((char_u *)eap->arg);
- len = (int)(e - eap->arg);
- e = skipwhite(e);
-
- if (len == 5 && STRNCMP(eap->arg, "start", 5) == 0 && *e != NUL) {
- xfree(profile_fname);
- profile_fname = (char *)expand_env_save_opt((char_u *)e, true);
- do_profiling = PROF_YES;
- profile_set_wait(profile_zero());
- set_vim_var_nr(VV_PROFILING, 1L);
- } else if (do_profiling == PROF_NONE) {
- emsg(_("E750: First use \":profile start {fname}\""));
- } else if (STRCMP(eap->arg, "stop") == 0) {
- profile_dump();
- do_profiling = PROF_NONE;
- set_vim_var_nr(VV_PROFILING, 0L);
- profile_reset();
- } else if (STRCMP(eap->arg, "pause") == 0) {
- if (do_profiling == PROF_YES) {
- pause_time = profile_start();
- }
- do_profiling = PROF_PAUSED;
- } else if (STRCMP(eap->arg, "continue") == 0) {
- if (do_profiling == PROF_PAUSED) {
- pause_time = profile_end(pause_time);
- profile_set_wait(profile_add(profile_get_wait(), pause_time));
- }
- do_profiling = PROF_YES;
- } else if (STRCMP(eap->arg, "dump") == 0) {
- profile_dump();
- } else {
- // The rest is similar to ":breakadd".
- ex_breakadd(eap);
- }
-}
-
void ex_ruby(exarg_T *eap)
{
script_host_execute("ruby", eap);
@@ -182,273 +97,6 @@ void ex_perldo(exarg_T *eap)
script_host_do_range("perl", eap);
}
-// Command line expansion for :profile.
-static enum {
- PEXP_SUBCMD, ///< expand :profile sub-commands
- PEXP_FUNC, ///< expand :profile func {funcname}
-} pexpand_what;
-
-static char *pexpand_cmds[] = {
- "continue",
- "dump",
- "file",
- "func",
- "pause",
- "start",
- "stop",
- NULL
-};
-
-/// Function given to ExpandGeneric() to obtain the profile command
-/// specific expansion.
-char *get_profile_name(expand_T *xp, int idx)
- FUNC_ATTR_PURE
-{
- switch (pexpand_what) {
- case PEXP_SUBCMD:
- return pexpand_cmds[idx];
- // case PEXP_FUNC: TODO
- default:
- return NULL;
- }
-}
-
-/// Handle command line completion for :profile command.
-void set_context_in_profile_cmd(expand_T *xp, const char *arg)
-{
- // Default: expand subcommands.
- xp->xp_context = EXPAND_PROFILE;
- pexpand_what = PEXP_SUBCMD;
- xp->xp_pattern = (char *)arg;
-
- char_u *const end_subcmd = skiptowhite((const char_u *)arg);
- if (*end_subcmd == NUL) {
- return;
- }
-
- if ((const char *)end_subcmd - arg == 5 && strncmp(arg, "start", 5) == 0) {
- xp->xp_context = EXPAND_FILES;
- xp->xp_pattern = skipwhite((char *)end_subcmd);
- return;
- }
-
- // TODO(tarruda): expand function names after "func"
- xp->xp_context = EXPAND_NOTHING;
-}
-
-/// Dump the profiling info.
-void profile_dump(void)
-{
- FILE *fd;
-
- if (profile_fname != NULL) {
- fd = os_fopen(profile_fname, "w");
- if (fd == NULL) {
- semsg(_(e_notopen), profile_fname);
- } else {
- script_dump_profile(fd);
- func_dump_profile(fd);
- fclose(fd);
- }
- }
-}
-
-/// Reset all profiling information.
-static void profile_reset(void)
-{
- // Reset sourced files.
- for (int id = 1; id <= script_items.ga_len; id++) {
- scriptitem_T *si = &SCRIPT_ITEM(id);
- if (si->sn_prof_on) {
- si->sn_prof_on = false;
- si->sn_pr_force = false;
- si->sn_pr_child = profile_zero();
- si->sn_pr_nest = 0;
- si->sn_pr_count = 0;
- si->sn_pr_total = profile_zero();
- si->sn_pr_self = profile_zero();
- si->sn_pr_start = profile_zero();
- si->sn_pr_children = profile_zero();
- ga_clear(&si->sn_prl_ga);
- si->sn_prl_start = profile_zero();
- si->sn_prl_children = profile_zero();
- si->sn_prl_wait = profile_zero();
- si->sn_prl_idx = -1;
- si->sn_prl_execed = 0;
- }
- }
-
- // Reset functions.
- size_t n = func_hashtab.ht_used;
- hashitem_T *hi = func_hashtab.ht_array;
-
- for (; n > (size_t)0; hi++) {
- if (!HASHITEM_EMPTY(hi)) {
- n--;
- ufunc_T *uf = HI2UF(hi);
- if (uf->uf_prof_initialized) {
- uf->uf_profiling = 0;
- uf->uf_tm_count = 0;
- uf->uf_tm_total = profile_zero();
- uf->uf_tm_self = profile_zero();
- uf->uf_tm_children = profile_zero();
-
- for (int i = 0; i < uf->uf_lines.ga_len; i++) {
- uf->uf_tml_count[i] = 0;
- uf->uf_tml_total[i] = uf->uf_tml_self[i] = 0;
- }
-
- uf->uf_tml_start = profile_zero();
- uf->uf_tml_children = profile_zero();
- uf->uf_tml_wait = profile_zero();
- uf->uf_tml_idx = -1;
- uf->uf_tml_execed = 0;
- }
- }
- }
-
- XFREE_CLEAR(profile_fname);
-}
-
-/// Start profiling a script.
-static void profile_init(scriptitem_T *si)
-{
- si->sn_pr_count = 0;
- si->sn_pr_total = profile_zero();
- si->sn_pr_self = profile_zero();
-
- ga_init(&si->sn_prl_ga, sizeof(sn_prl_T), 100);
- si->sn_prl_idx = -1;
- si->sn_prof_on = true;
- si->sn_pr_nest = 0;
-}
-
-/// Save time when starting to invoke another script or function.
-///
-/// @param tm place to store wait time
-void script_prof_save(proftime_T *tm)
-{
- scriptitem_T *si;
-
- if (current_sctx.sc_sid > 0 && current_sctx.sc_sid <= script_items.ga_len) {
- si = &SCRIPT_ITEM(current_sctx.sc_sid);
- if (si->sn_prof_on && si->sn_pr_nest++ == 0) {
- si->sn_pr_child = profile_start();
- }
- }
- *tm = profile_get_wait();
-}
-
-/// Count time spent in children after invoking another script or function.
-void script_prof_restore(proftime_T *tm)
-{
- scriptitem_T *si;
-
- if (current_sctx.sc_sid > 0 && current_sctx.sc_sid <= script_items.ga_len) {
- si = &SCRIPT_ITEM(current_sctx.sc_sid);
- if (si->sn_prof_on && --si->sn_pr_nest == 0) {
- si->sn_pr_child = profile_end(si->sn_pr_child);
- // don't count wait time
- si->sn_pr_child = profile_sub_wait(*tm, si->sn_pr_child);
- si->sn_pr_children = profile_add(si->sn_pr_children, si->sn_pr_child);
- si->sn_prl_children = profile_add(si->sn_prl_children, si->sn_pr_child);
- }
- }
-}
-
-static proftime_T inchar_time;
-
-/// Called when starting to wait for the user to type a character.
-void prof_inchar_enter(void)
-{
- inchar_time = profile_start();
-}
-
-/// Called when finished waiting for the user to type a character.
-void prof_inchar_exit(void)
-{
- inchar_time = profile_end(inchar_time);
- profile_set_wait(profile_add(profile_get_wait(), inchar_time));
-}
-
-/// Dump the profiling results for all scripts in file "fd".
-static void script_dump_profile(FILE *fd)
-{
- scriptitem_T *si;
- FILE *sfd;
- sn_prl_T *pp;
-
- for (int id = 1; id <= script_items.ga_len; id++) {
- si = &SCRIPT_ITEM(id);
- if (si->sn_prof_on) {
- fprintf(fd, "SCRIPT %s\n", si->sn_name);
- if (si->sn_pr_count == 1) {
- fprintf(fd, "Sourced 1 time\n");
- } else {
- fprintf(fd, "Sourced %d times\n", si->sn_pr_count);
- }
- fprintf(fd, "Total time: %s\n", profile_msg(si->sn_pr_total));
- fprintf(fd, " Self time: %s\n", profile_msg(si->sn_pr_self));
- fprintf(fd, "\n");
- fprintf(fd, "count total (s) self (s)\n");
-
- sfd = os_fopen((char *)si->sn_name, "r");
- if (sfd == NULL) {
- fprintf(fd, "Cannot open file!\n");
- } else {
- // Keep going till the end of file, so that trailing
- // continuation lines are listed.
- for (int i = 0;; i++) {
- if (vim_fgets(IObuff, IOSIZE, sfd)) {
- break;
- }
- // When a line has been truncated, append NL, taking care
- // of multi-byte characters .
- if (IObuff[IOSIZE - 2] != NUL && IObuff[IOSIZE - 2] != NL) {
- int n = IOSIZE - 2;
-
- // Move to the first byte of this char.
- // utf_head_off() doesn't work, because it checks
- // for a truncated character.
- while (n > 0 && (IObuff[n] & 0xc0) == 0x80) {
- n--;
- }
-
- IObuff[n] = NL;
- IObuff[n + 1] = NUL;
- }
- if (i < si->sn_prl_ga.ga_len
- && (pp = &PRL_ITEM(si, i))->snp_count > 0) {
- fprintf(fd, "%5d ", pp->snp_count);
- if (profile_equal(pp->sn_prl_total, pp->sn_prl_self)) {
- fprintf(fd, " ");
- } else {
- fprintf(fd, "%s ", profile_msg(pp->sn_prl_total));
- }
- fprintf(fd, "%s ", profile_msg(pp->sn_prl_self));
- } else {
- fprintf(fd, " ");
- }
- fprintf(fd, "%s", IObuff);
- }
- fclose(sfd);
- }
- fprintf(fd, "\n");
- }
- }
-}
-
-/// @return true when a function defined in the current script should be
-/// profiled.
-bool prof_def_func(void)
- FUNC_ATTR_PURE
-{
- if (current_sctx.sc_sid > 0) {
- return SCRIPT_ITEM(current_sctx.sc_sid).sn_pr_force;
- }
- return false;
-}
-
/// If 'autowrite' option set, try to write the file.
/// Careful: autocommands may make "buf" invalid!
///
@@ -796,483 +444,6 @@ int buf_write_all(buf_T *buf, int forceit)
return retval;
}
-/// Code to handle the argument list.
-
-#define AL_SET 1
-#define AL_ADD 2
-#define AL_DEL 3
-
-/// Isolate one argument, taking backticks.
-/// Changes the argument in-place, puts a NUL after it. Backticks remain.
-///
-/// @return a pointer to the start of the next argument.
-static char *do_one_arg(char *str)
-{
- char *p;
- bool inbacktick;
-
- inbacktick = false;
- for (p = str; *str; str++) {
- // When the backslash is used for escaping the special meaning of a
- // character we need to keep it until wildcard expansion.
- if (rem_backslash((char_u *)str)) {
- *p++ = *str++;
- *p++ = *str;
- } else {
- // An item ends at a space not in backticks
- if (!inbacktick && ascii_isspace(*str)) {
- break;
- }
- if (*str == '`') {
- inbacktick ^= true;
- }
- *p++ = *str;
- }
- }
- str = skipwhite(str);
- *p = NUL;
-
- return str;
-}
-
-/// Separate the arguments in "str" and return a list of pointers in the
-/// growarray "gap".
-static void get_arglist(garray_T *gap, char *str, int escaped)
-{
- ga_init(gap, (int)sizeof(char_u *), 20);
- while (*str != NUL) {
- GA_APPEND(char *, gap, str);
-
- // If str is escaped, don't handle backslashes or spaces
- if (!escaped) {
- return;
- }
-
- // Isolate one argument, change it in-place, put a NUL after it.
- str = do_one_arg(str);
- }
-}
-
-/// Parse a list of arguments (file names), expand them and return in
-/// "fnames[fcountp]". When "wig" is true, removes files matching 'wildignore'.
-///
-/// @return FAIL or OK.
-int get_arglist_exp(char_u *str, int *fcountp, char ***fnamesp, bool wig)
-{
- garray_T ga;
- int i;
-
- get_arglist(&ga, (char *)str, true);
-
- if (wig) {
- i = expand_wildcards(ga.ga_len, ga.ga_data,
- fcountp, fnamesp, EW_FILE|EW_NOTFOUND|EW_NOTWILD);
- } else {
- i = gen_expand_wildcards(ga.ga_len, ga.ga_data,
- fcountp, fnamesp, EW_FILE|EW_NOTFOUND|EW_NOTWILD);
- }
-
- ga_clear(&ga);
- return i;
-}
-
-/// @param str
-/// @param what
-/// AL_SET: Redefine the argument list to 'str'.
-/// AL_ADD: add files in 'str' to the argument list after "after".
-/// AL_DEL: remove files in 'str' from the argument list.
-/// @param after
-/// 0 means before first one
-/// @param will_edit will edit added argument
-///
-/// @return FAIL for failure, OK otherwise.
-static int do_arglist(char *str, int what, int after, bool will_edit)
- FUNC_ATTR_NONNULL_ALL
-{
- garray_T new_ga;
- int exp_count;
- char **exp_files;
- char *p;
- int match;
- int arg_escaped = true;
-
- // Set default argument for ":argadd" command.
- if (what == AL_ADD && *str == NUL) {
- if (curbuf->b_ffname == NULL) {
- return FAIL;
- }
- str = curbuf->b_fname;
- arg_escaped = false;
- }
-
- // Collect all file name arguments in "new_ga".
- get_arglist(&new_ga, str, arg_escaped);
-
- if (what == AL_DEL) {
- regmatch_T regmatch;
- bool didone;
-
- // Delete the items: use each item as a regexp and find a match in the
- // argument list.
- regmatch.rm_ic = p_fic; // ignore case when 'fileignorecase' is set
- for (int i = 0; i < new_ga.ga_len && !got_int; i++) {
- p = ((char **)new_ga.ga_data)[i];
- p = file_pat_to_reg_pat(p, NULL, NULL, false);
- if (p == NULL) {
- break;
- }
- regmatch.regprog = vim_regcomp(p, p_magic ? RE_MAGIC : 0);
- if (regmatch.regprog == NULL) {
- xfree(p);
- break;
- }
-
- didone = false;
- for (match = 0; match < ARGCOUNT; match++) {
- if (vim_regexec(&regmatch, alist_name(&ARGLIST[match]), (colnr_T)0)) {
- didone = true;
- xfree(ARGLIST[match].ae_fname);
- memmove(ARGLIST + match, ARGLIST + match + 1,
- (size_t)(ARGCOUNT - match - 1) * sizeof(aentry_T));
- ALIST(curwin)->al_ga.ga_len--;
- if (curwin->w_arg_idx > match) {
- curwin->w_arg_idx--;
- }
- match--;
- }
- }
-
- vim_regfree(regmatch.regprog);
- xfree(p);
- if (!didone) {
- semsg(_(e_nomatch2), ((char_u **)new_ga.ga_data)[i]);
- }
- }
- ga_clear(&new_ga);
- } else {
- int i = expand_wildcards(new_ga.ga_len, new_ga.ga_data,
- &exp_count, &exp_files,
- EW_DIR|EW_FILE|EW_ADDSLASH|EW_NOTFOUND);
- ga_clear(&new_ga);
- if (i == FAIL || exp_count == 0) {
- emsg(_(e_nomatch));
- return FAIL;
- }
-
- if (what == AL_ADD) {
- alist_add_list(exp_count, exp_files, after, will_edit);
- xfree(exp_files);
- } else {
- assert(what == AL_SET);
- alist_set(ALIST(curwin), exp_count, exp_files, will_edit, NULL, 0);
- }
- }
-
- alist_check_arg_idx();
-
- return OK;
-}
-
-/// Check the validity of the arg_idx for each other window.
-static void alist_check_arg_idx(void)
-{
- FOR_ALL_TAB_WINDOWS(tp, win) {
- if (win->w_alist == curwin->w_alist) {
- check_arg_idx(win);
- }
- }
-}
-
-/// @return true if window "win" is editing the file at the current argument
-/// index.
-static bool editing_arg_idx(win_T *win)
-{
- return !(win->w_arg_idx >= WARGCOUNT(win)
- || (win->w_buffer->b_fnum
- != WARGLIST(win)[win->w_arg_idx].ae_fnum
- && (win->w_buffer->b_ffname == NULL
- || !(path_full_compare(alist_name(&WARGLIST(win)[win->w_arg_idx]),
- win->w_buffer->b_ffname, true,
- true) & kEqualFiles))));
-}
-
-/// Check if window "win" is editing the w_arg_idx file in its argument list.
-void check_arg_idx(win_T *win)
-{
- if (WARGCOUNT(win) > 1 && !editing_arg_idx(win)) {
- // We are not editing the current entry in the argument list.
- // Set "arg_had_last" if we are editing the last one.
- win->w_arg_idx_invalid = true;
- if (win->w_arg_idx != WARGCOUNT(win) - 1
- && arg_had_last == false
- && ALIST(win) == &global_alist
- && GARGCOUNT > 0
- && win->w_arg_idx < GARGCOUNT
- && (win->w_buffer->b_fnum == GARGLIST[GARGCOUNT - 1].ae_fnum
- || (win->w_buffer->b_ffname != NULL
- && (path_full_compare(alist_name(&GARGLIST[GARGCOUNT - 1]),
- win->w_buffer->b_ffname, true, true)
- & kEqualFiles)))) {
- arg_had_last = true;
- }
- } else {
- // We are editing the current entry in the argument list.
- // Set "arg_had_last" if it's also the last one
- win->w_arg_idx_invalid = false;
- if (win->w_arg_idx == WARGCOUNT(win) - 1 && win->w_alist == &global_alist) {
- arg_had_last = true;
- }
- }
-}
-
-/// ":args", ":argslocal" and ":argsglobal".
-void ex_args(exarg_T *eap)
-{
- if (eap->cmdidx != CMD_args) {
- alist_unlink(ALIST(curwin));
- if (eap->cmdidx == CMD_argglobal) {
- ALIST(curwin) = &global_alist;
- } else { // eap->cmdidx == CMD_arglocal
- alist_new();
- }
- }
-
- if (*eap->arg != NUL) {
- // ":args file ..": define new argument list, handle like ":next"
- // Also for ":argslocal file .." and ":argsglobal file ..".
- ex_next(eap);
- } else if (eap->cmdidx == CMD_args) {
- // ":args": list arguments.
- if (ARGCOUNT > 0) {
- char **items = xmalloc(sizeof(char_u *) * (size_t)ARGCOUNT);
- // Overwrite the command, for a short list there is no scrolling
- // required and no wait_return().
- gotocmdline(true);
- for (int i = 0; i < ARGCOUNT; i++) {
- items[i] = alist_name(&ARGLIST[i]);
- }
- list_in_columns((char_u **)items, ARGCOUNT, curwin->w_arg_idx);
- xfree(items);
- }
- } else if (eap->cmdidx == CMD_arglocal) {
- garray_T *gap = &curwin->w_alist->al_ga;
-
- // ":argslocal": make a local copy of the global argument list.
- ga_grow(gap, GARGCOUNT);
- for (int i = 0; i < GARGCOUNT; i++) {
- if (GARGLIST[i].ae_fname != NULL) {
- AARGLIST(curwin->w_alist)[gap->ga_len].ae_fname =
- vim_strsave(GARGLIST[i].ae_fname);
- AARGLIST(curwin->w_alist)[gap->ga_len].ae_fnum =
- GARGLIST[i].ae_fnum;
- gap->ga_len++;
- }
- }
- }
-}
-
-/// ":previous", ":sprevious", ":Next" and ":sNext".
-void ex_previous(exarg_T *eap)
-{
- // If past the last one already, go to the last one.
- if (curwin->w_arg_idx - (int)eap->line2 >= ARGCOUNT) {
- do_argfile(eap, ARGCOUNT - 1);
- } else {
- do_argfile(eap, curwin->w_arg_idx - (int)eap->line2);
- }
-}
-
-/// ":rewind", ":first", ":sfirst" and ":srewind".
-void ex_rewind(exarg_T *eap)
-{
- do_argfile(eap, 0);
-}
-
-/// ":last" and ":slast".
-void ex_last(exarg_T *eap)
-{
- do_argfile(eap, ARGCOUNT - 1);
-}
-
-/// ":argument" and ":sargument".
-void ex_argument(exarg_T *eap)
-{
- int i;
-
- if (eap->addr_count > 0) {
- i = (int)eap->line2 - 1;
- } else {
- i = curwin->w_arg_idx;
- }
- do_argfile(eap, i);
-}
-
-/// Edit file "argn" of the argument lists.
-void do_argfile(exarg_T *eap, int argn)
-{
- int other;
- char *p;
- int old_arg_idx = curwin->w_arg_idx;
-
- if (argn < 0 || argn >= ARGCOUNT) {
- if (ARGCOUNT <= 1) {
- emsg(_("E163: There is only one file to edit"));
- } else if (argn < 0) {
- emsg(_("E164: Cannot go before first file"));
- } else {
- emsg(_("E165: Cannot go beyond last file"));
- }
- } else {
- setpcmark();
-
- // split window or create new tab page first
- if (*eap->cmd == 's' || cmdmod.cmod_tab != 0) {
- if (win_split(0, 0) == FAIL) {
- return;
- }
- RESET_BINDING(curwin);
- } else {
- // if 'hidden' set, only check for changed file when re-editing
- // the same buffer
- other = true;
- if (buf_hide(curbuf)) {
- p = fix_fname(alist_name(&ARGLIST[argn]));
- other = otherfile(p);
- xfree(p);
- }
- if ((!buf_hide(curbuf) || !other)
- && check_changed(curbuf, CCGD_AW
- | (other ? 0 : CCGD_MULTWIN)
- | (eap->forceit ? CCGD_FORCEIT : 0)
- | CCGD_EXCMD)) {
- return;
- }
- }
-
- curwin->w_arg_idx = argn;
- if (argn == ARGCOUNT - 1 && curwin->w_alist == &global_alist) {
- arg_had_last = true;
- }
-
- // Edit the file; always use the last known line number.
- // When it fails (e.g. Abort for already edited file) restore the
- // argument index.
- if (do_ecmd(0, alist_name(&ARGLIST[curwin->w_arg_idx]), NULL,
- eap, ECMD_LAST,
- (buf_hide(curwin->w_buffer) ? ECMD_HIDE : 0)
- + (eap->forceit ? ECMD_FORCEIT : 0), curwin) == FAIL) {
- curwin->w_arg_idx = old_arg_idx;
- } else if (eap->cmdidx != CMD_argdo) {
- // like Vi: set the mark where the cursor is in the file.
- setmark('\'');
- }
- }
-}
-
-/// ":next", and commands that behave like it.
-void ex_next(exarg_T *eap)
-{
- int i;
-
- // check for changed buffer now, if this fails the argument list is not
- // redefined.
- if (buf_hide(curbuf)
- || eap->cmdidx == CMD_snext
- || !check_changed(curbuf, CCGD_AW
- | (eap->forceit ? CCGD_FORCEIT : 0)
- | CCGD_EXCMD)) {
- if (*eap->arg != NUL) { // redefine file list
- if (do_arglist(eap->arg, AL_SET, 0, true) == FAIL) {
- return;
- }
- i = 0;
- } else {
- i = curwin->w_arg_idx + (int)eap->line2;
- }
- do_argfile(eap, i);
- }
-}
-
-/// ":argedit"
-void ex_argedit(exarg_T *eap)
-{
- int i = eap->addr_count ? (int)eap->line2 : curwin->w_arg_idx + 1;
- // Whether curbuf will be reused, curbuf->b_ffname will be set.
- bool curbuf_is_reusable = curbuf_reusable();
-
- if (do_arglist(eap->arg, AL_ADD, i, true) == FAIL) {
- return;
- }
- maketitle();
-
- if (curwin->w_arg_idx == 0
- && (curbuf->b_ml.ml_flags & ML_EMPTY)
- && (curbuf->b_ffname == NULL || curbuf_is_reusable)) {
- i = 0;
- }
- // Edit the argument.
- if (i < ARGCOUNT) {
- do_argfile(eap, i);
- }
-}
-
-/// ":argadd"
-void ex_argadd(exarg_T *eap)
-{
- do_arglist(eap->arg, AL_ADD,
- eap->addr_count > 0 ? (int)eap->line2 : curwin->w_arg_idx + 1,
- false);
- maketitle();
-}
-
-/// ":argdelete"
-void ex_argdelete(exarg_T *eap)
-{
- if (eap->addr_count > 0 || *eap->arg == NUL) {
- // ":argdel" works like ":.argdel"
- if (eap->addr_count == 0) {
- if (curwin->w_arg_idx >= ARGCOUNT) {
- emsg(_("E610: No argument to delete"));
- return;
- }
- eap->line1 = eap->line2 = curwin->w_arg_idx + 1;
- } else if (eap->line2 > ARGCOUNT) {
- // ":1,4argdel": Delete all arguments in the range.
- eap->line2 = ARGCOUNT;
- }
- linenr_T n = eap->line2 - eap->line1 + 1;
- if (*eap->arg != NUL) {
- // Can't have both a range and an argument.
- emsg(_(e_invarg));
- } else if (n <= 0) {
- // Don't give an error for ":%argdel" if the list is empty.
- if (eap->line1 != 1 || eap->line2 != 0) {
- emsg(_(e_invrange));
- }
- } else {
- for (linenr_T i = eap->line1; i <= eap->line2; i++) {
- xfree(ARGLIST[i - 1].ae_fname);
- }
- memmove(ARGLIST + eap->line1 - 1, ARGLIST + eap->line2,
- (size_t)(ARGCOUNT - eap->line2) * sizeof(aentry_T));
- ALIST(curwin)->al_ga.ga_len -= (int)n;
- if (curwin->w_arg_idx >= eap->line2) {
- curwin->w_arg_idx -= (int)n;
- } else if (curwin->w_arg_idx > eap->line1) {
- curwin->w_arg_idx = (int)eap->line1;
- }
- if (ARGCOUNT == 0) {
- curwin->w_arg_idx = 0;
- } else if (curwin->w_arg_idx >= ARGCOUNT) {
- curwin->w_arg_idx = ARGCOUNT - 1;
- }
- }
- } else {
- do_arglist(eap->arg, AL_DEL, 0, false);
- }
- maketitle();
-}
-
/// ":argdo", ":windo", ":bufdo", ":tabdo", ":cdo", ":ldo", ":cfdo" and ":lfdo"
void ex_listdo(exarg_T *eap)
{
@@ -1524,51 +695,6 @@ void ex_listdo(exarg_T *eap)
}
}
-/// Add files[count] to the arglist of the current window after arg "after".
-/// The file names in files[count] must have been allocated and are taken over.
-/// Files[] itself is not taken over.
-///
-/// @param after: where to add: 0 = before first one
-/// @param will_edit will edit adding argument
-static void alist_add_list(int count, char **files, int after, bool will_edit)
- FUNC_ATTR_NONNULL_ALL
-{
- int old_argcount = ARGCOUNT;
- ga_grow(&ALIST(curwin)->al_ga, count);
- {
- if (after < 0) {
- after = 0;
- }
- if (after > ARGCOUNT) {
- after = ARGCOUNT;
- }
- if (after < ARGCOUNT) {
- memmove(&(ARGLIST[after + count]), &(ARGLIST[after]),
- (size_t)(ARGCOUNT - after) * sizeof(aentry_T));
- }
- for (int i = 0; i < count; i++) {
- const int flags = BLN_LISTED | (will_edit ? BLN_CURBUF : 0);
- ARGLIST[after + i].ae_fname = (char_u *)files[i];
- ARGLIST[after + i].ae_fnum = buflist_add(files[i], flags);
- }
- ALIST(curwin)->al_ga.ga_len += count;
- if (old_argcount > 0 && curwin->w_arg_idx >= after) {
- curwin->w_arg_idx += count;
- }
- return;
- }
-}
-
-// Function given to ExpandGeneric() to obtain the possible arguments of the
-// argedit and argdelete commands.
-char *get_arglist_name(expand_T *xp FUNC_ATTR_UNUSED, int idx)
-{
- if (idx >= ARGCOUNT) {
- return NULL;
- }
- return alist_name(&ARGLIST[idx]);
-}
-
/// ":compiler[!] {name}"
void ex_compiler(exarg_T *eap)
{
@@ -1632,987 +758,6 @@ void ex_compiler(exarg_T *eap)
}
}
-/// ":options"
-void ex_options(exarg_T *eap)
-{
- char buf[500];
- bool multi_mods = 0;
-
- buf[0] = NUL;
- (void)add_win_cmd_modifers(buf, &cmdmod, &multi_mods);
-
- os_setenv("OPTWIN_CMD", buf, 1);
- cmd_source(SYS_OPTWIN_FILE, NULL);
-}
-
-/// ":source [{fname}]"
-void ex_source(exarg_T *eap)
-{
- cmd_source(eap->arg, eap);
-}
-
-static void cmd_source(char *fname, exarg_T *eap)
-{
- if (eap != NULL && *fname == NUL) {
- cmd_source_buffer(eap);
- } else if (eap != NULL && eap->forceit) {
- // ":source!": read Normal mode commands
- // Need to execute the commands directly. This is required at least
- // for:
- // - ":g" command busy
- // - after ":argdo", ":windo" or ":bufdo"
- // - another command follows
- // - inside a loop
- openscript((char_u *)fname, global_busy || listcmd_busy || eap->nextcmd != NULL
- || eap->cstack->cs_idx >= 0);
-
- // ":source" read ex commands
- } else if (do_source(fname, false, DOSO_NONE) == FAIL) {
- semsg(_(e_notopen), fname);
- }
-}
-
-/// Concatenate VimL line if it starts with a line continuation into a growarray
-/// (excluding the continuation chars and leading whitespace)
-///
-/// @note Growsize of the growarray may be changed to speed up concatenations!
-///
-/// @param ga the growarray to append to
-/// @param init_growsize the starting growsize value of the growarray
-/// @param p pointer to the beginning of the line to consider
-/// @param len the length of this line
-///
-/// @return true if this line did begin with a continuation (the next line
-/// should also be considered, if it exists); false otherwise
-static bool concat_continued_line(garray_T *const ga, const int init_growsize,
- const char_u *const p, size_t len)
- FUNC_ATTR_NONNULL_ALL
-{
- const char *const line = (char *)skipwhite_len(p, len);
- len -= (size_t)((char_u *)line - p);
- // Skip lines starting with '\" ', concat lines starting with '\'
- if (len >= 3 && STRNCMP(line, "\"\\ ", 3) == 0) {
- return true;
- } else if (len == 0 || line[0] != '\\') {
- return false;
- }
- if (ga->ga_len > init_growsize) {
- ga_set_growsize(ga, MIN(ga->ga_len, 8000));
- }
- ga_concat_len(ga, line + 1, len - 1);
- return true;
-}
-
-typedef struct {
- linenr_T curr_lnum;
- const linenr_T final_lnum;
-} GetBufferLineCookie;
-
-/// ":source" and associated commands.
-///
-/// @return address holding the next breakpoint line for a source cookie
-linenr_T *source_breakpoint(void *cookie)
-{
- return &((struct source_cookie *)cookie)->breakpoint;
-}
-
-/// @return the address holding the debug tick for a source cookie.
-int *source_dbg_tick(void *cookie)
-{
- return &((struct source_cookie *)cookie)->dbg_tick;
-}
-
-/// @return the nesting level for a source cookie.
-int source_level(void *cookie)
- FUNC_ATTR_PURE
-{
- return ((struct source_cookie *)cookie)->level;
-}
-
-/// Special function to open a file without handle inheritance.
-/// If possible the handle is closed on exec().
-static FILE *fopen_noinh_readbin(char *filename)
-{
-#ifdef WIN32
- int fd_tmp = os_open(filename, O_RDONLY | O_BINARY | O_NOINHERIT, 0);
-#else
- int fd_tmp = os_open(filename, O_RDONLY, 0);
-#endif
-
- if (fd_tmp < 0) {
- return NULL;
- }
-
- (void)os_set_cloexec(fd_tmp);
-
- return fdopen(fd_tmp, READBIN);
-}
-
-typedef struct {
- char *buf;
- size_t offset;
-} GetStrLineCookie;
-
-/// Get one full line from a sourced string (in-memory, no file).
-/// Called by do_cmdline() when it's called from do_source_str().
-///
-/// @return pointer to allocated line, or NULL for end-of-file or
-/// some error.
-static char *get_str_line(int c, void *cookie, int indent, bool do_concat)
-{
- GetStrLineCookie *p = cookie;
- if (STRLEN(p->buf) <= p->offset) {
- return NULL;
- }
- const char *line = p->buf + p->offset;
- const char *eol = (char *)skip_to_newline((char_u *)line);
- garray_T ga;
- ga_init(&ga, sizeof(char_u), 400);
- ga_concat_len(&ga, line, (size_t)(eol - line));
- if (do_concat && vim_strchr(p_cpo, CPO_CONCAT) == NULL) {
- while (eol[0] != NUL) {
- line = eol + 1;
- const char_u *const next_eol = skip_to_newline((char_u *)line);
- if (!concat_continued_line(&ga, 400, (char_u *)line, (size_t)(next_eol - (char_u *)line))) {
- break;
- }
- eol = (char *)next_eol;
- }
- }
- ga_append(&ga, NUL);
- p->offset = (size_t)(eol - p->buf) + 1;
- return ga.ga_data;
-}
-
-/// Create a new script item and allocate script-local vars. @see new_script_vars
-///
-/// @param name File name of the script. NULL for anonymous :source.
-/// @param[out] sid_out SID of the new item.
-///
-/// @return pointer to the created script item.
-scriptitem_T *new_script_item(char *const name, scid_T *const sid_out)
-{
- static scid_T last_current_SID = 0;
- const scid_T sid = ++last_current_SID;
- if (sid_out != NULL) {
- *sid_out = sid;
- }
- ga_grow(&script_items, sid - script_items.ga_len);
- while (script_items.ga_len < sid) {
- script_items.ga_len++;
- SCRIPT_ITEM(script_items.ga_len).sn_name = NULL;
- SCRIPT_ITEM(script_items.ga_len).sn_prof_on = false;
- }
- SCRIPT_ITEM(sid).sn_name = (char_u *)name;
- new_script_vars(sid); // Allocate the local script variables to use for this script.
- return &SCRIPT_ITEM(sid);
-}
-
-static int source_using_linegetter(void *cooki