blob: 02bdbb37ba6625e8bf18fa4f3b053c226b0e3dba [file] [log] [blame]
Rob Landleye5e1a102006-06-21 01:15:36 +00001/* vi: set sw=4 ts=4: */
Eric Andersen3f980402001-04-04 17:31:15 +00002/*
3 * tiny vi.c: A small 'vi' clone
4 * Copyright (C) 2000, 2001 Sterling Huxley <sterling@europa.com>
5 *
Paul Foxdbf935d2006-03-27 20:29:33 +00006 * Licensed under the GPL v2 or later, see the file LICENSE in this tarball.
Eric Andersen3f980402001-04-04 17:31:15 +00007 */
8
Eric Andersen3f980402001-04-04 17:31:15 +00009/*
Eric Andersen3f980402001-04-04 17:31:15 +000010 * Things To Do:
11 * EXINIT
Eric Andersen1c0d3112001-04-16 15:46:44 +000012 * $HOME/.exrc and ./.exrc
Eric Andersen3f980402001-04-04 17:31:15 +000013 * add magic to search /foo.*bar
14 * add :help command
15 * :map macros
Eric Andersen3f980402001-04-04 17:31:15 +000016 * if mark[] values were line numbers rather than pointers
17 * it would be easier to change the mark when add/delete lines
Eric Andersen1c0d3112001-04-16 15:46:44 +000018 * More intelligence in refresh()
19 * ":r !cmd" and "!cmd" to filter text through an external command
20 * A true "undo" facility
21 * An "ex" line oriented mode- maybe using "cmdedit"
Eric Andersen3f980402001-04-04 17:31:15 +000022 */
23
Denis Vlasenkob6adbf12007-05-26 19:00:18 +000024#include "libbb.h"
Eric Andersen3f980402001-04-04 17:31:15 +000025
Paul Fox35e9c5d2008-03-06 16:26:12 +000026/* the CRASHME code is unmaintained, and doesn't currently build */
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +000027#define ENABLE_FEATURE_VI_CRASHME 0
28
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +000029
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +000030#if ENABLE_LOCALE_SUPPORT
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +000031
32#if ENABLE_FEATURE_VI_8BIT
33#define Isprint(c) isprint(c)
Glenn L McGrath09adaca2002-12-02 21:18:10 +000034#else
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +000035#define Isprint(c) (isprint(c) && (unsigned char)(c) < 0x7f)
Glenn L McGrath09adaca2002-12-02 21:18:10 +000036#endif
37
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +000038#else
39
40/* 0x9b is Meta-ESC */
41#if ENABLE_FEATURE_VI_8BIT
42#define Isprint(c) ((unsigned char)(c) >= ' ' && (c) != 0x7f && (unsigned char)(c) != 0x9b)
43#else
44#define Isprint(c) ((unsigned char)(c) >= ' ' && (unsigned char)(c) < 0x7f)
45#endif
46
47#endif
48
49
Denis Vlasenkoe8a07882007-06-10 15:08:44 +000050enum {
Denis Vlasenko26b6fba2007-12-21 21:34:37 +000051 MAX_TABSTOP = 32, // sanity limit
Denis Vlasenko88adfcd2007-12-22 15:40:13 +000052 // User input len. Need not be extra big.
53 // Lines in file being edited *can* be bigger than this.
54 MAX_INPUT_LEN = 128,
55 // Sanity limits. We have only one buffer of this size.
56 MAX_SCR_COLS = CONFIG_FEATURE_VI_MAX_LEN,
57 MAX_SCR_ROWS = CONFIG_FEATURE_VI_MAX_LEN,
Denis Vlasenkoe8a07882007-06-10 15:08:44 +000058};
Eric Andersen3f980402001-04-04 17:31:15 +000059
60// Misc. non-Ascii keys that report an escape sequence
Denis Vlasenko2a51af22007-03-21 22:31:24 +000061#define VI_K_UP (char)128 // cursor key Up
62#define VI_K_DOWN (char)129 // cursor key Down
63#define VI_K_RIGHT (char)130 // Cursor Key Right
64#define VI_K_LEFT (char)131 // cursor key Left
65#define VI_K_HOME (char)132 // Cursor Key Home
66#define VI_K_END (char)133 // Cursor Key End
67#define VI_K_INSERT (char)134 // Cursor Key Insert
Denis Vlasenko88adfcd2007-12-22 15:40:13 +000068#define VI_K_DELETE (char)135 // Cursor Key Insert
69#define VI_K_PAGEUP (char)136 // Cursor Key Page Up
70#define VI_K_PAGEDOWN (char)137 // Cursor Key Page Down
71#define VI_K_FUN1 (char)138 // Function Key F1
72#define VI_K_FUN2 (char)139 // Function Key F2
73#define VI_K_FUN3 (char)140 // Function Key F3
74#define VI_K_FUN4 (char)141 // Function Key F4
75#define VI_K_FUN5 (char)142 // Function Key F5
76#define VI_K_FUN6 (char)143 // Function Key F6
77#define VI_K_FUN7 (char)144 // Function Key F7
78#define VI_K_FUN8 (char)145 // Function Key F8
79#define VI_K_FUN9 (char)146 // Function Key F9
80#define VI_K_FUN10 (char)147 // Function Key F10
81#define VI_K_FUN11 (char)148 // Function Key F11
82#define VI_K_FUN12 (char)149 // Function Key F12
Eric Andersen3f980402001-04-04 17:31:15 +000083
Glenn L McGrath09adaca2002-12-02 21:18:10 +000084/* vt102 typical ESC sequence */
85/* terminal standout start/normal ESC sequence */
Denis Vlasenko6ca409e2007-08-12 20:58:27 +000086static const char SOs[] ALIGN1 = "\033[7m";
87static const char SOn[] ALIGN1 = "\033[0m";
Glenn L McGrath09adaca2002-12-02 21:18:10 +000088/* terminal bell sequence */
Denis Vlasenko6ca409e2007-08-12 20:58:27 +000089static const char bell[] ALIGN1 = "\007";
Glenn L McGrath09adaca2002-12-02 21:18:10 +000090/* Clear-end-of-line and Clear-end-of-screen ESC sequence */
Denis Vlasenko6ca409e2007-08-12 20:58:27 +000091static const char Ceol[] ALIGN1 = "\033[0K";
92static const char Ceos[] ALIGN1 = "\033[0J";
Glenn L McGrath09adaca2002-12-02 21:18:10 +000093/* Cursor motion arbitrary destination ESC sequence */
Denis Vlasenko6ca409e2007-08-12 20:58:27 +000094static const char CMrc[] ALIGN1 = "\033[%d;%dH";
Glenn L McGrath09adaca2002-12-02 21:18:10 +000095/* Cursor motion up and down ESC sequence */
Denis Vlasenko6ca409e2007-08-12 20:58:27 +000096static const char CMup[] ALIGN1 = "\033[A";
97static const char CMdown[] ALIGN1 = "\n";
Glenn L McGrath09adaca2002-12-02 21:18:10 +000098
99
Rob Landleybc68cd12006-03-10 19:22:06 +0000100enum {
101 YANKONLY = FALSE,
102 YANKDEL = TRUE,
103 FORWARD = 1, // code depends on "1" for array index
104 BACK = -1, // code depends on "-1" for array index
105 LIMITED = 0, // how much of text[] in char_search
106 FULL = 1, // how much of text[] in char_search
Eric Andersen3f980402001-04-04 17:31:15 +0000107
Rob Landleybc68cd12006-03-10 19:22:06 +0000108 S_BEFORE_WS = 1, // used in skip_thing() for moving "dot"
109 S_TO_WS = 2, // used in skip_thing() for moving "dot"
110 S_OVER_WS = 3, // used in skip_thing() for moving "dot"
111 S_END_PUNCT = 4, // used in skip_thing() for moving "dot"
Denis Vlasenko8e858e22007-03-07 09:35:43 +0000112 S_END_ALNUM = 5, // used in skip_thing() for moving "dot"
Rob Landleybc68cd12006-03-10 19:22:06 +0000113};
Eric Andersen3f980402001-04-04 17:31:15 +0000114
Denis Vlasenkob1759462008-06-20 20:20:54 +0000115
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000116/* vi.c expects chars to be unsigned. */
117/* busybox build system provides that, but it's better */
118/* to audit and fix the source */
Eric Andersen3f980402001-04-04 17:31:15 +0000119
Denis Vlasenkob1759462008-06-20 20:20:54 +0000120struct globals {
121 /* many references - keep near the top of globals */
122 char *text, *end; // pointers to the user data in memory
123 char *dot; // where all the action takes place
124 int text_size; // size of the allocated buffer
125
126 /* the rest */
127 smallint vi_setops;
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000128#define VI_AUTOINDENT 1
129#define VI_SHOWMATCH 2
130#define VI_IGNORECASE 4
131#define VI_ERR_METHOD 8
132#define autoindent (vi_setops & VI_AUTOINDENT)
133#define showmatch (vi_setops & VI_SHOWMATCH )
134#define ignorecase (vi_setops & VI_IGNORECASE)
135/* indicate error with beep or flash */
136#define err_method (vi_setops & VI_ERR_METHOD)
137
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000138#if ENABLE_FEATURE_VI_READONLY
Denis Vlasenkob1759462008-06-20 20:20:54 +0000139 smallint readonly_mode;
Denis Vlasenko6a2f7f42007-08-16 10:35:17 +0000140#define SET_READONLY_FILE(flags) ((flags) |= 0x01)
141#define SET_READONLY_MODE(flags) ((flags) |= 0x02)
142#define UNSET_READONLY_FILE(flags) ((flags) &= 0xfe)
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000143#else
Denis Vlasenkob1759462008-06-20 20:20:54 +0000144#define SET_READONLY_FILE(flags) ((void)0)
145#define SET_READONLY_MODE(flags) ((void)0)
146#define UNSET_READONLY_FILE(flags) ((void)0)
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000147#endif
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000148
Denis Vlasenkob1759462008-06-20 20:20:54 +0000149 smallint editing; // >0 while we are editing a file
Denis Vlasenko30cfdf92008-09-21 15:29:29 +0000150 // [code audit says "can be 0, 1 or 2 only"]
Denis Vlasenkob1759462008-06-20 20:20:54 +0000151 smallint cmd_mode; // 0=command 1=insert 2=replace
152 int file_modified; // buffer contents changed (counter, not flag!)
Denis Vlasenko30cfdf92008-09-21 15:29:29 +0000153 int last_file_modified; // = -1;
Denis Vlasenkob1759462008-06-20 20:20:54 +0000154 int fn_start; // index of first cmd line file name
155 int save_argc; // how many file names on cmd line
156 int cmdcnt; // repetition count
157 unsigned rows, columns; // the terminal screen is this size
158 int crow, ccol; // cursor is on Crow x Ccol
159 int offset; // chars scrolled off the screen to the left
160 int have_status_msg; // is default edit status needed?
161 // [don't make smallint!]
162 int last_status_cksum; // hash of current status line
163 char *current_filename;
164 char *screenbegin; // index into text[], of top line on the screen
165 char *screen; // pointer to the virtual screen buffer
166 int screensize; // and its size
167 int tabstop;
168 char erase_char; // the users erase character
169 char last_input_char; // last char read from user
170 char last_forward_char; // last char searched for with 'f'
171
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000172#if ENABLE_FEATURE_VI_DOT_CMD
Denis Vlasenkob1759462008-06-20 20:20:54 +0000173 smallint adding2q; // are we currently adding user input to q
174 int lmc_len; // length of last_modifying_cmd
175 char *ioq, *ioq_start; // pointer to string for get_one_char to "read"
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000176#endif
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000177#if ENABLE_FEATURE_VI_OPTIMIZE_CURSOR
Denis Vlasenkob1759462008-06-20 20:20:54 +0000178 int last_row; // where the cursor was last moved to
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000179#endif
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000180#if ENABLE_FEATURE_VI_USE_SIGNALS || ENABLE_FEATURE_VI_CRASHME
Denis Vlasenkob1759462008-06-20 20:20:54 +0000181 int my_pid;
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000182#endif
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000183#if ENABLE_FEATURE_VI_DOT_CMD || ENABLE_FEATURE_VI_YANKMARK
Denis Vlasenkob1759462008-06-20 20:20:54 +0000184 char *modifying_cmds; // cmds that modify text[]
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000185#endif
186#if ENABLE_FEATURE_VI_SEARCH
Denis Vlasenkob1759462008-06-20 20:20:54 +0000187 char *last_search_pattern; // last pattern from a '/' or '?' search
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000188#endif
Denis Vlasenkob1759462008-06-20 20:20:54 +0000189 int chars_to_parse;
190 /* former statics */
191#if ENABLE_FEATURE_VI_YANKMARK
192 char *edit_file__cur_line;
193#endif
194 int refresh__old_offset;
195 int format_edit_status__tot;
Eric Andersen3f980402001-04-04 17:31:15 +0000196
Denis Vlasenkob1759462008-06-20 20:20:54 +0000197 /* a few references only */
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000198#if ENABLE_FEATURE_VI_YANKMARK
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000199 int YDreg, Ureg; // default delete register and orig line for "U"
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000200 char *reg[28]; // named register a-z, "D", and "U" 0-25,26,27
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000201 char *mark[28]; // user marks points somewhere in text[]- a-z and previous context ''
202 char *context_start, *context_end;
203#endif
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000204#if ENABLE_FEATURE_VI_USE_SIGNALS
Denis Vlasenkob1759462008-06-20 20:20:54 +0000205 sigjmp_buf restart; // catch_sig()
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000206#endif
Denis Vlasenkob1759462008-06-20 20:20:54 +0000207 struct termios term_orig, term_vi; // remember what the cooked mode was
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000208#if ENABLE_FEATURE_VI_COLON
209 char *initial_cmds[3]; // currently 2 entries, NULL terminated
210#endif
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000211 // Should be just enough to hold a key sequence,
212 // but CRASME mode uses it as generated command buffer too
213#if ENABLE_FEATURE_VI_CRASHME
214 char readbuffer[128];
215#else
216 char readbuffer[32];
217#endif
Denis Vlasenkob1759462008-06-20 20:20:54 +0000218#define STATUS_BUFFER_LEN 200
219 char status_buffer[STATUS_BUFFER_LEN]; // messages to the user
220#if ENABLE_FEATURE_VI_DOT_CMD
221 char last_modifying_cmd[MAX_INPUT_LEN]; // last modifying cmd for "."
222#endif
223 char get_input_line__buf[MAX_INPUT_LEN]; /* former static */
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000224
225 char scr_out_buf[MAX_SCR_COLS + MAX_TABSTOP * 2];
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000226};
227#define G (*ptr_to_globals)
228#define text (G.text )
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000229#define text_size (G.text_size )
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000230#define end (G.end )
231#define dot (G.dot )
232#define reg (G.reg )
Denis Vlasenkob1759462008-06-20 20:20:54 +0000233
234#define vi_setops (G.vi_setops )
235#define editing (G.editing )
236#define cmd_mode (G.cmd_mode )
237#define file_modified (G.file_modified )
238#define last_file_modified (G.last_file_modified )
239#define fn_start (G.fn_start )
240#define save_argc (G.save_argc )
241#define cmdcnt (G.cmdcnt )
242#define rows (G.rows )
243#define columns (G.columns )
244#define crow (G.crow )
245#define ccol (G.ccol )
246#define offset (G.offset )
247#define status_buffer (G.status_buffer )
248#define have_status_msg (G.have_status_msg )
249#define last_status_cksum (G.last_status_cksum )
250#define current_filename (G.current_filename )
251#define screen (G.screen )
252#define screensize (G.screensize )
253#define screenbegin (G.screenbegin )
254#define tabstop (G.tabstop )
255#define erase_char (G.erase_char )
256#define last_input_char (G.last_input_char )
257#define last_forward_char (G.last_forward_char )
Denis Vlasenko2a210e52008-06-22 13:20:42 +0000258#if ENABLE_FEATURE_VI_READONLY
Denis Vlasenkob1759462008-06-20 20:20:54 +0000259#define readonly_mode (G.readonly_mode )
Denis Vlasenko2a210e52008-06-22 13:20:42 +0000260#else
261#define readonly_mode 0
262#endif
Denis Vlasenkob1759462008-06-20 20:20:54 +0000263#define adding2q (G.adding2q )
264#define lmc_len (G.lmc_len )
265#define ioq (G.ioq )
266#define ioq_start (G.ioq_start )
267#define last_row (G.last_row )
268#define my_pid (G.my_pid )
269#define modifying_cmds (G.modifying_cmds )
270#define last_search_pattern (G.last_search_pattern)
271#define chars_to_parse (G.chars_to_parse )
Denis Vlasenko2a210e52008-06-22 13:20:42 +0000272
Denis Vlasenkob1759462008-06-20 20:20:54 +0000273#define edit_file__cur_line (G.edit_file__cur_line)
274#define refresh__old_offset (G.refresh__old_offset)
275#define format_edit_status__tot (G.format_edit_status__tot)
276
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000277#define YDreg (G.YDreg )
278#define Ureg (G.Ureg )
279#define mark (G.mark )
280#define context_start (G.context_start )
281#define context_end (G.context_end )
282#define restart (G.restart )
283#define term_orig (G.term_orig )
284#define term_vi (G.term_vi )
285#define initial_cmds (G.initial_cmds )
Denis Vlasenkoa96425f2007-12-09 04:13:43 +0000286#define readbuffer (G.readbuffer )
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000287#define scr_out_buf (G.scr_out_buf )
Denis Vlasenkob1759462008-06-20 20:20:54 +0000288#define last_modifying_cmd (G.last_modifying_cmd )
289#define get_input_line__buf (G.get_input_line__buf)
290
Denis Vlasenkoa96425f2007-12-09 04:13:43 +0000291#define INIT_G() do { \
Denis Vlasenko574f2f42008-02-27 18:41:59 +0000292 SET_PTR_TO_GLOBALS(xzalloc(sizeof(G))); \
Denis Vlasenkob1759462008-06-20 20:20:54 +0000293 last_file_modified = -1; \
Denis Vlasenkoa96425f2007-12-09 04:13:43 +0000294} while (0)
Eric Andersen3f980402001-04-04 17:31:15 +0000295
Denis Vlasenkob1759462008-06-20 20:20:54 +0000296
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000297static int init_text_buffer(char *); // init from file or create new
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000298static void edit_file(char *); // edit one file
299static void do_cmd(char); // execute a command
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000300static int next_tabstop(int);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000301static void sync_cursor(char *, int *, int *); // synchronize the screen cursor to dot
302static char *begin_line(char *); // return pointer to cur line B-o-l
303static char *end_line(char *); // return pointer to cur line E-o-l
304static char *prev_line(char *); // return pointer to prev line B-o-l
305static char *next_line(char *); // return pointer to next line B-o-l
306static char *end_screen(void); // get pointer to last char on screen
307static int count_lines(char *, char *); // count line from start to stop
308static char *find_line(int); // find begining of line #li
309static char *move_to_col(char *, int); // move "p" to column l
Eric Andersen3f980402001-04-04 17:31:15 +0000310static void dot_left(void); // move dot left- dont leave line
311static void dot_right(void); // move dot right- dont leave line
312static void dot_begin(void); // move dot to B-o-l
313static void dot_end(void); // move dot to E-o-l
314static void dot_next(void); // move dot to next line B-o-l
315static void dot_prev(void); // move dot to prev line B-o-l
316static void dot_scroll(int, int); // move the screen up or down
317static void dot_skip_over_ws(void); // move dot pat WS
318static void dot_delete(void); // delete the char at 'dot'
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000319static char *bound_dot(char *); // make sure text[0] <= P < "end"
320static char *new_screen(int, int); // malloc virtual screen memory
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000321static char *char_insert(char *, char); // insert the char c at 'p'
322static char *stupid_insert(char *, char); // stupidly insert the char c at 'p'
Paul Foxc51fc7b2008-03-06 01:34:23 +0000323static int find_range(char **, char **, char); // return pointers for an object
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000324static int st_test(char *, int, int, char *); // helper for skip_thing()
325static char *skip_thing(char *, int, int, int); // skip some object
326static char *find_pair(char *, char); // find matching pair () [] {}
327static char *text_hole_delete(char *, char *); // at "p", delete a 'size' byte hole
328static char *text_hole_make(char *, int); // at "p", make a 'size' byte hole
329static char *yank_delete(char *, char *, int, int); // yank text[] into register then delete
Eric Andersen3f980402001-04-04 17:31:15 +0000330static void show_help(void); // display some help info
Eric Andersen3f980402001-04-04 17:31:15 +0000331static void rawmode(void); // set "raw" mode on tty
332static void cookmode(void); // return to "cooked" mode on tty
Denis Vlasenko87f3b262007-09-07 13:43:28 +0000333// sleep for 'h' 1/100 seconds, return 1/0 if stdin is (ready for read)/(not ready)
334static int mysleep(int);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000335static char readit(void); // read (maybe cursor) key from stdin
336static char get_one_char(void); // read 1 char from stdin
337static int file_size(const char *); // what is the byte size of "fn"
Denis Vlasenko59a1f302007-07-14 22:43:10 +0000338#if ENABLE_FEATURE_VI_READONLY
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000339static int file_insert(const char *, char *, int);
Denis Vlasenko59a1f302007-07-14 22:43:10 +0000340#else
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000341static int file_insert(const char *, char *);
Denis Vlasenko59a1f302007-07-14 22:43:10 +0000342#endif
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000343static int file_write(char *, char *, char *);
Denis Vlasenko26b6fba2007-12-21 21:34:37 +0000344#if !ENABLE_FEATURE_VI_OPTIMIZE_CURSOR
345#define place_cursor(a, b, optimize) place_cursor(a, b)
346#endif
Eric Andersen822c3832001-05-07 17:37:43 +0000347static void place_cursor(int, int, int);
Eric Andersenbff7a602001-11-17 07:15:43 +0000348static void screen_erase(void);
Eric Andersen3f980402001-04-04 17:31:15 +0000349static void clear_to_eol(void);
350static void clear_to_eos(void);
351static void standout_start(void); // send "start reverse video" sequence
352static void standout_end(void); // send "end reverse video" sequence
353static void flash(int); // flash the terminal screen
Eric Andersen3f980402001-04-04 17:31:15 +0000354static void show_status_line(void); // put a message on the bottom line
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000355static void status_line(const char *, ...); // print to status buf
356static void status_line_bold(const char *, ...);
357static void not_implemented(const char *); // display "Not implemented" message
Paul Fox8552aec2005-09-16 12:20:05 +0000358static int format_edit_status(void); // format file status on status line
Eric Andersen3f980402001-04-04 17:31:15 +0000359static void redraw(int); // force a full screen refresh
Denis Vlasenko68404f12008-03-17 09:00:54 +0000360static char* format_line(char* /*, int*/);
Eric Andersen3f980402001-04-04 17:31:15 +0000361static void refresh(int); // update the terminal from screen[]
362
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000363static void Indicate_Error(void); // use flash or beep to indicate error
364#define indicate_error(c) Indicate_Error()
Paul Fox90372ed2005-10-09 14:26:26 +0000365static void Hit_Return(void);
366
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000367#if ENABLE_FEATURE_VI_SEARCH
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000368static char *char_search(char *, const char *, int, int); // search for pattern starting at p
369static int mycmp(const char *, const char *, int); // string cmp based in "ignorecase"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000370#endif
371#if ENABLE_FEATURE_VI_COLON
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000372static char *get_one_address(char *, int *); // get colon addr, if present
373static char *get_address(char *, int *, int *); // get two colon addrs, if present
374static void colon(char *); // execute the "colon" mode cmds
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000375#endif
376#if ENABLE_FEATURE_VI_USE_SIGNALS
Eric Andersen3f980402001-04-04 17:31:15 +0000377static void winch_sig(int); // catch window size changes
378static void suspend_sig(int); // catch ctrl-Z
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000379static void catch_sig(int); // catch ctrl-C and alarm time-outs
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000380#endif
381#if ENABLE_FEATURE_VI_DOT_CMD
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000382static void start_new_cmd_q(char); // new queue for command
Eric Andersenbff7a602001-11-17 07:15:43 +0000383static void end_cmd_q(void); // stop saving input chars
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000384#else
385#define end_cmd_q() ((void)0)
386#endif
387#if ENABLE_FEATURE_VI_SETOPTS
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000388static void showmatching(char *); // show the matching pair () [] {}
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000389#endif
390#if ENABLE_FEATURE_VI_YANKMARK || (ENABLE_FEATURE_VI_COLON && ENABLE_FEATURE_VI_SEARCH) || ENABLE_FEATURE_VI_CRASHME
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000391static char *string_insert(char *, char *); // insert the string at 'p'
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000392#endif
393#if ENABLE_FEATURE_VI_YANKMARK
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000394static char *text_yank(char *, char *, int); // save copy of "p" into a register
395static char what_reg(void); // what is letter of current YDreg
396static void check_context(char); // remember context for '' command
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000397#endif
398#if ENABLE_FEATURE_VI_CRASHME
Eric Andersen3f980402001-04-04 17:31:15 +0000399static void crash_dummy();
400static void crash_test();
401static int crashme = 0;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000402#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000403
404
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000405static void write1(const char *out)
406{
407 fputs(out, stdout);
408}
409
Denis Vlasenko9b49a5e2007-10-11 10:05:36 +0000410int vi_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
Rob Landleydfba7412006-03-06 20:47:33 +0000411int vi_main(int argc, char **argv)
Eric Andersen3f980402001-04-04 17:31:15 +0000412{
Eric Andersend402edf2001-04-04 19:29:48 +0000413 int c;
Denis Vlasenkob1759462008-06-20 20:20:54 +0000414
415 INIT_G();
Eric Andersen3f980402001-04-04 17:31:15 +0000416
Denis Vlasenkocd5c7862007-05-17 16:37:22 +0000417#if ENABLE_FEATURE_VI_USE_SIGNALS || ENABLE_FEATURE_VI_CRASHME
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000418 my_pid = getpid();
419#endif
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000420#if ENABLE_FEATURE_VI_CRASHME
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000421 srand((long) my_pid);
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000422#endif
Denis Vlasenko2414a962007-07-18 22:03:40 +0000423#ifdef NO_SUCH_APPLET_YET
424 /* If we aren't "vi", we are "view" */
425 if (ENABLE_FEATURE_VI_READONLY && applet_name[2]) {
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000426 SET_READONLY_MODE(readonly_mode);
Eric Andersen3f980402001-04-04 17:31:15 +0000427 }
Denis Vlasenko2414a962007-07-18 22:03:40 +0000428#endif
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000429
Bernhard Reutner-Fischer73f56bb2007-09-22 21:18:46 +0000430 vi_setops = VI_AUTOINDENT | VI_SHOWMATCH | VI_IGNORECASE;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000431#if ENABLE_FEATURE_VI_DOT_CMD || ENABLE_FEATURE_VI_YANKMARK
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000432 modifying_cmds = (char *) "aAcCdDiIJoOpPrRsxX<>~"; // cmds modifying text[]
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000433#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000434
Denis Vlasenkof9234132007-03-21 00:03:42 +0000435 // 1- process $HOME/.exrc file (not inplemented yet)
Eric Andersen3f980402001-04-04 17:31:15 +0000436 // 2- process EXINIT variable from environment
437 // 3- process command line args
Denis Vlasenko58875ae2007-03-22 22:22:10 +0000438#if ENABLE_FEATURE_VI_COLON
Denis Vlasenkof9234132007-03-21 00:03:42 +0000439 {
440 char *p = getenv("EXINIT");
441 if (p && *p)
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000442 initial_cmds[0] = xstrndup(p, MAX_INPUT_LEN);
Denis Vlasenkof9234132007-03-21 00:03:42 +0000443 }
Denis Vlasenko58875ae2007-03-22 22:22:10 +0000444#endif
Paul Fox35e9c5d2008-03-06 16:26:12 +0000445 while ((c = getopt(argc, argv, "hCRH" USE_FEATURE_VI_COLON("c:"))) != -1) {
Eric Andersen3f980402001-04-04 17:31:15 +0000446 switch (c) {
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000447#if ENABLE_FEATURE_VI_CRASHME
Eric Andersen3f980402001-04-04 17:31:15 +0000448 case 'C':
449 crashme = 1;
450 break;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000451#endif
452#if ENABLE_FEATURE_VI_READONLY
Eric Andersen3f980402001-04-04 17:31:15 +0000453 case 'R': // Read-only flag
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000454 SET_READONLY_MODE(readonly_mode);
Eric Andersen3f980402001-04-04 17:31:15 +0000455 break;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000456#endif
Denis Vlasenko58875ae2007-03-22 22:22:10 +0000457#if ENABLE_FEATURE_VI_COLON
Denis Vlasenkof9234132007-03-21 00:03:42 +0000458 case 'c': // cmd line vi command
459 if (*optarg)
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000460 initial_cmds[initial_cmds[0] != 0] = xstrndup(optarg, MAX_INPUT_LEN);
Denis Vlasenkof9234132007-03-21 00:03:42 +0000461 break;
Denis Vlasenko58875ae2007-03-22 22:22:10 +0000462#endif
Paul Fox35e9c5d2008-03-06 16:26:12 +0000463 case 'H':
Eric Andersen3f980402001-04-04 17:31:15 +0000464 show_help();
Paul Fox35e9c5d2008-03-06 16:26:12 +0000465 /* fall through */
Paul Fox35e9c5d2008-03-06 16:26:12 +0000466 default:
Denis Vlasenkoc6938402008-03-24 02:18:03 +0000467 bb_show_usage();
Eric Andersendd8500b2001-07-02 18:06:14 +0000468 return 1;
Eric Andersen3f980402001-04-04 17:31:15 +0000469 }
470 }
471
472 // The argv array can be used by the ":next" and ":rewind" commands
473 // save optind.
474 fn_start = optind; // remember first file name for :next and :rew
475 save_argc = argc;
476
477 //----- This is the main file handling loop --------------
478 if (optind >= argc) {
Eric Andersen3f980402001-04-04 17:31:15 +0000479 edit_file(0);
480 } else {
481 for (; optind < argc; optind++) {
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000482 edit_file(argv[optind]);
Eric Andersen3f980402001-04-04 17:31:15 +0000483 }
484 }
485 //-----------------------------------------------------------
486
Denis Vlasenko079f8af2006-11-27 16:49:31 +0000487 return 0;
Eric Andersen3f980402001-04-04 17:31:15 +0000488}
489
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000490/* read text from file or create an empty buf */
491/* will also update current_filename */
492static int init_text_buffer(char *fn)
493{
494 int rc;
495 int size = file_size(fn); // file size. -1 means does not exist.
496
497 /* allocate/reallocate text buffer */
498 free(text);
Denis Vlasenkob1759462008-06-20 20:20:54 +0000499 text_size = size + 10240;
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000500 screenbegin = dot = end = text = xzalloc(text_size);
Denis Vlasenko2f6ae432007-07-19 22:50:47 +0000501
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000502 if (fn != current_filename) {
503 free(current_filename);
504 current_filename = xstrdup(fn);
505 }
506 if (size < 0) {
507 // file dont exist. Start empty buf with dummy line
508 char_insert(text, '\n');
509 rc = 0;
510 } else {
511 rc = file_insert(fn, text
512 USE_FEATURE_VI_READONLY(, 1));
513 }
514 file_modified = 0;
515 last_file_modified = -1;
516#if ENABLE_FEATURE_VI_YANKMARK
517 /* init the marks. */
518 memset(mark, 0, sizeof(mark));
519#endif
520 return rc;
Denis Vlasenko2f6ae432007-07-19 22:50:47 +0000521}
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000522
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000523static void edit_file(char *fn)
Eric Andersen3f980402001-04-04 17:31:15 +0000524{
Denis Vlasenkob1759462008-06-20 20:20:54 +0000525#if ENABLE_FEATURE_VI_YANKMARK
526#define cur_line edit_file__cur_line
527#endif
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000528 char c;
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000529 int size;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000530#if ENABLE_FEATURE_VI_USE_SIGNALS
Eric Andersen3f980402001-04-04 17:31:15 +0000531 int sig;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000532#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000533
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000534 editing = 1; // 0 = exit, 1 = one file, 2 = multiple files
Eric Andersen3f980402001-04-04 17:31:15 +0000535 rawmode();
536 rows = 24;
537 columns = 80;
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000538 size = 0;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000539 if (ENABLE_FEATURE_VI_WIN_RESIZE) {
Rob Landleye5e1a102006-06-21 01:15:36 +0000540 get_terminal_width_height(0, &columns, &rows);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000541 if (rows > MAX_SCR_ROWS) rows = MAX_SCR_ROWS;
542 if (columns > MAX_SCR_COLS) columns = MAX_SCR_COLS;
543 }
Eric Andersen3f980402001-04-04 17:31:15 +0000544 new_screen(rows, columns); // get memory for virtual screen
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000545 init_text_buffer(fn);
Eric Andersen3f980402001-04-04 17:31:15 +0000546
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000547#if ENABLE_FEATURE_VI_YANKMARK
Eric Andersen3f980402001-04-04 17:31:15 +0000548 YDreg = 26; // default Yank/Delete reg
549 Ureg = 27; // hold orig line for "U" cmd
Eric Andersen3f980402001-04-04 17:31:15 +0000550 mark[26] = mark[27] = text; // init "previous context"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000551#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000552
Eric Andersen3f980402001-04-04 17:31:15 +0000553 last_forward_char = last_input_char = '\0';
554 crow = 0;
555 ccol = 0;
Eric Andersen3f980402001-04-04 17:31:15 +0000556
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000557#if ENABLE_FEATURE_VI_USE_SIGNALS
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000558 catch_sig(0);
Eric Andersen3f980402001-04-04 17:31:15 +0000559 signal(SIGWINCH, winch_sig);
560 signal(SIGTSTP, suspend_sig);
Paul Fox2724fa92008-03-17 15:28:07 +0000561 sig = sigsetjmp(restart, 1);
Eric Andersen3f980402001-04-04 17:31:15 +0000562 if (sig != 0) {
Eric Andersen1c0d3112001-04-16 15:46:44 +0000563 screenbegin = dot = text;
Eric Andersen3f980402001-04-04 17:31:15 +0000564 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000565#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000566
Eric Andersen3f980402001-04-04 17:31:15 +0000567 cmd_mode = 0; // 0=command 1=insert 2='R'eplace
568 cmdcnt = 0;
569 tabstop = 8;
570 offset = 0; // no horizontal offset
571 c = '\0';
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000572#if ENABLE_FEATURE_VI_DOT_CMD
Aaron Lehmanna170e1c2002-11-28 11:27:31 +0000573 free(ioq_start);
Paul Foxc51fc7b2008-03-06 01:34:23 +0000574 ioq = ioq_start = NULL;
575 lmc_len = 0;
Eric Andersen3f980402001-04-04 17:31:15 +0000576 adding2q = 0;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000577#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000578
Denis Vlasenko58875ae2007-03-22 22:22:10 +0000579#if ENABLE_FEATURE_VI_COLON
Denis Vlasenkof9234132007-03-21 00:03:42 +0000580 {
581 char *p, *q;
582 int n = 0;
583
584 while ((p = initial_cmds[n])) {
585 do {
586 q = p;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000587 p = strchr(q, '\n');
Denis Vlasenkof9234132007-03-21 00:03:42 +0000588 if (p)
Denis Vlasenko51742f42007-04-12 00:32:05 +0000589 while (*p == '\n')
Denis Vlasenkof9234132007-03-21 00:03:42 +0000590 *p++ = '\0';
591 if (*q)
592 colon(q);
593 } while (p);
594 free(initial_cmds[n]);
595 initial_cmds[n] = NULL;
596 n++;
597 }
598 }
Denis Vlasenko58875ae2007-03-22 22:22:10 +0000599#endif
Paul Fox35e9c5d2008-03-06 16:26:12 +0000600 redraw(FALSE); // dont force every col re-draw
Eric Andersen3f980402001-04-04 17:31:15 +0000601 //------This is the main Vi cmd handling loop -----------------------
602 while (editing > 0) {
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000603#if ENABLE_FEATURE_VI_CRASHME
Eric Andersen3f980402001-04-04 17:31:15 +0000604 if (crashme > 0) {
605 if ((end - text) > 1) {
606 crash_dummy(); // generate a random command
607 } else {
608 crashme = 0;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000609 dot = string_insert(text, "\n\n##### Ran out of text to work on. #####\n\n"); // insert the string
Eric Andersen3f980402001-04-04 17:31:15 +0000610 refresh(FALSE);
611 }
612 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000613#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000614 last_input_char = c = get_one_char(); // get a cmd from user
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000615#if ENABLE_FEATURE_VI_YANKMARK
Eric Andersen3f980402001-04-04 17:31:15 +0000616 // save a copy of the current line- for the 'U" command
617 if (begin_line(dot) != cur_line) {
618 cur_line = begin_line(dot);
619 text_yank(begin_line(dot), end_line(dot), Ureg);
620 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000621#endif
622#if ENABLE_FEATURE_VI_DOT_CMD
Eric Andersen3f980402001-04-04 17:31:15 +0000623 // These are commands that change text[].
624 // Remember the input for the "." command
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000625 if (!adding2q && ioq_start == NULL
Denis Vlasenko30cfdf92008-09-21 15:29:29 +0000626 && c != '\0' && strchr(modifying_cmds, c)
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000627 ) {
Eric Andersen3f980402001-04-04 17:31:15 +0000628 start_new_cmd_q(c);
629 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000630#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000631 do_cmd(c); // execute the user command
632 //
633 // poll to see if there is input already waiting. if we are
634 // not able to display output fast enough to keep up, skip
635 // the display update until we catch up with input.
636 if (mysleep(0) == 0) {
637 // no input pending- so update output
638 refresh(FALSE);
639 show_status_line();
640 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000641#if ENABLE_FEATURE_VI_CRASHME
Eric Andersen3f980402001-04-04 17:31:15 +0000642 if (crashme > 0)
643 crash_test(); // test editor variables
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000644#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000645 }
646 //-------------------------------------------------------------------
647
Denis Vlasenko30cfdf92008-09-21 15:29:29 +0000648 place_cursor(rows - 1, 0, FALSE); // go to bottom of screen
649 clear_to_eol(); // erase to end of line
Eric Andersen3f980402001-04-04 17:31:15 +0000650 cookmode();
Denis Vlasenkob1759462008-06-20 20:20:54 +0000651#undef cur_line
Eric Andersen3f980402001-04-04 17:31:15 +0000652}
653
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000654//----- The Colon commands -------------------------------------
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000655#if ENABLE_FEATURE_VI_COLON
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000656static char *get_one_address(char *p, int *addr) // get colon addr, if present
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000657{
658 int st;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000659 char *q;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000660 USE_FEATURE_VI_YANKMARK(char c;)
661 USE_FEATURE_VI_SEARCH(char *pat;)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000662
663 *addr = -1; // assume no addr
664 if (*p == '.') { // the current line
665 p++;
666 q = begin_line(dot);
667 *addr = count_lines(text, q);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000668 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000669#if ENABLE_FEATURE_VI_YANKMARK
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000670 else if (*p == '\'') { // is this a mark addr
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000671 p++;
672 c = tolower(*p);
673 p++;
674 if (c >= 'a' && c <= 'z') {
675 // we have a mark
676 c = c - 'a';
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000677 q = mark[(unsigned char) c];
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000678 if (q != NULL) { // is mark valid
679 *addr = count_lines(text, q); // count lines
680 }
681 }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000682 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000683#endif
684#if ENABLE_FEATURE_VI_SEARCH
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000685 else if (*p == '/') { // a search pattern
686 q = strchrnul(++p, '/');
687 pat = xstrndup(p, q - p); // save copy of pattern
688 p = q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000689 if (*p == '/')
690 p++;
691 q = char_search(dot, pat, FORWARD, FULL);
692 if (q != NULL) {
693 *addr = count_lines(text, q);
694 }
695 free(pat);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000696 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000697#endif
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000698 else if (*p == '$') { // the last line in file
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000699 p++;
700 q = begin_line(end - 1);
701 *addr = count_lines(text, q);
702 } else if (isdigit(*p)) { // specific line number
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000703 sscanf(p, "%d%n", addr, &st);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000704 p += st;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000705 } else {
706 // unrecognised address - assume -1
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000707 *addr = -1;
708 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +0000709 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000710}
711
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000712static char *get_address(char *p, int *b, int *e) // get two colon addrs, if present
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000713{
714 //----- get the address' i.e., 1,3 'a,'b -----
715 // get FIRST addr, if present
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000716 while (isblank(*p))
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000717 p++; // skip over leading spaces
718 if (*p == '%') { // alias for 1,$
719 p++;
720 *b = 1;
721 *e = count_lines(text, end-1);
722 goto ga0;
723 }
724 p = get_one_address(p, b);
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000725 while (isblank(*p))
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000726 p++;
Eric Andersenaff114c2004-04-14 17:51:38 +0000727 if (*p == ',') { // is there a address separator
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000728 p++;
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000729 while (isblank(*p))
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000730 p++;
731 // get SECOND addr, if present
732 p = get_one_address(p, e);
733 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000734 ga0:
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000735 while (isblank(*p))
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000736 p++; // skip over trailing spaces
Denis Vlasenko079f8af2006-11-27 16:49:31 +0000737 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000738}
739
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000740#if ENABLE_FEATURE_VI_SET && ENABLE_FEATURE_VI_SETOPTS
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000741static void setops(const char *args, const char *opname, int flg_no,
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000742 const char *short_opname, int opt)
743{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000744 const char *a = args + flg_no;
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000745 int l = strlen(opname) - 1; /* opname have + ' ' */
746
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000747 if (strncasecmp(a, opname, l) == 0
748 || strncasecmp(a, short_opname, 2) == 0
749 ) {
750 if (flg_no)
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000751 vi_setops &= ~opt;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000752 else
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000753 vi_setops |= opt;
754 }
755}
756#endif
757
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000758// buf must be no longer than MAX_INPUT_LEN!
759static void colon(char *buf)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000760{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000761 char c, *orig_buf, *buf1, *q, *r;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000762 char *fn, cmd[MAX_INPUT_LEN], args[MAX_INPUT_LEN];
Bernhard Reutner-Fischerd591a362006-08-20 17:35:13 +0000763 int i, l, li, ch, b, e;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000764 int useforce, forced = FALSE;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000765
766 // :3154 // if (-e line 3154) goto it else stay put
767 // :4,33w! foo // write a portion of buffer to file "foo"
768 // :w // write all of buffer to current file
769 // :q // quit
770 // :q! // quit- dont care about modified file
771 // :'a,'z!sort -u // filter block through sort
772 // :'f // goto mark "f"
773 // :'fl // list literal the mark "f" line
774 // :.r bar // read file "bar" into buffer before dot
775 // :/123/,/abc/d // delete lines from "123" line to "abc" line
776 // :/xyz/ // goto the "xyz" line
777 // :s/find/replace/ // substitute pattern "find" with "replace"
778 // :!<cmd> // run <cmd> then return
779 //
Eric Andersen165e8cb2004-07-20 06:44:46 +0000780
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000781 if (!buf[0])
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000782 goto vc1;
783 if (*buf == ':')
784 buf++; // move past the ':'
785
Bernhard Reutner-Fischerd591a362006-08-20 17:35:13 +0000786 li = ch = i = 0;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000787 b = e = -1;
788 q = text; // assume 1,$ for the range
789 r = end - 1;
790 li = count_lines(text, end - 1);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000791 fn = current_filename;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000792
793 // look for optional address(es) :. :1 :1,9 :'q,'a :%
794 buf = get_address(buf, &b, &e);
795
796 // remember orig command line
797 orig_buf = buf;
798
799 // get the COMMAND into cmd[]
800 buf1 = cmd;
801 while (*buf != '\0') {
802 if (isspace(*buf))
803 break;
804 *buf1++ = *buf++;
805 }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000806 *buf1 = '\0';
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000807 // get any ARGuments
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000808 while (isblank(*buf))
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000809 buf++;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000810 strcpy(args, buf);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000811 useforce = FALSE;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000812 buf1 = last_char_is(cmd, '!');
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000813 if (buf1) {
814 useforce = TRUE;
815 *buf1 = '\0'; // get rid of !
816 }
817 if (b >= 0) {
818 // if there is only one addr, then the addr
819 // is the line number of the single line the
820 // user wants. So, reset the end
821 // pointer to point at end of the "b" line
822 q = find_line(b); // what line is #b
823 r = end_line(q);
824 li = 1;
825 }
826 if (e >= 0) {
827 // we were given two addrs. change the
828 // end pointer to the addr given by user.
829 r = find_line(e); // what line is #e
830 r = end_line(r);
831 li = e - b + 1;
832 }
833 // ------------ now look for the command ------------
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000834 i = strlen(cmd);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000835 if (i == 0) { // :123CR goto line #123
836 if (b >= 0) {
837 dot = find_line(b); // what line is #b
838 dot_skip_over_ws();
839 }
Denis Vlasenko249fabf2006-12-19 00:29:22 +0000840 }
841#if ENABLE_FEATURE_ALLOW_EXEC
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000842 else if (strncmp(cmd, "!", 1) == 0) { // run a cmd
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000843 int retcode;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000844 // :!ls run the <cmd>
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000845 place_cursor(rows - 1, 0, FALSE); // go to Status line
846 clear_to_eol(); // clear the line
847 cookmode();
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000848 retcode = system(orig_buf + 1); // run the cmd
849 if (retcode)
850 printf("\nshell returned %i\n\n", retcode);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000851 rawmode();
852 Hit_Return(); // let user see results
Denis Vlasenko249fabf2006-12-19 00:29:22 +0000853 }
854#endif
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000855 else if (strncmp(cmd, "=", i) == 0) { // where is the address
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000856 if (b < 0) { // no addr given- use defaults
857 b = e = count_lines(text, dot);
858 }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000859 status_line("%d", b);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000860 } else if (strncasecmp(cmd, "delete", i) == 0) { // delete lines
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000861 if (b < 0) { // no addr given- use defaults
862 q = begin_line(dot); // assume .,. for the range
863 r = end_line(dot);
864 }
865 dot = yank_delete(q, r, 1, YANKDEL); // save, then delete lines
866 dot_skip_over_ws();
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000867 } else if (strncasecmp(cmd, "edit", i) == 0) { // Edit a file
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000868 // don't edit, if the current file has been modified
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000869 if (file_modified && !useforce) {
870 status_line_bold("No write since last change (:edit! overrides)");
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000871 goto vc1;
872 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000873 if (args[0]) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000874 // the user supplied a file name
Denis Vlasenkoe8a07882007-06-10 15:08:44 +0000875 fn = args;
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000876 } else if (current_filename && current_filename[0]) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000877 // no user supplied name- use the current filename
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000878 // fn = current_filename; was set by default
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000879 } else {
880 // no user file name, no current name- punt
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000881 status_line_bold("No current filename");
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000882 goto vc1;
883 }
884
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000885 if (init_text_buffer(fn) < 0)
886 goto vc1;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000887
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000888#if ENABLE_FEATURE_VI_YANKMARK
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000889 if (Ureg >= 0 && Ureg < 28 && reg[Ureg] != 0) {
890 free(reg[Ureg]); // free orig line reg- for 'U'
891 reg[Ureg]= 0;
892 }
893 if (YDreg >= 0 && YDreg < 28 && reg[YDreg] != 0) {
894 free(reg[YDreg]); // free default yank/delete register
895 reg[YDreg]= 0;
896 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000897#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000898 // how many lines in text[]?
899 li = count_lines(text, end - 1);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000900 status_line("\"%s\"%s"
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000901 USE_FEATURE_VI_READONLY("%s")
902 " %dL, %dC", current_filename,
903 (file_size(fn) < 0 ? " [New file]" : ""),
904 USE_FEATURE_VI_READONLY(
905 ((readonly_mode) ? " [Readonly]" : ""),
906 )
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000907 li, ch);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000908 } else if (strncasecmp(cmd, "file", i) == 0) { // what File is this
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000909 if (b != -1 || e != -1) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000910 not_implemented("No address allowed on this command");
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000911 goto vc1;
912 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000913 if (args[0]) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000914 // user wants a new filename
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000915 free(current_filename);
916 current_filename = xstrdup(args);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000917 } else {
918 // user wants file status info
Paul Fox8552aec2005-09-16 12:20:05 +0000919 last_status_cksum = 0; // force status update
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000920 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000921 } else if (strncasecmp(cmd, "features", i) == 0) { // what features are available
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000922 // print out values of all features
923 place_cursor(rows - 1, 0, FALSE); // go to Status line, bottom of screen
924 clear_to_eol(); // clear the line
925 cookmode();
926 show_help();
927 rawmode();
928 Hit_Return();
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000929 } else if (strncasecmp(cmd, "list", i) == 0) { // literal print line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000930 if (b < 0) { // no addr given- use defaults
931 q = begin_line(dot); // assume .,. for the range
932 r = end_line(dot);
933 }
934 place_cursor(rows - 1, 0, FALSE); // go to Status line, bottom of screen
935 clear_to_eol(); // clear the line
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000936 puts("\r");
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000937 for (; q <= r; q++) {
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000938 int c_is_no_print;
939
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000940 c = *q;
Denis Vlasenko2a51af22007-03-21 22:31:24 +0000941 c_is_no_print = (c & 0x80) && !Isprint(c);
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000942 if (c_is_no_print) {
943 c = '.';
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000944 standout_start();
Denis Vlasenkod3c042f2007-12-30 01:59:53 +0000945 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000946 if (c == '\n') {
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000947 write1("$\r");
948 } else if (c < ' ' || c == 127) {
Denis Vlasenko4daad902007-09-27 10:20:47 +0000949 bb_putchar('^');
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000950 if (c == 127)
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000951 c = '?';
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000952 else
953 c += '@';
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000954 }
Denis Vlasenko4daad902007-09-27 10:20:47 +0000955 bb_putchar(c);
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000956 if (c_is_no_print)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000957 standout_end();
958 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000959#if ENABLE_FEATURE_VI_SET
960 vc2:
961#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000962 Hit_Return();
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000963 } else if (strncasecmp(cmd, "quit", i) == 0 // Quit
964 || strncasecmp(cmd, "next", i) == 0 // edit next file
965 ) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000966 if (useforce) {
967 // force end of argv list
968 if (*cmd == 'q') {
969 optind = save_argc;
970 }
971 editing = 0;
972 goto vc1;
973 }
974 // don't exit if the file been modified
975 if (file_modified) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000976 status_line_bold("No write since last change (:%s! overrides)",
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000977 (*cmd == 'q' ? "quit" : "next"));
978 goto vc1;
979 }
980 // are there other file to edit
981 if (*cmd == 'q' && optind < save_argc - 1) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000982 status_line_bold("%d more file to edit", (save_argc - optind - 1));
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000983 goto vc1;
984 }
985 if (*cmd == 'n' && optind >= save_argc - 1) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000986 status_line_bold("No more files to edit");
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000987 goto vc1;
988 }
989 editing = 0;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000990 } else if (strncasecmp(cmd, "read", i) == 0) { // read file into text[]
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000991 fn = args;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000992 if (!fn[0]) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000993 status_line_bold("No filename given");
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000994 goto vc1;
995 }
996 if (b < 0) { // no addr given- use defaults
997 q = begin_line(dot); // assume "dot"
998 }
999 // read after current line- unless user said ":0r foo"
1000 if (b != 0)
1001 q = next_line(q);
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001002 ch = file_insert(fn, q USE_FEATURE_VI_READONLY(, 0));
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001003 if (ch < 0)
1004 goto vc1; // nothing was inserted
1005 // how many lines in text[]?
1006 li = count_lines(q, q + ch - 1);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001007 status_line("\"%s\""
Denis Vlasenko59a1f302007-07-14 22:43:10 +00001008 USE_FEATURE_VI_READONLY("%s")
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001009 " %dL, %dC", fn,
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001010 USE_FEATURE_VI_READONLY((readonly_mode ? " [Readonly]" : ""),)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001011 li, ch);
1012 if (ch > 0) {
1013 // if the insert is before "dot" then we need to update
1014 if (q <= dot)
1015 dot += ch;
Paul Fox8552aec2005-09-16 12:20:05 +00001016 file_modified++;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001017 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001018 } else if (strncasecmp(cmd, "rewind", i) == 0) { // rewind cmd line args
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001019 if (file_modified && !useforce) {
1020 status_line_bold("No write since last change (:rewind! overrides)");
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001021 } else {
1022 // reset the filenames to edit
1023 optind = fn_start - 1;
1024 editing = 0;
1025 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001026#if ENABLE_FEATURE_VI_SET
Denis Vlasenkof9234132007-03-21 00:03:42 +00001027 } else if (strncasecmp(cmd, "set", i) == 0) { // set or clear features
Denis Vlasenko58875ae2007-03-22 22:22:10 +00001028#if ENABLE_FEATURE_VI_SETOPTS
Denis Vlasenkof9234132007-03-21 00:03:42 +00001029 char *argp;
Denis Vlasenko58875ae2007-03-22 22:22:10 +00001030#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001031 i = 0; // offset into args
Denis Vlasenkof9234132007-03-21 00:03:42 +00001032 // only blank is regarded as args delmiter. What about tab '\t' ?
1033 if (!args[0] || strcasecmp(args, "all") == 0) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001034 // print out values of all options
1035 place_cursor(rows - 1, 0, FALSE); // go to Status line, bottom of screen
1036 clear_to_eol(); // clear the line
1037 printf("----------------------------------------\r\n");
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001038#if ENABLE_FEATURE_VI_SETOPTS
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001039 if (!autoindent)
1040 printf("no");
1041 printf("autoindent ");
1042 if (!err_method)
1043 printf("no");
1044 printf("flash ");
1045 if (!ignorecase)
1046 printf("no");
1047 printf("ignorecase ");
1048 if (!showmatch)
1049 printf("no");
1050 printf("showmatch ");
1051 printf("tabstop=%d ", tabstop);
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001052#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001053 printf("\r\n");
1054 goto vc2;
1055 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001056#if ENABLE_FEATURE_VI_SETOPTS
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001057 argp = args;
Denis Vlasenkoba2fb712007-04-01 09:39:03 +00001058 while (*argp) {
Denis Vlasenkof9234132007-03-21 00:03:42 +00001059 if (strncasecmp(argp, "no", 2) == 0)
1060 i = 2; // ":set noautoindent"
1061 setops(argp, "autoindent ", i, "ai", VI_AUTOINDENT);
1062 setops(argp, "flash ", i, "fl", VI_ERR_METHOD);
1063 setops(argp, "ignorecase ", i, "ic", VI_IGNORECASE);
1064 setops(argp, "showmatch ", i, "ic", VI_SHOWMATCH);
1065 /* tabstopXXXX */
1066 if (strncasecmp(argp + i, "tabstop=%d ", 7) == 0) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001067 sscanf(strchr(argp + i, '='), "tabstop=%d" + 7, &ch);
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00001068 if (ch > 0 && ch <= MAX_TABSTOP)
Denis Vlasenkof9234132007-03-21 00:03:42 +00001069 tabstop = ch;
1070 }
1071 while (*argp && *argp != ' ')
1072 argp++; // skip to arg delimiter (i.e. blank)
1073 while (*argp && *argp == ' ')
1074 argp++; // skip all delimiting blanks
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001075 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001076#endif /* FEATURE_VI_SETOPTS */
1077#endif /* FEATURE_VI_SET */
1078#if ENABLE_FEATURE_VI_SEARCH
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001079 } else if (strncasecmp(cmd, "s", 1) == 0) { // substitute a pattern with a replacement pattern
1080 char *ls, *F, *R;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001081 int gflag;
1082
1083 // F points to the "find" pattern
1084 // R points to the "replace" pattern
1085 // replace the cmd line delimiters "/" with NULLs
1086 gflag = 0; // global replace flag
1087 c = orig_buf[1]; // what is the delimiter
1088 F = orig_buf + 2; // start of "find"
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001089 R = strchr(F, c); // middle delimiter
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001090 if (!R) goto colon_s_fail;
1091 *R++ = '\0'; // terminate "find"
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001092 buf1 = strchr(R, c);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001093 if (!buf1) goto colon_s_fail;
1094 *buf1++ = '\0'; // terminate "replace"
1095 if (*buf1 == 'g') { // :s/foo/bar/g
1096 buf1++;
1097 gflag++; // turn on gflag
1098 }
1099 q = begin_line(q);
1100 if (b < 0) { // maybe :s/foo/bar/
1101 q = begin_line(dot); // start with cur line
1102 b = count_lines(text, q); // cur line number
1103 }
1104 if (e < 0)
1105 e = b; // maybe :.s/foo/bar/
1106 for (i = b; i <= e; i++) { // so, :20,23 s \0 find \0 replace \0
1107 ls = q; // orig line start
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001108 vc4:
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001109 buf1 = char_search(q, F, FORWARD, LIMITED); // search cur line only for "find"
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001110 if (buf1) {
1111 // we found the "find" pattern - delete it
1112 text_hole_delete(buf1, buf1 + strlen(F) - 1);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001113 // inset the "replace" patern
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001114 string_insert(buf1, R); // insert the string
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001115 // check for "global" :s/foo/bar/g
1116 if (gflag == 1) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001117 if ((buf1 + strlen(R)) < end_line(ls)) {
1118 q = buf1 + strlen(R);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001119 goto vc4; // don't let q move past cur line
1120 }
1121 }
1122 }
1123 q = next_line(ls);
1124 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001125#endif /* FEATURE_VI_SEARCH */
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001126 } else if (strncasecmp(cmd, "version", i) == 0) { // show software version
Denis Vlasenko33875382008-06-21 20:31:50 +00001127 status_line(BB_VER " " BB_BT);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001128 } else if (strncasecmp(cmd, "write", i) == 0 // write text to file
1129 || strncasecmp(cmd, "wq", i) == 0
1130 || strncasecmp(cmd, "wn", i) == 0
1131 || strncasecmp(cmd, "x", i) == 0
1132 ) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001133 // is there a file name to write to?
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001134 if (args[0]) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001135 fn = args;
1136 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001137#if ENABLE_FEATURE_VI_READONLY
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001138 if (readonly_mode && !useforce) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001139 status_line_bold("\"%s\" File is read only", fn);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001140 goto vc3;
1141 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001142#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001143 // how many lines in text[]?
1144 li = count_lines(q, r);
1145 ch = r - q + 1;
1146 // see if file exists- if not, its just a new file request
1147 if (useforce) {
1148 // if "fn" is not write-able, chmod u+w
1149 // sprintf(syscmd, "chmod u+w %s", fn);
1150 // system(syscmd);
1151 forced = TRUE;
1152 }
1153 l = file_write(fn, q, r);
1154 if (useforce && forced) {
1155 // chmod u-w
1156 // sprintf(syscmd, "chmod u-w %s", fn);
1157 // system(syscmd);
1158 forced = FALSE;
1159 }
Paul Fox61e45db2005-10-09 14:43:22 +00001160 if (l < 0) {
1161 if (l == -1)
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001162 status_line_bold("\"%s\" %s", fn, strerror(errno));
Paul Fox61e45db2005-10-09 14:43:22 +00001163 } else {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001164 status_line("\"%s\" %dL, %dC", fn, li, l);
Paul Fox61e45db2005-10-09 14:43:22 +00001165 if (q == text && r == end - 1 && l == ch) {
1166 file_modified = 0;
1167 last_file_modified = -1;
1168 }
Paul Fox9360f422006-03-27 21:51:16 +00001169 if ((cmd[0] == 'x' || cmd[1] == 'q' || cmd[1] == 'n' ||
1170 cmd[0] == 'X' || cmd[1] == 'Q' || cmd[1] == 'N')
1171 && l == ch) {
Paul Fox61e45db2005-10-09 14:43:22 +00001172 editing = 0;
1173 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001174 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001175#if ENABLE_FEATURE_VI_READONLY
1176 vc3:;
1177#endif
1178#if ENABLE_FEATURE_VI_YANKMARK
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001179 } else if (strncasecmp(cmd, "yank", i) == 0) { // yank lines
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001180 if (b < 0) { // no addr given- use defaults
1181 q = begin_line(dot); // assume .,. for the range
1182 r = end_line(dot);
1183 }
1184 text_yank(q, r, YDreg);
1185 li = count_lines(q, r);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001186 status_line("Yank %d lines (%d chars) into [%c]",
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001187 li, strlen(reg[YDreg]), what_reg());
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001188#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001189 } else {
1190 // cmd unknown
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001191 not_implemented(cmd);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001192 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001193 vc1:
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001194 dot = bound_dot(dot); // make sure "dot" is valid
1195 return;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001196#if ENABLE_FEATURE_VI_SEARCH
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001197 colon_s_fail:
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001198 status_line(":s expression missing delimiters");
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001199#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001200}
Paul Fox61e45db2005-10-09 14:43:22 +00001201
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001202#endif /* FEATURE_VI_COLON */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001203
1204static void Hit_Return(void)
1205{
1206 char c;
1207
Denis Vlasenkof882f082007-12-23 02:36:51 +00001208 standout_start();
Glenn L McGrath09adaca2002-12-02 21:18:10 +00001209 write1("[Hit return to continue]");
Denis Vlasenkof882f082007-12-23 02:36:51 +00001210 standout_end();
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001211 while ((c = get_one_char()) != '\n' && c != '\r')
1212 continue;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001213 redraw(TRUE); // force redraw all
1214}
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001215
Denis Vlasenko91afdf82007-07-17 23:22:49 +00001216static int next_tabstop(int col)
1217{
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001218 return col + ((tabstop - 1) - (col % tabstop));
1219}
1220
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001221//----- Synchronize the cursor to Dot --------------------------
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00001222static void sync_cursor(char *d, int *row, int *col)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001223{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001224 char *beg_cur; // begin and end of "d" line
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001225 char *tp;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001226 int cnt, ro, co;
1227
1228 beg_cur = begin_line(d); // first char of cur line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001229
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001230 if (beg_cur < screenbegin) {
Denis Vlasenkof882f082007-12-23 02:36:51 +00001231 // "d" is before top line on screen
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001232 // how many lines do we have to move
1233 cnt = count_lines(beg_cur, screenbegin);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001234 sc1:
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001235 screenbegin = beg_cur;
1236 if (cnt > (rows - 1) / 2) {
1237 // we moved too many lines. put "dot" in middle of screen
1238 for (cnt = 0; cnt < (rows - 1) / 2; cnt++) {
1239 screenbegin = prev_line(screenbegin);
1240 }
1241 }
Denis Vlasenkof882f082007-12-23 02:36:51 +00001242 } else {
1243 char *end_scr; // begin and end of screen
1244 end_scr = end_screen(); // last char of screen
1245 if (beg_cur > end_scr) {
1246 // "d" is after bottom line on screen
1247 // how many lines do we have to move
1248 cnt = count_lines(end_scr, beg_cur);
1249 if (cnt > (rows - 1) / 2)
1250 goto sc1; // too many lines
1251 for (ro = 0; ro < cnt - 1; ro++) {
1252 // move screen begin the same amount
1253 screenbegin = next_line(screenbegin);
1254 // now, move the end of screen
1255 end_scr = next_line(end_scr);
1256 end_scr = end_line(end_scr);
1257 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001258 }
1259 }
1260 // "d" is on screen- find out which row
1261 tp = screenbegin;
1262 for (ro = 0; ro < rows - 1; ro++) { // drive "ro" to correct row
1263 if (tp == beg_cur)
1264 break;
1265 tp = next_line(tp);
1266 }
1267
1268 // find out what col "d" is on
1269 co = 0;
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00001270 while (tp < d) { // drive "co" to correct column
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001271 if (*tp == '\n') //vda || *tp == '\0')
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001272 break;
1273 if (*tp == '\t') {
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00001274 // handle tabs like real vi
1275 if (d == tp && cmd_mode) {
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001276 break;
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001277 }
Denis Vlasenkoe3eae0d2008-06-22 16:38:53 +00001278 co = next_tabstop(co);
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00001279 } else if ((unsigned char)*tp < ' ' || *tp == 0x7f) {
1280 co++; // display as ^X, use 2 columns
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001281 }
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00001282 co++;
1283 tp++;
1284 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001285
1286 // "co" is the column where "dot" is.
1287 // The screen has "columns" columns.
1288 // The currently displayed columns are 0+offset -- columns+ofset
1289 // |-------------------------------------------------------------|
1290 // ^ ^ ^
1291 // offset | |------- columns ----------------|
1292 //
1293 // If "co" is already in this range then we do not have to adjust offset
1294 // but, we do have to subtract the "offset" bias from "co".
1295 // If "co" is outside this range then we have to change "offset".
1296 // If the first char of a line is a tab the cursor will try to stay
1297 // in column 7, but we have to set offset to 0.
1298
1299 if (co < 0 + offset) {
1300 offset = co;
1301 }
1302 if (co >= columns + offset) {
1303 offset = co - columns + 1;
1304 }
1305 // if the first char of the line is a tab, and "dot" is sitting on it
1306 // force offset to 0.
1307 if (d == beg_cur && *d == '\t') {
1308 offset = 0;
1309 }
1310 co -= offset;
1311
1312 *row = ro;
1313 *col = co;
1314}
1315
1316//----- Text Movement Routines ---------------------------------
Denis Vlasenkof882f082007-12-23 02:36:51 +00001317static char *begin_line(char *p) // return pointer to first char cur line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001318{
Denis Vlasenkof882f082007-12-23 02:36:51 +00001319 if (p > text) {
1320 p = memrchr(text, '\n', p - text);
1321 if (!p)
1322 return text;
1323 return p + 1;
1324 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001325 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001326}
1327
Denis Vlasenkoe3eae0d2008-06-22 16:38:53 +00001328static char *end_line(char *p) // return pointer to NL of cur line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001329{
Denis Vlasenkof882f082007-12-23 02:36:51 +00001330 if (p < end - 1) {
1331 p = memchr(p, '\n', end - p - 1);
1332 if (!p)
1333 return end - 1;
1334 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001335 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001336}
1337
Denis Vlasenkof882f082007-12-23 02:36:51 +00001338static char *dollar_line(char *p) // return pointer to just before NL line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001339{
Denis Vlasenkof882f082007-12-23 02:36:51 +00001340 p = end_line(p);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001341 // Try to stay off of the Newline
1342 if (*p == '\n' && (p - begin_line(p)) > 0)
1343 p--;
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001344 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001345}
1346
Denis Vlasenkof882f082007-12-23 02:36:51 +00001347static char *prev_line(char *p) // return pointer first char prev line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001348{
1349 p = begin_line(p); // goto begining of cur line
Denis Vlasenkoe3eae0d2008-06-22 16:38:53 +00001350 if (p > text && p[-1] == '\n')
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001351 p--; // step to prev line
1352 p = begin_line(p); // goto begining of prev line
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001353 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001354}
1355
Denis Vlasenkof882f082007-12-23 02:36:51 +00001356static char *next_line(char *p) // return pointer first char next line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001357{
1358 p = end_line(p);
Denis Vlasenkoe3eae0d2008-06-22 16:38:53 +00001359 if (p < end - 1 && *p == '\n')
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001360 p++; // step to next line
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001361 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001362}
1363
1364//----- Text Information Routines ------------------------------
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001365static char *end_screen(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001366{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001367 char *q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001368 int cnt;
1369
1370 // find new bottom line
1371 q = screenbegin;
1372 for (cnt = 0; cnt < rows - 2; cnt++)
1373 q = next_line(q);
1374 q = end_line(q);
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001375 return q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001376}
1377
Denis Vlasenkof882f082007-12-23 02:36:51 +00001378// count line from start to stop
1379static int count_lines(char *start, char *stop)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001380{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001381 char *q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001382 int cnt;
1383
Denis Vlasenkof882f082007-12-23 02:36:51 +00001384 if (stop < start) { // start and stop are backwards- reverse them
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001385 q = start;
1386 start = stop;
1387 stop = q;
1388 }
1389 cnt = 0;
Denis Vlasenkof882f082007-12-23 02:36:51 +00001390 stop = end_line(stop);
1391 while (start <= stop && start <= end - 1) {
1392 start = end_line(start);
1393 if (*start == '\n')
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001394 cnt++;
Denis Vlasenkof882f082007-12-23 02:36:51 +00001395 start++;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001396 }
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00001397 return cnt;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001398}
1399
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001400static char *find_line(int li) // find begining of line #li
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001401{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001402 char *q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001403
1404 for (q = text; li > 1; li--) {
1405 q = next_line(q);
1406 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001407 return q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001408}
1409
1410//----- Dot Movement Routines ----------------------------------
1411static void dot_left(void)
1412{
1413 if (dot > text && dot[-1] != '\n')
1414 dot--;
1415}
1416
1417static void dot_right(void)
1418{
1419 if (dot < end - 1 && *dot != '\n')
1420 dot++;
1421}
1422
1423static void dot_begin(void)
1424{
1425 dot = begin_line(dot); // return pointer to first char cur line
1426}
1427
1428static void dot_end(void)
1429{
1430 dot = end_line(dot); // return pointer to last char cur line
1431}
1432
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001433static char *move_to_col(char *p, int l)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001434{
1435 int co;
1436
1437 p = begin_line(p);
1438 co = 0;
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00001439 while (co < l && p < end) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001440 if (*p == '\n') //vda || *p == '\0')
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001441 break;
1442 if (*p == '\t') {
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001443 co = next_tabstop(co);
Glenn L McGrath09adaca2002-12-02 21:18:10 +00001444 } else if (*p < ' ' || *p == 127) {
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00001445 co++; // display as ^X, use 2 columns
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001446 }
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00001447 co++;
1448 p++;
1449 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001450 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001451}
1452
1453static void dot_next(void)
1454{
1455 dot = next_line(dot);
1456}
1457
1458static void dot_prev(void)
1459{
1460 dot = prev_line(dot);
1461}
1462
1463static void dot_scroll(int cnt, int dir)
1464{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001465 char *q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001466
1467 for (; cnt > 0; cnt--) {
1468 if (dir < 0) {
1469 // scroll Backwards
Denis Vlasenkof882f082007-12-23 02:36:51 +00001470 // ctrl-Y scroll up one line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001471 screenbegin = prev_line(screenbegin);
1472 } else {
1473 // scroll Forwards
Denis Vlasenkof882f082007-12-23 02:36:51 +00001474 // ctrl-E scroll down one line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001475 screenbegin = next_line(screenbegin);
1476 }
1477 }
1478 // make sure "dot" stays on the screen so we dont scroll off
1479 if (dot < screenbegin)
1480 dot = screenbegin;
1481 q = end_screen(); // find new bottom line
1482 if (dot > q)
1483 dot = begin_line(q); // is dot is below bottom line?
1484 dot_skip_over_ws();
1485}
1486
1487static void dot_skip_over_ws(void)
1488{
1489 // skip WS
1490 while (isspace(*dot) && *dot != '\n' && dot < end - 1)
1491 dot++;
1492}
1493
1494static void dot_delete(void) // delete the char at 'dot'
1495{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001496 text_hole_delete(dot, dot);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001497}
1498
Denis Vlasenkof882f082007-12-23 02:36:51 +00001499static char *bound_dot(char *p) // make sure text[0] <= P < "end"
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001500{
1501 if (p >= end && end > text) {
1502 p = end - 1;
1503 indicate_error('1');
1504 }
1505 if (p < text) {
1506 p = text;
1507 indicate_error('2');
1508 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001509 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001510}
1511
1512//----- Helper Utility Routines --------------------------------
1513
1514//----------------------------------------------------------------
1515//----- Char Routines --------------------------------------------
1516/* Chars that are part of a word-
1517 * 0123456789_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
1518 * Chars that are Not part of a word (stoppers)
1519 * !"#$%&'()*+,-./:;<=>?@[\]^`{|}~
1520 * Chars that are WhiteSpace
1521 * TAB NEWLINE VT FF RETURN SPACE
1522 * DO NOT COUNT NEWLINE AS WHITESPACE
1523 */
1524
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001525static char *new_screen(int ro, int co)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001526{
1527 int li;
1528
Aaron Lehmanna170e1c2002-11-28 11:27:31 +00001529 free(screen);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001530 screensize = ro * co + 8;
Denis Vlasenkob95636c2006-12-19 23:36:04 +00001531 screen = xmalloc(screensize);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001532 // initialize the new screen. assume this will be a empty file.
1533 screen_erase();
Eric Andersenaff114c2004-04-14 17:51:38 +00001534 // non-existent text[] lines start with a tilde (~).
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001535 for (li = 1; li < ro - 1; li++) {
1536 screen[(li * co) + 0] = '~';
1537 }
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00001538 return screen;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001539}
1540
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001541#if ENABLE_FEATURE_VI_SEARCH
Denis Vlasenko33875382008-06-21 20:31:50 +00001542static int mycmp(const char *s1, const char *s2, int len)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001543{
1544 int i;
1545
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001546 i = strncmp(s1, s2, len);
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001547 if (ENABLE_FEATURE_VI_SETOPTS && ignorecase) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001548 i = strncasecmp(s1, s2, len);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001549 }
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00001550 return i;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001551}
1552
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001553// search for pattern starting at p
Denis Vlasenko33875382008-06-21 20:31:50 +00001554static char *char_search(char *p, const char *pat, int dir, int range)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001555{
1556#ifndef REGEX_SEARCH
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001557 char *start, *stop;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001558 int len;
1559
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001560 len = strlen(pat);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001561 if (dir == FORWARD) {
1562 stop = end - 1; // assume range is p - end-1
1563 if (range == LIMITED)
1564 stop = next_line(p); // range is to next line
1565 for (start = p; start < stop; start++) {
1566 if (mycmp(start, pat, len) == 0) {
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00001567 return start;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001568 }
1569 }
1570 } else if (dir == BACK) {
1571 stop = text; // assume range is text - p
1572 if (range == LIMITED)
1573 stop = prev_line(p); // range is to prev line
1574 for (start = p - len; start >= stop; start--) {
1575 if (mycmp(start, pat, len) == 0) {
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00001576 return start;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001577 }
1578 }
1579 }
1580 // pattern not found
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00001581 return NULL;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001582#else /* REGEX_SEARCH */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001583 char *q;
1584 struct re_pattern_buffer preg;
1585 int i;
1586 int size, range;
1587
1588 re_syntax_options = RE_SYNTAX_POSIX_EXTENDED;
1589 preg.translate = 0;
1590 preg.fastmap = 0;
1591 preg.buffer = 0;
1592 preg.allocated = 0;
1593
1594 // assume a LIMITED forward search
1595 q = next_line(p);
1596 q = end_line(q);
1597 q = end - 1;
1598 if (dir == BACK) {
1599 q = prev_line(p);
1600 q = text;
1601 }
1602 // count the number of chars to search over, forward or backward
1603 size = q - p;
1604 if (size < 0)
1605 size = p - q;
1606 // RANGE could be negative if we are searching backwards
1607 range = q - p;
1608
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001609 q = re_compile_pattern(pat, strlen(pat), &preg);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001610 if (q != 0) {
1611 // The pattern was not compiled
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001612 status_line_bold("bad search pattern: \"%s\": %s", pat, q);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001613 i = 0; // return p if pattern not compiled
1614 goto cs1;
1615 }
1616
1617 q = p;
1618 if (range < 0) {
1619 q = p - size;
1620 if (q < text)
1621 q = text;
1622 }
1623 // search for the compiled pattern, preg, in p[]
1624 // range < 0- search backward
1625 // range > 0- search forward
1626 // 0 < start < size
1627 // re_search() < 0 not found or error
1628 // re_search() > 0 index of found pattern
1629 // struct pattern char int int int struct reg
1630 // re_search (*pattern_buffer, *string, size, start, range, *regs)
1631 i = re_search(&preg, q, size, 0, range, 0);
1632 if (i == -1) {
1633 p = 0;
1634 i = 0; // return NULL if pattern not found
1635 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001636 cs1:
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001637 if (dir == FORWARD) {
1638 p = p + i;
1639 } else {
1640 p = p - i;
1641 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001642 return p;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001643#endif /* REGEX_SEARCH */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001644}
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001645#endif /* FEATURE_VI_SEARCH */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001646
Denis Vlasenko33875382008-06-21 20:31:50 +00001647static char *char_insert(char *p, char c) // insert the char c at 'p'
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001648{
1649 if (c == 22) { // Is this an ctrl-V?
1650 p = stupid_insert(p, '^'); // use ^ to indicate literal next
1651 p--; // backup onto ^
1652 refresh(FALSE); // show the ^
1653 c = get_one_char();
1654 *p = c;
1655 p++;
Denis Vlasenkob1759462008-06-20 20:20:54 +00001656 file_modified++;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001657 } else if (c == 27) { // Is this an ESC?
1658 cmd_mode = 0;
1659 cmdcnt = 0;
1660 end_cmd_q(); // stop adding to q
Paul Fox8552aec2005-09-16 12:20:05 +00001661 last_status_cksum = 0; // force status update
Denis Vlasenkodefc1ea2008-06-27 02:52:20 +00001662 if ((p[-1] != '\n') && (dot > text)) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001663 p--;
1664 }
Paul Foxd13b90b2005-07-18 22:17:25 +00001665 } else if (c == erase_char || c == 8 || c == 127) { // Is this a BS
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001666 // 123456789
Denis Vlasenkodefc1ea2008-06-27 02:52:20 +00001667 if ((p[-1] != '\n') && (dot>text)) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001668 p--;
1669 p = text_hole_delete(p, p); // shrink buffer 1 char
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001670 }
1671 } else {
1672 // insert a char into text[]
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001673 char *sp; // "save p"
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001674
1675 if (c == 13)
1676 c = '\n'; // translate \r to \n
1677 sp = p; // remember addr of insert
1678 p = stupid_insert(p, c); // insert the char
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001679#if ENABLE_FEATURE_VI_SETOPTS
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001680 if (showmatch && strchr(")]}", *sp) != NULL) {
1681 showmatching(sp);
1682 }
1683 if (autoindent && c == '\n') { // auto indent the new line
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001684 char *q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001685
1686 q = prev_line(p); // use prev line as templet
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001687 for (; isblank(*q); q++) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001688 p = stupid_insert(p, *q); // insert the char
1689 }
1690 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001691#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001692 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001693 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001694}
1695
Denis Vlasenko33875382008-06-21 20:31:50 +00001696static char *stupid_insert(char *p, char c) // stupidly insert the char c at 'p'
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001697{
1698 p = text_hole_make(p, 1);
Denis Vlasenkob1759462008-06-20 20:20:54 +00001699 *p = c;
1700 //file_modified++; - done by text_hole_make()
1701 return p + 1;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001702}
1703
Denis Vlasenko33875382008-06-21 20:31:50 +00001704static int find_range(char **start, char **stop, char c)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001705{
Paul Foxc51fc7b2008-03-06 01:34:23 +00001706 char *save_dot, *p, *q, *t;
1707 int cnt, multiline = 0;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001708
1709 save_dot = dot;
1710 p = q = dot;
1711
1712 if (strchr("cdy><", c)) {
1713 // these cmds operate on whole lines
1714 p = q = begin_line(p);
1715 for (cnt = 1; cnt < cmdcnt; cnt++) {
1716 q = next_line(q);
1717 }
1718 q = end_line(q);
Paul Foxc51fc7b2008-03-06 01:34:23 +00001719 } else if (strchr("^%$0bBeEfth\b\177", c)) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001720 // These cmds operate on char positions
1721 do_cmd(c); // execute movement cmd
1722 q = dot;
1723 } else if (strchr("wW", c)) {
1724 do_cmd(c); // execute movement cmd
Tim Rikerc1ef7bd2006-01-25 00:08:53 +00001725 // if we are at the next word's first char
1726 // step back one char
1727 // but check the possibilities when it is true
Eric Andersen5cc90ea2004-02-06 10:36:08 +00001728 if (dot > text && ((isspace(dot[-1]) && !isspace(dot[0]))
Tim Rikerc1ef7bd2006-01-25 00:08:53 +00001729 || (ispunct(dot[-1]) && !ispunct(dot[0]))
1730 || (isalnum(dot[-1]) && !isalnum(dot[0]))))
1731 dot--; // move back off of next word
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001732 if (dot > text && *dot == '\n')
1733 dot--; // stay off NL
1734 q = dot;
1735 } else if (strchr("H-k{", c)) {
1736 // these operate on multi-lines backwards
1737 q = end_line(dot); // find NL
1738 do_cmd(c); // execute movement cmd
1739 dot_begin();
1740 p = dot;
1741 } else if (strchr("L+j}\r\n", c)) {
1742 // these operate on multi-lines forwards
1743 p = begin_line(dot);
1744 do_cmd(c); // execute movement cmd
1745 dot_end(); // find NL
1746 q = dot;
1747 } else {
Paul Foxc51fc7b2008-03-06 01:34:23 +00001748 // nothing -- this causes any other values of c to
1749 // represent the one-character range under the
1750 // cursor. this is correct for ' ' and 'l', but
1751 // perhaps no others.
1752 //
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001753 }
Paul Foxc51fc7b2008-03-06 01:34:23 +00001754 if (q < p) {
1755 t = q;
1756 q = p;
1757 p = t;
1758 }
1759
Denis Vlasenko42cc3042008-03-24 02:05:58 +00001760 // backward char movements don't include start position
Paul Foxc51fc7b2008-03-06 01:34:23 +00001761 if (q > p && strchr("^0bBh\b\177", c)) q--;
1762
1763 multiline = 0;
1764 for (t = p; t <= q; t++) {
1765 if (*t == '\n') {
1766 multiline = 1;
1767 break;
1768 }
1769 }
1770
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001771 *start = p;
1772 *stop = q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001773 dot = save_dot;
Paul Foxc51fc7b2008-03-06 01:34:23 +00001774 return multiline;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001775}
1776
Denis Vlasenko33875382008-06-21 20:31:50 +00001777static int st_test(char *p, int type, int dir, char *tested)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001778{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001779 char c, c0, ci;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001780 int test, inc;
1781
1782 inc = dir;
1783 c = c0 = p[0];
1784 ci = p[inc];
1785 test = 0;
1786
1787 if (type == S_BEFORE_WS) {
1788 c = ci;
1789 test = ((!isspace(c)) || c == '\n');
1790 }
1791 if (type == S_TO_WS) {
1792 c = c0;
1793 test = ((!isspace(c)) || c == '\n');
1794 }
1795 if (type == S_OVER_WS) {
1796 c = c0;
1797 test = ((isspace(c)));
1798 }
1799 if (type == S_END_PUNCT) {
1800 c = ci;
1801 test = ((ispunct(c)));
1802 }
1803 if (type == S_END_ALNUM) {
1804 c = ci;
1805 test = ((isalnum(c)) || c == '_');
1806 }
1807 *tested = c;
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00001808 return test;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001809}
1810
Denis Vlasenko33875382008-06-21 20:31:50 +00001811static char *skip_thing(char *p, int linecnt, int dir, int type)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001812{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001813 char c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001814
1815 while (st_test(p, type, dir, &c)) {
1816 // make sure we limit search to correct number of lines
1817 if (c == '\n' && --linecnt < 1)
1818 break;
1819 if (dir >= 0 && p >= end - 1)
1820 break;
1821 if (dir < 0 && p <= text)
1822 break;
1823 p += dir; // move to next char
1824 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001825 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001826}
1827
1828// find matching char of pair () [] {}
Denis Vlasenko33875382008-06-21 20:31:50 +00001829static char *find_pair(char *p, const char c)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001830{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001831 char match, *q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001832 int dir, level;
1833
1834 match = ')';
1835 level = 1;
1836 dir = 1; // assume forward
1837 switch (c) {
Paul Foxc51fc7b2008-03-06 01:34:23 +00001838 case '(': match = ')'; break;
1839 case '[': match = ']'; break;
1840 case '{': match = '}'; break;
1841 case ')': match = '('; dir = -1; break;
1842 case ']': match = '['; dir = -1; break;
1843 case '}': match = '{'; dir = -1; break;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001844 }
1845 for (q = p + dir; text <= q && q < end; q += dir) {
1846 // look for match, count levels of pairs (( ))
1847 if (*q == c)
1848 level++; // increase pair levels
1849 if (*q == match)
1850 level--; // reduce pair level
1851 if (level == 0)
1852 break; // found matching pair
1853 }
1854 if (level != 0)
1855 q = NULL; // indicate no match
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001856 return q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001857}
1858
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001859#if ENABLE_FEATURE_VI_SETOPTS
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001860// show the matching char of a pair, () [] {}
Denis Vlasenkof882f082007-12-23 02:36:51 +00001861static void showmatching(char *p)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001862{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001863 char *q, *save_dot;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001864
1865 // we found half of a pair
1866 q = find_pair(p, *p); // get loc of matching char
1867 if (q == NULL) {
1868 indicate_error('3'); // no matching char
1869 } else {
1870 // "q" now points to matching pair
1871 save_dot = dot; // remember where we are
1872 dot = q; // go to new loc
1873 refresh(FALSE); // let the user see it
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001874 mysleep(40); // give user some time
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001875 dot = save_dot; // go back to old loc
1876 refresh(FALSE);
1877 }
1878}
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001879#endif /* FEATURE_VI_SETOPTS */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001880
1881// open a hole in text[]
Denis Vlasenko33875382008-06-21 20:31:50 +00001882static char *text_hole_make(char *p, int size) // at "p", make a 'size' byte hole
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001883{
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001884 if (size <= 0)
Denis Vlasenkob1759462008-06-20 20:20:54 +00001885 return p;
1886 end += size; // adjust the new END
1887 if (end >= (text + text_size)) {
1888 char *new_text;
1889 text_size += end - (text + text_size) + 10240;
1890 new_text = xrealloc(text, text_size);
1891 screenbegin = new_text + (screenbegin - text);
1892 dot = new_text + (dot - text);
1893 end = new_text + (end - text);
1894 p = new_text + (p - text);
1895 text = new_text;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001896 }
Denis Vlasenkod6995442008-06-27 04:06:13 +00001897 memmove(p + size, p, end - size - p);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001898 memset(p, ' ', size); // clear new hole
Denis Vlasenkob1759462008-06-20 20:20:54 +00001899 file_modified++;
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001900 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001901}
1902
1903// close a hole in text[]
Denis Vlasenko33875382008-06-21 20:31:50 +00001904static char *text_hole_delete(char *p, char *q) // delete "p" through "q", inclusive
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001905{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001906 char *src, *dest;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001907 int cnt, hole_size;
1908
1909 // move forwards, from beginning
1910 // assume p <= q
1911 src = q + 1;
1912 dest = p;
1913 if (q < p) { // they are backward- swap them
1914 src = p + 1;
1915 dest = q;
1916 }
1917 hole_size = q - p + 1;
1918 cnt = end - src;
1919 if (src < text || src > end)
1920 goto thd0;
1921 if (dest < text || dest >= end)
1922 goto thd0;
1923 if (src >= end)
1924 goto thd_atend; // just delete the end of the buffer
Denis Vlasenkob1759462008-06-20 20:20:54 +00001925 memmove(dest, src, cnt);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001926 thd_atend:
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001927 end = end - hole_size; // adjust the new END
1928 if (dest >= end)
1929 dest = end - 1; // make sure dest in below end-1
1930 if (end <= text)
1931 dest = end = text; // keep pointers valid
Denis Vlasenkob1759462008-06-20 20:20:54 +00001932 file_modified++;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001933 thd0:
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00001934 return dest;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001935}
1936
1937// copy text into register, then delete text.
1938// if dist <= 0, do not include, or go past, a NewLine
1939//
Denis Vlasenko33875382008-06-21 20:31:50 +00001940static char *yank_delete(char *start, char *stop, int dist, int yf)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001941{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001942 char *p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001943
1944 // make sure start <= stop
1945 if (start > stop) {
1946 // they are backwards, reverse them
1947 p = start;
1948 start = stop;
1949 stop = p;
1950 }
1951 if (dist <= 0) {
Denis Vlasenkoe1a0d482006-10-20 13:28:22 +00001952 // we cannot cross NL boundaries
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001953 p = start;
1954 if (*p == '\n')
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001955 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001956 // dont go past a NewLine
1957 for (; p + 1 <= stop; p++) {
1958 if (p[1] == '\n') {
1959 stop = p; // "stop" just before NewLine
1960 break;
1961 }
1962 }
1963 }
1964 p = start;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001965#if ENABLE_FEATURE_VI_YANKMARK
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001966 text_yank(start, stop, YDreg);
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001967#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001968 if (yf == YANKDEL) {
1969 p = text_hole_delete(start, stop);
1970 } // delete lines
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001971 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001972}
1973
1974static void show_help(void)
1975{
1976 puts("These features are available:"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001977#if ENABLE_FEATURE_VI_SEARCH
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001978 "\n\tPattern searches with / and ?"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001979#endif
1980#if ENABLE_FEATURE_VI_DOT_CMD
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001981 "\n\tLast command repeat with \'.\'"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001982#endif
1983#if ENABLE_FEATURE_VI_YANKMARK
Bernhard Reutner-Fischerd24d5c82007-10-01 18:04:42 +00001984 "\n\tLine marking with 'x"
1985 "\n\tNamed buffers with \"x"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001986#endif
1987#if ENABLE_FEATURE_VI_READONLY
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001988 "\n\tReadonly if vi is called as \"view\""
1989 "\n\tReadonly with -R command line arg"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001990#endif
1991#if ENABLE_FEATURE_VI_SET
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001992 "\n\tSome colon mode commands with \':\'"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001993#endif
1994#if ENABLE_FEATURE_VI_SETOPTS
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001995 "\n\tSettable options with \":set\""
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001996#endif
1997#if ENABLE_FEATURE_VI_USE_SIGNALS
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001998 "\n\tSignal catching- ^C"
1999 "\n\tJob suspend and resume with ^Z"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002000#endif
2001#if ENABLE_FEATURE_VI_WIN_RESIZE
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002002 "\n\tAdapt to window re-sizes"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002003#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002004 );
2005}
2006
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002007#if ENABLE_FEATURE_VI_DOT_CMD
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002008static void start_new_cmd_q(char c)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002009{
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002010 // get buffer for new cmd
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002011 // if there is a current cmd count put it in the buffer first
Denis Vlasenko30cfdf92008-09-21 15:29:29 +00002012 if (cmdcnt > 0) {
Paul Foxc51fc7b2008-03-06 01:34:23 +00002013 lmc_len = sprintf(last_modifying_cmd, "%d%c", cmdcnt, c);
Denis Vlasenko30cfdf92008-09-21 15:29:29 +00002014 } else { // just save char c onto queue
Paul Foxd957b952005-11-28 18:07:53 +00002015 last_modifying_cmd[0] = c;
Paul Foxc51fc7b2008-03-06 01:34:23 +00002016 lmc_len = 1;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002017 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002018 adding2q = 1;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002019}
2020
2021static void end_cmd_q(void)
2022{
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002023#if ENABLE_FEATURE_VI_YANKMARK
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002024 YDreg = 26; // go back to default Yank/Delete reg
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002025#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002026 adding2q = 0;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002027}
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002028#endif /* FEATURE_VI_DOT_CMD */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002029
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002030#if ENABLE_FEATURE_VI_YANKMARK \
2031 || (ENABLE_FEATURE_VI_COLON && ENABLE_FEATURE_VI_SEARCH) \
2032 || ENABLE_FEATURE_VI_CRASHME
Denis Vlasenko33875382008-06-21 20:31:50 +00002033static char *string_insert(char *p, char *s) // insert the string at 'p'
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002034{
2035 int cnt, i;
2036
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002037 i = strlen(s);
Denis Vlasenko33875382008-06-21 20:31:50 +00002038 text_hole_make(p, i);
2039 strncpy(p, s, i);
2040 for (cnt = 0; *s != '\0'; s++) {
2041 if (*s == '\n')
2042 cnt++;
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002043 }
Denis Vlasenko33875382008-06-21 20:31:50 +00002044#if ENABLE_FEATURE_VI_YANKMARK
2045 status_line("Put %d lines (%d chars) from [%c]", cnt, i, what_reg());
2046#endif
Denis Vlasenko079f8af2006-11-27 16:49:31 +00002047 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002048}
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002049#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002050
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002051#if ENABLE_FEATURE_VI_YANKMARK
Denis Vlasenko33875382008-06-21 20:31:50 +00002052static char *text_yank(char *p, char *q, int dest) // copy text into a register
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002053{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002054 char *t;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002055 int cnt;
2056
2057 if (q < p) { // they are backwards- reverse them
2058 t = q;
2059 q = p;
2060 p = t;
2061 }
2062 cnt = q - p + 1;
2063 t = reg[dest];
Aaron Lehmanna170e1c2002-11-28 11:27:31 +00002064 free(t); // if already a yank register, free it
Denis Vlasenkob95636c2006-12-19 23:36:04 +00002065 t = xmalloc(cnt + 1); // get a new register
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002066 memset(t, '\0', cnt + 1); // clear new text[]
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002067 strncpy(t, p, cnt); // copy text[] into bufer
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002068 reg[dest] = t;
Denis Vlasenko079f8af2006-11-27 16:49:31 +00002069 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002070}
2071
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002072static char what_reg(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002073{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002074 char c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002075
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002076 c = 'D'; // default to D-reg
2077 if (0 <= YDreg && YDreg <= 25)
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002078 c = 'a' + (char) YDreg;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002079 if (YDreg == 26)
2080 c = 'D';
2081 if (YDreg == 27)
2082 c = 'U';
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00002083 return c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002084}
2085
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002086static void check_context(char cmd)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002087{
2088 // A context is defined to be "modifying text"
2089 // Any modifying command establishes a new context.
2090
2091 if (dot < context_start || dot > context_end) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002092 if (strchr(modifying_cmds, cmd) != NULL) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002093 // we are trying to modify text[]- make this the current context
2094 mark[27] = mark[26]; // move cur to prev
2095 mark[26] = dot; // move local to cur
2096 context_start = prev_line(prev_line(dot));
2097 context_end = next_line(next_line(dot));
2098 //loiter= start_loiter= now;
2099 }
2100 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002101}
2102
Denis Vlasenkof882f082007-12-23 02:36:51 +00002103static char *swap_context(char *p) // goto new context for '' command make this the current context
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002104{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002105 char *tmp;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002106
2107 // the current context is in mark[26]
2108 // the previous context is in mark[27]
2109 // only swap context if other context is valid
2110 if (text <= mark[27] && mark[27] <= end - 1) {
2111 tmp = mark[27];
2112 mark[27] = mark[26];
2113 mark[26] = tmp;
2114 p = mark[26]; // where we are going- previous context
2115 context_start = prev_line(prev_line(prev_line(p)));
2116 context_end = next_line(next_line(next_line(p)));
2117 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00002118 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002119}
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002120#endif /* FEATURE_VI_YANKMARK */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002121
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002122//----- Set terminal attributes --------------------------------
2123static void rawmode(void)
2124{
2125 tcgetattr(0, &term_orig);
2126 term_vi = term_orig;
2127 term_vi.c_lflag &= (~ICANON & ~ECHO); // leave ISIG ON- allow intr's
2128 term_vi.c_iflag &= (~IXON & ~ICRNL);
2129 term_vi.c_oflag &= (~ONLCR);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002130 term_vi.c_cc[VMIN] = 1;
2131 term_vi.c_cc[VTIME] = 0;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002132 erase_char = term_vi.c_cc[VERASE];
2133 tcsetattr(0, TCSANOW, &term_vi);
2134}
2135
2136static void cookmode(void)
2137{
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002138 fflush(stdout);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002139 tcsetattr(0, TCSANOW, &term_orig);
2140}
2141
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002142//----- Come here when we get a window resize signal ---------
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002143#if ENABLE_FEATURE_VI_USE_SIGNALS
Denis Vlasenkoa60f84e2008-07-05 09:18:54 +00002144static void winch_sig(int sig UNUSED_PARAM)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002145{
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00002146 // FIXME: do it in main loop!!!
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002147 signal(SIGWINCH, winch_sig);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002148 if (ENABLE_FEATURE_VI_WIN_RESIZE) {
Denis Vlasenko621204b2006-10-27 09:03:24 +00002149 get_terminal_width_height(0, &columns, &rows);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002150 if (rows > MAX_SCR_ROWS) rows = MAX_SCR_ROWS;
2151 if (columns > MAX_SCR_COLS) columns = MAX_SCR_COLS;
2152 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002153 new_screen(rows, columns); // get memory for virtual screen
2154 redraw(TRUE); // re-draw the screen
2155}
2156
2157//----- Come here when we get a continue signal -------------------
Denis Vlasenkoa60f84e2008-07-05 09:18:54 +00002158static void cont_sig(int sig UNUSED_PARAM)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002159{
Denis Vlasenko30cfdf92008-09-21 15:29:29 +00002160 rawmode(); // terminal to "raw"
2161 last_status_cksum = 0; // force status update
2162 redraw(TRUE); // re-draw the screen
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002163
2164 signal(SIGTSTP, suspend_sig);
2165 signal(SIGCONT, SIG_DFL);
Denis Vlasenko30cfdf92008-09-21 15:29:29 +00002166 kill(my_pid, SIGCONT); // huh? why? we are already "continued"...
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002167}
2168
2169//----- Come here when we get a Suspend signal -------------------
Denis Vlasenkoa60f84e2008-07-05 09:18:54 +00002170static void suspend_sig(int sig UNUSED_PARAM)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002171{
Denis Vlasenko30cfdf92008-09-21 15:29:29 +00002172 place_cursor(rows - 1, 0, FALSE); // go to bottom of screen
2173 clear_to_eol(); // erase to end of line
2174 cookmode(); // terminal to "cooked"
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002175
2176 signal(SIGCONT, cont_sig);
2177 signal(SIGTSTP, SIG_DFL);
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002178 kill(my_pid, SIGTSTP);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002179}
2180
2181//----- Come here when we get a signal ---------------------------
2182static void catch_sig(int sig)
2183{
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002184 signal(SIGINT, catch_sig);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002185 if (sig)
Paul Fox2724fa92008-03-17 15:28:07 +00002186 siglongjmp(restart, sig);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002187}
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002188#endif /* FEATURE_VI_USE_SIGNALS */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002189
2190static int mysleep(int hund) // sleep for 'h' 1/100 seconds
2191{
Denis Vlasenko87f3b262007-09-07 13:43:28 +00002192 struct pollfd pfd[1];
Denis Vlasenkocd5c7862007-05-17 16:37:22 +00002193
Denis Vlasenko87f3b262007-09-07 13:43:28 +00002194 pfd[0].fd = 0;
2195 pfd[0].events = POLLIN;
Denis Vlasenko5d61e712007-09-27 10:09:59 +00002196 return safe_poll(pfd, 1, hund*10) > 0;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002197}
2198
2199//----- IO Routines --------------------------------------------
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002200static char readit(void) // read (maybe cursor) key from stdin
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002201{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002202 char c;
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002203 int n;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002204 struct esc_cmds {
Denis Vlasenko4f95e5a2007-10-11 10:10:15 +00002205 const char seq[4];
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002206 char val;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002207 };
2208
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002209 static const struct esc_cmds esccmds[] = {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002210 {"OA" , VI_K_UP }, // cursor key Up
2211 {"OB" , VI_K_DOWN }, // cursor key Down
2212 {"OC" , VI_K_RIGHT }, // Cursor Key Right
2213 {"OD" , VI_K_LEFT }, // cursor key Left
2214 {"OH" , VI_K_HOME }, // Cursor Key Home
2215 {"OF" , VI_K_END }, // Cursor Key End
2216 {"[A" , VI_K_UP }, // cursor key Up
2217 {"[B" , VI_K_DOWN }, // cursor key Down
2218 {"[C" , VI_K_RIGHT }, // Cursor Key Right
2219 {"[D" , VI_K_LEFT }, // cursor key Left
2220 {"[H" , VI_K_HOME }, // Cursor Key Home
2221 {"[F" , VI_K_END }, // Cursor Key End
2222 {"[1~" , VI_K_HOME }, // Cursor Key Home
2223 {"[2~" , VI_K_INSERT }, // Cursor Key Insert
2224 {"[3~" , VI_K_DELETE }, // Cursor Key Delete
2225 {"[4~" , VI_K_END }, // Cursor Key End
2226 {"[5~" , VI_K_PAGEUP }, // Cursor Key Page Up
2227 {"[6~" , VI_K_PAGEDOWN}, // Cursor Key Page Down
2228 {"OP" , VI_K_FUN1 }, // Function Key F1
2229 {"OQ" , VI_K_FUN2 }, // Function Key F2
2230 {"OR" , VI_K_FUN3 }, // Function Key F3
2231 {"OS" , VI_K_FUN4 }, // Function Key F4
Denis Vlasenko4f95e5a2007-10-11 10:10:15 +00002232 // careful: these have no terminating NUL!
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002233 {"[11~", VI_K_FUN1 }, // Function Key F1
2234 {"[12~", VI_K_FUN2 }, // Function Key F2
2235 {"[13~", VI_K_FUN3 }, // Function Key F3
2236 {"[14~", VI_K_FUN4 }, // Function Key F4
2237 {"[15~", VI_K_FUN5 }, // Function Key F5
2238 {"[17~", VI_K_FUN6 }, // Function Key F6
2239 {"[18~", VI_K_FUN7 }, // Function Key F7
2240 {"[19~", VI_K_FUN8 }, // Function Key F8
2241 {"[20~", VI_K_FUN9 }, // Function Key F9
2242 {"[21~", VI_K_FUN10 }, // Function Key F10
2243 {"[23~", VI_K_FUN11 }, // Function Key F11
2244 {"[24~", VI_K_FUN12 }, // Function Key F12
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002245 };
Denis Vlasenko80b8b392007-06-25 10:55:35 +00002246 enum { ESCCMDS_COUNT = ARRAY_SIZE(esccmds) };
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002247
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002248 fflush(stdout);
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002249 n = chars_to_parse;
Denis Vlasenko30cfdf92008-09-21 15:29:29 +00002250 // get input from User - are there already input chars in Q?
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002251 if (n <= 0) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002252 // the Q is empty, wait for a typed char
Denis Vlasenko30cfdf92008-09-21 15:29:29 +00002253 again:
Bernhard Reutner-Fischer5e25ddb2008-05-19 09:48:17 +00002254 n = safe_read(STDIN_FILENO, readbuffer, sizeof(readbuffer));
Denis Vlasenko30cfdf92008-09-21 15:29:29 +00002255 if (n <= 0) {
2256 place_cursor(rows - 1, 0, FALSE); // go to bottom of screen
2257 clear_to_eol(); // erase to end of line
2258 cookmode(); // terminal to "cooked"
2259 bb_error_msg_and_die("can't read user input");
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002260 }
Denis Vlasenko30cfdf92008-09-21 15:29:29 +00002261 /* elsewhere we can get very confused by NULs */
2262 if (readbuffer[0] == '\0')
2263 goto again;
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002264 if (readbuffer[0] == 27) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002265 // This is an ESC char. Is this Esc sequence?
2266 // Could be bare Esc key. See if there are any
2267 // more chars to read after the ESC. This would
2268 // be a Function or Cursor Key sequence.
Denis Vlasenko87f3b262007-09-07 13:43:28 +00002269 struct pollfd pfd[1];
2270 pfd[0].fd = 0;
2271 pfd[0].events = POLLIN;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002272 // keep reading while there are input chars, and room in buffer
2273 // for a complete ESC sequence (assuming 8 chars is enough)
Denis Vlasenko77ad97f2008-05-13 02:27:31 +00002274 while ((safe_poll(pfd, 1, 0) > 0)
2275 && ((size_t)n <= (sizeof(readbuffer) - 8))
2276 ) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002277 // read the rest of the ESC string
Bernhard Reutner-Fischer5e25ddb2008-05-19 09:48:17 +00002278 int r = safe_read(STDIN_FILENO, readbuffer + n, sizeof(readbuffer) - n);
Denis Vlasenko87f3b262007-09-07 13:43:28 +00002279 if (r > 0)
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002280 n += r;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002281 }
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002282 }
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002283 chars_to_parse = n;
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002284 }
2285 c = readbuffer[0];
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002286 if (c == 27 && n > 1) {
2287 // Maybe cursor or function key?
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002288 const struct esc_cmds *eindex;
2289
2290 for (eindex = esccmds; eindex < &esccmds[ESCCMDS_COUNT]; eindex++) {
Denis Vlasenko4f95e5a2007-10-11 10:10:15 +00002291 int cnt = strnlen(eindex->seq, 4);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002292 if (n <= cnt)
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002293 continue;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002294 if (strncmp(eindex->seq, readbuffer + 1, cnt) != 0)
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002295 continue;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002296 c = eindex->val; // magic char value
2297 n = cnt + 1; // squeeze out the ESC sequence
2298 goto found;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002299 }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002300 // defined ESC sequence not found
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002301 }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002302 n = 1;
2303 found:
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002304 // remove key sequence from Q
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002305 chars_to_parse -= n;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002306 memmove(readbuffer, readbuffer + n, sizeof(readbuffer) - n);
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00002307 return c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002308}
2309
2310//----- IO Routines --------------------------------------------
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002311static char get_one_char(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002312{
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002313 char c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002314
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002315#if ENABLE_FEATURE_VI_DOT_CMD
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002316 if (!adding2q) {
2317 // we are not adding to the q.
2318 // but, we may be reading from a q
2319 if (ioq == 0) {
2320 // there is no current q, read from STDIN
2321 c = readit(); // get the users input
2322 } else {
2323 // there is a queue to get chars from first
2324 c = *ioq++;
2325 if (c == '\0') {
2326 // the end of the q, read from STDIN
2327 free(ioq_start);
2328 ioq_start = ioq = 0;
2329 c = readit(); // get the users input
2330 }
2331 }
2332 } else {
2333 // adding STDIN chars to q
2334 c = readit(); // get the users input
Denis Vlasenkob1759462008-06-20 20:20:54 +00002335 if (lmc_len >= MAX_INPUT_LEN - 1) {
2336 status_line_bold("last_modifying_cmd overrun");
2337 } else {
2338 // add new char to q
2339 last_modifying_cmd[lmc_len++] = c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002340 }
2341 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002342#else
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002343 c = readit(); // get the users input
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002344#endif /* FEATURE_VI_DOT_CMD */
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002345 return c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002346}
2347
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002348// Get input line (uses "status line" area)
2349static char *get_input_line(const char *prompt)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002350{
Denis Vlasenkob1759462008-06-20 20:20:54 +00002351 // char [MAX_INPUT_LEN]
2352#define buf get_input_line__buf
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002353
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002354 char c;
2355 int i;
2356
2357 strcpy(buf, prompt);
Paul Fox8552aec2005-09-16 12:20:05 +00002358 last_status_cksum = 0; // force status update
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002359 place_cursor(rows - 1, 0, FALSE); // go to Status line, bottom of screen
2360 clear_to_eol(); // clear the line
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002361 write1(prompt); // write out the :, /, or ? prompt
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002362
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002363 i = strlen(buf);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002364 while (i < MAX_INPUT_LEN) {
2365 c = get_one_char();
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002366 if (c == '\n' || c == '\r' || c == 27)
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002367 break; // this is end of input
Paul Foxf2de0b72005-09-13 22:20:37 +00002368 if (c == erase_char || c == 8 || c == 127) {
Tim Rikerc1ef7bd2006-01-25 00:08:53 +00002369 // user wants to erase prev char
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002370 buf[--i] = '\0';
2371 write1("\b \b"); // erase char on screen
2372 if (i <= 0) // user backs up before b-o-l, exit
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002373 break;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002374 } else {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002375 buf[i] = c;
2376 buf[++i] = '\0';
2377 bb_putchar(c);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002378 }
2379 }
2380 refresh(FALSE);
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002381 return buf;
Denis Vlasenkob1759462008-06-20 20:20:54 +00002382#undef buf
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002383}
2384
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002385static int file_size(const char *fn) // what is the byte size of "fn"
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002386{
2387 struct stat st_buf;
Denis Vlasenko59a1f302007-07-14 22:43:10 +00002388 int cnt;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002389
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002390 cnt = -1;
Denis Vlasenko59a1f302007-07-14 22:43:10 +00002391 if (fn && fn[0] && stat(fn, &st_buf) == 0) // see if file exists
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002392 cnt = (int) st_buf.st_size;
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00002393 return cnt;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002394}
2395
Denis Vlasenko33875382008-06-21 20:31:50 +00002396static int file_insert(const char *fn, char *p
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002397 USE_FEATURE_VI_READONLY(, int update_ro_status))
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002398{
Denis Vlasenko59a1f302007-07-14 22:43:10 +00002399 int cnt = -1;
2400 int fd, size;
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002401 struct stat statbuf;
2402
2403 /* Validate file */
2404 if (stat(fn, &statbuf) < 0) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002405 status_line_bold("\"%s\" %s", fn, strerror(errno));
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002406 goto fi0;
2407 }
Denis Vlasenko33875382008-06-21 20:31:50 +00002408 if (!S_ISREG(statbuf.st_mode)) {
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002409 // This is not a regular file
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002410 status_line_bold("\"%s\" Not a regular file", fn);
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002411 goto fi0;
2412 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002413 if (p < text || p > end) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002414 status_line_bold("Trying to insert file outside of memory");
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002415 goto fi0;
2416 }
2417
Denis Vlasenko59a1f302007-07-14 22:43:10 +00002418 // read file to buffer
2419 fd = open(fn, O_RDONLY);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002420 if (fd < 0) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002421 status_line_bold("\"%s\" %s", fn, strerror(errno));
Denis Vlasenko59a1f302007-07-14 22:43:10 +00002422 goto fi0;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002423 }
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002424 size = statbuf.st_size;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002425 p = text_hole_make(p, size);
Denis Vlasenko4f95e5a2007-10-11 10:10:15 +00002426 cnt = safe_read(fd, p, size);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002427 if (cnt < 0) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002428 status_line_bold("\"%s\" %s", fn, strerror(errno));
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002429 p = text_hole_delete(p, p + size - 1); // un-do buffer insert
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002430 } else if (cnt < size) {
2431 // There was a partial read, shrink unused space text[]
2432 p = text_hole_delete(p + cnt, p + (size - cnt) - 1); // un-do buffer insert
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002433 status_line_bold("cannot read all of file \"%s\"", fn);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002434 }
2435 if (cnt >= size)
Paul Fox8552aec2005-09-16 12:20:05 +00002436 file_modified++;
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002437 close(fd);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002438 fi0:
Denis Vlasenko856be772007-08-17 08:29:48 +00002439#if ENABLE_FEATURE_VI_READONLY
2440 if (update_ro_status
2441 && ((access(fn, W_OK) < 0) ||
2442 /* root will always have access()
2443 * so we check fileperms too */
2444 !(statbuf.st_mode & (S_IWUSR | S_IWGRP | S_IWOTH))
2445 )
2446 ) {
Denis Vlasenko2f6ae432007-07-19 22:50:47 +00002447 SET_READONLY_FILE(readonly_mode);
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002448 }
Denis Vlasenko856be772007-08-17 08:29:48 +00002449#endif
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00002450 return cnt;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002451}
2452
Denis Vlasenko33875382008-06-21 20:31:50 +00002453static int file_write(char *fn, char *first, char *last)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002454{
2455 int fd, cnt, charcnt;
2456
2457 if (fn == 0) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002458 status_line_bold("No current filename");
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00002459 return -2;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002460 }
2461 charcnt = 0;
Denis Vlasenko8abae882008-05-03 11:35:59 +00002462 /* By popular request we do not open file with O_TRUNC,
2463 * but instead ftruncate() it _after_ successful write.
2464 * Might reduce amount of data lost on power fail etc.
2465 */
2466 fd = open(fn, (O_WRONLY | O_CREAT), 0666);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002467 if (fd < 0)
Denis Vlasenko079f8af2006-11-27 16:49:31 +00002468 return -1;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002469 cnt = last - first + 1;
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002470 charcnt = full_write(fd, first, cnt);
Denis Vlasenko8abae882008-05-03 11:35:59 +00002471 ftruncate(fd, charcnt);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002472 if (charcnt == cnt) {
2473 // good write
Denis Vlasenkob1759462008-06-20 20:20:54 +00002474 //file_modified = FALSE;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002475 } else {
2476 charcnt = 0;
2477 }
2478 close(fd);
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00002479 return charcnt;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002480}
2481
2482//----- Terminal Drawing ---------------------------------------
2483// The terminal is made up of 'rows' line of 'columns' columns.
Eric Andersenaff114c2004-04-14 17:51:38 +00002484// classically this would be 24 x 80.
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002485// screen coordinates
2486// 0,0 ... 0,79
2487// 1,0 ... 1,79
2488// . ... .
2489// . ... .
2490// 22,0 ... 22,79
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002491// 23,0 ... 23,79 <- status line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002492
2493//----- Move the cursor to row x col (count from 0, not 1) -------
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002494static void place_cursor(int row, int col, int optimize)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002495{
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002496 char cm1[sizeof(CMrc) + sizeof(int)*3 * 2];
Denis Vlasenko7b54dc72008-07-17 21:32:32 +00002497#if ENABLE_FEATURE_VI_OPTIMIZE_CURSOR
2498 enum {
2499 SZ_UP = sizeof(CMup),
2500 SZ_DN = sizeof(CMdown),
2501 SEQ_SIZE = SZ_UP > SZ_DN ? SZ_UP : SZ_DN,
2502 };
2503 char cm2[SEQ_SIZE * 5 + 32]; // bigger than worst case size
2504#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002505 char *cm;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002506
2507 if (row < 0) row = 0;
2508 if (row >= rows) row = rows - 1;
2509 if (col < 0) col = 0;
2510 if (col >= columns) col = columns - 1;
Eric Andersenc7bda1c2004-03-15 08:29:22 +00002511
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002512 //----- 1. Try the standard terminal ESC sequence
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002513 sprintf(cm1, CMrc, row + 1, col + 1);
2514 cm = cm1;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002515
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002516#if ENABLE_FEATURE_VI_OPTIMIZE_CURSOR
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002517 if (optimize && col < 16) {
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002518 char *screenp;
2519 int Rrow = last_row;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002520 int diff = Rrow - row;
2521
2522 if (diff < -5 || diff > 5)
2523 goto skip;
Eric Andersenc7bda1c2004-03-15 08:29:22 +00002524
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002525 //----- find the minimum # of chars to move cursor -------------
2526 //----- 2. Try moving with discreet chars (Newline, [back]space, ...)
2527 cm2[0] = '\0';
2528
2529 // move to the correct row
2530 while (row < Rrow) {
2531 // the cursor has to move up
2532 strcat(cm2, CMup);
2533 Rrow--;
2534 }
2535 while (row > Rrow) {
2536 // the cursor has to move down
2537 strcat(cm2, CMdown);
2538 Rrow++;
2539 }
2540
2541 // now move to the correct column
2542 strcat(cm2, "\r"); // start at col 0
2543 // just send out orignal source char to get to correct place
2544 screenp = &screen[row * columns]; // start of screen line
2545 strncat(cm2, screenp, col);
2546
2547 // pick the shortest cursor motion to send out
2548 if (strlen(cm2) < strlen(cm)) {
2549 cm = cm2;
2550 }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002551 skip: ;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002552 }
Denis Vlasenko4baed3a2007-12-22 17:31:29 +00002553 last_row = row;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002554#endif /* FEATURE_VI_OPTIMIZE_CURSOR */
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002555 write1(cm);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002556}
2557
2558//----- Erase from cursor to end of line -----------------------
Mike Frysinger4e5936e2005-04-16 04:30:38 +00002559static void clear_to_eol(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002560{
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002561 write1(Ceol); // Erase from cursor to end of line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002562}
2563
2564//----- Erase from cursor to end of screen -----------------------
Mike Frysinger4e5936e2005-04-16 04:30:38 +00002565static void clear_to_eos(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002566{
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002567 write1(Ceos); // Erase from cursor to end of screen
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002568}
2569
2570//----- Start standout mode ------------------------------------
Mike Frysinger4e5936e2005-04-16 04:30:38 +00002571static void standout_start(void) // send "start reverse video" sequence
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002572{
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002573 write1(SOs); // Start reverse video mode
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002574}
2575
2576//----- End standout mode --------------------------------------
Mike Frysinger4e5936e2005-04-16 04:30:38 +00002577static void standout_end(void) // send "end reverse video" sequence
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002578{
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002579 write1(SOn); // End reverse video mode
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002580}
2581
2582//----- Flash the screen --------------------------------------
2583static void flash(int h)
2584{
2585 standout_start(); // send "start reverse video" sequence
2586 redraw(TRUE);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002587 mysleep(h);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002588 standout_end(); // send "end reverse video" sequence
2589 redraw(TRUE);
2590}
2591
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002592static void Indicate_Error(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002593{
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002594#if ENABLE_FEATURE_VI_CRASHME
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002595 if (crashme > 0)
2596 return; // generate a random command
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002597#endif
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002598 if (!err_method) {
2599 write1(bell); // send out a bell character
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002600 } else {
2601 flash(10);
2602 }
2603}
2604
2605//----- Screen[] Routines --------------------------------------
2606//----- Erase the Screen[] memory ------------------------------
Mike Frysinger4e5936e2005-04-16 04:30:38 +00002607static void screen_erase(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002608{
2609 memset(screen, ' ', screensize); // clear new screen
2610}
2611
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002612static int bufsum(char *buf, int count)
Paul Fox8552aec2005-09-16 12:20:05 +00002613{
2614 int sum = 0;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002615 char *e = buf + count;
2616
Paul Fox8552aec2005-09-16 12:20:05 +00002617 while (buf < e)
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002618 sum += (unsigned char) *buf++;
Paul Fox8552aec2005-09-16 12:20:05 +00002619 return sum;
2620}
2621
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002622//----- Draw the status line at bottom of the screen -------------
2623static void show_status_line(void)
2624{
Paul Foxc3504852005-09-16 12:48:18 +00002625 int cnt = 0, cksum = 0;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002626
Paul Fox8552aec2005-09-16 12:20:05 +00002627 // either we already have an error or status message, or we
2628 // create one.
2629 if (!have_status_msg) {
2630 cnt = format_edit_status();
2631 cksum = bufsum(status_buffer, cnt);
2632 }
2633 if (have_status_msg || ((cnt > 0 && last_status_cksum != cksum))) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002634 last_status_cksum = cksum; // remember if we have seen this line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002635 place_cursor(rows - 1, 0, FALSE); // put cursor on status line
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002636 write1(status_buffer);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002637 clear_to_eol();
Paul Fox8552aec2005-09-16 12:20:05 +00002638 if (have_status_msg) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002639 if (((int)strlen(status_buffer) - (have_status_msg - 1)) >
Paul Fox8552aec2005-09-16 12:20:05 +00002640 (columns - 1) ) {
2641 have_status_msg = 0;
2642 Hit_Return();
2643 }
2644 have_status_msg = 0;
2645 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002646 place_cursor(crow, ccol, FALSE); // put cursor back in correct place
2647 }
Eric Andersena9eb33d2004-08-19 19:15:06 +00002648 fflush(stdout);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002649}
2650
2651//----- format the status buffer, the bottom line of screen ------
Paul Fox8552aec2005-09-16 12:20:05 +00002652// format status buffer, with STANDOUT mode
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002653static void status_line_bold(const char *format, ...)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002654{
2655 va_list args;
2656
2657 va_start(args, format);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002658 strcpy(status_buffer, SOs); // Terminal standout mode on
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002659 vsprintf(status_buffer + sizeof(SOs)-1, format, args);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002660 strcat(status_buffer, SOn); // Terminal standout mode off
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002661 va_end(args);
Paul Fox8552aec2005-09-16 12:20:05 +00002662
2663 have_status_msg = 1 + sizeof(SOs) + sizeof(SOn) - 2;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002664}
2665
Paul Fox8552aec2005-09-16 12:20:05 +00002666// format status buffer
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002667static void status_line(const char *format, ...)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002668{
2669 va_list args;
2670
2671 va_start(args, format);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002672 vsprintf(status_buffer, format, args);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002673 va_end(args);
Paul Fox8552aec2005-09-16 12:20:05 +00002674
2675 have_status_msg = 1;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002676}
2677
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002678// copy s to buf, convert unprintable
2679static void print_literal(char *buf, const char *s)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002680{
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002681 unsigned char c;
2682 char b[2];
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002683
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002684 b[1] = '\0';
2685 buf[0] = '\0';
2686 if (!s[0])
2687 s = "(NULL)";
2688 for (; *s; s++) {
2689 int c_is_no_print;
2690
2691 c = *s;
2692 c_is_no_print = (c & 0x80) && !Isprint(c);
2693 if (c_is_no_print) {
2694 strcat(buf, SOn);
2695 c = '.';
2696 }
2697 if (c < ' ' || c == 127) {
2698 strcat(buf, "^");
2699 if (c == 127)
2700 c = '?';
2701 else
2702 c += '@';
2703 }
2704 b[0] = c;
2705 strcat(buf, b);
2706 if (c_is_no_print)
2707 strcat(buf, SOs);
2708 if (*s == '\n')
2709 strcat(buf, "$");
2710 if (strlen(buf) > MAX_INPUT_LEN - 10) // paranoia
2711 break;
2712 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002713}
2714
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002715static void not_implemented(const char *s)
2716{
2717 char buf[MAX_INPUT_LEN];
2718
2719 print_literal(buf, s);
2720 status_line_bold("\'%s\' is not implemented", buf);
2721}
2722
2723// show file status on status line
2724static int format_edit_status(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002725{
Denis Vlasenko6ca409e2007-08-12 20:58:27 +00002726 static const char cmd_mode_indicator[] ALIGN1 = "-IR-";
Denis Vlasenkob1759462008-06-20 20:20:54 +00002727
2728#define tot format_edit_status__tot
2729
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002730 int cur, percent, ret, trunc_at;
2731
Paul Fox8552aec2005-09-16 12:20:05 +00002732 // file_modified is now a counter rather than a flag. this
2733 // helps reduce the amount of line counting we need to do.
2734 // (this will cause a mis-reporting of modified status
2735 // once every MAXINT editing operations.)
2736
2737 // it would be nice to do a similar optimization here -- if
2738 // we haven't done a motion that could have changed which line
2739 // we're on, then we shouldn't have to do this count_lines()
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002740 cur = count_lines(text, dot);
Paul Fox8552aec2005-09-16 12:20:05 +00002741
2742 // reduce counting -- the total lines can't have
2743 // changed if we haven't done any edits.
2744 if (file_modified != last_file_modified) {
2745 tot = cur + count_lines(dot, end - 1) - 1;
2746 last_file_modified = file_modified;
2747 }
2748
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002749 // current line percent
2750 // ------------- ~~ ----------
2751 // total lines 100
2752 if (tot > 0) {
2753 percent = (100 * cur) / tot;
2754 } else {
2755 cur = tot = 0;
2756 percent = 100;
2757 }
Eric Andersen0ef24c62005-07-18 10:32:59 +00002758
Paul Fox8552aec2005-09-16 12:20:05 +00002759 trunc_at = columns < STATUS_BUFFER_LEN-1 ?
2760 columns : STATUS_BUFFER_LEN-1;
2761
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002762 ret = snprintf(status_buffer, trunc_at+1,
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002763#if ENABLE_FEATURE_VI_READONLY
Paul Fox8552aec2005-09-16 12:20:05 +00002764 "%c %s%s%s %d/%d %d%%",
2765#else
2766 "%c %s%s %d/%d %d%%",
2767#endif
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002768 cmd_mode_indicator[cmd_mode & 3],
2769 (current_filename != NULL ? current_filename : "No file"),
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002770#if ENABLE_FEATURE_VI_READONLY
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002771 (readonly_mode ? " [Readonly]" : ""),
Paul Fox8552aec2005-09-16 12:20:05 +00002772#endif
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002773 (file_modified ? " [Modified]" : ""),
Paul Fox8552aec2005-09-16 12:20:05 +00002774 cur, tot, percent);
2775
2776 if (ret >= 0 && ret < trunc_at)
2777 return ret; /* it all fit */
2778
2779 return trunc_at; /* had to truncate */
Denis Vlasenkob1759462008-06-20 20:20:54 +00002780#undef tot
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002781}
2782
2783//----- Force refresh of all Lines -----------------------------
2784static void redraw(int full_screen)
2785{
2786 place_cursor(0, 0, FALSE); // put cursor in correct place
Denis Vlasenkob1759462008-06-20 20:20:54 +00002787 clear_to_eos(); // tell terminal to erase display
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002788 screen_erase(); // erase the internal screen buffer
Paul Fox8552aec2005-09-16 12:20:05 +00002789 last_status_cksum = 0; // force status update
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002790 refresh(full_screen); // this will redraw the entire display
Paul Fox8552aec2005-09-16 12:20:05 +00002791 show_status_line();
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002792}
2793
2794//----- Format a text[] line into a buffer ---------------------
Denis Vlasenko68404f12008-03-17 09:00:54 +00002795static char* format_line(char *src /*, int li*/)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002796{
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00002797 unsigned char c;
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002798 int co;
2799 int ofs = offset;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002800 char *dest = scr_out_buf; // [MAX_SCR_COLS + MAX_TABSTOP * 2]
Eric Andersenc7bda1c2004-03-15 08:29:22 +00002801
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002802 c = '~'; // char in col 0 in non-existent lines is '~'
Denis Vlasenko4baed3a2007-12-22 17:31:29 +00002803 co = 0;
2804 while (co < columns + tabstop) {
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00002805 // have we gone past the end?
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002806 if (src < end) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002807 c = *src++;
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002808 if (c == '\n')
2809 break;
2810 if ((c & 0x80) && !Isprint(c)) {
2811 c = '.';
2812 }
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00002813 if (c < ' ' || c == 0x7f) {
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002814 if (c == '\t') {
2815 c = ' ';
2816 // co % 8 != 7
2817 while ((co % tabstop) != (tabstop - 1)) {
2818 dest[co++] = c;
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002819 }
2820 } else {
2821 dest[co++] = '^';
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002822 if (c == 0x7f)
2823 c = '?';
2824 else
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002825 c += '@'; // Ctrl-X -> 'X'
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002826 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002827 }
2828 }
Denis Vlasenko4baed3a2007-12-22 17:31:29 +00002829 dest[co++] = c;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002830 // discard scrolled-off-to-the-left portion,
2831 // in tabstop-sized pieces
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002832 if (ofs >= tabstop && co >= tabstop) {
Denis Vlasenko4baed3a2007-12-22 17:31:29 +00002833 memmove(dest, dest + tabstop, co);
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002834 co -= tabstop;
2835 ofs -= tabstop;
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002836 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002837 if (src >= end)
2838 break;
2839 }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002840 // check "short line, gigantic offset" case
2841 if (co < ofs)
Denis Vlasenko4baed3a2007-12-22 17:31:29 +00002842 ofs = co;
2843 // discard last scrolled off part
2844 co -= ofs;
2845 dest += ofs;
2846 // fill the rest with spaces
2847 if (co < columns)
2848 memset(&dest[co], ' ', columns - co);
2849 return dest;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002850}
2851
2852//----- Refresh the changed screen lines -----------------------
2853// Copy the source line from text[] into the buffer and note
2854// if the current screenline is different from the new buffer.
2855// If they differ then that line needs redrawing on the terminal.
2856//
2857static void refresh(int full_screen)
2858{
Denis Vlasenkob1759462008-06-20 20:20:54 +00002859#define old_offset refresh__old_offset
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002860
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002861 int li, changed;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002862 char *tp, *sp; // pointer into text[] and screen[]
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002863
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002864 if (ENABLE_FEATURE_VI_WIN_RESIZE) {
Denis Vlasenko55995022008-05-18 22:28:26 +00002865 unsigned c = columns, r = rows;
Rob Landleye5e1a102006-06-21 01:15:36 +00002866 get_terminal_width_height(0, &columns, &rows);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002867 if (rows > MAX_SCR_ROWS) rows = MAX_SCR_ROWS;
2868 if (columns > MAX_SCR_COLS) columns = MAX_SCR_COLS;
2869 full_screen |= (c - columns) | (r - rows);
2870 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002871 sync_cursor(dot, &crow, &ccol); // where cursor will be (on "dot")
2872 tp = screenbegin; // index into text[] of top line
2873
2874 // compare text[] to screen[] and mark screen[] lines that need updating
2875 for (li = 0; li < rows - 1; li++) {
2876 int cs, ce; // column start & end
Denis Vlasenkof882f082007-12-23 02:36:51 +00002877 char *out_buf;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002878 // format current text line
Denis Vlasenko68404f12008-03-17 09:00:54 +00002879 out_buf = format_line(tp /*, li*/);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002880
2881 // skip to the end of the current text[] line
Denis Vlasenkof882f082007-12-23 02:36:51 +00002882 if (tp < end) {
2883 char *t = memchr(tp, '\n', end - tp);
2884 if (!t) t = end - 1;
2885 tp = t + 1;
2886 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002887
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002888 // see if there are any changes between vitual screen and out_buf
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002889 changed = FALSE; // assume no change
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002890 cs = 0;
2891 ce = columns - 1;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002892 sp = &screen[li * columns]; // start of screen line
2893 if (full_screen) {
2894 // force re-draw of every single column from 0 - columns-1
2895 goto re0;
2896 }
2897 // compare newly formatted buffer with virtual screen
2898 // look forward for first difference between buf and screen
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002899 for (; cs <= ce; cs++) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002900 if (out_buf[cs] != sp[cs]) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002901 changed = TRUE; // mark for redraw
2902 break;
2903 }
2904 }
2905
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002906 // look backward for last difference between out_buf and screen
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002907 for (; ce >= cs; ce--) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002908 if (out_buf[ce] != sp[ce]) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002909 changed = TRUE; // mark for redraw
2910 break;
2911 }
2912 }
2913 // now, cs is index of first diff, and ce is index of last diff
2914
2915 // if horz offset has changed, force a redraw
2916 if (offset != old_offset) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002917 re0:
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002918 changed = TRUE;
2919 }
2920
2921 // make a sanity check of columns indexes
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002922 if (cs < 0) cs = 0;
2923 if (ce > columns - 1) ce = columns - 1;
2924 if (cs > ce) { cs = 0; ce = columns - 1; }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002925 // is there a change between vitual screen and out_buf
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002926 if (changed) {
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002927 // copy changed part of buffer to virtual screen
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002928 memcpy(sp+cs, out_buf+cs, ce-cs+1);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002929
2930 // move cursor to column of first change
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002931 //if (offset != old_offset) {
2932 // // place_cursor is still too stupid
2933 // // to handle offsets correctly
2934 // place_cursor(li, cs, FALSE);
2935 //} else {
2936 place_cursor(li, cs, TRUE);
2937 //}
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002938
2939 // write line out to terminal
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002940 fwrite(&sp[cs], ce - cs + 1, 1, stdout);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002941 }
2942 }
2943
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002944 place_cursor(crow, ccol, TRUE);
Eric Andersenc7bda1c2004-03-15 08:29:22 +00002945
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002946 old_offset = offset;
Denis Vlasenkob1759462008-06-20 20:20:54 +00002947#undef old_offset
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002948}
2949
Eric Andersen3f980402001-04-04 17:31:15 +00002950//---------------------------------------------------------------------
2951//----- the Ascii Chart -----------------------------------------------
2952//
2953// 00 nul 01 soh 02 stx 03 etx 04 eot 05 enq 06 ack 07 bel
2954// 08 bs 09 ht 0a nl 0b vt 0c np 0d cr 0e so 0f si
2955// 10 dle 11 dc1 12 dc2 13 dc3 14 dc4 15 nak 16 syn 17 etb
2956// 18 can 19 em 1a sub 1b esc 1c fs 1d gs 1e rs 1f us
2957// 20 sp 21 ! 22 " 23 # 24 $ 25 % 26 & 27 '
2958// 28 ( 29 ) 2a * 2b + 2c , 2d - 2e . 2f /
2959// 30 0 31 1 32 2 33 3 34 4 35 5 36 6 37 7
2960// 38 8 39 9 3a : 3b ; 3c < 3d = 3e > 3f ?
2961// 40 @ 41 A 42 B 43 C 44 D 45 E 46 F 47 G
2962// 48 H 49 I 4a J 4b K 4c L 4d M 4e N 4f O
2963// 50 P 51 Q 52 R 53 S 54 T 55 U 56 V 57 W
2964// 58 X 59 Y 5a Z 5b [ 5c \ 5d ] 5e ^ 5f _
2965// 60 ` 61 a 62 b 63 c 64 d 65 e 66 f 67 g
2966// 68 h 69 i 6a j 6b k 6c l 6d m 6e n 6f o
2967// 70 p 71 q 72 r 73 s 74 t 75 u 76 v 77 w
2968// 78 x 79 y 7a z 7b { 7c | 7d } 7e ~ 7f del
2969//---------------------------------------------------------------------
2970
2971//----- Execute a Vi Command -----------------------------------
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002972static void do_cmd(char c)
Eric Andersen3f980402001-04-04 17:31:15 +00002973{
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00002974 const char *msg = msg; // for compiler
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002975 char c1, *p, *q, *save_dot;
2976 char buf[12];
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00002977 int dir = dir; // for compiler
Paul Foxc51fc7b2008-03-06 01:34:23 +00002978 int cnt, i, j;
Eric Andersen3f980402001-04-04 17:31:15 +00002979
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00002980// c1 = c; // quiet the compiler
2981// cnt = yf = 0; // quiet the compiler
2982// msg = p = q = save_dot = buf; // quiet the compiler
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002983 memset(buf, '\0', 12);
Eric Andersenbff7a602001-11-17 07:15:43 +00002984
Paul Fox8552aec2005-09-16 12:20:05 +00002985 show_status_line();
2986
Eric Andersenbff7a602001-11-17 07:15:43 +00002987 /* if this is a cursor key, skip these checks */
2988 switch (c) {
2989 case VI_K_UP:
2990 case VI_K_DOWN:
2991 case VI_K_LEFT:
2992 case VI_K_RIGHT:
2993 case VI_K_HOME:
2994 case VI_K_END:
2995 case VI_K_PAGEUP:
2996 case VI_K_PAGEDOWN:
2997 goto key_cmd_mode;
2998 }
2999
Eric Andersen3f980402001-04-04 17:31:15 +00003000 if (cmd_mode == 2) {
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003001 // flip-flop Insert/Replace mode
Denis Vlasenko2a51af22007-03-21 22:31:24 +00003002 if (c == VI_K_INSERT)
3003 goto dc_i;
Eric Andersen3f980402001-04-04 17:31:15 +00003004 // we are 'R'eplacing the current *dot with new char
3005 if (*dot == '\n') {
3006 // don't Replace past E-o-l
3007 cmd_mode = 1; // convert to insert
3008 } else {
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003009 if (1 <= c || Isprint(c)) {
Eric Andersen3f980402001-04-04 17:31:15 +00003010 if (c != 27)
3011 dot = yank_delete(dot, dot, 0, YANKDEL); // delete char
3012 dot = char_insert(dot, c); // insert new char
3013 }
3014 goto dc1;
3015 }
3016 }
3017 if (cmd_mode == 1) {
Eric Andersen1c0d3112001-04-16 15:46:44 +00003018 // hitting "Insert" twice means "R" replace mode
3019 if (c == VI_K_INSERT) goto dc5;
Eric Andersen3f980402001-04-04 17:31:15 +00003020 // insert the char c at "dot"
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003021 if (1 <= c || Isprint(c)) {
3022 dot = char_insert(dot, c);
Eric Andersen3f980402001-04-04 17:31:15 +00003023 }
3024 goto dc1;
3025 }
3026
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003027 key_cmd_mode:
Eric Andersen3f980402001-04-04 17:31:15 +00003028 switch (c) {
Eric Andersen822c3832001-05-07 17:37:43 +00003029 //case 0x01: // soh
3030 //case 0x09: // ht
3031 //case 0x0b: // vt
3032 //case 0x0e: // so
3033 //case 0x0f: // si
3034 //case 0x10: // dle
3035 //case 0x11: // dc1
3036 //case 0x13: // dc3
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003037#if ENABLE_FEATURE_VI_CRASHME
Eric Andersen1c0d3112001-04-16 15:46:44 +00003038 case 0x14: // dc4 ctrl-T
Eric Andersen3f980402001-04-04 17:31:15 +00003039 crashme = (crashme == 0) ? 1 : 0;
Eric Andersen3f980402001-04-04 17:31:15 +00003040 break;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003041#endif
Eric Andersen822c3832001-05-07 17:37:43 +00003042 //case 0x16: // syn
3043 //case 0x17: // etb
3044 //case 0x18: // can
3045 //case 0x1c: // fs
3046 //case 0x1d: // gs
3047 //case 0x1e: // rs
3048 //case 0x1f: // us
Eric Andersenc7bda1c2004-03-15 08:29:22 +00003049 //case '!': // !-
3050 //case '#': // #-
3051 //case '&': // &-
3052 //case '(': // (-
3053 //case ')': // )-
3054 //case '*': // *-
Eric Andersenc7bda1c2004-03-15 08:29:22 +00003055 //case '=': // =-
3056 //case '@': // @-
3057 //case 'F': // F-
3058 //case 'K': // K-
3059 //case 'Q': // Q-
3060 //case 'S': // S-
3061 //case 'T': // T-
3062 //case 'V': // V-
3063 //case '[': // [-
3064 //case '\\': // \-
3065 //case ']': // ]-
3066 //case '_': // _-
3067 //case '`': // `-
Eric Andersen1c0d3112001-04-16 15:46:44 +00003068 //case 'u': // u- FIXME- there is no undo
Eric Andersenc7bda1c2004-03-15 08:29:22 +00003069 //case 'v': // v-
Eric Andersen3f980402001-04-04 17:31:15 +00003070 default: // unrecognised command
3071 buf[0] = c;
3072 buf[1] = '\0';
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003073 if (c < ' ') {
Eric Andersen3f980402001-04-04 17:31:15 +00003074 buf[0] = '^';
3075 buf[1] = c + '@';
3076 buf[2] = '\0';
3077 }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003078 not_implemented(buf);
Eric Andersen3f980402001-04-04 17:31:15 +00003079 end_cmd_q(); // stop adding to q
3080 case 0x00: // nul- ignore
3081 break;
3082 case 2: // ctrl-B scroll up full screen
3083 case VI_K_PAGEUP: // Cursor Key Page Up
3084 dot_scroll(rows - 2, -1);
3085 break;
Eric Andersen3f980402001-04-04 17:31:15 +00003086 case 4: // ctrl-D scroll down half screen
3087 dot_scroll((rows - 2) / 2, 1);
3088 break;
3089 case 5: // ctrl-E scroll down one line
3090 dot_scroll(1, 1);
3091 break;
3092 case 6: // ctrl-F scroll down full screen
3093 case VI_K_PAGEDOWN: // Cursor Key Page Down
3094 dot_scroll(rows - 2, 1);
3095 break;
3096 case 7: // ctrl-G show current status
Paul Fox8552aec2005-09-16 12:20:05 +00003097 last_status_cksum = 0; // force status update
Eric Andersen3f980402001-04-04 17:31:15 +00003098 break;
3099 case 'h': // h- move left
3100 case VI_K_LEFT: // cursor key Left
Paul Foxd13b90b2005-07-18 22:17:25 +00003101 case 8: // ctrl-H- move left (This may be ERASE char)
Denis Vlasenko2a51af22007-03-21 22:31:24 +00003102 case 0x7f: // DEL- move left (This may be ERASE char)
Eric Andersen3f980402001-04-04 17:31:15 +00003103 if (cmdcnt-- > 1) {
3104 do_cmd(c);
3105 } // repeat cnt
3106 dot_left();
3107 break;
3108 case 10: // Newline ^J
3109 case 'j': // j- goto next line, same col
3110 case VI_K_DOWN: // cursor key Down
3111 if (cmdcnt-- > 1) {
3112 do_cmd(c);
3113 } // repeat cnt
3114 dot_next(); // go to next B-o-l
3115 dot = move_to_col(dot, ccol + offset); // try stay in same col
3116 break;
3117 case 12: // ctrl-L force redraw whole screen
Eric Andersen1c0d3112001-04-16 15:46:44 +00003118 case 18: // ctrl-R force redraw
Eric Andersen822c3832001-05-07 17:37:43 +00003119 place_cursor(0, 0, FALSE); // put cursor in correct place
Eric Andersen3f980402001-04-04 17:31:15 +00003120 clear_to_eos(); // tel terminal to erase display
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003121 mysleep(10);
Eric Andersen3f980402001-04-04 17:31:15 +00003122 screen_erase(); // erase the internal screen buffer
Paul Fox8552aec2005-09-16 12:20:05 +00003123 last_status_cksum = 0; // force status update
Eric Andersen3f980402001-04-04 17:31:15 +00003124 refresh(TRUE); // this will redraw the entire display
3125 break;
3126 case 13: // Carriage Return ^M
3127 case '+': // +- goto next line
3128 if (cmdcnt-- > 1) {
3129 do_cmd(c);
3130 } // repeat cnt
3131 dot_next();
3132 dot_skip_over_ws();
3133 break;
3134 case 21: // ctrl-U scroll up half screen
3135 dot_scroll((rows - 2) / 2, -1);
3136 break;
3137 case 25: // ctrl-Y scroll up one line
3138 dot_scroll(1, -1);
3139 break;
Eric Andersen822c3832001-05-07 17:37:43 +00003140 case 27: // esc
Eric Andersen3f980402001-04-04 17:31:15 +00003141 if (cmd_mode == 0)
3142 indicate_error(c);
3143 cmd_mode = 0; // stop insrting
3144 end_cmd_q();
Paul Fox8552aec2005-09-16 12:20:05 +00003145 last_status_cksum = 0; // force status update
Eric Andersen3f980402001-04-04 17:31:15 +00003146 break;
3147 case ' ': // move right
3148 case 'l': // move right
3149 case VI_K_RIGHT: // Cursor Key Right
3150 if (cmdcnt-- > 1) {
3151 do_cmd(c);
3152 } // repeat cnt
3153 dot_right();
3154 break;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003155#if ENABLE_FEATURE_VI_YANKMARK
Eric Andersen3f980402001-04-04 17:31:15 +00003156 case '"': // "- name a register to use for Delete/Yank
3157 c1 = get_one_char();
3158 c1 = tolower(c1);
3159 if (islower(c1)) {
3160 YDreg = c1 - 'a';
3161 } else {
3162 indicate_error(c);
3163 }
3164 break;
3165 case '\'': // '- goto a specific mark
3166 c1 = get_one_char();
3167 c1 = tolower(c1);
3168 if (islower(c1)) {
3169 c1 = c1 - 'a';
3170 // get the b-o-l
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003171 q = mark[(unsigned char) c1];
Eric Andersen3f980402001-04-04 17:31:15 +00003172 if (text <= q && q < end) {
3173 dot = q;
3174 dot_begin(); // go to B-o-l
3175 dot_skip_over_ws();
3176 }
3177 } else if (c1 == '\'') { // goto previous context
3178 dot = swap_context(dot); // swap current and previous context
3179 dot_begin(); // go to B-o-l
3180 dot_skip_over_ws();
3181 } else {
3182 indicate_error(c);
3183 }
3184 break;
3185 case 'm': // m- Mark a line
3186 // this is really stupid. If there are any inserts or deletes
3187 // between text[0] and dot then this mark will not point to the
3188 // correct location! It could be off by many lines!
3189 // Well..., at least its quick and dirty.
3190 c1 = get_one_char();
3191 c1 = tolower(c1);
3192 if (islower(c1)) {
3193 c1 = c1 - 'a';
3194 // remember the line
3195 mark[(int) c1] = dot;
3196 } else {
3197 indicate_error(c);
3198 }
3199 break;
3200 case 'P': // P- Put register before
3201 case 'p': // p- put register after
3202 p = reg[YDreg];
3203 if (p == 0) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003204 status_line_bold("Nothing in register %c", what_reg());
Eric Andersen3f980402001-04-04 17:31:15 +00003205 break;
3206 }
3207 // are we putting whole lines or strings
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003208 if (strchr(p, '\n') != NULL) {
Eric Andersen3f980402001-04-04 17:31:15 +00003209 if (c == 'P') {
3210 dot_begin(); // putting lines- Put above
3211 }
3212 if (c == 'p') {
3213 // are we putting after very last line?
3214 if (end_line(dot) == (end - 1)) {
3215 dot = end; // force dot to end of text[]
3216 } else {
3217 dot_next(); // next line, then put before
3218 }
3219 }
3220 } else {
3221 if (c == 'p')
3222 dot_right(); // move to right, can move to NL
3223 }
3224 dot = string_insert(dot, p); // insert the string
3225 end_cmd_q(); // stop adding to q
3226 break;
Eric Andersen3f980402001-04-04 17:31:15 +00003227 case 'U': // U- Undo; replace current line with original version
3228 if (reg[Ureg] != 0) {
3229 p = begin_line(dot);
3230 q = end_line(dot);
3231 p = text_hole_delete(p, q); // delete cur line
3232 p = string_insert(p, reg[Ureg]); // insert orig line
3233 dot = p;
3234 dot_skip_over_ws();
3235 }
3236 break;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003237#endif /* FEATURE_VI_YANKMARK */
Eric Andersen3f980402001-04-04 17:31:15 +00003238 case '$': // $- goto end of line
3239 case VI_K_END: // Cursor Key End
3240 if (cmdcnt-- > 1) {
3241 do_cmd(c);
3242 } // repeat cnt
Glenn L McGrathee829062004-01-21 10:59:45 +00003243 dot = end_line(dot);
Eric Andersen3f980402001-04-04 17:31:15 +00003244 break;
3245 case '%': // %- find matching char of pair () [] {}
3246 for (q = dot; q < end && *q != '\n'; q++) {
3247 if (strchr("()[]{}", *q) != NULL) {
3248 // we found half of a pair
3249 p = find_pair(q, *q);
3250 if (p == NULL) {
3251 indicate_error(c);
3252 } else {
3253 dot = p;
3254 }
3255 break;
3256 }
3257 }
3258 if (*q == '\n')
3259 indicate_error(c);
3260 break;
3261 case 'f': // f- forward to a user specified char
3262 last_forward_char = get_one_char(); // get the search char
3263 //
Eric Andersenaff114c2004-04-14 17:51:38 +00003264 // dont separate these two commands. 'f' depends on ';'
Eric Andersen3f980402001-04-04 17:31:15 +00003265 //
Bernhard Reutner-Fischera985d302008-02-11 11:44:38 +00003266 //**** fall through to ... ';'
Eric Andersen3f980402001-04-04 17:31:15 +00003267 case ';': // ;- look at rest of line for last forward char
3268 if (cmdcnt-- > 1) {
Eric Andersen822c3832001-05-07 17:37:43 +00003269 do_cmd(';');
Eric Andersen3f980402001-04-04 17:31:15 +00003270 } // repeat cnt
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003271 if (last_forward_char == 0)
3272 break;
Eric Andersen3f980402001-04-04 17:31:15 +00003273 q = dot + 1;
3274 while (q < end - 1 && *q != '\n' && *q != last_forward_char) {
3275 q++;
3276 }
3277 if (*q == last_forward_char)
3278 dot = q;
3279 break;
Paul Foxb5ee8db2008-02-14 01:17:01 +00003280 case ',': // repeat latest 'f' in opposite direction
3281 if (cmdcnt-- > 1) {
3282 do_cmd(',');
3283 } // repeat cnt
3284 if (last_forward_char == 0)
3285 break;
3286 q = dot - 1;
3287 while (q >= text && *q != '\n' && *q != last_forward_char) {
3288 q--;
3289 }
3290 if (q >= text && *q == last_forward_char)
3291 dot = q;
3292 break;
3293
Eric Andersen3f980402001-04-04 17:31:15 +00003294 case '-': // -- goto prev line
3295 if (cmdcnt-- > 1) {
3296 do_cmd(c);
3297 } // repeat cnt
3298 dot_prev();
3299 dot_skip_over_ws();
3300 break;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003301#if ENABLE_FEATURE_VI_DOT_CMD
Eric Andersen3f980402001-04-04 17:31:15 +00003302 case '.': // .- repeat the last modifying command
3303 // Stuff the last_modifying_cmd back into stdin
3304 // and let it be re-executed.
Denis Vlasenkob1759462008-06-20 20:20:54 +00003305 if (lmc_len > 0) {
Paul Foxc51fc7b2008-03-06 01:34:23 +00003306 last_modifying_cmd[lmc_len] = 0;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003307 ioq = ioq_start = xstrdup(last_modifying_cmd);
Eric Andersen3f980402001-04-04 17:31:15 +00003308 }
3309 break;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003310#endif
3311#if ENABLE_FEATURE_VI_SEARCH
Eric Andersen3f980402001-04-04 17:31:15 +00003312 case '?': // /- search for a pattern
3313 case '/': // /- search for a pattern
3314 buf[0] = c;
3315 buf[1] = '\0';
3316 q = get_input_line(buf); // get input line- use "status line"
Paul Fox4917c112008-03-05 16:44:02 +00003317 if (q[0] && !q[1]) {
3318 if (last_search_pattern[0])
3319 last_search_pattern[0] = c;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003320 goto dc3; // if no pat re-use old pat
Paul Fox4917c112008-03-05 16:44:02 +00003321 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003322 if (q[0]) { // strlen(q) > 1: new pat- save it and find
Eric Andersen3f980402001-04-04 17:31:15 +00003323 // there is a new pat
Aaron Lehmanna170e1c2002-11-28 11:27:31 +00003324 free(last_search_pattern);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003325 last_search_pattern = xstrdup(q);
Eric Andersen3f980402001-04-04 17:31:15 +00003326 goto dc3; // now find the pattern
3327 }
3328 // user changed mind and erased the "/"- do nothing
3329 break;
3330 case 'N': // N- backward search for last pattern
3331 if (cmdcnt-- > 1) {
3332 do_cmd(c);
3333 } // repeat cnt
3334 dir = BACK; // assume BACKWARD search
3335 p = dot - 1;
3336 if (last_search_pattern[0] == '?') {
3337 dir = FORWARD;
3338 p = dot + 1;
3339 }
3340 goto dc4; // now search for pattern
3341 break;
3342 case 'n': // n- repeat search for last pattern
3343 // search rest of text[] starting at next char
3344 // if search fails return orignal "p" not the "p+1" address
3345 if (cmdcnt-- > 1) {
3346 do_cmd(c);
3347 } // repeat cnt
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003348 dc3:
Eric Andersen3f980402001-04-04 17:31:15 +00003349 if (last_search_pattern == 0) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003350 msg = "No previous regular expression";
Eric Andersen3f980402001-04-04 17:31:15 +00003351 goto dc2;
3352 }
3353 if (last_search_pattern[0] == '/') {
3354 dir = FORWARD; // assume FORWARD search
3355 p = dot + 1;
3356 }
3357 if (last_search_pattern[0] == '?') {
3358 dir = BACK;
3359 p = dot - 1;
3360 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003361 dc4:
Eric Andersen3f980402001-04-04 17:31:15 +00003362 q = char_search(p, last_search_pattern + 1, dir, FULL);
3363 if (q != NULL) {
3364 dot = q; // good search, update "dot"
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003365 msg = "";
Eric Andersen3f980402001-04-04 17:31:15 +00003366 goto dc2;
3367 }
3368 // no pattern found between "dot" and "end"- continue at top
3369 p = text;
3370 if (dir == BACK) {
3371 p = end - 1;
3372 }
3373 q = char_search(p, last_search_pattern + 1, dir, FULL);
3374 if (q != NULL) { // found something
3375 dot = q; // found new pattern- goto it
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003376 msg = "search hit BOTTOM, continuing at TOP";
Eric Andersen3f980402001-04-04 17:31:15 +00003377 if (dir == BACK) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003378 msg = "search hit TOP, continuing at BOTTOM";
Eric Andersen3f980402001-04-04 17:31:15 +00003379 }
3380 } else {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003381 msg = "Pattern not found";
Eric Andersen3f980402001-04-04 17:31:15 +00003382 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003383 dc2:
3384 if (*msg)
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003385 status_line_bold("%s", msg);
Eric Andersen3f980402001-04-04 17:31:15 +00003386 break;
3387 case '{': // {- move backward paragraph
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003388 q = char_search(dot, "\n\n", BACK, FULL);
Eric Andersen3f980402001-04-04 17:31:15 +00003389 if (q != NULL) { // found blank line
3390 dot = next_line(q); // move to next blank line
3391 }
3392 break;
3393 case '}': // }- move forward paragraph
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003394 q = char_search(dot, "\n\n", FORWARD, FULL);
Eric Andersen3f980402001-04-04 17:31:15 +00003395 if (q != NULL) { // found blank line
3396 dot = next_line(q); // move to next blank line
3397 }
3398 break;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003399#endif /* FEATURE_VI_SEARCH */
Eric Andersen3f980402001-04-04 17:31:15 +00003400 case '0': // 0- goto begining of line
Eric Andersenc7bda1c2004-03-15 08:29:22 +00003401 case '1': // 1-
3402 case '2': // 2-
3403 case '3': // 3-
3404 case '4': // 4-
3405 case '5': // 5-
3406 case '6': // 6-
3407 case '7': // 7-
3408 case '8': // 8-
3409 case '9': // 9-
Eric Andersen3f980402001-04-04 17:31:15 +00003410 if (c == '0' && cmdcnt < 1) {
3411 dot_begin(); // this was a standalone zero
3412 } else {
3413 cmdcnt = cmdcnt * 10 + (c - '0'); // this 0 is part of a number
3414 }
3415 break;
3416 case ':': // :- the colon mode commands
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003417 p = get_input_line(":"); // get input line- use "status line"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003418#if ENABLE_FEATURE_VI_COLON
Eric Andersen3f980402001-04-04 17:31:15 +00003419 colon(p); // execute the command
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003420#else
Eric Andersen822c3832001-05-07 17:37:43 +00003421 if (*p == ':')
3422 p++; // move past the ':'
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003423 cnt = strlen(p);
Eric Andersen822c3832001-05-07 17:37:43 +00003424 if (cnt <= 0)
3425 break;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003426 if (strncasecmp(p, "quit", cnt) == 0
3427 || strncasecmp(p, "q!", cnt) == 0 // delete lines
3428 ) {
Matt Kraai1f0c4362001-12-20 23:13:26 +00003429 if (file_modified && p[1] != '!') {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003430 status_line_bold("No write since last change (:quit! overrides)");
Eric Andersen3f980402001-04-04 17:31:15 +00003431 } else {
3432 editing = 0;
3433 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003434 } else if (strncasecmp(p, "write", cnt) == 0
3435 || strncasecmp(p, "wq", cnt) == 0
3436 || strncasecmp(p, "wn", cnt) == 0
3437 || strncasecmp(p, "x", cnt) == 0
3438 ) {
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00003439 cnt = file_write(current_filename, text, end - 1);
Paul Fox61e45db2005-10-09 14:43:22 +00003440 if (cnt < 0) {
3441 if (cnt == -1)
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003442 status_line_bold("Write error: %s", strerror(errno));
Paul Fox61e45db2005-10-09 14:43:22 +00003443 } else {
3444 file_modified = 0;
3445 last_file_modified = -1;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003446 status_line("\"%s\" %dL, %dC", current_filename, count_lines(text, end - 1), cnt);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003447 if (p[0] == 'x' || p[1] == 'q' || p[1] == 'n'
3448 || p[0] == 'X' || p[1] == 'Q' || p[1] == 'N'
3449 ) {
Paul Fox61e45db2005-10-09 14:43:22 +00003450 editing = 0;
3451 }
Eric Andersen3f980402001-04-04 17:31:15 +00003452 }
Denis Vlasenko219d14d2007-03-24 15:40:16 +00003453 } else if (strncasecmp(p, "file", cnt) == 0) {
Paul Fox8552aec2005-09-16 12:20:05 +00003454 last_status_cksum = 0; // force status update
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003455 } else if (sscanf(p, "%d", &j) > 0) {
Eric Andersen822c3832001-05-07 17:37:43 +00003456 dot = find_line(j); // go to line # j
3457 dot_skip_over_ws();
Eric Andersen3f980402001-04-04 17:31:15 +00003458 } else { // unrecognised cmd
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003459 not_implemented(p);
Eric Andersen3f980402001-04-04 17:31:15 +00003460 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003461#endif /* !FEATURE_VI_COLON */
Eric Andersen3f980402001-04-04 17:31:15 +00003462 break;
3463 case '<': // <- Left shift something
3464 case '>': // >- Right shift something
3465 cnt = count_lines(text, dot); // remember what line we are on
3466 c1 = get_one_char(); // get the type of thing to delete
3467 find_range(&p, &q, c1);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003468 yank_delete(p, q, 1, YANKONLY); // save copy before change
Eric Andersen3f980402001-04-04 17:31:15 +00003469 p = begin_line(p);
3470 q = end_line(q);
3471 i = count_lines(p, q); // # of lines we are shifting
3472 for ( ; i > 0; i--, p = next_line(p)) {
3473 if (c == '<') {
3474 // shift left- remove tab or 8 spaces
3475 if (*p == '\t') {
3476 // shrink buffer 1 char
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003477 text_hole_delete(p, p);
Eric Andersen3f980402001-04-04 17:31:15 +00003478 } else if (*p == ' ') {
3479 // we should be calculating columns, not just SPACE
3480 for (j = 0; *p == ' ' && j < tabstop; j++) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003481 text_hole_delete(p, p);
Eric Andersen3f980402001-04-04 17:31:15 +00003482 }
3483 }
3484 } else if (c == '>') {
3485 // shift right -- add tab or 8 spaces
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003486 char_insert(p, '\t');
Eric Andersen3f980402001-04-04 17:31:15 +00003487 }
3488 }
3489 dot = find_line(cnt); // what line were we on
3490 dot_skip_over_ws();
3491 end_cmd_q(); // stop adding to q
3492 break;
3493 case 'A': // A- append at e-o-l
3494 dot_end(); // go to e-o-l
Bernhard Reutner-Fischera985d302008-02-11 11:44:38 +00003495 //**** fall through to ... 'a'
Eric Andersen3f980402001-04-04 17:31:15 +00003496 case 'a': // a- append after current char
3497 if (*dot != '\n')
3498 dot++;
3499 goto dc_i;
3500 break;
3501 case 'B': // B- back a blank-delimited Word
3502 case 'E': // E- end of a blank-delimited word
3503 case 'W': // W- forward a blank-delimited word
3504 if (cmdcnt-- > 1) {
3505 do_cmd(c);
3506 } // repeat cnt
3507 dir = FORWARD;
3508 if (c == 'B')
3509 dir = BACK;
3510 if (c == 'W' || isspace(dot[dir])) {
3511 dot = skip_thing(dot, 1, dir, S_TO_WS);
3512 dot = skip_thing(dot, 2, dir, S_OVER_WS);
3513 }
3514 if (c != 'W')
3515 dot = skip_thing(dot, 1, dir, S_BEFORE_WS);
3516 break;
3517 case 'C': // C- Change to e-o-l
3518 case 'D': // D- delete to e-o-l
3519 save_dot = dot;
3520 dot = dollar_line(dot); // move to before NL
3521 // copy text into a register and delete
3522 dot = yank_delete(save_dot, dot, 0, YANKDEL); // delete to e-o-l
3523 if (c == 'C')
3524 goto dc_i; // start inserting
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003525#if ENABLE_FEATURE_VI_DOT_CMD
Eric Andersen3f980402001-04-04 17:31:15 +00003526 if (c == 'D')
3527 end_cmd_q(); // stop adding to q
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003528#endif
Eric Andersen3f980402001-04-04 17:31:15 +00003529 break;
Paul Foxb5ee8db2008-02-14 01:17:01 +00003530 case 'g': // 'gg' goto a line number (from vim)
3531 // (default to first line in file)
3532 c1 = get_one_char();
3533 if (c1 != 'g') {
3534 buf[0] = 'g';
3535 buf[1] = c1;
3536 buf[2] = '\0';
3537 not_implemented(buf);
3538 break;
3539 }
3540 if (cmdcnt == 0)
3541 cmdcnt = 1;
3542 /* fall through */
Eric Andersen822c3832001-05-07 17:37:43 +00003543 case 'G': // G- goto to a line number (default= E-O-F)
3544 dot = end - 1; // assume E-O-F
Eric Andersen1c0d3112001-04-16 15:46:44 +00003545 if (cmdcnt > 0) {
Eric Andersen822c3832001-05-07 17:37:43 +00003546 dot = find_line(cmdcnt); // what line is #cmdcnt
Eric Andersen1c0d3112001-04-16 15:46:44 +00003547 }
3548 dot_skip_over_ws();
3549 break;
Eric Andersen3f980402001-04-04 17:31:15 +00003550 case 'H': // H- goto top line on screen
3551 dot = screenbegin;
3552 if (cmdcnt > (rows - 1)) {
3553 cmdcnt = (rows - 1);
3554 }
3555 if (cmdcnt-- > 1) {
3556 do_cmd('+');
3557 } // repeat cnt
3558 dot_skip_over_ws();
3559 break;
3560 case 'I': // I- insert before first non-blank
3561 dot_begin(); // 0
3562 dot_skip_over_ws();
Bernhard Reutner-Fischera985d302008-02-11 11:44:38 +00003563 //**** fall through to ... 'i'
Eric Andersen3f980402001-04-04 17:31:15 +00003564 case 'i': // i- insert before current char
3565 case VI_K_INSERT: // Cursor Key Insert
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003566 dc_i:
Eric Andersen3f980402001-04-04 17:31:15 +00003567 cmd_mode = 1; // start insrting
Eric Andersen3f980402001-04-04 17:31:15 +00003568 break;
3569 case 'J': // J- join current and next lines together
3570 if (cmdcnt-- > 2) {
3571 do_cmd(c);
3572 } // repeat cnt
3573 dot_end(); // move to NL
3574 if (dot < end - 1) { // make sure not last char in text[]
3575 *dot++ = ' '; // replace NL with space
Paul Fox8552aec2005-09-16 12:20:05 +00003576 file_modified++;
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00003577 while (isblank(*dot)) { // delete leading WS
Eric Andersen3f980402001-04-04 17:31:15 +00003578 dot_delete();
3579 }
3580 }
3581 end_cmd_q(); // stop adding to q
3582 break;
3583 case 'L': // L- goto bottom line on screen
3584 dot = end_screen();
3585 if (cmdcnt > (rows - 1)) {
3586 cmdcnt = (rows - 1);
3587 }
3588 if (cmdcnt-- > 1) {
3589 do_cmd('-');
3590 } // repeat cnt
3591 dot_begin();
3592 dot_skip_over_ws();
3593 break;
Eric Andersen822c3832001-05-07 17:37:43 +00003594 case 'M': // M- goto middle line on screen
Eric Andersen1c0d3112001-04-16 15:46:44 +00003595 dot = screenbegin;
3596 for (cnt = 0; cnt < (rows-1) / 2; cnt++)
3597 dot = next_line(dot);
3598 break;
Eric Andersen3f980402001-04-04 17:31:15 +00003599 case 'O': // O- open a empty line above
Eric Andersen822c3832001-05-07 17:37:43 +00003600 // 0i\n ESC -i
Eric Andersen3f980402001-04-04 17:31:15 +00003601 p = begin_line(dot);
3602 if (p[-1] == '\n') {
3603 dot_prev();
3604 case 'o': // o- open a empty line below; Yes, I know it is in the middle of the "if (..."
3605 dot_end();
3606 dot = char_insert(dot, '\n');
3607 } else {
3608 dot_begin(); // 0
Eric Andersen822c3832001-05-07 17:37:43 +00003609 dot = char_insert(dot, '\n'); // i\n ESC
Eric Andersen3f980402001-04-04 17:31:15 +00003610 dot_prev(); // -
3611 }
3612 goto dc_i;
3613 break;
3614 case 'R': // R- continuous Replace char
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003615 dc5:
Eric Andersen3f980402001-04-04 17:31:15 +00003616 cmd_mode = 2;
Eric Andersen3f980402001-04-04 17:31:15 +00003617 break;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003618 case VI_K_DELETE:
3619 c = 'x';
3620 // fall through
Eric Andersen3f980402001-04-04 17:31:15 +00003621 case 'X': // X- delete char before dot
3622 case 'x': // x- delete the current char
3623 case 's': // s- substitute the current char
3624 if (cmdcnt-- > 1) {
3625 do_cmd(c);
3626 } // repeat cnt
3627 dir = 0;
3628 if (c == 'X')
3629 dir = -1;
3630 if (dot[dir] != '\n') {
3631 if (c == 'X')
3632 dot--; // delete prev char
3633 dot = yank_delete(dot, dot, 0, YANKDEL); // delete char
3634 }
3635 if (c == 's')
3636 goto dc_i; // start insrting
3637 end_cmd_q(); // stop adding to q
3638 break;
3639 case 'Z': // Z- if modified, {write}; exit
3640 // ZZ means to save file (if necessary), then exit
3641 c1 = get_one_char();
3642 if (c1 != 'Z') {
3643 indicate_error(c);
3644 break;
3645 }
Paul Foxf0305b72006-03-28 14:18:21 +00003646 if (file_modified) {
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00003647 if (ENABLE_FEATURE_VI_READONLY && readonly_mode) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003648 status_line_bold("\"%s\" File is read only", current_filename);
Denis Vlasenko92758142006-10-03 19:56:34 +00003649 break;
Paul Foxf0305b72006-03-28 14:18:21 +00003650 }
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00003651 cnt = file_write(current_filename, text, end - 1);
Paul Fox61e45db2005-10-09 14:43:22 +00003652 if (cnt < 0) {
3653 if (cnt == -1)
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003654 status_line_bold("Write error: %s", strerror(errno));
Paul Fox61e45db2005-10-09 14:43:22 +00003655 } else if (cnt == (end - 1 - text + 1)) {
Eric Andersen3f980402001-04-04 17:31:15 +00003656 editing = 0;
3657 }
3658 } else {
3659 editing = 0;
3660 }
3661 break;
3662 case '^': // ^- move to first non-blank on line
3663 dot_begin();
3664 dot_skip_over_ws();
3665 break;
3666 case 'b': // b- back a word
3667 case 'e': // e- end of word
3668 if (cmdcnt-- > 1) {
3669 do_cmd(c);
3670 } // repeat cnt
3671 dir = FORWARD;
3672 if (c == 'b')
3673 dir = BACK;
3674 if ((dot + dir) < text || (dot + dir) > end - 1)
3675 break;
3676 dot += dir;
3677 if (isspace(*dot)) {
3678 dot = skip_thing(dot, (c == 'e') ? 2 : 1, dir, S_OVER_WS);
3679 }
3680 if (isalnum(*dot) || *dot == '_') {
3681 dot = skip_thing(dot, 1, dir, S_END_ALNUM);
3682 } else if (ispunct(*dot)) {
3683 dot = skip_thing(dot, 1, dir, S_END_PUNCT);
3684 }
3685 break;
3686 case 'c': // c- change something
3687 case 'd': // d- delete something
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003688#if ENABLE_FEATURE_VI_YANKMARK
Eric Andersen3f980402001-04-04 17:31:15 +00003689 case 'y': // y- yank something
3690 case 'Y': // Y- Yank a line
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003691#endif
Paul Foxc51fc7b2008-03-06 01:34:23 +00003692 {
3693 int yf, ml, whole = 0;
Eric Andersen3f980402001-04-04 17:31:15 +00003694 yf = YANKDEL; // assume either "c" or "d"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003695#if ENABLE_FEATURE_VI_YANKMARK
Eric Andersen3f980402001-04-04 17:31:15 +00003696 if (c == 'y' || c == 'Y')
3697 yf = YANKONLY;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003698#endif
Eric Andersen3f980402001-04-04 17:31:15 +00003699 c1 = 'y';
3700 if (c != 'Y')
3701 c1 = get_one_char(); // get the type of thing to delete
Paul Foxc51fc7b2008-03-06 01:34:23 +00003702 // determine range, and whether it spans lines
3703 ml = find_range(&p, &q, c1);
Eric Andersen3f980402001-04-04 17:31:15 +00003704 if (c1 == 27) { // ESC- user changed mind and wants out
3705 c = c1 = 27; // Escape- do nothing
3706 } else if (strchr("wW", c1)) {
3707 if (c == 'c') {
3708 // don't include trailing WS as part of word
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00003709 while (isblank(*q)) {
Eric Andersen3f980402001-04-04 17:31:15 +00003710 if (q <= text || q[-1] == '\n')
3711 break;
3712 q--;
3713 }
3714 }
Paul Foxc51fc7b2008-03-06 01:34:23 +00003715 dot = yank_delete(p, q, ml, yf); // delete word
3716 } else if (strchr("^0bBeEft%$ lh\b\177", c1)) {
3717 // partial line copy text into a register and delete
3718 dot = yank_delete(p, q, ml, yf); // delete word
3719 } else if (strchr("cdykjHL+-{}\r\n", c1)) {
3720 // whole line copy text into a register and delete
3721 dot = yank_delete(p, q, ml, yf); // delete lines
3722 whole = 1;
3723 } else {
3724 // could not recognize object
3725 c = c1 = 27; // error-
3726 ml = 0;
3727 indicate_error(c);
3728 }
3729 if (ml && whole) {
Eric Andersen1c0d3112001-04-16 15:46:44 +00003730 if (c == 'c') {
3731 dot = char_insert(dot, '\n');
3732 // on the last line of file don't move to prev line
Paul Foxc51fc7b2008-03-06 01:34:23 +00003733 if (whole && dot != (end-1)) {
Eric Andersen1c0d3112001-04-16 15:46:44 +00003734 dot_prev();
3735 }
3736 } else if (c == 'd') {
Eric Andersen3f980402001-04-04 17:31:15 +00003737 dot_begin();
3738 dot_skip_over_ws();
3739 }
Eric Andersen3f980402001-04-04 17:31:15 +00003740 }
3741 if (c1 != 27) {
3742 // if CHANGING, not deleting, start inserting after the delete
3743 if (c == 'c') {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003744 strcpy(buf, "Change");
Eric Andersen3f980402001-04-04 17:31:15 +00003745 goto dc_i; // start inserting
3746 }
3747 if (c == 'd') {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003748 strcpy(buf, "Delete");
Eric Andersen3f980402001-04-04 17:31:15 +00003749 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003750#if ENABLE_FEATURE_VI_YANKMARK
Eric Andersen3f980402001-04-04 17:31:15 +00003751 if (c == 'y' || c == 'Y') {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003752 strcpy(buf, "Yank");
Eric Andersen3f980402001-04-04 17:31:15 +00003753 }
3754 p = reg[YDreg];
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003755 q = p + strlen(p);
Eric Andersen3f980402001-04-04 17:31:15 +00003756 for (cnt = 0; p <= q; p++) {
3757 if (*p == '\n')
3758 cnt++;
3759 }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003760 status_line("%s %d lines (%d chars) using [%c]",
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003761 buf, cnt, strlen(reg[YDreg]), what_reg());
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003762#endif
Eric Andersen3f980402001-04-04 17:31:15 +00003763 end_cmd_q(); // stop adding to q
3764 }
Paul Foxc51fc7b2008-03-06 01:34:23 +00003765 }
Eric Andersen3f980402001-04-04 17:31:15 +00003766 break;
3767 case 'k': // k- goto prev line, same col
3768 case VI_K_UP: // cursor key Up
3769 if (cmdcnt-- > 1) {
3770 do_cmd(c);
3771 } // repeat cnt
3772 dot_prev();
3773 dot = move_to_col(dot, ccol + offset); // try stay in same col
3774 break;
3775 case 'r': // r- replace the current char with user input
3776 c1 = get_one_char(); // get the replacement char
3777 if (*dot != '\n') {
3778 *dot = c1;
Denis Vlasenkob1759462008-06-20 20:20:54 +00003779 file_modified++;
Eric Andersen3f980402001-04-04 17:31:15 +00003780 }
3781 end_cmd_q(); // stop adding to q
3782 break;
Eric Andersen822c3832001-05-07 17:37:43 +00003783 case 't': // t- move to char prior to next x
Tim Rikerc1ef7bd2006-01-25 00:08:53 +00003784 last_forward_char = get_one_char();
3785 do_cmd(';');
3786 if (*dot == last_forward_char)
3787 dot_left();
3788 last_forward_char= 0;
Eric Andersen822c3832001-05-07 17:37:43 +00003789 break;
Eric Andersen3f980402001-04-04 17:31:15 +00003790 case 'w': // w- forward a word
3791 if (cmdcnt-- > 1) {
3792 do_cmd(c);
3793 } // repeat cnt
3794 if (isalnum(*dot) || *dot == '_') { // we are on ALNUM
3795 dot = skip_thing(dot, 1, FORWARD, S_END_ALNUM);
3796 } else if (ispunct(*dot)) { // we are on PUNCT
3797 dot = skip_thing(dot, 1, FORWARD, S_END_PUNCT);
3798 }
3799 if (dot < end - 1)
3800 dot++; // move over word
3801 if (isspace(*dot)) {
3802 dot = skip_thing(dot, 2, FORWARD, S_OVER_WS);
3803 }
3804 break;
3805 case 'z': // z-
3806 c1 = get_one_char(); // get the replacement char
3807 cnt = 0;
3808 if (c1 == '.')
3809 cnt = (rows - 2) / 2; // put dot at center
3810 if (c1 == '-')
3811 cnt = rows - 2; // put dot at bottom
3812 screenbegin = begin_line(dot); // start dot at top
3813 dot_scroll(cnt, -1);
3814 break;
3815 case '|': // |- move to column "cmdcnt"
3816 dot = move_to_col(dot, cmdcnt - 1); // try to move to column
3817 break;
3818 case '~': // ~- flip the case of letters a-z -> A-Z
3819 if (cmdcnt-- > 1) {
3820 do_cmd(c);
3821 } // repeat cnt
3822 if (islower(*dot)) {
3823 *dot = toupper(*dot);
Denis Vlasenkob1759462008-06-20 20:20:54 +00003824 file_modified++;
Eric Andersen3f980402001-04-04 17:31:15 +00003825 } else if (isupper(*dot)) {
3826 *dot = tolower(*dot);
Denis Vlasenkob1759462008-06-20 20:20:54 +00003827 file_modified++;
Eric Andersen3f980402001-04-04 17:31:15 +00003828 }
3829 dot_right();
3830 end_cmd_q(); // stop adding to q
3831 break;
3832 //----- The Cursor and Function Keys -----------------------------
3833 case VI_K_HOME: // Cursor Key Home
3834 dot_begin();
3835 break;
3836 // The Fn keys could point to do_macro which could translate them
3837 case VI_K_FUN1: // Function Key F1
3838 case VI_K_FUN2: // Function Key F2
3839 case VI_K_FUN3: // Function Key F3
3840 case VI_K_FUN4: // Function Key F4
3841 case VI_K_FUN5: // Function Key F5
3842 case VI_K_FUN6: // Function Key F6
3843 case VI_K_FUN7: // Function Key F7
3844 case VI_K_FUN8: // Function Key F8
3845 case VI_K_FUN9: // Function Key F9
3846 case VI_K_FUN10: // Function Key F10
3847 case VI_K_FUN11: // Function Key F11
3848 case VI_K_FUN12: // Function Key F12
3849 break;
3850 }
3851
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003852 dc1:
Eric Andersen3f980402001-04-04 17:31:15 +00003853 // if text[] just became empty, add back an empty line
3854 if (end == text) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003855 char_insert(text, '\n'); // start empty buf with dummy line
Eric Andersen3f980402001-04-04 17:31:15 +00003856 dot = text;
3857 }
3858 // it is OK for dot to exactly equal to end, otherwise check dot validity
3859 if (dot != end) {
3860 dot = bound_dot(dot); // make sure "dot" is valid
3861 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003862#if ENABLE_FEATURE_VI_YANKMARK
Eric Andersen3f980402001-04-04 17:31:15 +00003863 check_context(c); // update the current context
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003864#endif
Eric Andersen3f980402001-04-04 17:31:15 +00003865
3866 if (!isdigit(c))
3867 cmdcnt = 0; // cmd was not a number, reset cmdcnt
3868 cnt = dot - begin_line(dot);
3869 // Try to stay off of the Newline
3870 if (*dot == '\n' && cnt > 0 && cmd_mode == 0)
3871 dot--;
3872}
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003873
Paul Fox35e9c5d2008-03-06 16:26:12 +00003874/* NB! the CRASHME code is unmaintained, and doesn't currently build */
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003875#if ENABLE_FEATURE_VI_CRASHME
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003876static int totalcmds = 0;
3877static int Mp = 85; // Movement command Probability
3878static int Np = 90; // Non-movement command Probability
3879static int Dp = 96; // Delete command Probability
3880static int Ip = 97; // Insert command Probability
3881static int Yp = 98; // Yank command Probability
3882static int Pp = 99; // Put command Probability
3883static int M = 0, N = 0, I = 0, D = 0, Y = 0, P = 0, U = 0;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003884static const char chars[20] = "\t012345 abcdABCD-=.$";
3885static const char *const words[20] = {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003886 "this", "is", "a", "test",
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003887 "broadcast", "the", "emergency", "of",
3888 "system", "quick", "brown", "fox",
3889 "jumped", "over", "lazy", "dogs",
3890 "back", "January", "Febuary", "March"
3891};
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003892static const char *const lines[20] = {
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003893 "You should have received a copy of the GNU General Public License\n",
3894 "char c, cm, *cmd, *cmd1;\n",
3895 "generate a command by percentages\n",
3896 "Numbers may be typed as a prefix to some commands.\n",
3897 "Quit, discarding changes!\n",
3898 "Forced write, if permission originally not valid.\n",
3899 "In general, any ex or ed command (such as substitute or delete).\n",
3900 "I have tickets available for the Blazers vs LA Clippers for Monday, Janurary 1 at 1:00pm.\n",
3901 "Please get w/ me and I will go over it with you.\n",
3902 "The following is a list of scheduled, committed changes.\n",
3903 "1. Launch Norton Antivirus (Start, Programs, Norton Antivirus)\n",
3904 "Reminder....Town Meeting in Central Perk cafe today at 3:00pm.\n",
3905 "Any question about transactions please contact Sterling Huxley.\n",
3906 "I will try to get back to you by Friday, December 31.\n",
3907 "This Change will be implemented on Friday.\n",
3908 "Let me know if you have problems accessing this;\n",
3909 "Sterling Huxley recently added you to the access list.\n",
3910 "Would you like to go to lunch?\n",
3911 "The last command will be automatically run.\n",
3912 "This is too much english for a computer geek.\n",
3913};
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003914static char *multilines[20] = {
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003915 "You should have received a copy of the GNU General Public License\n",
3916 "char c, cm, *cmd, *cmd1;\n",
3917 "generate a command by percentages\n",
3918 "Numbers may be typed as a prefix to some commands.\n",
3919 "Quit, discarding changes!\n",
3920 "Forced write, if permission originally not valid.\n",
3921 "In general, any ex or ed command (such as substitute or delete).\n",
3922 "I have tickets available for the Blazers vs LA Clippers for Monday, Janurary 1 at 1:00pm.\n",
3923 "Please get w/ me and I will go over it with you.\n",
3924 "The following is a list of scheduled, committed changes.\n",
3925 "1. Launch Norton Antivirus (Start, Programs, Norton Antivirus)\n",
3926 "Reminder....Town Meeting in Central Perk cafe today at 3:00pm.\n",
3927 "Any question about transactions please contact Sterling Huxley.\n",
3928 "I will try to get back to you by Friday, December 31.\n",
3929 "This Change will be implemented on Friday.\n",
3930 "Let me know if you have problems accessing this;\n",
3931 "Sterling Huxley recently added you to the access list.\n",
3932 "Would you like to go to lunch?\n",
3933 "The last command will be automatically run.\n",
3934 "This is too much english for a computer geek.\n",
3935};
3936
3937// create a random command to execute
3938static void crash_dummy()
3939{
3940 static int sleeptime; // how long to pause between commands
3941 char c, cm, *cmd, *cmd1;
3942 int i, cnt, thing, rbi, startrbi, percent;
3943
3944 // "dot" movement commands
3945 cmd1 = " \n\r\002\004\005\006\025\0310^$-+wWeEbBhjklHL";
3946
3947 // is there already a command running?
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00003948 if (chars_to_parse > 0)
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003949 goto cd1;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003950 cd0:
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003951 startrbi = rbi = 0;
3952 sleeptime = 0; // how long to pause between commands
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003953 memset(readbuffer, '\0', sizeof(readbuffer));
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003954 // generate a command by percentages
3955 percent = (int) lrand48() % 100; // get a number from 0-99
3956 if (percent < Mp) { // Movement commands
3957 // available commands
3958 cmd = cmd1;
3959 M++;
3960 } else if (percent < Np) { // non-movement commands
3961 cmd = "mz<>\'\""; // available commands
3962 N++;
3963 } else if (percent < Dp) { // Delete commands
3964 cmd = "dx"; // available commands
3965 D++;
3966 } else if (percent < Ip) { // Inset commands
3967 cmd = "iIaAsrJ"; // available commands
3968 I++;
3969 } else if (percent < Yp) { // Yank commands
3970 cmd = "yY"; // available commands
3971 Y++;
3972 } else if (percent < Pp) { // Put commands
3973 cmd = "pP"; // available commands
3974 P++;
3975 } else {
3976 // We do not know how to handle this command, try again
3977 U++;
3978 goto cd0;
3979 }
3980 // randomly pick one of the available cmds from "cmd[]"
3981 i = (int) lrand48() % strlen(cmd);
3982 cm = cmd[i];
3983 if (strchr(":\024", cm))
3984 goto cd0; // dont allow colon or ctrl-T commands
3985 readbuffer[rbi++] = cm; // put cmd into input buffer
3986
3987 // now we have the command-
3988 // there are 1, 2, and multi char commands
3989 // find out which and generate the rest of command as necessary
3990 if (strchr("dmryz<>\'\"", cm)) { // 2-char commands
3991 cmd1 = " \n\r0$^-+wWeEbBhjklHL";
3992 if (cm == 'm' || cm == '\'' || cm == '\"') { // pick a reg[]
3993 cmd1 = "abcdefghijklmnopqrstuvwxyz";
3994 }
3995 thing = (int) lrand48() % strlen(cmd1); // pick a movement command
3996 c = cmd1[thing];
3997 readbuffer[rbi++] = c; // add movement to input buffer
3998 }
3999 if (strchr("iIaAsc", cm)) { // multi-char commands
4000 if (cm == 'c') {
4001 // change some thing
4002 thing = (int) lrand48() % strlen(cmd1); // pick a movement command
4003 c = cmd1[thing];
4004 readbuffer[rbi++] = c; // add movement to input buffer
4005 }
4006 thing = (int) lrand48() % 4; // what thing to insert
4007 cnt = (int) lrand48() % 10; // how many to insert
4008 for (i = 0; i < cnt; i++) {
4009 if (thing == 0) { // insert chars
4010 readbuffer[rbi++] = chars[((int) lrand48() % strlen(chars))];
4011 } else if (thing == 1) { // insert words
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004012 strcat(readbuffer, words[(int) lrand48() % 20]);
4013 strcat(readbuffer, " ");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004014 sleeptime = 0; // how fast to type
4015 } else if (thing == 2) { // insert lines
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004016 strcat(readbuffer, lines[(int) lrand48() % 20]);
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004017 sleeptime = 0; // how fast to type
4018 } else { // insert multi-lines
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004019 strcat(readbuffer, multilines[(int) lrand48() % 20]);
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004020 sleeptime = 0; // how fast to type
4021 }
4022 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004023 strcat(readbuffer, "\033");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004024 }
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00004025 chars_to_parse = strlen(readbuffer);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004026 cd1:
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004027 totalcmds++;
4028 if (sleeptime > 0)
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004029 mysleep(sleeptime); // sleep 1/100 sec
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004030}
4031
4032// test to see if there are any errors
4033static void crash_test()
4034{
4035 static time_t oldtim;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004036
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004037 time_t tim;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00004038 char d[2], msg[80];
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004039
4040 msg[0] = '\0';
4041 if (end < text) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004042 strcat(msg, "end<text ");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004043 }
4044 if (end > textend) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004045 strcat(msg, "end>textend ");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004046 }
4047 if (dot < text) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004048 strcat(msg, "dot<text ");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004049 }
4050 if (dot > end) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004051 strcat(msg, "dot>end ");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004052 }
4053 if (screenbegin < text) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004054 strcat(msg, "screenbegin<text ");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004055 }
4056 if (screenbegin > end - 1) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004057 strcat(msg, "screenbegin>end-1 ");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004058 }
4059
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004060 if (msg[0]) {
Glenn L McGrath7127b582002-12-03 21:48:15 +00004061 printf("\n\n%d: \'%c\' %s\n\n\n%s[Hit return to continue]%s",
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004062 totalcmds, last_input_char, msg, SOs, SOn);
4063 fflush(stdout);
Bernhard Reutner-Fischer5e25ddb2008-05-19 09:48:17 +00004064 while (safe_read(STDIN_FILENO, d, 1) > 0) {
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004065 if (d[0] == '\n' || d[0] == '\r')
4066 break;
4067 }
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004068 }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00004069 tim = time(NULL);
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004070 if (tim >= (oldtim + 3)) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004071 sprintf(status_buffer,
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004072 "Tot=%d: M=%d N=%d I=%d D=%d Y=%d P=%d U=%d size=%d",
4073 totalcmds, M, N, I, D, Y, P, U, end - text + 1);
4074 oldtim = tim;
4075 }
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004076}
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00004077#endif