aniani/vim
0
0
Fork 1
mirror of https://github.com/vim/vim.git synced 2025-09-26 04:04:07 -04:00
Code Activity

patch 7.4.1125

Browse Source 
Problem:    There is no perleval().
Solution:   Add perleval(). (Damien)
This commit is contained in:
Bram Moolenaar
2016-01-17 21:15:58 +01:00
parent 25b2b94ea7
commit e9b892ebcd
8 changed files with 413 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/eval.c
View File

@@ -657,6 +657,9 @@ static void f_nextnonblank __ARGS((typval_T *argvars, typval_T *rettv));
static void f_nr2char __ARGS((typval_T *argvars, typval_T *rettv));
static void f_or __ARGS((typval_T *argvars, typval_T *rettv));
static void f_pathshorten __ARGS((typval_T *argvars, typval_T *rettv));
#ifdef FEAT_PERL
static void f_perleval __ARGS((typval_T *argvars, typval_T *rettv));
#endif
#ifdef FEAT_FLOAT
static void f_pow __ARGS((typval_T *argvars, typval_T *rettv));
#endif
@@ -8270,6 +8273,9 @@ static struct fst
{"nr2char", 1, 2, f_nr2char},
{"or", 2, 2, f_or},
{"pathshorten", 1, 1, f_pathshorten},
#ifdef FEAT_PERL
{"perleval", 1, 1, f_perleval},
#endif
#ifdef FEAT_FLOAT
{"pow", 2, 2, f_pow},
#endif
@@ -15480,6 +15486,23 @@ f_pathshorten(argvars, rettv)
}
}
#ifdef FEAT_PERL
/*
* "perleval()" function
*/
static void
f_perleval(argvars, rettv)
typval_T *argvars;
typval_T *rettv;
{
char_u *str;
char_u buf[NUMBUFLEN];
str = get_tv_string_buf(&argvars[0], buf);
do_perleval(str, rettv);
}
#endif
#ifdef FEAT_FLOAT
/*
* "pow()" function