vim: src/indent.c annotate

annotate src/indent.c @ 35074:918b5b6ed9a4 default tip

Added tag v9.1.0380 for changeset 80240c27c4ffb28ca15ee5b439d2605e8648b02e

author	Christian Brabandt <cb@256bit.org>
date	Sun, 28 Apr 2024 16:30:13 +0200
parents	bfd2c0032686
children

rev	line source
15699 2d941023bd2f patch 8.1.0857: indent functionality is not separated Bram Moolenaar <Bram@vim.org> parents: diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
2d941023bd2f patch 8.1.0857: indent functionality is not separated Bram Moolenaar <Bram@vim.org> parents: diff changeset	2 *
2d941023bd2f patch 8.1.0857: indent functionality is not separated Bram Moolenaar <Bram@vim.org> parents: diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
2d941023bd2f patch 8.1.0857: indent functionality is not separated Bram Moolenaar <Bram@vim.org> parents: diff changeset	4 *
2d941023bd2f patch 8.1.0857: indent functionality is not separated Bram Moolenaar <Bram@vim.org> parents: diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
2d941023bd2f patch 8.1.0857: indent functionality is not separated Bram Moolenaar <Bram@vim.org> parents: diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
2d941023bd2f patch 8.1.0857: indent functionality is not separated Bram Moolenaar <Bram@vim.org> parents: diff changeset	7 * See README.txt for an overview of the Vim source code.
2d941023bd2f patch 8.1.0857: indent functionality is not separated Bram Moolenaar <Bram@vim.org> parents: diff changeset	8 */
2d941023bd2f patch 8.1.0857: indent functionality is not separated Bram Moolenaar <Bram@vim.org> parents: diff changeset	9
2d941023bd2f patch 8.1.0857: indent functionality is not separated Bram Moolenaar <Bram@vim.org> parents: diff changeset	10 /*
2d941023bd2f patch 8.1.0857: indent functionality is not separated Bram Moolenaar <Bram@vim.org> parents: diff changeset	11 * indent.c: Indentation related functions
2d941023bd2f patch 8.1.0857: indent functionality is not separated Bram Moolenaar <Bram@vim.org> parents: diff changeset	12 */
2d941023bd2f patch 8.1.0857: indent functionality is not separated Bram Moolenaar <Bram@vim.org> parents: diff changeset	13
2d941023bd2f patch 8.1.0857: indent functionality is not separated Bram Moolenaar <Bram@vim.org> parents: diff changeset	14 #include "vim.h"
2d941023bd2f patch 8.1.0857: indent functionality is not separated Bram Moolenaar <Bram@vim.org> parents: diff changeset	15
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	16 #if defined(FEAT_VARTABS) \|\| defined(PROTO)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	17
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	18 /*
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	19 * Set the integer values corresponding to the string setting of 'vartabstop'.
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	20 * "array" will be set, caller must free it if needed.
25733 4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	21 * Return FAIL for an error.
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	22 */
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	23 int
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	24 tabstop_set(char_u var, int *array)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	25 {
25733 4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	26 int valcount = 1;
4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	27 int t;
4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	28 char_u *cp;
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	29
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	30 if (var[0] == NUL \|\| (var[0] == '0' && var[1] == NUL))
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	31 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	32 *array = NULL;
25733 4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	33 return OK;
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	34 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	35
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	36 for (cp = var; *cp != NUL; ++cp)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	37 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	38 if (cp == var \|\| cp[-1] == ',')
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	39 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	40 char_u *end;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	41
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	42 if (strtol((char )cp, (char *)&end, 10) <= 0)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	43 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	44 if (cp != end)
26877 06a137af96f8 patch 8.2.3967: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26865 diff changeset	45 emsg(_(e_argument_must_be_positive));
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	46 else
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26775 diff changeset	47 semsg(_(e_invalid_argument_str), cp);
25733 4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	48 return FAIL;
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	49 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	50 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	51
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	52 if (VIM_ISDIGIT(*cp))
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	53 continue;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	54 if (cp[0] == ',' && cp > var && cp[-1] != ',' && cp[1] != NUL)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	55 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	56 ++valcount;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	57 continue;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	58 }
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26775 diff changeset	59 semsg(_(e_invalid_argument_str), var);
25733 4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	60 return FAIL;
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	61 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	62
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	63 *array = ALLOC_MULT(int, valcount + 1);
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	64 if (*array == NULL)
25733 4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	65 return FAIL;
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	66 (*array)[0] = valcount;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	67
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	68 t = 1;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	69 for (cp = var; *cp != NUL;)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	70 {
25733 4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	71 int n = atoi((char *)cp);
4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	72
25735 07e23f808680 patch 8.2.3403: memory leak for :retab with invalid argument Bram Moolenaar <Bram@vim.org> parents: 25733 diff changeset	73 // Catch negative values, overflow and ridiculous big values.
27543 8e8fb566dfa5 patch 8.2.4298: divide by zero with huge tabstop value Bram Moolenaar <Bram@vim.org> parents: 27521 diff changeset	74 if (n <= 0 \|\| n > TABSTOP_MAX)
25733 4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	75 {
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26775 diff changeset	76 semsg(_(e_invalid_argument_str), cp);
32120 97255d909654 patch 9.0.1391: "clear" macros are not always used Bram Moolenaar <Bram@vim.org> parents: 32009 diff changeset	77 VIM_CLEAR(*array);
25733 4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	78 return FAIL;
4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	79 }
4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	80 (*array)[t++] = n;
4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	81 while (cp != NUL && cp != ',')
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	82 ++cp;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	83 if (*cp != NUL)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	84 ++cp;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	85 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	86
25733 4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	87 return OK;
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	88 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	89
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	90 /*
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	91 * Calculate the number of screen spaces a tab will occupy.
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	92 * If "vts" is set then the tab widths are taken from that array,
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	93 * otherwise the value of ts is used.
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	94 */
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	95 int
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	96 tabstop_padding(colnr_T col, int ts_arg, int *vts)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	97 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	98 int ts = ts_arg == 0 ? 8 : ts_arg;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	99 int tabcount;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	100 colnr_T tabcol = 0;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	101 int t;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	102 int padding = 0;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	103
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	104 if (vts == NULL \|\| vts[0] == 0)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	105 return ts - (col % ts);
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	106
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	107 tabcount = vts[0];
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	108
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	109 for (t = 1; t <= tabcount; ++t)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	110 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	111 tabcol += vts[t];
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	112 if (tabcol > col)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	113 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	114 padding = (int)(tabcol - col);
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	115 break;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	116 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	117 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	118 if (t > tabcount)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	119 padding = vts[tabcount] - (int)((col - tabcol) % vts[tabcount]);
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	120
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	121 return padding;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	122 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	123
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	124 /*
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	125 * Find the size of the tab that covers a particular column.
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	126 */
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	127 int
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	128 tabstop_at(colnr_T col, int ts, int *vts)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	129 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	130 int tabcount;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	131 colnr_T tabcol = 0;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	132 int t;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	133 int tab_size = 0;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	134
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	135 if (vts == 0 \|\| vts[0] == 0)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	136 return ts;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	137
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	138 tabcount = vts[0];
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	139 for (t = 1; t <= tabcount; ++t)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	140 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	141 tabcol += vts[t];
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	142 if (tabcol > col)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	143 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	144 tab_size = vts[t];
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	145 break;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	146 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	147 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	148 if (t > tabcount)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	149 tab_size = vts[tabcount];
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	150
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	151 return tab_size;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	152 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	153
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	154 /*
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	155 * Find the column on which a tab starts.
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	156 */
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	157 colnr_T
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	158 tabstop_start(colnr_T col, int ts, int *vts)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	159 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	160 int tabcount;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	161 colnr_T tabcol = 0;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	162 int t;
28809 d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 28773 diff changeset	163 int excess;
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	164
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	165 if (vts == NULL \|\| vts[0] == 0)
34674 bfd2c0032686 patch 9.1.0218: Unnecessary multiplications in backspace code Christian Brabandt <cb@256bit.org> parents: 34540 diff changeset	166 return col - col % ts;
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	167
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	168 tabcount = vts[0];
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	169 for (t = 1; t <= tabcount; ++t)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	170 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	171 tabcol += vts[t];
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	172 if (tabcol > col)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	173 return tabcol - vts[t];
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	174 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	175
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	176 excess = tabcol % vts[tabcount];
34674 bfd2c0032686 patch 9.1.0218: Unnecessary multiplications in backspace code Christian Brabandt <cb@256bit.org> parents: 34540 diff changeset	177 return col - (col - excess) % vts[tabcount];
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	178 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	179
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	180 /*
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	181 * Find the number of tabs and spaces necessary to get from one column
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	182 * to another.
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	183 */
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	184 void
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	185 tabstop_fromto(
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	186 colnr_T start_col,
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	187 colnr_T end_col,
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	188 int ts_arg,
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	189 int *vts,
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	190 int *ntabs,
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	191 int *nspcs)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	192 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	193 int spaces = end_col - start_col;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	194 colnr_T tabcol = 0;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	195 int padding = 0;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	196 int tabcount;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	197 int t;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	198 int ts = ts_arg == 0 ? curbuf->b_p_ts : ts_arg;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	199
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	200 if (vts == NULL \|\| vts[0] == 0)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	201 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	202 int tabs = 0;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	203 int initspc = 0;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	204
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	205 initspc = ts - (start_col % ts);
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	206 if (spaces >= initspc)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	207 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	208 spaces -= initspc;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	209 tabs++;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	210 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	211 tabs += spaces / ts;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	212 spaces -= (spaces / ts) * ts;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	213
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	214 *ntabs = tabs;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	215 *nspcs = spaces;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	216 return;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	217 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	218
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	219 // Find the padding needed to reach the next tabstop.
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	220 tabcount = vts[0];
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	221 for (t = 1; t <= tabcount; ++t)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	222 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	223 tabcol += vts[t];
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	224 if (tabcol > start_col)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	225 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	226 padding = (int)(tabcol - start_col);
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	227 break;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	228 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	229 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	230 if (t > tabcount)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	231 padding = vts[tabcount] - (int)((start_col - tabcol) % vts[tabcount]);
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	232
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	233 // If the space needed is less than the padding no tabs can be used.
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	234 if (spaces < padding)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	235 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	236 *ntabs = 0;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	237 *nspcs = spaces;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	238 return;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	239 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	240
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	241 *ntabs = 1;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	242 spaces -= padding;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	243
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	244 // At least one tab has been used. See if any more will fit.
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	245 while (spaces != 0 && ++t <= tabcount)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	246 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	247 padding = vts[t];
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	248 if (spaces < padding)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	249 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	250 *nspcs = spaces;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	251 return;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	252 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	253 ++*ntabs;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	254 spaces -= padding;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	255 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	256
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	257 *ntabs += spaces / vts[tabcount];
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	258 *nspcs = spaces % vts[tabcount];
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	259 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	260
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	261 /*
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	262 * See if two tabstop arrays contain the same values.
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	263 */
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	264 static int
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	265 tabstop_eq(int ts1, int ts2)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	266 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	267 int t;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	268
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	269 if ((ts1 == 0 && ts2) \|\| (ts1 && ts2 == 0))
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	270 return FALSE;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	271 if (ts1 == ts2)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	272 return TRUE;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	273 if (ts1[0] != ts2[0])
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	274 return FALSE;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	275
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	276 for (t = 1; t <= ts1[0]; ++t)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	277 if (ts1[t] != ts2[t])
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	278 return FALSE;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	279
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	280 return TRUE;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	281 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	282
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	283 # if defined(FEAT_BEVAL) \|\| defined(PROTO)
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	284 /*
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	285 * Copy a tabstop array, allocating space for the new array.
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	286 */
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	287 int *
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	288 tabstop_copy(int *oldts)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	289 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	290 int *newts;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	291 int t;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	292
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	293 if (oldts == NULL)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	294 return NULL;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	295 newts = ALLOC_MULT(int, oldts[0] + 1);
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	296 if (newts != NULL)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	297 for (t = 0; t <= oldts[0]; ++t)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	298 newts[t] = oldts[t];
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	299 return newts;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	300 }
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	301 # endif
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	302
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	303 /*
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	304 * Return a count of the number of tabstops.
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	305 */
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	306 int
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	307 tabstop_count(int *ts)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	308 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	309 return ts != NULL ? ts[0] : 0;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	310 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	311
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	312 /*
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	313 * Return the first tabstop, or 8 if there are no tabstops defined.
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	314 */
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	315 int
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	316 tabstop_first(int *ts)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	317 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	318 return ts != NULL ? ts[1] : 8;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	319 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	320
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	321 #endif
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	322
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	323 /*
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	324 * Return the effective shiftwidth value for current buffer, using the
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	325 * 'tabstop' value when 'shiftwidth' is zero.
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	326 */
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	327 long
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	328 get_sw_value(buf_T *buf)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	329 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	330 return get_sw_value_col(buf, 0);
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	331 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	332
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	333 /*
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	334 * Idem, using "pos".
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	335 */
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	336 static long
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	337 get_sw_value_pos(buf_T buf, pos_T pos)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	338 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	339 pos_T save_cursor = curwin->w_cursor;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	340 long sw_value;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	341
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	342 curwin->w_cursor = *pos;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	343 sw_value = get_sw_value_col(buf, get_nolist_virtcol());
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	344 curwin->w_cursor = save_cursor;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	345 return sw_value;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	346 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	347
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	348 /*
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	349 * Idem, using the first non-black in the current line.
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	350 */
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	351 long
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	352 get_sw_value_indent(buf_T *buf)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	353 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	354 pos_T pos = curwin->w_cursor;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	355
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	356 pos.col = getwhitecols_curline();
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	357 return get_sw_value_pos(buf, &pos);
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	358 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	359
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	360 /*
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	361 * Idem, using virtual column "col".
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	362 */
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	363 long
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	364 get_sw_value_col(buf_T *buf, colnr_T col UNUSED)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	365 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	366 return buf->b_p_sw ? buf->b_p_sw :
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	367 #ifdef FEAT_VARTABS
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	368 tabstop_at(col, buf->b_p_ts, buf->b_p_vts_array);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	369 #else
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	370 buf->b_p_ts;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	371 #endif
17940 079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	372 }
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	373
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	374 /*
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	375 * Return the effective softtabstop value for the current buffer, using the
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	376 * 'shiftwidth' value when 'softtabstop' is negative.
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	377 */
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	378 long
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	379 get_sts_value(void)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	380 {
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	381 return curbuf->b_p_sts < 0 ? get_sw_value(curbuf) : curbuf->b_p_sts;
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	382 }
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	383
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	384 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	385 * Count the size (in window cells) of the indent in the current line.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	386 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	387 int
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	388 get_indent(void)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	389 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	390 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	391 return get_indent_str_vtab(ml_get_curline(), (int)curbuf->b_p_ts,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	392 curbuf->b_p_vts_array, FALSE);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	393 #else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	394 return get_indent_str(ml_get_curline(), (int)curbuf->b_p_ts, FALSE);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	395 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	396 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	397
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	398 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	399 * Count the size (in window cells) of the indent in line "lnum".
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	400 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	401 int
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	402 get_indent_lnum(linenr_T lnum)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	403 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	404 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	405 return get_indent_str_vtab(ml_get(lnum), (int)curbuf->b_p_ts,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	406 curbuf->b_p_vts_array, FALSE);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	407 #else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	408 return get_indent_str(ml_get(lnum), (int)curbuf->b_p_ts, FALSE);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	409 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	410 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	411
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	412 #if defined(FEAT_FOLDING) \|\| defined(PROTO)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	413 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	414 * Count the size (in window cells) of the indent in line "lnum" of buffer
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	415 * "buf".
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	416 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	417 int
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	418 get_indent_buf(buf_T *buf, linenr_T lnum)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	419 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	420 # ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	421 return get_indent_str_vtab(ml_get_buf(buf, lnum, FALSE),
31491 6d42026ad002 patch 9.0.1078: with the +vartabs feature indent folding may use wrong 'ts' Bram Moolenaar <Bram@vim.org> parents: 30853 diff changeset	422 (int)buf->b_p_ts, buf->b_p_vts_array, FALSE);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	423 # else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	424 return get_indent_str(ml_get_buf(buf, lnum, FALSE), (int)buf->b_p_ts, FALSE);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	425 # endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	426 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	427 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	428
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	429 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	430 * count the size (in window cells) of the indent in line "ptr", with
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	431 * 'tabstop' at "ts"
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	432 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	433 int
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	434 get_indent_str(
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	435 char_u *ptr,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	436 int ts,
34327 cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	437 int no_ts) // if TRUE, count a tab as ^I
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	438 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	439 int count = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	440
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	441 for ( ; *ptr; ++ptr)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	442 {
34327 cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	443 if (*ptr == TAB) // count a tab for what it is worth
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	444 {
34327 cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	445 if (!no_ts)
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	446 count += ts - (count % ts);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	447 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	448 count += ptr2cells(ptr);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	449 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	450 else if (*ptr == ' ')
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	451 ++count; // count a space for one
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	452 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	453 break;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	454 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	455 return count;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	456 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	457
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	458 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	459 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	460 * Count the size (in window cells) of the indent in line "ptr", using
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	461 * variable tabstops.
34327 cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	462 * If "no_ts" is TRUE, count a tab as ^I.
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	463 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	464 int
34327 cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	465 get_indent_str_vtab(char_u ptr, int ts, int vts, int no_ts)
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	466 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	467 int count = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	468
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	469 for ( ; *ptr; ++ptr)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	470 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	471 if (*ptr == TAB) // count a tab for what it is worth
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	472 {
34327 cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	473 if (!no_ts)
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	474 count += tabstop_padding(count, ts, vts);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	475 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	476 count += ptr2cells(ptr);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	477 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	478 else if (*ptr == ' ')
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	479 ++count; // count a space for one
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	480 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	481 break;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	482 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	483 return count;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	484 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	485 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	486
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	487 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	488 * Set the indent of the current line.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	489 * Leaves the cursor on the first non-blank in the line.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	490 * Caller must take care of undo.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	491 * "flags":
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	492 * SIN_CHANGED: call changed_bytes() if the line was changed.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	493 * SIN_INSERT: insert the indent in front of the line.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	494 * SIN_UNDO: save line for undo before changing it.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	495 * Returns TRUE if the line was changed.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	496 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	497 int
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	498 set_indent(
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	499 int size, // measured in spaces
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	500 int flags)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	501 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	502 char_u *p;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	503 char_u *newline;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	504 char_u *oldline;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	505 char_u *s;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	506 int todo;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	507 int ind_len; // measured in characters
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	508 int line_len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	509 int doit = FALSE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	510 int ind_done = 0; // measured in spaces
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	511 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	512 int ind_col = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	513 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	514 int tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	515 int retval = FALSE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	516 int orig_char_len = -1; // number of initial whitespace chars when
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	517 // 'et' and 'pi' are both set
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	518
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	519 // First check if there is anything to do and compute the number of
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	520 // characters needed for the indent.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	521 todo = size;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	522 ind_len = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	523 p = oldline = ml_get_curline();
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	524
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	525 // Calculate the buffer size for the new indent, and check to see if it
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	526 // isn't already set
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	527
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	528 // if 'expandtab' isn't set: use TABs; if both 'expandtab' and
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	529 // 'preserveindent' are set count the number of characters at the
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	530 // beginning of the line to be copied
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	531 if (!curbuf->b_p_et \|\| (!(flags & SIN_INSERT) && curbuf->b_p_pi))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	532 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	533 // If 'preserveindent' is set then reuse as much as possible of
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	534 // the existing indent structure for the new indent
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	535 if (!(flags & SIN_INSERT) && curbuf->b_p_pi)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	536 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	537 ind_done = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	538
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	539 // count as many characters as we can use
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	540 while (todo > 0 && VIM_ISWHITE(*p))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	541 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	542 if (*p == TAB)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	543 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	544 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	545 tab_pad = tabstop_padding(ind_done, curbuf->b_p_ts,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	546 curbuf->b_p_vts_array);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	547 #else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	548 tab_pad = (int)curbuf->b_p_ts
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	549 - (ind_done % (int)curbuf->b_p_ts);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	550 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	551 // stop if this tab will overshoot the target
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	552 if (todo < tab_pad)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	553 break;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	554 todo -= tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	555 ++ind_len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	556 ind_done += tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	557 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	558 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	559 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	560 --todo;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	561 ++ind_len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	562 ++ind_done;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	563 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	564 ++p;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	565 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	566
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	567 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	568 // These diverge from this point.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	569 ind_col = ind_done;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	570 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	571 // Set initial number of whitespace chars to copy if we are
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	572 // preserving indent but expandtab is set
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	573 if (curbuf->b_p_et)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	574 orig_char_len = ind_len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	575
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	576 // Fill to next tabstop with a tab, if possible
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	577 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	578 tab_pad = tabstop_padding(ind_done, curbuf->b_p_ts,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	579 curbuf->b_p_vts_array);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	580 #else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	581 tab_pad = (int)curbuf->b_p_ts - (ind_done % (int)curbuf->b_p_ts);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	582 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	583 if (todo >= tab_pad && orig_char_len == -1)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	584 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	585 doit = TRUE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	586 todo -= tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	587 ++ind_len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	588 // ind_done += tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	589 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	590 ind_col += tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	591 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	592 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	593 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	594
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	595 // count tabs required for indent
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	596 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	597 for (;;)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	598 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	599 tab_pad = tabstop_padding(ind_col, curbuf->b_p_ts,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	600 curbuf->b_p_vts_array);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	601 if (todo < tab_pad)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	602 break;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	603 if (*p != TAB)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	604 doit = TRUE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	605 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	606 ++p;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	607 todo -= tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	608 ++ind_len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	609 ind_col += tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	610 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	611 #else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	612 while (todo >= (int)curbuf->b_p_ts)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	613 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	614 if (*p != TAB)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	615 doit = TRUE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	616 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	617 ++p;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	618 todo -= (int)curbuf->b_p_ts;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	619 ++ind_len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	620 // ind_done += (int)curbuf->b_p_ts;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	621 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	622 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	623 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	624 // count spaces required for indent
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	625 while (todo > 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	626 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	627 if (*p != ' ')
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	628 doit = TRUE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	629 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	630 ++p;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	631 --todo;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	632 ++ind_len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	633 // ++ind_done;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	634 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	635
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	636 // Return if the indent is OK already.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	637 if (!doit && !VIM_ISWHITE(*p) && !(flags & SIN_INSERT))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	638 return FALSE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	639
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	640 // Allocate memory for the new line.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	641 if (flags & SIN_INSERT)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	642 p = oldline;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	643 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	644 p = skipwhite(p);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	645 line_len = (int)STRLEN(p) + 1;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	646
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	647 // If 'preserveindent' and 'expandtab' are both set keep the original
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	648 // characters and allocate accordingly. We will fill the rest with spaces
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	649 // after the if (!curbuf->b_p_et) below.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	650 if (orig_char_len != -1)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	651 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	652 newline = alloc(orig_char_len + size - ind_done + line_len);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	653 if (newline == NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	654 return FALSE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	655 todo = size - ind_done;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	656 ind_len = orig_char_len + todo; // Set total length of indent in
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	657 // characters, which may have been
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	658 // undercounted until now
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	659 p = oldline;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	660 s = newline;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	661 while (orig_char_len > 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	662 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	663 s++ = p++;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	664 orig_char_len--;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	665 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	666
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	667 // Skip over any additional white space (useful when newindent is less
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	668 // than old)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	669 while (VIM_ISWHITE(*p))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	670 ++p;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	671
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	672 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	673 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	674 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	675 todo = size;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	676 newline = alloc(ind_len + line_len);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	677 if (newline == NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	678 return FALSE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	679 s = newline;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	680 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	681
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	682 // Put the characters in the new line.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	683 // if 'expandtab' isn't set: use TABs
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	684 if (!curbuf->b_p_et)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	685 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	686 // If 'preserveindent' is set then reuse as much as possible of
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	687 // the existing indent structure for the new indent
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	688 if (!(flags & SIN_INSERT) && curbuf->b_p_pi)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	689 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	690 p = oldline;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	691 ind_done = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	692
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	693 while (todo > 0 && VIM_ISWHITE(*p))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	694 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	695 if (*p == TAB)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	696 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	697 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	698 tab_pad = tabstop_padding(ind_done, curbuf->b_p_ts,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	699 curbuf->b_p_vts_array);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	700 #else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	701 tab_pad = (int)curbuf->b_p_ts
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	702 - (ind_done % (int)curbuf->b_p_ts);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	703 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	704 // stop if this tab will overshoot the target
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	705 if (todo < tab_pad)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	706 break;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	707 todo -= tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	708 ind_done += tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	709 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	710 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	711 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	712 --todo;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	713 ++ind_done;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	714 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	715 s++ = p++;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	716 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	717
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	718 // Fill to next tabstop with a tab, if possible
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	719 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	720 tab_pad = tabstop_padding(ind_done, curbuf->b_p_ts,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	721 curbuf->b_p_vts_array);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	722 #else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	723 tab_pad = (int)curbuf->b_p_ts - (ind_done % (int)curbuf->b_p_ts);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	724 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	725 if (todo >= tab_pad)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	726 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	727 *s++ = TAB;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	728 todo -= tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	729 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	730 ind_done += tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	731 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	732 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	733
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	734 p = skipwhite(p);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	735 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	736
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	737 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	738 for (;;)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	739 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	740 tab_pad = tabstop_padding(ind_done, curbuf->b_p_ts,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	741 curbuf->b_p_vts_array);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	742 if (todo < tab_pad)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	743 break;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	744 *s++ = TAB;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	745 todo -= tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	746 ind_done += tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	747 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	748 #else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	749 while (todo >= (int)curbuf->b_p_ts)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	750 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	751 *s++ = TAB;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	752 todo -= (int)curbuf->b_p_ts;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	753 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	754 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	755 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	756 while (todo > 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	757 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	758 *s++ = ' ';
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	759 --todo;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	760 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	761 mch_memmove(s, p, (size_t)line_len);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	762
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	763 // Replace the line (unless undo fails).
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	764 if (!(flags & SIN_UNDO) \|\| u_savesub(curwin->w_cursor.lnum) == OK)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	765 {
21070 87e85a13e9cf patch 8.2.1086: possibly using freed memory when text properties used Bram Moolenaar <Bram@vim.org> parents: 20229 diff changeset	766 colnr_T old_offset = (colnr_T)(p - oldline);
87e85a13e9cf patch 8.2.1086: possibly using freed memory when text properties used Bram Moolenaar <Bram@vim.org> parents: 20229 diff changeset	767 colnr_T new_offset = (colnr_T)(s - newline);
87e85a13e9cf patch 8.2.1086: possibly using freed memory when text properties used Bram Moolenaar <Bram@vim.org> parents: 20229 diff changeset	768
87e85a13e9cf patch 8.2.1086: possibly using freed memory when text properties used Bram Moolenaar <Bram@vim.org> parents: 20229 diff changeset	769 // this may free "newline"
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	770 ml_replace(curwin->w_cursor.lnum, newline, FALSE);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	771 if (flags & SIN_CHANGED)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	772 changed_bytes(curwin->w_cursor.lnum, 0);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	773
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	774 // Correct saved cursor position if it is in this line.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	775 if (saved_cursor.lnum == curwin->w_cursor.lnum)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	776 {
21070 87e85a13e9cf patch 8.2.1086: possibly using freed memory when text properties used Bram Moolenaar <Bram@vim.org> parents: 20229 diff changeset	777 if (saved_cursor.col >= old_offset)
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	778 // cursor was after the indent, adjust for the number of
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	779 // bytes added/removed
21070 87e85a13e9cf patch 8.2.1086: possibly using freed memory when text properties used Bram Moolenaar <Bram@vim.org> parents: 20229 diff changeset	780 saved_cursor.col += ind_len - old_offset;
87e85a13e9cf patch 8.2.1086: possibly using freed memory when text properties used Bram Moolenaar <Bram@vim.org> parents: 20229 diff changeset	781 else if (saved_cursor.col >= new_offset)
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	782 // cursor was in the indent, and is now after it, put it back
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	783 // at the start of the indent (replacing spaces with TAB)
21070 87e85a13e9cf patch 8.2.1086: possibly using freed memory when text properties used Bram Moolenaar <Bram@vim.org> parents: 20229 diff changeset	784 saved_cursor.col = new_offset;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	785 }
18763 49b78d6465e5 patch 8.1.2371: FEAT_TEXT_PROP is a confusing name Bram Moolenaar <Bram@vim.org> parents: 18679 diff changeset	786 #ifdef FEAT_PROP_POPUP
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	787 {
21070 87e85a13e9cf patch 8.2.1086: possibly using freed memory when text properties used Bram Moolenaar <Bram@vim.org> parents: 20229 diff changeset	788 int added = ind_len - old_offset;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	789
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	790 // When increasing indent this behaves like spaces were inserted at
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	791 // the old indent, when decreasing indent it behaves like spaces
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	792 // were deleted at the new indent.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	793 adjust_prop_columns(curwin->w_cursor.lnum,
29750 f1f7e4e977fd patch 9.0.0215: not passing APC_INDENT flag Bram Moolenaar <Bram@vim.org> parents: 29732 diff changeset	794 added > 0 ? old_offset : (colnr_T)ind_len,
f1f7e4e977fd patch 9.0.0215: not passing APC_INDENT flag Bram Moolenaar <Bram@vim.org> parents: 29732 diff changeset	795 added, APC_INDENT);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	796 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	797 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	798 retval = TRUE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	799 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	800 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	801 vim_free(newline);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	802
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	803 curwin->w_cursor.col = ind_len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	804 return retval;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	805 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	806
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	807 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	808 * Return the indent of the current line after a number. Return -1 if no
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	809 * number was found. Used for 'n' in 'formatoptions': numbered list.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	810 * Since a pattern is used it can actually handle more than numbers.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	811 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	812 int
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	813 get_number_indent(linenr_T lnum)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	814 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	815 colnr_T col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	816 pos_T pos;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	817
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	818 regmatch_T regmatch;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	819 int lead_len = 0; // length of comment leader
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	820
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	821 if (lnum > curbuf->b_ml.ml_line_count)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	822 return -1;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	823 pos.lnum = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	824
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	825 // In format_lines() (i.e. not insert mode), fo+=q is needed too...
28773 d770568e6c98 patch 8.2.4911: the mode #defines are not clearly named Bram Moolenaar <Bram@vim.org> parents: 28716 diff changeset	826 if ((State & MODE_INSERT) \|\| has_format_option(FO_Q_COMS))
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	827 lead_len = get_leader_len(ml_get(lnum), NULL, FALSE, TRUE);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	828
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	829 regmatch.regprog = vim_regcomp(curbuf->b_p_flp, RE_MAGIC);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	830 if (regmatch.regprog != NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	831 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	832 regmatch.rm_ic = FALSE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	833
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	834 // vim_regexec() expects a pointer to a line. This lets us
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	835 // start matching for the flp beyond any comment leader...
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	836 if (vim_regexec(&regmatch, ml_get(lnum) + lead_len, (colnr_T)0))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	837 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	838 pos.lnum = lnum;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	839 pos.col = (colnr_T)(*regmatch.endp - ml_get(lnum));
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	840 pos.coladd = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	841 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	842 vim_regfree(regmatch.regprog);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	843 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	844
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	845 if (pos.lnum == 0 \|\| *ml_get_pos(&pos) == NUL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	846 return -1;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	847 getvcol(curwin, &pos, &col, NULL, NULL);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	848 return (int)col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	849 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	850
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	851 #if defined(FEAT_LINEBREAK) \|\| defined(PROTO)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	852 /*
18679 fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	853 * This is called when 'breakindentopt' is changed and when a window is
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	854 * initialized.
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	855 */
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	856 int
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	857 briopt_check(win_T *wp)
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	858 {
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	859 char_u *p;
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	860 int bri_shift = 0;
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	861 long bri_min = 20;
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	862 int bri_sbr = FALSE;
25248 cf0774d010b7 patch 8.2.3160: 'breakindent' does not work well for bulleted lists Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	863 int bri_list = 0;
28716 2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	864 int bri_vcol = 0;
18679 fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	865
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	866 p = wp->w_p_briopt;
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	867 while (*p != NUL)
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	868 {
33399 95db67c7b754 patch 9.0.1958: cannot complete option values Christian Brabandt <cb@256bit.org> parents: 32120 diff changeset	869 // Note: Keep this in sync with p_briopt_values
18679 fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	870 if (STRNCMP(p, "shift:", 6) == 0
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	871 && ((p[6] == '-' && VIM_ISDIGIT(p[7])) \|\| VIM_ISDIGIT(p[6])))
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	872 {
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	873 p += 6;
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	874 bri_shift = getdigits(&p);
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	875 }
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	876 else if (STRNCMP(p, "min:", 4) == 0 && VIM_ISDIGIT(p[4]))
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	877 {
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	878 p += 4;
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	879 bri_min = getdigits(&p);
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	880 }
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	881 else if (STRNCMP(p, "sbr", 3) == 0)
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	882 {
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	883 p += 3;
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	884 bri_sbr = TRUE;
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	885 }
25248 cf0774d010b7 patch 8.2.3160: 'breakindent' does not work well for bulleted lists Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	886 else if (STRNCMP(p, "list:", 5) == 0)
cf0774d010b7 patch 8.2.3160: 'breakindent' does not work well for bulleted lists Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	887 {
cf0774d010b7 patch 8.2.3160: 'breakindent' does not work well for bulleted lists Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	888 p += 5;
cf0774d010b7 patch 8.2.3160: 'breakindent' does not work well for bulleted lists Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	889 bri_list = getdigits(&p);
cf0774d010b7 patch 8.2.3160: 'breakindent' does not work well for bulleted lists Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	890 }
28716 2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	891 else if (STRNCMP(p, "column:", 7) == 0)
2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	892 {
2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	893 p += 7;
2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	894 bri_vcol = getdigits(&p);
2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	895 }
18679 fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	896 if (p != ',' && p != NUL)
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	897 return FAIL;
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	898 if (*p == ',')
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	899 ++p;
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	900 }
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	901
19503 a4be2f9cfb01 patch 8.2.0309: window-local values have confusing name Bram Moolenaar <Bram@vim.org> parents: 18933 diff changeset	902 wp->w_briopt_shift = bri_shift;
a4be2f9cfb01 patch 8.2.0309: window-local values have confusing name Bram Moolenaar <Bram@vim.org> parents: 18933 diff changeset	903 wp->w_briopt_min = bri_min;
a4be2f9cfb01 patch 8.2.0309: window-local values have confusing name Bram Moolenaar <Bram@vim.org> parents: 18933 diff changeset	904 wp->w_briopt_sbr = bri_sbr;
25248 cf0774d010b7 patch 8.2.3160: 'breakindent' does not work well for bulleted lists Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	905 wp->w_briopt_list = bri_list;
28716 2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	906 wp->w_briopt_vcol = bri_vcol;
18679 fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	907
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	908 return OK;
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	909 }
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	910
fd95d4dbeb37 patch 8.1.2331: the option.c file is still very big Bram Moolenaar <Bram@vim.org> parents: 18619 diff changeset	911 /*
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	912 * Return appropriate space number for breakindent, taking influencing
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	913 * parameters into account. Window must be specified, since it is not
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	914 * necessarily always the current one.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	915 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	916 int
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	917 get_breakindent_win(
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	918 win_T *wp,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	919 char_u *line) // start of the line
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	920 {
27000 8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	921 static int prev_indent = 0; // cached indent value
8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	922 static long prev_ts = 0L; // cached tabstop value
34327 cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	923 # ifdef FEAT_VARTABS
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	924 static int *prev_vts = NULL; // cached vartabs values
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	925 # endif
29346 336c99d14cc5 patch 9.0.0016: comparing line pointer for 'breakindent' is not reliable Bram Moolenaar <Bram@vim.org> parents: 29265 diff changeset	926 static int prev_fnum = 0; // cached buffer number
336c99d14cc5 patch 9.0.0016: comparing line pointer for 'breakindent' is not reliable Bram Moolenaar <Bram@vim.org> parents: 29265 diff changeset	927 static char_u *prev_line = NULL; // cached copy of "line"
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	928 static varnumber_T prev_tick = 0; // changedtick of cached value
34327 cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	929 static int prev_list = 0; // cached list indent
27000 8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	930 static int prev_listopt = 0; // cached w_p_briopt_list value
34327 cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	931 static int prev_no_ts = FALSE; // cached no_ts value
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	932 static unsigned prev_dy_uhex = 0; // cached 'display' "uhex" value
27128 164d59ddd48a patch 8.2.4093: cached breakindent values not initialized properly Bram Moolenaar <Bram@vim.org> parents: 27000 diff changeset	933 // cached formatlistpat value
164d59ddd48a patch 8.2.4093: cached breakindent values not initialized properly Bram Moolenaar <Bram@vim.org> parents: 27000 diff changeset	934 static char_u *prev_flp = NULL;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	935 int bri = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	936 // window width minus window margin space, i.e. what rests for text
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	937 const int eff_wwidth = wp->w_width
34340 29a814bbb630 patch 9.1.0103: 'breakindentopt' "min" not correct with 'signcolumn' Christian Brabandt <cb@256bit.org> parents: 34327 diff changeset	938 - win_col_off(wp) + win_col_off2(wp);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	939
34327 cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	940 // In list mode, if 'listchars' "tab" isn't set, a TAB is displayed as ^I.
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	941 int no_ts = wp->w_p_list && wp->w_lcs_chars.tab1 == NUL;
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	942
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	943 // Used cached indent, unless
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	944 // - buffer changed, or
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	945 // - 'tabstop' changed, or
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	946 // - 'vartabstop' changed, or
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	947 // - buffer was changed, or
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	948 // - 'breakindentopt' "list" changed, or
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	949 // - 'list' or 'listchars' "tab" changed, or
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	950 // - 'display' "uhex" flag changed, or
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	951 // - 'formatlistpat' changed, or
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	952 // - line changed.
29346 336c99d14cc5 patch 9.0.0016: comparing line pointer for 'breakindent' is not reliable Bram Moolenaar <Bram@vim.org> parents: 29265 diff changeset	953 if (prev_fnum != wp->w_buffer->b_fnum
336c99d14cc5 patch 9.0.0016: comparing line pointer for 'breakindent' is not reliable Bram Moolenaar <Bram@vim.org> parents: 29265 diff changeset	954 \|\| prev_ts != wp->w_buffer->b_p_ts
34327 cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	955 # ifdef FEAT_VARTABS
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	956 \|\| prev_vts != wp->w_buffer->b_p_vts_array
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	957 # endif
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	958 \|\| prev_tick != CHANGEDTICK(wp->w_buffer)
27000 8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	959 \|\| prev_listopt != wp->w_briopt_list
34327 cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	960 \|\| prev_no_ts != no_ts
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	961 \|\| prev_dy_uhex != (dy_flags & DY_UHEX)
29346 336c99d14cc5 patch 9.0.0016: comparing line pointer for 'breakindent' is not reliable Bram Moolenaar <Bram@vim.org> parents: 29265 diff changeset	962 \|\| prev_flp == NULL
336c99d14cc5 patch 9.0.0016: comparing line pointer for 'breakindent' is not reliable Bram Moolenaar <Bram@vim.org> parents: 29265 diff changeset	963 \|\| STRCMP(prev_flp, get_flp_value(wp->w_buffer)) != 0
336c99d14cc5 patch 9.0.0016: comparing line pointer for 'breakindent' is not reliable Bram Moolenaar <Bram@vim.org> parents: 29265 diff changeset	964 \|\| prev_line == NULL \|\| STRCMP(prev_line, line) != 0
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	965 )
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	966 {
29346 336c99d14cc5 patch 9.0.0016: comparing line pointer for 'breakindent' is not reliable Bram Moolenaar <Bram@vim.org> parents: 29265 diff changeset	967 prev_fnum = wp->w_buffer->b_fnum;
336c99d14cc5 patch 9.0.0016: comparing line pointer for 'breakindent' is not reliable Bram Moolenaar <Bram@vim.org> parents: 29265 diff changeset	968 vim_free(prev_line);
336c99d14cc5 patch 9.0.0016: comparing line pointer for 'breakindent' is not reliable Bram Moolenaar <Bram@vim.org> parents: 29265 diff changeset	969 prev_line = vim_strsave(line);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	970 prev_ts = wp->w_buffer->b_p_ts;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	971 # ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	972 prev_vts = wp->w_buffer->b_p_vts_array;
28716 2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	973 if (wp->w_briopt_vcol == 0)
2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	974 prev_indent = get_indent_str_vtab(line,
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	975 (int)wp->w_buffer->b_p_ts,
34327 cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	976 wp->w_buffer->b_p_vts_array, no_ts);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	977 # else
28716 2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	978 if (wp->w_briopt_vcol == 0)
2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	979 prev_indent = get_indent_str(line,
34327 cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	980 (int)wp->w_buffer->b_p_ts, no_ts);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	981 # endif
34327 cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	982 prev_tick = CHANGEDTICK(wp->w_buffer);
27000 8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	983 prev_listopt = wp->w_briopt_list;
27128 164d59ddd48a patch 8.2.4093: cached breakindent values not initialized properly Bram Moolenaar <Bram@vim.org> parents: 27000 diff changeset	984 prev_list = 0;
34327 cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	985 prev_no_ts = no_ts;
cb3d20e3dcd9 patch 9.1.0097: 'breakindent' behaves inconsistently with 'list' and splits Christian Brabandt <cb@256bit.org> parents: 33399 diff changeset	986 prev_dy_uhex = (dy_flags & DY_UHEX);
27128 164d59ddd48a patch 8.2.4093: cached breakindent values not initialized properly Bram Moolenaar <Bram@vim.org> parents: 27000 diff changeset	987 vim_free(prev_flp);
164d59ddd48a patch 8.2.4093: cached breakindent values not initialized properly Bram Moolenaar <Bram@vim.org> parents: 27000 diff changeset	988 prev_flp = vim_strsave(get_flp_value(wp->w_buffer));
27000 8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	989 // add additional indent for numbered lists
28716 2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	990 if (wp->w_briopt_list != 0 && wp->w_briopt_vcol == 0)
27000 8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	991 {
8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	992 regmatch_T regmatch;
8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	993
27128 164d59ddd48a patch 8.2.4093: cached breakindent values not initialized properly Bram Moolenaar <Bram@vim.org> parents: 27000 diff changeset	994 regmatch.regprog = vim_regcomp(prev_flp,
164d59ddd48a patch 8.2.4093: cached breakindent values not initialized properly Bram Moolenaar <Bram@vim.org> parents: 27000 diff changeset	995 RE_MAGIC + RE_STRING + RE_AUTO + RE_STRICT);
27000 8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	996
8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	997 if (regmatch.regprog != NULL)
8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	998 {
8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	999 regmatch.rm_ic = FALSE;
8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	1000 if (vim_regexec(&regmatch, line, 0))
8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	1001 {
8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	1002 if (wp->w_briopt_list > 0)
8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	1003 prev_list = wp->w_briopt_list;
8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	1004 else
30041 1100c9c3fd2a patch 9.0.0358: 'breakindent' does not indent non-lists Bram Moolenaar <Bram@vim.org> parents: 29750 diff changeset	1005 prev_indent = (regmatch.endp - regmatch.startp);
27000 8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	1006 }
8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	1007 vim_regfree(regmatch.regprog);
8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	1008 }
8c0730eca2ce patch 8.2.4029: debugging NFA regexp my crash, cached indent may be wrong Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	1009 }
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1010 }
28716 2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	1011 if (wp->w_briopt_vcol != 0)
2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	1012 {
2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	1013 // column value has priority
2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	1014 bri = wp->w_briopt_vcol;
2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	1015 prev_list = 0;
2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	1016 }
2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	1017 else
2bd5cb054180 patch 8.2.4882: cannot make 'breakindent' use a specific column Bram Moolenaar <Bram@vim.org> parents: 28540 diff changeset	1018 bri = prev_indent + wp->w_briopt_shift;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1019
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1020 // Add offset for number column, if 'n' is in 'cpoptions'
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1021 bri += win_col_off2(wp);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1022
25248 cf0774d010b7 patch 8.2.3160: 'breakindent' does not work well for bulleted lists Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	1023 // add additional indent for numbered lists
30041 1100c9c3fd2a patch 9.0.0358: 'breakindent' does not indent non-lists Bram Moolenaar <Bram@vim.org> parents: 29750 diff changeset	1024 if (wp->w_briopt_list > 0)
1100c9c3fd2a patch 9.0.0358: 'breakindent' does not indent non-lists Bram Moolenaar <Bram@vim.org> parents: 29750 diff changeset	1025 bri += prev_list;
25248 cf0774d010b7 patch 8.2.3160: 'breakindent' does not work well for bulleted lists Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	1026
25322 b3d7becabe99 patch 8.2.3198: cannot use 'formatlistpat' for breakindent Bram Moolenaar <Bram@vim.org> parents: 25248 diff changeset	1027 // indent minus the length of the showbreak string
b3d7becabe99 patch 8.2.3198: cannot use 'formatlistpat' for breakindent Bram Moolenaar <Bram@vim.org> parents: 25248 diff changeset	1028 if (wp->w_briopt_sbr)
b3d7becabe99 patch 8.2.3198: cannot use 'formatlistpat' for breakindent Bram Moolenaar <Bram@vim.org> parents: 25248 diff changeset	1029 bri -= vim_strsize(get_showbreak_value(wp));
b3d7becabe99 patch 8.2.3198: cannot use 'formatlistpat' for breakindent Bram Moolenaar <Bram@vim.org> parents: 25248 diff changeset	1030
b3d7becabe99 patch 8.2.3198: cannot use 'formatlistpat' for breakindent Bram Moolenaar <Bram@vim.org> parents: 25248 diff changeset	1031
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1032 // never indent past left window margin
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1033 if (bri < 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1034 bri = 0;
25248 cf0774d010b7 patch 8.2.3160: 'breakindent' does not work well for bulleted lists Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	1035
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1036 // always leave at least bri_min characters on the left,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1037 // if text width is sufficient
19503 a4be2f9cfb01 patch 8.2.0309: window-local values have confusing name Bram Moolenaar <Bram@vim.org> parents: 18933 diff changeset	1038 else if (bri > eff_wwidth - wp->w_briopt_min)
a4be2f9cfb01 patch 8.2.0309: window-local values have confusing name Bram Moolenaar <Bram@vim.org> parents: 18933 diff changeset	1039 bri = (eff_wwidth - wp->w_briopt_min < 0)
a4be2f9cfb01 patch 8.2.0309: window-local values have confusing name Bram Moolenaar <Bram@vim.org> parents: 18933 diff changeset	1040 ? 0 : eff_wwidth - wp->w_briopt_min;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1041
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1042 return bri;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1043 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1044 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1045
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1046 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1047 * When extra == 0: Return TRUE if the cursor is before or on the first
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1048 * non-blank in the line.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1049 * When extra == 1: Return TRUE if the cursor is before the first non-blank in
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1050 * the line.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1051 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1052 int
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1053 inindent(int extra)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1054 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1055 char_u *ptr;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1056 colnr_T col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1057
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1058 for (col = 0, ptr = ml_get_curline(); VIM_ISWHITE(*ptr); ++col)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1059 ++ptr;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1060 if (col >= curwin->w_cursor.col + extra)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1061 return TRUE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1062 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1063 return FALSE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1064 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1065
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1066 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1067 * op_reindent - handle reindenting a block of lines.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1068 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1069 void
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1070 op_reindent(oparg_T oap, int (how)(void))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1071 {
28540 63e9b0016a6c patch 8.2.4794: compiler warning for not initialized variable Bram Moolenaar <Bram@vim.org> parents: 28536 diff changeset	1072 long i = 0;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1073 char_u *l;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1074 int amount;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1075 linenr_T first_changed = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1076 linenr_T last_changed = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1077 linenr_T start_lnum = curwin->w_cursor.lnum;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1078
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1079 // Don't even try when 'modifiable' is off.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1080 if (!curbuf->b_p_ma)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1081 {
25064 8f2262c72178 patch 8.2.3069: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 23952 diff changeset	1082 emsg(_(e_cannot_make_changes_modifiable_is_off));
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1083 return;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1084 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1085
28536 b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1086 // Save for undo. Do this once for all lines, much faster than doing this
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1087 // for each line separately, especially when undoing.
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1088 if (u_savecommon(start_lnum - 1, start_lnum + oap->line_count,
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1089 start_lnum + oap->line_count, FALSE) == OK)
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1090 for (i = oap->line_count; --i >= 0 && !got_int; )
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1091 {
28536 b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1092 // it's a slow thing to do, so give feedback so there's no worry
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1093 // that the computer's just hung.
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1094
28536 b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1095 if (i > 1
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1096 && (i % 50 == 0 \|\| i == oap->line_count - 1)
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1097 && oap->line_count > p_report)
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1098 smsg(_("%ld lines to indent... "), i);
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1099
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1100 // Be vi-compatible: For lisp indenting the first line is not
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1101 // indented, unless there is only one line.
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1102 if (i != oap->line_count - 1 \|\| oap->line_count == 1
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1103 \|\| how != get_lisp_indent)
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1104 {
28536 b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1105 l = skipwhite(ml_get_curline());
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1106 if (*l == NUL) // empty or blank line
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1107 amount = 0;
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1108 else
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1109 amount = how(); // get the indent for this line
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1110
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1111 if (amount >= 0 && set_indent(amount, 0))
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1112 {
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1113 // did change the indent, call changed_lines() later
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1114 if (first_changed == 0)
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1115 first_changed = curwin->w_cursor.lnum;
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1116 last_changed = curwin->w_cursor.lnum;
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1117 }
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1118 }
28536 b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1119 ++curwin->w_cursor.lnum;
b6f2f545f8cc patch 8.2.4792: indent operator creates an undo entry for every line Bram Moolenaar <Bram@vim.org> parents: 27821 diff changeset	1120 curwin->w_cursor.col = 0; // make sure it's valid
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1121 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1122
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1123 // put cursor on first non-blank of indented line
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1124 curwin->w_cursor.lnum = start_lnum;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1125 beginline(BL_SOL \| BL_FIX);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1126
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1127 // Mark changed lines so that they will be redrawn. When Visual
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1128 // highlighting was present, need to continue until the last line. When
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1129 // there is no change still need to remove the Visual highlighting.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1130 if (last_changed != 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1131 changed_lines(first_changed, 0,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1132 oap->is_VIsual ? start_lnum + oap->line_count :
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1133 last_changed + 1, 0L);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1134 else if (oap->is_VIsual)
29732 89e1d67814a9 patch 9.0.0206: redraw flags are not named specifically Bram Moolenaar <Bram@vim.org> parents: 29451 diff changeset	1135 redraw_curbuf_later(UPD_INVERTED);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1136
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1137 if (oap->line_count > p_report)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1138 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1139 i = oap->line_count - (i + 1);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1140 smsg(NGETTEXT("%ld line indented ",
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1141 "%ld lines indented ", i), i);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1142 }
22699 e82579016863 patch 8.2.1898: command modifier parsing always uses global cmdmod Bram Moolenaar <Bram@vim.org> parents: 21070 diff changeset	1143 if ((cmdmod.cmod_flags & CMOD_LOCKMARKS) == 0)
18619 788d76db02ac patch 8.1.2302: :lockmarks does not work for '[ and '] Bram Moolenaar <Bram@vim.org> parents: 18578 diff changeset	1144 {
788d76db02ac patch 8.1.2302: :lockmarks does not work for '[ and '] Bram Moolenaar <Bram@vim.org> parents: 18578 diff changeset	1145 // set '[ and '] marks
788d76db02ac patch 8.1.2302: :lockmarks does not work for '[ and '] Bram Moolenaar <Bram@vim.org> parents: 18578 diff changeset	1146 curbuf->b_op_start = oap->start;
788d76db02ac patch 8.1.2302: :lockmarks does not work for '[ and '] Bram Moolenaar <Bram@vim.org> parents: 18578 diff changeset	1147 curbuf->b_op_end = oap->end;
788d76db02ac patch 8.1.2302: :lockmarks does not work for '[ and '] Bram Moolenaar <Bram@vim.org> parents: 18578 diff changeset	1148 }
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1149 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1150
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1151 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1152 * Return TRUE if lines starting with '#' should be left aligned.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1153 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1154 int
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1155 preprocs_left(void)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1156 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1157 return
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1158 (curbuf->b_p_si && !curbuf->b_p_cin) \|\|
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1159 (curbuf->b_p_cin && in_cinkeys('#', ' ', TRUE)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1160 && curbuf->b_ind_hash_comment == 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1161 ;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1162 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1163
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1164 /*
28856 948877671c54 patch 8.2.4951: smart indenting done when not enabled Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	1165 * Return TRUE if the conditions are OK for smart indenting.
948877671c54 patch 8.2.4951: smart indenting done when not enabled Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	1166 */
948877671c54 patch 8.2.4951: smart indenting done when not enabled Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	1167 int
32009 4545f58c8490 patch 9.0.1336: functions without arguments are not always declared properly Bram Moolenaar <Bram@vim.org> parents: 31702 diff changeset	1168 may_do_si(void)
28856 948877671c54 patch 8.2.4951: smart indenting done when not enabled Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	1169 {
948877671c54 patch 8.2.4951: smart indenting done when not enabled Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	1170 return curbuf->b_p_si
948877671c54 patch 8.2.4951: smart indenting done when not enabled Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	1171 && !curbuf->b_p_cin
948877671c54 patch 8.2.4951: smart indenting done when not enabled Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	1172 # ifdef FEAT_EVAL
948877671c54 patch 8.2.4951: smart indenting done when not enabled Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	1173 && *curbuf->b_p_inde == NUL
948877671c54 patch 8.2.4951: smart indenting done when not enabled Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	1174 # endif
948877671c54 patch 8.2.4951: smart indenting done when not enabled Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	1175 && !p_paste;
948877671c54 patch 8.2.4951: smart indenting done when not enabled Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	1176 }
948877671c54 patch 8.2.4951: smart indenting done when not enabled Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	1177
948877671c54 patch 8.2.4951: smart indenting done when not enabled Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	1178 /*
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1179 * Try to do some very smart auto-indenting.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1180 * Used when inserting a "normal" character.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1181 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1182 void
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1183 ins_try_si(int c)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1184 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1185 pos_T *pos, old_pos;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1186 char_u *ptr;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1187 int i;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1188 int temp;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1189
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1190 // do some very smart indenting when entering '{' or '}'
28860 3942ea75b4c0 patch 8.2.4953: with 'si' inserting '}' after completion goes wrong Bram Moolenaar <Bram@vim.org> parents: 28856 diff changeset	1191 if (((did_si \|\| can_si_back) && c == '{')
3942ea75b4c0 patch 8.2.4953: with 'si' inserting '}' after completion goes wrong Bram Moolenaar <Bram@vim.org> parents: 28856 diff changeset	1192 \|\| (can_si && c == '}' && inindent(0)))
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1193 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1194 // for '}' set indent equal to indent of line containing matching '{'
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1195 if (c == '}' && (pos = findmatch(NULL, '{')) != NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1196 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1197 old_pos = curwin->w_cursor;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1198 // If the matching '{' has a ')' immediately before it (ignoring
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1199 // white-space), then line up with the start of the line
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1200 // containing the matching '(' if there is one. This handles the
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1201 // case where an "if (..\n..) {" statement continues over multiple
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1202 // lines -- webb
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1203 ptr = ml_get(pos->lnum);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1204 i = pos->col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1205 if (i > 0) // skip blanks before '{'
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1206 while (--i > 0 && VIM_ISWHITE(ptr[i]))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1207 ;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1208 curwin->w_cursor.lnum = pos->lnum;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1209 curwin->w_cursor.col = i;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1210 if (ptr[i] == ')' && (pos = findmatch(NULL, '(')) != NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1211 curwin->w_cursor = *pos;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1212 i = get_indent();
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1213 curwin->w_cursor = old_pos;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1214 if (State & VREPLACE_FLAG)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1215 change_indent(INDENT_SET, i, FALSE, NUL, TRUE);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1216 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1217 (void)set_indent(i, SIN_CHANGED);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1218 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1219 else if (curwin->w_cursor.col > 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1220 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1221 // when inserting '{' after "O" reduce indent, but not
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1222 // more than indent of previous line
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1223 temp = TRUE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1224 if (c == '{' && can_si_back && curwin->w_cursor.lnum > 1)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1225 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1226 old_pos = curwin->w_cursor;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1227 i = get_indent();
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1228 while (curwin->w_cursor.lnum > 1)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1229 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1230 ptr = skipwhite(ml_get(--(curwin->w_cursor.lnum)));
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1231
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1232 // ignore empty lines and lines starting with '#'.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1233 if (ptr != '#' && ptr != NUL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1234 break;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1235 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1236 if (get_indent() >= i)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1237 temp = FALSE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1238 curwin->w_cursor = old_pos;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1239 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1240 if (temp)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1241 shift_line(TRUE, FALSE, 1, TRUE);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1242 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1243 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1244
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1245 // set indent of '#' always to 0
28856 948877671c54 patch 8.2.4951: smart indenting done when not enabled Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	1246 if (curwin->w_cursor.col > 0 && can_si && c == '#' && inindent(0))
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1247 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1248 // remember current indent for next line
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1249 old_indent = get_indent();
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1250 (void)set_indent(0, SIN_CHANGED);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1251 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1252
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1253 // Adjust ai_col, the char at this position can be deleted.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1254 if (ai_col > curwin->w_cursor.col)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1255 ai_col = curwin->w_cursor.col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1256 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1257
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1258 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1259 * Insert an indent (for <Tab> or CTRL-T) or delete an indent (for CTRL-D).
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1260 * Keep the cursor on the same character.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1261 * type == INDENT_INC increase indent (for CTRL-T or <Tab>)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1262 * type == INDENT_DEC decrease indent (for CTRL-D)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1263 * type == INDENT_SET set indent to "amount"
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1264 * if round is TRUE, round the indent to 'shiftwidth' (only with _INC and _Dec).
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1265 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1266 void
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1267 change_indent(
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1268 int type,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1269 int amount,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1270 int round,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1271 int replaced, // replaced character, put on replace stack
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1272 int call_changed_bytes) // call changed_bytes()
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1273 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1274 int vcol;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1275 int last_vcol;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1276 int insstart_less; // reduction for Insstart.col
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1277 int new_cursor_col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1278 int i;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1279 char_u *ptr;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1280 int save_p_list;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1281 int start_col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1282 colnr_T vc;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1283 colnr_T orig_col = 0; // init for GCC
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1284 char_u new_line, orig_line = NULL; // init for GCC
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1285
28773 d770568e6c98 patch 8.2.4911: the mode #defines are not clearly named Bram Moolenaar <Bram@vim.org> parents: 28716 diff changeset	1286 // MODE_VREPLACE state needs to know what the line was like before changing
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1287 if (State & VREPLACE_FLAG)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1288 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1289 orig_line = vim_strsave(ml_get_curline()); // Deal with NULL below
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1290 orig_col = curwin->w_cursor.col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1291 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1292
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1293 // for the following tricks we don't want list mode
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1294 save_p_list = curwin->w_p_list;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1295 curwin->w_p_list = FALSE;
30257 45788c16b3a5 patch 9.0.0464: with virtual text "above" indenting doesn't work well Bram Moolenaar <Bram@vim.org> parents: 30041 diff changeset	1296 #ifdef FEAT_PROP_POPUP
45788c16b3a5 patch 9.0.0464: with virtual text "above" indenting doesn't work well Bram Moolenaar <Bram@vim.org> parents: 30041 diff changeset	1297 ignore_text_props = TRUE;
45788c16b3a5 patch 9.0.0464: with virtual text "above" indenting doesn't work well Bram Moolenaar <Bram@vim.org> parents: 30041 diff changeset	1298 #endif
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1299 vc = getvcol_nolist(&curwin->w_cursor);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1300 vcol = vc;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1301
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1302 // For Replace mode we need to fix the replace stack later, which is only
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1303 // possible when the cursor is in the indent. Remember the number of
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1304 // characters before the cursor if it's possible.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1305 start_col = curwin->w_cursor.col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1306
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1307 // determine offset from first non-blank
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1308 new_cursor_col = curwin->w_cursor.col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1309 beginline(BL_WHITE);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1310 new_cursor_col -= curwin->w_cursor.col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1311
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1312 insstart_less = curwin->w_cursor.col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1313
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1314 // If the cursor is in the indent, compute how many screen columns the
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1315 // cursor is to the left of the first non-blank.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1316 if (new_cursor_col < 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1317 vcol = get_indent() - vcol;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1318
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1319 if (new_cursor_col > 0) // can't fix replace stack
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1320 start_col = -1;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1321
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1322 // Set the new indent. The cursor will be put on the first non-blank.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1323 if (type == INDENT_SET)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1324 (void)set_indent(amount, call_changed_bytes ? SIN_CHANGED : 0);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1325 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1326 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1327 int save_State = State;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1328
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1329 // Avoid being called recursively.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1330 if (State & VREPLACE_FLAG)
28773 d770568e6c98 patch 8.2.4911: the mode #defines are not clearly named Bram Moolenaar <Bram@vim.org> parents: 28716 diff changeset	1331 State = MODE_INSERT;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1332 shift_line(type == INDENT_DEC, round, 1, call_changed_bytes);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1333 State = save_State;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1334 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1335 insstart_less -= curwin->w_cursor.col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1336
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1337 // Try to put cursor on same character.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1338 // If the cursor is at or after the first non-blank in the line,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1339 // compute the cursor column relative to the column of the first
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1340 // non-blank character.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1341 // If we are not in insert mode, leave the cursor on the first non-blank.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1342 // If the cursor is before the first non-blank, position it relative
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1343 // to the first non-blank, counted in screen columns.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1344 if (new_cursor_col >= 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1345 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1346 // When changing the indent while the cursor is touching it, reset
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1347 // Insstart_col to 0.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1348 if (new_cursor_col == 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1349 insstart_less = MAXCOL;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1350 new_cursor_col += curwin->w_cursor.col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1351 }
28773 d770568e6c98 patch 8.2.4911: the mode #defines are not clearly named Bram Moolenaar <Bram@vim.org> parents: 28716 diff changeset	1352 else if (!(State & MODE_INSERT))
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1353 new_cursor_col = curwin->w_cursor.col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1354 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1355 {
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	1356 chartabsize_T cts;
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	1357
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1358 // Compute the screen column where the cursor should be.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1359 vcol = get_indent() - vcol;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1360 curwin->w_virtcol = (colnr_T)((vcol < 0) ? 0 : vcol);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1361
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1362 // Advance the cursor until we reach the right screen column.
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	1363 last_vcol = 0;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1364 ptr = ml_get_curline();
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	1365 init_chartabsize_arg(&cts, curwin, 0, 0, ptr, ptr);
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	1366 while (cts.cts_vcol <= (int)curwin->w_virtcol)
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1367 {
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	1368 last_vcol = cts.cts_vcol;
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	1369 if (cts.cts_vcol > 0)
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	1370 MB_PTR_ADV(cts.cts_ptr);
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	1371 if (*cts.cts_ptr == NUL)
27821 c3b34e4bbe34 patch 8.2.4436: crash with weird 'vartabstop' value Bram Moolenaar <Bram@vim.org> parents: 27677 diff changeset	1372 break;
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	1373 cts.cts_vcol += lbr_chartabsize(&cts);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1374 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1375 vcol = last_vcol;
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	1376 new_cursor_col = cts.cts_ptr - cts.cts_line;
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	1377 clear_chartabsize_arg(&cts);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1378
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1379 // May need to insert spaces to be able to position the cursor on
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1380 // the right screen column.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1381 if (vcol != (int)curwin->w_virtcol)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1382 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1383 curwin->w_cursor.col = (colnr_T)new_cursor_col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1384 i = (int)curwin->w_virtcol - vcol;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1385 ptr = alloc(i + 1);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1386 if (ptr != NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1387 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1388 new_cursor_col += i;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1389 ptr[i] = NUL;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1390 while (--i >= 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1391 ptr[i] = ' ';
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1392 ins_str(ptr);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1393 vim_free(ptr);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1394 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1395 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1396
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1397 // When changing the indent while the cursor is in it, reset
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1398 // Insstart_col to 0.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1399 insstart_less = MAXCOL;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1400 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1401
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1402 curwin->w_p_list = save_p_list;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1403
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1404 if (new_cursor_col <= 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1405 curwin->w_cursor.col = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1406 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1407 curwin->w_cursor.col = (colnr_T)new_cursor_col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1408 curwin->w_set_curswant = TRUE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1409 changed_cline_bef_curs();
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1410
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1411 // May have to adjust the start of the insert.
28773 d770568e6c98 patch 8.2.4911: the mode #defines are not clearly named Bram Moolenaar <Bram@vim.org> parents: 28716 diff changeset	1412 if (State & MODE_INSERT)
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1413 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1414 if (curwin->w_cursor.lnum == Insstart.lnum && Insstart.col != 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1415 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1416 if ((int)Insstart.col <= insstart_less)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1417 Insstart.col = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1418 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1419 Insstart.col -= insstart_less;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1420 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1421 if ((int)ai_col <= insstart_less)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1422 ai_col = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1423 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1424 ai_col -= insstart_less;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1425 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1426
28773 d770568e6c98 patch 8.2.4911: the mode #defines are not clearly named Bram Moolenaar <Bram@vim.org> parents: 28716 diff changeset	1427 // For MODE_REPLACE state, may have to fix the replace stack, if it's
d770568e6c98 patch 8.2.4911: the mode #defines are not clearly named Bram Moolenaar <Bram@vim.org> parents: 28716 diff changeset	1428 // possible. If the number of characters before the cursor decreased, need
d770568e6c98 patch 8.2.4911: the mode #defines are not clearly named Bram Moolenaar <Bram@vim.org> parents: 28716 diff changeset	1429 // to pop a few characters from the replace stack.
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1430 // If the number of characters before the cursor increased, need to push a
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1431 // few NULs onto the replace stack.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1432 if (REPLACE_NORMAL(State) && start_col >= 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1433 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1434 while (start_col > (int)curwin->w_cursor.col)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1435 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1436 replace_join(0); // remove a NUL from the replace stack
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1437 --start_col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1438 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1439 while (start_col < (int)curwin->w_cursor.col \|\| replaced)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1440 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1441 replace_push(NUL);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1442 if (replaced)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1443 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1444 replace_push(replaced);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1445 replaced = NUL;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1446 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1447 ++start_col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1448 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1449 }
30257 45788c16b3a5 patch 9.0.0464: with virtual text "above" indenting doesn't work well Bram Moolenaar <Bram@vim.org> parents: 30041 diff changeset	1450 #ifdef FEAT_PROP_POPUP
45788c16b3a5 patch 9.0.0464: with virtual text "above" indenting doesn't work well Bram Moolenaar <Bram@vim.org> parents: 30041 diff changeset	1451 ignore_text_props = FALSE;
45788c16b3a5 patch 9.0.0464: with virtual text "above" indenting doesn't work well Bram Moolenaar <Bram@vim.org> parents: 30041 diff changeset	1452 #endif
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1453
28773 d770568e6c98 patch 8.2.4911: the mode #defines are not clearly named Bram Moolenaar <Bram@vim.org> parents: 28716 diff changeset	1454 // For MODE_VREPLACE state, we also have to fix the replace stack. In this
d770568e6c98 patch 8.2.4911: the mode #defines are not clearly named Bram Moolenaar <Bram@vim.org> parents: 28716 diff changeset	1455 // case it is always possible because we backspace over the whole line and
d770568e6c98 patch 8.2.4911: the mode #defines are not clearly named Bram Moolenaar <Bram@vim.org> parents: 28716 diff changeset	1456 // then put it back again the way we wanted it.
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1457 if (State & VREPLACE_FLAG)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1458 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1459 // If orig_line didn't allocate, just return. At least we did the job,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1460 // even if you can't backspace.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1461 if (orig_line == NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1462 return;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1463
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1464 // Save new line
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1465 new_line = vim_strsave(ml_get_curline());
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1466 if (new_line == NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1467 return;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1468
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1469 // We only put back the new line up to the cursor
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1470 new_line[curwin->w_cursor.col] = NUL;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1471
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1472 // Put back original line
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1473 ml_replace(curwin->w_cursor.lnum, orig_line, FALSE);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1474 curwin->w_cursor.col = orig_col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1475
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1476 // Backspace from cursor to start of line
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1477 backspace_until_column(0);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1478
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1479 // Insert new stuff into line again
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1480 ins_bytes(new_line);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1481
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1482 vim_free(new_line);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1483 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1484 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1485
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1486 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1487 * Copy the indent from ptr to the current line (and fill to size)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1488 * Leaves the cursor on the first non-blank in the line.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1489 * Returns TRUE if the line was changed.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1490 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1491 int
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1492 copy_indent(int size, char_u *src)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1493 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1494 char_u *p = NULL;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1495 char_u *line = NULL;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1496 char_u *s;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1497 int todo;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1498 int ind_len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1499 int line_len = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1500 int tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1501 int ind_done;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1502 int round;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1503 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1504 int ind_col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1505 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1506
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1507 // Round 1: compute the number of characters needed for the indent
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1508 // Round 2: copy the characters.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1509 for (round = 1; round <= 2; ++round)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1510 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1511 todo = size;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1512 ind_len = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1513 ind_done = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1514 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1515 ind_col = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1516 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1517 s = src;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1518
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1519 // Count/copy the usable portion of the source line
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1520 while (todo > 0 && VIM_ISWHITE(*s))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1521 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1522 if (*s == TAB)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1523 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1524 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1525 tab_pad = tabstop_padding(ind_done, curbuf->b_p_ts,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1526 curbuf->b_p_vts_array);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1527 #else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1528 tab_pad = (int)curbuf->b_p_ts
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1529 - (ind_done % (int)curbuf->b_p_ts);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1530 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1531 // Stop if this tab will overshoot the target
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1532 if (todo < tab_pad)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1533 break;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1534 todo -= tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1535 ind_done += tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1536 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1537 ind_col += tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1538 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1539 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1540 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1541 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1542 --todo;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1543 ++ind_done;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1544 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1545 ++ind_col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1546 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1547 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1548 ++ind_len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1549 if (p != NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1550 p++ = s;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1551 ++s;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1552 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1553
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1554 // Fill to next tabstop with a tab, if possible
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1555 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1556 tab_pad = tabstop_padding(ind_done, curbuf->b_p_ts,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1557 curbuf->b_p_vts_array);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1558 #else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1559 tab_pad = (int)curbuf->b_p_ts - (ind_done % (int)curbuf->b_p_ts);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1560 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1561 if (todo >= tab_pad && !curbuf->b_p_et)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1562 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1563 todo -= tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1564 ++ind_len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1565 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1566 ind_col += tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1567 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1568 if (p != NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1569 *p++ = TAB;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1570 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1571
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1572 // Add tabs required for indent
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1573 if (!curbuf->b_p_et)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1574 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1575 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1576 for (;;)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1577 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1578 tab_pad = tabstop_padding(ind_col, curbuf->b_p_ts,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1579 curbuf->b_p_vts_array);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1580 if (todo < tab_pad)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1581 break;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1582 todo -= tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1583 ++ind_len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1584 ind_col += tab_pad;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1585 if (p != NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1586 *p++ = TAB;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1587 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1588 #else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1589 while (todo >= (int)curbuf->b_p_ts)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1590 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1591 todo -= (int)curbuf->b_p_ts;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1592 ++ind_len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1593 if (p != NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1594 *p++ = TAB;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1595 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1596 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1597 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1598
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1599 // Count/add spaces required for indent
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1600 while (todo > 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1601 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1602 --todo;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1603 ++ind_len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1604 if (p != NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1605 *p++ = ' ';
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1606 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1607
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1608 if (p == NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1609 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1610 // Allocate memory for the result: the copied indent, new indent
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1611 // and the rest of the line.
34540 9e093c96dff6 patch 9.1.0172: More code can use ml_get_buf_len() instead of STRLEN() Christian Brabandt <cb@256bit.org> parents: 34340 diff changeset	1612 line_len = ml_get_curline_len() + 1;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1613 line = alloc(ind_len + line_len);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1614 if (line == NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1615 return FALSE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1616 p = line;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1617 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1618 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1619
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1620 // Append the original line
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1621 mch_memmove(p, ml_get_curline(), (size_t)line_len);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1622
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1623 // Replace the line
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1624 ml_replace(curwin->w_cursor.lnum, line, FALSE);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1625
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1626 // Put the cursor after the indent.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1627 curwin->w_cursor.col = ind_len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1628 return TRUE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1629 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1630
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1631 /*
29177 6a6c56354cfc patch 8.2.5108: retab test disabled because it hangs on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 29167 diff changeset	1632 * Give a "resulting text too long" error and maybe set got_int.
6a6c56354cfc patch 8.2.5108: retab test disabled because it hangs on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 29167 diff changeset	1633 */
6a6c56354cfc patch 8.2.5108: retab test disabled because it hangs on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 29167 diff changeset	1634 static void
6a6c56354cfc patch 8.2.5108: retab test disabled because it hangs on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 29167 diff changeset	1635 emsg_text_too_long(void)
6a6c56354cfc patch 8.2.5108: retab test disabled because it hangs on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 29167 diff changeset	1636 {
6a6c56354cfc patch 8.2.5108: retab test disabled because it hangs on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 29167 diff changeset	1637 emsg(_(e_resulting_text_too_long));
6a6c56354cfc patch 8.2.5108: retab test disabled because it hangs on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 29167 diff changeset	1638 #ifdef FEAT_EVAL
6a6c56354cfc patch 8.2.5108: retab test disabled because it hangs on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 29167 diff changeset	1639 // when not inside a try/catch set got_int to break out of any loop
6a6c56354cfc patch 8.2.5108: retab test disabled because it hangs on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 29167 diff changeset	1640 if (trylevel == 0)
6a6c56354cfc patch 8.2.5108: retab test disabled because it hangs on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 29167 diff changeset	1641 #endif
6a6c56354cfc patch 8.2.5108: retab test disabled because it hangs on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 29167 diff changeset	1642 got_int = TRUE;
6a6c56354cfc patch 8.2.5108: retab test disabled because it hangs on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 29167 diff changeset	1643 }
6a6c56354cfc patch 8.2.5108: retab test disabled because it hangs on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 29167 diff changeset	1644
6a6c56354cfc patch 8.2.5108: retab test disabled because it hangs on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 29167 diff changeset	1645 /*
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1646 * ":retab".
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1647 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1648 void
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1649 ex_retab(exarg_T *eap)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1650 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1651 linenr_T lnum;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1652 int got_tab = FALSE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1653 long num_spaces = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1654 long num_tabs;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1655 long len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1656 long col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1657 long vcol;
18933 82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1658 long start_col = 0; // For start of white-space string
82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1659 long start_vcol = 0; // For start of white-space string
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1660 long old_len;
27673 ba7dcf54d309 patch 8.2.4362: :retab may allocate too much memory Bram Moolenaar <Bram@vim.org> parents: 27667 diff changeset	1661 long new_len;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1662 char_u *ptr;
18933 82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1663 char_u new_line = (char_u )1; // init to non-NULL
82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1664 int did_undo; // called u_save for current line
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1665 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1666 int *new_vts_array = NULL;
18933 82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1667 char_u *new_ts_str; // string value of tab argument
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1668 #else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1669 int temp;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1670 int new_ts;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1671 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1672 int save_list;
18933 82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1673 linenr_T first_line = 0; // first changed line
82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1674 linenr_T last_line = 0; // last changed line
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1675
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1676 save_list = curwin->w_p_list;
18933 82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1677 curwin->w_p_list = 0; // don't want list mode here
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1678
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1679 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1680 new_ts_str = eap->arg;
25733 4b2616ffe32b patch 8.2.3402: invalid memory access when using :retab with large value Bram Moolenaar <Bram@vim.org> parents: 25701 diff changeset	1681 if (tabstop_set(eap->arg, &new_vts_array) == FAIL)
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1682 return;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1683 while (vim_isdigit((eap->arg)) \|\| (eap->arg) == ',')
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1684 ++(eap->arg);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1685
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1686 // This ensures that either new_vts_array and new_ts_str are freshly
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1687 // allocated, or new_vts_array points to an existing array and new_ts_str
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1688 // is null.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1689 if (new_vts_array == NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1690 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1691 new_vts_array = curbuf->b_p_vts_array;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1692 new_ts_str = NULL;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1693 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1694 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1695 new_ts_str = vim_strnsave(new_ts_str, eap->arg - new_ts_str);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1696 #else
25735 07e23f808680 patch 8.2.3403: memory leak for :retab with invalid argument Bram Moolenaar <Bram@vim.org> parents: 25733 diff changeset	1697 ptr = eap->arg;
07e23f808680 patch 8.2.3403: memory leak for :retab with invalid argument Bram Moolenaar <Bram@vim.org> parents: 25733 diff changeset	1698 new_ts = getdigits(&ptr);
07e23f808680 patch 8.2.3403: memory leak for :retab with invalid argument Bram Moolenaar <Bram@vim.org> parents: 25733 diff changeset	1699 if (new_ts < 0 && *eap->arg == '-')
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1700 {
26877 06a137af96f8 patch 8.2.3967: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26865 diff changeset	1701 emsg(_(e_argument_must_be_positive));
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1702 return;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1703 }
27434 c1702fd7e716 patch 8.2.4245: ":retab 0" may cause illegal memory access Bram Moolenaar <Bram@vim.org> parents: 27313 diff changeset	1704 if (new_ts < 0 \|\| new_ts > TABSTOP_MAX)
25735 07e23f808680 patch 8.2.3403: memory leak for :retab with invalid argument Bram Moolenaar <Bram@vim.org> parents: 25733 diff changeset	1705 {
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26775 diff changeset	1706 semsg(_(e_invalid_argument_str), eap->arg);
25735 07e23f808680 patch 8.2.3403: memory leak for :retab with invalid argument Bram Moolenaar <Bram@vim.org> parents: 25733 diff changeset	1707 return;
07e23f808680 patch 8.2.3403: memory leak for :retab with invalid argument Bram Moolenaar <Bram@vim.org> parents: 25733 diff changeset	1708 }
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1709 if (new_ts == 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1710 new_ts = curbuf->b_p_ts;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1711 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1712 for (lnum = eap->line1; !got_int && lnum <= eap->line2; ++lnum)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1713 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1714 ptr = ml_get(lnum);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1715 col = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1716 vcol = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1717 did_undo = FALSE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1718 for (;;)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1719 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1720 if (VIM_ISWHITE(ptr[col]))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1721 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1722 if (!got_tab && num_spaces == 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1723 {
18933 82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1724 // First consecutive white-space
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1725 start_vcol = vcol;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1726 start_col = col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1727 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1728 if (ptr[col] == ' ')
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1729 num_spaces++;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1730 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1731 got_tab = TRUE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1732 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1733 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1734 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1735 if (got_tab \|\| (eap->forceit && num_spaces > 1))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1736 {
18933 82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1737 // Retabulate this string of white-space
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1738
18933 82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1739 // len is virtual length of white string
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1740 len = num_spaces = vcol - start_vcol;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1741 num_tabs = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1742 if (!curbuf->b_p_et)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1743 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1744 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1745 int t, s;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1746
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1747 tabstop_fromto(start_vcol, vcol,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1748 curbuf->b_p_ts, new_vts_array, &t, &s);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1749 num_tabs = t;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1750 num_spaces = s;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1751 #else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1752 temp = new_ts - (start_vcol % new_ts);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1753 if (num_spaces >= temp)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1754 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1755 num_spaces -= temp;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1756 num_tabs++;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1757 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1758 num_tabs += num_spaces / new_ts;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1759 num_spaces -= (num_spaces / new_ts) * new_ts;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1760 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1761 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1762 if (curbuf->b_p_et \|\| got_tab \|\|
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1763 (num_spaces + num_tabs < len))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1764 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1765 if (did_undo == FALSE)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1766 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1767 did_undo = TRUE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1768 if (u_save((linenr_T)(lnum - 1),
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1769 (linenr_T)(lnum + 1)) == FAIL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1770 {
18933 82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1771 new_line = NULL; // flag out-of-memory
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1772 break;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1773 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1774 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1775
18933 82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1776 // len is actual number of white characters used
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1777 len = num_spaces + num_tabs;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1778 old_len = (long)STRLEN(ptr);
27673 ba7dcf54d309 patch 8.2.4362: :retab may allocate too much memory Bram Moolenaar <Bram@vim.org> parents: 27667 diff changeset	1779 new_len = old_len - col + start_col + len + 1;
27677 567f4f964ccc patch 8.2.4364: MS-Windows: still running out of memory for a very long line Bram Moolenaar <Bram@vim.org> parents: 27673 diff changeset	1780 if (new_len <= 0 \|\| new_len >= MAXCOL)
27673 ba7dcf54d309 patch 8.2.4362: :retab may allocate too much memory Bram Moolenaar <Bram@vim.org> parents: 27667 diff changeset	1781 {
29177 6a6c56354cfc patch 8.2.5108: retab test disabled because it hangs on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 29167 diff changeset	1782 emsg_text_too_long();
27673 ba7dcf54d309 patch 8.2.4362: :retab may allocate too much memory Bram Moolenaar <Bram@vim.org> parents: 27667 diff changeset	1783 break;
ba7dcf54d309 patch 8.2.4362: :retab may allocate too much memory Bram Moolenaar <Bram@vim.org> parents: 27667 diff changeset	1784 }
ba7dcf54d309 patch 8.2.4362: :retab may allocate too much memory Bram Moolenaar <Bram@vim.org> parents: 27667 diff changeset	1785 new_line = alloc(new_len);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1786 if (new_line == NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1787 break;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1788 if (start_col > 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1789 mch_memmove(new_line, ptr, (size_t)start_col);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1790 mch_memmove(new_line + start_col + len,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1791 ptr + col, (size_t)(old_len - col + 1));
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1792 ptr = new_line + start_col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1793 for (col = 0; col < len; col++)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1794 ptr[col] = (col < num_tabs) ? '\t' : ' ';
23833 dd8f2c6b6396 patch 8.2.2458: Coverity warns for :retab using freed memory Bram Moolenaar <Bram@vim.org> parents: 22699 diff changeset	1795 if (ml_replace(lnum, new_line, FALSE) == OK)
dd8f2c6b6396 patch 8.2.2458: Coverity warns for :retab using freed memory Bram Moolenaar <Bram@vim.org> parents: 22699 diff changeset	1796 // "new_line" may have been copied
dd8f2c6b6396 patch 8.2.2458: Coverity warns for :retab using freed memory Bram Moolenaar <Bram@vim.org> parents: 22699 diff changeset	1797 new_line = curbuf->b_ml.ml_line_ptr;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1798 if (first_line == 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1799 first_line = lnum;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1800 last_line = lnum;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1801 ptr = new_line;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1802 col = start_col + len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1803 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1804 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1805 got_tab = FALSE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1806 num_spaces = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1807 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1808 if (ptr[col] == NUL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1809 break;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1810 vcol += chartabsize(ptr + col, (colnr_T)vcol);
27667 289e87a78307 patch 8.2.4359: crash when repeatedly using :retab Bram Moolenaar <Bram@vim.org> parents: 27543 diff changeset	1811 if (vcol >= MAXCOL)
289e87a78307 patch 8.2.4359: crash when repeatedly using :retab Bram Moolenaar <Bram@vim.org> parents: 27543 diff changeset	1812 {
29177 6a6c56354cfc patch 8.2.5108: retab test disabled because it hangs on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 29167 diff changeset	1813 emsg_text_too_long();
27667 289e87a78307 patch 8.2.4359: crash when repeatedly using :retab Bram Moolenaar <Bram@vim.org> parents: 27543 diff changeset	1814 break;
289e87a78307 patch 8.2.4359: crash when repeatedly using :retab Bram Moolenaar <Bram@vim.org> parents: 27543 diff changeset	1815 }
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1816 if (has_mbyte)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1817 col += (*mb_ptr2len)(ptr + col);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1818 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1819 ++col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1820 }
18933 82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1821 if (new_line == NULL) // out of memory
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1822 break;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1823 line_breakcheck();
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1824 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1825 if (got_int)
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26775 diff changeset	1826 emsg(_(e_interrupted));
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1827
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1828 #ifdef FEAT_VARTABS
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1829 // If a single value was given then it can be considered equal to
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1830 // either the value of 'tabstop' or the value of 'vartabstop'.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1831 if (tabstop_count(curbuf->b_p_vts_array) == 0
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1832 && tabstop_count(new_vts_array) == 1
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1833 && curbuf->b_p_ts == tabstop_first(new_vts_array))
18933 82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1834 ; // not changed
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1835 else if (tabstop_count(curbuf->b_p_vts_array) > 0
28809 d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 28773 diff changeset	1836 && tabstop_eq(curbuf->b_p_vts_array, new_vts_array))
18933 82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1837 ; // not changed
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1838 else
29732 89e1d67814a9 patch 9.0.0206: redraw flags are not named specifically Bram Moolenaar <Bram@vim.org> parents: 29451 diff changeset	1839 redraw_curbuf_later(UPD_NOT_VALID);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1840 #else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1841 if (curbuf->b_p_ts != new_ts)
29732 89e1d67814a9 patch 9.0.0206: redraw flags are not named specifically Bram Moolenaar <Bram@vim.org> parents: 29451 diff changeset	1842 redraw_curbuf_later(UPD_NOT_VALID);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1843 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1844 if (first_line != 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1845 changed_lines(first_line, 0, last_line + 1, 0L);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1846
18933 82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1847 curwin->w_p_list = save_list; // restore 'list'
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1848
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1849 #ifdef FEAT_VARTABS
18933 82c732e8d23d patch 8.2.0027: still some /* / comments Bram Moolenaar <Bram@vim.org>* parents: 18763 diff changeset	1850 if (new_ts_str != NULL) // set the new tabstop
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1851 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1852 // If 'vartabstop' is in use or if the value given to retab has more
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1853 // than one tabstop then update 'vartabstop'.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1854 int *old_vts_ary = curbuf->b_p_vts_array;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1855
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1856 if (tabstop_count(old_vts_ary) > 0 \|\| tabstop_count(new_vts_array) > 1)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1857 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1858 set_string_option_direct((char_u *)"vts", -1, new_ts_str,
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1859 OPT_FREE\|OPT_LOCAL, 0);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1860 curbuf->b_p_vts_array = new_vts_array;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1861 vim_free(old_vts_ary);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1862 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1863 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1864 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1865 // 'vartabstop' wasn't in use and a single value was given to
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1866 // retab then update 'tabstop'.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1867 curbuf->b_p_ts = tabstop_first(new_vts_array);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1868 vim_free(new_vts_array);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1869 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1870 vim_free(new_ts_str);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1871 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1872 #else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1873 curbuf->b_p_ts = new_ts;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1874 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1875 coladvance(curwin->w_curswant);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1876
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1877 u_clearline();
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1878 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1879
28942 6cdf55afaae9 patch 8.2.4993: smart/C/lisp indenting is optional Bram Moolenaar <Bram@vim.org> parents: 28860 diff changeset	1880 #if defined(FEAT_EVAL) \|\| defined(PROTO)
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1881 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1882 * Get indent level from 'indentexpr'.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1883 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1884 int
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1885 get_expr_indent(void)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1886 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1887 int indent = -1;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1888 char_u *inde_copy;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1889 pos_T save_pos;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1890 colnr_T save_curswant;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1891 int save_set_curswant;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1892 int save_State;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1893 int use_sandbox = was_set_insecurely((char_u *)"indentexpr",
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1894 OPT_LOCAL);
27313 748ab01dbdc5 patch 8.2.4185: cannot use an import in 'indentexpr' Bram Moolenaar <Bram@vim.org> parents: 27128 diff changeset	1895 sctx_T save_sctx = current_sctx;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1896
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1897 // Save and restore cursor position and curswant, in case it was changed
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1898 // via :normal commands
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1899 save_pos = curwin->w_cursor;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1900 save_curswant = curwin->w_curswant;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1901 save_set_curswant = curwin->w_set_curswant;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1902 set_vim_var_nr(VV_LNUM, curwin->w_cursor.lnum);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1903 if (use_sandbox)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1904 ++sandbox;
29014 45c182c4f7e9 patch 8.2.5029: "textlock" is always zero Bram Moolenaar <Bram@vim.org> parents: 28942 diff changeset	1905 ++textlock;
27313 748ab01dbdc5 patch 8.2.4185: cannot use an import in 'indentexpr' Bram Moolenaar <Bram@vim.org> parents: 27128 diff changeset	1906 current_sctx = curbuf->b_p_script_ctx[BV_INDE];
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1907
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1908 // Need to make a copy, the 'indentexpr' option could be changed while
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1909 // evaluating it.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1910 inde_copy = vim_strsave(curbuf->b_p_inde);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1911 if (inde_copy != NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1912 {
30600 33a3f63785db patch 9.0.0635: build error and compiler warnings Bram Moolenaar <Bram@vim.org> parents: 30257 diff changeset	1913 indent = (int)eval_to_number(inde_copy, TRUE);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1914 vim_free(inde_copy);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1915 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1916
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1917 if (use_sandbox)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1918 --sandbox;
29014 45c182c4f7e9 patch 8.2.5029: "textlock" is always zero Bram Moolenaar <Bram@vim.org> parents: 28942 diff changeset	1919 --textlock;
27313 748ab01dbdc5 patch 8.2.4185: cannot use an import in 'indentexpr' Bram Moolenaar <Bram@vim.org> parents: 27128 diff changeset	1920 current_sctx = save_sctx;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1921
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1922 // Restore the cursor position so that 'indentexpr' doesn't need to.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1923 // Pretend to be in Insert mode, allow cursor past end of line for "o"
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1924 // command.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1925 save_State = State;
28773 d770568e6c98 patch 8.2.4911: the mode #defines are not clearly named Bram Moolenaar <Bram@vim.org> parents: 28716 diff changeset	1926 State = MODE_INSERT;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1927 curwin->w_cursor = save_pos;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1928 curwin->w_curswant = save_curswant;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1929 curwin->w_set_curswant = save_set_curswant;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1930 check_cursor();
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1931 State = save_State;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1932
25445 65f04b6effd5 patch 8.2.3259: when 'indentexpr' causes an error did_throw may hang Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1933 // Reset did_throw, unless 'debug' has "throw" and inside a try/catch.
65f04b6effd5 patch 8.2.3259: when 'indentexpr' causes an error did_throw may hang Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1934 if (did_throw && (vim_strchr(p_debug, 't') == NULL \|\| trylevel == 0))
65f04b6effd5 patch 8.2.3259: when 'indentexpr' causes an error did_throw may hang Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1935 {
65f04b6effd5 patch 8.2.3259: when 'indentexpr' causes an error did_throw may hang Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1936 handle_did_throw();
65f04b6effd5 patch 8.2.3259: when 'indentexpr' causes an error did_throw may hang Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1937 did_throw = FALSE;
65f04b6effd5 patch 8.2.3259: when 'indentexpr' causes an error did_throw may hang Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1938 }
65f04b6effd5 patch 8.2.3259: when 'indentexpr' causes an error did_throw may hang Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1939
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1940 // If there is an error, just keep the current indent.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1941 if (indent < 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1942 indent = get_indent();
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1943
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1944 return indent;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1945 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1946 #endif
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1947
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1948 static int
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1949 lisp_match(char_u *p)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1950 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1951 char_u buf[LSIZE];
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1952 int len;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1953 char_u word = curbuf->b_p_lw != NUL ? curbuf->b_p_lw : p_lispwords;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1954
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1955 while (*word != NUL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1956 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1957 (void)copy_option_part(&word, buf, LSIZE, ",");
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1958 len = (int)STRLEN(buf);
30805 4edfa418f8ba patch 9.0.0737: Lisp word only recognized when a space follows Bram Moolenaar <Bram@vim.org> parents: 30600 diff changeset	1959 if (STRNCMP(buf, p, len) == 0 && IS_WHITE_OR_NUL(p[len]))
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1960 return TRUE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1961 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1962 return FALSE;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1963 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1964
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1965 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1966 * When 'p' is present in 'cpoptions, a Vi compatible method is used.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1967 * The incompatible newer method is quite a bit better at indenting
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1968 * code in lisp-like languages than the traditional one; it's still
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1969 * mostly heuristics however -- Dirk van Deun, dirk@rave.org
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1970 *
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1971 * TODO:
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1972 * Findmatch() should be adapted for lisp, also to make showmatch
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1973 * work correctly: now (v5.3) it seems all C/C++ oriented:
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1974 * - it does not recognize the #\( and #\) notations as character literals
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1975 * - it doesn't know about comments starting with a semicolon
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1976 * - it incorrectly interprets '(' as a character literal
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1977 * All this messes up get_lisp_indent in some rare cases.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1978 * Update from Sergey Khorev:
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1979 * I tried to fix the first two issues.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1980 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1981 int
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1982 get_lisp_indent(void)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1983 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1984 pos_T *pos, realpos, paren;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1985 int amount;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1986 char_u *that;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1987 colnr_T col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1988 colnr_T firsttry;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1989 int parencount, quotecount;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1990 int vi_lisp;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1991
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1992 // Set vi_lisp to use the vi-compatible method
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1993 vi_lisp = (vim_strchr(p_cpo, CPO_LISP) != NULL);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1994
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1995 realpos = curwin->w_cursor;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1996 curwin->w_cursor.col = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1997
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1998 if ((pos = findmatch(NULL, '(')) == NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	1999 pos = findmatch(NULL, '[');
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2000 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2001 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2002 paren = *pos;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2003 pos = findmatch(NULL, '[');
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2004 if (pos == NULL \|\| LT_POSP(pos, &paren))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2005 pos = &paren;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2006 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2007 if (pos != NULL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2008 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2009 // Extra trick: Take the indent of the first previous non-white
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2010 // line that is at the same () level.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2011 amount = -1;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2012 parencount = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2013
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2014 while (--curwin->w_cursor.lnum >= pos->lnum)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2015 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2016 if (linewhite(curwin->w_cursor.lnum))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2017 continue;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2018 for (that = ml_get_curline(); *that != NUL; ++that)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2019 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2020 if (*that == ';')
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2021 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2022 while (*(that + 1) != NUL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2023 ++that;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2024 continue;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2025 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2026 if (*that == '\\')
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2027 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2028 if (*(that + 1) != NUL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2029 ++that;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2030 continue;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2031 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2032 if (that == '"' && (that + 1) != NUL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2033 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2034 while (++that && that != '"')
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2035 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2036 // skipping escaped characters in the string
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2037 if (*that == '\\')
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2038 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2039 if (*++that == NUL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2040 break;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2041 if (that[1] == NUL)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2042 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2043 ++that;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2044 break;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2045 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2046 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2047 }
29206 a2c89e5446b7 patch 8.2.5122: lisp indenting my run over the end of the line Bram Moolenaar <Bram@vim.org> parents: 29177 diff changeset	2048 if (*that == NUL)
a2c89e5446b7 patch 8.2.5122: lisp indenting my run over the end of the line Bram Moolenaar <Bram@vim.org> parents: 29177 diff changeset	2049 break;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2050 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2051 if (that == '(' \|\| that == '[')
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2052 ++parencount;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2053 else if (that == ')' \|\| that == ']')
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2054 --parencount;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2055 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2056 if (parencount == 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2057 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2058 amount = get_indent();
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2059 break;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2060 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2061 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2062
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2063 if (amount == -1)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2064 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2065 curwin->w_cursor.lnum = pos->lnum;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2066 curwin->w_cursor.col = pos->col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2067 col = pos->col;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2068
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2069 that = ml_get_curline();
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2070
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2071 if (vi_lisp && get_indent() == 0)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2072 amount = 2;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2073 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2074 {
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2075 char_u *line = that;
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2076 chartabsize_T cts;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2077
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2078 init_chartabsize_arg(&cts, curwin, pos->lnum, 0, line, line);
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2079 while (*cts.cts_ptr != NUL && col > 0)
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2080 {
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2081 cts.cts_vcol += lbr_chartabsize_adv(&cts);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2082 col--;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2083 }
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2084 amount = cts.cts_vcol;
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2085 that = cts.cts_ptr;
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2086 clear_chartabsize_arg(&cts);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2087
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2088 // Some keywords require "body" indenting rules (the
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2089 // non-standard-lisp ones are Scheme special forms):
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2090 //
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2091 // (let ((a 1)) instead (let ((a 1))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2092 // (...)) of (...))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2093
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2094 if (!vi_lisp && (that == '(' \|\| that == '[')
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2095 && lisp_match(that + 1))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2096 amount += 2;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2097 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2098 {
29265 9bc63b4f9c33 patch 8.2.5151: reading beyond the end of the line with lisp indenting Bram Moolenaar <Bram@vim.org> parents: 29206 diff changeset	2099 if (*that != NUL)
9bc63b4f9c33 patch 8.2.5151: reading beyond the end of the line with lisp indenting Bram Moolenaar <Bram@vim.org> parents: 29206 diff changeset	2100 {
9bc63b4f9c33 patch 8.2.5151: reading beyond the end of the line with lisp indenting Bram Moolenaar <Bram@vim.org> parents: 29206 diff changeset	2101 that++;
9bc63b4f9c33 patch 8.2.5151: reading beyond the end of the line with lisp indenting Bram Moolenaar <Bram@vim.org> parents: 29206 diff changeset	2102 amount++;
9bc63b4f9c33 patch 8.2.5151: reading beyond the end of the line with lisp indenting Bram Moolenaar <Bram@vim.org> parents: 29206 diff changeset	2103 }
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2104 firsttry = amount;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2105
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2106 init_chartabsize_arg(&cts, curwin, (colnr_T)(that - line),
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2107 amount, line, that);
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2108 while (VIM_ISWHITE(*cts.cts_ptr))
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2109 {
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2110 cts.cts_vcol += lbr_chartabsize(&cts);
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2111 ++cts.cts_ptr;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2112 }
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2113 that = cts.cts_ptr;
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2114 amount = cts.cts_vcol;
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2115 clear_chartabsize_arg(&cts);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2116
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2117 if (that && that != ';') // not a comment line
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2118 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2119 // test *that != '(' to accommodate first let/do
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2120 // argument if it is more than one line
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2121 if (!vi_lisp && that != '(' && that != '[')
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2122 firsttry++;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2123
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2124 parencount = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2125 quotecount = 0;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2126
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2127 init_chartabsize_arg(&cts, curwin,
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2128 (colnr_T)(that - line), amount, line, that);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2129 if (vi_lisp
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2130 \|\| (*that != '"'
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2131 && *that != '\''
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2132 && *that != '#'
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2133 && (that < '0' \|\| that > '9')))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2134 {
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2135 while (*cts.cts_ptr
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2136 && (!VIM_ISWHITE(*cts.cts_ptr)
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2137 \|\| quotecount
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2138 \|\| parencount)
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2139 && (!((*cts.cts_ptr == '('
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2140 \|\| *cts.cts_ptr == '[')
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2141 && !quotecount
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2142 && !parencount
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2143 && vi_lisp)))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2144 {
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2145 if (*cts.cts_ptr == '"')
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2146 quotecount = !quotecount;
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2147 if ((cts.cts_ptr == '(' \|\| cts.cts_ptr == '[')
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2148 && !quotecount)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2149 ++parencount;
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2150 if ((cts.cts_ptr == ')' \|\| cts.cts_ptr == ']')
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2151 && !quotecount)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2152 --parencount;
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2153 if (*cts.cts_ptr == '\\'
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2154 && *(cts.cts_ptr+1) != NUL)
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2155 cts.cts_vcol += lbr_chartabsize_adv(&cts);
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2156 cts.cts_vcol += lbr_chartabsize_adv(&cts);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2157 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2158 }
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2159 while (VIM_ISWHITE(*cts.cts_ptr))
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2160 {
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2161 cts.cts_vcol += lbr_chartabsize(&cts);
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2162 ++cts.cts_ptr;
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2163 }
29451 057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2164 that = cts.cts_ptr;
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2165 amount = cts.cts_vcol;
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2166 clear_chartabsize_arg(&cts);
057c26b5c33a patch 9.0.0067: cannot show virtual text Bram Moolenaar <Bram@vim.org> parents: 29346 diff changeset	2167
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2168 if (!that \|\| that == ';')
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2169 amount = firsttry;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2170 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2171 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2172 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2173 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2174 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2175 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2176 amount = 0; // no matching '(' or '[' found, use zero indent
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2177
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2178 curwin->w_cursor = realpos;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2179
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2180 return amount;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2181 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2182
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2183 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2184 * Re-indent the current line, based on the current contents of it and the
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2185 * surrounding lines. Fixing the cursor position seems really easy -- I'm very
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2186 * confused what all the part that handles Control-T is doing that I'm not.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2187 * "get_the_indent" should be get_c_indent, get_expr_indent or get_lisp_indent.
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2188 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2189
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2190 void
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2191 fixthisline(int (*get_the_indent)(void))
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2192 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2193 int amount = get_the_indent();
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2194
31702 27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31491 diff changeset	2195 if (amount < 0)
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31491 diff changeset	2196 return;
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31491 diff changeset	2197
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31491 diff changeset	2198 change_indent(INDENT_SET, amount, FALSE, 0, TRUE);
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31491 diff changeset	2199 if (linewhite(curwin->w_cursor.lnum))
27c9212d10aa patch 9.0.1183: code is indented more than necessary Bram Moolenaar <Bram@vim.org> parents: 31491 diff changeset	2200 did_ai = TRUE; // delete the indent if the line stays empty
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2201 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2202
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26775 diff changeset	2203 /*
30853 40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2204 * Return TRUE if 'indentexpr' should be used for Lisp indenting.
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2205 * Caller may want to check 'autoindent'.
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2206 */
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2207 int
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2208 use_indentexpr_for_lisp(void)
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2209 {
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2210 #ifdef FEAT_EVAL
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2211 return curbuf->b_p_lisp
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2212 && *curbuf->b_p_inde != NUL
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2213 && STRCMP(curbuf->b_p_lop, "expr:1") == 0;
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2214 #else
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2215 return FALSE;
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2216 #endif
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2217 }
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2218
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2219 /*
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26775 diff changeset	2220 * Fix indent for 'lisp' and 'cindent'.
bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26775 diff changeset	2221 */
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2222 void
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2223 fix_indent(void)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2224 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2225 if (p_paste)
30853 40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2226 return; // no auto-indenting when 'paste' is set
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2227 if (curbuf->b_p_lisp && curbuf->b_p_ai)
30853 40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2228 {
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2229 if (use_indentexpr_for_lisp())
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2230 do_c_expr_indent();
30853 40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2231 else
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2232 fixthisline(get_lisp_indent);
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2233 }
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2234 else if (cindent_on())
40df8a6515f6 patch 9.0.0761: cannot use 'indentexpr' for Lisp indenting Bram Moolenaar <Bram@vim.org> parents: 30805 diff changeset	2235 do_c_expr_indent();
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2236 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2237
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2238 #if defined(FEAT_EVAL) \|\| defined(PROTO)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2239 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2240 * "indent()" function
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2241 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2242 void
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2243 f_indent(typval_T argvars, typval_T rettv)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2244 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2245 linenr_T lnum;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2246
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25322 diff changeset	2247 if (in_vim9script() && check_for_lnum_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: 25322 diff changeset	2248 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25322 diff changeset	2249
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2250 lnum = tv_get_lnum(argvars);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2251 if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2252 rettv->vval.v_number = get_indent_lnum(lnum);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2253 else
26775 2df40c348c70 patch 8.2.3916: no error for passing an invalid line number to append() Bram Moolenaar <Bram@vim.org> parents: 25735 diff changeset	2254 {
2df40c348c70 patch 8.2.3916: no error for passing an invalid line number to append() Bram Moolenaar <Bram@vim.org> parents: 25735 diff changeset	2255 if (in_vim9script())
2df40c348c70 patch 8.2.3916: no error for passing an invalid line number to append() Bram Moolenaar <Bram@vim.org> parents: 25735 diff changeset	2256 semsg(_(e_invalid_line_number_nr), lnum);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2257 rettv->vval.v_number = -1;
26775 2df40c348c70 patch 8.2.3916: no error for passing an invalid line number to append() Bram Moolenaar <Bram@vim.org> parents: 25735 diff changeset	2258 }
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2259 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2260
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2261 /*
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2262 * "lispindent(lnum)" function
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2263 */
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2264 void
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2265 f_lispindent(typval_T argvars UNUSED, typval_T rettv)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2266 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2267 pos_T pos;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2268 linenr_T lnum;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2269
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25322 diff changeset	2270 if (in_vim9script() && check_for_lnum_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: 25322 diff changeset	2271 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25322 diff changeset	2272
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2273 pos = curwin->w_cursor;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2274 lnum = tv_get_lnum(argvars);
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2275 if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count)
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2276 {
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2277 curwin->w_cursor.lnum = lnum;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2278 rettv->vval.v_number = get_lisp_indent();
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2279 curwin->w_cursor = pos;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2280 }
26775 2df40c348c70 patch 8.2.3916: no error for passing an invalid line number to append() Bram Moolenaar <Bram@vim.org> parents: 25735 diff changeset	2281 else if (in_vim9script())
2df40c348c70 patch 8.2.3916: no error for passing an invalid line number to append() Bram Moolenaar <Bram@vim.org> parents: 25735 diff changeset	2282 semsg(_(e_invalid_line_number_nr), lnum);
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2283 else
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2284 rettv->vval.v_number = -1;
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2285 }
fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	2286 #endif

Mercurial > vim

annotate src/indent.c @ 35074:918b5b6ed9a4 default tip