To: vim_dev@googlegroups.com
Subject: Patch 7.4.260
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.260
Problem: It is possible to define a function with a colon in the name. It
is possible to define a function with a lower case character if a
"#" appears after the name.
Solution: Disallow using a colon other than with "s:". Ignore "#" after the
name.
Files: runtime/doc/eval.txt, src/eval.c, src/testdir/test_eval.in,
src/testdir/test_eval.ok
*** ../vim-7.4.259/runtime/doc/eval.txt 2014-04-05 19:44:36.891160723 +0200
--- runtime/doc/eval.txt 2014-04-23 17:19:57.914982886 +0200
***************
*** 123,128 ****
--- 123,129 ----
:echo Fn()
< *E704* *E705* *E707*
A Funcref variable must start with a capital, "s:", "w:", "t:" or "b:". You
+ can use "g:" but the following name must still start with a capital. You
cannot have both a Funcref variable and a function with the same name.
A special case is defining a function and directly assigning its Funcref to a
***************
*** 6675,6680 ****
--- 6691,6698 ----
and autocommands defined in the script. It is also possible to call the
function from a mapping defined in the script, but then |<SID>| must be used
instead of "s:" when the mapping is expanded outside of the script.
+ There are only script-local functions, no buffer-local or window-local
+ functions.
*:fu* *:function* *E128* *E129* *E123*
:fu[nction] List all functions and their arguments.
***************
*** 6698,6708 ****
<
See |:verbose-cmd| for more information.
! *E124* *E125* *E853*
:fu[nction][!] {name}([arguments]) [range] [abort] [dict]
Define a new function by the name {name}. The name
must be made of alphanumeric characters and '_', and
! must start with a capital or "s:" (see above).
{name} can also be a |Dictionary| entry that is a
|Funcref|: >
--- 6716,6727 ----
<
See |:verbose-cmd| for more information.
! *E124* *E125* *E853* *E884*
:fu[nction][!] {name}([arguments]) [range] [abort] [dict]
Define a new function by the name {name}. The name
must be made of alphanumeric characters and '_', and
! must start with a capital or "s:" (see above). Note
! that using "b:" or "g:" is not allowed.
{name} can also be a |Dictionary| entry that is a
|Funcref|: >
*** ../vim-7.4.259/src/eval.c 2014-04-11 10:22:46.288219453 +0200
--- src/eval.c 2014-04-23 17:37:23.890957682 +0200
***************
*** 808,814 ****
static void list_func_head __ARGS((ufunc_T *fp, int indent));
static ufunc_T *find_func __ARGS((char_u *name));
static int function_exists __ARGS((char_u *name));
! static int builtin_function __ARGS((char_u *name));
#ifdef FEAT_PROFILE
static void func_do_profile __ARGS((ufunc_T *fp));
static void prof_sort_list __ARGS((FILE *fd, ufunc_T **sorttab, int st_len, char *title, int prefer_self));
--- 808,814 ----
static void list_func_head __ARGS((ufunc_T *fp, int indent));
static ufunc_T *find_func __ARGS((char_u *name));
static int function_exists __ARGS((char_u *name));
! static int builtin_function __ARGS((char_u *name, int len));
#ifdef FEAT_PROFILE
static void func_do_profile __ARGS((ufunc_T *fp));
static void prof_sort_list __ARGS((FILE *fd, ufunc_T **sorttab, int st_len, char *title, int prefer_self));
***************
*** 8489,8495 ****
rettv->vval.v_number = 0;
error = ERROR_UNKNOWN;
! if (!builtin_function(fname))
{
/*
* User defined function.
--- 8489,8495 ----
rettv->vval.v_number = 0;
error = ERROR_UNKNOWN;
! if (!builtin_function(fname, -1))
{
/*
* User defined function.
***************
*** 21584,21589 ****
--- 21584,21590 ----
* Get the function name. There are these situations:
* func normal function name
* "name" == func, "fudi.fd_dict" == NULL
+ * s:func script-local function name
* dict.func new dictionary entry
* "name" == NULL, "fudi.fd_dict" set,
* "fudi.fd_di" == NULL, "fudi.fd_newkey" == func
***************
*** 22314,22324 ****
lead += (int)STRLEN(sid_buf);
}
}
! else if (!(flags & TFN_INT) && builtin_function(lv.ll_name))
{
! EMSG2(_("E128: Function name must start with a capital or contain a colon: %s"), lv.ll_name);
goto theend;
}
name = alloc((unsigned)(len + lead + 1));
if (name != NULL)
{
--- 22315,22338 ----
lead += (int)STRLEN(sid_buf);
}
}
! else if (!(flags & TFN_INT) && builtin_function(lv.ll_name, len))
{
! EMSG2(_("E128: Function name must start with a capital or \"s:\": %s"),
! lv.ll_name);
goto theend;
}
+ if (!skip)
+ {
+ char_u *cp = vim_strchr(lv.ll_name, ':');
+
+ if (cp != NULL && cp < end)
+ {
+ EMSG2(_("E884: Function name cannot contain a colon: %s"),
+ lv.ll_name);
+ goto theend;
+ }
+ }
+
name = alloc((unsigned)(len + lead + 1));
if (name != NULL)
{
***************
*** 22331,22337 ****
STRCPY(name + 3, sid_buf);
}
mch_memmove(name + lead, lv.ll_name, (size_t)len);
! name[len + lead] = NUL;
}
*pp = end;
--- 22345,22351 ----
STRCPY(name + 3, sid_buf);
}
mch_memmove(name + lead, lv.ll_name, (size_t)len);
! name[lead + len] = NUL;
}
*pp = end;
***************
*** 22452,22458 ****
translated_function_exists(name)
char_u *name;
{
! if (builtin_function(name))
return find_internal_func(name) >= 0;
return find_func(name) != NULL;
}
--- 22466,22472 ----
translated_function_exists(name)
char_u *name;
{
! if (builtin_function(name, -1))
return find_internal_func(name) >= 0;
return find_func(name) != NULL;
}
***************
*** 22500,22513 ****
/*
* Return TRUE if "name" looks like a builtin function name: starts with a
! * lower case letter and doesn't contain a ':' or AUTOLOAD_CHAR.
*/
static int
! builtin_function(name)
char_u *name;
{
! return ASCII_ISLOWER(name[0]) && vim_strchr(name, ':') == NULL
! && vim_strchr(name, AUTOLOAD_CHAR) == NULL;
}
#if defined(FEAT_PROFILE) || defined(PROTO)
--- 22514,22533 ----
/*
* Return TRUE if "name" looks like a builtin function name: starts with a
! * lower case letter and doesn't contain AUTOLOAD_CHAR.
! * "len" is the length of "name", or -1 for NUL terminated.
*/
static int
! builtin_function(name, len)
char_u *name;
+ int len;
{
! char_u *p;
!
! if (!ASCII_ISLOWER(name[0]))
! return FALSE;
! p = vim_strchr(name, AUTOLOAD_CHAR);
! return p == NULL || (len > 0 && p > name + len);
}
#if defined(FEAT_PROFILE) || defined(PROTO)
*** ../vim-7.4.259/src/testdir/test_eval.in 2014-04-05 21:28:50.667174384 +0200
--- src/testdir/test_eval.in 2014-04-23 17:35:12.086960858 +0200
***************
*** 144,149 ****
--- 144,167 ----
:delcommand AR
:call garbagecollect(1)
:"
+ :" function name includes a colon
+ :try
+ :func! g:test()
+ :echo "test"
+ :endfunc
+ :catch
+ :$put =v:exception
+ :endtry
+ :"
+ :" function name folowed by #
+ :try
+ :func! test2() "#
+ :echo "test2"
+ :endfunc
+ :catch
+ :$put =v:exception
+ :endtry
+ :"
:/^start:/+1,$wq! test.out
:" vim: et ts=4 isk-=\: fmr=???,???
:call getchar()
*** ../vim-7.4.259/src/testdir/test_eval.ok 2014-04-05 21:28:50.667174384 +0200
--- src/testdir/test_eval.ok 2014-04-23 17:36:34.602958870 +0200
***************
*** 335,337 ****
--- 335,339 ----
Vim(call):E883: search pattern and expression register may not contain two or more lines
Executing call setreg(1, ["", "", [], ""])
Vim(call):E730: using List as a String
+ Vim(function):E128: Function name must start with a capital or "s:": g:test()
+ Vim(function):E128: Function name must start with a capital or "s:": test2() "#
*** ../vim-7.4.259/src/version.c 2014-04-23 12:52:36.499369426 +0200
--- src/version.c 2014-04-23 17:17:50.994985945 +0200
***************
*** 736,737 ****
--- 736,739 ----
{ /* Add new patch number below this line */
+ /**/
+ 260,
/**/
--
From "know your smileys":
;-0 Can't find shift key
,-9 Kann Umschalttaste nicht finden
/// 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 ///