forked from aniani/vim
patch 8.1.1869: code for the argument list is spread out
Problem: Code for the argument list is spread out. Solution: Put argument list code in arglist.c. (Yegappan Lakshmanan, closes #4819)
This commit is contained in:
parent
69cbbecf54
commit
4ad62155a1
2
Filelist
2
Filelist
@ -13,6 +13,7 @@ SRC_ALL = \
|
||||
src/README.md \
|
||||
src/alloc.h \
|
||||
src/arabic.c \
|
||||
src/arglist.c \
|
||||
src/ascii.h \
|
||||
src/autocmd.c \
|
||||
src/beval.c \
|
||||
@ -165,6 +166,7 @@ SRC_ALL = \
|
||||
src/proto.h \
|
||||
src/protodef.h \
|
||||
src/proto/arabic.pro \
|
||||
src/proto/arglist.pro \
|
||||
src/proto/autocmd.pro \
|
||||
src/proto/beval.pro \
|
||||
src/proto/blob.pro \
|
||||
|
@ -703,6 +703,7 @@ GUIOBJ = $(OUTDIR)/gui.o $(OUTDIR)/gui_w32.o $(OUTDIR)/gui_beval.o
|
||||
CUIOBJ = $(OUTDIR)/iscygpty.o
|
||||
OBJ = \
|
||||
$(OUTDIR)/arabic.o \
|
||||
$(OUTDIR)/arglist.o \
|
||||
$(OUTDIR)/autocmd.o \
|
||||
$(OUTDIR)/beval.o \
|
||||
$(OUTDIR)/blob.o \
|
||||
|
@ -25,6 +25,7 @@ RM = rm
|
||||
${CC} ${CFLAGS} $< -o $@
|
||||
|
||||
SRC = arabic.c \
|
||||
arglist.c \
|
||||
autocmd.c \
|
||||
blowfish.c \
|
||||
buffer.c \
|
||||
|
@ -712,6 +712,7 @@ INCL = vim.h alloc.h ascii.h ex_cmds.h feature.h globals.h \
|
||||
|
||||
OBJ = \
|
||||
$(OUTDIR)\arabic.obj \
|
||||
$(OUTDIR)\arglist.obj \
|
||||
$(OUTDIR)\autocmd.obj \
|
||||
$(OUTDIR)\beval.obj \
|
||||
$(OUTDIR)\blob.obj \
|
||||
@ -1433,6 +1434,8 @@ $(NEW_TESTS):
|
||||
|
||||
$(OUTDIR)/arabic.obj: $(OUTDIR) arabic.c $(INCL)
|
||||
|
||||
$(OUTDIR)/arglist.obj: $(OUTDIR) arglist.c $(INCL)
|
||||
|
||||
$(OUTDIR)/autocmd.obj: $(OUTDIR) autocmd.c $(INCL)
|
||||
|
||||
$(OUTDIR)/beval.obj: $(OUTDIR) beval.c $(INCL)
|
||||
@ -1744,6 +1747,7 @@ $(PATHDEF_SRC): Make_mvc.mak
|
||||
# End Custom Build
|
||||
proto.h: \
|
||||
proto/arabic.pro \
|
||||
proto/arglist.pro \
|
||||
proto/autocmd.pro \
|
||||
proto/blob.pro \
|
||||
proto/blowfish.pro \
|
||||
|
@ -307,32 +307,34 @@ ALL_CFLAGS_VER = /def=($(MODEL_DEF)$(DEFS)$(DEBUG_DEF)$(PERL_DEF)$(PYTHON_DEF) -
|
||||
ALL_LIBS = $(LIBS) $(GUI_LIB_DIR) $(GUI_LIB) \
|
||||
$(PERL_LIB) $(PYTHON_LIB) $(TCL_LIB) $(RUBY_LIB)
|
||||
|
||||
SRC = arabic.c autocmd.c beval.c blob.c blowfish.c buffer.c change.c charset.c \
|
||||
cmdhist.c crypt.c crypt_zip.c debugger.c dict.c diff.c digraph.c edit.c eval.c \
|
||||
evalfunc.c ex_cmds.c ex_cmds2.c ex_docmd.c ex_eval.c ex_getln.c \
|
||||
if_cscope.c if_xcmdsrv.c fileio.c findfile.c fold.c getchar.c \
|
||||
hardcopy.c hashtab.c highlight.c indent.c insexpand.c json.c list.c \
|
||||
main.c map.c mark.c menu.c mbyte.c memfile.c memline.c message.c \
|
||||
misc1.c misc2.c move.c normal.c ops.c option.c popupmnu.c popupwin.c \
|
||||
profiler.c quickfix.c regexp.c search.c session.c sha256.c sign.c \
|
||||
spell.c spellfile.c syntax.c tag.c term.c termlib.c testing.c \
|
||||
textprop.c ui.c undo.c usercmd.c userfunc.c version.c viminfo.c \
|
||||
screen.c window.c os_unix.c os_vms.c pathdef.c \
|
||||
SRC = arabic.c arglist.c autocmd.c beval.c blob.c blowfish.c buffer.c \
|
||||
change.c charset.c cmdhist.c crypt.c crypt_zip.c debugger.c dict.c \
|
||||
diff.c digraph.c edit.c eval.c evalfunc.c ex_cmds.c ex_cmds2.c \
|
||||
ex_docmd.c ex_eval.c ex_getln.c if_cscope.c if_xcmdsrv.c fileio.c \
|
||||
findfile.c fold.c getchar.c hardcopy.c hashtab.c highlight.c indent.c \
|
||||
insexpand.c json.c list.c main.c map.c mark.c menu.c mbyte.c \
|
||||
memfile.c memline.c message.c misc1.c misc2.c move.c normal.c ops.c \
|
||||
option.c popupmnu.c popupwin.c profiler.c quickfix.c regexp.c \
|
||||
search.c session.c sha256.c sign.c spell.c spellfile.c syntax.c tag.c \
|
||||
term.c termlib.c testing.c textprop.c ui.c undo.c usercmd.c \
|
||||
userfunc.c version.c viminfo.c screen.c window.c os_unix.c os_vms.c \
|
||||
pathdef.c \
|
||||
$(GUI_SRC) $(PERL_SRC) $(PYTHON_SRC) $(TCL_SRC) \
|
||||
$(RUBY_SRC) $(HANGULIN_SRC) $(MZSCH_SRC) $(XDIFF_SRC)
|
||||
|
||||
OBJ = arabic.obj autocmd.obj beval.obj blob.obj blowfish.obj buffer.obj change.obj \
|
||||
charset.obj cmdhist.obj crypt.obj crypt_zip.obj debugger.obj dict.obj diff.obj \
|
||||
digraph.obj edit.obj eval.obj evalfunc.obj ex_cmds.obj ex_cmds2.obj \
|
||||
ex_docmd.obj ex_eval.obj ex_getln.obj if_cscope.obj if_xcmdsrv.obj \
|
||||
fileio.obj findfile.obj fold.obj getchar.obj hardcopy.obj hashtab.obj \
|
||||
highlight.obj indent.obj insexpand.obj json.obj list.obj main.obj \
|
||||
map.obj mark.obj menu.obj memfile.obj memline.obj message.obj \
|
||||
misc1.obj misc2.obj move.obj mbyte.obj normal.obj ops.obj option.obj \
|
||||
popupmnu.obj popupwin.obj profiler.obj quickfix.obj regexp.obj \
|
||||
search.obj session.obj sha256.obj sign.obj spell.obj spellfile.obj \
|
||||
syntax.obj tag.obj term.obj termlib.obj testing.obj textprop.obj \
|
||||
ui.obj undo.obj usercmd.obj userfunc.obj screen.obj version.obj \
|
||||
OBJ = arabic.obj arglist.obj autocmd.obj beval.obj blob.obj blowfish.obj \
|
||||
buffer.obj change.obj charset.obj cmdhist.obj crypt.obj crypt_zip.obj \
|
||||
debugger.obj dict.obj diff.obj digraph.obj edit.obj eval.obj \
|
||||
evalfunc.obj ex_cmds.obj ex_cmds2.obj ex_docmd.obj ex_eval.obj \
|
||||
ex_getln.obj if_cscope.obj if_xcmdsrv.obj fileio.obj findfile.obj \
|
||||
fold.obj getchar.obj hardcopy.obj hashtab.obj highlight.obj \
|
||||
indent.obj insexpand.obj json.obj list.obj main.obj map.obj mark.obj \
|
||||
menu.obj memfile.obj memline.obj message.obj misc1.obj misc2.obj \
|
||||
move.obj mbyte.obj normal.obj ops.obj option.obj popupmnu.obj \
|
||||
popupwin.obj profiler.obj quickfix.obj regexp.obj search.obj \
|
||||
session.obj sha256.obj sign.obj spell.obj spellfile.obj syntax.obj \
|
||||
tag.obj term.obj termlib.obj testing.obj textprop.obj ui.obj undo.obj \
|
||||
usercmd.obj userfunc.obj screen.obj version.obj \
|
||||
viminfo.obj window.obj os_unix.obj os_vms.obj pathdef.obj if_mzsch.obj \
|
||||
$(GUI_OBJ) $(PERL_OBJ) $(PYTHON_OBJ) $(TCL_OBJ) \
|
||||
$(RUBY_OBJ) $(HANGULIN_OBJ) $(MZSCH_OBJ) $(XDIFF_OBJ)
|
||||
@ -505,6 +507,7 @@ ruby_env :
|
||||
.ENDIF
|
||||
|
||||
arabic.obj : arabic.c vim.h
|
||||
arglist.obj : arglist.c vim.h [.auto]config.h feature.h os_unix.h
|
||||
autocmd.obj : autocmd.c vim.h [.auto]config.h feature.h os_unix.h
|
||||
blowfish.obj : blowfish.c vim.h [.auto]config.h feature.h os_unix.h
|
||||
blob.obj : blob.c vim.h [.auto]config.h feature.h os_unix.h
|
||||
|
10
src/Makefile
10
src/Makefile
@ -1577,6 +1577,7 @@ include testdir/Make_all.mak
|
||||
|
||||
BASIC_SRC = \
|
||||
arabic.c \
|
||||
arglist.c \
|
||||
autocmd.c \
|
||||
beval.c \
|
||||
blob.c \
|
||||
@ -1704,6 +1705,7 @@ LINT_SRC = $(BASIC_SRC) $(GUI_SRC) $(HANGULIN_SRC) \
|
||||
|
||||
OBJ_COMMON = \
|
||||
objects/arabic.o \
|
||||
objects/arglist.o \
|
||||
objects/autocmd.o \
|
||||
objects/beval.o \
|
||||
objects/buffer.o \
|
||||
@ -1844,6 +1846,7 @@ ALL_OBJ = $(OBJ_COMMON) \
|
||||
|
||||
PRO_AUTO = \
|
||||
arabic.pro \
|
||||
arglist.pro \
|
||||
autocmd.pro \
|
||||
blowfish.pro \
|
||||
buffer.pro \
|
||||
@ -2989,6 +2992,9 @@ $(ALL_OBJ): objects/.dirstamp
|
||||
objects/arabic.o: arabic.c
|
||||
$(CCC) -o $@ arabic.c
|
||||
|
||||
objects/arglist.o: arglist.c
|
||||
$(CCC) -o $@ arglist.c
|
||||
|
||||
objects/autocmd.o: autocmd.c
|
||||
$(CCC) -o $@ autocmd.c
|
||||
|
||||
@ -3476,6 +3482,10 @@ objects/arabic.o: arabic.c vim.h protodef.h auto/config.h feature.h os_unix.h \
|
||||
auto/osdef.h ascii.h keymap.h term.h macros.h option.h beval.h \
|
||||
proto/gui_beval.pro structs.h regexp.h gui.h alloc.h ex_cmds.h spell.h \
|
||||
proto.h globals.h
|
||||
objects/arglist.o: arglist.c vim.h protodef.h auto/config.h feature.h os_unix.h \
|
||||
auto/osdef.h ascii.h keymap.h term.h macros.h option.h beval.h \
|
||||
proto/gui_beval.pro structs.h regexp.h gui.h alloc.h ex_cmds.h spell.h \
|
||||
proto.h globals.h
|
||||
objects/autocmd.o: autocmd.c vim.h protodef.h auto/config.h feature.h os_unix.h \
|
||||
auto/osdef.h ascii.h keymap.h term.h macros.h option.h beval.h \
|
||||
proto/gui_beval.pro structs.h regexp.h gui.h alloc.h ex_cmds.h spell.h \
|
||||
|
@ -23,6 +23,7 @@ Most code can be found in a file with an obvious name (incomplete list):
|
||||
|
||||
File name | Description
|
||||
--------------- | -----------
|
||||
arglist.c | handling argument list
|
||||
autocmd.c | autocommands
|
||||
blob.c | blob data type
|
||||
buffer.c | manipulating buffers (loaded files)
|
||||
|
1320
src/arglist.c
Normal file
1320
src/arglist.c
Normal file
File diff suppressed because it is too large
Load Diff
301
src/buffer.c
301
src/buffer.c
@ -4874,307 +4874,6 @@ fname_expand(
|
||||
#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 = alloc_clear(opened_len);
|
||||
if (opened == NULL)
|
||||
return;
|
||||
|
||||
/* 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;
|
||||
|
||||
# ifdef FEAT_GUI
|
||||
need_mouse_correct = TRUE;
|
||||
# endif
|
||||
|
||||
/*
|
||||
* 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
|
||||
|| fullpathcmp(alist_name(&AARGLIST(alist)[i]),
|
||||
buf->b_ffname, TRUE, TRUE) & FPC_SAME))
|
||||
{
|
||||
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 (buf_hide(buf) || forceit || buf->b_nwindows > 1
|
||||
|| !bufIsChanged(buf))
|
||||
{
|
||||
/* If the buffer was changed, and we would like to hide it,
|
||||
* try autowriting. */
|
||||
if (!buf_hide(buf) && buf->b_nwindows <= 1
|
||||
&& bufIsChanged(buf))
|
||||
{
|
||||
bufref_T bufref;
|
||||
|
||||
set_bufref(&bufref, buf);
|
||||
|
||||
(void)autowrite(buf, FALSE);
|
||||
|
||||
/* check if autocommands removed the window */
|
||||
if (!win_valid(wp) || !bufref_valid(&bufref))
|
||||
{
|
||||
wpnext = firstwin; /* start all over... */
|
||||
continue;
|
||||
}
|
||||
}
|
||||
/* don't close last window */
|
||||
if (ONE_WINDOW
|
||||
&& (first_tabpage->tp_next == NULL || !had_tab))
|
||||
use_firstwin = TRUE;
|
||||
else
|
||||
{
|
||||
win_close(wp, !buf_hide(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 if (wpnext->w_frame->fr_parent
|
||||
!= curwin->w_frame->fr_parent)
|
||||
{
|
||||
emsg(_("E249: window layout changed unexpectedly"));
|
||||
i = count;
|
||||
break;
|
||||
}
|
||||
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,
|
||||
((buf_hide(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;
|
||||
vim_free(opened);
|
||||
}
|
||||
|
||||
/*
|
||||
* Open a window for a number of buffers.
|
||||
*/
|
||||
|
114
src/evalfunc.c
114
src/evalfunc.c
@ -35,10 +35,6 @@ static void f_add(typval_T *argvars, typval_T *rettv);
|
||||
static void f_and(typval_T *argvars, typval_T *rettv);
|
||||
static void f_append(typval_T *argvars, typval_T *rettv);
|
||||
static void f_appendbufline(typval_T *argvars, typval_T *rettv);
|
||||
static void f_argc(typval_T *argvars, typval_T *rettv);
|
||||
static void f_argidx(typval_T *argvars, typval_T *rettv);
|
||||
static void f_arglistid(typval_T *argvars, typval_T *rettv);
|
||||
static void f_argv(typval_T *argvars, typval_T *rettv);
|
||||
#ifdef FEAT_FLOAT
|
||||
static void f_asin(typval_T *argvars, typval_T *rettv);
|
||||
static void f_atan(typval_T *argvars, typval_T *rettv);
|
||||
@ -1496,116 +1492,6 @@ f_appendbufline(typval_T *argvars, typval_T *rettv)
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* "argc([window id])" function
|
||||
*/
|
||||
static void
|
||||
f_argc(typval_T *argvars, typval_T *rettv)
|
||||
{
|
||||
win_T *wp;
|
||||
|
||||
if (argvars[0].v_type == VAR_UNKNOWN)
|
||||
// use the current window
|
||||
rettv->vval.v_number = ARGCOUNT;
|
||||
else if (argvars[0].v_type == VAR_NUMBER
|
||||
&& tv_get_number(&argvars[0]) == -1)
|
||||
// use the global argument list
|
||||
rettv->vval.v_number = GARGCOUNT;
|
||||
else
|
||||
{
|
||||
// use the argument list of the specified window
|
||||
wp = find_win_by_nr_or_id(&argvars[0]);
|
||||
if (wp != NULL)
|
||||
rettv->vval.v_number = WARGCOUNT(wp);
|
||||
else
|
||||
rettv->vval.v_number = -1;
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* "argidx()" function
|
||||
*/
|
||||
static void
|
||||
f_argidx(typval_T *argvars UNUSED, typval_T *rettv)
|
||||
{
|
||||
rettv->vval.v_number = curwin->w_arg_idx;
|
||||
}
|
||||
|
||||
/*
|
||||
* "arglistid()" function
|
||||
*/
|
||||
static void
|
||||
f_arglistid(typval_T *argvars, typval_T *rettv)
|
||||
{
|
||||
win_T *wp;
|
||||
|
||||
rettv->vval.v_number = -1;
|
||||
wp = find_tabwin(&argvars[0], &argvars[1], NULL);
|
||||
if (wp != NULL)
|
||||
rettv->vval.v_number = wp->w_alist->id;
|
||||
}
|
||||
|
||||
/*
|
||||
* Get the argument list for a given window
|
||||
*/
|
||||
static void
|
||||
get_arglist_as_rettv(aentry_T *arglist, int argcount, typval_T *rettv)
|
||||
{
|
||||
int idx;
|
||||
|
||||
if (rettv_list_alloc(rettv) == OK && arglist != NULL)
|
||||
for (idx = 0; idx < argcount; ++idx)
|
||||
list_append_string(rettv->vval.v_list,
|
||||
alist_name(&arglist[idx]), -1);
|
||||
}
|
||||
|
||||
/*
|
||||
* "argv(nr)" function
|
||||
*/
|
||||
static void
|
||||
f_argv(typval_T *argvars, typval_T *rettv)
|
||||
{
|
||||
int idx;
|
||||
aentry_T *arglist = NULL;
|
||||
int argcount = -1;
|
||||
|
||||
if (argvars[0].v_type != VAR_UNKNOWN)
|
||||
{
|
||||
if (argvars[1].v_type == VAR_UNKNOWN)
|
||||
{
|
||||
arglist = ARGLIST;
|
||||
argcount = ARGCOUNT;
|
||||
}
|
||||
else if (argvars[1].v_type == VAR_NUMBER
|
||||
&& tv_get_number(&argvars[1]) == -1)
|
||||
{
|
||||
arglist = GARGLIST;
|
||||
argcount = GARGCOUNT;
|
||||
}
|
||||
else
|
||||
{
|
||||
win_T *wp = find_win_by_nr_or_id(&argvars[1]);
|
||||
|
||||
if (wp != NULL)
|
||||
{
|
||||
/* Use the argument list of the specified window */
|
||||
arglist = WARGLIST(wp);
|
||||
argcount = WARGCOUNT(wp);
|
||||
}
|
||||
}
|
||||
|
||||
rettv->v_type = VAR_STRING;
|
||||
rettv->vval.v_string = NULL;
|
||||
idx = tv_get_number_chk(&argvars[0], NULL);
|
||||
if (arglist != NULL && idx >= 0 && idx < argcount)
|
||||
rettv->vval.v_string = vim_strsave(alist_name(&arglist[idx]));
|
||||
else if (idx == -1)
|
||||
get_arglist_as_rettv(arglist, argcount, rettv);
|
||||
}
|
||||
else
|
||||
get_arglist_as_rettv(ARGLIST, ARGCOUNT, rettv);
|
||||
}
|
||||
|
||||
#ifdef FEAT_FLOAT
|
||||
/*
|
||||
* "asin()" function
|
||||
|
649
src/ex_cmds2.c
649
src/ex_cmds2.c
@ -822,598 +822,6 @@ buf_write_all(buf_T *buf, int forceit)
|
||||
return retval;
|
||||
}
|
||||
|
||||
/*
|
||||
* Code to handle the argument list.
|
||||
*/
|
||||
|
||||
static int do_arglist(char_u *str, int what, int after, int will_edit);
|
||||
static void alist_check_arg_idx(void);
|
||||
static void alist_add_list(int count, char_u **files, int after, int will_edit);
|
||||
#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_u *
|
||||
do_one_arg(char_u *str)
|
||||
{
|
||||
char_u *p;
|
||||
int 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(str))
|
||||
{
|
||||
*p++ = *str++;
|
||||
*p++ = *str;
|
||||
}
|
||||
else
|
||||
{
|
||||
/* An item ends at a space not in backticks */
|
||||
if (!inbacktick && vim_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 int
|
||||
get_arglist(garray_T *gap, char_u *str, int escaped)
|
||||
{
|
||||
ga_init2(gap, (int)sizeof(char_u *), 20);
|
||||
while (*str != NUL)
|
||||
{
|
||||
if (ga_grow(gap, 1) == FAIL)
|
||||
{
|
||||
ga_clear(gap);
|
||||
return FAIL;
|
||||
}
|
||||
((char_u **)gap->ga_data)[gap->ga_len++] = str;
|
||||
|
||||
/* If str is escaped, don't handle backslashes or spaces */
|
||||
if (!escaped)
|
||||
return OK;
|
||||
|
||||
/* Isolate one argument, change it in-place, put a NUL after it. */
|
||||
str = do_one_arg(str);
|
||||
}
|
||||
return OK;
|
||||
}
|
||||
|
||||
#if defined(FEAT_QUICKFIX) || defined(FEAT_SYN_HL) || defined(PROTO)
|
||||
/*
|
||||
* 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_u ***fnamesp,
|
||||
int wig)
|
||||
{
|
||||
garray_T ga;
|
||||
int i;
|
||||
|
||||
if (get_arglist(&ga, str, TRUE) == FAIL)
|
||||
return FAIL;
|
||||
if (wig == TRUE)
|
||||
i = expand_wildcards(ga.ga_len, (char_u **)ga.ga_data,
|
||||
fcountp, fnamesp, EW_FILE|EW_NOTFOUND);
|
||||
else
|
||||
i = gen_expand_wildcards(ga.ga_len, (char_u **)ga.ga_data,
|
||||
fcountp, fnamesp, EW_FILE|EW_NOTFOUND);
|
||||
|
||||
ga_clear(&ga);
|
||||
return i;
|
||||
}
|
||||
#endif
|
||||
|
||||
/*
|
||||
* Redefine the argument list.
|
||||
*/
|
||||
void
|
||||
set_arglist(char_u *str)
|
||||
{
|
||||
do_arglist(str, AL_SET, 0, FALSE);
|
||||
}
|
||||
|
||||
/*
|
||||
* "what" == AL_SET: Redefine the argument list to 'str'.
|
||||
* "what" == AL_ADD: add files in 'str' to the argument list after "after".
|
||||
* "what" == AL_DEL: remove files in 'str' from the argument list.
|
||||
*
|
||||
* Return FAIL for failure, OK otherwise.
|
||||
*/
|
||||
static int
|
||||
do_arglist(
|
||||
char_u *str,
|
||||
int what,
|
||||
int after UNUSED, // 0 means before first one
|
||||
int will_edit) // will edit added argument
|
||||
{
|
||||
garray_T new_ga;
|
||||
int exp_count;
|
||||
char_u **exp_files;
|
||||
int i;
|
||||
char_u *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".
|
||||
*/
|
||||
if (get_arglist(&new_ga, str, arg_escaped) == FAIL)
|
||||
return FAIL;
|
||||
|
||||
if (what == AL_DEL)
|
||||
{
|
||||
regmatch_T regmatch;
|
||||
int 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 (i = 0; i < new_ga.ga_len && !got_int; ++i)
|
||||
{
|
||||
p = ((char_u **)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)
|
||||
{
|
||||
vim_free(p);
|
||||
break;
|
||||
}
|
||||
|
||||
didone = FALSE;
|
||||
for (match = 0; match < ARGCOUNT; ++match)
|
||||
if (vim_regexec(®match, alist_name(&ARGLIST[match]),
|
||||
(colnr_T)0))
|
||||
{
|
||||
didone = TRUE;
|
||||
vim_free(ARGLIST[match].ae_fname);
|
||||
mch_memmove(ARGLIST + match, ARGLIST + match + 1,
|
||||
(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);
|
||||
vim_free(p);
|
||||
if (!didone)
|
||||
semsg(_(e_nomatch2), ((char_u **)new_ga.ga_data)[i]);
|
||||
}
|
||||
ga_clear(&new_ga);
|
||||
}
|
||||
else
|
||||
{
|
||||
i = expand_wildcards(new_ga.ga_len, (char_u **)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);
|
||||
vim_free(exp_files);
|
||||
}
|
||||
else /* 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)
|
||||
{
|
||||
win_T *win;
|
||||
tabpage_T *tp;
|
||||
|
||||
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 int
|
||||
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
|
||||
|| !(fullpathcmp(
|
||||
alist_name(&WARGLIST(win)[win->w_arg_idx]),
|
||||
win->w_buffer->b_ffname, TRUE, TRUE) & FPC_SAME))));
|
||||
}
|
||||
|
||||
/*
|
||||
* 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
|
||||
&& (fullpathcmp(alist_name(&GARGLIST[GARGCOUNT - 1]),
|
||||
win->w_buffer->b_ffname, TRUE, TRUE) & FPC_SAME))))
|
||||
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)
|
||||
{
|
||||
int i;
|
||||
|
||||
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_u **items = ALLOC_MULT(char_u *, ARGCOUNT);
|
||||
|
||||
if (items != NULL)
|
||||
{
|
||||
/* Overwrite the command, for a short list there is no
|
||||
* scrolling required and no wait_return(). */
|
||||
gotocmdline(TRUE);
|
||||
|
||||
for (i = 0; i < ARGCOUNT; ++i)
|
||||
items[i] = alist_name(&ARGLIST[i]);
|
||||
list_in_columns(items, ARGCOUNT, curwin->w_arg_idx);
|
||||
vim_free(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.
|
||||
*/
|
||||
if (ga_grow(gap, GARGCOUNT) == OK)
|
||||
for (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 = 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_u *p;
|
||||
int old_arg_idx = curwin->w_arg_idx;
|
||||
|
||||
if (ERROR_IF_POPUP_WINDOW)
|
||||
return;
|
||||
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();
|
||||
#ifdef FEAT_GUI
|
||||
need_mouse_correct = TRUE;
|
||||
#endif
|
||||
|
||||
/* split window or create new tab page first */
|
||||
if (*eap->cmd == 's' || cmdmod.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);
|
||||
vim_free(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;
|
||||
/* like Vi: set the mark where the cursor is in the file. */
|
||||
else if (eap->cmdidx != CMD_argdo)
|
||||
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.
|
||||
int curbuf_is_reusable = curbuf_reusable();
|
||||
|
||||
if (do_arglist(eap->arg, AL_ADD, i, TRUE) == FAIL)
|
||||
return;
|
||||
#ifdef FEAT_TITLE
|
||||
maketitle();
|
||||
#endif
|
||||
|
||||
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);
|
||||
#ifdef FEAT_TITLE
|
||||
maketitle();
|
||||
#endif
|
||||
}
|
||||
|
||||
/*
|
||||
* ":argdelete"
|
||||
*/
|
||||
void
|
||||
ex_argdelete(exarg_T *eap)
|
||||
{
|
||||
int i;
|
||||
int n;
|
||||
|
||||
if (eap->addr_count > 0)
|
||||
{
|
||||
/* ":1,4argdel": Delete all arguments in the range. */
|
||||
if (eap->line2 > ARGCOUNT)
|
||||
eap->line2 = ARGCOUNT;
|
||||
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 (i = eap->line1; i <= eap->line2; ++i)
|
||||
vim_free(ARGLIST[i - 1].ae_fname);
|
||||
mch_memmove(ARGLIST + eap->line1 - 1, ARGLIST + eap->line2,
|
||||
(size_t)((ARGCOUNT - eap->line2) * sizeof(aentry_T)));
|
||||
ALIST(curwin)->al_ga.ga_len -= n;
|
||||
if (curwin->w_arg_idx >= eap->line2)
|
||||
curwin->w_arg_idx -= n;
|
||||
else if (curwin->w_arg_idx > eap->line1)
|
||||
curwin->w_arg_idx = eap->line1;
|
||||
if (ARGCOUNT == 0)
|
||||
curwin->w_arg_idx = 0;
|
||||
else if (curwin->w_arg_idx >= ARGCOUNT)
|
||||
curwin->w_arg_idx = ARGCOUNT - 1;
|
||||
}
|
||||
}
|
||||
else if (*eap->arg == NUL)
|
||||
emsg(_(e_argreq));
|
||||
else
|
||||
do_arglist(eap->arg, AL_DEL, 0, FALSE);
|
||||
#ifdef FEAT_TITLE
|
||||
maketitle();
|
||||
#endif
|
||||
}
|
||||
|
||||
/*
|
||||
* ":argdo", ":windo", ":bufdo", ":tabdo", ":cdo", ":ldo", ":cfdo" and ":lfdo"
|
||||
*/
|
||||
@ -1681,63 +1089,6 @@ ex_listdo(exarg_T *eap)
|
||||
#endif
|
||||
}
|
||||
|
||||
/*
|
||||
* 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.
|
||||
*/
|
||||
static void
|
||||
alist_add_list(
|
||||
int count,
|
||||
char_u **files,
|
||||
int after, // where to add: 0 = before first one
|
||||
int will_edit) // will edit adding argument
|
||||
{
|
||||
int i;
|
||||
int old_argcount = ARGCOUNT;
|
||||
|
||||
if (ga_grow(&ALIST(curwin)->al_ga, count) == OK)
|
||||
{
|
||||
if (after < 0)
|
||||
after = 0;
|
||||
if (after > ARGCOUNT)
|
||||
after = ARGCOUNT;
|
||||
if (after < ARGCOUNT)
|
||||
mch_memmove(&(ARGLIST[after + count]), &(ARGLIST[after]),
|
||||
(ARGCOUNT - after) * sizeof(aentry_T));
|
||||
for (i = 0; i < count; ++i)
|
||||
{
|
||||
int flags = BLN_LISTED | (will_edit ? BLN_CURBUF : 0);
|
||||
|
||||
ARGLIST[after + i].ae_fname = 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;
|
||||
}
|
||||
|
||||
for (i = 0; i < count; ++i)
|
||||
vim_free(files[i]);
|
||||
}
|
||||
|
||||
#if defined(FEAT_CMDL_COMPL) || defined(PROTO)
|
||||
/*
|
||||
* Function given to ExpandGeneric() to obtain the possible arguments of the
|
||||
* argedit and argdelete commands.
|
||||
*/
|
||||
char_u *
|
||||
get_arglist_name(expand_T *xp UNUSED, int idx)
|
||||
{
|
||||
if (idx >= ARGCOUNT)
|
||||
return NULL;
|
||||
|
||||
return alist_name(&ARGLIST[idx]);
|
||||
}
|
||||
#endif
|
||||
|
||||
|
||||
#ifdef FEAT_EVAL
|
||||
/*
|
||||
* ":compiler[!] {name}"
|
||||
|
277
src/ex_docmd.c
277
src/ex_docmd.c
@ -304,7 +304,6 @@ static void ex_tag_cmd(exarg_T *eap, char_u *name);
|
||||
# define ex_unlockvar ex_ni
|
||||
# define ex_while ex_ni
|
||||
#endif
|
||||
static char_u *arg_all(void);
|
||||
#ifndef FEAT_SESSION
|
||||
# define ex_loadview ex_ni
|
||||
#endif
|
||||
@ -6137,18 +6136,6 @@ ex_only(exarg_T *eap)
|
||||
close_others(TRUE, eap->forceit);
|
||||
}
|
||||
|
||||
/*
|
||||
* ":all" and ":sall".
|
||||
* Also used for ":tab drop file ..." after setting the argument list.
|
||||
*/
|
||||
void
|
||||
ex_all(exarg_T *eap)
|
||||
{
|
||||
if (eap->addr_count == 0)
|
||||
eap->line2 = 9999;
|
||||
do_arg_all((int)eap->line2, eap->forceit, eap->cmdidx == CMD_drop);
|
||||
}
|
||||
|
||||
static void
|
||||
ex_hide(exarg_T *eap UNUSED)
|
||||
{
|
||||
@ -6444,200 +6431,6 @@ handle_any_postponed_drop(void)
|
||||
}
|
||||
#endif
|
||||
|
||||
/*
|
||||
* Clear an argument list: free all file names and reset it to zero entries.
|
||||
*/
|
||||
void
|
||||
alist_clear(alist_T *al)
|
||||
{
|
||||
while (--al->al_ga.ga_len >= 0)
|
||||
vim_free(AARGLIST(al)[al->al_ga.ga_len].ae_fname);
|
||||
ga_clear(&al->al_ga);
|
||||
}
|
||||
|
||||
/*
|
||||
* Init an argument list.
|
||||
*/
|
||||
void
|
||||
alist_init(alist_T *al)
|
||||
{
|
||||
ga_init2(&al->al_ga, (int)sizeof(aentry_T), 5);
|
||||
}
|
||||
|
||||
/*
|
||||
* Remove a reference from an argument list.
|
||||
* Ignored when the argument list is the global one.
|
||||
* If the argument list is no longer used by any window, free it.
|
||||
*/
|
||||
void
|
||||
alist_unlink(alist_T *al)
|
||||
{
|
||||
if (al != &global_alist && --al->al_refcount <= 0)
|
||||
{
|
||||
alist_clear(al);
|
||||
vim_free(al);
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* Create a new argument list and use it for the current window.
|
||||
*/
|
||||
void
|
||||
alist_new(void)
|
||||
{
|
||||
curwin->w_alist = ALLOC_ONE(alist_T);
|
||||
if (curwin->w_alist == NULL)
|
||||
{
|
||||
curwin->w_alist = &global_alist;
|
||||
++global_alist.al_refcount;
|
||||
}
|
||||
else
|
||||
{
|
||||
curwin->w_alist->al_refcount = 1;
|
||||
curwin->w_alist->id = ++max_alist_id;
|
||||
alist_init(curwin->w_alist);
|
||||
}
|
||||
}
|
||||
|
||||
#if !defined(UNIX) || defined(PROTO)
|
||||
/*
|
||||
* Expand the file names in the global argument list.
|
||||
* If "fnum_list" is not NULL, use "fnum_list[fnum_len]" as a list of buffer
|
||||
* numbers to be re-used.
|
||||
*/
|
||||
void
|
||||
alist_expand(int *fnum_list, int fnum_len)
|
||||
{
|
||||
char_u **old_arg_files;
|
||||
int old_arg_count;
|
||||
char_u **new_arg_files;
|
||||
int new_arg_file_count;
|
||||
char_u *save_p_su = p_su;
|
||||
int i;
|
||||
|
||||
/* Don't use 'suffixes' here. This should work like the shell did the
|
||||
* expansion. Also, the vimrc file isn't read yet, thus the user
|
||||
* can't set the options. */
|
||||
p_su = empty_option;
|
||||
old_arg_files = ALLOC_MULT(char_u *, GARGCOUNT);
|
||||
if (old_arg_files != NULL)
|
||||
{
|
||||
for (i = 0; i < GARGCOUNT; ++i)
|
||||
old_arg_files[i] = vim_strsave(GARGLIST[i].ae_fname);
|
||||
old_arg_count = GARGCOUNT;
|
||||
if (expand_wildcards(old_arg_count, old_arg_files,
|
||||
&new_arg_file_count, &new_arg_files,
|
||||
EW_FILE|EW_NOTFOUND|EW_ADDSLASH|EW_NOERROR) == OK
|
||||
&& new_arg_file_count > 0)
|
||||
{
|
||||
alist_set(&global_alist, new_arg_file_count, new_arg_files,
|
||||
TRUE, fnum_list, fnum_len);
|
||||
FreeWild(old_arg_count, old_arg_files);
|
||||
}
|
||||
}
|
||||
p_su = save_p_su;
|
||||
}
|
||||
#endif
|
||||
|
||||
/*
|
||||
* Set the argument list for the current window.
|
||||
* Takes over the allocated files[] and the allocated fnames in it.
|
||||
*/
|
||||
void
|
||||
alist_set(
|
||||
alist_T *al,
|
||||
int count,
|
||||
char_u **files,
|
||||
int use_curbuf,
|
||||
int *fnum_list,
|
||||
int fnum_len)
|
||||
{
|
||||
int i;
|
||||
static int recursive = 0;
|
||||
|
||||
if (recursive)
|
||||
{
|
||||
emsg(_(e_au_recursive));
|
||||
return;
|
||||
}
|
||||
++recursive;
|
||||
|
||||
alist_clear(al);
|
||||
if (ga_grow(&al->al_ga, count) == OK)
|
||||
{
|
||||
for (i = 0; i < count; ++i)
|
||||
{
|
||||
if (got_int)
|
||||
{
|
||||
/* When adding many buffers this can take a long time. Allow
|
||||
* interrupting here. */
|
||||
while (i < count)
|
||||
vim_free(files[i++]);
|
||||
break;
|
||||
}
|
||||
|
||||
/* May set buffer name of a buffer previously used for the
|
||||
* argument list, so that it's re-used by alist_add. */
|
||||
if (fnum_list != NULL && i < fnum_len)
|
||||
buf_set_name(fnum_list[i], files[i]);
|
||||
|
||||
alist_add(al, files[i], use_curbuf ? 2 : 1);
|
||||
ui_breakcheck();
|
||||
}
|
||||
vim_free(files);
|
||||
}
|
||||
else
|
||||
FreeWild(count, files);
|
||||
if (al == &global_alist)
|
||||
arg_had_last = FALSE;
|
||||
|
||||
--recursive;
|
||||
}
|
||||
|
||||
/*
|
||||
* Add file "fname" to argument list "al".
|
||||
* "fname" must have been allocated and "al" must have been checked for room.
|
||||
*/
|
||||
void
|
||||
alist_add(
|
||||
alist_T *al,
|
||||
char_u *fname,
|
||||
int set_fnum) /* 1: set buffer number; 2: re-use curbuf */
|
||||
{
|
||||
if (fname == NULL) /* don't add NULL file names */
|
||||
return;
|
||||
#ifdef BACKSLASH_IN_FILENAME
|
||||
slash_adjust(fname);
|
||||
#endif
|
||||
AARGLIST(al)[al->al_ga.ga_len].ae_fname = fname;
|
||||
if (set_fnum > 0)
|
||||
AARGLIST(al)[al->al_ga.ga_len].ae_fnum =
|
||||
buflist_add(fname, BLN_LISTED | (set_fnum == 2 ? BLN_CURBUF : 0));
|
||||
++al->al_ga.ga_len;
|
||||
}
|
||||
|
||||
#if defined(BACKSLASH_IN_FILENAME) || defined(PROTO)
|
||||
/*
|
||||
* Adjust slashes in file names. Called after 'shellslash' was set.
|
||||
*/
|
||||
void
|
||||
alist_slash_adjust(void)
|
||||
{
|
||||
int i;
|
||||
win_T *wp;
|
||||
tabpage_T *tp;
|
||||
|
||||
for (i = 0; i < GARGCOUNT; ++i)
|
||||
if (GARGLIST[i].ae_fname != NULL)
|
||||
slash_adjust(GARGLIST[i].ae_fname);
|
||||
FOR_ALL_TAB_WINDOWS(tp, wp)
|
||||
if (wp->w_alist != &global_alist)
|
||||
for (i = 0; i < WARGCOUNT(wp); ++i)
|
||||
if (WARGLIST(wp)[i].ae_fname != NULL)
|
||||
slash_adjust(WARGLIST(wp)[i].ae_fname);
|
||||
}
|
||||
#endif
|
||||
|
||||
/*
|
||||
* ":preserve".
|
||||
*/
|
||||
@ -9284,76 +9077,6 @@ eval_vars(
|
||||
return result;
|
||||
}
|
||||
|
||||
/*
|
||||
* Concatenate all files in the argument list, separated by spaces, and return
|
||||
* it in one allocated string.
|
||||
* Spaces and backslashes in the file names are escaped with a backslash.
|
||||
* Returns NULL when out of memory.
|
||||
*/
|
||||
static char_u *
|
||||
arg_all(void)
|
||||
{
|
||||
int len;
|
||||
int idx;
|
||||
char_u *retval = NULL;
|
||||
char_u *p;
|
||||
|
||||
/*
|
||||
* Do this loop two times:
|
||||
* first time: compute the total length
|
||||
* second time: concatenate the names
|
||||
*/
|
||||
for (;;)
|
||||
{
|
||||
len = 0;
|
||||
for (idx = 0; idx < ARGCOUNT; ++idx)
|
||||
{
|
||||
p = alist_name(&ARGLIST[idx]);
|
||||
if (p != NULL)
|
||||
{
|
||||
if (len > 0)
|
||||
{
|
||||
/* insert a space in between names */
|
||||
if (retval != NULL)
|
||||
retval[len] = ' ';
|
||||
++len;
|
||||
}
|
||||
for ( ; *p != NUL; ++p)
|
||||
{
|
||||
if (*p == ' '
|
||||
#ifndef BACKSLASH_IN_FILENAME
|
||||
|| *p == '\\'
|
||||
#endif
|
||||
|| *p == '`')
|
||||
{
|
||||
/* insert a backslash */
|
||||
if (retval != NULL)
|
||||
retval[len] = '\\';
|
||||
++len;
|
||||
}
|
||||
if (retval != NULL)
|
||||
retval[len] = *p;
|
||||
++len;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/* second time: break here */
|
||||
if (retval != NULL)
|
||||
{
|
||||
retval[len] = NUL;
|
||||
break;
|
||||
}
|
||||
|
||||
/* allocate memory */
|
||||
retval = alloc(len + 1);
|
||||
if (retval == NULL)
|
||||
break;
|
||||
}
|
||||
|
||||
return retval;
|
||||
}
|
||||
|
||||
/*
|
||||
* Expand the <sfile> string in "arg".
|
||||
*
|
||||
|
@ -61,6 +61,7 @@ extern int _stricoll(char *a, char *b);
|
||||
# include "crypt.pro"
|
||||
# include "crypt_zip.pro"
|
||||
# endif
|
||||
# include "arglist.pro"
|
||||
# include "autocmd.pro"
|
||||
# include "buffer.pro"
|
||||
# include "change.pro"
|
||||
|
32
src/proto/arglist.pro
Normal file
32
src/proto/arglist.pro
Normal file
@ -0,0 +1,32 @@
|
||||
/* arglist.c */
|
||||
void alist_clear(alist_T *al);
|
||||
void alist_init(alist_T *al);
|
||||
void alist_unlink(alist_T *al);
|
||||
void alist_new(void);
|
||||
void alist_expand(int *fnum_list, int fnum_len);
|
||||
void alist_set(alist_T *al, int count, char_u **files, int use_curbuf, int *fnum_list, int fnum_len);
|
||||
void alist_add(alist_T *al, char_u *fname, int set_fnum);
|
||||
void alist_slash_adjust(void);
|
||||
int get_arglist_exp(char_u *str, int *fcountp, char_u ***fnamesp, int wig);
|
||||
void set_arglist(char_u *str);
|
||||
int editing_arg_idx(win_T *win);
|
||||
void check_arg_idx(win_T *win);
|
||||
void ex_args(exarg_T *eap);
|
||||
void ex_previous(exarg_T *eap);
|
||||
void ex_rewind(exarg_T *eap);
|
||||
void ex_last(exarg_T *eap);
|
||||
void ex_argument(exarg_T *eap);
|
||||
void do_argfile(exarg_T *eap, int argn);
|
||||
void ex_next(exarg_T *eap);
|
||||
void ex_argedit(exarg_T *eap);
|
||||
void ex_argadd(exarg_T *eap);
|
||||
void ex_argdelete(exarg_T *eap);
|
||||
char_u *get_arglist_name(expand_T *xp, int idx);
|
||||
char_u *alist_name(aentry_T *aep);
|
||||
void ex_all(exarg_T *eap);
|
||||
char_u *arg_all(void);
|
||||
void f_argc(typval_T *argvars, typval_T *rettv);
|
||||
void f_argidx(typval_T *argvars, typval_T *rettv);
|
||||
void f_arglistid(typval_T *argvars, typval_T *rettv);
|
||||
void f_argv(typval_T *argvars, typval_T *rettv);
|
||||
/* vim: set ft=c : */
|
@ -52,8 +52,6 @@ int build_stl_str_hl(win_T *wp, char_u *out, size_t outlen, char_u *fmt, int use
|
||||
void get_rel_pos(win_T *wp, char_u *buf, int buflen);
|
||||
char_u *fix_fname(char_u *fname);
|
||||
void fname_expand(buf_T *buf, char_u **ffname, char_u **sfname);
|
||||
char_u *alist_name(aentry_T *aep);
|
||||
void do_arg_all(int count, int forceit, int keep_tabs);
|
||||
void ex_buffer_all(exarg_T *eap);
|
||||
void do_modelines(int flags);
|
||||
int bt_normal(buf_T *buf);
|
||||
|
@ -18,21 +18,7 @@ int can_abandon(buf_T *buf, int forceit);
|
||||
int check_changed_any(int hidden, int unload);
|
||||
int check_fname(void);
|
||||
int buf_write_all(buf_T *buf, int forceit);
|
||||
int get_arglist_exp(char_u *str, int *fcountp, char_u ***fnamesp, int wig);
|
||||
void set_arglist(char_u *str);
|
||||
void check_arg_idx(win_T *win);
|
||||
void ex_args(exarg_T *eap);
|
||||
void ex_previous(exarg_T *eap);
|
||||
void ex_rewind(exarg_T *eap);
|
||||
void ex_last(exarg_T *eap);
|
||||
void ex_argument(exarg_T *eap);
|
||||
void do_argfile(exarg_T *eap, int argn);
|
||||
void ex_next(exarg_T *eap);
|
||||
void ex_argedit(exarg_T *eap);
|
||||
void ex_argadd(exarg_T *eap);
|
||||
void ex_argdelete(exarg_T *eap);
|
||||
void ex_listdo(exarg_T *eap);
|
||||
char_u *get_arglist_name(expand_T *xp, int idx);
|
||||
void ex_compiler(exarg_T *eap);
|
||||
void ex_runtime(exarg_T *eap);
|
||||
int do_in_path(char_u *path, char_u *name, int flags, void (*callback)(char_u *fname, void *ck), void *cookie);
|
||||
|
@ -22,17 +22,8 @@ char_u *get_command_name(expand_T *xp, int idx);
|
||||
void not_exiting(void);
|
||||
void tabpage_close(int forceit);
|
||||
void tabpage_close_other(tabpage_T *tp, int forceit);
|
||||
void ex_all(exarg_T *eap);
|
||||
void handle_drop(int filec, char_u **filev, int split, void (*callback)(void *), void *cookie);
|
||||
void handle_any_postponed_drop(void);
|
||||
void alist_clear(alist_T *al);
|
||||
void alist_init(alist_T *al);
|
||||
void alist_unlink(alist_T *al);
|
||||
void alist_new(void);
|
||||
void alist_expand(int *fnum_list, int fnum_len);
|
||||
void alist_set(alist_T *al, int count, char_u **files, int use_curbuf, int *fnum_list, int fnum_len);
|
||||
void alist_add(alist_T *al, char_u *fname, int set_fnum);
|
||||
void alist_slash_adjust(void);
|
||||
void ex_splitview(exarg_T *eap);
|
||||
void tabpage_new(void);
|
||||
void do_exedit(exarg_T *eap, win_T *old_curwin);
|
||||
|
@ -769,6 +769,8 @@ static char *(features[]) =
|
||||
|
||||
static int included_patches[] =
|
||||
{ /* Add new patch number below this line */
|
||||
/**/
|
||||
1869,
|
||||
/**/
|
||||
1868,
|
||||
/**/
|
||||
|
Loading…
x
Reference in New Issue
Block a user