/* vi:set ts=4 sw=4:
 *
 * VIM - Vi IMproved		by Bram Moolenaar
 *
 * Do ":help uganda"  in Vim to read copying and usage conditions.
 * Do ":help credits" in Vim to see a list of people who contributed.
 */

/*
 * mark.c: functions for setting marks and jumping to them
 */

#include "vim.h"
#include "globals.h"
#include "proto.h"
#include "option.h"

/*
 * This file contains routines to maintain and manipulate marks.
 */

/*
 * If a named file mark's lnum is non-zero, it is valid.
 * If a named file mark's fnum is non-zero, it is for an existing buffer,
 * otherwise it is from .viminfo and namedfm_names[n] is the file name.
 * There are marks 'A - 'Z (set by user) and '0 to '9 (set when writing
 * viminfo).
 */
#define EXTRA_MARKS	10									/* marks 0-9 */
static struct filemark namedfm[NMARKS + EXTRA_MARKS];	/* marks with file nr */
static char_u *namedfm_names[NMARKS + EXTRA_MARKS];		/* name for namedfm[] */

static void show_one_mark __ARGS((int, char_u *, FPOS *, char_u *));
static void cleanup_jumplist __ARGS((void));
#ifdef VIMINFO
static int removable __ARGS((char_u *name));
#endif

/*
 * setmark(c) - set named mark 'c' at current cursor position
 *
 * Returns OK on success, FAIL if no room for mark or bad name given.
 */
	int
setmark(c)
	int			c;
{
	int 		i;

	if (c > 'z')			/* some islower() and isupper() cannot handle
								characters above 127 */
		return FAIL;
	if (islower(c))
	{
		i = c - 'a';
		curbuf->b_namedm[i] = curwin->w_cursor;
		return OK;
	}
	if (isupper(c))
	{
		i = c - 'A';
		namedfm[i].mark = curwin->w_cursor;
		namedfm[i].fnum = curbuf->b_fnum;
		return OK;
	}
	return FAIL;
}

/*
 * setpcmark() - set the previous context mark to the current position
 *				 and add it to the jump list
 */
	void
setpcmark()
{
	int i;
#ifdef ROTATE
	struct filemark tempmark;
#endif

	/* for :global the mark is set only once */
	if (global_busy)
		return;

	curwin->w_prev_pcmark = curwin->w_pcmark;
	curwin->w_pcmark = curwin->w_cursor;

#ifdef ROTATE
	/*
	 * If last used entry is not at the top, put it at the top by rotating
	 * the stack until it is (the newer entries will be at the bottom).
	 * Keep one entry (the last used one) at the top.
	 */
	if (curwin->w_jumplistidx < curwin->w_jumplistlen)
		++curwin->w_jumplistidx;
	while (curwin->w_jumplistidx < curwin->w_jumplistlen)
	{
		tempmark = curwin->w_jumplist[curwin->w_jumplistlen - 1];
		for (i = curwin->w_jumplistlen - 1; i > 0; --i)
			curwin->w_jumplist[i] = curwin->w_jumplist[i - 1];
		curwin->w_jumplist[0] = tempmark;
		++curwin->w_jumplistidx;
	}
#endif

	/* If jumplist is full: remove oldest entry */
	if (++curwin->w_jumplistlen > JUMPLISTSIZE)
	{
		curwin->w_jumplistlen = JUMPLISTSIZE;
		for (i = 1; i < JUMPLISTSIZE; ++i)
			curwin->w_jumplist[i - 1] = curwin->w_jumplist[i];
	}
	curwin->w_jumplistidx = curwin->w_jumplistlen - 1;

#ifdef ARCHIE
	/* Workaround for a bug in gcc 2.4.5 R2 on the Archimedes
	 * Should be fixed in 2.5.x.
	 */
	curwin->w_jumplist[curwin->w_jumplistidx].mark.ptr = curwin->w_pcmark.ptr;
	curwin->w_jumplist[curwin->w_jumplistidx].mark.col = curwin->w_pcmark.col;
#else
	curwin->w_jumplist[curwin->w_jumplistidx].mark = curwin->w_pcmark;
#endif
	curwin->w_jumplist[curwin->w_jumplistidx].fnum = curbuf->b_fnum;
	++curwin->w_jumplistidx;

	/* remove any duplicates, from the new entry or from previous deletes */
	cleanup_jumplist();
}

/*
 * checkpcmark() - To change context, call setpcmark(), then move the current
 *				   position to where ever, then call checkpcmark().  This
 *				   ensures that the previous context will only be changed if
 *				   the cursor moved to a different line. -- webb.
 *				   If pcmark was deleted (with "dG") the previous mark is
 *				   restored.
 */
	void
checkpcmark()
{
	if (curwin->w_prev_pcmark.lnum != 0 &&
			(equal(curwin->w_pcmark, curwin->w_cursor) ||
			curwin->w_pcmark.lnum == 0))
	{
		curwin->w_pcmark = curwin->w_prev_pcmark;
		curwin->w_prev_pcmark.lnum = 0;			/* Show it has been checked */
	}
}

/*
 * move "count" positions in the jump list (count may be negative)
 */
	FPOS *
movemark(count)
	int count;
{
	FPOS		*pos;

	cleanup_jumplist();

	if (curwin->w_jumplistlen == 0)			/* nothing to jump to */
		return (FPOS *)NULL;

	if (curwin->w_jumplistidx + count < 0 ||
						curwin->w_jumplistidx + count >= curwin->w_jumplistlen)
		return (FPOS *)NULL;

	/*
	 * if first CTRL-O or CTRL-I command after a jump, add cursor position to
	 * list.  Careful: If there are duplicates (CTRL-O immidiately after
	 * starting Vim on a file), another entry may have been removed.
	 */
	if (curwin->w_jumplistidx == curwin->w_jumplistlen)
	{
		setpcmark();
		--curwin->w_jumplistidx;		/* skip the new entry */
		if (curwin->w_jumplistidx + count < 0)
			return (FPOS *)NULL;
	}

	curwin->w_jumplistidx += count;
												/* jump to other file */
	if (curwin->w_jumplist[curwin->w_jumplistidx].fnum != curbuf->b_fnum)
	{
		if (buflist_getfile(curwin->w_jumplist[curwin->w_jumplistidx].fnum,
						  curwin->w_jumplist[curwin->w_jumplistidx].mark.lnum,
															0, FALSE) == FAIL)
			return (FPOS *)NULL;
		curwin->w_cursor.col =
						   curwin->w_jumplist[curwin->w_jumplistidx].mark.col;
		pos = (FPOS *)-1;
	}
	else
		pos = &(curwin->w_jumplist[curwin->w_jumplistidx].mark);
	return pos;
}

/*
 * getmark(c) - find mark for char 'c'
 *
 * Return pointer to FPOS if found (caller needs to check lnum!)
 *        NULL if there is no mark called 'c'.
 *        -1 if mark is in other file (only if changefile is TRUE)
 */
	FPOS *
getmark(c, changefile)
	int			c;
	int			changefile;
{
	FPOS			*posp;
	FPOS			*startp, *endp;
	static	FPOS	pos_copy;
	int				len;
	char_u			*p;

	posp = NULL;
	if (c > '~')						/* check for islower()/isupper() */
		;
	else if (c == '\'' || c == '`')		/* previous context mark */
	{
		pos_copy = curwin->w_pcmark;	/* need to make a copy because */
		posp = &pos_copy;				/*   w_pcmark may be changed soon */
	}
	else if (c == '"')					/* to pos when leaving buffer */
		posp = &(curbuf->b_last_cursor);
	else if (c == '[')					/* to start of previous operator */
		posp = &(curbuf->b_op_start);
	else if (c == ']')					/* to end of previous operator */
		posp = &(curbuf->b_op_end);
	else if (c == '<' || c == '>')		/* start/end of visual area */
	{
		if (VIsual_active)
			startp = &VIsual_save;
		else
			startp = &VIsual;
		endp = &VIsual_end;
		if ((c == '<') == lt(*startp, *endp))
			posp = startp;
		else
			posp = endp;
	}
	else if (islower(c))				/* normal named mark */
		posp = &(curbuf->b_namedm[c - 'a']);
	else if (isupper(c) || isdigit(c))	/* named file mark */
	{
		if (isdigit(c))
			c = c - '0' + NMARKS;
		else
			c -= 'A';
		posp = &(namedfm[c].mark);

		if (namedfm[c].fnum == 0 && namedfm_names[c] != NULL)
		{
			/*
			 * First expand "~/" in the file name to the home directory.
			 * Try to find the shortname by comparing the fullname with the
			 * current directory.
			 */
			expand_env(namedfm_names[c], NameBuff, MAXPATHL);
			mch_dirname(IObuff, IOSIZE);
			len = STRLEN(IObuff);
			if (fnamencmp(IObuff, NameBuff, len) == 0)
			{
				p = NameBuff + len;
				if (ispathsep(*p))
					++p;
				else			/* dirname is shorter, not a match */
					p = NULL;
			}
			else
				p = NULL;
								/* buflist_new will call fmarks_check_names() */
			(void)buflist_new(NameBuff, p, (linenr_t)1, FALSE);
		}

		if (namedfm[c].fnum != curbuf->b_fnum)		/* mark is in other file */
		{
			if (namedfm[c].mark.lnum != 0 && changefile && namedfm[c].fnum)
			{
				if (buflist_getfile(namedfm[c].fnum,
							 namedfm[c].mark.lnum, GETF_SETMARK, FALSE) == OK)
				{
					curwin->w_cursor.col = namedfm[c].mark.col;
					return (FPOS *)-1;
				}
			}
			posp = &pos_copy;			/* mark exists, but is not valid in
											current buffer */
			pos_copy.lnum = 0;
		}
	}
	return posp;
}

/*
 * Check all file marks for a name that matches the file name in buf.
 * May replace the name with an fnum.
 */
	void
fmarks_check_names(buf)
	BUF 	*buf;
{
	char_u		*name;
	int			i;

	if (buf->b_filename == NULL)
		return;

	name = home_replace_save(buf, buf->b_filename);
	if (name == NULL)
		return;

	for (i = 0; i < NMARKS + EXTRA_MARKS; ++i)
	{
		if (namedfm[i].fnum == 0 && namedfm_names[i] != NULL &&
										fnamecmp(name, namedfm_names[i]) == 0)
		{
			namedfm[i].fnum = buf->b_fnum;
			vim_free(namedfm_names[i]);
			namedfm_names[i] = NULL;
		}
	}
	vim_free(name);
}

/*
 * Check a if a position from a mark is valid.
 * Give and error message and return FAIL if not.
 */
	int
check_mark(pos)
	FPOS	*pos;
{
	if (pos == NULL)
	{
		emsg(e_umark);
		return FAIL;
	}
	if (pos->lnum == 0)
	{
		emsg(e_marknotset);
		return FAIL;
	}
	if (pos->lnum > curbuf->b_ml.ml_line_count)
	{
		emsg(e_markinval);
		return FAIL;
	}
	return OK;
}

/*
 * clrallmarks() - clear all marks in the buffer 'buf'
 *
 * Used mainly when trashing the entire buffer during ":e" type commands
 */
	void
clrallmarks(buf)
	BUF		*buf;
{
	static int 			i = -1;

	if (i == -1)		/* first call ever: initialize */
		for (i = 0; i < NMARKS + 1; i++)
		{
			namedfm[i].mark.lnum = 0;
			namedfm_names[i] = NULL;
		}

	for (i = 0; i < NMARKS; i++)
		buf->b_namedm[i].lnum = 0;
	buf->b_op_start.lnum = 0;		/* start/end op mark cleared */
	buf->b_op_end.lnum = 0;
}

/*
 * get name of file from a filemark
 * Careful: buflist_nr2name returns NameBuff.
 */
	char_u *
fm_getname(fmark)
	struct filemark *fmark;
{
	if (fmark->fnum != curbuf->b_fnum)				/* not current file */
		return buflist_nr2name(fmark->fnum, FALSE, TRUE);
	return (char_u *)"-current-";
}

/*
 * print the marks
 */
	void
do_marks(arg)
	char_u		*arg;
{
	int			i;
	char_u		*name;

	if (arg != NULL && *arg == NUL)
		arg = NULL;

	show_one_mark('\'', arg, &curwin->w_pcmark, NULL);
	for (i = 0; i < NMARKS; ++i)
		show_one_mark(i + 'a', arg, &curbuf->b_namedm[i], NULL);
	for (i = 0; i < NMARKS + EXTRA_MARKS; ++i)
	{
		name = namedfm[i].fnum == 0 ? namedfm_names[i] :
													  fm_getname(&namedfm[i]);
		if (name != NULL)
			show_one_mark(i >= NMARKS ? i - NMARKS + '0' : i + 'A',
												 arg, &namedfm[i].mark, name);
	}
	show_one_mark('"', arg, &curbuf->b_last_cursor, NULL);
	show_one_mark('[', arg, &curbuf->b_op_start, NULL);
	show_one_mark(']', arg, &curbuf->b_op_end, NULL);
	show_one_mark('<', arg, &VIsual, NULL);
	show_one_mark('>', arg, &VIsual_end, NULL);
	show_one_mark(-1, arg, NULL, NULL);
}

	static void
show_one_mark(c, arg, p, name)
	int		c;
	char_u	*arg;
	FPOS	*p;
	char_u	*name;
{
	static int		did_title = FALSE;

	if (c == -1)							/* finish up */
	{
		if (did_title)
			did_title = FALSE;
		else
		{
			if (arg == NULL)
				MSG("No marks set");
			else
				EMSG2("No marks matching \"%s\"", arg);
		}
	}
	/* don't output anything if 'q' typed at --more-- prompt */
	else if (!got_int && (arg == NULL || vim_strchr(arg, c) != NULL) &&
																 p->lnum != 0)
	{
		if (!did_title)
		{
			set_highlight('t');				/* Highlight title */
			start_highlight();
			MSG_OUTSTR("\nmark line  col file");
			stop_highlight();
			did_title = TRUE;
		}
		msg_outchar('\n');
		if (!got_int)
		{
			sprintf((char *)IObuff, " %c %5ld  %3d  ", c, p->lnum, p->col);
			if (name != NULL)
				STRCAT(IObuff, name);
			msg_outtrans(IObuff);
		}
		flushbuf();					/* show one line at a time */
	}
}

/*
 * print the jumplist
 */
	void
do_jumps()
{
	int			i;
	char_u		*name;

	cleanup_jumplist();
	set_highlight('t');		/* Highlight title */
	start_highlight();
	MSG_OUTSTR("\n jump line  file");
	stop_highlight();
	for (i = 0; i < curwin->w_jumplistlen; ++i)
	{
		if (curwin->w_jumplist[i].mark.lnum != 0)
		{
			name = fm_getname(&curwin->w_jumplist[i]);
			if (name == NULL)		/* file name not available */
				continue;

			msg_outchar('\n');
			sprintf((char *)IObuff, "%c %2d %5ld  %s",
				i == curwin->w_jumplistidx ? '>' : ' ',
				i + 1,
				curwin->w_jumplist[i].mark.lnum,
				name);
			msg_outtrans(IObuff);
		}
		flushbuf();
	}
	if (curwin->w_jumplistidx == curwin->w_jumplistlen)
		MSG_OUTSTR("\n>");
}

/*
 * adjust marks between line1 and line2 (inclusive) to move 'amount' lines
 * If 'amount' is MAXLNUM the mark is made invalid.
 * If 'amount_after' is non-zero adjust marks after line 2.
 */

#define one_adjust(add) \
	{ \
		lp = add; \
		if (*lp >= line1 && *lp <= line2) \
		{ \
			if (amount == MAXLNUM) \
				*lp = 0; \
			else \
				*lp += amount; \
		} \
		else if (amount_after && *lp > line2) \
			*lp += amount_after; \
	}

/* don't delete the line, just put at first deleted line */
#define one_adjust_nodel(add) \
	{ \
		lp = add; \
		if (*lp >= line1 && *lp <= line2) \
		{ \
			if (amount == MAXLNUM) \
				*lp = line1; \
			else \
				*lp += amount; \
		} \
		else if (amount_after && *lp > line2) \
			*lp += amount_after; \
	}

	void
mark_adjust(line1, line2, amount, amount_after)
	linenr_t	line1;
	linenr_t	line2;
	long		amount;
	long		amount_after;
{
	int			i;
	int			fnum = curbuf->b_fnum;
	linenr_t	*lp;
	WIN			*win;

	if (line2 < line1 && amount_after == 0L)		/* nothing to do */
		return;

/* named marks, lower case and upper case */
	for (i = 0; i < NMARKS; i++)
	{
		one_adjust(&(curbuf->b_namedm[i].lnum));
		if (namedfm[i].fnum == fnum)
			one_adjust(&(namedfm[i].mark.lnum));
	}
	for (i = NMARKS; i < NMARKS + EXTRA_MARKS; i++)
	{
		if (namedfm[i].fnum == fnum)
			one_adjust(&(namedfm[i].mark.lnum));
	}

/* previous context mark */
	one_adjust(&(curwin->w_pcmark.lnum));

/* previous pcmark */
	one_adjust(&(curwin->w_prev_pcmark.lnum));

/* Visual area */
	one_adjust_nodel(&(VIsual.lnum));
	one_adjust_nodel(&(VIsual_end.lnum));

/* marks in the tag stack */
	for (i = 0; i < curwin->w_tagstacklen; i++)
		if (curwin->w_tagstack[i].fmark.fnum == fnum)
			one_adjust_nodel(&(curwin->w_tagstack[i].fmark.mark.lnum));

/* quickfix marks */
	qf_mark_adjust(line1, line2, amount, amount_after);

/* jumplist marks */
	for (win = firstwin; win != NULL; win = win->w_next)
	{
		/*
		 * When deleting lines, this may create duplicate marks in the
		 * jumplist. They will be removed later.
		 */
		for (i = 0; i < win->w_jumplistlen; ++i)
			if (win->w_jumplist[i].fnum == fnum)
				one_adjust_nodel(&(win->w_jumplist[i].mark.lnum));
		/*
		 * also adjust the line at the top of the window and the cursor
		 * position for windows with the same buffer.
		 */
		if (win != curwin && win->w_buffer == curbuf)
		{
			if (win->w_topline >= line1 && win->w_topline <= line2)
			{
				if (amount == MAXLNUM)		/* topline is deleted */
				{
					if (line1 <= 1)
						win->w_topline = 1;
					else
						win->w_topline = line1 - 1;
				}
				else					/* keep topline on the same line */
					win->w_topline += amount;
			}
			else if (amount_after && win->w_topline > line2)
				win->w_topline += amount_after;
			if (win->w_cursor.lnum >= line1 && win->w_cursor.lnum <= line2)
			{
				if (amount == MAXLNUM)		/* line with cursor is deleted */
				{
					if (line1 <= 1)
						win->w_cursor.lnum = 1;
					else
						win->w_cursor.lnum = line1 - 1;
					win->w_cursor.col = 0;
				}
				else					/* keep cursor on the same line */
					win->w_cursor.lnum += amount;
			}
			else if (amount_after && win->w_cursor.lnum > line2)
				win->w_cursor.lnum += amount_after;
		}
	}
}

/*
 * When deleting lines, this may create duplicate marks in the
 * jumplist. They will be removed here for the current window.
 */
	static void
cleanup_jumplist()
{
	int		i;
	int		from, to;

	to = 0;
	for (from = 0; from < curwin->w_jumplistlen; ++from)
	{
		if (curwin->w_jumplistidx == from)
			curwin->w_jumplistidx = to;
		for (i = from + 1; i < curwin->w_jumplistlen; ++i)
			if (curwin->w_jumplist[i].fnum == curwin->w_jumplist[from].fnum &&
				curwin->w_jumplist[i].mark.lnum ==
										   curwin->w_jumplist[from].mark.lnum)
				break;
		if (i >= curwin->w_jumplistlen)		/* no duplicate */
			curwin->w_jumplist[to++] = curwin->w_jumplist[from];
	}
	if (curwin->w_jumplistidx == curwin->w_jumplistlen)
		curwin->w_jumplistidx = to;
	curwin->w_jumplistlen = to;
}

	void
set_last_cursor(win)
	WIN		*win;
{
	win->w_buffer->b_last_cursor = win->w_cursor;
}

#ifdef VIMINFO
	int
read_viminfo_filemark(line, fp, force)
	char_u	*line;
	FILE	*fp;
	int		force;
{
	int		idx;
	char_u	*str;

	/* We only get here (hopefully) if line[0] == '\'' */
	str = line + 1;
	if (*str > 127 || (!isdigit(*str) && !isupper(*str)))
	{
		if (viminfo_error("Illegal file mark name", line))
			return TRUE;		/* Too many errors, pretend end-of-file */
	}
	else
	{
		if (isdigit(*str))
			idx = *str - '0' + NMARKS;
		else
			idx = *str - 'A';
		if (namedfm[idx].mark.lnum == 0 || force)
		{
			str = skipwhite(str + 1);
			namedfm[idx].mark.lnum = getdigits(&str);
			str = skipwhite(str);
			namedfm[idx].mark.col = getdigits(&str);
			str = skipwhite(str);
			viminfo_readstring(line);
			namedfm_names[idx] = strsave(str);
		}
	}
	return vim_fgets(line, LSIZE, fp);
}

	void
write_viminfo_filemarks(fp)
	FILE	*fp;
{
	int		i;
	char_u	*name;

	if (get_viminfo_parameter('\'') == 0)
		return;

	fprintf(fp, "\n# File marks:\n");

	/*
	 * Find a mark that is the same file and position as the cursor.
	 * That one, or else the last one is deleted.
	 * Move '0 to '1, '1 to '2, etc. until the matching one or '9
	 * Set '0 mark to current cursor position.
	 */
	if (curbuf->b_filename != NULL && !removable(curbuf->b_filename))
	{
		name = buflist_nr2name(curbuf->b_fnum, TRUE, FALSE);
		for (i = NMARKS; i < NMARKS + EXTRA_MARKS - 1; ++i)
			if (namedfm[i].mark.lnum == curwin->w_cursor.lnum &&
							(namedfm_names[i] == NULL ?
										   namedfm[i].fnum == curbuf->b_fnum :
										  STRCMP(name, namedfm_names[i]) == 0))
				break;

		vim_free(namedfm_names[i]);
		for ( ; i > NMARKS; --i)
		{
			namedfm[i] = namedfm[i - 1];
			namedfm_names[i] = namedfm_names[i - 1];
		}
		namedfm[NMARKS].mark = curwin->w_cursor;
		namedfm[NMARKS].fnum = curbuf->b_fnum;
		namedfm_names[NMARKS] = NULL;
	}

	for (i = 0; i < NMARKS + EXTRA_MARKS; i++)
	{
		if (namedfm[i].mark.lnum == 0)			/* not set */
			continue;

		if (namedfm[i].fnum)					/* there is a buffer */
			name = buflist_nr2name(namedfm[i].fnum, TRUE, FALSE);
		else
			name = namedfm_names[i];			/* use name from .viminfo */
		if (name == NULL)
			continue;

		fprintf(fp, "'%c  %ld  %ld  %s\n",
					i < NMARKS ? i + 'A' : i - NMARKS + '0',
					(long)namedfm[i].mark.lnum,
					(long)namedfm[i].mark.col,
					name);
	}
}

/*
 * Return TRUE if "name" is on removable media (depending on 'viminfo').
 */
	static int
removable(name)
	char_u	*name;
{
	char_u	*p;
	char_u	part[51];
	int		retval = FALSE;

	name = home_replace_save(NULL, name);
	if (name != NULL)
	{
		for (p = p_viminfo; *p; )
		{
			copy_option_part(&p, part, 51, ", ");
			if (part[0] == 'r' && vim_strnicmp(part + 1, name,
					(size_t)STRLEN(part + 1)) == 0)
			{
				retval = TRUE;
				break;
			}
		}
		vim_free(name);
	}
	return retval;
}

/*
 * Write all the named marks for all buffers.
 * Return the number of buffers for which marks have been written.
 */
	int
write_viminfo_marks(fp_out)
	FILE	*fp_out;
{
	int		count;
	BUF		*buf;
	WIN		*win;
	int		is_mark_set;
	int		i;

	/*
	 * Set b_last_cursor for the all buffers that have a window.
	 */
	for (win = firstwin; win != NULL; win = win->w_next)
		set_last_cursor(win);

	fprintf(fp_out, "\n# History of marks within files (newest to oldest):\n");
	count = 0;
	for (buf = firstbuf; buf != NULL; buf = buf->b_next)
	{
		/*
		 * Only write something if buffer has been loaded and at least one
		 * mark is set.
		 */
		if (buf->b_marks_read)
		{
			if (buf->b_last_cursor.lnum != 0)
				is_mark_set = TRUE;
			else
			{
				is_mark_set = FALSE;
				for (i = 0; i < NMARKS; i++)
					if (buf->b_namedm[i].lnum != 0)
					{
						is_mark_set = TRUE;
						break;
					}
			}
			if (is_mark_set && buf->b_filename != NULL &&
				 buf->b_filename[0] != NUL && !removable(buf->b_filename))
			{
				home_replace(NULL, buf->b_filename, IObuff, IOSIZE);
				fprintf(fp_out, "\n> %s\n", (char *)IObuff);
				if (buf->b_last_cursor.lnum != 0)
					fprintf(fp_out, "\t\"\t%ld\t%d\n",
							buf->b_last_cursor.lnum, buf->b_last_cursor.col);
				for (i = 0; i < NMARKS; i++)
					if (buf->b_namedm[i].lnum != 0)
						fprintf(fp_out, "\t%c\t%ld\t%d\n", 'a' + i,
								buf->b_namedm[i].lnum, buf->b_namedm[i].col);
				count++;
			}
		}
	}

	return count;
}

/*
 * Handle marks in the viminfo file:
 * fp_out == NULL	read marks for current buffer only
 * fp_out != NULL	copy marks for buffers not in buffer list
 */
	void
copy_viminfo_marks(line, fp_in, fp_out, count, eof)
	char_u		*line;
	FILE		*fp_in;
	FILE		*fp_out;
	int			count;
	int			eof;
{
	BUF			*buf;
	int			num_marked_files;
	char_u		save_char;
	int			load_marks;
	int			copy_marks_out;
	char_u		*str;
	int			i;
	char_u		*p;
	char_u		*name_buf;

	if ((name_buf = alloc(LSIZE)) == NULL)
		return;
	num_marked_files = get_viminfo_parameter('\'');
	while (!eof && (count < num_marked_files || fp_out == NULL))
	{
		if (line[0] != '>')
		{
			if (line[0] != '\n' && line[0] != '\r' && line[0] != '#')
			{
				if (viminfo_error("Missing '>'", line))
					break;		/* too many errors, return now */
			}
			eof = vim_fgets(line, LSIZE, fp_in);
			continue;			/* Skip this dud line */
		}

		/*
		 * Find filename, set str to start.
		 * Ignore leading and trailing white space.
		 */
		str = skipwhite(line + 1);
		p = str + STRLEN(str);
		while (p != str && (*p == NUL || vim_isspace(*p)))
			p--;
		if (*p)
			p++;
		save_char = *p;
		*p = NUL;

		/*
		 * If fp_out == NULL, load marks for current buffer.
		 * If fp_out != NULL, copy marks for buffers not in buflist.
		 */
		load_marks = copy_marks_out = FALSE;
		if (fp_out == NULL)
		{
			if (curbuf->b_filename != NULL)
			{
				home_replace(NULL, curbuf->b_filename, name_buf, LSIZE);
				if (fnamecmp(str, name_buf) == 0)
					load_marks = TRUE;
			}
		}
		else /* fp_out != NULL */
		{
			/* This is slow if there are many buffers!! */
			for (buf = firstbuf; buf != NULL; buf = buf->b_next)
				if (buf->b_filename != NULL)
				{
					home_replace(NULL, buf->b_filename, name_buf, LSIZE);
					if (fnamecmp(str, name_buf) == 0)
						break;
				}

			/*
			 * copy marks if the buffer has not been loaded
			 */
			if (buf == NULL || !buf->b_marks_read)
			{
				copy_marks_out = TRUE;
				*p = save_char;
				fputs("\n", fp_out);
				fputs((char *)line, fp_out);
				count++;
			}
		}
		while (!(eof = vim_fgets(line, LSIZE, fp_in)) && line[0] == TAB)
		{
			if (load_marks)
			{
				if (line[1] == '"')
					sscanf((char *)line + 2, "%ld %d",
							&curbuf->b_last_cursor.lnum,
							&curbuf->b_last_cursor.col);
				else if ((i = line[1] - 'a') >= 0 && i < NMARKS)
					sscanf((char *)line + 2, "%ld %d",
							&curbuf->b_namedm[i].lnum,
							&curbuf->b_namedm[i].col);
			}
			else if (copy_marks_out)
				fputs((char *)line, fp_out);
		}
		if (load_marks)
			break;
	}
	vim_free(name_buf);
}
#endif /* VIMINFO */
