summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Andersen2001-04-04 17:31:15 +0000
committerEric Andersen2001-04-04 17:31:15 +0000
commit3f98040554313a50ba68c60f43cd8c4a987a0d24 (patch)
tree53e5d4b531138eb0853b6233160b2cd4d768de1d
parent91c9388715182a71173f2da71d74173221460412 (diff)
downloadbusybox-3f98040554313a50ba68c60f43cd8c4a987a0d24.zip
busybox-3f98040554313a50ba68c60f43cd8c4a987a0d24.tar.gz
I said no new features till after the 0.51 release. Well, I lied. This is a
vi editor for busybox, contributed by Sterling Huxley <sterling@europa.com>. It adds 22k to the busybox binary when enabled. Quite impressive!
-rw-r--r--Changelog2
-rw-r--r--Config.h12
-rw-r--r--applets.h3
-rw-r--r--applets/usage.h7
-rw-r--r--editors/vi.c3683
-rw-r--r--include/applets.h3
-rw-r--r--include/usage.h7
-rw-r--r--usage.h7
-rw-r--r--vi.c3683
9 files changed, 7407 insertions, 0 deletions
diff --git a/Changelog b/Changelog
index 42dcfec..862f14e 100644
--- a/Changelog
+++ b/Changelog
@@ -1,4 +1,6 @@
0.51pre
+ * Sterling Huxley -- contributed a new vi applet! This is a very
+ functional vi implementation in Only 22k.
* Erik Andersen -- added env applet
* Erik Andersen -- Split utility.c into libbb
* Andreas Neuhaus <andy@fasta.fh-dortmund.de> -- fix for merging
diff --git a/Config.h b/Config.h
index bd63665..44fcbed 100644
--- a/Config.h
+++ b/Config.h
@@ -120,6 +120,7 @@
//#define BB_UPDATE
#define BB_UPTIME
//#define BB_USLEEP
+//#define BB_VI
//#define BB_WATCHDOG
#define BB_WC
//#define BB_WGET
@@ -334,6 +335,17 @@
#define BB_FEATURE_TFTP_PUT
#define BB_FEATURE_TFTP_GET
//
+// features for vi
+#define BB_FEATURE_VI_COLON // ":" colon commands, no "ex" mode
+#define BB_FEATURE_VI_YANKMARK // Yank/Put commands and Mark cmds
+#define BB_FEATURE_VI_SEARCH // search and replace cmds
+#define BB_FEATURE_VI_USE_SIGNALS // catch signals
+#define BB_FEATURE_VI_DOT_CMD // remember previous cmd and "." cmd
+#define BB_FEATURE_VI_READONLY // vi -R and "view" mode
+#define BB_FEATURE_VI_SETOPTS // set-able options, ai ic showmatch
+#define BB_FEATURE_VI_SET // :set
+#define BB_FEATURE_VI_WIN_RESIZE // handle window resize
+//
// End of Features List
//
//
diff --git a/applets.h b/applets.h
index 255bd6b..c303797 100644
--- a/applets.h
+++ b/applets.h
@@ -413,6 +413,9 @@
#ifdef BB_UUENCODE
APPLET(uuencode, uuencode_main, _BB_DIR_USR_BIN)
#endif
+#ifdef BB_VI
+ APPLET(vi, vi_main, _BB_DIR_BIN)
+#endif
#ifdef BB_WATCHDOG
APPLET(watchdog, watchdog_main, _BB_DIR_SBIN)
#endif
diff --git a/applets/usage.h b/applets/usage.h
index aa7f0af..abd0156 100644
--- a/applets/usage.h
+++ b/applets/usage.h
@@ -1689,6 +1689,13 @@
"$ uudecode busybox busybox > busybox.uu\n" \
"$\n"
+#define vi_trivial_usage \
+ "[OPTION] [FILE]..."
+#define vi_full_usage \
+ "edit FILE.\n\n" \
+ "Options:\n" \
+ "\t-R\tRead-only- do not write to the file."
+
#define watchdog_trivial_usage \
"DEV"
#define watchdog_full_usage \
diff --git a/editors/vi.c b/editors/vi.c
new file mode 100644
index 0000000..325ab34
--- /dev/null
+++ b/editors/vi.c
@@ -0,0 +1,3683 @@
+/* vi: set sw=8 ts=8: */
+/*
+ * tiny vi.c: A small 'vi' clone
+ * Copyright (C) 2000, 2001 Sterling Huxley <sterling@europa.com>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ */
+
+char *vi_Version =
+ "$Id: vi.c,v 1.1 2001/04/04 17:31:15 andersen Exp $";
+
+/*
+ * To compile for standalone use:
+ * gcc -Wall -Os -DSTANDALONE -o vi vi.c
+ * or
+ * gcc -Wall -Os -DSTANDALONE -DCRASHME -o vi vi.c # include testing features
+ * strip vi
+ */
+
+/*
+ * Things To Do:
+ * EXINIT
+ * $HOME/.exrc
+ * add magic to search /foo.*bar
+ * add :help command
+ * :map macros
+ * how about mode lines: vi: set sw=8 ts=8:
+ * if mark[] values were line numbers rather than pointers
+ * it would be easier to change the mark when add/delete lines
+ */
+
+//---- Feature -------------- Bytes to immplement
+#ifdef STANDALONE
+#define BB_FEATURE_VI_COLON // 4288
+#define BB_FEATURE_VI_YANKMARK // 1408
+#define BB_FEATURE_VI_SEARCH // 1088
+#define BB_FEATURE_VI_USE_SIGNALS // 1056
+#define BB_FEATURE_VI_DOT_CMD // 576
+#define BB_FEATURE_VI_READONLY // 128
+#define BB_FEATURE_VI_SETOPTS // 576
+#define BB_FEATURE_VI_SET // 224
+#define BB_FEATURE_VI_WIN_RESIZE // 256 WIN_RESIZE
+// To test editor using CRASHME:
+// vi -C filename
+// To stop testing, wait until all to text[] is deleted, or
+// Ctrl-Z and kill -9 %1
+// while in the editor Ctrl-T will toggle the crashme function on and off.
+//#define BB_FEATURE_VI_CRASHME // randomly pick commands to execute
+#endif /* STANDALONE */
+
+#ifndef STANDALONE
+#include "busybox.h"
+#endif /* STANDALONE */
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <termios.h>
+#include <unistd.h>
+#include <sys/ioctl.h>
+#include <sys/time.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <time.h>
+#include <fcntl.h>
+#include <signal.h>
+#include <setjmp.h>
+#include <regex.h>
+#include <ctype.h>
+#include <assert.h>
+#include <errno.h>
+#include <stdarg.h>
+#ifdef __linux__
+#include <stdint.h> // INT32_MAX
+#else /* __linux__ */
+#include <values.h>
+extern int strncasecmp(const char *s1, const char *s2, size_t n);
+
+#define INT32_MAX MAXINT
+#include <libgen.h> //
+#endif /* __linux__ */
+
+#ifndef TRUE
+#define TRUE ((int)1)
+#define FALSE ((int)0)
+#endif /* TRUE */
+#define MAX_SCR_COLS 300
+
+// Misc. non-Ascii keys that report an escape sequence
+#define VI_K_UP 128 // cursor key Up
+#define VI_K_DOWN 129 // cursor key Down
+#define VI_K_RIGHT 130 // Cursor Key Right
+#define VI_K_LEFT 131 // cursor key Left
+#define VI_K_HOME 132 // Cursor Key Home
+#define VI_K_END 133 // Cursor Key End
+#define VI_K_INSERT 134 // Cursor Key Insert
+#define VI_K_PAGEUP 135 // Cursor Key Page Up
+#define VI_K_PAGEDOWN 136 // Cursor Key Page Down
+#define VI_K_FUN1 137 // Function Key F1
+#define VI_K_FUN2 138 // Function Key F2
+#define VI_K_FUN3 139 // Function Key F3
+#define VI_K_FUN4 140 // Function Key F4
+#define VI_K_FUN5 141 // Function Key F5
+#define VI_K_FUN6 142 // Function Key F6
+#define VI_K_FUN7 143 // Function Key F7
+#define VI_K_FUN8 144 // Function Key F8
+#define VI_K_FUN9 145 // Function Key F9
+#define VI_K_FUN10 146 // Function Key F10
+#define VI_K_FUN11 147 // Function Key F11
+#define VI_K_FUN12 148 // Function Key F12
+
+static const int YANKONLY = FALSE;
+static const int YANKDEL = TRUE;
+static const int FORWARD = 1; // code depends on "1" for array index
+static const int BACK = -1; // code depends on "-1" for array index
+static const int LIMITED = 0; // how much of text[] in char_search
+static const int FULL = 1; // how much of text[] in char_search
+
+static const int S_BEFORE_WS = 1; // used in skip_thing() for moving "dot"
+static const int S_TO_WS = 2; // used in skip_thing() for moving "dot"
+static const int S_OVER_WS = 3; // used in skip_thing() for moving "dot"
+static const int S_END_PUNCT = 4; // used in skip_thing() for moving "dot"
+static const int S_END_ALNUM = 5; // used in skip_thing() for moving "dot"
+
+typedef unsigned char Byte;
+
+
+static int editing; // >0 while we are editing a file
+static int cmd_mode; // 0=command 1=insert
+static int file_modified; // buffer contents changed
+static int err_method; // indicate error with beep or flash
+static int fn_start; // index of first cmd line file name
+static int save_argc; // how many file names on cmd line
+static int cmdcnt; // repetition count
+static fd_set rfds; // use select() for small sleeps
+static struct timeval tv; // use select() for small sleeps
+static char erase_char; // the users erase character
+static int rows, columns; // the terminal screen is this size
+static int crow, ccol, offset; // cursor is on Crow x Ccol with Horz Ofset
+static char *SOs, *SOn;
+static Byte *status_buffer; // mesages to the user
+static Byte last_input_char; // last char read from user
+static Byte last_forward_char; // last char searched for with 'f'
+static Byte *cfn; // previous, current, and next file name
+static Byte *text, *end, *textend; // pointers to the user data in memory
+static Byte *screen; // pointer to the virtual screen buffer
+static int screensize; // and its size
+static Byte *screenbegin; // index into text[], of top line on the screen
+static Byte *dot; // where all the action takes place
+static int tabstop;
+static struct termios term_orig, term_vi; // remember what the cooked mode was
+
+#ifdef BB_FEATURE_VI_USE_SIGNALS
+static jmp_buf restart; // catch_sig()
+#endif /* BB_FEATURE_VI_USE_SIGNALS */
+#ifdef BB_FEATURE_VI_WIN_RESIZE
+static struct winsize winsize; // remember the window size
+#endif /* BB_FEATURE_VI_WIN_RESIZE */
+#ifdef BB_FEATURE_VI_DOT_CMD
+static int adding2q; // are we currently adding user input to q
+static Byte *last_modifying_cmd; // last modifying cmd for "."
+static Byte *ioq, *ioq_start; // pointer to string for get_one_char to "read"
+#endif /* BB_FEATURE_VI_DOT_CMD */
+#if defined(BB_FEATURE_VI_DOT_CMD) || defined(BB_FEATURE_VI_YANKMARK)
+static Byte *modifying_cmds; // cmds that modify text[]
+#endif /* BB_FEATURE_VI_DOT_CMD || BB_FEATURE_VI_YANKMARK */
+#ifdef BB_FEATURE_VI_READONLY
+static int readonly;
+#endif /* BB_FEATURE_VI_READONLY */
+#ifdef BB_FEATURE_VI_SETOPTS
+static int autoindent;
+static int showmatch;
+static int ignorecase;
+#endif /* BB_FEATURE_VI_SETOPTS */
+#ifdef BB_FEATURE_VI_YANKMARK
+static Byte *reg[28]; // named register a-z, "D", and "U" 0-25,26,27
+static int YDreg, Ureg; // default delete register and orig line for "U"
+static Byte *mark[28]; // user marks points somewhere in text[]- a-z and previous context ''
+static Byte *context_start, *context_end;
+#endif /* BB_FEATURE_VI_YANKMARK */
+#ifdef BB_FEATURE_VI_SEARCH
+static Byte *last_search_pattern; // last pattern from a '/' or '?' search
+#endif /* BB_FEATURE_VI_SEARCH */
+
+
+static void edit_file(Byte *); // edit one file
+static void do_cmd(Byte); // execute a command
+static void sync_cursor(Byte *, int *, int *); // synchronize the screen cursor to dot
+static Byte *begin_line(Byte *); // return pointer to cur line B-o-l
+static Byte *end_line(Byte *); // return pointer to cur line E-o-l
+static Byte *dollar_line(Byte *); // return pointer to just before NL
+static Byte *prev_line(Byte *); // return pointer to prev line B-o-l
+static Byte *next_line(Byte *); // return pointer to next line B-o-l
+static Byte *end_screen(void); // get pointer to last char on screen
+static int count_lines(Byte *, Byte *); // count line from start to stop
+static Byte *find_line(int); // find begining of line #li
+static Byte *move_to_col(Byte *, int); // move "p" to column l
+static int isblnk(Byte); // is the char a blank or tab
+static void dot_left(void); // move dot left- dont leave line
+static void dot_right(void); // move dot right- dont leave line
+static void dot_begin(void); // move dot to B-o-l
+static void dot_end(void); // move dot to E-o-l
+static void dot_next(void); // move dot to next line B-o-l
+static void dot_prev(void); // move dot to prev line B-o-l
+static void dot_scroll(int, int); // move the screen up or down
+static void dot_skip_over_ws(void); // move dot pat WS
+static void dot_delete(void); // delete the char at 'dot'
+static Byte *bound_dot(Byte *); // make sure text[0] <= P < "end"
+static Byte *new_screen(int, int); // malloc virtual screen memory
+static Byte *new_text(int); // malloc memory for text[] buffer
+static Byte *char_insert(Byte *, Byte); // insert the char c at 'p'
+static Byte *stupid_insert(Byte *, Byte); // stupidly insert the char c at 'p'
+static Byte find_range(Byte **, Byte **, Byte); // return pointers for an object
+static int st_test(Byte *, int, int, Byte *); // helper for skip_thing()
+static Byte *skip_thing(Byte *, int, int, int); // skip some object
+static Byte *find_pair(Byte *, Byte); // find matching pair () [] {}
+static Byte *text_hole_delete(Byte *, Byte *); // at "p", delete a 'size' byte hole
+static Byte *text_hole_make(Byte *, int); // at "p", make a 'size' byte hole
+static Byte *yank_delete(Byte *, Byte *, int, int); // yank text[] into register then delete
+static void show_help(void); // display some help info
+static void print_literal(Byte *, Byte *); // copy s to buf, convert unprintable
+static void rawmode(void); // set "raw" mode on tty
+static void cookmode(void); // return to "cooked" mode on tty
+static int mysleep(int); // sleep for 'h' 1/100 seconds
+static Byte readit(void); // read (maybe cursor) key from stdin
+static Byte get_one_char(void); // read 1 char from stdin
+static int file_size(Byte *); // what is the byte size of "fn"
+static int file_insert(Byte *, Byte *, int);
+static int file_write(Byte *, Byte *, Byte *);
+static void place_cursor(int, int);
+static void screen_erase();
+static void clear_to_eol(void);
+static void clear_to_eos(void);
+static void standout_start(void); // send "start reverse video" sequence
+static void standout_end(void); // send "end reverse video" sequence
+static void flash(int); // flash the terminal screen
+static void beep(void); // beep the terminal
+static void indicate_error(char); // use flash or beep to indicate error
+static void show_status_line(void); // put a message on the bottom line
+static void psb(char *, ...); // Print Status Buf
+static void psbs(char *, ...); // Print Status Buf in standout mode
+static void ni(Byte *); // display messages
+static void edit_status(void); // show file status on status line
+static void redraw(int); // force a full screen refresh
+static void refresh(int); // update the terminal from screen[]
+
+#ifdef BB_FEATURE_VI_SEARCH
+static Byte *char_search(Byte *, Byte *, int, int); // search for pattern starting at p
+static int mycmp(Byte *, Byte *, int); // string cmp based in "ignorecase"
+#endif /* BB_FEATURE_VI_SEARCH */
+#ifdef BB_FEATURE_VI_COLON
+static void Hit_Return(void);
+static Byte *get_address(Byte *, int *); // get colon addr, if present
+static void colon(Byte *); // execute the "colon" mode cmds
+#endif /* BB_FEATURE_VI_COLON */
+#if defined(BB_FEATURE_VI_SEARCH) || defined(BB_FEATURE_VI_COLON)
+static Byte *get_input_line(Byte *); // get input line- use "status line"
+#endif /* BB_FEATURE_VI_SEARCH || BB_FEATURE_VI_COLON */
+#ifdef BB_FEATURE_VI_USE_SIGNALS
+static void winch_sig(int); // catch window size changes
+static void suspend_sig(int); // catch ctrl-Z
+static void alarm_sig(int); // catch alarm time-outs
+static void catch_sig(int); // catch ctrl-C
+static void core_sig(int); // catch a core dump signal
+#endif /* BB_FEATURE_VI_USE_SIGNALS */
+#ifdef BB_FEATURE_VI_DOT_CMD
+static void start_new_cmd_q(Byte); // new queue for command
+static void end_cmd_q(); // stop saving input chars
+#else /* BB_FEATURE_VI_DOT_CMD */
+#define end_cmd_q()
+#endif /* BB_FEATURE_VI_DOT_CMD */
+#ifdef BB_FEATURE_VI_WIN_RESIZE
+static void window_size_get(int); // find out what size the window is
+#endif /* BB_FEATURE_VI_WIN_RESIZE */
+#ifdef BB_FEATURE_VI_SETOPTS
+static void showmatching(Byte *); // show the matching pair () [] {}
+#endif /* BB_FEATURE_VI_SETOPTS */
+#if defined(BB_FEATURE_VI_YANKMARK) || defined(BB_FEATURE_VI_COLON) || defined(BB_FEATURE_VI_CRASHME)
+static Byte *string_insert(Byte *, Byte *); // insert the string at 'p'
+#endif /* BB_FEATURE_VI_YANKMARK || BB_FEATURE_VI_COLON || BB_FEATURE_VI_CRASHME */
+#ifdef BB_FEATURE_VI_YANKMARK
+static Byte *text_yank(Byte *, Byte *, int); // save copy of "p" into a register
+static Byte what_reg(void); // what is letter of current YDreg
+static void check_context(Byte); // remember context for '' command
+static Byte *swap_context(Byte *); // goto new context for '' command
+#endif /* BB_FEATURE_VI_YANKMARK */
+#ifdef BB_FEATURE_VI_CRASHME
+static void crash_dummy();
+static void crash_test();
+static int crashme = 0;
+#endif /* BB_FEATURE_VI_CRASHME */
+
+
+#ifdef STANDALONE
+int main(int argc, char **argv)
+#else
+extern int vi_main(int argc, char **argv)
+#endif /* STANDALONE */
+{
+ extern char *optarg;
+ char c;
+
+#ifdef BB_FEATURE_VI_YANKMARK
+ int i;
+#endif /* BB_FEATURE_VI_YANKMARK */
+
+ SOs = "\033[7m"; // Terminal standout mode on
+ SOn = "\033[0m"; // Terminal standout mode off
+#ifdef BB_FEATURE_VI_CRASHME
+ (void) srand((long) getpid());
+#endif /* BB_FEATURE_VI_CRASHME */
+ status_buffer = (Byte *) malloc(200); // hold messages to user
+#ifdef BB_FEATURE_VI_READONLY
+ readonly = FALSE;
+ if (strncmp(argv[0], "view", 4) == 0) {
+ readonly = TRUE;
+ }
+#endif /* BB_FEATURE_VI_READONLY */
+#ifdef BB_FEATURE_VI_SETOPTS
+ autoindent = 1;
+ ignorecase = 1;
+ showmatch = 1;
+#endif /* BB_FEATURE_VI_SETOPTS */
+#ifdef BB_FEATURE_VI_YANKMARK
+ for (i = 0; i < 28; i++) {
+ reg[i] = 0;
+ } // init the yank regs
+#endif /* BB_FEATURE_VI_YANKMARK */
+#ifdef BB_FEATURE_VI_DOT_CMD
+ modifying_cmds = (Byte *) "aAcCdDiIJoOpPrRsxX<>~"; // cmds modifying text[]
+#endif /* BB_FEATURE_VI_DOT_CMD */
+
+ // 1- process $HOME/.exrc file
+ // 2- process EXINIT variable from environment
+ // 3- process command line args
+ while ((c = getopt(argc, argv, "hCR")) != -1) {
+ switch (c) {
+#ifdef BB_FEATURE_VI_CRASHME
+ case 'C':
+ crashme = 1;
+ break;
+#endif /* BB_FEATURE_VI_CRASHME */
+#ifdef BB_FEATURE_VI_READONLY
+ case 'R': // Read-only flag
+ readonly = TRUE;
+ break;
+#endif /* BB_FEATURE_VI_READONLY */
+ //case 'r': // recover flag- ignore- we don't use tmp file
+ //case 'x': // encryption flag- ignore
+ //case 'c': // execute command first
+ //case 'h': // help -- just use default
+ default:
+ show_help();
+ break;
+ }
+ }
+
+ // The argv array can be used by the ":next" and ":rewind" commands
+ // save optind.
+ fn_start = optind; // remember first file name for :next and :rew
+ save_argc = argc;
+
+ //----- This is the main file handling loop --------------
+ if (optind >= argc) {
+ editing = 1; // 0= exit, 1= one file, 2= multiple files
+ edit_file(0);
+ } else {
+ for (; optind < argc; optind++) {
+ editing = 1; // 0=exit, 1=one file, 2+ =many files
+ if (cfn != 0)
+ free(cfn);
+ cfn = (Byte *) strdup(argv[optind]);
+ edit_file(cfn);
+ }
+ }
+ //-----------------------------------------------------------
+
+ return (0);
+}
+
+static void edit_file(Byte * fn)
+{
+ char c;
+ int cnt, size;
+
+#ifdef BB_FEATURE_VI_USE_SIGNALS
+ char *msg;
+ int sig;
+#endif /* BB_FEATURE_VI_USE_SIGNALS */
+#ifdef BB_FEATURE_VI_YANKMARK
+ static Byte *cur_line;
+#endif /* BB_FEATURE_VI_YANKMARK */
+
+ rawmode();
+ rows = 24;
+ columns = 80;
+#ifdef BB_FEATURE_VI_WIN_RESIZE
+ window_size_get(0);
+#endif /* BB_FEATURE_VI_WIN_RESIZE */
+ new_screen(rows, columns); // get memory for virtual screen
+
+ cnt = file_size(fn); // file size
+ size = 2 * cnt; // 200% of file size
+ new_text(size); // get a text[] buffer
+ screenbegin = dot = end = text;
+ if (fn != 0) {
+ file_insert(fn, text, cnt);
+ } else {
+ (void) char_insert(text, '\n'); // start empty buf with dummy line
+ }
+ file_modified = FALSE;
+#ifdef BB_FEATURE_VI_YANKMARK
+ YDreg = 26; // default Yank/Delete reg
+ Ureg = 27; // hold orig line for "U" cmd
+ for (cnt = 0; cnt < 28; cnt++) {
+ mark[cnt] = 0;
+ } // init the marks
+ mark[26] = mark[27] = text; // init "previous context"
+#endif /* BB_FEATURE_VI_YANKMARK */
+
+ err_method = 1; // flash
+ last_forward_char = last_input_char = '\0';
+ crow = 0;
+ ccol = 0;
+ edit_status();
+
+#ifdef BB_FEATURE_VI_USE_SIGNALS
+ signal(SIGHUP, catch_sig);
+ signal(SIGINT, catch_sig);
+ signal(SIGALRM, alarm_sig);
+ signal(SIGTERM, catch_sig);
+ signal(SIGQUIT, core_sig);
+ signal(SIGILL, core_sig);
+ signal(SIGTRAP, core_sig);
+ signal(SIGIOT, core_sig);
+ signal(SIGABRT, core_sig);
+ signal(SIGFPE, core_sig);
+ signal(SIGBUS, core_sig);
+ signal(SIGSEGV, core_sig);
+ signal(SIGSYS, core_sig);
+ signal(SIGWINCH, winch_sig);
+ signal(SIGTSTP, suspend_sig);
+ sig = setjmp(restart);
+ if (sig != 0) {
+ msg = "";
+ if (sig == SIGWINCH)
+ msg = "(window resize)";
+ if (sig == SIGHUP)
+ msg = "(hangup)";
+ if (sig == SIGINT)
+ msg = "(interrupt)";
+ if (sig == SIGTERM)
+ msg = "(terminate)";
+ if (sig == SIGBUS)
+ msg = "(bus error)";
+ if (sig == SIGSEGV)
+ msg = "(I tried to touch invalid memory)";
+ if (sig == SIGALRM)
+ msg = "(alarm)";
+
+ psbs("-- caught signal %d %s--", sig, msg);
+ }
+#endif /* BB_FEATURE_VI_USE_SIGNALS */
+
+ editing = 1;
+ cmd_mode = 0; // 0=command 1=insert 2='R'eplace
+ cmdcnt = 0;
+ tabstop = 8;
+ offset = 0; // no horizontal offset
+ c = '\0';
+#ifdef BB_FEATURE_VI_DOT_CMD
+ if (last_modifying_cmd != 0)
+ free(last_modifying_cmd);
+ if (ioq_start != NULL)
+ free(ioq_start);
+ ioq = ioq_start = last_modifying_cmd = 0;
+ adding2q = 0;
+#endif /* BB_FEATURE_VI_DOT_CMD */
+ redraw(TRUE);
+ show_status_line();
+
+ //------This is the main Vi cmd handling loop -----------------------
+ while (editing > 0) {
+#ifdef BB_FEATURE_VI_CRASHME
+ if (crashme > 0) {
+ if ((end - text) > 1) {
+ crash_dummy(); // generate a random command
+ } else {
+ crashme = 0;
+ dot =
+ string_insert(text, (Byte *) "\n\n##### Ran out of text to work on. #####\n\n"); // insert the string
+ refresh(FALSE);
+ }
+ }
+#endif /* BB_FEATURE_VI_CRASHME */
+ last_input_char = c = get_one_char(); // get a cmd from user
+#ifdef BB_FEATURE_VI_YANKMARK
+ // save a copy of the current line- for the 'U" command
+ if (begin_line(dot) != cur_line) {
+ cur_line = begin_line(dot);
+ text_yank(begin_line(dot), end_line(dot), Ureg);
+ }
+#endif /* BB_FEATURE_VI_YANKMARK */
+#ifdef BB_FEATURE_VI_DOT_CMD
+ // These are commands that change text[].
+ // Remember the input for the "." command
+ if (!adding2q && ioq_start == 0
+ && strchr((char *) modifying_cmds, c) != NULL) {
+ start_new_cmd_q(c);
+ }
+#endif /* BB_FEATURE_VI_DOT_CMD */
+ do_cmd(c); // execute the user command
+ //
+ // poll to see if there is input already waiting. if we are
+ // not able to display output fast enough to keep up, skip
+ // the display update until we catch up with input.
+ if (mysleep(0) == 0) {
+ // no input pending- so update output
+ refresh(FALSE);
+ show_status_line();
+ }
+#ifdef BB_FEATURE_VI_CRASHME
+ if (crashme > 0)
+ crash_test(); // test editor variables
+#endif /* BB_FEATURE_VI_CRASHME */
+ }
+ //-------------------------------------------------------------------
+
+ place_cursor(rows, 0); // go to bottom of screen
+ clear_to_eol(); // Erase to end of line
+ cookmode();
+}
+
+static Byte readbuffer[BUFSIZ];
+
+#ifdef BB_FEATURE_VI_CRASHME
+static int totalcmds = 0;
+static int Mp = 85; // Movement command Probability
+static int Np = 90; // Non-movement command Probability
+static int Dp = 96; // Delete command Probability
+static int Ip = 97; // Insert command Probability
+static int Yp = 98; // Yank command Probability
+static int Pp = 99; // Put command Probability
+static int M = 0, N = 0, I = 0, D = 0, Y = 0, P = 0, U = 0;
+char chars[20] = "\t012345 abcdABCD-=.$";
+char *words[20] = { "this", "is", "a", "test",
+ "broadcast", "the", "emergency", "of",
+ "system", "quick", "brown", "fox",
+ "jumped", "over", "lazy", "dogs",
+ "back", "January", "Febuary", "March"
+};
+char *lines[20] = {
+ "You should have received a copy of the GNU General Public License\n",
+ "char c, cm, *cmd, *cmd1;\n",
+ "generate a command by percentages\n",
+ "Numbers may be typed as a prefix to some commands.\n",
+ "Quit, discarding changes!\n",
+ "Forced write, if permission originally not valid.\n",
+ "In general, any ex or ed command (such as substitute or delete).\n",
+ "I have tickets available for the Blazers vs LA Clippers for Monday, Janurary 1 at 1:00pm.\n",
+ "Please get w/ me and I will go over it with you.\n",
+ "The following is a list of scheduled, committed changes.\n",
+ "1. Launch Norton Antivirus (Start, Programs, Norton Antivirus)\n",
+ "Reminder....Town Meeting in Central Perk cafe today at 3:00pm.\n",
+ "Any question about transactions please contact Sterling Huxley.\n",
+ "I will try to get back to you by Friday, December 31.\n",
+ "This Change will be implemented on Friday.\n",
+ "Let me know if you have problems accessing this;\n",
+ "Sterling Huxley recently added you to the access list.\n",
+ "Would you like to go to lunch?\n",
+ "The last command will be automatically run.\n",
+ "This is too much english for a computer geek.\n",
+};
+char *multilines[20] = {
+ "You should have received a copy of the GNU General Public License\n",
+ "char c, cm, *cmd, *cmd1;\n",
+ "generate a command by percentages\n",
+ "Numbers may be typed as a prefix to some commands.\n",
+ "Quit, discarding changes!\n",
+ "Forced write, if permission originally not valid.\n",
+ "In general, any ex or ed command (such as substitute or delete).\n",
+ "I have tickets available for the Blazers vs LA Clippers for Monday, Janurary 1 at 1:00pm.\n",
+ "Please get w/ me and I will go over it with you.\n",
+ "The following is a list of scheduled, committed changes.\n",
+ "1. Launch Norton Antivirus (Start, Programs, Norton Antivirus)\n",
+ "Reminder....Town Meeting in Central Perk cafe today at 3:00pm.\n",
+ "Any question about transactions please contact Sterling Huxley.\n",
+ "I will try to get back to you by Friday, December 31.\n",
+ "This Change will be implemented on Friday.\n",
+ "Let me know if you have problems accessing this;\n",
+ "Sterling Huxley recently added you to the access list.\n",
+ "Would you like to go to lunch?\n",
+ "The last command will be automatically run.\n",
+ "This is too much english for a computer geek.\n",
+};
+
+// create a random command to execute
+static void crash_dummy()
+{
+ static int sleeptime; // how long to pause between commands
+ char c, cm, *cmd, *cmd1;
+ int i, cnt, thing, rbi, startrbi, percent;
+
+ // "dot" movement commands
+ cmd1 = " \n\r\002\004\005\006\025\0310^$-+wWeEbBhjklHL";
+
+ // is there already a command running?
+ if (strlen((char *) readbuffer) > 0)
+ goto cd1;
+ cd0:
+ startrbi = rbi = 0;
+ sleeptime = 0; // how long to pause between commands
+ memset(readbuffer, '\0', BUFSIZ - 1); // clear the read buffer
+ // generate a command by percentages
+ percent = (int) lrand48() % 100; // get a number from 0-99
+ if (percent < Mp) { // Movement commands
+ // available commands
+ cmd = cmd1;
+ M++;
+ } else if (percent < Np) { // non-movement commands
+ cmd = "mz<>\'\""; // available commands
+ N++;
+ } else if (percent < Dp) { // Delete commands
+ cmd = "dx"; // available commands
+ D++;
+ } else if (percent < Ip) { // Inset commands
+ cmd = "iIaAsrJ"; // available commands
+ I++;
+ } else if (percent < Yp) { // Yank commands
+ cmd = "yY"; // available commands
+ Y++;
+ } else if (percent < Pp) { // Put commands
+ cmd = "pP"; // available commands
+ P++;
+ } else {
+ // We do not know how to handle this command, try again
+ U++;
+ goto cd0;
+ }
+ // randomly pick one of the available cmds from "cmd[]"
+ i = (int) lrand48() % strlen(cmd);
+ cm = cmd[i];
+ if (strchr(":\024", cm))
+ goto cd0; // dont allow these commands
+ readbuffer[rbi++] = cm; // put cmd into input buffer
+
+ // now we have the command-
+ // there are 1, 2, and multi char commands
+ // find out which and generate the rest of command as necessary
+ if (strchr("dmryz<>\'\"", cm)) { // 2-char commands
+ cmd1 = " \n\r0$^-+wWeEbBhjklHL";
+ if (cm == 'm' || cm == '\'' || cm == '\"') { // pick a reg[]
+ cmd1 = "abcdefghijklmnopqrstuvwxyz";
+ }
+ thing = (int) lrand48() % strlen(cmd1); // pick a movement command
+ c = cmd1[thing];
+ readbuffer[rbi++] = c; // add movement to input buffer
+ }
+ if (strchr("iIaAsc", cm)) { // multi-char commands
+ if (cm == 'c') {
+ // change some thing
+ thing = (int) lrand48() % strlen(cmd1); // pick a movement command
+ c = cmd1[thing];
+ readbuffer[rbi++] = c; // add movement to input buffer
+ }
+ thing = (int) lrand48() % 4; // what thing to insert
+ cnt = (int) lrand48() % 10; // how many to insert
+ for (i = 0; i < cnt; i++) {
+ if (thing == 0) { // insert chars
+ readbuffer[rbi++] = chars[((int) lrand48() % strlen(chars))];
+ } else if (thing == 1) { // insert words
+ strcat((char *) readbuffer, words[(int) lrand48() % 20]);
+ strcat((char *) readbuffer, " ");
+ sleeptime = 0; // how fast to type
+ } else if (thing == 2) { // insert lines
+ strcat((char *) readbuffer, lines[(int) lrand48() % 20]);
+ sleeptime = 0; // how fast to type
+ } else { // insert multi-lines
+ strcat((char *) readbuffer, multilines[(int) lrand48() % 20]);
+ sleeptime = 0; // how fast to type
+ }
+ }
+ strcat((char *) readbuffer, "\033");
+ }
+ cd1:
+ totalcmds++;
+ if (sleeptime > 0)
+ (void) mysleep(sleeptime); // sleep 1/100 sec
+}
+
+// test to see if there are any errors
+static void crash_test()
+{
+ static time_t oldtim;
+ time_t tim;
+ char d[2], buf[100], msg[BUFSIZ];
+
+ msg[0] = '\0';
+ if (end < text) {
+ strcat((char *) msg, "end<text ");
+ }
+ if (end > textend) {
+ strcat((char *) msg, "end>textend ");
+ }
+ if (dot < text) {
+ strcat((char *) msg, "dot<text ");
+ }
+ if (dot > end) {
+ strcat((char *) msg, "dot>end ");
+ }
+ if (screenbegin < text) {
+ strcat((char *) msg, "screenbegin<text ");
+ }
+ if (screenbegin > end - 1) {
+ strcat((char *) msg, "screenbegin>end-1 ");
+ }
+
+ if (strlen(msg) > 0) {
+ alarm(0);
+ sprintf(buf, "\n\n%d: \'%c\' ", totalcmds, last_input_char);
+ write(1, buf, strlen(buf));
+ write(1, msg, strlen(msg));
+ write(1, "\n\n\n", 3);
+ write(1, "\033[7m[Hit return to continue]\033[0m", 32);
+ while (read(0, d, 1) > 0) {
+ if (d[0] == '\n' || d[0] == '\r')
+ break;
+ }
+ alarm(3);
+ }
+ tim = (time_t) time((time_t *) 0);
+ if (tim >= (oldtim + 3)) {
+ sprintf((char *) status_buffer,
+ "Tot=%d: M=%d N=%d I=%d D=%d Y=%d P=%d U=%d size=%d",
+ totalcmds, M, N, I, D, Y, P, U, end - text + 1);
+ oldtim = tim;
+ }
+ return;
+}
+#endif /* BB_FEATURE_VI_CRASHME */
+
+//---------------------------------------------------------------------
+//----- the Ascii Chart -----------------------------------------------
+//
+// 00 nul 01 soh 02 stx 03 etx 04 eot 05 enq 06 ack 07 bel
+// 08 bs 09 ht 0a nl 0b vt 0c np 0d cr 0e so 0f si
+// 10 dle 11 dc1 12 dc2 13 dc3 14 dc4 15 nak 16 syn 17 etb
+// 18 can 19 em 1a sub 1b esc 1c fs 1d gs 1e rs 1f us
+// 20 sp 21 ! 22 " 23 # 24 $ 25 % 26 & 27 '
+// 28 ( 29 ) 2a * 2b + 2c , 2d - 2e . 2f /
+// 30 0 31 1 32 2 33 3 34 4 35 5 36 6 37 7
+// 38 8 39 9 3a : 3b ; 3c < 3d = 3e > 3f ?
+// 40 @ 41 A 42 B 43 C 44 D 45 E 46 F 47 G
+// 48 H 49 I 4a J 4b K 4c L 4d M 4e N 4f O
+// 50 P 51 Q 52 R 53 S 54 T 55 U 56 V 57 W
+// 58 X 59 Y 5a Z 5b [ 5c \ 5d ] 5e ^ 5f _
+// 60 ` 61 a 62 b 63 c 64 d 65 e 66 f 67 g
+// 68 h 69 i 6a j 6b k 6c l 6d m 6e n 6f o
+// 70 p 71 q 72 r 73 s 74 t 75 u 76 v 77 w
+// 78 x 79 y 7a z 7b { 7c | 7d } 7e ~ 7f del
+//---------------------------------------------------------------------
+
+//----- Execute a Vi Command -----------------------------------
+static void do_cmd(Byte c)
+{
+ Byte c1, *p, *q, *msg, buf[9], *save_dot;
+ int cnt, i, j, dir, yf;
+
+ c1 = c; // quiet the compiler
+ cnt = yf = dir = 0; // quiet the compiler
+ p = q = save_dot = msg = buf; // quiet the compiler
+ memset(buf, '\0', 9); // clear buf
+ if (cmd_mode == 2) {
+ // we are 'R'eplacing the current *dot with new char
+ if (*dot == '\n') {
+ // don't Replace past E-o-l
+ cmd_mode = 1; // convert to insert
+ } else {
+ if (1 <= c && c <= 127) { // only ASCII chars
+ if (c != 27)
+ dot = yank_delete(dot, dot, 0, YANKDEL); // delete char
+ dot = char_insert(dot, c); // insert new char
+ }
+ goto dc1;
+ }
+ }
+ if (cmd_mode == 1) {
+ // insert the char c at "dot"
+ if (1 <= c && c <= 127) {
+ dot = char_insert(dot, c); // only ASCII chars
+ }
+ goto dc1;
+ }
+
+ switch (c) {
+ //case 0x01: // soh
+ //case 0x09: // ht
+ //case 0x0b: // vt
+ //case 0x0e: // so
+ //case 0x0f: // si
+ //case 0x10: // dle
+ //case 0x11: // dc1
+ //case 0x12: // dc2
+ //case 0x13: // dc3
+ case 0x14: // dc4 ctrl-T
+#ifdef BB_FEATURE_VI_CRASHME
+ crashme = (crashme == 0) ? 1 : 0;
+#endif /* BB_FEATURE_VI_CRASHME */
+ break;
+ //case 0x16: // syn
+ //case 0x17: // etb
+ //case 0x18: // can
+ //case 0x1c: // fs
+ //case 0x1d: // gs
+ //case 0x1e: // rs
+ //case 0x1f: // us
+ //case '!': // !-
+ //case '#': // #-
+ //case '&': // &-
+ //case '(': // (-
+ //case ')': // )-
+ //case '*': // *-
+ //case ',': // ,-
+ //case '=': // =-
+ //case '@': // @-
+ //case 'F': // F-
+ //case 'G': // G-
+ //case 'K': // K-
+ //case 'M': // M-
+ //case 'Q': // Q-
+ //case 'S': // S-
+ //case 'T': // T-
+ //case 'V': // V-
+ //case '[': // [-
+ //case '\\': // \-
+ //case ']': // ]-
+ //case '_': // _-
+ //case '`': // `-
+ //case 'g': // g-
+ //case 'm': // m-
+ //case 't': // t-
+ //case 'v': // v-
+ default: // unrecognised command
+ buf[0] = c;
+ buf[1] = '\0';
+ if (c <= ' ') {
+ buf[0] = '^';
+ buf[1] = c + '@';
+ buf[2] = '\0';
+ }
+ ni((Byte *) buf);
+ end_cmd_q(); // stop adding to q
+ case 0x00: // nul- ignore
+ break;
+ case 2: // ctrl-B scroll up full screen
+ case VI_K_PAGEUP: // Cursor Key Page Up
+ dot_scroll(rows - 2, -1);
+ break;
+#ifdef BB_FEATURE_VI_USE_SIGNALS
+ case 0x03: // ctrl-C interrupt
+ longjmp(restart, 1);
+ break;
+ case 26: // ctrl-Z suspend
+ suspend_sig(SIGTSTP);
+ break;
+#endif /* BB_FEATURE_VI_USE_SIGNALS */
+ case 4: // ctrl-D scroll down half screen
+ dot_scroll((rows - 2) / 2, 1);
+ break;
+ case 5: // ctrl-E scroll down one line
+ dot_scroll(1, 1);
+ break;
+ case 6: // ctrl-F scroll down full screen
+ case VI_K_PAGEDOWN: // Cursor Key Page Down
+ dot_scroll(rows - 2, 1);
+ break;
+ case 7: // ctrl-G show current status
+ edit_status();
+ break;
+ case 'h': // h- move left
+ case VI_K_LEFT: // cursor key Left
+ case 8: // ^h- move left (This may be ERASE char)
+ case 127: // DEL- move left (This may be ERASE char)
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dot_left();
+ break;
+ case 10: // Newline ^J
+ case 'j': // j- goto next line, same col
+ case VI_K_DOWN: // cursor key Down
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dot_next(); // go to next B-o-l
+ dot = move_to_col(dot, ccol + offset); // try stay in same col
+ break;
+ case 12: // ctrl-L force redraw whole screen
+ place_cursor(0, 0); // put cursor in correct place
+ clear_to_eos(); // tel terminal to erase display
+ (void) mysleep(10);
+ screen_erase(); // erase the internal screen buffer
+ refresh(TRUE); // this will redraw the entire display
+ break;
+ case 13: // Carriage Return ^M
+ case '+': // +- goto next line
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dot_next();
+ dot_skip_over_ws();
+ break;
+ case 21: // ctrl-U scroll up half screen
+ dot_scroll((rows - 2) / 2, -1);
+ break;
+ case 25: // ctrl-Y scroll up one line
+ dot_scroll(1, -1);
+ break;
+ case 0x1b: // esc
+ if (cmd_mode == 0)
+ indicate_error(c);
+ cmd_mode = 0; // stop insrting
+ end_cmd_q();
+ *status_buffer = '\0'; // clear status buffer
+ break;
+ case ' ': // move right
+ case 'l': // move right
+ case VI_K_RIGHT: // Cursor Key Right
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dot_right();
+ break;
+#ifdef BB_FEATURE_VI_YANKMARK
+ case '"': // "- name a register to use for Delete/Yank
+ c1 = get_one_char();
+ c1 = tolower(c1);
+ if (islower(c1)) {
+ YDreg = c1 - 'a';
+ } else {
+ indicate_error(c);
+ }
+ break;
+ case '\'': // '- goto a specific mark
+ c1 = get_one_char();
+ c1 = tolower(c1);
+ if (islower(c1)) {
+ c1 = c1 - 'a';
+ // get the b-o-l
+ q = mark[(int) c1];
+ if (text <= q && q < end) {
+ dot = q;
+ dot_begin(); // go to B-o-l
+ dot_skip_over_ws();
+ }
+ } else if (c1 == '\'') { // goto previous context
+ dot = swap_context(dot); // swap current and previous context
+ dot_begin(); // go to B-o-l
+ dot_skip_over_ws();
+ } else {
+ indicate_error(c);
+ }
+ break;
+ case 'm': // m- Mark a line
+ // this is really stupid. If there are any inserts or deletes
+ // between text[0] and dot then this mark will not point to the
+ // correct location! It could be off by many lines!
+ // Well..., at least its quick and dirty.
+ c1 = get_one_char();
+ c1 = tolower(c1);
+ if (islower(c1)) {
+ c1 = c1 - 'a';
+ // remember the line
+ mark[(int) c1] = dot;
+ } else {
+ indicate_error(c);
+ }
+ break;
+ case 'P': // P- Put register before
+ case 'p': // p- put register after
+ p = reg[YDreg];
+ if (p == 0) {
+ psbs("Nothing in register %c", what_reg());
+ break;
+ }
+ // are we putting whole lines or strings
+ if (strchr((char *) p, '\n') != NULL) {
+ if (c == 'P') {
+ dot_begin(); // putting lines- Put above
+ }
+ if (c == 'p') {
+ // are we putting after very last line?
+ if (end_line(dot) == (end - 1)) {
+ dot = end; // force dot to end of text[]
+ } else {
+ dot_next(); // next line, then put before
+ }
+ }
+ } else {
+ if (c == 'p')
+ dot_right(); // move to right, can move to NL
+ }
+ dot = string_insert(dot, p); // insert the string
+ end_cmd_q(); // stop adding to q
+ break;
+ case 'u': // u-
+ case 'U': // U- Undo; replace current line with original version
+ if (reg[Ureg] != 0) {
+ p = begin_line(dot);
+ q = end_line(dot);
+ p = text_hole_delete(p, q); // delete cur line
+ p = string_insert(p, reg[Ureg]); // insert orig line
+ dot = p;
+ dot_skip_over_ws();
+ }
+ break;
+#endif /* BB_FEATURE_VI_YANKMARK */
+ case '$': // $- goto end of line
+ case VI_K_END: // Cursor Key End
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dot = end_line(dot + 1);
+ break;
+ case '%': // %- find matching char of pair () [] {}
+ for (q = dot; q < end && *q != '\n'; q++) {
+ if (strchr("()[]{}", *q) != NULL) {
+ // we found half of a pair
+ p = find_pair(q, *q);
+ if (p == NULL) {
+ indicate_error(c);
+ } else {
+ dot = p;
+ }
+ break;
+ }
+ }
+ if (*q == '\n')
+ indicate_error(c);
+ break;
+ case 'f': // f- forward to a user specified char
+ last_forward_char = get_one_char(); // get the search char
+ //
+ // dont seperate these two commands. 'f' depends on ';'
+ //
+ //**** fall thru to ... 'i'
+ case ';': // ;- look at rest of line for last forward char
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ q = dot + 1;
+ while (q < end - 1 && *q != '\n' && *q != last_forward_char) {
+ q++;
+ }
+ if (*q == last_forward_char)
+ dot = q;
+ break;
+ case '-': // -- goto prev line
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dot_prev();
+ dot_skip_over_ws();
+ break;
+#ifdef BB_FEATURE_VI_DOT_CMD
+ case '.': // .- repeat the last modifying command
+ // Stuff the last_modifying_cmd back into stdin
+ // and let it be re-executed.
+ if (last_modifying_cmd != 0) {
+ ioq = ioq_start = (Byte *) strdup((char *) last_modifying_cmd);
+ }
+ break;
+#endif /* BB_FEATURE_VI_DOT_CMD */
+#ifdef BB_FEATURE_VI_SEARCH
+ case '?': // /- search for a pattern
+ case '/': // /- search for a pattern
+ buf[0] = c;
+ buf[1] = '\0';
+ q = get_input_line(buf); // get input line- use "status line"
+ if (strlen((char *) q) == 1)
+ goto dc3; // if no pat re-use old pat
+ if (strlen((char *) q) > 1) { // new pat- save it and find
+ // there is a new pat
+ if (last_search_pattern != 0) {
+ free(last_search_pattern);
+ }
+ last_search_pattern = (Byte *) strdup((char *) q);
+ goto dc3; // now find the pattern
+ }
+ // user changed mind and erased the "/"- do nothing
+ break;
+ case 'N': // N- backward search for last pattern
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dir = BACK; // assume BACKWARD search
+ p = dot - 1;
+ if (last_search_pattern[0] == '?') {
+ dir = FORWARD;
+ p = dot + 1;
+ }
+ goto dc4; // now search for pattern
+ break;
+ case 'n': // n- repeat search for last pattern
+ // search rest of text[] starting at next char
+ // if search fails return orignal "p" not the "p+1" address
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dc3:
+ if (last_search_pattern == 0) {
+ msg = (Byte *) "No previous regular expression";
+ goto dc2;
+ }
+ if (last_search_pattern[0] == '/') {
+ dir = FORWARD; // assume FORWARD search
+ p = dot + 1;
+ }
+ if (last_search_pattern[0] == '?') {
+ dir = BACK;
+ p = dot - 1;
+ }
+ dc4:
+ q = char_search(p, last_search_pattern + 1, dir, FULL);
+ if (q != NULL) {
+ dot = q; // good search, update "dot"
+ msg = (Byte *) "";
+ goto dc2;
+ }
+ // no pattern found between "dot" and "end"- continue at top
+ p = text;
+ if (dir == BACK) {
+ p = end - 1;
+ }
+ q = char_search(p, last_search_pattern + 1, dir, FULL);
+ if (q != NULL) { // found something
+ dot = q; // found new pattern- goto it
+ msg = (Byte *) "search hit BOTTOM, continuing at TOP";
+ if (dir == BACK) {
+ msg = (Byte *) "search hit TOP, continuing at BOTTOM";
+ }
+ } else {
+ msg = (Byte *) "Pattern not found";
+ }
+ dc2:
+ psbs("%s", msg);
+ break;
+ case '{': // {- move backward paragraph
+ q = char_search(dot, (Byte *) "\n\n", BACK, FULL);
+ if (q != NULL) { // found blank line
+ dot = next_line(q); // move to next blank line
+ }
+ break;
+ case '}': // }- move forward paragraph
+ q = char_search(dot, (Byte *) "\n\n", FORWARD, FULL);
+ if (q != NULL) { // found blank line
+ dot = next_line(q); // move to next blank line
+ }
+ break;
+#endif /* BB_FEATURE_VI_SEARCH */
+ case '0': // 0- goto begining of line
+ case '1': // 1-
+ case '2': // 2-
+ case '3': // 3-
+ case '4': // 4-
+ case '5': // 5-
+ case '6': // 6-
+ case '7': // 7-
+ case '8': // 8-
+ case '9': // 9-
+ if (c == '0' && cmdcnt < 1) {
+ dot_begin(); // this was a standalone zero
+ } else {
+ cmdcnt = cmdcnt * 10 + (c - '0'); // this 0 is part of a number
+ }
+ break;
+ case ':': // :- the colon mode commands
+#ifdef BB_FEATURE_VI_COLON
+ p = get_input_line((Byte *) ":"); // get input line- use "status line"
+ colon(p); // execute the command
+#else /* BB_FEATURE_VI_COLON */
+ *status_buffer = '\0'; // clear the status buffer
+ place_cursor(rows - 1, 0); // go to Status line, bottom of screen
+ clear_to_eol(); // clear the line
+ write(1, ":", 1); // write out the : prompt
+ for (cnt = 0; cnt < 8; cnt++) {
+ c1 = get_one_char();
+ if (c1 == '\n' || c1 == '\r') {
+ break;
+ }
+ buf[cnt] = c1;
+ buf[cnt + 1] = '\0';
+ write(1, buf + cnt, 1); // echo the char
+ }
+ cnt = strlen((char *) buf);
+ if (strncasecmp((char *) buf, "quit", cnt) == 0 ||
+ strncasecmp((char *) buf, "q!", cnt) == 0) { // delete lines
+ if (file_modified == TRUE && buf[1] != '!') {
+ psbs("No write since last change (:quit! overrides)");
+ } else {
+ editing = 0;
+ }
+ } else if (strncasecmp((char *) buf, "write", cnt) == 0 ||
+ strncasecmp((char *) buf, "wq", cnt) == 0) {
+ cnt = file_write(cfn, text, end - 1);
+ file_modified = FALSE;
+ psb("\"%s\" %dL, %dC", cfn, count_lines(text, end - 1), cnt);
+ if (buf[1] == 'q') {
+ editing = 0;
+ }
+ } else { // unrecognised cmd
+ ni((Byte *) buf);
+ }
+#endif /* BB_FEATURE_VI_COLON */
+ break;
+ case '<': // <- Left shift something
+ case '>': // >- Right shift something
+ cnt = count_lines(text, dot); // remember what line we are on
+ c1 = get_one_char(); // get the type of thing to delete
+ find_range(&p, &q, c1);
+ (void) yank_delete(p, q, 1, YANKONLY); // save copy before change
+ p = begin_line(p);
+ q = end_line(q);
+ i = count_lines(p, q); // # of lines we are shifting
+ for ( ; i > 0; i--, p = next_line(p)) {
+ if (c == '<') {
+ // shift left- remove tab or 8 spaces
+ if (*p == '\t') {
+ // shrink buffer 1 char
+ (void) text_hole_delete(p, p);
+ } else if (*p == ' ') {
+ // we should be calculating columns, not just SPACE
+ for (j = 0; *p == ' ' && j < tabstop; j++) {
+ (void) text_hole_delete(p, p);
+ }
+ }
+ } else if (c == '>') {
+ // shift right -- add tab or 8 spaces
+ (void) char_insert(p, '\t');
+ }
+ }
+ dot = find_line(cnt); // what line were we on
+ dot_skip_over_ws();
+ end_cmd_q(); // stop adding to q
+ break;
+ case 'A': // A- append at e-o-l
+ dot_end(); // go to e-o-l
+ //**** fall thru to ... 'a'
+ case 'a': // a- append after current char
+ if (*dot != '\n')
+ dot++;
+ goto dc_i;
+ break;
+ case 'B': // B- back a blank-delimited Word
+ case 'E': // E- end of a blank-delimited word
+ case 'W': // W- forward a blank-delimited word
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dir = FORWARD;
+ if (c == 'B')
+ dir = BACK;
+ if (c == 'W' || isspace(dot[dir])) {
+ dot = skip_thing(dot, 1, dir, S_TO_WS);
+ dot = skip_thing(dot, 2, dir, S_OVER_WS);
+ }
+ if (c != 'W')
+ dot = skip_thing(dot, 1, dir, S_BEFORE_WS);
+ break;
+ case 'C': // C- Change to e-o-l
+ case 'D': // D- delete to e-o-l
+ save_dot = dot;
+ dot = dollar_line(dot); // move to before NL
+ // copy text into a register and delete
+ dot = yank_delete(save_dot, dot, 0, YANKDEL); // delete to e-o-l
+ if (c == 'C')
+ goto dc_i; // start inserting
+#ifdef BB_FEATURE_VI_DOT_CMD
+ if (c == 'D')
+ end_cmd_q(); // stop adding to q
+#endif /* BB_FEATURE_VI_DOT_CMD */
+ break;
+ case 'H': // H- goto top line on screen
+ dot = screenbegin;
+ if (cmdcnt > (rows - 1)) {
+ cmdcnt = (rows - 1);
+ }
+ if (cmdcnt-- > 1) {
+ do_cmd('+');
+ } // repeat cnt
+ dot_skip_over_ws();
+ break;
+ case 'I': // I- insert before first non-blank
+ dot_begin(); // 0
+ dot_skip_over_ws();
+ //**** fall thru to ... 'i'
+ case 'i': // i- insert before current char
+ case VI_K_INSERT: // Cursor Key Insert
+ dc_i:
+ cmd_mode = 1; // start insrting
+ psb("-- Insert --");
+ break;
+ case 'J': // J- join current and next lines together
+ if (cmdcnt-- > 2) {
+ do_cmd(c);
+ } // repeat cnt
+ dot_end(); // move to NL
+ if (dot < end - 1) { // make sure not last char in text[]
+ *dot++ = ' '; // replace NL with space
+ while (isblnk(*dot)) { // delete leading WS
+ dot_delete();
+ }
+ }
+ end_cmd_q(); // stop adding to q
+ break;
+ case 'L': // L- goto bottom line on screen
+ dot = end_screen();
+ if (cmdcnt > (rows - 1)) {
+ cmdcnt = (rows - 1);
+ }
+ if (cmdcnt-- > 1) {
+ do_cmd('-');
+ } // repeat cnt
+ dot_begin();
+ dot_skip_over_ws();
+ break;
+ case 'O': // O- open a empty line above
+ // 0i\n\033-i
+ p = begin_line(dot);
+ if (p[-1] == '\n') {
+ dot_prev();
+ case 'o': // o- open a empty line below; Yes, I know it is in the middle of the "if (..."
+ dot_end();
+ dot = char_insert(dot, '\n');
+ } else {
+ dot_begin(); // 0
+ dot = char_insert(dot, '\n'); // i\n\033
+ dot_prev(); // -
+ }
+ goto dc_i;
+ break;
+ case 'R': // R- continuous Replace char
+ cmd_mode = 2;
+ psb("-- Replace --");
+ break;
+ case 'X': // X- delete char before dot
+ case 'x': // x- delete the current char
+ case 's': // s- substitute the current char
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dir = 0;
+ if (c == 'X')
+ dir = -1;
+ if (dot[dir] != '\n') {
+ if (c == 'X')
+ dot--; // delete prev char
+ dot = yank_delete(dot, dot, 0, YANKDEL); // delete char
+ }
+ if (c == 's')
+ goto dc_i; // start insrting
+ end_cmd_q(); // stop adding to q
+ break;
+ case 'Z': // Z- if modified, {write}; exit
+ // ZZ means to save file (if necessary), then exit
+ c1 = get_one_char();
+ if (c1 != 'Z') {
+ indicate_error(c);
+ break;
+ }
+ if (file_modified == TRUE
+#ifdef BB_FEATURE_VI_READONLY
+ && readonly == FALSE
+#endif /* BB_FEATURE_VI_READONLY */
+ ) {
+ cnt = file_write(cfn, text, end - 1);
+ if (cnt == (end - 1 - text + 1)) {
+ editing = 0;
+ }
+ } else {
+ editing = 0;
+ }
+ break;
+ case '^': // ^- move to first non-blank on line
+ dot_begin();
+ dot_skip_over_ws();
+ break;
+ case 'b': // b- back a word
+ case 'e': // e- end of word
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dir = FORWARD;
+ if (c == 'b')
+ dir = BACK;
+ if ((dot + dir) < text || (dot + dir) > end - 1)
+ break;
+ dot += dir;
+ if (isspace(*dot)) {
+ dot = skip_thing(dot, (c == 'e') ? 2 : 1, dir, S_OVER_WS);
+ }
+ if (isalnum(*dot) || *dot == '_') {
+ dot = skip_thing(dot, 1, dir, S_END_ALNUM);
+ } else if (ispunct(*dot)) {
+ dot = skip_thing(dot, 1, dir, S_END_PUNCT);
+ }
+ break;
+ case 'c': // c- change something
+ case 'd': // d- delete something
+#ifdef BB_FEATURE_VI_YANKMARK
+ case 'y': // y- yank something
+ case 'Y': // Y- Yank a line
+#endif /* BB_FEATURE_VI_YANKMARK */
+ yf = YANKDEL; // assume either "c" or "d"
+#ifdef BB_FEATURE_VI_YANKMARK
+ if (c == 'y' || c == 'Y')
+ yf = YANKONLY;
+#endif /* BB_FEATURE_VI_YANKMARK */
+ c1 = 'y';
+ if (c != 'Y')
+ c1 = get_one_char(); // get the type of thing to delete
+ find_range(&p, &q, c1);
+ if (c1 == 27) { // ESC- user changed mind and wants out
+ c = c1 = 27; // Escape- do nothing
+ } else if (strchr("wW", c1)) {
+ if (c == 'c') {
+ // don't include trailing WS as part of word
+ while (isblnk(*q)) {
+ if (q <= text || q[-1] == '\n')
+ break;
+ q--;
+ }
+ }
+ dot = yank_delete(p, q, 0, yf); // delete word
+ } else if (strchr("0bBeE$", c1)) {
+ // single line copy text into a register and delete
+ dot = yank_delete(p, q, 0, yf); // delete word
+ } else if (strchr("cdykjHL+-{}\r\n", c1)) {
+ // multiple line copy text into a register and delete
+ dot = yank_delete(p, q, 1, yf); // delete lines
+ if (c == 'd') {
+ dot_begin();
+ dot_skip_over_ws();
+ }
+ } else {
+ // could not recognize object
+ c = c1 = 27; // error-
+ indicate_error(c);
+ }
+ if (c1 != 27) {
+ // if CHANGING, not deleting, start inserting after the delete
+ if (c == 'c') {
+ strcpy((char *) buf, "Change");
+ goto dc_i; // start inserting
+ }
+ if (c == 'd') {
+ strcpy((char *) buf, "Delete");
+ }
+#ifdef BB_FEATURE_VI_YANKMARK
+ if (c == 'y' || c == 'Y') {
+ strcpy((char *) buf, "Yank");
+ }
+ p = reg[YDreg];
+ q = p + strlen((char *) p);
+ for (cnt = 0; p <= q; p++) {
+ if (*p == '\n')
+ cnt++;
+ }
+ psb("%s %d lines (%d chars) using [%c]",
+ buf, cnt, strlen((char *) reg[YDreg]), what_reg());
+#endif /* BB_FEATURE_VI_YANKMARK */
+ end_cmd_q(); // stop adding to q
+ }
+ break;
+ case 'k': // k- goto prev line, same col
+ case VI_K_UP: // cursor key Up
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dot_prev();
+ dot = move_to_col(dot, ccol + offset); // try stay in same col
+ break;
+ case 'r': // r- replace the current char with user input
+ c1 = get_one_char(); // get the replacement char
+ if (*dot != '\n') {
+ *dot = c1;
+ file_modified = TRUE; // has the file been modified
+ }
+ end_cmd_q(); // stop adding to q
+ break;
+ case 'w': // w- forward a word
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ if (isalnum(*dot) || *dot == '_') { // we are on ALNUM
+ dot = skip_thing(dot, 1, FORWARD, S_END_ALNUM);
+ } else if (ispunct(*dot)) { // we are on PUNCT
+ dot = skip_thing(dot, 1, FORWARD, S_END_PUNCT);
+ }
+ if (dot < end - 1)
+ dot++; // move over word
+ if (isspace(*dot)) {
+ dot = skip_thing(dot, 2, FORWARD, S_OVER_WS);
+ }
+ break;
+ case 'z': // z-
+ c1 = get_one_char(); // get the replacement char
+ cnt = 0;
+ if (c1 == '.')
+ cnt = (rows - 2) / 2; // put dot at center
+ if (c1 == '-')
+ cnt = rows - 2; // put dot at bottom
+ screenbegin = begin_line(dot); // start dot at top
+ dot_scroll(cnt, -1);
+ break;
+ case '|': // |- move to column "cmdcnt"
+ dot = move_to_col(dot, cmdcnt - 1); // try to move to column
+ break;
+ case '~': // ~- flip the case of letters a-z -> A-Z
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ if (islower(*dot)) {
+ *dot = toupper(*dot);
+ file_modified = TRUE; // has the file been modified
+ } else if (isupper(*dot)) {
+ *dot = tolower(*dot);
+ file_modified = TRUE; // has the file been modified
+ }
+ dot_right();
+ end_cmd_q(); // stop adding to q
+ break;
+ //----- The Cursor and Function Keys -----------------------------
+ case VI_K_HOME: // Cursor Key Home
+ dot_begin();
+ break;
+ // The Fn keys could point to do_macro which could translate them
+ case VI_K_FUN1: // Function Key F1
+ case VI_K_FUN2: // Function Key F2
+ case VI_K_FUN3: // Function Key F3
+ case VI_K_FUN4: // Function Key F4
+ case VI_K_FUN5: // Function Key F5
+ case VI_K_FUN6: // Function Key F6
+ case VI_K_FUN7: // Function Key F7
+ case VI_K_FUN8: // Function Key F8
+ case VI_K_FUN9: // Function Key F9
+ case VI_K_FUN10: // Function Key F10
+ case VI_K_FUN11: // Function Key F11
+ case VI_K_FUN12: // Function Key F12
+ break;
+ }
+
+ dc1:
+ // if text[] just became empty, add back an empty line
+ if (end == text) {
+ (void) char_insert(text, '\n'); // start empty buf with dummy line
+ dot = text;
+ }
+ // it is OK for dot to exactly equal to end, otherwise check dot validity
+ if (dot != end) {
+ dot = bound_dot(dot); // make sure "dot" is valid
+ }
+#ifdef BB_FEATURE_VI_YANKMARK
+ check_context(c); // update the current context
+#endif /* BB_FEATURE_VI_YANKMARK */
+
+ if (!isdigit(c))
+ cmdcnt = 0; // cmd was not a number, reset cmdcnt
+ cnt = dot - begin_line(dot);
+ // Try to stay off of the Newline
+ if (*dot == '\n' && cnt > 0 && cmd_mode == 0)
+ dot--;
+}
+
+//----- The Colon commands -------------------------------------
+#ifdef BB_FEATURE_VI_COLON
+static Byte *get_address(Byte * p, int *addr) // get colon addr, if present
+{
+ int st;
+ Byte *q;
+
+#ifdef BB_FEATURE_VI_YANKMARK
+ Byte c;
+#endif /* BB_FEATURE_VI_YANKMARK */
+#ifdef BB_FEATURE_VI_SEARCH
+ Byte *pat, buf[1024];
+#endif /* BB_FEATURE_VI_SEARCH */
+
+ *addr = -1; // assume no addr
+ if (*p == '.') { // the current line
+ p++;
+ q = begin_line(dot);
+ *addr = count_lines(text, q);
+#ifdef BB_FEATURE_VI_YANKMARK
+ } else if (*p == '\'') { // is this a mark addr
+ p++;
+ c = tolower(*p);
+ p++;
+ if (c >= 'a' && c <= 'z') {
+ // we have a mark
+ c = c - 'a';
+ q = mark[(int) c];
+ if (q != NULL) { // is mark valid
+ *addr = count_lines(text, q); // count lines
+ }
+ }
+#endif /* BB_FEATURE_VI_YANKMARK */
+#ifdef BB_FEATURE_VI_SEARCH
+ } else if (*p == '/') { // a search pattern
+ q = buf;
+ for (p++; *p; p++) {
+ if (*p == '/')
+ break;
+ *q++ = *p;
+ *q = '\0';
+ }
+ pat = (Byte *) strdup((char *) buf); // save copy of pattern
+ if (*p == '/')
+ p++;
+ q = char_search(dot, pat, FORWARD, FULL);
+ if (q != NULL) {
+ *addr = count_lines(text, q);
+ }
+ free(pat);
+#endif /* BB_FEATURE_VI_SEARCH */
+ } else if (*p == '$') { // the last line in file
+ p++;
+ q = begin_line(end - 1);
+ *addr = count_lines(text, q);
+ } else if (isdigit(*p)) { // specific line number
+ sscanf((char *) p, "%d%n", addr, &st);
+ p += st;
+ } else { // I don't reconise this
+ // unrecognised address- assume -1
+ *addr = -1;
+ }
+ return (p);
+}
+
+static void colon(Byte * buf)
+{
+ Byte c, *orig_buf, *buf1, *q, *r;
+ Byte *fn, cmd[100], args[100];
+ int i, l, li, ch, st, b, e;
+ int useforce, forced;
+
+ // :3154 // if (-e line 3154) goto it else stay put
+ // :4,33w! foo // write a portion of buffer to file "foo"
+ // :w // write all of buffer to current file
+ // :q // quit
+ // :q! // quit- dont care about modified file
+ // :'a,'z!sort -u // filter block through sort
+ // :'f // goto mark "f"
+ // :'fl // list literal the mark "f" line
+ // :.r bar // read file "bar" into buffer before dot
+ // :/123/,/abc/d // delete lines from "123" line to "abc" line
+ // :/xyz/ // goto the "xyz" line
+ // :s/find/replace/ // substitute pattern "find" with "replace"
+ //
+ if (strlen((char *) buf) <= 0)
+ goto vc1;
+ if (*buf == ':')
+ buf++; // move past the ':'
+
+ forced = useforce = FALSE;
+ li = st = ch = i = 0;
+ b = e = -1;
+ q = text; // assume 1,$ for the range
+ r = end - 1;
+ li = count_lines(text, end - 1);
+ fn = cfn; // default to current file
+
+ // look for optional FIRST address(es) :. :1 :1,9 :'q,'a
+ while (isblnk(*buf))
+ buf++;
+
+ // get FIRST addr, if present
+ buf = get_address(buf, &b);
+ while (isblnk(*buf))
+ buf++;
+ if (*buf == ',') {
+ buf++;
+ while (isblnk(*buf))
+ buf++;
+ // look for SECOND address
+ buf = get_address(buf, &e);
+ }
+ while (isblnk(*buf))
+ buf++;
+
+ // remember orig command line
+ orig_buf = buf;
+
+ // get the COMMAND into cmd[]
+ buf1 = cmd;
+ *buf1 = '\0';
+ while (*buf != '\0') {
+ if (isspace(*buf))
+ break;
+ *buf1++ = *buf++;
+ *buf1 = '\0';
+ }
+ // get any ARGuments
+ while (isblnk(*buf))
+ buf++;
+ strcpy((char *) args, (char *) buf);
+ if (cmd[strlen((char *) cmd) - 1] == '!') {
+ useforce = TRUE;
+ cmd[strlen((char *) cmd) - 1] = '\0'; // get rid of !
+ }
+ if (b >= 0) {
+ // if there is only one addr, then the addr
+ // is the line number of the single line the
+ // user wants. So, reset the end
+ // pointer to point at end of the "b" line
+ q = find_line(b); // what line is #b
+ r = end_line(q);
+ li = 1;
+ }
+ if (e >= 0) {
+ // we were given two addrs. change the
+ // end pointer to the addr given by user.
+ r = find_line(e); // what line is #e
+ r = end_line(r);
+ li = e - b + 1;
+ }
+ // ------------ now look for the command ------------
+ i = strlen((char *) cmd);
+ if (i == 0) { // :123CR goto line #123
+ if (b >= 0) {
+ dot = find_line(b); // what line is #b
+ dot_skip_over_ws();
+ }
+ } else if (strncmp((char *) cmd, "=", i) == 0) { // where is the address
+ if (b < 0) { // no addr given- use defaults
+ b = e = count_lines(text, dot);
+ }
+ psb("%d", b);
+ } else if (strncasecmp((char *) cmd, "delete", i) == 0) { // delete lines
+ if (b < 0) { // no addr given- use defaults
+ q = begin_line(dot); // assume .,. for the range
+ r = end_line(dot);
+ }
+ dot = yank_delete(q, r, 1, YANKDEL); // save, then delete lines
+ dot_skip_over_ws();
+ } else if (strncasecmp((char *) cmd, "edit", i) == 0) { // Edit a file
+ // don't exit if the file been modified
+ if (file_modified == TRUE && useforce != TRUE) {
+ psbs("No write since last change (:edit! overrides)");
+ goto vc1;
+ }
+ fn = args;
+ if (strlen((char *) fn) <= 0) {
+ // no file name given, re-edit current file
+ fn = cfn;
+ }
+ if (cfn != 0)
+ free(cfn);
+ cfn = (Byte *) strdup((char *) fn); // make this the current file
+ // delete all the contents of text[]
+ new_text(2 * file_size(fn));
+ screenbegin = dot = end = text;
+ // insert new file
+ if (fn != 0) {
+ ch = file_insert(fn, text, file_size(fn));
+ }
+ file_modified = FALSE;
+#ifdef BB_FEATURE_VI_YANKMARK
+ if (reg[Ureg] != 0)
+ free(reg[Ureg]); // free orig line reg- for 'U'
+ if (reg[YDreg] != 0)
+ free(reg[YDreg]); // free default yank/delete register
+ for (li = 0; li < 28; li++) {
+ mark[li] = 0;
+ } // init the marks
+#endif /* BB_FEATURE_VI_YANKMARK */
+ // how many lines in text[]?
+ li = count_lines(text, end - 1);
+ psb("\"%s\" %dL, %dC", cfn, li, ch);
+ } else if (strncasecmp((char *) cmd, "file", i) == 0) { // what File is this
+ if (b != -1 || e != -1) {
+ ni((Byte *) "No address allowed on this command");
+ goto vc1;
+ }
+ if (strlen((char *) args) > 0) {
+ // user wants a new filename
+ if (cfn != NULL)
+ free(cfn);
+ cfn = (Byte *) strdup((char *) args);
+ } else {
+ // user wants file status info
+ edit_status();
+ }
+ } else if (strncasecmp((char *) cmd, "features", i) == 0) { // what features are available
+ // print out values of all features
+ place_cursor(rows - 1, 0); // go to Status line, bottom of screen
+ clear_to_eol(); // clear the line
+ cookmode();
+ show_help();
+ rawmode();
+ Hit_Return();
+ } else if (strncasecmp((char *) cmd, "list", i) == 0) { // literal print line
+ if (b < 0) { // no addr given- use defaults
+ q = begin_line(dot); // assume .,. for the range
+ r = end_line(dot);
+ }
+ place_cursor(rows - 1, 0); // go to Status line, bottom of screen
+ clear_to_eol(); // clear the line
+ write(1, "\r\n", 2);
+ for (; q <= r; q++) {
+ c = *q;
+ if (c > '~')
+ standout_start();
+ if (c == '\n') {
+ write(1, "$\r", 2);
+ } else if (*q < ' ') {
+ write(1, "^", 1);
+ c += '@';
+ }
+ write(1, &c, 1);
+ if (c > '~')
+ standout_end();
+ }
+#ifdef BB_FEATURE_VI_SET
+ vc2:
+#endif /* BB_FEATURE_VI_SET */
+ Hit_Return();
+ } else if ((strncasecmp((char *) cmd, "quit", i) == 0) || // Quit
+ (strncasecmp((char *) cmd, "next", i) == 0)) { // edit next file
+ if (useforce == TRUE) {
+ // force end of argv list
+ if (*cmd == 'q') {
+ optind = save_argc;
+ }
+ editing = 0;
+ goto vc1;
+ }
+ // don't exit if the file been modified
+ if (file_modified == TRUE) {
+ psbs("No write since last change (:%s! overrides)",
+ (*cmd == 'q' ? "quit" : "next"));
+ goto vc1;
+ }
+ // are there other file to edit
+ if (*cmd == 'q' && optind < save_argc - 1) {
+ psbs("%d more file to edit", (save_argc - optind - 1));
+ goto vc1;
+ }
+ if (*cmd == 'n' && optind >= save_argc - 1) {
+ psbs("No more files to edit");
+ goto vc1;
+ }
+ editing = 0;
+ } else if (strncasecmp((char *) cmd, "read", i) == 0) { // read file into text[]
+ fn = args;
+ if (strlen((char *) fn) <= 0) {
+ psbs("No filename given");
+ goto vc1;
+ }
+ if (b < 0) { // no addr given- use defaults
+ q = begin_line(dot); // assume "dot"
+ }
+ // read after current line- unless user said ":0r foo"
+ if (b != 0)
+ q = next_line(q);
+ ch = file_insert(fn, q, file_size(fn));
+ if (ch < 0)
+ goto vc1; // nothing was inserted
+ // how many lines in text[]?
+ li = count_lines(q, q + ch - 1);
+ psb("\"%s\" %dL, %dC", fn, li, ch);
+ if (ch > 0) {
+ // if the insert is before "dot" then we need to update
+ if (q <= dot)
+ dot += ch;
+ file_modified = TRUE;
+ }
+ } else if (strncasecmp((char *) cmd, "rewind", i) == 0) { // rewind cmd line args
+ if (file_modified == TRUE && useforce != TRUE) {
+ psbs("No write since last change (:rewind! overrides)");
+ } else {
+ // reset the filenames to edit
+ optind = fn_start - 1;
+ editing = 0;
+ }
+#ifdef BB_FEATURE_VI_SET
+ } else if (strncasecmp((char *) cmd, "set", i) == 0) { // set or clear features
+ i = 0; // offset into args
+ if (strlen((char *) args) == 0) {
+ // print out values of all options
+ place_cursor(rows - 1, 0); // go to Status line, bottom of screen
+ clear_to_eol(); // clear the line
+ printf("----------------------------------------\r\n");
+#ifdef BB_FEATURE_VI_SETOPTS
+ if (!autoindent)
+ printf("no");
+ printf("autoindent ");
+ if (!ignorecase)
+ printf("no");
+ printf("ignorecase ");
+ if (!showmatch)
+ printf("no");
+ printf("showmatch ");
+ printf("tabstop=%d ", tabstop);
+#endif /* BB_FEATURE_VI_SETOPTS */
+ printf("\r\n");
+ goto vc2;
+ }
+ if (strncasecmp((char *) args, "no", 2) == 0)
+ i = 2; // ":set noautoindent"
+#ifdef BB_FEATURE_VI_SETOPTS
+ if (strncasecmp((char *) args + i, "autoindent", 10) == 0 ||
+ strncasecmp((char *) args + i, "ai", 2) == 0) {
+ autoindent = (i == 2) ? 0 : 1;
+ }
+ if (strncasecmp((char *) args + i, "ignorecase", 10) == 0 ||
+ strncasecmp((char *) args + i, "ic", 2) == 0) {
+ ignorecase = (i == 2) ? 0 : 1;
+ }
+ if (strncasecmp((char *) args + i, "showmatch", 9) == 0 ||
+ strncasecmp((char *) args + i, "sm", 2) == 0) {
+ showmatch = (i == 2) ? 0 : 1;
+ }
+ if (strncasecmp((char *) args + i, "tabstop", 7) == 0) {
+ sscanf(strchr((char *) args + i, '='), "=%d", &ch);
+ if (ch > 0 && ch < columns - 1)
+ tabstop = ch;
+ }
+#endif /* BB_FEATURE_VI_SETOPTS */
+#endif /* BB_FEATURE_VI_SET */
+#ifdef BB_FEATURE_VI_SEARCH
+ } else if (strncasecmp((char *) cmd, "s", 1) == 0) { // substitute a pattern with a replacement pattern
+ Byte *ls, *F, *R;
+ int gflag;
+
+ // F points to the "find" pattern
+ // R points to the "replace" pattern
+ // replace the cmd line delimiters "/" with NULLs
+ gflag = 0; // global replace flag
+ c = orig_buf[1]; // what is the delimiter
+ F = orig_buf + 2; // start of "find"
+ R = (Byte *) strchr((char *) F, c); // middle delimiter
+ *R++ = '\0'; // terminate "find"
+ buf1 = (Byte *) strchr((char *) R, c);
+ *buf1++ = '\0'; // terminate "replace"
+ if (*buf1 == 'g') { // :s/foo/bar/g
+ buf1++;
+ gflag++; // turn on gflag
+ }
+ q = begin_line(q);
+ if (b < 0) { // maybe :s/foo/bar/
+ q = begin_line(dot); // start with cur line
+ b = count_lines(text, q); // cur line number
+ }
+ if (e < 0)
+ e = b; // maybe :.s/foo/bar/
+ for (i = b; i <= e; i++) { // so, :20,23 s \0 find \0 replace \0
+ ls = q; // orig line start
+ vc4:
+ buf1 = char_search(q, F, FORWARD, LIMITED); // search cur line only for "find"
+ if (buf1 != NULL) {
+ // we found the "find" pattern- delete it
+ (void) text_hole_delete(buf1, buf1 + strlen((char *) F) - 1);
+ // inset the "replace" patern
+ (void) string_insert(buf1, R); // insert the string
+ // check for "global" :s/foo/bar/g
+ if (gflag == 1) {
+ if ((buf1 + strlen((char *) R)) < end_line(ls)) {
+ q = buf1 + strlen((char *) R);
+ goto vc4; // don't let q move past cur line
+ }
+ }
+ }
+ q = next_line(ls);
+ }
+#endif /* BB_FEATURE_VI_SEARCH */
+ } else if (strncasecmp((char *) cmd, "version", i) == 0) { // show software version
+ psb("%s", vi_Version);
+ } else if ((strncasecmp((char *) cmd, "write", i) == 0) || // write text to file
+ (strncasecmp((char *) cmd, "wq", i) == 0)) { // write text to file
+ // is there a file name to write to?
+ if (strlen((char *) args) > 0) {
+ fn = args;
+ }
+#ifdef BB_FEATURE_VI_READONLY
+ if (readonly == TRUE) {
+ psbs("\"%s\" File is read only", fn);
+ goto vc3;
+ }
+#endif /* BB_FEATURE_VI_READONLY */
+ // how many lines in text[]?
+ li = count_lines(q, r);
+ ch = r - q + 1;
+ if (useforce == TRUE) {
+ // if "fn" is not write-able, chmod u+w
+ // sprintf(syscmd, "chmod u+w %s", fn);
+ // system(syscmd);
+ forced = TRUE;
+ }
+ l = file_write(fn, q, r);
+ if (useforce == TRUE && forced == TRUE) {
+ // chmod u-w
+ // sprintf(syscmd, "chmod u-w %s", fn);
+ // system(syscmd);
+ forced = FALSE;
+ }
+ psb("\"%s\" %dL, %dC", fn, li, l);
+ if (q == text && r == end - 1 && l == ch)
+ file_modified = FALSE;
+ if (cmd[1] == 'q' && l == ch) {
+ editing = 0;
+ }
+#ifdef BB_FEATURE_VI_READONLY
+ vc3:;
+#endif /* BB_FEATURE_VI_READONLY */
+#ifdef BB_FEATURE_VI_YANKMARK
+ } else if (strncasecmp((char *) cmd, "yank", i) == 0) { // yank lines
+ if (b < 0) { // no addr given- use defaults
+ q = begin_line(dot); // assume .,. for the range
+ r = end_line(dot);
+ }
+ text_yank(q, r, YDreg);
+ li = count_lines(q, r);
+ psb("Yank %d lines (%d chars) into [%c]",
+ li, strlen((char *) reg[YDreg]), what_reg());
+#endif /* BB_FEATURE_VI_YANKMARK */
+ } else {
+ // cmd unknown
+ ni((Byte *) cmd);
+ }
+ vc1:
+ dot = bound_dot(dot); // make sure "dot" is valid
+ return;
+}
+
+static void Hit_Return(void)
+{
+ char c;
+
+ standout_start(); // start reverse video
+ write(1, "[Hit return to continue]", 24);
+ standout_end(); // end reverse video
+ while ((c = get_one_char()) != '\n' && c != '\r') /*do nothing */
+ ;
+ redraw(TRUE); // force redraw all
+}
+#endif /* BB_FEATURE_VI_COLON */
+
+//----- Synchronize the cursor to Dot --------------------------
+static void sync_cursor(Byte * d, int *row, int *col)
+{
+ Byte *beg_cur, *end_cur; // begin and end of "d" line
+ Byte *beg_scr, *end_scr; // begin and end of screen
+ Byte *tp;
+ int cnt, ro, co;
+
+ beg_cur = begin_line(d); // first char of cur line
+ end_cur = end_line(d); // last char of cur line
+
+ beg_scr = end_scr = screenbegin; // first char of screen
+ end_scr = end_screen(); // last char of screen
+
+ if (beg_cur < screenbegin) {
+ // "d" is before top line on screen
+ // how many lines do we have to move
+ cnt = count_lines(beg_cur, screenbegin);
+ sc1:
+ screenbegin = beg_cur;
+ if (cnt > (rows - 1) / 2) {
+ // we moved too many lines. put "dot" in middle of screen
+ for (cnt = 0; cnt < (rows - 1) / 2; cnt++) {
+ screenbegin = prev_line(screenbegin);
+ }
+ }
+ } else if (beg_cur > end_scr) {
+ // "d" is after bottom line on screen
+ // how many lines do we have to move
+ cnt = count_lines(end_scr, beg_cur);
+ if (cnt > (rows - 1) / 2)
+ goto sc1; // too many lines
+ for (ro = 0; ro < cnt - 1; ro++) {
+ // move screen begin the same amount
+ screenbegin = next_line(screenbegin);
+ // now, move the end of screen
+ end_scr = next_line(end_scr);
+ end_scr = end_line(end_scr);
+ }
+ }
+ // "d" is on screen- find out which row
+ tp = screenbegin;
+ for (ro = 0; ro < rows - 1; ro++) { // drive "ro" to correct row
+ if (tp == beg_cur)
+ break;
+ tp = next_line(tp);
+ }
+
+ // find out what col "d" is on
+ co = 0;
+ do { // drive "co" to correct column
+ if (*tp == '\n' || *tp == '\0')
+ break;
+ if (*tp == '\t') {
+ // 7 - (co % 8 )
+ co += ((tabstop - 1) - (co % tabstop));
+ } else if (*tp < ' ') {
+ co++; // display as ^X, use 2 columns
+ }
+ } while (tp++ < d && ++co);
+
+ // "co" is the column where "dot" is.
+ // The screen has "columns" columns.
+ // The currently displayed columns are 0+offset -- columns+ofset
+ // |-------------------------------------------------------------|
+ // ^ ^ ^
+ // offset | |------- columns ----------------|
+ //
+ // If "co" is already in this range then we do not have to adjust offset
+ // but, we do have to subtract the "offset" bias from "co".
+ // If "co" is outside this range then we have to change "offset".
+ // If the first char of a line is a tab the cursor will try to stay
+ // in column 7, but we have to set offset to 0.
+
+ if (co < 0 + offset) {
+ offset = co;
+ }
+ if (co >= columns + offset) {
+ offset = co - columns + 1;
+ }
+ // if the first char of the line is a tab, and "dot" is sitting on it
+ // force offset to 0.
+ if (d == beg_cur && *d == '\t') {
+ offset = 0;
+ }
+ co -= offset;
+
+ *row = ro;
+ *col = co;
+}
+
+//----- Text Movement Routines ---------------------------------
+static Byte *begin_line(Byte * p) // return pointer to first char cur line
+{
+ while (p > text && p[-1] != '\n')
+ p--; // go to cur line B-o-l
+ return (p);
+}
+
+static Byte *end_line(Byte * p) // return pointer to NL of cur line line
+{
+ while (p < end - 1 && *p != '\n')
+ p++; // go to cur line E-o-l
+ return (p);
+}
+
+static Byte *dollar_line(Byte * p) // return pointer to just before NL line
+{
+ while (p < end - 1 && *p != '\n')
+ p++; // go to cur line E-o-l
+ // Try to stay off of the Newline
+ if (*p == '\n' && (p - begin_line(p)) > 0)
+ p--;
+ return (p);
+}
+
+static Byte *prev_line(Byte * p) // return pointer first char prev line
+{
+ p = begin_line(p); // goto begining of cur line
+ if (p[-1] == '\n' && p > text)
+ p--; // step to prev line
+ p = begin_line(p); // goto begining of prev line
+ return (p);
+}
+
+static Byte *next_line(Byte * p) // return pointer first char next line
+{
+ p = end_line(p);
+ if (*p == '\n' && p < end - 1)
+ p++; // step to next line
+ return (p);
+}
+
+//----- Text Information Routines ------------------------------
+static Byte *end_screen(void)
+{
+ Byte *q;
+ int cnt;
+
+ // find new bottom line
+ q = screenbegin;
+ for (cnt = 0; cnt < rows - 2; cnt++)
+ q = next_line(q);
+ q = end_line(q);
+ return (q);
+}
+
+static int count_lines(Byte * start, Byte * stop) // count line from start to stop
+{
+ Byte *q;
+ int cnt;
+
+ if (stop < start) { // start and stop are backwards- reverse them
+ q = start;
+ start = stop;
+ stop = q;
+ }
+ cnt = 0;
+ stop = end_line(stop); // get to end of this line
+ for (q = start; q <= stop && q <= end - 1; q++) {
+ if (*q == '\n')
+ cnt++;
+ }
+ return (cnt);
+}
+
+static Byte *find_line(int li) // find begining of line #li
+{
+ Byte *q;
+
+ for (q = text; li > 1; li--) {
+ q = next_line(q);
+ }
+ return (q);
+}
+
+//----- Dot Movement Routines ----------------------------------
+static void dot_left(void)
+{
+ if (dot > text && dot[-1] != '\n')
+ dot--;
+}
+
+static void dot_right(void)
+{
+ if (dot < end - 1 && *dot != '\n')
+ dot++;
+}
+
+static void dot_begin(void)
+{
+ dot = begin_line(dot); // return pointer to first char cur line
+}
+
+static void dot_end(void)
+{
+ dot = end_line(dot); // return pointer to last char cur line
+}
+
+static Byte *move_to_col(Byte * p, int l)
+{
+ int co;
+
+ p = begin_line(p);
+ co = 0;
+ do {
+ if (*p == '\n' || *p == '\0')
+ break;
+ if (*p == '\t') {
+ // 7 - (co % 8 )
+ co += ((tabstop - 1) - (co % tabstop));
+ } else if (*p < ' ') {
+ co++; // display as ^X, use 2 columns
+ }
+ } while (++co <= l && p++ < end);
+ return (p);
+}
+
+static void dot_next(void)
+{
+ dot = next_line(dot);
+}
+
+static void dot_prev(void)
+{
+ dot = prev_line(dot);
+}
+
+static void dot_scroll(int cnt, int dir)
+{
+ Byte *q;
+
+ for (; cnt > 0; cnt--) {
+ if (dir < 0) {
+ // scroll Backwards
+ // ctrl-Y scroll up one line
+ screenbegin = prev_line(screenbegin);
+ } else {
+ // scroll Forwards
+ // ctrl-E scroll down one line
+ screenbegin = next_line(screenbegin);
+ }
+ }
+ // make sure "dot" stays on the screen so we dont scroll off
+ if (dot < screenbegin)
+ dot = screenbegin;
+ q = end_screen(); // find new bottom line
+ if (dot > q)
+ dot = begin_line(q); // is dot is below bottom line?
+ dot_skip_over_ws();
+}
+
+static void dot_skip_over_ws(void)
+{
+ // skip WS
+ while (isspace(*dot) && *dot != '\n' && dot < end - 1)
+ dot++;
+}
+
+static void dot_delete(void) // delete the char at 'dot'
+{
+ (void) text_hole_delete(dot, dot);
+}
+
+static Byte *bound_dot(Byte * p) // make sure text[0] <= P < "end"
+{
+ if (p >= end && end > text) {
+ p = end - 1;
+ indicate_error('1');
+ }
+ if (p < text) {
+ p = text;
+ indicate_error('2');
+ }
+ return (p);
+}
+
+//----- Helper Utility Routines --------------------------------
+
+//----------------------------------------------------------------
+//----- Char Routines --------------------------------------------
+/* Chars that are part of a word-
+ * 0123456789_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
+ * Chars that are Not part of a word (stoppers)
+ * !"#$%&'()*+,-./:;<=>?@[\]^`{|}~
+ * Chars that are WhiteSpace
+ * TAB NEWLINE VT FF RETURN SPACE
+ * DO NOT COUNT NEWLINE AS WHITESPACE
+ */
+
+static Byte *new_screen(int ro, int co)
+{
+ if (screen != 0)
+ free(screen);
+ screensize = ro * co + 8;
+ screen = (Byte *) malloc(screensize);
+ return (screen);
+}
+
+static Byte *new_text(int size)
+{
+ if (size < 10240)
+ size = 10240; // have a minimum size for new files
+ if (text != 0) {
+ //text -= 4;
+ free(text);
+ }
+ text = (Byte *) malloc(size + 8);
+ memset(text, '\0', size); // clear new text[]
+ //text += 4; // leave some room for "oops"
+ textend = text + size - 1;
+ //textend -= 4; // leave some root for "oops"
+ return (text);
+}
+
+#ifdef BB_FEATURE_VI_SEARCH
+static int mycmp(Byte * s1, Byte * s2, int len)
+{
+ int i;
+
+ i = strncmp((char *) s1, (char *) s2, len);
+#ifdef BB_FEATURE_VI_SETOPTS
+ if (ignorecase) {
+ i = strncasecmp((char *) s1, (char *) s2, len);
+ }
+#endif /* BB_FEATURE_VI_SETOPTS */
+ return (i);
+}
+
+static Byte *char_search(Byte * p, Byte * pat, int dir, int range) // search for pattern starting at p
+{
+#ifndef REGEX_SEARCH
+ Byte *start, *stop;
+ int len;
+
+ len = strlen((char *) pat);
+ if (dir == FORWARD) {
+ stop = end - 1; // assume range is p - end-1
+ if (range == LIMITED)
+ stop = next_line(p); // range is to next line
+ for (start = p; start < stop; start++) {
+ if (mycmp(start, pat, len) == 0) {
+ return (start);
+ }
+ }
+ } else if (dir == BACK) {
+ stop = text; // assume range is text - p
+ if (range == LIMITED)
+ stop = prev_line(p); // range is to prev line
+ for (start = p - len; start >= stop; start--) {
+ if (mycmp(start, pat, len) == 0) {
+ return (start);
+ }
+ }
+ }
+ // pattern not found
+ return (NULL);
+#else /*REGEX_SEARCH */
+ char *q;
+ struct re_pattern_buffer preg;
+ int i;
+ int size, range;
+
+ re_syntax_options = RE_SYNTAX_POSIX_EXTENDED;
+ preg.translate = 0;
+ preg.fastmap = 0;
+ preg.buffer = 0;
+ preg.allocated = 0;
+
+ // assume a LIMITED forward search
+ q = next_line(p);
+ q = end_line(q);
+ q = end - 1;
+ if (dir == BACK) {
+ q = prev_line(p);
+ q = text;
+ }
+ // count the number of chars to search over, forward or backward
+ size = q - p;
+ if (size < 0)
+ size = p - q;
+ // RANGE could be negative if we are searching backwards
+ range = q - p;
+
+ q = (char *) re_compile_pattern(pat, strlen((char *) pat), &preg);
+ if (q != 0) {
+ // The pattern was not compiled
+ psbs("bad search pattern: \"%s\": %s", pat, q);
+ i = 0; // return p if pattern not compiled
+ goto cs1;
+ }
+
+ q = p;
+ if (range < 0) {
+ q = p - size;
+ if (q < text)
+ q = text;
+ }
+ // search for the compiled pattern, preg, in p[]
+ // range < 0- search backward
+ // range > 0- search forward
+ // 0 < start < size
+ // re_search() < 0 not found or error
+ // re_search() > 0 index of found pattern
+ // struct pattern char int int int struct reg
+ // re_search (*pattern_buffer, *string, size, start, range, *regs)
+ i = re_search(&preg, q, size, 0, range, 0);
+ if (i == -1) {
+ p = 0;
+ i = 0; // return NULL if pattern not found
+ }
+ cs1:
+ if (dir == FORWARD) {
+ p = p + i;
+ } else {
+ p = p - i;
+ }
+ return (p);
+#endif /*REGEX_SEARCH */
+}
+#endif /* BB_FEATURE_VI_SEARCH */
+
+static Byte *char_insert(Byte * p, Byte c) // insert the char c at 'p'
+{
+ if (c == 22) { // Is this an ctrl-V?
+ p = stupid_insert(p, '^'); // use ^ to indicate literal next
+ p--; // backup onto ^
+ refresh(FALSE); // show the ^
+ c = get_one_char();
+ *p = c;
+ p++;
+ file_modified = TRUE; // has the file been modified
+ } else if (c == 27) { // Is this an ESC?
+ cmd_mode = 0;
+ cmdcnt = 0;
+ end_cmd_q(); // stop adding to q
+ *status_buffer = '\0'; // clear the status buffer
+ if (p[-1] != '\n') {
+ p--;
+ }
+ } else if (c == erase_char) { // Is this a BS
+ // 123456789
+ if (p[-1] != '\n') {
+ p--;
+ p = text_hole_delete(p, p); // shrink buffer 1 char
+#ifdef BB_FEATURE_VI_DOT_CMD
+ // also rmove char from last_modifying_cmd
+ if (strlen((char *) last_modifying_cmd) > 0) {
+ Byte *q;
+
+ q = last_modifying_cmd;
+ q[strlen((char *) q) - 1] = '\0'; // erase BS
+ q[strlen((char *) q) - 1] = '\0'; // erase prev char
+ }
+#endif /* BB_FEATURE_VI_DOT_CMD */
+ }
+ } else {
+ // insert a char into text[]
+ Byte *sp; // "save p"
+
+ if (c == 13)
+ c = '\n'; // translate \r to \n
+ sp = p; // remember addr of insert
+ p = stupid_insert(p, c); // insert the char
+#ifdef BB_FEATURE_VI_SETOPTS
+ if (showmatch && strchr(")]}", *sp) != NULL) {
+ showmatching(sp);
+ }
+ if (autoindent && c == '\n') { // auto indent the new line
+ Byte *q;
+
+ q = prev_line(p); // use prev line as templet
+ for (; isblnk(*q); q++) {
+ p = stupid_insert(p, *q); // insert the char
+ }
+ }
+#endif /* BB_FEATURE_VI_SETOPTS */
+ }
+ return (p);
+}
+
+static Byte *stupid_insert(Byte * p, Byte c) // stupidly insert the char c at 'p'
+{
+ p = text_hole_make(p, 1);
+ if (p != 0) {
+ *p = c;
+ file_modified = TRUE; // has the file been modified
+ p++;
+ }
+ return (p);
+}
+
+static Byte find_range(Byte ** start, Byte ** stop, Byte c)
+{
+ Byte *save_dot, *p, *q;
+ int cnt;
+
+ save_dot = dot;
+ p = q = dot;
+
+ if (strchr("cdy><", c)) {
+ p = q = begin_line(p);
+ for (cnt = 1; cnt < cmdcnt; cnt++) {
+ q = next_line(q);
+ }
+ q = end_line(q);
+ } else if (strchr("$0bBeE", c)) {
+ do_cmd(c); // execute movement cmd
+ q = dot;
+ } else if (strchr("wW", c)) {
+ do_cmd(c); // execute movement cmd
+ if (dot > text)
+ dot--; // move back off of next word
+ if (dot > text && *dot == '\n')
+ dot--; // stay off NL
+ q = dot;
+ } else if (strchr("H-k{", c)) {
+ q = end_line(dot); // find NL
+ do_cmd(c); // execute movement cmd
+ dot_begin();
+ p = dot;
+ } else if (strchr("L+j}\r\n", c)) {
+ p = begin_line(dot);
+ do_cmd(c); // execute movement cmd
+ dot_end(); // find NL
+ q = dot;
+ } else {
+ c = 27; // error- return an ESC char
+ //break;
+ }
+ *start = p;
+ *stop = q;
+ if (q < p) {
+ *start = q;
+ *stop = p;
+ }
+ dot = save_dot;
+ return (c);
+}
+
+static int st_test(Byte * p, int type, int dir, Byte * tested)
+{
+ Byte c, c0, ci;
+ int test, inc;
+
+ inc = dir;
+ c = c0 = p[0];
+ ci = p[inc];
+ test = 0;
+
+ if (type == S_BEFORE_WS) {
+ c = ci;
+ test = ((!isspace(c)) || c == '\n');
+ }
+ if (type == S_TO_WS) {
+ c = c0;
+ test = ((!isspace(c)) || c == '\n');
+ }
+ if (type == S_OVER_WS) {
+ c = c0;
+ test = ((isspace(c)));
+ }
+ if (type == S_END_PUNCT) {
+ c = ci;
+ test = ((ispunct(c)));
+ }
+ if (type == S_END_ALNUM) {
+ c = ci;
+ test = ((isalnum(c)) || c == '_');
+ }
+ *tested = c;
+ return (test);
+}
+
+static Byte *skip_thing(Byte * p, int linecnt, int dir, int type)
+{
+ Byte c;
+
+ while (st_test(p, type, dir, &c)) {
+ // make sure we limit search to correct number of lines
+ if (c == '\n' && --linecnt < 1)
+ break;
+ if (dir >= 0 && p >= end - 1)
+ break;
+ if (dir < 0 && p <= text)
+ break;
+ p += dir; // move to next char
+ }
+ return (p);
+}
+
+// find matching char of pair () [] {}
+static Byte *find_pair(Byte * p, Byte c)
+{
+ Byte match, *q;
+ int dir, level;
+
+ match = ')';
+ level = 1;
+ dir = 1; // assume forward
+ switch (c) {
+ case '(':
+ match = ')';
+ break;
+ case '[':
+ match = ']';
+ break;
+ case '{':
+ match = '}';
+ break;
+ case ')':
+ match = '(';
+ dir = -1;
+ break;
+ case ']':
+ match = '[';
+ dir = -1;
+ break;
+ case '}':
+ match = '{';
+ dir = -1;
+ break;
+ }
+ for (q = p + dir; text <= q && q < end; q += dir) {
+ // look for match, count levels of pairs (( ))
+ if (*q == c)
+ level++; // increase pair levels
+ if (*q == match)
+ level--; // reduce pair level
+ if (level == 0)
+ break; // found matching pair
+ }
+ if (level != 0)
+ q = NULL; // indicate no match
+ return (q);
+}
+
+#ifdef BB_FEATURE_VI_SETOPTS
+// show the matching char of a pair, () [] {}
+static void showmatching(Byte * p)
+{
+ Byte *q, *save_dot;
+
+ // we found half of a pair
+ q = find_pair(p, *p); // get loc of matching char
+ if (q == NULL) {
+ indicate_error('3'); // no matching char
+ } else {
+ // "q" now points to matching pair
+ save_dot = dot; // remember where we are
+ dot = q; // go to new loc
+ refresh(FALSE); // let the user see it
+ (void) mysleep(40); // give user some time
+ dot = save_dot; // go back to old loc
+ refresh(FALSE);
+ }
+}
+#endif /* BB_FEATURE_VI_SETOPTS */
+
+// open a hole in text[]
+static Byte *text_hole_make(Byte * p, int size) // at "p", make a 'size' byte hole
+{
+ Byte *src, *dest;
+ int cnt;
+
+ if (size <= 0)
+ goto thm0;
+ src = p;
+ dest = p + size;
+ cnt = end - src; // the rest of buffer
+ if (memmove(dest, src, cnt) != dest) {
+ psbs("can't create room for new characters");
+ }
+ memset(p, ' ', size); // clear new hole
+ end = end + size; // adjust the new END
+ file_modified = TRUE; // has the file been modified
+ thm0:
+ return (p);
+}
+
+// close a hole in text[]
+static Byte *text_hole_delete(Byte * p, Byte * q) // delete "p" thru "q", inclusive
+{
+ Byte *src, *dest;
+ int cnt, hole_size;
+
+ // move forwards, from beginning
+ // assume p <= q
+ src = q + 1;
+ dest = p;
+ if (q < p) { // they are backward- swap them
+ src = p + 1;
+ dest = q;
+ }
+ hole_size = q - p + 1;
+ cnt = end - src;
+ if (src < text || src > end)
+ goto thd0;
+ if (dest < text || dest >= end)
+ goto thd0;
+ if (src >= end)
+ goto thd_atend; // just delete the end of the buffer
+ if (memmove(dest, src, cnt) != dest) {
+ psbs("can't delete the character");
+ }
+ thd_atend:
+ end = end - hole_size; // adjust the new END
+ if (dest >= end)
+ dest = end - 1; // make sure dest in below end-1
+ if (end <= text)
+ dest = end = text; // keep pointers valid
+ file_modified = TRUE; // has the file been modified
+ thd0:
+ return (dest);
+}
+
+// copy text into register, then delete text.
+// if dist <= 0, do not include, or go past, a NewLine
+//
+static Byte *yank_delete(Byte * start, Byte * stop, int dist, int yf)
+{
+ Byte *p;
+
+ // make sure start <= stop
+ if (start > stop) {
+ // they are backwards, reverse them
+ p = start;
+ start = stop;
+ stop = p;
+ }
+ if (dist <= 0) {
+ // we can not cross NL boundaries
+ p = start;
+ if (*p == '\n')
+ return (p);
+ // dont go past a NewLine
+ for (; p + 1 <= stop; p++) {
+ if (p[1] == '\n') {
+ stop = p; // "stop" just before NewLine
+ break;
+ }
+ }
+ }
+ p = start;
+#ifdef BB_FEATURE_VI_YANKMARK
+ text_yank(start, stop, YDreg);
+#endif /* BB_FEATURE_VI_YANKMARK */
+ if (yf == YANKDEL) {
+ p = text_hole_delete(start, stop);
+ } // delete lines
+ return (p);
+}
+
+static void show_help(void)
+{
+ printf("These features are available:\n");
+#ifdef BB_FEATURE_VI_SEARCH
+ printf("\tPattern searches with / and ?\n");
+#endif /* BB_FEATURE_VI_SEARCH */
+#ifdef BB_FEATURE_VI_DOT_CMD
+ printf("\tLast command repeat with \'.\'\n");
+#endif /* BB_FEATURE_VI_DOT_CMD */
+#ifdef BB_FEATURE_VI_YANKMARK
+ printf("\tLine marking with 'x\n");
+ printf("\tNamed buffers with \"x\n");
+#endif /* BB_FEATURE_VI_YANKMARK */
+#ifdef BB_FEATURE_VI_READONLY
+ printf("\tReadonly with -R command line arg\n");
+#endif /* BB_FEATURE_VI_READONLY */
+#ifdef BB_FEATURE_VI_SET
+ printf("\tSome colon mode commands with \':\'\n");
+#endif /* BB_FEATURE_VI_SET */
+#ifdef BB_FEATURE_VI_SETOPTS
+ printf("\tSettable options with \":set\"\n");
+#endif /* BB_FEATURE_VI_SETOPTS */
+#ifdef BB_FEATURE_VI_USE_SIGNALS
+ printf("\tSignal catching- ^C\n");
+ printf("\tJob suspend and resume with ^Z\n");
+#endif /* BB_FEATURE_VI_USE_SIGNALS */
+#ifdef BB_FEATURE_VI_WIN_RESIZE
+ printf("\tAdapt to window re-sizes\n");
+#endif /* BB_FEATURE_VI_WIN_RESIZE */
+}
+
+static void print_literal(Byte * buf, Byte * s) // copy s to buf, convert unprintable
+{
+ Byte c, b[2];
+
+ b[1] = '\0';
+ strcpy((char *) buf, ""); // init buf
+ if (strlen((char *) s) <= 0)
+ s = (Byte *) "(NULL)";
+ for (; *s > '\0'; s++) {
+ c = *s;
+ if (*s > '~') {
+ strcat((char *) buf, SOs);
+ c = *s - 128;
+ }
+ if (*s < ' ') {
+ strcat((char *) buf, "^");
+ c += '@';
+ }
+ b[0] = c;
+ strcat((char *) buf, (char *) b);
+ if (*s > '~')
+ strcat((char *) buf, SOn);
+ if (*s == '\n') {
+ strcat((char *) buf, "$");
+ }
+ }
+}
+
+#ifdef BB_FEATURE_VI_DOT_CMD
+static void start_new_cmd_q(Byte c)
+{
+ // release old cmd
+ if (last_modifying_cmd != 0)
+ free(last_modifying_cmd);
+ // get buffer for new cmd
+ last_modifying_cmd = (Byte *) malloc(BUFSIZ);
+ memset(last_modifying_cmd, '\0', BUFSIZ); // clear new cmd queue
+ // if there is a current cmd count put it in the buffer first
+ if (cmdcnt > 0)
+ sprintf((char *) last_modifying_cmd, "%d", cmdcnt);
+ // save char c onto queue
+ last_modifying_cmd[strlen((char *) last_modifying_cmd)] = c;
+ adding2q = 1;
+ return;
+}
+
+static void end_cmd_q()
+{
+#ifdef BB_FEATURE_VI_YANKMARK
+ YDreg = 26; // go back to default Yank/Delete reg
+#endif /* BB_FEATURE_VI_YANKMARK */
+ adding2q = 0;
+ return;
+}
+#endif /* BB_FEATURE_VI_DOT_CMD */
+
+#if defined(BB_FEATURE_VI_YANKMARK) || defined(BB_FEATURE_VI_COLON) || defined(BB_FEATURE_VI_CRASHME)
+static Byte *string_insert(Byte * p, Byte * s) // insert the string at 'p'
+{
+ int cnt, i;
+
+ i = strlen((char *) s);
+ p = text_hole_make(p, i);
+ strncpy((char *) p, (char *) s, i);
+ for (cnt = 0; *s != '\0'; s++) {
+ if (*s == '\n')
+ cnt++;
+ }
+#ifdef BB_FEATURE_VI_YANKMARK
+ psb("Put %d lines (%d chars) from [%c]", cnt, i, what_reg());
+#endif /* BB_FEATURE_VI_YANKMARK */
+ return (p);
+}
+#endif /* BB_FEATURE_VI_YANKMARK || BB_FEATURE_VI_COLON || BB_FEATURE_VI_CRASHME */
+
+#ifdef BB_FEATURE_VI_YANKMARK
+static Byte *text_yank(Byte * p, Byte * q, int dest) // copy text into a register
+{
+ Byte *t;
+ int cnt;
+
+ if (q < p) { // they are backwards- reverse them
+ t = q;
+ q = p;
+ p = t;
+ }
+ cnt = q - p + 1;
+ t = reg[dest];
+ if (t != 0) { // if already a yank register
+ free(t); // free it
+ }
+ t = (Byte *) malloc(cnt + 1); // get a new register
+ memset(t, '\0', cnt + 1); // clear new text[]
+ strncpy((char *) t, (char *) p, cnt); // copy text[] into bufer
+ reg[dest] = t;
+ return (p);
+}
+
+static Byte what_reg(void)
+{
+ Byte c;
+ int i;
+
+ i = 0;
+ c = 'D'; // default to D-reg
+ if (0 <= YDreg && YDreg <= 25)
+ c = 'a' + (Byte) YDreg;
+ if (YDreg == 26)
+ c = 'D';
+ if (YDreg == 27)
+ c = 'U';
+ return (c);
+}
+
+static void check_context(Byte cmd)
+{
+ // A context is defined to be "modifying text"
+ // Any modifying command establishes a new context.
+
+ if (dot < context_start || dot > context_end) {
+ if (strchr((char *) modifying_cmds, cmd) != NULL) {
+ // we are trying to modify text[]- make this the current context
+ mark[27] = mark[26]; // move cur to prev
+ mark[26] = dot; // move local to cur
+ context_start = prev_line(prev_line(dot));
+ context_end = next_line(next_line(dot));
+ //loiter= start_loiter= now;
+ }
+ }
+ return;
+}
+
+static Byte *swap_context(Byte * p) // goto new context for '' command make this the current context
+{
+ Byte *tmp;
+
+ // the current context is in mark[26]
+ // the previous context is in mark[27]
+ // only swap context if other context is valid
+ if (text <= mark[27] && mark[27] <= end - 1) {
+ tmp = mark[27];
+ mark[27] = mark[26];
+ mark[26] = tmp;
+ p = mark[26]; // where we are going- previous context
+ context_start = prev_line(prev_line(prev_line(p)));
+ context_end = next_line(next_line(next_line(p)));
+ }
+ return (p);
+}
+#endif /* BB_FEATURE_VI_YANKMARK */
+
+static int isblnk(Byte c) // is the char a blank or tab
+{
+ return (c == ' ' || c == '\t');
+}
+
+//----- Set terminal attributes --------------------------------
+static void rawmode(void)
+{
+ tcgetattr(0, &term_orig);
+ term_vi = term_orig;
+ term_vi.c_lflag &= (~ICANON & ~ECHO); // leave ISIG ON- allow intr's
+ term_vi.c_iflag &= (~IXON & ~ICRNL);
+ term_vi.c_cc[VMIN] = 1;
+ term_vi.c_cc[VTIME] = 0;
+ erase_char = term_vi.c_cc[VERASE];
+ tcsetattr(0, TCSANOW, &term_vi);
+}
+
+static void cookmode(void)
+{
+ tcsetattr(0, TCSANOW, &term_orig);
+}
+
+#ifdef BB_FEATURE_VI_WIN_RESIZE
+//----- See what the window size currently is --------------------
+static void window_size_get(int sig)
+{
+ int i;
+
+ i = ioctl(0, TIOCGWINSZ, &winsize);
+ if (i != 0) {
+ // force 24x80
+ winsize.ws_row = 24;
+ winsize.ws_col = 80;
+ }
+ if (winsize.ws_row <= 1) {
+ winsize.ws_row = 24;
+ }
+ if (winsize.ws_col <= 1) {
+ winsize.ws_col = 80;
+ }
+ rows = (int) winsize.ws_row;
+ columns = (int) winsize.ws_col;
+}
+#endif /* BB_FEATURE_VI_WIN_RESIZE */
+
+//----- Come here when we get a window resize signal ---------
+#ifdef BB_FEATURE_VI_USE_SIGNALS
+static void winch_sig(int sig)
+{
+ signal(SIGWINCH, winch_sig);
+#ifdef BB_FEATURE_VI_WIN_RESIZE
+ window_size_get(0);
+#endif /* BB_FEATURE_VI_WIN_RESIZE */
+ new_screen(rows, columns); // get memory for virtual screen
+ redraw(TRUE); // re-draw the screen
+}
+
+//----- Come here when we get a continue signal -------------------
+static void cont_sig(int sig)
+{
+ rawmode(); // terminal to "raw"
+ *status_buffer = '\0'; // clear the status buffer
+ redraw(TRUE); // re-draw the screen
+
+ signal(SIGTSTP, suspend_sig);
+ signal(SIGCONT, SIG_DFL);
+ kill(getpid(), SIGCONT);
+}
+
+//----- Come here when we get a Suspend signal -------------------
+static void suspend_sig(int sig)
+{
+ place_cursor(rows, 0); // go to bottom of screen
+ clear_to_eol(); // Erase to end of line
+ cookmode(); // terminal to "cooked"
+
+ signal(SIGCONT, cont_sig);
+ signal(SIGTSTP, SIG_DFL);
+ kill(getpid(), SIGTSTP);
+}
+
+//----- Come here when we get a signal --------------------
+static void catch_sig(int sig)
+{
+ signal(SIGHUP, catch_sig);
+ signal(SIGINT, catch_sig);
+ signal(SIGTERM, catch_sig);
+ longjmp(restart, sig);
+}
+
+static void alarm_sig(int sig)
+{
+ signal(SIGALRM, catch_sig);
+ longjmp(restart, sig);
+}
+
+//----- Come here when we get a core dump signal -----------------
+static void core_sig(int sig)
+{
+ signal(SIGQUIT, core_sig);
+ signal(SIGILL, core_sig);
+ signal(SIGTRAP, core_sig);
+ signal(SIGIOT, core_sig);
+ signal(SIGABRT, core_sig);
+ signal(SIGFPE, core_sig);
+ signal(SIGBUS, core_sig);
+ signal(SIGSEGV, core_sig);
+ signal(SIGSYS, core_sig);
+
+ dot = bound_dot(dot); // make sure "dot" is valid
+
+ longjmp(restart, sig);
+}
+#endif /* BB_FEATURE_VI_USE_SIGNALS */
+
+static int mysleep(int hund) // sleep for 'h' 1/100 seconds
+{
+ // Don't hang- Wait 5/100 seconds- 1 Sec= 1000000
+ FD_ZERO(&rfds);
+ FD_SET(0, &rfds);
+ tv.tv_sec = 0;
+ tv.tv_usec = hund * 10000;
+ select(1, &rfds, NULL, NULL, &tv);
+ return (FD_ISSET(0, &rfds));
+}
+
+//----- IO Routines --------------------------------------------
+static Byte readit(void) // read (maybe cursor) key from stdin
+{
+ Byte c;
+ int i, bufsiz, cnt, cmdindex;
+ struct esc_cmds {
+ Byte *seq;
+ Byte val;
+ };
+
+ static struct esc_cmds esccmds[] = {
+ {(Byte *) "OA", (Byte) VI_K_UP}, // cursor key Up
+ {(Byte *) "OB", (Byte) VI_K_DOWN}, // cursor key Down
+ {(Byte *) "OC", (Byte) VI_K_RIGHT}, // Cursor Key Right
+ {(Byte *) "OD", (Byte) VI_K_LEFT}, // cursor key Left
+ {(Byte *) "OH", (Byte) VI_K_HOME}, // Cursor Key Home
+ {(Byte *) "OF", (Byte) VI_K_END}, // Cursor Key End
+ {(Byte *) "", (Byte) VI_K_UP}, // cursor key Up
+ {(Byte *) "", (Byte) VI_K_DOWN}, // cursor key Down
+ {(Byte *) "", (Byte) VI_K_RIGHT}, // Cursor Key Right
+ {(Byte *) "", (Byte) VI_K_LEFT}, // cursor key Left
+ {(Byte *) "", (Byte) VI_K_HOME}, // Cursor Key Home
+ {(Byte *) "", (Byte) VI_K_END}, // Cursor Key End
+ {(Byte *) "[2~", (Byte) VI_K_INSERT}, // Cursor Key Insert
+ {(Byte *) "[5~", (Byte) VI_K_PAGEUP}, // Cursor Key Page Up
+ {(Byte *) "[6~", (Byte) VI_K_PAGEDOWN}, // Cursor Key Page Down
+ {(Byte *) "OP", (Byte) VI_K_FUN1}, // Function Key F1
+ {(Byte *) "OQ", (Byte) VI_K_FUN2}, // Function Key F2
+ {(Byte *) "OR", (Byte) VI_K_FUN3}, // Function Key F3
+ {(Byte *) "OS", (Byte) VI_K_FUN4}, // Function Key F4
+ {(Byte *) "[15~", (Byte) VI_K_FUN5}, // Function Key F5
+ {(Byte *) "[17~", (Byte) VI_K_FUN6}, // Function Key F6
+ {(Byte *) "[18~", (Byte) VI_K_FUN7}, // Function Key F7
+ {(Byte *) "[19~", (Byte) VI_K_FUN8}, // Function Key F8
+ {(Byte *) "[20~", (Byte) VI_K_FUN9}, // Function Key F9
+ {(Byte *) "[21~", (Byte) VI_K_FUN10}, // Function Key F10
+ {(Byte *) "[23~", (Byte) VI_K_FUN11}, // Function Key F11
+ {(Byte *) "[24~", (Byte) VI_K_FUN12}, // Function Key F12
+ {(Byte *) "[11~", (Byte) VI_K_FUN1}, // Function Key F1
+ {(Byte *) "[12~", (Byte) VI_K_FUN2}, // Function Key F2
+ {(Byte *) "[13~", (Byte) VI_K_FUN3}, // Function Key F3
+ {(Byte *) "[14~", (Byte) VI_K_FUN4}, // Function Key F4
+ };
+
+#define ESCCMDS_COUNT (sizeof(esccmds)/sizeof(struct esc_cmds))
+
+ (void) alarm(0); // turn alarm OFF while we wait for input
+ // get input from User- are there already input chars in Q?
+ bufsiz = strlen((char *) readbuffer);
+ if (bufsiz <= 0) {
+ ri0:
+ // the Q is empty, wait for a typed char
+ bufsiz = read(0, readbuffer, BUFSIZ - 1);
+ if (bufsiz < 0) {
+ if (errno == EINTR)
+ goto ri0; // interrupted sys call
+ if (errno == EBADF)
+ editing = 0;
+ if (errno == EFAULT)
+ editing = 0;
+ if (errno == EINVAL)
+ editing = 0;
+ if (errno == EIO)
+ editing = 0;
+ errno = 0;
+ bufsiz = 0;
+ }
+ readbuffer[bufsiz] = '\0';
+ }
+ // return char if it is not part of ESC sequence
+ if (readbuffer[0] != 27)
+ goto ri1;
+
+ // This is an ESC char. Is this Esc sequence?
+ // Could be bare Esc key. See if there are any
+ // more chars to read after the ESC. This would
+ // be a Function or Cursor Key sequence.
+ FD_ZERO(&rfds);
+ FD_SET(0, &rfds);
+ tv.tv_sec = 0;
+ tv.tv_usec = 10000; // Wait 1/100 seconds- 1 Sec=1000000
+
+ // keep reading while there are input chars and room in buffer
+ while (select(1, &rfds, NULL, NULL, &tv) > 0 && bufsiz <= (BUFSIZ - 5)) {
+ // read the rest of the ESC string
+ i = read(0, (void *) (readbuffer + bufsiz), BUFSIZ - bufsiz);
+ if (i > 0) {
+ bufsiz += i;
+ readbuffer[bufsiz] = '\0'; // Terminate the string
+ }
+ }
+ // Maybe cursor or function key?
+ for (cmdindex = 0; cmdindex < ESCCMDS_COUNT; cmdindex++) {
+ cnt = strlen((char *) esccmds[cmdindex].seq);
+ i = strncmp((char *) esccmds[cmdindex].seq, (char *) readbuffer, cnt);
+ if (i == 0) {
+ // is a Cursor key- put derived value back into Q
+ readbuffer[0] = esccmds[cmdindex].val;
+ // squeeze out the ESC sequence
+ for (i = 1; i < cnt; i++) {
+ memmove(readbuffer + 1, readbuffer + 2, BUFSIZ - 2);
+ readbuffer[BUFSIZ - 1] = '\0';
+ }
+ break;
+ }
+ }
+ ri1:
+ c = readbuffer[0];
+ // remove one char from Q
+ memmove(readbuffer, readbuffer + 1, BUFSIZ - 1);
+ readbuffer[BUFSIZ - 1] = '\0';
+ (void) alarm(3); // we are done waiting for input, turn alarm ON
+ return (c);
+}
+
+//----- IO Routines --------------------------------------------
+static Byte get_one_char()
+{
+ static Byte c;
+
+#ifdef BB_FEATURE_VI_DOT_CMD
+ // ! adding2q && ioq == 0 read()
+ // ! adding2q && ioq != 0 *ioq
+ // adding2q *last_modifying_cmd= read()
+ if (!adding2q) {
+ // we are not adding to the q.
+ // but, we may be reading from a q
+ if (ioq == 0) {
+ // there is no current q, read from STDIN
+ c = readit(); // get the users input
+ } else {
+ // there is a queue to get chars from first
+ c = *ioq++;
+ if (c == '\0') {
+ // the end of the q, read from STDIN
+ free(ioq_start);
+ ioq_start = ioq = 0;
+ c = readit(); // get the users input
+ }
+ }
+ } else {
+ // adding STDIN chars to q
+ c = readit(); // get the users input
+ if (last_modifying_cmd != 0) {
+ // add new char to q
+ last_modifying_cmd[strlen((char *) last_modifying_cmd)] = c;
+ }
+ }
+#else /* BB_FEATURE_VI_DOT_CMD */
+ c = readit(); // get the users input
+#endif /* BB_FEATURE_VI_DOT_CMD */
+ return (c); // return the char, where ever it came from
+}
+
+#if defined(BB_FEATURE_VI_SEARCH) || defined(BB_FEATURE_VI_COLON)
+static Byte *get_input_line(Byte * prompt) // get input line- use "status line"
+{
+ Byte buf[500];
+ Byte c;
+ int i;
+ static Byte *obufp = NULL;
+
+ strcpy((char *) buf, (char *) prompt);
+ *status_buffer = '\0'; // clear the status buffer
+ place_cursor(rows - 1, 0); // go to Status line, bottom of screen
+ clear_to_eol(); // clear the line
+ write(1, prompt, strlen((char *) prompt)); // write out the :, /, or ? prompt
+
+ for (i = strlen((char *) buf); i < 500;) {
+ c = get_one_char(); // read user input
+ if (c == '\n' || c == '\r')
+ break; // is this end of input
+ if (c == erase_char) { // user wants to erase prev char
+ i--; // backup to prev char
+ buf[i] = '\0'; // erase the char
+ buf[i + 1] = '\0'; // null terminate buffer
+ write(1, " ", 3); // erase char on screen
+ if (i <= 0) { // user backs up before b-o-l, exit
+ break;
+ }
+ } else {
+ buf[i] = c; // save char in buffer
+ buf[i + 1] = '\0'; // make sure buffer is null terminated
+ write(1, buf + i, 1); // echo the char back to user
+ i++;
+ }
+ }
+ refresh(FALSE);
+ if (obufp != NULL)
+ free(obufp);
+ obufp = (Byte *) strdup((char *) buf);
+ return (obufp);
+}
+#endif /* BB_FEATURE_VI_SEARCH || BB_FEATURE_VI_COLON */
+
+static int file_size(Byte * fn) // what is the byte size of "fn"
+{
+ struct stat st_buf;
+ int cnt, sr;
+
+ if (fn == 0)
+ return (-1);
+ cnt = -1;
+ sr = stat((char *) fn, &st_buf); // see if file exists
+ if (sr >= 0) {
+ cnt = (int) st_buf.st_size;
+ }
+ return (cnt);
+}
+
+static int file_insert(Byte * fn, Byte * p, int size)
+{
+ int fd, cnt, sr;
+ struct stat st_buf;
+
+ cnt = -1;
+ if (fn == 0) {
+ psbs("No filename given");
+ goto fi0;
+ }
+ sr = stat((char *) fn, &st_buf); // see if file exists
+ if (sr < 0) {
+ psbs("\"%s\" %s", fn, "count not stat file");
+ goto fi0;
+ }
+ if (size <= 0 || (int) st_buf.st_size <= 0) {
+ psbs("The file size (%d) is too small", size);
+ if ((int) st_buf.st_size <= 0)
+ psbs("\"%s\" is empty", fn);
+ goto fi0;
+ }
+ // There is a file with content
+ fd = open((char *) fn, O_RDWR);
+ if (fd < 0) {
+ psbs("\"%s\" %s", fn, "could not open file");
+ goto fi0;
+ }
+ p = text_hole_make(p, size);
+ cnt = read(fd, p, size);
+ close(fd);
+ if (cnt < 0) {
+ cnt = -1;
+ p = text_hole_delete(p, p + size - 1); // un-do buffer insert
+ psbs("could not read file \"%s\"", fn);
+ } else if (cnt < size) {
+ // There was a partial read, shrink unused space text[]
+ p = text_hole_delete(p + cnt, p + (size - cnt) - 1); // un-do buffer insert
+ psbs("could not read all of file \"%s\"", fn);
+ }
+ if (cnt >= size)
+ file_modified = TRUE;
+ fi0:
+ return (cnt);
+}
+
+static int file_write(Byte * fn, Byte * first, Byte * last)
+{
+ int fd, cnt, charcnt;
+
+ if (fn == 0) {
+ psbs("No current filename");
+ return (-1);
+ }
+ charcnt = 0;
+ // FIXIT- use the correct umask()
+ fd = open((char *) fn, (O_RDWR | O_CREAT | O_TRUNC), 0664);
+ if (fd < 0)
+ return (-1);
+ cnt = last - first + 1;
+ charcnt = write(fd, first, cnt);
+ if (charcnt == cnt) {
+ // good write
+ //file_modified= FALSE; // the file has not been modified
+ } else {
+ charcnt = 0;
+ }
+ close(fd);
+ return (charcnt);
+}
+
+//----- Terminal Drawing ---------------------------------------
+// The terminal is made up of 'rows' line of 'columns' columns.
+// classicly this would be 24 x 80.
+// screen coordinates
+// 0,0 ... 0,79
+// 1,0 ... 1,79
+// . ... .
+// . ... .
+// 22,0 ... 22,79
+// 23,0 ... 23,79 status line
+//
+
+//----- Move the cursor to row x col (count from 0, not 1) -------
+static void place_cursor(int row, int col)
+{
+ Byte buf[30];
+ int l;
+
+ if (row < 0)
+ row = 0;
+ if (row >= rows)
+ row = rows - 1;
+ if (col < 0)
+ col = 0;
+ if (col >= columns)
+ col = columns - 1;
+ sprintf((char *) buf, "%c[%d;%dH", 0x1b, row + 1, col + 1);
+ l = strlen((char *) buf);
+ write(1, buf, l);
+}
+
+//----- Erase from cursor to end of line -----------------------
+static void clear_to_eol()
+{
+ write(1, "\033[0K", 4); // Erase from cursor to end of line
+}
+
+//----- Erase from cursor to end of screen -----------------------
+static void clear_to_eos()
+{
+ write(1, "\033[0J", 4); // Erase from cursor to end of screen
+}
+
+//----- Start standout mode ------------------------------------
+static void standout_start() // send "start reverse video" sequence
+{
+ write(1, "\033[7m", 4); // Start reverse video mode
+}
+
+//----- End standout mode --------------------------------------
+static void standout_end() // send "end reverse video" sequence
+{
+ write(1, "\033[0m", 4); // End reverse video mode
+}
+
+//----- Flash the screen --------------------------------------
+static void flash(int h)
+{
+ standout_start(); // send "start reverse video" sequence
+ redraw(TRUE);
+ (void) mysleep(h);
+ standout_end(); // send "end reverse video" sequence
+ redraw(TRUE);
+}
+
+static void beep()
+{
+ write(1, "\007", 1); // send out a bell character
+}
+
+static void indicate_error(char c)
+{
+#ifdef BB_FEATURE_VI_CRASHME
+ if (crashme > 0)
+ return; // generate a random command
+#endif /* BB_FEATURE_VI_CRASHME */
+ if (err_method == 0) {
+ beep();
+ } else {
+ flash(10);
+ }
+}
+
+//----- Screen[] Routines --------------------------------------
+//----- Erase the Screen[] memory ------------------------------
+static void screen_erase()
+{
+ int i;
+
+ for (i = 0; i < screensize; i++) {
+ screen[i] = '\0';
+ }
+}
+
+//----- Draw the status line at bottom of the screen -------------
+static void show_status_line(void)
+{
+ int cnt;
+
+ cnt = strlen((char *) status_buffer);
+ place_cursor(rows - 1, 0); // put cursor on status line
+ if (cnt > 0) {
+ write(1, status_buffer, cnt);
+ }
+ clear_to_eol();
+ place_cursor(crow, ccol); // put cursor back in correct place
+}
+
+//----- format the status buffer, the bottom line of screen ------
+// print status buffer, with STANDOUT mode
+static void psbs(char *format, ...)
+{
+ va_list args;
+
+ va_start(args, format);
+ strcpy((char *) status_buffer, "\033[7m"); // Terminal standout mode on
+ vsprintf((char *) status_buffer + strlen((char *) status_buffer), format,
+ args);
+ strcat((char *) status_buffer, "\033[0m"); // Terminal standout mode off
+ va_end(args);
+
+ return;
+}
+
+// print status buffer
+static void psb(char *format, ...)
+{
+ va_list args;
+
+ va_start(args, format);
+ vsprintf((char *) status_buffer, format, args);
+ va_end(args);
+ return;
+}
+
+static void ni(Byte * s) // display messages
+{
+ Byte buf[9];
+
+ print_literal(buf, s);
+ psbs("\'%s\' is not implemented", buf);
+}
+
+static void edit_status(void) // show file status on status line
+{
+ int cur, tot, percent;
+
+ cur = count_lines(text, dot);
+ tot = count_lines(text, end - 1);
+ // current line percent
+ // ------------- ~~ ----------
+ // total lines 100
+ if (tot > 0) {
+ percent = (100 * cur) / tot;
+ } else {
+ cur = tot = 0;
+ percent = 100;
+ }
+ psb("\"%s\""
+#ifdef BB_FEATURE_VI_READONLY
+ "%s"
+#endif /* BB_FEATURE_VI_READONLY */
+ "%s line %d of %d --%d%%-- (%dx%d)",
+ (cfn != 0 ? (char *) cfn : "No file"),
+#ifdef BB_FEATURE_VI_READONLY
+ (readonly == TRUE ? " [Read only]" : ""),
+#endif /* BB_FEATURE_VI_READONLY */
+ (file_modified == TRUE ? " [modified]" : ""),
+ cur, tot, percent, rows, columns);
+}
+
+//----- Force refresh of all Lines -----------------------------
+static void redraw(int full_screen)
+{
+ place_cursor(0, 0); // put cursor in correct place
+ clear_to_eos(); // tel terminal to erase display
+ screen_erase(); // erase the internal screen buffer
+ refresh(full_screen); // this will redraw the entire display
+}
+
+//----- Refresh the changed screen lines -----------------------
+// Copy the source line from text[] into the buffer and note
+// if the current screenline is different from the new buffer.
+// If they differ then that line needs redrawing on the terminal.
+//
+static void refresh(int full_screen)
+{
+ static int old_offset;
+ int li, co, changed;
+ Byte c, buf[MAX_SCR_COLS];
+ Byte *tp, *sp; // pointer into text[] and screen[]
+
+#ifdef BB_FEATURE_VI_WIN_RESIZE
+ window_size_get(0);
+#endif /* BB_FEATURE_VI_WIN_RESIZE */
+ sync_cursor(dot, &crow, &ccol);
+ tp = screenbegin; // index into text[] of top line
+ // compare text[] to screen[] and mark screen[] lines that need updating
+ for (li = 0; li < rows - 1; li++) {
+ // format current text line into buf with "columns" wide
+ for (co = 0; co < columns + offset;) {
+ c = ' '; // assume blank
+ if (li > 0 && co == 0) {
+ c = '~'; // not first line, assume Tilde
+ }
+ // are there chars in text[]
+ // and have we gone past the end
+ if (text < end && tp < end) {
+ c = *tp++;
+ }
+ if (c == '\n')
+ break;
+ if (c < ' ' || c > '~') {
+ if (c == '\t') {
+ c = ' ';
+ // co % 8 != 7
+ for (; (co % tabstop) != (tabstop - 1); co++) {
+ buf[co] = c;
+ }
+ } else {
+ buf[co++] = '^';
+ c |= '@'; // make it visible
+ c &= 0x7f; // get rid of hi bit
+ }
+ }
+ // the co++ is done here so that the column will
+ // not be overwritten when we blank-out the rest of line
+ buf[co++] = c;
+ if (tp >= end)
+ break;
+ }
+ if (co >= columns + offset) {
+ // skip to the end of the current text[] line
+ while (tp < end && *tp++ != '\n');
+ }
+ // try to keep the cursor near it's current position
+ // remember how many chars in this row- where the cursor sits
+ // blank out the rest of the buffer
+ while (co < MAX_SCR_COLS - 1) {
+ buf[co++] = ' ';
+ }
+ buf[co++] = 0; // NULL terminate the buffer
+
+ // if necessary, update virtual screen[] and terminal from buf[]
+ changed = FALSE; // assume no change
+ sp = &screen[li * columns]; // start of screen line
+ for (co = 0; co < columns; co++) {
+ if (sp[co] != buf[co + offset]) {
+ sp[co] = buf[co + offset];
+ changed = TRUE; // mark for redraw
+ }
+ }
+ // if horz offset has changed, force a redraw
+ if (offset != old_offset)
+ changed = TRUE;
+
+ // write all marked screen lines out to terminal
+ if (changed == TRUE) {
+ place_cursor(li, 0); // put cursor in correct place
+ clear_to_eol(); // Erase to end of line
+ if (full_screen == FALSE) {
+ // don't redraw every column on terminal
+ // look backwards for last non-blank
+ for (co = columns + offset; co >= 0; co--) {
+ // break;
+ if (buf[co] != ' ')
+ break;
+ }
+ co++;
+ } else {
+ // redraw every column on terminal
+ co = columns;
+ }
+ // write line out to terminal
+ write(1, buf + offset, co);
+ }
+ }
+
+ place_cursor(crow, ccol);
+ if (offset != old_offset)
+ old_offset = offset;
+}
diff --git a/include/applets.h b/include/applets.h
index 255bd6b..c303797 100644
--- a/include/applets.h
+++ b/include/applets.h
@@ -413,6 +413,9 @@
#ifdef BB_UUENCODE
APPLET(uuencode, uuencode_main, _BB_DIR_USR_BIN)
#endif
+#ifdef BB_VI
+ APPLET(vi, vi_main, _BB_DIR_BIN)
+#endif
#ifdef BB_WATCHDOG
APPLET(watchdog, watchdog_main, _BB_DIR_SBIN)
#endif
diff --git a/include/usage.h b/include/usage.h
index aa7f0af..abd0156 100644
--- a/include/usage.h
+++ b/include/usage.h
@@ -1689,6 +1689,13 @@
"$ uudecode busybox busybox > busybox.uu\n" \
"$\n"
+#define vi_trivial_usage \
+ "[OPTION] [FILE]..."
+#define vi_full_usage \
+ "edit FILE.\n\n" \
+ "Options:\n" \
+ "\t-R\tRead-only- do not write to the file."
+
#define watchdog_trivial_usage \
"DEV"
#define watchdog_full_usage \
diff --git a/usage.h b/usage.h
index aa7f0af..abd0156 100644
--- a/usage.h
+++ b/usage.h
@@ -1689,6 +1689,13 @@
"$ uudecode busybox busybox > busybox.uu\n" \
"$\n"
+#define vi_trivial_usage \
+ "[OPTION] [FILE]..."
+#define vi_full_usage \
+ "edit FILE.\n\n" \
+ "Options:\n" \
+ "\t-R\tRead-only- do not write to the file."
+
#define watchdog_trivial_usage \
"DEV"
#define watchdog_full_usage \
diff --git a/vi.c b/vi.c
new file mode 100644
index 0000000..325ab34
--- /dev/null
+++ b/vi.c
@@ -0,0 +1,3683 @@
+/* vi: set sw=8 ts=8: */
+/*
+ * tiny vi.c: A small 'vi' clone
+ * Copyright (C) 2000, 2001 Sterling Huxley <sterling@europa.com>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ */
+
+char *vi_Version =
+ "$Id: vi.c,v 1.1 2001/04/04 17:31:15 andersen Exp $";
+
+/*
+ * To compile for standalone use:
+ * gcc -Wall -Os -DSTANDALONE -o vi vi.c
+ * or
+ * gcc -Wall -Os -DSTANDALONE -DCRASHME -o vi vi.c # include testing features
+ * strip vi
+ */
+
+/*
+ * Things To Do:
+ * EXINIT
+ * $HOME/.exrc
+ * add magic to search /foo.*bar
+ * add :help command
+ * :map macros
+ * how about mode lines: vi: set sw=8 ts=8:
+ * if mark[] values were line numbers rather than pointers
+ * it would be easier to change the mark when add/delete lines
+ */
+
+//---- Feature -------------- Bytes to immplement
+#ifdef STANDALONE
+#define BB_FEATURE_VI_COLON // 4288
+#define BB_FEATURE_VI_YANKMARK // 1408
+#define BB_FEATURE_VI_SEARCH // 1088
+#define BB_FEATURE_VI_USE_SIGNALS // 1056
+#define BB_FEATURE_VI_DOT_CMD // 576
+#define BB_FEATURE_VI_READONLY // 128
+#define BB_FEATURE_VI_SETOPTS // 576
+#define BB_FEATURE_VI_SET // 224
+#define BB_FEATURE_VI_WIN_RESIZE // 256 WIN_RESIZE
+// To test editor using CRASHME:
+// vi -C filename
+// To stop testing, wait until all to text[] is deleted, or
+// Ctrl-Z and kill -9 %1
+// while in the editor Ctrl-T will toggle the crashme function on and off.
+//#define BB_FEATURE_VI_CRASHME // randomly pick commands to execute
+#endif /* STANDALONE */
+
+#ifndef STANDALONE
+#include "busybox.h"
+#endif /* STANDALONE */
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <termios.h>
+#include <unistd.h>
+#include <sys/ioctl.h>
+#include <sys/time.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <time.h>
+#include <fcntl.h>
+#include <signal.h>
+#include <setjmp.h>
+#include <regex.h>
+#include <ctype.h>
+#include <assert.h>
+#include <errno.h>
+#include <stdarg.h>
+#ifdef __linux__
+#include <stdint.h> // INT32_MAX
+#else /* __linux__ */
+#include <values.h>
+extern int strncasecmp(const char *s1, const char *s2, size_t n);
+
+#define INT32_MAX MAXINT
+#include <libgen.h> //
+#endif /* __linux__ */
+
+#ifndef TRUE
+#define TRUE ((int)1)
+#define FALSE ((int)0)
+#endif /* TRUE */
+#define MAX_SCR_COLS 300
+
+// Misc. non-Ascii keys that report an escape sequence
+#define VI_K_UP 128 // cursor key Up
+#define VI_K_DOWN 129 // cursor key Down
+#define VI_K_RIGHT 130 // Cursor Key Right
+#define VI_K_LEFT 131 // cursor key Left
+#define VI_K_HOME 132 // Cursor Key Home
+#define VI_K_END 133 // Cursor Key End
+#define VI_K_INSERT 134 // Cursor Key Insert
+#define VI_K_PAGEUP 135 // Cursor Key Page Up
+#define VI_K_PAGEDOWN 136 // Cursor Key Page Down
+#define VI_K_FUN1 137 // Function Key F1
+#define VI_K_FUN2 138 // Function Key F2
+#define VI_K_FUN3 139 // Function Key F3
+#define VI_K_FUN4 140 // Function Key F4
+#define VI_K_FUN5 141 // Function Key F5
+#define VI_K_FUN6 142 // Function Key F6
+#define VI_K_FUN7 143 // Function Key F7
+#define VI_K_FUN8 144 // Function Key F8
+#define VI_K_FUN9 145 // Function Key F9
+#define VI_K_FUN10 146 // Function Key F10
+#define VI_K_FUN11 147 // Function Key F11
+#define VI_K_FUN12 148 // Function Key F12
+
+static const int YANKONLY = FALSE;
+static const int YANKDEL = TRUE;
+static const int FORWARD = 1; // code depends on "1" for array index
+static const int BACK = -1; // code depends on "-1" for array index
+static const int LIMITED = 0; // how much of text[] in char_search
+static const int FULL = 1; // how much of text[] in char_search
+
+static const int S_BEFORE_WS = 1; // used in skip_thing() for moving "dot"
+static const int S_TO_WS = 2; // used in skip_thing() for moving "dot"
+static const int S_OVER_WS = 3; // used in skip_thing() for moving "dot"
+static const int S_END_PUNCT = 4; // used in skip_thing() for moving "dot"
+static const int S_END_ALNUM = 5; // used in skip_thing() for moving "dot"
+
+typedef unsigned char Byte;
+
+
+static int editing; // >0 while we are editing a file
+static int cmd_mode; // 0=command 1=insert
+static int file_modified; // buffer contents changed
+static int err_method; // indicate error with beep or flash
+static int fn_start; // index of first cmd line file name
+static int save_argc; // how many file names on cmd line
+static int cmdcnt; // repetition count
+static fd_set rfds; // use select() for small sleeps
+static struct timeval tv; // use select() for small sleeps
+static char erase_char; // the users erase character
+static int rows, columns; // the terminal screen is this size
+static int crow, ccol, offset; // cursor is on Crow x Ccol with Horz Ofset
+static char *SOs, *SOn;
+static Byte *status_buffer; // mesages to the user
+static Byte last_input_char; // last char read from user
+static Byte last_forward_char; // last char searched for with 'f'
+static Byte *cfn; // previous, current, and next file name
+static Byte *text, *end, *textend; // pointers to the user data in memory
+static Byte *screen; // pointer to the virtual screen buffer
+static int screensize; // and its size
+static Byte *screenbegin; // index into text[], of top line on the screen
+static Byte *dot; // where all the action takes place
+static int tabstop;
+static struct termios term_orig, term_vi; // remember what the cooked mode was
+
+#ifdef BB_FEATURE_VI_USE_SIGNALS
+static jmp_buf restart; // catch_sig()
+#endif /* BB_FEATURE_VI_USE_SIGNALS */
+#ifdef BB_FEATURE_VI_WIN_RESIZE
+static struct winsize winsize; // remember the window size
+#endif /* BB_FEATURE_VI_WIN_RESIZE */
+#ifdef BB_FEATURE_VI_DOT_CMD
+static int adding2q; // are we currently adding user input to q
+static Byte *last_modifying_cmd; // last modifying cmd for "."
+static Byte *ioq, *ioq_start; // pointer to string for get_one_char to "read"
+#endif /* BB_FEATURE_VI_DOT_CMD */
+#if defined(BB_FEATURE_VI_DOT_CMD) || defined(BB_FEATURE_VI_YANKMARK)
+static Byte *modifying_cmds; // cmds that modify text[]
+#endif /* BB_FEATURE_VI_DOT_CMD || BB_FEATURE_VI_YANKMARK */
+#ifdef BB_FEATURE_VI_READONLY
+static int readonly;
+#endif /* BB_FEATURE_VI_READONLY */
+#ifdef BB_FEATURE_VI_SETOPTS
+static int autoindent;
+static int showmatch;
+static int ignorecase;
+#endif /* BB_FEATURE_VI_SETOPTS */
+#ifdef BB_FEATURE_VI_YANKMARK
+static Byte *reg[28]; // named register a-z, "D", and "U" 0-25,26,27
+static int YDreg, Ureg; // default delete register and orig line for "U"
+static Byte *mark[28]; // user marks points somewhere in text[]- a-z and previous context ''
+static Byte *context_start, *context_end;
+#endif /* BB_FEATURE_VI_YANKMARK */
+#ifdef BB_FEATURE_VI_SEARCH
+static Byte *last_search_pattern; // last pattern from a '/' or '?' search
+#endif /* BB_FEATURE_VI_SEARCH */
+
+
+static void edit_file(Byte *); // edit one file
+static void do_cmd(Byte); // execute a command
+static void sync_cursor(Byte *, int *, int *); // synchronize the screen cursor to dot
+static Byte *begin_line(Byte *); // return pointer to cur line B-o-l
+static Byte *end_line(Byte *); // return pointer to cur line E-o-l
+static Byte *dollar_line(Byte *); // return pointer to just before NL
+static Byte *prev_line(Byte *); // return pointer to prev line B-o-l
+static Byte *next_line(Byte *); // return pointer to next line B-o-l
+static Byte *end_screen(void); // get pointer to last char on screen
+static int count_lines(Byte *, Byte *); // count line from start to stop
+static Byte *find_line(int); // find begining of line #li
+static Byte *move_to_col(Byte *, int); // move "p" to column l
+static int isblnk(Byte); // is the char a blank or tab
+static void dot_left(void); // move dot left- dont leave line
+static void dot_right(void); // move dot right- dont leave line
+static void dot_begin(void); // move dot to B-o-l
+static void dot_end(void); // move dot to E-o-l
+static void dot_next(void); // move dot to next line B-o-l
+static void dot_prev(void); // move dot to prev line B-o-l
+static void dot_scroll(int, int); // move the screen up or down
+static void dot_skip_over_ws(void); // move dot pat WS
+static void dot_delete(void); // delete the char at 'dot'
+static Byte *bound_dot(Byte *); // make sure text[0] <= P < "end"
+static Byte *new_screen(int, int); // malloc virtual screen memory
+static Byte *new_text(int); // malloc memory for text[] buffer
+static Byte *char_insert(Byte *, Byte); // insert the char c at 'p'
+static Byte *stupid_insert(Byte *, Byte); // stupidly insert the char c at 'p'
+static Byte find_range(Byte **, Byte **, Byte); // return pointers for an object
+static int st_test(Byte *, int, int, Byte *); // helper for skip_thing()
+static Byte *skip_thing(Byte *, int, int, int); // skip some object
+static Byte *find_pair(Byte *, Byte); // find matching pair () [] {}
+static Byte *text_hole_delete(Byte *, Byte *); // at "p", delete a 'size' byte hole
+static Byte *text_hole_make(Byte *, int); // at "p", make a 'size' byte hole
+static Byte *yank_delete(Byte *, Byte *, int, int); // yank text[] into register then delete
+static void show_help(void); // display some help info
+static void print_literal(Byte *, Byte *); // copy s to buf, convert unprintable
+static void rawmode(void); // set "raw" mode on tty
+static void cookmode(void); // return to "cooked" mode on tty
+static int mysleep(int); // sleep for 'h' 1/100 seconds
+static Byte readit(void); // read (maybe cursor) key from stdin
+static Byte get_one_char(void); // read 1 char from stdin
+static int file_size(Byte *); // what is the byte size of "fn"
+static int file_insert(Byte *, Byte *, int);
+static int file_write(Byte *, Byte *, Byte *);
+static void place_cursor(int, int);
+static void screen_erase();
+static void clear_to_eol(void);
+static void clear_to_eos(void);
+static void standout_start(void); // send "start reverse video" sequence
+static void standout_end(void); // send "end reverse video" sequence
+static void flash(int); // flash the terminal screen
+static void beep(void); // beep the terminal
+static void indicate_error(char); // use flash or beep to indicate error
+static void show_status_line(void); // put a message on the bottom line
+static void psb(char *, ...); // Print Status Buf
+static void psbs(char *, ...); // Print Status Buf in standout mode
+static void ni(Byte *); // display messages
+static void edit_status(void); // show file status on status line
+static void redraw(int); // force a full screen refresh
+static void refresh(int); // update the terminal from screen[]
+
+#ifdef BB_FEATURE_VI_SEARCH
+static Byte *char_search(Byte *, Byte *, int, int); // search for pattern starting at p
+static int mycmp(Byte *, Byte *, int); // string cmp based in "ignorecase"
+#endif /* BB_FEATURE_VI_SEARCH */
+#ifdef BB_FEATURE_VI_COLON
+static void Hit_Return(void);
+static Byte *get_address(Byte *, int *); // get colon addr, if present
+static void colon(Byte *); // execute the "colon" mode cmds
+#endif /* BB_FEATURE_VI_COLON */
+#if defined(BB_FEATURE_VI_SEARCH) || defined(BB_FEATURE_VI_COLON)
+static Byte *get_input_line(Byte *); // get input line- use "status line"
+#endif /* BB_FEATURE_VI_SEARCH || BB_FEATURE_VI_COLON */
+#ifdef BB_FEATURE_VI_USE_SIGNALS
+static void winch_sig(int); // catch window size changes
+static void suspend_sig(int); // catch ctrl-Z
+static void alarm_sig(int); // catch alarm time-outs
+static void catch_sig(int); // catch ctrl-C
+static void core_sig(int); // catch a core dump signal
+#endif /* BB_FEATURE_VI_USE_SIGNALS */
+#ifdef BB_FEATURE_VI_DOT_CMD
+static void start_new_cmd_q(Byte); // new queue for command
+static void end_cmd_q(); // stop saving input chars
+#else /* BB_FEATURE_VI_DOT_CMD */
+#define end_cmd_q()
+#endif /* BB_FEATURE_VI_DOT_CMD */
+#ifdef BB_FEATURE_VI_WIN_RESIZE
+static void window_size_get(int); // find out what size the window is
+#endif /* BB_FEATURE_VI_WIN_RESIZE */
+#ifdef BB_FEATURE_VI_SETOPTS
+static void showmatching(Byte *); // show the matching pair () [] {}
+#endif /* BB_FEATURE_VI_SETOPTS */
+#if defined(BB_FEATURE_VI_YANKMARK) || defined(BB_FEATURE_VI_COLON) || defined(BB_FEATURE_VI_CRASHME)
+static Byte *string_insert(Byte *, Byte *); // insert the string at 'p'
+#endif /* BB_FEATURE_VI_YANKMARK || BB_FEATURE_VI_COLON || BB_FEATURE_VI_CRASHME */
+#ifdef BB_FEATURE_VI_YANKMARK
+static Byte *text_yank(Byte *, Byte *, int); // save copy of "p" into a register
+static Byte what_reg(void); // what is letter of current YDreg
+static void check_context(Byte); // remember context for '' command
+static Byte *swap_context(Byte *); // goto new context for '' command
+#endif /* BB_FEATURE_VI_YANKMARK */
+#ifdef BB_FEATURE_VI_CRASHME
+static void crash_dummy();
+static void crash_test();
+static int crashme = 0;
+#endif /* BB_FEATURE_VI_CRASHME */
+
+
+#ifdef STANDALONE
+int main(int argc, char **argv)
+#else
+extern int vi_main(int argc, char **argv)
+#endif /* STANDALONE */
+{
+ extern char *optarg;
+ char c;
+
+#ifdef BB_FEATURE_VI_YANKMARK
+ int i;
+#endif /* BB_FEATURE_VI_YANKMARK */
+
+ SOs = "\033[7m"; // Terminal standout mode on
+ SOn = "\033[0m"; // Terminal standout mode off
+#ifdef BB_FEATURE_VI_CRASHME
+ (void) srand((long) getpid());
+#endif /* BB_FEATURE_VI_CRASHME */
+ status_buffer = (Byte *) malloc(200); // hold messages to user
+#ifdef BB_FEATURE_VI_READONLY
+ readonly = FALSE;
+ if (strncmp(argv[0], "view", 4) == 0) {
+ readonly = TRUE;
+ }
+#endif /* BB_FEATURE_VI_READONLY */
+#ifdef BB_FEATURE_VI_SETOPTS
+ autoindent = 1;
+ ignorecase = 1;
+ showmatch = 1;
+#endif /* BB_FEATURE_VI_SETOPTS */
+#ifdef BB_FEATURE_VI_YANKMARK
+ for (i = 0; i < 28; i++) {
+ reg[i] = 0;
+ } // init the yank regs
+#endif /* BB_FEATURE_VI_YANKMARK */
+#ifdef BB_FEATURE_VI_DOT_CMD
+ modifying_cmds = (Byte *) "aAcCdDiIJoOpPrRsxX<>~"; // cmds modifying text[]
+#endif /* BB_FEATURE_VI_DOT_CMD */
+
+ // 1- process $HOME/.exrc file
+ // 2- process EXINIT variable from environment
+ // 3- process command line args
+ while ((c = getopt(argc, argv, "hCR")) != -1) {
+ switch (c) {
+#ifdef BB_FEATURE_VI_CRASHME
+ case 'C':
+ crashme = 1;
+ break;
+#endif /* BB_FEATURE_VI_CRASHME */
+#ifdef BB_FEATURE_VI_READONLY
+ case 'R': // Read-only flag
+ readonly = TRUE;
+ break;
+#endif /* BB_FEATURE_VI_READONLY */
+ //case 'r': // recover flag- ignore- we don't use tmp file
+ //case 'x': // encryption flag- ignore
+ //case 'c': // execute command first
+ //case 'h': // help -- just use default
+ default:
+ show_help();
+ break;
+ }
+ }
+
+ // The argv array can be used by the ":next" and ":rewind" commands
+ // save optind.
+ fn_start = optind; // remember first file name for :next and :rew
+ save_argc = argc;
+
+ //----- This is the main file handling loop --------------
+ if (optind >= argc) {
+ editing = 1; // 0= exit, 1= one file, 2= multiple files
+ edit_file(0);
+ } else {
+ for (; optind < argc; optind++) {
+ editing = 1; // 0=exit, 1=one file, 2+ =many files
+ if (cfn != 0)
+ free(cfn);
+ cfn = (Byte *) strdup(argv[optind]);
+ edit_file(cfn);
+ }
+ }
+ //-----------------------------------------------------------
+
+ return (0);
+}
+
+static void edit_file(Byte * fn)
+{
+ char c;
+ int cnt, size;
+
+#ifdef BB_FEATURE_VI_USE_SIGNALS
+ char *msg;
+ int sig;
+#endif /* BB_FEATURE_VI_USE_SIGNALS */
+#ifdef BB_FEATURE_VI_YANKMARK
+ static Byte *cur_line;
+#endif /* BB_FEATURE_VI_YANKMARK */
+
+ rawmode();
+ rows = 24;
+ columns = 80;
+#ifdef BB_FEATURE_VI_WIN_RESIZE
+ window_size_get(0);
+#endif /* BB_FEATURE_VI_WIN_RESIZE */
+ new_screen(rows, columns); // get memory for virtual screen
+
+ cnt = file_size(fn); // file size
+ size = 2 * cnt; // 200% of file size
+ new_text(size); // get a text[] buffer
+ screenbegin = dot = end = text;
+ if (fn != 0) {
+ file_insert(fn, text, cnt);
+ } else {
+ (void) char_insert(text, '\n'); // start empty buf with dummy line
+ }
+ file_modified = FALSE;
+#ifdef BB_FEATURE_VI_YANKMARK
+ YDreg = 26; // default Yank/Delete reg
+ Ureg = 27; // hold orig line for "U" cmd
+ for (cnt = 0; cnt < 28; cnt++) {
+ mark[cnt] = 0;
+ } // init the marks
+ mark[26] = mark[27] = text; // init "previous context"
+#endif /* BB_FEATURE_VI_YANKMARK */
+
+ err_method = 1; // flash
+ last_forward_char = last_input_char = '\0';
+ crow = 0;
+ ccol = 0;
+ edit_status();
+
+#ifdef BB_FEATURE_VI_USE_SIGNALS
+ signal(SIGHUP, catch_sig);
+ signal(SIGINT, catch_sig);
+ signal(SIGALRM, alarm_sig);
+ signal(SIGTERM, catch_sig);
+ signal(SIGQUIT, core_sig);
+ signal(SIGILL, core_sig);
+ signal(SIGTRAP, core_sig);
+ signal(SIGIOT, core_sig);
+ signal(SIGABRT, core_sig);
+ signal(SIGFPE, core_sig);
+ signal(SIGBUS, core_sig);
+ signal(SIGSEGV, core_sig);
+ signal(SIGSYS, core_sig);
+ signal(SIGWINCH, winch_sig);
+ signal(SIGTSTP, suspend_sig);
+ sig = setjmp(restart);
+ if (sig != 0) {
+ msg = "";
+ if (sig == SIGWINCH)
+ msg = "(window resize)";
+ if (sig == SIGHUP)
+ msg = "(hangup)";
+ if (sig == SIGINT)
+ msg = "(interrupt)";
+ if (sig == SIGTERM)
+ msg = "(terminate)";
+ if (sig == SIGBUS)
+ msg = "(bus error)";
+ if (sig == SIGSEGV)
+ msg = "(I tried to touch invalid memory)";
+ if (sig == SIGALRM)
+ msg = "(alarm)";
+
+ psbs("-- caught signal %d %s--", sig, msg);
+ }
+#endif /* BB_FEATURE_VI_USE_SIGNALS */
+
+ editing = 1;
+ cmd_mode = 0; // 0=command 1=insert 2='R'eplace
+ cmdcnt = 0;
+ tabstop = 8;
+ offset = 0; // no horizontal offset
+ c = '\0';
+#ifdef BB_FEATURE_VI_DOT_CMD
+ if (last_modifying_cmd != 0)
+ free(last_modifying_cmd);
+ if (ioq_start != NULL)
+ free(ioq_start);
+ ioq = ioq_start = last_modifying_cmd = 0;
+ adding2q = 0;
+#endif /* BB_FEATURE_VI_DOT_CMD */
+ redraw(TRUE);
+ show_status_line();
+
+ //------This is the main Vi cmd handling loop -----------------------
+ while (editing > 0) {
+#ifdef BB_FEATURE_VI_CRASHME
+ if (crashme > 0) {
+ if ((end - text) > 1) {
+ crash_dummy(); // generate a random command
+ } else {
+ crashme = 0;
+ dot =
+ string_insert(text, (Byte *) "\n\n##### Ran out of text to work on. #####\n\n"); // insert the string
+ refresh(FALSE);
+ }
+ }
+#endif /* BB_FEATURE_VI_CRASHME */
+ last_input_char = c = get_one_char(); // get a cmd from user
+#ifdef BB_FEATURE_VI_YANKMARK
+ // save a copy of the current line- for the 'U" command
+ if (begin_line(dot) != cur_line) {
+ cur_line = begin_line(dot);
+ text_yank(begin_line(dot), end_line(dot), Ureg);
+ }
+#endif /* BB_FEATURE_VI_YANKMARK */
+#ifdef BB_FEATURE_VI_DOT_CMD
+ // These are commands that change text[].
+ // Remember the input for the "." command
+ if (!adding2q && ioq_start == 0
+ && strchr((char *) modifying_cmds, c) != NULL) {
+ start_new_cmd_q(c);
+ }
+#endif /* BB_FEATURE_VI_DOT_CMD */
+ do_cmd(c); // execute the user command
+ //
+ // poll to see if there is input already waiting. if we are
+ // not able to display output fast enough to keep up, skip
+ // the display update until we catch up with input.
+ if (mysleep(0) == 0) {
+ // no input pending- so update output
+ refresh(FALSE);
+ show_status_line();
+ }
+#ifdef BB_FEATURE_VI_CRASHME
+ if (crashme > 0)
+ crash_test(); // test editor variables
+#endif /* BB_FEATURE_VI_CRASHME */
+ }
+ //-------------------------------------------------------------------
+
+ place_cursor(rows, 0); // go to bottom of screen
+ clear_to_eol(); // Erase to end of line
+ cookmode();
+}
+
+static Byte readbuffer[BUFSIZ];
+
+#ifdef BB_FEATURE_VI_CRASHME
+static int totalcmds = 0;
+static int Mp = 85; // Movement command Probability
+static int Np = 90; // Non-movement command Probability
+static int Dp = 96; // Delete command Probability
+static int Ip = 97; // Insert command Probability
+static int Yp = 98; // Yank command Probability
+static int Pp = 99; // Put command Probability
+static int M = 0, N = 0, I = 0, D = 0, Y = 0, P = 0, U = 0;
+char chars[20] = "\t012345 abcdABCD-=.$";
+char *words[20] = { "this", "is", "a", "test",
+ "broadcast", "the", "emergency", "of",
+ "system", "quick", "brown", "fox",
+ "jumped", "over", "lazy", "dogs",
+ "back", "January", "Febuary", "March"
+};
+char *lines[20] = {
+ "You should have received a copy of the GNU General Public License\n",
+ "char c, cm, *cmd, *cmd1;\n",
+ "generate a command by percentages\n",
+ "Numbers may be typed as a prefix to some commands.\n",
+ "Quit, discarding changes!\n",
+ "Forced write, if permission originally not valid.\n",
+ "In general, any ex or ed command (such as substitute or delete).\n",
+ "I have tickets available for the Blazers vs LA Clippers for Monday, Janurary 1 at 1:00pm.\n",
+ "Please get w/ me and I will go over it with you.\n",
+ "The following is a list of scheduled, committed changes.\n",
+ "1. Launch Norton Antivirus (Start, Programs, Norton Antivirus)\n",
+ "Reminder....Town Meeting in Central Perk cafe today at 3:00pm.\n",
+ "Any question about transactions please contact Sterling Huxley.\n",
+ "I will try to get back to you by Friday, December 31.\n",
+ "This Change will be implemented on Friday.\n",
+ "Let me know if you have problems accessing this;\n",
+ "Sterling Huxley recently added you to the access list.\n",
+ "Would you like to go to lunch?\n",
+ "The last command will be automatically run.\n",
+ "This is too much english for a computer geek.\n",
+};
+char *multilines[20] = {
+ "You should have received a copy of the GNU General Public License\n",
+ "char c, cm, *cmd, *cmd1;\n",
+ "generate a command by percentages\n",
+ "Numbers may be typed as a prefix to some commands.\n",
+ "Quit, discarding changes!\n",
+ "Forced write, if permission originally not valid.\n",
+ "In general, any ex or ed command (such as substitute or delete).\n",
+ "I have tickets available for the Blazers vs LA Clippers for Monday, Janurary 1 at 1:00pm.\n",
+ "Please get w/ me and I will go over it with you.\n",
+ "The following is a list of scheduled, committed changes.\n",
+ "1. Launch Norton Antivirus (Start, Programs, Norton Antivirus)\n",
+ "Reminder....Town Meeting in Central Perk cafe today at 3:00pm.\n",
+ "Any question about transactions please contact Sterling Huxley.\n",
+ "I will try to get back to you by Friday, December 31.\n",
+ "This Change will be implemented on Friday.\n",
+ "Let me know if you have problems accessing this;\n",
+ "Sterling Huxley recently added you to the access list.\n",
+ "Would you like to go to lunch?\n",
+ "The last command will be automatically run.\n",
+ "This is too much english for a computer geek.\n",
+};
+
+// create a random command to execute
+static void crash_dummy()
+{
+ static int sleeptime; // how long to pause between commands
+ char c, cm, *cmd, *cmd1;
+ int i, cnt, thing, rbi, startrbi, percent;
+
+ // "dot" movement commands
+ cmd1 = " \n\r\002\004\005\006\025\0310^$-+wWeEbBhjklHL";
+
+ // is there already a command running?
+ if (strlen((char *) readbuffer) > 0)
+ goto cd1;
+ cd0:
+ startrbi = rbi = 0;
+ sleeptime = 0; // how long to pause between commands
+ memset(readbuffer, '\0', BUFSIZ - 1); // clear the read buffer
+ // generate a command by percentages
+ percent = (int) lrand48() % 100; // get a number from 0-99
+ if (percent < Mp) { // Movement commands
+ // available commands
+ cmd = cmd1;
+ M++;
+ } else if (percent < Np) { // non-movement commands
+ cmd = "mz<>\'\""; // available commands
+ N++;
+ } else if (percent < Dp) { // Delete commands
+ cmd = "dx"; // available commands
+ D++;
+ } else if (percent < Ip) { // Inset commands
+ cmd = "iIaAsrJ"; // available commands
+ I++;
+ } else if (percent < Yp) { // Yank commands
+ cmd = "yY"; // available commands
+ Y++;
+ } else if (percent < Pp) { // Put commands
+ cmd = "pP"; // available commands
+ P++;
+ } else {
+ // We do not know how to handle this command, try again
+ U++;
+ goto cd0;
+ }
+ // randomly pick one of the available cmds from "cmd[]"
+ i = (int) lrand48() % strlen(cmd);
+ cm = cmd[i];
+ if (strchr(":\024", cm))
+ goto cd0; // dont allow these commands
+ readbuffer[rbi++] = cm; // put cmd into input buffer
+
+ // now we have the command-
+ // there are 1, 2, and multi char commands
+ // find out which and generate the rest of command as necessary
+ if (strchr("dmryz<>\'\"", cm)) { // 2-char commands
+ cmd1 = " \n\r0$^-+wWeEbBhjklHL";
+ if (cm == 'm' || cm == '\'' || cm == '\"') { // pick a reg[]
+ cmd1 = "abcdefghijklmnopqrstuvwxyz";
+ }
+ thing = (int) lrand48() % strlen(cmd1); // pick a movement command
+ c = cmd1[thing];
+ readbuffer[rbi++] = c; // add movement to input buffer
+ }
+ if (strchr("iIaAsc", cm)) { // multi-char commands
+ if (cm == 'c') {
+ // change some thing
+ thing = (int) lrand48() % strlen(cmd1); // pick a movement command
+ c = cmd1[thing];
+ readbuffer[rbi++] = c; // add movement to input buffer
+ }
+ thing = (int) lrand48() % 4; // what thing to insert
+ cnt = (int) lrand48() % 10; // how many to insert
+ for (i = 0; i < cnt; i++) {
+ if (thing == 0) { // insert chars
+ readbuffer[rbi++] = chars[((int) lrand48() % strlen(chars))];
+ } else if (thing == 1) { // insert words
+ strcat((char *) readbuffer, words[(int) lrand48() % 20]);
+ strcat((char *) readbuffer, " ");
+ sleeptime = 0; // how fast to type
+ } else if (thing == 2) { // insert lines
+ strcat((char *) readbuffer, lines[(int) lrand48() % 20]);
+ sleeptime = 0; // how fast to type
+ } else { // insert multi-lines
+ strcat((char *) readbuffer, multilines[(int) lrand48() % 20]);
+ sleeptime = 0; // how fast to type
+ }
+ }
+ strcat((char *) readbuffer, "\033");
+ }
+ cd1:
+ totalcmds++;
+ if (sleeptime > 0)
+ (void) mysleep(sleeptime); // sleep 1/100 sec
+}
+
+// test to see if there are any errors
+static void crash_test()
+{
+ static time_t oldtim;
+ time_t tim;
+ char d[2], buf[100], msg[BUFSIZ];
+
+ msg[0] = '\0';
+ if (end < text) {
+ strcat((char *) msg, "end<text ");
+ }
+ if (end > textend) {
+ strcat((char *) msg, "end>textend ");
+ }
+ if (dot < text) {
+ strcat((char *) msg, "dot<text ");
+ }
+ if (dot > end) {
+ strcat((char *) msg, "dot>end ");
+ }
+ if (screenbegin < text) {
+ strcat((char *) msg, "screenbegin<text ");
+ }
+ if (screenbegin > end - 1) {
+ strcat((char *) msg, "screenbegin>end-1 ");
+ }
+
+ if (strlen(msg) > 0) {
+ alarm(0);
+ sprintf(buf, "\n\n%d: \'%c\' ", totalcmds, last_input_char);
+ write(1, buf, strlen(buf));
+ write(1, msg, strlen(msg));
+ write(1, "\n\n\n", 3);
+ write(1, "\033[7m[Hit return to continue]\033[0m", 32);
+ while (read(0, d, 1) > 0) {
+ if (d[0] == '\n' || d[0] == '\r')
+ break;
+ }
+ alarm(3);
+ }
+ tim = (time_t) time((time_t *) 0);
+ if (tim >= (oldtim + 3)) {
+ sprintf((char *) status_buffer,
+ "Tot=%d: M=%d N=%d I=%d D=%d Y=%d P=%d U=%d size=%d",
+ totalcmds, M, N, I, D, Y, P, U, end - text + 1);
+ oldtim = tim;
+ }
+ return;
+}
+#endif /* BB_FEATURE_VI_CRASHME */
+
+//---------------------------------------------------------------------
+//----- the Ascii Chart -----------------------------------------------
+//
+// 00 nul 01 soh 02 stx 03 etx 04 eot 05 enq 06 ack 07 bel
+// 08 bs 09 ht 0a nl 0b vt 0c np 0d cr 0e so 0f si
+// 10 dle 11 dc1 12 dc2 13 dc3 14 dc4 15 nak 16 syn 17 etb
+// 18 can 19 em 1a sub 1b esc 1c fs 1d gs 1e rs 1f us
+// 20 sp 21 ! 22 " 23 # 24 $ 25 % 26 & 27 '
+// 28 ( 29 ) 2a * 2b + 2c , 2d - 2e . 2f /
+// 30 0 31 1 32 2 33 3 34 4 35 5 36 6 37 7
+// 38 8 39 9 3a : 3b ; 3c < 3d = 3e > 3f ?
+// 40 @ 41 A 42 B 43 C 44 D 45 E 46 F 47 G
+// 48 H 49 I 4a J 4b K 4c L 4d M 4e N 4f O
+// 50 P 51 Q 52 R 53 S 54 T 55 U 56 V 57 W
+// 58 X 59 Y 5a Z 5b [ 5c \ 5d ] 5e ^ 5f _
+// 60 ` 61 a 62 b 63 c 64 d 65 e 66 f 67 g
+// 68 h 69 i 6a j 6b k 6c l 6d m 6e n 6f o
+// 70 p 71 q 72 r 73 s 74 t 75 u 76 v 77 w
+// 78 x 79 y 7a z 7b { 7c | 7d } 7e ~ 7f del
+//---------------------------------------------------------------------
+
+//----- Execute a Vi Command -----------------------------------
+static void do_cmd(Byte c)
+{
+ Byte c1, *p, *q, *msg, buf[9], *save_dot;
+ int cnt, i, j, dir, yf;
+
+ c1 = c; // quiet the compiler
+ cnt = yf = dir = 0; // quiet the compiler
+ p = q = save_dot = msg = buf; // quiet the compiler
+ memset(buf, '\0', 9); // clear buf
+ if (cmd_mode == 2) {
+ // we are 'R'eplacing the current *dot with new char
+ if (*dot == '\n') {
+ // don't Replace past E-o-l
+ cmd_mode = 1; // convert to insert
+ } else {
+ if (1 <= c && c <= 127) { // only ASCII chars
+ if (c != 27)
+ dot = yank_delete(dot, dot, 0, YANKDEL); // delete char
+ dot = char_insert(dot, c); // insert new char
+ }
+ goto dc1;
+ }
+ }
+ if (cmd_mode == 1) {
+ // insert the char c at "dot"
+ if (1 <= c && c <= 127) {
+ dot = char_insert(dot, c); // only ASCII chars
+ }
+ goto dc1;
+ }
+
+ switch (c) {
+ //case 0x01: // soh
+ //case 0x09: // ht
+ //case 0x0b: // vt
+ //case 0x0e: // so
+ //case 0x0f: // si
+ //case 0x10: // dle
+ //case 0x11: // dc1
+ //case 0x12: // dc2
+ //case 0x13: // dc3
+ case 0x14: // dc4 ctrl-T
+#ifdef BB_FEATURE_VI_CRASHME
+ crashme = (crashme == 0) ? 1 : 0;
+#endif /* BB_FEATURE_VI_CRASHME */
+ break;
+ //case 0x16: // syn
+ //case 0x17: // etb
+ //case 0x18: // can
+ //case 0x1c: // fs
+ //case 0x1d: // gs
+ //case 0x1e: // rs
+ //case 0x1f: // us
+ //case '!': // !-
+ //case '#': // #-
+ //case '&': // &-
+ //case '(': // (-
+ //case ')': // )-
+ //case '*': // *-
+ //case ',': // ,-
+ //case '=': // =-
+ //case '@': // @-
+ //case 'F': // F-
+ //case 'G': // G-
+ //case 'K': // K-
+ //case 'M': // M-
+ //case 'Q': // Q-
+ //case 'S': // S-
+ //case 'T': // T-
+ //case 'V': // V-
+ //case '[': // [-
+ //case '\\': // \-
+ //case ']': // ]-
+ //case '_': // _-
+ //case '`': // `-
+ //case 'g': // g-
+ //case 'm': // m-
+ //case 't': // t-
+ //case 'v': // v-
+ default: // unrecognised command
+ buf[0] = c;
+ buf[1] = '\0';
+ if (c <= ' ') {
+ buf[0] = '^';
+ buf[1] = c + '@';
+ buf[2] = '\0';
+ }
+ ni((Byte *) buf);
+ end_cmd_q(); // stop adding to q
+ case 0x00: // nul- ignore
+ break;
+ case 2: // ctrl-B scroll up full screen
+ case VI_K_PAGEUP: // Cursor Key Page Up
+ dot_scroll(rows - 2, -1);
+ break;
+#ifdef BB_FEATURE_VI_USE_SIGNALS
+ case 0x03: // ctrl-C interrupt
+ longjmp(restart, 1);
+ break;
+ case 26: // ctrl-Z suspend
+ suspend_sig(SIGTSTP);
+ break;
+#endif /* BB_FEATURE_VI_USE_SIGNALS */
+ case 4: // ctrl-D scroll down half screen
+ dot_scroll((rows - 2) / 2, 1);
+ break;
+ case 5: // ctrl-E scroll down one line
+ dot_scroll(1, 1);
+ break;
+ case 6: // ctrl-F scroll down full screen
+ case VI_K_PAGEDOWN: // Cursor Key Page Down
+ dot_scroll(rows - 2, 1);
+ break;
+ case 7: // ctrl-G show current status
+ edit_status();
+ break;
+ case 'h': // h- move left
+ case VI_K_LEFT: // cursor key Left
+ case 8: // ^h- move left (This may be ERASE char)
+ case 127: // DEL- move left (This may be ERASE char)
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dot_left();
+ break;
+ case 10: // Newline ^J
+ case 'j': // j- goto next line, same col
+ case VI_K_DOWN: // cursor key Down
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dot_next(); // go to next B-o-l
+ dot = move_to_col(dot, ccol + offset); // try stay in same col
+ break;
+ case 12: // ctrl-L force redraw whole screen
+ place_cursor(0, 0); // put cursor in correct place
+ clear_to_eos(); // tel terminal to erase display
+ (void) mysleep(10);
+ screen_erase(); // erase the internal screen buffer
+ refresh(TRUE); // this will redraw the entire display
+ break;
+ case 13: // Carriage Return ^M
+ case '+': // +- goto next line
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dot_next();
+ dot_skip_over_ws();
+ break;
+ case 21: // ctrl-U scroll up half screen
+ dot_scroll((rows - 2) / 2, -1);
+ break;
+ case 25: // ctrl-Y scroll up one line
+ dot_scroll(1, -1);
+ break;
+ case 0x1b: // esc
+ if (cmd_mode == 0)
+ indicate_error(c);
+ cmd_mode = 0; // stop insrting
+ end_cmd_q();
+ *status_buffer = '\0'; // clear status buffer
+ break;
+ case ' ': // move right
+ case 'l': // move right
+ case VI_K_RIGHT: // Cursor Key Right
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dot_right();
+ break;
+#ifdef BB_FEATURE_VI_YANKMARK
+ case '"': // "- name a register to use for Delete/Yank
+ c1 = get_one_char();
+ c1 = tolower(c1);
+ if (islower(c1)) {
+ YDreg = c1 - 'a';
+ } else {
+ indicate_error(c);
+ }
+ break;
+ case '\'': // '- goto a specific mark
+ c1 = get_one_char();
+ c1 = tolower(c1);
+ if (islower(c1)) {
+ c1 = c1 - 'a';
+ // get the b-o-l
+ q = mark[(int) c1];
+ if (text <= q && q < end) {
+ dot = q;
+ dot_begin(); // go to B-o-l
+ dot_skip_over_ws();
+ }
+ } else if (c1 == '\'') { // goto previous context
+ dot = swap_context(dot); // swap current and previous context
+ dot_begin(); // go to B-o-l
+ dot_skip_over_ws();
+ } else {
+ indicate_error(c);
+ }
+ break;
+ case 'm': // m- Mark a line
+ // this is really stupid. If there are any inserts or deletes
+ // between text[0] and dot then this mark will not point to the
+ // correct location! It could be off by many lines!
+ // Well..., at least its quick and dirty.
+ c1 = get_one_char();
+ c1 = tolower(c1);
+ if (islower(c1)) {
+ c1 = c1 - 'a';
+ // remember the line
+ mark[(int) c1] = dot;
+ } else {
+ indicate_error(c);
+ }
+ break;
+ case 'P': // P- Put register before
+ case 'p': // p- put register after
+ p = reg[YDreg];
+ if (p == 0) {
+ psbs("Nothing in register %c", what_reg());
+ break;
+ }
+ // are we putting whole lines or strings
+ if (strchr((char *) p, '\n') != NULL) {
+ if (c == 'P') {
+ dot_begin(); // putting lines- Put above
+ }
+ if (c == 'p') {
+ // are we putting after very last line?
+ if (end_line(dot) == (end - 1)) {
+ dot = end; // force dot to end of text[]
+ } else {
+ dot_next(); // next line, then put before
+ }
+ }
+ } else {
+ if (c == 'p')
+ dot_right(); // move to right, can move to NL
+ }
+ dot = string_insert(dot, p); // insert the string
+ end_cmd_q(); // stop adding to q
+ break;
+ case 'u': // u-
+ case 'U': // U- Undo; replace current line with original version
+ if (reg[Ureg] != 0) {
+ p = begin_line(dot);
+ q = end_line(dot);
+ p = text_hole_delete(p, q); // delete cur line
+ p = string_insert(p, reg[Ureg]); // insert orig line
+ dot = p;
+ dot_skip_over_ws();
+ }
+ break;
+#endif /* BB_FEATURE_VI_YANKMARK */
+ case '$': // $- goto end of line
+ case VI_K_END: // Cursor Key End
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dot = end_line(dot + 1);
+ break;
+ case '%': // %- find matching char of pair () [] {}
+ for (q = dot; q < end && *q != '\n'; q++) {
+ if (strchr("()[]{}", *q) != NULL) {
+ // we found half of a pair
+ p = find_pair(q, *q);
+ if (p == NULL) {
+ indicate_error(c);
+ } else {
+ dot = p;
+ }
+ break;
+ }
+ }
+ if (*q == '\n')
+ indicate_error(c);
+ break;
+ case 'f': // f- forward to a user specified char
+ last_forward_char = get_one_char(); // get the search char
+ //
+ // dont seperate these two commands. 'f' depends on ';'
+ //
+ //**** fall thru to ... 'i'
+ case ';': // ;- look at rest of line for last forward char
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ q = dot + 1;
+ while (q < end - 1 && *q != '\n' && *q != last_forward_char) {
+ q++;
+ }
+ if (*q == last_forward_char)
+ dot = q;
+ break;
+ case '-': // -- goto prev line
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dot_prev();
+ dot_skip_over_ws();
+ break;
+#ifdef BB_FEATURE_VI_DOT_CMD
+ case '.': // .- repeat the last modifying command
+ // Stuff the last_modifying_cmd back into stdin
+ // and let it be re-executed.
+ if (last_modifying_cmd != 0) {
+ ioq = ioq_start = (Byte *) strdup((char *) last_modifying_cmd);
+ }
+ break;
+#endif /* BB_FEATURE_VI_DOT_CMD */
+#ifdef BB_FEATURE_VI_SEARCH
+ case '?': // /- search for a pattern
+ case '/': // /- search for a pattern
+ buf[0] = c;
+ buf[1] = '\0';
+ q = get_input_line(buf); // get input line- use "status line"
+ if (strlen((char *) q) == 1)
+ goto dc3; // if no pat re-use old pat
+ if (strlen((char *) q) > 1) { // new pat- save it and find
+ // there is a new pat
+ if (last_search_pattern != 0) {
+ free(last_search_pattern);
+ }
+ last_search_pattern = (Byte *) strdup((char *) q);
+ goto dc3; // now find the pattern
+ }
+ // user changed mind and erased the "/"- do nothing
+ break;
+ case 'N': // N- backward search for last pattern
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dir = BACK; // assume BACKWARD search
+ p = dot - 1;
+ if (last_search_pattern[0] == '?') {
+ dir = FORWARD;
+ p = dot + 1;
+ }
+ goto dc4; // now search for pattern
+ break;
+ case 'n': // n- repeat search for last pattern
+ // search rest of text[] starting at next char
+ // if search fails return orignal "p" not the "p+1" address
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dc3:
+ if (last_search_pattern == 0) {
+ msg = (Byte *) "No previous regular expression";
+ goto dc2;
+ }
+ if (last_search_pattern[0] == '/') {
+ dir = FORWARD; // assume FORWARD search
+ p = dot + 1;
+ }
+ if (last_search_pattern[0] == '?') {
+ dir = BACK;
+ p = dot - 1;
+ }
+ dc4:
+ q = char_search(p, last_search_pattern + 1, dir, FULL);
+ if (q != NULL) {
+ dot = q; // good search, update "dot"
+ msg = (Byte *) "";
+ goto dc2;
+ }
+ // no pattern found between "dot" and "end"- continue at top
+ p = text;
+ if (dir == BACK) {
+ p = end - 1;
+ }
+ q = char_search(p, last_search_pattern + 1, dir, FULL);
+ if (q != NULL) { // found something
+ dot = q; // found new pattern- goto it
+ msg = (Byte *) "search hit BOTTOM, continuing at TOP";
+ if (dir == BACK) {
+ msg = (Byte *) "search hit TOP, continuing at BOTTOM";
+ }
+ } else {
+ msg = (Byte *) "Pattern not found";
+ }
+ dc2:
+ psbs("%s", msg);
+ break;
+ case '{': // {- move backward paragraph
+ q = char_search(dot, (Byte *) "\n\n", BACK, FULL);
+ if (q != NULL) { // found blank line
+ dot = next_line(q); // move to next blank line
+ }
+ break;
+ case '}': // }- move forward paragraph
+ q = char_search(dot, (Byte *) "\n\n", FORWARD, FULL);
+ if (q != NULL) { // found blank line
+ dot = next_line(q); // move to next blank line
+ }
+ break;
+#endif /* BB_FEATURE_VI_SEARCH */
+ case '0': // 0- goto begining of line
+ case '1': // 1-
+ case '2': // 2-
+ case '3': // 3-
+ case '4': // 4-
+ case '5': // 5-
+ case '6': // 6-
+ case '7': // 7-
+ case '8': // 8-
+ case '9': // 9-
+ if (c == '0' && cmdcnt < 1) {
+ dot_begin(); // this was a standalone zero
+ } else {
+ cmdcnt = cmdcnt * 10 + (c - '0'); // this 0 is part of a number
+ }
+ break;
+ case ':': // :- the colon mode commands
+#ifdef BB_FEATURE_VI_COLON
+ p = get_input_line((Byte *) ":"); // get input line- use "status line"
+ colon(p); // execute the command
+#else /* BB_FEATURE_VI_COLON */
+ *status_buffer = '\0'; // clear the status buffer
+ place_cursor(rows - 1, 0); // go to Status line, bottom of screen
+ clear_to_eol(); // clear the line
+ write(1, ":", 1); // write out the : prompt
+ for (cnt = 0; cnt < 8; cnt++) {
+ c1 = get_one_char();
+ if (c1 == '\n' || c1 == '\r') {
+ break;
+ }
+ buf[cnt] = c1;
+ buf[cnt + 1] = '\0';
+ write(1, buf + cnt, 1); // echo the char
+ }
+ cnt = strlen((char *) buf);
+ if (strncasecmp((char *) buf, "quit", cnt) == 0 ||
+ strncasecmp((char *) buf, "q!", cnt) == 0) { // delete lines
+ if (file_modified == TRUE && buf[1] != '!') {
+ psbs("No write since last change (:quit! overrides)");
+ } else {
+ editing = 0;
+ }
+ } else if (strncasecmp((char *) buf, "write", cnt) == 0 ||
+ strncasecmp((char *) buf, "wq", cnt) == 0) {
+ cnt = file_write(cfn, text, end - 1);
+ file_modified = FALSE;
+ psb("\"%s\" %dL, %dC", cfn, count_lines(text, end - 1), cnt);
+ if (buf[1] == 'q') {
+ editing = 0;
+ }
+ } else { // unrecognised cmd
+ ni((Byte *) buf);
+ }
+#endif /* BB_FEATURE_VI_COLON */
+ break;
+ case '<': // <- Left shift something
+ case '>': // >- Right shift something
+ cnt = count_lines(text, dot); // remember what line we are on
+ c1 = get_one_char(); // get the type of thing to delete
+ find_range(&p, &q, c1);
+ (void) yank_delete(p, q, 1, YANKONLY); // save copy before change
+ p = begin_line(p);
+ q = end_line(q);
+ i = count_lines(p, q); // # of lines we are shifting
+ for ( ; i > 0; i--, p = next_line(p)) {
+ if (c == '<') {
+ // shift left- remove tab or 8 spaces
+ if (*p == '\t') {
+ // shrink buffer 1 char
+ (void) text_hole_delete(p, p);
+ } else if (*p == ' ') {
+ // we should be calculating columns, not just SPACE
+ for (j = 0; *p == ' ' && j < tabstop; j++) {
+ (void) text_hole_delete(p, p);
+ }
+ }
+ } else if (c == '>') {
+ // shift right -- add tab or 8 spaces
+ (void) char_insert(p, '\t');
+ }
+ }
+ dot = find_line(cnt); // what line were we on
+ dot_skip_over_ws();
+ end_cmd_q(); // stop adding to q
+ break;
+ case 'A': // A- append at e-o-l
+ dot_end(); // go to e-o-l
+ //**** fall thru to ... 'a'
+ case 'a': // a- append after current char
+ if (*dot != '\n')
+ dot++;
+ goto dc_i;
+ break;
+ case 'B': // B- back a blank-delimited Word
+ case 'E': // E- end of a blank-delimited word
+ case 'W': // W- forward a blank-delimited word
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dir = FORWARD;
+ if (c == 'B')
+ dir = BACK;
+ if (c == 'W' || isspace(dot[dir])) {
+ dot = skip_thing(dot, 1, dir, S_TO_WS);
+ dot = skip_thing(dot, 2, dir, S_OVER_WS);
+ }
+ if (c != 'W')
+ dot = skip_thing(dot, 1, dir, S_BEFORE_WS);
+ break;
+ case 'C': // C- Change to e-o-l
+ case 'D': // D- delete to e-o-l
+ save_dot = dot;
+ dot = dollar_line(dot); // move to before NL
+ // copy text into a register and delete
+ dot = yank_delete(save_dot, dot, 0, YANKDEL); // delete to e-o-l
+ if (c == 'C')
+ goto dc_i; // start inserting
+#ifdef BB_FEATURE_VI_DOT_CMD
+ if (c == 'D')
+ end_cmd_q(); // stop adding to q
+#endif /* BB_FEATURE_VI_DOT_CMD */
+ break;
+ case 'H': // H- goto top line on screen
+ dot = screenbegin;
+ if (cmdcnt > (rows - 1)) {
+ cmdcnt = (rows - 1);
+ }
+ if (cmdcnt-- > 1) {
+ do_cmd('+');
+ } // repeat cnt
+ dot_skip_over_ws();
+ break;
+ case 'I': // I- insert before first non-blank
+ dot_begin(); // 0
+ dot_skip_over_ws();
+ //**** fall thru to ... 'i'
+ case 'i': // i- insert before current char
+ case VI_K_INSERT: // Cursor Key Insert
+ dc_i:
+ cmd_mode = 1; // start insrting
+ psb("-- Insert --");
+ break;
+ case 'J': // J- join current and next lines together
+ if (cmdcnt-- > 2) {
+ do_cmd(c);
+ } // repeat cnt
+ dot_end(); // move to NL
+ if (dot < end - 1) { // make sure not last char in text[]
+ *dot++ = ' '; // replace NL with space
+ while (isblnk(*dot)) { // delete leading WS
+ dot_delete();
+ }
+ }
+ end_cmd_q(); // stop adding to q
+ break;
+ case 'L': // L- goto bottom line on screen
+ dot = end_screen();
+ if (cmdcnt > (rows - 1)) {
+ cmdcnt = (rows - 1);
+ }
+ if (cmdcnt-- > 1) {
+ do_cmd('-');
+ } // repeat cnt
+ dot_begin();
+ dot_skip_over_ws();
+ break;
+ case 'O': // O- open a empty line above
+ // 0i\n\033-i
+ p = begin_line(dot);
+ if (p[-1] == '\n') {
+ dot_prev();
+ case 'o': // o- open a empty line below; Yes, I know it is in the middle of the "if (..."
+ dot_end();
+ dot = char_insert(dot, '\n');
+ } else {
+ dot_begin(); // 0
+ dot = char_insert(dot, '\n'); // i\n\033
+ dot_prev(); // -
+ }
+ goto dc_i;
+ break;
+ case 'R': // R- continuous Replace char
+ cmd_mode = 2;
+ psb("-- Replace --");
+ break;
+ case 'X': // X- delete char before dot
+ case 'x': // x- delete the current char
+ case 's': // s- substitute the current char
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dir = 0;
+ if (c == 'X')
+ dir = -1;
+ if (dot[dir] != '\n') {
+ if (c == 'X')
+ dot--; // delete prev char
+ dot = yank_delete(dot, dot, 0, YANKDEL); // delete char
+ }
+ if (c == 's')
+ goto dc_i; // start insrting
+ end_cmd_q(); // stop adding to q
+ break;
+ case 'Z': // Z- if modified, {write}; exit
+ // ZZ means to save file (if necessary), then exit
+ c1 = get_one_char();
+ if (c1 != 'Z') {
+ indicate_error(c);
+ break;
+ }
+ if (file_modified == TRUE
+#ifdef BB_FEATURE_VI_READONLY
+ && readonly == FALSE
+#endif /* BB_FEATURE_VI_READONLY */
+ ) {
+ cnt = file_write(cfn, text, end - 1);
+ if (cnt == (end - 1 - text + 1)) {
+ editing = 0;
+ }
+ } else {
+ editing = 0;
+ }
+ break;
+ case '^': // ^- move to first non-blank on line
+ dot_begin();
+ dot_skip_over_ws();
+ break;
+ case 'b': // b- back a word
+ case 'e': // e- end of word
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dir = FORWARD;
+ if (c == 'b')
+ dir = BACK;
+ if ((dot + dir) < text || (dot + dir) > end - 1)
+ break;
+ dot += dir;
+ if (isspace(*dot)) {
+ dot = skip_thing(dot, (c == 'e') ? 2 : 1, dir, S_OVER_WS);
+ }
+ if (isalnum(*dot) || *dot == '_') {
+ dot = skip_thing(dot, 1, dir, S_END_ALNUM);
+ } else if (ispunct(*dot)) {
+ dot = skip_thing(dot, 1, dir, S_END_PUNCT);
+ }
+ break;
+ case 'c': // c- change something
+ case 'd': // d- delete something
+#ifdef BB_FEATURE_VI_YANKMARK
+ case 'y': // y- yank something
+ case 'Y': // Y- Yank a line
+#endif /* BB_FEATURE_VI_YANKMARK */
+ yf = YANKDEL; // assume either "c" or "d"
+#ifdef BB_FEATURE_VI_YANKMARK
+ if (c == 'y' || c == 'Y')
+ yf = YANKONLY;
+#endif /* BB_FEATURE_VI_YANKMARK */
+ c1 = 'y';
+ if (c != 'Y')
+ c1 = get_one_char(); // get the type of thing to delete
+ find_range(&p, &q, c1);
+ if (c1 == 27) { // ESC- user changed mind and wants out
+ c = c1 = 27; // Escape- do nothing
+ } else if (strchr("wW", c1)) {
+ if (c == 'c') {
+ // don't include trailing WS as part of word
+ while (isblnk(*q)) {
+ if (q <= text || q[-1] == '\n')
+ break;
+ q--;
+ }
+ }
+ dot = yank_delete(p, q, 0, yf); // delete word
+ } else if (strchr("0bBeE$", c1)) {
+ // single line copy text into a register and delete
+ dot = yank_delete(p, q, 0, yf); // delete word
+ } else if (strchr("cdykjHL+-{}\r\n", c1)) {
+ // multiple line copy text into a register and delete
+ dot = yank_delete(p, q, 1, yf); // delete lines
+ if (c == 'd') {
+ dot_begin();
+ dot_skip_over_ws();
+ }
+ } else {
+ // could not recognize object
+ c = c1 = 27; // error-
+ indicate_error(c);
+ }
+ if (c1 != 27) {
+ // if CHANGING, not deleting, start inserting after the delete
+ if (c == 'c') {
+ strcpy((char *) buf, "Change");
+ goto dc_i; // start inserting
+ }
+ if (c == 'd') {
+ strcpy((char *) buf, "Delete");
+ }
+#ifdef BB_FEATURE_VI_YANKMARK
+ if (c == 'y' || c == 'Y') {
+ strcpy((char *) buf, "Yank");
+ }
+ p = reg[YDreg];
+ q = p + strlen((char *) p);
+ for (cnt = 0; p <= q; p++) {
+ if (*p == '\n')
+ cnt++;
+ }
+ psb("%s %d lines (%d chars) using [%c]",
+ buf, cnt, strlen((char *) reg[YDreg]), what_reg());
+#endif /* BB_FEATURE_VI_YANKMARK */
+ end_cmd_q(); // stop adding to q
+ }
+ break;
+ case 'k': // k- goto prev line, same col
+ case VI_K_UP: // cursor key Up
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ dot_prev();
+ dot = move_to_col(dot, ccol + offset); // try stay in same col
+ break;
+ case 'r': // r- replace the current char with user input
+ c1 = get_one_char(); // get the replacement char
+ if (*dot != '\n') {
+ *dot = c1;
+ file_modified = TRUE; // has the file been modified
+ }
+ end_cmd_q(); // stop adding to q
+ break;
+ case 'w': // w- forward a word
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ if (isalnum(*dot) || *dot == '_') { // we are on ALNUM
+ dot = skip_thing(dot, 1, FORWARD, S_END_ALNUM);
+ } else if (ispunct(*dot)) { // we are on PUNCT
+ dot = skip_thing(dot, 1, FORWARD, S_END_PUNCT);
+ }
+ if (dot < end - 1)
+ dot++; // move over word
+ if (isspace(*dot)) {
+ dot = skip_thing(dot, 2, FORWARD, S_OVER_WS);
+ }
+ break;
+ case 'z': // z-
+ c1 = get_one_char(); // get the replacement char
+ cnt = 0;
+ if (c1 == '.')
+ cnt = (rows - 2) / 2; // put dot at center
+ if (c1 == '-')
+ cnt = rows - 2; // put dot at bottom
+ screenbegin = begin_line(dot); // start dot at top
+ dot_scroll(cnt, -1);
+ break;
+ case '|': // |- move to column "cmdcnt"
+ dot = move_to_col(dot, cmdcnt - 1); // try to move to column
+ break;
+ case '~': // ~- flip the case of letters a-z -> A-Z
+ if (cmdcnt-- > 1) {
+ do_cmd(c);
+ } // repeat cnt
+ if (islower(*dot)) {
+ *dot = toupper(*dot);
+ file_modified = TRUE; // has the file been modified
+ } else if (isupper(*dot)) {
+ *dot = tolower(*dot);
+ file_modified = TRUE; // has the file been modified
+ }
+ dot_right();
+ end_cmd_q(); // stop adding to q
+ break;
+ //----- The Cursor and Function Keys -----------------------------
+ case VI_K_HOME: // Cursor Key Home
+ dot_begin();
+ break;
+ // The Fn keys could point to do_macro which could translate them
+ case VI_K_FUN1: // Function Key F1
+ case VI_K_FUN2: // Function Key F2
+ case VI_K_FUN3: // Function Key F3
+ case VI_K_FUN4: // Function Key F4
+ case VI_K_FUN5: // Function Key F5
+ case VI_K_FUN6: // Function Key F6
+ case VI_K_FUN7: // Function Key F7
+ case VI_K_FUN8: // Function Key F8
+ case VI_K_FUN9: // Function Key F9
+ case VI_K_FUN10: // Function Key F10
+ case VI_K_FUN11: // Function Key F11
+ case VI_K_FUN12: // Function Key F12
+ break;
+ }
+
+ dc1:
+ // if text[] just became empty, add back an empty line
+ if (end == text) {
+ (void) char_insert(text, '\n'); // start empty buf with dummy line
+ dot = text;
+ }
+ // it is OK for dot to exactly equal to end, otherwise check dot validity
+ if (dot != end) {
+ dot = bound_dot(dot); // make sure "dot" is valid
+ }
+#ifdef BB_FEATURE_VI_YANKMARK
+ check_context(c); // update the current context
+#endif /* BB_FEATURE_VI_YANKMARK */
+
+ if (!isdigit(c))
+ cmdcnt = 0; // cmd was not a number, reset cmdcnt
+ cnt = dot - begin_line(dot);
+ // Try to stay off of the Newline
+ if (*dot == '\n' && cnt > 0 && cmd_mode == 0)
+ dot--;
+}
+
+//----- The Colon commands -------------------------------------
+#ifdef BB_FEATURE_VI_COLON
+static Byte *get_address(Byte * p, int *addr) // get colon addr, if present
+{
+ int st;
+ Byte *q;
+
+#ifdef BB_FEATURE_VI_YANKMARK
+ Byte c;
+#endif /* BB_FEATURE_VI_YANKMARK */
+#ifdef BB_FEATURE_VI_SEARCH
+ Byte *pat, buf[1024];
+#endif /* BB_FEATURE_VI_SEARCH */
+
+ *addr = -1; // assume no addr
+ if (*p == '.') { // the current line
+ p++;
+ q = begin_line(dot);
+ *addr = count_lines(text, q);
+#ifdef BB_FEATURE_VI_YANKMARK
+ } else if (*p == '\'') { // is this a mark addr
+ p++;
+ c = tolower(*p);
+ p++;
+ if (c >= 'a' && c <= 'z') {
+ // we have a mark
+ c = c - 'a';
+ q = mark[(int) c];
+ if (q != NULL) { // is mark valid
+ *addr = count_lines(text, q); // count lines
+ }
+ }
+#endif /* BB_FEATURE_VI_YANKMARK */
+#ifdef BB_FEATURE_VI_SEARCH
+ } else if (*p == '/') { // a search pattern
+ q = buf;
+ for (p++; *p; p++) {
+ if (*p == '/')
+ break;
+ *q++ = *p;
+ *q = '\0';
+ }
+ pat = (Byte *) strdup((char *) buf); // save copy of pattern
+ if (*p == '/')
+ p++;
+ q = char_search(dot, pat, FORWARD, FULL);
+ if (q != NULL) {
+ *addr = count_lines(text, q);
+ }
+ free(pat);
+#endif /* BB_FEATURE_VI_SEARCH */
+ } else if (*p == '$') { // the last line in file
+ p++;
+ q = begin_line(end - 1);
+ *addr = count_lines(text, q);
+ } else if (isdigit(*p)) { // specific line number
+ sscanf((char *) p, "%d%n", addr, &st);
+ p += st;
+ } else { // I don't reconise this
+ // unrecognised address- assume -1
+ *addr = -1;
+ }
+ return (p);
+}
+
+static void colon(Byte * buf)
+{
+ Byte c, *orig_buf, *buf1, *q, *r;
+ Byte *fn, cmd[100], args[100];
+ int i, l, li, ch, st, b, e;
+ int useforce, forced;
+
+ // :3154 // if (-e line 3154) goto it else stay put
+ // :4,33w! foo // write a portion of buffer to file "foo"
+ // :w // write all of buffer to current file
+ // :q // quit
+ // :q! // quit- dont care about modified file
+ // :'a,'z!sort -u // filter block through sort
+ // :'f // goto mark "f"
+ // :'fl // list literal the mark "f" line
+ // :.r bar // read file "bar" into buffer before dot
+ // :/123/,/abc/d // delete lines from "123" line to "abc" line
+ // :/xyz/ // goto the "xyz" line
+ // :s/find/replace/ // substitute pattern "find" with "replace"
+ //
+ if (strlen((char *) buf) <= 0)
+ goto vc1;
+ if (*buf == ':')
+ buf++; // move past the ':'
+
+ forced = useforce = FALSE;
+ li = st = ch = i = 0;
+ b = e = -1;
+ q = text; // assume 1,$ for the range
+ r = end - 1;
+ li = count_lines(text, end - 1);
+ fn = cfn; // default to current file
+
+ // look for optional FIRST address(es) :. :1 :1,9 :'q,'a
+ while (isblnk(*buf))
+ buf++;
+
+ // get FIRST addr, if present
+ buf = get_address(buf, &b);
+ while (isblnk(*buf))
+ buf++;
+ if (*buf == ',') {
+ buf++;
+ while (isblnk(*buf))
+ buf++;
+ // look for SECOND address
+ buf = get_address(buf, &e);
+ }
+ while (isblnk(*buf))
+ buf++;
+
+ // remember orig command line
+ orig_buf = buf;
+
+ // get the COMMAND into cmd[]
+ buf1 = cmd;
+ *buf1 = '\0';
+ while (*buf != '\0') {
+ if (isspace(*buf))
+ break;
+ *buf1++ = *buf++;
+ *buf1 = '\0';
+ }
+ // get any ARGuments
+ while (isblnk(*buf))
+ buf++;
+ strcpy((char *) args, (char *) buf);
+ if (cmd[strlen((char *) cmd) - 1] == '!') {
+ useforce = TRUE;
+ cmd[strlen((char *) cmd) - 1] = '\0'; // get rid of !
+ }
+ if (b >= 0) {
+ // if there is only one addr, then the addr
+ // is the line number of the single line the
+ // user wants. So, reset the end
+ // pointer to point at end of the "b" line
+ q = find_line(b); // what line is #b
+ r = end_line(q);
+ li = 1;
+ }
+ if (e >= 0) {
+ // we were given two addrs. change the
+ // end pointer to the addr given by user.
+ r = find_line(e); // what line is #e
+ r = end_line(r);
+ li = e - b + 1;
+ }
+ // ------------ now look for the command ------------
+ i = strlen((char *) cmd);
+ if (i == 0) { // :123CR goto line #123
+ if (b >= 0) {
+ dot = find_line(b); // what line is #b
+ dot_skip_over_ws();
+ }
+ } else if (strncmp((char *) cmd, "=", i) == 0) { // where is the address
+ if (b < 0) { // no addr given- use defaults
+ b = e = count_lines(text, dot);
+ }
+ psb("%d", b);
+ } else if (strncasecmp((char *) cmd, "delete", i) == 0) { // delete lines
+ if (b < 0) { // no addr given- use defaults
+ q = begin_line(dot); // assume .,. for the range
+ r = end_line(dot);
+ }
+ dot = yank_delete(q, r, 1, YANKDEL); // save, then delete lines
+ dot_skip_over_ws();
+ } else if (strncasecmp((char *) cmd, "edit", i) == 0) { // Edit a file
+ // don't exit if the file been modified
+ if (file_modified == TRUE && useforce != TRUE) {
+ psbs("No write since last change (:edit! overrides)");
+ goto vc1;
+ }
+ fn = args;
+ if (strlen((char *) fn) <= 0) {
+ // no file name given, re-edit current file
+ fn = cfn;
+ }
+ if (cfn != 0)
+ free(cfn);
+ cfn = (Byte *) strdup((char *) fn); // make this the current file
+ // delete all the contents of text[]
+ new_text(2 * file_size(fn));
+ screenbegin = dot = end = text;
+ // insert new file
+ if (fn != 0) {
+ ch = file_insert(fn, text, file_size(fn));
+ }
+ file_modified = FALSE;
+#ifdef BB_FEATURE_VI_YANKMARK
+ if (reg[Ureg] != 0)
+ free(reg[Ureg]); // free orig line reg- for 'U'
+ if (reg[YDreg] != 0)
+ free(reg[YDreg]); // free default yank/delete register
+ for (li = 0; li < 28; li++) {
+ mark[li] = 0;
+ } // init the marks
+#endif /* BB_FEATURE_VI_YANKMARK */
+ // how many lines in text[]?
+ li = count_lines(text, end - 1);
+ psb("\"%s\" %dL, %dC", cfn, li, ch);
+ } else if (strncasecmp((char *) cmd, "file", i) == 0) { // what File is this
+ if (b != -1 || e != -1) {
+ ni((Byte *) "No address allowed on this command");
+ goto vc1;
+ }
+ if (strlen((char *) args) > 0) {
+ // user wants a new filename
+ if (cfn != NULL)
+ free(cfn);
+ cfn = (Byte *) strdup((char *) args);
+ } else {
+ // user wants file status info
+ edit_status();
+ }
+ } else if (strncasecmp((char *) cmd, "features", i) == 0) { // what features are available
+ // print out values of all features
+ place_cursor(rows - 1, 0); // go to Status line, bottom of screen
+ clear_to_eol(); // clear the line
+ cookmode();
+ show_help();
+ rawmode();
+ Hit_Return();
+ } else if (strncasecmp((char *) cmd, "list", i) == 0) { // literal print line
+ if (b < 0) { // no addr given- use defaults
+ q = begin_line(dot); // assume .,. for the range
+ r = end_line(dot);
+ }
+ place_cursor(rows - 1, 0); // go to Status line, bottom of screen
+ clear_to_eol(); // clear the line
+ write(1, "\r\n", 2);
+ for (; q <= r; q++) {
+ c = *q;
+ if (c > '~')
+ standout_start();
+ if (c == '\n') {
+ write(1, "$\r", 2);
+ } else if (*q < ' ') {
+ write(1, "^", 1);
+ c += '@';
+ }
+ write(1, &c, 1);
+ if (c > '~')
+ standout_end();
+ }
+#ifdef BB_FEATURE_VI_SET
+ vc2:
+#endif /* BB_FEATURE_VI_SET */
+ Hit_Return();
+ } else if ((strncasecmp((char *) cmd, "quit", i) == 0) || // Quit
+ (strncasecmp((char *) cmd, "next", i) == 0)) { // edit next file
+ if (useforce == TRUE) {
+ // force end of argv list
+ if (*cmd == 'q') {
+ optind = save_argc;
+ }
+ editing = 0;
+ goto vc1;
+ }
+ // don't exit if the file been modified
+ if (file_modified == TRUE) {
+ psbs("No write since last change (:%s! overrides)",
+ (*cmd == 'q' ? "quit" : "next"));
+ goto vc1;
+ }
+ // are there other file to edit
+ if (*cmd == 'q' && optind < save_argc - 1) {
+ psbs("%d more file to edit", (save_argc - optind - 1));
+ goto vc1;
+ }
+ if (*cmd == 'n' && optind >= save_argc - 1) {
+ psbs("No more files to edit");
+ goto vc1;
+ }
+ editing = 0;
+ } else if (strncasecmp((char *) cmd, "read", i) == 0) { // read file into text[]
+ fn = args;
+ if (strlen((char *) fn) <= 0) {
+ psbs("No filename given");
+ goto vc1;
+ }
+ if (b < 0) { // no addr given- use defaults
+ q = begin_line(dot); // assume "dot"
+ }
+ // read after current line- unless user said ":0r foo"
+ if (b != 0)
+ q = next_line(q);
+ ch = file_insert(fn, q, file_size(fn));
+ if (ch < 0)
+ goto vc1; // nothing was inserted
+ // how many lines in text[]?
+ li = count_lines(q, q + ch - 1);
+ psb("\"%s\" %dL, %dC", fn, li, ch);
+ if (ch > 0) {
+ // if the insert is before "dot" then we need to update
+ if (q <= dot)
+ dot += ch;
+ file_modified = TRUE;
+ }
+ } else if (strncasecmp((char *) cmd, "rewind", i) == 0) { // rewind cmd line args
+ if (file_modified == TRUE && useforce != TRUE) {
+ psbs("No write since last change (:rewind! overrides)");
+ } else {
+ // reset the filenames to edit
+ optind = fn_start - 1;
+ editing = 0;
+ }
+#ifdef BB_FEATURE_VI_SET
+ } else if (strncasecmp((char *) cmd, "set", i) == 0) { // set or clear features
+ i = 0; // offset into args
+ if (strlen((char *) args) == 0) {
+ // print out values of all options
+ place_cursor(rows - 1, 0); // go to Status line, bottom of screen
+ clear_to_eol(); // clear the line
+ printf("----------------------------------------\r\n");
+#ifdef BB_FEATURE_VI_SETOPTS
+ if (!autoindent)
+ printf("no");
+ printf("autoindent ");
+ if (!ignorecase)
+ printf("no");
+ printf("ignorecase ");
+ if (!showmatch)
+ printf("no");
+ printf("showmatch ");
+ printf("tabstop=%d ", tabstop);
+#endif /* BB_FEATURE_VI_SETOPTS */
+ printf("\r\n");
+ goto vc2;
+ }
+ if (strncasecmp((char *) args, "no", 2) == 0)
+ i = 2; // ":set noautoindent"
+#ifdef BB_FEATURE_VI_SETOPTS
+ if (strncasecmp((char *) args + i, "autoindent", 10) == 0 ||
+ strncasecmp((char *) args + i, "ai", 2) == 0) {
+ autoindent = (i == 2) ? 0 : 1;
+ }
+ if (strncasecmp((char *) args + i, "ignorecase", 10) == 0 ||
+ strncasecmp((char *) args + i, "ic", 2) == 0) {
+ ignorecase = (i == 2) ? 0 : 1;
+ }
+ if (strncasecmp((char *) args + i, "showmatch", 9) == 0 ||
+ strncasecmp((char *) args + i, "sm", 2) == 0) {
+ showmatch = (i == 2) ? 0 : 1;
+ }
+ if (strncasecmp((char *) args + i, "tabstop", 7) == 0) {
+ sscanf(strchr((char *) args + i, '='), "=%d", &ch);
+ if (ch > 0 && ch < columns - 1)
+ tabstop = ch;
+ }
+#endif /* BB_FEATURE_VI_SETOPTS */
+#endif /* BB_FEATURE_VI_SET */
+#ifdef BB_FEATURE_VI_SEARCH
+ } else if (strncasecmp((char *) cmd, "s", 1) == 0) { // substitute a pattern with a replacement pattern
+ Byte *ls, *F, *R;
+ int gflag;
+
+ // F points to the "find" pattern
+ // R points to the "replace" pattern
+ // replace the cmd line delimiters "/" with NULLs
+ gflag = 0; // global replace flag
+ c = orig_buf[1]; // what is the delimiter
+ F = orig_buf + 2; // start of "find"
+ R = (Byte *) strchr((char *) F, c); // middle delimiter
+ *R++ = '\0'; // terminate "find"
+ buf1 = (Byte *) strchr((char *) R, c);
+ *buf1++ = '\0'; // terminate "replace"
+ if (*buf1 == 'g') { // :s/foo/bar/g
+ buf1++;
+ gflag++; // turn on gflag
+ }
+ q = begin_line(q);
+ if (b < 0) { // maybe :s/foo/bar/
+ q = begin_line(dot); // start with cur line
+ b = count_lines(text, q); // cur line number
+ }
+ if (e < 0)
+ e = b; // maybe :.s/foo/bar/
+ for (i = b; i <= e; i++) { // so, :20,23 s \0 find \0 replace \0
+ ls = q; // orig line start
+ vc4:
+ buf1 = char_search(q, F, FORWARD, LIMITED); // search cur line only for "find"
+ if (buf1 != NULL) {
+ // we found the "find" pattern- delete it
+ (void) text_hole_delete(buf1, buf1 + strlen((char *) F) - 1);
+ // inset the "replace" patern
+ (void) string_insert(buf1, R); // insert the string
+ // check for "global" :s/foo/bar/g
+ if (gflag == 1) {
+ if ((buf1 + strlen((char *) R)) < end_line(ls)) {
+ q = buf1 + strlen((char *) R);
+ goto vc4; // don't let q move past cur line
+ }
+ }
+ }
+ q = next_line(ls);
+ }
+#endif /* BB_FEATURE_VI_SEARCH */
+ } else if (strncasecmp((char *) cmd, "version", i) == 0) { // show software version
+ psb("%s", vi_Version);
+ } else if ((strncasecmp((char *) cmd, "write", i) == 0) || // write text to file
+ (strncasecmp((char *) cmd, "wq", i) == 0)) { // write text to file
+ // is there a file name to write to?
+ if (strlen((char *) args) > 0) {
+ fn = args;
+ }
+#ifdef BB_FEATURE_VI_READONLY
+ if (readonly == TRUE) {
+ psbs("\"%s\" File is read only", fn);
+ goto vc3;
+ }
+#endif /* BB_FEATURE_VI_READONLY */
+ // how many lines in text[]?
+ li = count_lines(q, r);
+ ch = r - q + 1;
+ if (useforce == TRUE) {
+ // if "fn" is not write-able, chmod u+w
+ // sprintf(syscmd, "chmod u+w %s", fn);
+ // system(syscmd);
+ forced = TRUE;
+ }
+ l = file_write(fn, q, r);
+ if (useforce == TRUE && forced == TRUE) {
+ // chmod u-w
+ // sprintf(syscmd, "chmod u-w %s", fn);
+ // system(syscmd);
+ forced = FALSE;
+ }
+ psb("\"%s\" %dL, %dC", fn, li, l);
+ if (q == text && r == end - 1 && l == ch)
+ file_modified = FALSE;
+ if (cmd[1] == 'q' && l == ch) {
+ editing = 0;
+ }
+#ifdef BB_FEATURE_VI_READONLY
+ vc3:;
+#endif /* BB_FEATURE_VI_READONLY */
+#ifdef BB_FEATURE_VI_YANKMARK
+ } else if (strncasecmp((char *) cmd, "yank", i) == 0) { // yank lines
+ if (b < 0) { // no addr given- use defaults
+ q = begin_line(dot); // assume .,. for the range
+ r = end_line(dot);
+ }
+ text_yank(q, r, YDreg);
+ li = count_lines(q, r);
+ psb("Yank %d lines (%d chars) into [%c]",
+ li, strlen((char *) reg[YDreg]), what_reg());
+#endif /* BB_FEATURE_VI_YANKMARK */
+ } else {
+ // cmd unknown
+ ni((Byte *) cmd);
+ }
+ vc1:
+ dot = bound_dot(dot); // make sure "dot" is valid
+ return;
+}
+
+static void Hit_Return(void)
+{
+ char c;
+
+ standout_start(); // start reverse video
+ write(1, "[Hit return to continue]", 24);
+ standout_end(); // end reverse video
+ while ((c = get_one_char()) != '\n' && c != '\r') /*do nothing */
+ ;
+ redraw(TRUE); // force redraw all
+}
+#endif /* BB_FEATURE_VI_COLON */
+
+//----- Synchronize the cursor to Dot --------------------------
+static void sync_cursor(Byte * d, int *row, int *col)
+{
+ Byte *beg_cur, *end_cur; // begin and end of "d" line
+ Byte *beg_scr, *end_scr; // begin and end of screen
+ Byte *tp;
+ int cnt, ro, co;
+
+ beg_cur = begin_line(d); // first char of cur line
+ end_cur = end_line(d); // last char of cur line
+
+ beg_scr = end_scr = screenbegin; // first char of screen
+ end_scr = end_screen(); // last char of screen
+
+ if (beg_cur < screenbegin) {
+ // "d" is before top line on screen
+ // how many lines do we have to move
+ cnt = count_lines(beg_cur, screenbegin);
+ sc1:
+ screenbegin = beg_cur;
+ if (cnt > (rows - 1) / 2) {
+ // we moved too many lines. put "dot" in middle of screen
+ for (cnt = 0; cnt < (rows - 1) / 2; cnt++) {
+ screenbegin = prev_line(screenbegin);
+ }
+ }
+ } else if (beg_cur > end_scr) {
+ // "d" is after bottom line on screen
+ // how many lines do we have to move
+ cnt = count_lines(end_scr, beg_cur);
+ if (cnt > (rows - 1) / 2)
+ goto sc1; // too many lines
+ for (ro = 0; ro < cnt - 1; ro++) {
+ // move screen begin the same amount
+ screenbegin = next_line(screenbegin);
+ // now, move the end of screen
+ end_scr = next_line(end_scr);
+ end_scr = end_line(end_scr);
+ }
+ }
+ // "d" is on screen- find out which row
+ tp = screenbegin;
+ for (ro = 0; ro < rows - 1; ro++) { // drive "ro" to correct row
+ if (tp == beg_cur)
+ break;
+ tp = next_line(tp);
+ }
+
+ // find out what col "d" is on
+ co = 0;
+ do { // drive "co" to correct column
+ if (*tp == '\n' || *tp == '\0')
+ break;
+ if (*tp == '\t') {
+ // 7 - (co % 8 )
+ co += ((tabstop - 1) - (co % tabstop));
+ } else if (*tp < ' ') {
+ co++; // display as ^X, use 2 columns
+ }
+ } while (tp++ < d && ++co);
+
+ // "co" is the column where "dot" is.
+ // The screen has "columns" columns.
+ // The currently displayed columns are 0+offset -- columns+ofset
+ // |-------------------------------------------------------------|
+ // ^ ^ ^
+ // offset | |------- columns ----------------|
+ //
+ // If "co" is already in this range then we do not have to adjust offset
+ // but, we do have to subtract the "offset" bias from "co".
+ // If "co" is outside this range then we have to change "offset".
+ // If the first char of a line is a tab the cursor will try to stay
+ // in column 7, but we have to set offset to 0.
+
+ if (co < 0 + offset) {
+ offset = co;
+ }
+ if (co >= columns + offset) {
+ offset = co - columns + 1;
+ }
+ // if the first char of the line is a tab, and "dot" is sitting on it
+ // force offset to 0.
+ if (d == beg_cur && *d == '\t') {
+ offset = 0;
+ }
+ co -= offset;
+
+ *row = ro;
+ *col = co;
+}
+
+//----- Text Movement Routines ---------------------------------
+static Byte *begin_line(Byte * p) // return pointer to first char cur line
+{
+ while (p > text && p[-1] != '\n')
+ p--; // go to cur line B-o-l
+ return (p);
+}
+
+static Byte *end_line(Byte * p) // return pointer to NL of cur line line
+{
+ while (p < end - 1 && *p != '\n')
+ p++; // go to cur line E-o-l
+ return (p);
+}
+
+static Byte *dollar_line(Byte * p) // return pointer to just before NL line
+{
+ while (p < end - 1 && *p != '\n')
+ p++; // go to cur line E-o-l
+ // Try to stay off of the Newline
+ if (*p == '\n' && (p - begin_line(p)) > 0)
+ p--;
+ return (p);
+}
+
+static Byte *prev_line(Byte * p) // return pointer first char prev line
+{
+ p = begin_line(p); // goto begining of cur line
+ if (p[-1] == '\n' && p > text)
+ p--; // step to prev line
+ p = begin_line(p); // goto begining of prev line
+ return (p);
+}
+
+static Byte *next_line(Byte * p) // return pointer first char next line
+{
+ p = end_line(p);
+ if (*p == '\n' && p < end - 1)
+ p++; // step to next line
+ return (p);
+}
+
+//----- Text Information Routines ------------------------------
+static Byte *end_screen(void)
+{
+ Byte *q;
+ int cnt;
+
+ // find new bottom line
+ q = screenbegin;
+ for (cnt = 0; cnt < rows - 2; cnt++)
+ q = next_line(q);
+ q = end_line(q);
+ return (q);
+}
+
+static int count_lines(Byte * start, Byte * stop) // count line from start to stop
+{
+ Byte *q;
+ int cnt;
+
+ if (stop < start) { // start and stop are backwards- reverse them
+ q = start;
+ start = stop;
+ stop = q;
+ }
+ cnt = 0;
+ stop = end_line(stop); // get to end of this line
+ for (q = start; q <= stop && q <= end - 1; q++) {
+ if (*q == '\n')
+ cnt++;
+ }
+ return (cnt);
+}
+
+static Byte *find_line(int li) // find begining of line #li
+{
+ Byte *q;
+
+ for (q = text; li > 1; li--) {
+ q = next_line(q);
+ }
+ return (q);
+}
+
+//----- Dot Movement Routines ----------------------------------
+static void dot_left(void)
+{
+ if (dot > text && dot[-1] != '\n')
+ dot--;
+}
+
+static void dot_right(void)
+{
+ if (dot < end - 1 && *dot != '\n')
+ dot++;
+}
+
+static void dot_begin(void)
+{
+ dot = begin_line(dot); // return pointer to first char cur line
+}
+
+static void dot_end(void)
+{
+ dot = end_line(dot); // return pointer to last char cur line
+}
+
+static Byte *move_to_col(Byte * p, int l)
+{
+ int co;
+
+ p = begin_line(p);
+ co = 0;
+ do {
+ if (*p == '\n' || *p == '\0')
+ break;
+ if (*p == '\t') {
+ // 7 - (co % 8 )
+ co += ((tabstop - 1) - (co % tabstop));
+ } else if (*p < ' ') {
+ co++; // display as ^X, use 2 columns
+ }
+ } while (++co <= l && p++ < end);
+ return (p);
+}
+
+static void dot_next(void)
+{
+ dot = next_line(dot);
+}
+
+static void dot_prev(void)
+{
+ dot = prev_line(dot);
+}
+
+static void dot_scroll(int cnt, int dir)
+{
+ Byte *q;
+
+ for (; cnt > 0; cnt--) {
+ if (dir < 0) {
+ // scroll Backwards
+ // ctrl-Y scroll up one line
+ screenbegin = prev_line(screenbegin);
+ } else {
+ // scroll Forwards
+ // ctrl-E scroll down one line
+ screenbegin = next_line(screenbegin);
+ }
+ }
+ // make sure "dot" stays on the screen so we dont scroll off
+ if (dot < screenbegin)
+ dot = screenbegin;
+ q = end_screen(); // find new bottom line
+ if (dot > q)
+ dot = begin_line(q); // is dot is below bottom line?
+ dot_skip_over_ws();
+}
+
+static void dot_skip_over_ws(void)
+{
+ // skip WS
+ while (isspace(*dot) && *dot != '\n' && dot < end - 1)
+ dot++;
+}
+
+static void dot_delete(void) // delete the char at 'dot'
+{
+ (void) text_hole_delete(dot, dot);
+}
+
+static Byte *bound_dot(Byte * p) // make sure text[0] <= P < "end"
+{
+ if (p >= end && end > text) {
+ p = end - 1;
+ indicate_error('1');
+ }
+ if (p < text) {
+ p = text;
+ indicate_error('2');
+ }
+ return (p);
+}
+
+//----- Helper Utility Routines --------------------------------
+
+//----------------------------------------------------------------
+//----- Char Routines --------------------------------------------
+/* Chars that are part of a word-
+ * 0123456789_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
+ * Chars that are Not part of a word (stoppers)
+ * !"#$%&'()*+,-./:;<=>?@[\]^`{|}~
+ * Chars that are WhiteSpace
+ * TAB NEWLINE VT FF RETURN SPACE
+ * DO NOT COUNT NEWLINE AS WHITESPACE
+ */
+
+static Byte *new_screen(int ro, int co)
+{
+ if (screen != 0)
+ free(screen);
+ screensize = ro * co + 8;
+ screen = (Byte *) malloc(screensize);
+ return (screen);
+}
+
+static Byte *new_text(int size)
+{
+ if (size < 10240)
+ size = 10240; // have a minimum size for new files
+ if (text != 0) {
+ //text -= 4;
+ free(text);
+ }
+ text = (Byte *) malloc(size + 8);
+ memset(text, '\0', size); // clear new text[]
+ //text += 4; // leave some room for "oops"
+ textend = text + size - 1;
+ //textend -= 4; // leave some root for "oops"
+ return (text);
+}
+
+#ifdef BB_FEATURE_VI_SEARCH
+static int mycmp(Byte * s1, Byte * s2, int len)
+{
+ int i;
+
+ i = strncmp((char *) s1, (char *) s2, len);
+#ifdef BB_FEATURE_VI_SETOPTS
+ if (ignorecase) {
+ i = strncasecmp((char *) s1, (char *) s2, len);
+ }
+#endif /* BB_FEATURE_VI_SETOPTS */
+ return (i);
+}
+
+static Byte *char_search(Byte * p, Byte * pat, int dir, int range) // search for pattern starting at p
+{
+#ifndef REGEX_SEARCH
+ Byte *start, *stop;
+ int len;
+
+ len = strlen((char *) pat);
+ if (dir == FORWARD) {
+ stop = end - 1; // assume range is p - end-1
+ if (range == LIMITED)
+ stop = next_line(p); // range is to next line
+ for (start = p; start < stop; start++) {
+ if (mycmp(start, pat, len) == 0) {
+ return (start);
+ }
+ }
+ } else if (dir == BACK) {
+ stop = text; // assume range is text - p
+ if (range == LIMITED)
+ stop = prev_line(p); // range is to prev line
+ for (start = p - len; start >= stop; start--) {
+ if (mycmp(start, pat, len) == 0) {
+ return (start);
+ }
+ }
+ }
+ // pattern not found
+ return (NULL);
+#else /*REGEX_SEARCH */
+ char *q;
+ struct re_pattern_buffer preg;
+ int i;
+ int size, range;
+
+ re_syntax_options = RE_SYNTAX_POSIX_EXTENDED;
+ preg.translate = 0;
+ preg.fastmap = 0;
+ preg.buffer = 0;
+ preg.allocated = 0;
+
+ // assume a LIMITED forward search
+ q = next_line(p);
+ q = end_line(q);
+ q = end - 1;
+ if (dir == BACK) {
+ q = prev_line(p);
+ q = text;
+ }
+ // count the number of chars to search over, forward or backward
+ size = q - p;
+ if (size < 0)
+ size = p - q;
+ // RANGE could be negative if we are searching backwards
+ range = q - p;
+
+ q = (char *) re_compile_pattern(pat, strlen((char *) pat), &preg);
+ if (q != 0) {
+ // The pattern was not compiled
+ psbs("bad search pattern: \"%s\": %s", pat, q);
+ i = 0; // return p if pattern not compiled
+ goto cs1;
+ }
+
+ q = p;
+ if (range < 0) {
+ q = p - size;
+ if (q < text)
+ q = text;
+ }
+ // search for the compiled pattern, preg, in p[]
+ // range < 0- search backward
+ // range > 0- search forward
+ // 0 < start < size
+ // re_search() < 0 not found or error
+ // re_search() > 0 index of found pattern
+ // struct pattern char int int int struct reg
+ // re_search (*pattern_buffer, *string, size, start, range, *regs)
+ i = re_search(&preg, q, size, 0, range, 0);
+ if (i == -1) {
+ p = 0;
+ i = 0; // return NULL if pattern not found
+ }
+ cs1:
+ if (dir == FORWARD) {
+ p = p + i;
+ } else {
+ p = p - i;
+ }
+ return (p);
+#endif /*REGEX_SEARCH */
+}
+#endif /* BB_FEATURE_VI_SEARCH */
+
+static Byte *char_insert(Byte * p, Byte c) // insert the char c at 'p'
+{
+ if (c == 22) { // Is this an ctrl-V?
+ p = stupid_insert(p, '^'); // use ^ to indicate literal next
+ p--; // backup onto ^
+ refresh(FALSE); // show the ^
+ c = get_one_char();
+ *p = c;
+ p++;
+ file_modified = TRUE; // has the file been modified
+ } else if (c == 27) { // Is this an ESC?
+ cmd_mode = 0;
+ cmdcnt = 0;
+ end_cmd_q(); // stop adding to q
+ *status_buffer = '\0'; // clear the status buffer
+ if (p[-1] != '\n') {
+ p--;
+ }
+ } else if (c == erase_char) { // Is this a BS
+ // 123456789
+ if (p[-1] != '\n') {
+ p--;
+ p = text_hole_delete(p, p); // shrink buffer 1 char
+#ifdef BB_FEATURE_VI_DOT_CMD
+ // also rmove char from last_modifying_cmd
+ if (strlen((char *) last_modifying_cmd) > 0) {
+ Byte *q;
+
+ q = last_modifying_cmd;
+ q[strlen((char *) q) - 1] = '\0'; // erase BS
+ q[strlen((char *) q) - 1] = '\0'; // erase prev char
+ }
+#endif /* BB_FEATURE_VI_DOT_CMD */
+ }
+ } else {
+ // insert a char into text[]
+ Byte *sp; // "save p"
+
+ if (c == 13)
+ c = '\n'; // translate \r to \n
+ sp = p; // remember addr of insert
+ p = stupid_insert(p, c); // insert the char
+#ifdef BB_FEATURE_VI_SETOPTS
+ if (showmatch && strchr(")]}", *sp) != NULL) {
+ showmatching(sp);
+ }
+ if (autoindent && c == '\n') { // auto indent the new line
+ Byte *q;
+
+ q = prev_line(p); // use prev line as templet
+ for (; isblnk(*q); q++) {
+ p = stupid_insert(p, *q); // insert the char
+ }
+ }
+#endif /* BB_FEATURE_VI_SETOPTS */
+ }
+ return (p);
+}
+
+static Byte *stupid_insert(Byte * p, Byte c) // stupidly insert the char c at 'p'
+{
+ p = text_hole_make(p, 1);
+ if (p != 0) {
+ *p = c;
+ file_modified = TRUE; // has the file been modified
+ p++;
+ }
+ return (p);
+}
+
+static Byte find_range(Byte ** start, Byte ** stop, Byte c)
+{
+ Byte *save_dot, *p, *q;
+ int cnt;
+
+ save_dot = dot;
+ p = q = dot;
+
+ if (strchr("cdy><", c)) {
+ p = q = begin_line(p);
+ for (cnt = 1; cnt < cmdcnt; cnt++) {
+ q = next_line(q);
+ }
+ q = end_line(q);
+ } else if (strchr("$0bBeE", c)) {
+ do_cmd(c); // execute movement cmd
+ q = dot;
+ } else if (strchr("wW", c)) {
+ do_cmd(c); // execute movement cmd
+ if (dot > text)
+ dot--; // move back off of next word
+ if (dot > text && *dot == '\n')
+ dot--; // stay off NL
+ q = dot;
+ } else if (strchr("H-k{", c)) {
+ q = end_line(dot); // find NL
+ do_cmd(c); // execute movement cmd
+ dot_begin();
+ p = dot;
+ } else if (strchr("L+j}\r\n", c)) {
+ p = begin_line(dot);
+ do_cmd(c); // execute movement cmd
+ dot_end(); // find NL
+ q = dot;
+ } else {
+ c = 27; // error- return an ESC char
+ //break;
+ }
+ *start = p;
+ *stop = q;
+ if (q < p) {
+ *start = q;
+ *stop = p;
+ }
+ dot = save_dot;
+ return (c);
+}
+
+static int st_test(Byte * p, int type, int dir, Byte * tested)
+{
+ Byte c, c0, ci;
+ int test, inc;
+
+ inc = dir;
+ c = c0 = p[0];
+ ci = p[inc];
+ test = 0;
+
+ if (type == S_BEFORE_WS) {
+ c = ci;
+ test = ((!isspace(c)) || c == '\n');
+ }
+ if (type == S_TO_WS) {
+ c = c0;
+ test = ((!isspace(c)) || c == '\n');
+ }
+ if (type == S_OVER_WS) {
+ c = c0;
+ test = ((isspace(c)));
+ }
+ if (type == S_END_PUNCT) {
+ c = ci;
+ test = ((ispunct(c)));
+ }
+ if (type == S_END_ALNUM) {
+ c = ci;
+ test = ((isalnum(c)) || c == '_');
+ }
+ *tested = c;
+ return (test);
+}
+
+static Byte *skip_thing(Byte * p, int linecnt, int dir, int type)
+{
+ Byte c;
+
+ while (st_test(p, type, dir, &c)) {
+ // make sure we limit search to correct number of lines
+ if (c == '\n' && --linecnt < 1)
+ break;
+ if (dir >= 0 && p >= end - 1)
+ break;
+ if (dir < 0 && p <= text)
+ break;
+ p += dir; // move to next char
+ }
+ return (p);
+}
+
+// find matching char of pair () [] {}
+static Byte *find_pair(Byte * p, Byte c)
+{
+ Byte match, *q;
+ int dir, level;
+
+ match = ')';
+ level = 1;
+ dir = 1; // assume forward
+ switch (c) {
+ case '(':
+ match = ')';
+ break;
+ case '[':
+ match = ']';
+ break;
+ case '{':
+ match = '}';
+ break;
+ case ')':
+ match = '(';
+ dir = -1;
+ break;
+ case ']':
+ match = '[';
+ dir = -1;
+ break;
+ case '}':
+ match = '{';
+ dir = -1;
+ break;
+ }
+ for (q = p + dir; text <= q && q < end; q += dir) {
+ // look for match, count levels of pairs (( ))
+ if (*q == c)
+ level++; // increase pair levels
+ if (*q == match)
+ level--; // reduce pair level
+ if (level == 0)
+ break; // found matching pair
+ }
+ if (level != 0)
+ q = NULL; // indicate no match
+ return (q);
+}
+
+#ifdef BB_FEATURE_VI_SETOPTS
+// show the matching char of a pair, () [] {}
+static void showmatching(Byte * p)
+{
+ Byte *q, *save_dot;
+
+ // we found half of a pair
+ q = find_pair(p, *p); // get loc of matching char
+ if (q == NULL) {
+ indicate_error('3'); // no matching char
+ } else {
+ // "q" now points to matching pair
+ save_dot = dot; // remember where we are
+ dot = q; // go to new loc
+ refresh(FALSE); // let the user see it
+ (void) mysleep(40); // give user some time
+ dot = save_dot; // go back to old loc
+ refresh(FALSE);
+ }
+}
+#endif /* BB_FEATURE_VI_SETOPTS */
+
+// open a hole in text[]
+static Byte *text_hole_make(Byte * p, int size) // at "p", make a 'size' byte hole
+{
+ Byte *src, *dest;
+ int cnt;
+
+ if (size <= 0)
+ goto thm0;
+ src = p;
+ dest = p + size;
+ cnt = end - src; // the rest of buffer
+ if (memmove(dest, src, cnt) != dest) {
+ psbs("can't create room for new characters");
+ }
+ memset(p, ' ', size); // clear new hole
+ end = end + size; // adjust the new END
+ file_modified = TRUE; // has the file been modified
+ thm0:
+ return (p);
+}
+
+// close a hole in text[]
+static Byte *text_hole_delete(Byte * p, Byte * q) // delete "p" thru "q", inclusive
+{
+ Byte *src, *dest;
+ int cnt, hole_size;
+
+ // move forwards, from beginning
+ // assume p <= q
+ src = q + 1;
+ dest = p;
+ if (q < p) { // they are backward- swap them
+ src = p + 1;
+ dest = q;
+ }
+ hole_size = q - p + 1;
+ cnt = end - src;
+ if (src < text || src > end)
+ goto thd0;
+ if (dest < text || dest >= end)
+ goto thd0;
+ if (src >= end)
+ goto thd_atend; // just delete the end of the buffer
+ if (memmove(dest, src, cnt) != dest) {
+ psbs("can't delete the character");
+ }
+ thd_atend:
+ end = end - hole_size; // adjust the new END
+ if (dest >= end)
+ dest = end - 1; // make sure dest in below end-1
+ if (end <= text)
+ dest = end = text; // keep pointers valid
+ file_modified = TRUE; // has the file been modified
+ thd0:
+ return (dest);
+}
+
+// copy text into register, then delete text.
+// if dist <= 0, do not include, or go past, a NewLine
+//
+static Byte *yank_delete(Byte * start, Byte * stop, int dist, int yf)
+{
+ Byte *p;
+
+ // make sure start <= stop
+ if (start > stop) {
+ // they are backwards, reverse them
+ p = start;
+ start = stop;
+ stop = p;
+ }
+ if (dist <= 0) {
+ // we can not cross NL boundaries
+ p = start;
+ if (*p == '\n')
+ return (p);
+ // dont go past a NewLine
+ for (; p + 1 <= stop; p++) {
+ if (p[1] == '\n') {
+ stop = p; // "stop" just before NewLine
+ break;
+ }
+ }
+ }
+ p = start;
+#ifdef BB_FEATURE_VI_YANKMARK
+ text_yank(start, stop, YDreg);
+#endif /* BB_FEATURE_VI_YANKMARK */
+ if (yf == YANKDEL) {
+ p = text_hole_delete(start, stop);
+ } // delete lines
+ return (p);
+}
+
+static void show_help(void)
+{
+ printf("These features are available:\n");
+#ifdef BB_FEATURE_VI_SEARCH
+ printf("\tPattern searches with / and ?\n");
+#endif /* BB_FEATURE_VI_SEARCH */
+#ifdef BB_FEATURE_VI_DOT_CMD
+ printf("\tLast command repeat with \'.\'\n");
+#endif /* BB_FEATURE_VI_DOT_CMD */
+#ifdef BB_FEATURE_VI_YANKMARK
+ printf("\tLine marking with 'x\n");
+ printf("\tNamed buffers with \"x\n");
+#endif /* BB_FEATURE_VI_YANKMARK */
+#ifdef BB_FEATURE_VI_READONLY
+ printf("\tReadonly with -R command line arg\n");
+#endif /* BB_FEATURE_VI_READONLY */
+#ifdef BB_FEATURE_VI_SET
+ printf("\tSome colon mode commands with \':\'\n");
+#endif /* BB_FEATURE_VI_SET */
+#ifdef BB_FEATURE_VI_SETOPTS
+ printf("\tSettable options with \":set\"\n");
+#endif /* BB_FEATURE_VI_SETOPTS */
+#ifdef BB_FEATURE_VI_USE_SIGNALS
+ printf("\tSignal catching- ^C\n");
+ printf("\tJob suspend and resume with ^Z\n");
+#endif /* BB_FEATURE_VI_USE_SIGNALS */
+#ifdef BB_FEATURE_VI_WIN_RESIZE
+ printf("\tAdapt to window re-sizes\n");
+#endif /* BB_FEATURE_VI_WIN_RESIZE */
+}
+
+static void print_literal(Byte * buf, Byte * s) // copy s to buf, convert unprintable
+{
+ Byte c, b[2];
+
+ b[1] = '\0';
+ strcpy((char *) buf, ""); // init buf
+ if (strlen((char *) s) <= 0)
+ s = (Byte *) "(NULL)";
+ for (; *s > '\0'; s++) {
+ c = *s;
+ if (*s > '~') {
+ strcat((char *) buf, SOs);
+ c = *s - 128;
+ }
+ if (*s < ' ') {
+ strcat((char *) buf, "^");
+ c += '@';
+ }
+ b[0] = c;
+ strcat((char *) buf, (char *) b);
+ if (*s > '~')
+ strcat((char *) buf, SOn);
+ if (*s == '\n') {
+ strcat((char *) buf, "$");
+ }
+ }
+}
+
+#ifdef BB_FEATURE_VI_DOT_CMD
+static void start_new_cmd_q(Byte c)
+{
+ // release old cmd
+ if (last_modifying_cmd != 0)
+ free(last_modifying_cmd);
+ // get buffer for new cmd
+ last_modifying_cmd = (Byte *) malloc(BUFSIZ);
+ memset(last_modifying_cmd, '\0', BUFSIZ); // clear new cmd queue
+ // if there is a current cmd count put it in the buffer first
+ if (cmdcnt > 0)
+ sprintf((char *) last_modifying_cmd, "%d", cmdcnt);
+ // save char c onto queue
+ last_modifying_cmd[strlen((char *) last_modifying_cmd)] = c;
+ adding2q = 1;
+ return;
+}
+
+static void end_cmd_q()
+{
+#ifdef BB_FEATURE_VI_YANKMARK
+ YDreg = 26; // go back to default Yank/Delete reg
+#endif /* BB_FEATURE_VI_YANKMARK */
+ adding2q = 0;
+ return;
+}
+#endif /* BB_FEATURE_VI_DOT_CMD */
+
+#if defined(BB_FEATURE_VI_YANKMARK) || defined(BB_FEATURE_VI_COLON) || defined(BB_FEATURE_VI_CRASHME)
+static Byte *string_insert(Byte * p, Byte * s) // insert the string at 'p'
+{
+ int cnt, i;
+
+ i = strlen((char *) s);
+ p = text_hole_make(p, i);
+ strncpy((char *) p, (char *) s, i);
+ for (cnt = 0; *s != '\0'; s++) {
+ if (*s == '\n')
+ cnt++;
+ }
+#ifdef BB_FEATURE_VI_YANKMARK
+ psb("Put %d lines (%d chars) from [%c]", cnt, i, what_reg());
+#endif /* BB_FEATURE_VI_YANKMARK */
+ return (p);
+}
+#endif /* BB_FEATURE_VI_YANKMARK || BB_FEATURE_VI_COLON || BB_FEATURE_VI_CRASHME */
+
+#ifdef BB_FEATURE_VI_YANKMARK
+static Byte *text_yank(Byte * p, Byte * q, int dest) // copy text into a register
+{
+ Byte *t;
+ int cnt;
+
+ if (q < p) { // they are backwards- reverse them
+ t = q;
+ q = p;
+ p = t;
+ }
+ cnt = q - p + 1;
+ t = reg[dest];
+ if (t != 0) { // if already a yank register
+ free(t); // free it
+ }
+ t = (Byte *) malloc(cnt + 1); // get a new register
+ memset(t, '\0', cnt + 1); // clear new text[]
+ strncpy((char *) t, (char *) p, cnt); // copy text[] into bufer
+ reg[dest] = t;
+ return (p);
+}
+
+static Byte what_reg(void)
+{
+ Byte c;
+ int i;
+
+ i = 0;
+ c = 'D'; // default to D-reg
+ if (0 <= YDreg && YDreg <= 25)
+ c = 'a' + (Byte) YDreg;
+ if (YDreg == 26)
+ c = 'D';
+ if (YDreg == 27)
+ c = 'U';
+ return (c);
+}
+
+static void check_context(Byte cmd)
+{
+ // A context is defined to be "modifying text"
+ // Any modifying command establishes a new context.
+
+ if (dot < context_start || dot > context_end) {
+ if (strchr((char *) modifying_cmds, cmd) != NULL) {
+ // we are trying to modify text[]- make this the current context
+ mark[27] = mark[26]; // move cur to prev
+ mark[26] = dot; // move local to cur
+ context_start = prev_line(prev_line(dot));
+ context_end = next_line(next_line(dot));
+ //loiter= start_loiter= now;
+ }
+ }
+ return;
+}
+
+static Byte *swap_context(Byte * p) // goto new context for '' command make this the current context
+{
+ Byte *tmp;
+
+ // the current context is in mark[26]
+ // the previous context is in mark[27]
+ // only swap context if other context is valid
+ if (text <= mark[27] && mark[27] <= end - 1) {
+ tmp = mark[27];
+ mark[27] = mark[26];
+ mark[26] = tmp;
+ p = mark[26]; // where we are going- previous context
+ context_start = prev_line(prev_line(prev_line(p)));
+ context_end = next_line(next_line(next_line(p)));
+ }
+ return (p);
+}
+#endif /* BB_FEATURE_VI_YANKMARK */
+
+static int isblnk(Byte c) // is the char a blank or tab
+{
+ return (c == ' ' || c == '\t');
+}
+
+//----- Set terminal attributes --------------------------------
+static void rawmode(void)
+{
+ tcgetattr(0, &term_orig);
+ term_vi = term_orig;
+ term_vi.c_lflag &= (~ICANON & ~ECHO); // leave ISIG ON- allow intr's
+ term_vi.c_iflag &= (~IXON & ~ICRNL);
+ term_vi.c_cc[VMIN] = 1;
+ term_vi.c_cc[VTIME] = 0;
+ erase_char = term_vi.c_cc[VERASE];
+ tcsetattr(0, TCSANOW, &term_vi);
+}
+
+static void cookmode(void)
+{
+ tcsetattr(0, TCSANOW, &term_orig);
+}
+
+#ifdef BB_FEATURE_VI_WIN_RESIZE
+//----- See what the window size currently is --------------------
+static void window_size_get(int sig)
+{
+ int i;
+
+ i = ioctl(0, TIOCGWINSZ, &winsize);
+ if (i != 0) {
+ // force 24x80
+ winsize.ws_row = 24;
+ winsize.ws_col = 80;
+ }
+ if (winsize.ws_row <= 1) {
+ winsize.ws_row = 24;
+ }
+ if (winsize.ws_col <= 1) {
+ winsize.ws_col = 80;
+ }
+ rows = (int) winsize.ws_row;
+ columns = (int) winsize.ws_col;
+}
+#endif /* BB_FEATURE_VI_WIN_RESIZE */
+
+//----- Come here when we get a window resize signal ---------
+#ifdef BB_FEATURE_VI_USE_SIGNALS
+static void winch_sig(int sig)
+{
+ signal(SIGWINCH, winch_sig);
+#ifdef BB_FEATURE_VI_WIN_RESIZE
+ window_size_get(0);
+#endif /* BB_FEATURE_VI_WIN_RESIZE */
+ new_screen(rows, columns); // get memory for virtual screen
+ redraw(TRUE); // re-draw the screen
+}
+
+//----- Come here when we get a continue signal -------------------
+static void cont_sig(int sig)
+{
+ rawmode(); // terminal to "raw"
+ *status_buffer = '\0'; // clear the status buffer
+ redraw(TRUE); // re-draw the screen
+
+ signal(SIGTSTP, suspend_sig);
+ signal(SIGCONT, SIG_DFL);
+ kill(getpid(), SIGCONT);
+}
+
+//----- Come here when we get a Suspend signal -------------------
+static void suspend_sig(int sig)
+{
+ place_cursor(rows, 0); // go to bottom of screen
+ clear_to_eol(); // Erase to end of line
+ cookmode(); // terminal to "cooked"
+
+ signal(SIGCONT, cont_sig);
+ signal(SIGTSTP, SIG_DFL);
+ kill(getpid(), SIGTSTP);
+}
+
+//----- Come here when we get a signal --------------------
+static void catch_sig(int sig)
+{
+ signal(SIGHUP, catch_sig);
+ signal(SIGINT, catch_sig);
+ signal(SIGTERM, catch_sig);
+ longjmp(restart, sig);
+}
+
+static void alarm_sig(int sig)
+{
+ signal(SIGALRM, catch_sig);
+ longjmp(restart, sig);
+}
+
+//----- Come here when we get a core dump signal -----------------
+static void core_sig(int sig)
+{
+ signal(SIGQUIT, core_sig);
+ signal(SIGILL, core_sig);
+ signal(SIGTRAP, core_sig);
+ signal(SIGIOT, core_sig);
+ signal(SIGABRT, core_sig);
+ signal(SIGFPE, core_sig);
+ signal(SIGBUS, core_sig);
+ signal(SIGSEGV, core_sig);
+ signal(SIGSYS, core_sig);
+
+ dot = bound_dot(dot); // make sure "dot" is valid
+
+ longjmp(restart, sig);
+}
+#endif /* BB_FEATURE_VI_USE_SIGNALS */
+
+static int mysleep(int hund) // sleep for 'h' 1/100 seconds
+{
+ // Don't hang- Wait 5/100 seconds- 1 Sec= 1000000
+ FD_ZERO(&rfds);
+ FD_SET(0, &rfds);
+ tv.tv_sec = 0;
+ tv.tv_usec = hund * 10000;
+ select(1, &rfds, NULL, NULL, &tv);
+ return (FD_ISSET(0, &rfds));
+}
+
+//----- IO Routines --------------------------------------------
+static Byte readit(void) // read (maybe cursor) key from stdin
+{
+ Byte c;
+ int i, bufsiz, cnt, cmdindex;
+ struct esc_cmds {
+ Byte *seq;
+ Byte val;
+ };
+
+ static struct esc_cmds esccmds[] = {
+ {(Byte *) "OA", (Byte) VI_K_UP}, // cursor key Up
+ {(Byte *) "OB", (Byte) VI_K_DOWN}, // cursor key Down
+ {(Byte *) "OC", (Byte) VI_K_RIGHT}, // Cursor Key Right
+ {(Byte *) "OD", (Byte) VI_K_LEFT}, // cursor key Left
+ {(Byte *) "OH", (Byte) VI_K_HOME}, // Cursor Key Home
+ {(Byte *) "OF", (Byte) VI_K_END}, // Cursor Key End
+ {(Byte *) "", (Byte) VI_K_UP}, // cursor key Up
+ {(Byte *) "", (Byte) VI_K_DOWN}, // cursor key Down
+ {(Byte *) "", (Byte) VI_K_RIGHT}, // Cursor Key Right
+ {(Byte *) "", (Byte) VI_K_LEFT}, // cursor key Left
+ {(Byte *) "", (Byte) VI_K_HOME}, // Cursor Key Home
+ {(Byte *) "", (Byte) VI_K_END}, // Cursor Key End
+ {(Byte *) "[2~", (Byte) VI_K_INSERT}, // Cursor Key Insert
+ {(Byte *) "[5~", (Byte) VI_K_PAGEUP}, // Cursor Key Page Up
+ {(Byte *) "[6~", (Byte) VI_K_PAGEDOWN}, // Cursor Key Page Down
+ {(Byte *) "OP", (Byte) VI_K_FUN1}, // Function Key F1
+ {(Byte *) "OQ", (Byte) VI_K_FUN2}, // Function Key F2
+ {(Byte *) "OR", (Byte) VI_K_FUN3}, // Function Key F3
+ {(Byte *) "OS", (Byte) VI_K_FUN4}, // Function Key F4
+ {(Byte *) "[15~", (Byte) VI_K_FUN5}, // Function Key F5
+ {(Byte *) "[17~", (Byte) VI_K_FUN6}, // Function Key F6
+ {(Byte *) "[18~", (Byte) VI_K_FUN7}, // Function Key F7
+ {(Byte *) "[19~", (Byte) VI_K_FUN8}, // Function Key F8
+ {(Byte *) "[20~", (Byte) VI_K_FUN9}, // Function Key F9
+ {(Byte *) "[21~", (Byte) VI_K_FUN10}, // Function Key F10
+ {(Byte *) "[23~", (Byte) VI_K_FUN11}, // Function Key F11
+ {(Byte *) "[24~", (Byte) VI_K_FUN12}, // Function Key F12
+ {(Byte *) "[11~", (Byte) VI_K_FUN1}, // Function Key F1
+ {(Byte *) "[12~", (Byte) VI_K_FUN2}, // Function Key F2
+ {(Byte *) "[13~", (Byte) VI_K_FUN3}, // Function Key F3
+ {(Byte *) "[14~", (Byte) VI_K_FUN4}, // Function Key F4
+ };
+
+#define ESCCMDS_COUNT (sizeof(esccmds)/sizeof(struct esc_cmds))
+
+ (void) alarm(0); // turn alarm OFF while we wait for input
+ // get input from User- are there already input chars in Q?
+ bufsiz = strlen((char *) readbuffer);
+ if (bufsiz <= 0) {
+ ri0:
+ // the Q is empty, wait for a typed char
+ bufsiz = read(0, readbuffer, BUFSIZ - 1);
+ if (bufsiz < 0) {
+ if (errno == EINTR)
+ goto ri0; // interrupted sys call
+ if (errno == EBADF)
+ editing = 0;
+ if (errno == EFAULT)
+ editing = 0;
+ if (errno == EINVAL)
+ editing = 0;
+ if (errno == EIO)
+ editing = 0;
+ errno = 0;
+ bufsiz = 0;
+ }
+ readbuffer[bufsiz] = '\0';
+ }
+ // return char if it is not part of ESC sequence
+ if (readbuffer[0] != 27)
+ goto ri1;
+
+ // This is an ESC char. Is this Esc sequence?
+ // Could be bare Esc key. See if there are any
+ // more chars to read after the ESC. This would
+ // be a Function or Cursor Key sequence.
+ FD_ZERO(&rfds);
+ FD_SET(0, &rfds);
+ tv.tv_sec = 0;
+ tv.tv_usec = 10000; // Wait 1/100 seconds- 1 Sec=1000000
+
+ // keep reading while there are input chars and room in buffer
+ while (select(1, &rfds, NULL, NULL, &tv) > 0 && bufsiz <= (BUFSIZ - 5)) {
+ // read the rest of the ESC string
+ i = read(0, (void *) (readbuffer + bufsiz), BUFSIZ - bufsiz);
+ if (i > 0) {
+ bufsiz += i;
+ readbuffer[bufsiz] = '\0'; // Terminate the string
+ }
+ }
+ // Maybe cursor or function key?
+ for (cmdindex = 0; cmdindex < ESCCMDS_COUNT; cmdindex++) {
+ cnt = strlen((char *) esccmds[cmdindex].seq);
+ i = strncmp((char *) esccmds[cmdindex].seq, (char *) readbuffer, cnt);
+ if (i == 0) {
+ // is a Cursor key- put derived value back into Q
+ readbuffer[0] = esccmds[cmdindex].val;
+ // squeeze out the ESC sequence
+ for (i = 1; i < cnt; i++) {
+ memmove(readbuffer + 1, readbuffer + 2, BUFSIZ - 2);
+ readbuffer[BUFSIZ - 1] = '\0';
+ }
+ break;
+ }
+ }
+ ri1:
+ c = readbuffer[0];
+ // remove one char from Q
+ memmove(readbuffer, readbuffer + 1, BUFSIZ - 1);
+ readbuffer[BUFSIZ - 1] = '\0';
+ (void) alarm(3); // we are done waiting for input, turn alarm ON
+ return (c);
+}
+
+//----- IO Routines --------------------------------------------
+static Byte get_one_char()
+{
+ static Byte c;
+
+#ifdef BB_FEATURE_VI_DOT_CMD
+ // ! adding2q && ioq == 0 read()
+ // ! adding2q && ioq != 0 *ioq
+ // adding2q *last_modifying_cmd= read()
+ if (!adding2q) {
+ // we are not adding to the q.
+ // but, we may be reading from a q
+ if (ioq == 0) {
+ // there is no current q, read from STDIN
+ c = readit(); // get the users input
+ } else {
+ // there is a queue to get chars from first
+ c = *ioq++;
+ if (c == '\0') {
+ // the end of the q, read from STDIN
+ free(ioq_start);
+ ioq_start = ioq = 0;
+ c = readit(); // get the users input
+ }
+ }
+ } else {
+ // adding STDIN chars to q
+ c = readit(); // get the users input
+ if (last_modifying_cmd != 0) {
+ // add new char to q
+ last_modifying_cmd[strlen((char *) last_modifying_cmd)] = c;
+ }
+ }
+#else /* BB_FEATURE_VI_DOT_CMD */
+ c = readit(); // get the users input
+#endif /* BB_FEATURE_VI_DOT_CMD */
+ return (c); // return the char, where ever it came from
+}
+
+#if defined(BB_FEATURE_VI_SEARCH) || defined(BB_FEATURE_VI_COLON)
+static Byte *get_input_line(Byte * prompt) // get input line- use "status line"
+{
+ Byte buf[500];
+ Byte c;
+ int i;
+ static Byte *obufp = NULL;
+
+ strcpy((char *) buf, (char *) prompt);
+ *status_buffer = '\0'; // clear the status buffer
+ place_cursor(rows - 1, 0); // go to Status line, bottom of screen
+ clear_to_eol(); // clear the line
+ write(1, prompt, strlen((char *) prompt)); // write out the :, /, or ? prompt
+
+ for (i = strlen((char *) buf); i < 500;) {
+ c = get_one_char(); // read user input
+ if (c == '\n' || c == '\r')
+ break; // is this end of input
+ if (c == erase_char) { // user wants to erase prev char
+ i--; // backup to prev char
+ buf[i] = '\0'; // erase the char
+ buf[i + 1] = '\0'; // null terminate buffer
+ write(1, " ", 3); // erase char on screen
+ if (i <= 0) { // user backs up before b-o-l, exit
+ break;
+ }
+ } else {
+ buf[i] = c; // save char in buffer
+ buf[i + 1] = '\0'; // make sure buffer is null terminated
+ write(1, buf + i, 1); // echo the char back to user
+ i++;
+ }
+ }
+ refresh(FALSE);
+ if (obufp != NULL)
+ free(obufp);
+ obufp = (Byte *) strdup((char *) buf);
+ return (obufp);
+}
+#endif /* BB_FEATURE_VI_SEARCH || BB_FEATURE_VI_COLON */
+
+static int file_size(Byte * fn) // what is the byte size of "fn"
+{
+ struct stat st_buf;
+ int cnt, sr;
+
+ if (fn == 0)
+ return (-1);
+ cnt = -1;
+ sr = stat((char *) fn, &st_buf); // see if file exists
+ if (sr >= 0) {
+ cnt = (int) st_buf.st_size;
+ }
+ return (cnt);
+}
+
+static int file_insert(Byte * fn, Byte * p, int size)
+{
+ int fd, cnt, sr;
+ struct stat st_buf;
+
+ cnt = -1;
+ if (fn == 0) {
+ psbs("No filename given");
+ goto fi0;
+ }
+ sr = stat((char *) fn, &st_buf); // see if file exists
+ if (sr < 0) {
+ psbs("\"%s\" %s", fn, "count not stat file");
+ goto fi0;
+ }
+ if (size <= 0 || (int) st_buf.st_size <= 0) {
+ psbs("The file size (%d) is too small", size);
+ if ((int) st_buf.st_size <= 0)
+ psbs("\"%s\" is empty", fn);
+ goto fi0;
+ }
+ // There is a file with content
+ fd = open((char *) fn, O_RDWR);
+ if (fd < 0) {
+ psbs("\"%s\" %s", fn, "could not open file");
+ goto fi0;
+ }
+ p = text_hole_make(p, size);
+ cnt = read(fd, p, size);
+ close(fd);
+ if (cnt < 0) {
+ cnt = -1;
+ p = text_hole_delete(p, p + size - 1); // un-do buffer insert
+ psbs("could not read file \"%s\"", fn);
+ } else if (cnt < size) {
+ // There was a partial read, shrink unused space text[]
+ p = text_hole_delete(p + cnt, p + (size - cnt) - 1); // un-do buffer insert
+ psbs("could not read all of file \"%s\"", fn);
+ }
+ if (cnt >= size)
+ file_modified = TRUE;
+ fi0:
+ return (cnt);
+}
+
+static int file_write(Byte * fn, Byte * first, Byte * last)
+{
+ int fd, cnt, charcnt;
+
+ if (fn == 0) {
+ psbs("No current filename");
+ return (-1);
+ }
+ charcnt = 0;
+ // FIXIT- use the correct umask()
+ fd = open((char *) fn, (O_RDWR | O_CREAT | O_TRUNC), 0664);
+ if (fd < 0)
+ return (-1);
+ cnt = last - first + 1;
+ charcnt = write(fd, first, cnt);
+ if (charcnt == cnt) {
+ // good write
+ //file_modified= FALSE; // the file has not been modified
+ } else {
+ charcnt = 0;
+ }
+ close(fd);
+ return (charcnt);
+}
+
+//----- Terminal Drawing ---------------------------------------
+// The terminal is made up of 'rows' line of 'columns' columns.
+// classicly this would be 24 x 80.
+// screen coordinates
+// 0,0 ... 0,79
+// 1,0 ... 1,79
+// . ... .
+// . ... .
+// 22,0 ... 22,79
+// 23,0 ... 23,79 status line
+//
+
+//----- Move the cursor to row x col (count from 0, not 1) -------
+static void place_cursor(int row, int col)
+{
+ Byte buf[30];
+ int l;
+
+ if (row < 0)
+ row = 0;
+ if (row >= rows)
+ row = rows - 1;
+ if (col < 0)
+ col = 0;
+ if (col >= columns)
+ col = columns - 1;
+ sprintf((char *) buf, "%c[%d;%dH", 0x1b, row + 1, col + 1);
+ l = strlen((char *) buf);
+ write(1, buf, l);
+}
+
+//----- Erase from cursor to end of line -----------------------
+static void clear_to_eol()
+{
+ write(1, "\033[0K", 4); // Erase from cursor to end of line
+}
+
+//----- Erase from cursor to end of screen -----------------------
+static void clear_to_eos()
+{
+ write(1, "\033[0J", 4); // Erase from cursor to end of screen
+}
+
+//----- Start standout mode ------------------------------------
+static void standout_start() // send "start reverse video" sequence
+{
+ write(1, "\033[7m", 4); // Start reverse video mode
+}
+
+//----- End standout mode --------------------------------------
+static void standout_end() // send "end reverse video" sequence
+{
+ write(1, "\033[0m", 4); // End reverse video mode
+}
+
+//----- Flash the screen --------------------------------------
+static void flash(int h)
+{
+ standout_start(); // send "start reverse video" sequence
+ redraw(TRUE);
+ (void) mysleep(h);
+ standout_end(); // send "end reverse video" sequence
+ redraw(TRUE);
+}
+
+static void beep()
+{
+ write(1, "\007", 1); // send out a bell character
+}
+
+static void indicate_error(char c)
+{
+#ifdef BB_FEATURE_VI_CRASHME
+ if (crashme > 0)
+ return; // generate a random command
+#endif /* BB_FEATURE_VI_CRASHME */
+ if (err_method == 0) {
+ beep();
+ } else {
+ flash(10);
+ }
+}
+
+//----- Screen[] Routines --------------------------------------
+//----- Erase the Screen[] memory ------------------------------
+static void screen_erase()
+{
+ int i;
+
+ for (i = 0; i < screensize; i++) {
+ screen[i] = '\0';
+ }
+}
+
+//----- Draw the status line at bottom of the screen -------------
+static void show_status_line(void)
+{
+ int cnt;
+
+ cnt = strlen((char *) status_buffer);
+ place_cursor(rows - 1, 0); // put cursor on status line
+ if (cnt > 0) {
+ write(1, status_buffer, cnt);
+ }
+ clear_to_eol();
+ place_cursor(crow, ccol); // put cursor back in correct place
+}
+
+//----- format the status buffer, the bottom line of screen ------
+// print status buffer, with STANDOUT mode
+static void psbs(char *format, ...)
+{
+ va_list args;
+
+ va_start(args, format);
+ strcpy((char *) status_buffer, "\033[7m"); // Terminal standout mode on
+ vsprintf((char *) status_buffer + strlen((char *) status_buffer), format,
+ args);
+ strcat((char *) status_buffer, "\033[0m"); // Terminal standout mode off
+ va_end(args);
+
+ return;
+}
+
+// print status buffer
+static void psb(char *format, ...)
+{
+ va_list args;
+
+ va_start(args, format);
+ vsprintf((char *) status_buffer, format, args);
+ va_end(args);
+ return;
+}
+
+static void ni(Byte * s) // display messages
+{
+ Byte buf[9];
+
+ print_literal(buf, s);
+ psbs("\'%s\' is not implemented", buf);
+}
+
+static void edit_status(void) // show file status on status line
+{
+ int cur, tot, percent;
+
+ cur = count_lines(text, dot);
+ tot = count_lines(text, end - 1);
+ // current line percent
+ // ------------- ~~ ----------
+ // total lines 100
+ if (tot > 0) {
+ percent = (100 * cur) / tot;
+ } else {
+ cur = tot = 0;
+ percent = 100;
+ }
+ psb("\"%s\""
+#ifdef BB_FEATURE_VI_READONLY
+ "%s"
+#endif /* BB_FEATURE_VI_READONLY */
+ "%s line %d of %d --%d%%-- (%dx%d)",
+ (cfn != 0 ? (char *) cfn : "No file"),
+#ifdef BB_FEATURE_VI_READONLY
+ (readonly == TRUE ? " [Read only]" : ""),
+#endif /* BB_FEATURE_VI_READONLY */
+ (file_modified == TRUE ? " [modified]" : ""),
+ cur, tot, percent, rows, columns);
+}
+
+//----- Force refresh of all Lines -----------------------------
+static void redraw(int full_screen)
+{
+ place_cursor(0, 0); // put cursor in correct place
+ clear_to_eos(); // tel terminal to erase display
+ screen_erase(); // erase the internal screen buffer
+ refresh(full_screen); // this will redraw the entire display
+}
+
+//----- Refresh the changed screen lines -----------------------
+// Copy the source line from text[] into the buffer and note
+// if the current screenline is different from the new buffer.
+// If they differ then that line needs redrawing on the terminal.
+//
+static void refresh(int full_screen)
+{
+ static int old_offset;
+ int li, co, changed;
+ Byte c, buf[MAX_SCR_COLS];
+ Byte *tp, *sp; // pointer into text[] and screen[]
+
+#ifdef BB_FEATURE_VI_WIN_RESIZE
+ window_size_get(0);
+#endif /* BB_FEATURE_VI_WIN_RESIZE */
+ sync_cursor(dot, &crow, &ccol);
+ tp = screenbegin; // index into text[] of top line
+ // compare text[] to screen[] and mark screen[] lines that need updating
+ for (li = 0; li < rows - 1; li++) {
+ // format current text line into buf with "columns" wide
+ for (co = 0; co < columns + offset;) {
+ c = ' '; // assume blank
+ if (li > 0 && co == 0) {
+ c = '~'; // not first line, assume Tilde
+ }
+ // are there chars in text[]
+ // and have we gone past the end
+ if (text < end && tp < end) {
+ c = *tp++;
+ }
+ if (c == '\n')
+ break;
+ if (c < ' ' || c > '~') {
+ if (c == '\t') {
+ c = ' ';
+ // co % 8 != 7
+ for (; (co % tabstop) != (tabstop - 1); co++) {
+ buf[co] = c;
+ }
+ } else {
+ buf[co++] = '^';
+ c |= '@'; // make it visible
+ c &= 0x7f; // get rid of hi bit
+ }
+ }
+ // the co++ is done here so that the column will
+ // not be overwritten when we blank-out the rest of line
+ buf[co++] = c;
+ if (tp >= end)
+ break;
+ }
+ if (co >= columns + offset) {
+ // skip to the end of the current text[] line
+ while (tp < end && *tp++ != '\n');
+ }
+ // try to keep the cursor near it's current position
+ // remember how many chars in this row- where the cursor sits
+ // blank out the rest of the buffer
+ while (co < MAX_SCR_COLS - 1) {
+ buf[co++] = ' ';
+ }
+ buf[co++] = 0; // NULL terminate the buffer
+
+ // if necessary, update virtual screen[] and terminal from buf[]
+ changed = FALSE; // assume no change
+ sp = &screen[li * columns]; // start of screen line
+ for (co = 0; co < columns; co++) {
+ if (sp[co] != buf[co + offset]) {
+ sp[co] = buf[co + offset];
+ changed = TRUE; // mark for redraw
+ }
+ }
+ // if horz offset has changed, force a redraw
+ if (offset != old_offset)
+ changed = TRUE;
+
+ // write all marked screen lines out to terminal
+ if (changed == TRUE) {
+ place_cursor(li, 0); // put cursor in correct place
+ clear_to_eol(); // Erase to end of line
+ if (full_screen == FALSE) {
+ // don't redraw every column on terminal
+ // look backwards for last non-blank
+ for (co = columns + offset; co >= 0; co--) {
+ // break;
+ if (buf[co] != ' ')
+ break;
+ }
+ co++;
+ } else {
+ // redraw every column on terminal
+ co = columns;
+ }
+ // write line out to terminal
+ write(1, buf + offset, co);
+ }
+ }
+
+ place_cursor(crow, ccol);
+ if (offset != old_offset)
+ old_offset = offset;
+}