vim: src/undo.c annotate

author	Christian Brabandt <cb@256bit.org>
date	Mon, 26 Jun 2023 09:54:34 +0200
parents	bb5458706799
children	695b50472e85

rev	line source
32669 448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	2 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	4 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	7 * See README.txt for an overview of the Vim source code.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	8 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	9
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	10 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	11 * undo.c: multi level undo facility
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	12 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	13 * The saved lines are stored in a list of lists (one for each buffer):
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	14 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	15 * b_u_oldhead------------------------------------------------+
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	16 * \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	17 * V
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	18 * +--------------+ +--------------+ +--------------+
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	19 * b_u_newhead--->\| u_header \| \| u_header \| \| u_header \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	20 * \| uh_next------>\| uh_next------>\| uh_next---->NULL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	21 * NULL<--------uh_prev \|<---------uh_prev \|<---------uh_prev \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	22 * \| uh_entry \| \| uh_entry \| \| uh_entry \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	23 * +--------\|-----+ +--------\|-----+ +--------\|-----+
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	24 * \| \| \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	25 * V V V
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	26 * +--------------+ +--------------+ +--------------+
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	27 * \| u_entry \| \| u_entry \| \| u_entry \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	28 * \| ue_next \| \| ue_next \| \| ue_next \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	29 * +--------\|-----+ +--------\|-----+ +--------\|-----+
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	30 * \| \| \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	31 * V V V
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	32 * +--------------+ NULL NULL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	33 * \| u_entry \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	34 * \| ue_next \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	35 * +--------\|-----+
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	36 * \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	37 * V
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	38 * etc.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	39 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	40 * Each u_entry list contains the information for one undo or redo.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	41 * curbuf->b_u_curhead points to the header of the last undo (the next redo),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	42 * or is NULL if nothing has been undone (end of the branch).
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	43 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	44 * For keeping alternate undo/redo branches the uh_alt field is used. Thus at
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	45 * each point in the list a branch may appear for an alternate to redo. The
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	46 * uh_seq field is numbered sequentially to be able to find a newer or older
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	47 * branch.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	48 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	49 * +---------------+ +---------------+
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	50 * b_u_oldhead --->\| u_header \| \| u_header \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	51 * \| uh_alt_next ---->\| uh_alt_next ----> NULL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	52 * NULL <----- uh_alt_prev \|<------ uh_alt_prev \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	53 * \| uh_prev \| \| uh_prev \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	54 * +-----\|---------+ +-----\|---------+
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	55 * \| \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	56 * V V
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	57 * +---------------+ +---------------+
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	58 * \| u_header \| \| u_header \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	59 * \| uh_alt_next \| \| uh_alt_next \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	60 * b_u_newhead --->\| uh_alt_prev \| \| uh_alt_prev \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	61 * \| uh_prev \| \| uh_prev \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	62 * +-----\|---------+ +-----\|---------+
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	63 * \| \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	64 * V V
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	65 * NULL +---------------+ +---------------+
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	66 * \| u_header \| \| u_header \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	67 * \| uh_alt_next ---->\| uh_alt_next \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	68 * \| uh_alt_prev \|<------ uh_alt_prev \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	69 * \| uh_prev \| \| uh_prev \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	70 * +-----\|---------+ +-----\|---------+
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	71 * \| \|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	72 * etc. etc.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	73 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	74 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	75 * All data is allocated and will all be freed when the buffer is unloaded.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	76 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	77
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	78 // Uncomment the next line for including the u_check() function. This warns
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	79 // for errors in the debug information.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	80 // #define U_DEBUG 1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	81 #define UH_MAGIC 0x18dade // value for uh_magic when in use
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	82 #define UE_MAGIC 0xabc123 // value for ue_magic when in use
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	83
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	84 // Size of buffer used for encryption.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	85 #define CRYPT_BUF_SIZE 8192
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	86
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	87 #include "vim.h"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	88
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	89 // Structure passed around between functions.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	90 // Avoids passing cryptstate_T when encryption not available.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	91 typedef struct {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	92 buf_T *bi_buf;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	93 FILE *bi_fp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	94 #ifdef FEAT_CRYPT
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	95 cryptstate_T *bi_state;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	96 char_u *bi_buffer; // CRYPT_BUF_SIZE, NULL when not buffering
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	97 size_t bi_used; // bytes written to/read from bi_buffer
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	98 size_t bi_avail; // bytes available in bi_buffer
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	99 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	100 } bufinfo_T;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	101
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	102
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	103 static void u_unch_branch(u_header_T *uhp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	104 static u_entry_T *u_get_headentry(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	105 static void u_getbot(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	106 static void u_doit(int count);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	107 static void u_undoredo(int undo);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	108 static void u_undo_end(int did_undo, int absolute);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	109 static void u_freeheader(buf_T buf, u_header_T uhp, u_header_T **uhpp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	110 static void u_freebranch(buf_T buf, u_header_T uhp, u_header_T **uhpp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	111 static void u_freeentries(buf_T buf, u_header_T uhp, u_header_T **uhpp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	112 static void u_freeentry(u_entry_T *, long);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	113 #ifdef FEAT_PERSISTENT_UNDO
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	114 # ifdef FEAT_CRYPT
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	115 static int undo_flush(bufinfo_T *bi);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	116 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	117 static int undo_read(bufinfo_T bi, char_u buffer, size_t size);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	118 static int serialize_uep(bufinfo_T bi, u_entry_T uep);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	119 static u_entry_T unserialize_uep(bufinfo_T bi, int error, char_u file_name);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	120 static void serialize_pos(bufinfo_T *bi, pos_T pos);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	121 static void unserialize_pos(bufinfo_T bi, pos_T pos);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	122 static void serialize_visualinfo(bufinfo_T bi, visualinfo_T info);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	123 static void unserialize_visualinfo(bufinfo_T bi, visualinfo_T info);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	124 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	125 static void u_saveline(linenr_T lnum);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	126
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	127 #define U_ALLOC_LINE(size) lalloc(size, FALSE)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	128
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	129 // used in undo_end() to report number of added and deleted lines
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	130 static long u_newcount, u_oldcount;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	131
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	132 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	133 * When 'u' flag included in 'cpoptions', we behave like vi. Need to remember
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	134 * the action that "u" should do.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	135 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	136 static int undo_undoes = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	137
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	138 static int lastmark = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	139
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	140 #if defined(U_DEBUG) \|\| defined(PROTO)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	141 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	142 * Check the undo structures for being valid. Print a warning when something
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	143 * looks wrong.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	144 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	145 static int seen_b_u_curhead;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	146 static int seen_b_u_newhead;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	147 static int header_count;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	148
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	149 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	150 u_check_tree(u_header_T *uhp,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	151 u_header_T *exp_uh_next,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	152 u_header_T *exp_uh_alt_prev)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	153 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	154 u_entry_T *uep;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	155
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	156 if (uhp == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	157 return;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	158 ++header_count;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	159 if (uhp == curbuf->b_u_curhead && ++seen_b_u_curhead > 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	160 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	161 emsg("b_u_curhead found twice (looping?)");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	162 return;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	163 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	164 if (uhp == curbuf->b_u_newhead && ++seen_b_u_newhead > 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	165 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	166 emsg("b_u_newhead found twice (looping?)");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	167 return;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	168 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	169
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	170 if (uhp->uh_magic != UH_MAGIC)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	171 emsg("uh_magic wrong (may be using freed memory)");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	172 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	173 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	174 // Check pointers back are correct.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	175 if (uhp->uh_next.ptr != exp_uh_next)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	176 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	177 emsg("uh_next wrong");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	178 smsg("expected: 0x%x, actual: 0x%x",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	179 exp_uh_next, uhp->uh_next.ptr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	180 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	181 if (uhp->uh_alt_prev.ptr != exp_uh_alt_prev)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	182 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	183 emsg("uh_alt_prev wrong");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	184 smsg("expected: 0x%x, actual: 0x%x",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	185 exp_uh_alt_prev, uhp->uh_alt_prev.ptr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	186 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	187
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	188 // Check the undo tree at this header.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	189 for (uep = uhp->uh_entry; uep != NULL; uep = uep->ue_next)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	190 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	191 if (uep->ue_magic != UE_MAGIC)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	192 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	193 emsg("ue_magic wrong (may be using freed memory)");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	194 break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	195 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	196 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	197
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	198 // Check the next alt tree.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	199 u_check_tree(uhp->uh_alt_next.ptr, uhp->uh_next.ptr, uhp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	200
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	201 // Check the next header in this branch.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	202 u_check_tree(uhp->uh_prev.ptr, uhp, NULL);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	203 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	204 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	205
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	206 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	207 u_check(int newhead_may_be_NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	208 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	209 seen_b_u_newhead = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	210 seen_b_u_curhead = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	211 header_count = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	212
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	213 u_check_tree(curbuf->b_u_oldhead, NULL, NULL);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	214
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	215 if (seen_b_u_newhead == 0 && curbuf->b_u_oldhead != NULL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	216 && !(newhead_may_be_NULL && curbuf->b_u_newhead == NULL))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	217 semsg("b_u_newhead invalid: 0x%x", curbuf->b_u_newhead);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	218 if (curbuf->b_u_curhead != NULL && seen_b_u_curhead == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	219 semsg("b_u_curhead invalid: 0x%x", curbuf->b_u_curhead);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	220 if (header_count != curbuf->b_u_numhead)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	221 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	222 emsg("b_u_numhead invalid");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	223 smsg("expected: %ld, actual: %ld",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	224 (long)header_count, (long)curbuf->b_u_numhead);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	225 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	226 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	227 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	228
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	229 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	230 * Save the current line for both the "u" and "U" command.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	231 * Careful: may trigger autocommands that reload the buffer.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	232 * Returns OK or FAIL.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	233 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	234 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	235 u_save_cursor(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	236 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	237 return (u_save((linenr_T)(curwin->w_cursor.lnum - 1),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	238 (linenr_T)(curwin->w_cursor.lnum + 1)));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	239 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	240
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	241 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	242 * Save the lines between "top" and "bot" for both the "u" and "U" command.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	243 * "top" may be 0 and "bot" may be curbuf->b_ml.ml_line_count + 1.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	244 * Careful: may trigger autocommands that reload the buffer.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	245 * Returns FAIL when lines could not be saved, OK otherwise.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	246 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	247 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	248 u_save(linenr_T top, linenr_T bot)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	249 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	250 if (undo_off)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	251 return OK;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	252
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	253 if (top >= bot \|\| bot > curbuf->b_ml.ml_line_count + 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	254 return FAIL; // rely on caller to give an error message
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	255
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	256 if (top + 2 == bot)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	257 u_saveline((linenr_T)(top + 1));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	258
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	259 return (u_savecommon(top, bot, (linenr_T)0, FALSE));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	260 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	261
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	262 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	263 * Save the line "lnum" (used by ":s" and "~" command).
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	264 * The line is replaced, so the new bottom line is lnum + 1.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	265 * Careful: may trigger autocommands that reload the buffer.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	266 * Returns FAIL when lines could not be saved, OK otherwise.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	267 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	268 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	269 u_savesub(linenr_T lnum)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	270 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	271 if (undo_off)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	272 return OK;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	273
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	274 return (u_savecommon(lnum - 1, lnum + 1, lnum + 1, FALSE));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	275 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	276
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	277 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	278 * A new line is inserted before line "lnum" (used by :s command).
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	279 * The line is inserted, so the new bottom line is lnum + 1.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	280 * Careful: may trigger autocommands that reload the buffer.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	281 * Returns FAIL when lines could not be saved, OK otherwise.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	282 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	283 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	284 u_inssub(linenr_T lnum)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	285 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	286 if (undo_off)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	287 return OK;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	288
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	289 return (u_savecommon(lnum - 1, lnum, lnum + 1, FALSE));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	290 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	291
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	292 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	293 * Save the lines "lnum" - "lnum" + nlines (used by delete command).
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	294 * The lines are deleted, so the new bottom line is lnum, unless the buffer
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	295 * becomes empty.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	296 * Careful: may trigger autocommands that reload the buffer.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	297 * Returns FAIL when lines could not be saved, OK otherwise.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	298 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	299 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	300 u_savedel(linenr_T lnum, long nlines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	301 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	302 if (undo_off)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	303 return OK;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	304
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	305 return (u_savecommon(lnum - 1, lnum + nlines,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	306 nlines == curbuf->b_ml.ml_line_count ? 2 : lnum, FALSE));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	307 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	308
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	309 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	310 * Return TRUE when undo is allowed. Otherwise give an error message and
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	311 * return FALSE.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	312 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	313 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	314 undo_allowed(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	315 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	316 // Don't allow changes when 'modifiable' is off.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	317 if (!curbuf->b_p_ma)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	318 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	319 emsg(_(e_cannot_make_changes_modifiable_is_off));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	320 return FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	321 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	322
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	323 #ifdef HAVE_SANDBOX
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	324 // In the sandbox it's not allowed to change the text.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	325 if (sandbox != 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	326 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	327 emsg(_(e_not_allowed_in_sandbox));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	328 return FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	329 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	330 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	331
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	332 // Don't allow changes in the buffer while editing the cmdline. The
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	333 // caller of getcmdline() may get confused.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	334 if (textlock != 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	335 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	336 emsg(_(e_not_allowed_to_change_text_or_change_window));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	337 return FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	338 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	339
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	340 return TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	341 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	342
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	343 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	344 * Get the undolevel value for the current buffer.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	345 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	346 static long
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	347 get_undolevel(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	348 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	349 if (curbuf->b_p_ul == NO_LOCAL_UNDOLEVEL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	350 return p_ul;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	351 return curbuf->b_p_ul;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	352 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	353
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	354 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	355 * u_save_line(): save an allocated copy of line "lnum" into "ul".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	356 * Returns FAIL when out of memory.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	357 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	358 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	359 u_save_line(undoline_T *ul, linenr_T lnum)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	360 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	361 char_u *line = ml_get(lnum);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	362
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	363 if (curbuf->b_ml.ml_line_len == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	364 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	365 ul->ul_len = 1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	366 ul->ul_line = vim_strsave((char_u *)"");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	367 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	368 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	369 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	370 // This uses the length in the memline, thus text properties are
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	371 // included.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	372 ul->ul_len = curbuf->b_ml.ml_line_len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	373 ul->ul_line = vim_memsave(line, ul->ul_len);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	374 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	375 return ul->ul_line == NULL ? FAIL : OK;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	376 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	377
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	378 #ifdef FEAT_PROP_POPUP
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	379 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	380 * return TRUE if line "lnum" has text property "flags".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	381 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	382 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	383 has_prop_w_flags(linenr_T lnum, int flags)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	384 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	385 char_u *props;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	386 int i;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	387 int proplen = get_text_props(curbuf, lnum, &props, FALSE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	388
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	389 for (i = 0; i < proplen; ++i)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	390 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	391 textprop_T prop;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	392
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	393 mch_memmove(&prop, props + i * sizeof prop, sizeof prop);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	394 if (prop.tp_flags & flags)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	395 return TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	396 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	397 return FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	398 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	399 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	400
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	401 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	402 * Common code for various ways to save text before a change.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	403 * "top" is the line above the first changed line.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	404 * "bot" is the line below the last changed line.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	405 * "newbot" is the new bottom line. Use zero when not known.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	406 * "reload" is TRUE when saving for a buffer reload.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	407 * Careful: may trigger autocommands that reload the buffer.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	408 * Returns FAIL when lines could not be saved, OK otherwise.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	409 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	410 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	411 u_savecommon(
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	412 linenr_T top,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	413 linenr_T bot,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	414 linenr_T newbot,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	415 int reload)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	416 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	417 linenr_T lnum;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	418 long i;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	419 u_header_T *uhp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	420 u_header_T *old_curhead;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	421 u_entry_T *uep;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	422 u_entry_T *prev_uep;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	423 long size;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	424
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	425 if (!reload)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	426 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	427 // When making changes is not allowed return FAIL. It's a crude way
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	428 // to make all change commands fail.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	429 if (!undo_allowed())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	430 return FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	431
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	432 #ifdef FEAT_NETBEANS_INTG
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	433 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	434 * Netbeans defines areas that cannot be modified. Bail out here when
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	435 * trying to change text in a guarded area.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	436 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	437 if (netbeans_active())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	438 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	439 if (netbeans_is_guarded(top, bot))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	440 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	441 emsg(_(e_region_is_guarded_cannot_modify));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	442 return FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	443 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	444 if (curbuf->b_p_ro)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	445 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	446 emsg(_(e_netbeans_does_not_allow_changes_in_read_only_files));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	447 return FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	448 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	449 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	450 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	451 #ifdef FEAT_TERMINAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	452 // A change in a terminal buffer removes the highlighting.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	453 term_change_in_curbuf();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	454 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	455
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	456 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	457 * Saving text for undo means we are going to make a change. Give a
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	458 * warning for a read-only file before making the change, so that the
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	459 * FileChangedRO event can replace the buffer with a read-write version
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	460 * (e.g., obtained from a source control system).
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	461 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	462 change_warning(0);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	463 if (bot > curbuf->b_ml.ml_line_count + 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	464 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	465 // This happens when the FileChangedRO autocommand changes the
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	466 // file in a way it becomes shorter.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	467 emsg(_(e_line_count_changed_unexpectedly));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	468 return FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	469 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	470 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	471
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	472 #ifdef U_DEBUG
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	473 u_check(FALSE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	474 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	475
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	476 #ifdef FEAT_PROP_POPUP
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	477 // Include the line above if a text property continues from it.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	478 // Include the line below if a text property continues to it.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	479 if (bot - top > 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	480 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	481 if (top > 0 && has_prop_w_flags(top + 1, TP_FLAG_CONT_PREV))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	482 --top;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	483 if (bot <= curbuf->b_ml.ml_line_count
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	484 && has_prop_w_flags(bot - 1, TP_FLAG_CONT_NEXT))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	485 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	486 ++bot;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	487 if (newbot != 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	488 ++newbot;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	489 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	490 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	491 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	492
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	493 size = bot - top - 1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	494
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	495 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	496 * If curbuf->b_u_synced == TRUE make a new header.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	497 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	498 if (curbuf->b_u_synced)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	499 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32525 diff changeset	500 // Need to create new entry in b_changelist.

32669

448aef880252 normalize line endings