#define VERSION "ELVIS 1.5, by Steve Kirkendall (23 March 1992)"
#define COPYING "This version of ELVIS is freely redistributable."
#if TOS && !defined(__GNUC__)
#define ENOENT (-AEFILNF)
# define O_RDONLY S_IREAD
# define O_WRONLY S_IWRITE
# define O_RDWR (S_IREAD | S_IWRITE)
/*------------------------------------------------------------------------*/
/* Miscellaneous constants. */
#define INFINITY 2000000001L /* a very large integer */
#define LONGKEY 10 /* longest possible raw :map key */
# define MAXRCLEN 1000 /* longest possible :@ command */
/*------------------------------------------------------------------------*/
/* These describe how temporary files are divided into blocks */
#define MAXBLKS (BLKSIZE / sizeof(unsigned short))
char c
[BLKSIZE
]; /* for text blocks */
unsigned short n
[MAXBLKS
]; /* for the header block */
/*------------------------------------------------------------------------*/
/* These are used manipulate BLK buffers. */
extern BLK hdr
; /* buffer for the header block */
extern BLK
*blkget(); /* given index into hdr.c[], reads block */
extern BLK
*blkadd(); /* inserts a new block into hdr.c[] */
/*------------------------------------------------------------------------*/
/* These are used to keep track of various flags */
short file
; /* file flags */
#define NEWFILE 0x0001 /* the file was just created */
#define READONLY 0x0002 /* the file is read-only */
#define HADNUL 0x0004 /* the file contained NUL characters */
#define MODIFIED 0x0008 /* the file has been modified, but not saved */
#define NOFILE 0x0010 /* no name is known for the current text */
#define ADDEDNL 0x0020 /* newlines were added to the file */
#define HADBS 0x0040 /* backspace chars were lost from the file */
#define UNDOABLE 0x0080 /* file has been modified */
#define NOTEDITED 0x0100 /* the :file command has been used */
/* macros used to set/clear/test flags */
#define setflag(x,y) viflags.x |= y
#define clrflag(x,y) viflags.x &= ~y
#define tstflag(x,y) (viflags.x & y)
#define initflags() viflags.file = 0;
extern char o_autoindent
[1];
extern char o_autoprint
[1];
extern char o_autotab
[1];
extern char o_autowrite
[1];
extern char o_columns
[3];
extern char o_directory
[30];
extern char o_edcompatible
[1];
extern char o_equalprg
[80];
extern char o_errorbells
[1];
extern char o_exrefresh
[1];
extern char o_ignorecase
[1];
extern char o_keytime
[3];
extern char o_keywordprg
[80];
extern char o_readonly
[1];
extern char o_shiftwidth
[3];
extern char o_sidescroll
[3];
extern char o_tabstop
[3];
extern char o_wrapscan
[1];
extern char o_beautify
[1];
extern char o_taglength
[3];
extern char o_wrapmargin
[3];
extern char o_writeany
[1];
extern char o_charattr
[1];
extern char o_digraph
[1];
extern char o_flipcase
[80];
extern char o_hideformat
[1];
extern char o_inputmode
[1];
extern char o_modelines
[1];
extern char o_paragraphs
[30];
extern char o_sections
[30];
extern char o_showmatch
[1];
/*------------------------------------------------------------------------*/
/* These help support the single-line multi-change "undo" -- shift-U */
extern char U_text
[BLKSIZE
];
/*------------------------------------------------------------------------*/
/* These are used to refer to places in the text */
#define markline(x) (long)((x) / BLKSIZE)
#define markidx(x) (int)((x) & (BLKSIZE - 1))
#define MARK_UNSET ((MARK)0)
#define MARK_FIRST ((MARK)BLKSIZE)
#define MARK_LAST ((MARK)(nlines * BLKSIZE))
#define MARK_AT_LINE(x) ((MARK)(x) * BLKSIZE)
extern MARK mark
[NMARKS
]; /* marks a-z, plus mark ' and two temps */
extern MARK cursor
; /* mark where line is */
/*------------------------------------------------------------------------*/
/* These are used to keep track of the current & previous files. */
extern long origtime
; /* modification date&time of the current file */
extern char origname
[256]; /* name of the current file */
extern char prevorig
[256]; /* name of the preceding file */
extern long prevline
; /* line number from preceding file */
/*------------------------------------------------------------------------*/
/* misc housekeeping variables & functions */
extern int tmpfd
; /* fd used to access the tmp file */
extern int tmpnum
; /* counter used to generate unique filenames */
extern long lnum
[MAXBLKS
]; /* last line# of each block */
extern long nlines
; /* number of lines in the file */
extern char args
[BLKSIZE
]; /* file names given on the command line */
extern int argno
; /* the current element of args[] */
extern int nargs
; /* number of filenames in args */
extern long changes
; /* counts changes, to prohibit short-cuts */
extern int significant
; /* boolean: was a *REAL* change made? */
extern BLK tmpblk
; /* a block used to accumulate changes */
extern long topline
; /* file line number of top line */
extern int leftcol
; /* column number of left col */
#define botline (topline + LINES - 2)
#define rightcol (leftcol + COLS - (*o_number ? 9 : 1))
extern int physcol
; /* physical column number that cursor is on */
extern int physrow
; /* physical row number that cursor is on */
extern int exwrote
; /* used to detect verbose ex commands */
extern int doingdot
; /* boolean: are we doing the "." command? */
extern int doingglobal
; /* boolean: are doing a ":g" command? */
extern long rptlines
; /* number of lines affected by a command */
extern char *rptlabel
; /* description of how lines were affected */
extern char *fetchline(); /* read a given line from tmp file */
extern char *parseptrn(); /* isolate a regexp in a line */
extern MARK
paste(); /* paste from cut buffer to a given point */
extern char *wildcard(); /* expand wildcards in filenames */
extern MARK
input(); /* inserts characters from keyboard */
extern char *linespec(); /* finds the end of a /regexp/ string */
#define ctrl(ch) ((ch)&037)
extern long allocate(); /* allocate a free block of the tmp file */
extern int trapint(); /* trap handler for SIGINT */
extern int deathtrap(); /* trap handler for deadly signals */
extern void blkdirty(); /* marks a block as being "dirty" */
extern void blkflush(); /* writes a single dirty block to the disk */
extern void blksync(); /* forces all "dirty" blocks to disk */
extern void blkinit(); /* resets the block cache to "empty" state */
extern void beep(); /* rings the terminal's bell */
extern void exrefresh(); /* writes text to the screen */
extern void msg(); /* writes a printf-style message to the screen */
extern void endmsgs(); /* if "manymsgs" is set, then scroll up 1 line */
extern void garbage(); /* reclaims any garbage blocks */
extern void redraw(); /* updates the screen after a change */
extern void resume_curses();/* puts the terminal in "cbreak" mode */
extern void beforedo(); /* saves current revision before a new change */
extern void afterdo(); /* marks end of a beforedo() change */
extern void abortdo(); /* like "afterdo()" followed by "undo()" */
extern int undo(); /* restores file to previous undo() */
extern void dumpkey(); /* lists key mappings to the screen */
extern void mapkey(); /* defines a new key mapping */
extern void savekeys(); /* lists key mappings to a file */
extern void redrawrange(); /* records clues from modify.c */
extern void cut(); /* saves text in a cut buffer */
extern void delete(); /* deletes text */
extern void add(); /* adds text */
extern void change(); /* deletes text, and then adds other text */
extern void cutswitch(); /* updates cut buffers when we switch files */
extern void do_abbr(); /* defines or lists abbreviations */
extern void do_digraph(); /* defines or lists digraphs */
extern void exstring(); /* execute a string as EX commands */
extern int wset
; /* boolean: has the "window" size been set? */
/*------------------------------------------------------------------------*/
/* macros that are used as control structures */
#define BeforeAfter(before, after) for((before),bavar=1;bavar;(after),bavar=0)
#define ChangeText BeforeAfter(beforedo(FALSE),afterdo())
extern int bavar
; /* used only in BeforeAfter macros */
/*------------------------------------------------------------------------*/
/* These are the movement commands. Each accepts a mark for the starting */
/* location & number and returns a mark for the destination. */
extern MARK
m_updnto(); /* k j G */
extern MARK
m_right(); /* h */
extern MARK
m_left(); /* l */
extern MARK
m_tocol(); /* | */
extern MARK
m_front(); /* ^ */
extern MARK
m_rear(); /* $ */
extern MARK
m_fword(); /* w */
extern MARK
m_bword(); /* b */
extern MARK
m_eword(); /* e */
extern MARK
m_paragraph(); /* { } [[ ]] */
extern MARK
m_match(); /* % */
extern MARK
m_sentence(); /* ( ) */
extern MARK
m_tomark(); /* 'm */
extern MARK
m_wsrch(); /* ^A */
extern MARK
m_nsrch(); /* n */
extern MARK
m_Nsrch(); /* N */
extern MARK
m_fsrch(); /* /regexp */
extern MARK
m_bsrch(); /* ?regexp */
extern MARK
m__ch(); /* ; , */
extern MARK
m_fch(); /* f */
extern MARK
m_tch(); /* t */
extern MARK
m_Fch(); /* F */
extern MARK
m_Tch(); /* T */
extern MARK
m_row(); /* H L M */
extern MARK
m_z(); /* z */
extern MARK
m_scroll(); /* ^B ^F ^E ^Y ^U ^D */
/* Some stuff that is used by movement functions... */
extern MARK
adjmove(); /* a helper fn, used by move fns */
/* This macro is used to set the default value of cnt */
#define DEFAULT(val) if (cnt < 1) cnt = (val)
/* These are used to minimize calls to fetchline() */
extern int plen
; /* length of the line */
extern long pline
; /* line number that len refers to */
extern long pchgs
; /* "changes" level that len refers to */
extern char *ptext
; /* text of previous line, if valid */
/* This is used to build a MARK that corresponds to a specific point in the
* line that was most recently pfetch'ed.
#define buildmark(text) (MARK)(BLKSIZE * pline + (int)((text) - ptext))
/*------------------------------------------------------------------------*/
/* These are used to handle EX commands. */
#define CMD_NULL 0 /* NOT A VALID COMMAND */
#define CMD_ABBR 1 /* "define an abbreviation" */
#define CMD_ARGS 2 /* "show me the args" */
#define CMD_APPEND 3 /* "insert lines after this line" */
#define CMD_AT 4 /* "execute a cut buffer's contents via EX" */
#define CMD_BANG 5 /* "run a single shell command" */
#define CMD_CC 6 /* "run `cc` and then do CMD_ERRLIST" */
#define CMD_CD 7 /* "change directories" */
#define CMD_CHANGE 8 /* "change some lines" */
#define CMD_COLOR 9 /* "change the default colors" */
#define CMD_COPY 10 /* "copy the selected text to a given place" */
#define CMD_DELETE 11 /* "delete the selected text" */
#define CMD_DIGRAPH 12 /* "add a digraph, or display them all" */
#define CMD_EDIT 13 /* "switch to a different file" */
#define CMD_EQUAL 14 /* "display a line number" */
#define CMD_ERRLIST 15 /* "locate the next error in a list" */
#define CMD_FILE 16 /* "show the file's status" */
#define CMD_GLOBAL 17 /* "globally search & do a command" */
#define CMD_INSERT 18 /* "insert lines before the current line" */
#define CMD_JOIN 19 /* "join the selected line & the one after" */
#define CMD_LIST 20 /* "print lines, making control chars visible" */
#define CMD_MAKE 21 /* "run `make` and then do CMD_ERRLIST" */
#define CMD_MAP 22 /* "adjust the keyboard map" */
#define CMD_MARK 23 /* "mark this line" */
#define CMD_MKEXRC 24 /* "make a .exrc file" */
#define CMD_MOVE 25 /* "move the selected text to a given place" */
#define CMD_NEXT 26 /* "switch to next file in args" */
#define CMD_NUMBER 27 /* "print lines from the file w/ line numbers" */
#define CMD_PRESERVE 28 /* "act as though vi crashed" */
#define CMD_PREVIOUS 29 /* "switch to the previous file in args" */
#define CMD_PRINT 30 /* "print the selected text" */
#define CMD_PUT 31 /* "insert any cut lines before this line" */
#define CMD_QUIT 32 /* "quit without writing the file" */
#define CMD_READ 33 /* "append the given file after this line */
#define CMD_RECOVER 34 /* "recover file after vi crashes" - USE -r FLAG */
#define CMD_REWIND 35 /* "rewind to first file" */
#define CMD_SET 36 /* "set a variable's value" */
#define CMD_SHELL 37 /* "run some lines through a command" */
#define CMD_SHIFTL 38 /* "shift lines left" */
#define CMD_SHIFTR 39 /* "shift lines right" */
#define CMD_SOURCE 40 /* "interpret a file's contents as ex commands" */
#define CMD_STOP 41 /* same as CMD_SUSPEND */
#define CMD_SUBAGAIN 42 /* "repeat the previous substitution" */
#define CMD_SUBSTITUTE 43 /* "substitute text in this line" */
#define CMD_SUSPEND 44 /* "suspend the vi session" */
#define CMD_TR 45 /* "transliterate chars in the selected lines" */
#define CMD_TAG 46 /* "go to a particular tag" */
#define CMD_UNABBR 47 /* "remove an abbreviation definition" */
#define CMD_UNDO 48 /* "undo the previous command" */
#define CMD_UNMAP 49 /* "remove a key sequence map */
#define CMD_VERSION 50 /* "describe which version this is" */
#define CMD_VGLOBAL 51 /* "apply a cmd to lines NOT containing an RE" */
#define CMD_VISUAL 52 /* "go into visual mode" */
#define CMD_WQUIT 53 /* "write this file out (any case) & quit" */
#define CMD_WRITE 54 /* "write the selected(?) text to a given file" */
#define CMD_XIT 55 /* "write this file out (if modified) & quit" */
#define CMD_YANK 56 /* "copy the selected text into the cut buffer" */
# define CMD_DEBUG 57 /* access to internal data structures */
# define CMD_VALIDATE 58 /* check for internal consistency */
extern void cmd_append();
extern void cmd_delete();
extern void cmd_digraph();
extern void cmd_errlist();
extern void cmd_global();
extern void cmd_mkexrc();
extern void cmd_source();
extern void cmd_substitute();
extern void cmd_version();
extern void cmd_validate();
extern void cmd_suspend();
/*----------------------------------------------------------------------*/
/* These are used to handle VI commands */
extern MARK
v_1ex(); /* : */
extern MARK
v_mark(); /* m */
extern MARK
v_quit(); /* Q */
extern MARK
v_redraw(); /* ^L ^R */
extern MARK
v_ulcase(); /* ~ */
extern MARK
v_undo(); /* u */
extern MARK
v_xchar(); /* x X */
extern MARK
v_replace(); /* r */
extern MARK
v_overtype(); /* R */
extern MARK
v_selcut(); /* " */
extern MARK
v_paste(); /* p P */
extern MARK
v_yank(); /* y Y */
extern MARK
v_delete(); /* d D */
extern MARK
v_join(); /* J */
extern MARK
v_insert(); /* a A i I o O */
extern MARK
v_change(); /* c C */
extern MARK
v_subst(); /* s */
extern MARK
v_lshift(); /* < */
extern MARK
v_rshift(); /* > */
extern MARK
v_reformat(); /* = */
extern MARK
v_filter(); /* ! */
extern MARK
v_status(); /* ^G */
extern MARK
v_switch(); /* ^^ */
extern MARK
v_tag(); /* ^] */
extern MARK
v_xit(); /* ZZ */
extern MARK
v_undoline(); /* U */
extern MARK
v_again(); /* & */
extern MARK
v_keyword(); /* K */
extern MARK
v_increment(); /* * */
extern MARK
v_errlist(); /* * */
extern MARK
v_at(); /* @ */
extern MARK
v_suspend(); /* ^Z */
extern MARK
v_popup(); /* \ */
/*----------------------------------------------------------------------*/
/* These flags describe the quirks of the individual visual commands */
#define MVMT 0x01 /* this is a movement command */
#define PTMV 0x02 /* this can be *part* of a movement command */
#define FRNT 0x04 /* after move, go to front of line */
#define INCL 0x08 /* include last char when used with c/d/y */
#define LNMD 0x10 /* use line mode of c/d/y */
#define NCOL 0x20 /* this command can't change the column# */
#define NREL 0x40 /* this is "non-relative" -- set the '' mark */
#define SDOT 0x80 /* set the "dot" variables, for the "." cmd */
# define VIZ 0x100 /* commands which can be used with 'v' */
/* This variable is zeroed before a command executes, and later ORed with the
* command's flags after the command has been executed. It is used to force
* certain flags to be TRUE for *some* invocations of a particular command.
* For example, "/regexp/+offset" forces the LNMD flag, and sometimes a "p"
* or "P" command will force FRNT.
/*----------------------------------------------------------------------*/
/* These describe what mode we're in */
#define MODE_EX 1 /* executing ex commands */
#define MODE_VI 2 /* executing vi commands */
#define MODE_COLON 3 /* executing an ex command from vi mode */
#define WHEN_VICMD 1 /* getkey: we're reading a VI command */
#define WHEN_VIINP 2 /* getkey: we're in VI's INPUT mode */
#define WHEN_VIREP 4 /* getkey: we're in VI's REPLACE mode */
#define WHEN_EX 8 /* getkey: we're in EX mode */
#define WHEN_MSG 16 /* getkey: we're at a "more" prompt */
#define WHEN_POPUP 32 /* getkey: we're in the pop-up menu */
#define WHEN_REP1 64 /* getkey: we're getting a single char for 'r' */
#define WHEN_CUT 128 /* getkey: we're getting a cut buffer name */
#define WHEN_MARK 256 /* getkey: we're getting a mark name */
#define WHEN_CHAR 512 /* getkey: we're getting a destination for f/F/t/T */
#define WHEN_INMV 4096 /* in input mode, interpret the key in VICMD mode */
#define WHEN_FREE 8192 /* free the keymap after doing it once */
#define WHENMASK (WHEN_VICMD|WHEN_VIINP|WHEN_VIREP|WHEN_REP1|WHEN_CUT|WHEN_MARK|WHEN_CHAR)
# define malloc(size) dbmalloc(size, __FILE__, __LINE__)
# define free(ptr) dbfree(ptr, __FILE__, __LINE__)