Mercurial > vim

comparison src/eval.c @ 7651:c7575b07de98 v7.4.1125

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
7650:fbc4cabe6704 7651:c7575b07de98
655 #endif 655 #endif
656 static void f_nextnonblank __ARGS((typval_T *argvars, typval_T *rettv)); 656 static void f_nextnonblank __ARGS((typval_T *argvars, typval_T *rettv));
657 static void f_nr2char __ARGS((typval_T *argvars, typval_T *rettv)); 657 static void f_nr2char __ARGS((typval_T *argvars, typval_T *rettv));
658 static void f_or __ARGS((typval_T *argvars, typval_T *rettv)); 658 static void f_or __ARGS((typval_T *argvars, typval_T *rettv));
659 static void f_pathshorten __ARGS((typval_T *argvars, typval_T *rettv)); 659 static void f_pathshorten __ARGS((typval_T *argvars, typval_T *rettv));
660 #ifdef FEAT_PERL
661 static void f_perleval __ARGS((typval_T *argvars, typval_T *rettv));
662 #endif
660 #ifdef FEAT_FLOAT 663 #ifdef FEAT_FLOAT
661 static void f_pow __ARGS((typval_T *argvars, typval_T *rettv)); 664 static void f_pow __ARGS((typval_T *argvars, typval_T *rettv));
662 #endif 665 #endif
663 static void f_prevnonblank __ARGS((typval_T *argvars, typval_T *rettv)); 666 static void f_prevnonblank __ARGS((typval_T *argvars, typval_T *rettv));
664 static void f_printf __ARGS((typval_T *argvars, typval_T *rettv)); 667 static void f_printf __ARGS((typval_T *argvars, typval_T *rettv));
8268 #endif 8271 #endif
8269 {"nextnonblank", 1, 1, f_nextnonblank}, 8272 {"nextnonblank", 1, 1, f_nextnonblank},
8270 {"nr2char", 1, 2, f_nr2char}, 8273 {"nr2char", 1, 2, f_nr2char},
8271 {"or", 2, 2, f_or}, 8274 {"or", 2, 2, f_or},
8272 {"pathshorten", 1, 1, f_pathshorten}, 8275 {"pathshorten", 1, 1, f_pathshorten},
8276 #ifdef FEAT_PERL
8277 {"perleval", 1, 1, f_perleval},
8278 #endif
8273 #ifdef FEAT_FLOAT 8279 #ifdef FEAT_FLOAT
8274 {"pow", 2, 2, f_pow}, 8280 {"pow", 2, 2, f_pow},
8275 #endif 8281 #endif
8276 {"prevnonblank", 1, 1, f_prevnonblank}, 8282 {"prevnonblank", 1, 1, f_prevnonblank},
8277 {"printf", 2, 19, f_printf}, 8283 {"printf", 2, 19, f_printf},
15477 rettv->vval.v_string = p; 15483 rettv->vval.v_string = p;
15478 if (p != NULL) 15484 if (p != NULL)
15479 shorten_dir(p); 15485 shorten_dir(p);
15480 } 15486 }
15481 } 15487 }
15488
15489 #ifdef FEAT_PERL
15490 /*
15491 * "perleval()" function
15492 */
15493 static void
15494 f_perleval(argvars, rettv)
15495 typval_T *argvars;
15496 typval_T *rettv;
15497 {
15498 char_u *str;
15499 char_u buf[NUMBUFLEN];
15500
15501 str = get_tv_string_buf(&argvars[0], buf);
15502 do_perleval(str, rettv);
15503 }
15504 #endif
15482 15505
15483 #ifdef FEAT_FLOAT 15506 #ifdef FEAT_FLOAT
15484 /* 15507 /*
15485 * "pow()" function 15508 * "pow()" function
15486 */ 15509 */