*
* Licensed under GPLv2 or later, see file LICENSE in this source tree.
*/
-
-/*
- * Things To Do:
- * EXINIT
- * $HOME/.exrc and ./.exrc
- * add magic to search /foo.*bar
- * add :help command
- * :map macros
- * if mark[] values were line numbers rather than pointers
- * it would be easier to change the mark when add/delete lines
- * More intelligence in refresh()
- * ":r !cmd" and "!cmd" to filter text through an external command
- * A true "undo" facility
- * An "ex" line oriented mode- maybe using "cmdedit"
- */
+//
+//Things To Do:
+// EXINIT
+// $HOME/.exrc and ./.exrc
+// add magic to search /foo.*bar
+// add :help command
+// :map macros
+// if mark[] values were line numbers rather than pointers
+// it would be easier to change the mark when add/delete lines
+// More intelligence in refresh()
+// ":r !cmd" and "!cmd" to filter text through an external command
+// An "ex" line oriented mode- maybe using "cmdedit"
//config:config VI
-//config: bool "vi"
+//config: bool "vi (23 kb)"
//config: default y
//config: help
-//config: 'vi' is a text editor. More specifically, it is the One True
-//config: text editor <grin>. It does, however, have a rather steep
-//config: learning curve. If you are not already comfortable with 'vi'
-//config: you may wish to use something else.
+//config: 'vi' is a text editor. More specifically, it is the One True
+//config: text editor <grin>. It does, however, have a rather steep
+//config: learning curve. If you are not already comfortable with 'vi'
+//config: you may wish to use something else.
//config:
//config:config FEATURE_VI_MAX_LEN
-//config: int "Maximum screen width in vi"
+//config: int "Maximum screen width"
//config: range 256 16384
//config: default 4096
//config: depends on VI
//config: help
-//config: Contrary to what you may think, this is not eating much.
-//config: Make it smaller than 4k only if you are very limited on memory.
+//config: Contrary to what you may think, this is not eating much.
+//config: Make it smaller than 4k only if you are very limited on memory.
//config:
//config:config FEATURE_VI_8BIT
-//config: bool "Allow vi to display 8-bit chars (otherwise shows dots)"
+//config: bool "Allow to display 8-bit chars (otherwise shows dots)"
//config: default n
//config: depends on VI
//config: help
-//config: If your terminal can display characters with high bit set,
-//config: you may want to enable this. Note: vi is not Unicode-capable.
-//config: If your terminal combines several 8-bit bytes into one character
-//config: (as in Unicode mode), this will not work properly.
+//config: If your terminal can display characters with high bit set,
+//config: you may want to enable this. Note: vi is not Unicode-capable.
+//config: If your terminal combines several 8-bit bytes into one character
+//config: (as in Unicode mode), this will not work properly.
//config:
//config:config FEATURE_VI_COLON
//config: bool "Enable \":\" colon commands (no \"ex\" mode)"
//config: default y
//config: depends on VI
//config: help
-//config: Enable a limited set of colon commands for vi. This does not
-//config: provide an "ex" mode.
+//config: Enable a limited set of colon commands. This does not
+//config: provide an "ex" mode.
//config:
//config:config FEATURE_VI_YANKMARK
//config: bool "Enable yank/put commands and mark cmds"
//config: default y
//config: depends on VI
//config: help
-//config: This will enable you to use yank and put, as well as mark in
-//config: busybox vi.
+//config: This enables you to use yank and put, as well as mark.
//config:
//config:config FEATURE_VI_SEARCH
//config: bool "Enable search and replace cmds"
//config: default y
//config: depends on VI
//config: help
-//config: Select this if you wish to be able to do search and replace in
-//config: busybox vi.
+//config: Select this if you wish to be able to do search and replace.
//config:
//config:config FEATURE_VI_REGEX_SEARCH
//config: bool "Enable regex in search and replace"
//config: default n # Uses GNU regex, which may be unavailable. FIXME
//config: depends on FEATURE_VI_SEARCH
//config: help
-//config: Use extended regex search.
+//config: Use extended regex search.
//config:
//config:config FEATURE_VI_USE_SIGNALS
//config: bool "Catch signals"
//config: default y
//config: depends on VI
//config: help
-//config: Selecting this option will make busybox vi signal aware. This will
-//config: make busybox vi support SIGWINCH to deal with Window Changes, catch
-//config: Ctrl-Z and Ctrl-C and alarms.
+//config: Selecting this option will make vi signal aware. This will support
+//config: SIGWINCH to deal with Window Changes, catch ^Z and ^C and alarms.
//config:
//config:config FEATURE_VI_DOT_CMD
//config: bool "Remember previous cmd and \".\" cmd"
//config: default y
//config: depends on VI
//config: help
-//config: Make busybox vi remember the last command and be able to repeat it.
+//config: Make vi remember the last command and be able to repeat it.
//config:
//config:config FEATURE_VI_READONLY
//config: bool "Enable -R option and \"view\" mode"
//config: default y
//config: depends on VI
//config: help
-//config: Enable the read-only command line option, which allows the user to
-//config: open a file in read-only mode.
+//config: Enable the read-only command line option, which allows the user to
+//config: open a file in read-only mode.
//config:
//config:config FEATURE_VI_SETOPTS
-//config: bool "Enable set-able options, ai ic showmatch"
+//config: bool "Enable settable options, ai ic showmatch"
//config: default y
//config: depends on VI
//config: help
-//config: Enable the editor to set some (ai, ic, showmatch) options.
+//config: Enable the editor to set some (ai, ic, showmatch) options.
//config:
//config:config FEATURE_VI_SET
-//config: bool "Support for :set"
+//config: bool "Support :set"
//config: default y
//config: depends on VI
-//config: help
-//config: Support for ":set".
//config:
//config:config FEATURE_VI_WIN_RESIZE
//config: bool "Handle window resize"
//config: default y
//config: depends on VI
//config: help
-//config: Make busybox vi behave nicely with terminals that get resized.
+//config: Behave nicely with terminals that get resized.
//config:
//config:config FEATURE_VI_ASK_TERMINAL
//config: bool "Use 'tell me cursor position' ESC sequence to measure window"
//config: default y
//config: depends on VI
//config: help
-//config: If terminal size can't be retrieved and $LINES/$COLUMNS are not set,
-//config: this option makes vi perform a last-ditch effort to find it:
-//config: position cursor to 999,999 and ask terminal to report real
-//config: cursor position using "ESC [ 6 n" escape sequence, then read stdin.
+//config: If terminal size can't be retrieved and $LINES/$COLUMNS are not set,
+//config: this option makes vi perform a last-ditch effort to find it:
+//config: position cursor to 999,999 and ask terminal to report real
+//config: cursor position using "ESC [ 6 n" escape sequence, then read stdin.
+//config: This is not clean but helps a lot on serial lines and such.
+//config:
+//config:config FEATURE_VI_UNDO
+//config: bool "Support undo command \"u\""
+//config: default y
+//config: depends on VI
+//config: help
+//config: Support the 'u' command to undo insertion, deletion, and replacement
+//config: of text.
+//config:
+//config:config FEATURE_VI_UNDO_QUEUE
+//config: bool "Enable undo operation queuing"
+//config: default y
+//config: depends on FEATURE_VI_UNDO
+//config: help
+//config: The vi undo functions can use an intermediate queue to greatly lower
+//config: malloc() calls and overhead. When the maximum size of this queue is
+//config: reached, the contents of the queue are committed to the undo stack.
+//config: This increases the size of the undo code and allows some undo
+//config: operations (especially un-typing/backspacing) to be far more useful.
//config:
-//config: This is not clean but helps a lot on serial lines and such.
+//config:config FEATURE_VI_UNDO_QUEUE_MAX
+//config: int "Maximum undo character queue size"
+//config: default 256
+//config: range 32 65536
+//config: depends on FEATURE_VI_UNDO_QUEUE
+//config: help
+//config: This option sets the number of bytes used at runtime for the queue.
+//config: Smaller values will create more undo objects and reduce the amount
+//config: of typed or backspaced characters that are grouped into one undo
+//config: operation; larger values increase the potential size of each undo
+//config: and will generally malloc() larger objects and less frequently.
+//config: Unless you want more (or less) frequent "undo points" while typing,
+//config: you should probably leave this unchanged.
//applet:IF_VI(APPLET(vi, BB_DIR_BIN, BB_SUID_DROP))
//usage: "\n -H List available features"
#include "libbb.h"
-/* Should be after libbb.h: on some systems regex.h needs sys/types.h: */
+// Should be after libbb.h: on some systems regex.h needs sys/types.h:
#if ENABLE_FEATURE_VI_REGEX_SEARCH
# include <regex.h>
#endif
-/* the CRASHME code is unmaintained, and doesn't currently build */
+// the CRASHME code is unmaintained, and doesn't currently build
#define ENABLE_FEATURE_VI_CRASHME 0
#else
-/* 0x9b is Meta-ESC */
+// 0x9b is Meta-ESC
#if ENABLE_FEATURE_VI_8BIT
# define Isprint(c) ((unsigned char)(c) >= ' ' && (c) != 0x7f && (unsigned char)(c) != 0x9b)
#else
MAX_SCR_ROWS = CONFIG_FEATURE_VI_MAX_LEN,
};
-/* VT102 ESC sequences.
- * See "Xterm Control Sequences"
- * http://invisible-island.net/xterm/ctlseqs/ctlseqs.html
- */
-/* Inverse/Normal text */
-#define ESC_BOLD_TEXT "\033[7m"
-#define ESC_NORM_TEXT "\033[0m"
-/* Bell */
+// VT102 ESC sequences.
+// See "Xterm Control Sequences"
+// http://invisible-island.net/xterm/ctlseqs/ctlseqs.html
+#define ESC "\033"
+// Inverse/Normal text
+#define ESC_BOLD_TEXT ESC"[7m"
+#define ESC_NORM_TEXT ESC"[m"
+// Bell
#define ESC_BELL "\007"
-/* Clear-to-end-of-line */
-#define ESC_CLEAR2EOL "\033[K"
-/* Clear-to-end-of-screen.
- * (We use default param here.
- * Full sequence is "ESC [ <num> J",
- * <num> is 0/1/2 = "erase below/above/all".)
- */
-#define ESC_CLEAR2EOS "\033[J"
-/* Cursor to given coordinate (1,1: top left) */
-#define ESC_SET_CURSOR_POS "\033[%u;%uH"
+// Clear-to-end-of-line
+#define ESC_CLEAR2EOL ESC"[K"
+// Clear-to-end-of-screen.
+// (We use default param here.
+// Full sequence is "ESC [ <num> J",
+// <num> is 0/1/2 = "erase below/above/all".)
+#define ESC_CLEAR2EOS ESC"[J"
+// Cursor to given coordinate (1,1: top left)
+#define ESC_SET_CURSOR_POS ESC"[%u;%uH"
+#define ESC_SET_CURSOR_TOPLEFT ESC"[H"
//UNUSED
-///* Cursor up and down */
-//#define ESC_CURSOR_UP "\033[A"
+//// Cursor up and down
+//#define ESC_CURSOR_UP ESC"[A"
//#define ESC_CURSOR_DOWN "\n"
#if ENABLE_FEATURE_VI_DOT_CMD || ENABLE_FEATURE_VI_YANKMARK
// cmds modifying text[]
// vda: removed "aAiIs" as they switch us into insert mode
// and remembering input for replay after them makes no sense
-static const char modifying_cmds[] = "cCdDJoOpPrRxX<>~";
+static const char modifying_cmds[] ALIGN1 = "cCdDJoOpPrRxX<>~";
#endif
enum {
YANKDEL = TRUE,
FORWARD = 1, // code depends on "1" for array index
BACK = -1, // code depends on "-1" for array index
- LIMITED = 0, // how much of text[] in char_search
- FULL = 1, // how much of text[] in char_search
+ LIMITED = 0, // char_search() only current line
+ FULL = 1, // char_search() to the end/beginning of entire text
S_BEFORE_WS = 1, // used in skip_thing() for moving "dot"
S_TO_WS = 2, // used in skip_thing() for moving "dot"
};
-/* vi.c expects chars to be unsigned. */
-/* busybox build system provides that, but it's better */
-/* to audit and fix the source */
+// vi.c expects chars to be unsigned.
+// busybox build system provides that, but it's better
+// to audit and fix the source
struct globals {
- /* many references - keep near the top of globals */
+ // many references - keep near the top of globals
char *text, *end; // pointers to the user data in memory
char *dot; // where all the action takes place
int text_size; // size of the allocated buffer
- /* the rest */
+ // the rest
smallint vi_setops;
#define VI_AUTOINDENT 1
#define VI_SHOWMATCH 2
#define autoindent (vi_setops & VI_AUTOINDENT)
#define showmatch (vi_setops & VI_SHOWMATCH )
#define ignorecase (vi_setops & VI_IGNORECASE)
-/* indicate error with beep or flash */
+// indicate error with beep or flash
#define err_method (vi_setops & VI_ERR_METHOD)
#if ENABLE_FEATURE_VI_READONLY
smallint editing; // >0 while we are editing a file
// [code audit says "can be 0, 1 or 2 only"]
smallint cmd_mode; // 0=command 1=insert 2=replace
- int file_modified; // buffer contents changed (counter, not flag!)
- int last_file_modified; // = -1;
+ int modified_count; // buffer contents changed if !0
+ int last_modified_count; // = -1;
int save_argc; // how many file names on cmd line
int cmdcnt; // repetition count
unsigned rows, columns; // the terminal screen is this size
int screensize; // and its size
int tabstop;
int last_forward_char; // last char searched for with 'f' (int because of Unicode)
- char erase_char; // the users erase character
+#if ENABLE_FEATURE_VI_CRASHME
char last_input_char; // last char read from user
+#endif
#if ENABLE_FEATURE_VI_DOT_CMD
smallint adding2q; // are we currently adding user input to q
int lmc_len; // length of last_modifying_cmd
char *ioq, *ioq_start; // pointer to string for get_one_char to "read"
#endif
-#if ENABLE_FEATURE_VI_USE_SIGNALS || ENABLE_FEATURE_VI_CRASHME
- int my_pid;
-#endif
#if ENABLE_FEATURE_VI_SEARCH
char *last_search_pattern; // last pattern from a '/' or '?' search
#endif
- /* former statics */
+ // former statics
#if ENABLE_FEATURE_VI_YANKMARK
char *edit_file__cur_line;
#endif
int refresh__old_offset;
int format_edit_status__tot;
- /* a few references only */
+ // a few references only
#if ENABLE_FEATURE_VI_YANKMARK
- int YDreg, Ureg; // default delete register and orig line for "U"
+ smalluint YDreg;//,Ureg;// default delete register and orig line for "U"
+#define Ureg 27
char *reg[28]; // named register a-z, "D", and "U" 0-25,26,27
char *mark[28]; // user marks points somewhere in text[]- a-z and previous context ''
char *context_start, *context_end;
#endif
#if ENABLE_FEATURE_VI_USE_SIGNALS
- sigjmp_buf restart; // catch_sig()
+ sigjmp_buf restart; // int_handler() jumps to location remembered here
#endif
- struct termios term_orig, term_vi; // remember what the cooked mode was
+ struct termios term_orig; // remember what the cooked mode was
#if ENABLE_FEATURE_VI_COLON
char *initial_cmds[3]; // currently 2 entries, NULL terminated
#endif
#if ENABLE_FEATURE_VI_DOT_CMD
char last_modifying_cmd[MAX_INPUT_LEN]; // last modifying cmd for "."
#endif
- char get_input_line__buf[MAX_INPUT_LEN]; /* former static */
+ char get_input_line__buf[MAX_INPUT_LEN]; // former static
char scr_out_buf[MAX_SCR_COLS + MAX_TABSTOP * 2];
+
+#if ENABLE_FEATURE_VI_UNDO
+// undo_push() operations
+#define UNDO_INS 0
+#define UNDO_DEL 1
+#define UNDO_INS_CHAIN 2
+#define UNDO_DEL_CHAIN 3
+// UNDO_*_QUEUED must be equal to UNDO_xxx ORed with UNDO_QUEUED_FLAG
+#define UNDO_QUEUED_FLAG 4
+#define UNDO_INS_QUEUED 4
+#define UNDO_DEL_QUEUED 5
+#define UNDO_USE_SPOS 32
+#define UNDO_EMPTY 64
+// Pass-through flags for functions that can be undone
+#define NO_UNDO 0
+#define ALLOW_UNDO 1
+#define ALLOW_UNDO_CHAIN 2
+# if ENABLE_FEATURE_VI_UNDO_QUEUE
+#define ALLOW_UNDO_QUEUED 3
+ char undo_queue_state;
+ int undo_q;
+ char *undo_queue_spos; // Start position of queued operation
+ char undo_queue[CONFIG_FEATURE_VI_UNDO_QUEUE_MAX];
+# else
+// If undo queuing disabled, don't invoke the missing queue logic
+#define ALLOW_UNDO_QUEUED 1
+# endif
+ struct undo_object {
+ struct undo_object *prev; // Linking back avoids list traversal (LIFO)
+ int start; // Offset where the data should be restored/deleted
+ int length; // total data size
+ uint8_t u_type; // 0=deleted, 1=inserted, 2=swapped
+ char undo_text[1]; // text that was deleted (if deletion)
+ } *undo_stack_tail;
+#endif /* ENABLE_FEATURE_VI_UNDO */
};
#define G (*ptr_to_globals)
#define text (G.text )
#define vi_setops (G.vi_setops )
#define editing (G.editing )
#define cmd_mode (G.cmd_mode )
-#define file_modified (G.file_modified )
-#define last_file_modified (G.last_file_modified )
+#define modified_count (G.modified_count )
+#define last_modified_count (G.last_modified_count)
#define save_argc (G.save_argc )
#define cmdcnt (G.cmdcnt )
#define rows (G.rows )
#define screenbegin (G.screenbegin )
#define tabstop (G.tabstop )
#define last_forward_char (G.last_forward_char )
-#define erase_char (G.erase_char )
+#if ENABLE_FEATURE_VI_CRASHME
#define last_input_char (G.last_input_char )
+#endif
#if ENABLE_FEATURE_VI_READONLY
#define readonly_mode (G.readonly_mode )
#else
#define lmc_len (G.lmc_len )
#define ioq (G.ioq )
#define ioq_start (G.ioq_start )
-#define my_pid (G.my_pid )
#define last_search_pattern (G.last_search_pattern)
#define edit_file__cur_line (G.edit_file__cur_line)
#define format_edit_status__tot (G.format_edit_status__tot)
#define YDreg (G.YDreg )
-#define Ureg (G.Ureg )
+//#define Ureg (G.Ureg )
#define mark (G.mark )
#define context_start (G.context_start )
#define context_end (G.context_end )
#define restart (G.restart )
#define term_orig (G.term_orig )
-#define term_vi (G.term_vi )
#define initial_cmds (G.initial_cmds )
#define readbuffer (G.readbuffer )
#define scr_out_buf (G.scr_out_buf )
#define last_modifying_cmd (G.last_modifying_cmd )
#define get_input_line__buf (G.get_input_line__buf)
+#if ENABLE_FEATURE_VI_UNDO
+#define undo_stack_tail (G.undo_stack_tail )
+# if ENABLE_FEATURE_VI_UNDO_QUEUE
+#define undo_queue_state (G.undo_queue_state)
+#define undo_q (G.undo_q )
+#define undo_queue (G.undo_queue )
+#define undo_queue_spos (G.undo_queue_spos )
+# endif
+#endif
+
#define INIT_G() do { \
SET_PTR_TO_GLOBALS(xzalloc(sizeof(G))); \
- last_file_modified = -1; \
+ last_modified_count = -1; \
/* "" but has space for 2 chars: */ \
IF_FEATURE_VI_SEARCH(last_search_pattern = xzalloc(2);) \
} while (0)
-
-static int init_text_buffer(char *); // init from file or create new
-static void edit_file(char *); // edit one file
-static void do_cmd(int); // execute a command
-static int next_tabstop(int);
-static void sync_cursor(char *, int *, int *); // synchronize the screen cursor to dot
-static char *begin_line(char *); // return pointer to cur line B-o-l
-static char *end_line(char *); // return pointer to cur line E-o-l
-static char *prev_line(char *); // return pointer to prev line B-o-l
-static char *next_line(char *); // return pointer to next line B-o-l
-static char *end_screen(void); // get pointer to last char on screen
-static int count_lines(char *, char *); // count line from start to stop
-static char *find_line(int); // find begining of line #li
-static char *move_to_col(char *, int); // move "p" to column l
-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 char *bound_dot(char *); // make sure text[0] <= P < "end"
-static char *new_screen(int, int); // malloc virtual screen memory
-static char *char_insert(char *, char); // insert the char c at 'p'
-// might reallocate text[]! use p += stupid_insert(p, ...),
-// and be careful to not use pointers into potentially freed text[]!
-static uintptr_t stupid_insert(char *, char); // stupidly insert the char c at 'p'
-static int find_range(char **, char **, char); // return pointers for an object
-static int st_test(char *, int, int, char *); // helper for skip_thing()
-static char *skip_thing(char *, int, int, int); // skip some object
-static char *find_pair(char *, char); // find matching pair () [] {}
-static char *text_hole_delete(char *, char *); // at "p", delete a 'size' byte hole
-// might reallocate text[]! use p += text_hole_make(p, ...),
-// and be careful to not use pointers into potentially freed text[]!
-static uintptr_t text_hole_make(char *, int); // at "p", make a 'size' byte hole
-static char *yank_delete(char *, char *, int, int); // yank text[] into register then delete
-static void show_help(void); // display some help info
-static void rawmode(void); // set "raw" mode on tty
-static void cookmode(void); // return to "cooked" mode on tty
-// sleep for 'h' 1/100 seconds, return 1/0 if stdin is (ready for read)/(not ready)
-static int mysleep(int);
-static int readit(void); // read (maybe cursor) key from stdin
-static int get_one_char(void); // read 1 char from stdin
-static int file_size(const char *); // what is the byte size of "fn"
-#if !ENABLE_FEATURE_VI_READONLY
-#define file_insert(fn, p, update_ro_status) file_insert(fn, p)
+#if ENABLE_FEATURE_VI_CRASHME
+static int crashme = 0;
#endif
-// file_insert might reallocate text[]!
-static int file_insert(const char *, char *, int);
-static int file_write(char *, char *, char *);
-static void place_cursor(int, int);
-static void screen_erase(void);
-static void clear_to_eol(void);
-static void clear_to_eos(void);
-static void go_bottom_and_clear_to_eol(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 show_status_line(void); // put a message on the bottom line
-static void status_line(const char *, ...); // print to status buf
static void status_line_bold(const char *, ...);
-static void not_implemented(const char *); // display "Not implemented" message
-static int format_edit_status(void); // format file status on status line
-static void redraw(int); // force a full screen refresh
-static char* format_line(char* /*, int*/);
-static void refresh(int); // update the terminal from screen[]
-
-static void Indicate_Error(void); // use flash or beep to indicate error
-#define indicate_error(c) Indicate_Error()
-static void Hit_Return(void);
+static void show_help(void)
+{
+ puts("These features are available:"
#if ENABLE_FEATURE_VI_SEARCH
-static char *char_search(char *, const char *, int, int); // search for pattern starting at p
-#endif
-#if ENABLE_FEATURE_VI_COLON
-static char *get_one_address(char *, int *); // get colon addr, if present
-static char *get_address(char *, int *, int *); // get two colon addrs, if present
-static void colon(char *); // execute the "colon" mode cmds
-#endif
-#if ENABLE_FEATURE_VI_USE_SIGNALS
-static void winch_sig(int); // catch window size changes
-static void suspend_sig(int); // catch ctrl-Z
-static void catch_sig(int); // catch ctrl-C and alarm time-outs
+ "\n\tPattern searches with / and ?"
#endif
#if ENABLE_FEATURE_VI_DOT_CMD
-static void start_new_cmd_q(char); // new queue for command
-static void end_cmd_q(void); // stop saving input chars
-#else
-#define end_cmd_q() ((void)0)
-#endif
-#if ENABLE_FEATURE_VI_SETOPTS
-static void showmatching(char *); // show the matching pair () [] {}
-#endif
-#if ENABLE_FEATURE_VI_YANKMARK || (ENABLE_FEATURE_VI_COLON && ENABLE_FEATURE_VI_SEARCH) || ENABLE_FEATURE_VI_CRASHME
-// might reallocate text[]! use p += string_insert(p, ...),
-// and be careful to not use pointers into potentially freed text[]!
-static uintptr_t string_insert(char *, const char *); // insert the string at 'p'
+ "\n\tLast command repeat with ."
#endif
#if ENABLE_FEATURE_VI_YANKMARK
-static char *text_yank(char *, char *, int); // save copy of "p" into a register
-static char what_reg(void); // what is letter of current YDreg
-static void check_context(char); // remember context for '' command
-#endif
-#if ENABLE_FEATURE_VI_CRASHME
-static void crash_dummy();
-static void crash_test();
-static int crashme = 0;
-#endif
-
-
-static void write1(const char *out)
-{
- fputs(out, stdout);
-}
-
-int vi_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
-int vi_main(int argc, char **argv)
-{
- int c;
-
- INIT_G();
-
-#if ENABLE_FEATURE_VI_USE_SIGNALS || ENABLE_FEATURE_VI_CRASHME
- my_pid = getpid();
-#endif
-#if ENABLE_FEATURE_VI_CRASHME
- srand((long) my_pid);
+ "\n\tLine marking with 'x"
+ "\n\tNamed buffers with \"x"
#endif
-#ifdef NO_SUCH_APPLET_YET
- /* If we aren't "vi", we are "view" */
- if (ENABLE_FEATURE_VI_READONLY && applet_name[2]) {
- SET_READONLY_MODE(readonly_mode);
- }
+#if ENABLE_FEATURE_VI_READONLY
+ //not implemented: "\n\tReadonly if vi is called as \"view\""
+ //redundant: usage text says this too: "\n\tReadonly with -R command line arg"
#endif
-
- // autoindent is not default in vim 7.3
- vi_setops = /*VI_AUTOINDENT |*/ VI_SHOWMATCH | VI_IGNORECASE;
- // 1- process $HOME/.exrc file (not inplemented yet)
- // 2- process EXINIT variable from environment
- // 3- process command line args
-#if ENABLE_FEATURE_VI_COLON
- {
- char *p = getenv("EXINIT");
- if (p && *p)
- initial_cmds[0] = xstrndup(p, MAX_INPUT_LEN);
- }
+#if ENABLE_FEATURE_VI_SET
+ "\n\tSome colon mode commands with :"
#endif
- while ((c = getopt(argc, argv, "hCRH" IF_FEATURE_VI_COLON("c:"))) != -1) {
- switch (c) {
-#if ENABLE_FEATURE_VI_CRASHME
- case 'C':
- crashme = 1;
- break;
+#if ENABLE_FEATURE_VI_SETOPTS
+ "\n\tSettable options with \":set\""
#endif
-#if ENABLE_FEATURE_VI_READONLY
- case 'R': // Read-only flag
- SET_READONLY_MODE(readonly_mode);
- break;
+#if ENABLE_FEATURE_VI_USE_SIGNALS
+ "\n\tSignal catching- ^C"
+ "\n\tJob suspend and resume with ^Z"
#endif
-#if ENABLE_FEATURE_VI_COLON
- case 'c': // cmd line vi command
- if (*optarg)
- initial_cmds[initial_cmds[0] != NULL] = xstrndup(optarg, MAX_INPUT_LEN);
- break;
+#if ENABLE_FEATURE_VI_WIN_RESIZE
+ "\n\tAdapt to window re-sizes"
#endif
- case 'H':
- show_help();
- /* fall through */
- default:
- bb_show_usage();
- return 1;
- }
- }
-
- // The argv array can be used by the ":next" and ":rewind" commands
- argv += optind;
- argc -= optind;
-
- //----- This is the main file handling loop --------------
- save_argc = argc;
- optind = 0;
- // "Save cursor, use alternate screen buffer, clear screen"
- write1("\033[?1049h");
- while (1) {
- edit_file(argv[optind]); /* param might be NULL */
- if (++optind >= argc)
- break;
- }
- // "Use normal screen buffer, restore cursor"
- write1("\033[?1049l");
- //-----------------------------------------------------------
-
- return 0;
+ );
}
-/* read text from file or create an empty buf */
-/* will also update current_filename */
-static int init_text_buffer(char *fn)
+static void write1(const char *out)
{
- int rc;
- int size = file_size(fn); // file size. -1 means does not exist.
-
- /* allocate/reallocate text buffer */
- free(text);
- text_size = size + 10240;
- screenbegin = dot = end = text = xzalloc(text_size);
-
- if (fn != current_filename) {
- free(current_filename);
- current_filename = xstrdup(fn);
- }
- if (size < 0) {
- // file dont exist. Start empty buf with dummy line
- char_insert(text, '\n');
- rc = 0;
- } else {
- rc = file_insert(fn, text, 1);
- }
- file_modified = 0;
- last_file_modified = -1;
-#if ENABLE_FEATURE_VI_YANKMARK
- /* init the marks. */
- memset(mark, 0, sizeof(mark));
-#endif
- return rc;
+ fputs(out, stdout);
}
#if ENABLE_FEATURE_VI_WIN_RESIZE
return err;
}
#else
-# define query_screen_dimensions() (0)
+static ALWAYS_INLINE int query_screen_dimensions(void)
+{
+ return 0;
+}
#endif
-static void edit_file(char *fn)
+// sleep for 'h' 1/100 seconds, return 1/0 if stdin is (ready for read)/(not ready)
+static int mysleep(int hund)
{
-#if ENABLE_FEATURE_VI_YANKMARK
-#define cur_line edit_file__cur_line
-#endif
- int c;
-#if ENABLE_FEATURE_VI_USE_SIGNALS
- int sig;
-#endif
+ struct pollfd pfd[1];
- editing = 1; // 0 = exit, 1 = one file, 2 = multiple files
- rawmode();
- rows = 24;
- columns = 80;
- IF_FEATURE_VI_ASK_TERMINAL(G.get_rowcol_error =) query_screen_dimensions();
-#if ENABLE_FEATURE_VI_ASK_TERMINAL
- if (G.get_rowcol_error /* TODO? && no input on stdin */) {
- uint64_t k;
- write1("\033[999;999H" "\033[6n");
+ if (hund != 0)
fflush_all();
- k = read_key(STDIN_FILENO, readbuffer, /*timeout_ms:*/ 100);
- if ((int32_t)k == KEYCODE_CURSOR_POS) {
- uint32_t rc = (k >> 32);
- columns = (rc & 0x7fff);
- if (columns > MAX_SCR_COLS)
- columns = MAX_SCR_COLS;
- rows = ((rc >> 16) & 0x7fff);
- if (rows > MAX_SCR_ROWS)
- rows = MAX_SCR_ROWS;
- }
- }
-#endif
- new_screen(rows, columns); // get memory for virtual screen
- init_text_buffer(fn);
-#if ENABLE_FEATURE_VI_YANKMARK
- YDreg = 26; // default Yank/Delete reg
- Ureg = 27; // hold orig line for "U" cmd
- mark[26] = mark[27] = text; // init "previous context"
-#endif
+ pfd[0].fd = STDIN_FILENO;
+ pfd[0].events = POLLIN;
+ return safe_poll(pfd, 1, hund*10) > 0;
+}
- last_forward_char = last_input_char = '\0';
- crow = 0;
- ccol = 0;
+//----- Set terminal attributes --------------------------------
+static void rawmode(void)
+{
+ // no TERMIOS_CLEAR_ISIG: leave ISIG on - allow signals
+ set_termios_to_raw(STDIN_FILENO, &term_orig, TERMIOS_RAW_CRNL);
+}
-#if ENABLE_FEATURE_VI_USE_SIGNALS
- signal(SIGINT, catch_sig);
- signal(SIGWINCH, winch_sig);
- signal(SIGTSTP, suspend_sig);
- sig = sigsetjmp(restart, 1);
- if (sig != 0) {
- screenbegin = dot = text;
- }
-#endif
+static void cookmode(void)
+{
+ fflush_all();
+ tcsetattr_stdin_TCSANOW(&term_orig);
+}
- cmd_mode = 0; // 0=command 1=insert 2='R'eplace
- cmdcnt = 0;
- tabstop = 8;
- offset = 0; // no horizontal offset
- c = '\0';
-#if ENABLE_FEATURE_VI_DOT_CMD
- free(ioq_start);
- ioq = ioq_start = NULL;
- lmc_len = 0;
- adding2q = 0;
-#endif
+//----- Terminal Drawing ---------------------------------------
+// The terminal is made up of 'rows' line of 'columns' columns.
+// classically 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
-#if ENABLE_FEATURE_VI_COLON
- {
- char *p, *q;
- int n = 0;
+//----- Move the cursor to row x col (count from 0, not 1) -------
+static void place_cursor(int row, int col)
+{
+ char cm1[sizeof(ESC_SET_CURSOR_POS) + sizeof(int)*3 * 2];
- while ((p = initial_cmds[n]) != NULL) {
- do {
- q = p;
- p = strchr(q, '\n');
- if (p)
- while (*p == '\n')
- *p++ = '\0';
- if (*q)
- colon(q);
- } while (p);
- free(initial_cmds[n]);
- initial_cmds[n] = NULL;
- n++;
- }
- }
-#endif
- redraw(FALSE); // dont force every col re-draw
- //------This is the main Vi cmd handling loop -----------------------
- while (editing > 0) {
-#if ENABLE_FEATURE_VI_CRASHME
- if (crashme > 0) {
- if ((end - text) > 1) {
- crash_dummy(); // generate a random command
- } else {
- crashme = 0;
- string_insert(text, "\n\n##### Ran out of text to work on. #####\n\n"); // insert the string
- dot = text;
- refresh(FALSE);
- }
- }
-#endif
- last_input_char = c = get_one_char(); // get a cmd from user
-#if ENABLE_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
-#if ENABLE_FEATURE_VI_DOT_CMD
- // These are commands that change text[].
- // Remember the input for the "." command
- if (!adding2q && ioq_start == NULL
- && cmd_mode == 0 // command mode
- && c > '\0' // exclude NUL and non-ASCII chars
- && c < 0x7f // (Unicode and such)
- && strchr(modifying_cmds, c)
- ) {
- start_new_cmd_q(c);
- }
-#endif
- do_cmd(c); // execute the user command
+ if (row < 0) row = 0;
+ if (row >= rows) row = rows - 1;
+ if (col < 0) col = 0;
+ if (col >= columns) col = columns - 1;
- // 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 (!readbuffer[0] && mysleep(0) == 0) {
- // no input pending - so update output
- refresh(FALSE);
- show_status_line();
- }
-#if ENABLE_FEATURE_VI_CRASHME
- if (crashme > 0)
- crash_test(); // test editor variables
-#endif
- }
- //-------------------------------------------------------------------
+ sprintf(cm1, ESC_SET_CURSOR_POS, row + 1, col + 1);
+ write1(cm1);
+}
- go_bottom_and_clear_to_eol();
- cookmode();
-#undef cur_line
+//----- Erase from cursor to end of line -----------------------
+static void clear_to_eol(void)
+{
+ write1(ESC_CLEAR2EOL);
}
-//----- The Colon commands -------------------------------------
-#if ENABLE_FEATURE_VI_COLON
-static char *get_one_address(char *p, int *addr) // get colon addr, if present
+static void go_bottom_and_clear_to_eol(void)
{
- int st;
- char *q;
- IF_FEATURE_VI_YANKMARK(char c;)
- IF_FEATURE_VI_SEARCH(char *pat;)
+ place_cursor(rows - 1, 0);
+ clear_to_eol();
+}
- *addr = -1; // assume no addr
- if (*p == '.') { // the current line
- p++;
- q = begin_line(dot);
- *addr = count_lines(text, q);
- }
-#if ENABLE_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[(unsigned char) c];
- if (q != NULL) { // is mark valid
- *addr = count_lines(text, q);
- }
- }
- }
-#endif
-#if ENABLE_FEATURE_VI_SEARCH
- else if (*p == '/') { // a search pattern
- q = strchrnul(++p, '/');
- pat = xstrndup(p, q - p); // save copy of pattern
- p = q;
- if (*p == '/')
- p++;
- q = char_search(dot, pat, FORWARD, FULL);
- if (q != NULL) {
- *addr = count_lines(text, q);
- }
- free(pat);
- }
-#endif
- 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(p, "%d%n", addr, &st);
- p += st;
- } else {
- // unrecognized address - assume -1
- *addr = -1;
- }
- return p;
+//----- Start standout mode ------------------------------------
+static void standout_start(void)
+{
+ write1(ESC_BOLD_TEXT);
}
-static char *get_address(char *p, int *b, int *e) // get two colon addrs, if present
+//----- End standout mode --------------------------------------
+static void standout_end(void)
{
- //----- get the address' i.e., 1,3 'a,'b -----
- // get FIRST addr, if present
- while (isblank(*p))
- p++; // skip over leading spaces
- if (*p == '%') { // alias for 1,$
- p++;
- *b = 1;
- *e = count_lines(text, end-1);
- goto ga0;
- }
- p = get_one_address(p, b);
- while (isblank(*p))
- p++;
- if (*p == ',') { // is there a address separator
- p++;
- while (isblank(*p))
- p++;
- // get SECOND addr, if present
- p = get_one_address(p, e);
+ write1(ESC_NORM_TEXT);
+}
+
+//----- Text Movement Routines ---------------------------------
+static char *begin_line(char *p) // return pointer to first char cur line
+{
+ if (p > text) {
+ p = memrchr(text, '\n', p - text);
+ if (!p)
+ return text;
+ return p + 1;
}
- ga0:
- while (isblank(*p))
- p++; // skip over trailing spaces
return p;
}
-#if ENABLE_FEATURE_VI_SET && ENABLE_FEATURE_VI_SETOPTS
-static void setops(const char *args, const char *opname, int flg_no,
- const char *short_opname, int opt)
+static char *end_line(char *p) // return pointer to NL of cur line
{
- const char *a = args + flg_no;
- int l = strlen(opname) - 1; /* opname have + ' ' */
-
- // maybe strncmp? we had tons of erroneous strncasecmp's...
- if (strncasecmp(a, opname, l) == 0
- || strncasecmp(a, short_opname, 2) == 0
- ) {
- if (flg_no)
- vi_setops &= ~opt;
- else
- vi_setops |= opt;
+ if (p < end - 1) {
+ p = memchr(p, '\n', end - p - 1);
+ if (!p)
+ return end - 1;
}
+ return p;
}
-#endif
-// buf must be no longer than MAX_INPUT_LEN!
-static void colon(char *buf)
+static char *dollar_line(char *p) // return pointer to just before NL line
{
- char c, *orig_buf, *buf1, *q, *r;
- char *fn, cmd[MAX_INPUT_LEN], args[MAX_INPUT_LEN];
- int i, l, li, ch, b, e;
- int useforce, forced = FALSE;
+ p = end_line(p);
+ // Try to stay off of the Newline
+ if (*p == '\n' && (p - begin_line(p)) > 0)
+ p--;
+ return p;
+}
- // :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"
- // :!<cmd> // run <cmd> then return
- //
+static char *prev_line(char *p) // return pointer first char prev line
+{
+ p = begin_line(p); // goto beginning of cur line
+ if (p > text && p[-1] == '\n')
+ p--; // step to prev line
+ p = begin_line(p); // goto beginning of prev line
+ return p;
+}
- if (!buf[0])
- goto ret;
- if (*buf == ':')
- buf++; // move past the ':'
+static char *next_line(char *p) // return pointer first char next line
+{
+ p = end_line(p);
+ if (p < end - 1 && *p == '\n')
+ p++; // step to next line
+ return p;
+}
- li = ch = i = 0;
- b = e = -1;
- q = text; // assume 1,$ for the range
- r = end - 1;
- li = count_lines(text, end - 1);
- fn = current_filename;
+//----- Text Information Routines ------------------------------
+static char *end_screen(void)
+{
+ char *q;
+ int cnt;
- // look for optional address(es) :. :1 :1,9 :'q,'a :%
- buf = get_address(buf, &b, &e);
+ // find new bottom line
+ q = screenbegin;
+ for (cnt = 0; cnt < rows - 2; cnt++)
+ q = next_line(q);
+ q = end_line(q);
+ return q;
+}
- // remember orig command line
- orig_buf = buf;
+// count line from start to stop
+static int count_lines(char *start, char *stop)
+{
+ char *q;
+ int cnt;
- // get the COMMAND into cmd[]
- buf1 = cmd;
- while (*buf != '\0') {
- if (isspace(*buf))
- break;
- *buf1++ = *buf++;
- }
- *buf1 = '\0';
- // get any ARGuments
- while (isblank(*buf))
- buf++;
- strcpy(args, buf);
- useforce = FALSE;
- buf1 = last_char_is(cmd, '!');
- if (buf1) {
- useforce = TRUE;
- *buf1 = '\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;
+ if (stop < start) { // start and stop are backwards- reverse them
+ q = start;
+ start = stop;
+ stop = q;
}
- // ------------ now look for the command ------------
- i = strlen(cmd);
- if (i == 0) { // :123CR goto line #123
- if (b >= 0) {
- dot = find_line(b); // what line is #b
- dot_skip_over_ws();
- }
+ cnt = 0;
+ stop = end_line(stop);
+ while (start <= stop && start <= end - 1) {
+ start = end_line(start);
+ if (*start == '\n')
+ cnt++;
+ start++;
}
-#if ENABLE_FEATURE_ALLOW_EXEC
- else if (cmd[0] == '!') { // run a cmd
- int retcode;
- // :!ls run the <cmd>
- go_bottom_and_clear_to_eol();
- cookmode();
- retcode = system(orig_buf + 1); // run the cmd
- if (retcode)
- printf("\nshell returned %i\n\n", retcode);
- rawmode();
- Hit_Return(); // let user see results
+ return cnt;
+}
+
+static char *find_line(int li) // find beginning of line #li
+{
+ char *q;
+
+ for (q = text; li > 1; li--) {
+ q = next_line(q);
}
-#endif
- else if (cmd[0] == '=' && !cmd[1]) { // where is the address
- if (b < 0) { // no addr given- use defaults
- b = e = count_lines(text, dot);
- }
- status_line("%d", b);
- } else if (strncmp(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 (strncmp(cmd, "edit", i) == 0) { // Edit a file
- // don't edit, if the current file has been modified
- if (file_modified && !useforce) {
- status_line_bold("No write since last change (:%s! overrides)", cmd);
- goto ret;
- }
- if (args[0]) {
- // the user supplied a file name
- fn = args;
- } else if (current_filename && current_filename[0]) {
- // no user supplied name- use the current filename
- // fn = current_filename; was set by default
- } else {
- // no user file name, no current name- punt
- status_line_bold("No current filename");
- goto ret;
- }
+ return q;
+}
- if (init_text_buffer(fn) < 0)
- goto ret;
+static int next_tabstop(int col)
+{
+ return col + ((tabstop - 1) - (col % tabstop));
+}
-#if ENABLE_FEATURE_VI_YANKMARK
- if (Ureg >= 0 && Ureg < 28) {
- free(reg[Ureg]); // free orig line reg- for 'U'
- reg[Ureg] = NULL;
- }
- if (YDreg >= 0 && YDreg < 28) {
- free(reg[YDreg]); // free default yank/delete register
- reg[YDreg] = NULL;
- }
-#endif
- // how many lines in text[]?
- li = count_lines(text, end - 1);
- status_line("\"%s\"%s"
- IF_FEATURE_VI_READONLY("%s")
- " %dL, %dC", current_filename,
- (file_size(fn) < 0 ? " [New file]" : ""),
- IF_FEATURE_VI_READONLY(
- ((readonly_mode) ? " [Readonly]" : ""),
- )
- li, ch);
- } else if (strncmp(cmd, "file", i) == 0) { // what File is this
- if (b != -1 || e != -1) {
- status_line_bold("No address allowed on this command");
- goto ret;
- }
- if (args[0]) {
- // user wants a new filename
- free(current_filename);
- current_filename = xstrdup(args);
- } else {
- // user wants file status info
- last_status_cksum = 0; // force status update
- }
- } else if (strncmp(cmd, "features", i) == 0) { // what features are available
- // print out values of all features
- go_bottom_and_clear_to_eol();
- cookmode();
- show_help();
- rawmode();
- Hit_Return();
- } else if (strncmp(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);
- }
- go_bottom_and_clear_to_eol();
- puts("\r");
- for (; q <= r; q++) {
- int c_is_no_print;
+//----- Erase the Screen[] memory ------------------------------
+static void screen_erase(void)
+{
+ memset(screen, ' ', screensize); // clear new screen
+}
- c = *q;
- c_is_no_print = (c & 0x80) && !Isprint(c);
- if (c_is_no_print) {
- c = '.';
- standout_start();
- }
- if (c == '\n') {
- write1("$\r");
- } else if (c < ' ' || c == 127) {
- bb_putchar('^');
- if (c == 127)
- c = '?';
- else
- c += '@';
+//----- Synchronize the cursor to Dot --------------------------
+static NOINLINE void sync_cursor(char *d, int *row, int *col)
+{
+ char *beg_cur; // begin and end of "d" line
+ char *tp;
+ int cnt, ro, co;
+
+ beg_cur = begin_line(d); // first char of cur line
+
+ 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);
}
- bb_putchar(c);
- if (c_is_no_print)
- standout_end();
}
- Hit_Return();
- } else if (strncmp(cmd, "quit", i) == 0 // quit
- || strncmp(cmd, "next", i) == 0 // edit next file
- || strncmp(cmd, "prev", i) == 0 // edit previous file
- ) {
- int n;
- if (useforce) {
- if (*cmd == 'q') {
- // force end of argv list
- optind = save_argc;
+ } else {
+ char *end_scr; // begin and end of screen
+ end_scr = end_screen(); // last char of screen
+ 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);
}
- editing = 0;
- goto ret;
- }
- // don't exit if the file been modified
- if (file_modified) {
- status_line_bold("No write since last change (:%s! overrides)", cmd);
- goto ret;
- }
- // are there other file to edit
- n = save_argc - optind - 1;
- if (*cmd == 'q' && n > 0) {
- status_line_bold("%d more file(s) to edit", n);
- goto ret;
- }
- if (*cmd == 'n' && n <= 0) {
- status_line_bold("No more files to edit");
- goto ret;
}
- if (*cmd == 'p') {
- // are there previous files to edit
- if (optind < 1) {
- status_line_bold("No previous files to edit");
- goto ret;
+ }
+ // "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;
+ while (tp < d) { // drive "co" to correct column
+ if (*tp == '\n') //vda || *tp == '\0')
+ break;
+ if (*tp == '\t') {
+ // handle tabs like real vi
+ if (d == tp && cmd_mode) {
+ break;
}
- optind -= 2;
+ co = next_tabstop(co);
+ } else if ((unsigned char)*tp < ' ' || *tp == 0x7f) {
+ co++; // display as ^X, use 2 columns
}
- editing = 0;
- } else if (strncmp(cmd, "read", i) == 0) { // read file into text[]
- fn = args;
- if (!fn[0]) {
- status_line_bold("No filename given");
- goto ret;
+ co++;
+ tp++;
+ }
+
+ // "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;
+}
+
+//----- Format a text[] line into a buffer ---------------------
+static char* format_line(char *src /*, int li*/)
+{
+ unsigned char c;
+ int co;
+ int ofs = offset;
+ char *dest = scr_out_buf; // [MAX_SCR_COLS + MAX_TABSTOP * 2]
+
+ c = '~'; // char in col 0 in non-existent lines is '~'
+ co = 0;
+ while (co < columns + tabstop) {
+ // have we gone past the end?
+ if (src < end) {
+ c = *src++;
+ if (c == '\n')
+ break;
+ if ((c & 0x80) && !Isprint(c)) {
+ c = '.';
+ }
+ if (c < ' ' || c == 0x7f) {
+ if (c == '\t') {
+ c = ' ';
+ // co % 8 != 7
+ while ((co % tabstop) != (tabstop - 1)) {
+ dest[co++] = c;
+ }
+ } else {
+ dest[co++] = '^';
+ if (c == 0x7f)
+ c = '?';
+ else
+ c += '@'; // Ctrl-X -> 'X'
+ }
+ }
}
- if (b < 0) { // no addr given- use defaults
- q = begin_line(dot); // assume "dot"
+ dest[co++] = c;
+ // discard scrolled-off-to-the-left portion,
+ // in tabstop-sized pieces
+ if (ofs >= tabstop && co >= tabstop) {
+ memmove(dest, dest + tabstop, co);
+ co -= tabstop;
+ ofs -= tabstop;
}
- // read after current line- unless user said ":0r foo"
- if (b != 0)
- q = next_line(q);
- { // dance around potentially-reallocated text[]
- uintptr_t ofs = q - text;
- ch = file_insert(fn, q, 0);
- q = text + ofs;
+ if (src >= end)
+ break;
+ }
+ // check "short line, gigantic offset" case
+ if (co < ofs)
+ ofs = co;
+ // discard last scrolled off part
+ co -= ofs;
+ dest += ofs;
+ // fill the rest with spaces
+ if (co < columns)
+ memset(&dest[co], ' ', columns - co);
+ return dest;
+}
+
+//----- 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)
+{
+#define old_offset refresh__old_offset
+
+ int li, changed;
+ char *tp, *sp; // pointer into text[] and screen[]
+
+ if (ENABLE_FEATURE_VI_WIN_RESIZE IF_FEATURE_VI_ASK_TERMINAL(&& !G.get_rowcol_error) ) {
+ unsigned c = columns, r = rows;
+ query_screen_dimensions();
+#if ENABLE_FEATURE_VI_USE_SIGNALS
+ full_screen |= (c - columns) | (r - rows);
+#else
+ if (c != columns || r != rows) {
+ full_screen = TRUE;
+ // update screen memory since SIGWINCH won't have done it
+ new_screen(rows, columns);
}
- if (ch < 0)
- goto ret; // nothing was inserted
- // how many lines in text[]?
- li = count_lines(q, q + ch - 1);
- status_line("\"%s\""
- IF_FEATURE_VI_READONLY("%s")
- " %dL, %dC", fn,
- IF_FEATURE_VI_READONLY((readonly_mode ? " [Readonly]" : ""),)
- li, ch);
- if (ch > 0) {
- // if the insert is before "dot" then we need to update
- if (q <= dot)
- dot += ch;
- /*file_modified++; - done by file_insert */
+#endif
+ }
+ sync_cursor(dot, &crow, &ccol); // where cursor will be (on "dot")
+ 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++) {
+ int cs, ce; // column start & end
+ char *out_buf;
+ // format current text line
+ out_buf = format_line(tp /*, li*/);
+
+ // skip to the end of the current text[] line
+ if (tp < end) {
+ char *t = memchr(tp, '\n', end - tp);
+ if (!t) t = end - 1;
+ tp = t + 1;
}
- } else if (strncmp(cmd, "rewind", i) == 0) { // rewind cmd line args
- if (file_modified && !useforce) {
- status_line_bold("No write since last change (:%s! overrides)", cmd);
- } else {
- // reset the filenames to edit
- optind = -1; /* start from 0th file */
- editing = 0;
+
+ // see if there are any changes between virtual screen and out_buf
+ changed = FALSE; // assume no change
+ cs = 0;
+ ce = columns - 1;
+ sp = &screen[li * columns]; // start of screen line
+ if (full_screen) {
+ // force re-draw of every single column from 0 - columns-1
+ goto re0;
}
-#if ENABLE_FEATURE_VI_SET
- } else if (strncmp(cmd, "set", i) == 0) { // set or clear features
-#if ENABLE_FEATURE_VI_SETOPTS
- char *argp;
-#endif
- i = 0; // offset into args
- // only blank is regarded as args delimiter. What about tab '\t'?
- if (!args[0] || strcasecmp(args, "all") == 0) {
- // print out values of all options
-#if ENABLE_FEATURE_VI_SETOPTS
- status_line_bold(
- "%sautoindent "
- "%sflash "
- "%signorecase "
- "%sshowmatch "
- "tabstop=%u",
- autoindent ? "" : "no",
- err_method ? "" : "no",
- ignorecase ? "" : "no",
- showmatch ? "" : "no",
- tabstop
- );
-#endif
- goto ret;
+ // compare newly formatted buffer with virtual screen
+ // look forward for first difference between buf and screen
+ for (; cs <= ce; cs++) {
+ if (out_buf[cs] != sp[cs]) {
+ changed = TRUE; // mark for redraw
+ break;
+ }
}
-#if ENABLE_FEATURE_VI_SETOPTS
- argp = args;
- while (*argp) {
- if (strncmp(argp, "no", 2) == 0)
- i = 2; // ":set noautoindent"
- setops(argp, "autoindent ", i, "ai", VI_AUTOINDENT);
- setops(argp, "flash " , i, "fl", VI_ERR_METHOD);
- setops(argp, "ignorecase ", i, "ic", VI_IGNORECASE);
- setops(argp, "showmatch " , i, "sm", VI_SHOWMATCH );
- if (strncmp(argp + i, "tabstop=", 8) == 0) {
- int t = 0;
- sscanf(argp + i+8, "%u", &t);
- if (t > 0 && t <= MAX_TABSTOP)
- tabstop = t;
+
+ // look backward for last difference between out_buf and screen
+ for (; ce >= cs; ce--) {
+ if (out_buf[ce] != sp[ce]) {
+ changed = TRUE; // mark for redraw
+ break;
}
- argp = skip_non_whitespace(argp);
- argp = skip_whitespace(argp);
}
-#endif /* FEATURE_VI_SETOPTS */
-#endif /* FEATURE_VI_SET */
-#if ENABLE_FEATURE_VI_SEARCH
- } else if (cmd[0] == 's') { // substitute a pattern with a replacement pattern
- char *F, *R, *flags;
- size_t len_F, len_R;
- int gflag; // global replace flag
+ // now, cs is index of first diff, and ce is index of last diff
- // F points to the "find" pattern
- // R points to the "replace" pattern
- // replace the cmd line delimiters "/" with NULs
- c = orig_buf[1]; // what is the delimiter
- F = orig_buf + 2; // start of "find"
- R = strchr(F, c); // middle delimiter
- if (!R)
- goto colon_s_fail;
- len_F = R - F;
- *R++ = '\0'; // terminate "find"
- flags = strchr(R, c);
- if (!flags)
- goto colon_s_fail;
- len_R = flags - R;
- *flags++ = '\0'; // terminate "replace"
- gflag = *flags;
+ // if horz offset has changed, force a redraw
+ if (offset != old_offset) {
+ re0:
+ changed = TRUE;
+ }
- 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
+ // make a sanity check of columns indexes
+ if (cs < 0) cs = 0;
+ if (ce > columns - 1) ce = columns - 1;
+ if (cs > ce) { cs = 0; ce = columns - 1; }
+ // is there a change between virtual screen and out_buf
+ if (changed) {
+ // copy changed part of buffer to virtual screen
+ memcpy(sp+cs, out_buf+cs, ce-cs+1);
+ place_cursor(li, cs);
+ // write line out to terminal
+ fwrite(&sp[cs], ce - cs + 1, 1, stdout);
}
- if (e < 0)
- e = b; // maybe :.s/foo/bar/
+ }
- for (i = b; i <= e; i++) { // so, :20,23 s \0 find \0 replace \0
- char *ls = q; // orig line start
- char *found;
- vc4:
- found = char_search(q, F, FORWARD, LIMITED); // search cur line only for "find"
- if (found) {
- uintptr_t bias;
- // we found the "find" pattern - delete it
- text_hole_delete(found, found + len_F - 1);
- // inset the "replace" patern
- bias = string_insert(found, R); // insert the string
- found += bias;
- ls += bias;
- /*q += bias; - recalculated anyway */
- // check for "global" :s/foo/bar/g
- if (gflag == 'g') {
- if ((found + len_R) < end_line(ls)) {
- q = found + len_R;
- goto vc4; // don't let q move past cur line
- }
- }
- }
- q = next_line(ls);
- }
-#endif /* FEATURE_VI_SEARCH */
- } else if (strncmp(cmd, "version", i) == 0) { // show software version
- status_line(BB_VER " " BB_BT);
- } else if (strncmp(cmd, "write", i) == 0 // write text to file
- || strncmp(cmd, "wq", i) == 0
- || strncmp(cmd, "wn", i) == 0
- || (cmd[0] == 'x' && !cmd[1])
- ) {
- // is there a file name to write to?
- if (args[0]) {
- fn = args;
- }
-#if ENABLE_FEATURE_VI_READONLY
- if (readonly_mode && !useforce) {
- status_line_bold("\"%s\" File is read only", fn);
- goto ret;
- }
+ place_cursor(crow, ccol);
+
+ old_offset = offset;
+#undef old_offset
+}
+
+//----- Force refresh of all Lines -----------------------------
+static void redraw(int full_screen)
+{
+ // cursor to top,left; clear to the end of screen
+ write1(ESC_SET_CURSOR_TOPLEFT ESC_CLEAR2EOS);
+ screen_erase(); // erase the internal screen buffer
+ last_status_cksum = 0; // force status update
+ refresh(full_screen); // this will redraw the entire display
+ show_status_line();
+}
+
+//----- Flash the screen --------------------------------------
+static void flash(int h)
+{
+ standout_start();
+ redraw(TRUE);
+ mysleep(h);
+ standout_end();
+ redraw(TRUE);
+}
+
+static void indicate_error(void)
+{
+#if ENABLE_FEATURE_VI_CRASHME
+ if (crashme > 0)
+ return;
#endif
- // how many lines in text[]?
- li = count_lines(q, r);
- ch = r - q + 1;
- // see if file exists- if not, its just a new file request
- if (useforce) {
- // 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 && forced) {
- // chmod u-w
- // sprintf(syscmd, "chmod u-w %s", fn);
- // system(syscmd);
- forced = FALSE;
- }
- if (l < 0) {
- if (l == -1)
- status_line_bold("\"%s\" %s", fn, strerror(errno));
- } else {
- status_line("\"%s\" %dL, %dC", fn, li, l);
- if (q == text && r == end - 1 && l == ch) {
- file_modified = 0;
- last_file_modified = -1;
- }
- if ((cmd[0] == 'x' || cmd[1] == 'q' || cmd[1] == 'n'
- || cmd[0] == 'X' || cmd[1] == 'Q' || cmd[1] == 'N'
- )
- && l == ch
- ) {
- editing = 0;
- }
- }
-#if ENABLE_FEATURE_VI_YANKMARK
- } else if (strncmp(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);
+ if (!err_method) {
+ write1(ESC_BELL);
+ } else {
+ flash(10);
+ }
+}
+
+//----- IO Routines --------------------------------------------
+static int readit(void) // read (maybe cursor) key from stdin
+{
+ int c;
+
+ fflush_all();
+
+ // Wait for input. TIMEOUT = -1 makes read_key wait even
+ // on nonblocking stdin.
+ // Note: read_key sets errno to 0 on success.
+ again:
+ c = read_key(STDIN_FILENO, readbuffer, /*timeout:*/ -1);
+ if (c == -1) { // EOF/error
+ if (errno == EAGAIN) // paranoia
+ goto again;
+ go_bottom_and_clear_to_eol();
+ cookmode(); // terminal to "cooked"
+ bb_error_msg_and_die("can't read user input");
+ }
+ return c;
+}
+
+#if ENABLE_FEATURE_VI_DOT_CMD
+static int get_one_char(void)
+{
+ int c;
+
+ if (!adding2q) {
+ // we are not adding to the q.
+ // but, we may be reading from a saved q.
+ // (checking "ioq" for NULL is wrong, it's not reset to NULL
+ // when done - "ioq_start" is reset instead).
+ if (ioq_start != NULL) {
+ // there is a queue to get chars from.
+ // careful with correct sign expansion!
+ c = (unsigned char)*ioq++;
+ if (c != '\0')
+ return c;
+ // the end of the q
+ free(ioq_start);
+ ioq_start = NULL;
+ // read from STDIN:
}
- text_yank(q, r, YDreg);
- li = count_lines(q, r);
- status_line("Yank %d lines (%d chars) into [%c]",
- li, strlen(reg[YDreg]), what_reg());
-#endif
+ return readit();
+ }
+ // we are adding STDIN chars to q.
+ c = readit();
+ if (lmc_len >= MAX_INPUT_LEN - 1) {
+ status_line_bold("last_modifying_cmd overrun");
} else {
- // cmd unknown
- not_implemented(cmd);
+ last_modifying_cmd[lmc_len++] = c;
}
- ret:
- dot = bound_dot(dot); // make sure "dot" is valid
- return;
-#if ENABLE_FEATURE_VI_SEARCH
- colon_s_fail:
- status_line(":s expression missing delimiters");
-#endif
+ return c;
}
+#else
+# define get_one_char() readit()
+#endif
-#endif /* FEATURE_VI_COLON */
+// Get input line (uses "status line" area)
+static char *get_input_line(const char *prompt)
+{
+ // char [MAX_INPUT_LEN]
+#define buf get_input_line__buf
+
+ int c;
+ int i;
+
+ strcpy(buf, prompt);
+ last_status_cksum = 0; // force status update
+ go_bottom_and_clear_to_eol();
+ write1(prompt); // write out the :, /, or ? prompt
+
+ i = strlen(buf);
+ while (i < MAX_INPUT_LEN) {
+ c = get_one_char();
+ if (c == '\n' || c == '\r' || c == 27)
+ break; // this is end of input
+ if (c == term_orig.c_cc[VERASE] || c == 8 || c == 127) {
+ // user wants to erase prev char
+ buf[--i] = '\0';
+ write1("\b \b"); // erase char on screen
+ if (i <= 0) // user backs up before b-o-l, exit
+ break;
+ } else if (c > 0 && c < 256) { // exclude Unicode
+ // (TODO: need to handle Unicode)
+ buf[i] = c;
+ buf[++i] = '\0';
+ bb_putchar(c);
+ }
+ }
+ refresh(FALSE);
+ return buf;
+#undef buf
+}
static void Hit_Return(void)
{
redraw(TRUE); // force redraw all
}
-static int next_tabstop(int col)
+//----- Draw the status line at bottom of the screen -------------
+// show file status on status line
+static int format_edit_status(void)
{
- return col + ((tabstop - 1) - (col % tabstop));
-}
+ static const char cmd_mode_indicator[] ALIGN1 = "-IR-";
-//----- Synchronize the cursor to Dot --------------------------
-static NOINLINE void sync_cursor(char *d, int *row, int *col)
-{
- char *beg_cur; // begin and end of "d" line
- char *tp;
- int cnt, ro, co;
+#define tot format_edit_status__tot
- beg_cur = begin_line(d); // first char of cur line
+ int cur, percent, ret, trunc_at;
- 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 {
- char *end_scr; // begin and end of screen
- end_scr = end_screen(); // last char of screen
- 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);
+ // modified_count is now a counter rather than a flag. this
+ // helps reduce the amount of line counting we need to do.
+ // (this will cause a mis-reporting of modified status
+ // once every MAXINT editing operations.)
+
+ // it would be nice to do a similar optimization here -- if
+ // we haven't done a motion that could have changed which line
+ // we're on, then we shouldn't have to do this count_lines()
+ cur = count_lines(text, dot);
+
+ // count_lines() is expensive.
+ // Call it only if something was changed since last time
+ // we were here:
+ if (modified_count != last_modified_count) {
+ tot = cur + count_lines(dot, end - 1) - 1;
+ last_modified_count = modified_count;
}
- // find out what col "d" is on
- co = 0;
- while (tp < d) { // drive "co" to correct column
- if (*tp == '\n') //vda || *tp == '\0')
- break;
- if (*tp == '\t') {
- // handle tabs like real vi
- if (d == tp && cmd_mode) {
- break;
- }
- co = next_tabstop(co);
- } else if ((unsigned char)*tp < ' ' || *tp == 0x7f) {
- co++; // display as ^X, use 2 columns
- }
- co++;
- tp++;
+ // current line percent
+ // ------------- ~~ ----------
+ // total lines 100
+ if (tot > 0) {
+ percent = (100 * cur) / tot;
+ } else {
+ cur = tot = 0;
+ percent = 100;
}
- // "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.
+ trunc_at = columns < STATUS_BUFFER_LEN-1 ?
+ columns : STATUS_BUFFER_LEN-1;
- 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;
+ ret = snprintf(status_buffer, trunc_at+1,
+#if ENABLE_FEATURE_VI_READONLY
+ "%c %s%s%s %d/%d %d%%",
+#else
+ "%c %s%s %d/%d %d%%",
+#endif
+ cmd_mode_indicator[cmd_mode & 3],
+ (current_filename != NULL ? current_filename : "No file"),
+#if ENABLE_FEATURE_VI_READONLY
+ (readonly_mode ? " [Readonly]" : ""),
+#endif
+ (modified_count ? " [Modified]" : ""),
+ cur, tot, percent);
- *row = ro;
- *col = co;
+ if (ret >= 0 && ret < trunc_at)
+ return ret; // it all fit
+
+ return trunc_at; // had to truncate
+#undef tot
}
-//----- Text Movement Routines ---------------------------------
-static char *begin_line(char *p) // return pointer to first char cur line
+static int bufsum(char *buf, int count)
{
- if (p > text) {
- p = memrchr(text, '\n', p - text);
- if (!p)
- return text;
- return p + 1;
- }
- return p;
+ int sum = 0;
+ char *e = buf + count;
+ while (buf < e)
+ sum += (unsigned char) *buf++;
+ return sum;
}
-static char *end_line(char *p) // return pointer to NL of cur line
+static void show_status_line(void)
{
- if (p < end - 1) {
- p = memchr(p, '\n', end - p - 1);
- if (!p)
- return end - 1;
+ int cnt = 0, cksum = 0;
+
+ // either we already have an error or status message, or we
+ // create one.
+ if (!have_status_msg) {
+ cnt = format_edit_status();
+ cksum = bufsum(status_buffer, cnt);
}
- return p;
+ if (have_status_msg || ((cnt > 0 && last_status_cksum != cksum))) {
+ last_status_cksum = cksum; // remember if we have seen this line
+ go_bottom_and_clear_to_eol();
+ write1(status_buffer);
+ if (have_status_msg) {
+ if (((int)strlen(status_buffer) - (have_status_msg - 1)) >
+ (columns - 1) ) {
+ have_status_msg = 0;
+ Hit_Return();
+ }
+ have_status_msg = 0;
+ }
+ place_cursor(crow, ccol); // put cursor back in correct place
+ }
+ fflush_all();
}
-static char *dollar_line(char *p) // return pointer to just before NL line
+//----- format the status buffer, the bottom line of screen ------
+static void status_line(const char *format, ...)
{
- p = end_line(p);
- // Try to stay off of the Newline
- if (*p == '\n' && (p - begin_line(p)) > 0)
- p--;
- return p;
-}
+ va_list args;
-static char *prev_line(char *p) // return pointer first char prev line
-{
- p = begin_line(p); // goto begining of cur line
- if (p > text && p[-1] == '\n')
- p--; // step to prev line
- p = begin_line(p); // goto begining of prev line
- return p;
-}
+ va_start(args, format);
+ vsnprintf(status_buffer, STATUS_BUFFER_LEN, format, args);
+ va_end(args);
-static char *next_line(char *p) // return pointer first char next line
-{
- p = end_line(p);
- if (p < end - 1 && *p == '\n')
- p++; // step to next line
- return p;
+ have_status_msg = 1;
}
-
-//----- Text Information Routines ------------------------------
-static char *end_screen(void)
+static void status_line_bold(const char *format, ...)
{
- char *q;
- int cnt;
+ va_list args;
- // find new bottom line
- q = screenbegin;
- for (cnt = 0; cnt < rows - 2; cnt++)
- q = next_line(q);
- q = end_line(q);
- return q;
-}
+ va_start(args, format);
+ strcpy(status_buffer, ESC_BOLD_TEXT);
+ vsnprintf(status_buffer + (sizeof(ESC_BOLD_TEXT)-1),
+ STATUS_BUFFER_LEN - sizeof(ESC_BOLD_TEXT) - sizeof(ESC_NORM_TEXT),
+ format, args
+ );
+ strcat(status_buffer, ESC_NORM_TEXT);
+ va_end(args);
-// count line from start to stop
-static int count_lines(char *start, char *stop)
+ have_status_msg = 1 + (sizeof(ESC_BOLD_TEXT)-1) + (sizeof(ESC_NORM_TEXT)-1);
+}
+static void status_line_bold_errno(const char *fn)
{
- char *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);
- while (start <= stop && start <= end - 1) {
- start = end_line(start);
- if (*start == '\n')
- cnt++;
- start++;
- }
- return cnt;
+ status_line_bold("'%s' "STRERROR_FMT, fn STRERROR_ERRNO);
}
-static char *find_line(int li) // find begining of line #li
+// copy s to buf, convert unprintable
+static void print_literal(char *buf, const char *s)
{
- char *q;
+ char *d;
+ unsigned char c;
- for (q = text; li > 1; li--) {
- q = next_line(q);
+ buf[0] = '\0';
+ if (!s[0])
+ s = "(NULL)";
+
+ d = buf;
+ for (; *s; s++) {
+ int c_is_no_print;
+
+ c = *s;
+ c_is_no_print = (c & 0x80) && !Isprint(c);
+ if (c_is_no_print) {
+ strcpy(d, ESC_NORM_TEXT);
+ d += sizeof(ESC_NORM_TEXT)-1;
+ c = '.';
+ }
+ if (c < ' ' || c == 0x7f) {
+ *d++ = '^';
+ c |= '@'; // 0x40
+ if (c == 0x7f)
+ c = '?';
+ }
+ *d++ = c;
+ *d = '\0';
+ if (c_is_no_print) {
+ strcpy(d, ESC_BOLD_TEXT);
+ d += sizeof(ESC_BOLD_TEXT)-1;
+ }
+ if (*s == '\n') {
+ *d++ = '$';
+ *d = '\0';
+ }
+ if (d - buf > MAX_INPUT_LEN - 10) // paranoia
+ break;
}
- return q;
}
-
-//----- Dot Movement Routines ----------------------------------
-static void dot_left(void)
+static void not_implemented(const char *s)
{
- if (dot > text && dot[-1] != '\n')
- dot--;
+ char buf[MAX_INPUT_LEN];
+ print_literal(buf, s);
+ status_line_bold("'%s' is not implemented", buf);
}
-static void dot_right(void)
+//----- Block insert/delete, undo ops --------------------------
+#if ENABLE_FEATURE_VI_YANKMARK
+static char *text_yank(char *p, char *q, int dest) // copy text into a register
{
- if (dot < end - 1 && *dot != '\n')
- dot++;
+ int cnt = q - p;
+ if (cnt < 0) { // they are backwards- reverse them
+ p = q;
+ cnt = -cnt;
+ }
+ free(reg[dest]); // if already a yank register, free it
+ reg[dest] = xstrndup(p, cnt + 1);
+ return p;
}
-static void dot_begin(void)
+static char what_reg(void)
{
- dot = begin_line(dot); // return pointer to first char cur line
-}
+ char c;
-static void dot_end(void)
-{
- dot = end_line(dot); // return pointer to last char cur line
+ c = 'D'; // default to D-reg
+ if (0 <= YDreg && YDreg <= 25)
+ c = 'a' + (char) YDreg;
+ if (YDreg == 26)
+ c = 'D';
+ if (YDreg == 27)
+ c = 'U';
+ return c;
}
-static char *move_to_col(char *p, int l)
+static void check_context(char cmd)
{
- int co;
+ // A context is defined to be "modifying text"
+ // Any modifying command establishes a new context.
- p = begin_line(p);
- co = 0;
- while (co < l && p < end) {
- if (*p == '\n') //vda || *p == '\0')
- break;
- if (*p == '\t') {
- co = next_tabstop(co);
- } else if (*p < ' ' || *p == 127) {
- co++; // display as ^X, use 2 columns
+ if (dot < context_start || dot > context_end) {
+ if (strchr(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;
}
- co++;
- p++;
}
- return p;
}
-static void dot_next(void)
+static char *swap_context(char *p) // goto new context for '' command make this the current context
{
- dot = next_line(dot);
-}
+ char *tmp;
-static void dot_prev(void)
-{
- dot = prev_line(dot);
+ // 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] = p;
+ mark[26] = p = tmp;
+ context_start = prev_line(prev_line(prev_line(p)));
+ context_end = next_line(next_line(next_line(p)));
+ }
+ return p;
}
+#endif /* FEATURE_VI_YANKMARK */
-static void dot_scroll(int cnt, int dir)
+#if ENABLE_FEATURE_VI_UNDO
+static void undo_push(char *, unsigned, unsigned char);
+#endif
+
+// open a hole in text[]
+// might reallocate text[]! use p += text_hole_make(p, ...),
+// and be careful to not use pointers into potentially freed text[]!
+static uintptr_t text_hole_make(char *p, int size) // at "p", make a 'size' byte hole
{
- char *q;
+ uintptr_t bias = 0;
- 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);
+ if (size <= 0)
+ return bias;
+ end += size; // adjust the new END
+ if (end >= (text + text_size)) {
+ char *new_text;
+ text_size += end - (text + text_size) + 10240;
+ new_text = xrealloc(text, text_size);
+ bias = (new_text - text);
+ screenbegin += bias;
+ dot += bias;
+ end += bias;
+ p += bias;
+#if ENABLE_FEATURE_VI_YANKMARK
+ {
+ int i;
+ for (i = 0; i < ARRAY_SIZE(mark); i++)
+ if (mark[i])
+ mark[i] += bias;
}
+#endif
+ text = new_text;
}
- // 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++;
+ memmove(p + size, p, end - size - p);
+ memset(p, ' ', size); // clear new hole
+ return bias;
}
-static void dot_delete(void) // delete the char at 'dot'
+// close a hole in text[] - delete "p" through "q", inclusive
+// "undo" value indicates if this operation should be undo-able
+#if !ENABLE_FEATURE_VI_UNDO
+#define text_hole_delete(a,b,c) text_hole_delete(a,b)
+#endif
+static char *text_hole_delete(char *p, char *q, int undo)
{
- text_hole_delete(dot, dot);
-}
+ char *src, *dest;
+ int cnt, hole_size;
-static char *bound_dot(char *p) // make sure text[0] <= P < "end"
-{
- if (p >= end && end > text) {
- p = end - 1;
- indicate_error('1');
+ // 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;
}
- if (p < text) {
- p = text;
- indicate_error('2');
+ hole_size = q - p + 1;
+ cnt = end - src;
+#if ENABLE_FEATURE_VI_UNDO
+ switch (undo) {
+ case NO_UNDO:
+ break;
+ case ALLOW_UNDO:
+ undo_push(p, hole_size, UNDO_DEL);
+ break;
+ case ALLOW_UNDO_CHAIN:
+ undo_push(p, hole_size, UNDO_DEL_CHAIN);
+ break;
+# if ENABLE_FEATURE_VI_UNDO_QUEUE
+ case ALLOW_UNDO_QUEUED:
+ undo_push(p, hole_size, UNDO_DEL_QUEUED);
+ break;
+# endif
}
- return p;
+ modified_count--;
+#endif
+ if (src < text || src > end)
+ goto thd0;
+ if (dest < text || dest >= end)
+ goto thd0;
+ modified_count++;
+ if (src >= end)
+ goto thd_atend; // just delete the end of the buffer
+ memmove(dest, src, cnt);
+ 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
+ thd0:
+ return dest;
}
-//----- 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
- */
+#if ENABLE_FEATURE_VI_UNDO
-static char *new_screen(int ro, int co)
+# if ENABLE_FEATURE_VI_UNDO_QUEUE
+// Flush any queued objects to the undo stack
+static void undo_queue_commit(void)
{
- int li;
-
- free(screen);
- screensize = ro * co + 8;
- screen = xmalloc(screensize);
- // initialize the new screen. assume this will be a empty file.
- screen_erase();
- // non-existent text[] lines start with a tilde (~).
- for (li = 1; li < ro - 1; li++) {
- screen[(li * co) + 0] = '~';
+ // Pushes the queue object onto the undo stack
+ if (undo_q > 0) {
+ // Deleted character undo events grow from the end
+ undo_push(undo_queue + CONFIG_FEATURE_VI_UNDO_QUEUE_MAX - undo_q,
+ undo_q,
+ (undo_queue_state | UNDO_USE_SPOS)
+ );
+ undo_queue_state = UNDO_EMPTY;
+ undo_q = 0;
}
- return screen;
}
+# else
+# define undo_queue_commit() ((void)0)
+# endif
-#if ENABLE_FEATURE_VI_SEARCH
+static void flush_undo_data(void)
+{
+ struct undo_object *undo_entry;
-# if ENABLE_FEATURE_VI_REGEX_SEARCH
+ while (undo_stack_tail) {
+ undo_entry = undo_stack_tail;
+ undo_stack_tail = undo_entry->prev;
+ free(undo_entry);
+ }
+}
-// search for pattern starting at p
-static char *char_search(char *p, const char *pat, int dir, int range)
+// Undo functions and hooks added by Jody Bruchon (jody@jodybruchon.com)
+// Add to the undo stack
+static void undo_push(char *src, unsigned length, uint8_t u_type)
{
- char *q;
- struct re_pattern_buffer preg;
- int i;
- int size;
+ struct undo_object *undo_entry;
+
+ // "u_type" values
+ // UNDO_INS: insertion, undo will remove from buffer
+ // UNDO_DEL: deleted text, undo will restore to buffer
+ // UNDO_{INS,DEL}_CHAIN: Same as above but also calls undo_pop() when complete
+ // The CHAIN operations are for handling multiple operations that the user
+ // performs with a single action, i.e. REPLACE mode or find-and-replace commands
+ // UNDO_{INS,DEL}_QUEUED: If queuing feature is enabled, allow use of the queue
+ // for the INS/DEL operation. The raw values should be equal to the values of
+ // UNDO_{INS,DEL} ORed with UNDO_QUEUED_FLAG
+
+# if ENABLE_FEATURE_VI_UNDO_QUEUE
+ // This undo queuing functionality groups multiple character typing or backspaces
+ // into a single large undo object. This greatly reduces calls to malloc() for
+ // single-character operations while typing and has the side benefit of letting
+ // an undo operation remove chunks of text rather than a single character.
+ switch (u_type) {
+ case UNDO_EMPTY: // Just in case this ever happens...
+ return;
+ case UNDO_DEL_QUEUED:
+ if (length != 1)
+ return; // Only queue single characters
+ switch (undo_queue_state) {
+ case UNDO_EMPTY:
+ undo_queue_state = UNDO_DEL;
+ case UNDO_DEL:
+ undo_queue_spos = src;
+ undo_q++;
+ undo_queue[CONFIG_FEATURE_VI_UNDO_QUEUE_MAX - undo_q] = *src;
+ // If queue is full, dump it into an object
+ if (undo_q == CONFIG_FEATURE_VI_UNDO_QUEUE_MAX)
+ undo_queue_commit();
+ return;
+ case UNDO_INS:
+ // Switch from storing inserted text to deleted text
+ undo_queue_commit();
+ undo_push(src, length, UNDO_DEL_QUEUED);
+ return;
+ }
+ break;
+ case UNDO_INS_QUEUED:
+ if (length < 1)
+ return;
+ switch (undo_queue_state) {
+ case UNDO_EMPTY:
+ undo_queue_state = UNDO_INS;
+ undo_queue_spos = src;
+ case UNDO_INS:
+ while (length--) {
+ undo_q++; // Don't need to save any data for insertions
+ if (undo_q == CONFIG_FEATURE_VI_UNDO_QUEUE_MAX)
+ undo_queue_commit();
+ }
+ return;
+ case UNDO_DEL:
+ // Switch from storing deleted text to inserted text
+ undo_queue_commit();
+ undo_push(src, length, UNDO_INS_QUEUED);
+ return;
+ }
+ break;
+ }
+# else
+ // If undo queuing is disabled, ignore the queuing flag entirely
+ u_type = u_type & ~UNDO_QUEUED_FLAG;
+# endif
- re_syntax_options = RE_SYNTAX_POSIX_EXTENDED;
- preg.translate = 0;
- preg.fastmap = 0;
- preg.buffer = 0;
- preg.allocated = 0;
+ // Allocate a new undo object
+ if (u_type == UNDO_DEL || u_type == UNDO_DEL_CHAIN) {
+ // For UNDO_DEL objects, save deleted text
+ if ((text + length) == end)
+ length--;
+ // If this deletion empties text[], strip the newline. When the buffer becomes
+ // zero-length, a newline is added back, which requires this to compensate.
+ undo_entry = xzalloc(offsetof(struct undo_object, undo_text) + length);
+ memcpy(undo_entry->undo_text, src, length);
+ } else {
+ undo_entry = xzalloc(sizeof(*undo_entry));
+ }
+ undo_entry->length = length;
+# if ENABLE_FEATURE_VI_UNDO_QUEUE
+ if ((u_type & UNDO_USE_SPOS) != 0) {
+ undo_entry->start = undo_queue_spos - text; // use start position from queue
+ } else {
+ undo_entry->start = src - text; // use offset from start of text buffer
+ }
+ u_type = (u_type & ~UNDO_USE_SPOS);
+# else
+ undo_entry->start = src - text;
+# endif
+ undo_entry->u_type = u_type;
- // 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;
+ // Push it on undo stack
+ undo_entry->prev = undo_stack_tail;
+ undo_stack_tail = undo_entry;
+ modified_count++;
+}
+
+static void undo_push_insert(char *p, int len, int undo)
+{
+ switch (undo) {
+ case ALLOW_UNDO:
+ undo_push(p, len, UNDO_INS);
+ break;
+ case ALLOW_UNDO_CHAIN:
+ undo_push(p, len, UNDO_INS_CHAIN);
+ break;
+# if ENABLE_FEATURE_VI_UNDO_QUEUE
+ case ALLOW_UNDO_QUEUED:
+ undo_push(p, len, UNDO_INS_QUEUED);
+ break;
+# endif
}
- // 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(pat), (struct re_pattern_buffer *)&preg);
- if (q != 0) {
- // The pattern was not compiled
- status_line_bold("bad search pattern: \"%s\": %s", pat, q);
- i = 0; // return p if pattern not compiled
- goto cs1;
+// Undo the last operation
+static void undo_pop(void)
+{
+ int repeat;
+ char *u_start, *u_end;
+ struct undo_object *undo_entry;
+
+ // Commit pending undo queue before popping (should be unnecessary)
+ undo_queue_commit();
+
+ undo_entry = undo_stack_tail;
+ // Check for an empty undo stack
+ if (!undo_entry) {
+ status_line("Already at oldest change");
+ return;
}
- q = p;
- if (range < 0) {
- q = p - size;
- if (q < text)
- q = text;
+ switch (undo_entry->u_type) {
+ case UNDO_DEL:
+ case UNDO_DEL_CHAIN:
+ // make hole and put in text that was deleted; deallocate text
+ u_start = text + undo_entry->start;
+ text_hole_make(u_start, undo_entry->length);
+ memcpy(u_start, undo_entry->undo_text, undo_entry->length);
+ status_line("Undo [%d] %s %d chars at position %d",
+ modified_count, "restored",
+ undo_entry->length, undo_entry->start
+ );
+ break;
+ case UNDO_INS:
+ case UNDO_INS_CHAIN:
+ // delete what was inserted
+ u_start = undo_entry->start + text;
+ u_end = u_start - 1 + undo_entry->length;
+ text_hole_delete(u_start, u_end, NO_UNDO);
+ status_line("Undo [%d] %s %d chars at position %d",
+ modified_count, "deleted",
+ undo_entry->length, undo_entry->start
+ );
+ break;
}
- // 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
+ repeat = 0;
+ switch (undo_entry->u_type) {
+ // If this is the end of a chain, lower modification count and refresh display
+ case UNDO_DEL:
+ case UNDO_INS:
+ dot = (text + undo_entry->start);
+ refresh(FALSE);
+ break;
+ case UNDO_DEL_CHAIN:
+ case UNDO_INS_CHAIN:
+ repeat = 1;
+ break;
}
- cs1:
- if (dir == FORWARD) {
- p = p + i;
- } else {
- p = p - i;
+ // Deallocate the undo object we just processed
+ undo_stack_tail = undo_entry->prev;
+ free(undo_entry);
+ modified_count--;
+ // For chained operations, continue popping all the way down the chain.
+ if (repeat) {
+ undo_pop(); // Follow the undo chain if one exists
}
- return p;
}
-# else
+#else
+# define flush_undo_data() ((void)0)
+# define undo_queue_commit() ((void)0)
+#endif /* ENABLE_FEATURE_VI_UNDO */
-# if ENABLE_FEATURE_VI_SETOPTS
-static int mycmp(const char *s1, const char *s2, int len)
+//----- Dot Movement Routines ----------------------------------
+static void dot_left(void)
{
- if (ignorecase) {
- return strncasecmp(s1, s2, len);
- }
- return strncmp(s1, s2, len);
+ undo_queue_commit();
+ if (dot > text && dot[-1] != '\n')
+ dot--;
}
-# else
-# define mycmp strncmp
-# endif
-static char *char_search(char *p, const char *pat, int dir, int range)
+static void dot_right(void)
{
- char *start, *stop;
- int len;
+ undo_queue_commit();
+ if (dot < end - 1 && *dot != '\n')
+ dot++;
+}
- len = strlen(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;
- }
+static void dot_begin(void)
+{
+ undo_queue_commit();
+ dot = begin_line(dot); // return pointer to first char cur line
+}
+
+static void dot_end(void)
+{
+ undo_queue_commit();
+ dot = end_line(dot); // return pointer to last char cur line
+}
+
+static char *move_to_col(char *p, int l)
+{
+ int co;
+
+ p = begin_line(p);
+ co = 0;
+ while (co < l && p < end) {
+ if (*p == '\n') //vda || *p == '\0')
+ break;
+ if (*p == '\t') {
+ co = next_tabstop(co);
+ } else if (*p < ' ' || *p == 127) {
+ co++; // display as ^X, use 2 columns
}
+ co++;
+ p++;
}
- // pattern not found
- return NULL;
+ return p;
}
-# endif
+static void dot_next(void)
+{
+ undo_queue_commit();
+ dot = next_line(dot);
+}
-#endif /* FEATURE_VI_SEARCH */
+static void dot_prev(void)
+{
+ undo_queue_commit();
+ dot = prev_line(dot);
+}
-static char *char_insert(char *p, char c) // insert the char c at 'p'
+static void dot_skip_over_ws(void)
{
- if (c == 22) { // Is this an ctrl-V?
- p += stupid_insert(p, '^'); // use ^ to indicate literal next
- refresh(FALSE); // show the ^
- c = get_one_char();
+ // skip WS
+ while (isspace(*dot) && *dot != '\n' && dot < end - 1)
+ dot++;
+}
+
+static void dot_scroll(int cnt, int dir)
+{
+ char *q;
+
+ undo_queue_commit();
+ 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 char *bound_dot(char *p) // make sure text[0] <= P < "end"
+{
+ if (p >= end && end > text) {
+ p = end - 1;
+ indicate_error();
+ }
+ if (p < text) {
+ p = text;
+ indicate_error();
+ }
+ return p;
+}
+
+#if ENABLE_FEATURE_VI_DOT_CMD
+static void start_new_cmd_q(char c)
+{
+ // get buffer for new cmd
+ // if there is a current cmd count put it in the buffer first
+ if (cmdcnt > 0) {
+ lmc_len = sprintf(last_modifying_cmd, "%u%c", cmdcnt, c);
+ } else { // just save char c onto queue
+ last_modifying_cmd[0] = c;
+ lmc_len = 1;
+ }
+ adding2q = 1;
+}
+static void end_cmd_q(void)
+{
+# if ENABLE_FEATURE_VI_YANKMARK
+ YDreg = 26; // go back to default Yank/Delete reg
+# endif
+ adding2q = 0;
+}
+#else
+# define end_cmd_q() ((void)0)
+#endif /* FEATURE_VI_DOT_CMD */
+
+// copy text into register, then delete text.
+// if dist <= 0, do not include, or go past, a NewLine
+//
+#if !ENABLE_FEATURE_VI_UNDO
+#define yank_delete(a,b,c,d,e) yank_delete(a,b,c,d)
+#endif
+static char *yank_delete(char *start, char *stop, int dist, int yf, int undo)
+{
+ char *p;
+
+ // make sure start <= stop
+ if (start > stop) {
+ // they are backwards, reverse them
+ p = start;
+ start = stop;
+ stop = p;
+ }
+ if (dist <= 0) {
+ // we cannot 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;
+#if ENABLE_FEATURE_VI_YANKMARK
+ text_yank(start, stop, YDreg);
+#endif
+ if (yf == YANKDEL) {
+ p = text_hole_delete(start, stop, undo);
+ } // delete lines
+ return p;
+}
+
+// might reallocate text[]!
+static int file_insert(const char *fn, char *p, int initial)
+{
+ int cnt = -1;
+ int fd, size;
+ struct stat statbuf;
+
+ if (p < text)
+ p = text;
+ if (p > end)
+ p = end;
+
+ fd = open(fn, O_RDONLY);
+ if (fd < 0) {
+ if (!initial)
+ status_line_bold_errno(fn);
+ return cnt;
+ }
+
+ // Validate file
+ if (fstat(fd, &statbuf) < 0) {
+ status_line_bold_errno(fn);
+ goto fi;
+ }
+ if (!S_ISREG(statbuf.st_mode)) {
+ status_line_bold("'%s' is not a regular file", fn);
+ goto fi;
+ }
+ size = (statbuf.st_size < INT_MAX ? (int)statbuf.st_size : INT_MAX);
+ p += text_hole_make(p, size);
+ cnt = full_read(fd, p, size);
+ if (cnt < 0) {
+ status_line_bold_errno(fn);
+ p = text_hole_delete(p, p + size - 1, NO_UNDO); // un-do buffer insert
+ } else if (cnt < size) {
+ // There was a partial read, shrink unused space
+ p = text_hole_delete(p + cnt, p + size - 1, NO_UNDO);
+ status_line_bold("can't read '%s'", fn);
+ }
+ fi:
+ close(fd);
+
+#if ENABLE_FEATURE_VI_READONLY
+ if (initial
+ && ((access(fn, W_OK) < 0) ||
+ // root will always have access()
+ // so we check fileperms too
+ !(statbuf.st_mode & (S_IWUSR | S_IWGRP | S_IWOTH))
+ )
+ ) {
+ SET_READONLY_FILE(readonly_mode);
+ }
+#endif
+ return cnt;
+}
+
+// find matching char of pair () [] {}
+// will crash if c is not one of these
+static char *find_pair(char *p, const char c)
+{
+ const char *braces = "()[]{}";
+ char match;
+ int dir, level;
+
+ dir = strchr(braces, c) - braces;
+ dir ^= 1;
+ match = braces[dir];
+ dir = ((dir & 1) << 1) - 1; // 1 for ([{, -1 for )\}
+
+ // look for match, count levels of pairs (( ))
+ level = 1;
+ for (;;) {
+ p += dir;
+ if (p < text || p >= end)
+ return NULL;
+ if (*p == c)
+ level++; // increase pair levels
+ if (*p == match) {
+ level--; // reduce pair level
+ if (level == 0)
+ return p; // found matching pair
+ }
+ }
+}
+
+#if ENABLE_FEATURE_VI_SETOPTS
+// show the matching char of a pair, () [] {}
+static void showmatching(char *p)
+{
+ char *q, *save_dot;
+
+ // we found half of a pair
+ q = find_pair(p, *p); // get loc of matching char
+ if (q == NULL) {
+ indicate_error(); // 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
+ mysleep(40); // give user some time
+ dot = save_dot; // go back to old loc
+ refresh(FALSE);
+ }
+}
+#endif /* FEATURE_VI_SETOPTS */
+
+// might reallocate text[]! use p += stupid_insert(p, ...),
+// and be careful to not use pointers into potentially freed text[]!
+static uintptr_t stupid_insert(char *p, char c) // stupidly insert the char c at 'p'
+{
+ uintptr_t bias;
+ bias = text_hole_make(p, 1);
+ p += bias;
+ *p = c;
+ return bias;
+}
+
+#if !ENABLE_FEATURE_VI_UNDO
+#define char_insert(a,b,c) char_insert(a,b)
+#endif
+static char *char_insert(char *p, char c, int undo) // insert the char c at 'p'
+{
+ if (c == 22) { // Is this an ctrl-V?
+ p += stupid_insert(p, '^'); // use ^ to indicate literal next
+ refresh(FALSE); // show the ^
+ c = get_one_char();
*p = c;
+#if ENABLE_FEATURE_VI_UNDO
+ undo_push_insert(p, 1, undo);
+#else
+ modified_count++;
+#endif
p++;
- file_modified++;
} else if (c == 27) { // Is this an ESC?
cmd_mode = 0;
+ undo_queue_commit();
cmdcnt = 0;
end_cmd_q(); // stop adding to q
last_status_cksum = 0; // force status update
if ((p[-1] != '\n') && (dot > text)) {
p--;
}
- } else if (c == erase_char || c == 8 || c == 127) { // Is this a BS
- // 123456789
- if ((p[-1] != '\n') && (dot>text)) {
+ } else if (c == term_orig.c_cc[VERASE] || c == 8 || c == 127) { // Is this a BS
+ if (p > text) {
p--;
- p = text_hole_delete(p, p); // shrink buffer 1 char
+ p = text_hole_delete(p, p, ALLOW_UNDO_QUEUED); // shrink buffer 1 char
}
} else {
-#if ENABLE_FEATURE_VI_SETOPTS
// insert a char into text[]
- char *sp; // "save p"
-#endif
-
if (c == 13)
c = '\n'; // translate \r to \n
-#if ENABLE_FEATURE_VI_SETOPTS
- sp = p; // remember addr of insert
+#if ENABLE_FEATURE_VI_UNDO
+# if ENABLE_FEATURE_VI_UNDO_QUEUE
+ if (c == '\n')
+ undo_queue_commit();
+# endif
+ undo_push_insert(p, 1, undo);
+#else
+ modified_count++;
#endif
p += 1 + stupid_insert(p, c); // insert the char
#if ENABLE_FEATURE_VI_SETOPTS
- if (showmatch && strchr(")]}", *sp) != NULL) {
- showmatching(sp);
+ if (showmatch && strchr(")]}", c) != NULL) {
+ showmatching(p - 1);
}
if (autoindent && c == '\n') { // auto indent the new line
char *q;
bias = text_hole_make(p, len);
p += bias;
q += bias;
+#if ENABLE_FEATURE_VI_UNDO
+ undo_push_insert(p, len, undo);
+#endif
memcpy(p, q, len);
p += len;
}
return p;
}
-// might reallocate text[]! use p += stupid_insert(p, ...),
+// read text from file or create an empty buf
+// will also update current_filename
+static int init_text_buffer(char *fn)
+{
+ int rc;
+
+ // allocate/reallocate text buffer
+ free(text);
+ text_size = 10240;
+ screenbegin = dot = end = text = xzalloc(text_size);
+
+ if (fn != current_filename) {
+ free(current_filename);
+ current_filename = xstrdup(fn);
+ }
+ rc = file_insert(fn, text, 1);
+ if (rc < 0) {
+ // file doesnt exist. Start empty buf with dummy line
+ char_insert(text, '\n', NO_UNDO);
+ }
+
+ flush_undo_data();
+ modified_count = 0;
+ last_modified_count = -1;
+#if ENABLE_FEATURE_VI_YANKMARK
+ // init the marks
+ memset(mark, 0, sizeof(mark));
+#endif
+ return rc;
+}
+
+#if ENABLE_FEATURE_VI_YANKMARK \
+ || (ENABLE_FEATURE_VI_COLON && ENABLE_FEATURE_VI_SEARCH) \
+ || ENABLE_FEATURE_VI_CRASHME
+// might reallocate text[]! use p += string_insert(p, ...),
// and be careful to not use pointers into potentially freed text[]!
-static uintptr_t stupid_insert(char *p, char c) // stupidly insert the char c at 'p'
+# if !ENABLE_FEATURE_VI_UNDO
+# define string_insert(a,b,c) string_insert(a,b)
+# endif
+static uintptr_t string_insert(char *p, const char *s, int undo) // insert the string at 'p'
{
uintptr_t bias;
- bias = text_hole_make(p, 1);
+ int i;
+
+ i = strlen(s);
+#if ENABLE_FEATURE_VI_UNDO
+ undo_push_insert(p, i, undo);
+#endif
+ bias = text_hole_make(p, i);
p += bias;
- *p = c;
- //file_modified++; - done by text_hole_make()
+ memcpy(p, s, i);
+#if ENABLE_FEATURE_VI_YANKMARK
+ {
+ int cnt;
+ for (cnt = 0; *s != '\0'; s++) {
+ if (*s == '\n')
+ cnt++;
+ }
+ status_line("Put %d lines (%d chars) from [%c]", cnt, i, what_reg());
+ }
+#endif
return bias;
}
+#endif
-static int find_range(char **start, char **stop, char c)
+static int file_write(char *fn, char *first, char *last)
{
- char *save_dot, *p, *q, *t;
- int cnt, multiline = 0;
-
- save_dot = dot;
- p = q = dot;
+ int fd, cnt, charcnt;
- if (strchr("cdy><", c)) {
- // these cmds operate on whole lines
- p = q = begin_line(p);
- for (cnt = 1; cnt < cmdcnt; cnt++) {
- q = next_line(q);
- }
- q = end_line(q);
- } else if (strchr("^%$0bBeEfth\b\177", c)) {
- // These cmds operate on char positions
- do_cmd(c); // execute movement cmd
- q = dot;
- } else if (strchr("wW", c)) {
- do_cmd(c); // execute movement cmd
- // if we are at the next word's first char
- // step back one char
- // but check the possibilities when it is true
- if (dot > text && ((isspace(dot[-1]) && !isspace(dot[0]))
- || (ispunct(dot[-1]) && !ispunct(dot[0]))
- || (isalnum(dot[-1]) && !isalnum(dot[0]))))
- dot--; // move back off of next word
- if (dot > text && *dot == '\n')
- dot--; // stay off NL
- q = dot;
- } else if (strchr("H-k{", c)) {
- // these operate on multi-lines backwards
- q = end_line(dot); // find NL
- do_cmd(c); // execute movement cmd
- dot_begin();
- p = dot;
- } else if (strchr("L+j}\r\n", c)) {
- // these operate on multi-lines forwards
- p = begin_line(dot);
- do_cmd(c); // execute movement cmd
- dot_end(); // find NL
- q = dot;
+ if (fn == 0) {
+ status_line_bold("No current filename");
+ return -2;
+ }
+ // By popular request we do not open file with O_TRUNC,
+ // but instead ftruncate() it _after_ successful write.
+ // Might reduce amount of data lost on power fail etc.
+ fd = open(fn, (O_WRONLY | O_CREAT), 0666);
+ if (fd < 0)
+ return -1;
+ cnt = last - first + 1;
+ charcnt = full_write(fd, first, cnt);
+ ftruncate(fd, charcnt);
+ if (charcnt == cnt) {
+ // good write
+ //modified_count = FALSE;
} else {
- // nothing -- this causes any other values of c to
- // represent the one-character range under the
- // cursor. this is correct for ' ' and 'l', but
- // perhaps no others.
- //
+ charcnt = 0;
}
- if (q < p) {
- t = q;
- q = p;
- p = t;
+ close(fd);
+ return charcnt;
+}
+
+#if ENABLE_FEATURE_VI_SEARCH
+# if ENABLE_FEATURE_VI_REGEX_SEARCH
+// search for pattern starting at p
+static char *char_search(char *p, const char *pat, int dir_and_range)
+{
+ struct re_pattern_buffer preg;
+ const char *err;
+ char *q;
+ int i;
+ int size;
+ int range;
+
+ re_syntax_options = RE_SYNTAX_POSIX_EXTENDED;
+ if (ignorecase)
+ re_syntax_options = RE_SYNTAX_POSIX_EXTENDED | RE_ICASE;
+
+ memset(&preg, 0, sizeof(preg));
+ err = re_compile_pattern(pat, strlen(pat), &preg);
+ if (err != NULL) {
+ status_line_bold("bad search pattern '%s': %s", pat, err);
+ return p;
}
- // backward char movements don't include start position
- if (q > p && strchr("^0bBh\b\177", c)) q--;
+ range = (dir_and_range & 1);
+ q = end - 1; // if FULL
+ if (range == LIMITED)
+ q = next_line(p);
+ if (dir_and_range < 0) { // BACK?
+ q = text;
+ if (range == LIMITED)
+ q = prev_line(p);
+ }
- multiline = 0;
- for (t = p; t <= q; t++) {
- if (*t == '\n') {
- multiline = 1;
- break;
- }
+ // RANGE could be negative if we are searching backwards
+ range = q - p;
+ q = p;
+ size = range;
+ if (range < 0) {
+ size = -size;
+ 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, /*start:*/ 0, range, /*struct re_registers*:*/ NULL);
+ regfree(&preg);
+ if (i < 0)
+ return NULL;
+ if (dir_and_range > 0) // FORWARD?
+ p = p + i;
+ else
+ p = p - i;
+ return p;
+}
+# else
+# if ENABLE_FEATURE_VI_SETOPTS
+static int mycmp(const char *s1, const char *s2, int len)
+{
+ if (ignorecase) {
+ return strncasecmp(s1, s2, len);
}
+ return strncmp(s1, s2, len);
+}
+# else
+# define mycmp strncmp
+# endif
+static char *char_search(char *p, const char *pat, int dir_and_range)
+{
+ char *start, *stop;
+ int len;
+ int range;
- *start = p;
- *stop = q;
- dot = save_dot;
- return multiline;
+ len = strlen(pat);
+ range = (dir_and_range & 1);
+ if (dir_and_range > 0) { //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 { //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;
}
+# endif
+#endif /* FEATURE_VI_SEARCH */
-static int st_test(char *p, int type, int dir, char *tested)
+//----- The Colon commands -------------------------------------
+#if ENABLE_FEATURE_VI_COLON
+static char *get_one_address(char *p, int *addr) // get colon addr, if present
{
- char c, c0, ci;
- int test, inc;
-
- inc = dir;
- c = c0 = p[0];
- ci = p[inc];
- test = 0;
+ int st;
+ char *q;
+ IF_FEATURE_VI_YANKMARK(char c;)
+ IF_FEATURE_VI_SEARCH(char *pat;)
- if (type == S_BEFORE_WS) {
- c = ci;
- test = (!isspace(c) || c == '\n');
- }
- if (type == S_TO_WS) {
- c = c0;
- test = (!isspace(c) || c == '\n');
+ *addr = -1; // assume no addr
+ if (*p == '.') { // the current line
+ p++;
+ q = begin_line(dot);
+ *addr = count_lines(text, q);
}
- if (type == S_OVER_WS) {
- c = c0;
- test = isspace(c);
+#if ENABLE_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[(unsigned char) c];
+ if (q != NULL) { // is mark valid
+ *addr = count_lines(text, q);
+ }
+ }
}
- if (type == S_END_PUNCT) {
- c = ci;
- test = ispunct(c);
+#endif
+#if ENABLE_FEATURE_VI_SEARCH
+ else if (*p == '/') { // a search pattern
+ q = strchrnul(++p, '/');
+ pat = xstrndup(p, q - p); // save copy of pattern
+ p = q;
+ if (*p == '/')
+ p++;
+ q = char_search(dot, pat, (FORWARD << 1) | FULL);
+ if (q != NULL) {
+ *addr = count_lines(text, q);
+ }
+ free(pat);
}
- if (type == S_END_ALNUM) {
- c = ci;
- test = (isalnum(c) || c == '_');
+#endif
+ 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(p, "%d%n", addr, &st);
+ p += st;
+ } else {
+ // unrecognized address - assume -1
+ *addr = -1;
}
- *tested = c;
- return test;
+ return p;
}
-static char *skip_thing(char *p, int linecnt, int dir, int type)
+static char *get_address(char *p, int *b, int *e) // get two colon addrs, if present
{
- char 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
+ //----- get the address' i.e., 1,3 'a,'b -----
+ // get FIRST addr, if present
+ while (isblank(*p))
+ p++; // skip over leading spaces
+ if (*p == '%') { // alias for 1,$
+ p++;
+ *b = 1;
+ *e = count_lines(text, end-1);
+ goto ga0;
+ }
+ p = get_one_address(p, b);
+ while (isblank(*p))
+ p++;
+ if (*p == ',') { // is there a address separator
+ p++;
+ while (isblank(*p))
+ p++;
+ // get SECOND addr, if present
+ p = get_one_address(p, e);
}
+ ga0:
+ while (isblank(*p))
+ p++; // skip over trailing spaces
return p;
}
-// find matching char of pair () [] {}
-static char *find_pair(char *p, const char c)
+#if ENABLE_FEATURE_VI_SET && ENABLE_FEATURE_VI_SETOPTS
+static void setops(const char *args, const char *opname, int flg_no,
+ const char *short_opname, int opt)
{
- char match, *q;
- int dir, level;
+ const char *a = args + flg_no;
+ int l = strlen(opname) - 1; // opname have + ' '
- 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
+ // maybe strncmp? we had tons of erroneous strncasecmp's...
+ if (strncasecmp(a, opname, l) == 0
+ || strncasecmp(a, short_opname, 2) == 0
+ ) {
+ if (flg_no)
+ vi_setops &= ~opt;
+ else
+ vi_setops |= opt;
}
- if (level != 0)
- q = NULL; // indicate no match
- return q;
}
+#endif
-#if ENABLE_FEATURE_VI_SETOPTS
-// show the matching char of a pair, () [] {}
-static void showmatching(char *p)
-{
- char *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
- mysleep(40); // give user some time
- dot = save_dot; // go back to old loc
- refresh(FALSE);
- }
-}
-#endif /* FEATURE_VI_SETOPTS */
+#endif /* FEATURE_VI_COLON */
-// open a hole in text[]
-// might reallocate text[]! use p += text_hole_make(p, ...),
-// and be careful to not use pointers into potentially freed text[]!
-static uintptr_t text_hole_make(char *p, int size) // at "p", make a 'size' byte hole
+// buf must be no longer than MAX_INPUT_LEN!
+static void colon(char *buf)
{
- uintptr_t bias = 0;
+#if !ENABLE_FEATURE_VI_COLON
+ // Simple ":cmd" handler with minimal set of commands
+ char *p = buf;
+ int cnt;
- if (size <= 0)
- return bias;
- end += size; // adjust the new END
- if (end >= (text + text_size)) {
- char *new_text;
- text_size += end - (text + text_size) + 10240;
- new_text = xrealloc(text, text_size);
- bias = (new_text - text);
- screenbegin += bias;
- dot += bias;
- end += bias;
- p += bias;
-#if ENABLE_FEATURE_VI_YANKMARK
- {
- int i;
- for (i = 0; i < ARRAY_SIZE(mark); i++)
- if (mark[i])
- mark[i] += bias;
+ if (*p == ':')
+ p++;
+ cnt = strlen(p);
+ if (cnt == 0)
+ return;
+ if (strncmp(p, "quit", cnt) == 0
+ || strncmp(p, "q!", cnt) == 0
+ ) {
+ if (modified_count && p[1] != '!') {
+ status_line_bold("No write since last change (:%s! overrides)", p);
+ } else {
+ editing = 0;
}
-#endif
- text = new_text;
- }
- memmove(p + size, p, end - size - p);
- memset(p, ' ', size); // clear new hole
- file_modified++;
- return bias;
-}
-
-// close a hole in text[]
-static char *text_hole_delete(char *p, char *q) // delete "p" through "q", inclusive
-{
- char *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
- memmove(dest, src, cnt);
- 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++;
- thd0:
- return dest;
-}
-
-// copy text into register, then delete text.
-// if dist <= 0, do not include, or go past, a NewLine
-//
-static char *yank_delete(char *start, char *stop, int dist, int yf)
-{
- char *p;
-
- // make sure start <= stop
- if (start > stop) {
- // they are backwards, reverse them
- p = start;
- start = stop;
- stop = p;
+ return;
}
- if (dist <= 0) {
- // we cannot 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;
+ if (strncmp(p, "write", cnt) == 0
+ || strncmp(p, "wq", cnt) == 0
+ || strncmp(p, "wn", cnt) == 0
+ || (p[0] == 'x' && !p[1])
+ ) {
+ if (modified_count != 0 || p[0] != 'x') {
+ cnt = file_write(current_filename, text, end - 1);
+ }
+ if (cnt < 0) {
+ if (cnt == -1)
+ status_line_bold("Write error: "STRERROR_FMT STRERROR_ERRNO);
+ } else {
+ modified_count = 0;
+ last_modified_count = -1;
+ status_line("'%s' %dL, %dC",
+ current_filename,
+ count_lines(text, end - 1), cnt
+ );
+ if (p[0] == 'x'
+ || p[1] == 'q' || p[1] == 'n'
+ || p[1] == 'Q' || p[1] == 'N'
+ ) {
+ editing = 0;
}
}
+ return;
}
- p = start;
-#if ENABLE_FEATURE_VI_YANKMARK
- text_yank(start, stop, YDreg);
-#endif
- if (yf == YANKDEL) {
- p = text_hole_delete(start, stop);
- } // delete lines
- return p;
-}
-
-static void show_help(void)
-{
- puts("These features are available:"
-#if ENABLE_FEATURE_VI_SEARCH
- "\n\tPattern searches with / and ?"
-#endif
-#if ENABLE_FEATURE_VI_DOT_CMD
- "\n\tLast command repeat with ."
-#endif
-#if ENABLE_FEATURE_VI_YANKMARK
- "\n\tLine marking with 'x"
- "\n\tNamed buffers with \"x"
-#endif
-#if ENABLE_FEATURE_VI_READONLY
- //not implemented: "\n\tReadonly if vi is called as \"view\""
- //redundant: usage text says this too: "\n\tReadonly with -R command line arg"
-#endif
-#if ENABLE_FEATURE_VI_SET
- "\n\tSome colon mode commands with :"
-#endif
-#if ENABLE_FEATURE_VI_SETOPTS
- "\n\tSettable options with \":set\""
-#endif
-#if ENABLE_FEATURE_VI_USE_SIGNALS
- "\n\tSignal catching- ^C"
- "\n\tJob suspend and resume with ^Z"
-#endif
-#if ENABLE_FEATURE_VI_WIN_RESIZE
- "\n\tAdapt to window re-sizes"
-#endif
- );
-}
-
-#if ENABLE_FEATURE_VI_DOT_CMD
-static void start_new_cmd_q(char c)
-{
- // get buffer for new cmd
- // if there is a current cmd count put it in the buffer first
- if (cmdcnt > 0) {
- lmc_len = sprintf(last_modifying_cmd, "%d%c", cmdcnt, c);
- } else { // just save char c onto queue
- last_modifying_cmd[0] = c;
- lmc_len = 1;
+ if (strncmp(p, "file", cnt) == 0) {
+ last_status_cksum = 0; // force status update
+ return;
}
- adding2q = 1;
-}
+ if (sscanf(p, "%d", &cnt) > 0) {
+ dot = find_line(cnt);
+ dot_skip_over_ws();
+ return;
+ }
+ not_implemented(p);
+#else
-static void end_cmd_q(void)
-{
-#if ENABLE_FEATURE_VI_YANKMARK
- YDreg = 26; // go back to default Yank/Delete reg
-#endif
- adding2q = 0;
-}
-#endif /* FEATURE_VI_DOT_CMD */
+ char c, *buf1, *q, *r;
+ char *fn, cmd[MAX_INPUT_LEN], args[MAX_INPUT_LEN];
+ int i, l, li, b, e;
+ int useforce;
+# if ENABLE_FEATURE_VI_SEARCH || ENABLE_FEATURE_ALLOW_EXEC
+ char *orig_buf;
+# endif
-#if ENABLE_FEATURE_VI_YANKMARK \
- || (ENABLE_FEATURE_VI_COLON && ENABLE_FEATURE_VI_SEARCH) \
- || ENABLE_FEATURE_VI_CRASHME
-// might reallocate text[]! use p += string_insert(p, ...),
-// and be careful to not use pointers into potentially freed text[]!
-static uintptr_t string_insert(char *p, const char *s) // insert the string at 'p'
-{
- uintptr_t bias;
- int i;
+ // :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"
+ // :!<cmd> // run <cmd> then return
+ //
- i = strlen(s);
- bias = text_hole_make(p, i);
- p += bias;
- memcpy(p, s, i);
-#if ENABLE_FEATURE_VI_YANKMARK
- {
- int cnt;
- for (cnt = 0; *s != '\0'; s++) {
- if (*s == '\n')
- cnt++;
- }
- status_line("Put %d lines (%d chars) from [%c]", cnt, i, what_reg());
- }
-#endif
- return bias;
-}
-#endif
+ if (!buf[0])
+ goto ret;
+ if (*buf == ':')
+ buf++; // move past the ':'
-#if ENABLE_FEATURE_VI_YANKMARK
-static char *text_yank(char *p, char *q, int dest) // copy text into a register
-{
- int cnt = q - p;
- if (cnt < 0) { // they are backwards- reverse them
- p = q;
- cnt = -cnt;
- }
- free(reg[dest]); // if already a yank register, free it
- reg[dest] = xstrndup(p, cnt + 1);
- return p;
-}
+ li = i = 0;
+ b = e = -1;
+ q = text; // assume 1,$ for the range
+ r = end - 1;
+ li = count_lines(text, end - 1);
+ fn = current_filename;
-static char what_reg(void)
-{
- char c;
+ // look for optional address(es) :. :1 :1,9 :'q,'a :%
+ buf = get_address(buf, &b, &e);
- c = 'D'; // default to D-reg
- if (0 <= YDreg && YDreg <= 25)
- c = 'a' + (char) YDreg;
- if (YDreg == 26)
- c = 'D';
- if (YDreg == 27)
- c = 'U';
- return c;
-}
-
-static void check_context(char cmd)
-{
- // A context is defined to be "modifying text"
- // Any modifying command establishes a new context.
+# if ENABLE_FEATURE_VI_SEARCH || ENABLE_FEATURE_ALLOW_EXEC
+ // remember orig command line
+ orig_buf = buf;
+# endif
- if (dot < context_start || dot > context_end) {
- if (strchr(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;
- }
+ // get the COMMAND into cmd[]
+ buf1 = cmd;
+ while (*buf != '\0') {
+ if (isspace(*buf))
+ break;
+ *buf1++ = *buf++;
}
-}
-
-static char *swap_context(char *p) // goto new context for '' command make this the current context
-{
- char *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)));
+ *buf1 = '\0';
+ // get any ARGuments
+ while (isblank(*buf))
+ buf++;
+ strcpy(args, buf);
+ useforce = FALSE;
+ buf1 = last_char_is(cmd, '!');
+ if (buf1) {
+ useforce = TRUE;
+ *buf1 = '\0'; // get rid of !
}
- return p;
-}
-#endif /* FEATURE_VI_YANKMARK */
-
-//----- 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_oflag &= (~ONLCR);
- term_vi.c_cc[VMIN] = 1;
- term_vi.c_cc[VTIME] = 0;
- erase_char = term_vi.c_cc[VERASE];
- tcsetattr_stdin_TCSANOW(&term_vi);
-}
-
-static void cookmode(void)
-{
- fflush_all();
- tcsetattr_stdin_TCSANOW(&term_orig);
-}
-
-#if ENABLE_FEATURE_VI_USE_SIGNALS
-//----- Come here when we get a window resize signal ---------
-static void winch_sig(int sig UNUSED_PARAM)
-{
- int save_errno = errno;
- // FIXME: do it in main loop!!!
- signal(SIGWINCH, winch_sig);
- query_screen_dimensions();
- new_screen(rows, columns); // get memory for virtual screen
- redraw(TRUE); // re-draw the screen
- errno = save_errno;
-}
-
-//----- Come here when we get a continue signal -------------------
-static void cont_sig(int sig UNUSED_PARAM)
-{
- int save_errno = errno;
- rawmode(); // terminal to "raw"
- last_status_cksum = 0; // force status update
- redraw(TRUE); // re-draw the screen
-
- signal(SIGTSTP, suspend_sig);
- signal(SIGCONT, SIG_DFL);
- //kill(my_pid, SIGCONT); // huh? why? we are already "continued"...
- errno = save_errno;
-}
-
-//----- Come here when we get a Suspend signal -------------------
-static void suspend_sig(int sig UNUSED_PARAM)
-{
- int save_errno = errno;
- go_bottom_and_clear_to_eol();
- cookmode(); // terminal to "cooked"
-
- signal(SIGCONT, cont_sig);
- signal(SIGTSTP, SIG_DFL);
- kill(my_pid, SIGTSTP);
- errno = save_errno;
-}
-
-//----- Come here when we get a signal ---------------------------
-static void catch_sig(int sig)
-{
- signal(SIGINT, catch_sig);
- siglongjmp(restart, sig);
-}
-#endif /* FEATURE_VI_USE_SIGNALS */
-
-static int mysleep(int hund) // sleep for 'hund' 1/100 seconds or stdin ready
-{
- struct pollfd pfd[1];
-
- pfd[0].fd = STDIN_FILENO;
- pfd[0].events = POLLIN;
- return safe_poll(pfd, 1, hund*10) > 0;
-}
-
-//----- IO Routines --------------------------------------------
-static int readit(void) // read (maybe cursor) key from stdin
-{
- int c;
-
- fflush_all();
- c = read_key(STDIN_FILENO, readbuffer, /*timeout off:*/ -2);
- if (c == -1) { // EOF/error
+ 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(cmd);
+ if (i == 0) { // :123CR goto line #123
+ if (b >= 0) {
+ dot = find_line(b); // what line is #b
+ dot_skip_over_ws();
+ }
+ }
+# if ENABLE_FEATURE_ALLOW_EXEC
+ else if (cmd[0] == '!') { // run a cmd
+ int retcode;
+ // :!ls run the <cmd>
go_bottom_and_clear_to_eol();
- cookmode(); // terminal to "cooked"
- bb_error_msg_and_die("can't read user input");
+ cookmode();
+ retcode = system(orig_buf + 1); // run the cmd
+ if (retcode)
+ printf("\nshell returned %i\n\n", retcode);
+ rawmode();
+ Hit_Return(); // let user see results
}
- return c;
-}
-
-//----- IO Routines --------------------------------------------
-static int get_one_char(void)
-{
- int c;
+# endif
+ else if (cmd[0] == '=' && !cmd[1]) { // where is the address
+ if (b < 0) { // no addr given- use defaults
+ b = e = count_lines(text, dot);
+ }
+ status_line("%d", b);
+ } else if (strncmp(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, ALLOW_UNDO); // save, then delete lines
+ dot_skip_over_ws();
+ } else if (strncmp(cmd, "edit", i) == 0) { // Edit a file
+ int size;
-#if ENABLE_FEATURE_VI_DOT_CMD
- 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
- // careful with correct sign expansion!
- c = (unsigned char)*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
- }
+ // don't edit, if the current file has been modified
+ if (modified_count && !useforce) {
+ status_line_bold("No write since last change (:%s! overrides)", cmd);
+ goto ret;
}
- } else {
- // adding STDIN chars to q
- c = readit(); // get the users input
- if (lmc_len >= MAX_INPUT_LEN - 1) {
- status_line_bold("last_modifying_cmd overrun");
+ if (args[0]) {
+ // the user supplied a file name
+ fn = args;
+ } else if (current_filename && current_filename[0]) {
+ // no user supplied name- use the current filename
+ // fn = current_filename; was set by default
} else {
- // add new char to q
- last_modifying_cmd[lmc_len++] = c;
+ // no user file name, no current name- punt
+ status_line_bold("No current filename");
+ goto ret;
}
- }
-#else
- c = readit(); // get the users input
-#endif /* FEATURE_VI_DOT_CMD */
- return c;
-}
-
-// Get input line (uses "status line" area)
-static char *get_input_line(const char *prompt)
-{
- // char [MAX_INPUT_LEN]
-#define buf get_input_line__buf
- int c;
- int i;
+ size = init_text_buffer(fn);
- strcpy(buf, prompt);
- last_status_cksum = 0; // force status update
- go_bottom_and_clear_to_eol();
- write1(prompt); // write out the :, /, or ? prompt
+# if ENABLE_FEATURE_VI_YANKMARK
+ if (Ureg >= 0 && Ureg < 28) {
+ free(reg[Ureg]); // free orig line reg- for 'U'
+ reg[Ureg] = NULL;
+ }
+ if (YDreg >= 0 && YDreg < 28) {
+ free(reg[YDreg]); // free default yank/delete register
+ reg[YDreg] = NULL;
+ }
+# endif
+ // how many lines in text[]?
+ li = count_lines(text, end - 1);
+ status_line("'%s'%s"
+ IF_FEATURE_VI_READONLY("%s")
+ " %dL, %dC",
+ current_filename,
+ (size < 0 ? " [New file]" : ""),
+ IF_FEATURE_VI_READONLY(
+ ((readonly_mode) ? " [Readonly]" : ""),
+ )
+ li, (int)(end - text)
+ );
+ } else if (strncmp(cmd, "file", i) == 0) { // what File is this
+ if (b != -1 || e != -1) {
+ status_line_bold("No address allowed on this command");
+ goto ret;
+ }
+ if (args[0]) {
+ // user wants a new filename
+ free(current_filename);
+ current_filename = xstrdup(args);
+ } else {
+ // user wants file status info
+ last_status_cksum = 0; // force status update
+ }
+ } else if (strncmp(cmd, "features", i) == 0) { // what features are available
+ // print out values of all features
+ go_bottom_and_clear_to_eol();
+ cookmode();
+ show_help();
+ rawmode();
+ Hit_Return();
+ } else if (strncmp(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);
+ }
+ go_bottom_and_clear_to_eol();
+ puts("\r");
+ for (; q <= r; q++) {
+ int c_is_no_print;
- i = strlen(buf);
- while (i < MAX_INPUT_LEN) {
- c = get_one_char();
- if (c == '\n' || c == '\r' || c == 27)
- break; // this is end of input
- if (c == erase_char || c == 8 || c == 127) {
- // user wants to erase prev char
- buf[--i] = '\0';
- write1("\b \b"); // erase char on screen
- if (i <= 0) // user backs up before b-o-l, exit
- break;
- } else if (c > 0 && c < 256) { // exclude Unicode
- // (TODO: need to handle Unicode)
- buf[i] = c;
- buf[++i] = '\0';
+ c = *q;
+ c_is_no_print = (c & 0x80) && !Isprint(c);
+ if (c_is_no_print) {
+ c = '.';
+ standout_start();
+ }
+ if (c == '\n') {
+ write1("$\r");
+ } else if (c < ' ' || c == 127) {
+ bb_putchar('^');
+ if (c == 127)
+ c = '?';
+ else
+ c += '@';
+ }
bb_putchar(c);
+ if (c_is_no_print)
+ standout_end();
}
- }
- refresh(FALSE);
- return buf;
-#undef buf
-}
-
-static int file_size(const char *fn) // what is the byte size of "fn"
-{
- struct stat st_buf;
- int cnt;
-
- cnt = -1;
- if (fn && stat(fn, &st_buf) == 0) // see if file exists
- cnt = (int) st_buf.st_size;
- return cnt;
-}
-
-// might reallocate text[]!
-static int file_insert(const char *fn, char *p, int update_ro_status)
-{
- int cnt = -1;
- int fd, size;
- struct stat statbuf;
-
- /* Validate file */
- if (stat(fn, &statbuf) < 0) {
- status_line_bold("\"%s\" %s", fn, strerror(errno));
- goto fi0;
- }
- if (!S_ISREG(statbuf.st_mode)) {
- // This is not a regular file
- status_line_bold("\"%s\" Not a regular file", fn);
- goto fi0;
- }
- if (p < text || p > end) {
- status_line_bold("Trying to insert file outside of memory");
- goto fi0;
- }
-
- // read file to buffer
- fd = open(fn, O_RDONLY);
- if (fd < 0) {
- status_line_bold("\"%s\" %s", fn, strerror(errno));
- goto fi0;
- }
- size = statbuf.st_size;
- p += text_hole_make(p, size);
- cnt = safe_read(fd, p, size);
- if (cnt < 0) {
- status_line_bold("\"%s\" %s", fn, strerror(errno));
- p = text_hole_delete(p, p + size - 1); // un-do buffer insert
- } 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
- status_line_bold("can't read all of file \"%s\"", fn);
- }
- if (cnt >= size)
- file_modified++;
- close(fd);
- fi0:
-#if ENABLE_FEATURE_VI_READONLY
- if (update_ro_status
- && ((access(fn, W_OK) < 0) ||
- /* root will always have access()
- * so we check fileperms too */
- !(statbuf.st_mode & (S_IWUSR | S_IWGRP | S_IWOTH))
- )
+ Hit_Return();
+ } else if (strncmp(cmd, "quit", i) == 0 // quit
+ || strncmp(cmd, "next", i) == 0 // edit next file
+ || strncmp(cmd, "prev", i) == 0 // edit previous file
) {
- SET_READONLY_FILE(readonly_mode);
- }
-#endif
- return cnt;
-}
-
-static int file_write(char *fn, char *first, char *last)
-{
- int fd, cnt, charcnt;
-
- if (fn == 0) {
- status_line_bold("No current filename");
- return -2;
- }
- /* By popular request we do not open file with O_TRUNC,
- * but instead ftruncate() it _after_ successful write.
- * Might reduce amount of data lost on power fail etc.
- */
- fd = open(fn, (O_WRONLY | O_CREAT), 0666);
- if (fd < 0)
- return -1;
- cnt = last - first + 1;
- charcnt = full_write(fd, first, cnt);
- ftruncate(fd, charcnt);
- if (charcnt == cnt) {
- // good write
- //file_modified = FALSE;
- } else {
- charcnt = 0;
- }
- close(fd);
- return charcnt;
-}
-
-//----- Terminal Drawing ---------------------------------------
-// The terminal is made up of 'rows' line of 'columns' columns.
-// classically 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)
-{
- char cm1[sizeof(ESC_SET_CURSOR_POS) + sizeof(int)*3 * 2];
-
- if (row < 0) row = 0;
- if (row >= rows) row = rows - 1;
- if (col < 0) col = 0;
- if (col >= columns) col = columns - 1;
-
- sprintf(cm1, ESC_SET_CURSOR_POS, row + 1, col + 1);
- write1(cm1);
-}
-
-//----- Erase from cursor to end of line -----------------------
-static void clear_to_eol(void)
-{
- write1(ESC_CLEAR2EOL);
-}
-
-static void go_bottom_and_clear_to_eol(void)
-{
- place_cursor(rows - 1, 0);
- clear_to_eol();
-}
-
-//----- Erase from cursor to end of screen -----------------------
-static void clear_to_eos(void)
-{
- write1(ESC_CLEAR2EOS);
-}
-
-//----- Start standout mode ------------------------------------
-static void standout_start(void)
-{
- write1(ESC_BOLD_TEXT);
-}
-
-//----- End standout mode --------------------------------------
-static void standout_end(void)
-{
- write1(ESC_NORM_TEXT);
-}
-
-//----- Flash the screen --------------------------------------
-static void flash(int h)
-{
- standout_start();
- redraw(TRUE);
- mysleep(h);
- standout_end();
- redraw(TRUE);
-}
-
-static void Indicate_Error(void)
-{
-#if ENABLE_FEATURE_VI_CRASHME
- if (crashme > 0)
- return; // generate a random command
-#endif
- if (!err_method) {
- write1(ESC_BELL);
- } else {
- flash(10);
- }
-}
-
-//----- Screen[] Routines --------------------------------------
-//----- Erase the Screen[] memory ------------------------------
-static void screen_erase(void)
-{
- memset(screen, ' ', screensize); // clear new screen
-}
-
-static int bufsum(char *buf, int count)
-{
- int sum = 0;
- char *e = buf + count;
-
- while (buf < e)
- sum += (unsigned char) *buf++;
- return sum;
-}
-
-//----- Draw the status line at bottom of the screen -------------
-static void show_status_line(void)
-{
- int cnt = 0, cksum = 0;
+ int n;
+ if (useforce) {
+ if (*cmd == 'q') {
+ // force end of argv list
+ optind = save_argc;
+ }
+ editing = 0;
+ goto ret;
+ }
+ // don't exit if the file been modified
+ if (modified_count) {
+ status_line_bold("No write since last change (:%s! overrides)", cmd);
+ goto ret;
+ }
+ // are there other file to edit
+ n = save_argc - optind - 1;
+ if (*cmd == 'q' && n > 0) {
+ status_line_bold("%d more file(s) to edit", n);
+ goto ret;
+ }
+ if (*cmd == 'n' && n <= 0) {
+ status_line_bold("No more files to edit");
+ goto ret;
+ }
+ if (*cmd == 'p') {
+ // are there previous files to edit
+ if (optind < 1) {
+ status_line_bold("No previous files to edit");
+ goto ret;
+ }
+ optind -= 2;
+ }
+ editing = 0;
+ } else if (strncmp(cmd, "read", i) == 0) { // read file into text[]
+ int size;
- // either we already have an error or status message, or we
- // create one.
- if (!have_status_msg) {
- cnt = format_edit_status();
- cksum = bufsum(status_buffer, cnt);
- }
- if (have_status_msg || ((cnt > 0 && last_status_cksum != cksum))) {
- last_status_cksum = cksum; // remember if we have seen this line
- go_bottom_and_clear_to_eol();
- write1(status_buffer);
- if (have_status_msg) {
- if (((int)strlen(status_buffer) - (have_status_msg - 1)) >
- (columns - 1) ) {
- have_status_msg = 0;
- Hit_Return();
+ fn = args;
+ if (!fn[0]) {
+ status_line_bold("No filename given");
+ goto ret;
+ }
+ 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);
+ // read after last line
+ if (q == end-1)
+ ++q;
+ }
+ { // dance around potentially-reallocated text[]
+ uintptr_t ofs = q - text;
+ size = file_insert(fn, q, 0);
+ q = text + ofs;
+ }
+ if (size < 0)
+ goto ret; // nothing was inserted
+ // how many lines in text[]?
+ li = count_lines(q, q + size - 1);
+ status_line("'%s'"
+ IF_FEATURE_VI_READONLY("%s")
+ " %dL, %dC",
+ fn,
+ IF_FEATURE_VI_READONLY((readonly_mode ? " [Readonly]" : ""),)
+ li, size
+ );
+ if (size > 0) {
+ // if the insert is before "dot" then we need to update
+ if (q <= dot)
+ dot += size;
+ }
+ } else if (strncmp(cmd, "rewind", i) == 0) { // rewind cmd line args
+ if (modified_count && !useforce) {
+ status_line_bold("No write since last change (:%s! overrides)", cmd);
+ } else {
+ // reset the filenames to edit
+ optind = -1; // start from 0th file
+ editing = 0;
+ }
+# if ENABLE_FEATURE_VI_SET
+ } else if (strncmp(cmd, "set", i) == 0) { // set or clear features
+# if ENABLE_FEATURE_VI_SETOPTS
+ char *argp;
+# endif
+ i = 0; // offset into args
+ // only blank is regarded as args delimiter. What about tab '\t'?
+ if (!args[0] || strcasecmp(args, "all") == 0) {
+ // print out values of all options
+# if ENABLE_FEATURE_VI_SETOPTS
+ status_line_bold(
+ "%sautoindent "
+ "%sflash "
+ "%signorecase "
+ "%sshowmatch "
+ "tabstop=%u",
+ autoindent ? "" : "no",
+ err_method ? "" : "no",
+ ignorecase ? "" : "no",
+ showmatch ? "" : "no",
+ tabstop
+ );
+# endif
+ goto ret;
+ }
+# if ENABLE_FEATURE_VI_SETOPTS
+ argp = args;
+ while (*argp) {
+ if (strncmp(argp, "no", 2) == 0)
+ i = 2; // ":set noautoindent"
+ setops(argp, "autoindent ", i, "ai", VI_AUTOINDENT);
+ setops(argp, "flash " , i, "fl", VI_ERR_METHOD);
+ setops(argp, "ignorecase ", i, "ic", VI_IGNORECASE);
+ setops(argp, "showmatch " , i, "sm", VI_SHOWMATCH );
+ if (strncmp(argp + i, "tabstop=", 8) == 0) {
+ int t = 0;
+ sscanf(argp + i+8, "%u", &t);
+ if (t > 0 && t <= MAX_TABSTOP)
+ tabstop = t;
}
- have_status_msg = 0;
+ argp = skip_non_whitespace(argp);
+ argp = skip_whitespace(argp);
}
- place_cursor(crow, ccol); // put cursor back in correct place
- }
- fflush_all();
-}
-
-//----- format the status buffer, the bottom line of screen ------
-// format status buffer, with STANDOUT mode
-static void status_line_bold(const char *format, ...)
-{
- va_list args;
-
- va_start(args, format);
- strcpy(status_buffer, ESC_BOLD_TEXT);
- vsprintf(status_buffer + sizeof(ESC_BOLD_TEXT)-1, format, args);
- strcat(status_buffer, ESC_NORM_TEXT);
- va_end(args);
-
- have_status_msg = 1 + sizeof(ESC_BOLD_TEXT) + sizeof(ESC_NORM_TEXT) - 2;
-}
-
-// format status buffer
-static void status_line(const char *format, ...)
-{
- va_list args;
-
- va_start(args, format);
- vsprintf(status_buffer, format, args);
- va_end(args);
+# endif /* FEATURE_VI_SETOPTS */
+# endif /* FEATURE_VI_SET */
- have_status_msg = 1;
-}
+# if ENABLE_FEATURE_VI_SEARCH
+ } else if (cmd[0] == 's') { // substitute a pattern with a replacement pattern
+ char *F, *R, *flags;
+ size_t len_F, len_R;
+ int gflag; // global replace flag
+# if ENABLE_FEATURE_VI_UNDO
+ int dont_chain_first_item = ALLOW_UNDO;
+# endif
-// copy s to buf, convert unprintable
-static void print_literal(char *buf, const char *s)
-{
- char *d;
- unsigned char c;
+ // F points to the "find" pattern
+ // R points to the "replace" pattern
+ // replace the cmd line delimiters "/" with NULs
+ c = orig_buf[1]; // what is the delimiter
+ F = orig_buf + 2; // start of "find"
+ R = strchr(F, c); // middle delimiter
+ if (!R)
+ goto colon_s_fail;
+ len_F = R - F;
+ *R++ = '\0'; // terminate "find"
+ flags = strchr(R, c);
+ if (!flags)
+ goto colon_s_fail;
+ len_R = flags - R;
+ *flags++ = '\0'; // terminate "replace"
+ gflag = *flags;
- buf[0] = '\0';
- if (!s[0])
- s = "(NULL)";
+ 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/
- d = buf;
- for (; *s; s++) {
- int c_is_no_print;
+ for (i = b; i <= e; i++) { // so, :20,23 s \0 find \0 replace \0
+ char *ls = q; // orig line start
+ char *found;
+ vc4:
+ found = char_search(q, F, (FORWARD << 1) | LIMITED); // search cur line only for "find"
+ if (found) {
+ uintptr_t bias;
+ // we found the "find" pattern - delete it
+ // For undo support, the first item should not be chained
+ text_hole_delete(found, found + len_F - 1, dont_chain_first_item);
+# if ENABLE_FEATURE_VI_UNDO
+ dont_chain_first_item = ALLOW_UNDO_CHAIN;
+# endif
+ // insert the "replace" patern
+ bias = string_insert(found, R, ALLOW_UNDO_CHAIN);
+ found += bias;
+ ls += bias;
+ //q += bias; - recalculated anyway
+ // check for "global" :s/foo/bar/g
+ if (gflag == 'g') {
+ if ((found + len_R) < end_line(ls)) {
+ q = found + len_R;
+ goto vc4; // don't let q move past cur line
+ }
+ }
+ }
+ q = next_line(ls);
+ }
+# endif /* FEATURE_VI_SEARCH */
+ } else if (strncmp(cmd, "version", i) == 0) { // show software version
+ status_line(BB_VER);
+ } else if (strncmp(cmd, "write", i) == 0 // write text to file
+ || strncmp(cmd, "wq", i) == 0
+ || strncmp(cmd, "wn", i) == 0
+ || (cmd[0] == 'x' && !cmd[1])
+ ) {
+ int size;
+ //int forced = FALSE;
- c = *s;
- c_is_no_print = (c & 0x80) && !Isprint(c);
- if (c_is_no_print) {
- strcpy(d, ESC_NORM_TEXT);
- d += sizeof(ESC_NORM_TEXT)-1;
- c = '.';
+ // is there a file name to write to?
+ if (args[0]) {
+ fn = args;
}
- if (c < ' ' || c == 0x7f) {
- *d++ = '^';
- c |= '@'; /* 0x40 */
- if (c == 0x7f)
- c = '?';
+# if ENABLE_FEATURE_VI_READONLY
+ if (readonly_mode && !useforce) {
+ status_line_bold("'%s' is read only", fn);
+ goto ret;
}
- *d++ = c;
- *d = '\0';
- if (c_is_no_print) {
- strcpy(d, ESC_BOLD_TEXT);
- d += sizeof(ESC_BOLD_TEXT)-1;
+# endif
+ //if (useforce) {
+ // if "fn" is not write-able, chmod u+w
+ // sprintf(syscmd, "chmod u+w %s", fn);
+ // system(syscmd);
+ // forced = TRUE;
+ //}
+ if (modified_count != 0 || cmd[0] != 'x') {
+ size = r - q + 1;
+ l = file_write(fn, q, r);
+ } else {
+ size = 0;
+ l = 0;
}
- if (*s == '\n') {
- *d++ = '$';
- *d = '\0';
+ //if (useforce && forced) {
+ // chmod u-w
+ // sprintf(syscmd, "chmod u-w %s", fn);
+ // system(syscmd);
+ // forced = FALSE;
+ //}
+ if (l < 0) {
+ if (l == -1)
+ status_line_bold_errno(fn);
+ } else {
+ // how many lines written
+ li = count_lines(q, q + l - 1);
+ status_line("'%s' %dL, %dC", fn, li, l);
+ if (l == size) {
+ if (q == text && q + l == end) {
+ modified_count = 0;
+ last_modified_count = -1;
+ }
+ if (cmd[0] == 'x'
+ || cmd[1] == 'q' || cmd[1] == 'n'
+ || cmd[1] == 'Q' || cmd[1] == 'N'
+ ) {
+ editing = 0;
+ }
+ }
}
- if (d - buf > MAX_INPUT_LEN - 10) // paranoia
- break;
+# if ENABLE_FEATURE_VI_YANKMARK
+ } else if (strncmp(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);
+ status_line("Yank %d lines (%d chars) into [%c]",
+ li, strlen(reg[YDreg]), what_reg());
+# endif
+ } else {
+ // cmd unknown
+ not_implemented(cmd);
}
+ ret:
+ dot = bound_dot(dot); // make sure "dot" is valid
+ return;
+# if ENABLE_FEATURE_VI_SEARCH
+ colon_s_fail:
+ status_line(":s expression missing delimiters");
+# endif
+#endif /* FEATURE_VI_COLON */
}
-static void not_implemented(const char *s)
-{
- char buf[MAX_INPUT_LEN];
-
- print_literal(buf, s);
- status_line_bold("\'%s\' is not implemented", buf);
-}
+//----- 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
-// show file status on status line
-static int format_edit_status(void)
+static char *new_screen(int ro, int co)
{
- static const char cmd_mode_indicator[] ALIGN1 = "-IR-";
-
-#define tot format_edit_status__tot
-
- int cur, percent, ret, trunc_at;
-
- // file_modified is now a counter rather than a flag. this
- // helps reduce the amount of line counting we need to do.
- // (this will cause a mis-reporting of modified status
- // once every MAXINT editing operations.)
-
- // it would be nice to do a similar optimization here -- if
- // we haven't done a motion that could have changed which line
- // we're on, then we shouldn't have to do this count_lines()
- cur = count_lines(text, dot);
-
- // reduce counting -- the total lines can't have
- // changed if we haven't done any edits.
- if (file_modified != last_file_modified) {
- tot = cur + count_lines(dot, end - 1) - 1;
- last_file_modified = file_modified;
- }
-
- // current line percent
- // ------------- ~~ ----------
- // total lines 100
- if (tot > 0) {
- percent = (100 * cur) / tot;
- } else {
- cur = tot = 0;
- percent = 100;
- }
-
- trunc_at = columns < STATUS_BUFFER_LEN-1 ?
- columns : STATUS_BUFFER_LEN-1;
-
- ret = snprintf(status_buffer, trunc_at+1,
-#if ENABLE_FEATURE_VI_READONLY
- "%c %s%s%s %d/%d %d%%",
-#else
- "%c %s%s %d/%d %d%%",
-#endif
- cmd_mode_indicator[cmd_mode & 3],
- (current_filename != NULL ? current_filename : "No file"),
-#if ENABLE_FEATURE_VI_READONLY
- (readonly_mode ? " [Readonly]" : ""),
-#endif
- (file_modified ? " [Modified]" : ""),
- cur, tot, percent);
-
- if (ret >= 0 && ret < trunc_at)
- return ret; /* it all fit */
+ int li;
- return trunc_at; /* had to truncate */
-#undef tot
+ free(screen);
+ screensize = ro * co + 8;
+ screen = xmalloc(screensize);
+ // initialize the new screen. assume this will be a empty file.
+ screen_erase();
+ // non-existent text[] lines start with a tilde (~).
+ for (li = 1; li < ro - 1; li++) {
+ screen[(li * co) + 0] = '~';
+ }
+ return screen;
}
-//----- Force refresh of all Lines -----------------------------
-static void redraw(int full_screen)
+static int st_test(char *p, int type, int dir, char *tested)
{
- place_cursor(0, 0);
- clear_to_eos();
- screen_erase(); // erase the internal screen buffer
- last_status_cksum = 0; // force status update
- refresh(full_screen); // this will redraw the entire display
- show_status_line();
+ char 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;
}
-//----- Format a text[] line into a buffer ---------------------
-static char* format_line(char *src /*, int li*/)
+static char *skip_thing(char *p, int linecnt, int dir, int type)
{
- unsigned char c;
- int co;
- int ofs = offset;
- char *dest = scr_out_buf; // [MAX_SCR_COLS + MAX_TABSTOP * 2]
+ char c;
- c = '~'; // char in col 0 in non-existent lines is '~'
- co = 0;
- while (co < columns + tabstop) {
- // have we gone past the end?
- if (src < end) {
- c = *src++;
- if (c == '\n')
- break;
- if ((c & 0x80) && !Isprint(c)) {
- c = '.';
- }
- if (c < ' ' || c == 0x7f) {
- if (c == '\t') {
- c = ' ';
- // co % 8 != 7
- while ((co % tabstop) != (tabstop - 1)) {
- dest[co++] = c;
- }
- } else {
- dest[co++] = '^';
- if (c == 0x7f)
- c = '?';
- else
- c += '@'; // Ctrl-X -> 'X'
- }
- }
- }
- dest[co++] = c;
- // discard scrolled-off-to-the-left portion,
- // in tabstop-sized pieces
- if (ofs >= tabstop && co >= tabstop) {
- memmove(dest, dest + tabstop, co);
- co -= tabstop;
- ofs -= tabstop;
- }
- if (src >= end)
+ 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
}
- // check "short line, gigantic offset" case
- if (co < ofs)
- ofs = co;
- // discard last scrolled off part
- co -= ofs;
- dest += ofs;
- // fill the rest with spaces
- if (co < columns)
- memset(&dest[co], ' ', columns - co);
- return dest;
+ return p;
}
-//----- 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)
+#if ENABLE_FEATURE_VI_USE_SIGNALS
+static void winch_handler(int sig UNUSED_PARAM)
{
-#define old_offset refresh__old_offset
+ int save_errno = errno;
+ // FIXME: do it in main loop!!!
+ signal(SIGWINCH, winch_handler);
+ query_screen_dimensions();
+ new_screen(rows, columns); // get memory for virtual screen
+ redraw(TRUE); // re-draw the screen
+ errno = save_errno;
+}
+static void tstp_handler(int sig UNUSED_PARAM)
+{
+ int save_errno = errno;
- int li, changed;
- char *tp, *sp; // pointer into text[] and screen[]
+ // ioctl inside cookmode() was seen to generate SIGTTOU,
+ // stopping us too early. Prevent that:
+ signal(SIGTTOU, SIG_IGN);
- if (ENABLE_FEATURE_VI_WIN_RESIZE IF_FEATURE_VI_ASK_TERMINAL(&& !G.get_rowcol_error) ) {
- unsigned c = columns, r = rows;
- query_screen_dimensions();
- full_screen |= (c - columns) | (r - rows);
- }
- sync_cursor(dot, &crow, &ccol); // where cursor will be (on "dot")
- tp = screenbegin; // index into text[] of top line
+ go_bottom_and_clear_to_eol();
+ cookmode(); // terminal to "cooked"
- // compare text[] to screen[] and mark screen[] lines that need updating
- for (li = 0; li < rows - 1; li++) {
- int cs, ce; // column start & end
- char *out_buf;
- // format current text line
- out_buf = format_line(tp /*, li*/);
+ // stop now
+ //signal(SIGTSTP, SIG_DFL);
+ //raise(SIGTSTP);
+ raise(SIGSTOP); // avoid "dance" with TSTP handler - use SIGSTOP instead
+ //signal(SIGTSTP, tstp_handler);
- // skip to the end of the current text[] line
- if (tp < end) {
- char *t = memchr(tp, '\n', end - tp);
- if (!t) t = end - 1;
- tp = t + 1;
- }
+ // we have been "continued" with SIGCONT, restore screen and termios
+ rawmode(); // terminal to "raw"
+ last_status_cksum = 0; // force status update
+ redraw(TRUE); // re-draw the screen
- // see if there are any changes between vitual screen and out_buf
- changed = FALSE; // assume no change
- cs = 0;
- ce = columns - 1;
- sp = &screen[li * columns]; // start of screen line
- if (full_screen) {
- // force re-draw of every single column from 0 - columns-1
- goto re0;
- }
- // compare newly formatted buffer with virtual screen
- // look forward for first difference between buf and screen
- for (; cs <= ce; cs++) {
- if (out_buf[cs] != sp[cs]) {
- changed = TRUE; // mark for redraw
- break;
- }
- }
+ errno = save_errno;
+}
+static void int_handler(int sig)
+{
+ signal(SIGINT, int_handler);
+ siglongjmp(restart, sig);
+}
+#endif /* FEATURE_VI_USE_SIGNALS */
- // look backward for last difference between out_buf and screen
- for (; ce >= cs; ce--) {
- if (out_buf[ce] != sp[ce]) {
- changed = TRUE; // mark for redraw
- break;
- }
- }
- // now, cs is index of first diff, and ce is index of last diff
+static void do_cmd(int c);
- // if horz offset has changed, force a redraw
- if (offset != old_offset) {
- re0:
- changed = TRUE;
- }
+static int find_range(char **start, char **stop, char c)
+{
+ char *save_dot, *p, *q, *t;
+ int cnt, multiline = 0;
- // make a sanity check of columns indexes
- if (cs < 0) cs = 0;
- if (ce > columns - 1) ce = columns - 1;
- if (cs > ce) { cs = 0; ce = columns - 1; }
- // is there a change between vitual screen and out_buf
- if (changed) {
- // copy changed part of buffer to virtual screen
- memcpy(sp+cs, out_buf+cs, ce-cs+1);
- place_cursor(li, cs);
- // write line out to terminal
- fwrite(&sp[cs], ce - cs + 1, 1, stdout);
+ save_dot = dot;
+ p = q = dot;
+
+ if (strchr("cdy><", c)) {
+ // these cmds operate on whole lines
+ p = q = begin_line(p);
+ for (cnt = 1; cnt < cmdcnt; cnt++) {
+ q = next_line(q);
}
+ q = end_line(q);
+ } else if (strchr("^%$0bBeEfth\b\177", c)) {
+ // These cmds operate on char positions
+ do_cmd(c); // execute movement cmd
+ q = dot;
+ } else if (strchr("wW", c)) {
+ do_cmd(c); // execute movement cmd
+ // if we are at the next word's first char
+ // step back one char
+ // but check the possibilities when it is true
+ if (dot > text && ((isspace(dot[-1]) && !isspace(dot[0]))
+ || (ispunct(dot[-1]) && !ispunct(dot[0]))
+ || (isalnum(dot[-1]) && !isalnum(dot[0]))))
+ dot--; // move back off of next word
+ if (dot > text && *dot == '\n')
+ dot--; // stay off NL
+ q = dot;
+ } else if (strchr("H-k{", c)) {
+ // these operate on multi-lines backwards
+ q = end_line(dot); // find NL
+ do_cmd(c); // execute movement cmd
+ dot_begin();
+ p = dot;
+ } else if (strchr("L+j}\r\n", c)) {
+ // these operate on multi-lines forwards
+ p = begin_line(dot);
+ do_cmd(c); // execute movement cmd
+ dot_end(); // find NL
+ q = dot;
+ } else {
+ // nothing -- this causes any other values of c to
+ // represent the one-character range under the
+ // cursor. this is correct for ' ' and 'l', but
+ // perhaps no others.
+ //
+ }
+ if (q < p) {
+ t = q;
+ q = p;
+ p = t;
}
- place_cursor(crow, ccol);
+ // backward char movements don't include start position
+ if (q > p && strchr("^0bBh\b\177", c)) q--;
- old_offset = offset;
-#undef old_offset
+ multiline = 0;
+ for (t = p; t <= q; t++) {
+ if (*t == '\n') {
+ multiline = 1;
+ break;
+ }
+ }
+
+ *start = p;
+ *stop = q;
+ dot = save_dot;
+ return multiline;
}
//---------------------------------------------------------------------
//----- 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
show_status_line();
- /* if this is a cursor key, skip these checks */
+ // if this is a cursor key, skip these checks
switch (c) {
case KEYCODE_UP:
case KEYCODE_DOWN:
if (*dot == '\n') {
// don't Replace past E-o-l
cmd_mode = 1; // convert to insert
+ undo_queue_commit();
} else {
if (1 <= c || Isprint(c)) {
if (c != 27)
- dot = yank_delete(dot, dot, 0, YANKDEL); // delete char
- dot = char_insert(dot, c); // insert new char
+ dot = yank_delete(dot, dot, 0, YANKDEL, ALLOW_UNDO); // delete char
+ dot = char_insert(dot, c, ALLOW_UNDO_CHAIN); // insert new char
}
goto dc1;
}
}
if (cmd_mode == 1) {
- // hitting "Insert" twice means "R" replace mode
+ // hitting "Insert" twice means "R" replace mode
if (c == KEYCODE_INSERT) goto dc5;
// insert the char c at "dot"
if (1 <= c || Isprint(c)) {
- dot = char_insert(dot, c);
+ dot = char_insert(dot, c, ALLOW_UNDO_QUEUED);
}
goto dc1;
}
//case ']': // ]-
//case '_': // _-
//case '`': // `-
- //case 'u': // u- FIXME- there is no undo
//case 'v': // v-
default: // unrecognized command
buf[0] = c;
break;
case 12: // ctrl-L force redraw whole screen
case 18: // ctrl-R force redraw
- place_cursor(0, 0);
- clear_to_eos();
- //mysleep(10); // why???
- screen_erase(); // erase the internal screen buffer
- last_status_cksum = 0; // force status update
- refresh(TRUE); // this will redraw the entire display
+ redraw(TRUE); // this will redraw the entire display
break;
case 13: // Carriage Return ^M
case '+': // +- goto next line
dot_skip_over_ws();
} while (--cmdcnt > 0);
break;
- case 21: // ctrl-U scroll up half screen
+ case 21: // ctrl-U scroll up half screen
dot_scroll((rows - 2) / 2, -1);
break;
case 25: // ctrl-Y scroll up one line
break;
case 27: // esc
if (cmd_mode == 0)
- indicate_error(c);
- cmd_mode = 0; // stop insrting
+ indicate_error();
+ cmd_mode = 0; // stop inserting
+ undo_queue_commit();
end_cmd_q();
last_status_cksum = 0; // force status update
break;
if ((unsigned)c1 <= 25) { // a-z?
YDreg = c1;
} else {
- indicate_error(c);
+ indicate_error();
}
break;
case '\'': // '- goto a specific mark
- c1 = (get_one_char() | 0x20) - 'a';
- if ((unsigned)c1 <= 25) { // a-z?
+ c1 = (get_one_char() | 0x20);
+ if ((unsigned)(c1 - 'a') <= 25) { // a-z?
+ c1 = (c1 - 'a');
// get the b-o-l
q = mark[c1];
if (text <= q && q < end) {
dot_begin(); // go to B-o-l
dot_skip_over_ws();
} else {
- indicate_error(c);
+ indicate_error();
}
break;
case 'm': // m- Mark a line
// remember the line
mark[c1] = dot;
} else {
- indicate_error(c);
+ indicate_error();
}
break;
case 'P': // P- Put register before
if (c == 'p')
dot_right(); // move to right, can move to NL
}
- string_insert(dot, p); // insert the string
+ string_insert(dot, p, ALLOW_UNDO); // insert the string
end_cmd_q(); // stop adding to q
break;
case 'U': // U- Undo; replace current line with original version
if (reg[Ureg] != NULL) {
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
+ p = text_hole_delete(p, q, ALLOW_UNDO); // delete cur line
+ p += string_insert(p, reg[Ureg], ALLOW_UNDO_CHAIN); // insert orig line
dot = p;
dot_skip_over_ws();
}
break;
#endif /* FEATURE_VI_YANKMARK */
+#if ENABLE_FEATURE_VI_UNDO
+ case 'u': // u- undo last operation
+ undo_pop();
+ break;
+#endif
case '$': // $- goto end of line
case KEYCODE_END: // Cursor Key End
for (;;) {
// we found half of a pair
p = find_pair(q, *q);
if (p == NULL) {
- indicate_error(c);
+ indicate_error();
} else {
dot = p;
}
}
}
if (*q == '\n')
- indicate_error(c);
+ indicate_error();
break;
case 'f': // f- forward to a user specified char
last_forward_char = get_one_char(); // get the search char
case '.': // .- repeat the last modifying command
// Stuff the last_modifying_cmd back into stdin
// and let it be re-executed.
- if (lmc_len > 0) {
- last_modifying_cmd[lmc_len] = 0;
- ioq = ioq_start = xstrdup(last_modifying_cmd);
+ if (lmc_len != 0) {
+ ioq = ioq_start = xstrndup(last_modifying_cmd, lmc_len);
}
break;
#endif
p = dot - 1;
}
dc4:
- q = char_search(p, last_search_pattern + 1, dir, FULL);
+ q = char_search(p, last_search_pattern + 1, (dir << 1) | FULL);
if (q != NULL) {
dot = q; // good search, update "dot"
msg = NULL;
if (dir == BACK) {
p = end - 1;
}
- q = char_search(p, last_search_pattern + 1, dir, FULL);
+ q = char_search(p, last_search_pattern + 1, (dir << 1) | FULL);
if (q != NULL) { // found something
dot = q; // found new pattern- goto it
msg = "search hit BOTTOM, continuing at TOP";
} while (--cmdcnt > 0);
break;
case '{': // {- move backward paragraph
- q = char_search(dot, "\n\n", BACK, FULL);
+ q = char_search(dot, "\n\n", (BACK << 1) | 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, "\n\n", FORWARD, FULL);
+ q = char_search(dot, "\n\n", (FORWARD << 1) | FULL);
if (q != NULL) { // found blank line
dot = next_line(q); // move to next blank line
}
break;
#endif /* FEATURE_VI_SEARCH */
- case '0': // 0- goto begining of line
+ case '0': // 0- goto beginning of line
case '1': // 1-
case '2': // 2-
case '3': // 3-
break;
case ':': // :- the colon mode commands
p = get_input_line(":"); // get input line- use "status line"
-#if ENABLE_FEATURE_VI_COLON
colon(p); // execute the command
-#else
- if (*p == ':')
- p++; // move past the ':'
- cnt = strlen(p);
- if (cnt <= 0)
- break;
- if (strncmp(p, "quit", cnt) == 0
- || strncmp(p, "q!", cnt) == 0 // delete lines
- ) {
- if (file_modified && p[1] != '!') {
- status_line_bold("No write since last change (:%s! overrides)", p);
- } else {
- editing = 0;
- }
- } else if (strncmp(p, "write", cnt) == 0
- || strncmp(p, "wq", cnt) == 0
- || strncmp(p, "wn", cnt) == 0
- || (p[0] == 'x' && !p[1])
- ) {
- cnt = file_write(current_filename, text, end - 1);
- if (cnt < 0) {
- if (cnt == -1)
- status_line_bold("Write error: %s", strerror(errno));
- } else {
- file_modified = 0;
- last_file_modified = -1;
- status_line("\"%s\" %dL, %dC", current_filename, count_lines(text, end - 1), cnt);
- if (p[0] == 'x' || p[1] == 'q' || p[1] == 'n'
- || p[0] == 'X' || p[1] == 'Q' || p[1] == 'N'
- ) {
- editing = 0;
- }
- }
- } else if (strncmp(p, "file", cnt) == 0) {
- last_status_cksum = 0; // force status update
- } else if (sscanf(p, "%d", &j) > 0) {
- dot = find_line(j); // go to line # j
- dot_skip_over_ws();
- } else { // unrecognized cmd
- not_implemented(p);
- }
-#endif /* !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);
- yank_delete(p, q, 1, YANKONLY); // save copy before change
+ yank_delete(p, q, 1, YANKONLY, NO_UNDO); // save copy before change
p = begin_line(p);
q = end_line(q);
i = count_lines(p, q); // # of lines we are shifting
// shift left- remove tab or 8 spaces
if (*p == '\t') {
// shrink buffer 1 char
- text_hole_delete(p, p);
+ text_hole_delete(p, p, NO_UNDO);
} else if (*p == ' ') {
// we should be calculating columns, not just SPACE
for (j = 0; *p == ' ' && j < tabstop; j++) {
- text_hole_delete(p, p);
+ text_hole_delete(p, p, NO_UNDO);
}
}
} else if (c == '>') {
// shift right -- add tab or 8 spaces
- char_insert(p, '\t');
+ char_insert(p, '\t', ALLOW_UNDO);
}
}
dot = find_line(cnt); // what line were we on
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
+ dot = yank_delete(save_dot, dot, 0, YANKDEL, ALLOW_UNDO); // delete to e-o-l
if (c == 'C')
goto dc_i; // start inserting
#if ENABLE_FEATURE_VI_DOT_CMD
c1 = get_one_char();
if (c1 != 'g') {
buf[0] = 'g';
- buf[1] = c1; // TODO: if Unicode?
+ // c1 < 0 if the key was special. Try "g<up-arrow>"
+ // TODO: if Unicode?
+ buf[1] = (c1 >= 0 ? c1 : '*');
buf[2] = '\0';
not_implemented(buf);
break;
}
if (cmdcnt == 0)
cmdcnt = 1;
- /* fall through */
+ // fall through
case 'G': // G- goto to a line number (default= E-O-F)
dot = end - 1; // assume E-O-F
if (cmdcnt > 0) {
case KEYCODE_INSERT: // Cursor Key Insert
dc_i:
cmd_mode = 1; // start inserting
+ undo_queue_commit(); // commit queue when cmd_mode changes
break;
case 'J': // J- join current and next lines together
do {
dot_end(); // move to NL
if (dot < end - 1) { // make sure not last char in text[]
+#if ENABLE_FEATURE_VI_UNDO
+ undo_push(dot, 1, UNDO_DEL);
*dot++ = ' '; // replace NL with space
- file_modified++;
+ undo_push((dot - 1), 1, UNDO_INS_CHAIN);
+#else
+ *dot++ = ' ';
+ modified_count++;
+#endif
while (isblank(*dot)) { // delete leading WS
- dot_delete();
+ text_hole_delete(dot, dot, ALLOW_UNDO_CHAIN);
}
}
} while (--cmdcnt > 0);
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');
+ dot = char_insert(dot, '\n', ALLOW_UNDO);
} else {
dot_begin(); // 0
- dot = char_insert(dot, '\n'); // i\n ESC
+ dot = char_insert(dot, '\n', ALLOW_UNDO); // i\n ESC
dot_prev(); // -
}
goto dc_i;
case 'R': // R- continuous Replace char
dc5:
cmd_mode = 2;
+ undo_queue_commit();
break;
case KEYCODE_DELETE:
- c = 'x';
- // fall through
+ if (dot < end - 1)
+ dot = yank_delete(dot, dot, 1, YANKDEL, ALLOW_UNDO);
+ break;
case 'X': // X- delete char before dot
case 'x': // x- delete the current char
case 's': // s- substitute the current char
if (dot[dir] != '\n') {
if (c == 'X')
dot--; // delete prev char
- dot = yank_delete(dot, dot, 0, YANKDEL); // delete char
+ dot = yank_delete(dot, dot, 0, YANKDEL, ALLOW_UNDO); // delete char
}
} while (--cmdcnt > 0);
end_cmd_q(); // stop adding to q
// ZZ means to save file (if necessary), then exit
c1 = get_one_char();
if (c1 != 'Z') {
- indicate_error(c);
+ indicate_error();
break;
}
- if (file_modified) {
+ if (modified_count) {
if (ENABLE_FEATURE_VI_READONLY && readonly_mode) {
- status_line_bold("\"%s\" File is read only", current_filename);
+ status_line_bold("'%s' is read only", current_filename);
break;
}
cnt = file_write(current_filename, text, end - 1);
if (cnt < 0) {
if (cnt == -1)
- status_line_bold("Write error: %s", strerror(errno));
+ status_line_bold("Write error: "STRERROR_FMT STRERROR_ERRNO);
} else if (cnt == (end - 1 - text + 1)) {
editing = 0;
}
c1 = get_one_char(); // get the type of thing to delete
// determine range, and whether it spans lines
ml = find_range(&p, &q, c1);
+ place_cursor(0, 0);
if (c1 == 27) { // ESC- user changed mind and wants out
c = c1 = 27; // Escape- do nothing
} else if (strchr("wW", c1)) {
q--;
}
}
- dot = yank_delete(p, q, ml, yf); // delete word
+ dot = yank_delete(p, q, ml, yf, ALLOW_UNDO); // delete word
} else if (strchr("^0bBeEft%$ lh\b\177", c1)) {
// partial line copy text into a register and delete
- dot = yank_delete(p, q, ml, yf); // delete word
+ dot = yank_delete(p, q, ml, yf, ALLOW_UNDO); // delete word
} else if (strchr("cdykjHL+-{}\r\n", c1)) {
// whole line copy text into a register and delete
- dot = yank_delete(p, q, ml, yf); // delete lines
+ dot = yank_delete(p, q, ml, yf, ALLOW_UNDO); // delete lines
whole = 1;
} else {
// could not recognize object
c = c1 = 27; // error-
ml = 0;
- indicate_error(c);
+ indicate_error();
}
if (ml && whole) {
if (c == 'c') {
- dot = char_insert(dot, '\n');
+ dot = char_insert(dot, '\n', ALLOW_UNDO_CHAIN);
// on the last line of file don't move to prev line
if (whole && dot != (end-1)) {
dot_prev();
if (*p == '\n')
cnt++;
}
- status_line("%s %d lines (%d chars) using [%c]",
- buf, cnt, strlen(reg[YDreg]), what_reg());
+ status_line("%s %u lines (%u chars) using [%c]",
+ buf, cnt, (unsigned)strlen(reg[YDreg]), what_reg());
#endif
end_cmd_q(); // stop adding to q
}
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++;
+ dot = text_hole_delete(dot, dot, ALLOW_UNDO);
+ dot = char_insert(dot, c1, ALLOW_UNDO_CHAIN);
+ dot_left();
}
end_cmd_q(); // stop adding to q
break;
break;
case '~': // ~- flip the case of letters a-z -> A-Z
do {
+#if ENABLE_FEATURE_VI_UNDO
+ if (islower(*dot)) {
+ undo_push(dot, 1, UNDO_DEL);
+ *dot = toupper(*dot);
+ undo_push(dot, 1, UNDO_INS_CHAIN);
+ } else if (isupper(*dot)) {
+ undo_push(dot, 1, UNDO_DEL);
+ *dot = tolower(*dot);
+ undo_push(dot, 1, UNDO_INS_CHAIN);
+ }
+#else
if (islower(*dot)) {
*dot = toupper(*dot);
- file_modified++;
+ modified_count++;
} else if (isupper(*dot)) {
*dot = tolower(*dot);
- file_modified++;
+ modified_count++;
}
+#endif
dot_right();
} while (--cmdcnt > 0);
end_cmd_q(); // stop adding to q
dc1:
// if text[] just became empty, add back an empty line
if (end == text) {
- char_insert(text, '\n'); // start empty buf with dummy line
+ char_insert(text, '\n', NO_UNDO); // start empty buf with dummy line
dot = text;
}
// it is OK for dot to exactly equal to end, otherwise check dot validity
dot--;
}
-/* NB! the CRASHME code is unmaintained, and doesn't currently build */
+// NB! the CRASHME code is unmaintained, and doesn't currently build
#if ENABLE_FEATURE_VI_CRASHME
static int totalcmds = 0;
static int Mp = 85; // Movement command Probability
sleeptime = 0; // how fast to type
}
}
- strcat(readbuffer, "\033");
+ strcat(readbuffer, ESC);
}
readbuffer[0] = strlen(readbuffer + 1);
cd1:
}
}
#endif
+
+static void edit_file(char *fn)
+{
+#if ENABLE_FEATURE_VI_YANKMARK
+#define cur_line edit_file__cur_line
+#endif
+ int c;
+#if ENABLE_FEATURE_VI_USE_SIGNALS
+ int sig;
+#endif
+
+ editing = 1; // 0 = exit, 1 = one file, 2 = multiple files
+ rawmode();
+ rows = 24;
+ columns = 80;
+ IF_FEATURE_VI_ASK_TERMINAL(G.get_rowcol_error =) query_screen_dimensions();
+#if ENABLE_FEATURE_VI_ASK_TERMINAL
+ if (G.get_rowcol_error /* TODO? && no input on stdin */) {
+ uint64_t k;
+ write1(ESC"[999;999H" ESC"[6n");
+ fflush_all();
+ k = read_key(STDIN_FILENO, readbuffer, /*timeout_ms:*/ 100);
+ if ((int32_t)k == KEYCODE_CURSOR_POS) {
+ uint32_t rc = (k >> 32);
+ columns = (rc & 0x7fff);
+ if (columns > MAX_SCR_COLS)
+ columns = MAX_SCR_COLS;
+ rows = ((rc >> 16) & 0x7fff);
+ if (rows > MAX_SCR_ROWS)
+ rows = MAX_SCR_ROWS;
+ }
+ }
+#endif
+ new_screen(rows, columns); // get memory for virtual screen
+ init_text_buffer(fn);
+
+#if ENABLE_FEATURE_VI_YANKMARK
+ YDreg = 26; // default Yank/Delete reg
+// Ureg = 27; - const // hold orig line for "U" cmd
+ mark[26] = mark[27] = text; // init "previous context"
+#endif
+
+ last_forward_char = '\0';
+#if ENABLE_FEATURE_VI_CRASHME
+ last_input_char = '\0';
+#endif
+ crow = 0;
+ ccol = 0;
+
+#if ENABLE_FEATURE_VI_USE_SIGNALS
+ signal(SIGWINCH, winch_handler);
+ signal(SIGTSTP, tstp_handler);
+ sig = sigsetjmp(restart, 1);
+ if (sig != 0) {
+ screenbegin = dot = text;
+ }
+ // int_handler() can jump to "restart",
+ // must install handler *after* initializing "restart"
+ signal(SIGINT, int_handler);
+#endif
+
+ cmd_mode = 0; // 0=command 1=insert 2='R'eplace
+ cmdcnt = 0;
+ tabstop = 8;
+ offset = 0; // no horizontal offset
+ c = '\0';
+#if ENABLE_FEATURE_VI_DOT_CMD
+ free(ioq_start);
+ ioq_start = NULL;
+ lmc_len = 0;
+ adding2q = 0;
+#endif
+
+#if ENABLE_FEATURE_VI_COLON
+ {
+ char *p, *q;
+ int n = 0;
+
+ while ((p = initial_cmds[n]) != NULL) {
+ do {
+ q = p;
+ p = strchr(q, '\n');
+ if (p)
+ while (*p == '\n')
+ *p++ = '\0';
+ if (*q)
+ colon(q);
+ } while (p);
+ free(initial_cmds[n]);
+ initial_cmds[n] = NULL;
+ n++;
+ }
+ }
+#endif
+ redraw(FALSE); // dont force every col re-draw
+ //------This is the main Vi cmd handling loop -----------------------
+ while (editing > 0) {
+#if ENABLE_FEATURE_VI_CRASHME
+ if (crashme > 0) {
+ if ((end - text) > 1) {
+ crash_dummy(); // generate a random command
+ } else {
+ crashme = 0;
+ string_insert(text, "\n\n##### Ran out of text to work on. #####\n\n", NO_UNDO);
+ dot = text;
+ refresh(FALSE);
+ }
+ }
+#endif
+ c = get_one_char(); // get a cmd from user
+#if ENABLE_FEATURE_VI_CRASHME
+ last_input_char = c;
+#endif
+#if ENABLE_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
+#if ENABLE_FEATURE_VI_DOT_CMD
+ // If c is a command that changes text[],
+ // (re)start remembering the input for the "." command.
+ if (!adding2q
+ && ioq_start == NULL
+ && cmd_mode == 0 // command mode
+ && c > '\0' // exclude NUL and non-ASCII chars
+ && c < 0x7f // (Unicode and such)
+ && strchr(modifying_cmds, c)
+ ) {
+ start_new_cmd_q(c);
+ }
+#endif
+ 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 (!readbuffer[0] && mysleep(0) == 0) {
+ // no input pending - so update output
+ refresh(FALSE);
+ show_status_line();
+ }
+#if ENABLE_FEATURE_VI_CRASHME
+ if (crashme > 0)
+ crash_test(); // test editor variables
+#endif
+ }
+ //-------------------------------------------------------------------
+
+ go_bottom_and_clear_to_eol();
+ cookmode();
+#undef cur_line
+}
+
+int vi_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
+int vi_main(int argc, char **argv)
+{
+ int c;
+
+ INIT_G();
+
+#if ENABLE_FEATURE_VI_UNDO
+ //undo_stack_tail = NULL; - already is
+# if ENABLE_FEATURE_VI_UNDO_QUEUE
+ undo_queue_state = UNDO_EMPTY;
+ //undo_q = 0; - already is
+# endif
+#endif
+
+#if ENABLE_FEATURE_VI_CRASHME
+ srand((long) getpid());
+#endif
+#ifdef NO_SUCH_APPLET_YET
+ // if we aren't "vi", we are "view"
+ if (ENABLE_FEATURE_VI_READONLY && applet_name[2]) {
+ SET_READONLY_MODE(readonly_mode);
+ }
+#endif
+
+ // autoindent is not default in vim 7.3
+ vi_setops = /*VI_AUTOINDENT |*/ VI_SHOWMATCH | VI_IGNORECASE;
+ // 1- process $HOME/.exrc file (not inplemented yet)
+ // 2- process EXINIT variable from environment
+ // 3- process command line args
+#if ENABLE_FEATURE_VI_COLON
+ {
+ char *p = getenv("EXINIT");
+ if (p && *p)
+ initial_cmds[0] = xstrndup(p, MAX_INPUT_LEN);
+ }
+#endif
+ while ((c = getopt(argc, argv, "hCRH" IF_FEATURE_VI_COLON("c:"))) != -1) {
+ switch (c) {
+#if ENABLE_FEATURE_VI_CRASHME
+ case 'C':
+ crashme = 1;
+ break;
+#endif
+#if ENABLE_FEATURE_VI_READONLY
+ case 'R': // Read-only flag
+ SET_READONLY_MODE(readonly_mode);
+ break;
+#endif
+#if ENABLE_FEATURE_VI_COLON
+ case 'c': // cmd line vi command
+ if (*optarg)
+ initial_cmds[initial_cmds[0] != NULL] = xstrndup(optarg, MAX_INPUT_LEN);
+ break;
+#endif
+ case 'H':
+ show_help();
+ // fall through
+ default:
+ bb_show_usage();
+ return 1;
+ }
+ }
+
+ // The argv array can be used by the ":next" and ":rewind" commands
+ argv += optind;
+ argc -= optind;
+
+ //----- This is the main file handling loop --------------
+ save_argc = argc;
+ optind = 0;
+ // "Save cursor, use alternate screen buffer, clear screen"
+ write1(ESC"[?1049h");
+ while (1) {
+ edit_file(argv[optind]); // param might be NULL
+ if (++optind >= argc)
+ break;
+ }
+ // "Use normal screen buffer, restore cursor"
+ write1(ESC"[?1049l");
+ //-----------------------------------------------------------
+
+ return 0;
+}