PArtial Changelog update. I'm still on vacation (I'm at a campground
[oweals/busybox.git] / vi.c
1 /* vi: set sw=8 ts=8: */
2 /*
3  * tiny vi.c: A small 'vi' clone
4  * Copyright (C) 2000, 2001 Sterling Huxley <sterling@europa.com>
5  *
6  *  This program is free software; you can redistribute it and/or modify
7  *  it under the terms of the GNU General Public License as published by
8  *  the Free Software Foundation; either version 2 of the License, or
9  *  (at your option) any later version.
10  *
11  *  This program is distributed in the hope that it will be useful,
12  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
13  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  *  GNU General Public License for more details.
15  *
16  *  You should have received a copy of the GNU General Public License
17  *  along with this program; if not, write to the Free Software
18  *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19  */
20
21 static const char vi_Version[] =
22         "$Id: vi.c,v 1.13 2001/07/19 22:28:01 andersen Exp $";
23
24 /*
25  * To compile for standalone use:
26  *      gcc -Wall -Os -s -DSTANDALONE -o vi vi.c
27  *        or
28  *      gcc -Wall -Os -s -DSTANDALONE -DBB_FEATURE_VI_CRASHME -o vi vi.c                # include testing features
29  *      strip vi
30  */
31
32 /*
33  * Things To Do:
34  *      EXINIT
35  *      $HOME/.exrc  and  ./.exrc
36  *      add magic to search     /foo.*bar
37  *      add :help command
38  *      :map macros
39  *      how about mode lines:   vi: set sw=8 ts=8:
40  *      if mark[] values were line numbers rather than pointers
41  *         it would be easier to change the mark when add/delete lines
42  *      More intelligence in refresh()
43  *      ":r !cmd"  and  "!cmd"  to filter text through an external command
44  *      A true "undo" facility
45  *      An "ex" line oriented mode- maybe using "cmdedit"
46  */
47
48 //----  Feature --------------  Bytes to immplement
49 #ifdef STANDALONE
50 #define vi_main                 main
51 #define BB_FEATURE_VI_COLON     // 4288
52 #define BB_FEATURE_VI_YANKMARK  // 1408
53 #define BB_FEATURE_VI_SEARCH    // 1088
54 #define BB_FEATURE_VI_USE_SIGNALS       // 1056
55 #define BB_FEATURE_VI_DOT_CMD   //  576
56 #define BB_FEATURE_VI_READONLY  //  128
57 #define BB_FEATURE_VI_SETOPTS   //  576
58 #define BB_FEATURE_VI_SET       //  224
59 #define BB_FEATURE_VI_WIN_RESIZE        //  256  WIN_RESIZE
60 // To test editor using CRASHME:
61 //    vi -C filename
62 // To stop testing, wait until all to text[] is deleted, or
63 //    Ctrl-Z and kill -9 %1
64 // while in the editor Ctrl-T will toggle the crashme function on and off.
65 //#define BB_FEATURE_VI_CRASHME         // randomly pick commands to execute
66 #endif                                                  /* STANDALONE */
67
68 #include <stdio.h>
69 #include <stdlib.h>
70 #include <string.h>
71 #include <termios.h>
72 #include <unistd.h>
73 #include <sys/ioctl.h>
74 #include <sys/time.h>
75 #include <sys/types.h>
76 #include <sys/stat.h>
77 #include <time.h>
78 #include <fcntl.h>
79 #include <signal.h>
80 #include <setjmp.h>
81 #include <regex.h>
82 #include <ctype.h>
83 #include <assert.h>
84 #include <errno.h>
85 #include <stdarg.h>
86 #ifndef STANDALONE
87 #include "busybox.h"
88 #endif                                                  /* STANDALONE */
89
90 #ifndef TRUE
91 #define TRUE                    ((int)1)
92 #define FALSE                   ((int)0)
93 #endif                                                  /* TRUE */
94 #define MAX_SCR_COLS            BUFSIZ
95
96 // Misc. non-Ascii keys that report an escape sequence
97 #define VI_K_UP                 128     // cursor key Up
98 #define VI_K_DOWN               129     // cursor key Down
99 #define VI_K_RIGHT              130     // Cursor Key Right
100 #define VI_K_LEFT               131     // cursor key Left
101 #define VI_K_HOME               132     // Cursor Key Home
102 #define VI_K_END                133     // Cursor Key End
103 #define VI_K_INSERT             134     // Cursor Key Insert
104 #define VI_K_PAGEUP             135     // Cursor Key Page Up
105 #define VI_K_PAGEDOWN           136     // Cursor Key Page Down
106 #define VI_K_FUN1               137     // Function Key F1
107 #define VI_K_FUN2               138     // Function Key F2
108 #define VI_K_FUN3               139     // Function Key F3
109 #define VI_K_FUN4               140     // Function Key F4
110 #define VI_K_FUN5               141     // Function Key F5
111 #define VI_K_FUN6               142     // Function Key F6
112 #define VI_K_FUN7               143     // Function Key F7
113 #define VI_K_FUN8               144     // Function Key F8
114 #define VI_K_FUN9               145     // Function Key F9
115 #define VI_K_FUN10              146     // Function Key F10
116 #define VI_K_FUN11              147     // Function Key F11
117 #define VI_K_FUN12              148     // Function Key F12
118
119 static const int YANKONLY = FALSE;
120 static const int YANKDEL = TRUE;
121 static const int FORWARD = 1;   // code depends on "1"  for array index
122 static const int BACK = -1;     // code depends on "-1" for array index
123 static const int LIMITED = 0;   // how much of text[] in char_search
124 static const int FULL = 1;      // how much of text[] in char_search
125
126 static const int S_BEFORE_WS = 1;       // used in skip_thing() for moving "dot"
127 static const int S_TO_WS = 2;           // used in skip_thing() for moving "dot"
128 static const int S_OVER_WS = 3;         // used in skip_thing() for moving "dot"
129 static const int S_END_PUNCT = 4;       // used in skip_thing() for moving "dot"
130 static const int S_END_ALNUM = 5;       // used in skip_thing() for moving "dot"
131
132 typedef unsigned char Byte;
133
134
135 static int editing;             // >0 while we are editing a file
136 static int cmd_mode;            // 0=command  1=insert
137 static int file_modified;       // buffer contents changed
138 static int err_method;          // indicate error with beep or flash
139 static int fn_start;            // index of first cmd line file name
140 static int save_argc;           // how many file names on cmd line
141 static int cmdcnt;              // repetition count
142 static fd_set rfds;             // use select() for small sleeps
143 static struct timeval tv;       // use select() for small sleeps
144 static char erase_char;         // the users erase character
145 static int rows, columns;       // the terminal screen is this size
146 static int crow, ccol, offset;  // cursor is on Crow x Ccol with Horz Ofset
147 static char *SOs, *SOn;         // terminal standout start/normal ESC sequence
148 static char *bell;              // terminal bell sequence
149 static char *Ceol, *Ceos;       // Clear-end-of-line and Clear-end-of-screen ESC sequence
150 static char *CMrc;              // Cursor motion arbitrary destination ESC sequence
151 static char *CMup, *CMdown;     // Cursor motion up and down ESC sequence
152 static Byte *status_buffer;     // mesages to the user
153 static Byte last_input_char;    // last char read from user
154 static Byte last_forward_char;  // last char searched for with 'f'
155 static Byte *cfn;               // previous, current, and next file name
156 static Byte *text, *end, *textend;      // pointers to the user data in memory
157 static Byte *screen;            // pointer to the virtual screen buffer
158 static int screensize;          //            and its size
159 static Byte *screenbegin;       // index into text[], of top line on the screen
160 static Byte *dot;               // where all the action takes place
161 static int tabstop;
162 static struct termios term_orig, term_vi;       // remember what the cooked mode was
163
164 #ifdef BB_FEATURE_VI_OPTIMIZE_CURSOR
165 static int last_row;            // where the cursor was last moved to
166 #endif                                                  /* BB_FEATURE_VI_OPTIMIZE_CURSOR */
167 #ifdef BB_FEATURE_VI_USE_SIGNALS
168 static jmp_buf restart;         // catch_sig()
169 #endif                                                  /* BB_FEATURE_VI_USE_SIGNALS */
170 #ifdef BB_FEATURE_VI_WIN_RESIZE
171 static struct winsize winsize;  // remember the window size
172 #endif                                                  /* BB_FEATURE_VI_WIN_RESIZE */
173 #ifdef BB_FEATURE_VI_DOT_CMD
174 static int adding2q;            // are we currently adding user input to q
175 static Byte *last_modifying_cmd;        // last modifying cmd for "."
176 static Byte *ioq, *ioq_start;   // pointer to string for get_one_char to "read"
177 #endif                                                  /* BB_FEATURE_VI_DOT_CMD */
178 #if     defined(BB_FEATURE_VI_DOT_CMD) || defined(BB_FEATURE_VI_YANKMARK)
179 static Byte *modifying_cmds;    // cmds that modify text[]
180 #endif                                                  /* BB_FEATURE_VI_DOT_CMD || BB_FEATURE_VI_YANKMARK */
181 #ifdef BB_FEATURE_VI_READONLY
182 static int vi_readonly, readonly;
183 #endif                                                  /* BB_FEATURE_VI_READONLY */
184 #ifdef BB_FEATURE_VI_SETOPTS
185 static int autoindent;
186 static int showmatch;
187 static int ignorecase;
188 #endif                                                  /* BB_FEATURE_VI_SETOPTS */
189 #ifdef BB_FEATURE_VI_YANKMARK
190 static Byte *reg[28];           // named register a-z, "D", and "U" 0-25,26,27
191 static int YDreg, Ureg;         // default delete register and orig line for "U"
192 static Byte *mark[28];          // user marks points somewhere in text[]-  a-z and previous context ''
193 static Byte *context_start, *context_end;
194 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
195 #ifdef BB_FEATURE_VI_SEARCH
196 static Byte *last_search_pattern;       // last pattern from a '/' or '?' search
197 #endif                                                  /* BB_FEATURE_VI_SEARCH */
198
199
200 static void edit_file(Byte *);  // edit one file
201 static void do_cmd(Byte);       // execute a command
202 static void sync_cursor(Byte *, int *, int *);  // synchronize the screen cursor to dot
203 static Byte *begin_line(Byte *);        // return pointer to cur line B-o-l
204 static Byte *end_line(Byte *);  // return pointer to cur line E-o-l
205 static Byte *dollar_line(Byte *);       // return pointer to just before NL
206 static Byte *prev_line(Byte *); // return pointer to prev line B-o-l
207 static Byte *next_line(Byte *); // return pointer to next line B-o-l
208 static Byte *end_screen(void);  // get pointer to last char on screen
209 static int count_lines(Byte *, Byte *); // count line from start to stop
210 static Byte *find_line(int);    // find begining of line #li
211 static Byte *move_to_col(Byte *, int);  // move "p" to column l
212 static int isblnk(Byte);        // is the char a blank or tab
213 static void dot_left(void);     // move dot left- dont leave line
214 static void dot_right(void);    // move dot right- dont leave line
215 static void dot_begin(void);    // move dot to B-o-l
216 static void dot_end(void);      // move dot to E-o-l
217 static void dot_next(void);     // move dot to next line B-o-l
218 static void dot_prev(void);     // move dot to prev line B-o-l
219 static void dot_scroll(int, int);       // move the screen up or down
220 static void dot_skip_over_ws(void);     // move dot pat WS
221 static void dot_delete(void);   // delete the char at 'dot'
222 static Byte *bound_dot(Byte *); // make sure  text[0] <= P < "end"
223 static Byte *new_screen(int, int);      // malloc virtual screen memory
224 static Byte *new_text(int);     // malloc memory for text[] buffer
225 static Byte *char_insert(Byte *, Byte); // insert the char c at 'p'
226 static Byte *stupid_insert(Byte *, Byte);       // stupidly insert the char c at 'p'
227 static Byte find_range(Byte **, Byte **, Byte); // return pointers for an object
228 static int st_test(Byte *, int, int, Byte *);   // helper for skip_thing()
229 static Byte *skip_thing(Byte *, int, int, int); // skip some object
230 static Byte *find_pair(Byte *, Byte);   // find matching pair ()  []  {}
231 static Byte *text_hole_delete(Byte *, Byte *);  // at "p", delete a 'size' byte hole
232 static Byte *text_hole_make(Byte *, int);       // at "p", make a 'size' byte hole
233 static Byte *yank_delete(Byte *, Byte *, int, int);     // yank text[] into register then delete
234 static void show_help(void);    // display some help info
235 static void print_literal(Byte *, Byte *);      // copy s to buf, convert unprintable
236 static void rawmode(void);      // set "raw" mode on tty
237 static void cookmode(void);     // return to "cooked" mode on tty
238 static int mysleep(int);        // sleep for 'h' 1/100 seconds
239 static Byte readit(void);       // read (maybe cursor) key from stdin
240 static Byte get_one_char(void); // read 1 char from stdin
241 static int file_size(Byte *);   // what is the byte size of "fn"
242 static int file_insert(Byte *, Byte *, int);
243 static int file_write(Byte *, Byte *, Byte *);
244 static void place_cursor(int, int, int);
245 static void screen_erase();
246 static void clear_to_eol(void);
247 static void clear_to_eos(void);
248 static void standout_start(void);       // send "start reverse video" sequence
249 static void standout_end(void); // send "end reverse video" sequence
250 static void flash(int);         // flash the terminal screen
251 static void beep(void);         // beep the terminal
252 static void indicate_error(char);       // use flash or beep to indicate error
253 static void show_status_line(void);     // put a message on the bottom line
254 static void psb(char *, ...);   // Print Status Buf
255 static void psbs(char *, ...);  // Print Status Buf in standout mode
256 static void ni(Byte *);         // display messages
257 static void edit_status(void);  // show file status on status line
258 static void redraw(int);        // force a full screen refresh
259 static void format_line(Byte*, Byte*, int);
260 static void refresh(int);       // update the terminal from screen[]
261
262 #ifdef BB_FEATURE_VI_SEARCH
263 static Byte *char_search(Byte *, Byte *, int, int);     // search for pattern starting at p
264 static int mycmp(Byte *, Byte *, int);  // string cmp based in "ignorecase"
265 #endif                                                  /* BB_FEATURE_VI_SEARCH */
266 #ifdef BB_FEATURE_VI_COLON
267 static void Hit_Return(void);
268 static Byte *get_one_address(Byte *, int *);    // get colon addr, if present
269 static Byte *get_address(Byte *, int *, int *); // get two colon addrs, if present
270 static void colon(Byte *);      // execute the "colon" mode cmds
271 #endif                                                  /* BB_FEATURE_VI_COLON */
272 static Byte *get_input_line(Byte *);    // get input line- use "status line"
273 #ifdef BB_FEATURE_VI_USE_SIGNALS
274 static void winch_sig(int);     // catch window size changes
275 static void suspend_sig(int);   // catch ctrl-Z
276 static void alarm_sig(int);     // catch alarm time-outs
277 static void catch_sig(int);     // catch ctrl-C
278 static void core_sig(int);      // catch a core dump signal
279 #endif                                                  /* BB_FEATURE_VI_USE_SIGNALS */
280 #ifdef BB_FEATURE_VI_DOT_CMD
281 static void start_new_cmd_q(Byte);      // new queue for command
282 static void end_cmd_q();        // stop saving input chars
283 #else                                                   /* BB_FEATURE_VI_DOT_CMD */
284 #define end_cmd_q()
285 #endif                                                  /* BB_FEATURE_VI_DOT_CMD */
286 #ifdef BB_FEATURE_VI_WIN_RESIZE
287 static void window_size_get(int);       // find out what size the window is
288 #endif                                                  /* BB_FEATURE_VI_WIN_RESIZE */
289 #ifdef BB_FEATURE_VI_SETOPTS
290 static void showmatching(Byte *);       // show the matching pair ()  []  {}
291 #endif                                                  /* BB_FEATURE_VI_SETOPTS */
292 #if defined(BB_FEATURE_VI_YANKMARK) || defined(BB_FEATURE_VI_COLON) || defined(BB_FEATURE_VI_CRASHME)
293 static Byte *string_insert(Byte *, Byte *);     // insert the string at 'p'
294 #endif                                                  /* BB_FEATURE_VI_YANKMARK || BB_FEATURE_VI_COLON || BB_FEATURE_VI_CRASHME */
295 #ifdef BB_FEATURE_VI_YANKMARK
296 static Byte *text_yank(Byte *, Byte *, int);    // save copy of "p" into a register
297 static Byte what_reg(void);             // what is letter of current YDreg
298 static void check_context(Byte);        // remember context for '' command
299 static Byte *swap_context(Byte *);      // goto new context for '' command
300 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
301 #ifdef BB_FEATURE_VI_CRASHME
302 static void crash_dummy();
303 static void crash_test();
304 static int crashme = 0;
305 #endif                                                  /* BB_FEATURE_VI_CRASHME */
306
307
308 extern int vi_main(int argc, char **argv)
309 {
310         int c;
311
312 #ifdef BB_FEATURE_VI_YANKMARK
313         int i;
314 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
315
316         CMrc= "\033[%d;%dH";    // Terminal Crusor motion ESC sequence
317         CMup= "\033[A";         // move cursor up one line, same col
318         CMdown="\n";            // move cursor down one line, same col
319         Ceol= "\033[0K";        // Clear from cursor to end of line
320         Ceos= "\033[0J";        // Clear from cursor to end of screen
321         SOs = "\033[7m";        // Terminal standout mode on
322         SOn = "\033[0m";        // Terminal standout mode off
323         bell= "\007";           // Terminal bell sequence
324 #ifdef BB_FEATURE_VI_CRASHME
325         (void) srand((long) getpid());
326 #endif                                                  /* BB_FEATURE_VI_CRASHME */
327         status_buffer = (Byte *) malloc(200);   // hold messages to user
328 #ifdef BB_FEATURE_VI_READONLY
329         vi_readonly = readonly = FALSE;
330         if (strncmp(argv[0], "view", 4) == 0) {
331                 readonly = TRUE;
332                 vi_readonly = TRUE;
333         }
334 #endif                                                  /* BB_FEATURE_VI_READONLY */
335 #ifdef BB_FEATURE_VI_SETOPTS
336         autoindent = 1;
337         ignorecase = 1;
338         showmatch = 1;
339 #endif                                                  /* BB_FEATURE_VI_SETOPTS */
340 #ifdef BB_FEATURE_VI_YANKMARK
341         for (i = 0; i < 28; i++) {
342                 reg[i] = 0;
343         }                                       // init the yank regs
344 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
345 #ifdef BB_FEATURE_VI_DOT_CMD
346         modifying_cmds = (Byte *) "aAcCdDiIJoOpPrRsxX<>~";      // cmds modifying text[]
347 #endif                                                  /* BB_FEATURE_VI_DOT_CMD */
348
349         //  1-  process $HOME/.exrc file
350         //  2-  process EXINIT variable from environment
351         //  3-  process command line args
352         while ((c = getopt(argc, argv, "hCR")) != -1) {
353                 switch (c) {
354 #ifdef BB_FEATURE_VI_CRASHME
355                 case 'C':
356                         crashme = 1;
357                         break;
358 #endif                                                  /* BB_FEATURE_VI_CRASHME */
359 #ifdef BB_FEATURE_VI_READONLY
360                 case 'R':               // Read-only flag
361                         readonly = TRUE;
362                         break;
363 #endif                                                  /* BB_FEATURE_VI_READONLY */
364                         //case 'r':     // recover flag-  ignore- we don't use tmp file
365                         //case 'x':     // encryption flag- ignore
366                         //case 'c':     // execute command first
367                         //case 'h':     // help -- just use default
368                 default:
369                         show_help();
370                         return 1;
371                 }
372         }
373
374         // The argv array can be used by the ":next"  and ":rewind" commands
375         // save optind.
376         fn_start = optind;      // remember first file name for :next and :rew
377         save_argc = argc;
378
379         //----- This is the main file handling loop --------------
380         if (optind >= argc) {
381                 editing = 1;    // 0= exit,  1= one file,  2= multiple files
382                 edit_file(0);
383         } else {
384                 for (; optind < argc; optind++) {
385                         editing = 1;    // 0=exit, 1=one file, 2+ =many files
386                         if (cfn != 0)
387                                 free(cfn);
388                         cfn = (Byte *) strdup(argv[optind]);
389                         edit_file(cfn);
390                 }
391         }
392         //-----------------------------------------------------------
393
394         return (0);
395 }
396
397 static void edit_file(Byte * fn)
398 {
399         char c;
400         int cnt, size, ch;
401
402 #ifdef BB_FEATURE_VI_USE_SIGNALS
403         char *msg;
404         int sig;
405 #endif                                                  /* BB_FEATURE_VI_USE_SIGNALS */
406 #ifdef BB_FEATURE_VI_YANKMARK
407         static Byte *cur_line;
408 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
409
410         rawmode();
411         rows = 24;
412         columns = 80;
413         ch= -1;
414 #ifdef BB_FEATURE_VI_WIN_RESIZE
415         window_size_get(0);
416 #endif                                                  /* BB_FEATURE_VI_WIN_RESIZE */
417         new_screen(rows, columns);      // get memory for virtual screen
418
419         cnt = file_size(fn);    // file size
420         size = 2 * cnt;         // 200% of file size
421         new_text(size);         // get a text[] buffer
422         screenbegin = dot = end = text;
423         if (fn != 0) {
424                 ch= file_insert(fn, text, cnt);
425         }
426         if (ch < 1) {
427                 (void) char_insert(text, '\n'); // start empty buf with dummy line
428         }
429         file_modified = FALSE;
430 #ifdef BB_FEATURE_VI_YANKMARK
431         YDreg = 26;                     // default Yank/Delete reg
432         Ureg = 27;                      // hold orig line for "U" cmd
433         for (cnt = 0; cnt < 28; cnt++) {
434                 mark[cnt] = 0;
435         }                                       // init the marks
436         mark[26] = mark[27] = text;     // init "previous context"
437 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
438
439         err_method = 1;         // flash
440         last_forward_char = last_input_char = '\0';
441         crow = 0;
442         ccol = 0;
443         edit_status();
444
445 #ifdef BB_FEATURE_VI_USE_SIGNALS
446         signal(SIGHUP, catch_sig);
447         signal(SIGINT, catch_sig);
448         signal(SIGALRM, alarm_sig);
449         signal(SIGTERM, catch_sig);
450         signal(SIGQUIT, core_sig);
451         signal(SIGILL, core_sig);
452         signal(SIGTRAP, core_sig);
453         signal(SIGIOT, core_sig);
454         signal(SIGABRT, core_sig);
455         signal(SIGFPE, core_sig);
456         signal(SIGBUS, core_sig);
457         signal(SIGSEGV, core_sig);
458 #ifdef SIGSYS
459         signal(SIGSYS, core_sig);
460 #endif  
461         signal(SIGWINCH, winch_sig);
462         signal(SIGTSTP, suspend_sig);
463         sig = setjmp(restart);
464         if (sig != 0) {
465                 msg = "";
466                 if (sig == SIGWINCH)
467                         msg = "(window resize)";
468                 if (sig == SIGHUP)
469                         msg = "(hangup)";
470                 if (sig == SIGINT)
471                         msg = "(interrupt)";
472                 if (sig == SIGTERM)
473                         msg = "(terminate)";
474                 if (sig == SIGBUS)
475                         msg = "(bus error)";
476                 if (sig == SIGSEGV)
477                         msg = "(I tried to touch invalid memory)";
478                 if (sig == SIGALRM)
479                         msg = "(alarm)";
480
481                 psbs("-- caught signal %d %s--", sig, msg);
482                 screenbegin = dot = text;
483         }
484 #endif                                                  /* BB_FEATURE_VI_USE_SIGNALS */
485
486         editing = 1;
487         cmd_mode = 0;           // 0=command  1=insert  2='R'eplace
488         cmdcnt = 0;
489         tabstop = 8;
490         offset = 0;                     // no horizontal offset
491         c = '\0';
492 #ifdef BB_FEATURE_VI_DOT_CMD
493         if (last_modifying_cmd != 0)
494                 free(last_modifying_cmd);
495         if (ioq_start != NULL)
496                 free(ioq_start);
497         ioq = ioq_start = last_modifying_cmd = 0;
498         adding2q = 0;
499 #endif                                                  /* BB_FEATURE_VI_DOT_CMD */
500         redraw(FALSE);                  // dont force every col re-draw
501         show_status_line();
502
503         //------This is the main Vi cmd handling loop -----------------------
504         while (editing > 0) {
505 #ifdef BB_FEATURE_VI_CRASHME
506                 if (crashme > 0) {
507                         if ((end - text) > 1) {
508                                 crash_dummy();  // generate a random command
509                         } else {
510                                 crashme = 0;
511                                 dot =
512                                         string_insert(text, (Byte *) "\n\n#####  Ran out of text to work on.  #####\n\n");      // insert the string
513                                 refresh(FALSE);
514                         }
515                 }
516 #endif                                                  /* BB_FEATURE_VI_CRASHME */
517                 last_input_char = c = get_one_char();   // get a cmd from user
518 #ifdef BB_FEATURE_VI_YANKMARK
519                 // save a copy of the current line- for the 'U" command
520                 if (begin_line(dot) != cur_line) {
521                         cur_line = begin_line(dot);
522                         text_yank(begin_line(dot), end_line(dot), Ureg);
523                 }
524 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
525 #ifdef BB_FEATURE_VI_DOT_CMD
526                 // These are commands that change text[].
527                 // Remember the input for the "." command
528                 if (!adding2q && ioq_start == 0
529                         && strchr((char *) modifying_cmds, c) != NULL) {
530                         start_new_cmd_q(c);
531                 }
532 #endif                                                  /* BB_FEATURE_VI_DOT_CMD */
533                 do_cmd(c);              // execute the user command
534                 //
535                 // poll to see if there is input already waiting. if we are
536                 // not able to display output fast enough to keep up, skip
537                 // the display update until we catch up with input.
538                 if (mysleep(0) == 0) {
539                         // no input pending- so update output
540                         refresh(FALSE);
541                         show_status_line();
542                 }
543 #ifdef BB_FEATURE_VI_CRASHME
544                 if (crashme > 0)
545                         crash_test();   // test editor variables
546 #endif                                                  /* BB_FEATURE_VI_CRASHME */
547         }
548         //-------------------------------------------------------------------
549
550         place_cursor(rows, 0, FALSE);   // go to bottom of screen
551         clear_to_eol();         // Erase to end of line
552         cookmode();
553 }
554
555 static Byte readbuffer[BUFSIZ];
556
557 #ifdef BB_FEATURE_VI_CRASHME
558 static int totalcmds = 0;
559 static int Mp = 85;             // Movement command Probability
560 static int Np = 90;             // Non-movement command Probability
561 static int Dp = 96;             // Delete command Probability
562 static int Ip = 97;             // Insert command Probability
563 static int Yp = 98;             // Yank command Probability
564 static int Pp = 99;             // Put command Probability
565 static int M = 0, N = 0, I = 0, D = 0, Y = 0, P = 0, U = 0;
566 char chars[20] = "\t012345 abcdABCD-=.$";
567 char *words[20] = { "this", "is", "a", "test",
568         "broadcast", "the", "emergency", "of",
569         "system", "quick", "brown", "fox",
570         "jumped", "over", "lazy", "dogs",
571         "back", "January", "Febuary", "March"
572 };
573 char *lines[20] = {
574         "You should have received a copy of the GNU General Public License\n",
575         "char c, cm, *cmd, *cmd1;\n",
576         "generate a command by percentages\n",
577         "Numbers may be typed as a prefix to some commands.\n",
578         "Quit, discarding changes!\n",
579         "Forced write, if permission originally not valid.\n",
580         "In general, any ex or ed command (such as substitute or delete).\n",
581         "I have tickets available for the Blazers vs LA Clippers for Monday, Janurary 1 at 1:00pm.\n",
582         "Please get w/ me and I will go over it with you.\n",
583         "The following is a list of scheduled, committed changes.\n",
584         "1.   Launch Norton Antivirus (Start, Programs, Norton Antivirus)\n",
585         "Reminder....Town Meeting in Central Perk cafe today at 3:00pm.\n",
586         "Any question about transactions please contact Sterling Huxley.\n",
587         "I will try to get back to you by Friday, December 31.\n",
588         "This Change will be implemented on Friday.\n",
589         "Let me know if you have problems accessing this;\n",
590         "Sterling Huxley recently added you to the access list.\n",
591         "Would you like to go to lunch?\n",
592         "The last command will be automatically run.\n",
593         "This is too much english for a computer geek.\n",
594 };
595 char *multilines[20] = {
596         "You should have received a copy of the GNU General Public License\n",
597         "char c, cm, *cmd, *cmd1;\n",
598         "generate a command by percentages\n",
599         "Numbers may be typed as a prefix to some commands.\n",
600         "Quit, discarding changes!\n",
601         "Forced write, if permission originally not valid.\n",
602         "In general, any ex or ed command (such as substitute or delete).\n",
603         "I have tickets available for the Blazers vs LA Clippers for Monday, Janurary 1 at 1:00pm.\n",
604         "Please get w/ me and I will go over it with you.\n",
605         "The following is a list of scheduled, committed changes.\n",
606         "1.   Launch Norton Antivirus (Start, Programs, Norton Antivirus)\n",
607         "Reminder....Town Meeting in Central Perk cafe today at 3:00pm.\n",
608         "Any question about transactions please contact Sterling Huxley.\n",
609         "I will try to get back to you by Friday, December 31.\n",
610         "This Change will be implemented on Friday.\n",
611         "Let me know if you have problems accessing this;\n",
612         "Sterling Huxley recently added you to the access list.\n",
613         "Would you like to go to lunch?\n",
614         "The last command will be automatically run.\n",
615         "This is too much english for a computer geek.\n",
616 };
617
618 // create a random command to execute
619 static void crash_dummy()
620 {
621         static int sleeptime;   // how long to pause between commands
622         char c, cm, *cmd, *cmd1;
623         int i, cnt, thing, rbi, startrbi, percent;
624
625         // "dot" movement commands
626         cmd1 = " \n\r\002\004\005\006\025\0310^$-+wWeEbBhjklHL";
627
628         // is there already a command running?
629         if (strlen((char *) readbuffer) > 0)
630                 goto cd1;
631   cd0:
632         startrbi = rbi = 0;
633         sleeptime = 0;          // how long to pause between commands
634         memset(readbuffer, '\0', BUFSIZ - 1);   // clear the read buffer
635         // generate a command by percentages
636         percent = (int) lrand48() % 100;        // get a number from 0-99
637         if (percent < Mp) {     //  Movement commands
638                 // available commands
639                 cmd = cmd1;
640                 M++;
641         } else if (percent < Np) {      //  non-movement commands
642                 cmd = "mz<>\'\"";       // available commands
643                 N++;
644         } else if (percent < Dp) {      //  Delete commands
645                 cmd = "dx";             // available commands
646                 D++;
647         } else if (percent < Ip) {      //  Inset commands
648                 cmd = "iIaAsrJ";        // available commands
649                 I++;
650         } else if (percent < Yp) {      //  Yank commands
651                 cmd = "yY";             // available commands
652                 Y++;
653         } else if (percent < Pp) {      //  Put commands
654                 cmd = "pP";             // available commands
655                 P++;
656         } else {
657                 // We do not know how to handle this command, try again
658                 U++;
659                 goto cd0;
660         }
661         // randomly pick one of the available cmds from "cmd[]"
662         i = (int) lrand48() % strlen(cmd);
663         cm = cmd[i];
664         if (strchr(":\024", cm))
665                 goto cd0;               // dont allow colon or ctrl-T commands
666         readbuffer[rbi++] = cm; // put cmd into input buffer
667
668         // now we have the command-
669         // there are 1, 2, and multi char commands
670         // find out which and generate the rest of command as necessary
671         if (strchr("dmryz<>\'\"", cm)) {        // 2-char commands
672                 cmd1 = " \n\r0$^-+wWeEbBhjklHL";
673                 if (cm == 'm' || cm == '\'' || cm == '\"') {    // pick a reg[]
674                         cmd1 = "abcdefghijklmnopqrstuvwxyz";
675                 }
676                 thing = (int) lrand48() % strlen(cmd1); // pick a movement command
677                 c = cmd1[thing];
678                 readbuffer[rbi++] = c;  // add movement to input buffer
679         }
680         if (strchr("iIaAsc", cm)) {     // multi-char commands
681                 if (cm == 'c') {
682                         // change some thing
683                         thing = (int) lrand48() % strlen(cmd1); // pick a movement command
684                         c = cmd1[thing];
685                         readbuffer[rbi++] = c;  // add movement to input buffer
686                 }
687                 thing = (int) lrand48() % 4;    // what thing to insert
688                 cnt = (int) lrand48() % 10;     // how many to insert
689                 for (i = 0; i < cnt; i++) {
690                         if (thing == 0) {       // insert chars
691                                 readbuffer[rbi++] = chars[((int) lrand48() % strlen(chars))];
692                         } else if (thing == 1) {        // insert words
693                                 strcat((char *) readbuffer, words[(int) lrand48() % 20]);
694                                 strcat((char *) readbuffer, " ");
695                                 sleeptime = 0;  // how fast to type
696                         } else if (thing == 2) {        // insert lines
697                                 strcat((char *) readbuffer, lines[(int) lrand48() % 20]);
698                                 sleeptime = 0;  // how fast to type
699                         } else {        // insert multi-lines
700                                 strcat((char *) readbuffer, multilines[(int) lrand48() % 20]);
701                                 sleeptime = 0;  // how fast to type
702                         }
703                 }
704                 strcat((char *) readbuffer, "\033");
705         }
706   cd1:
707         totalcmds++;
708         if (sleeptime > 0)
709                 (void) mysleep(sleeptime);      // sleep 1/100 sec
710 }
711
712 // test to see if there are any errors
713 static void crash_test()
714 {
715         static time_t oldtim;
716         time_t tim;
717         char d[2], buf[BUFSIZ], msg[BUFSIZ];
718
719         msg[0] = '\0';
720         if (end < text) {
721                 strcat((char *) msg, "end<text ");
722         }
723         if (end > textend) {
724                 strcat((char *) msg, "end>textend ");
725         }
726         if (dot < text) {
727                 strcat((char *) msg, "dot<text ");
728         }
729         if (dot > end) {
730                 strcat((char *) msg, "dot>end ");
731         }
732         if (screenbegin < text) {
733                 strcat((char *) msg, "screenbegin<text ");
734         }
735         if (screenbegin > end - 1) {
736                 strcat((char *) msg, "screenbegin>end-1 ");
737         }
738
739         if (strlen(msg) > 0) {
740                 alarm(0);
741                 sprintf(buf, "\n\n%d: \'%c\' %s\n\n\n%s[Hit return to continue]%s",
742                         totalcmds, last_input_char, msg, SOs, SOn);
743                 write(1, buf, strlen(buf));
744                 while (read(0, d, 1) > 0) {
745                         if (d[0] == '\n' || d[0] == '\r')
746                                 break;
747                 }
748                 alarm(3);
749         }
750         tim = (time_t) time((time_t *) 0);
751         if (tim >= (oldtim + 3)) {
752                 sprintf((char *) status_buffer,
753                                 "Tot=%d: M=%d N=%d I=%d D=%d Y=%d P=%d U=%d size=%d",
754                                 totalcmds, M, N, I, D, Y, P, U, end - text + 1);
755                 oldtim = tim;
756         }
757         return;
758 }
759 #endif                                                  /* BB_FEATURE_VI_CRASHME */
760
761 //---------------------------------------------------------------------
762 //----- the Ascii Chart -----------------------------------------------
763 //
764 //  00 nul   01 soh   02 stx   03 etx   04 eot   05 enq   06 ack   07 bel
765 //  08 bs    09 ht    0a nl    0b vt    0c np    0d cr    0e so    0f si
766 //  10 dle   11 dc1   12 dc2   13 dc3   14 dc4   15 nak   16 syn   17 etb
767 //  18 can   19 em    1a sub   1b esc   1c fs    1d gs    1e rs    1f us
768 //  20 sp    21 !     22 "     23 #     24 $     25 %     26 &     27 '
769 //  28 (     29 )     2a *     2b +     2c ,     2d -     2e .     2f /
770 //  30 0     31 1     32 2     33 3     34 4     35 5     36 6     37 7
771 //  38 8     39 9     3a :     3b ;     3c <     3d =     3e >     3f ?
772 //  40 @     41 A     42 B     43 C     44 D     45 E     46 F     47 G
773 //  48 H     49 I     4a J     4b K     4c L     4d M     4e N     4f O
774 //  50 P     51 Q     52 R     53 S     54 T     55 U     56 V     57 W
775 //  58 X     59 Y     5a Z     5b [     5c \     5d ]     5e ^     5f _
776 //  60 `     61 a     62 b     63 c     64 d     65 e     66 f     67 g
777 //  68 h     69 i     6a j     6b k     6c l     6d m     6e n     6f o
778 //  70 p     71 q     72 r     73 s     74 t     75 u     76 v     77 w
779 //  78 x     79 y     7a z     7b {     7c |     7d }     7e ~     7f del
780 //---------------------------------------------------------------------
781
782 //----- Execute a Vi Command -----------------------------------
783 static void do_cmd(Byte c)
784 {
785         Byte c1, *p, *q, *msg, buf[9], *save_dot;
786         int cnt, i, j, dir, yf;
787
788         c1 = c;                         // quiet the compiler
789         cnt = yf = dir = 0;     // quiet the compiler
790         p = q = save_dot = msg = buf;   // quiet the compiler
791         memset(buf, '\0', 9);   // clear buf
792         if (cmd_mode == 2) {
793                 // we are 'R'eplacing the current *dot with new char
794                 if (*dot == '\n') {
795                         // don't Replace past E-o-l
796                         cmd_mode = 1;   // convert to insert
797                 } else {
798                         if (1 <= c && c <= 127) {       // only ASCII chars
799                                 if (c != 27)
800                                         dot = yank_delete(dot, dot, 0, YANKDEL);        // delete char
801                                 dot = char_insert(dot, c);      // insert new char
802                         }
803                         goto dc1;
804                 }
805         }
806         if (cmd_mode == 1) {
807                 //  hitting "Insert" twice means "R" replace mode
808                 if (c == VI_K_INSERT) goto dc5;
809                 // insert the char c at "dot"
810                 if (1 <= c && c <= 127) {
811                         dot = char_insert(dot, c);      // only ASCII chars
812                 }
813                 goto dc1;
814         }
815
816         switch (c) {
817                 //case 0x01:    // soh
818                 //case 0x09:    // ht
819                 //case 0x0b:    // vt
820                 //case 0x0e:    // so
821                 //case 0x0f:    // si
822                 //case 0x10:    // dle
823                 //case 0x11:    // dc1
824                 //case 0x13:    // dc3
825 #ifdef BB_FEATURE_VI_CRASHME
826         case 0x14:                      // dc4  ctrl-T
827                 crashme = (crashme == 0) ? 1 : 0;
828                 break;
829 #endif                                                  /* BB_FEATURE_VI_CRASHME */
830                 //case 0x16:    // syn
831                 //case 0x17:    // etb
832                 //case 0x18:    // can
833                 //case 0x1c:    // fs
834                 //case 0x1d:    // gs
835                 //case 0x1e:    // rs
836                 //case 0x1f:    // us
837                 //case '!':     // !- 
838                 //case '#':     // #- 
839                 //case '&':     // &- 
840                 //case '(':     // (- 
841                 //case ')':     // )- 
842                 //case '*':     // *- 
843                 //case ',':     // ,- 
844                 //case '=':     // =- 
845                 //case '@':     // @- 
846                 //case 'F':     // F- 
847                 //case 'K':     // K- 
848                 //case 'Q':     // Q- 
849                 //case 'S':     // S- 
850                 //case 'T':     // T- 
851                 //case 'V':     // V- 
852                 //case '[':     // [- 
853                 //case '\\':    // \- 
854                 //case ']':     // ]- 
855                 //case '_':     // _- 
856                 //case '`':     // `- 
857                 //case 'g':     // g- 
858                 //case 'u':     // u- FIXME- there is no undo
859                 //case 'v':     // v- 
860         default:                        // unrecognised command
861                 buf[0] = c;
862                 buf[1] = '\0';
863                 if (c <= ' ') {
864                         buf[0] = '^';
865                         buf[1] = c + '@';
866                         buf[2] = '\0';
867                 }
868                 ni((Byte *) buf);
869                 end_cmd_q();    // stop adding to q
870         case 0x00:                      // nul- ignore
871                 break;
872         case 2:                 // ctrl-B  scroll up   full screen
873         case VI_K_PAGEUP:       // Cursor Key Page Up
874                 dot_scroll(rows - 2, -1);
875                 break;
876 #ifdef BB_FEATURE_VI_USE_SIGNALS
877         case 0x03:                      // ctrl-C   interrupt
878                 longjmp(restart, 1);
879                 break;
880         case 26:                        // ctrl-Z suspend
881                 suspend_sig(SIGTSTP);
882                 break;
883 #endif                                                  /* BB_FEATURE_VI_USE_SIGNALS */
884         case 4:                 // ctrl-D  scroll down half screen
885                 dot_scroll((rows - 2) / 2, 1);
886                 break;
887         case 5:                 // ctrl-E  scroll down one line
888                 dot_scroll(1, 1);
889                 break;
890         case 6:                 // ctrl-F  scroll down full screen
891         case VI_K_PAGEDOWN:     // Cursor Key Page Down
892                 dot_scroll(rows - 2, 1);
893                 break;
894         case 7:                 // ctrl-G  show current status
895                 edit_status();
896                 break;
897         case 'h':                       // h- move left
898         case VI_K_LEFT: // cursor key Left
899         case 8:                 // ctrl-H- move left    (This may be ERASE char)
900         case 127:                       // DEL- move left   (This may be ERASE char)
901                 if (cmdcnt-- > 1) {
902                         do_cmd(c);
903                 }                               // repeat cnt
904                 dot_left();
905                 break;
906         case 10:                        // Newline ^J
907         case 'j':                       // j- goto next line, same col
908         case VI_K_DOWN: // cursor key Down
909                 if (cmdcnt-- > 1) {
910                         do_cmd(c);
911                 }                               // repeat cnt
912                 dot_next();             // go to next B-o-l
913                 dot = move_to_col(dot, ccol + offset);  // try stay in same col
914                 break;
915         case 12:                        // ctrl-L  force redraw whole screen
916         case 18:                        // ctrl-R  force redraw
917                 place_cursor(0, 0, FALSE);      // put cursor in correct place
918                 clear_to_eos(); // tel terminal to erase display
919                 (void) mysleep(10);
920                 screen_erase(); // erase the internal screen buffer
921                 refresh(TRUE);  // this will redraw the entire display
922                 break;
923         case 13:                        // Carriage Return ^M
924         case '+':                       // +- goto next line
925                 if (cmdcnt-- > 1) {
926                         do_cmd(c);
927                 }                               // repeat cnt
928                 dot_next();
929                 dot_skip_over_ws();
930                 break;
931         case 21:                        // ctrl-U  scroll up   half screen
932                 dot_scroll((rows - 2) / 2, -1);
933                 break;
934         case 25:                        // ctrl-Y  scroll up one line
935                 dot_scroll(1, -1);
936                 break;
937         case 27:                        // esc
938                 if (cmd_mode == 0)
939                         indicate_error(c);
940                 cmd_mode = 0;   // stop insrting
941                 end_cmd_q();
942                 *status_buffer = '\0';  // clear status buffer
943                 break;
944         case ' ':                       // move right
945         case 'l':                       // move right
946         case VI_K_RIGHT:        // Cursor Key Right
947                 if (cmdcnt-- > 1) {
948                         do_cmd(c);
949                 }                               // repeat cnt
950                 dot_right();
951                 break;
952 #ifdef BB_FEATURE_VI_YANKMARK
953         case '"':                       // "- name a register to use for Delete/Yank
954                 c1 = get_one_char();
955                 c1 = tolower(c1);
956                 if (islower(c1)) {
957                         YDreg = c1 - 'a';
958                 } else {
959                         indicate_error(c);
960                 }
961                 break;
962         case '\'':                      // '- goto a specific mark
963                 c1 = get_one_char();
964                 c1 = tolower(c1);
965                 if (islower(c1)) {
966                         c1 = c1 - 'a';
967                         // get the b-o-l
968                         q = mark[(int) c1];
969                         if (text <= q && q < end) {
970                                 dot = q;
971                                 dot_begin();    // go to B-o-l
972                                 dot_skip_over_ws();
973                         }
974                 } else if (c1 == '\'') {        // goto previous context
975                         dot = swap_context(dot);        // swap current and previous context
976                         dot_begin();    // go to B-o-l
977                         dot_skip_over_ws();
978                 } else {
979                         indicate_error(c);
980                 }
981                 break;
982         case 'm':                       // m- Mark a line
983                 // this is really stupid.  If there are any inserts or deletes
984                 // between text[0] and dot then this mark will not point to the
985                 // correct location! It could be off by many lines!
986                 // Well..., at least its quick and dirty.
987                 c1 = get_one_char();
988                 c1 = tolower(c1);
989                 if (islower(c1)) {
990                         c1 = c1 - 'a';
991                         // remember the line
992                         mark[(int) c1] = dot;
993                 } else {
994                         indicate_error(c);
995                 }
996                 break;
997         case 'P':                       // P- Put register before
998         case 'p':                       // p- put register after
999                 p = reg[YDreg];
1000                 if (p == 0) {
1001                         psbs("Nothing in register %c", what_reg());
1002                         break;
1003                 }
1004                 // are we putting whole lines or strings
1005                 if (strchr((char *) p, '\n') != NULL) {
1006                         if (c == 'P') {
1007                                 dot_begin();    // putting lines- Put above
1008                         }
1009                         if (c == 'p') {
1010                                 // are we putting after very last line?
1011                                 if (end_line(dot) == (end - 1)) {
1012                                         dot = end;      // force dot to end of text[]
1013                                 } else {
1014                                         dot_next();     // next line, then put before
1015                                 }
1016                         }
1017                 } else {
1018                         if (c == 'p')
1019                                 dot_right();    // move to right, can move to NL
1020                 }
1021                 dot = string_insert(dot, p);    // insert the string
1022                 end_cmd_q();    // stop adding to q
1023                 break;
1024         case 'U':                       // U- Undo; replace current line with original version
1025                 if (reg[Ureg] != 0) {
1026                         p = begin_line(dot);
1027                         q = end_line(dot);
1028                         p = text_hole_delete(p, q);     // delete cur line
1029                         p = string_insert(p, reg[Ureg]);        // insert orig line
1030                         dot = p;
1031                         dot_skip_over_ws();
1032                 }
1033                 break;
1034 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
1035         case '$':                       // $- goto end of line
1036         case VI_K_END:          // Cursor Key End
1037                 if (cmdcnt-- > 1) {
1038                         do_cmd(c);
1039                 }                               // repeat cnt
1040                 dot = end_line(dot + 1);
1041                 break;
1042         case '%':                       // %- find matching char of pair () [] {}
1043                 for (q = dot; q < end && *q != '\n'; q++) {
1044                         if (strchr("()[]{}", *q) != NULL) {
1045                                 // we found half of a pair
1046                                 p = find_pair(q, *q);
1047                                 if (p == NULL) {
1048                                         indicate_error(c);
1049                                 } else {
1050                                         dot = p;
1051                                 }
1052                                 break;
1053                         }
1054                 }
1055                 if (*q == '\n')
1056                         indicate_error(c);
1057                 break;
1058         case 'f':                       // f- forward to a user specified char
1059                 last_forward_char = get_one_char();     // get the search char
1060                 //
1061                 // dont seperate these two commands. 'f' depends on ';'
1062                 //
1063                 //**** fall thru to ... 'i'
1064         case ';':                       // ;- look at rest of line for last forward char
1065                 if (cmdcnt-- > 1) {
1066                         do_cmd(';');
1067                 }                               // repeat cnt
1068                 if (last_forward_char == 0) break;
1069                 q = dot + 1;
1070                 while (q < end - 1 && *q != '\n' && *q != last_forward_char) {
1071                         q++;
1072                 }
1073                 if (*q == last_forward_char)
1074                         dot = q;
1075                 break;
1076         case '-':                       // -- goto prev line
1077                 if (cmdcnt-- > 1) {
1078                         do_cmd(c);
1079                 }                               // repeat cnt
1080                 dot_prev();
1081                 dot_skip_over_ws();
1082                 break;
1083 #ifdef BB_FEATURE_VI_DOT_CMD
1084         case '.':                       // .- repeat the last modifying command
1085                 // Stuff the last_modifying_cmd back into stdin
1086                 // and let it be re-executed.
1087                 if (last_modifying_cmd != 0) {
1088                         ioq = ioq_start = (Byte *) strdup((char *) last_modifying_cmd);
1089                 }
1090                 break;
1091 #endif                                                  /* BB_FEATURE_VI_DOT_CMD */
1092 #ifdef BB_FEATURE_VI_SEARCH
1093         case '?':                       // /- search for a pattern
1094         case '/':                       // /- search for a pattern
1095                 buf[0] = c;
1096                 buf[1] = '\0';
1097                 q = get_input_line(buf);        // get input line- use "status line"
1098                 if (strlen((char *) q) == 1)
1099                         goto dc3;       // if no pat re-use old pat
1100                 if (strlen((char *) q) > 1) {   // new pat- save it and find
1101                         // there is a new pat
1102                         if (last_search_pattern != 0) {
1103                                 free(last_search_pattern);
1104                         }
1105                         last_search_pattern = (Byte *) strdup((char *) q);
1106                         goto dc3;       // now find the pattern
1107                 }
1108                 // user changed mind and erased the "/"-  do nothing
1109                 break;
1110         case 'N':                       // N- backward search for last pattern
1111                 if (cmdcnt-- > 1) {
1112                         do_cmd(c);
1113                 }                               // repeat cnt
1114                 dir = BACK;             // assume BACKWARD search
1115                 p = dot - 1;
1116                 if (last_search_pattern[0] == '?') {
1117                         dir = FORWARD;
1118                         p = dot + 1;
1119                 }
1120                 goto dc4;               // now search for pattern
1121                 break;
1122         case 'n':                       // n- repeat search for last pattern
1123                 // search rest of text[] starting at next char
1124                 // if search fails return orignal "p" not the "p+1" address
1125                 if (cmdcnt-- > 1) {
1126                         do_cmd(c);
1127                 }                               // repeat cnt
1128           dc3:
1129                 if (last_search_pattern == 0) {
1130                         msg = (Byte *) "No previous regular expression";
1131                         goto dc2;
1132                 }
1133                 if (last_search_pattern[0] == '/') {
1134                         dir = FORWARD;  // assume FORWARD search
1135                         p = dot + 1;
1136                 }
1137                 if (last_search_pattern[0] == '?') {
1138                         dir = BACK;
1139                         p = dot - 1;
1140                 }
1141           dc4:
1142                 q = char_search(p, last_search_pattern + 1, dir, FULL);
1143                 if (q != NULL) {
1144                         dot = q;        // good search, update "dot"
1145                         msg = (Byte *) "";
1146                         goto dc2;
1147                 }
1148                 // no pattern found between "dot" and "end"- continue at top
1149                 p = text;
1150                 if (dir == BACK) {
1151                         p = end - 1;
1152                 }
1153                 q = char_search(p, last_search_pattern + 1, dir, FULL);
1154                 if (q != NULL) {        // found something
1155                         dot = q;        // found new pattern- goto it
1156                         msg = (Byte *) "search hit BOTTOM, continuing at TOP";
1157                         if (dir == BACK) {
1158                                 msg = (Byte *) "search hit TOP, continuing at BOTTOM";
1159                         }
1160                 } else {
1161                         msg = (Byte *) "Pattern not found";
1162                 }
1163           dc2:
1164                 psbs("%s", msg);
1165                 break;
1166         case '{':                       // {- move backward paragraph
1167                 q = char_search(dot, (Byte *) "\n\n", BACK, FULL);
1168                 if (q != NULL) {        // found blank line
1169                         dot = next_line(q);     // move to next blank line
1170                 }
1171                 break;
1172         case '}':                       // }- move forward paragraph
1173                 q = char_search(dot, (Byte *) "\n\n", FORWARD, FULL);
1174                 if (q != NULL) {        // found blank line
1175                         dot = next_line(q);     // move to next blank line
1176                 }
1177                 break;
1178 #endif                                                  /* BB_FEATURE_VI_SEARCH */
1179         case '0':                       // 0- goto begining of line
1180         case '1':                       // 1- 
1181         case '2':                       // 2- 
1182         case '3':                       // 3- 
1183         case '4':                       // 4- 
1184         case '5':                       // 5- 
1185         case '6':                       // 6- 
1186         case '7':                       // 7- 
1187         case '8':                       // 8- 
1188         case '9':                       // 9- 
1189                 if (c == '0' && cmdcnt < 1) {
1190                         dot_begin();    // this was a standalone zero
1191                 } else {
1192                         cmdcnt = cmdcnt * 10 + (c - '0');       // this 0 is part of a number
1193                 }
1194                 break;
1195         case ':':                       // :- the colon mode commands
1196                 p = get_input_line((Byte *) ":");       // get input line- use "status line"
1197 #ifdef BB_FEATURE_VI_COLON
1198                 colon(p);               // execute the command
1199 #else                                                   /* BB_FEATURE_VI_COLON */
1200                 if (*p == ':')
1201                         p++;                            // move past the ':'
1202                 cnt = strlen((char *) p);
1203                 if (cnt <= 0)
1204                         break;
1205                 if (strncasecmp((char *) p, "quit", cnt) == 0 ||
1206                         strncasecmp((char *) p, "q!", cnt) == 0) {      // delete lines
1207                         if (file_modified == TRUE && p[1] != '!') {
1208                                 psbs("No write since last change (:quit! overrides)");
1209                         } else {
1210                                 editing = 0;
1211                         }
1212                 } else if (strncasecmp((char *) p, "write", cnt) == 0 ||
1213                                    strncasecmp((char *) p, "wq", cnt) == 0) {
1214                         cnt = file_write(cfn, text, end - 1);
1215                         file_modified = FALSE;
1216                         psb("\"%s\" %dL, %dC", cfn, count_lines(text, end - 1), cnt);
1217                         if (p[1] == 'q') {
1218                                 editing = 0;
1219                         }
1220                 } else if (strncasecmp((char *) p, "file", cnt) == 0 ) {
1221                         edit_status();                  // show current file status
1222                 } else if (sscanf((char *) p, "%d", &j) > 0) {
1223                         dot = find_line(j);             // go to line # j
1224                         dot_skip_over_ws();
1225                 } else {                // unrecognised cmd
1226                         ni((Byte *) p);
1227                 }
1228 #endif                                                  /* BB_FEATURE_VI_COLON */
1229                 break;
1230         case '<':                       // <- Left  shift something
1231         case '>':                       // >- Right shift something
1232                 cnt = count_lines(text, dot);   // remember what line we are on
1233                 c1 = get_one_char();    // get the type of thing to delete
1234                 find_range(&p, &q, c1);
1235                 (void) yank_delete(p, q, 1, YANKONLY);  // save copy before change
1236                 p = begin_line(p);
1237                 q = end_line(q);
1238                 i = count_lines(p, q);  // # of lines we are shifting
1239                 for ( ; i > 0; i--, p = next_line(p)) {
1240                         if (c == '<') {
1241                                 // shift left- remove tab or 8 spaces
1242                                 if (*p == '\t') {
1243                                         // shrink buffer 1 char
1244                                         (void) text_hole_delete(p, p);
1245                                 } else if (*p == ' ') {
1246                                         // we should be calculating columns, not just SPACE
1247                                         for (j = 0; *p == ' ' && j < tabstop; j++) {
1248                                                 (void) text_hole_delete(p, p);
1249                                         }
1250                                 }
1251                         } else if (c == '>') {
1252                                 // shift right -- add tab or 8 spaces
1253                                 (void) char_insert(p, '\t');
1254                         }
1255                 }
1256                 dot = find_line(cnt);   // what line were we on
1257                 dot_skip_over_ws();
1258                 end_cmd_q();    // stop adding to q
1259                 break;
1260         case 'A':                       // A- append at e-o-l
1261                 dot_end();              // go to e-o-l
1262                 //**** fall thru to ... 'a'
1263         case 'a':                       // a- append after current char
1264                 if (*dot != '\n')
1265                         dot++;
1266                 goto dc_i;
1267                 break;
1268         case 'B':                       // B- back a blank-delimited Word
1269         case 'E':                       // E- end of a blank-delimited word
1270         case 'W':                       // W- forward a blank-delimited word
1271                 if (cmdcnt-- > 1) {
1272                         do_cmd(c);
1273                 }                               // repeat cnt
1274                 dir = FORWARD;
1275                 if (c == 'B')
1276                         dir = BACK;
1277                 if (c == 'W' || isspace(dot[dir])) {
1278                         dot = skip_thing(dot, 1, dir, S_TO_WS);
1279                         dot = skip_thing(dot, 2, dir, S_OVER_WS);
1280                 }
1281                 if (c != 'W')
1282                         dot = skip_thing(dot, 1, dir, S_BEFORE_WS);
1283                 break;
1284         case 'C':                       // C- Change to e-o-l
1285         case 'D':                       // D- delete to e-o-l
1286                 save_dot = dot;
1287                 dot = dollar_line(dot); // move to before NL
1288                 // copy text into a register and delete
1289                 dot = yank_delete(save_dot, dot, 0, YANKDEL);   // delete to e-o-l
1290                 if (c == 'C')
1291                         goto dc_i;      // start inserting
1292 #ifdef BB_FEATURE_VI_DOT_CMD
1293                 if (c == 'D')
1294                         end_cmd_q();    // stop adding to q
1295 #endif                                                  /* BB_FEATURE_VI_DOT_CMD */
1296                 break;
1297         case 'G':               // G- goto to a line number (default= E-O-F)
1298                 dot = end - 1;                          // assume E-O-F
1299                 if (cmdcnt > 0) {
1300                         dot = find_line(cmdcnt);        // what line is #cmdcnt
1301                 }
1302                 dot_skip_over_ws();
1303                 break;
1304         case 'H':                       // H- goto top line on screen
1305                 dot = screenbegin;
1306                 if (cmdcnt > (rows - 1)) {
1307                         cmdcnt = (rows - 1);
1308                 }
1309                 if (cmdcnt-- > 1) {
1310                         do_cmd('+');
1311                 }                               // repeat cnt
1312                 dot_skip_over_ws();
1313                 break;
1314         case 'I':                       // I- insert before first non-blank
1315                 dot_begin();    // 0
1316                 dot_skip_over_ws();
1317                 //**** fall thru to ... 'i'
1318         case 'i':                       // i- insert before current char
1319         case VI_K_INSERT:       // Cursor Key Insert
1320           dc_i:
1321                 cmd_mode = 1;   // start insrting
1322                 psb("-- Insert --");
1323                 break;
1324         case 'J':                       // J- join current and next lines together
1325                 if (cmdcnt-- > 2) {
1326                         do_cmd(c);
1327                 }                               // repeat cnt
1328                 dot_end();              // move to NL
1329                 if (dot < end - 1) {    // make sure not last char in text[]
1330                         *dot++ = ' ';   // replace NL with space
1331                         while (isblnk(*dot)) {  // delete leading WS
1332                                 dot_delete();
1333                         }
1334                 }
1335                 end_cmd_q();    // stop adding to q
1336                 break;
1337         case 'L':                       // L- goto bottom line on screen
1338                 dot = end_screen();
1339                 if (cmdcnt > (rows - 1)) {
1340                         cmdcnt = (rows - 1);
1341                 }
1342                 if (cmdcnt-- > 1) {
1343                         do_cmd('-');
1344                 }                               // repeat cnt
1345                 dot_begin();
1346                 dot_skip_over_ws();
1347                 break;
1348         case 'M':                       // M- goto middle line on screen
1349                 dot = screenbegin;
1350                 for (cnt = 0; cnt < (rows-1) / 2; cnt++)
1351                         dot = next_line(dot);
1352                 break;
1353         case 'O':                       // O- open a empty line above
1354                 //    0i\n ESC -i
1355                 p = begin_line(dot);
1356                 if (p[-1] == '\n') {
1357                         dot_prev();
1358         case 'o':                       // o- open a empty line below; Yes, I know it is in the middle of the "if (..."
1359                         dot_end();
1360                         dot = char_insert(dot, '\n');
1361                 } else {
1362                         dot_begin();    // 0
1363                         dot = char_insert(dot, '\n');   // i\n ESC
1364                         dot_prev();     // -
1365                 }
1366                 goto dc_i;
1367                 break;
1368         case 'R':                       // R- continuous Replace char
1369           dc5:
1370                 cmd_mode = 2;
1371                 psb("-- Replace --");
1372                 break;
1373         case 'X':                       // X- delete char before dot
1374         case 'x':                       // x- delete the current char
1375         case 's':                       // s- substitute the current char
1376                 if (cmdcnt-- > 1) {
1377                         do_cmd(c);
1378                 }                               // repeat cnt
1379                 dir = 0;
1380                 if (c == 'X')
1381                         dir = -1;
1382                 if (dot[dir] != '\n') {
1383                         if (c == 'X')
1384                                 dot--;  // delete prev char
1385                         dot = yank_delete(dot, dot, 0, YANKDEL);        // delete char
1386                 }
1387                 if (c == 's')
1388                         goto dc_i;      // start insrting
1389                 end_cmd_q();    // stop adding to q
1390                 break;
1391         case 'Z':                       // Z- if modified, {write}; exit
1392                 // ZZ means to save file (if necessary), then exit
1393                 c1 = get_one_char();
1394                 if (c1 != 'Z') {
1395                         indicate_error(c);
1396                         break;
1397                 }
1398                 if (file_modified == TRUE
1399 #ifdef BB_FEATURE_VI_READONLY
1400                         && vi_readonly == FALSE
1401                         && readonly == FALSE
1402 #endif                                                  /* BB_FEATURE_VI_READONLY */
1403                         ) {
1404                         cnt = file_write(cfn, text, end - 1);
1405                         if (cnt == (end - 1 - text + 1)) {
1406                                 editing = 0;
1407                         }
1408                 } else {
1409                         editing = 0;
1410                 }
1411                 break;
1412         case '^':                       // ^- move to first non-blank on line
1413                 dot_begin();
1414                 dot_skip_over_ws();
1415                 break;
1416         case 'b':                       // b- back a word
1417         case 'e':                       // e- end of word
1418                 if (cmdcnt-- > 1) {
1419                         do_cmd(c);
1420                 }                               // repeat cnt
1421                 dir = FORWARD;
1422                 if (c == 'b')
1423                         dir = BACK;
1424                 if ((dot + dir) < text || (dot + dir) > end - 1)
1425                         break;
1426                 dot += dir;
1427                 if (isspace(*dot)) {
1428                         dot = skip_thing(dot, (c == 'e') ? 2 : 1, dir, S_OVER_WS);
1429                 }
1430                 if (isalnum(*dot) || *dot == '_') {
1431                         dot = skip_thing(dot, 1, dir, S_END_ALNUM);
1432                 } else if (ispunct(*dot)) {
1433                         dot = skip_thing(dot, 1, dir, S_END_PUNCT);
1434                 }
1435                 break;
1436         case 'c':                       // c- change something
1437         case 'd':                       // d- delete something
1438 #ifdef BB_FEATURE_VI_YANKMARK
1439         case 'y':                       // y- yank   something
1440         case 'Y':                       // Y- Yank a line
1441 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
1442                 yf = YANKDEL;   // assume either "c" or "d"
1443 #ifdef BB_FEATURE_VI_YANKMARK
1444                 if (c == 'y' || c == 'Y')
1445                         yf = YANKONLY;
1446 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
1447                 c1 = 'y';
1448                 if (c != 'Y')
1449                         c1 = get_one_char();    // get the type of thing to delete
1450                 find_range(&p, &q, c1);
1451                 if (c1 == 27) { // ESC- user changed mind and wants out
1452                         c = c1 = 27;    // Escape- do nothing
1453                 } else if (strchr("wW", c1)) {
1454                         if (c == 'c') {
1455                                 // don't include trailing WS as part of word
1456                                 while (isblnk(*q)) {
1457                                         if (q <= text || q[-1] == '\n')
1458                                                 break;
1459                                         q--;
1460                                 }
1461                         }
1462                         dot = yank_delete(p, q, 0, yf); // delete word
1463                 } else if (strchr("^0bBeEft$", c1)) {
1464                         // single line copy text into a register and delete
1465                         dot = yank_delete(p, q, 0, yf); // delete word
1466                 } else if (strchr("cdykjHL%+-{}\r\n", c1)) {
1467                         // multiple line copy text into a register and delete
1468                         dot = yank_delete(p, q, 1, yf); // delete lines
1469                         if (c == 'c') {
1470                                 dot = char_insert(dot, '\n');
1471                                 // on the last line of file don't move to prev line
1472                                 if (dot != (end-1)) {
1473                                         dot_prev();
1474                                 }
1475                         } else if (c == 'd') {
1476                                 dot_begin();
1477                                 dot_skip_over_ws();
1478                         }
1479                 } else {
1480                         // could not recognize object
1481                         c = c1 = 27;    // error-
1482                         indicate_error(c);
1483                 }
1484                 if (c1 != 27) {
1485                         // if CHANGING, not deleting, start inserting after the delete
1486                         if (c == 'c') {
1487                                 strcpy((char *) buf, "Change");
1488                                 goto dc_i;      // start inserting
1489                         }
1490                         if (c == 'd') {
1491                                 strcpy((char *) buf, "Delete");
1492                         }
1493 #ifdef BB_FEATURE_VI_YANKMARK
1494                         if (c == 'y' || c == 'Y') {
1495                                 strcpy((char *) buf, "Yank");
1496                         }
1497                         p = reg[YDreg];
1498                         q = p + strlen((char *) p);
1499                         for (cnt = 0; p <= q; p++) {
1500                                 if (*p == '\n')
1501                                         cnt++;
1502                         }
1503                         psb("%s %d lines (%d chars) using [%c]",
1504                                 buf, cnt, strlen((char *) reg[YDreg]), what_reg());
1505 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
1506                         end_cmd_q();    // stop adding to q
1507                 }
1508                 break;
1509         case 'k':                       // k- goto prev line, same col
1510         case VI_K_UP:           // cursor key Up
1511                 if (cmdcnt-- > 1) {
1512                         do_cmd(c);
1513                 }                               // repeat cnt
1514                 dot_prev();
1515                 dot = move_to_col(dot, ccol + offset);  // try stay in same col
1516                 break;
1517         case 'r':                       // r- replace the current char with user input
1518                 c1 = get_one_char();    // get the replacement char
1519                 if (*dot != '\n') {
1520                         *dot = c1;
1521                         file_modified = TRUE;   // has the file been modified
1522                 }
1523                 end_cmd_q();    // stop adding to q
1524                 break;
1525         case 't':                       // t- move to char prior to next x
1526                 last_forward_char = get_one_char();
1527                 do_cmd(';');
1528                 if (*dot == last_forward_char)
1529                         dot_left();
1530                 last_forward_char= 0;
1531                 break;
1532         case 'w':                       // w- forward a word
1533                 if (cmdcnt-- > 1) {
1534                         do_cmd(c);
1535                 }                               // repeat cnt
1536                 if (isalnum(*dot) || *dot == '_') {     // we are on ALNUM
1537                         dot = skip_thing(dot, 1, FORWARD, S_END_ALNUM);
1538                 } else if (ispunct(*dot)) {     // we are on PUNCT
1539                         dot = skip_thing(dot, 1, FORWARD, S_END_PUNCT);
1540                 }
1541                 if (dot < end - 1)
1542                         dot++;          // move over word
1543                 if (isspace(*dot)) {
1544                         dot = skip_thing(dot, 2, FORWARD, S_OVER_WS);
1545                 }
1546                 break;
1547         case 'z':                       // z-
1548                 c1 = get_one_char();    // get the replacement char
1549                 cnt = 0;
1550                 if (c1 == '.')
1551                         cnt = (rows - 2) / 2;   // put dot at center
1552                 if (c1 == '-')
1553                         cnt = rows - 2; // put dot at bottom
1554                 screenbegin = begin_line(dot);  // start dot at top
1555                 dot_scroll(cnt, -1);
1556                 break;
1557         case '|':                       // |- move to column "cmdcnt"
1558                 dot = move_to_col(dot, cmdcnt - 1);     // try to move to column
1559                 break;
1560         case '~':                       // ~- flip the case of letters   a-z -> A-Z
1561                 if (cmdcnt-- > 1) {
1562                         do_cmd(c);
1563                 }                               // repeat cnt
1564                 if (islower(*dot)) {
1565                         *dot = toupper(*dot);
1566                         file_modified = TRUE;   // has the file been modified
1567                 } else if (isupper(*dot)) {
1568                         *dot = tolower(*dot);
1569                         file_modified = TRUE;   // has the file been modified
1570                 }
1571                 dot_right();
1572                 end_cmd_q();    // stop adding to q
1573                 break;
1574                 //----- The Cursor and Function Keys -----------------------------
1575         case VI_K_HOME: // Cursor Key Home
1576                 dot_begin();
1577                 break;
1578                 // The Fn keys could point to do_macro which could translate them
1579         case VI_K_FUN1: // Function Key F1
1580         case VI_K_FUN2: // Function Key F2
1581         case VI_K_FUN3: // Function Key F3
1582         case VI_K_FUN4: // Function Key F4
1583         case VI_K_FUN5: // Function Key F5
1584         case VI_K_FUN6: // Function Key F6
1585         case VI_K_FUN7: // Function Key F7
1586         case VI_K_FUN8: // Function Key F8
1587         case VI_K_FUN9: // Function Key F9
1588         case VI_K_FUN10:        // Function Key F10
1589         case VI_K_FUN11:        // Function Key F11
1590         case VI_K_FUN12:        // Function Key F12
1591                 break;
1592         }
1593
1594   dc1:
1595         // if text[] just became empty, add back an empty line
1596         if (end == text) {
1597                 (void) char_insert(text, '\n'); // start empty buf with dummy line
1598                 dot = text;
1599         }
1600         // it is OK for dot to exactly equal to end, otherwise check dot validity
1601         if (dot != end) {
1602                 dot = bound_dot(dot);   // make sure "dot" is valid
1603         }
1604 #ifdef BB_FEATURE_VI_YANKMARK
1605         check_context(c);       // update the current context
1606 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
1607
1608         if (!isdigit(c))
1609                 cmdcnt = 0;             // cmd was not a number, reset cmdcnt
1610         cnt = dot - begin_line(dot);
1611         // Try to stay off of the Newline
1612         if (*dot == '\n' && cnt > 0 && cmd_mode == 0)
1613                 dot--;
1614 }
1615
1616 //----- The Colon commands -------------------------------------
1617 #ifdef BB_FEATURE_VI_COLON
1618 static Byte *get_one_address(Byte * p, int *addr)       // get colon addr, if present
1619 {
1620         int st;
1621         Byte *q;
1622
1623 #ifdef BB_FEATURE_VI_YANKMARK
1624         Byte c;
1625 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
1626 #ifdef BB_FEATURE_VI_SEARCH
1627         Byte *pat, buf[BUFSIZ];
1628 #endif                                                  /* BB_FEATURE_VI_SEARCH */
1629
1630         *addr = -1;                     // assume no addr
1631         if (*p == '.') {        // the current line
1632                 p++;
1633                 q = begin_line(dot);
1634                 *addr = count_lines(text, q);
1635 #ifdef BB_FEATURE_VI_YANKMARK
1636         } else if (*p == '\'') {        // is this a mark addr
1637                 p++;
1638                 c = tolower(*p);
1639                 p++;
1640                 if (c >= 'a' && c <= 'z') {
1641                         // we have a mark
1642                         c = c - 'a';
1643                         q = mark[(int) c];
1644                         if (q != NULL) {        // is mark valid
1645                                 *addr = count_lines(text, q);   // count lines
1646                         }
1647                 }
1648 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
1649 #ifdef BB_FEATURE_VI_SEARCH
1650         } else if (*p == '/') { // a search pattern
1651                 q = buf;
1652                 for (p++; *p; p++) {
1653                         if (*p == '/')
1654                                 break;
1655                         *q++ = *p;
1656                         *q = '\0';
1657                 }
1658                 pat = (Byte *) strdup((char *) buf);    // save copy of pattern
1659                 if (*p == '/')
1660                         p++;
1661                 q = char_search(dot, pat, FORWARD, FULL);
1662                 if (q != NULL) {
1663                         *addr = count_lines(text, q);
1664                 }
1665                 free(pat);
1666 #endif                                                  /* BB_FEATURE_VI_SEARCH */
1667         } else if (*p == '$') { // the last line in file
1668                 p++;
1669                 q = begin_line(end - 1);
1670                 *addr = count_lines(text, q);
1671         } else if (isdigit(*p)) {       // specific line number
1672                 sscanf((char *) p, "%d%n", addr, &st);
1673                 p += st;
1674         } else {                        // I don't reconise this
1675                 // unrecognised address- assume -1
1676                 *addr = -1;
1677         }
1678         return (p);
1679 }
1680
1681 static Byte *get_address(Byte *p, int *b, int *e)       // get two colon addrs, if present
1682 {
1683         //----- get the address' i.e., 1,3   'a,'b  -----
1684         // get FIRST addr, if present
1685         while (isblnk(*p))
1686                 p++;                            // skip over leading spaces
1687         if (*p == '%') {                        // alias for 1,$
1688                 p++;
1689                 *b = 1;
1690                 *e = count_lines(text, end-1);
1691                 goto ga0;
1692         }
1693         p = get_one_address(p, b);
1694         while (isblnk(*p))
1695                 p++;
1696         if (*p == ',') {                        // is there a address seperator
1697                 p++;
1698                 while (isblnk(*p))
1699                         p++;
1700                 // get SECOND addr, if present
1701                 p = get_one_address(p, e);
1702         }
1703 ga0:
1704         while (isblnk(*p))
1705                 p++;                            // skip over trailing spaces
1706         return (p);
1707 }
1708
1709 static void colon(Byte * buf)
1710 {
1711         Byte c, *orig_buf, *buf1, *q, *r;
1712         Byte *fn, cmd[BUFSIZ], args[BUFSIZ];
1713         int i, l, li, ch, st, b, e;
1714         int useforce, forced;
1715         struct stat st_buf;
1716
1717         // :3154        // if (-e line 3154) goto it  else stay put
1718         // :4,33w! foo  // write a portion of buffer to file "foo"
1719         // :w           // write all of buffer to current file
1720         // :q           // quit
1721         // :q!          // quit- dont care about modified file
1722         // :'a,'z!sort -u   // filter block through sort
1723         // :'f          // goto mark "f"
1724         // :'fl         // list literal the mark "f" line
1725         // :.r bar      // read file "bar" into buffer before dot
1726         // :/123/,/abc/d    // delete lines from "123" line to "abc" line
1727         // :/xyz/       // goto the "xyz" line
1728         // :s/find/replace/ // substitute pattern "find" with "replace"
1729         // :!<cmd>      // run <cmd> then return
1730         //
1731         if (strlen((char *) buf) <= 0)
1732                 goto vc1;
1733         if (*buf == ':')
1734                 buf++;                  // move past the ':'
1735
1736         forced = useforce = FALSE;
1737         li = st = ch = i = 0;
1738         b = e = -1;
1739         q = text;                       // assume 1,$ for the range
1740         r = end - 1;
1741         li = count_lines(text, end - 1);
1742         fn = cfn;                       // default to current file
1743         memset(cmd, '\0', BUFSIZ);      // clear cmd[]
1744         memset(args, '\0', BUFSIZ);     // clear args[]
1745
1746         // look for optional address(es)  :.  :1  :1,9   :'q,'a   :%
1747         buf = get_address(buf, &b, &e);
1748
1749         // remember orig command line
1750         orig_buf = buf;
1751
1752         // get the COMMAND into cmd[]
1753         buf1 = cmd;
1754         while (*buf != '\0') {
1755                 if (isspace(*buf))
1756                         break;
1757                 *buf1++ = *buf++;
1758         }
1759         // get any ARGuments
1760         while (isblnk(*buf))
1761                 buf++;
1762         strcpy((char *) args, (char *) buf);
1763         buf1 = last_char_is((char *)cmd, '!');
1764         if (buf1) {
1765                 useforce = TRUE;
1766                 *buf1 = '\0';   // get rid of !
1767         }
1768         if (b >= 0) {
1769                 // if there is only one addr, then the addr
1770                 // is the line number of the single line the
1771                 // user wants. So, reset the end
1772                 // pointer to point at end of the "b" line
1773                 q = find_line(b);       // what line is #b
1774                 r = end_line(q);
1775                 li = 1;
1776         }
1777         if (e >= 0) {
1778                 // we were given two addrs.  change the
1779                 // end pointer to the addr given by user.
1780                 r = find_line(e);       // what line is #e
1781                 r = end_line(r);
1782                 li = e - b + 1;
1783         }
1784         // ------------ now look for the command ------------
1785         i = strlen((char *) cmd);
1786         if (i == 0) {           // :123CR goto line #123
1787                 if (b >= 0) {
1788                         dot = find_line(b);     // what line is #b
1789                         dot_skip_over_ws();
1790                 }
1791         } else if (strncmp((char *) cmd, "!", 1) == 0) {        // run a cmd
1792                 // :!ls   run the <cmd>
1793                 (void) alarm(0);                // wait for input- no alarms
1794                 place_cursor(rows - 1, 0, FALSE);       // go to Status line
1795                 clear_to_eol();                 // clear the line
1796                 cookmode();
1797                 system(orig_buf+1);             // run the cmd
1798                 rawmode();
1799                 Hit_Return();                   // let user see results
1800                 (void) alarm(3);                // done waiting for input
1801         } else if (strncmp((char *) cmd, "=", i) == 0) {        // where is the address
1802                 if (b < 0) {    // no addr given- use defaults
1803                         b = e = count_lines(text, dot);
1804                 }
1805                 psb("%d", b);
1806         } else if (strncasecmp((char *) cmd, "delete", i) == 0) {       // delete lines
1807                 if (b < 0) {    // no addr given- use defaults
1808                         q = begin_line(dot);    // assume .,. for the range
1809                         r = end_line(dot);
1810                 }
1811                 dot = yank_delete(q, r, 1, YANKDEL);    // save, then delete lines
1812                 dot_skip_over_ws();
1813         } else if (strncasecmp((char *) cmd, "edit", i) == 0) { // Edit a file
1814                 int sr;
1815                 sr= 0;
1816                 // don't edit, if the current file has been modified
1817                 if (file_modified == TRUE && useforce != TRUE) {
1818                         psbs("No write since last change (:edit! overrides)");
1819                         goto vc1;
1820                 }
1821                 if (strlen(args) > 0) {
1822                         // the user supplied a file name
1823                         fn= args;
1824                 } else if (cfn != 0 && strlen(cfn) > 0) {
1825                         // no user supplied name- use the current filename
1826                         fn= cfn;
1827                         goto vc5;
1828                 } else {
1829                         // no user file name, no current name- punt
1830                         psbs("No current filename");
1831                         goto vc1;
1832                 }
1833
1834                 // see if file exists- if not, its just a new file request
1835                 if ((sr=stat((char*)fn, &st_buf)) < 0) {
1836                         // This is just a request for a new file creation.
1837                         // The file_insert below will fail but we get
1838                         // an empty buffer with a file name.  Then the "write"
1839                         // command can do the create.
1840                 } else {
1841                         if ((st_buf.st_mode & (S_IFREG)) == 0) {
1842                                 // This is not a regular file
1843                                 psbs("\"%s\" is not a regular file", fn);
1844                                 goto vc1;
1845                         }
1846                         if ((st_buf.st_mode & (S_IRUSR | S_IRGRP | S_IROTH)) == 0) {
1847                                 // dont have any read permissions
1848                                 psbs("\"%s\" is not readable", fn);
1849                                 goto vc1;
1850                         }
1851                 }
1852
1853                 // There is a read-able regular file
1854                 // make this the current file
1855                 q = (Byte *) strdup((char *) fn);       // save the cfn
1856                 if (cfn != 0)
1857                         free(cfn);              // free the old name
1858                 cfn = q;                        // remember new cfn
1859
1860           vc5:
1861                 // delete all the contents of text[]
1862                 new_text(2 * file_size(fn));
1863                 screenbegin = dot = end = text;
1864
1865                 // insert new file
1866                 ch = file_insert(fn, text, file_size(fn));
1867
1868                 if (ch < 1) {
1869                         // start empty buf with dummy line
1870                         (void) char_insert(text, '\n');
1871                         ch= 1;
1872                 }
1873                 file_modified = FALSE;
1874 #ifdef BB_FEATURE_VI_YANKMARK
1875                 if (Ureg >= 0 && Ureg < 28 && reg[Ureg] != 0) {
1876                         free(reg[Ureg]);        //   free orig line reg- for 'U'
1877                         reg[Ureg]= 0;
1878                 }
1879                 if (YDreg >= 0 && YDreg < 28 && reg[YDreg] != 0) {
1880                         free(reg[YDreg]);       //   free default yank/delete register
1881                         reg[YDreg]= 0;
1882                 }
1883                 for (li = 0; li < 28; li++) {
1884                         mark[li] = 0;
1885                 }                               // init the marks
1886 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
1887                 // how many lines in text[]?
1888                 li = count_lines(text, end - 1);
1889                 psb("\"%s\"%s"
1890 #ifdef BB_FEATURE_VI_READONLY
1891                         "%s"
1892 #endif                                                  /* BB_FEATURE_VI_READONLY */
1893                         " %dL, %dC", cfn,
1894                         (sr < 0 ? " [New file]" : ""),
1895 #ifdef BB_FEATURE_VI_READONLY
1896                         ((vi_readonly == TRUE || readonly == TRUE) ? " [Read only]" : ""),
1897 #endif                                                  /* BB_FEATURE_VI_READONLY */
1898                         li, ch);
1899         } else if (strncasecmp((char *) cmd, "file", i) == 0) { // what File is this
1900                 if (b != -1 || e != -1) {
1901                         ni((Byte *) "No address allowed on this command");
1902                         goto vc1;
1903                 }
1904                 if (strlen((char *) args) > 0) {
1905                         // user wants a new filename
1906                         if (cfn != NULL)
1907                                 free(cfn);
1908                         cfn = (Byte *) strdup((char *) args);
1909                 } else {
1910                         // user wants file status info
1911                         edit_status();
1912                 }
1913         } else if (strncasecmp((char *) cmd, "features", i) == 0) {     // what features are available
1914                 // print out values of all features
1915                 place_cursor(rows - 1, 0, FALSE);       // go to Status line, bottom of screen
1916                 clear_to_eol(); // clear the line
1917                 cookmode();
1918                 show_help();
1919                 rawmode();
1920                 Hit_Return();
1921         } else if (strncasecmp((char *) cmd, "list", i) == 0) { // literal print line
1922                 if (b < 0) {    // no addr given- use defaults
1923                         q = begin_line(dot);    // assume .,. for the range
1924                         r = end_line(dot);
1925                 }
1926                 place_cursor(rows - 1, 0, FALSE);       // go to Status line, bottom of screen
1927                 clear_to_eol(); // clear the line
1928                 write(1, "\r\n", 2);
1929                 for (; q <= r; q++) {
1930                         c = *q;
1931                         if (c > '~')
1932                                 standout_start();
1933                         if (c == '\n') {
1934                                 write(1, "$\r", 2);
1935                         } else if (*q < ' ') {
1936                                 write(1, "^", 1);
1937                                 c += '@';
1938                         }
1939                         write(1, &c, 1);
1940                         if (c > '~')
1941                                 standout_end();
1942                 }
1943 #ifdef BB_FEATURE_VI_SET
1944           vc2:
1945 #endif                                                  /* BB_FEATURE_VI_SET */
1946                 Hit_Return();
1947         } else if ((strncasecmp((char *) cmd, "quit", i) == 0) ||       // Quit
1948                            (strncasecmp((char *) cmd, "next", i) == 0)) {       // edit next file
1949                 if (useforce == TRUE) {
1950                         // force end of argv list
1951                         if (*cmd == 'q') {
1952                                 optind = save_argc;
1953                         }
1954                         editing = 0;
1955                         goto vc1;
1956                 }
1957                 // don't exit if the file been modified
1958                 if (file_modified == TRUE) {
1959                         psbs("No write since last change (:%s! overrides)",
1960                                  (*cmd == 'q' ? "quit" : "next"));
1961                         goto vc1;
1962                 }
1963                 // are there other file to edit
1964                 if (*cmd == 'q' && optind < save_argc - 1) {
1965                         psbs("%d more file to edit", (save_argc - optind - 1));
1966                         goto vc1;
1967                 }
1968                 if (*cmd == 'n' && optind >= save_argc - 1) {
1969                         psbs("No more files to edit");
1970                         goto vc1;
1971                 }
1972                 editing = 0;
1973         } else if (strncasecmp((char *) cmd, "read", i) == 0) { // read file into text[]
1974                 fn = args;
1975                 if (strlen((char *) fn) <= 0) {
1976                         psbs("No filename given");
1977                         goto vc1;
1978                 }
1979                 if (b < 0) {    // no addr given- use defaults
1980                         q = begin_line(dot);    // assume "dot"
1981                 }
1982                 // read after current line- unless user said ":0r foo"
1983                 if (b != 0)
1984                         q = next_line(q);
1985                 l= readonly;                    // remember current files' status
1986                 ch = file_insert(fn, q, file_size(fn));
1987                 readonly= l;
1988                 if (ch < 0)
1989                         goto vc1;       // nothing was inserted
1990                 // how many lines in text[]?
1991                 li = count_lines(q, q + ch - 1);
1992                 psb("\"%s\""
1993 #ifdef BB_FEATURE_VI_READONLY
1994                         "%s"
1995 #endif                                                  /* BB_FEATURE_VI_READONLY */
1996                         " %dL, %dC", fn,
1997 #ifdef BB_FEATURE_VI_READONLY
1998                         ((vi_readonly == TRUE || readonly == TRUE) ? " [Read only]" : ""),
1999 #endif                                                  /* BB_FEATURE_VI_READONLY */
2000                         li, ch);
2001                 if (ch > 0) {
2002                         // if the insert is before "dot" then we need to update
2003                         if (q <= dot)
2004                                 dot += ch;
2005                         file_modified = TRUE;
2006                 }
2007         } else if (strncasecmp((char *) cmd, "rewind", i) == 0) {       // rewind cmd line args
2008                 if (file_modified == TRUE && useforce != TRUE) {
2009                         psbs("No write since last change (:rewind! overrides)");
2010                 } else {
2011                         // reset the filenames to edit
2012                         optind = fn_start - 1;
2013                         editing = 0;
2014                 }
2015 #ifdef BB_FEATURE_VI_SET
2016         } else if (strncasecmp((char *) cmd, "set", i) == 0) {  // set or clear features
2017                 i = 0;                  // offset into args
2018                 if (strlen((char *) args) == 0) {
2019                         // print out values of all options
2020                         place_cursor(rows - 1, 0, FALSE);       // go to Status line, bottom of screen
2021                         clear_to_eol(); // clear the line
2022                         printf("----------------------------------------\r\n");
2023 #ifdef BB_FEATURE_VI_SETOPTS
2024                         if (!autoindent)
2025                                 printf("no");
2026                         printf("autoindent ");
2027                         if (!err_method)
2028                                 printf("no");
2029                         printf("flash ");
2030                         if (!ignorecase)
2031                                 printf("no");
2032                         printf("ignorecase ");
2033                         if (!showmatch)
2034                                 printf("no");
2035                         printf("showmatch ");
2036                         printf("tabstop=%d ", tabstop);
2037 #endif                                                  /* BB_FEATURE_VI_SETOPTS */
2038                         printf("\r\n");
2039                         goto vc2;
2040                 }
2041                 if (strncasecmp((char *) args, "no", 2) == 0)
2042                         i = 2;          // ":set noautoindent"
2043 #ifdef BB_FEATURE_VI_SETOPTS
2044                 if (strncasecmp((char *) args + i, "autoindent", 10) == 0 ||
2045                         strncasecmp((char *) args + i, "ai", 2) == 0) {
2046                         autoindent = (i == 2) ? 0 : 1;
2047                 }
2048                 if (strncasecmp((char *) args + i, "flash", 5) == 0 ||
2049                         strncasecmp((char *) args + i, "fl", 2) == 0) {
2050                         err_method = (i == 2) ? 0 : 1;
2051                 }
2052                 if (strncasecmp((char *) args + i, "ignorecase", 10) == 0 ||
2053                         strncasecmp((char *) args + i, "ic", 2) == 0) {
2054                         ignorecase = (i == 2) ? 0 : 1;
2055                 }
2056                 if (strncasecmp((char *) args + i, "showmatch", 9) == 0 ||
2057                         strncasecmp((char *) args + i, "sm", 2) == 0) {
2058                         showmatch = (i == 2) ? 0 : 1;
2059                 }
2060                 if (strncasecmp((char *) args + i, "tabstop", 7) == 0) {
2061                         sscanf(strchr((char *) args + i, '='), "=%d", &ch);
2062                         if (ch > 0 && ch < columns - 1)
2063                                 tabstop = ch;
2064                 }
2065 #endif                                                  /* BB_FEATURE_VI_SETOPTS */
2066 #endif                                                  /* BB_FEATURE_VI_SET */
2067 #ifdef BB_FEATURE_VI_SEARCH
2068         } else if (strncasecmp((char *) cmd, "s", 1) == 0) {    // substitute a pattern with a replacement pattern
2069                 Byte *ls, *F, *R;
2070                 int gflag;
2071
2072                 // F points to the "find" pattern
2073                 // R points to the "replace" pattern
2074                 // replace the cmd line delimiters "/" with NULLs
2075                 gflag = 0;              // global replace flag
2076                 c = orig_buf[1];        // what is the delimiter
2077                 F = orig_buf + 2;       // start of "find"
2078                 R = (Byte *) strchr((char *) F, c);     // middle delimiter
2079                 if (!R) goto colon_s_fail;
2080                 *R++ = '\0';    // terminate "find"
2081                 buf1 = (Byte *) strchr((char *) R, c);
2082                 if (!buf1) goto colon_s_fail;
2083                 *buf1++ = '\0'; // terminate "replace"
2084                 if (*buf1 == 'g') {     // :s/foo/bar/g
2085                         buf1++;
2086                         gflag++;        // turn on gflag
2087                 }
2088                 q = begin_line(q);
2089                 if (b < 0) {    // maybe :s/foo/bar/
2090                         q = begin_line(dot);    // start with cur line
2091                         b = count_lines(text, q);       // cur line number
2092                 }
2093                 if (e < 0)
2094                         e = b;          // maybe :.s/foo/bar/
2095                 for (i = b; i <= e; i++) {      // so, :20,23 s \0 find \0 replace \0
2096                         ls = q;         // orig line start
2097                   vc4:
2098                         buf1 = char_search(q, F, FORWARD, LIMITED);     // search cur line only for "find"
2099                         if (buf1 != NULL) {
2100                                 // we found the "find" pattern- delete it
2101                                 (void) text_hole_delete(buf1, buf1 + strlen((char *) F) - 1);
2102                                 // inset the "replace" patern
2103                                 (void) string_insert(buf1, R);  // insert the string
2104                                 // check for "global"  :s/foo/bar/g
2105                                 if (gflag == 1) {
2106                                         if ((buf1 + strlen((char *) R)) < end_line(ls)) {
2107                                                 q = buf1 + strlen((char *) R);
2108                                                 goto vc4;       // don't let q move past cur line
2109                                         }
2110                                 }
2111                         }
2112                         q = next_line(ls);
2113                 }
2114 #endif                                                  /* BB_FEATURE_VI_SEARCH */
2115         } else if (strncasecmp((char *) cmd, "version", i) == 0) {      // show software version
2116                 psb("%s", vi_Version);
2117         } else if ((strncasecmp((char *) cmd, "write", i) == 0) ||      // write text to file
2118                            (strncasecmp((char *) cmd, "wq", i) == 0)) { // write text to file
2119                 // is there a file name to write to?
2120                 if (strlen((char *) args) > 0) {
2121                         fn = args;
2122                 }
2123 #ifdef BB_FEATURE_VI_READONLY
2124                 if ((vi_readonly == TRUE || readonly == TRUE) && useforce == FALSE) {
2125                         psbs("\"%s\" File is read only", fn);
2126                         goto vc3;
2127                 }
2128 #endif                                                  /* BB_FEATURE_VI_READONLY */
2129                 // how many lines in text[]?
2130                 li = count_lines(q, r);
2131                 ch = r - q + 1;
2132                 // see if file exists- if not, its just a new file request
2133                 if (useforce == TRUE) {
2134                         // if "fn" is not write-able, chmod u+w
2135                         // sprintf(syscmd, "chmod u+w %s", fn);
2136                         // system(syscmd);
2137                         forced = TRUE;
2138                 }
2139                 l = file_write(fn, q, r);
2140                 if (useforce == TRUE && forced == TRUE) {
2141                         // chmod u-w
2142                         // sprintf(syscmd, "chmod u-w %s", fn);
2143                         // system(syscmd);
2144                         forced = FALSE;
2145                 }
2146                 psb("\"%s\" %dL, %dC", fn, li, l);
2147                 if (q == text && r == end - 1 && l == ch)
2148                         file_modified = FALSE;
2149                 if (cmd[1] == 'q' && l == ch) {
2150                         editing = 0;
2151                 }
2152 #ifdef BB_FEATURE_VI_READONLY
2153           vc3:;
2154 #endif                                                  /* BB_FEATURE_VI_READONLY */
2155 #ifdef BB_FEATURE_VI_YANKMARK
2156         } else if (strncasecmp((char *) cmd, "yank", i) == 0) { // yank lines
2157                 if (b < 0) {    // no addr given- use defaults
2158                         q = begin_line(dot);    // assume .,. for the range
2159                         r = end_line(dot);
2160                 }
2161                 text_yank(q, r, YDreg);
2162                 li = count_lines(q, r);
2163                 psb("Yank %d lines (%d chars) into [%c]",
2164                         li, strlen((char *) reg[YDreg]), what_reg());
2165 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
2166         } else {
2167                 // cmd unknown
2168                 ni((Byte *) cmd);
2169         }
2170   vc1:
2171         dot = bound_dot(dot);   // make sure "dot" is valid
2172         return;
2173 #ifdef BB_FEATURE_VI_SEARCH
2174 colon_s_fail:
2175         psb(":s expression missing delimiters");
2176         return;
2177 #endif
2178
2179 }
2180
2181 static void Hit_Return(void)
2182 {
2183         char c;
2184
2185         standout_start();       // start reverse video
2186         write(1, "[Hit return to continue]", 24);
2187         standout_end();         // end reverse video
2188         while ((c = get_one_char()) != '\n' && c != '\r')       /*do nothing */
2189                 ;
2190         redraw(TRUE);           // force redraw all
2191 }
2192 #endif                                                  /* BB_FEATURE_VI_COLON */
2193
2194 //----- Synchronize the cursor to Dot --------------------------
2195 static void sync_cursor(Byte * d, int *row, int *col)
2196 {
2197         Byte *beg_cur, *end_cur;        // begin and end of "d" line
2198         Byte *beg_scr, *end_scr;        // begin and end of screen
2199         Byte *tp;
2200         int cnt, ro, co;
2201
2202         beg_cur = begin_line(d);        // first char of cur line
2203         end_cur = end_line(d);  // last char of cur line
2204
2205         beg_scr = end_scr = screenbegin;        // first char of screen
2206         end_scr = end_screen(); // last char of screen
2207
2208         if (beg_cur < screenbegin) {
2209                 // "d" is before  top line on screen
2210                 // how many lines do we have to move
2211                 cnt = count_lines(beg_cur, screenbegin);
2212           sc1:
2213                 screenbegin = beg_cur;
2214                 if (cnt > (rows - 1) / 2) {
2215                         // we moved too many lines. put "dot" in middle of screen
2216                         for (cnt = 0; cnt < (rows - 1) / 2; cnt++) {
2217                                 screenbegin = prev_line(screenbegin);
2218                         }
2219                 }
2220         } else if (beg_cur > end_scr) {
2221                 // "d" is after bottom line on screen
2222                 // how many lines do we have to move
2223                 cnt = count_lines(end_scr, beg_cur);
2224                 if (cnt > (rows - 1) / 2)
2225                         goto sc1;       // too many lines
2226                 for (ro = 0; ro < cnt - 1; ro++) {
2227                         // move screen begin the same amount
2228                         screenbegin = next_line(screenbegin);
2229                         // now, move the end of screen
2230                         end_scr = next_line(end_scr);
2231                         end_scr = end_line(end_scr);
2232                 }
2233         }
2234         // "d" is on screen- find out which row
2235         tp = screenbegin;
2236         for (ro = 0; ro < rows - 1; ro++) {     // drive "ro" to correct row
2237                 if (tp == beg_cur)
2238                         break;
2239                 tp = next_line(tp);
2240         }
2241
2242         // find out what col "d" is on
2243         co = 0;
2244         do {                            // drive "co" to correct column
2245                 if (*tp == '\n' || *tp == '\0')
2246                         break;
2247                 if (*tp == '\t') {
2248                         //         7       - (co %    8  )
2249                         co += ((tabstop - 1) - (co % tabstop));
2250                 } else if (*tp < ' ') {
2251                         co++;           // display as ^X, use 2 columns
2252                 }
2253         } while (tp++ < d && ++co);
2254
2255         // "co" is the column where "dot" is.
2256         // The screen has "columns" columns.
2257         // The currently displayed columns are  0+offset -- columns+ofset
2258         // |-------------------------------------------------------------|
2259         //               ^ ^                                ^
2260         //        offset | |------- columns ----------------|
2261         //
2262         // If "co" is already in this range then we do not have to adjust offset
2263         //      but, we do have to subtract the "offset" bias from "co".
2264         // If "co" is outside this range then we have to change "offset".
2265         // If the first char of a line is a tab the cursor will try to stay
2266         //  in column 7, but we have to set offset to 0.
2267
2268         if (co < 0 + offset) {
2269                 offset = co;
2270         }
2271         if (co >= columns + offset) {
2272                 offset = co - columns + 1;
2273         }
2274         // if the first char of the line is a tab, and "dot" is sitting on it
2275         //  force offset to 0.
2276         if (d == beg_cur && *d == '\t') {
2277                 offset = 0;
2278         }
2279         co -= offset;
2280
2281         *row = ro;
2282         *col = co;
2283 }
2284
2285 //----- Text Movement Routines ---------------------------------
2286 static Byte *begin_line(Byte * p) // return pointer to first char cur line
2287 {
2288         while (p > text && p[-1] != '\n')
2289                 p--;                    // go to cur line B-o-l
2290         return (p);
2291 }
2292
2293 static Byte *end_line(Byte * p) // return pointer to NL of cur line line
2294 {
2295         while (p < end - 1 && *p != '\n')
2296                 p++;                    // go to cur line E-o-l
2297         return (p);
2298 }
2299
2300 static Byte *dollar_line(Byte * p) // return pointer to just before NL line
2301 {
2302         while (p < end - 1 && *p != '\n')
2303                 p++;                    // go to cur line E-o-l
2304         // Try to stay off of the Newline
2305         if (*p == '\n' && (p - begin_line(p)) > 0)
2306                 p--;
2307         return (p);
2308 }
2309
2310 static Byte *prev_line(Byte * p) // return pointer first char prev line
2311 {
2312         p = begin_line(p);      // goto begining of cur line
2313         if (p[-1] == '\n' && p > text)
2314                 p--;                    // step to prev line
2315         p = begin_line(p);      // goto begining of prev line
2316         return (p);
2317 }
2318
2319 static Byte *next_line(Byte * p) // return pointer first char next line
2320 {
2321         p = end_line(p);
2322         if (*p == '\n' && p < end - 1)
2323                 p++;                    // step to next line
2324         return (p);
2325 }
2326
2327 //----- Text Information Routines ------------------------------
2328 static Byte *end_screen(void)
2329 {
2330         Byte *q;
2331         int cnt;
2332
2333         // find new bottom line
2334         q = screenbegin;
2335         for (cnt = 0; cnt < rows - 2; cnt++)
2336                 q = next_line(q);
2337         q = end_line(q);
2338         return (q);
2339 }
2340
2341 static int count_lines(Byte * start, Byte * stop) // count line from start to stop
2342 {
2343         Byte *q;
2344         int cnt;
2345
2346         if (stop < start) {     // start and stop are backwards- reverse them
2347                 q = start;
2348                 start = stop;
2349                 stop = q;
2350         }
2351         cnt = 0;
2352         stop = end_line(stop);  // get to end of this line
2353         for (q = start; q <= stop && q <= end - 1; q++) {
2354                 if (*q == '\n')
2355                         cnt++;
2356         }
2357         return (cnt);
2358 }
2359
2360 static Byte *find_line(int li)  // find begining of line #li
2361 {
2362         Byte *q;
2363
2364         for (q = text; li > 1; li--) {
2365                 q = next_line(q);
2366         }
2367         return (q);
2368 }
2369
2370 //----- Dot Movement Routines ----------------------------------
2371 static void dot_left(void)
2372 {
2373         if (dot > text && dot[-1] != '\n')
2374                 dot--;
2375 }
2376
2377 static void dot_right(void)
2378 {
2379         if (dot < end - 1 && *dot != '\n')
2380                 dot++;
2381 }
2382
2383 static void dot_begin(void)
2384 {
2385         dot = begin_line(dot);  // return pointer to first char cur line
2386 }
2387
2388 static void dot_end(void)
2389 {
2390         dot = end_line(dot);    // return pointer to last char cur line
2391 }
2392
2393 static Byte *move_to_col(Byte * p, int l)
2394 {
2395         int co;
2396
2397         p = begin_line(p);
2398         co = 0;
2399         do {
2400                 if (*p == '\n' || *p == '\0')
2401                         break;
2402                 if (*p == '\t') {
2403                         //         7       - (co %    8  )
2404                         co += ((tabstop - 1) - (co % tabstop));
2405                 } else if (*p < ' ') {
2406                         co++;           // display as ^X, use 2 columns
2407                 }
2408         } while (++co <= l && p++ < end);
2409         return (p);
2410 }
2411
2412 static void dot_next(void)
2413 {
2414         dot = next_line(dot);
2415 }
2416
2417 static void dot_prev(void)
2418 {
2419         dot = prev_line(dot);
2420 }
2421
2422 static void dot_scroll(int cnt, int dir)
2423 {
2424         Byte *q;
2425
2426         for (; cnt > 0; cnt--) {
2427                 if (dir < 0) {
2428                         // scroll Backwards
2429                         // ctrl-Y  scroll up one line
2430                         screenbegin = prev_line(screenbegin);
2431                 } else {
2432                         // scroll Forwards
2433                         // ctrl-E  scroll down one line
2434                         screenbegin = next_line(screenbegin);
2435                 }
2436         }
2437         // make sure "dot" stays on the screen so we dont scroll off
2438         if (dot < screenbegin)
2439                 dot = screenbegin;
2440         q = end_screen();       // find new bottom line
2441         if (dot > q)
2442                 dot = begin_line(q);    // is dot is below bottom line?
2443         dot_skip_over_ws();
2444 }
2445
2446 static void dot_skip_over_ws(void)
2447 {
2448         // skip WS
2449         while (isspace(*dot) && *dot != '\n' && dot < end - 1)
2450                 dot++;
2451 }
2452
2453 static void dot_delete(void)    // delete the char at 'dot'
2454 {
2455         (void) text_hole_delete(dot, dot);
2456 }
2457
2458 static Byte *bound_dot(Byte * p) // make sure  text[0] <= P < "end"
2459 {
2460         if (p >= end && end > text) {
2461                 p = end - 1;
2462                 indicate_error('1');
2463         }
2464         if (p < text) {
2465                 p = text;
2466                 indicate_error('2');
2467         }
2468         return (p);
2469 }
2470
2471 //----- Helper Utility Routines --------------------------------
2472
2473 //----------------------------------------------------------------
2474 //----- Char Routines --------------------------------------------
2475 /* Chars that are part of a word-
2476  *    0123456789_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
2477  * Chars that are Not part of a word (stoppers)
2478  *    !"#$%&'()*+,-./:;<=>?@[\]^`{|}~
2479  * Chars that are WhiteSpace
2480  *    TAB NEWLINE VT FF RETURN SPACE
2481  * DO NOT COUNT NEWLINE AS WHITESPACE
2482  */
2483
2484 static Byte *new_screen(int ro, int co)
2485 {
2486         int li;
2487
2488         if (screen != 0)
2489                 free(screen);
2490         screensize = ro * co + 8;
2491         screen = (Byte *) malloc(screensize);
2492         // initialize the new screen. assume this will be a empty file.
2493         screen_erase();
2494         //   non-existant text[] lines start with a tilde (~).
2495         for (li = 1; li < ro - 1; li++) {
2496                 screen[(li * co) + 0] = '~';
2497         }
2498         return (screen);
2499 }
2500
2501 static Byte *new_text(int size)
2502 {
2503         if (size < 10240)
2504                 size = 10240;   // have a minimum size for new files
2505         if (text != 0) {
2506                 //text -= 4;
2507                 free(text);
2508         }
2509         text = (Byte *) malloc(size + 8);
2510         memset(text, '\0', size);       // clear new text[]
2511         //text += 4;            // leave some room for "oops"
2512         textend = text + size - 1;
2513         //textend -= 4;         // leave some root for "oops"
2514         return (text);
2515 }
2516
2517 #ifdef BB_FEATURE_VI_SEARCH
2518 static int mycmp(Byte * s1, Byte * s2, int len)
2519 {
2520         int i;
2521
2522         i = strncmp((char *) s1, (char *) s2, len);
2523 #ifdef BB_FEATURE_VI_SETOPTS
2524         if (ignorecase) {
2525                 i = strncasecmp((char *) s1, (char *) s2, len);
2526         }
2527 #endif                                                  /* BB_FEATURE_VI_SETOPTS */
2528         return (i);
2529 }
2530
2531 static Byte *char_search(Byte * p, Byte * pat, int dir, int range)      // search for pattern starting at p
2532 {
2533 #ifndef REGEX_SEARCH
2534         Byte *start, *stop;
2535         int len;
2536
2537         len = strlen((char *) pat);
2538         if (dir == FORWARD) {
2539                 stop = end - 1; // assume range is p - end-1
2540                 if (range == LIMITED)
2541                         stop = next_line(p);    // range is to next line
2542                 for (start = p; start < stop; start++) {
2543                         if (mycmp(start, pat, len) == 0) {
2544                                 return (start);
2545                         }
2546                 }
2547         } else if (dir == BACK) {
2548                 stop = text;    // assume range is text - p
2549                 if (range == LIMITED)
2550                         stop = prev_line(p);    // range is to prev line
2551                 for (start = p - len; start >= stop; start--) {
2552                         if (mycmp(start, pat, len) == 0) {
2553                                 return (start);
2554                         }
2555                 }
2556         }
2557         // pattern not found
2558         return (NULL);
2559 #else                                                   /*REGEX_SEARCH */
2560         char *q;
2561         struct re_pattern_buffer preg;
2562         int i;
2563         int size, range;
2564
2565         re_syntax_options = RE_SYNTAX_POSIX_EXTENDED;
2566         preg.translate = 0;
2567         preg.fastmap = 0;
2568         preg.buffer = 0;
2569         preg.allocated = 0;
2570
2571         // assume a LIMITED forward search
2572         q = next_line(p);
2573         q = end_line(q);
2574         q = end - 1;
2575         if (dir == BACK) {
2576                 q = prev_line(p);
2577                 q = text;
2578         }
2579         // count the number of chars to search over, forward or backward
2580         size = q - p;
2581         if (size < 0)
2582                 size = p - q;
2583         // RANGE could be negative if we are searching backwards
2584         range = q - p;
2585
2586         q = (char *) re_compile_pattern(pat, strlen((char *) pat), &preg);
2587         if (q != 0) {
2588                 // The pattern was not compiled
2589                 psbs("bad search pattern: \"%s\": %s", pat, q);
2590                 i = 0;                  // return p if pattern not compiled
2591                 goto cs1;
2592         }
2593
2594         q = p;
2595         if (range < 0) {
2596                 q = p - size;
2597                 if (q < text)
2598                         q = text;
2599         }
2600         // search for the compiled pattern, preg, in p[]
2601         // range < 0-  search backward
2602         // range > 0-  search forward
2603         // 0 < start < size
2604         // re_search() < 0  not found or error
2605         // re_search() > 0  index of found pattern
2606         //            struct pattern    char     int    int    int     struct reg
2607         // re_search (*pattern_buffer,  *string, size,  start, range,  *regs)
2608         i = re_search(&preg, q, size, 0, range, 0);
2609         if (i == -1) {
2610                 p = 0;
2611                 i = 0;                  // return NULL if pattern not found
2612         }
2613   cs1:
2614         if (dir == FORWARD) {
2615                 p = p + i;
2616         } else {
2617                 p = p - i;
2618         }
2619         return (p);
2620 #endif                                                  /*REGEX_SEARCH */
2621 }
2622 #endif                                                  /* BB_FEATURE_VI_SEARCH */
2623
2624 static Byte *char_insert(Byte * p, Byte c) // insert the char c at 'p'
2625 {
2626         if (c == 22) {          // Is this an ctrl-V?
2627                 p = stupid_insert(p, '^');      // use ^ to indicate literal next
2628                 p--;                    // backup onto ^
2629                 refresh(FALSE); // show the ^
2630                 c = get_one_char();
2631                 *p = c;
2632                 p++;
2633                 file_modified = TRUE;   // has the file been modified
2634         } else if (c == 27) {   // Is this an ESC?
2635                 cmd_mode = 0;
2636                 cmdcnt = 0;
2637                 end_cmd_q();    // stop adding to q
2638                 strcpy((char *) status_buffer, " ");    // clear the status buffer
2639                 if (p[-1] != '\n') {
2640                         p--;
2641                 }
2642         } else if (c == erase_char) {   // Is this a BS
2643                 //     123456789
2644                 if (p[-1] != '\n') {
2645                         p--;
2646                         p = text_hole_delete(p, p);     // shrink buffer 1 char
2647 #ifdef BB_FEATURE_VI_DOT_CMD
2648                         // also rmove char from last_modifying_cmd
2649                         if (strlen((char *) last_modifying_cmd) > 0) {
2650                                 Byte *q;
2651
2652                                 q = last_modifying_cmd;
2653                                 q[strlen((char *) q) - 1] = '\0';       // erase BS
2654                                 q[strlen((char *) q) - 1] = '\0';       // erase prev char
2655                         }
2656 #endif                                                  /* BB_FEATURE_VI_DOT_CMD */
2657                 }
2658         } else {
2659                 // insert a char into text[]
2660                 Byte *sp;               // "save p"
2661
2662                 if (c == 13)
2663                         c = '\n';       // translate \r to \n
2664                 sp = p;                 // remember addr of insert
2665                 p = stupid_insert(p, c);        // insert the char
2666 #ifdef BB_FEATURE_VI_SETOPTS
2667                 if (showmatch && strchr(")]}", *sp) != NULL) {
2668                         showmatching(sp);
2669                 }
2670                 if (autoindent && c == '\n') {  // auto indent the new line
2671                         Byte *q;
2672
2673                         q = prev_line(p);       // use prev line as templet
2674                         for (; isblnk(*q); q++) {
2675                                 p = stupid_insert(p, *q);       // insert the char
2676                         }
2677                 }
2678 #endif                                                  /* BB_FEATURE_VI_SETOPTS */
2679         }
2680         return (p);
2681 }
2682
2683 static Byte *stupid_insert(Byte * p, Byte c) // stupidly insert the char c at 'p'
2684 {
2685         p = text_hole_make(p, 1);
2686         if (p != 0) {
2687                 *p = c;
2688                 file_modified = TRUE;   // has the file been modified
2689                 p++;
2690         }
2691         return (p);
2692 }
2693
2694 static Byte find_range(Byte ** start, Byte ** stop, Byte c)
2695 {
2696         Byte *save_dot, *p, *q;
2697         int cnt;
2698
2699         save_dot = dot;
2700         p = q = dot;
2701
2702         if (strchr("cdy><", c)) {
2703                 // these cmds operate on whole lines
2704                 p = q = begin_line(p);
2705                 for (cnt = 1; cnt < cmdcnt; cnt++) {
2706                         q = next_line(q);
2707                 }
2708                 q = end_line(q);
2709         } else if (strchr("^%$0bBeEft", c)) {
2710                 // These cmds operate on char positions
2711                 do_cmd(c);              // execute movement cmd
2712                 q = dot;
2713         } else if (strchr("wW", c)) {
2714                 do_cmd(c);              // execute movement cmd
2715                 if (dot > text)
2716                         dot--;          // move back off of next word
2717                 if (dot > text && *dot == '\n')
2718                         dot--;          // stay off NL
2719                 q = dot;
2720         } else if (strchr("H-k{", c)) {
2721                 // these operate on multi-lines backwards
2722                 q = end_line(dot);      // find NL
2723                 do_cmd(c);              // execute movement cmd
2724                 dot_begin();
2725                 p = dot;
2726         } else if (strchr("L+j}\r\n", c)) {
2727                 // these operate on multi-lines forwards
2728                 p = begin_line(dot);
2729                 do_cmd(c);              // execute movement cmd
2730                 dot_end();              // find NL
2731                 q = dot;
2732         } else {
2733                 c = 27;                 // error- return an ESC char
2734                 //break;
2735         }
2736         *start = p;
2737         *stop = q;
2738         if (q < p) {
2739                 *start = q;
2740                 *stop = p;
2741         }
2742         dot = save_dot;
2743         return (c);
2744 }
2745
2746 static int st_test(Byte * p, int type, int dir, Byte * tested)
2747 {
2748         Byte c, c0, ci;
2749         int test, inc;
2750
2751         inc = dir;
2752         c = c0 = p[0];
2753         ci = p[inc];
2754         test = 0;
2755
2756         if (type == S_BEFORE_WS) {
2757                 c = ci;
2758                 test = ((!isspace(c)) || c == '\n');
2759         }
2760         if (type == S_TO_WS) {
2761                 c = c0;
2762                 test = ((!isspace(c)) || c == '\n');
2763         }
2764         if (type == S_OVER_WS) {
2765                 c = c0;
2766                 test = ((isspace(c)));
2767         }
2768         if (type == S_END_PUNCT) {
2769                 c = ci;
2770                 test = ((ispunct(c)));
2771         }
2772         if (type == S_END_ALNUM) {
2773                 c = ci;
2774                 test = ((isalnum(c)) || c == '_');
2775         }
2776         *tested = c;
2777         return (test);
2778 }
2779
2780 static Byte *skip_thing(Byte * p, int linecnt, int dir, int type)
2781 {
2782         Byte c;
2783
2784         while (st_test(p, type, dir, &c)) {
2785                 // make sure we limit search to correct number of lines
2786                 if (c == '\n' && --linecnt < 1)
2787                         break;
2788                 if (dir >= 0 && p >= end - 1)
2789                         break;
2790                 if (dir < 0 && p <= text)
2791                         break;
2792                 p += dir;               // move to next char
2793         }
2794         return (p);
2795 }
2796
2797 // find matching char of pair  ()  []  {}
2798 static Byte *find_pair(Byte * p, Byte c)
2799 {
2800         Byte match, *q;
2801         int dir, level;
2802
2803         match = ')';
2804         level = 1;
2805         dir = 1;                        // assume forward
2806         switch (c) {
2807         case '(':
2808                 match = ')';
2809                 break;
2810         case '[':
2811                 match = ']';
2812                 break;
2813         case '{':
2814                 match = '}';
2815                 break;
2816         case ')':
2817                 match = '(';
2818                 dir = -1;
2819                 break;
2820         case ']':
2821                 match = '[';
2822                 dir = -1;
2823                 break;
2824         case '}':
2825                 match = '{';
2826                 dir = -1;
2827                 break;
2828         }
2829         for (q = p + dir; text <= q && q < end; q += dir) {
2830                 // look for match, count levels of pairs  (( ))
2831                 if (*q == c)
2832                         level++;        // increase pair levels
2833                 if (*q == match)
2834                         level--;        // reduce pair level
2835                 if (level == 0)
2836                         break;          // found matching pair
2837         }
2838         if (level != 0)
2839                 q = NULL;               // indicate no match
2840         return (q);
2841 }
2842
2843 #ifdef BB_FEATURE_VI_SETOPTS
2844 // show the matching char of a pair,  ()  []  {}
2845 static void showmatching(Byte * p)
2846 {
2847         Byte *q, *save_dot;
2848
2849         // we found half of a pair
2850         q = find_pair(p, *p);   // get loc of matching char
2851         if (q == NULL) {
2852                 indicate_error('3');    // no matching char
2853         } else {
2854                 // "q" now points to matching pair
2855                 save_dot = dot; // remember where we are
2856                 dot = q;                // go to new loc
2857                 refresh(FALSE); // let the user see it
2858                 (void) mysleep(40);     // give user some time
2859                 dot = save_dot; // go back to old loc
2860                 refresh(FALSE);
2861         }
2862 }
2863 #endif                                                  /* BB_FEATURE_VI_SETOPTS */
2864
2865 //  open a hole in text[]
2866 static Byte *text_hole_make(Byte * p, int size) // at "p", make a 'size' byte hole
2867 {
2868         Byte *src, *dest;
2869         int cnt;
2870
2871         if (size <= 0)
2872                 goto thm0;
2873         src = p;
2874         dest = p + size;
2875         cnt = end - src;        // the rest of buffer
2876         if (memmove(dest, src, cnt) != dest) {
2877                 psbs("can't create room for new characters");
2878         }
2879         memset(p, ' ', size);   // clear new hole
2880         end = end + size;       // adjust the new END
2881         file_modified = TRUE;   // has the file been modified
2882   thm0:
2883         return (p);
2884 }
2885
2886 //  close a hole in text[]
2887 static Byte *text_hole_delete(Byte * p, Byte * q) // delete "p" thru "q", inclusive
2888 {
2889         Byte *src, *dest;
2890         int cnt, hole_size;
2891
2892         // move forwards, from beginning
2893         // assume p <= q
2894         src = q + 1;
2895         dest = p;
2896         if (q < p) {            // they are backward- swap them
2897                 src = p + 1;
2898                 dest = q;
2899         }
2900         hole_size = q - p + 1;
2901         cnt = end - src;
2902         if (src < text || src > end)
2903                 goto thd0;
2904         if (dest < text || dest >= end)
2905                 goto thd0;
2906         if (src >= end)
2907                 goto thd_atend; // just delete the end of the buffer
2908         if (memmove(dest, src, cnt) != dest) {
2909                 psbs("can't delete the character");
2910         }
2911   thd_atend:
2912         end = end - hole_size;  // adjust the new END
2913         if (dest >= end)
2914                 dest = end - 1; // make sure dest in below end-1
2915         if (end <= text)
2916                 dest = end = text;      // keep pointers valid
2917         file_modified = TRUE;   // has the file been modified
2918   thd0:
2919         return (dest);
2920 }
2921
2922 // copy text into register, then delete text.
2923 // if dist <= 0, do not include, or go past, a NewLine
2924 //
2925 static Byte *yank_delete(Byte * start, Byte * stop, int dist, int yf)
2926 {
2927         Byte *p;
2928
2929         // make sure start <= stop
2930         if (start > stop) {
2931                 // they are backwards, reverse them
2932                 p = start;
2933                 start = stop;
2934                 stop = p;
2935         }
2936         if (dist <= 0) {
2937                 // we can not cross NL boundaries
2938                 p = start;
2939                 if (*p == '\n')
2940                         return (p);
2941                 // dont go past a NewLine
2942                 for (; p + 1 <= stop; p++) {
2943                         if (p[1] == '\n') {
2944                                 stop = p;       // "stop" just before NewLine
2945                                 break;
2946                         }
2947                 }
2948         }
2949         p = start;
2950 #ifdef BB_FEATURE_VI_YANKMARK
2951         text_yank(start, stop, YDreg);
2952 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
2953         if (yf == YANKDEL) {
2954                 p = text_hole_delete(start, stop);
2955         }                                       // delete lines
2956         return (p);
2957 }
2958
2959 static void show_help(void)
2960 {
2961         puts("These features are available:"
2962 #ifdef BB_FEATURE_VI_SEARCH
2963         "\n\tPattern searches with / and ?"
2964 #endif                                                  /* BB_FEATURE_VI_SEARCH */
2965 #ifdef BB_FEATURE_VI_DOT_CMD
2966         "\n\tLast command repeat with \'.\'"
2967 #endif                                                  /* BB_FEATURE_VI_DOT_CMD */
2968 #ifdef BB_FEATURE_VI_YANKMARK
2969         "\n\tLine marking with  'x"
2970         "\n\tNamed buffers with  \"x"
2971 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
2972 #ifdef BB_FEATURE_VI_READONLY
2973         "\n\tReadonly if vi is called as \"view\""
2974         "\n\tReadonly with -R command line arg"
2975 #endif                                                  /* BB_FEATURE_VI_READONLY */
2976 #ifdef BB_FEATURE_VI_SET
2977         "\n\tSome colon mode commands with \':\'"
2978 #endif                                                  /* BB_FEATURE_VI_SET */
2979 #ifdef BB_FEATURE_VI_SETOPTS
2980         "\n\tSettable options with \":set\""
2981 #endif                                                  /* BB_FEATURE_VI_SETOPTS */
2982 #ifdef BB_FEATURE_VI_USE_SIGNALS
2983         "\n\tSignal catching- ^C"
2984         "\n\tJob suspend and resume with ^Z"
2985 #endif                                                  /* BB_FEATURE_VI_USE_SIGNALS */
2986 #ifdef BB_FEATURE_VI_WIN_RESIZE
2987         "\n\tAdapt to window re-sizes"
2988 #endif                                                  /* BB_FEATURE_VI_WIN_RESIZE */
2989         );
2990 }
2991
2992 static void print_literal(Byte * buf, Byte * s) // copy s to buf, convert unprintable
2993 {
2994         Byte c, b[2];
2995
2996         b[1] = '\0';
2997         strcpy((char *) buf, "");       // init buf
2998         if (strlen((char *) s) <= 0)
2999                 s = (Byte *) "(NULL)";
3000         for (; *s > '\0'; s++) {
3001                 c = *s;
3002                 if (*s > '~') {
3003                         strcat((char *) buf, SOs);
3004                         c = *s - 128;
3005                 }
3006                 if (*s < ' ') {
3007                         strcat((char *) buf, "^");
3008                         c += '@';
3009                 }
3010                 b[0] = c;
3011                 strcat((char *) buf, (char *) b);
3012                 if (*s > '~')
3013                         strcat((char *) buf, SOn);
3014                 if (*s == '\n') {
3015                         strcat((char *) buf, "$");
3016                 }
3017         }
3018 }
3019
3020 #ifdef BB_FEATURE_VI_DOT_CMD
3021 static void start_new_cmd_q(Byte c)
3022 {
3023         // release old cmd
3024         if (last_modifying_cmd != 0)
3025                 free(last_modifying_cmd);
3026         // get buffer for new cmd
3027         last_modifying_cmd = (Byte *) malloc(BUFSIZ);
3028         memset(last_modifying_cmd, '\0', BUFSIZ);       // clear new cmd queue
3029         // if there is a current cmd count put it in the buffer first
3030         if (cmdcnt > 0)
3031                 sprintf((char *) last_modifying_cmd, "%d", cmdcnt);
3032         // save char c onto queue
3033         last_modifying_cmd[strlen((char *) last_modifying_cmd)] = c;
3034         adding2q = 1;
3035         return;
3036 }
3037
3038 static void end_cmd_q()
3039 {
3040 #ifdef BB_FEATURE_VI_YANKMARK
3041         YDreg = 26;                     // go back to default Yank/Delete reg
3042 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
3043         adding2q = 0;
3044         return;
3045 }
3046 #endif                                                  /* BB_FEATURE_VI_DOT_CMD */
3047
3048 #if defined(BB_FEATURE_VI_YANKMARK) || defined(BB_FEATURE_VI_COLON) || defined(BB_FEATURE_VI_CRASHME)
3049 static Byte *string_insert(Byte * p, Byte * s) // insert the string at 'p'
3050 {
3051         int cnt, i;
3052
3053         i = strlen((char *) s);
3054         p = text_hole_make(p, i);
3055         strncpy((char *) p, (char *) s, i);
3056         for (cnt = 0; *s != '\0'; s++) {
3057                 if (*s == '\n')
3058                         cnt++;
3059         }
3060 #ifdef BB_FEATURE_VI_YANKMARK
3061         psb("Put %d lines (%d chars) from [%c]", cnt, i, what_reg());
3062 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
3063         return (p);
3064 }
3065 #endif                                                  /* BB_FEATURE_VI_YANKMARK || BB_FEATURE_VI_COLON || BB_FEATURE_VI_CRASHME */
3066
3067 #ifdef BB_FEATURE_VI_YANKMARK
3068 static Byte *text_yank(Byte * p, Byte * q, int dest)    // copy text into a register
3069 {
3070         Byte *t;
3071         int cnt;
3072
3073         if (q < p) {            // they are backwards- reverse them
3074                 t = q;
3075                 q = p;
3076                 p = t;
3077         }
3078         cnt = q - p + 1;
3079         t = reg[dest];
3080         if (t != 0) {           // if already a yank register
3081                 free(t);                //   free it
3082         }
3083         t = (Byte *) malloc(cnt + 1);   // get a new register
3084         memset(t, '\0', cnt + 1);       // clear new text[]
3085         strncpy((char *) t, (char *) p, cnt);   // copy text[] into bufer
3086         reg[dest] = t;
3087         return (p);
3088 }
3089
3090 static Byte what_reg(void)
3091 {
3092         Byte c;
3093         int i;
3094
3095         i = 0;
3096         c = 'D';                        // default to D-reg
3097         if (0 <= YDreg && YDreg <= 25)
3098                 c = 'a' + (Byte) YDreg;
3099         if (YDreg == 26)
3100                 c = 'D';
3101         if (YDreg == 27)
3102                 c = 'U';
3103         return (c);
3104 }
3105
3106 static void check_context(Byte cmd)
3107 {
3108         // A context is defined to be "modifying text"
3109         // Any modifying command establishes a new context.
3110
3111         if (dot < context_start || dot > context_end) {
3112                 if (strchr((char *) modifying_cmds, cmd) != NULL) {
3113                         // we are trying to modify text[]- make this the current context
3114                         mark[27] = mark[26];    // move cur to prev
3115                         mark[26] = dot; // move local to cur
3116                         context_start = prev_line(prev_line(dot));
3117                         context_end = next_line(next_line(dot));
3118                         //loiter= start_loiter= now;
3119                 }
3120         }
3121         return;
3122 }
3123
3124 static Byte *swap_context(Byte * p) // goto new context for '' command make this the current context
3125 {
3126         Byte *tmp;
3127
3128         // the current context is in mark[26]
3129         // the previous context is in mark[27]
3130         // only swap context if other context is valid
3131         if (text <= mark[27] && mark[27] <= end - 1) {
3132                 tmp = mark[27];
3133                 mark[27] = mark[26];
3134                 mark[26] = tmp;
3135                 p = mark[26];   // where we are going- previous context
3136                 context_start = prev_line(prev_line(prev_line(p)));
3137                 context_end = next_line(next_line(next_line(p)));
3138         }
3139         return (p);
3140 }
3141 #endif                                                  /* BB_FEATURE_VI_YANKMARK */
3142
3143 static int isblnk(Byte c) // is the char a blank or tab
3144 {
3145         return (c == ' ' || c == '\t');
3146 }
3147
3148 //----- Set terminal attributes --------------------------------
3149 static void rawmode(void)
3150 {
3151         tcgetattr(0, &term_orig);
3152         term_vi = term_orig;
3153         term_vi.c_lflag &= (~ICANON & ~ECHO);   // leave ISIG ON- allow intr's
3154         term_vi.c_iflag &= (~IXON & ~ICRNL);
3155         term_vi.c_oflag &= (~ONLCR);
3156 #ifndef linux
3157         term_vi.c_cc[VMIN] = 1;
3158         term_vi.c_cc[VTIME] = 0;
3159 #endif
3160         erase_char = term_vi.c_cc[VERASE];
3161         tcsetattr(0, TCSANOW, &term_vi);
3162 }
3163
3164 static void cookmode(void)
3165 {
3166         tcsetattr(0, TCSANOW, &term_orig);
3167 }
3168
3169 #ifdef BB_FEATURE_VI_WIN_RESIZE
3170 //----- See what the window size currently is --------------------
3171 static void window_size_get(int sig)
3172 {
3173         int i;
3174
3175         i = ioctl(0, TIOCGWINSZ, &winsize);
3176         if (i != 0) {
3177                 // force 24x80
3178                 winsize.ws_row = 24;
3179                 winsize.ws_col = 80;
3180         }
3181         if (winsize.ws_row <= 1) {
3182                 winsize.ws_row = 24;
3183         }
3184         if (winsize.ws_col <= 1) {
3185                 winsize.ws_col = 80;
3186         }
3187         rows = (int) winsize.ws_row;
3188         columns = (int) winsize.ws_col;
3189 }
3190 #endif                                                  /* BB_FEATURE_VI_WIN_RESIZE */
3191
3192 //----- Come here when we get a window resize signal ---------
3193 #ifdef BB_FEATURE_VI_USE_SIGNALS
3194 static void winch_sig(int sig)
3195 {
3196         signal(SIGWINCH, winch_sig);
3197 #ifdef BB_FEATURE_VI_WIN_RESIZE
3198         window_size_get(0);
3199 #endif                                                  /* BB_FEATURE_VI_WIN_RESIZE */
3200         new_screen(rows, columns);      // get memory for virtual screen
3201         redraw(TRUE);           // re-draw the screen
3202 }
3203
3204 //----- Come here when we get a continue signal -------------------
3205 static void cont_sig(int sig)
3206 {
3207         rawmode();                      // terminal to "raw"
3208         *status_buffer = '\0';  // clear the status buffer
3209         redraw(TRUE);           // re-draw the screen
3210
3211         signal(SIGTSTP, suspend_sig);
3212         signal(SIGCONT, SIG_DFL);
3213         kill(getpid(), SIGCONT);
3214 }
3215
3216 //----- Come here when we get a Suspend signal -------------------
3217 static void suspend_sig(int sig)
3218 {
3219         place_cursor(rows - 1, 0, FALSE);       // go to bottom of screen
3220         clear_to_eol();         // Erase to end of line
3221         cookmode();                     // terminal to "cooked"
3222
3223         signal(SIGCONT, cont_sig);
3224         signal(SIGTSTP, SIG_DFL);
3225         kill(getpid(), SIGTSTP);
3226 }
3227
3228 //----- Come here when we get a signal ---------------------------
3229 static void catch_sig(int sig)
3230 {
3231         signal(SIGHUP, catch_sig);
3232         signal(SIGINT, catch_sig);
3233         signal(SIGTERM, catch_sig);
3234         longjmp(restart, sig);
3235 }
3236
3237 static void alarm_sig(int sig)
3238 {
3239         signal(SIGALRM, catch_sig);
3240         longjmp(restart, sig);
3241 }
3242
3243 //----- Come here when we get a core dump signal -----------------
3244 static void core_sig(int sig)
3245 {
3246         signal(SIGQUIT, core_sig);
3247         signal(SIGILL, core_sig);
3248         signal(SIGTRAP, core_sig);
3249         signal(SIGIOT, core_sig);
3250         signal(SIGABRT, core_sig);
3251         signal(SIGFPE, core_sig);
3252         signal(SIGBUS, core_sig);
3253         signal(SIGSEGV, core_sig);
3254 #ifdef SIGSYS
3255         signal(SIGSYS, core_sig);
3256 #endif
3257
3258         dot = bound_dot(dot);   // make sure "dot" is valid
3259
3260         longjmp(restart, sig);
3261 }
3262 #endif                                                  /* BB_FEATURE_VI_USE_SIGNALS */
3263
3264 static int mysleep(int hund)    // sleep for 'h' 1/100 seconds
3265 {
3266         // Don't hang- Wait 5/100 seconds-  1 Sec= 1000000
3267         FD_ZERO(&rfds);
3268         FD_SET(0, &rfds);
3269         tv.tv_sec = 0;
3270         tv.tv_usec = hund * 10000;
3271         select(1, &rfds, NULL, NULL, &tv);
3272         return (FD_ISSET(0, &rfds));
3273 }
3274
3275 //----- IO Routines --------------------------------------------
3276 static Byte readit(void)        // read (maybe cursor) key from stdin
3277 {
3278         Byte c;
3279         int i, bufsiz, cnt, cmdindex;
3280         struct esc_cmds {
3281                 Byte *seq;
3282                 Byte val;
3283         };
3284
3285         static struct esc_cmds esccmds[] = {
3286                 {(Byte *) "\eOA", (Byte) VI_K_UP},       // cursor key Up
3287                 {(Byte *) "\eOB", (Byte) VI_K_DOWN},     // cursor key Down
3288                 {(Byte *) "\eOC", (Byte) VI_K_RIGHT},    // Cursor Key Right
3289                 {(Byte *) "\eOD", (Byte) VI_K_LEFT},     // cursor key Left
3290                 {(Byte *) "\eOH", (Byte) VI_K_HOME},     // Cursor Key Home
3291                 {(Byte *) "\eOF", (Byte) VI_K_END},      // Cursor Key End
3292                 {(Byte *) "\e[A", (Byte) VI_K_UP},       // cursor key Up
3293                 {(Byte *) "\e[B", (Byte) VI_K_DOWN},     // cursor key Down
3294                 {(Byte *) "\e[C", (Byte) VI_K_RIGHT},    // Cursor Key Right
3295                 {(Byte *) "\e[D", (Byte) VI_K_LEFT},     // cursor key Left
3296                 {(Byte *) "\e[H", (Byte) VI_K_HOME},     // Cursor Key Home
3297                 {(Byte *) "\e[F", (Byte) VI_K_END},      // Cursor Key End
3298                 {(Byte *) "\e[2~", (Byte) VI_K_INSERT},  // Cursor Key Insert
3299                 {(Byte *) "\e[5~", (Byte) VI_K_PAGEUP},  // Cursor Key Page Up
3300                 {(Byte *) "\e[6~", (Byte) VI_K_PAGEDOWN},        // Cursor Key Page Down
3301                 {(Byte *) "\eOP", (Byte) VI_K_FUN1},     // Function Key F1
3302                 {(Byte *) "\eOQ", (Byte) VI_K_FUN2},     // Function Key F2
3303                 {(Byte *) "\eOR", (Byte) VI_K_FUN3},     // Function Key F3
3304                 {(Byte *) "\eOS", (Byte) VI_K_FUN4},     // Function Key F4
3305                 {(Byte *) "\e[15~", (Byte) VI_K_FUN5},   // Function Key F5
3306                 {(Byte *) "\e[17~", (Byte) VI_K_FUN6},   // Function Key F6
3307                 {(Byte *) "\e[18~", (Byte) VI_K_FUN7},   // Function Key F7
3308                 {(Byte *) "\e[19~", (Byte) VI_K_FUN8},   // Function Key F8
3309                 {(Byte *) "\e[20~", (Byte) VI_K_FUN9},   // Function Key F9
3310                 {(Byte *) "\e[21~", (Byte) VI_K_FUN10},  // Function Key F10
3311                 {(Byte *) "\e[23~", (Byte) VI_K_FUN11},  // Function Key F11
3312                 {(Byte *) "\e[24~", (Byte) VI_K_FUN12},  // Function Key F12
3313                 {(Byte *) "\e[11~", (Byte) VI_K_FUN1},   // Function Key F1
3314                 {(Byte *) "\e[12~", (Byte) VI_K_FUN2},   // Function Key F2
3315                 {(Byte *) "\e[13~", (Byte) VI_K_FUN3},   // Function Key F3
3316                 {(Byte *) "\e[14~", (Byte) VI_K_FUN4},   // Function Key F4
3317         };
3318
3319 #define ESCCMDS_COUNT (sizeof(esccmds)/sizeof(struct esc_cmds))
3320
3321         (void) alarm(0);        // turn alarm OFF while we wait for input
3322         // get input from User- are there already input chars in Q?
3323         bufsiz = strlen((char *) readbuffer);
3324         if (bufsiz <= 0) {
3325           ri0:
3326                 // the Q is empty, wait for a typed char
3327                 bufsiz = read(0, readbuffer, BUFSIZ - 1);
3328                 if (bufsiz < 0) {
3329                         if (errno == EINTR)
3330                                 goto ri0;       // interrupted sys call
3331                         if (errno == EBADF)
3332                                 editing = 0;
3333                         if (errno == EFAULT)
3334                                 editing = 0;
3335                         if (errno == EINVAL)
3336                                 editing = 0;
3337                         if (errno == EIO)
3338                                 editing = 0;
3339                         errno = 0;
3340                         bufsiz = 0;
3341                 }
3342                 readbuffer[bufsiz] = '\0';
3343         }
3344         // return char if it is not part of ESC sequence
3345         if (readbuffer[0] != 27)
3346                 goto ri1;
3347
3348         // This is an ESC char. Is this Esc sequence?
3349         // Could be bare Esc key. See if there are any
3350         // more chars to read after the ESC. This would
3351         // be a Function or Cursor Key sequence.
3352         FD_ZERO(&rfds);
3353         FD_SET(0, &rfds);
3354         tv.tv_sec = 0;
3355         tv.tv_usec = 50000;     // Wait 5/100 seconds- 1 Sec=1000000
3356
3357         // keep reading while there are input chars and room in buffer
3358         while (select(1, &rfds, NULL, NULL, &tv) > 0 && bufsiz <= (BUFSIZ - 5)) {
3359                 // read the rest of the ESC string
3360                 i = read(0, (void *) (readbuffer + bufsiz), BUFSIZ - bufsiz);
3361                 if (i > 0) {
3362                         bufsiz += i;
3363                         readbuffer[bufsiz] = '\0';      // Terminate the string
3364                 }
3365         }
3366         // Maybe cursor or function key?
3367         for (cmdindex = 0; cmdindex < ESCCMDS_COUNT; cmdindex++) {
3368                 cnt = strlen((char *) esccmds[cmdindex].seq);
3369                 i = strncmp((char *) esccmds[cmdindex].seq, (char *) readbuffer, cnt);
3370                 if (i == 0) {
3371                         // is a Cursor key- put derived value back into Q
3372                         readbuffer[0] = esccmds[cmdindex].val;
3373                         // squeeze out the ESC sequence
3374                         for (i = 1; i < cnt; i++) {
3375                                 memmove(readbuffer + 1, readbuffer + 2, BUFSIZ - 2);
3376                                 readbuffer[BUFSIZ - 1] = '\0';
3377                         }
3378                         break;
3379                 }
3380         }
3381   ri1:
3382         c = readbuffer[0];
3383         // remove one char from Q
3384         memmove(readbuffer, readbuffer + 1, BUFSIZ - 1);
3385         readbuffer[BUFSIZ - 1] = '\0';
3386         (void) alarm(3);        // we are done waiting for input, turn alarm ON
3387         return (c);
3388 }
3389
3390 //----- IO Routines --------------------------------------------
3391 static Byte get_one_char()
3392 {
3393         static Byte c;
3394
3395 #ifdef BB_FEATURE_VI_DOT_CMD
3396         // ! adding2q  && ioq == 0  read()
3397         // ! adding2q  && ioq != 0  *ioq
3398         // adding2q         *last_modifying_cmd= read()
3399         if (!adding2q) {
3400                 // we are not adding to the q.
3401                 // but, we may be reading from a q
3402                 if (ioq == 0) {
3403                         // there is no current q, read from STDIN
3404                         c = readit();   // get the users input
3405                 } else {
3406                         // there is a queue to get chars from first
3407                         c = *ioq++;
3408                         if (c == '\0') {
3409                                 // the end of the q, read from STDIN
3410                                 free(ioq_start);
3411                                 ioq_start = ioq = 0;
3412                                 c = readit();   // get the users input
3413                         }
3414                 }
3415         } else {
3416                 // adding STDIN chars to q
3417                 c = readit();   // get the users input
3418                 if (last_modifying_cmd != 0) {
3419                         // add new char to q
3420                         last_modifying_cmd[strlen((char *) last_modifying_cmd)] = c;
3421                 }
3422         }
3423 #else                                                   /* BB_FEATURE_VI_DOT_CMD */
3424         c = readit();           // get the users input
3425 #endif                                                  /* BB_FEATURE_VI_DOT_CMD */
3426         return (c);                     // return the char, where ever it came from
3427 }
3428
3429 static Byte *get_input_line(Byte * prompt) // get input line- use "status line"
3430 {
3431         Byte buf[BUFSIZ];
3432         Byte c;
3433         int i;
3434         static Byte *obufp = NULL;
3435
3436         strcpy((char *) buf, (char *) prompt);
3437         *status_buffer = '\0';  // clear the status buffer
3438         place_cursor(rows - 1, 0, FALSE);       // go to Status line, bottom of screen
3439         clear_to_eol();         // clear the line
3440         write(1, prompt, strlen((char *) prompt));      // write out the :, /, or ? prompt
3441
3442         for (i = strlen((char *) buf); i < BUFSIZ;) {
3443                 c = get_one_char();     // read user input
3444                 if (c == '\n' || c == '\r' || c == 27)
3445                         break;          // is this end of input
3446                 if (c == erase_char) {  // user wants to erase prev char
3447                         i--;            // backup to prev char
3448                         buf[i] = '\0';  // erase the char
3449                         buf[i + 1] = '\0';      // null terminate buffer
3450                         write(1, "\b \b", 3);     // erase char on screen
3451                         if (i <= 0) {   // user backs up before b-o-l, exit
3452                                 break;
3453                         }
3454                 } else {
3455                         buf[i] = c;     // save char in buffer
3456                         buf[i + 1] = '\0';      // make sure buffer is null terminated
3457                         write(1, buf + i, 1);   // echo the char back to user
3458                         i++;
3459                 }
3460         }
3461         refresh(FALSE);
3462         if (obufp != NULL)
3463                 free(obufp);
3464         obufp = (Byte *) strdup((char *) buf);
3465         return (obufp);
3466 }
3467
3468 static int file_size(Byte * fn) // what is the byte size of "fn"
3469 {
3470         struct stat st_buf;
3471         int cnt, sr;
3472
3473         if (fn == 0 || strlen(fn) <= 0)
3474                 return (-1);
3475         cnt = -1;
3476         sr = stat((char *) fn, &st_buf);        // see if file exists
3477         if (sr >= 0) {
3478                 cnt = (int) st_buf.st_size;
3479         }
3480         return (cnt);
3481 }
3482
3483 static int file_insert(Byte * fn, Byte * p, int size)
3484 {
3485         int fd, cnt;
3486
3487         cnt = -1;
3488 #ifdef BB_FEATURE_VI_READONLY
3489         readonly = FALSE;
3490 #endif                                                  /* BB_FEATURE_VI_READONLY */
3491         if (fn == 0 || strlen((char*) fn) <= 0) {
3492                 psbs("No filename given");
3493                 goto fi0;
3494         }
3495         if (size == 0) {
3496                 // OK- this is just a no-op
3497                 cnt = 0;
3498                 goto fi0;
3499         }
3500         if (size < 0) {
3501                 psbs("Trying to insert a negative number (%d) of characters", size);
3502                 goto fi0;
3503         }
3504         if (p < text || p > end) {
3505                 psbs("Trying to insert file outside of memory");
3506                 goto fi0;
3507         }
3508
3509         // see if we can open the file
3510 #ifdef BB_FEATURE_VI_READONLY
3511         if (vi_readonly == TRUE) goto fi1;              // do not try write-mode
3512 #endif
3513         fd = open((char *) fn, O_RDWR);                 // assume read & write
3514         if (fd < 0) {
3515                 // could not open for writing- maybe file is read only
3516 #ifdef BB_FEATURE_VI_READONLY
3517   fi1:
3518 #endif
3519                 fd = open((char *) fn, O_RDONLY);       // try read-only
3520                 if (fd < 0) {
3521                         psbs("\"%s\" %s", fn, "could not open file");
3522                         goto fi0;
3523                 }
3524 #ifdef BB_FEATURE_VI_READONLY
3525                 // got the file- read-only
3526                 readonly = TRUE;
3527 #endif                                                  /* BB_FEATURE_VI_READONLY */
3528         }
3529         p = text_hole_make(p, size);
3530         cnt = read(fd, p, size);
3531         close(fd);
3532         if (cnt < 0) {
3533                 cnt = -1;
3534                 p = text_hole_delete(p, p + size - 1);  // un-do buffer insert
3535                 psbs("could not read file \"%s\"", fn);
3536         } else if (cnt < size) {
3537                 // There was a partial read, shrink unused space text[]
3538                 p = text_hole_delete(p + cnt, p + (size - cnt) - 1);    // un-do buffer insert
3539                 psbs("could not read all of file \"%s\"", fn);
3540         }
3541         if (cnt >= size)
3542                 file_modified = TRUE;
3543   fi0:
3544         return (cnt);
3545 }
3546
3547 static int file_write(Byte * fn, Byte * first, Byte * last)
3548 {
3549         int fd, cnt, charcnt;
3550
3551         if (fn == 0) {
3552                 psbs("No current filename");
3553                 return (-1);
3554         }
3555         charcnt = 0;
3556         // FIXIT- use the correct umask()
3557         fd = open((char *) fn, (O_WRONLY | O_CREAT | O_TRUNC), 0664);
3558         if (fd < 0)
3559                 return (-1);
3560         cnt = last - first + 1;
3561         charcnt = write(fd, first, cnt);
3562         if (charcnt == cnt) {
3563                 // good write
3564                 //file_modified= FALSE; // the file has not been modified
3565         } else {
3566                 charcnt = 0;
3567         }
3568         close(fd);
3569         return (charcnt);
3570 }
3571
3572 //----- Terminal Drawing ---------------------------------------
3573 // The terminal is made up of 'rows' line of 'columns' columns.
3574 // classicly this would be 24 x 80.
3575 //  screen coordinates
3576 //  0,0     ...     0,79
3577 //  1,0     ...     1,79
3578 //  .       ...     .
3579 //  .       ...     .
3580 //  22,0    ...     22,79
3581 //  23,0    ...     23,79   status line
3582 //
3583
3584 //----- Move the cursor to row x col (count from 0, not 1) -------
3585 static void place_cursor(int row, int col, int opti)
3586 {
3587         char cm1[BUFSIZ];
3588         char *cm;
3589         int l;
3590 #ifdef BB_FEATURE_VI_OPTIMIZE_CURSOR
3591         char cm2[BUFSIZ];
3592         Byte *screenp;
3593         // char cm3[BUFSIZ];
3594         int Rrow= last_row;
3595 #endif                                                  /* BB_FEATURE_VI_OPTIMIZE_CURSOR */
3596         
3597         memset(cm1, '\0', BUFSIZ - 1);  // clear the buffer
3598
3599         if (row < 0) row = 0;
3600         if (row >= rows) row = rows - 1;
3601         if (col < 0) col = 0;
3602         if (col >= columns) col = columns - 1;
3603         
3604         //----- 1.  Try the standard terminal ESC sequence
3605         sprintf((char *) cm1, CMrc, row + 1, col + 1);
3606         cm= cm1;
3607         if (opti == FALSE) goto pc0;
3608
3609 #ifdef BB_FEATURE_VI_OPTIMIZE_CURSOR
3610         //----- find the minimum # of chars to move cursor -------------
3611         //----- 2.  Try moving with discreet chars (Newline, [back]space, ...)
3612         memset(cm2, '\0', BUFSIZ - 1);  // clear the buffer
3613         
3614         // move to the correct row
3615         while (row < Rrow) {
3616                 // the cursor has to move up
3617                 strcat(cm2, CMup);
3618                 Rrow--;
3619         }
3620         while (row > Rrow) {
3621                 // the cursor has to move down
3622                 strcat(cm2, CMdown);
3623                 Rrow++;
3624         }
3625         
3626         // now move to the correct column
3627         strcat(cm2, "\r");                      // start at col 0
3628         // just send out orignal source char to get to correct place
3629         screenp = &screen[row * columns];       // start of screen line
3630         strncat(cm2, screenp, col);
3631
3632         //----- 3.  Try some other way of moving cursor
3633         //---------------------------------------------
3634
3635         // pick the shortest cursor motion to send out
3636         cm= cm1;
3637         if (strlen(cm2) < strlen(cm)) {
3638                 cm= cm2;
3639         }  /* else if (strlen(cm3) < strlen(cm)) {
3640                 cm= cm3;
3641         } */
3642 #endif                                                  /* BB_FEATURE_VI_OPTIMIZE_CURSOR */
3643   pc0:
3644         l= strlen(cm);
3645         if (l) write(1, cm, l);                 // move the cursor
3646 }
3647
3648 //----- Erase from cursor to end of line -----------------------
3649 static void clear_to_eol()
3650 {
3651         write(1, Ceol, strlen(Ceol));   // Erase from cursor to end of line
3652 }
3653
3654 //----- Erase from cursor to end of screen -----------------------
3655 static void clear_to_eos()
3656 {
3657         write(1, Ceos, strlen(Ceos));   // Erase from cursor to end of screen
3658 }
3659
3660 //----- Start standout mode ------------------------------------
3661 static void standout_start() // send "start reverse video" sequence
3662 {
3663         write(1, SOs, strlen(SOs));     // Start reverse video mode
3664 }
3665
3666 //----- End standout mode --------------------------------------
3667 static void standout_end() // send "end reverse video" sequence
3668 {
3669         write(1, SOn, strlen(SOn));     // End reverse video mode
3670 }
3671
3672 //----- Flash the screen  --------------------------------------
3673 static void flash(int h)
3674 {
3675         standout_start();       // send "start reverse video" sequence
3676         redraw(TRUE);
3677         (void) mysleep(h);
3678         standout_end();         // send "end reverse video" sequence
3679         redraw(TRUE);
3680 }
3681
3682 static void beep()
3683 {
3684         write(1, bell, strlen(bell));   // send out a bell character
3685 }
3686
3687 static void indicate_error(char c)
3688 {
3689 #ifdef BB_FEATURE_VI_CRASHME
3690         if (crashme > 0)
3691                 return;                 // generate a random command
3692 #endif                                                  /* BB_FEATURE_VI_CRASHME */
3693         if (err_method == 0) {
3694                 beep();
3695         } else {
3696                 flash(10);
3697         }
3698 }
3699
3700 //----- Screen[] Routines --------------------------------------
3701 //----- Erase the Screen[] memory ------------------------------
3702 static void screen_erase()
3703 {
3704         memset(screen, ' ', screensize);        // clear new screen
3705 }
3706
3707 //----- Draw the status line at bottom of the screen -------------
3708 static void show_status_line(void)
3709 {
3710         static int last_cksum;
3711         int l, cnt, cksum;
3712
3713         cnt = strlen((char *) status_buffer);
3714         for (cksum= l= 0; l < cnt; l++) { cksum += (int)(status_buffer[l]); }
3715         // don't write the status line unless it changes
3716         if (cnt > 0 && last_cksum != cksum) {
3717                 last_cksum= cksum;              // remember if we have seen this line
3718                 place_cursor(rows - 1, 0, FALSE);       // put cursor on status line
3719                 write(1, status_buffer, cnt);
3720                 clear_to_eol();
3721                 place_cursor(crow, ccol, FALSE);        // put cursor back in correct place
3722         }
3723 }
3724
3725 //----- format the status buffer, the bottom line of screen ------
3726 // print status buffer, with STANDOUT mode
3727 static void psbs(char *format, ...)
3728 {
3729         va_list args;
3730
3731         va_start(args, format);
3732         strcpy((char *) status_buffer, SOs);    // Terminal standout mode on
3733         vsprintf((char *) status_buffer + strlen((char *) status_buffer), format,
3734                          args);
3735         strcat((char *) status_buffer, SOn);    // Terminal standout mode off
3736         va_end(args);
3737
3738         return;
3739 }
3740
3741 // print status buffer
3742 static void psb(char *format, ...)
3743 {
3744         va_list args;
3745
3746         va_start(args, format);
3747         vsprintf((char *) status_buffer, format, args);
3748         va_end(args);
3749         return;
3750 }
3751
3752 static void ni(Byte * s) // display messages
3753 {
3754         Byte buf[BUFSIZ];
3755
3756         print_literal(buf, s);
3757         psbs("\'%s\' is not implemented", buf);
3758 }
3759
3760 static void edit_status(void)   // show file status on status line
3761 {
3762         int cur, tot, percent;
3763
3764         cur = count_lines(text, dot);
3765         tot = count_lines(text, end - 1);
3766         //    current line         percent
3767         //   -------------    ~~ ----------
3768         //    total lines            100
3769         if (tot > 0) {
3770                 percent = (100 * cur) / tot;
3771         } else {
3772                 cur = tot = 0;
3773                 percent = 100;
3774         }
3775         psb("\"%s\""
3776 #ifdef BB_FEATURE_VI_READONLY
3777                 "%s"
3778 #endif                                                  /* BB_FEATURE_VI_READONLY */
3779                 "%s line %d of %d --%d%%--",
3780                 (cfn != 0 ? (char *) cfn : "No file"),
3781 #ifdef BB_FEATURE_VI_READONLY
3782                 ((vi_readonly == TRUE || readonly == TRUE) ? " [Read only]" : ""),
3783 #endif                                                  /* BB_FEATURE_VI_READONLY */
3784                 (file_modified == TRUE ? " [modified]" : ""),
3785                 cur, tot, percent);
3786 }
3787
3788 //----- Force refresh of all Lines -----------------------------
3789 static void redraw(int full_screen)
3790 {
3791         place_cursor(0, 0, FALSE);      // put cursor in correct place
3792         clear_to_eos();         // tel terminal to erase display
3793         screen_erase();         // erase the internal screen buffer
3794         refresh(full_screen);   // this will redraw the entire display
3795 }
3796
3797 //----- Format a text[] line into a buffer ---------------------
3798 static void format_line(Byte *dest, Byte *src, int li)
3799 {
3800         int co;
3801         Byte c;
3802         
3803         for (co= 0; co < MAX_SCR_COLS; co++) {
3804                 c= ' ';         // assume blank
3805                 if (li > 0 && co == 0) {
3806                         c = '~';        // not first line, assume Tilde
3807                 }
3808                 // are there chars in text[] and have we gone past the end
3809                 if (text < end && src < end) {
3810                         c = *src++;
3811                 }
3812                 if (c == '\n')
3813                         break;
3814                 if (c < ' ' || c > '~') {
3815                         if (c == '\t') {
3816                                 c = ' ';
3817                                 //       co %    8     !=     7
3818                                 for (; (co % tabstop) != (tabstop - 1); co++) {
3819                                         dest[co] = c;
3820                                 }
3821                         } else {
3822                                 dest[co++] = '^';
3823                                 c |= '@';       // make it visible
3824                                 c &= 0x7f;      // get rid of hi bit
3825                         }
3826                 }
3827                 // the co++ is done here so that the column will
3828                 // not be overwritten when we blank-out the rest of line
3829                 dest[co] = c;
3830                 if (src >= end)
3831                         break;
3832         }
3833 }
3834
3835 //----- Refresh the changed screen lines -----------------------
3836 // Copy the source line from text[] into the buffer and note
3837 // if the current screenline is different from the new buffer.
3838 // If they differ then that line needs redrawing on the terminal.
3839 //
3840 static void refresh(int full_screen)
3841 {
3842         static int old_offset;
3843         int li, changed;
3844         Byte buf[MAX_SCR_COLS];
3845         Byte *tp, *sp;          // pointer into text[] and screen[]
3846 #ifdef BB_FEATURE_VI_OPTIMIZE_CURSOR
3847         int last_li= -2;                                // last line that changed- for optimizing cursor movement
3848 #endif                                                  /* BB_FEATURE_VI_OPTIMIZE_CURSOR */
3849
3850 #ifdef BB_FEATURE_VI_WIN_RESIZE
3851         window_size_get(0);
3852 #endif                                                  /* BB_FEATURE_VI_WIN_RESIZE */
3853         sync_cursor(dot, &crow, &ccol); // where cursor will be (on "dot")
3854         tp = screenbegin;       // index into text[] of top line
3855
3856         // compare text[] to screen[] and mark screen[] lines that need updating
3857         for (li = 0; li < rows - 1; li++) {
3858                 int cs, ce;                             // column start & end
3859                 memset(buf, ' ', MAX_SCR_COLS);         // blank-out the buffer
3860                 buf[MAX_SCR_COLS-1] = 0;                // NULL terminate the buffer
3861                 // format current text line into buf
3862                 format_line(buf, tp, li);
3863
3864                 // skip to the end of the current text[] line
3865                 while (tp < end && *tp++ != '\n') /*no-op*/ ;
3866
3867                 // see if there are any changes between vitual screen and buf
3868                 changed = FALSE;        // assume no change
3869                 cs= 0;
3870                 ce= columns-1;
3871                 sp = &screen[li * columns];     // start of screen line
3872                 if (full_screen == TRUE) {
3873                         // force re-draw of every single column from 0 - columns-1
3874                         goto re0;
3875                 }
3876                 // compare newly formatted buffer with virtual screen
3877                 // look forward for first difference between buf and screen
3878                 for ( ; cs <= ce; cs++) {
3879                         if (buf[cs + offset] != sp[cs]) {
3880                                 changed = TRUE; // mark for redraw
3881                                 break;
3882                         }
3883                 }
3884
3885                 // look backward for last difference between buf and screen
3886                 for ( ; ce >= cs; ce--) {
3887                         if (buf[ce + offset] != sp[ce]) {
3888                                 changed = TRUE; // mark for redraw
3889                                 break;
3890                         }
3891                 }
3892                 // now, cs is index of first diff, and ce is index of last diff
3893
3894                 // if horz offset has changed, force a redraw
3895                 if (offset != old_offset) {
3896   re0:
3897                         changed = TRUE;
3898                 }
3899
3900                 // make a sanity check of columns indexes
3901                 if (cs < 0) cs= 0;
3902                 if (ce > columns-1) ce= columns-1;
3903                 if (cs > ce) {  cs= 0;  ce= columns-1;  }
3904                 // is there a change between vitual screen and buf
3905                 if (changed == TRUE) {
3906                         //  copy changed part of buffer to virtual screen
3907                         memmove(sp+cs, buf+(cs+offset), ce-cs+1);
3908
3909                         // move cursor to column of first change
3910                         if (offset != old_offset) {
3911                                 // opti_cur_move is still too stupid
3912                                 // to handle offsets correctly
3913                                 place_cursor(li, cs, FALSE);
3914                         } else {
3915 #ifdef BB_FEATURE_VI_OPTIMIZE_CURSOR
3916                                 // if this just the next line
3917                                 //  try to optimize cursor movement
3918                                 //  otherwise, use standard ESC sequence
3919                                 place_cursor(li, cs, li == (last_li+1) ? TRUE : FALSE);
3920                                 last_li= li;
3921 #else                                                   /* BB_FEATURE_VI_OPTIMIZE_CURSOR */
3922                                 place_cursor(li, cs, FALSE);    // use standard ESC sequence
3923 #endif                                                  /* BB_FEATURE_VI_OPTIMIZE_CURSOR */
3924                         }
3925
3926                         // write line out to terminal
3927                         write(1, sp+cs, ce-cs+1);
3928 #ifdef BB_FEATURE_VI_OPTIMIZE_CURSOR
3929                         last_row = li;
3930 #endif                                                  /* BB_FEATURE_VI_OPTIMIZE_CURSOR */
3931                 }
3932         }
3933
3934 #ifdef BB_FEATURE_VI_OPTIMIZE_CURSOR
3935         place_cursor(crow, ccol, (crow == last_row) ? TRUE : FALSE);
3936         last_row = crow;
3937 #else
3938         place_cursor(crow, ccol, FALSE);
3939 #endif                                                  /* BB_FEATURE_VI_OPTIMIZE_CURSOR */
3940         
3941         if (offset != old_offset)
3942                 old_offset = offset;
3943 }