vim: src/strings.c annotate

annotate src/strings.c @ 25364:af5c4fabcf40 v8.2.3219

patch 8.2.3219: :find searches non-existing directories Commit: https://github.com/vim/vim/commit/7a4ca32175bef0f9a177052796bd9addd10dc218 Author: Christian Brabandt <cb@256bit.org> Date: Sun Jul 25 15:08:05 2021 +0200 patch 8.2.3219: :find searches non-existing directories Problem: :find searches non-existing directories. Solution: Check the path is not "..". Update help. (Christian Brabandt, closes #8612, closes #8533)

author	Bram Moolenaar <Bram@vim.org>
date	Sun, 25 Jul 2021 15:15:04 +0200
parents	4d3c68196d05
children	e8e2c4d33b9b

rev	line source
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2 *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	4 *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	7 * See README.txt for an overview of the Vim source code.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	8 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	9
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	10 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	11 * strings.c: string manipulation functions
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	12 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	13
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	14 #include "vim.h"
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	15
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	16 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	17 * Copy "string" into newly allocated memory.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	18 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	19 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	20 vim_strsave(char_u *string)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	21 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	22 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	23 size_t len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	24
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	25 len = STRLEN(string) + 1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	26 p = alloc(len);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	27 if (p != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	28 mch_memmove(p, string, len);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	29 return p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	30 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	31
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	32 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	33 * Copy up to "len" bytes of "string" into newly allocated memory and
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	34 * terminate with a NUL.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	35 * The allocated memory always has size "len + 1", also when "string" is
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	36 * shorter.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	37 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	38 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	39 vim_strnsave(char_u *string, size_t len)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	40 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	41 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	42
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	43 p = alloc(len + 1);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	44 if (p != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	45 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	46 STRNCPY(p, string, len);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	47 p[len] = NUL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	48 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	49 return p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	50 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	51
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	52 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	53 * Same as vim_strsave(), but any characters found in esc_chars are preceded
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	54 * by a backslash.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	55 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	56 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	57 vim_strsave_escaped(char_u string, char_u esc_chars)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	58 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	59 return vim_strsave_escaped_ext(string, esc_chars, '\\', FALSE);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	60 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	61
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	62 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	63 * Same as vim_strsave_escaped(), but when "bsl" is TRUE also escape
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	64 * characters where rem_backslash() would remove the backslash.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	65 * Escape the characters with "cc".
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	66 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	67 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	68 vim_strsave_escaped_ext(
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	69 char_u *string,
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	70 char_u *esc_chars,
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	71 int cc,
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	72 int bsl)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	73 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	74 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	75 char_u *p2;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	76 char_u *escaped_string;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	77 unsigned length;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	78 int l;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	79
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	80 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	81 * First count the number of backslashes required.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	82 * Then allocate the memory and insert them.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	83 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	84 length = 1; // count the trailing NUL
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	85 for (p = string; *p; p++)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	86 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	87 if (has_mbyte && (l = (*mb_ptr2len)(p)) > 1)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	88 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	89 length += l; // count a multibyte char
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	90 p += l - 1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	91 continue;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	92 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	93 if (vim_strchr(esc_chars, *p) != NULL \|\| (bsl && rem_backslash(p)))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	94 ++length; // count a backslash
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	95 ++length; // count an ordinary char
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	96 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	97 escaped_string = alloc(length);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	98 if (escaped_string != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	99 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	100 p2 = escaped_string;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	101 for (p = string; *p; p++)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	102 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	103 if (has_mbyte && (l = (*mb_ptr2len)(p)) > 1)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	104 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	105 mch_memmove(p2, p, (size_t)l);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	106 p2 += l;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	107 p += l - 1; // skip multibyte char
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	108 continue;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	109 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	110 if (vim_strchr(esc_chars, *p) != NULL \|\| (bsl && rem_backslash(p)))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	111 *p2++ = cc;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	112 p2++ = p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	113 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	114 *p2 = NUL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	115 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	116 return escaped_string;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	117 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	118
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	119 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	120 * Return TRUE when 'shell' has "csh" in the tail.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	121 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	122 int
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	123 csh_like_shell(void)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	124 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	125 return (strstr((char *)gettail(p_sh), "csh") != NULL);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	126 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	127
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	128 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	129 * Escape "string" for use as a shell argument with system().
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	130 * This uses single quotes, except when we know we need to use double quotes
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	131 * (MS-DOS and MS-Windows not using PowerShell and without 'shellslash' set).
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	132 * PowerShell also uses a novel escaping for enclosed single quotes - double
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	133 * them up.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	134 * Escape a newline, depending on the 'shell' option.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	135 * When "do_special" is TRUE also replace "!", "%", "#" and things starting
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	136 * with "<" like "<cfile>".
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	137 * When "do_newline" is FALSE do not escape newline unless it is csh shell.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	138 * Returns the result in allocated memory, NULL if we have run out.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	139 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	140 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	141 vim_strsave_shellescape(char_u *string, int do_special, int do_newline)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	142 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	143 unsigned length;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	144 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	145 char_u *d;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	146 char_u *escaped_string;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	147 int l;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	148 int csh_like;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	149 char_u *shname;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	150 int powershell;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	151 # ifdef MSWIN
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	152 int double_quotes;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	153 # endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	154
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	155 // Only csh and similar shells expand '!' within single quotes. For sh and
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	156 // the like we must not put a backslash before it, it will be taken
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	157 // literally. If do_special is set the '!' will be escaped twice.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	158 // Csh also needs to have "\n" escaped twice when do_special is set.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	159 csh_like = csh_like_shell();
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	160
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	161 // PowerShell uses it's own version for quoting single quotes
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	162 shname = gettail(p_sh);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	163 powershell = strstr((char *)shname, "pwsh") != NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	164 # ifdef MSWIN
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	165 powershell = powershell \|\| strstr((char *)shname, "powershell") != NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	166 // PowerShell only accepts single quotes so override shellslash.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	167 double_quotes = !powershell && !p_ssl;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	168 # endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	169
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	170 // First count the number of extra bytes required.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	171 length = (unsigned)STRLEN(string) + 3; // two quotes and a trailing NUL
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	172 for (p = string; *p != NUL; MB_PTR_ADV(p))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	173 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	174 # ifdef MSWIN
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	175 if (double_quotes)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	176 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	177 if (*p == '"')
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	178 ++length; // " -> ""
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	179 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	180 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	181 # endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	182 if (*p == '\'')
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	183 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	184 if (powershell)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	185 length +=2; // ' => ''
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	186 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	187 length += 3; // ' => '\''
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	188 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	189 if ((*p == '\n' && (csh_like \|\| do_newline))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	190 \|\| (*p == '!' && (csh_like \|\| do_special)))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	191 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	192 ++length; // insert backslash
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	193 if (csh_like && do_special)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	194 ++length; // insert backslash
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	195 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	196 if (do_special && find_cmdline_var(p, &l) >= 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	197 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	198 ++length; // insert backslash
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	199 p += l - 1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	200 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	201 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	202
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	203 // Allocate memory for the result and fill it.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	204 escaped_string = alloc(length);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	205 if (escaped_string != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	206 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	207 d = escaped_string;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	208
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	209 // add opening quote
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	210 # ifdef MSWIN
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	211 if (double_quotes)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	212 *d++ = '"';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	213 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	214 # endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	215 *d++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	216
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	217 for (p = string; *p != NUL; )
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	218 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	219 # ifdef MSWIN
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	220 if (double_quotes)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	221 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	222 if (*p == '"')
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	223 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	224 *d++ = '"';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	225 *d++ = '"';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	226 ++p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	227 continue;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	228 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	229 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	230 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	231 # endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	232 if (*p == '\'')
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	233 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	234 if (powershell)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	235 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	236 *d++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	237 *d++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	238 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	239 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	240 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	241 *d++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	242 *d++ = '\\';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	243 *d++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	244 *d++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	245 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	246 ++p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	247 continue;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	248 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	249 if ((*p == '\n' && (csh_like \|\| do_newline))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	250 \|\| (*p == '!' && (csh_like \|\| do_special)))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	251 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	252 *d++ = '\\';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	253 if (csh_like && do_special)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	254 *d++ = '\\';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	255 d++ = p++;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	256 continue;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	257 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	258 if (do_special && find_cmdline_var(p, &l) >= 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	259 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	260 *d++ = '\\'; // insert backslash
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	261 while (--l >= 0) // copy the var
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	262 d++ = p++;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	263 continue;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	264 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	265
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	266 MB_COPY_CHAR(p, d);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	267 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	268
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	269 // add terminating quote and finish with a NUL
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	270 # ifdef MSWIN
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	271 if (double_quotes)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	272 *d++ = '"';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	273 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	274 # endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	275 *d++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	276 *d = NUL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	277 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	278
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	279 return escaped_string;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	280 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	281
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	282 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	283 * Like vim_strsave(), but make all characters uppercase.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	284 * This uses ASCII lower-to-upper case translation, language independent.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	285 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	286 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	287 vim_strsave_up(char_u *string)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	288 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	289 char_u *p1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	290
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	291 p1 = vim_strsave(string);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	292 vim_strup(p1);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	293 return p1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	294 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	295
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	296 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	297 * Like vim_strnsave(), but make all characters uppercase.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	298 * This uses ASCII lower-to-upper case translation, language independent.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	299 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	300 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	301 vim_strnsave_up(char_u *string, size_t len)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	302 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	303 char_u *p1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	304
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	305 p1 = vim_strnsave(string, len);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	306 vim_strup(p1);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	307 return p1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	308 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	309
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	310 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	311 * ASCII lower-to-upper case translation, language independent.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	312 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	313 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	314 vim_strup(
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	315 char_u *p)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	316 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	317 char_u *p2;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	318 int c;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	319
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	320 if (p != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	321 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	322 p2 = p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	323 while ((c = *p2) != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	324 #ifdef EBCDIC
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	325 *p2++ = isalpha(c) ? toupper(c) : c;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	326 #else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	327 *p2++ = (c < 'a' \|\| c > 'z') ? c : (c - 0x20);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	328 #endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	329 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	330 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	331
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	332 #if defined(FEAT_EVAL) \|\| defined(FEAT_SPELL) \|\| defined(PROTO)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	333 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	334 * Make string "s" all upper-case and return it in allocated memory.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	335 * Handles multi-byte characters as well as possible.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	336 * Returns NULL when out of memory.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	337 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	338 static char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	339 strup_save(char_u *orig)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	340 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	341 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	342 char_u *res;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	343
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	344 res = p = vim_strsave(orig);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	345
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	346 if (res != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	347 while (*p != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	348 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	349 int l;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	350
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	351 if (enc_utf8)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	352 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	353 int c, uc;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	354 int newl;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	355 char_u *s;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	356
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	357 c = utf_ptr2char(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	358 l = utf_ptr2len(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	359 if (c == 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	360 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	361 // overlong sequence, use only the first byte
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	362 c = *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	363 l = 1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	364 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	365 uc = utf_toupper(c);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	366
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	367 // Reallocate string when byte count changes. This is rare,
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	368 // thus it's OK to do another malloc()/free().
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	369 newl = utf_char2len(uc);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	370 if (newl != l)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	371 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	372 s = alloc(STRLEN(res) + 1 + newl - l);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	373 if (s == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	374 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	375 vim_free(res);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	376 return NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	377 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	378 mch_memmove(s, res, p - res);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	379 STRCPY(s + (p - res) + newl, p + l);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	380 p = s + (p - res);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	381 vim_free(res);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	382 res = s;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	383 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	384
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	385 utf_char2bytes(uc, p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	386 p += newl;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	387 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	388 else if (has_mbyte && (l = (*mb_ptr2len)(p)) > 1)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	389 p += l; // skip multi-byte character
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	390 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	391 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	392 p = TOUPPER_LOC(p); // note that toupper() can be a macro
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	393 p++;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	394 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	395 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	396
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	397 return res;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	398 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	399
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	400 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	401 * Make string "s" all lower-case and return it in allocated memory.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	402 * Handles multi-byte characters as well as possible.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	403 * Returns NULL when out of memory.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	404 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	405 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	406 strlow_save(char_u *orig)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	407 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	408 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	409 char_u *res;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	410
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	411 res = p = vim_strsave(orig);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	412
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	413 if (res != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	414 while (*p != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	415 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	416 int l;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	417
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	418 if (enc_utf8)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	419 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	420 int c, lc;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	421 int newl;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	422 char_u *s;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	423
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	424 c = utf_ptr2char(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	425 l = utf_ptr2len(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	426 if (c == 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	427 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	428 // overlong sequence, use only the first byte
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	429 c = *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	430 l = 1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	431 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	432 lc = utf_tolower(c);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	433
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	434 // Reallocate string when byte count changes. This is rare,
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	435 // thus it's OK to do another malloc()/free().
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	436 newl = utf_char2len(lc);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	437 if (newl != l)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	438 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	439 s = alloc(STRLEN(res) + 1 + newl - l);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	440 if (s == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	441 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	442 vim_free(res);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	443 return NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	444 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	445 mch_memmove(s, res, p - res);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	446 STRCPY(s + (p - res) + newl, p + l);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	447 p = s + (p - res);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	448 vim_free(res);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	449 res = s;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	450 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	451
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	452 utf_char2bytes(lc, p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	453 p += newl;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	454 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	455 else if (has_mbyte && (l = (*mb_ptr2len)(p)) > 1)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	456 p += l; // skip multi-byte character
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	457 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	458 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	459 p = TOLOWER_LOC(p); // note that tolower() can be a macro
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	460 p++;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	461 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	462 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	463
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	464 return res;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	465 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	466 #endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	467
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	468 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	469 * delete spaces at the end of a string
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	470 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	471 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	472 del_trailing_spaces(char_u *ptr)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	473 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	474 char_u *q;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	475
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	476 q = ptr + STRLEN(ptr);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	477 while (--q > ptr && VIM_ISWHITE(q[0]) && q[-1] != '\\' && q[-1] != Ctrl_V)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	478 *q = NUL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	479 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	480
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	481 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	482 * Like strncpy(), but always terminate the result with one NUL.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	483 * "to" must be "len + 1" long!
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	484 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	485 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	486 vim_strncpy(char_u to, char_u from, size_t len)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	487 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	488 STRNCPY(to, from, len);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	489 to[len] = NUL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	490 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	491
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	492 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	493 * Like strcat(), but make sure the result fits in "tosize" bytes and is
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	494 * always NUL terminated. "from" and "to" may overlap.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	495 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	496 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	497 vim_strcat(char_u to, char_u from, size_t tosize)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	498 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	499 size_t tolen = STRLEN(to);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	500 size_t fromlen = STRLEN(from);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	501
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	502 if (tolen + fromlen + 1 > tosize)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	503 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	504 mch_memmove(to + tolen, from, tosize - tolen - 1);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	505 to[tosize - 1] = NUL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	506 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	507 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	508 mch_memmove(to + tolen, from, fromlen + 1);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	509 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	510
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	511 #if (!defined(HAVE_STRCASECMP) && !defined(HAVE_STRICMP)) \|\| defined(PROTO)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	512 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	513 * Compare two strings, ignoring case, using current locale.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	514 * Doesn't work for multi-byte characters.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	515 * return 0 for match, < 0 for smaller, > 0 for bigger
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	516 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	517 int
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	518 vim_stricmp(char s1, char s2)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	519 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	520 int i;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	521
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	522 for (;;)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	523 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	524 i = (int)TOLOWER_LOC(s1) - (int)TOLOWER_LOC(s2);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	525 if (i != 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	526 return i; // this character different
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	527 if (*s1 == NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	528 break; // strings match until NUL
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	529 ++s1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	530 ++s2;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	531 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	532 return 0; // strings match
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	533 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	534 #endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	535
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	536 #if (!defined(HAVE_STRNCASECMP) && !defined(HAVE_STRNICMP)) \|\| defined(PROTO)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	537 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	538 * Compare two strings, for length "len", ignoring case, using current locale.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	539 * Doesn't work for multi-byte characters.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	540 * return 0 for match, < 0 for smaller, > 0 for bigger
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	541 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	542 int
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	543 vim_strnicmp(char s1, char s2, size_t len)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	544 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	545 int i;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	546
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	547 while (len > 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	548 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	549 i = (int)TOLOWER_LOC(s1) - (int)TOLOWER_LOC(s2);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	550 if (i != 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	551 return i; // this character different
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	552 if (*s1 == NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	553 break; // strings match until NUL
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	554 ++s1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	555 ++s2;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	556 --len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	557 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	558 return 0; // strings match
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	559 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	560 #endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	561
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	562 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	563 * Search for first occurrence of "c" in "string".
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	564 * Version of strchr() that handles unsigned char strings with characters from
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	565 * 128 to 255 correctly. It also doesn't return a pointer to the NUL at the
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	566 * end of the string.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	567 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	568 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	569 vim_strchr(char_u *string, int c)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	570 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	571 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	572 int b;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	573
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	574 p = string;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	575 if (enc_utf8 && c >= 0x80)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	576 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	577 while (*p != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	578 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	579 int l = utfc_ptr2len(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	580
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	581 // Avoid matching an illegal byte here.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	582 if (utf_ptr2char(p) == c && l > 1)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	583 return p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	584 p += l;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	585 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	586 return NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	587 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	588 if (enc_dbcs != 0 && c > 255)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	589 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	590 int n2 = c & 0xff;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	591
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	592 c = ((unsigned)c >> 8) & 0xff;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	593 while ((b = *p) != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	594 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	595 if (b == c && p[1] == n2)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	596 return p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	597 p += (*mb_ptr2len)(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	598 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	599 return NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	600 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	601 if (has_mbyte)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	602 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	603 while ((b = *p) != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	604 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	605 if (b == c)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	606 return p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	607 p += (*mb_ptr2len)(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	608 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	609 return NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	610 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	611 while ((b = *p) != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	612 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	613 if (b == c)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	614 return p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	615 ++p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	616 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	617 return NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	618 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	619
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	620 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	621 * Version of strchr() that only works for bytes and handles unsigned char
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	622 * strings with characters above 128 correctly. It also doesn't return a
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	623 * pointer to the NUL at the end of the string.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	624 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	625 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	626 vim_strbyte(char_u *string, int c)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	627 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	628 char_u *p = string;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	629
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	630 while (*p != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	631 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	632 if (*p == c)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	633 return p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	634 ++p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	635 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	636 return NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	637 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	638
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	639 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	640 * Search for last occurrence of "c" in "string".
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	641 * Version of strrchr() that handles unsigned char strings with characters from
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	642 * 128 to 255 correctly. It also doesn't return a pointer to the NUL at the
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	643 * end of the string.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	644 * Return NULL if not found.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	645 * Does not handle multi-byte char for "c"!
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	646 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	647 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	648 vim_strrchr(char_u *string, int c)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	649 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	650 char_u *retval = NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	651 char_u *p = string;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	652
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	653 while (*p)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	654 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	655 if (*p == c)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	656 retval = p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	657 MB_PTR_ADV(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	658 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	659 return retval;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	660 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	661
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	662 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	663 * Vim's version of strpbrk(), in case it's missing.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	664 * Don't generate a prototype for this, causes problems when it's not used.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	665 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	666 #ifndef PROTO
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	667 # ifndef HAVE_STRPBRK
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	668 # ifdef vim_strpbrk
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	669 # undef vim_strpbrk
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	670 # endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	671 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	672 vim_strpbrk(char_u s, char_u charset)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	673 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	674 while (*s)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	675 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	676 if (vim_strchr(charset, *s) != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	677 return s;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	678 MB_PTR_ADV(s);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	679 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	680 return NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	681 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	682 # endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	683 #endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	684
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	685 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	686 * Sort an array of strings.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	687 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	688 static int sort_compare(const void s1, const void s2);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	689
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	690 static int
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	691 sort_compare(const void s1, const void s2)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	692 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	693 return STRCMP((char )s1, (char **)s2);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	694 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	695
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	696 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	697 sort_strings(
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	698 char_u **files,
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	699 int count)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	700 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	701 qsort((void )files, (size_t)count, sizeof(char_u ), sort_compare);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	702 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	703
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	704 #if defined(FEAT_QUICKFIX) \|\| defined(FEAT_SPELL) \|\| defined(PROTO)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	705 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	706 * Return TRUE if string "s" contains a non-ASCII character (128 or higher).
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	707 * When "s" is NULL FALSE is returned.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	708 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	709 int
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	710 has_non_ascii(char_u *s)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	711 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	712 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	713
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	714 if (s != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	715 for (p = s; *p != NUL; ++p)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	716 if (*p >= 128)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	717 return TRUE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	718 return FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	719 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	720 #endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	721
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	722 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	723 * Concatenate two strings and return the result in allocated memory.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	724 * Returns NULL when out of memory.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	725 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	726 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	727 concat_str(char_u str1, char_u str2)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	728 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	729 char_u *dest;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	730 size_t l = str1 == NULL ? 0 : STRLEN(str1);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	731
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	732 dest = alloc(l + (str2 == NULL ? 0 : STRLEN(str2)) + 1L);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	733 if (dest != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	734 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	735 if (str1 == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	736 *dest = NUL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	737 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	738 STRCPY(dest, str1);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	739 if (str2 != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	740 STRCPY(dest + l, str2);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	741 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	742 return dest;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	743 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	744
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	745 #if defined(FEAT_EVAL) \|\| defined(PROTO)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	746
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	747 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	748 * Return string "str" in ' quotes, doubling ' characters.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	749 * If "str" is NULL an empty string is assumed.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	750 * If "function" is TRUE make it function('string').
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	751 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	752 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	753 string_quote(char_u *str, int function)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	754 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	755 unsigned len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	756 char_u p, r, *s;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	757
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	758 len = (function ? 13 : 3);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	759 if (str != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	760 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	761 len += (unsigned)STRLEN(str);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	762 for (p = str; *p != NUL; MB_PTR_ADV(p))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	763 if (*p == '\'')
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	764 ++len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	765 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	766 s = r = alloc(len);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	767 if (r != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	768 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	769 if (function)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	770 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	771 STRCPY(r, "function('");
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	772 r += 10;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	773 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	774 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	775 *r++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	776 if (str != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	777 for (p = str; *p != NUL; )
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	778 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	779 if (*p == '\'')
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	780 *r++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	781 MB_COPY_CHAR(p, r);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	782 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	783 *r++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	784 if (function)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	785 *r++ = ')';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	786 *r++ = NUL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	787 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	788 return s;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	789 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	790
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	791 static void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	792 byteidx(typval_T argvars, typval_T rettv, int comp UNUSED)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	793 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	794 char_u *t;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	795 char_u *str;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	796 varnumber_T idx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	797
25252 acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	798 rettv->vval.v_number = -1;
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	799
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	800 if (in_vim9script()
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	801 && (check_for_string_arg(argvars, 0) == FAIL
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	802 \|\| check_for_number_arg(argvars, 1) == FAIL))
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	803 return;
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	804
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	805 str = tv_get_string_chk(&argvars[0]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	806 idx = tv_get_number_chk(&argvars[1], NULL);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	807 if (str == NULL \|\| idx < 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	808 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	809
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	810 t = str;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	811 for ( ; idx > 0; idx--)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	812 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	813 if (*t == NUL) // EOL reached
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	814 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	815 if (enc_utf8 && comp)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	816 t += utf_ptr2len(t);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	817 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	818 t += (*mb_ptr2len)(t);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	819 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	820 rettv->vval.v_number = (varnumber_T)(t - str);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	821 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	822
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	823 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	824 * "byteidx()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	825 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	826 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	827 f_byteidx(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	828 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	829 byteidx(argvars, rettv, FALSE);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	830 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	831
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	832 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	833 * "byteidxcomp()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	834 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	835 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	836 f_byteidxcomp(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	837 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	838 byteidx(argvars, rettv, TRUE);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	839 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	840
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	841 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	842 * "charidx()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	843 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	844 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	845 f_charidx(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	846 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	847 char_u *str;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	848 varnumber_T idx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	849 varnumber_T countcc = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	850 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	851 int len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	852 int (ptr2len)(char_u );
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	853
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	854 rettv->vval.v_number = -1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	855
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	856 if (argvars[0].v_type != VAR_STRING \|\| argvars[1].v_type != VAR_NUMBER
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	857 \|\| (argvars[2].v_type != VAR_UNKNOWN
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	858 && argvars[2].v_type != VAR_NUMBER
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	859 && argvars[2].v_type != VAR_BOOL))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	860 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	861 emsg(_(e_invarg));
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	862 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	863 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	864
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	865 str = tv_get_string_chk(&argvars[0]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	866 idx = tv_get_number_chk(&argvars[1], NULL);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	867 if (str == NULL \|\| idx < 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	868 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	869
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	870 if (argvars[2].v_type != VAR_UNKNOWN)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	871 countcc = tv_get_bool(&argvars[2]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	872 if (countcc < 0 \|\| countcc > 1)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	873 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	874 semsg(_(e_using_number_as_bool_nr), countcc);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	875 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	876 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	877
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	878 if (enc_utf8 && countcc)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	879 ptr2len = utf_ptr2len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	880 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	881 ptr2len = mb_ptr2len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	882
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	883 for (p = str, len = 0; p <= str + idx; len++)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	884 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	885 if (*p == NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	886 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	887 p += ptr2len(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	888 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	889
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	890 rettv->vval.v_number = len > 0 ? len - 1 : 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	891 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	892
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	893 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	894 * "str2list()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	895 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	896 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	897 f_str2list(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	898 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	899 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	900 int utf8 = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	901
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	902 if (rettv_list_alloc(rettv) == FAIL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	903 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	904
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	905 if (in_vim9script()
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	906 && (check_for_string_arg(argvars, 0) == FAIL
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	907 \|\| check_for_opt_bool_arg(argvars, 1) == FAIL))
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	908 return;
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	909
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	910 if (argvars[1].v_type != VAR_UNKNOWN)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	911 utf8 = (int)tv_get_bool_chk(&argvars[1], NULL);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	912
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	913 p = tv_get_string(&argvars[0]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	914
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	915 if (has_mbyte \|\| utf8)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	916 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	917 int (ptr2len)(char_u );
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	918 int (ptr2char)(char_u );
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	919
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	920 if (utf8 \|\| enc_utf8)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	921 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	922 ptr2len = utf_ptr2len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	923 ptr2char = utf_ptr2char;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	924 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	925 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	926 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	927 ptr2len = mb_ptr2len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	928 ptr2char = mb_ptr2char;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	929 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	930
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	931 for ( ; p != NUL; p += (ptr2len)(p))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	932 list_append_number(rettv->vval.v_list, (*ptr2char)(p));
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	933 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	934 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	935 for ( ; *p != NUL; ++p)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	936 list_append_number(rettv->vval.v_list, *p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	937 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	938
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	939 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	940 * "str2nr()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	941 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	942 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	943 f_str2nr(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	944 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	945 int base = 10;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	946 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	947 varnumber_T n;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	948 int what = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	949 int isneg;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	950
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	951 if (argvars[1].v_type != VAR_UNKNOWN)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	952 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	953 base = (int)tv_get_number(&argvars[1]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	954 if (base != 2 && base != 8 && base != 10 && base != 16)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	955 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	956 emsg(_(e_invarg));
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	957 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	958 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	959 if (argvars[2].v_type != VAR_UNKNOWN && tv_get_bool(&argvars[2]))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	960 what \|= STR2NR_QUOTE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	961 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	962
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	963 p = skipwhite(tv_get_string_strict(&argvars[0]));
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	964 isneg = (*p == '-');
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	965 if (p == '+' \|\| p == '-')
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	966 p = skipwhite(p + 1);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	967 switch (base)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	968 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	969 case 2: what \|= STR2NR_BIN + STR2NR_FORCE; break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	970 case 8: what \|= STR2NR_OCT + STR2NR_OOCT + STR2NR_FORCE; break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	971 case 16: what \|= STR2NR_HEX + STR2NR_FORCE; break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	972 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	973 vim_str2nr(p, NULL, NULL, what, &n, NULL, 0, FALSE);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	974 // Text after the number is silently ignored.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	975 if (isneg)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	976 rettv->vval.v_number = -n;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	977 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	978 rettv->vval.v_number = n;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	979
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	980 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	981
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	982 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	983 * "strgetchar()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	984 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	985 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	986 f_strgetchar(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	987 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	988 char_u *str;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	989 int len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	990 int error = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	991 int charidx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	992 int byteidx = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	993
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	994 rettv->vval.v_number = -1;
25252 acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	995
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	996 if (in_vim9script()
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	997 && (check_for_string_arg(argvars, 0) == FAIL
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	998 \|\| check_for_number_arg(argvars, 1) == FAIL))
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	999 return;
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	1000
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1001 str = tv_get_string_chk(&argvars[0]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1002 if (str == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1003 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1004 len = (int)STRLEN(str);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1005 charidx = (int)tv_get_number_chk(&argvars[1], &error);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1006 if (error)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1007 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1008
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1009 while (charidx >= 0 && byteidx < len)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1010 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1011 if (charidx == 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1012 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1013 rettv->vval.v_number = mb_ptr2char(str + byteidx);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1014 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1015 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1016 --charidx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1017 byteidx += MB_CPTR2LEN(str + byteidx);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1018 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1019 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1020
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1021 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1022 * "stridx()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1023 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1024 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1025 f_stridx(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1026 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1027 char_u buf[NUMBUFLEN];
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1028 char_u *needle;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1029 char_u *haystack;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1030 char_u *save_haystack;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1031 char_u *pos;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1032 int start_idx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1033
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1034 needle = tv_get_string_chk(&argvars[1]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1035 save_haystack = haystack = tv_get_string_buf_chk(&argvars[0], buf);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1036 rettv->vval.v_number = -1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1037 if (needle == NULL \|\| haystack == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1038 return; // type error; errmsg already given
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1039
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1040 if (argvars[2].v_type != VAR_UNKNOWN)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1041 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1042 int error = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1043
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1044 start_idx = (int)tv_get_number_chk(&argvars[2], &error);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1045 if (error \|\| start_idx >= (int)STRLEN(haystack))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1046 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1047 if (start_idx >= 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1048 haystack += start_idx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1049 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1050
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1051 pos = (char_u )strstr((char )haystack, (char *)needle);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1052 if (pos != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1053 rettv->vval.v_number = (varnumber_T)(pos - save_haystack);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1054 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1055
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1056 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1057 * "string()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1058 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1059 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1060 f_string(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1061 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1062 char_u *tofree;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1063 char_u numbuf[NUMBUFLEN];
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1064
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1065 rettv->v_type = VAR_STRING;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1066 rettv->vval.v_string = tv2string(&argvars[0], &tofree, numbuf,
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1067 get_copyID());
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1068 // Make a copy if we have a value but it's not in allocated memory.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1069 if (rettv->vval.v_string != NULL && tofree == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1070 rettv->vval.v_string = vim_strsave(rettv->vval.v_string);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1071 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1072
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1073 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1074 * "strlen()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1075 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1076 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1077 f_strlen(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1078 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1079 rettv->vval.v_number = (varnumber_T)(STRLEN(
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1080 tv_get_string(&argvars[0])));
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1081 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1082
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1083 static void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1084 strchar_common(typval_T argvars, typval_T rettv, int skipcc)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1085 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1086 char_u *s = tv_get_string(&argvars[0]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1087 varnumber_T len = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1088 int (func_mb_ptr2char_adv)(char_u *pp);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1089
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1090 func_mb_ptr2char_adv = skipcc ? mb_ptr2char_adv : mb_cptr2char_adv;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1091 while (*s != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1092 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1093 func_mb_ptr2char_adv(&s);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1094 ++len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1095 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1096 rettv->vval.v_number = len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1097 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1098
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1099 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1100 * "strcharlen()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1101 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1102 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1103 f_strcharlen(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1104 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1105 strchar_common(argvars, rettv, TRUE);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1106 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1107
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1108 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1109 * "strchars()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1110 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1111 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1112 f_strchars(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1113 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1114 varnumber_T skipcc = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1115
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1116 if (in_vim9script()
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1117 && (check_for_string_arg(argvars, 0) == FAIL
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1118 \|\| check_for_opt_bool_arg(argvars, 1) == FAIL))
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1119 return;
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1120
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1121 if (argvars[1].v_type != VAR_UNKNOWN)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1122 skipcc = tv_get_bool(&argvars[1]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1123 if (skipcc < 0 \|\| skipcc > 1)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1124 semsg(_(e_using_number_as_bool_nr), skipcc);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1125 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1126 strchar_common(argvars, rettv, skipcc);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1127 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1128
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1129 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1130 * "strdisplaywidth()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1131 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1132 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1133 f_strdisplaywidth(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1134 {
25252 acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	1135 char_u *s;
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1136 int col = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1137
25252 acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	1138 rettv->vval.v_number = -1;
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	1139
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	1140 if (in_vim9script()
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	1141 && (check_for_string_arg(argvars, 0) == FAIL
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1142 \|\| check_for_opt_number_arg(argvars, 1) == FAIL))
25252 acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	1143 return;
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	1144
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	1145 s = tv_get_string(&argvars[0]);
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1146 if (argvars[1].v_type != VAR_UNKNOWN)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1147 col = (int)tv_get_number(&argvars[1]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1148
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1149 rettv->vval.v_number = (varnumber_T)(linetabsize_col(col, s) - col);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1150 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1151
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1152 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1153 * "strwidth()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1154 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1155 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1156 f_strwidth(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1157 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1158 char_u *s = tv_get_string_strict(&argvars[0]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1159
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1160 rettv->vval.v_number = (varnumber_T)(mb_string2cells(s, -1));
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1161 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1162
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1163 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1164 * "strcharpart()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1165 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1166 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1167 f_strcharpart(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1168 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1169 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1170 int nchar;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1171 int nbyte = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1172 int charlen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1173 int skipcc = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1174 int len = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1175 int slen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1176 int error = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1177
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1178 if (in_vim9script()
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1179 && (check_for_string_arg(argvars, 0) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1180 \|\| check_for_number_arg(argvars, 1) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1181 \|\| check_for_opt_number_arg(argvars, 2) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1182 \|\| (argvars[2].v_type != VAR_UNKNOWN
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1183 && check_for_opt_bool_arg(argvars, 3) == FAIL)))
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1184 return;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1185
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1186 p = tv_get_string(&argvars[0]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1187 slen = (int)STRLEN(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1188
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1189 nchar = (int)tv_get_number_chk(&argvars[1], &error);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1190 if (!error)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1191 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1192 if (argvars[2].v_type != VAR_UNKNOWN
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1193 && argvars[3].v_type != VAR_UNKNOWN)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1194 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1195 skipcc = tv_get_bool(&argvars[3]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1196 if (skipcc < 0 \|\| skipcc > 1)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1197 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1198 semsg(_(e_using_number_as_bool_nr), skipcc);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1199 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1200 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1201 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1202
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1203 if (nchar > 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1204 while (nchar > 0 && nbyte < slen)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1205 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1206 if (skipcc)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1207 nbyte += mb_ptr2len(p + nbyte);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1208 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1209 nbyte += MB_CPTR2LEN(p + nbyte);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1210 --nchar;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1211 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1212 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1213 nbyte = nchar;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1214 if (argvars[2].v_type != VAR_UNKNOWN)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1215 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1216 charlen = (int)tv_get_number(&argvars[2]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1217 while (charlen > 0 && nbyte + len < slen)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1218 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1219 int off = nbyte + len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1220
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1221 if (off < 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1222 len += 1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1223 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1224 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1225 if (skipcc)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1226 len += mb_ptr2len(p + off);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1227 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1228 len += MB_CPTR2LEN(p + off);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1229 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1230 --charlen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1231 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1232 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1233 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1234 len = slen - nbyte; // default: all bytes that are available.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1235 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1236
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1237 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1238 * Only return the overlap between the specified part and the actual
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1239 * string.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1240 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1241 if (nbyte < 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1242 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1243 len += nbyte;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1244 nbyte = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1245 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1246 else if (nbyte > slen)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1247 nbyte = slen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1248 if (len < 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1249 len = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1250 else if (nbyte + len > slen)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1251 len = slen - nbyte;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1252
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1253 rettv->v_type = VAR_STRING;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1254 rettv->vval.v_string = vim_strnsave(p + nbyte, len);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1255 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1256
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1257 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1258 * "strpart()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1259 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1260 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1261 f_strpart(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1262 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1263 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1264 int n;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1265 int len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1266 int slen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1267 int error = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1268
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1269 if (in_vim9script()
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1270 && (check_for_string_arg(argvars, 0) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1271 \|\| check_for_number_arg(argvars, 1) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1272 \|\| check_for_opt_number_arg(argvars, 2) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1273 \|\| (argvars[2].v_type != VAR_UNKNOWN
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1274 && check_for_opt_bool_arg(argvars, 3) == FAIL)))
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1275 return;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1276
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1277 p = tv_get_string(&argvars[0]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1278 slen = (int)STRLEN(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1279
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1280 n = (int)tv_get_number_chk(&argvars[1], &error);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1281 if (error)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1282 len = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1283 else if (argvars[2].v_type != VAR_UNKNOWN)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1284 len = (int)tv_get_number(&argvars[2]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1285 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1286 len = slen - n; // default len: all bytes that are available.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1287
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1288 // Only return the overlap between the specified part and the actual
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1289 // string.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1290 if (n < 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1291 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1292 len += n;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1293 n = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1294 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1295 else if (n > slen)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1296 n = slen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1297 if (len < 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1298 len = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1299 else if (n + len > slen)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1300 len = slen - n;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1301
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1302 if (argvars[2].v_type != VAR_UNKNOWN && argvars[3].v_type != VAR_UNKNOWN)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1303 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1304 int off;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1305
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1306 // length in characters
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1307 for (off = n; off < slen && len > 0; --len)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1308 off += mb_ptr2len(p + off);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1309 len = off - n;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1310 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1311
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1312 rettv->v_type = VAR_STRING;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1313 rettv->vval.v_string = vim_strnsave(p + n, len);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1314 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1315
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1316 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1317 * "strridx()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1318 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1319 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1320 f_strridx(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1321 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1322 char_u buf[NUMBUFLEN];
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1323 char_u *needle;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1324 char_u *haystack;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1325 char_u *rest;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1326 char_u *lastmatch = NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1327 int haystack_len, end_idx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1328
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1329 needle = tv_get_string_chk(&argvars[1]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1330 haystack = tv_get_string_buf_chk(&argvars[0], buf);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1331
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1332 rettv->vval.v_number = -1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1333 if (needle == NULL \|\| haystack == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1334 return; // type error; errmsg already given
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1335
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1336 haystack_len = (int)STRLEN(haystack);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1337 if (argvars[2].v_type != VAR_UNKNOWN)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1338 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1339 // Third argument: upper limit for index
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1340 end_idx = (int)tv_get_number_chk(&argvars[2], NULL);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1341 if (end_idx < 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1342 return; // can never find a match
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1343 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1344 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1345 end_idx = haystack_len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1346
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1347 if (*needle == NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1348 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1349 // Empty string matches past the end.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1350 lastmatch = haystack + end_idx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1351 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1352 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1353 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1354 for (rest = haystack; *rest != '\0'; ++rest)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1355 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1356 rest = (char_u )strstr((char )rest, (char *)needle);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1357 if (rest == NULL \|\| rest > haystack + end_idx)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1358 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1359 lastmatch = rest;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1360 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1361 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1362
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1363 if (lastmatch == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1364 rettv->vval.v_number = -1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1365 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1366 rettv->vval.v_number = (varnumber_T)(lastmatch - haystack);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1367 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1368
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1369 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1370 * "strtrans()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1371 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1372 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1373 f_strtrans(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1374 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1375 rettv->v_type = VAR_STRING;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1376 rettv->vval.v_string = transstr(tv_get_string(&argvars[0]));
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1377 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1378
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1379 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1380 * "tolower(string)" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1381 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1382 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1383 f_tolower(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1384 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1385 rettv->v_type = VAR_STRING;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1386 rettv->vval.v_string = strlow_save(tv_get_string(&argvars[0]));
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1387 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1388
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1389 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1390 * "toupper(string)" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1391 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1392 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1393 f_toupper(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1394 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1395 rettv->v_type = VAR_STRING;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1396 rettv->vval.v_string = strup_save(tv_get_string(&argvars[0]));
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1397 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1398
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1399 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1400 * "tr(string, fromstr, tostr)" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1401 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1402 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1403 f_tr(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1404 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1405 char_u *in_str;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1406 char_u *fromstr;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1407 char_u *tostr;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1408 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1409 int inlen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1410 int fromlen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1411 int tolen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1412 int idx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1413 char_u *cpstr;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1414 int cplen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1415 int first = TRUE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1416 char_u buf[NUMBUFLEN];
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1417 char_u buf2[NUMBUFLEN];
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1418 garray_T ga;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1419
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1420 in_str = tv_get_string(&argvars[0]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1421 fromstr = tv_get_string_buf_chk(&argvars[1], buf);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1422 tostr = tv_get_string_buf_chk(&argvars[2], buf2);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1423
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1424 // Default return value: empty string.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1425 rettv->v_type = VAR_STRING;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1426 rettv->vval.v_string = NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1427 if (fromstr == NULL \|\| tostr == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1428 return; // type error; errmsg already given
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1429 ga_init2(&ga, (int)sizeof(char), 80);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1430
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1431 if (!has_mbyte)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1432 // not multi-byte: fromstr and tostr must be the same length
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1433 if (STRLEN(fromstr) != STRLEN(tostr))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1434 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1435 error:
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1436 semsg(_(e_invarg2), fromstr);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1437 ga_clear(&ga);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1438 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1439 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1440
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1441 // fromstr and tostr have to contain the same number of chars
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1442 while (*in_str != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1443 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1444 if (has_mbyte)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1445 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1446 inlen = (*mb_ptr2len)(in_str);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1447 cpstr = in_str;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1448 cplen = inlen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1449 idx = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1450 for (p = fromstr; *p != NUL; p += fromlen)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1451 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1452 fromlen = (*mb_ptr2len)(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1453 if (fromlen == inlen && STRNCMP(in_str, p, inlen) == 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1454 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1455 for (p = tostr; *p != NUL; p += tolen)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1456 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1457 tolen = (*mb_ptr2len)(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1458 if (idx-- == 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1459 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1460 cplen = tolen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1461 cpstr = p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1462 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1463 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1464 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1465 if (*p == NUL) // tostr is shorter than fromstr
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1466 goto error;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1467 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1468 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1469 ++idx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1470 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1471
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1472 if (first && cpstr == in_str)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1473 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1474 // Check that fromstr and tostr have the same number of
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1475 // (multi-byte) characters. Done only once when a character
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1476 // of in_str doesn't appear in fromstr.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1477 first = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1478 for (p = tostr; *p != NUL; p += tolen)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1479 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1480 tolen = (*mb_ptr2len)(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1481 --idx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1482 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1483 if (idx != 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1484 goto error;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1485 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1486
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1487 (void)ga_grow(&ga, cplen);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1488 mch_memmove((char *)ga.ga_data + ga.ga_len, cpstr, (size_t)cplen);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1489 ga.ga_len += cplen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1490
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1491 in_str += inlen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1492 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1493 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1494 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1495 // When not using multi-byte chars we can do it faster.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1496 p = vim_strchr(fromstr, *in_str);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1497 if (p != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1498 ga_append(&ga, tostr[p - fromstr]);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1499 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1500 ga_append(&ga, *in_str);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1501 ++in_str;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1502 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1503 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1504
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1505 // add a terminating NUL
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1506 (void)ga_grow(&ga, 1);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1507 ga_append(&ga, NUL);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1508
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1509 rettv->vval.v_string = ga.ga_data;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1510 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1511
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1512 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1513 * "trim({expr})" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1514 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1515 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1516 f_trim(typval_T argvars, typval_T rettv)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1517 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1518 char_u buf1[NUMBUFLEN];
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1519 char_u buf2[NUMBUFLEN];
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1520 char_u *head = tv_get_string_buf_chk(&argvars[0], buf1);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1521 char_u *mask = NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1522 char_u *tail;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1523 char_u *prev;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1524 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1525 int c1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1526 int dir = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1527
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1528 rettv->v_type = VAR_STRING;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1529 rettv->vval.v_string = NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1530 if (head == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1531 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1532
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1533 if (argvars[1].v_type != VAR_UNKNOWN && argvars[1].v_type != VAR_STRING)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1534 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1535 semsg(_(e_invarg2), tv_get_string(&argvars[1]));
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1536 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1537 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1538
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1539 if (argvars[1].v_type == VAR_STRING)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1540 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1541 mask = tv_get_string_buf_chk(&argvars[1], buf2);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1542
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1543 if (argvars[2].v_type != VAR_UNKNOWN)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1544 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1545 int error = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1546
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1547 // leading or trailing characters to trim
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1548 dir = (int)tv_get_number_chk(&argvars[2], &error);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1549 if (error)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1550 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1551 if (dir < 0 \|\| dir > 2)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1552 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1553 semsg(_(e_invarg2), tv_get_string(&argvars[2]));
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1554 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1555 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1556 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1557 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1558
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1559 if (dir == 0 \|\| dir == 1)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1560 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1561 // Trim leading characters
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1562 while (*head != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1563 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1564 c1 = PTR2CHAR(head);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1565 if (mask == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1566 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1567 if (c1 > ' ' && c1 != 0xa0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1568 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1569 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1570 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1571 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1572 for (p = mask; *p != NUL; MB_PTR_ADV(p))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1573 if (c1 == PTR2CHAR(p))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1574 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1575 if (*p == NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1576 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1577 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1578 MB_PTR_ADV(head);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1579 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1580 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1581
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1582 tail = head + STRLEN(head);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1583 if (dir == 0 \|\| dir == 2)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1584 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1585 // Trim trailing characters
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1586 for (; tail > head; tail = prev)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1587 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1588 prev = tail;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1589 MB_PTR_BACK(head, prev);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1590 c1 = PTR2CHAR(prev);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1591 if (mask == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1592 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1593 if (c1 > ' ' && c1 != 0xa0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1594 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1595 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1596 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1597 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1598 for (p = mask; *p != NUL; MB_PTR_ADV(p))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1599 if (c1 == PTR2CHAR(p))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1600 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1601 if (*p == NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1602 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1603 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1604 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1605 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1606 rettv->vval.v_string = vim_strnsave(head, tail - head);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1607 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1608
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1609 #endif

Mercurial > vim

annotate src/strings.c @ 25364:af5c4fabcf40 v8.2.3219