Mercurial > vim
diff src/eval.c @ 7651:c7575b07de98 v7.4.1125
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun Jan 17 21:15:58 2016 +0100
patch 7.4.1125
Problem: There is no perleval().
Solution: Add perleval(). (Damien)
| author | Christian Brabandt <cb@256bit.org> |
|---|---|
| date | Sun, 17 Jan 2016 21:30:04 +0100 |
| parents | befbed72da87 |
| children | d4370fef0175 |
line wrap: on
line diff
--- a/src/eval.c +++ b/src/eval.c @@ -657,6 +657,9 @@ static void f_nextnonblank __ARGS((typva 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