From 0ccb5842f5fb103763d106c7aa364d758343c35a Mon Sep 17 00:00:00 2001 From: rbtnn Date: Sat, 18 Dec 2021 18:33:46 +0000 Subject: patch 8.2.3848: cannot use reduce() for a string Problem: Cannot use reduce() for a string. Solution: Make reduce() work with a string. (Naruhiko Nishino, closes #9366) --- src/typval.c | 27 +++++++++++++++++++-------- 1 file changed, 19 insertions(+), 8 deletions(-) (limited to 'src/typval.c') diff --git a/src/typval.c b/src/typval.c index 09381f279..7716873bb 100644 --- a/src/typval.c +++ b/src/typval.c @@ -662,6 +662,23 @@ check_for_string_or_list_arg(typval_T *args, int idx) return OK; } +/* + * Give an error and return FAIL unless "args[idx]" is a string, a list or a + * blob. + */ + int +check_for_string_or_list_or_blob_arg(typval_T *args, int idx) +{ + if (args[idx].v_type != VAR_STRING + && args[idx].v_type != VAR_LIST + && args[idx].v_type != VAR_BLOB) + { + semsg(_(e_string_list_or_blob_required_for_argument_nr), idx + 1); + return FAIL; + } + return OK; +} + /* * Check for an optional string or list argument at 'idx' */ @@ -697,10 +714,7 @@ check_for_string_or_number_or_list_arg(typval_T *args, int idx) && args[idx].v_type != VAR_NUMBER && args[idx].v_type != VAR_LIST) { - if (idx >= 0) - semsg(_(e_string_number_or_list_required_for_argument_nr), idx + 1); - else - emsg(_(e_stringreq)); + semsg(_(e_string_number_or_list_required_for_argument_nr), idx + 1); return FAIL; } return OK; @@ -742,10 +756,7 @@ check_for_list_or_blob_arg(typval_T *args, int idx) { if (args[idx].v_type != VAR_LIST && args[idx].v_type != VAR_BLOB) { - if (idx >= 0) - semsg(_(e_list_or_blob_required_for_argument_nr), idx + 1); - else - emsg(_(e_listreq)); + semsg(_(e_list_or_blob_required_for_argument_nr), idx + 1); return FAIL; } return OK; -- cgit v1.2.1