blob: 097f309c82921b30ec735faf71d65a5d68e9274b [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 *
Denys Vlasenko0ef64bd2010-08-16 20:14:46 +02006 * Licensed under GPLv2 or later, see file LICENSE in this source tree.
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
Denys Vlasenko60cb48c2013-01-14 15:57:44 +010017 * 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
Walter Harmsb9ba5802011-06-27 02:59:37 +020024//config:config VI
25//config: bool "vi"
26//config: default y
27//config: help
28//config: 'vi' is a text editor. More specifically, it is the One True
29//config: text editor <grin>. It does, however, have a rather steep
30//config: learning curve. If you are not already comfortable with 'vi'
31//config: you may wish to use something else.
32//config:
33//config:config FEATURE_VI_MAX_LEN
34//config: int "Maximum screen width in vi"
35//config: range 256 16384
36//config: default 4096
37//config: depends on VI
38//config: help
39//config: Contrary to what you may think, this is not eating much.
40//config: Make it smaller than 4k only if you are very limited on memory.
41//config:
42//config:config FEATURE_VI_8BIT
43//config: bool "Allow vi to display 8-bit chars (otherwise shows dots)"
44//config: default n
45//config: depends on VI
46//config: help
47//config: If your terminal can display characters with high bit set,
48//config: you may want to enable this. Note: vi is not Unicode-capable.
49//config: If your terminal combines several 8-bit bytes into one character
50//config: (as in Unicode mode), this will not work properly.
51//config:
52//config:config FEATURE_VI_COLON
53//config: bool "Enable \":\" colon commands (no \"ex\" mode)"
54//config: default y
55//config: depends on VI
56//config: help
57//config: Enable a limited set of colon commands for vi. This does not
58//config: provide an "ex" mode.
59//config:
60//config:config FEATURE_VI_YANKMARK
61//config: bool "Enable yank/put commands and mark cmds"
62//config: default y
63//config: depends on VI
64//config: help
65//config: This will enable you to use yank and put, as well as mark in
66//config: busybox vi.
67//config:
68//config:config FEATURE_VI_SEARCH
69//config: bool "Enable search and replace cmds"
70//config: default y
71//config: depends on VI
72//config: help
73//config: Select this if you wish to be able to do search and replace in
74//config: busybox vi.
75//config:
76//config:config FEATURE_VI_REGEX_SEARCH
77//config: bool "Enable regex in search and replace"
78//config: default n # Uses GNU regex, which may be unavailable. FIXME
79//config: depends on FEATURE_VI_SEARCH
80//config: help
81//config: Use extended regex search.
82//config:
83//config:config FEATURE_VI_USE_SIGNALS
84//config: bool "Catch signals"
85//config: default y
86//config: depends on VI
87//config: help
88//config: Selecting this option will make busybox vi signal aware. This will
89//config: make busybox vi support SIGWINCH to deal with Window Changes, catch
90//config: Ctrl-Z and Ctrl-C and alarms.
91//config:
92//config:config FEATURE_VI_DOT_CMD
93//config: bool "Remember previous cmd and \".\" cmd"
94//config: default y
95//config: depends on VI
96//config: help
97//config: Make busybox vi remember the last command and be able to repeat it.
98//config:
99//config:config FEATURE_VI_READONLY
100//config: bool "Enable -R option and \"view\" mode"
101//config: default y
102//config: depends on VI
103//config: help
104//config: Enable the read-only command line option, which allows the user to
105//config: open a file in read-only mode.
106//config:
107//config:config FEATURE_VI_SETOPTS
108//config: bool "Enable set-able options, ai ic showmatch"
109//config: default y
110//config: depends on VI
111//config: help
112//config: Enable the editor to set some (ai, ic, showmatch) options.
113//config:
114//config:config FEATURE_VI_SET
115//config: bool "Support for :set"
116//config: default y
117//config: depends on VI
118//config: help
119//config: Support for ":set".
120//config:
121//config:config FEATURE_VI_WIN_RESIZE
122//config: bool "Handle window resize"
123//config: default y
124//config: depends on VI
125//config: help
126//config: Make busybox vi behave nicely with terminals that get resized.
127//config:
128//config:config FEATURE_VI_ASK_TERMINAL
129//config: bool "Use 'tell me cursor position' ESC sequence to measure window"
130//config: default y
131//config: depends on VI
132//config: help
133//config: If terminal size can't be retrieved and $LINES/$COLUMNS are not set,
134//config: this option makes vi perform a last-ditch effort to find it:
Denys Vlasenko4e552a72011-07-25 15:18:20 +0200135//config: position cursor to 999,999 and ask terminal to report real
136//config: cursor position using "ESC [ 6 n" escape sequence, then read stdin.
Walter Harmsb9ba5802011-06-27 02:59:37 +0200137//config:
138//config: This is not clean but helps a lot on serial lines and such.
Walter Harmsb9ba5802011-06-27 02:59:37 +0200139
140//applet:IF_VI(APPLET(vi, BB_DIR_BIN, BB_SUID_DROP))
141
142//kbuild:lib-$(CONFIG_VI) += vi.o
143
Pere Orga6a3e01d2011-04-01 22:56:30 +0200144//usage:#define vi_trivial_usage
145//usage: "[OPTIONS] [FILE]..."
146//usage:#define vi_full_usage "\n\n"
147//usage: "Edit FILE\n"
Pere Orga6a3e01d2011-04-01 22:56:30 +0200148//usage: IF_FEATURE_VI_COLON(
Denys Vlasenko605f2642012-06-11 01:53:33 +0200149//usage: "\n -c CMD Initial command to run ($EXINIT also available)"
Pere Orga6a3e01d2011-04-01 22:56:30 +0200150//usage: )
151//usage: IF_FEATURE_VI_READONLY(
152//usage: "\n -R Read-only"
153//usage: )
Denys Vlasenko605f2642012-06-11 01:53:33 +0200154//usage: "\n -H List available features"
Pere Orga6a3e01d2011-04-01 22:56:30 +0200155
Denis Vlasenkob6adbf12007-05-26 19:00:18 +0000156#include "libbb.h"
Denys Vlasenko066f3992011-07-03 03:19:43 +0200157/* Should be after libbb.h: on some systems regex.h needs sys/types.h: */
158#if ENABLE_FEATURE_VI_REGEX_SEARCH
159# include <regex.h>
160#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000161
Paul Fox35e9c5d2008-03-06 16:26:12 +0000162/* the CRASHME code is unmaintained, and doesn't currently build */
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000163#define ENABLE_FEATURE_VI_CRASHME 0
164
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +0000165
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000166#if ENABLE_LOCALE_SUPPORT
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +0000167
168#if ENABLE_FEATURE_VI_8BIT
Denys Vlasenkoc2704542009-11-20 19:14:19 +0100169//FIXME: this does not work properly for Unicode anyway
170# define Isprint(c) (isprint)(c)
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000171#else
Denys Vlasenkoc2704542009-11-20 19:14:19 +0100172# define Isprint(c) isprint_asciionly(c)
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000173#endif
174
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +0000175#else
176
177/* 0x9b is Meta-ESC */
178#if ENABLE_FEATURE_VI_8BIT
Denys Vlasenko066f3992011-07-03 03:19:43 +0200179# define Isprint(c) ((unsigned char)(c) >= ' ' && (c) != 0x7f && (unsigned char)(c) != 0x9b)
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +0000180#else
Denys Vlasenko066f3992011-07-03 03:19:43 +0200181# define Isprint(c) ((unsigned char)(c) >= ' ' && (unsigned char)(c) < 0x7f)
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +0000182#endif
183
184#endif
185
186
Denis Vlasenkoe8a07882007-06-10 15:08:44 +0000187enum {
Denis Vlasenko26b6fba2007-12-21 21:34:37 +0000188 MAX_TABSTOP = 32, // sanity limit
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000189 // User input len. Need not be extra big.
190 // Lines in file being edited *can* be bigger than this.
191 MAX_INPUT_LEN = 128,
192 // Sanity limits. We have only one buffer of this size.
193 MAX_SCR_COLS = CONFIG_FEATURE_VI_MAX_LEN,
194 MAX_SCR_ROWS = CONFIG_FEATURE_VI_MAX_LEN,
Denis Vlasenkoe8a07882007-06-10 15:08:44 +0000195};
Eric Andersen3f980402001-04-04 17:31:15 +0000196
Denys Vlasenko04b52892012-06-11 13:51:38 +0200197/* VT102 ESC sequences.
198 * See "Xterm Control Sequences"
199 * http://invisible-island.net/xterm/ctlseqs/ctlseqs.html
200 */
201/* Inverse/Normal text */
202#define ESC_BOLD_TEXT "\033[7m"
203#define ESC_NORM_TEXT "\033[0m"
204/* Bell */
205#define ESC_BELL "\007"
206/* Clear-to-end-of-line */
207#define ESC_CLEAR2EOL "\033[K"
208/* Clear-to-end-of-screen.
209 * (We use default param here.
210 * Full sequence is "ESC [ <num> J",
211 * <num> is 0/1/2 = "erase below/above/all".)
212 */
213#define ESC_CLEAR2EOS "\033[J"
214/* Cursor to given coordinate (1,1: top left) */
215#define ESC_SET_CURSOR_POS "\033[%u;%uH"
216//UNUSED
217///* Cursor up and down */
218//#define ESC_CURSOR_UP "\033[A"
219//#define ESC_CURSOR_DOWN "\n"
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000220
Denis Vlasenkoded6ad32008-10-14 12:26:30 +0000221#if ENABLE_FEATURE_VI_DOT_CMD || ENABLE_FEATURE_VI_YANKMARK
222// cmds modifying text[]
223// vda: removed "aAiIs" as they switch us into insert mode
224// and remembering input for replay after them makes no sense
225static const char modifying_cmds[] = "cCdDJoOpPrRxX<>~";
226#endif
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000227
Rob Landleybc68cd12006-03-10 19:22:06 +0000228enum {
229 YANKONLY = FALSE,
230 YANKDEL = TRUE,
231 FORWARD = 1, // code depends on "1" for array index
232 BACK = -1, // code depends on "-1" for array index
233 LIMITED = 0, // how much of text[] in char_search
234 FULL = 1, // how much of text[] in char_search
Eric Andersen3f980402001-04-04 17:31:15 +0000235
Rob Landleybc68cd12006-03-10 19:22:06 +0000236 S_BEFORE_WS = 1, // used in skip_thing() for moving "dot"
237 S_TO_WS = 2, // used in skip_thing() for moving "dot"
238 S_OVER_WS = 3, // used in skip_thing() for moving "dot"
239 S_END_PUNCT = 4, // used in skip_thing() for moving "dot"
Denis Vlasenko8e858e22007-03-07 09:35:43 +0000240 S_END_ALNUM = 5, // used in skip_thing() for moving "dot"
Rob Landleybc68cd12006-03-10 19:22:06 +0000241};
Eric Andersen3f980402001-04-04 17:31:15 +0000242
Denis Vlasenkob1759462008-06-20 20:20:54 +0000243
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000244/* vi.c expects chars to be unsigned. */
245/* busybox build system provides that, but it's better */
246/* to audit and fix the source */
Eric Andersen3f980402001-04-04 17:31:15 +0000247
Denis Vlasenkob1759462008-06-20 20:20:54 +0000248struct globals {
249 /* many references - keep near the top of globals */
250 char *text, *end; // pointers to the user data in memory
251 char *dot; // where all the action takes place
252 int text_size; // size of the allocated buffer
253
254 /* the rest */
255 smallint vi_setops;
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000256#define VI_AUTOINDENT 1
257#define VI_SHOWMATCH 2
258#define VI_IGNORECASE 4
259#define VI_ERR_METHOD 8
260#define autoindent (vi_setops & VI_AUTOINDENT)
261#define showmatch (vi_setops & VI_SHOWMATCH )
262#define ignorecase (vi_setops & VI_IGNORECASE)
263/* indicate error with beep or flash */
264#define err_method (vi_setops & VI_ERR_METHOD)
265
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000266#if ENABLE_FEATURE_VI_READONLY
Denis Vlasenkob1759462008-06-20 20:20:54 +0000267 smallint readonly_mode;
Denis Vlasenko6a2f7f42007-08-16 10:35:17 +0000268#define SET_READONLY_FILE(flags) ((flags) |= 0x01)
269#define SET_READONLY_MODE(flags) ((flags) |= 0x02)
270#define UNSET_READONLY_FILE(flags) ((flags) &= 0xfe)
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000271#else
Denis Vlasenkob1759462008-06-20 20:20:54 +0000272#define SET_READONLY_FILE(flags) ((void)0)
273#define SET_READONLY_MODE(flags) ((void)0)
274#define UNSET_READONLY_FILE(flags) ((void)0)
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000275#endif
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000276
Denis Vlasenkob1759462008-06-20 20:20:54 +0000277 smallint editing; // >0 while we are editing a file
Denis Vlasenko30cfdf92008-09-21 15:29:29 +0000278 // [code audit says "can be 0, 1 or 2 only"]
Denis Vlasenkob1759462008-06-20 20:20:54 +0000279 smallint cmd_mode; // 0=command 1=insert 2=replace
280 int file_modified; // buffer contents changed (counter, not flag!)
Denis Vlasenko30cfdf92008-09-21 15:29:29 +0000281 int last_file_modified; // = -1;
Denis Vlasenkob1759462008-06-20 20:20:54 +0000282 int save_argc; // how many file names on cmd line
283 int cmdcnt; // repetition count
284 unsigned rows, columns; // the terminal screen is this size
Denys Vlasenkoc175c462010-04-18 22:09:30 -0700285#if ENABLE_FEATURE_VI_ASK_TERMINAL
286 int get_rowcol_error;
287#endif
Denis Vlasenkob1759462008-06-20 20:20:54 +0000288 int crow, ccol; // cursor is on Crow x Ccol
289 int offset; // chars scrolled off the screen to the left
290 int have_status_msg; // is default edit status needed?
291 // [don't make smallint!]
292 int last_status_cksum; // hash of current status line
293 char *current_filename;
294 char *screenbegin; // index into text[], of top line on the screen
295 char *screen; // pointer to the virtual screen buffer
296 int screensize; // and its size
297 int tabstop;
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +0000298 int last_forward_char; // last char searched for with 'f' (int because of Unicode)
Denis Vlasenkob1759462008-06-20 20:20:54 +0000299 char erase_char; // the users erase character
300 char last_input_char; // last char read from user
Denis Vlasenkob1759462008-06-20 20:20:54 +0000301
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000302#if ENABLE_FEATURE_VI_DOT_CMD
Denis Vlasenkob1759462008-06-20 20:20:54 +0000303 smallint adding2q; // are we currently adding user input to q
304 int lmc_len; // length of last_modifying_cmd
305 char *ioq, *ioq_start; // pointer to string for get_one_char to "read"
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000306#endif
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000307#if ENABLE_FEATURE_VI_USE_SIGNALS || ENABLE_FEATURE_VI_CRASHME
Denis Vlasenkob1759462008-06-20 20:20:54 +0000308 int my_pid;
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000309#endif
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000310#if ENABLE_FEATURE_VI_SEARCH
Denis Vlasenkob1759462008-06-20 20:20:54 +0000311 char *last_search_pattern; // last pattern from a '/' or '?' search
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000312#endif
Denis Vlasenko0112ff52008-10-25 23:23:00 +0000313
Denis Vlasenkob1759462008-06-20 20:20:54 +0000314 /* former statics */
315#if ENABLE_FEATURE_VI_YANKMARK
316 char *edit_file__cur_line;
317#endif
318 int refresh__old_offset;
319 int format_edit_status__tot;
Eric Andersen3f980402001-04-04 17:31:15 +0000320
Denis Vlasenkob1759462008-06-20 20:20:54 +0000321 /* a few references only */
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000322#if ENABLE_FEATURE_VI_YANKMARK
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000323 int YDreg, Ureg; // default delete register and orig line for "U"
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000324 char *reg[28]; // named register a-z, "D", and "U" 0-25,26,27
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000325 char *mark[28]; // user marks points somewhere in text[]- a-z and previous context ''
326 char *context_start, *context_end;
327#endif
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000328#if ENABLE_FEATURE_VI_USE_SIGNALS
Denis Vlasenkob1759462008-06-20 20:20:54 +0000329 sigjmp_buf restart; // catch_sig()
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000330#endif
Denis Vlasenkob1759462008-06-20 20:20:54 +0000331 struct termios term_orig, term_vi; // remember what the cooked mode was
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000332#if ENABLE_FEATURE_VI_COLON
333 char *initial_cmds[3]; // currently 2 entries, NULL terminated
334#endif
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000335 // Should be just enough to hold a key sequence,
Denis Vlasenko25497c12008-10-14 10:25:05 +0000336 // but CRASHME mode uses it as generated command buffer too
337#if ENABLE_FEATURE_VI_CRASHME
Denis Vlasenko1dfeeeb2008-10-18 19:04:37 +0000338 char readbuffer[128];
Denis Vlasenko25497c12008-10-14 10:25:05 +0000339#else
Denis Vlasenko5f6aaf32008-10-25 23:27:29 +0000340 char readbuffer[KEYCODE_BUFFER_SIZE];
Denis Vlasenko25497c12008-10-14 10:25:05 +0000341#endif
Denis Vlasenkob1759462008-06-20 20:20:54 +0000342#define STATUS_BUFFER_LEN 200
343 char status_buffer[STATUS_BUFFER_LEN]; // messages to the user
344#if ENABLE_FEATURE_VI_DOT_CMD
345 char last_modifying_cmd[MAX_INPUT_LEN]; // last modifying cmd for "."
346#endif
347 char get_input_line__buf[MAX_INPUT_LEN]; /* former static */
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000348
349 char scr_out_buf[MAX_SCR_COLS + MAX_TABSTOP * 2];
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000350};
351#define G (*ptr_to_globals)
352#define text (G.text )
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000353#define text_size (G.text_size )
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000354#define end (G.end )
355#define dot (G.dot )
356#define reg (G.reg )
Denis Vlasenkob1759462008-06-20 20:20:54 +0000357
358#define vi_setops (G.vi_setops )
359#define editing (G.editing )
360#define cmd_mode (G.cmd_mode )
361#define file_modified (G.file_modified )
362#define last_file_modified (G.last_file_modified )
Denis Vlasenkob1759462008-06-20 20:20:54 +0000363#define save_argc (G.save_argc )
364#define cmdcnt (G.cmdcnt )
365#define rows (G.rows )
366#define columns (G.columns )
367#define crow (G.crow )
368#define ccol (G.ccol )
369#define offset (G.offset )
370#define status_buffer (G.status_buffer )
371#define have_status_msg (G.have_status_msg )
372#define last_status_cksum (G.last_status_cksum )
373#define current_filename (G.current_filename )
374#define screen (G.screen )
375#define screensize (G.screensize )
376#define screenbegin (G.screenbegin )
377#define tabstop (G.tabstop )
Denis Vlasenko0112ff52008-10-25 23:23:00 +0000378#define last_forward_char (G.last_forward_char )
Denis Vlasenkob1759462008-06-20 20:20:54 +0000379#define erase_char (G.erase_char )
380#define last_input_char (G.last_input_char )
Denis Vlasenko2a210e52008-06-22 13:20:42 +0000381#if ENABLE_FEATURE_VI_READONLY
Denis Vlasenkob1759462008-06-20 20:20:54 +0000382#define readonly_mode (G.readonly_mode )
Denis Vlasenko2a210e52008-06-22 13:20:42 +0000383#else
384#define readonly_mode 0
385#endif
Denis Vlasenkob1759462008-06-20 20:20:54 +0000386#define adding2q (G.adding2q )
387#define lmc_len (G.lmc_len )
388#define ioq (G.ioq )
389#define ioq_start (G.ioq_start )
Denis Vlasenkob1759462008-06-20 20:20:54 +0000390#define my_pid (G.my_pid )
Denis Vlasenkob1759462008-06-20 20:20:54 +0000391#define last_search_pattern (G.last_search_pattern)
Denis Vlasenko2a210e52008-06-22 13:20:42 +0000392
Denis Vlasenkob1759462008-06-20 20:20:54 +0000393#define edit_file__cur_line (G.edit_file__cur_line)
394#define refresh__old_offset (G.refresh__old_offset)
395#define format_edit_status__tot (G.format_edit_status__tot)
396
Denis Vlasenko0b3b41b2007-05-30 02:01:40 +0000397#define YDreg (G.YDreg )
398#define Ureg (G.Ureg )
399#define mark (G.mark )
400#define context_start (G.context_start )
401#define context_end (G.context_end )
402#define restart (G.restart )
403#define term_orig (G.term_orig )
404#define term_vi (G.term_vi )
405#define initial_cmds (G.initial_cmds )
Denis Vlasenkoa96425f2007-12-09 04:13:43 +0000406#define readbuffer (G.readbuffer )
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000407#define scr_out_buf (G.scr_out_buf )
Denis Vlasenkob1759462008-06-20 20:20:54 +0000408#define last_modifying_cmd (G.last_modifying_cmd )
409#define get_input_line__buf (G.get_input_line__buf)
410
Denis Vlasenkoa96425f2007-12-09 04:13:43 +0000411#define INIT_G() do { \
Denis Vlasenko574f2f42008-02-27 18:41:59 +0000412 SET_PTR_TO_GLOBALS(xzalloc(sizeof(G))); \
Denis Vlasenkob1759462008-06-20 20:20:54 +0000413 last_file_modified = -1; \
Denis Vlasenko31d58e52008-10-29 13:16:28 +0000414 /* "" but has space for 2 chars: */ \
Denis Vlasenko5e34ff22009-04-21 11:09:40 +0000415 IF_FEATURE_VI_SEARCH(last_search_pattern = xzalloc(2);) \
Denis Vlasenkoa96425f2007-12-09 04:13:43 +0000416} while (0)
Eric Andersen3f980402001-04-04 17:31:15 +0000417
Denis Vlasenkob1759462008-06-20 20:20:54 +0000418
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000419static int init_text_buffer(char *); // init from file or create new
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000420static void edit_file(char *); // edit one file
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +0000421static void do_cmd(int); // execute a command
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000422static int next_tabstop(int);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000423static void sync_cursor(char *, int *, int *); // synchronize the screen cursor to dot
424static char *begin_line(char *); // return pointer to cur line B-o-l
425static char *end_line(char *); // return pointer to cur line E-o-l
426static char *prev_line(char *); // return pointer to prev line B-o-l
427static char *next_line(char *); // return pointer to next line B-o-l
428static char *end_screen(void); // get pointer to last char on screen
429static int count_lines(char *, char *); // count line from start to stop
430static char *find_line(int); // find begining of line #li
431static char *move_to_col(char *, int); // move "p" to column l
Eric Andersen3f980402001-04-04 17:31:15 +0000432static void dot_left(void); // move dot left- dont leave line
433static void dot_right(void); // move dot right- dont leave line
434static void dot_begin(void); // move dot to B-o-l
435static void dot_end(void); // move dot to E-o-l
436static void dot_next(void); // move dot to next line B-o-l
437static void dot_prev(void); // move dot to prev line B-o-l
438static void dot_scroll(int, int); // move the screen up or down
439static void dot_skip_over_ws(void); // move dot pat WS
440static void dot_delete(void); // delete the char at 'dot'
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000441static char *bound_dot(char *); // make sure text[0] <= P < "end"
442static char *new_screen(int, int); // malloc virtual screen memory
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000443static char *char_insert(char *, char); // insert the char c at 'p'
Denis Vlasenko4ae1e132008-11-19 13:25:14 +0000444// might reallocate text[]! use p += stupid_insert(p, ...),
445// and be careful to not use pointers into potentially freed text[]!
446static uintptr_t stupid_insert(char *, char); // stupidly insert the char c at 'p'
Paul Foxc51fc7b2008-03-06 01:34:23 +0000447static int find_range(char **, char **, char); // return pointers for an object
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000448static int st_test(char *, int, int, char *); // helper for skip_thing()
449static char *skip_thing(char *, int, int, int); // skip some object
450static char *find_pair(char *, char); // find matching pair () [] {}
451static char *text_hole_delete(char *, char *); // at "p", delete a 'size' byte hole
Denis Vlasenko4ae1e132008-11-19 13:25:14 +0000452// might reallocate text[]! use p += text_hole_make(p, ...),
453// and be careful to not use pointers into potentially freed text[]!
454static uintptr_t text_hole_make(char *, int); // at "p", make a 'size' byte hole
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000455static char *yank_delete(char *, char *, int, int); // yank text[] into register then delete
Eric Andersen3f980402001-04-04 17:31:15 +0000456static void show_help(void); // display some help info
Eric Andersen3f980402001-04-04 17:31:15 +0000457static void rawmode(void); // set "raw" mode on tty
458static void cookmode(void); // return to "cooked" mode on tty
Denis Vlasenko87f3b262007-09-07 13:43:28 +0000459// sleep for 'h' 1/100 seconds, return 1/0 if stdin is (ready for read)/(not ready)
460static int mysleep(int);
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +0000461static int readit(void); // read (maybe cursor) key from stdin
462static int get_one_char(void); // read 1 char from stdin
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000463static int file_size(const char *); // what is the byte size of "fn"
Denis Vlasenko4ae1e132008-11-19 13:25:14 +0000464#if !ENABLE_FEATURE_VI_READONLY
465#define file_insert(fn, p, update_ro_status) file_insert(fn, p)
Denis Vlasenko59a1f302007-07-14 22:43:10 +0000466#endif
Denis Vlasenko4ae1e132008-11-19 13:25:14 +0000467// file_insert might reallocate text[]!
468static int file_insert(const char *, char *, int);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000469static int file_write(char *, char *, char *);
Denys Vlasenko04b52892012-06-11 13:51:38 +0200470static void place_cursor(int, int);
Eric Andersenbff7a602001-11-17 07:15:43 +0000471static void screen_erase(void);
Eric Andersen3f980402001-04-04 17:31:15 +0000472static void clear_to_eol(void);
473static void clear_to_eos(void);
Denis Vlasenko267e16c2008-10-14 10:34:41 +0000474static void go_bottom_and_clear_to_eol(void);
Eric Andersen3f980402001-04-04 17:31:15 +0000475static void standout_start(void); // send "start reverse video" sequence
476static void standout_end(void); // send "end reverse video" sequence
477static void flash(int); // flash the terminal screen
Eric Andersen3f980402001-04-04 17:31:15 +0000478static void show_status_line(void); // put a message on the bottom line
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000479static void status_line(const char *, ...); // print to status buf
480static void status_line_bold(const char *, ...);
Denys Vlasenko9e7c0022013-03-15 02:17:29 +0100481static void status_line_bold_errno(const char *fn);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000482static void not_implemented(const char *); // display "Not implemented" message
Paul Fox8552aec2005-09-16 12:20:05 +0000483static int format_edit_status(void); // format file status on status line
Eric Andersen3f980402001-04-04 17:31:15 +0000484static void redraw(int); // force a full screen refresh
Denis Vlasenko68404f12008-03-17 09:00:54 +0000485static char* format_line(char* /*, int*/);
Eric Andersen3f980402001-04-04 17:31:15 +0000486static void refresh(int); // update the terminal from screen[]
487
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000488static void Indicate_Error(void); // use flash or beep to indicate error
489#define indicate_error(c) Indicate_Error()
Paul Fox90372ed2005-10-09 14:26:26 +0000490static void Hit_Return(void);
491
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000492#if ENABLE_FEATURE_VI_SEARCH
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000493static char *char_search(char *, const char *, int, int); // search for pattern starting at p
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000494#endif
495#if ENABLE_FEATURE_VI_COLON
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000496static char *get_one_address(char *, int *); // get colon addr, if present
497static char *get_address(char *, int *, int *); // get two colon addrs, if present
498static void colon(char *); // execute the "colon" mode cmds
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000499#endif
500#if ENABLE_FEATURE_VI_USE_SIGNALS
Eric Andersen3f980402001-04-04 17:31:15 +0000501static void winch_sig(int); // catch window size changes
502static void suspend_sig(int); // catch ctrl-Z
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000503static void catch_sig(int); // catch ctrl-C and alarm time-outs
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000504#endif
505#if ENABLE_FEATURE_VI_DOT_CMD
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000506static void start_new_cmd_q(char); // new queue for command
Eric Andersenbff7a602001-11-17 07:15:43 +0000507static void end_cmd_q(void); // stop saving input chars
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000508#else
509#define end_cmd_q() ((void)0)
510#endif
511#if ENABLE_FEATURE_VI_SETOPTS
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000512static void showmatching(char *); // show the matching pair () [] {}
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000513#endif
514#if ENABLE_FEATURE_VI_YANKMARK || (ENABLE_FEATURE_VI_COLON && ENABLE_FEATURE_VI_SEARCH) || ENABLE_FEATURE_VI_CRASHME
Denis Vlasenko4ae1e132008-11-19 13:25:14 +0000515// might reallocate text[]! use p += string_insert(p, ...),
516// and be careful to not use pointers into potentially freed text[]!
517static uintptr_t string_insert(char *, const char *); // insert the string at 'p'
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000518#endif
519#if ENABLE_FEATURE_VI_YANKMARK
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000520static char *text_yank(char *, char *, int); // save copy of "p" into a register
521static char what_reg(void); // what is letter of current YDreg
522static void check_context(char); // remember context for '' command
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000523#endif
524#if ENABLE_FEATURE_VI_CRASHME
Eric Andersen3f980402001-04-04 17:31:15 +0000525static void crash_dummy();
526static void crash_test();
527static int crashme = 0;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000528#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000529
530
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000531static void write1(const char *out)
532{
533 fputs(out, stdout);
534}
535
Denis Vlasenko9b49a5e2007-10-11 10:05:36 +0000536int vi_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
Rob Landleydfba7412006-03-06 20:47:33 +0000537int vi_main(int argc, char **argv)
Eric Andersen3f980402001-04-04 17:31:15 +0000538{
Eric Andersend402edf2001-04-04 19:29:48 +0000539 int c;
Denis Vlasenkob1759462008-06-20 20:20:54 +0000540
541 INIT_G();
Eric Andersen3f980402001-04-04 17:31:15 +0000542
Denis Vlasenkocd5c7862007-05-17 16:37:22 +0000543#if ENABLE_FEATURE_VI_USE_SIGNALS || ENABLE_FEATURE_VI_CRASHME
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000544 my_pid = getpid();
545#endif
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000546#if ENABLE_FEATURE_VI_CRASHME
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000547 srand((long) my_pid);
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000548#endif
Denis Vlasenko2414a962007-07-18 22:03:40 +0000549#ifdef NO_SUCH_APPLET_YET
550 /* If we aren't "vi", we are "view" */
551 if (ENABLE_FEATURE_VI_READONLY && applet_name[2]) {
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000552 SET_READONLY_MODE(readonly_mode);
Eric Andersen3f980402001-04-04 17:31:15 +0000553 }
Denis Vlasenko2414a962007-07-18 22:03:40 +0000554#endif
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000555
Denys Vlasenko605f2642012-06-11 01:53:33 +0200556 // autoindent is not default in vim 7.3
557 vi_setops = /*VI_AUTOINDENT |*/ VI_SHOWMATCH | VI_IGNORECASE;
Denis Vlasenkof9234132007-03-21 00:03:42 +0000558 // 1- process $HOME/.exrc file (not inplemented yet)
Eric Andersen3f980402001-04-04 17:31:15 +0000559 // 2- process EXINIT variable from environment
560 // 3- process command line args
Denis Vlasenko58875ae2007-03-22 22:22:10 +0000561#if ENABLE_FEATURE_VI_COLON
Denis Vlasenkof9234132007-03-21 00:03:42 +0000562 {
563 char *p = getenv("EXINIT");
564 if (p && *p)
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000565 initial_cmds[0] = xstrndup(p, MAX_INPUT_LEN);
Denis Vlasenkof9234132007-03-21 00:03:42 +0000566 }
Denis Vlasenko58875ae2007-03-22 22:22:10 +0000567#endif
Denis Vlasenko5e34ff22009-04-21 11:09:40 +0000568 while ((c = getopt(argc, argv, "hCRH" IF_FEATURE_VI_COLON("c:"))) != -1) {
Eric Andersen3f980402001-04-04 17:31:15 +0000569 switch (c) {
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000570#if ENABLE_FEATURE_VI_CRASHME
Eric Andersen3f980402001-04-04 17:31:15 +0000571 case 'C':
572 crashme = 1;
573 break;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000574#endif
575#if ENABLE_FEATURE_VI_READONLY
Eric Andersen3f980402001-04-04 17:31:15 +0000576 case 'R': // Read-only flag
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000577 SET_READONLY_MODE(readonly_mode);
Eric Andersen3f980402001-04-04 17:31:15 +0000578 break;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000579#endif
Denis Vlasenko58875ae2007-03-22 22:22:10 +0000580#if ENABLE_FEATURE_VI_COLON
Denis Vlasenkof9234132007-03-21 00:03:42 +0000581 case 'c': // cmd line vi command
582 if (*optarg)
Denys Vlasenko605f2642012-06-11 01:53:33 +0200583 initial_cmds[initial_cmds[0] != NULL] = xstrndup(optarg, MAX_INPUT_LEN);
Denis Vlasenkof9234132007-03-21 00:03:42 +0000584 break;
Denis Vlasenko58875ae2007-03-22 22:22:10 +0000585#endif
Paul Fox35e9c5d2008-03-06 16:26:12 +0000586 case 'H':
Eric Andersen3f980402001-04-04 17:31:15 +0000587 show_help();
Paul Fox35e9c5d2008-03-06 16:26:12 +0000588 /* fall through */
Paul Fox35e9c5d2008-03-06 16:26:12 +0000589 default:
Denis Vlasenkoc6938402008-03-24 02:18:03 +0000590 bb_show_usage();
Eric Andersendd8500b2001-07-02 18:06:14 +0000591 return 1;
Eric Andersen3f980402001-04-04 17:31:15 +0000592 }
593 }
594
595 // The argv array can be used by the ":next" and ":rewind" commands
Dennis Groenenc0657e02012-01-31 14:12:38 +0100596 argv += optind;
597 argc -= optind;
Eric Andersen3f980402001-04-04 17:31:15 +0000598
599 //----- This is the main file handling loop --------------
Denys Vlasenko04b52892012-06-11 13:51:38 +0200600 save_argc = argc;
601 optind = 0;
Denys Vlasenkod3dff872012-06-11 13:53:26 +0200602 // "Save cursor, use alternate screen buffer, clear screen"
603 write1("\033[?1049h");
Denys Vlasenko04cecd52010-04-16 22:13:55 -0700604 while (1) {
605 edit_file(argv[optind]); /* param might be NULL */
606 if (++optind >= argc)
607 break;
Eric Andersen3f980402001-04-04 17:31:15 +0000608 }
Denys Vlasenkod3dff872012-06-11 13:53:26 +0200609 // "Use normal screen buffer, restore cursor"
610 write1("\033[?1049l");
Eric Andersen3f980402001-04-04 17:31:15 +0000611 //-----------------------------------------------------------
612
Denis Vlasenko079f8af2006-11-27 16:49:31 +0000613 return 0;
Eric Andersen3f980402001-04-04 17:31:15 +0000614}
615
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000616/* read text from file or create an empty buf */
617/* will also update current_filename */
618static int init_text_buffer(char *fn)
619{
620 int rc;
621 int size = file_size(fn); // file size. -1 means does not exist.
622
623 /* allocate/reallocate text buffer */
624 free(text);
Denis Vlasenkob1759462008-06-20 20:20:54 +0000625 text_size = size + 10240;
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000626 screenbegin = dot = end = text = xzalloc(text_size);
Denis Vlasenko2f6ae432007-07-19 22:50:47 +0000627
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000628 if (fn != current_filename) {
629 free(current_filename);
630 current_filename = xstrdup(fn);
631 }
632 if (size < 0) {
633 // file dont exist. Start empty buf with dummy line
634 char_insert(text, '\n');
635 rc = 0;
636 } else {
Denis Vlasenko4ae1e132008-11-19 13:25:14 +0000637 rc = file_insert(fn, text, 1);
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000638 }
639 file_modified = 0;
640 last_file_modified = -1;
641#if ENABLE_FEATURE_VI_YANKMARK
642 /* init the marks. */
643 memset(mark, 0, sizeof(mark));
644#endif
645 return rc;
Denis Vlasenko2f6ae432007-07-19 22:50:47 +0000646}
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000647
Denys Vlasenko2bb651a2010-04-16 20:55:52 -0700648#if ENABLE_FEATURE_VI_WIN_RESIZE
Denys Vlasenkoc5fb0ad2010-07-21 12:39:42 +0200649static int query_screen_dimensions(void)
Denys Vlasenko2bb651a2010-04-16 20:55:52 -0700650{
Denys Vlasenkoc5fb0ad2010-07-21 12:39:42 +0200651 int err = get_terminal_width_height(STDIN_FILENO, &columns, &rows);
Denys Vlasenko2bb651a2010-04-16 20:55:52 -0700652 if (rows > MAX_SCR_ROWS)
653 rows = MAX_SCR_ROWS;
654 if (columns > MAX_SCR_COLS)
655 columns = MAX_SCR_COLS;
Denys Vlasenkoc5fb0ad2010-07-21 12:39:42 +0200656 return err;
Denys Vlasenko2bb651a2010-04-16 20:55:52 -0700657}
658#else
Denys Vlasenkoc5fb0ad2010-07-21 12:39:42 +0200659# define query_screen_dimensions() (0)
Denys Vlasenko2bb651a2010-04-16 20:55:52 -0700660#endif
661
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000662static void edit_file(char *fn)
Eric Andersen3f980402001-04-04 17:31:15 +0000663{
Denis Vlasenkob1759462008-06-20 20:20:54 +0000664#if ENABLE_FEATURE_VI_YANKMARK
665#define cur_line edit_file__cur_line
666#endif
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +0000667 int c;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000668#if ENABLE_FEATURE_VI_USE_SIGNALS
Eric Andersen3f980402001-04-04 17:31:15 +0000669 int sig;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000670#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000671
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000672 editing = 1; // 0 = exit, 1 = one file, 2 = multiple files
Eric Andersen3f980402001-04-04 17:31:15 +0000673 rawmode();
674 rows = 24;
675 columns = 80;
Denys Vlasenkoc5fb0ad2010-07-21 12:39:42 +0200676 IF_FEATURE_VI_ASK_TERMINAL(G.get_rowcol_error =) query_screen_dimensions();
Denys Vlasenkoc175c462010-04-18 22:09:30 -0700677#if ENABLE_FEATURE_VI_ASK_TERMINAL
678 if (G.get_rowcol_error /* TODO? && no input on stdin */) {
679 uint64_t k;
680 write1("\033[999;999H" "\033[6n");
681 fflush_all();
682 k = read_key(STDIN_FILENO, readbuffer, /*timeout_ms:*/ 100);
683 if ((int32_t)k == KEYCODE_CURSOR_POS) {
684 uint32_t rc = (k >> 32);
685 columns = (rc & 0x7fff);
Denys Vlasenkoc5fb0ad2010-07-21 12:39:42 +0200686 if (columns > MAX_SCR_COLS)
687 columns = MAX_SCR_COLS;
Denys Vlasenkoc175c462010-04-18 22:09:30 -0700688 rows = ((rc >> 16) & 0x7fff);
Denys Vlasenkoc5fb0ad2010-07-21 12:39:42 +0200689 if (rows > MAX_SCR_ROWS)
690 rows = MAX_SCR_ROWS;
Denys Vlasenkoc175c462010-04-18 22:09:30 -0700691 }
Denys Vlasenkoc175c462010-04-18 22:09:30 -0700692 }
693#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000694 new_screen(rows, columns); // get memory for virtual screen
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000695 init_text_buffer(fn);
Eric Andersen3f980402001-04-04 17:31:15 +0000696
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000697#if ENABLE_FEATURE_VI_YANKMARK
Eric Andersen3f980402001-04-04 17:31:15 +0000698 YDreg = 26; // default Yank/Delete reg
699 Ureg = 27; // hold orig line for "U" cmd
Eric Andersen3f980402001-04-04 17:31:15 +0000700 mark[26] = mark[27] = text; // init "previous context"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000701#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000702
Eric Andersen3f980402001-04-04 17:31:15 +0000703 last_forward_char = last_input_char = '\0';
704 crow = 0;
705 ccol = 0;
Eric Andersen3f980402001-04-04 17:31:15 +0000706
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000707#if ENABLE_FEATURE_VI_USE_SIGNALS
Denys Vlasenko2bb651a2010-04-16 20:55:52 -0700708 signal(SIGINT, catch_sig);
Eric Andersen3f980402001-04-04 17:31:15 +0000709 signal(SIGWINCH, winch_sig);
710 signal(SIGTSTP, suspend_sig);
Paul Fox2724fa92008-03-17 15:28:07 +0000711 sig = sigsetjmp(restart, 1);
Eric Andersen3f980402001-04-04 17:31:15 +0000712 if (sig != 0) {
Eric Andersen1c0d3112001-04-16 15:46:44 +0000713 screenbegin = dot = text;
Eric Andersen3f980402001-04-04 17:31:15 +0000714 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000715#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000716
Eric Andersen3f980402001-04-04 17:31:15 +0000717 cmd_mode = 0; // 0=command 1=insert 2='R'eplace
718 cmdcnt = 0;
719 tabstop = 8;
720 offset = 0; // no horizontal offset
721 c = '\0';
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000722#if ENABLE_FEATURE_VI_DOT_CMD
Aaron Lehmanna170e1c2002-11-28 11:27:31 +0000723 free(ioq_start);
Paul Foxc51fc7b2008-03-06 01:34:23 +0000724 ioq = ioq_start = NULL;
725 lmc_len = 0;
Eric Andersen3f980402001-04-04 17:31:15 +0000726 adding2q = 0;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000727#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000728
Denis Vlasenko58875ae2007-03-22 22:22:10 +0000729#if ENABLE_FEATURE_VI_COLON
Denis Vlasenkof9234132007-03-21 00:03:42 +0000730 {
731 char *p, *q;
732 int n = 0;
733
Denys Vlasenko2bb651a2010-04-16 20:55:52 -0700734 while ((p = initial_cmds[n]) != NULL) {
Denis Vlasenkof9234132007-03-21 00:03:42 +0000735 do {
736 q = p;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000737 p = strchr(q, '\n');
Denis Vlasenkof9234132007-03-21 00:03:42 +0000738 if (p)
Denis Vlasenko51742f42007-04-12 00:32:05 +0000739 while (*p == '\n')
Denis Vlasenkof9234132007-03-21 00:03:42 +0000740 *p++ = '\0';
741 if (*q)
742 colon(q);
743 } while (p);
744 free(initial_cmds[n]);
745 initial_cmds[n] = NULL;
746 n++;
747 }
748 }
Denis Vlasenko58875ae2007-03-22 22:22:10 +0000749#endif
Paul Fox35e9c5d2008-03-06 16:26:12 +0000750 redraw(FALSE); // dont force every col re-draw
Eric Andersen3f980402001-04-04 17:31:15 +0000751 //------This is the main Vi cmd handling loop -----------------------
752 while (editing > 0) {
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000753#if ENABLE_FEATURE_VI_CRASHME
Eric Andersen3f980402001-04-04 17:31:15 +0000754 if (crashme > 0) {
755 if ((end - text) > 1) {
756 crash_dummy(); // generate a random command
757 } else {
758 crashme = 0;
Denis Vlasenko4ae1e132008-11-19 13:25:14 +0000759 string_insert(text, "\n\n##### Ran out of text to work on. #####\n\n"); // insert the string
760 dot = text;
Eric Andersen3f980402001-04-04 17:31:15 +0000761 refresh(FALSE);
762 }
763 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000764#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000765 last_input_char = c = get_one_char(); // get a cmd from user
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000766#if ENABLE_FEATURE_VI_YANKMARK
Eric Andersen3f980402001-04-04 17:31:15 +0000767 // save a copy of the current line- for the 'U" command
768 if (begin_line(dot) != cur_line) {
769 cur_line = begin_line(dot);
770 text_yank(begin_line(dot), end_line(dot), Ureg);
771 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000772#endif
773#if ENABLE_FEATURE_VI_DOT_CMD
Eric Andersen3f980402001-04-04 17:31:15 +0000774 // These are commands that change text[].
775 // Remember the input for the "." command
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000776 if (!adding2q && ioq_start == NULL
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +0000777 && cmd_mode == 0 // command mode
778 && c > '\0' // exclude NUL and non-ASCII chars
779 && c < 0x7f // (Unicode and such)
780 && strchr(modifying_cmds, c)
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000781 ) {
Eric Andersen3f980402001-04-04 17:31:15 +0000782 start_new_cmd_q(c);
783 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000784#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000785 do_cmd(c); // execute the user command
Denis Vlasenko8ef801b2008-10-16 09:46:07 +0000786
Eric Andersen3f980402001-04-04 17:31:15 +0000787 // poll to see if there is input already waiting. if we are
788 // not able to display output fast enough to keep up, skip
789 // the display update until we catch up with input.
Denys Vlasenko020f4062009-05-17 16:44:54 +0200790 if (!readbuffer[0] && mysleep(0) == 0) {
Denis Vlasenko8ef801b2008-10-16 09:46:07 +0000791 // no input pending - so update output
Eric Andersen3f980402001-04-04 17:31:15 +0000792 refresh(FALSE);
793 show_status_line();
794 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000795#if ENABLE_FEATURE_VI_CRASHME
Eric Andersen3f980402001-04-04 17:31:15 +0000796 if (crashme > 0)
797 crash_test(); // test editor variables
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000798#endif
Eric Andersen3f980402001-04-04 17:31:15 +0000799 }
800 //-------------------------------------------------------------------
801
Denis Vlasenko267e16c2008-10-14 10:34:41 +0000802 go_bottom_and_clear_to_eol();
Eric Andersen3f980402001-04-04 17:31:15 +0000803 cookmode();
Denis Vlasenkob1759462008-06-20 20:20:54 +0000804#undef cur_line
Eric Andersen3f980402001-04-04 17:31:15 +0000805}
806
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000807//----- The Colon commands -------------------------------------
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000808#if ENABLE_FEATURE_VI_COLON
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000809static char *get_one_address(char *p, int *addr) // get colon addr, if present
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000810{
811 int st;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000812 char *q;
Denis Vlasenko5e34ff22009-04-21 11:09:40 +0000813 IF_FEATURE_VI_YANKMARK(char c;)
814 IF_FEATURE_VI_SEARCH(char *pat;)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000815
816 *addr = -1; // assume no addr
817 if (*p == '.') { // the current line
818 p++;
819 q = begin_line(dot);
820 *addr = count_lines(text, q);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000821 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000822#if ENABLE_FEATURE_VI_YANKMARK
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000823 else if (*p == '\'') { // is this a mark addr
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000824 p++;
825 c = tolower(*p);
826 p++;
827 if (c >= 'a' && c <= 'z') {
828 // we have a mark
829 c = c - 'a';
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000830 q = mark[(unsigned char) c];
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000831 if (q != NULL) { // is mark valid
Denis Vlasenko00d84172008-11-24 07:34:42 +0000832 *addr = count_lines(text, q);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000833 }
834 }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000835 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000836#endif
837#if ENABLE_FEATURE_VI_SEARCH
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000838 else if (*p == '/') { // a search pattern
839 q = strchrnul(++p, '/');
840 pat = xstrndup(p, q - p); // save copy of pattern
841 p = q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000842 if (*p == '/')
843 p++;
844 q = char_search(dot, pat, FORWARD, FULL);
845 if (q != NULL) {
846 *addr = count_lines(text, q);
847 }
848 free(pat);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000849 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000850#endif
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000851 else if (*p == '$') { // the last line in file
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000852 p++;
853 q = begin_line(end - 1);
854 *addr = count_lines(text, q);
855 } else if (isdigit(*p)) { // specific line number
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000856 sscanf(p, "%d%n", addr, &st);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000857 p += st;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000858 } else {
Denys Vlasenkob22bbff2009-07-04 16:50:43 +0200859 // unrecognized address - assume -1
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000860 *addr = -1;
861 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +0000862 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000863}
864
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000865static char *get_address(char *p, int *b, int *e) // get two colon addrs, if present
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000866{
867 //----- get the address' i.e., 1,3 'a,'b -----
868 // get FIRST addr, if present
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000869 while (isblank(*p))
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000870 p++; // skip over leading spaces
871 if (*p == '%') { // alias for 1,$
872 p++;
873 *b = 1;
874 *e = count_lines(text, end-1);
875 goto ga0;
876 }
877 p = get_one_address(p, b);
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000878 while (isblank(*p))
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000879 p++;
Eric Andersenaff114c2004-04-14 17:51:38 +0000880 if (*p == ',') { // is there a address separator
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000881 p++;
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000882 while (isblank(*p))
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000883 p++;
884 // get SECOND addr, if present
885 p = get_one_address(p, e);
886 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000887 ga0:
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000888 while (isblank(*p))
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000889 p++; // skip over trailing spaces
Denis Vlasenko079f8af2006-11-27 16:49:31 +0000890 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000891}
892
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +0000893#if ENABLE_FEATURE_VI_SET && ENABLE_FEATURE_VI_SETOPTS
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000894static void setops(const char *args, const char *opname, int flg_no,
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000895 const char *short_opname, int opt)
896{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000897 const char *a = args + flg_no;
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000898 int l = strlen(opname) - 1; /* opname have + ' ' */
899
Denys Vlasenko6548edd2009-06-15 12:44:11 +0200900 // maybe strncmp? we had tons of erroneous strncasecmp's...
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000901 if (strncasecmp(a, opname, l) == 0
902 || strncasecmp(a, short_opname, 2) == 0
903 ) {
904 if (flg_no)
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000905 vi_setops &= ~opt;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000906 else
Glenn L McGrath09adaca2002-12-02 21:18:10 +0000907 vi_setops |= opt;
908 }
909}
910#endif
911
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000912// buf must be no longer than MAX_INPUT_LEN!
913static void colon(char *buf)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000914{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000915 char c, *orig_buf, *buf1, *q, *r;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000916 char *fn, cmd[MAX_INPUT_LEN], args[MAX_INPUT_LEN];
Bernhard Reutner-Fischerd591a362006-08-20 17:35:13 +0000917 int i, l, li, ch, b, e;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000918 int useforce, forced = FALSE;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000919
920 // :3154 // if (-e line 3154) goto it else stay put
921 // :4,33w! foo // write a portion of buffer to file "foo"
922 // :w // write all of buffer to current file
923 // :q // quit
924 // :q! // quit- dont care about modified file
925 // :'a,'z!sort -u // filter block through sort
926 // :'f // goto mark "f"
927 // :'fl // list literal the mark "f" line
928 // :.r bar // read file "bar" into buffer before dot
929 // :/123/,/abc/d // delete lines from "123" line to "abc" line
930 // :/xyz/ // goto the "xyz" line
931 // :s/find/replace/ // substitute pattern "find" with "replace"
932 // :!<cmd> // run <cmd> then return
933 //
Eric Andersen165e8cb2004-07-20 06:44:46 +0000934
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000935 if (!buf[0])
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +0200936 goto ret;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000937 if (*buf == ':')
938 buf++; // move past the ':'
939
Bernhard Reutner-Fischerd591a362006-08-20 17:35:13 +0000940 li = ch = i = 0;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000941 b = e = -1;
942 q = text; // assume 1,$ for the range
943 r = end - 1;
944 li = count_lines(text, end - 1);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000945 fn = current_filename;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000946
947 // look for optional address(es) :. :1 :1,9 :'q,'a :%
948 buf = get_address(buf, &b, &e);
949
950 // remember orig command line
951 orig_buf = buf;
952
953 // get the COMMAND into cmd[]
954 buf1 = cmd;
955 while (*buf != '\0') {
956 if (isspace(*buf))
957 break;
958 *buf1++ = *buf++;
959 }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000960 *buf1 = '\0';
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000961 // get any ARGuments
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000962 while (isblank(*buf))
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000963 buf++;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000964 strcpy(args, buf);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +0000965 useforce = FALSE;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000966 buf1 = last_char_is(cmd, '!');
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000967 if (buf1) {
968 useforce = TRUE;
969 *buf1 = '\0'; // get rid of !
970 }
971 if (b >= 0) {
972 // if there is only one addr, then the addr
973 // is the line number of the single line the
974 // user wants. So, reset the end
975 // pointer to point at end of the "b" line
976 q = find_line(b); // what line is #b
977 r = end_line(q);
978 li = 1;
979 }
980 if (e >= 0) {
981 // we were given two addrs. change the
982 // end pointer to the addr given by user.
983 r = find_line(e); // what line is #e
984 r = end_line(r);
985 li = e - b + 1;
986 }
987 // ------------ now look for the command ------------
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +0000988 i = strlen(cmd);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000989 if (i == 0) { // :123CR goto line #123
990 if (b >= 0) {
991 dot = find_line(b); // what line is #b
992 dot_skip_over_ws();
993 }
Denis Vlasenko249fabf2006-12-19 00:29:22 +0000994 }
995#if ENABLE_FEATURE_ALLOW_EXEC
Denys Vlasenko6548edd2009-06-15 12:44:11 +0200996 else if (cmd[0] == '!') { // run a cmd
Denis Vlasenkoeaabf062007-07-17 23:14:07 +0000997 int retcode;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +0000998 // :!ls run the <cmd>
Denis Vlasenko267e16c2008-10-14 10:34:41 +0000999 go_bottom_and_clear_to_eol();
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001000 cookmode();
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001001 retcode = system(orig_buf + 1); // run the cmd
1002 if (retcode)
1003 printf("\nshell returned %i\n\n", retcode);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001004 rawmode();
1005 Hit_Return(); // let user see results
Denis Vlasenko249fabf2006-12-19 00:29:22 +00001006 }
1007#endif
Denys Vlasenko6548edd2009-06-15 12:44:11 +02001008 else if (cmd[0] == '=' && !cmd[1]) { // where is the address
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001009 if (b < 0) { // no addr given- use defaults
1010 b = e = count_lines(text, dot);
1011 }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001012 status_line("%d", b);
Denys Vlasenko6548edd2009-06-15 12:44:11 +02001013 } else if (strncmp(cmd, "delete", i) == 0) { // delete lines
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001014 if (b < 0) { // no addr given- use defaults
1015 q = begin_line(dot); // assume .,. for the range
1016 r = end_line(dot);
1017 }
1018 dot = yank_delete(q, r, 1, YANKDEL); // save, then delete lines
1019 dot_skip_over_ws();
Denys Vlasenko6548edd2009-06-15 12:44:11 +02001020 } else if (strncmp(cmd, "edit", i) == 0) { // Edit a file
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001021 // don't edit, if the current file has been modified
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001022 if (file_modified && !useforce) {
Dennis Groenenc0657e02012-01-31 14:12:38 +01001023 status_line_bold("No write since last change (:%s! overrides)", cmd);
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001024 goto ret;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001025 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001026 if (args[0]) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001027 // the user supplied a file name
Denis Vlasenkoe8a07882007-06-10 15:08:44 +00001028 fn = args;
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001029 } else if (current_filename && current_filename[0]) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001030 // no user supplied name- use the current filename
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001031 // fn = current_filename; was set by default
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001032 } else {
1033 // no user file name, no current name- punt
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001034 status_line_bold("No current filename");
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001035 goto ret;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001036 }
1037
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001038 if (init_text_buffer(fn) < 0)
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001039 goto ret;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001040
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001041#if ENABLE_FEATURE_VI_YANKMARK
Denys Vlasenko800a9a02012-01-31 14:10:26 +01001042 if (Ureg >= 0 && Ureg < 28) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001043 free(reg[Ureg]); // free orig line reg- for 'U'
Denys Vlasenko800a9a02012-01-31 14:10:26 +01001044 reg[Ureg] = NULL;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001045 }
Denys Vlasenko800a9a02012-01-31 14:10:26 +01001046 if (YDreg >= 0 && YDreg < 28) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001047 free(reg[YDreg]); // free default yank/delete register
Denys Vlasenko800a9a02012-01-31 14:10:26 +01001048 reg[YDreg] = NULL;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001049 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001050#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001051 // how many lines in text[]?
1052 li = count_lines(text, end - 1);
Denys Vlasenko778794d2013-01-22 10:13:52 +01001053 status_line("'%s'%s"
Denis Vlasenko5e34ff22009-04-21 11:09:40 +00001054 IF_FEATURE_VI_READONLY("%s")
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001055 " %dL, %dC", current_filename,
1056 (file_size(fn) < 0 ? " [New file]" : ""),
Denis Vlasenko5e34ff22009-04-21 11:09:40 +00001057 IF_FEATURE_VI_READONLY(
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001058 ((readonly_mode) ? " [Readonly]" : ""),
1059 )
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001060 li, ch);
Denys Vlasenko6548edd2009-06-15 12:44:11 +02001061 } else if (strncmp(cmd, "file", i) == 0) { // what File is this
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001062 if (b != -1 || e != -1) {
Denys Vlasenkoc2704542009-11-20 19:14:19 +01001063 status_line_bold("No address allowed on this command");
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001064 goto ret;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001065 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001066 if (args[0]) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001067 // user wants a new filename
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001068 free(current_filename);
1069 current_filename = xstrdup(args);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001070 } else {
1071 // user wants file status info
Paul Fox8552aec2005-09-16 12:20:05 +00001072 last_status_cksum = 0; // force status update
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001073 }
Denys Vlasenko6548edd2009-06-15 12:44:11 +02001074 } else if (strncmp(cmd, "features", i) == 0) { // what features are available
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001075 // print out values of all features
Denis Vlasenko267e16c2008-10-14 10:34:41 +00001076 go_bottom_and_clear_to_eol();
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001077 cookmode();
1078 show_help();
1079 rawmode();
1080 Hit_Return();
Denys Vlasenko6548edd2009-06-15 12:44:11 +02001081 } else if (strncmp(cmd, "list", i) == 0) { // literal print line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001082 if (b < 0) { // no addr given- use defaults
1083 q = begin_line(dot); // assume .,. for the range
1084 r = end_line(dot);
1085 }
Denis Vlasenko267e16c2008-10-14 10:34:41 +00001086 go_bottom_and_clear_to_eol();
Glenn L McGrath09adaca2002-12-02 21:18:10 +00001087 puts("\r");
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001088 for (; q <= r; q++) {
Glenn L McGrath09adaca2002-12-02 21:18:10 +00001089 int c_is_no_print;
1090
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001091 c = *q;
Denis Vlasenko2a51af22007-03-21 22:31:24 +00001092 c_is_no_print = (c & 0x80) && !Isprint(c);
Glenn L McGrath09adaca2002-12-02 21:18:10 +00001093 if (c_is_no_print) {
1094 c = '.';
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001095 standout_start();
Denis Vlasenkod3c042f2007-12-30 01:59:53 +00001096 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001097 if (c == '\n') {
Glenn L McGrath09adaca2002-12-02 21:18:10 +00001098 write1("$\r");
1099 } else if (c < ' ' || c == 127) {
Denis Vlasenko4daad902007-09-27 10:20:47 +00001100 bb_putchar('^');
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001101 if (c == 127)
Glenn L McGrath09adaca2002-12-02 21:18:10 +00001102 c = '?';
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001103 else
1104 c += '@';
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001105 }
Denis Vlasenko4daad902007-09-27 10:20:47 +00001106 bb_putchar(c);
Glenn L McGrath09adaca2002-12-02 21:18:10 +00001107 if (c_is_no_print)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001108 standout_end();
1109 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001110 Hit_Return();
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001111 } else if (strncmp(cmd, "quit", i) == 0 // quit
Denys Vlasenko6548edd2009-06-15 12:44:11 +02001112 || strncmp(cmd, "next", i) == 0 // edit next file
Dennis Groenenc0657e02012-01-31 14:12:38 +01001113 || strncmp(cmd, "prev", i) == 0 // edit previous file
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001114 ) {
Denys Vlasenko04cecd52010-04-16 22:13:55 -07001115 int n;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001116 if (useforce) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001117 if (*cmd == 'q') {
Dennis Groenenc0657e02012-01-31 14:12:38 +01001118 // force end of argv list
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001119 optind = save_argc;
1120 }
1121 editing = 0;
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001122 goto ret;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001123 }
1124 // don't exit if the file been modified
1125 if (file_modified) {
Dennis Groenenc0657e02012-01-31 14:12:38 +01001126 status_line_bold("No write since last change (:%s! overrides)", cmd);
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001127 goto ret;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001128 }
1129 // are there other file to edit
Denys Vlasenko04cecd52010-04-16 22:13:55 -07001130 n = save_argc - optind - 1;
1131 if (*cmd == 'q' && n > 0) {
1132 status_line_bold("%d more file(s) to edit", n);
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001133 goto ret;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001134 }
Denys Vlasenko04cecd52010-04-16 22:13:55 -07001135 if (*cmd == 'n' && n <= 0) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001136 status_line_bold("No more files to edit");
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001137 goto ret;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001138 }
Dennis Groenenc0657e02012-01-31 14:12:38 +01001139 if (*cmd == 'p') {
1140 // are there previous files to edit
1141 if (optind < 1) {
1142 status_line_bold("No previous files to edit");
1143 goto ret;
1144 }
1145 optind -= 2;
1146 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001147 editing = 0;
Denys Vlasenko6548edd2009-06-15 12:44:11 +02001148 } else if (strncmp(cmd, "read", i) == 0) { // read file into text[]
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001149 fn = args;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001150 if (!fn[0]) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001151 status_line_bold("No filename given");
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001152 goto ret;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001153 }
1154 if (b < 0) { // no addr given- use defaults
1155 q = begin_line(dot); // assume "dot"
1156 }
1157 // read after current line- unless user said ":0r foo"
1158 if (b != 0)
1159 q = next_line(q);
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00001160 { // dance around potentially-reallocated text[]
1161 uintptr_t ofs = q - text;
1162 ch = file_insert(fn, q, 0);
1163 q = text + ofs;
1164 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001165 if (ch < 0)
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001166 goto ret; // nothing was inserted
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001167 // how many lines in text[]?
1168 li = count_lines(q, q + ch - 1);
Denys Vlasenko778794d2013-01-22 10:13:52 +01001169 status_line("'%s'"
Denis Vlasenko5e34ff22009-04-21 11:09:40 +00001170 IF_FEATURE_VI_READONLY("%s")
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001171 " %dL, %dC", fn,
Denis Vlasenko5e34ff22009-04-21 11:09:40 +00001172 IF_FEATURE_VI_READONLY((readonly_mode ? " [Readonly]" : ""),)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001173 li, ch);
1174 if (ch > 0) {
1175 // if the insert is before "dot" then we need to update
1176 if (q <= dot)
1177 dot += ch;
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00001178 /*file_modified++; - done by file_insert */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001179 }
Denys Vlasenko6548edd2009-06-15 12:44:11 +02001180 } else if (strncmp(cmd, "rewind", i) == 0) { // rewind cmd line args
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001181 if (file_modified && !useforce) {
Dennis Groenenc0657e02012-01-31 14:12:38 +01001182 status_line_bold("No write since last change (:%s! overrides)", cmd);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001183 } else {
1184 // reset the filenames to edit
Dennis Groenenc0657e02012-01-31 14:12:38 +01001185 optind = -1; /* start from 0th file */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001186 editing = 0;
1187 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001188#if ENABLE_FEATURE_VI_SET
Denys Vlasenko6548edd2009-06-15 12:44:11 +02001189 } else if (strncmp(cmd, "set", i) == 0) { // set or clear features
Denis Vlasenko58875ae2007-03-22 22:22:10 +00001190#if ENABLE_FEATURE_VI_SETOPTS
Denis Vlasenkof9234132007-03-21 00:03:42 +00001191 char *argp;
Denis Vlasenko58875ae2007-03-22 22:22:10 +00001192#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001193 i = 0; // offset into args
Denys Vlasenko605f2642012-06-11 01:53:33 +02001194 // only blank is regarded as args delimiter. What about tab '\t'?
Denis Vlasenkof9234132007-03-21 00:03:42 +00001195 if (!args[0] || strcasecmp(args, "all") == 0) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001196 // print out values of all options
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001197#if ENABLE_FEATURE_VI_SETOPTS
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001198 status_line_bold(
1199 "%sautoindent "
1200 "%sflash "
1201 "%signorecase "
1202 "%sshowmatch "
1203 "tabstop=%u",
1204 autoindent ? "" : "no",
1205 err_method ? "" : "no",
1206 ignorecase ? "" : "no",
1207 showmatch ? "" : "no",
1208 tabstop
1209 );
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001210#endif
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001211 goto ret;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001212 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001213#if ENABLE_FEATURE_VI_SETOPTS
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001214 argp = args;
Denis Vlasenkoba2fb712007-04-01 09:39:03 +00001215 while (*argp) {
Denys Vlasenko6548edd2009-06-15 12:44:11 +02001216 if (strncmp(argp, "no", 2) == 0)
Denis Vlasenkof9234132007-03-21 00:03:42 +00001217 i = 2; // ":set noautoindent"
1218 setops(argp, "autoindent ", i, "ai", VI_AUTOINDENT);
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001219 setops(argp, "flash " , i, "fl", VI_ERR_METHOD);
Denis Vlasenkof9234132007-03-21 00:03:42 +00001220 setops(argp, "ignorecase ", i, "ic", VI_IGNORECASE);
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001221 setops(argp, "showmatch " , i, "sm", VI_SHOWMATCH );
1222 if (strncmp(argp + i, "tabstop=", 8) == 0) {
1223 int t = 0;
1224 sscanf(argp + i+8, "%u", &t);
1225 if (t > 0 && t <= MAX_TABSTOP)
1226 tabstop = t;
Denis Vlasenkof9234132007-03-21 00:03:42 +00001227 }
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001228 argp = skip_non_whitespace(argp);
1229 argp = skip_whitespace(argp);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001230 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001231#endif /* FEATURE_VI_SETOPTS */
1232#endif /* FEATURE_VI_SET */
1233#if ENABLE_FEATURE_VI_SEARCH
Denys Vlasenko6548edd2009-06-15 12:44:11 +02001234 } else if (cmd[0] == 's') { // substitute a pattern with a replacement pattern
Denys Vlasenko800a9a02012-01-31 14:10:26 +01001235 char *F, *R, *flags;
1236 size_t len_F, len_R;
1237 int gflag; // global replace flag
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001238
1239 // F points to the "find" pattern
1240 // R points to the "replace" pattern
Denys Vlasenko800a9a02012-01-31 14:10:26 +01001241 // replace the cmd line delimiters "/" with NULs
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001242 c = orig_buf[1]; // what is the delimiter
1243 F = orig_buf + 2; // start of "find"
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001244 R = strchr(F, c); // middle delimiter
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00001245 if (!R)
1246 goto colon_s_fail;
Denys Vlasenko800a9a02012-01-31 14:10:26 +01001247 len_F = R - F;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001248 *R++ = '\0'; // terminate "find"
Denys Vlasenko800a9a02012-01-31 14:10:26 +01001249 flags = strchr(R, c);
1250 if (!flags)
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00001251 goto colon_s_fail;
Denys Vlasenko800a9a02012-01-31 14:10:26 +01001252 len_R = flags - R;
1253 *flags++ = '\0'; // terminate "replace"
1254 gflag = *flags;
1255
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001256 q = begin_line(q);
1257 if (b < 0) { // maybe :s/foo/bar/
Denys Vlasenko800a9a02012-01-31 14:10:26 +01001258 q = begin_line(dot); // start with cur line
1259 b = count_lines(text, q); // cur line number
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001260 }
1261 if (e < 0)
1262 e = b; // maybe :.s/foo/bar/
Denys Vlasenko800a9a02012-01-31 14:10:26 +01001263
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001264 for (i = b; i <= e; i++) { // so, :20,23 s \0 find \0 replace \0
Denys Vlasenko800a9a02012-01-31 14:10:26 +01001265 char *ls = q; // orig line start
1266 char *found;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001267 vc4:
Denys Vlasenko800a9a02012-01-31 14:10:26 +01001268 found = char_search(q, F, FORWARD, LIMITED); // search cur line only for "find"
1269 if (found) {
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00001270 uintptr_t bias;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001271 // we found the "find" pattern - delete it
Denys Vlasenko800a9a02012-01-31 14:10:26 +01001272 text_hole_delete(found, found + len_F - 1);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001273 // inset the "replace" patern
Denys Vlasenko800a9a02012-01-31 14:10:26 +01001274 bias = string_insert(found, R); // insert the string
1275 found += bias;
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00001276 ls += bias;
1277 /*q += bias; - recalculated anyway */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001278 // check for "global" :s/foo/bar/g
Denys Vlasenko800a9a02012-01-31 14:10:26 +01001279 if (gflag == 'g') {
1280 if ((found + len_R) < end_line(ls)) {
1281 q = found + len_R;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001282 goto vc4; // don't let q move past cur line
1283 }
1284 }
1285 }
1286 q = next_line(ls);
1287 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001288#endif /* FEATURE_VI_SEARCH */
Denys Vlasenko6548edd2009-06-15 12:44:11 +02001289 } else if (strncmp(cmd, "version", i) == 0) { // show software version
Denis Vlasenko33875382008-06-21 20:31:50 +00001290 status_line(BB_VER " " BB_BT);
Denys Vlasenko6548edd2009-06-15 12:44:11 +02001291 } else if (strncmp(cmd, "write", i) == 0 // write text to file
1292 || strncmp(cmd, "wq", i) == 0
1293 || strncmp(cmd, "wn", i) == 0
1294 || (cmd[0] == 'x' && !cmd[1])
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001295 ) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001296 // is there a file name to write to?
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001297 if (args[0]) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001298 fn = args;
1299 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001300#if ENABLE_FEATURE_VI_READONLY
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001301 if (readonly_mode && !useforce) {
Denys Vlasenko778794d2013-01-22 10:13:52 +01001302 status_line_bold("'%s' is read only", fn);
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001303 goto ret;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001304 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001305#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001306 // how many lines in text[]?
1307 li = count_lines(q, r);
1308 ch = r - q + 1;
1309 // see if file exists- if not, its just a new file request
1310 if (useforce) {
1311 // if "fn" is not write-able, chmod u+w
1312 // sprintf(syscmd, "chmod u+w %s", fn);
1313 // system(syscmd);
1314 forced = TRUE;
1315 }
1316 l = file_write(fn, q, r);
1317 if (useforce && forced) {
1318 // chmod u-w
1319 // sprintf(syscmd, "chmod u-w %s", fn);
1320 // system(syscmd);
1321 forced = FALSE;
1322 }
Paul Fox61e45db2005-10-09 14:43:22 +00001323 if (l < 0) {
1324 if (l == -1)
Denys Vlasenko9e7c0022013-03-15 02:17:29 +01001325 status_line_bold_errno(fn);
Paul Fox61e45db2005-10-09 14:43:22 +00001326 } else {
Denys Vlasenko778794d2013-01-22 10:13:52 +01001327 status_line("'%s' %dL, %dC", fn, li, l);
Paul Fox61e45db2005-10-09 14:43:22 +00001328 if (q == text && r == end - 1 && l == ch) {
1329 file_modified = 0;
1330 last_file_modified = -1;
1331 }
Denys Vlasenko6b9f1632010-01-28 02:24:24 +01001332 if ((cmd[0] == 'x' || cmd[1] == 'q' || cmd[1] == 'n'
1333 || cmd[0] == 'X' || cmd[1] == 'Q' || cmd[1] == 'N'
1334 )
1335 && l == ch
1336 ) {
Paul Fox61e45db2005-10-09 14:43:22 +00001337 editing = 0;
1338 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001339 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001340#if ENABLE_FEATURE_VI_YANKMARK
Denys Vlasenko6548edd2009-06-15 12:44:11 +02001341 } else if (strncmp(cmd, "yank", i) == 0) { // yank lines
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001342 if (b < 0) { // no addr given- use defaults
1343 q = begin_line(dot); // assume .,. for the range
1344 r = end_line(dot);
1345 }
1346 text_yank(q, r, YDreg);
1347 li = count_lines(q, r);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001348 status_line("Yank %d lines (%d chars) into [%c]",
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001349 li, strlen(reg[YDreg]), what_reg());
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001350#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001351 } else {
1352 // cmd unknown
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001353 not_implemented(cmd);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001354 }
Denys Vlasenko9f82d0b2010-05-19 01:54:37 +02001355 ret:
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001356 dot = bound_dot(dot); // make sure "dot" is valid
1357 return;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001358#if ENABLE_FEATURE_VI_SEARCH
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001359 colon_s_fail:
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001360 status_line(":s expression missing delimiters");
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001361#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001362}
Paul Fox61e45db2005-10-09 14:43:22 +00001363
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001364#endif /* FEATURE_VI_COLON */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001365
1366static void Hit_Return(void)
1367{
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00001368 int c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001369
Denis Vlasenkof882f082007-12-23 02:36:51 +00001370 standout_start();
Glenn L McGrath09adaca2002-12-02 21:18:10 +00001371 write1("[Hit return to continue]");
Denis Vlasenkof882f082007-12-23 02:36:51 +00001372 standout_end();
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001373 while ((c = get_one_char()) != '\n' && c != '\r')
1374 continue;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001375 redraw(TRUE); // force redraw all
1376}
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001377
Denis Vlasenko91afdf82007-07-17 23:22:49 +00001378static int next_tabstop(int col)
1379{
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001380 return col + ((tabstop - 1) - (col % tabstop));
1381}
1382
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001383//----- Synchronize the cursor to Dot --------------------------
Denys Vlasenkoadf922e2009-10-08 14:35:37 +02001384static NOINLINE void sync_cursor(char *d, int *row, int *col)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001385{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001386 char *beg_cur; // begin and end of "d" line
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001387 char *tp;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001388 int cnt, ro, co;
1389
1390 beg_cur = begin_line(d); // first char of cur line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001391
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001392 if (beg_cur < screenbegin) {
Denis Vlasenkof882f082007-12-23 02:36:51 +00001393 // "d" is before top line on screen
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001394 // how many lines do we have to move
1395 cnt = count_lines(beg_cur, screenbegin);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001396 sc1:
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001397 screenbegin = beg_cur;
1398 if (cnt > (rows - 1) / 2) {
1399 // we moved too many lines. put "dot" in middle of screen
1400 for (cnt = 0; cnt < (rows - 1) / 2; cnt++) {
1401 screenbegin = prev_line(screenbegin);
1402 }
1403 }
Denis Vlasenkof882f082007-12-23 02:36:51 +00001404 } else {
1405 char *end_scr; // begin and end of screen
1406 end_scr = end_screen(); // last char of screen
1407 if (beg_cur > end_scr) {
1408 // "d" is after bottom line on screen
1409 // how many lines do we have to move
1410 cnt = count_lines(end_scr, beg_cur);
1411 if (cnt > (rows - 1) / 2)
1412 goto sc1; // too many lines
1413 for (ro = 0; ro < cnt - 1; ro++) {
1414 // move screen begin the same amount
1415 screenbegin = next_line(screenbegin);
1416 // now, move the end of screen
1417 end_scr = next_line(end_scr);
1418 end_scr = end_line(end_scr);
1419 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001420 }
1421 }
1422 // "d" is on screen- find out which row
1423 tp = screenbegin;
1424 for (ro = 0; ro < rows - 1; ro++) { // drive "ro" to correct row
1425 if (tp == beg_cur)
1426 break;
1427 tp = next_line(tp);
1428 }
1429
1430 // find out what col "d" is on
1431 co = 0;
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00001432 while (tp < d) { // drive "co" to correct column
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001433 if (*tp == '\n') //vda || *tp == '\0')
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001434 break;
1435 if (*tp == '\t') {
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00001436 // handle tabs like real vi
1437 if (d == tp && cmd_mode) {
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001438 break;
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001439 }
Denis Vlasenkoe3eae0d2008-06-22 16:38:53 +00001440 co = next_tabstop(co);
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00001441 } else if ((unsigned char)*tp < ' ' || *tp == 0x7f) {
1442 co++; // display as ^X, use 2 columns
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001443 }
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00001444 co++;
1445 tp++;
1446 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001447
1448 // "co" is the column where "dot" is.
1449 // The screen has "columns" columns.
1450 // The currently displayed columns are 0+offset -- columns+ofset
1451 // |-------------------------------------------------------------|
1452 // ^ ^ ^
1453 // offset | |------- columns ----------------|
1454 //
1455 // If "co" is already in this range then we do not have to adjust offset
1456 // but, we do have to subtract the "offset" bias from "co".
1457 // If "co" is outside this range then we have to change "offset".
1458 // If the first char of a line is a tab the cursor will try to stay
1459 // in column 7, but we have to set offset to 0.
1460
1461 if (co < 0 + offset) {
1462 offset = co;
1463 }
1464 if (co >= columns + offset) {
1465 offset = co - columns + 1;
1466 }
1467 // if the first char of the line is a tab, and "dot" is sitting on it
1468 // force offset to 0.
1469 if (d == beg_cur && *d == '\t') {
1470 offset = 0;
1471 }
1472 co -= offset;
1473
1474 *row = ro;
1475 *col = co;
1476}
1477
1478//----- Text Movement Routines ---------------------------------
Denis Vlasenkof882f082007-12-23 02:36:51 +00001479static char *begin_line(char *p) // return pointer to first char cur line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001480{
Denis Vlasenkof882f082007-12-23 02:36:51 +00001481 if (p > text) {
1482 p = memrchr(text, '\n', p - text);
1483 if (!p)
1484 return text;
1485 return p + 1;
1486 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001487 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001488}
1489
Denis Vlasenkoe3eae0d2008-06-22 16:38:53 +00001490static char *end_line(char *p) // return pointer to NL of cur line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001491{
Denis Vlasenkof882f082007-12-23 02:36:51 +00001492 if (p < end - 1) {
1493 p = memchr(p, '\n', end - p - 1);
1494 if (!p)
1495 return end - 1;
1496 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001497 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001498}
1499
Denis Vlasenkof882f082007-12-23 02:36:51 +00001500static char *dollar_line(char *p) // return pointer to just before NL line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001501{
Denis Vlasenkof882f082007-12-23 02:36:51 +00001502 p = end_line(p);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001503 // Try to stay off of the Newline
1504 if (*p == '\n' && (p - begin_line(p)) > 0)
1505 p--;
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001506 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001507}
1508
Denis Vlasenkof882f082007-12-23 02:36:51 +00001509static char *prev_line(char *p) // return pointer first char prev line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001510{
1511 p = begin_line(p); // goto begining of cur line
Denis Vlasenkoe3eae0d2008-06-22 16:38:53 +00001512 if (p > text && p[-1] == '\n')
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001513 p--; // step to prev line
1514 p = begin_line(p); // goto begining of prev line
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001515 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001516}
1517
Denis Vlasenkof882f082007-12-23 02:36:51 +00001518static char *next_line(char *p) // return pointer first char next line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001519{
1520 p = end_line(p);
Denis Vlasenkoe3eae0d2008-06-22 16:38:53 +00001521 if (p < end - 1 && *p == '\n')
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001522 p++; // step to next line
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001523 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001524}
1525
1526//----- Text Information Routines ------------------------------
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001527static char *end_screen(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001528{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001529 char *q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001530 int cnt;
1531
1532 // find new bottom line
1533 q = screenbegin;
1534 for (cnt = 0; cnt < rows - 2; cnt++)
1535 q = next_line(q);
1536 q = end_line(q);
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001537 return q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001538}
1539
Denis Vlasenkof882f082007-12-23 02:36:51 +00001540// count line from start to stop
1541static int count_lines(char *start, char *stop)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001542{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001543 char *q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001544 int cnt;
1545
Denis Vlasenkof882f082007-12-23 02:36:51 +00001546 if (stop < start) { // start and stop are backwards- reverse them
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001547 q = start;
1548 start = stop;
1549 stop = q;
1550 }
1551 cnt = 0;
Denis Vlasenkof882f082007-12-23 02:36:51 +00001552 stop = end_line(stop);
1553 while (start <= stop && start <= end - 1) {
1554 start = end_line(start);
1555 if (*start == '\n')
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001556 cnt++;
Denis Vlasenkof882f082007-12-23 02:36:51 +00001557 start++;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001558 }
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00001559 return cnt;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001560}
1561
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001562static char *find_line(int li) // find begining of line #li
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001563{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001564 char *q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001565
1566 for (q = text; li > 1; li--) {
1567 q = next_line(q);
1568 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001569 return q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001570}
1571
1572//----- Dot Movement Routines ----------------------------------
1573static void dot_left(void)
1574{
1575 if (dot > text && dot[-1] != '\n')
1576 dot--;
1577}
1578
1579static void dot_right(void)
1580{
1581 if (dot < end - 1 && *dot != '\n')
1582 dot++;
1583}
1584
1585static void dot_begin(void)
1586{
1587 dot = begin_line(dot); // return pointer to first char cur line
1588}
1589
1590static void dot_end(void)
1591{
1592 dot = end_line(dot); // return pointer to last char cur line
1593}
1594
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001595static char *move_to_col(char *p, int l)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001596{
1597 int co;
1598
1599 p = begin_line(p);
1600 co = 0;
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00001601 while (co < l && p < end) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00001602 if (*p == '\n') //vda || *p == '\0')
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001603 break;
1604 if (*p == '\t') {
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00001605 co = next_tabstop(co);
Glenn L McGrath09adaca2002-12-02 21:18:10 +00001606 } else if (*p < ' ' || *p == 127) {
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00001607 co++; // display as ^X, use 2 columns
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001608 }
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00001609 co++;
1610 p++;
1611 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001612 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001613}
1614
1615static void dot_next(void)
1616{
1617 dot = next_line(dot);
1618}
1619
1620static void dot_prev(void)
1621{
1622 dot = prev_line(dot);
1623}
1624
1625static void dot_scroll(int cnt, int dir)
1626{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001627 char *q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001628
1629 for (; cnt > 0; cnt--) {
1630 if (dir < 0) {
1631 // scroll Backwards
Denis Vlasenkof882f082007-12-23 02:36:51 +00001632 // ctrl-Y scroll up one line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001633 screenbegin = prev_line(screenbegin);
1634 } else {
1635 // scroll Forwards
Denis Vlasenkof882f082007-12-23 02:36:51 +00001636 // ctrl-E scroll down one line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001637 screenbegin = next_line(screenbegin);
1638 }
1639 }
1640 // make sure "dot" stays on the screen so we dont scroll off
1641 if (dot < screenbegin)
1642 dot = screenbegin;
1643 q = end_screen(); // find new bottom line
1644 if (dot > q)
1645 dot = begin_line(q); // is dot is below bottom line?
1646 dot_skip_over_ws();
1647}
1648
1649static void dot_skip_over_ws(void)
1650{
1651 // skip WS
1652 while (isspace(*dot) && *dot != '\n' && dot < end - 1)
1653 dot++;
1654}
1655
1656static void dot_delete(void) // delete the char at 'dot'
1657{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001658 text_hole_delete(dot, dot);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001659}
1660
Denis Vlasenkof882f082007-12-23 02:36:51 +00001661static char *bound_dot(char *p) // make sure text[0] <= P < "end"
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001662{
1663 if (p >= end && end > text) {
1664 p = end - 1;
1665 indicate_error('1');
1666 }
1667 if (p < text) {
1668 p = text;
1669 indicate_error('2');
1670 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001671 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001672}
1673
1674//----- Helper Utility Routines --------------------------------
1675
1676//----------------------------------------------------------------
1677//----- Char Routines --------------------------------------------
1678/* Chars that are part of a word-
1679 * 0123456789_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
1680 * Chars that are Not part of a word (stoppers)
1681 * !"#$%&'()*+,-./:;<=>?@[\]^`{|}~
1682 * Chars that are WhiteSpace
1683 * TAB NEWLINE VT FF RETURN SPACE
1684 * DO NOT COUNT NEWLINE AS WHITESPACE
1685 */
1686
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001687static char *new_screen(int ro, int co)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001688{
1689 int li;
1690
Aaron Lehmanna170e1c2002-11-28 11:27:31 +00001691 free(screen);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001692 screensize = ro * co + 8;
Denis Vlasenkob95636c2006-12-19 23:36:04 +00001693 screen = xmalloc(screensize);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001694 // initialize the new screen. assume this will be a empty file.
1695 screen_erase();
Eric Andersenaff114c2004-04-14 17:51:38 +00001696 // non-existent text[] lines start with a tilde (~).
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001697 for (li = 1; li < ro - 1; li++) {
1698 screen[(li * co) + 0] = '~';
1699 }
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00001700 return screen;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001701}
1702
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001703#if ENABLE_FEATURE_VI_SEARCH
Walter Harmsb9ba5802011-06-27 02:59:37 +02001704
1705# if ENABLE_FEATURE_VI_REGEX_SEARCH
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001706
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001707// search for pattern starting at p
Denis Vlasenko33875382008-06-21 20:31:50 +00001708static char *char_search(char *p, const char *pat, int dir, int range)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001709{
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001710 struct re_pattern_buffer preg;
Denys Vlasenko264f3732013-04-21 15:51:41 +02001711 const char *err;
1712 char *q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001713 int i;
Walter Harmsb9ba5802011-06-27 02:59:37 +02001714 int size;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001715
1716 re_syntax_options = RE_SYNTAX_POSIX_EXTENDED;
Denys Vlasenko264f3732013-04-21 15:51:41 +02001717 if (ignorecase)
1718 re_syntax_options = RE_SYNTAX_POSIX_EXTENDED | RE_ICASE;
1719
1720 memset(&preg, 0, sizeof(preg));
1721 err = re_compile_pattern(pat, strlen(pat), &preg);
1722 if (err != NULL) {
1723 status_line_bold("bad search pattern '%s': %s", pat, err);
1724 return p;
1725 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001726
1727 // assume a LIMITED forward search
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001728 q = end - 1;
Denys Vlasenko264f3732013-04-21 15:51:41 +02001729 if (dir == BACK)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001730 q = text;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001731 // RANGE could be negative if we are searching backwards
1732 range = q - p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001733 q = p;
Denys Vlasenko264f3732013-04-21 15:51:41 +02001734 size = range;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001735 if (range < 0) {
Denys Vlasenko264f3732013-04-21 15:51:41 +02001736 size = -size;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001737 q = p - size;
1738 if (q < text)
1739 q = text;
1740 }
1741 // search for the compiled pattern, preg, in p[]
Denys Vlasenko264f3732013-04-21 15:51:41 +02001742 // range < 0: search backward
1743 // range > 0: search forward
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001744 // 0 < start < size
Denys Vlasenko264f3732013-04-21 15:51:41 +02001745 // re_search() < 0: not found or error
1746 // re_search() >= 0: index of found pattern
1747 // struct pattern char int int int struct reg
1748 // re_search(*pattern_buffer, *string, size, start, range, *regs)
1749 i = re_search(&preg, q, size, /*start:*/ 0, range, /*struct re_registers*:*/ NULL);
1750 regfree(&preg);
1751 if (i < 0)
1752 return NULL;
1753 if (dir == FORWARD)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001754 p = p + i;
Denys Vlasenko264f3732013-04-21 15:51:41 +02001755 else
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001756 p = p - i;
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001757 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001758}
Walter Harmsb9ba5802011-06-27 02:59:37 +02001759
1760# else
1761
1762# if ENABLE_FEATURE_VI_SETOPTS
1763static int mycmp(const char *s1, const char *s2, int len)
1764{
1765 if (ignorecase) {
1766 return strncasecmp(s1, s2, len);
1767 }
1768 return strncmp(s1, s2, len);
1769}
1770# else
1771# define mycmp strncmp
1772# endif
1773
1774static char *char_search(char *p, const char *pat, int dir, int range)
1775{
1776 char *start, *stop;
1777 int len;
1778
1779 len = strlen(pat);
1780 if (dir == FORWARD) {
Denys Vlasenko264f3732013-04-21 15:51:41 +02001781 stop = end - 1; // assume range is p..end-1
Walter Harmsb9ba5802011-06-27 02:59:37 +02001782 if (range == LIMITED)
1783 stop = next_line(p); // range is to next line
1784 for (start = p; start < stop; start++) {
1785 if (mycmp(start, pat, len) == 0) {
1786 return start;
1787 }
1788 }
1789 } else if (dir == BACK) {
Denys Vlasenko264f3732013-04-21 15:51:41 +02001790 stop = text; // assume range is text..p
Walter Harmsb9ba5802011-06-27 02:59:37 +02001791 if (range == LIMITED)
1792 stop = prev_line(p); // range is to prev line
1793 for (start = p - len; start >= stop; start--) {
1794 if (mycmp(start, pat, len) == 0) {
1795 return start;
1796 }
1797 }
1798 }
1799 // pattern not found
1800 return NULL;
1801}
1802
1803# endif
1804
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001805#endif /* FEATURE_VI_SEARCH */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001806
Denis Vlasenko33875382008-06-21 20:31:50 +00001807static char *char_insert(char *p, char c) // insert the char c at 'p'
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001808{
1809 if (c == 22) { // Is this an ctrl-V?
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00001810 p += stupid_insert(p, '^'); // use ^ to indicate literal next
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001811 refresh(FALSE); // show the ^
1812 c = get_one_char();
1813 *p = c;
1814 p++;
Denis Vlasenkob1759462008-06-20 20:20:54 +00001815 file_modified++;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001816 } else if (c == 27) { // Is this an ESC?
1817 cmd_mode = 0;
1818 cmdcnt = 0;
1819 end_cmd_q(); // stop adding to q
Paul Fox8552aec2005-09-16 12:20:05 +00001820 last_status_cksum = 0; // force status update
Denis Vlasenkodefc1ea2008-06-27 02:52:20 +00001821 if ((p[-1] != '\n') && (dot > text)) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001822 p--;
1823 }
Paul Foxd13b90b2005-07-18 22:17:25 +00001824 } else if (c == erase_char || c == 8 || c == 127) { // Is this a BS
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001825 // 123456789
Denis Vlasenkodefc1ea2008-06-27 02:52:20 +00001826 if ((p[-1] != '\n') && (dot>text)) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001827 p--;
1828 p = text_hole_delete(p, p); // shrink buffer 1 char
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001829 }
1830 } else {
Cristian Ionescu-Idbohrn9a296fb2011-05-16 03:53:43 +02001831#if ENABLE_FEATURE_VI_SETOPTS
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001832 // insert a char into text[]
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001833 char *sp; // "save p"
Cristian Ionescu-Idbohrn9a296fb2011-05-16 03:53:43 +02001834#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001835
1836 if (c == 13)
1837 c = '\n'; // translate \r to \n
Cristian Ionescu-Idbohrn9a296fb2011-05-16 03:53:43 +02001838#if ENABLE_FEATURE_VI_SETOPTS
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001839 sp = p; // remember addr of insert
Cristian Ionescu-Idbohrn9a296fb2011-05-16 03:53:43 +02001840#endif
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00001841 p += 1 + stupid_insert(p, c); // insert the char
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001842#if ENABLE_FEATURE_VI_SETOPTS
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001843 if (showmatch && strchr(")]}", *sp) != NULL) {
1844 showmatching(sp);
1845 }
1846 if (autoindent && c == '\n') { // auto indent the new line
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001847 char *q;
Denis Vlasenko00d84172008-11-24 07:34:42 +00001848 size_t len;
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00001849 q = prev_line(p); // use prev line as template
Denis Vlasenko00d84172008-11-24 07:34:42 +00001850 len = strspn(q, " \t"); // space or tab
1851 if (len) {
Denis Vlasenko3266aa92009-04-01 11:24:04 +00001852 uintptr_t bias;
Denis Vlasenko00d84172008-11-24 07:34:42 +00001853 bias = text_hole_make(p, len);
1854 p += bias;
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00001855 q += bias;
Denis Vlasenko00d84172008-11-24 07:34:42 +00001856 memcpy(p, q, len);
Denis Vlasenko3266aa92009-04-01 11:24:04 +00001857 p += len;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001858 }
1859 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00001860#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001861 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001862 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001863}
1864
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00001865// might reallocate text[]! use p += stupid_insert(p, ...),
1866// and be careful to not use pointers into potentially freed text[]!
1867static uintptr_t stupid_insert(char *p, char c) // stupidly insert the char c at 'p'
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001868{
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00001869 uintptr_t bias;
1870 bias = text_hole_make(p, 1);
1871 p += bias;
Denis Vlasenkob1759462008-06-20 20:20:54 +00001872 *p = c;
1873 //file_modified++; - done by text_hole_make()
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00001874 return bias;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001875}
1876
Denis Vlasenko33875382008-06-21 20:31:50 +00001877static int find_range(char **start, char **stop, char c)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001878{
Paul Foxc51fc7b2008-03-06 01:34:23 +00001879 char *save_dot, *p, *q, *t;
1880 int cnt, multiline = 0;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001881
1882 save_dot = dot;
1883 p = q = dot;
1884
1885 if (strchr("cdy><", c)) {
1886 // these cmds operate on whole lines
1887 p = q = begin_line(p);
1888 for (cnt = 1; cnt < cmdcnt; cnt++) {
1889 q = next_line(q);
1890 }
1891 q = end_line(q);
Paul Foxc51fc7b2008-03-06 01:34:23 +00001892 } else if (strchr("^%$0bBeEfth\b\177", c)) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001893 // These cmds operate on char positions
1894 do_cmd(c); // execute movement cmd
1895 q = dot;
1896 } else if (strchr("wW", c)) {
1897 do_cmd(c); // execute movement cmd
Tim Rikerc1ef7bd2006-01-25 00:08:53 +00001898 // if we are at the next word's first char
1899 // step back one char
1900 // but check the possibilities when it is true
Eric Andersen5cc90ea2004-02-06 10:36:08 +00001901 if (dot > text && ((isspace(dot[-1]) && !isspace(dot[0]))
Tim Rikerc1ef7bd2006-01-25 00:08:53 +00001902 || (ispunct(dot[-1]) && !ispunct(dot[0]))
1903 || (isalnum(dot[-1]) && !isalnum(dot[0]))))
1904 dot--; // move back off of next word
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001905 if (dot > text && *dot == '\n')
1906 dot--; // stay off NL
1907 q = dot;
1908 } else if (strchr("H-k{", c)) {
1909 // these operate on multi-lines backwards
1910 q = end_line(dot); // find NL
1911 do_cmd(c); // execute movement cmd
1912 dot_begin();
1913 p = dot;
1914 } else if (strchr("L+j}\r\n", c)) {
1915 // these operate on multi-lines forwards
1916 p = begin_line(dot);
1917 do_cmd(c); // execute movement cmd
1918 dot_end(); // find NL
1919 q = dot;
1920 } else {
Denys Vlasenko6830ade2013-01-15 13:58:01 +01001921 // nothing -- this causes any other values of c to
1922 // represent the one-character range under the
1923 // cursor. this is correct for ' ' and 'l', but
1924 // perhaps no others.
1925 //
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001926 }
Paul Foxc51fc7b2008-03-06 01:34:23 +00001927 if (q < p) {
1928 t = q;
1929 q = p;
1930 p = t;
1931 }
1932
Denis Vlasenko42cc3042008-03-24 02:05:58 +00001933 // backward char movements don't include start position
Paul Foxc51fc7b2008-03-06 01:34:23 +00001934 if (q > p && strchr("^0bBh\b\177", c)) q--;
1935
1936 multiline = 0;
1937 for (t = p; t <= q; t++) {
1938 if (*t == '\n') {
1939 multiline = 1;
1940 break;
1941 }
1942 }
1943
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001944 *start = p;
1945 *stop = q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001946 dot = save_dot;
Paul Foxc51fc7b2008-03-06 01:34:23 +00001947 return multiline;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001948}
1949
Denis Vlasenko33875382008-06-21 20:31:50 +00001950static int st_test(char *p, int type, int dir, char *tested)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001951{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001952 char c, c0, ci;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001953 int test, inc;
1954
1955 inc = dir;
1956 c = c0 = p[0];
1957 ci = p[inc];
1958 test = 0;
1959
1960 if (type == S_BEFORE_WS) {
1961 c = ci;
Denys Vlasenkoc0dab372009-10-22 22:28:08 +02001962 test = (!isspace(c) || c == '\n');
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001963 }
1964 if (type == S_TO_WS) {
1965 c = c0;
Denys Vlasenkoc0dab372009-10-22 22:28:08 +02001966 test = (!isspace(c) || c == '\n');
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001967 }
1968 if (type == S_OVER_WS) {
1969 c = c0;
Denys Vlasenkoc0dab372009-10-22 22:28:08 +02001970 test = isspace(c);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001971 }
1972 if (type == S_END_PUNCT) {
1973 c = ci;
Denys Vlasenkoc0dab372009-10-22 22:28:08 +02001974 test = ispunct(c);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001975 }
1976 if (type == S_END_ALNUM) {
1977 c = ci;
Denys Vlasenkoc0dab372009-10-22 22:28:08 +02001978 test = (isalnum(c) || c == '_');
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001979 }
1980 *tested = c;
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00001981 return test;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001982}
1983
Denis Vlasenko33875382008-06-21 20:31:50 +00001984static char *skip_thing(char *p, int linecnt, int dir, int type)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001985{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00001986 char c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001987
1988 while (st_test(p, type, dir, &c)) {
1989 // make sure we limit search to correct number of lines
1990 if (c == '\n' && --linecnt < 1)
1991 break;
1992 if (dir >= 0 && p >= end - 1)
1993 break;
1994 if (dir < 0 && p <= text)
1995 break;
1996 p += dir; // move to next char
1997 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00001998 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00001999}
2000
2001// find matching char of pair () [] {}
Denis Vlasenko33875382008-06-21 20:31:50 +00002002static char *find_pair(char *p, const char c)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002003{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002004 char match, *q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002005 int dir, level;
2006
2007 match = ')';
2008 level = 1;
2009 dir = 1; // assume forward
2010 switch (c) {
Paul Foxc51fc7b2008-03-06 01:34:23 +00002011 case '(': match = ')'; break;
2012 case '[': match = ']'; break;
2013 case '{': match = '}'; break;
2014 case ')': match = '('; dir = -1; break;
2015 case ']': match = '['; dir = -1; break;
2016 case '}': match = '{'; dir = -1; break;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002017 }
2018 for (q = p + dir; text <= q && q < end; q += dir) {
2019 // look for match, count levels of pairs (( ))
2020 if (*q == c)
2021 level++; // increase pair levels
2022 if (*q == match)
2023 level--; // reduce pair level
2024 if (level == 0)
2025 break; // found matching pair
2026 }
2027 if (level != 0)
2028 q = NULL; // indicate no match
Denis Vlasenko079f8af2006-11-27 16:49:31 +00002029 return q;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002030}
2031
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002032#if ENABLE_FEATURE_VI_SETOPTS
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002033// show the matching char of a pair, () [] {}
Denis Vlasenkof882f082007-12-23 02:36:51 +00002034static void showmatching(char *p)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002035{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002036 char *q, *save_dot;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002037
2038 // we found half of a pair
2039 q = find_pair(p, *p); // get loc of matching char
2040 if (q == NULL) {
2041 indicate_error('3'); // no matching char
2042 } else {
2043 // "q" now points to matching pair
2044 save_dot = dot; // remember where we are
2045 dot = q; // go to new loc
2046 refresh(FALSE); // let the user see it
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002047 mysleep(40); // give user some time
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002048 dot = save_dot; // go back to old loc
2049 refresh(FALSE);
2050 }
2051}
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002052#endif /* FEATURE_VI_SETOPTS */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002053
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00002054// open a hole in text[]
2055// might reallocate text[]! use p += text_hole_make(p, ...),
2056// and be careful to not use pointers into potentially freed text[]!
2057static uintptr_t text_hole_make(char *p, int size) // at "p", make a 'size' byte hole
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002058{
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00002059 uintptr_t bias = 0;
2060
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002061 if (size <= 0)
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00002062 return bias;
Denis Vlasenkob1759462008-06-20 20:20:54 +00002063 end += size; // adjust the new END
2064 if (end >= (text + text_size)) {
2065 char *new_text;
2066 text_size += end - (text + text_size) + 10240;
2067 new_text = xrealloc(text, text_size);
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00002068 bias = (new_text - text);
2069 screenbegin += bias;
2070 dot += bias;
2071 end += bias;
2072 p += bias;
Denys Vlasenko800a9a02012-01-31 14:10:26 +01002073#if ENABLE_FEATURE_VI_YANKMARK
2074 {
2075 int i;
2076 for (i = 0; i < ARRAY_SIZE(mark); i++)
2077 if (mark[i])
2078 mark[i] += bias;
2079 }
2080#endif
Denis Vlasenkob1759462008-06-20 20:20:54 +00002081 text = new_text;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002082 }
Denis Vlasenkod6995442008-06-27 04:06:13 +00002083 memmove(p + size, p, end - size - p);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002084 memset(p, ' ', size); // clear new hole
Denis Vlasenkob1759462008-06-20 20:20:54 +00002085 file_modified++;
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00002086 return bias;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002087}
2088
2089// close a hole in text[]
Denis Vlasenko33875382008-06-21 20:31:50 +00002090static char *text_hole_delete(char *p, char *q) // delete "p" through "q", inclusive
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002091{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002092 char *src, *dest;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002093 int cnt, hole_size;
2094
2095 // move forwards, from beginning
2096 // assume p <= q
2097 src = q + 1;
2098 dest = p;
2099 if (q < p) { // they are backward- swap them
2100 src = p + 1;
2101 dest = q;
2102 }
2103 hole_size = q - p + 1;
2104 cnt = end - src;
2105 if (src < text || src > end)
2106 goto thd0;
2107 if (dest < text || dest >= end)
2108 goto thd0;
2109 if (src >= end)
2110 goto thd_atend; // just delete the end of the buffer
Denis Vlasenkob1759462008-06-20 20:20:54 +00002111 memmove(dest, src, cnt);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002112 thd_atend:
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002113 end = end - hole_size; // adjust the new END
2114 if (dest >= end)
2115 dest = end - 1; // make sure dest in below end-1
2116 if (end <= text)
2117 dest = end = text; // keep pointers valid
Denis Vlasenkob1759462008-06-20 20:20:54 +00002118 file_modified++;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002119 thd0:
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00002120 return dest;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002121}
2122
2123// copy text into register, then delete text.
2124// if dist <= 0, do not include, or go past, a NewLine
2125//
Denis Vlasenko33875382008-06-21 20:31:50 +00002126static char *yank_delete(char *start, char *stop, int dist, int yf)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002127{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002128 char *p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002129
2130 // make sure start <= stop
2131 if (start > stop) {
2132 // they are backwards, reverse them
2133 p = start;
2134 start = stop;
2135 stop = p;
2136 }
2137 if (dist <= 0) {
Denis Vlasenkoe1a0d482006-10-20 13:28:22 +00002138 // we cannot cross NL boundaries
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002139 p = start;
2140 if (*p == '\n')
Denis Vlasenko079f8af2006-11-27 16:49:31 +00002141 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002142 // dont go past a NewLine
2143 for (; p + 1 <= stop; p++) {
2144 if (p[1] == '\n') {
2145 stop = p; // "stop" just before NewLine
2146 break;
2147 }
2148 }
2149 }
2150 p = start;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002151#if ENABLE_FEATURE_VI_YANKMARK
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002152 text_yank(start, stop, YDreg);
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002153#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002154 if (yf == YANKDEL) {
2155 p = text_hole_delete(start, stop);
2156 } // delete lines
Denis Vlasenko079f8af2006-11-27 16:49:31 +00002157 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002158}
2159
2160static void show_help(void)
2161{
2162 puts("These features are available:"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002163#if ENABLE_FEATURE_VI_SEARCH
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002164 "\n\tPattern searches with / and ?"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002165#endif
2166#if ENABLE_FEATURE_VI_DOT_CMD
Denys Vlasenko605f2642012-06-11 01:53:33 +02002167 "\n\tLast command repeat with ."
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002168#endif
2169#if ENABLE_FEATURE_VI_YANKMARK
Bernhard Reutner-Fischerd24d5c82007-10-01 18:04:42 +00002170 "\n\tLine marking with 'x"
2171 "\n\tNamed buffers with \"x"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002172#endif
2173#if ENABLE_FEATURE_VI_READONLY
Walter Harmsb9ba5802011-06-27 02:59:37 +02002174 //not implemented: "\n\tReadonly if vi is called as \"view\""
2175 //redundant: usage text says this too: "\n\tReadonly with -R command line arg"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002176#endif
2177#if ENABLE_FEATURE_VI_SET
Denys Vlasenko605f2642012-06-11 01:53:33 +02002178 "\n\tSome colon mode commands with :"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002179#endif
2180#if ENABLE_FEATURE_VI_SETOPTS
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002181 "\n\tSettable options with \":set\""
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002182#endif
2183#if ENABLE_FEATURE_VI_USE_SIGNALS
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002184 "\n\tSignal catching- ^C"
2185 "\n\tJob suspend and resume with ^Z"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002186#endif
2187#if ENABLE_FEATURE_VI_WIN_RESIZE
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002188 "\n\tAdapt to window re-sizes"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002189#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002190 );
2191}
2192
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002193#if ENABLE_FEATURE_VI_DOT_CMD
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002194static void start_new_cmd_q(char c)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002195{
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002196 // get buffer for new cmd
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002197 // if there is a current cmd count put it in the buffer first
Denis Vlasenko30cfdf92008-09-21 15:29:29 +00002198 if (cmdcnt > 0) {
Paul Foxc51fc7b2008-03-06 01:34:23 +00002199 lmc_len = sprintf(last_modifying_cmd, "%d%c", cmdcnt, c);
Denis Vlasenko30cfdf92008-09-21 15:29:29 +00002200 } else { // just save char c onto queue
Paul Foxd957b952005-11-28 18:07:53 +00002201 last_modifying_cmd[0] = c;
Paul Foxc51fc7b2008-03-06 01:34:23 +00002202 lmc_len = 1;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002203 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002204 adding2q = 1;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002205}
2206
2207static void end_cmd_q(void)
2208{
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002209#if ENABLE_FEATURE_VI_YANKMARK
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002210 YDreg = 26; // go back to default Yank/Delete reg
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002211#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002212 adding2q = 0;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002213}
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002214#endif /* FEATURE_VI_DOT_CMD */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002215
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002216#if ENABLE_FEATURE_VI_YANKMARK \
2217 || (ENABLE_FEATURE_VI_COLON && ENABLE_FEATURE_VI_SEARCH) \
2218 || ENABLE_FEATURE_VI_CRASHME
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00002219// might reallocate text[]! use p += string_insert(p, ...),
2220// and be careful to not use pointers into potentially freed text[]!
2221static uintptr_t string_insert(char *p, const char *s) // insert the string at 'p'
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002222{
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00002223 uintptr_t bias;
2224 int i;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002225
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002226 i = strlen(s);
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00002227 bias = text_hole_make(p, i);
2228 p += bias;
Denis Vlasenko00d84172008-11-24 07:34:42 +00002229 memcpy(p, s, i);
Denis Vlasenko33875382008-06-21 20:31:50 +00002230#if ENABLE_FEATURE_VI_YANKMARK
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00002231 {
2232 int cnt;
2233 for (cnt = 0; *s != '\0'; s++) {
2234 if (*s == '\n')
2235 cnt++;
2236 }
2237 status_line("Put %d lines (%d chars) from [%c]", cnt, i, what_reg());
2238 }
Denis Vlasenko33875382008-06-21 20:31:50 +00002239#endif
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00002240 return bias;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002241}
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002242#endif
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002243
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002244#if ENABLE_FEATURE_VI_YANKMARK
Denis Vlasenko33875382008-06-21 20:31:50 +00002245static char *text_yank(char *p, char *q, int dest) // copy text into a register
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002246{
Denis Vlasenko00d84172008-11-24 07:34:42 +00002247 int cnt = q - p;
2248 if (cnt < 0) { // they are backwards- reverse them
2249 p = q;
2250 cnt = -cnt;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002251 }
Denis Vlasenko00d84172008-11-24 07:34:42 +00002252 free(reg[dest]); // if already a yank register, free it
2253 reg[dest] = xstrndup(p, cnt + 1);
Denis Vlasenko079f8af2006-11-27 16:49:31 +00002254 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002255}
2256
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002257static char what_reg(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002258{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002259 char c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002260
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002261 c = 'D'; // default to D-reg
2262 if (0 <= YDreg && YDreg <= 25)
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002263 c = 'a' + (char) YDreg;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002264 if (YDreg == 26)
2265 c = 'D';
2266 if (YDreg == 27)
2267 c = 'U';
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00002268 return c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002269}
2270
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002271static void check_context(char cmd)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002272{
2273 // A context is defined to be "modifying text"
2274 // Any modifying command establishes a new context.
2275
2276 if (dot < context_start || dot > context_end) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002277 if (strchr(modifying_cmds, cmd) != NULL) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002278 // we are trying to modify text[]- make this the current context
2279 mark[27] = mark[26]; // move cur to prev
2280 mark[26] = dot; // move local to cur
2281 context_start = prev_line(prev_line(dot));
2282 context_end = next_line(next_line(dot));
2283 //loiter= start_loiter= now;
2284 }
2285 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002286}
2287
Denis Vlasenkof882f082007-12-23 02:36:51 +00002288static char *swap_context(char *p) // goto new context for '' command make this the current context
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002289{
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002290 char *tmp;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002291
2292 // the current context is in mark[26]
2293 // the previous context is in mark[27]
2294 // only swap context if other context is valid
2295 if (text <= mark[27] && mark[27] <= end - 1) {
2296 tmp = mark[27];
2297 mark[27] = mark[26];
2298 mark[26] = tmp;
2299 p = mark[26]; // where we are going- previous context
2300 context_start = prev_line(prev_line(prev_line(p)));
2301 context_end = next_line(next_line(next_line(p)));
2302 }
Denis Vlasenko079f8af2006-11-27 16:49:31 +00002303 return p;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002304}
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002305#endif /* FEATURE_VI_YANKMARK */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002306
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002307//----- Set terminal attributes --------------------------------
2308static void rawmode(void)
2309{
2310 tcgetattr(0, &term_orig);
2311 term_vi = term_orig;
Denys Vlasenko6e8861b2012-01-15 23:00:13 +01002312 term_vi.c_lflag &= (~ICANON & ~ECHO); // leave ISIG on - allow intr's
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002313 term_vi.c_iflag &= (~IXON & ~ICRNL);
2314 term_vi.c_oflag &= (~ONLCR);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002315 term_vi.c_cc[VMIN] = 1;
2316 term_vi.c_cc[VTIME] = 0;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002317 erase_char = term_vi.c_cc[VERASE];
Denis Vlasenko202ac502008-11-05 13:20:58 +00002318 tcsetattr_stdin_TCSANOW(&term_vi);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002319}
2320
2321static void cookmode(void)
2322{
Denys Vlasenko8131eea2009-11-02 14:19:51 +01002323 fflush_all();
Denis Vlasenko202ac502008-11-05 13:20:58 +00002324 tcsetattr_stdin_TCSANOW(&term_orig);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002325}
2326
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002327#if ENABLE_FEATURE_VI_USE_SIGNALS
Denys Vlasenko2bb651a2010-04-16 20:55:52 -07002328//----- Come here when we get a window resize signal ---------
Denis Vlasenkoa60f84e2008-07-05 09:18:54 +00002329static void winch_sig(int sig UNUSED_PARAM)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002330{
Denys Vlasenko2bb651a2010-04-16 20:55:52 -07002331 int save_errno = errno;
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00002332 // FIXME: do it in main loop!!!
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002333 signal(SIGWINCH, winch_sig);
Denys Vlasenko2bb651a2010-04-16 20:55:52 -07002334 query_screen_dimensions();
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002335 new_screen(rows, columns); // get memory for virtual screen
2336 redraw(TRUE); // re-draw the screen
Denys Vlasenko2bb651a2010-04-16 20:55:52 -07002337 errno = save_errno;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002338}
2339
2340//----- Come here when we get a continue signal -------------------
Denis Vlasenkoa60f84e2008-07-05 09:18:54 +00002341static void cont_sig(int sig UNUSED_PARAM)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002342{
Denys Vlasenko2bb651a2010-04-16 20:55:52 -07002343 int save_errno = errno;
Denis Vlasenko30cfdf92008-09-21 15:29:29 +00002344 rawmode(); // terminal to "raw"
2345 last_status_cksum = 0; // force status update
2346 redraw(TRUE); // re-draw the screen
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002347
2348 signal(SIGTSTP, suspend_sig);
2349 signal(SIGCONT, SIG_DFL);
Denys Vlasenko2bb651a2010-04-16 20:55:52 -07002350 //kill(my_pid, SIGCONT); // huh? why? we are already "continued"...
2351 errno = save_errno;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002352}
2353
2354//----- Come here when we get a Suspend signal -------------------
Denis Vlasenkoa60f84e2008-07-05 09:18:54 +00002355static void suspend_sig(int sig UNUSED_PARAM)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002356{
Denys Vlasenko2bb651a2010-04-16 20:55:52 -07002357 int save_errno = errno;
Denis Vlasenko267e16c2008-10-14 10:34:41 +00002358 go_bottom_and_clear_to_eol();
Denis Vlasenko30cfdf92008-09-21 15:29:29 +00002359 cookmode(); // terminal to "cooked"
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002360
2361 signal(SIGCONT, cont_sig);
2362 signal(SIGTSTP, SIG_DFL);
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002363 kill(my_pid, SIGTSTP);
Denys Vlasenko2bb651a2010-04-16 20:55:52 -07002364 errno = save_errno;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002365}
2366
2367//----- Come here when we get a signal ---------------------------
2368static void catch_sig(int sig)
2369{
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002370 signal(SIGINT, catch_sig);
Denys Vlasenko2bb651a2010-04-16 20:55:52 -07002371 siglongjmp(restart, sig);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002372}
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002373#endif /* FEATURE_VI_USE_SIGNALS */
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002374
Denys Vlasenko606291b2009-09-23 23:15:43 +02002375static int mysleep(int hund) // sleep for 'hund' 1/100 seconds or stdin ready
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002376{
Denis Vlasenko87f3b262007-09-07 13:43:28 +00002377 struct pollfd pfd[1];
Denis Vlasenkocd5c7862007-05-17 16:37:22 +00002378
Denys Vlasenko606291b2009-09-23 23:15:43 +02002379 pfd[0].fd = STDIN_FILENO;
Denis Vlasenko87f3b262007-09-07 13:43:28 +00002380 pfd[0].events = POLLIN;
Denis Vlasenko5d61e712007-09-27 10:09:59 +00002381 return safe_poll(pfd, 1, hund*10) > 0;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002382}
2383
2384//----- IO Routines --------------------------------------------
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00002385static int readit(void) // read (maybe cursor) key from stdin
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002386{
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00002387 int c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002388
Denys Vlasenko8131eea2009-11-02 14:19:51 +01002389 fflush_all();
Denys Vlasenko58f108e2010-03-11 21:17:55 +01002390 c = read_key(STDIN_FILENO, readbuffer, /*timeout off:*/ -2);
Denis Vlasenko0112ff52008-10-25 23:23:00 +00002391 if (c == -1) { // EOF/error
2392 go_bottom_and_clear_to_eol();
2393 cookmode(); // terminal to "cooked"
2394 bb_error_msg_and_die("can't read user input");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002395 }
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00002396 return c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002397}
2398
2399//----- IO Routines --------------------------------------------
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00002400static int get_one_char(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002401{
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00002402 int c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002403
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002404#if ENABLE_FEATURE_VI_DOT_CMD
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002405 if (!adding2q) {
2406 // we are not adding to the q.
2407 // but, we may be reading from a q
2408 if (ioq == 0) {
2409 // there is no current q, read from STDIN
2410 c = readit(); // get the users input
2411 } else {
2412 // there is a queue to get chars from first
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00002413 // careful with correct sign expansion!
2414 c = (unsigned char)*ioq++;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002415 if (c == '\0') {
2416 // the end of the q, read from STDIN
2417 free(ioq_start);
2418 ioq_start = ioq = 0;
2419 c = readit(); // get the users input
2420 }
2421 }
2422 } else {
2423 // adding STDIN chars to q
2424 c = readit(); // get the users input
Denis Vlasenkob1759462008-06-20 20:20:54 +00002425 if (lmc_len >= MAX_INPUT_LEN - 1) {
2426 status_line_bold("last_modifying_cmd overrun");
2427 } else {
2428 // add new char to q
2429 last_modifying_cmd[lmc_len++] = c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002430 }
2431 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002432#else
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002433 c = readit(); // get the users input
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002434#endif /* FEATURE_VI_DOT_CMD */
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002435 return c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002436}
2437
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002438// Get input line (uses "status line" area)
2439static char *get_input_line(const char *prompt)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002440{
Denis Vlasenkob1759462008-06-20 20:20:54 +00002441 // char [MAX_INPUT_LEN]
2442#define buf get_input_line__buf
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002443
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00002444 int c;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002445 int i;
2446
2447 strcpy(buf, prompt);
Paul Fox8552aec2005-09-16 12:20:05 +00002448 last_status_cksum = 0; // force status update
Denis Vlasenko267e16c2008-10-14 10:34:41 +00002449 go_bottom_and_clear_to_eol();
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002450 write1(prompt); // write out the :, /, or ? prompt
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002451
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002452 i = strlen(buf);
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002453 while (i < MAX_INPUT_LEN) {
2454 c = get_one_char();
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002455 if (c == '\n' || c == '\r' || c == 27)
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002456 break; // this is end of input
Paul Foxf2de0b72005-09-13 22:20:37 +00002457 if (c == erase_char || c == 8 || c == 127) {
Tim Rikerc1ef7bd2006-01-25 00:08:53 +00002458 // user wants to erase prev char
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002459 buf[--i] = '\0';
2460 write1("\b \b"); // erase char on screen
2461 if (i <= 0) // user backs up before b-o-l, exit
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002462 break;
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00002463 } else if (c > 0 && c < 256) { // exclude Unicode
2464 // (TODO: need to handle Unicode)
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002465 buf[i] = c;
2466 buf[++i] = '\0';
2467 bb_putchar(c);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002468 }
2469 }
2470 refresh(FALSE);
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002471 return buf;
Denis Vlasenkob1759462008-06-20 20:20:54 +00002472#undef buf
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002473}
2474
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002475static int file_size(const char *fn) // what is the byte size of "fn"
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002476{
2477 struct stat st_buf;
Denis Vlasenko59a1f302007-07-14 22:43:10 +00002478 int cnt;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002479
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002480 cnt = -1;
Denys Vlasenkodef47832010-04-18 20:39:41 -07002481 if (fn && stat(fn, &st_buf) == 0) // see if file exists
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002482 cnt = (int) st_buf.st_size;
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00002483 return cnt;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002484}
2485
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00002486// might reallocate text[]!
2487static int file_insert(const char *fn, char *p, int update_ro_status)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002488{
Denis Vlasenko59a1f302007-07-14 22:43:10 +00002489 int cnt = -1;
2490 int fd, size;
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002491 struct stat statbuf;
2492
2493 /* Validate file */
2494 if (stat(fn, &statbuf) < 0) {
Denys Vlasenko9e7c0022013-03-15 02:17:29 +01002495 status_line_bold_errno(fn);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002496 goto fi0;
2497 }
Denis Vlasenko33875382008-06-21 20:31:50 +00002498 if (!S_ISREG(statbuf.st_mode)) {
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002499 // This is not a regular file
Denys Vlasenko778794d2013-01-22 10:13:52 +01002500 status_line_bold("'%s' is not a regular file", fn);
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002501 goto fi0;
2502 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002503 if (p < text || p > end) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002504 status_line_bold("Trying to insert file outside of memory");
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002505 goto fi0;
2506 }
2507
Denis Vlasenko59a1f302007-07-14 22:43:10 +00002508 // read file to buffer
2509 fd = open(fn, O_RDONLY);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002510 if (fd < 0) {
Denys Vlasenko9e7c0022013-03-15 02:17:29 +01002511 status_line_bold_errno(fn);
Denis Vlasenko59a1f302007-07-14 22:43:10 +00002512 goto fi0;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002513 }
Denys Vlasenko778794d2013-01-22 10:13:52 +01002514 size = (statbuf.st_size < INT_MAX ? (int)statbuf.st_size : INT_MAX);
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00002515 p += text_hole_make(p, size);
Denis Vlasenko4f95e5a2007-10-11 10:10:15 +00002516 cnt = safe_read(fd, p, size);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002517 if (cnt < 0) {
Denys Vlasenko9e7c0022013-03-15 02:17:29 +01002518 status_line_bold_errno(fn);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002519 p = text_hole_delete(p, p + size - 1); // un-do buffer insert
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002520 } else if (cnt < size) {
2521 // There was a partial read, shrink unused space text[]
Ron Yorstoncb5aa722013-03-07 20:37:23 +00002522 p = text_hole_delete(p + cnt, p + size - 1); // un-do buffer insert
Denys Vlasenko778794d2013-01-22 10:13:52 +01002523 status_line_bold("can't read '%s'", fn);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002524 }
2525 if (cnt >= size)
Paul Fox8552aec2005-09-16 12:20:05 +00002526 file_modified++;
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002527 close(fd);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002528 fi0:
Denis Vlasenko856be772007-08-17 08:29:48 +00002529#if ENABLE_FEATURE_VI_READONLY
2530 if (update_ro_status
2531 && ((access(fn, W_OK) < 0) ||
2532 /* root will always have access()
2533 * so we check fileperms too */
2534 !(statbuf.st_mode & (S_IWUSR | S_IWGRP | S_IWOTH))
2535 )
2536 ) {
Denis Vlasenko2f6ae432007-07-19 22:50:47 +00002537 SET_READONLY_FILE(readonly_mode);
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002538 }
Denis Vlasenko856be772007-08-17 08:29:48 +00002539#endif
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00002540 return cnt;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002541}
2542
Denis Vlasenko33875382008-06-21 20:31:50 +00002543static int file_write(char *fn, char *first, char *last)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002544{
2545 int fd, cnt, charcnt;
2546
2547 if (fn == 0) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002548 status_line_bold("No current filename");
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00002549 return -2;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002550 }
Denis Vlasenko8abae882008-05-03 11:35:59 +00002551 /* By popular request we do not open file with O_TRUNC,
2552 * but instead ftruncate() it _after_ successful write.
2553 * Might reduce amount of data lost on power fail etc.
2554 */
2555 fd = open(fn, (O_WRONLY | O_CREAT), 0666);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002556 if (fd < 0)
Denis Vlasenko079f8af2006-11-27 16:49:31 +00002557 return -1;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002558 cnt = last - first + 1;
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002559 charcnt = full_write(fd, first, cnt);
Denis Vlasenko8abae882008-05-03 11:35:59 +00002560 ftruncate(fd, charcnt);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002561 if (charcnt == cnt) {
2562 // good write
Denis Vlasenkob1759462008-06-20 20:20:54 +00002563 //file_modified = FALSE;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002564 } else {
2565 charcnt = 0;
2566 }
2567 close(fd);
Denis Vlasenkod9e15f22006-11-27 16:49:55 +00002568 return charcnt;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002569}
2570
2571//----- Terminal Drawing ---------------------------------------
2572// The terminal is made up of 'rows' line of 'columns' columns.
Eric Andersenaff114c2004-04-14 17:51:38 +00002573// classically this would be 24 x 80.
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002574// screen coordinates
2575// 0,0 ... 0,79
2576// 1,0 ... 1,79
2577// . ... .
2578// . ... .
2579// 22,0 ... 22,79
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002580// 23,0 ... 23,79 <- status line
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002581
2582//----- Move the cursor to row x col (count from 0, not 1) -------
Denys Vlasenko04b52892012-06-11 13:51:38 +02002583static void place_cursor(int row, int col)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002584{
Denys Vlasenko04b52892012-06-11 13:51:38 +02002585 char cm1[sizeof(ESC_SET_CURSOR_POS) + sizeof(int)*3 * 2];
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002586
2587 if (row < 0) row = 0;
2588 if (row >= rows) row = rows - 1;
2589 if (col < 0) col = 0;
2590 if (col >= columns) col = columns - 1;
Eric Andersenc7bda1c2004-03-15 08:29:22 +00002591
Denys Vlasenko04b52892012-06-11 13:51:38 +02002592 sprintf(cm1, ESC_SET_CURSOR_POS, row + 1, col + 1);
2593 write1(cm1);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002594}
2595
2596//----- Erase from cursor to end of line -----------------------
Mike Frysinger4e5936e2005-04-16 04:30:38 +00002597static void clear_to_eol(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002598{
Denys Vlasenko04b52892012-06-11 13:51:38 +02002599 write1(ESC_CLEAR2EOL);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002600}
2601
Denis Vlasenko267e16c2008-10-14 10:34:41 +00002602static void go_bottom_and_clear_to_eol(void)
2603{
Denys Vlasenko04b52892012-06-11 13:51:38 +02002604 place_cursor(rows - 1, 0);
2605 clear_to_eol();
Denis Vlasenko267e16c2008-10-14 10:34:41 +00002606}
2607
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002608//----- Erase from cursor to end of screen -----------------------
Mike Frysinger4e5936e2005-04-16 04:30:38 +00002609static void clear_to_eos(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002610{
Denys Vlasenko04b52892012-06-11 13:51:38 +02002611 write1(ESC_CLEAR2EOS);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002612}
2613
2614//----- Start standout mode ------------------------------------
Denys Vlasenko04b52892012-06-11 13:51:38 +02002615static void standout_start(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002616{
Denys Vlasenko04b52892012-06-11 13:51:38 +02002617 write1(ESC_BOLD_TEXT);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002618}
2619
2620//----- End standout mode --------------------------------------
Denys Vlasenko04b52892012-06-11 13:51:38 +02002621static void standout_end(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002622{
Denys Vlasenko04b52892012-06-11 13:51:38 +02002623 write1(ESC_NORM_TEXT);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002624}
2625
2626//----- Flash the screen --------------------------------------
2627static void flash(int h)
2628{
Denys Vlasenko04b52892012-06-11 13:51:38 +02002629 standout_start();
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002630 redraw(TRUE);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002631 mysleep(h);
Denys Vlasenko04b52892012-06-11 13:51:38 +02002632 standout_end();
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002633 redraw(TRUE);
2634}
2635
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002636static void Indicate_Error(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002637{
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002638#if ENABLE_FEATURE_VI_CRASHME
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002639 if (crashme > 0)
2640 return; // generate a random command
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002641#endif
Glenn L McGrath09adaca2002-12-02 21:18:10 +00002642 if (!err_method) {
Denys Vlasenko04b52892012-06-11 13:51:38 +02002643 write1(ESC_BELL);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002644 } else {
2645 flash(10);
2646 }
2647}
2648
2649//----- Screen[] Routines --------------------------------------
2650//----- Erase the Screen[] memory ------------------------------
Mike Frysinger4e5936e2005-04-16 04:30:38 +00002651static void screen_erase(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002652{
2653 memset(screen, ' ', screensize); // clear new screen
2654}
2655
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002656static int bufsum(char *buf, int count)
Paul Fox8552aec2005-09-16 12:20:05 +00002657{
2658 int sum = 0;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002659 char *e = buf + count;
2660
Paul Fox8552aec2005-09-16 12:20:05 +00002661 while (buf < e)
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002662 sum += (unsigned char) *buf++;
Paul Fox8552aec2005-09-16 12:20:05 +00002663 return sum;
2664}
2665
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002666//----- Draw the status line at bottom of the screen -------------
2667static void show_status_line(void)
2668{
Paul Foxc3504852005-09-16 12:48:18 +00002669 int cnt = 0, cksum = 0;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002670
Paul Fox8552aec2005-09-16 12:20:05 +00002671 // either we already have an error or status message, or we
2672 // create one.
2673 if (!have_status_msg) {
2674 cnt = format_edit_status();
2675 cksum = bufsum(status_buffer, cnt);
2676 }
2677 if (have_status_msg || ((cnt > 0 && last_status_cksum != cksum))) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002678 last_status_cksum = cksum; // remember if we have seen this line
Denis Vlasenko267e16c2008-10-14 10:34:41 +00002679 go_bottom_and_clear_to_eol();
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002680 write1(status_buffer);
Paul Fox8552aec2005-09-16 12:20:05 +00002681 if (have_status_msg) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002682 if (((int)strlen(status_buffer) - (have_status_msg - 1)) >
Paul Fox8552aec2005-09-16 12:20:05 +00002683 (columns - 1) ) {
2684 have_status_msg = 0;
2685 Hit_Return();
2686 }
2687 have_status_msg = 0;
2688 }
Denys Vlasenko04b52892012-06-11 13:51:38 +02002689 place_cursor(crow, ccol); // put cursor back in correct place
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002690 }
Denys Vlasenko8131eea2009-11-02 14:19:51 +01002691 fflush_all();
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002692}
2693
2694//----- format the status buffer, the bottom line of screen ------
Paul Fox8552aec2005-09-16 12:20:05 +00002695// format status buffer, with STANDOUT mode
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002696static void status_line_bold(const char *format, ...)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002697{
2698 va_list args;
2699
2700 va_start(args, format);
Denys Vlasenko04b52892012-06-11 13:51:38 +02002701 strcpy(status_buffer, ESC_BOLD_TEXT);
2702 vsprintf(status_buffer + sizeof(ESC_BOLD_TEXT)-1, format, args);
2703 strcat(status_buffer, ESC_NORM_TEXT);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002704 va_end(args);
Paul Fox8552aec2005-09-16 12:20:05 +00002705
Denys Vlasenko04b52892012-06-11 13:51:38 +02002706 have_status_msg = 1 + sizeof(ESC_BOLD_TEXT) + sizeof(ESC_NORM_TEXT) - 2;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002707}
2708
Denys Vlasenko9e7c0022013-03-15 02:17:29 +01002709static void status_line_bold_errno(const char *fn)
2710{
2711 status_line_bold("'%s' %s", fn, strerror(errno));
2712}
2713
Paul Fox8552aec2005-09-16 12:20:05 +00002714// format status buffer
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002715static void status_line(const char *format, ...)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002716{
2717 va_list args;
2718
2719 va_start(args, format);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002720 vsprintf(status_buffer, format, args);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002721 va_end(args);
Paul Fox8552aec2005-09-16 12:20:05 +00002722
2723 have_status_msg = 1;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002724}
2725
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002726// copy s to buf, convert unprintable
2727static void print_literal(char *buf, const char *s)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002728{
Denys Vlasenkoc2704542009-11-20 19:14:19 +01002729 char *d;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002730 unsigned char c;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002731
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002732 buf[0] = '\0';
2733 if (!s[0])
2734 s = "(NULL)";
Denys Vlasenkoc2704542009-11-20 19:14:19 +01002735
2736 d = buf;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002737 for (; *s; s++) {
2738 int c_is_no_print;
2739
2740 c = *s;
2741 c_is_no_print = (c & 0x80) && !Isprint(c);
2742 if (c_is_no_print) {
Denys Vlasenko04b52892012-06-11 13:51:38 +02002743 strcpy(d, ESC_NORM_TEXT);
2744 d += sizeof(ESC_NORM_TEXT)-1;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002745 c = '.';
2746 }
Denys Vlasenkoc2704542009-11-20 19:14:19 +01002747 if (c < ' ' || c == 0x7f) {
2748 *d++ = '^';
2749 c |= '@'; /* 0x40 */
2750 if (c == 0x7f)
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002751 c = '?';
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002752 }
Denys Vlasenkoc2704542009-11-20 19:14:19 +01002753 *d++ = c;
2754 *d = '\0';
2755 if (c_is_no_print) {
Denys Vlasenko04b52892012-06-11 13:51:38 +02002756 strcpy(d, ESC_BOLD_TEXT);
2757 d += sizeof(ESC_BOLD_TEXT)-1;
Denys Vlasenkoc2704542009-11-20 19:14:19 +01002758 }
2759 if (*s == '\n') {
2760 *d++ = '$';
2761 *d = '\0';
2762 }
2763 if (d - buf > MAX_INPUT_LEN - 10) // paranoia
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002764 break;
2765 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002766}
2767
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002768static void not_implemented(const char *s)
2769{
2770 char buf[MAX_INPUT_LEN];
2771
2772 print_literal(buf, s);
2773 status_line_bold("\'%s\' is not implemented", buf);
2774}
2775
2776// show file status on status line
2777static int format_edit_status(void)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002778{
Denis Vlasenko6ca409e2007-08-12 20:58:27 +00002779 static const char cmd_mode_indicator[] ALIGN1 = "-IR-";
Denis Vlasenkob1759462008-06-20 20:20:54 +00002780
2781#define tot format_edit_status__tot
2782
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002783 int cur, percent, ret, trunc_at;
2784
Paul Fox8552aec2005-09-16 12:20:05 +00002785 // file_modified is now a counter rather than a flag. this
2786 // helps reduce the amount of line counting we need to do.
2787 // (this will cause a mis-reporting of modified status
2788 // once every MAXINT editing operations.)
2789
2790 // it would be nice to do a similar optimization here -- if
2791 // we haven't done a motion that could have changed which line
2792 // we're on, then we shouldn't have to do this count_lines()
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002793 cur = count_lines(text, dot);
Paul Fox8552aec2005-09-16 12:20:05 +00002794
2795 // reduce counting -- the total lines can't have
2796 // changed if we haven't done any edits.
2797 if (file_modified != last_file_modified) {
2798 tot = cur + count_lines(dot, end - 1) - 1;
2799 last_file_modified = file_modified;
2800 }
2801
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002802 // current line percent
2803 // ------------- ~~ ----------
2804 // total lines 100
2805 if (tot > 0) {
2806 percent = (100 * cur) / tot;
2807 } else {
2808 cur = tot = 0;
2809 percent = 100;
2810 }
Eric Andersen0ef24c62005-07-18 10:32:59 +00002811
Paul Fox8552aec2005-09-16 12:20:05 +00002812 trunc_at = columns < STATUS_BUFFER_LEN-1 ?
2813 columns : STATUS_BUFFER_LEN-1;
2814
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002815 ret = snprintf(status_buffer, trunc_at+1,
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002816#if ENABLE_FEATURE_VI_READONLY
Paul Fox8552aec2005-09-16 12:20:05 +00002817 "%c %s%s%s %d/%d %d%%",
2818#else
2819 "%c %s%s %d/%d %d%%",
2820#endif
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002821 cmd_mode_indicator[cmd_mode & 3],
2822 (current_filename != NULL ? current_filename : "No file"),
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00002823#if ENABLE_FEATURE_VI_READONLY
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002824 (readonly_mode ? " [Readonly]" : ""),
Paul Fox8552aec2005-09-16 12:20:05 +00002825#endif
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00002826 (file_modified ? " [Modified]" : ""),
Paul Fox8552aec2005-09-16 12:20:05 +00002827 cur, tot, percent);
2828
2829 if (ret >= 0 && ret < trunc_at)
2830 return ret; /* it all fit */
2831
2832 return trunc_at; /* had to truncate */
Denis Vlasenkob1759462008-06-20 20:20:54 +00002833#undef tot
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002834}
2835
2836//----- Force refresh of all Lines -----------------------------
2837static void redraw(int full_screen)
2838{
Denys Vlasenko04b52892012-06-11 13:51:38 +02002839 place_cursor(0, 0);
2840 clear_to_eos();
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002841 screen_erase(); // erase the internal screen buffer
Paul Fox8552aec2005-09-16 12:20:05 +00002842 last_status_cksum = 0; // force status update
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002843 refresh(full_screen); // this will redraw the entire display
Paul Fox8552aec2005-09-16 12:20:05 +00002844 show_status_line();
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002845}
2846
2847//----- Format a text[] line into a buffer ---------------------
Denis Vlasenko68404f12008-03-17 09:00:54 +00002848static char* format_line(char *src /*, int li*/)
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002849{
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00002850 unsigned char c;
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002851 int co;
2852 int ofs = offset;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002853 char *dest = scr_out_buf; // [MAX_SCR_COLS + MAX_TABSTOP * 2]
Eric Andersenc7bda1c2004-03-15 08:29:22 +00002854
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002855 c = '~'; // char in col 0 in non-existent lines is '~'
Denis Vlasenko4baed3a2007-12-22 17:31:29 +00002856 co = 0;
2857 while (co < columns + tabstop) {
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00002858 // have we gone past the end?
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002859 if (src < end) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002860 c = *src++;
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002861 if (c == '\n')
2862 break;
2863 if ((c & 0x80) && !Isprint(c)) {
2864 c = '.';
2865 }
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00002866 if (c < ' ' || c == 0x7f) {
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002867 if (c == '\t') {
2868 c = ' ';
2869 // co % 8 != 7
2870 while ((co % tabstop) != (tabstop - 1)) {
2871 dest[co++] = c;
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002872 }
2873 } else {
2874 dest[co++] = '^';
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002875 if (c == 0x7f)
2876 c = '?';
2877 else
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002878 c += '@'; // Ctrl-X -> 'X'
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002879 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002880 }
2881 }
Denis Vlasenko4baed3a2007-12-22 17:31:29 +00002882 dest[co++] = c;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002883 // discard scrolled-off-to-the-left portion,
2884 // in tabstop-sized pieces
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002885 if (ofs >= tabstop && co >= tabstop) {
Denis Vlasenko4baed3a2007-12-22 17:31:29 +00002886 memmove(dest, dest + tabstop, co);
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002887 co -= tabstop;
2888 ofs -= tabstop;
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002889 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002890 if (src >= end)
2891 break;
2892 }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002893 // check "short line, gigantic offset" case
2894 if (co < ofs)
Denis Vlasenko4baed3a2007-12-22 17:31:29 +00002895 ofs = co;
2896 // discard last scrolled off part
2897 co -= ofs;
2898 dest += ofs;
2899 // fill the rest with spaces
2900 if (co < columns)
2901 memset(&dest[co], ' ', columns - co);
2902 return dest;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002903}
2904
2905//----- Refresh the changed screen lines -----------------------
2906// Copy the source line from text[] into the buffer and note
2907// if the current screenline is different from the new buffer.
2908// If they differ then that line needs redrawing on the terminal.
2909//
2910static void refresh(int full_screen)
2911{
Denis Vlasenkob1759462008-06-20 20:20:54 +00002912#define old_offset refresh__old_offset
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002913
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002914 int li, changed;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002915 char *tp, *sp; // pointer into text[] and screen[]
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002916
Denys Vlasenkoc5fb0ad2010-07-21 12:39:42 +02002917 if (ENABLE_FEATURE_VI_WIN_RESIZE IF_FEATURE_VI_ASK_TERMINAL(&& !G.get_rowcol_error) ) {
Denis Vlasenko55995022008-05-18 22:28:26 +00002918 unsigned c = columns, r = rows;
Denys Vlasenko2bb651a2010-04-16 20:55:52 -07002919 query_screen_dimensions();
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002920 full_screen |= (c - columns) | (r - rows);
2921 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002922 sync_cursor(dot, &crow, &ccol); // where cursor will be (on "dot")
2923 tp = screenbegin; // index into text[] of top line
2924
2925 // compare text[] to screen[] and mark screen[] lines that need updating
2926 for (li = 0; li < rows - 1; li++) {
2927 int cs, ce; // column start & end
Denis Vlasenkof882f082007-12-23 02:36:51 +00002928 char *out_buf;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002929 // format current text line
Denis Vlasenko68404f12008-03-17 09:00:54 +00002930 out_buf = format_line(tp /*, li*/);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002931
2932 // skip to the end of the current text[] line
Denis Vlasenkof882f082007-12-23 02:36:51 +00002933 if (tp < end) {
2934 char *t = memchr(tp, '\n', end - tp);
2935 if (!t) t = end - 1;
2936 tp = t + 1;
2937 }
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002938
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002939 // see if there are any changes between vitual screen and out_buf
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002940 changed = FALSE; // assume no change
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002941 cs = 0;
2942 ce = columns - 1;
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002943 sp = &screen[li * columns]; // start of screen line
2944 if (full_screen) {
2945 // force re-draw of every single column from 0 - columns-1
2946 goto re0;
2947 }
2948 // compare newly formatted buffer with virtual screen
2949 // look forward for first difference between buf and screen
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002950 for (; cs <= ce; cs++) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002951 if (out_buf[cs] != sp[cs]) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002952 changed = TRUE; // mark for redraw
2953 break;
2954 }
2955 }
2956
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002957 // look backward for last difference between out_buf and screen
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002958 for (; ce >= cs; ce--) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002959 if (out_buf[ce] != sp[ce]) {
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002960 changed = TRUE; // mark for redraw
2961 break;
2962 }
2963 }
2964 // now, cs is index of first diff, and ce is index of last diff
2965
2966 // if horz offset has changed, force a redraw
2967 if (offset != old_offset) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00002968 re0:
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002969 changed = TRUE;
2970 }
2971
2972 // make a sanity check of columns indexes
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002973 if (cs < 0) cs = 0;
2974 if (ce > columns - 1) ce = columns - 1;
2975 if (cs > ce) { cs = 0; ce = columns - 1; }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002976 // is there a change between vitual screen and out_buf
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002977 if (changed) {
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002978 // copy changed part of buffer to virtual screen
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002979 memcpy(sp+cs, out_buf+cs, ce-cs+1);
Denys Vlasenko04b52892012-06-11 13:51:38 +02002980 place_cursor(li, cs);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002981 // write line out to terminal
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00002982 fwrite(&sp[cs], ce - cs + 1, 1, stdout);
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002983 }
2984 }
2985
Denys Vlasenko04b52892012-06-11 13:51:38 +02002986 place_cursor(crow, ccol);
Eric Andersenc7bda1c2004-03-15 08:29:22 +00002987
Denis Vlasenko26b6fba2007-12-21 21:34:37 +00002988 old_offset = offset;
Denis Vlasenkob1759462008-06-20 20:20:54 +00002989#undef old_offset
Aaron Lehmann6fdacc72002-08-21 13:02:24 +00002990}
2991
Eric Andersen3f980402001-04-04 17:31:15 +00002992//---------------------------------------------------------------------
2993//----- the Ascii Chart -----------------------------------------------
2994//
2995// 00 nul 01 soh 02 stx 03 etx 04 eot 05 enq 06 ack 07 bel
2996// 08 bs 09 ht 0a nl 0b vt 0c np 0d cr 0e so 0f si
2997// 10 dle 11 dc1 12 dc2 13 dc3 14 dc4 15 nak 16 syn 17 etb
2998// 18 can 19 em 1a sub 1b esc 1c fs 1d gs 1e rs 1f us
2999// 20 sp 21 ! 22 " 23 # 24 $ 25 % 26 & 27 '
3000// 28 ( 29 ) 2a * 2b + 2c , 2d - 2e . 2f /
3001// 30 0 31 1 32 2 33 3 34 4 35 5 36 6 37 7
3002// 38 8 39 9 3a : 3b ; 3c < 3d = 3e > 3f ?
3003// 40 @ 41 A 42 B 43 C 44 D 45 E 46 F 47 G
3004// 48 H 49 I 4a J 4b K 4c L 4d M 4e N 4f O
3005// 50 P 51 Q 52 R 53 S 54 T 55 U 56 V 57 W
3006// 58 X 59 Y 5a Z 5b [ 5c \ 5d ] 5e ^ 5f _
3007// 60 ` 61 a 62 b 63 c 64 d 65 e 66 f 67 g
3008// 68 h 69 i 6a j 6b k 6c l 6d m 6e n 6f o
3009// 70 p 71 q 72 r 73 s 74 t 75 u 76 v 77 w
3010// 78 x 79 y 7a z 7b { 7c | 7d } 7e ~ 7f del
3011//---------------------------------------------------------------------
3012
3013//----- Execute a Vi Command -----------------------------------
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00003014static void do_cmd(int c)
Eric Andersen3f980402001-04-04 17:31:15 +00003015{
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00003016 char *p, *q, *save_dot;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003017 char buf[12];
Denis Vlasenkoc3a9dc82008-10-29 00:58:04 +00003018 int dir;
Paul Foxc51fc7b2008-03-06 01:34:23 +00003019 int cnt, i, j;
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00003020 int c1;
Eric Andersen3f980402001-04-04 17:31:15 +00003021
Denis Vlasenkoe3cbfb92007-12-22 17:00:11 +00003022// c1 = c; // quiet the compiler
3023// cnt = yf = 0; // quiet the compiler
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003024// p = q = save_dot = buf; // quiet the compiler
3025 memset(buf, '\0', sizeof(buf));
Eric Andersenbff7a602001-11-17 07:15:43 +00003026
Paul Fox8552aec2005-09-16 12:20:05 +00003027 show_status_line();
3028
Eric Andersenbff7a602001-11-17 07:15:43 +00003029 /* if this is a cursor key, skip these checks */
3030 switch (c) {
Denis Vlasenko0112ff52008-10-25 23:23:00 +00003031 case KEYCODE_UP:
3032 case KEYCODE_DOWN:
3033 case KEYCODE_LEFT:
3034 case KEYCODE_RIGHT:
3035 case KEYCODE_HOME:
3036 case KEYCODE_END:
3037 case KEYCODE_PAGEUP:
3038 case KEYCODE_PAGEDOWN:
3039 case KEYCODE_DELETE:
Eric Andersenbff7a602001-11-17 07:15:43 +00003040 goto key_cmd_mode;
3041 }
3042
Eric Andersen3f980402001-04-04 17:31:15 +00003043 if (cmd_mode == 2) {
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003044 // flip-flop Insert/Replace mode
Denis Vlasenko0112ff52008-10-25 23:23:00 +00003045 if (c == KEYCODE_INSERT)
Denis Vlasenko2a51af22007-03-21 22:31:24 +00003046 goto dc_i;
Eric Andersen3f980402001-04-04 17:31:15 +00003047 // we are 'R'eplacing the current *dot with new char
3048 if (*dot == '\n') {
3049 // don't Replace past E-o-l
3050 cmd_mode = 1; // convert to insert
3051 } else {
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003052 if (1 <= c || Isprint(c)) {
Eric Andersen3f980402001-04-04 17:31:15 +00003053 if (c != 27)
3054 dot = yank_delete(dot, dot, 0, YANKDEL); // delete char
3055 dot = char_insert(dot, c); // insert new char
3056 }
3057 goto dc1;
3058 }
3059 }
3060 if (cmd_mode == 1) {
Eric Andersen1c0d3112001-04-16 15:46:44 +00003061 // hitting "Insert" twice means "R" replace mode
Denis Vlasenko0112ff52008-10-25 23:23:00 +00003062 if (c == KEYCODE_INSERT) goto dc5;
Eric Andersen3f980402001-04-04 17:31:15 +00003063 // insert the char c at "dot"
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003064 if (1 <= c || Isprint(c)) {
3065 dot = char_insert(dot, c);
Eric Andersen3f980402001-04-04 17:31:15 +00003066 }
3067 goto dc1;
3068 }
3069
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003070 key_cmd_mode:
Eric Andersen3f980402001-04-04 17:31:15 +00003071 switch (c) {
Eric Andersen822c3832001-05-07 17:37:43 +00003072 //case 0x01: // soh
3073 //case 0x09: // ht
3074 //case 0x0b: // vt
3075 //case 0x0e: // so
3076 //case 0x0f: // si
3077 //case 0x10: // dle
3078 //case 0x11: // dc1
3079 //case 0x13: // dc3
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003080#if ENABLE_FEATURE_VI_CRASHME
Eric Andersen1c0d3112001-04-16 15:46:44 +00003081 case 0x14: // dc4 ctrl-T
Eric Andersen3f980402001-04-04 17:31:15 +00003082 crashme = (crashme == 0) ? 1 : 0;
Eric Andersen3f980402001-04-04 17:31:15 +00003083 break;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003084#endif
Eric Andersen822c3832001-05-07 17:37:43 +00003085 //case 0x16: // syn
3086 //case 0x17: // etb
3087 //case 0x18: // can
3088 //case 0x1c: // fs
3089 //case 0x1d: // gs
3090 //case 0x1e: // rs
3091 //case 0x1f: // us
Eric Andersenc7bda1c2004-03-15 08:29:22 +00003092 //case '!': // !-
3093 //case '#': // #-
3094 //case '&': // &-
3095 //case '(': // (-
3096 //case ')': // )-
3097 //case '*': // *-
Eric Andersenc7bda1c2004-03-15 08:29:22 +00003098 //case '=': // =-
3099 //case '@': // @-
3100 //case 'F': // F-
3101 //case 'K': // K-
3102 //case 'Q': // Q-
3103 //case 'S': // S-
3104 //case 'T': // T-
3105 //case 'V': // V-
3106 //case '[': // [-
3107 //case '\\': // \-
3108 //case ']': // ]-
3109 //case '_': // _-
3110 //case '`': // `-
Eric Andersen1c0d3112001-04-16 15:46:44 +00003111 //case 'u': // u- FIXME- there is no undo
Eric Andersenc7bda1c2004-03-15 08:29:22 +00003112 //case 'v': // v-
Denys Vlasenkob22bbff2009-07-04 16:50:43 +02003113 default: // unrecognized command
Eric Andersen3f980402001-04-04 17:31:15 +00003114 buf[0] = c;
3115 buf[1] = '\0';
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003116 not_implemented(buf);
Eric Andersen3f980402001-04-04 17:31:15 +00003117 end_cmd_q(); // stop adding to q
3118 case 0x00: // nul- ignore
3119 break;
3120 case 2: // ctrl-B scroll up full screen
Denis Vlasenko0112ff52008-10-25 23:23:00 +00003121 case KEYCODE_PAGEUP: // Cursor Key Page Up
Eric Andersen3f980402001-04-04 17:31:15 +00003122 dot_scroll(rows - 2, -1);
3123 break;
Eric Andersen3f980402001-04-04 17:31:15 +00003124 case 4: // ctrl-D scroll down half screen
3125 dot_scroll((rows - 2) / 2, 1);
3126 break;
3127 case 5: // ctrl-E scroll down one line
3128 dot_scroll(1, 1);
3129 break;
3130 case 6: // ctrl-F scroll down full screen
Denis Vlasenko0112ff52008-10-25 23:23:00 +00003131 case KEYCODE_PAGEDOWN: // Cursor Key Page Down
Eric Andersen3f980402001-04-04 17:31:15 +00003132 dot_scroll(rows - 2, 1);
3133 break;
3134 case 7: // ctrl-G show current status
Paul Fox8552aec2005-09-16 12:20:05 +00003135 last_status_cksum = 0; // force status update
Eric Andersen3f980402001-04-04 17:31:15 +00003136 break;
3137 case 'h': // h- move left
Denis Vlasenko0112ff52008-10-25 23:23:00 +00003138 case KEYCODE_LEFT: // cursor key Left
Paul Foxd13b90b2005-07-18 22:17:25 +00003139 case 8: // ctrl-H- move left (This may be ERASE char)
Denis Vlasenko2a51af22007-03-21 22:31:24 +00003140 case 0x7f: // DEL- move left (This may be ERASE char)
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003141 do {
3142 dot_left();
3143 } while (--cmdcnt > 0);
Eric Andersen3f980402001-04-04 17:31:15 +00003144 break;
3145 case 10: // Newline ^J
3146 case 'j': // j- goto next line, same col
Denis Vlasenko0112ff52008-10-25 23:23:00 +00003147 case KEYCODE_DOWN: // cursor key Down
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003148 do {
3149 dot_next(); // go to next B-o-l
3150 // try stay in same col
3151 dot = move_to_col(dot, ccol + offset);
3152 } while (--cmdcnt > 0);
Eric Andersen3f980402001-04-04 17:31:15 +00003153 break;
3154 case 12: // ctrl-L force redraw whole screen
Eric Andersen1c0d3112001-04-16 15:46:44 +00003155 case 18: // ctrl-R force redraw
Denys Vlasenko04b52892012-06-11 13:51:38 +02003156 place_cursor(0, 0);
3157 clear_to_eos();
3158 //mysleep(10); // why???
Eric Andersen3f980402001-04-04 17:31:15 +00003159 screen_erase(); // erase the internal screen buffer
Paul Fox8552aec2005-09-16 12:20:05 +00003160 last_status_cksum = 0; // force status update
Eric Andersen3f980402001-04-04 17:31:15 +00003161 refresh(TRUE); // this will redraw the entire display
3162 break;
3163 case 13: // Carriage Return ^M
3164 case '+': // +- goto next line
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003165 do {
3166 dot_next();
3167 dot_skip_over_ws();
3168 } while (--cmdcnt > 0);
Eric Andersen3f980402001-04-04 17:31:15 +00003169 break;
3170 case 21: // ctrl-U scroll up half screen
3171 dot_scroll((rows - 2) / 2, -1);
3172 break;
3173 case 25: // ctrl-Y scroll up one line
3174 dot_scroll(1, -1);
3175 break;
Eric Andersen822c3832001-05-07 17:37:43 +00003176 case 27: // esc
Eric Andersen3f980402001-04-04 17:31:15 +00003177 if (cmd_mode == 0)
3178 indicate_error(c);
3179 cmd_mode = 0; // stop insrting
3180 end_cmd_q();
Paul Fox8552aec2005-09-16 12:20:05 +00003181 last_status_cksum = 0; // force status update
Eric Andersen3f980402001-04-04 17:31:15 +00003182 break;
3183 case ' ': // move right
3184 case 'l': // move right
Denis Vlasenko0112ff52008-10-25 23:23:00 +00003185 case KEYCODE_RIGHT: // Cursor Key Right
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003186 do {
3187 dot_right();
3188 } while (--cmdcnt > 0);
Eric Andersen3f980402001-04-04 17:31:15 +00003189 break;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003190#if ENABLE_FEATURE_VI_YANKMARK
Eric Andersen3f980402001-04-04 17:31:15 +00003191 case '"': // "- name a register to use for Delete/Yank
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00003192 c1 = (get_one_char() | 0x20) - 'a'; // | 0x20 is tolower()
3193 if ((unsigned)c1 <= 25) { // a-z?
3194 YDreg = c1;
Eric Andersen3f980402001-04-04 17:31:15 +00003195 } else {
3196 indicate_error(c);
3197 }
3198 break;
3199 case '\'': // '- goto a specific mark
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00003200 c1 = (get_one_char() | 0x20) - 'a';
3201 if ((unsigned)c1 <= 25) { // a-z?
Eric Andersen3f980402001-04-04 17:31:15 +00003202 // get the b-o-l
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00003203 q = mark[c1];
Eric Andersen3f980402001-04-04 17:31:15 +00003204 if (text <= q && q < end) {
3205 dot = q;
3206 dot_begin(); // go to B-o-l
3207 dot_skip_over_ws();
3208 }
3209 } else if (c1 == '\'') { // goto previous context
3210 dot = swap_context(dot); // swap current and previous context
3211 dot_begin(); // go to B-o-l
3212 dot_skip_over_ws();
3213 } else {
3214 indicate_error(c);
3215 }
3216 break;
3217 case 'm': // m- Mark a line
3218 // this is really stupid. If there are any inserts or deletes
3219 // between text[0] and dot then this mark will not point to the
3220 // correct location! It could be off by many lines!
3221 // Well..., at least its quick and dirty.
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00003222 c1 = (get_one_char() | 0x20) - 'a';
3223 if ((unsigned)c1 <= 25) { // a-z?
Eric Andersen3f980402001-04-04 17:31:15 +00003224 // remember the line
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00003225 mark[c1] = dot;
Eric Andersen3f980402001-04-04 17:31:15 +00003226 } else {
3227 indicate_error(c);
3228 }
3229 break;
3230 case 'P': // P- Put register before
3231 case 'p': // p- put register after
3232 p = reg[YDreg];
Denis Vlasenko00d84172008-11-24 07:34:42 +00003233 if (p == NULL) {
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003234 status_line_bold("Nothing in register %c", what_reg());
Eric Andersen3f980402001-04-04 17:31:15 +00003235 break;
3236 }
3237 // are we putting whole lines or strings
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003238 if (strchr(p, '\n') != NULL) {
Eric Andersen3f980402001-04-04 17:31:15 +00003239 if (c == 'P') {
3240 dot_begin(); // putting lines- Put above
3241 }
3242 if (c == 'p') {
3243 // are we putting after very last line?
3244 if (end_line(dot) == (end - 1)) {
3245 dot = end; // force dot to end of text[]
3246 } else {
3247 dot_next(); // next line, then put before
3248 }
3249 }
3250 } else {
3251 if (c == 'p')
3252 dot_right(); // move to right, can move to NL
3253 }
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00003254 string_insert(dot, p); // insert the string
Eric Andersen3f980402001-04-04 17:31:15 +00003255 end_cmd_q(); // stop adding to q
3256 break;
Eric Andersen3f980402001-04-04 17:31:15 +00003257 case 'U': // U- Undo; replace current line with original version
Denys Vlasenko800a9a02012-01-31 14:10:26 +01003258 if (reg[Ureg] != NULL) {
Eric Andersen3f980402001-04-04 17:31:15 +00003259 p = begin_line(dot);
3260 q = end_line(dot);
3261 p = text_hole_delete(p, q); // delete cur line
Denis Vlasenko4ae1e132008-11-19 13:25:14 +00003262 p += string_insert(p, reg[Ureg]); // insert orig line
Eric Andersen3f980402001-04-04 17:31:15 +00003263 dot = p;
3264 dot_skip_over_ws();
3265 }
3266 break;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003267#endif /* FEATURE_VI_YANKMARK */
Eric Andersen3f980402001-04-04 17:31:15 +00003268 case '$': // $- goto end of line
Denis Vlasenko0112ff52008-10-25 23:23:00 +00003269 case KEYCODE_END: // Cursor Key End
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003270 for (;;) {
3271 dot = end_line(dot);
Denys Vlasenko1fd71292011-11-28 04:55:48 +01003272 if (--cmdcnt <= 0)
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003273 break;
Denys Vlasenko35fdb1b2010-03-26 16:10:14 +01003274 dot_next();
Denys Vlasenko35fdb1b2010-03-26 16:10:14 +01003275 }
Eric Andersen3f980402001-04-04 17:31:15 +00003276 break;
3277 case '%': // %- find matching char of pair () [] {}
3278 for (q = dot; q < end && *q != '\n'; q++) {
3279 if (strchr("()[]{}", *q) != NULL) {
3280 // we found half of a pair
3281 p = find_pair(q, *q);
3282 if (p == NULL) {
3283 indicate_error(c);
3284 } else {
3285 dot = p;
3286 }
3287 break;
3288 }
3289 }
3290 if (*q == '\n')
3291 indicate_error(c);
3292 break;
3293 case 'f': // f- forward to a user specified char
3294 last_forward_char = get_one_char(); // get the search char
3295 //
Eric Andersenaff114c2004-04-14 17:51:38 +00003296 // dont separate these two commands. 'f' depends on ';'
Eric Andersen3f980402001-04-04 17:31:15 +00003297 //
Bernhard Reutner-Fischera985d302008-02-11 11:44:38 +00003298 //**** fall through to ... ';'
Eric Andersen3f980402001-04-04 17:31:15 +00003299 case ';': // ;- look at rest of line for last forward char
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003300 do {
3301 if (last_forward_char == 0)
3302 break;
3303 q = dot + 1;
3304 while (q < end - 1 && *q != '\n' && *q != last_forward_char) {
3305 q++;
3306 }
3307 if (*q == last_forward_char)
3308 dot = q;
3309 } while (--cmdcnt > 0);
Eric Andersen3f980402001-04-04 17:31:15 +00003310 break;
Paul Foxb5ee8db2008-02-14 01:17:01 +00003311 case ',': // repeat latest 'f' in opposite direction
Paul Foxb5ee8db2008-02-14 01:17:01 +00003312 if (last_forward_char == 0)
3313 break;
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003314 do {
3315 q = dot - 1;
3316 while (q >= text && *q != '\n' && *q != last_forward_char) {
3317 q--;
3318 }
3319 if (q >= text && *q == last_forward_char)
3320 dot = q;
3321 } while (--cmdcnt > 0);
Paul Foxb5ee8db2008-02-14 01:17:01 +00003322 break;
3323
Eric Andersen3f980402001-04-04 17:31:15 +00003324 case '-': // -- goto prev line
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003325 do {
3326 dot_prev();
3327 dot_skip_over_ws();
3328 } while (--cmdcnt > 0);
Eric Andersen3f980402001-04-04 17:31:15 +00003329 break;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003330#if ENABLE_FEATURE_VI_DOT_CMD
Eric Andersen3f980402001-04-04 17:31:15 +00003331 case '.': // .- repeat the last modifying command
3332 // Stuff the last_modifying_cmd back into stdin
3333 // and let it be re-executed.
Denis Vlasenkob1759462008-06-20 20:20:54 +00003334 if (lmc_len > 0) {
Paul Foxc51fc7b2008-03-06 01:34:23 +00003335 last_modifying_cmd[lmc_len] = 0;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003336 ioq = ioq_start = xstrdup(last_modifying_cmd);
Eric Andersen3f980402001-04-04 17:31:15 +00003337 }
3338 break;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003339#endif
3340#if ENABLE_FEATURE_VI_SEARCH
Eric Andersen3f980402001-04-04 17:31:15 +00003341 case '?': // /- search for a pattern
3342 case '/': // /- search for a pattern
3343 buf[0] = c;
3344 buf[1] = '\0';
3345 q = get_input_line(buf); // get input line- use "status line"
Paul Fox4917c112008-03-05 16:44:02 +00003346 if (q[0] && !q[1]) {
3347 if (last_search_pattern[0])
Denis Vlasenkoc3a9dc82008-10-29 00:58:04 +00003348 last_search_pattern[0] = c;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003349 goto dc3; // if no pat re-use old pat
Paul Fox4917c112008-03-05 16:44:02 +00003350 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003351 if (q[0]) { // strlen(q) > 1: new pat- save it and find
Eric Andersen3f980402001-04-04 17:31:15 +00003352 // there is a new pat
Aaron Lehmanna170e1c2002-11-28 11:27:31 +00003353 free(last_search_pattern);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003354 last_search_pattern = xstrdup(q);
Eric Andersen3f980402001-04-04 17:31:15 +00003355 goto dc3; // now find the pattern
3356 }
3357 // user changed mind and erased the "/"- do nothing
3358 break;
3359 case 'N': // N- backward search for last pattern
Eric Andersen3f980402001-04-04 17:31:15 +00003360 dir = BACK; // assume BACKWARD search
3361 p = dot - 1;
3362 if (last_search_pattern[0] == '?') {
3363 dir = FORWARD;
3364 p = dot + 1;
3365 }
3366 goto dc4; // now search for pattern
3367 break;
3368 case 'n': // n- repeat search for last pattern
3369 // search rest of text[] starting at next char
3370 // if search fails return orignal "p" not the "p+1" address
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003371 do {
3372 const char *msg;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003373 dc3:
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003374 dir = FORWARD; // assume FORWARD search
3375 p = dot + 1;
3376 if (last_search_pattern[0] == '?') {
3377 dir = BACK;
3378 p = dot - 1;
Eric Andersen3f980402001-04-04 17:31:15 +00003379 }
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003380 dc4:
3381 q = char_search(p, last_search_pattern + 1, dir, FULL);
3382 if (q != NULL) {
3383 dot = q; // good search, update "dot"
3384 msg = NULL;
3385 goto dc2;
3386 }
3387 // no pattern found between "dot" and "end"- continue at top
3388 p = text;
3389 if (dir == BACK) {
3390 p = end - 1;
3391 }
3392 q = char_search(p, last_search_pattern + 1, dir, FULL);
3393 if (q != NULL) { // found something
3394 dot = q; // found new pattern- goto it
3395 msg = "search hit BOTTOM, continuing at TOP";
3396 if (dir == BACK) {
3397 msg = "search hit TOP, continuing at BOTTOM";
3398 }
3399 } else {
3400 msg = "Pattern not found";
3401 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003402 dc2:
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003403 if (msg)
3404 status_line_bold("%s", msg);
3405 } while (--cmdcnt > 0);
Eric Andersen3f980402001-04-04 17:31:15 +00003406 break;
3407 case '{': // {- move backward paragraph
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003408 q = char_search(dot, "\n\n", BACK, FULL);
Eric Andersen3f980402001-04-04 17:31:15 +00003409 if (q != NULL) { // found blank line
3410 dot = next_line(q); // move to next blank line
3411 }
3412 break;
3413 case '}': // }- move forward paragraph
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003414 q = char_search(dot, "\n\n", FORWARD, FULL);
Eric Andersen3f980402001-04-04 17:31:15 +00003415 if (q != NULL) { // found blank line
3416 dot = next_line(q); // move to next blank line
3417 }
3418 break;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003419#endif /* FEATURE_VI_SEARCH */
Eric Andersen3f980402001-04-04 17:31:15 +00003420 case '0': // 0- goto begining of line
Eric Andersenc7bda1c2004-03-15 08:29:22 +00003421 case '1': // 1-
3422 case '2': // 2-
3423 case '3': // 3-
3424 case '4': // 4-
3425 case '5': // 5-
3426 case '6': // 6-
3427 case '7': // 7-
3428 case '8': // 8-
3429 case '9': // 9-
Eric Andersen3f980402001-04-04 17:31:15 +00003430 if (c == '0' && cmdcnt < 1) {
3431 dot_begin(); // this was a standalone zero
3432 } else {
3433 cmdcnt = cmdcnt * 10 + (c - '0'); // this 0 is part of a number
3434 }
3435 break;
3436 case ':': // :- the colon mode commands
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003437 p = get_input_line(":"); // get input line- use "status line"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003438#if ENABLE_FEATURE_VI_COLON
Eric Andersen3f980402001-04-04 17:31:15 +00003439 colon(p); // execute the command
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003440#else
Eric Andersen822c3832001-05-07 17:37:43 +00003441 if (*p == ':')
3442 p++; // move past the ':'
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003443 cnt = strlen(p);
Eric Andersen822c3832001-05-07 17:37:43 +00003444 if (cnt <= 0)
3445 break;
Denys Vlasenko6548edd2009-06-15 12:44:11 +02003446 if (strncmp(p, "quit", cnt) == 0
3447 || strncmp(p, "q!", cnt) == 0 // delete lines
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003448 ) {
Matt Kraai1f0c4362001-12-20 23:13:26 +00003449 if (file_modified && p[1] != '!') {
Dennis Groenenc0657e02012-01-31 14:12:38 +01003450 status_line_bold("No write since last change (:%s! overrides)", p);
Eric Andersen3f980402001-04-04 17:31:15 +00003451 } else {
3452 editing = 0;
3453 }
Denys Vlasenko6548edd2009-06-15 12:44:11 +02003454 } else if (strncmp(p, "write", cnt) == 0
3455 || strncmp(p, "wq", cnt) == 0
3456 || strncmp(p, "wn", cnt) == 0
3457 || (p[0] == 'x' && !p[1])
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003458 ) {
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00003459 cnt = file_write(current_filename, text, end - 1);
Paul Fox61e45db2005-10-09 14:43:22 +00003460 if (cnt < 0) {
3461 if (cnt == -1)
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003462 status_line_bold("Write error: %s", strerror(errno));
Paul Fox61e45db2005-10-09 14:43:22 +00003463 } else {
3464 file_modified = 0;
3465 last_file_modified = -1;
Denys Vlasenko778794d2013-01-22 10:13:52 +01003466 status_line("'%s' %dL, %dC", current_filename, count_lines(text, end - 1), cnt);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003467 if (p[0] == 'x' || p[1] == 'q' || p[1] == 'n'
3468 || p[0] == 'X' || p[1] == 'Q' || p[1] == 'N'
3469 ) {
Paul Fox61e45db2005-10-09 14:43:22 +00003470 editing = 0;
3471 }
Eric Andersen3f980402001-04-04 17:31:15 +00003472 }
Denys Vlasenko6548edd2009-06-15 12:44:11 +02003473 } else if (strncmp(p, "file", cnt) == 0) {
Paul Fox8552aec2005-09-16 12:20:05 +00003474 last_status_cksum = 0; // force status update
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003475 } else if (sscanf(p, "%d", &j) > 0) {
Eric Andersen822c3832001-05-07 17:37:43 +00003476 dot = find_line(j); // go to line # j
3477 dot_skip_over_ws();
Denys Vlasenkob22bbff2009-07-04 16:50:43 +02003478 } else { // unrecognized cmd
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003479 not_implemented(p);
Eric Andersen3f980402001-04-04 17:31:15 +00003480 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003481#endif /* !FEATURE_VI_COLON */
Eric Andersen3f980402001-04-04 17:31:15 +00003482 break;
3483 case '<': // <- Left shift something
3484 case '>': // >- Right shift something
3485 cnt = count_lines(text, dot); // remember what line we are on
3486 c1 = get_one_char(); // get the type of thing to delete
3487 find_range(&p, &q, c1);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003488 yank_delete(p, q, 1, YANKONLY); // save copy before change
Eric Andersen3f980402001-04-04 17:31:15 +00003489 p = begin_line(p);
3490 q = end_line(q);
3491 i = count_lines(p, q); // # of lines we are shifting
3492 for ( ; i > 0; i--, p = next_line(p)) {
3493 if (c == '<') {
3494 // shift left- remove tab or 8 spaces
3495 if (*p == '\t') {
3496 // shrink buffer 1 char
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003497 text_hole_delete(p, p);
Eric Andersen3f980402001-04-04 17:31:15 +00003498 } else if (*p == ' ') {
3499 // we should be calculating columns, not just SPACE
3500 for (j = 0; *p == ' ' && j < tabstop; j++) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003501 text_hole_delete(p, p);
Eric Andersen3f980402001-04-04 17:31:15 +00003502 }
3503 }
3504 } else if (c == '>') {
3505 // shift right -- add tab or 8 spaces
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003506 char_insert(p, '\t');
Eric Andersen3f980402001-04-04 17:31:15 +00003507 }
3508 }
3509 dot = find_line(cnt); // what line were we on
3510 dot_skip_over_ws();
3511 end_cmd_q(); // stop adding to q
3512 break;
3513 case 'A': // A- append at e-o-l
3514 dot_end(); // go to e-o-l
Bernhard Reutner-Fischera985d302008-02-11 11:44:38 +00003515 //**** fall through to ... 'a'
Eric Andersen3f980402001-04-04 17:31:15 +00003516 case 'a': // a- append after current char
3517 if (*dot != '\n')
3518 dot++;
3519 goto dc_i;
3520 break;
3521 case 'B': // B- back a blank-delimited Word
3522 case 'E': // E- end of a blank-delimited word
3523 case 'W': // W- forward a blank-delimited word
Eric Andersen3f980402001-04-04 17:31:15 +00003524 dir = FORWARD;
3525 if (c == 'B')
3526 dir = BACK;
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003527 do {
3528 if (c == 'W' || isspace(dot[dir])) {
3529 dot = skip_thing(dot, 1, dir, S_TO_WS);
3530 dot = skip_thing(dot, 2, dir, S_OVER_WS);
3531 }
3532 if (c != 'W')
3533 dot = skip_thing(dot, 1, dir, S_BEFORE_WS);
3534 } while (--cmdcnt > 0);
Eric Andersen3f980402001-04-04 17:31:15 +00003535 break;
3536 case 'C': // C- Change to e-o-l
3537 case 'D': // D- delete to e-o-l
3538 save_dot = dot;
3539 dot = dollar_line(dot); // move to before NL
3540 // copy text into a register and delete
3541 dot = yank_delete(save_dot, dot, 0, YANKDEL); // delete to e-o-l
3542 if (c == 'C')
3543 goto dc_i; // start inserting
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003544#if ENABLE_FEATURE_VI_DOT_CMD
Eric Andersen3f980402001-04-04 17:31:15 +00003545 if (c == 'D')
3546 end_cmd_q(); // stop adding to q
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003547#endif
Eric Andersen3f980402001-04-04 17:31:15 +00003548 break;
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00003549 case 'g': // 'gg' goto a line number (vim) (default: very first line)
Paul Foxb5ee8db2008-02-14 01:17:01 +00003550 c1 = get_one_char();
3551 if (c1 != 'g') {
3552 buf[0] = 'g';
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00003553 buf[1] = c1; // TODO: if Unicode?
Paul Foxb5ee8db2008-02-14 01:17:01 +00003554 buf[2] = '\0';
3555 not_implemented(buf);
3556 break;
3557 }
3558 if (cmdcnt == 0)
3559 cmdcnt = 1;
3560 /* fall through */
Eric Andersen822c3832001-05-07 17:37:43 +00003561 case 'G': // G- goto to a line number (default= E-O-F)
3562 dot = end - 1; // assume E-O-F
Eric Andersen1c0d3112001-04-16 15:46:44 +00003563 if (cmdcnt > 0) {
Eric Andersen822c3832001-05-07 17:37:43 +00003564 dot = find_line(cmdcnt); // what line is #cmdcnt
Eric Andersen1c0d3112001-04-16 15:46:44 +00003565 }
3566 dot_skip_over_ws();
3567 break;
Eric Andersen3f980402001-04-04 17:31:15 +00003568 case 'H': // H- goto top line on screen
3569 dot = screenbegin;
3570 if (cmdcnt > (rows - 1)) {
3571 cmdcnt = (rows - 1);
3572 }
Denys Vlasenko35fdb1b2010-03-26 16:10:14 +01003573 if (--cmdcnt > 0) {
Eric Andersen3f980402001-04-04 17:31:15 +00003574 do_cmd('+');
Denys Vlasenko35fdb1b2010-03-26 16:10:14 +01003575 }
Eric Andersen3f980402001-04-04 17:31:15 +00003576 dot_skip_over_ws();
3577 break;
3578 case 'I': // I- insert before first non-blank
3579 dot_begin(); // 0
3580 dot_skip_over_ws();
Bernhard Reutner-Fischera985d302008-02-11 11:44:38 +00003581 //**** fall through to ... 'i'
Eric Andersen3f980402001-04-04 17:31:15 +00003582 case 'i': // i- insert before current char
Denis Vlasenko0112ff52008-10-25 23:23:00 +00003583 case KEYCODE_INSERT: // Cursor Key Insert
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003584 dc_i:
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003585 cmd_mode = 1; // start inserting
Eric Andersen3f980402001-04-04 17:31:15 +00003586 break;
3587 case 'J': // J- join current and next lines together
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003588 do {
3589 dot_end(); // move to NL
3590 if (dot < end - 1) { // make sure not last char in text[]
3591 *dot++ = ' '; // replace NL with space
3592 file_modified++;
3593 while (isblank(*dot)) { // delete leading WS
3594 dot_delete();
3595 }
Eric Andersen3f980402001-04-04 17:31:15 +00003596 }
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003597 } while (--cmdcnt > 0);
Eric Andersen3f980402001-04-04 17:31:15 +00003598 end_cmd_q(); // stop adding to q
3599 break;
3600 case 'L': // L- goto bottom line on screen
3601 dot = end_screen();
3602 if (cmdcnt > (rows - 1)) {
3603 cmdcnt = (rows - 1);
3604 }
Denys Vlasenko35fdb1b2010-03-26 16:10:14 +01003605 if (--cmdcnt > 0) {
Eric Andersen3f980402001-04-04 17:31:15 +00003606 do_cmd('-');
Denys Vlasenko35fdb1b2010-03-26 16:10:14 +01003607 }
Eric Andersen3f980402001-04-04 17:31:15 +00003608 dot_begin();
3609 dot_skip_over_ws();
3610 break;
Eric Andersen822c3832001-05-07 17:37:43 +00003611 case 'M': // M- goto middle line on screen
Eric Andersen1c0d3112001-04-16 15:46:44 +00003612 dot = screenbegin;
3613 for (cnt = 0; cnt < (rows-1) / 2; cnt++)
3614 dot = next_line(dot);
3615 break;
Eric Andersen3f980402001-04-04 17:31:15 +00003616 case 'O': // O- open a empty line above
Eric Andersen822c3832001-05-07 17:37:43 +00003617 // 0i\n ESC -i
Eric Andersen3f980402001-04-04 17:31:15 +00003618 p = begin_line(dot);
3619 if (p[-1] == '\n') {
3620 dot_prev();
3621 case 'o': // o- open a empty line below; Yes, I know it is in the middle of the "if (..."
3622 dot_end();
3623 dot = char_insert(dot, '\n');
3624 } else {
3625 dot_begin(); // 0
Eric Andersen822c3832001-05-07 17:37:43 +00003626 dot = char_insert(dot, '\n'); // i\n ESC
Eric Andersen3f980402001-04-04 17:31:15 +00003627 dot_prev(); // -
3628 }
3629 goto dc_i;
3630 break;
3631 case 'R': // R- continuous Replace char
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003632 dc5:
Eric Andersen3f980402001-04-04 17:31:15 +00003633 cmd_mode = 2;
Eric Andersen3f980402001-04-04 17:31:15 +00003634 break;
Denis Vlasenko0112ff52008-10-25 23:23:00 +00003635 case KEYCODE_DELETE:
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003636 c = 'x';
3637 // fall through
Eric Andersen3f980402001-04-04 17:31:15 +00003638 case 'X': // X- delete char before dot
3639 case 'x': // x- delete the current char
3640 case 's': // s- substitute the current char
Eric Andersen3f980402001-04-04 17:31:15 +00003641 dir = 0;
3642 if (c == 'X')
3643 dir = -1;
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003644 do {
3645 if (dot[dir] != '\n') {
3646 if (c == 'X')
3647 dot--; // delete prev char
3648 dot = yank_delete(dot, dot, 0, YANKDEL); // delete char
3649 }
3650 } while (--cmdcnt > 0);
Eric Andersen3f980402001-04-04 17:31:15 +00003651 end_cmd_q(); // stop adding to q
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003652 if (c == 's')
3653 goto dc_i; // start inserting
Eric Andersen3f980402001-04-04 17:31:15 +00003654 break;
3655 case 'Z': // Z- if modified, {write}; exit
3656 // ZZ means to save file (if necessary), then exit
3657 c1 = get_one_char();
3658 if (c1 != 'Z') {
3659 indicate_error(c);
3660 break;
3661 }
Paul Foxf0305b72006-03-28 14:18:21 +00003662 if (file_modified) {
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00003663 if (ENABLE_FEATURE_VI_READONLY && readonly_mode) {
Denys Vlasenko778794d2013-01-22 10:13:52 +01003664 status_line_bold("'%s' is read only", current_filename);
Denis Vlasenko92758142006-10-03 19:56:34 +00003665 break;
Paul Foxf0305b72006-03-28 14:18:21 +00003666 }
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00003667 cnt = file_write(current_filename, text, end - 1);
Paul Fox61e45db2005-10-09 14:43:22 +00003668 if (cnt < 0) {
3669 if (cnt == -1)
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003670 status_line_bold("Write error: %s", strerror(errno));
Paul Fox61e45db2005-10-09 14:43:22 +00003671 } else if (cnt == (end - 1 - text + 1)) {
Eric Andersen3f980402001-04-04 17:31:15 +00003672 editing = 0;
3673 }
3674 } else {
3675 editing = 0;
3676 }
3677 break;
3678 case '^': // ^- move to first non-blank on line
3679 dot_begin();
3680 dot_skip_over_ws();
3681 break;
3682 case 'b': // b- back a word
3683 case 'e': // e- end of word
Eric Andersen3f980402001-04-04 17:31:15 +00003684 dir = FORWARD;
3685 if (c == 'b')
3686 dir = BACK;
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003687 do {
3688 if ((dot + dir) < text || (dot + dir) > end - 1)
3689 break;
3690 dot += dir;
3691 if (isspace(*dot)) {
3692 dot = skip_thing(dot, (c == 'e') ? 2 : 1, dir, S_OVER_WS);
3693 }
3694 if (isalnum(*dot) || *dot == '_') {
3695 dot = skip_thing(dot, 1, dir, S_END_ALNUM);
3696 } else if (ispunct(*dot)) {
3697 dot = skip_thing(dot, 1, dir, S_END_PUNCT);
3698 }
3699 } while (--cmdcnt > 0);
Eric Andersen3f980402001-04-04 17:31:15 +00003700 break;
3701 case 'c': // c- change something
3702 case 'd': // d- delete something
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003703#if ENABLE_FEATURE_VI_YANKMARK
Eric Andersen3f980402001-04-04 17:31:15 +00003704 case 'y': // y- yank something
3705 case 'Y': // Y- Yank a line
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003706#endif
Denis Vlasenkod44c1532008-10-14 12:59:42 +00003707 {
Paul Foxc51fc7b2008-03-06 01:34:23 +00003708 int yf, ml, whole = 0;
Eric Andersen3f980402001-04-04 17:31:15 +00003709 yf = YANKDEL; // assume either "c" or "d"
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003710#if ENABLE_FEATURE_VI_YANKMARK
Eric Andersen3f980402001-04-04 17:31:15 +00003711 if (c == 'y' || c == 'Y')
3712 yf = YANKONLY;
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003713#endif
Eric Andersen3f980402001-04-04 17:31:15 +00003714 c1 = 'y';
3715 if (c != 'Y')
3716 c1 = get_one_char(); // get the type of thing to delete
Paul Foxc51fc7b2008-03-06 01:34:23 +00003717 // determine range, and whether it spans lines
3718 ml = find_range(&p, &q, c1);
Eric Andersen3f980402001-04-04 17:31:15 +00003719 if (c1 == 27) { // ESC- user changed mind and wants out
3720 c = c1 = 27; // Escape- do nothing
3721 } else if (strchr("wW", c1)) {
3722 if (c == 'c') {
3723 // don't include trailing WS as part of word
Denis Vlasenkoeaabf062007-07-17 23:14:07 +00003724 while (isblank(*q)) {
Eric Andersen3f980402001-04-04 17:31:15 +00003725 if (q <= text || q[-1] == '\n')
3726 break;
3727 q--;
3728 }
3729 }
Paul Foxc51fc7b2008-03-06 01:34:23 +00003730 dot = yank_delete(p, q, ml, yf); // delete word
3731 } else if (strchr("^0bBeEft%$ lh\b\177", c1)) {
3732 // partial line copy text into a register and delete
3733 dot = yank_delete(p, q, ml, yf); // delete word
3734 } else if (strchr("cdykjHL+-{}\r\n", c1)) {
3735 // whole line copy text into a register and delete
3736 dot = yank_delete(p, q, ml, yf); // delete lines
3737 whole = 1;
3738 } else {
3739 // could not recognize object
3740 c = c1 = 27; // error-
3741 ml = 0;
3742 indicate_error(c);
3743 }
3744 if (ml && whole) {
Eric Andersen1c0d3112001-04-16 15:46:44 +00003745 if (c == 'c') {
3746 dot = char_insert(dot, '\n');
3747 // on the last line of file don't move to prev line
Paul Foxc51fc7b2008-03-06 01:34:23 +00003748 if (whole && dot != (end-1)) {
Eric Andersen1c0d3112001-04-16 15:46:44 +00003749 dot_prev();
3750 }
3751 } else if (c == 'd') {
Eric Andersen3f980402001-04-04 17:31:15 +00003752 dot_begin();
3753 dot_skip_over_ws();
3754 }
Eric Andersen3f980402001-04-04 17:31:15 +00003755 }
3756 if (c1 != 27) {
3757 // if CHANGING, not deleting, start inserting after the delete
3758 if (c == 'c') {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003759 strcpy(buf, "Change");
Eric Andersen3f980402001-04-04 17:31:15 +00003760 goto dc_i; // start inserting
3761 }
3762 if (c == 'd') {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003763 strcpy(buf, "Delete");
Eric Andersen3f980402001-04-04 17:31:15 +00003764 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003765#if ENABLE_FEATURE_VI_YANKMARK
Eric Andersen3f980402001-04-04 17:31:15 +00003766 if (c == 'y' || c == 'Y') {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003767 strcpy(buf, "Yank");
Eric Andersen3f980402001-04-04 17:31:15 +00003768 }
3769 p = reg[YDreg];
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003770 q = p + strlen(p);
Eric Andersen3f980402001-04-04 17:31:15 +00003771 for (cnt = 0; p <= q; p++) {
3772 if (*p == '\n')
3773 cnt++;
3774 }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003775 status_line("%s %d lines (%d chars) using [%c]",
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003776 buf, cnt, strlen(reg[YDreg]), what_reg());
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003777#endif
Eric Andersen3f980402001-04-04 17:31:15 +00003778 end_cmd_q(); // stop adding to q
3779 }
3780 break;
Denis Vlasenkod44c1532008-10-14 12:59:42 +00003781 }
Eric Andersen3f980402001-04-04 17:31:15 +00003782 case 'k': // k- goto prev line, same col
Denis Vlasenko0112ff52008-10-25 23:23:00 +00003783 case KEYCODE_UP: // cursor key Up
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003784 do {
3785 dot_prev();
3786 dot = move_to_col(dot, ccol + offset); // try stay in same col
3787 } while (--cmdcnt > 0);
Eric Andersen3f980402001-04-04 17:31:15 +00003788 break;
3789 case 'r': // r- replace the current char with user input
3790 c1 = get_one_char(); // get the replacement char
3791 if (*dot != '\n') {
3792 *dot = c1;
Denis Vlasenkob1759462008-06-20 20:20:54 +00003793 file_modified++;
Eric Andersen3f980402001-04-04 17:31:15 +00003794 }
3795 end_cmd_q(); // stop adding to q
3796 break;
Eric Andersen822c3832001-05-07 17:37:43 +00003797 case 't': // t- move to char prior to next x
Tim Rikerc1ef7bd2006-01-25 00:08:53 +00003798 last_forward_char = get_one_char();
3799 do_cmd(';');
3800 if (*dot == last_forward_char)
3801 dot_left();
Denis Vlasenko4c9e9c42008-10-20 08:59:03 +00003802 last_forward_char = 0;
Eric Andersen822c3832001-05-07 17:37:43 +00003803 break;
Eric Andersen3f980402001-04-04 17:31:15 +00003804 case 'w': // w- forward a word
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003805 do {
3806 if (isalnum(*dot) || *dot == '_') { // we are on ALNUM
3807 dot = skip_thing(dot, 1, FORWARD, S_END_ALNUM);
3808 } else if (ispunct(*dot)) { // we are on PUNCT
3809 dot = skip_thing(dot, 1, FORWARD, S_END_PUNCT);
3810 }
3811 if (dot < end - 1)
3812 dot++; // move over word
3813 if (isspace(*dot)) {
3814 dot = skip_thing(dot, 2, FORWARD, S_OVER_WS);
3815 }
3816 } while (--cmdcnt > 0);
Eric Andersen3f980402001-04-04 17:31:15 +00003817 break;
3818 case 'z': // z-
3819 c1 = get_one_char(); // get the replacement char
3820 cnt = 0;
3821 if (c1 == '.')
3822 cnt = (rows - 2) / 2; // put dot at center
3823 if (c1 == '-')
3824 cnt = rows - 2; // put dot at bottom
3825 screenbegin = begin_line(dot); // start dot at top
3826 dot_scroll(cnt, -1);
3827 break;
3828 case '|': // |- move to column "cmdcnt"
3829 dot = move_to_col(dot, cmdcnt - 1); // try to move to column
3830 break;
3831 case '~': // ~- flip the case of letters a-z -> A-Z
Denys Vlasenko12e154f2011-09-09 12:35:49 +02003832 do {
3833 if (islower(*dot)) {
3834 *dot = toupper(*dot);
3835 file_modified++;
3836 } else if (isupper(*dot)) {
3837 *dot = tolower(*dot);
3838 file_modified++;
3839 }
3840 dot_right();
3841 } while (--cmdcnt > 0);
Eric Andersen3f980402001-04-04 17:31:15 +00003842 end_cmd_q(); // stop adding to q
3843 break;
3844 //----- The Cursor and Function Keys -----------------------------
Denis Vlasenko0112ff52008-10-25 23:23:00 +00003845 case KEYCODE_HOME: // Cursor Key Home
Eric Andersen3f980402001-04-04 17:31:15 +00003846 dot_begin();
3847 break;
3848 // The Fn keys could point to do_macro which could translate them
Denis Vlasenko0112ff52008-10-25 23:23:00 +00003849#if 0
3850 case KEYCODE_FUN1: // Function Key F1
3851 case KEYCODE_FUN2: // Function Key F2
3852 case KEYCODE_FUN3: // Function Key F3
3853 case KEYCODE_FUN4: // Function Key F4
3854 case KEYCODE_FUN5: // Function Key F5
3855 case KEYCODE_FUN6: // Function Key F6
3856 case KEYCODE_FUN7: // Function Key F7
3857 case KEYCODE_FUN8: // Function Key F8
3858 case KEYCODE_FUN9: // Function Key F9
3859 case KEYCODE_FUN10: // Function Key F10
3860 case KEYCODE_FUN11: // Function Key F11
3861 case KEYCODE_FUN12: // Function Key F12
Eric Andersen3f980402001-04-04 17:31:15 +00003862 break;
Denis Vlasenko0112ff52008-10-25 23:23:00 +00003863#endif
Eric Andersen3f980402001-04-04 17:31:15 +00003864 }
3865
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003866 dc1:
Eric Andersen3f980402001-04-04 17:31:15 +00003867 // if text[] just became empty, add back an empty line
3868 if (end == text) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003869 char_insert(text, '\n'); // start empty buf with dummy line
Eric Andersen3f980402001-04-04 17:31:15 +00003870 dot = text;
3871 }
3872 // it is OK for dot to exactly equal to end, otherwise check dot validity
3873 if (dot != end) {
3874 dot = bound_dot(dot); // make sure "dot" is valid
3875 }
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003876#if ENABLE_FEATURE_VI_YANKMARK
Eric Andersen3f980402001-04-04 17:31:15 +00003877 check_context(c); // update the current context
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003878#endif
Eric Andersen3f980402001-04-04 17:31:15 +00003879
3880 if (!isdigit(c))
3881 cmdcnt = 0; // cmd was not a number, reset cmdcnt
3882 cnt = dot - begin_line(dot);
3883 // Try to stay off of the Newline
3884 if (*dot == '\n' && cnt > 0 && cmd_mode == 0)
3885 dot--;
3886}
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003887
Paul Fox35e9c5d2008-03-06 16:26:12 +00003888/* NB! the CRASHME code is unmaintained, and doesn't currently build */
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00003889#if ENABLE_FEATURE_VI_CRASHME
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003890static int totalcmds = 0;
3891static int Mp = 85; // Movement command Probability
3892static int Np = 90; // Non-movement command Probability
3893static int Dp = 96; // Delete command Probability
3894static int Ip = 97; // Insert command Probability
3895static int Yp = 98; // Yank command Probability
3896static int Pp = 99; // Put command Probability
3897static int M = 0, N = 0, I = 0, D = 0, Y = 0, P = 0, U = 0;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003898static const char chars[20] = "\t012345 abcdABCD-=.$";
3899static const char *const words[20] = {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003900 "this", "is", "a", "test",
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003901 "broadcast", "the", "emergency", "of",
3902 "system", "quick", "brown", "fox",
3903 "jumped", "over", "lazy", "dogs",
3904 "back", "January", "Febuary", "March"
3905};
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003906static const char *const lines[20] = {
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003907 "You should have received a copy of the GNU General Public License\n",
3908 "char c, cm, *cmd, *cmd1;\n",
3909 "generate a command by percentages\n",
3910 "Numbers may be typed as a prefix to some commands.\n",
3911 "Quit, discarding changes!\n",
3912 "Forced write, if permission originally not valid.\n",
3913 "In general, any ex or ed command (such as substitute or delete).\n",
3914 "I have tickets available for the Blazers vs LA Clippers for Monday, Janurary 1 at 1:00pm.\n",
3915 "Please get w/ me and I will go over it with you.\n",
3916 "The following is a list of scheduled, committed changes.\n",
3917 "1. Launch Norton Antivirus (Start, Programs, Norton Antivirus)\n",
3918 "Reminder....Town Meeting in Central Perk cafe today at 3:00pm.\n",
3919 "Any question about transactions please contact Sterling Huxley.\n",
3920 "I will try to get back to you by Friday, December 31.\n",
3921 "This Change will be implemented on Friday.\n",
3922 "Let me know if you have problems accessing this;\n",
3923 "Sterling Huxley recently added you to the access list.\n",
3924 "Would you like to go to lunch?\n",
3925 "The last command will be automatically run.\n",
3926 "This is too much english for a computer geek.\n",
3927};
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003928static char *multilines[20] = {
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003929 "You should have received a copy of the GNU General Public License\n",
3930 "char c, cm, *cmd, *cmd1;\n",
3931 "generate a command by percentages\n",
3932 "Numbers may be typed as a prefix to some commands.\n",
3933 "Quit, discarding changes!\n",
3934 "Forced write, if permission originally not valid.\n",
3935 "In general, any ex or ed command (such as substitute or delete).\n",
3936 "I have tickets available for the Blazers vs LA Clippers for Monday, Janurary 1 at 1:00pm.\n",
3937 "Please get w/ me and I will go over it with you.\n",
3938 "The following is a list of scheduled, committed changes.\n",
3939 "1. Launch Norton Antivirus (Start, Programs, Norton Antivirus)\n",
3940 "Reminder....Town Meeting in Central Perk cafe today at 3:00pm.\n",
3941 "Any question about transactions please contact Sterling Huxley.\n",
3942 "I will try to get back to you by Friday, December 31.\n",
3943 "This Change will be implemented on Friday.\n",
3944 "Let me know if you have problems accessing this;\n",
3945 "Sterling Huxley recently added you to the access list.\n",
3946 "Would you like to go to lunch?\n",
3947 "The last command will be automatically run.\n",
3948 "This is too much english for a computer geek.\n",
3949};
3950
3951// create a random command to execute
3952static void crash_dummy()
3953{
3954 static int sleeptime; // how long to pause between commands
3955 char c, cm, *cmd, *cmd1;
3956 int i, cnt, thing, rbi, startrbi, percent;
3957
3958 // "dot" movement commands
3959 cmd1 = " \n\r\002\004\005\006\025\0310^$-+wWeEbBhjklHL";
3960
3961 // is there already a command running?
Denys Vlasenko020f4062009-05-17 16:44:54 +02003962 if (readbuffer[0] > 0)
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003963 goto cd1;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00003964 cd0:
Denys Vlasenko020f4062009-05-17 16:44:54 +02003965 readbuffer[0] = 'X';
3966 startrbi = rbi = 1;
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003967 sleeptime = 0; // how long to pause between commands
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00003968 memset(readbuffer, '\0', sizeof(readbuffer));
Glenn L McGrath09adaca2002-12-02 21:18:10 +00003969 // generate a command by percentages
3970 percent = (int) lrand48() % 100; // get a number from 0-99
3971 if (percent < Mp) { // Movement commands
3972 // available commands
3973 cmd = cmd1;
3974 M++;
3975 } else if (percent < Np) { // non-movement commands
3976 cmd = "mz<>\'\""; // available commands
3977 N++;
3978 } else if (percent < Dp) { // Delete commands
3979 cmd = "dx"; // available commands
3980 D++;
3981 } else if (percent < Ip) { // Inset commands
3982 cmd = "iIaAsrJ"; // available commands
3983 I++;
3984 } else if (percent < Yp) { // Yank commands
3985 cmd = "yY"; // available commands
3986 Y++;
3987 } else if (percent < Pp) { // Put commands
3988 cmd = "pP"; // available commands
3989 P++;
3990 } else {
3991 // We do not know how to handle this command, try again
3992 U++;
3993 goto cd0;
3994 }
3995 // randomly pick one of the available cmds from "cmd[]"
3996 i = (int) lrand48() % strlen(cmd);
3997 cm = cmd[i];
3998 if (strchr(":\024", cm))
3999 goto cd0; // dont allow colon or ctrl-T commands
4000 readbuffer[rbi++] = cm; // put cmd into input buffer
4001
4002 // now we have the command-
4003 // there are 1, 2, and multi char commands
4004 // find out which and generate the rest of command as necessary
4005 if (strchr("dmryz<>\'\"", cm)) { // 2-char commands
4006 cmd1 = " \n\r0$^-+wWeEbBhjklHL";
4007 if (cm == 'm' || cm == '\'' || cm == '\"') { // pick a reg[]
4008 cmd1 = "abcdefghijklmnopqrstuvwxyz";
4009 }
4010 thing = (int) lrand48() % strlen(cmd1); // pick a movement command
4011 c = cmd1[thing];
4012 readbuffer[rbi++] = c; // add movement to input buffer
4013 }
4014 if (strchr("iIaAsc", cm)) { // multi-char commands
4015 if (cm == 'c') {
4016 // change some thing
4017 thing = (int) lrand48() % strlen(cmd1); // pick a movement command
4018 c = cmd1[thing];
4019 readbuffer[rbi++] = c; // add movement to input buffer
4020 }
4021 thing = (int) lrand48() % 4; // what thing to insert
4022 cnt = (int) lrand48() % 10; // how many to insert
4023 for (i = 0; i < cnt; i++) {
4024 if (thing == 0) { // insert chars
4025 readbuffer[rbi++] = chars[((int) lrand48() % strlen(chars))];
4026 } else if (thing == 1) { // insert words
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004027 strcat(readbuffer, words[(int) lrand48() % 20]);
4028 strcat(readbuffer, " ");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004029 sleeptime = 0; // how fast to type
4030 } else if (thing == 2) { // insert lines
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004031 strcat(readbuffer, lines[(int) lrand48() % 20]);
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004032 sleeptime = 0; // how fast to type
4033 } else { // insert multi-lines
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004034 strcat(readbuffer, multilines[(int) lrand48() % 20]);
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004035 sleeptime = 0; // how fast to type
4036 }
4037 }
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004038 strcat(readbuffer, "\033");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004039 }
Denys Vlasenko020f4062009-05-17 16:44:54 +02004040 readbuffer[0] = strlen(readbuffer + 1);
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004041 cd1:
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004042 totalcmds++;
4043 if (sleeptime > 0)
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004044 mysleep(sleeptime); // sleep 1/100 sec
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004045}
4046
4047// test to see if there are any errors
4048static void crash_test()
4049{
4050 static time_t oldtim;
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004051
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004052 time_t tim;
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00004053 char d[2], msg[80];
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004054
4055 msg[0] = '\0';
4056 if (end < text) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004057 strcat(msg, "end<text ");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004058 }
4059 if (end > textend) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004060 strcat(msg, "end>textend ");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004061 }
4062 if (dot < text) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004063 strcat(msg, "dot<text ");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004064 }
4065 if (dot > end) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004066 strcat(msg, "dot>end ");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004067 }
4068 if (screenbegin < text) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004069 strcat(msg, "screenbegin<text ");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004070 }
4071 if (screenbegin > end - 1) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004072 strcat(msg, "screenbegin>end-1 ");
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004073 }
4074
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004075 if (msg[0]) {
Glenn L McGrath7127b582002-12-03 21:48:15 +00004076 printf("\n\n%d: \'%c\' %s\n\n\n%s[Hit return to continue]%s",
Denys Vlasenko04b52892012-06-11 13:51:38 +02004077 totalcmds, last_input_char, msg, ESC_BOLD_TEXT, ESC_NORM_TEXT);
Denys Vlasenko8131eea2009-11-02 14:19:51 +01004078 fflush_all();
Bernhard Reutner-Fischer5e25ddb2008-05-19 09:48:17 +00004079 while (safe_read(STDIN_FILENO, d, 1) > 0) {
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004080 if (d[0] == '\n' || d[0] == '\r')
4081 break;
4082 }
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004083 }
Denis Vlasenko88adfcd2007-12-22 15:40:13 +00004084 tim = time(NULL);
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004085 if (tim >= (oldtim + 3)) {
Denis Vlasenkoafa37cf2007-03-21 00:05:35 +00004086 sprintf(status_buffer,
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004087 "Tot=%d: M=%d N=%d I=%d D=%d Y=%d P=%d U=%d size=%d",
4088 totalcmds, M, N, I, D, Y, P, U, end - text + 1);
4089 oldtim = tim;
4090 }
Glenn L McGrath09adaca2002-12-02 21:18:10 +00004091}
Denis Vlasenko6a5dc5d2006-12-30 18:42:29 +00004092#endif