To: vim_dev@googlegroups.com
Subject: Patch 7.4.813
Fcc: outbox
From: Bram Moolenaar <Bram@moolenaar.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
------------
Patch 7.4.813
Problem: It is not possible to save and restore character search state.
Solution: Add getcharsearch() and setcharsearch(). (James McCoy)
Files: runtime/doc/eval.txt, src/eval.c, src/proto/search.pro,
src/search.c, src/testdir/test_charsearch.in,
src/testdir/test_charsearch.ok, src/testdir/Makefile,
src/testdir/Make_amiga.mak, src/testdir/Make_dos.mak,
src/testdir/Make_ming.mak, src/testdir/Make_os2.mak,
src/testdir/Make_vms.mms
*** ../vim-7.4.812/runtime/doc/eval.txt 2015-07-21 15:48:13.581518028 +0200
--- runtime/doc/eval.txt 2015-08-11 13:32:31.643435417 +0200
***************
*** 1820,1828 ****
any variable {varname} in buffer {expr}
getchar( [expr]) Number get one character from the user
getcharmod( ) Number modifiers for the last typed character
getcmdline() String return the current command-line
getcmdpos() Number return cursor position in command-line
! getcmdtype() String return the current command-line type
getcurpos() List position of the cursor
getcwd() String the current working directory
getfontname( [{name}]) String name of font being used
--- 1822,1832 ----
any variable {varname} in buffer {expr}
getchar( [expr]) Number get one character from the user
getcharmod( ) Number modifiers for the last typed character
+ getcharsearch() Dict last character search
getcmdline() String return the current command-line
getcmdpos() Number return cursor position in command-line
! getcmdtype() String return current command-line type
! getcmdwintype() String return current command-line window type
getcurpos() List position of the cursor
getcwd() String the current working directory
getfontname( [{name}]) String name of font being used
***************
*** 1968,1973 ****
--- 1972,1978 ----
Number send reply string
serverlist() String get a list of available servers
setbufvar( {expr}, {varname}, {val}) set {varname} in buffer {expr} to {val}
+ setcharsearch( {dict}) Dict set character search from {dict}
setcmdpos( {pos}) Number set cursor position in command-line
setline( {lnum}, {line}) Number set line {lnum} to {line}
setloclist( {nr}, {list}[, {action}])
***************
*** 3334,3339 ****
--- 3363,3388 ----
character itself are obtained. Thus Shift-a results in "A"
without a modifier.
+ getcharsearch() *getcharsearch()*
+ Return the current character search information as a {dict}
+ with the following entries:
+
+ char character previously used for a character
+ search (|t|, |f|, |T|, or |F|); empty string
+ if no character search has been performed
+ forward direction of character search; 1 for forward,
+ 0 for backward
+ until type of character search; 1 for a |t| or |T|
+ character search, 0 for an |f| or |F|
+ character search
+
+ This can be useful to always have |;| and |,| search
+ forward/backward regardless of the direction of the previous
+ character search: >
+ :nnoremap <expr> ; getcharsearch().forward ? ';' : ','
+ :nnoremap <expr> , getcharsearch().forward ? ',' : ';'
+ < Also see |setcharsearch()|.
+
getcmdline() *getcmdline()*
Return the current command-line. Only works when the command
line is being edited, thus requires use of |c_CTRL-\_e| or
***************
*** 5356,5361 ****
--- 5419,5444 ----
:call setbufvar("todo", "myvar", "foobar")
< This function is not available in the |sandbox|.
+ setcharsearch() *setcharsearch()*
+ Set the current character search information to {dict},
+ which contains one or more of the following entries:
+
+ char character which will be used for a subsequent
+ |,| or |;| command; an empty string clears the
+ character search
+ forward direction of character search; 1 for forward,
+ 0 for backward
+ until type of character search; 1 for a |t| or |T|
+ character search, 0 for an |f| or |F|
+ character search
+
+ This can be useful to save/restore a user's character search
+ from a script: >
+ :let prevsearch = getcharsearch()
+ :" Perform a command which clobbers user's search
+ :call setcharsearch(prevsearch)
+ < Also see |getcharsearch()|.
+
setcmdpos({pos}) *setcmdpos()*
Set the cursor position in the command line to byte position
{pos}. The first position is 1.
*** ../vim-7.4.812/src/eval.c 2015-07-21 15:48:13.585517990 +0200
--- src/eval.c 2015-08-11 13:34:03.374392656 +0200
***************
*** 555,560 ****
--- 555,561 ----
static void f_getbufvar __ARGS((typval_T *argvars, typval_T *rettv));
static void f_getchar __ARGS((typval_T *argvars, typval_T *rettv));
static void f_getcharmod __ARGS((typval_T *argvars, typval_T *rettv));
+ static void f_getcharsearch __ARGS((typval_T *argvars, typval_T *rettv));
static void f_getcmdline __ARGS((typval_T *argvars, typval_T *rettv));
static void f_getcmdpos __ARGS((typval_T *argvars, typval_T *rettv));
static void f_getcmdtype __ARGS((typval_T *argvars, typval_T *rettv));
***************
*** 688,693 ****
--- 689,695 ----
static void f_server2client __ARGS((typval_T *argvars, typval_T *rettv));
static void f_serverlist __ARGS((typval_T *argvars, typval_T *rettv));
static void f_setbufvar __ARGS((typval_T *argvars, typval_T *rettv));
+ static void f_setcharsearch __ARGS((typval_T *argvars, typval_T *rettv));
static void f_setcmdpos __ARGS((typval_T *argvars, typval_T *rettv));
static void f_setline __ARGS((typval_T *argvars, typval_T *rettv));
static void f_setloclist __ARGS((typval_T *argvars, typval_T *rettv));
***************
*** 8149,8154 ****
--- 8151,8157 ----
{"getbufvar", 2, 3, f_getbufvar},
{"getchar", 0, 1, f_getchar},
{"getcharmod", 0, 0, f_getcharmod},
+ {"getcharsearch", 0, 0, f_getcharsearch},
{"getcmdline", 0, 0, f_getcmdline},
{"getcmdpos", 0, 0, f_getcmdpos},
{"getcmdtype", 0, 0, f_getcmdtype},
***************
*** 8285,8290 ****
--- 8288,8294 ----
{"server2client", 2, 2, f_server2client},
{"serverlist", 0, 0, f_serverlist},
{"setbufvar", 3, 3, f_setbufvar},
+ {"setcharsearch", 1, 1, f_setcharsearch},
{"setcmdpos", 1, 1, f_setcmdpos},
{"setline", 2, 2, f_setline},
{"setloclist", 2, 3, f_setloclist},
***************
*** 11664,11669 ****
--- 11668,11691 ----
}
/*
+ * "getcharsearch()" function
+ */
+ static void
+ f_getcharsearch(argvars, rettv)
+ typval_T *argvars UNUSED;
+ typval_T *rettv;
+ {
+ if (rettv_dict_alloc(rettv) != FAIL)
+ {
+ dict_T *dict = rettv->vval.v_dict;
+
+ dict_add_nr_str(dict, "char", 0L, last_csearch());
+ dict_add_nr_str(dict, "forward", last_csearch_forward(), NULL);
+ dict_add_nr_str(dict, "until", last_csearch_until(), NULL);
+ }
+ }
+
+ /*
* "getcmdline()" function
*/
static void
***************
*** 17004,17009 ****
--- 17026,17073 ----
}
}
+ static void
+ f_setcharsearch(argvars, rettv)
+ typval_T *argvars;
+ typval_T *rettv UNUSED;
+ {
+ dict_T *d;
+ dictitem_T *di;
+ char_u *csearch;
+
+ if (argvars[0].v_type != VAR_DICT)
+ {
+ EMSG(_(e_dictreq));
+ return;
+ }
+
+ if ((d = argvars[0].vval.v_dict) != NULL)
+ {
+ csearch = get_dict_string(d, (char_u *)"char", FALSE);
+ if (csearch != NULL)
+ {
+ if (enc_utf8)
+ {
+ int pcc[MAX_MCO];
+ int c = utfc_ptr2char(csearch, pcc);
+ set_last_csearch(c, csearch, utfc_ptr2len(csearch));
+ }
+ else
+ set_last_csearch(mb_ptr2char(csearch),
+ csearch, mb_ptr2len(csearch));
+ }
+
+ di = dict_find(d, (char_u *)"forward", -1);
+ if (di != NULL)
+ set_csearch_direction(get_tv_number(&di->di_tv)
+ ? FORWARD : BACKWARD);
+
+ di = dict_find(d, (char_u *)"until", -1);
+ if (di != NULL)
+ set_csearch_until(!!get_tv_number(&di->di_tv));
+ }
+ }
+
/*
* "setcmdpos()" function
*/
*** ../vim-7.4.812/src/proto/search.pro 2014-12-13 03:17:07.465046539 +0100
--- src/proto/search.pro 2015-08-11 13:32:31.651435327 +0200
***************
*** 8,13 ****
--- 8,19 ----
void free_search_patterns __ARGS((void));
int ignorecase __ARGS((char_u *pat));
int pat_has_uppercase __ARGS((char_u *pat));
+ char_u *last_csearch __ARGS((void));
+ int last_csearch_forward __ARGS((void));
+ int last_csearch_until __ARGS((void));
+ void set_last_csearch __ARGS((int c, char_u *s, int len));
+ void set_csearch_direction __ARGS((int cdir));
+ void set_csearch_until __ARGS((int t_cmd));
char_u *last_search_pat __ARGS((void));
void reset_search_dir __ARGS((void));
void set_last_search_pat __ARGS((char_u *s, int idx, int magic, int setlast));
*** ../vim-7.4.812/src/search.c 2015-07-28 21:17:31.518069428 +0200
--- src/search.c 2015-08-11 14:05:25.425003350 +0200
***************
*** 89,94 ****
--- 89,102 ----
static int last_idx = 0; /* index in spats[] for RE_LAST */
+ static char_u lastc[2] = {NUL, NUL}; /* last character searched for */
+ static int lastcdir = FORWARD; /* last direction of character search */
+ static int last_t_cmd = TRUE; /* last search t_cmd */
+ #ifdef FEAT_MBYTE
+ static char_u lastc_bytes[MB_MAXBYTES + 1];
+ static int lastc_bytelen = 1; /* >1 for multi-byte char */
+ #endif
+
#if defined(FEAT_AUTOCMD) || defined(FEAT_EVAL) || defined(PROTO)
/* copy of spats[], for keeping the search patterns while executing autocmds */
static struct spat saved_spats[2];
***************
*** 378,384 ****
}
/*
! * Return TRUE if patter "pat" has an uppercase character.
*/
int
pat_has_uppercase(pat)
--- 386,392 ----
}
/*
! * Return TRUE if pattern "pat" has an uppercase character.
*/
int
pat_has_uppercase(pat)
***************
*** 419,424 ****
--- 427,484 ----
}
char_u *
+ last_csearch()
+ {
+ #ifdef FEAT_MBYTE
+ return lastc_bytes;
+ #else
+ return lastc;
+ #endif
+ }
+
+ int
+ last_csearch_forward()
+ {
+ return lastcdir == FORWARD;
+ }
+
+ int
+ last_csearch_until()
+ {
+ return last_t_cmd == TRUE;
+ }
+
+ void
+ set_last_csearch(c, s, len)
+ int c;
+ char_u *s;
+ int len;
+ {
+ *lastc = c;
+ #ifdef FEAT_MBYTE
+ lastc_bytelen = len;
+ if (len)
+ memcpy(lastc_bytes, s, len);
+ else
+ vim_memset(lastc_bytes, 0, sizeof(lastc_bytes));
+ #endif
+ }
+
+ void
+ set_csearch_direction(cdir)
+ int cdir;
+ {
+ lastcdir = cdir;
+ }
+
+ void
+ set_csearch_until(t_cmd)
+ int t_cmd;
+ {
+ last_t_cmd = t_cmd;
+ }
+
+ char_u *
last_search_pat()
{
return spats[last_idx].pat;
***************
*** 1559,1605 ****
int c = cap->nchar; /* char to search for */
int dir = cap->arg; /* TRUE for searching forward */
long count = cap->count1; /* repeat count */
- static int lastc = NUL; /* last character searched for */
- static int lastcdir; /* last direction of character search */
- static int last_t_cmd; /* last search t_cmd */
int col;
char_u *p;
int len;
int stop = TRUE;
- #ifdef FEAT_MBYTE
- static char_u bytes[MB_MAXBYTES + 1];
- static int bytelen = 1; /* >1 for multi-byte char */
- #endif
if (c != NUL) /* normal search: remember args for repeat */
{
if (!KeyStuffed) /* don't remember when redoing */
{
! lastc = c;
! lastcdir = dir;
! last_t_cmd = t_cmd;
#ifdef FEAT_MBYTE
! bytelen = (*mb_char2bytes)(c, bytes);
if (cap->ncharC1 != 0)
{
! bytelen += (*mb_char2bytes)(cap->ncharC1, bytes + bytelen);
if (cap->ncharC2 != 0)
! bytelen += (*mb_char2bytes)(cap->ncharC2, bytes + bytelen);
}
#endif
}
}
else /* repeat previous search */
{
! if (lastc == NUL)
return FAIL;
if (dir) /* repeat in opposite direction */
dir = -lastcdir;
else
dir = lastcdir;
t_cmd = last_t_cmd;
! c = lastc;
! /* For multi-byte re-use last bytes[] and bytelen. */
/* Force a move of at least one char, so ";" and "," will move the
* cursor, even if the cursor is right in front of char we are looking
--- 1619,1660 ----
int c = cap->nchar; /* char to search for */
int dir = cap->arg; /* TRUE for searching forward */
long count = cap->count1; /* repeat count */
int col;
char_u *p;
int len;
int stop = TRUE;
if (c != NUL) /* normal search: remember args for repeat */
{
if (!KeyStuffed) /* don't remember when redoing */
{
! *lastc = c;
! set_csearch_direction(dir);
! set_csearch_until(t_cmd);
#ifdef FEAT_MBYTE
! lastc_bytelen = (*mb_char2bytes)(c, lastc_bytes);
if (cap->ncharC1 != 0)
{
! lastc_bytelen += (*mb_char2bytes)(cap->ncharC1,
! lastc_bytes + lastc_bytelen);
if (cap->ncharC2 != 0)
! lastc_bytelen += (*mb_char2bytes)(cap->ncharC2,
! lastc_bytes + lastc_bytelen);
}
#endif
}
}
else /* repeat previous search */
{
! if (*lastc == NUL)
return FAIL;
if (dir) /* repeat in opposite direction */
dir = -lastcdir;
else
dir = lastcdir;
t_cmd = last_t_cmd;
! c = *lastc;
! /* For multi-byte re-use last lastc_bytes[] and lastc_bytelen. */
/* Force a move of at least one char, so ";" and "," will move the
* cursor, even if the cursor is right in front of char we are looking
***************
*** 1636,1649 ****
return FAIL;
col -= (*mb_head_off)(p, p + col - 1) + 1;
}
! if (bytelen == 1)
{
if (p[col] == c && stop)
break;
}
else
{
! if (vim_memcmp(p + col, bytes, bytelen) == 0 && stop)
break;
}
stop = TRUE;
--- 1691,1704 ----
return FAIL;
col -= (*mb_head_off)(p, p + col - 1) + 1;
}
! if (lastc_bytelen == 1)
{
if (p[col] == c && stop)
break;
}
else
{
! if (vim_memcmp(p + col, lastc_bytes, lastc_bytelen) == 0 && stop)
break;
}
stop = TRUE;
***************
*** 1671,1678 ****
if (has_mbyte)
{
if (dir < 0)
! /* Landed on the search char which is bytelen long */
! col += bytelen - 1;
else
/* To previous char, which may be multi-byte. */
col -= (*mb_head_off)(p, p + col);
--- 1726,1733 ----
if (has_mbyte)
{
if (dir < 0)
! /* Landed on the search char which is lastc_bytelen long */
! col += lastc_bytelen - 1;
else
/* To previous char, which may be multi-byte. */
col -= (*mb_head_off)(p, p + col);
*** ../vim-7.4.812/src/testdir/test_charsearch.in 2015-08-11 14:22:29.713361737 +0200
--- src/testdir/test_charsearch.in 2015-08-11 14:12:34.048131520 +0200
***************
*** 0 ****
--- 1,25 ----
+ Test for character searches
+
+ STARTTEST
+ :so small.vim
+ :" check that "fe" and ";" work
+ /^X
+ ylfep;;p,,p:
+ :" check that save/restore works
+ /^Y
+ ylfep:let csave = getcharsearch()
+ fip:call setcharsearch(csave)
+ ;p;p:
+ :" check that setcharsearch() changes the settins.
+ /^Z
+ ylfep:call setcharsearch({'char': 'k'})
+ ;p:call setcharsearch({'forward': 0})
+ $;p:call setcharseearch({'until'}: 1})
+ ;;p:
+ :/^X/,$w! test.out
+ :qa!
+ ENDTEST
+
+ Xabcdefghijkemnopqretuvwxyz
+ Yabcdefghijkemnopqretuvwxyz
+ Zabcdefghijkemnokqretkvwxyz
*** ../vim-7.4.812/src/testdir/test_charsearch.ok 2015-08-11 14:22:29.717361691 +0200
--- src/testdir/test_charsearch.ok 2015-08-11 13:59:20.253153843 +0200
***************
*** 0 ****
--- 1,3 ----
+ XabcdeXfghijkeXmnopqreXtuvwxyz
+ YabcdeYfghiYjkeYmnopqreYtuvwxyz
+ ZabcdeZfghijkZemnokZqretkZvwxyz
*** ../vim-7.4.812/src/testdir/Makefile 2015-07-21 15:48:13.593517912 +0200
--- src/testdir/Makefile 2015-08-11 13:46:04.386197622 +0200
***************
*** 39,44 ****
--- 39,45 ----
test_autoformat_join.out \
test_breakindent.out \
test_changelist.out \
+ test_charsearch.out \
test_close_count.out \
test_command_count.out \
test_erasebackword.out \
*** ../vim-7.4.812/src/testdir/Make_amiga.mak 2015-07-21 15:48:13.589517950 +0200
--- src/testdir/Make_amiga.mak 2015-08-11 13:45:21.702682710 +0200
***************
*** 42,47 ****
--- 42,48 ----
test_autoformat_join.out \
test_breakindent.out \
test_changelist.out \
+ test_charsearch.out \
test_close_count.out \
test_command_count.out \
test_erasebackword.out \
***************
*** 194,199 ****
--- 195,201 ----
test_autoformat_join.out: test_autoformat_join.in
test_breakindent.out: test_breakindent.in
test_changelist.out: test_changelist.in
+ test_charsearch.out: test_charsearch.in
test_close_count.out: test_close_count.in
test_command_count.out: test_command_count.in
test_erasebackword.out: test_erasebackword.in
*** ../vim-7.4.812/src/testdir/Make_dos.mak 2015-07-21 15:48:13.589517950 +0200
--- src/testdir/Make_dos.mak 2015-08-11 13:45:29.306596293 +0200
***************
*** 41,46 ****
--- 41,47 ----
test_autoformat_join.out \
test_breakindent.out \
test_changelist.out \
+ test_charsearch.out \
test_close_count.out \
test_command_count.out \
test_erasebackword.out \
*** ../vim-7.4.812/src/testdir/Make_ming.mak 2015-07-21 15:48:13.589517950 +0200
--- src/testdir/Make_ming.mak 2015-08-11 13:45:35.742523150 +0200
***************
*** 63,68 ****
--- 63,69 ----
test_autoformat_join.out \
test_breakindent.out \
test_changelist.out \
+ test_charsearch.out \
test_close_count.out \
test_command_count.out \
test_erasebackword.out \
*** ../vim-7.4.812/src/testdir/Make_os2.mak 2015-07-21 15:48:13.593517912 +0200
--- src/testdir/Make_os2.mak 2015-08-11 14:23:59.096345955 +0200
***************
*** 43,48 ****
--- 43,49 ----
test_autoformat_join.out \
test_breakindent.out \
test_changelist.out \
+ test_charsearch.out \
test_close_count.out \
test_command_count.out \
test_erasebackword.out \
*** ../vim-7.4.812/src/testdir/Make_vms.mms 2015-07-21 15:48:13.593517912 +0200
--- src/testdir/Make_vms.mms 2015-08-11 14:24:20.772099626 +0200
***************
*** 4,10 ****
# Authors: Zoltan Arpadffy, <arpadffy@polarhome.com>
# Sandor Kopanyi, <sandor.kopanyi@mailbox.hu>
#
! # Last change: 2015 Jul 17
#
# This has been tested on VMS 6.2 to 8.3 on DEC Alpha, VAX and IA64.
# Edit the lines in the Configuration section below to select.
--- 4,10 ----
# Authors: Zoltan Arpadffy, <arpadffy@polarhome.com>
# Sandor Kopanyi, <sandor.kopanyi@mailbox.hu>
#
! # Last change: 2015 Aug 11
#
# This has been tested on VMS 6.2 to 8.3 on DEC Alpha, VAX and IA64.
# Edit the lines in the Configuration section below to select.
***************
*** 102,107 ****
--- 102,108 ----
test_autoformat_join.out \
test_breakindent.out \
test_changelist.out \
+ test_charsearch.out \
test_close_count.out \
test_command_count.out \
test_erasebackword.out \
*** ../vim-7.4.812/src/version.c 2015-08-08 18:23:41.219566256 +0200
--- src/version.c 2015-08-11 13:22:49.398054460 +0200
***************
*** 743,744 ****
--- 743,746 ----
{ /* Add new patch number below this line */
+ /**/
+ 813,
/**/
--
`When any government, or any church for that matter, undertakes to say to
its subjects, "This you may not read, this you must not see, this you are
forbidden to know," the end result is tyranny and oppression no matter how
holy the motives' -- Robert A Heinlein, "If this goes on --"
/// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net \\\
/// sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
\\\ an exciting new programming language -- http://www.Zimbu.org ///
\\\ help me help AIDS victims -- http://ICCF-Holland.org ///