vim: src/indent.c annotate

annotate src/indent.c @ 34641:b41af4b613da v9.1.0206

patch 9.1.0206: unused display_text_first boolean var in win_line() Commit: https://github.com/vim/vim/commit/c8b47f26d8ae0db2d65a1cd34d7e34a2c7a6b462 Author: Dylan Thacker-Smith <dylan.ah.smith@gmail.com> Date: Tue Mar 26 18:05:01 2024 +0100 patch 9.1.0206: unused display_text_first boolean var in win_line() Problem: unused display_text_first boolean var in win_line() Solution: Remove unused display_text_first boolean variable (Dylan Thacker-Smith) The only place it is used, uses its initial constant value, then the following conditionally values set to the variable are unused. Specifically, it was commit 234c3fab28c14846b962c90097496b27ee1b4df8 that changed the use of display_text_first such that it doesn't have any effect. closes: #14305 Signed-off-by: Dylan Thacker-Smith <dylan.ah.smith@gmail.com> Signed-off-by: Christian Brabandt <cb@256bit.org>

author	Christian Brabandt <cb@256bit.org>
date	Tue, 26 Mar 2024 18:15:05 +0100
parents	9e093c96dff6
children	bfd2c0032686

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)
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	166 return (col / ts) * ts;
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];
079e10a49ea1 patch 8.1.1966: some code in options.c fits better elsewhere Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	177 return excess + ((col - excess) / vts[tabcount]) * vts[tabcount];
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 @ 34641:b41af4b613da v9.1.0206