Subversion Repositories planix.SVN

/*

 * This code contains changes by

 *      Gunnar Ritter, Freiburg i. Br., Germany, 2002. All rights reserved.

 *

 * Conditions 1, 2, and 4 and the no-warranty notice below apply

 * to these changes.

 *

 *

 * Copyright (c) 1980, 1993

 * 	The Regents of the University of California.  All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 * 1. Redistributions of source code must retain the above copyright

 *    notice, this list of conditions and the following disclaimer.

 * 2. Redistributions in binary form must reproduce the above copyright

 *    notice, this list of conditions and the following disclaimer in the

 *    documentation and/or other materials provided with the distribution.

 * 3. All advertising materials mentioning features or use of this software

 *    must display the following acknowledgement:

 * 	This product includes software developed by the University of

 * 	California, Berkeley and its contributors.

 * 4. Neither the name of the University nor the names of its contributors

 *    may be used to endorse or promote products derived from this software

 *    without specific prior written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND

 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE

 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY

 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

 * SUCH DAMAGE.

 *

 *

 * Copyright(C) Caldera International Inc. 2001-2002. All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 *   Redistributions of source code and documentation must retain the

 *    above copyright notice, this list of conditions and the following

 *    disclaimer.

 *   Redistributions in binary form must reproduce the above copyright

 *    notice, this list of conditions and the following disclaimer in the

 *    documentation and/or other materials provided with the distribution.

 *   All advertising materials mentioning features or use of this software

 *    must display the following acknowledgement:

 *      This product includes software developed or owned by Caldera

 *      International, Inc.

 *   Neither the name of Caldera International, Inc. nor the names of

 *    other contributors may be used to endorse or promote products

 *    derived from this software without specific prior written permission.

 *

 * USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA

 * INTERNATIONAL, INC. AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR

 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED

 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

 * ARE DISCLAIMED. IN NO EVENT SHALL CALDERA INTERNATIONAL, INC. BE

 * LIABLE FOR ANY DIRECT, INDIRECT INCIDENTAL, SPECIAL, EXEMPLARY, OR

 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF

 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR

 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,

 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE

 * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,

 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

 *

 *	from ex_vis.h	7.4 (Berkeley) 5/31/85

 *

 *	@(#)ex_vis.h	1.18 (gritter) 3/24/05

 */

/*

 * Ex version 3

 * Mark Horton, UCB

 * Bill Joy UCB

 *

 * Open and visual mode definitions.

 * 

 * There are actually 4 major states in open/visual modes.  These

 * are visual, crt open (where the cursor can move about the screen and

 * the screen can scroll and be erased), one line open (on dumb glass-crt's

 * like the adm3), and hardcopy open (for everything else).

 *

 * The basic state is given by bastate, and the current state by state,

 * since we can be in pseudo-hardcopy mode if we are on an adm3 and the

 * line is longer than 80.

 */

var enum {

	VISUAL		= 0,

	CRTOPEN		= 1,

	ONEOPEN		= 2,

	HARDOPEN	= 3

} bastate, state;

/*

 * The screen in visual and crtopen is of varying size; the basic

 * window has top basWTOP and basWLINES lines are thereby implied.

 * The current window (which may have grown from the basic size)

 * has top WTOP and WLINES lines.  The top line of the window is WTOP,

 * and the bottom line WBOT.  The line WECHO is used for messages,

 * search strings and the like.  If WBOT==WECHO then we are in ONEOPEN

 * or HARDOPEN and there is no way back to the line we were on if we

 * go to WECHO (i.e. we will have to scroll before we go there, and

 * we can't get back).  There are WCOLS columns per line.

 * If WBOT!=WECHO then WECHO will be the last line on the screen

 * and WBOT is the line before it.

 */

var	short	basWTOP;

var	short	basWLINES;

var	short	WTOP;

var	short	WBOT;

var	short	WLINES;

var	short	WCOLS;

var	short	WECHO;

/*

 * When we are dealing with the echo area we consider the window

 * to be "split" and set the variable splitw.  Otherwise, moving

 * off the bottom of the screen into WECHO causes a screen rollup.

 */

var	bool	splitw;

/*

 * Information about each line currently on the screen includes

 * the y coordinate associated with the line, the printing depth

 * of the line (0 indicates unknown), and a mask which indicates

 * whether the line is "unclean", i.e. whether we should check

 * to make sure the line is displayed correctly at the next

 * appropriate juncture.

 */

struct vlinfo {

	short	vliny;		/* Y coordinate */	/* mjm: was char */

	short	vdepth;		/* Depth of displayed line */ /*mjm: was char */

	short	vflags;		/* Is line potentially dirty ? */

};

var	struct vlinfo  vlinfo[TUBELINES + 2];

#define	DEPTH(c)	(vlinfo[c].vdepth)

#define	LINE(c)		(vlinfo[c].vliny)

#define	FLAGS(c)	(vlinfo[c].vflags)

#define	VDIRT	1

/*

 * Hacks to copy vlinfo structures around

 */

#	define	vlcopy(i, j)	i = j;

/*

 * The current line on the screen is represented by vcline.

 * There are vcnt lines on the screen, the last being "vcnt - 1".

 * Vcline is intimately tied to the current value of dot,

 * and when command mode is used as a subroutine fancy footwork occurs.

 */

var	short	vcline;

var	short	vcnt;

/*

 * To allow many optimizations on output, an exact image of the terminal

 * screen is maintained in the space addressed by vtube0.  The vtube

 * array indexes this space as lines, and is shuffled on scrolls, insert+delete

 * lines and the like rather than (more expensively) shuffling the screen

 * data itself.  It is also rearranged during insert mode across line

 * boundaries to make incore work easier.

 */

var	cell	*vtube[TUBELINES];

var	cell	*vtube0;

/*

 * The current cursor position within the current line is kept in

 * cursor.  The current line is kept in linebuf.  During insertions

 * we use the auxiliary array genbuf as scratch area.

 * The cursor wcursor and wdot are used in operations within/spanning

 * lines to mark the other end of the affected area, or the target

 * for a motion.

 */

var	char	*cursor;

var	char	*wcursor;

var	line	*wdot;

/*

 * Undo information is saved in a LBSIZE buffer at "vutmp" for changes

 * within the current line, or as for command mode for multi-line changes

 * or changes on lines no longer the current line.

 * The change kind "VCAPU" is used immediately after a U undo to prevent

 * two successive U undo's from destroying the previous state.

 */

#define	VNONE	0

#define	VCHNG	1

#define	VMANY	2

#define	VCAPU	3

#define	VMCHNG	4

#define	VMANYINS 5

var	short	vundkind;	/* Which kind of undo - from above */

var	char	*vutmp;		/* Prev line image when "VCHNG" */

/*

 * State information for undoing of macros.  The basic idea is that

 * if the macro does only 1 change or even none, we don't treat it

 * specially.  If it does 2 or more changes we want to be able to

 * undo it as a unit.  We remember how many changes have been made

 * within the current macro.  (Remember macros can be nested.)

 */

#define VC_NOTINMAC	0	/* Not in a macro */

#define VC_NOCHANGE	1	/* In a macro, no changes so far */

#define VC_ONECHANGE	2	/* In a macro, one change so far */

#define VC_MANYCHANGE	3	/* In a macro, at least 2 changes so far */

var	short	vch_mac;	/* Change state - one of the above */

/*

 * For U undo's the line is grabbed by "vmove" after it first appears

 * on that line.  The "vUNDdot" which specifies which line has been

 * saved is selectively cleared when changes involving other lines

 * are made, i.e. after a 'J' join.  This is because a 'JU' would

 * lose completely the text of the line just joined on.

 */

var	char	*vUNDcurs;	/* Cursor just before 'U' */

var	line	*vUNDdot;	/* The line address of line saved in vUNDsav */

var	line	vUNDsav;	/* Grabbed initial "*dot" */

#define	killU()		vUNDdot = NOLINE

/*

 * There are a number of cases where special behaviour is needed

 * from deeply nested routines.  This is accomplished by setting

 * the bits of hold, which acts to change the state of the general

 * visual editing behaviour in specific ways.

 *

 * HOLDAT prevents the clreol (clear to end of line) routines from

 * putting out @'s or ~'s on empty lines.

 *

 * HOLDDOL prevents the reopen routine from putting a '$' at the

 * end of a reopened line in list mode (for hardcopy mode, e.g.).

 *

 * HOLDROL prevents spurious blank lines when scrolling in hardcopy

 * open mode.

 *

 * HOLDQIK prevents the fake insert mode during repeated commands.

 *

 * HOLDPUPD prevents updating of the physical screen image when

 * mucking around while in insert mode.

 *

 * HOLDECH prevents clearing of the echo area while rolling the screen

 * backwards (e.g.) in deference to the clearing of the area at the

 * end of the scroll (1 time instead of n times).  The fact that this

 * is actually needed is recorded in heldech, which says that a clear

 * of the echo area was actually held off.

 */

var	short	hold;

var	short	holdupd;	/* Hold off update when echo line is too long */

#define	HOLDAT		1

#define	HOLDDOL		2

#define	HOLDROL		4

#define	HOLDQIK		8

#define	HOLDPUPD	16

#define	HOLDECH		32

#define HOLDWIG		64

/*

 * Miscellaneous variables

 */

var	short	CDCNT;		/* Count of ^D's in insert on this line */

var	cell	DEL[VBSIZE];	/* Last deleted text */

var	bool	HADUP;		/* This insert line started with ^ then ^D */

var	bool	HADZERO;	/* This insert line started with 0 then ^D */

var	cell	INS[VBSIZE];	/* Last inserted text */

var	int	Vlines;		/* Number of file lines "before" vi command */

var	int	Xcnt;		/* External variable holding last cmd's count */

var	bool	Xhadcnt;	/* Last command had explicit count? */

var	short	ZERO;

var	short	dir;		/* Direction for search (+1 or -1) */

var	short	doomed;		/* Disply chars right of cursor to be killed */

var	bool	gobblebl;	/* Wrapmargin space generated nl, eat a space */

var	bool	hadcnt;		/* (Almost) internal to vmain() */

var	bool	heldech;	/* We owe a clear of echo area */

var	bool	insmode;	/* Are in character insert mode */

var	cell	lastcmd[5];	/* Chars in last command */

var	int	lastcnt;	/* Count for last command */

var	cell	*lastcp;	/* Save current command here to repeat */

var	bool	lasthad;	/* Last command had a count? */

var	int	lastvgk;	/* Previous input key, if not from keyboard */

var	short	lastreg;	/* Register with last command */

var	char	*ncols['z'-'a'+2];	/* Cursor positions of marks */

var	char	*notenam;	/* Name to be noted with change count */

var	char	*notesgn;	/* Change count from last command */

var	int	op;		/* Operation of current command */

var	int	Peekkey;	/* Peek ahead key */

var	bool	rubble;		/* Line is filthy (in hardcopy open), redraw! */

var	int	vSCROLL;	/* Number lines to scroll on ^D/^U */

var	cell	*vglobp;	/* Untyped input (e.g. repeat insert text) */

var	char	vmacbuf[VBSIZE];   /* Text of visual macro, hence nonnestable */

var	char	*vmacp;		/* Like vglobp but for visual macros */

var	char	*vmcurs;	/* Cursor for restore after undo d), e.g. */

var	short	vmovcol;	/* Column to try to keep on arrow keys */

var	bool	vmoving;	/* Are trying to keep vmovcol */

var	short	vreg;		/* Reg for this command */   /* mjm: was char */

var	short	wdkind;		/* Liberal/conservative words? */

var	cell	workcmd[5];	/* Temporary for lastcmd */

var	char	*vcolbp;	/* first byte of current character in column */

/*

 * Macros

 */

#define	INF		30000

#define	LASTLINE	LINE(vcnt)

#define	OVERBUF		QUOTE

#define	beep		obeep

#define	cindent()	((outline - vlinfo[vcline].vliny) * WCOLS + outcol)

#define	vputp(cp, cnt)	tputs(cp, cnt, vputch)

#define	vputc(c)	putch(c)