vim: src/strings.c annotate

annotate src/strings.c @ 25698:000b37efd5fa v8.2.3385

patch 8.2.3385: escaping for fish shell does not work properly Commit: https://github.com/vim/vim/commit/6e82351130ddb8d13cf3748b47f07cae77886fc7 Author: Jason Cox <dev@jasoncarloscox.com> Date: Sun Aug 29 12:36:49 2021 +0200 patch 8.2.3385: escaping for fish shell does not work properly Problem: Escaping for fish shell does not work properly. Solution: Insert a backslash before a backslash. (Jason Cox, closes https://github.com/vim/vim/issues/8810)

author	Bram Moolenaar <Bram@vim.org>
date	Sun, 29 Aug 2021 12:45:05 +0200
parents	0082503ff2ff
children	e9687a2f6fb3

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
25567 0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	14 #define USING_FLOAT_STUFF
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	15 #include "vim.h"
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 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	18 * 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	19 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	20 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	21 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	22 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	23 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	24 size_t len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	25
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	26 len = STRLEN(string) + 1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	27 p = alloc(len);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	28 if (p != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	29 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	30 return p;
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 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	34 * 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	35 * terminate with a NUL.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	36 * 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	37 * shorter.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	38 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	39 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	40 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	41 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	42 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	43
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	44 p = alloc(len + 1);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	45 if (p != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	46 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	47 STRNCPY(p, string, len);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	48 p[len] = NUL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	49 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	50 return p;
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 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	54 * 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	55 * by a backslash.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	56 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	57 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	58 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	59 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	60 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	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 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	64 * 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	65 * 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	66 * 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	67 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	68 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	69 vim_strsave_escaped_ext(
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	70 char_u *string,
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	71 char_u *esc_chars,
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	72 int cc,
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	73 int bsl)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	74 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	75 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	76 char_u *p2;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	77 char_u *escaped_string;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	78 unsigned length;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	79 int l;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	80
25567 0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	81 // First count the number of backslashes required.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	82 // Then allocate the memory and insert them.
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	83 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	84 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	85 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	86 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	87 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	88 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	89 p += l - 1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	90 continue;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	91 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	92 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	93 ++length; // count a backslash
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	94 ++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	95 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	96 escaped_string = alloc(length);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	97 if (escaped_string != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	98 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	99 p2 = escaped_string;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	100 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	101 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	102 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	103 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	104 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	105 p2 += l;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	106 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	107 continue;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	108 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	109 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	110 *p2++ = cc;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	111 p2++ = p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	112 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	113 *p2 = NUL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	114 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	115 return escaped_string;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	116 }
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 * 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	120 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	121 int
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	122 csh_like_shell(void)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	123 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	124 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	125 }
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 /*
25698 000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	128 * Return TRUE when 'shell' has "fish" in the tail.
000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	129 */
000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	130 int
000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	131 fish_like_shell(void)
000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	132 {
000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	133 return (strstr((char *)gettail(p_sh), "fish") != NULL);
000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	134 }
000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	135
000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	136 /*
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	137 * 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	138 * 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	139 * (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	140 * 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	141 * them up.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	142 * 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	143 * 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	144 * with "<" like "<cfile>".
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	145 * 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	146 * 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	147 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	148 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	149 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	150 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	151 unsigned length;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	152 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	153 char_u *d;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	154 char_u *escaped_string;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	155 int l;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	156 int csh_like;
25698 000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	157 int fish_like;
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	158 char_u *shname;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	159 int powershell;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	160 # ifdef MSWIN
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	161 int double_quotes;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	162 # endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	163
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	164 // 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	165 // 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	166 // 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	167 // 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	168 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	169
25698 000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	170 // Fish shell uses '\' as an escape character within single quotes, so '\'
000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	171 // itself must be escaped to get a literal '\'.
000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	172 fish_like = fish_like_shell();
000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	173
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	174 // 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	175 shname = gettail(p_sh);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	176 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	177 # ifdef MSWIN
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	178 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	179 // 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	180 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	181 # endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	182
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	183 // 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	184 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	185 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	186 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	187 # ifdef MSWIN
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	188 if (double_quotes)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	189 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	190 if (*p == '"')
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	191 ++length; // " -> ""
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	192 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	193 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	194 # endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	195 if (*p == '\'')
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	196 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	197 if (powershell)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	198 length +=2; // ' => ''
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	199 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	200 length += 3; // ' => '\''
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 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	203 \|\| (*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	204 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	205 ++length; // insert backslash
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	206 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	207 ++length; // insert backslash
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 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	210 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	211 ++length; // insert backslash
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	212 p += l - 1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	213 }
25698 000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	214 if (*p == '\\' && fish_like)
000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	215 ++length; // insert backslash
25206 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
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	218 // 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	219 escaped_string = alloc(length);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	220 if (escaped_string != NULL)
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 d = escaped_string;
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 // add opening quote
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	225 # ifdef MSWIN
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	226 if (double_quotes)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	227 *d++ = '"';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	228 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	229 # endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	230 *d++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	231
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	232 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	233 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	234 # ifdef MSWIN
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	235 if (double_quotes)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	236 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	237 if (*p == '"')
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 *d++ = '"';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	240 *d++ = '"';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	241 ++p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	242 continue;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	243 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	244 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	245 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	246 # endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	247 if (*p == '\'')
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 (powershell)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	250 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	251 *d++ = '\'';
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 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	254 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	255 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	256 *d++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	257 *d++ = '\\';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	258 *d++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	259 *d++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	260 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	261 ++p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	262 continue;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	263 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	264 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	265 \|\| (*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	266 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	267 *d++ = '\\';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	268 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	269 *d++ = '\\';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	270 d++ = p++;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	271 continue;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	272 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	273 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	274 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	275 *d++ = '\\'; // insert backslash
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	276 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	277 d++ = p++;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	278 continue;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	279 }
25698 000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	280 if (*p == '\\' && fish_like)
000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	281 {
000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	282 *d++ = '\\';
000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	283 d++ = p++;
000b37efd5fa patch 8.2.3385: escaping for fish shell does not work properly Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	284 }
25206 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 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	287 }
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 // 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	290 # ifdef MSWIN
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	291 if (double_quotes)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	292 *d++ = '"';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	293 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	294 # endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	295 *d++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	296 *d = NUL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	297 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	298
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	299 return escaped_string;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	300 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	301
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 * 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	304 * 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	305 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	306 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	307 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	308 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	309 char_u *p1;
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 p1 = vim_strsave(string);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	312 vim_strup(p1);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	313 return p1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	314 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	315
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 * 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	318 * 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	319 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	320 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	321 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	322 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	323 char_u *p1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	324
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	325 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	326 vim_strup(p1);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	327 return p1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	328 }
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 * 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	332 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	333 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	334 vim_strup(
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	335 char_u *p)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	336 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	337 char_u *p2;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	338 int c;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	339
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	340 if (p != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	341 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	342 p2 = p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	343 while ((c = *p2) != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	344 #ifdef EBCDIC
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	345 *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	346 #else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	347 *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	348 #endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	349 }
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
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	352 #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	353 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	354 * 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	355 * 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	356 * 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	357 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	358 static char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	359 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	360 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	361 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	362 char_u *res;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	363
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	364 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	365
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	366 if (res != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	367 while (*p != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	368 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	369 int l;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	370
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	371 if (enc_utf8)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	372 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	373 int c, uc;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	374 int newl;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	375 char_u *s;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	376
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	377 c = utf_ptr2char(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	378 l = utf_ptr2len(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	379 if (c == 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	380 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	381 // 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	382 c = *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	383 l = 1;
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 uc = utf_toupper(c);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	386
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	387 // 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	388 // 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	389 newl = utf_char2len(uc);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	390 if (newl != l)
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 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	393 if (s == NULL)
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 vim_free(res);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	396 return NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	397 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	398 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	399 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	400 p = s + (p - res);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	401 vim_free(res);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	402 res = s;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	403 }
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 utf_char2bytes(uc, p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	406 p += newl;
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 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	409 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	410 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	411 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	412 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	413 p++;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	414 }
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
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	417 return res;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	418 }
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 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	421 * 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	422 * 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	423 * 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	424 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	425 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	426 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	427 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	428 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	429 char_u *res;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	430
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	431 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	432
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	433 if (res != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	434 while (*p != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	435 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	436 int l;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	437
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	438 if (enc_utf8)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	439 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	440 int c, lc;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	441 int newl;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	442 char_u *s;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	443
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	444 c = utf_ptr2char(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	445 l = utf_ptr2len(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	446 if (c == 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	447 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	448 // 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	449 c = *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	450 l = 1;
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 lc = utf_tolower(c);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	453
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	454 // 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	455 // 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	456 newl = utf_char2len(lc);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	457 if (newl != l)
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 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	460 if (s == NULL)
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 vim_free(res);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	463 return NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	464 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	465 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	466 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	467 p = s + (p - res);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	468 vim_free(res);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	469 res = s;
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
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	472 utf_char2bytes(lc, p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	473 p += newl;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	474 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	475 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	476 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	477 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	478 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	479 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	480 p++;
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 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	483
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	484 return res;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	485 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	486 #endif
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 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	489 * 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	490 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	491 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	492 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	493 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	494 char_u *q;
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 q = ptr + STRLEN(ptr);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	497 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	498 *q = NUL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	499 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	500
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 * 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	503 * "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	504 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	505 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	506 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	507 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	508 STRNCPY(to, from, len);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	509 to[len] = NUL;
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
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 * 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	514 * 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	515 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	516 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	517 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	518 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	519 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	520 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	521
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	522 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	523 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	524 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	525 to[tosize - 1] = NUL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	526 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	527 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	528 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	529 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	530
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	531 #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	532 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	533 * 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	534 * 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	535 * 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	536 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	537 int
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	538 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	539 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	540 int i;
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 for (;;)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	543 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	544 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	545 if (i != 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	546 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	547 if (*s1 == NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	548 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	549 ++s1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	550 ++s2;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	551 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	552 return 0; // strings match
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	553 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	554 #endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	555
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	556 #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	557 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	558 * 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	559 * 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	560 * 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	561 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	562 int
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	563 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	564 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	565 int i;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	566
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	567 while (len > 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	568 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	569 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	570 if (i != 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	571 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	572 if (*s1 == NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	573 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	574 ++s1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	575 ++s2;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	576 --len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	577 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	578 return 0; // strings match
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	579 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	580 #endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	581
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	582 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	583 * 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	584 * 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	585 * 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	586 * end of the string.
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 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	589 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	590 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	591 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	592 int b;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	593
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	594 p = string;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	595 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	596 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	597 while (*p != NUL)
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 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	600
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	601 // 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	602 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	603 return p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	604 p += l;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	605 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	606 return NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	607 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	608 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	609 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	610 int n2 = c & 0xff;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	611
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	612 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	613 while ((b = *p) != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	614 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	615 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	616 return p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	617 p += (*mb_ptr2len)(p);
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 return NULL;
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 if (has_mbyte)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	622 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	623 while ((b = *p) != NUL)
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 if (b == c)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	626 return p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	627 p += (*mb_ptr2len)(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	628 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	629 return NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	630 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	631 while ((b = *p) != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	632 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	633 if (b == c)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	634 return p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	635 ++p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	636 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	637 return NULL;
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 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	641 * 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	642 * 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	643 * 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	644 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	645 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	646 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	647 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	648 char_u *p = string;
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 while (*p != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	651 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	652 if (*p == c)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	653 return p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	654 ++p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	655 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	656 return NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	657 }
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 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	660 * 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	661 * 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	662 * 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	663 * end of the string.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	664 * 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	665 * 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	666 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	667 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	668 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	669 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	670 char_u *retval = NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	671 char_u *p = string;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	672
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	673 while (*p)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	674 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	675 if (*p == c)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	676 retval = p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	677 MB_PTR_ADV(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	678 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	679 return retval;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	680 }
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 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	683 * 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	684 * 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	685 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	686 #ifndef PROTO
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	687 # ifndef HAVE_STRPBRK
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	688 # ifdef vim_strpbrk
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	689 # undef vim_strpbrk
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	690 # endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	691 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	692 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	693 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	694 while (*s)
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 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	697 return s;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	698 MB_PTR_ADV(s);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	699 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	700 return NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	701 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	702 # endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	703 #endif
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	704
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 * 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	707 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	708 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	709
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	710 static int
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	711 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	712 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	713 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	714 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	715
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	716 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	717 sort_strings(
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	718 char_u **files,
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	719 int count)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	720 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	721 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	722 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	723
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	724 #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	725 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	726 * 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	727 * 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	728 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	729 int
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	730 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	731 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	732 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	733
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	734 if (s != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	735 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	736 if (*p >= 128)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	737 return TRUE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	738 return FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	739 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	740 #endif
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 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	743 * 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	744 * 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	745 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	746 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	747 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	748 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	749 char_u *dest;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	750 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	751
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	752 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	753 if (dest != NULL)
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 if (str1 == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	756 *dest = NUL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	757 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	758 STRCPY(dest, str1);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	759 if (str2 != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	760 STRCPY(dest + l, str2);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	761 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	762 return dest;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	763 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	764
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	765 #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	766
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	767 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	768 * 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	769 * 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	770 * 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	771 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	772 char_u *
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	773 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	774 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	775 unsigned len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	776 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	777
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	778 len = (function ? 13 : 3);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	779 if (str != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	780 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	781 len += (unsigned)STRLEN(str);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	782 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	783 if (*p == '\'')
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	784 ++len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	785 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	786 s = r = alloc(len);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	787 if (r != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	788 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	789 if (function)
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 STRCPY(r, "function('");
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	792 r += 10;
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 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	795 *r++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	796 if (str != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	797 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	798 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	799 if (*p == '\'')
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	800 *r++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	801 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	802 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	803 *r++ = '\'';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	804 if (function)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	805 *r++ = ')';
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	806 *r++ = NUL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	807 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	808 return s;
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
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	811 static void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	812 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	813 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	814 char_u *t;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	815 char_u *str;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	816 varnumber_T idx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	817
25252 acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	818 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	819
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	820 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	821 && (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	822 \|\| 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	823 return;
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	824
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	825 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	826 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	827 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	828 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	829
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	830 t = str;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	831 for ( ; idx > 0; idx--)
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 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	834 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	835 if (enc_utf8 && comp)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	836 t += utf_ptr2len(t);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	837 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	838 t += (*mb_ptr2len)(t);
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 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	841 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	842
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 * "byteidx()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	845 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	846 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	847 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	848 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	849 byteidx(argvars, rettv, FALSE);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	850 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	851
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	852 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	853 * "byteidxcomp()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	854 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	855 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	856 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	857 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	858 byteidx(argvars, rettv, TRUE);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	859 }
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 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	862 * "charidx()" function
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 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	865 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	866 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	867 char_u *str;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	868 varnumber_T idx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	869 varnumber_T countcc = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	870 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	871 int len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	872 int (ptr2len)(char_u );
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 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	875
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	876 if (in_vim9script()
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	877 && (check_for_string_arg(argvars, 0) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	878 \|\| check_for_number_arg(argvars, 1) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	879 \|\| check_for_opt_bool_arg(argvars, 2) == FAIL))
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	880 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	881
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	882 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	883 \|\| (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	884 && 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	885 && 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	886 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	887 emsg(_(e_invarg));
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	888 return;
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
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	891 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	892 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	893 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	894 return;
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 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	897 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	898 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	899 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	900 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	901 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	902 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	903
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	904 if (enc_utf8 && countcc)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	905 ptr2len = utf_ptr2len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	906 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	907 ptr2len = mb_ptr2len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	908
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	909 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	910 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	911 if (*p == NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	912 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	913 p += ptr2len(p);
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
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	916 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	917 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	918
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 * "str2list()" function
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 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	923 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	924 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	925 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	926 int utf8 = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	927
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	928 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	929 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	930
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	931 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	932 && (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	933 \|\| 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	934 return;
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	935
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	936 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	937 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	938
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	939 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	940
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	941 if (has_mbyte \|\| utf8)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	942 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	943 int (ptr2len)(char_u );
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	944 int (ptr2char)(char_u );
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	945
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	946 if (utf8 \|\| enc_utf8)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	947 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	948 ptr2len = utf_ptr2len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	949 ptr2char = utf_ptr2char;
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 else
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 ptr2len = mb_ptr2len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	954 ptr2char = mb_ptr2char;
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
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	957 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	958 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	959 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	960 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	961 for ( ; *p != NUL; ++p)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	962 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	963 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	964
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	965 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	966 * "str2nr()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	967 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	968 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	969 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	970 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	971 int base = 10;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	972 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	973 varnumber_T n;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	974 int what = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	975 int isneg;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	976
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	977 if (in_vim9script()
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	978 && (check_for_string_arg(argvars, 0) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	979 \|\| check_for_opt_number_arg(argvars, 1) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	980 \|\| (argvars[1].v_type != VAR_UNKNOWN
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	981 && check_for_opt_bool_arg(argvars, 2) == FAIL)))
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	982 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	983
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	984 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	985 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	986 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	987 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	988 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	989 emsg(_(e_invarg));
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	990 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	991 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	992 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	993 what \|= STR2NR_QUOTE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	994 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	995
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	996 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	997 isneg = (*p == '-');
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	998 if (p == '+' \|\| p == '-')
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	999 p = skipwhite(p + 1);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1000 switch (base)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1001 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1002 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	1003 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	1004 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	1005 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1006 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	1007 // 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	1008 if (isneg)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1009 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	1010 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1011 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	1012
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1013 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1014
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 * "strgetchar()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1017 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1018 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1019 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	1020 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1021 char_u *str;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1022 int len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1023 int error = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1024 int charidx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1025 int byteidx = 0;
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 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	1028
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	1029 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	1030 && (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	1031 \|\| 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	1032 return;
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	1033
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1034 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	1035 if (str == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1036 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1037 len = (int)STRLEN(str);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1038 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	1039 if (error)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1040 return;
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 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	1043 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1044 if (charidx == 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1045 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1046 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	1047 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1048 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1049 --charidx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1050 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	1051 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1052 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1053
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 * "stridx()" function
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 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1058 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	1059 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1060 char_u buf[NUMBUFLEN];
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1061 char_u *needle;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1062 char_u *haystack;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1063 char_u *save_haystack;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1064 char_u *pos;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1065 int start_idx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1066
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1067 if (in_vim9script()
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1068 && (check_for_string_arg(argvars, 0) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1069 \|\| check_for_string_arg(argvars, 1) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1070 \|\| check_for_opt_number_arg(argvars, 2) == FAIL))
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1071 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1072
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1073 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	1074 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	1075 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	1076 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	1077 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	1078
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1079 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	1080 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1081 int error = FALSE;
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 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	1084 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	1085 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1086 if (start_idx >= 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1087 haystack += start_idx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1088 }
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 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	1091 if (pos != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1092 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	1093 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1094
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 * "string()" function
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 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1099 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	1100 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1101 char_u *tofree;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1102 char_u numbuf[NUMBUFLEN];
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1103
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1104 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	1105 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	1106 get_copyID());
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1107 // 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	1108 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	1109 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	1110 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1111
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1112 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1113 * "strlen()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1114 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1115 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1116 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	1117 {
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1118 if (in_vim9script()
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1119 && check_for_string_or_number_arg(argvars, 0) == FAIL)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1120 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1121
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1122 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	1123 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	1124 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1125
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1126 static void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1127 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	1128 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1129 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	1130 varnumber_T len = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1131 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	1132
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1133 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	1134 while (*s != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1135 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1136 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	1137 ++len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1138 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1139 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	1140 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1141
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1142 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1143 * "strcharlen()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1144 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1145 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1146 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	1147 {
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1148 if (in_vim9script()
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1149 && check_for_string_or_number_arg(argvars, 0) == FAIL)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1150 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1151
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1152 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	1153 }
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 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1156 * "strchars()" function
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 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1159 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	1160 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1161 varnumber_T skipcc = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1162
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1163 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	1164 && (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	1165 \|\| 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	1166 return;
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1167
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1168 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	1169 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	1170 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	1171 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	1172 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1173 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	1174 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1175
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1176 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1177 * "strdisplaywidth()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1178 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1179 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1180 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	1181 {
25252 acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	1182 char_u *s;
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1183 int col = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1184
25252 acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	1185 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	1186
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	1187 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	1188 && (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	1189 \|\| 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	1190 return;
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	1191
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25206 diff changeset	1192 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	1193 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	1194 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	1195
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1196 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	1197 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1198
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1199 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1200 * "strwidth()" function
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 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1203 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	1204 {
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1205 char_u *s;
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1206
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1207 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1208 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1209
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1210 s = tv_get_string_strict(&argvars[0]);
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1211 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	1212 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1213
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1214 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1215 * "strcharpart()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1216 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1217 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1218 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	1219 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1220 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1221 int nchar;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1222 int nbyte = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1223 int charlen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1224 int skipcc = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1225 int len = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1226 int slen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1227 int error = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1228
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1229 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	1230 && (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	1231 \|\| 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	1232 \|\| 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	1233 \|\| (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	1234 && 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	1235 return;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1236
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1237 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	1238 slen = (int)STRLEN(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1239
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1240 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	1241 if (!error)
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 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	1244 && 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	1245 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1246 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	1247 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	1248 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1249 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	1250 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1251 }
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
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1254 if (nchar > 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1255 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	1256 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1257 if (skipcc)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1258 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	1259 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1260 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	1261 --nchar;
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 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1264 nbyte = nchar;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1265 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	1266 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1267 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	1268 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	1269 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1270 int off = nbyte + len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1271
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1272 if (off < 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1273 len += 1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1274 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1275 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1276 if (skipcc)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1277 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	1278 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1279 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	1280 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1281 --charlen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1282 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1283 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1284 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1285 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	1286 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1287
25567 0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1288 // Only return the overlap between the specified part and the actual
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1289 // string.
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1290 if (nbyte < 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 += nbyte;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1293 nbyte = 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 (nbyte > slen)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1296 nbyte = 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 (nbyte + 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 - nbyte;
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 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	1303 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	1304 }
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 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1307 * "strpart()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1308 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1309 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1310 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	1311 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1312 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1313 int n;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1314 int len;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1315 int slen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1316 int error = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1317
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1318 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	1319 && (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	1320 \|\| 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	1321 \|\| 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	1322 \|\| (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	1323 && 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	1324 return;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1325
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1326 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	1327 slen = (int)STRLEN(p);
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 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	1330 if (error)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1331 len = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1332 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	1333 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	1334 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1335 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	1336
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1337 // 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	1338 // string.
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1339 if (n < 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1340 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1341 len += n;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1342 n = 0;
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 if (n > slen)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1345 n = slen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1346 if (len < 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1347 len = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1348 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	1349 len = slen - n;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1350
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1351 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	1352 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1353 int off;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1354
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1355 // length in characters
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1356 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	1357 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	1358 len = off - n;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1359 }
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 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	1362 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	1363 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1364
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1365 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1366 * "strridx()" function
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 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1369 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	1370 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1371 char_u buf[NUMBUFLEN];
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1372 char_u *needle;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1373 char_u *haystack;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1374 char_u *rest;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1375 char_u *lastmatch = NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1376 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	1377
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1378 if (in_vim9script()
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1379 && (check_for_string_arg(argvars, 0) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1380 \|\| check_for_string_arg(argvars, 1) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1381 \|\| check_for_opt_number_arg(argvars, 2) == FAIL))
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1382 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1383
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1384 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	1385 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	1386
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1387 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	1388 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	1389 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	1390
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1391 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	1392 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	1393 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1394 // 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	1395 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	1396 if (end_idx < 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1397 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	1398 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1399 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1400 end_idx = haystack_len;
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 if (*needle == NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1403 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1404 // 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	1405 lastmatch = haystack + end_idx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1406 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1407 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1408 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1409 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	1410 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1411 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	1412 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	1413 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1414 lastmatch = rest;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1415 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1416 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1417
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1418 if (lastmatch == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1419 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	1420 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1421 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	1422 }
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 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1425 * "strtrans()" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1426 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1427 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1428 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	1429 {
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1430 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1431 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1432
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1433 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	1434 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	1435 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1436
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1437 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1438 * "tolower(string)" function
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 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1441 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	1442 {
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1443 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1444 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1445
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1446 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	1447 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	1448 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1449
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1450 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1451 * "toupper(string)" function
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1452 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1453 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1454 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	1455 {
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1456 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1457 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1458
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1459 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	1460 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	1461 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1462
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 * "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	1465 */
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1466 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1467 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	1468 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1469 char_u *in_str;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1470 char_u *fromstr;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1471 char_u *tostr;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1472 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1473 int inlen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1474 int fromlen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1475 int tolen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1476 int idx;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1477 char_u *cpstr;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1478 int cplen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1479 int first = TRUE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1480 char_u buf[NUMBUFLEN];
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1481 char_u buf2[NUMBUFLEN];
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1482 garray_T ga;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1483
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1484 if (in_vim9script()
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1485 && (check_for_string_arg(argvars, 0) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1486 \|\| check_for_string_arg(argvars, 1) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1487 \|\| check_for_string_arg(argvars, 2) == FAIL))
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1488 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1489
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1490 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	1491 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	1492 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	1493
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1494 // 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	1495 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	1496 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	1497 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	1498 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	1499 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	1500
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1501 if (!has_mbyte)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1502 // 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	1503 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	1504 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1505 error:
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1506 semsg(_(e_invarg2), fromstr);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1507 ga_clear(&ga);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1508 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1509 }
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 // 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	1512 while (*in_str != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1513 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1514 if (has_mbyte)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1515 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1516 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	1517 cpstr = in_str;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1518 cplen = inlen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1519 idx = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1520 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	1521 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1522 fromlen = (*mb_ptr2len)(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1523 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	1524 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1525 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	1526 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1527 tolen = (*mb_ptr2len)(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1528 if (idx-- == 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1529 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1530 cplen = tolen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1531 cpstr = p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1532 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1533 }
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 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	1536 goto error;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1537 break;
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 ++idx;
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
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1542 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	1543 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1544 // 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	1545 // (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	1546 // 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	1547 first = FALSE;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1548 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	1549 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1550 tolen = (*mb_ptr2len)(p);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1551 --idx;
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 if (idx != 0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1554 goto error;
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 (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	1558 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	1559 ga.ga_len += cplen;
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 in_str += inlen;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1562 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1563 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1564 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1565 // 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	1566 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	1567 if (p != NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1568 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	1569 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1570 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	1571 ++in_str;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1572 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1573 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1574
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1575 // add a terminating NUL
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1576 (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	1577 ga_append(&ga, NUL);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1578
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1579 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	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 /*
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1583 * "trim({expr})" function
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 void
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1586 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	1587 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1588 char_u buf1[NUMBUFLEN];
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1589 char_u buf2[NUMBUFLEN];
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1590 char_u *head;
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1591 char_u *mask = NULL;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1592 char_u *tail;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1593 char_u *prev;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1594 char_u *p;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1595 int c1;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1596 int dir = 0;
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 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	1599 rettv->vval.v_string = NULL;
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1600
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1601 if (in_vim9script()
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1602 && (check_for_string_arg(argvars, 0) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1603 \|\| check_for_opt_string_arg(argvars, 1) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1604 \|\| (argvars[1].v_type != VAR_UNKNOWN
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1605 && check_for_opt_number_arg(argvars, 2) == FAIL)))
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1606 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1607
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	1608 head = tv_get_string_buf_chk(&argvars[0], buf1);
25206 dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1609 if (head == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1610 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1611
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1612 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	1613 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1614 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	1615 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1616 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1617
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1618 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	1619 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1620 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	1621
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1622 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	1623 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1624 int error = 0;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1625
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1626 // 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	1627 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	1628 if (error)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1629 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1630 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	1631 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1632 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	1633 return;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1634 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1635 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1636 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1637
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1638 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	1639 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1640 // Trim leading characters
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1641 while (*head != NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1642 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1643 c1 = PTR2CHAR(head);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1644 if (mask == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1645 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1646 if (c1 > ' ' && c1 != 0xa0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1647 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1648 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1649 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1650 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1651 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	1652 if (c1 == PTR2CHAR(p))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1653 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1654 if (*p == NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1655 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1656 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1657 MB_PTR_ADV(head);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1658 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1659 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1660
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1661 tail = head + STRLEN(head);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1662 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	1663 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1664 // Trim trailing characters
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1665 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	1666 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1667 prev = tail;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1668 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	1669 c1 = PTR2CHAR(prev);
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1670 if (mask == NULL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1671 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1672 if (c1 > ' ' && c1 != 0xa0)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1673 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1674 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1675 else
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1676 {
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1677 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	1678 if (c1 == PTR2CHAR(p))
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1679 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1680 if (*p == NUL)
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1681 break;
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1682 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1683 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1684 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1685 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	1686 }
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1687
dc66d0284518 patch 8.2.3139: functions for string manipulation are spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1688 #endif
25567 0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1689
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1690 #if defined(FEAT_EVAL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1691 static char *e_printf = N_("E766: Insufficient arguments for printf()");
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1692
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1693 /*
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1694 * Get number argument from "idxp" entry in "tvs". First entry is 1.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1695 */
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1696 static varnumber_T
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1697 tv_nr(typval_T tvs, int idxp)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1698 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1699 int idx = *idxp - 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1700 varnumber_T n = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1701 int err = FALSE;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1702
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1703 if (tvs[idx].v_type == VAR_UNKNOWN)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1704 emsg(_(e_printf));
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1705 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1706 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1707 ++*idxp;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1708 n = tv_get_number_chk(&tvs[idx], &err);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1709 if (err)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1710 n = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1711 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1712 return n;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1713 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1714
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1715 /*
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1716 * Get string argument from "idxp" entry in "tvs". First entry is 1.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1717 * If "tofree" is NULL tv_get_string_chk() is used. Some types (e.g. List)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1718 * are not converted to a string.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1719 * If "tofree" is not NULL echo_string() is used. All types are converted to
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1720 * a string with the same format as ":echo". The caller must free "*tofree".
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1721 * Returns NULL for an error.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1722 */
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1723 static char *
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1724 tv_str(typval_T tvs, int idxp, char_u **tofree)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1725 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1726 int idx = *idxp - 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1727 char *s = NULL;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1728 static char_u numbuf[NUMBUFLEN];
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1729
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1730 if (tvs[idx].v_type == VAR_UNKNOWN)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1731 emsg(_(e_printf));
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1732 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1733 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1734 ++*idxp;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1735 if (tofree != NULL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1736 s = (char *)echo_string(&tvs[idx], tofree, numbuf, get_copyID());
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1737 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1738 s = (char *)tv_get_string_chk(&tvs[idx]);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1739 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1740 return s;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1741 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1742
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1743 # ifdef FEAT_FLOAT
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1744 /*
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1745 * Get float argument from "idxp" entry in "tvs". First entry is 1.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1746 */
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1747 static double
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1748 tv_float(typval_T tvs, int idxp)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1749 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1750 int idx = *idxp - 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1751 double f = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1752
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1753 if (tvs[idx].v_type == VAR_UNKNOWN)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1754 emsg(_(e_printf));
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1755 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1756 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1757 ++*idxp;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1758 if (tvs[idx].v_type == VAR_FLOAT)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1759 f = tvs[idx].vval.v_float;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1760 else if (tvs[idx].v_type == VAR_NUMBER)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1761 f = (double)tvs[idx].vval.v_number;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1762 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1763 emsg(_("E807: Expected Float argument for printf()"));
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1764 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1765 return f;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1766 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1767 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1768 #endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1769
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1770 #ifdef FEAT_FLOAT
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1771 /*
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1772 * Return the representation of infinity for printf() function:
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1773 * "-inf", "inf", "+inf", " inf", "-INF", "INF", "+INF" or " INF".
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1774 */
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1775 static const char *
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1776 infinity_str(int positive,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1777 char fmt_spec,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1778 int force_sign,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1779 int space_for_positive)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1780 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1781 static const char *table[] =
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1782 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1783 "-inf", "inf", "+inf", " inf",
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1784 "-INF", "INF", "+INF", " INF"
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1785 };
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1786 int idx = positive * (1 + force_sign + force_sign * space_for_positive);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1787
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1788 if (ASCII_ISUPPER(fmt_spec))
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1789 idx += 4;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1790 return table[idx];
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1791 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1792 #endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1793
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1794 /*
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1795 * This code was included to provide a portable vsnprintf() and snprintf().
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1796 * Some systems may provide their own, but we always use this one for
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1797 * consistency.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1798 *
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1799 * This code is based on snprintf.c - a portable implementation of snprintf
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1800 * by Mark Martinec <mark.martinec@ijs.si>, Version 2.2, 2000-10-06.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1801 * Included with permission. It was heavily modified to fit in Vim.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1802 * The original code, including useful comments, can be found here:
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1803 * http://www.ijs.si/software/snprintf/
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1804 *
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1805 * This snprintf() only supports the following conversion specifiers:
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1806 * s, c, d, u, o, x, X, p (and synonyms: i, D, U, O - see below)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1807 * with flags: '-', '+', ' ', '0' and '#'.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1808 * An asterisk is supported for field width as well as precision.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1809 *
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1810 * Limited support for floating point was added: 'f', 'F', 'e', 'E', 'g', 'G'.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1811 *
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1812 * Length modifiers 'h' (short int) and 'l' (long int) and 'll' (long long int)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1813 * are supported. NOTE: for 'll' the argument is varnumber_T or uvarnumber_T.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1814 *
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1815 * The locale is not used, the string is used as a byte string. This is only
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1816 * relevant for double-byte encodings where the second byte may be '%'.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1817 *
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1818 * It is permitted for "str_m" to be zero, and it is permitted to specify NULL
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1819 * pointer for resulting string argument if "str_m" is zero (as per ISO C99).
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1820 *
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1821 * The return value is the number of characters which would be generated
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1822 * for the given input, excluding the trailing NUL. If this value
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1823 * is greater or equal to "str_m", not all characters from the result
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1824 * have been stored in str, output bytes beyond the ("str_m"-1) -th character
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1825 * are discarded. If "str_m" is greater than zero it is guaranteed
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1826 * the resulting string will be NUL-terminated.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1827 */
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1828
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1829 /*
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1830 * When va_list is not supported we only define vim_snprintf().
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1831 *
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1832 * vim_vsnprintf_typval() can be invoked with either "va_list" or a list of
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1833 * "typval_T". When the latter is not used it must be NULL.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1834 */
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1835
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1836 // When generating prototypes all of this is skipped, cproto doesn't
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1837 // understand this.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1838 #ifndef PROTO
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1839
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1840 // Like vim_vsnprintf() but append to the string.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1841 int
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1842 vim_snprintf_add(char str, size_t str_m, const char fmt, ...)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1843 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1844 va_list ap;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1845 int str_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1846 size_t len = STRLEN(str);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1847 size_t space;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1848
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1849 if (str_m <= len)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1850 space = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1851 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1852 space = str_m - len;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1853 va_start(ap, fmt);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1854 str_l = vim_vsnprintf(str + len, space, fmt, ap);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1855 va_end(ap);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1856 return str_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1857 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1858
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1859 int
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1860 vim_snprintf(char str, size_t str_m, const char fmt, ...)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1861 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1862 va_list ap;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1863 int str_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1864
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1865 va_start(ap, fmt);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1866 str_l = vim_vsnprintf(str, str_m, fmt, ap);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1867 va_end(ap);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1868 return str_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1869 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1870
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1871 int
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1872 vim_vsnprintf(
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1873 char *str,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1874 size_t str_m,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1875 const char *fmt,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1876 va_list ap)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1877 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1878 return vim_vsnprintf_typval(str, str_m, fmt, ap, NULL);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1879 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1880
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1881 int
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1882 vim_vsnprintf_typval(
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1883 char *str,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1884 size_t str_m,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1885 const char *fmt,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1886 va_list ap,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1887 typval_T *tvs)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1888 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1889 size_t str_l = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1890 const char *p = fmt;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1891 int arg_idx = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1892
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1893 if (p == NULL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1894 p = "";
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1895 while (*p != NUL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1896 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1897 if (*p != '%')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1898 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1899 char *q = strchr(p + 1, '%');
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1900 size_t n = (q == NULL) ? STRLEN(p) : (size_t)(q - p);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1901
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1902 // Copy up to the next '%' or NUL without any changes.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1903 if (str_l < str_m)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1904 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1905 size_t avail = str_m - str_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1906
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1907 mch_memmove(str + str_l, p, n > avail ? avail : n);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1908 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1909 p += n;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1910 str_l += n;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1911 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1912 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1913 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1914 size_t min_field_width = 0, precision = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1915 int zero_padding = 0, precision_specified = 0, justify_left = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1916 int alternate_form = 0, force_sign = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1917
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1918 // If both the ' ' and '+' flags appear, the ' ' flag should be
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1919 // ignored.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1920 int space_for_positive = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1921
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1922 // allowed values: \0, h, l, L
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1923 char length_modifier = '\0';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1924
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1925 // temporary buffer for simple numeric->string conversion
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1926 # if defined(FEAT_FLOAT)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1927 # define TMP_LEN 350 // On my system 1e308 is the biggest number possible.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1928 // That sounds reasonable to use as the maximum
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1929 // printable.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1930 # else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1931 # define TMP_LEN 66
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1932 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1933 char tmp[TMP_LEN];
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1934
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1935 // string address in case of string argument
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1936 const char *str_arg = NULL;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1937
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1938 // natural field width of arg without padding and sign
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1939 size_t str_arg_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1940
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1941 // unsigned char argument value - only defined for c conversion.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1942 // N.B. standard explicitly states the char argument for the c
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1943 // conversion is unsigned
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1944 unsigned char uchar_arg;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1945
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1946 // number of zeros to be inserted for numeric conversions as
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1947 // required by the precision or minimal field width
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1948 size_t number_of_zeros_to_pad = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1949
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1950 // index into tmp where zero padding is to be inserted
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1951 size_t zero_padding_insertion_ind = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1952
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1953 // current conversion specifier character
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1954 char fmt_spec = '\0';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1955
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1956 // buffer for 's' and 'S' specs
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1957 char_u *tofree = NULL;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1958
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1959
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1960 p++; // skip '%'
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1961
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1962 // parse flags
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1963 while (p == '0' \|\| p == '-' \|\| p == '+' \|\| p == ' '
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1964 \|\| p == '#' \|\| p == '\'')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1965 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1966 switch (*p)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1967 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1968 case '0': zero_padding = 1; break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1969 case '-': justify_left = 1; break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1970 case '+': force_sign = 1; space_for_positive = 0; break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1971 case ' ': force_sign = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1972 // If both the ' ' and '+' flags appear, the ' '
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1973 // flag should be ignored
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1974 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1975 case '#': alternate_form = 1; break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1976 case '\'': break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1977 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1978 p++;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1979 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1980 // If the '0' and '-' flags both appear, the '0' flag should be
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1981 // ignored.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1982
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1983 // parse field width
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1984 if (p == '')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1985 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1986 int j;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1987
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1988 p++;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1989 j =
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1990 # if defined(FEAT_EVAL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1991 tvs != NULL ? tv_nr(tvs, &arg_idx) :
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1992 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1993 va_arg(ap, int);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1994 if (j >= 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1995 min_field_width = j;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1996 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1997 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1998 min_field_width = -j;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1999 justify_left = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2000 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2001 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2002 else if (VIM_ISDIGIT((int)(*p)))
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2003 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2004 // size_t could be wider than unsigned int; make sure we treat
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2005 // argument like common implementations do
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2006 unsigned int uj = *p++ - '0';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2007
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2008 while (VIM_ISDIGIT((int)(*p)))
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2009 uj = 10 * uj + (unsigned int)(*p++ - '0');
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2010 min_field_width = uj;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2011 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2012
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2013 // parse precision
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2014 if (*p == '.')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2015 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2016 p++;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2017 precision_specified = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2018 if (p == '')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2019 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2020 int j;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2021
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2022 j =
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2023 # if defined(FEAT_EVAL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2024 tvs != NULL ? tv_nr(tvs, &arg_idx) :
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2025 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2026 va_arg(ap, int);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2027 p++;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2028 if (j >= 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2029 precision = j;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2030 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2031 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2032 precision_specified = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2033 precision = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2034 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2035 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2036 else if (VIM_ISDIGIT((int)(*p)))
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2037 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2038 // size_t could be wider than unsigned int; make sure we
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2039 // treat argument like common implementations do
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2040 unsigned int uj = *p++ - '0';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2041
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2042 while (VIM_ISDIGIT((int)(*p)))
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2043 uj = 10 * uj + (unsigned int)(*p++ - '0');
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2044 precision = uj;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2045 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2046 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2047
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2048 // parse 'h', 'l' and 'll' length modifiers
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2049 if (p == 'h' \|\| p == 'l')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2050 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2051 length_modifier = *p;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2052 p++;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2053 if (length_modifier == 'l' && *p == 'l')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2054 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2055 // double l = __int64 / varnumber_T
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2056 length_modifier = 'L';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2057 p++;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2058 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2059 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2060 fmt_spec = *p;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2061
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2062 // common synonyms:
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2063 switch (fmt_spec)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2064 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2065 case 'i': fmt_spec = 'd'; break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2066 case 'D': fmt_spec = 'd'; length_modifier = 'l'; break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2067 case 'U': fmt_spec = 'u'; length_modifier = 'l'; break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2068 case 'O': fmt_spec = 'o'; length_modifier = 'l'; break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2069 default: break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2070 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2071
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2072 # if defined(FEAT_EVAL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2073 switch (fmt_spec)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2074 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2075 case 'd': case 'u': case 'o': case 'x': case 'X':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2076 if (tvs != NULL && length_modifier == '\0')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2077 length_modifier = 'L';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2078 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2079 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2080
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2081 // get parameter value, do initial processing
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2082 switch (fmt_spec)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2083 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2084 // '%' and 'c' behave similar to 's' regarding flags and field
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2085 // widths
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2086 case '%':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2087 case 'c':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2088 case 's':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2089 case 'S':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2090 str_arg_l = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2091 switch (fmt_spec)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2092 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2093 case '%':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2094 str_arg = p;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2095 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2096
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2097 case 'c':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2098 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2099 int j;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2100
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2101 j =
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2102 # if defined(FEAT_EVAL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2103 tvs != NULL ? tv_nr(tvs, &arg_idx) :
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2104 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2105 va_arg(ap, int);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2106 // standard demands unsigned char
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2107 uchar_arg = (unsigned char)j;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2108 str_arg = (char *)&uchar_arg;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2109 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2110 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2111
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2112 case 's':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2113 case 'S':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2114 str_arg =
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2115 # if defined(FEAT_EVAL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2116 tvs != NULL ? tv_str(tvs, &arg_idx, &tofree) :
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2117 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2118 va_arg(ap, char *);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2119 if (str_arg == NULL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2120 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2121 str_arg = "[NULL]";
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2122 str_arg_l = 6;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2123 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2124 // make sure not to address string beyond the specified
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2125 // precision !!!
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2126 else if (!precision_specified)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2127 str_arg_l = strlen(str_arg);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2128 // truncate string if necessary as requested by precision
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2129 else if (precision == 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2130 str_arg_l = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2131 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2132 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2133 // Don't put the #if inside memchr(), it can be a
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2134 // macro.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2135 // memchr on HP does not like n > 2^31 !!!
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2136 char *q = memchr(str_arg, '\0',
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2137 precision <= (size_t)0x7fffffffL ? precision
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2138 : (size_t)0x7fffffffL);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2139 str_arg_l = (q == NULL) ? precision
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2140 : (size_t)(q - str_arg);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2141 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2142 if (fmt_spec == 'S')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2143 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2144 if (min_field_width != 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2145 min_field_width += STRLEN(str_arg)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2146 - mb_string2cells((char_u *)str_arg, -1);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2147 if (precision)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2148 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2149 char_u *p1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2150 size_t i = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2151
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2152 for (p1 = (char_u )str_arg; p1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2153 p1 += mb_ptr2len(p1))
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2154 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2155 i += (size_t)mb_ptr2cells(p1);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2156 if (i > precision)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2157 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2158 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2159 str_arg_l = precision = p1 - (char_u *)str_arg;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2160 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2161 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2162 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2163
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2164 default:
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2165 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2166 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2167 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2168
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2169 case 'd': case 'u':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2170 case 'b': case 'B':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2171 case 'o':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2172 case 'x': case 'X':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2173 case 'p':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2174 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2175 // NOTE: the u, b, o, x, X and p conversion specifiers
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2176 // imply the value is unsigned; d implies a signed
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2177 // value
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2178
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2179 // 0 if numeric argument is zero (or if pointer is
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2180 // NULL for 'p'), +1 if greater than zero (or nonzero
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2181 // for unsigned arguments), -1 if negative (unsigned
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2182 // argument is never negative)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2183 int arg_sign = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2184
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2185 // only set for length modifier h, or for no length
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2186 // modifiers
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2187 int int_arg = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2188 unsigned int uint_arg = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2189
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2190 // only set for length modifier l
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2191 long int long_arg = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2192 unsigned long int ulong_arg = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2193
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2194 // only set for length modifier ll
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2195 varnumber_T llong_arg = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2196 uvarnumber_T ullong_arg = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2197
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2198 // only set for b conversion
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2199 uvarnumber_T bin_arg = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2200
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2201 // pointer argument value -only defined for p
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2202 // conversion
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2203 void *ptr_arg = NULL;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2204
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2205 if (fmt_spec == 'p')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2206 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2207 length_modifier = '\0';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2208 ptr_arg =
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2209 # if defined(FEAT_EVAL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2210 tvs != NULL ? (void *)tv_str(tvs, &arg_idx,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2211 NULL) :
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2212 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2213 va_arg(ap, void *);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2214 if (ptr_arg != NULL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2215 arg_sign = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2216 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2217 else if (fmt_spec == 'b' \|\| fmt_spec == 'B')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2218 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2219 bin_arg =
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2220 # if defined(FEAT_EVAL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2221 tvs != NULL ?
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2222 (uvarnumber_T)tv_nr(tvs, &arg_idx) :
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2223 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2224 va_arg(ap, uvarnumber_T);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2225 if (bin_arg != 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2226 arg_sign = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2227 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2228 else if (fmt_spec == 'd')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2229 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2230 // signed
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2231 switch (length_modifier)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2232 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2233 case '\0':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2234 case 'h':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2235 // char and short arguments are passed as int.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2236 int_arg =
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2237 # if defined(FEAT_EVAL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2238 tvs != NULL ? tv_nr(tvs, &arg_idx) :
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2239 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2240 va_arg(ap, int);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2241 if (int_arg > 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2242 arg_sign = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2243 else if (int_arg < 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2244 arg_sign = -1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2245 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2246 case 'l':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2247 long_arg =
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2248 # if defined(FEAT_EVAL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2249 tvs != NULL ? tv_nr(tvs, &arg_idx) :
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2250 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2251 va_arg(ap, long int);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2252 if (long_arg > 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2253 arg_sign = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2254 else if (long_arg < 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2255 arg_sign = -1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2256 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2257 case 'L':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2258 llong_arg =
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2259 # if defined(FEAT_EVAL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2260 tvs != NULL ? tv_nr(tvs, &arg_idx) :
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2261 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2262 va_arg(ap, varnumber_T);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2263 if (llong_arg > 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2264 arg_sign = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2265 else if (llong_arg < 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2266 arg_sign = -1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2267 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2268 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2269 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2270 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2271 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2272 // unsigned
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2273 switch (length_modifier)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2274 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2275 case '\0':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2276 case 'h':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2277 uint_arg =
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2278 # if defined(FEAT_EVAL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2279 tvs != NULL ? (unsigned)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2280 tv_nr(tvs, &arg_idx) :
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2281 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2282 va_arg(ap, unsigned int);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2283 if (uint_arg != 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2284 arg_sign = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2285 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2286 case 'l':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2287 ulong_arg =
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2288 # if defined(FEAT_EVAL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2289 tvs != NULL ? (unsigned long)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2290 tv_nr(tvs, &arg_idx) :
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2291 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2292 va_arg(ap, unsigned long int);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2293 if (ulong_arg != 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2294 arg_sign = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2295 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2296 case 'L':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2297 ullong_arg =
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2298 # if defined(FEAT_EVAL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2299 tvs != NULL ? (uvarnumber_T)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2300 tv_nr(tvs, &arg_idx) :
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2301 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2302 va_arg(ap, uvarnumber_T);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2303 if (ullong_arg != 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2304 arg_sign = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2305 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2306 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2307 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2308
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2309 str_arg = tmp;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2310 str_arg_l = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2311
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2312 // NOTE:
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2313 // For d, i, u, o, x, and X conversions, if precision is
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2314 // specified, the '0' flag should be ignored. This is so
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2315 // with Solaris 2.6, Digital UNIX 4.0, HPUX 10, Linux,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2316 // FreeBSD, NetBSD; but not with Perl.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2317 if (precision_specified)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2318 zero_padding = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2319 if (fmt_spec == 'd')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2320 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2321 if (force_sign && arg_sign >= 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2322 tmp[str_arg_l++] = space_for_positive ? ' ' : '+';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2323 // leave negative numbers for sprintf to handle, to
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2324 // avoid handling tricky cases like (short int)-32768
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2325 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2326 else if (alternate_form)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2327 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2328 if (arg_sign != 0
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2329 && (fmt_spec == 'b' \|\| fmt_spec == 'B'
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2330 \|\| fmt_spec == 'x' \|\| fmt_spec == 'X') )
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2331 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2332 tmp[str_arg_l++] = '0';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2333 tmp[str_arg_l++] = fmt_spec;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2334 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2335 // alternate form should have no effect for p
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2336 // conversion, but ...
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2337 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2338
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2339 zero_padding_insertion_ind = str_arg_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2340 if (!precision_specified)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2341 precision = 1; // default precision is 1
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2342 if (precision == 0 && arg_sign == 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2343 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2344 // When zero value is formatted with an explicit
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2345 // precision 0, the resulting formatted string is
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2346 // empty (d, i, u, b, B, o, x, X, p).
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2347 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2348 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2349 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2350 char f[6];
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2351 int f_l = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2352
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2353 // construct a simple format string for sprintf
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2354 f[f_l++] = '%';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2355 if (!length_modifier)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2356 ;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2357 else if (length_modifier == 'L')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2358 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2359 # ifdef MSWIN
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2360 f[f_l++] = 'I';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2361 f[f_l++] = '6';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2362 f[f_l++] = '4';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2363 # else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2364 f[f_l++] = 'l';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2365 f[f_l++] = 'l';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2366 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2367 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2368 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2369 f[f_l++] = length_modifier;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2370 f[f_l++] = fmt_spec;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2371 f[f_l++] = '\0';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2372
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2373 if (fmt_spec == 'p')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2374 str_arg_l += sprintf(tmp + str_arg_l, f, ptr_arg);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2375 else if (fmt_spec == 'b' \|\| fmt_spec == 'B')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2376 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2377 char b[8 * sizeof(uvarnumber_T)];
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2378 size_t b_l = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2379 uvarnumber_T bn = bin_arg;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2380
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2381 do
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2382 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2383 b[sizeof(b) - ++b_l] = '0' + (bn & 0x1);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2384 bn >>= 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2385 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2386 while (bn != 0);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2387
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2388 memcpy(tmp + str_arg_l, b + sizeof(b) - b_l, b_l);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2389 str_arg_l += b_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2390 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2391 else if (fmt_spec == 'd')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2392 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2393 // signed
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2394 switch (length_modifier)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2395 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2396 case '\0': str_arg_l += sprintf(
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2397 tmp + str_arg_l, f,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2398 int_arg);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2399 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2400 case 'h': str_arg_l += sprintf(
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2401 tmp + str_arg_l, f,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2402 (short)int_arg);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2403 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2404 case 'l': str_arg_l += sprintf(
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2405 tmp + str_arg_l, f, long_arg);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2406 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2407 case 'L': str_arg_l += sprintf(
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2408 tmp + str_arg_l, f, llong_arg);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2409 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2410 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2411 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2412 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2413 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2414 // unsigned
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2415 switch (length_modifier)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2416 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2417 case '\0': str_arg_l += sprintf(
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2418 tmp + str_arg_l, f,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2419 uint_arg);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2420 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2421 case 'h': str_arg_l += sprintf(
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2422 tmp + str_arg_l, f,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2423 (unsigned short)uint_arg);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2424 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2425 case 'l': str_arg_l += sprintf(
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2426 tmp + str_arg_l, f, ulong_arg);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2427 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2428 case 'L': str_arg_l += sprintf(
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2429 tmp + str_arg_l, f, ullong_arg);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2430 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2431 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2432 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2433
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2434 // include the optional minus sign and possible
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2435 // "0x" in the region before the zero padding
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2436 // insertion point
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2437 if (zero_padding_insertion_ind < str_arg_l
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2438 && tmp[zero_padding_insertion_ind] == '-')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2439 zero_padding_insertion_ind++;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2440 if (zero_padding_insertion_ind + 1 < str_arg_l
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2441 && tmp[zero_padding_insertion_ind] == '0'
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2442 && (tmp[zero_padding_insertion_ind + 1] == 'x'
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2443 \|\| tmp[zero_padding_insertion_ind + 1] == 'X'))
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2444 zero_padding_insertion_ind += 2;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2445 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2446
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2447 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2448 size_t num_of_digits = str_arg_l
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2449 - zero_padding_insertion_ind;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2450
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2451 if (alternate_form && fmt_spec == 'o'
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2452 // unless zero is already the first
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2453 // character
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2454 && !(zero_padding_insertion_ind < str_arg_l
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2455 && tmp[zero_padding_insertion_ind] == '0'))
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2456 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2457 // assure leading zero for alternate-form
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2458 // octal numbers
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2459 if (!precision_specified
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2460 \|\| precision < num_of_digits + 1)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2461 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2462 // precision is increased to force the
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2463 // first character to be zero, except if a
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2464 // zero value is formatted with an
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2465 // explicit precision of zero
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2466 precision = num_of_digits + 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2467 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2468 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2469 // zero padding to specified precision?
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2470 if (num_of_digits < precision)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2471 number_of_zeros_to_pad = precision - num_of_digits;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2472 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2473 // zero padding to specified minimal field width?
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2474 if (!justify_left && zero_padding)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2475 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2476 int n = (int)(min_field_width - (str_arg_l
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2477 + number_of_zeros_to_pad));
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2478 if (n > 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2479 number_of_zeros_to_pad += n;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2480 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2481 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2482 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2483
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2484 # ifdef FEAT_FLOAT
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2485 case 'f':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2486 case 'F':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2487 case 'e':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2488 case 'E':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2489 case 'g':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2490 case 'G':
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2491 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2492 // Floating point.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2493 double f;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2494 double abs_f;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2495 char format[40];
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2496 int l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2497 int remove_trailing_zeroes = FALSE;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2498
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2499 f =
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2500 # if defined(FEAT_EVAL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2501 tvs != NULL ? tv_float(tvs, &arg_idx) :
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2502 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2503 va_arg(ap, double);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2504 abs_f = f < 0 ? -f : f;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2505
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2506 if (fmt_spec == 'g' \|\| fmt_spec == 'G')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2507 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2508 // Would be nice to use %g directly, but it prints
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2509 // "1.0" as "1", we don't want that.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2510 if ((abs_f >= 0.001 && abs_f < 10000000.0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2511 \|\| abs_f == 0.0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2512 fmt_spec = ASCII_ISUPPER(fmt_spec) ? 'F' : 'f';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2513 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2514 fmt_spec = fmt_spec == 'g' ? 'e' : 'E';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2515 remove_trailing_zeroes = TRUE;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2516 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2517
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2518 if ((fmt_spec == 'f' \|\| fmt_spec == 'F') &&
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2519 # ifdef VAX
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2520 abs_f > 1.0e38
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2521 # else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2522 abs_f > 1.0e307
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2523 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2524 )
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2525 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2526 // Avoid a buffer overflow
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2527 STRCPY(tmp, infinity_str(f > 0.0, fmt_spec,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2528 force_sign, space_for_positive));
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2529 str_arg_l = STRLEN(tmp);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2530 zero_padding = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2531 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2532 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2533 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2534 if (isnan(f))
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2535 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2536 // Not a number: nan or NAN
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2537 STRCPY(tmp, ASCII_ISUPPER(fmt_spec) ? "NAN"
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2538 : "nan");
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2539 str_arg_l = 3;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2540 zero_padding = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2541 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2542 else if (isinf(f))
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2543 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2544 STRCPY(tmp, infinity_str(f > 0.0, fmt_spec,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2545 force_sign, space_for_positive));
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2546 str_arg_l = STRLEN(tmp);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2547 zero_padding = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2548 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2549 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2550 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2551 // Regular float number
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2552 format[0] = '%';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2553 l = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2554 if (force_sign)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2555 format[l++] = space_for_positive ? ' ' : '+';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2556 if (precision_specified)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2557 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2558 size_t max_prec = TMP_LEN - 10;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2559
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2560 // Make sure we don't get more digits than we
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2561 // have room for.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2562 if ((fmt_spec == 'f' \|\| fmt_spec == 'F')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2563 && abs_f > 1.0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2564 max_prec -= (size_t)log10(abs_f);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2565 if (precision > max_prec)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2566 precision = max_prec;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2567 l += sprintf(format + l, ".%d", (int)precision);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2568 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2569 format[l] = fmt_spec == 'F' ? 'f' : fmt_spec;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2570 format[l + 1] = NUL;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2571
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2572 str_arg_l = sprintf(tmp, format, f);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2573 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2574
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2575 if (remove_trailing_zeroes)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2576 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2577 int i;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2578 char *tp;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2579
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2580 // Using %g or %G: remove superfluous zeroes.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2581 if (fmt_spec == 'f' \|\| fmt_spec == 'F')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2582 tp = tmp + str_arg_l - 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2583 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2584 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2585 tp = (char )vim_strchr((char_u )tmp,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2586 fmt_spec == 'e' ? 'e' : 'E');
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2587 if (tp != NULL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2588 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2589 // Remove superfluous '+' and leading
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2590 // zeroes from the exponent.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2591 if (tp[1] == '+')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2592 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2593 // Change "1.0e+07" to "1.0e07"
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2594 STRMOVE(tp + 1, tp + 2);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2595 --str_arg_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2596 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2597 i = (tp[1] == '-') ? 2 : 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2598 while (tp[i] == '0')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2599 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2600 // Change "1.0e07" to "1.0e7"
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2601 STRMOVE(tp + i, tp + i + 1);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2602 --str_arg_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2603 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2604 --tp;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2605 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2606 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2607
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2608 if (tp != NULL && !precision_specified)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2609 // Remove trailing zeroes, but keep the one
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2610 // just after a dot.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2611 while (tp > tmp + 2 && *tp == '0'
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2612 && tp[-1] != '.')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2613 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2614 STRMOVE(tp, tp + 1);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2615 --tp;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2616 --str_arg_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2617 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2618 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2619 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2620 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2621 char *tp;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2622
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2623 // Be consistent: some printf("%e") use 1.0e+12
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2624 // and some 1.0e+012. Remove one zero in the last
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2625 // case.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2626 tp = (char )vim_strchr((char_u )tmp,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2627 fmt_spec == 'e' ? 'e' : 'E');
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2628 if (tp != NULL && (tp[1] == '+' \|\| tp[1] == '-')
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2629 && tp[2] == '0'
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2630 && vim_isdigit(tp[3])
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2631 && vim_isdigit(tp[4]))
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2632 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2633 STRMOVE(tp + 2, tp + 3);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2634 --str_arg_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2635 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2636 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2637 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2638 if (zero_padding && min_field_width > str_arg_l
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2639 && (tmp[0] == '-' \|\| force_sign))
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2640 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2641 // padding 0's should be inserted after the sign
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2642 number_of_zeros_to_pad = min_field_width - str_arg_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2643 zero_padding_insertion_ind = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2644 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2645 str_arg = tmp;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2646 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2647 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2648 # endif
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2649
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2650 default:
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2651 // unrecognized conversion specifier, keep format string
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2652 // as-is
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2653 zero_padding = 0; // turn zero padding off for non-numeric
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2654 // conversion
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2655 justify_left = 1;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2656 min_field_width = 0; // reset flags
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2657
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2658 // discard the unrecognized conversion, just keep *
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2659 // the unrecognized conversion character
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2660 str_arg = p;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2661 str_arg_l = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2662 if (*p != NUL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2663 str_arg_l++; // include invalid conversion specifier
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2664 // unchanged if not at end-of-string
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2665 break;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2666 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2667
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2668 if (*p != NUL)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2669 p++; // step over the just processed conversion specifier
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2670
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2671 // insert padding to the left as requested by min_field_width;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2672 // this does not include the zero padding in case of numerical
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2673 // conversions
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2674 if (!justify_left)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2675 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2676 // left padding with blank or zero
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2677 int pn = (int)(min_field_width - (str_arg_l + number_of_zeros_to_pad));
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2678
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2679 if (pn > 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2680 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2681 if (str_l < str_m)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2682 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2683 size_t avail = str_m - str_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2684
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2685 vim_memset(str + str_l, zero_padding ? '0' : ' ',
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2686 (size_t)pn > avail ? avail
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2687 : (size_t)pn);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2688 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2689 str_l += pn;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2690 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2691 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2692
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2693 // zero padding as requested by the precision or by the minimal
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2694 // field width for numeric conversions required?
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2695 if (number_of_zeros_to_pad == 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2696 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2697 // will not copy first part of numeric right now, *
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2698 // force it to be copied later in its entirety
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2699 zero_padding_insertion_ind = 0;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2700 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2701 else
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2702 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2703 // insert first part of numerics (sign or '0x') before zero
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2704 // padding
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2705 int zn = (int)zero_padding_insertion_ind;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2706
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2707 if (zn > 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2708 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2709 if (str_l < str_m)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2710 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2711 size_t avail = str_m - str_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2712
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2713 mch_memmove(str + str_l, str_arg,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2714 (size_t)zn > avail ? avail
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2715 : (size_t)zn);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2716 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2717 str_l += zn;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2718 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2719
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2720 // insert zero padding as requested by the precision or min
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2721 // field width
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2722 zn = (int)number_of_zeros_to_pad;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2723 if (zn > 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2724 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2725 if (str_l < str_m)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2726 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2727 size_t avail = str_m - str_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2728
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2729 vim_memset(str + str_l, '0',
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2730 (size_t)zn > avail ? avail
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2731 : (size_t)zn);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2732 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2733 str_l += zn;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2734 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2735 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2736
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2737 // insert formatted string
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2738 // (or as-is conversion specifier for unknown conversions)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2739 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2740 int sn = (int)(str_arg_l - zero_padding_insertion_ind);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2741
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2742 if (sn > 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2743 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2744 if (str_l < str_m)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2745 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2746 size_t avail = str_m - str_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2747
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2748 mch_memmove(str + str_l,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2749 str_arg + zero_padding_insertion_ind,
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2750 (size_t)sn > avail ? avail : (size_t)sn);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2751 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2752 str_l += sn;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2753 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2754 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2755
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2756 // insert right padding
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2757 if (justify_left)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2758 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2759 // right blank padding to the field width
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2760 int pn = (int)(min_field_width
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2761 - (str_arg_l + number_of_zeros_to_pad));
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2762
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2763 if (pn > 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2764 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2765 if (str_l < str_m)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2766 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2767 size_t avail = str_m - str_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2768
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2769 vim_memset(str + str_l, ' ',
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2770 (size_t)pn > avail ? avail
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2771 : (size_t)pn);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2772 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2773 str_l += pn;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2774 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2775 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2776 vim_free(tofree);
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2777 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2778 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2779
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2780 if (str_m > 0)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2781 {
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2782 // make sure the string is nul-terminated even at the expense of
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2783 // overwriting the last character (shouldn't happen, but just in case)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2784 //
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2785 str[str_l <= str_m - 1 ? str_l : str_m - 1] = '\0';
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2786 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2787
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2788 if (tvs != NULL && tvs[arg_idx - 1].v_type != VAR_UNKNOWN)
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2789 emsg(_("E767: Too many arguments to printf()"));
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2790
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2791 // Return the number of characters formatted (excluding trailing nul
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2792 // character), that is, the number of characters that would have been
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2793 // written to the buffer if it were large enough.
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2794 return (int)str_l;
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2795 }
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2796
0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	2797 #endif // PROTO

Mercurial > vim

annotate src/strings.c @ 25698:000b37efd5fa v8.2.3385