mirror of https://github.com/tildeclub/ex-vi.git
322 lines
13 KiB
C
322 lines
13 KiB
C
/*
|
|
* 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)
|