From 25536f415eab5a90d68b3c689c66a72803cd8e5d Mon Sep 17 00:00:00 2001 From: Yegappan Lakshmanan Date: Wed, 22 May 2024 16:45:04 +0200 Subject: patch 9.1.0431: eval.c is too long Problem: eval.c is too long Solution: Move garbage collection code to new gc.c file (Yegappan Lakshmanan) closes: #14824 Signed-off-by: Yegappan Lakshmanan Signed-off-by: Christian Brabandt --- src/list.c | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) (limited to 'src/list.c') diff --git a/src/list.c b/src/list.c index e9f1ae3206..9479b4b6ab 100644 --- a/src/list.c +++ b/src/list.c @@ -3194,4 +3194,28 @@ f_reduce(typval_T *argvars, typval_T *rettv) blob_reduce(argvars, &argvars[1], rettv); } +/* + * slice() function + */ + void +f_slice(typval_T *argvars, typval_T *rettv) +{ + if (in_vim9script() + && ((argvars[0].v_type != VAR_STRING + && argvars[0].v_type != VAR_LIST + && argvars[0].v_type != VAR_BLOB + && check_for_list_arg(argvars, 0) == FAIL) + || check_for_number_arg(argvars, 1) == FAIL + || check_for_opt_number_arg(argvars, 2) == FAIL)) + return; + + if (check_can_index(&argvars[0], TRUE, FALSE) != OK) + return; + + copy_tv(argvars, rettv); + eval_index_inner(rettv, TRUE, argvars + 1, + argvars[2].v_type == VAR_UNKNOWN ? NULL : argvars + 2, + TRUE, NULL, 0, FALSE); +} + #endif // defined(FEAT_EVAL) -- cgit v1.2.3