1 /* $NetBSD: command.c,v 1.12 2009/01/24 13:58:21 tsutsui Exp $ */ 2 3 /* 4 * Copyright (c) 1988 Mark Nudelman 5 * Copyright (c) 1988, 1993 6 * The Regents of the University of California. All rights reserved. 7 * 8 * Redistribution and use in source and binary forms, with or without 9 * modification, are permitted provided that the following conditions 10 * are met: 11 * 1. Redistributions of source code must retain the above copyright 12 * notice, this list of conditions and the following disclaimer. 13 * 2. Redistributions in binary form must reproduce the above copyright 14 * notice, this list of conditions and the following disclaimer in the 15 * documentation and/or other materials provided with the distribution. 16 * 3. Neither the name of the University nor the names of its contributors 17 * may be used to endorse or promote products derived from this software 18 * without specific prior written permission. 19 * 20 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 21 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 22 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 23 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 24 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 25 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 26 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 28 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 29 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 30 * SUCH DAMAGE. 31 */ 32 33 #include <sys/cdefs.h> 34 #ifndef lint 35 #if 0 36 static char sccsid[] = "@(#)command.c 8.1 (Berkeley) 6/6/93"; 37 #else 38 __RCSID("$NetBSD: command.c,v 1.12 2009/01/24 13:58:21 tsutsui Exp $"); 39 #endif 40 #endif /* not lint */ 41 42 #include <sys/param.h> 43 #include <stdio.h> 44 #include <string.h> 45 #include <ctype.h> 46 #include <stdlib.h> 47 #include <unistd.h> 48 49 #include "less.h" 50 #include "pathnames.h" 51 #include "extern.h" 52 53 #define NO_MCA 0 54 #define MCA_DONE 1 55 #define MCA_MORE 2 56 57 static char cmdbuf[120]; /* Buffer for holding a multi-char command */ 58 static char *cp; /* Pointer into cmdbuf */ 59 static int cmd_col; /* Current column of the multi-char command */ 60 static int longprompt; /* if stat command instead of prompt */ 61 static int mca; /* The multicharacter command (action) */ 62 static int last_mca; /* The previous mca */ 63 static int number; /* The number typed by the user */ 64 static int wsearch; /* Search for matches (1) or non-matches (0) */ 65 66 #define CMD_RESET cp = cmdbuf /* reset command buffer to empty */ 67 #define CMD_EXEC lower_left(); flush() 68 69 static int cmd_erase __P((void)); 70 static int cmd_char __P((int)); 71 static int getcc __P((void)); 72 static void exec_mca __P((void)); 73 static int mca_char __P((int)); 74 75 /* backspace in command buffer. */ 76 static int 77 cmd_erase() 78 { 79 /* 80 * backspace past beginning of the string: this usually means 81 * abort the command. 82 */ 83 if (cp == cmdbuf) 84 return(1); 85 86 /* erase an extra character, for the carat. */ 87 if (CONTROL_CHAR(*--cp)) { 88 backspace(); 89 --cmd_col; 90 } 91 92 backspace(); 93 --cmd_col; 94 return(0); 95 } 96 97 /* set up the display to start a new multi-character command. */ 98 void 99 start_mca(action, prompt) 100 int action; 101 char *prompt; 102 { 103 lower_left(); 104 clear_eol(); 105 putstr(prompt); 106 cmd_col = strlen(prompt); 107 mca = action; 108 } 109 110 /* 111 * process a single character of a multi-character command, such as 112 * a number, or the pattern of a search command. 113 */ 114 static int 115 cmd_char(c) 116 int c; 117 { 118 if (c == erase_char) 119 return(cmd_erase()); 120 /* in this order, in case werase == erase_char */ 121 if (c == werase_char) { 122 if (cp > cmdbuf) { 123 while (isspace((unsigned char)cp[-1]) && !cmd_erase()); 124 while (!isspace((unsigned char)cp[-1]) && !cmd_erase()); 125 while (isspace((unsigned char)cp[-1]) && !cmd_erase()); 126 } 127 return(cp == cmdbuf); 128 } 129 if (c == kill_char) { 130 while (!cmd_erase()); 131 return(1); 132 } 133 /* 134 * No room in the command buffer, or no room on the screen; 135 * {{ Could get fancy here; maybe shift the displayed line 136 * and make room for more chars, like ksh. }} 137 */ 138 if (cp >= &cmdbuf[sizeof(cmdbuf)-1] || cmd_col >= sc_width-3) 139 bell(); 140 else { 141 *cp++ = c; 142 if (CONTROL_CHAR(c)) { 143 putchr('^'); 144 cmd_col++; 145 c = CARAT_CHAR(c); 146 } 147 putchr(c); 148 cmd_col++; 149 } 150 return(0); 151 } 152 153 int 154 prompt() 155 { 156 off_t len, pos; 157 char pbuf[40]; 158 159 /* 160 * if nothing is displayed yet, display starting from line 1; 161 * if search string provided, go there instead. 162 */ 163 if (position(TOP) == NULL_POSITION) { 164 if (forw_line((off_t)0) == NULL_POSITION) 165 return(0); 166 if (!firstsearch || !search(1, firstsearch, 1, 1)) 167 jump_back(1); 168 } 169 else if (screen_trashed) 170 repaint(); 171 172 /* if no -e flag and we've hit EOF on the last file, quit. */ 173 if ((!quit_at_eof || short_file) && hit_eof && curr_ac + 1 >= ac) 174 quit(); 175 176 /* select the proper prompt and display it. */ 177 lower_left(); 178 clear_eol(); 179 if (longprompt) { 180 so_enter(); 181 putstr(current_name); 182 putstr(":"); 183 if (!ispipe) { 184 (void)snprintf(pbuf, sizeof(pbuf), " file %d/%d", 185 curr_ac + 1, ac); 186 putstr(pbuf); 187 } 188 if (linenums) { 189 (void)snprintf(pbuf, sizeof(pbuf), " line %d", 190 currline(BOTTOM)); 191 putstr(pbuf); 192 } 193 if ((pos = position(BOTTOM)) != NULL_POSITION) { 194 (void)snprintf(pbuf, sizeof(pbuf), " byte %lld", 195 (long long)pos); 196 putstr(pbuf); 197 if (!ispipe && (len = ch_length())) { 198 (void)snprintf(pbuf, sizeof(pbuf), 199 "/%lld pct %lld%%", (long long)len, 200 (long long)((100 * pos) / len)); 201 putstr(pbuf); 202 } 203 } 204 so_exit(); 205 longprompt = 0; 206 } 207 else { 208 so_enter(); 209 putstr(current_name); 210 if (hit_eof) 211 if (next_name) { 212 putstr(": END (next file: "); 213 putstr(next_name); 214 putstr(")"); 215 } 216 else 217 putstr(": END"); 218 else if (!ispipe && 219 (pos = position(BOTTOM)) != NULL_POSITION && 220 (len = ch_length())) { 221 (void)snprintf(pbuf, sizeof(pbuf), " (%lld%%)", 222 (long long)((100 * pos) / len)); 223 putstr(pbuf); 224 } 225 so_exit(); 226 } 227 return(1); 228 } 229 230 /* get command character. */ 231 static int 232 getcc() 233 { 234 int ch; 235 236 /* left over from error() routine. */ 237 if (cmdstack) { 238 ch = cmdstack; 239 cmdstack = 0; 240 return(ch); 241 } 242 if (cp > cmdbuf && position(TOP) == NULL_POSITION) { 243 /* 244 * Command is incomplete, so try to complete it. 245 * There are only two cases: 246 * 1. We have "/string" but no newline. Add the \n. 247 * 2. We have a number but no command. Treat as #g. 248 * (This is all pretty hokey.) 249 */ 250 if (mca != A_DIGIT) 251 /* Not a number; must be search string */ 252 return('\n'); 253 else 254 /* A number; append a 'g' */ 255 return('g'); 256 } 257 return(getchr()); 258 } 259 260 /* execute a multicharacter command. */ 261 static void 262 exec_mca() 263 { 264 char *p; 265 266 *cp = '\0'; 267 CMD_EXEC; 268 switch (mca) { 269 case A_F_SEARCH: 270 (void)search(1, cmdbuf, number, wsearch); 271 break; 272 case A_B_SEARCH: 273 (void)search(0, cmdbuf, number, wsearch); 274 break; 275 case A_EXAMINE: 276 for (p = cmdbuf; isspace((unsigned char)*p); ++p); 277 (void)edit(glob(p)); 278 break; 279 } 280 } 281 282 /* add a character to a multi-character command. */ 283 static int 284 mca_char(c) 285 int c; 286 { 287 switch (mca) { 288 case 0: /* not in a multicharacter command. */ 289 case A_PREFIX: /* in the prefix of a command. */ 290 return(NO_MCA); 291 case A_DIGIT: 292 /* 293 * Entering digits of a number. 294 * Terminated by a non-digit. 295 */ 296 if (!isascii(c) || (!isdigit(c) && 297 c != erase_char && c != kill_char && c != werase_char)) { 298 /* 299 * Not part of the number. 300 * Treat as a normal command character. 301 */ 302 *cp = '\0'; 303 number = atoi(cmdbuf); 304 CMD_RESET; 305 mca = 0; 306 return(NO_MCA); 307 } 308 break; 309 } 310 311 /* 312 * Any other multicharacter command 313 * is terminated by a newline. 314 */ 315 if (c == '\n' || c == '\r') { 316 exec_mca(); 317 return(MCA_DONE); 318 } 319 320 /* append the char to the command buffer. */ 321 if (cmd_char(c)) 322 return(MCA_DONE); 323 324 return(MCA_MORE); 325 } 326 327 /* 328 * Main command processor. 329 * Accept and execute commands until a quit command, then return. 330 */ 331 void 332 commands() 333 { 334 int c; 335 int action; 336 337 last_mca = 0; 338 scroll_lines = (sc_height + 1) / 2; 339 340 for (;;) { 341 mca = 0; 342 number = 0; 343 344 /* 345 * See if any signals need processing. 346 */ 347 if (sigs) { 348 psignals(); 349 if (quitting) 350 quit(); 351 } 352 /* 353 * Display prompt and accept a character. 354 */ 355 CMD_RESET; 356 if (!prompt()) { 357 next_file(1); 358 continue; 359 } 360 noprefix(); 361 c = getcc(); 362 363 again: if (sigs) 364 continue; 365 366 /* 367 * If we are in a multicharacter command, call mca_char. 368 * Otherwise we call cmd_decode to determine the 369 * action to be performed. 370 */ 371 if (mca) 372 switch (mca_char(c)) { 373 case MCA_MORE: 374 /* 375 * Need another character. 376 */ 377 c = getcc(); 378 goto again; 379 case MCA_DONE: 380 /* 381 * Command has been handled by mca_char. 382 * Start clean with a prompt. 383 */ 384 continue; 385 case NO_MCA: 386 /* 387 * Not a multi-char command 388 * (at least, not anymore). 389 */ 390 break; 391 } 392 393 /* decode the command character and decide what to do. */ 394 switch (action = cmd_decode(c)) { 395 case A_DIGIT: /* first digit of a number */ 396 start_mca(A_DIGIT, ":"); 397 goto again; 398 case A_F_SCREEN: /* forward one screen */ 399 CMD_EXEC; 400 if (number <= 0 && (number = sc_window) <= 0) 401 number = sc_height - 1; 402 forward(number, 1); 403 break; 404 case A_B_SCREEN: /* backward one screen */ 405 CMD_EXEC; 406 if (number <= 0 && (number = sc_window) <= 0) 407 number = sc_height - 1; 408 backward(number, 1); 409 break; 410 case A_F_LINE: /* forward N (default 1) line */ 411 CMD_EXEC; 412 forward(number <= 0 ? 1 : number, 0); 413 break; 414 case A_B_LINE: /* backward N (default 1) line */ 415 CMD_EXEC; 416 backward(number <= 0 ? 1 : number, 0); 417 break; 418 case A_F_SCROLL: /* forward N lines */ 419 CMD_EXEC; 420 if (number > 0) 421 scroll_lines = number; 422 forward(scroll_lines, 0); 423 break; 424 case A_B_SCROLL: /* backward N lines */ 425 CMD_EXEC; 426 if (number > 0) 427 scroll_lines = number; 428 backward(scroll_lines, 0); 429 break; 430 case A_FREPAINT: /* flush buffers and repaint */ 431 if (!ispipe) { 432 ch_init(0, 0); 433 clr_linenum(); 434 } 435 /* FALLTHROUGH */ 436 case A_REPAINT: /* repaint the screen */ 437 CMD_EXEC; 438 repaint(); 439 break; 440 case A_GOLINE: /* go to line N, default 1 */ 441 CMD_EXEC; 442 if (number <= 0) 443 number = 1; 444 jump_back(number); 445 break; 446 case A_PERCENT: /* go to percent of file */ 447 CMD_EXEC; 448 if (number < 0) 449 number = 0; 450 else if (number > 100) 451 number = 100; 452 jump_percent(number); 453 break; 454 case A_GOEND: /* go to line N, default end */ 455 CMD_EXEC; 456 if (number <= 0) 457 jump_forw(); 458 else 459 jump_back(number); 460 break; 461 case A_STAT: /* print file name, etc. */ 462 longprompt = 1; 463 continue; 464 case A_QUIT: /* exit */ 465 quit(); 466 case A_F_SEARCH: /* search for a pattern */ 467 case A_B_SEARCH: 468 if (number <= 0) 469 number = 1; 470 start_mca(action, (action==A_F_SEARCH) ? "/" : "?"); 471 last_mca = mca; 472 wsearch = 1; 473 c = getcc(); 474 if (c == '!') { 475 /* 476 * Invert the sense of the search; set wsearch 477 * to 0 and get a new character for the start 478 * of the pattern. 479 */ 480 start_mca(action, 481 (action == A_F_SEARCH) ? "!/" : "!?"); 482 wsearch = 0; 483 c = getcc(); 484 } 485 goto again; 486 case A_AGAIN_SEARCH: /* repeat previous search */ 487 if (number <= 0) 488 number = 1; 489 if (wsearch) 490 start_mca(last_mca, 491 (last_mca == A_F_SEARCH) ? "/" : "?"); 492 else 493 start_mca(last_mca, 494 (last_mca == A_F_SEARCH) ? "!/" : "!?"); 495 CMD_EXEC; 496 (void)search(mca == A_F_SEARCH, NULL, 497 number, wsearch); 498 break; 499 case A_HELP: /* help */ 500 lower_left(); 501 clear_eol(); 502 putstr("help"); 503 CMD_EXEC; 504 help(); 505 break; 506 case A_FILE_LIST: /* show list of file names */ 507 CMD_EXEC; 508 showlist(); 509 repaint(); 510 break; 511 case A_EXAMINE: /* edit a new file */ 512 CMD_RESET; 513 start_mca(A_EXAMINE, "Examine: "); 514 c = getcc(); 515 goto again; 516 case A_VISUAL: /* invoke the editor */ 517 if (ispipe) { 518 error("Cannot edit standard input"); 519 break; 520 } 521 CMD_EXEC; 522 editfile(); 523 ch_init(0, 0); 524 clr_linenum(); 525 break; 526 case A_NEXT_FILE: /* examine next file */ 527 if (number <= 0) 528 number = 1; 529 next_file(number); 530 break; 531 case A_PREV_FILE: /* examine previous file */ 532 if (number <= 0) 533 number = 1; 534 prev_file(number); 535 break; 536 case A_SETMARK: /* set a mark */ 537 lower_left(); 538 clear_eol(); 539 start_mca(A_SETMARK, "mark: "); 540 c = getcc(); 541 if (c == erase_char || c == kill_char) 542 break; 543 setmark(c); 544 break; 545 case A_GOMARK: /* go to mark */ 546 lower_left(); 547 clear_eol(); 548 start_mca(A_GOMARK, "goto mark: "); 549 c = getcc(); 550 if (c == erase_char || c == kill_char) 551 break; 552 gomark(c); 553 break; 554 case A_PREFIX: 555 /* 556 * The command is incomplete (more chars are needed). 557 * Display the current char so the user knows what's 558 * going on and get another character. 559 */ 560 if (mca != A_PREFIX) 561 start_mca(A_PREFIX, ""); 562 if (CONTROL_CHAR(c)) { 563 putchr('^'); 564 c = CARAT_CHAR(c); 565 } 566 putchr(c); 567 c = getcc(); 568 goto again; 569 default: 570 bell(); 571 break; 572 } 573 } 574 } 575 576 void 577 editfile() 578 { 579 static int dolinenumber; 580 static char *editor; 581 int c; 582 char buf[MAXPATHLEN * 2 + 20]; 583 584 if (editor == NULL) { 585 editor = getenv("EDITOR"); 586 /* pass the line number to vi */ 587 if (editor == NULL || *editor == '\0') { 588 editor = _PATH_VI; 589 dolinenumber = 1; 590 } 591 else 592 dolinenumber = 0; 593 } 594 if (dolinenumber && (c = currline(MIDDLE))) 595 (void)snprintf(buf, sizeof(buf), "%s +%d %s", editor, c, 596 current_file); 597 else 598 (void)snprintf(buf, sizeof(buf), "%s %s", editor, current_file); 599 lsystem(buf); 600 } 601 602 void 603 showlist() 604 { 605 int indx, width; 606 int len; 607 char *p; 608 609 if (ac <= 0) { 610 error("No files provided as arguments."); 611 return; 612 } 613 for (width = indx = 0; indx < ac;) { 614 p = strcmp(av[indx], "-") ? av[indx] : "stdin"; 615 len = strlen(p) + 1; 616 if (curr_ac == indx) 617 len += 2; 618 if (width + len + 1 >= sc_width) { 619 if (!width) { 620 if (curr_ac == indx) 621 putchr('['); 622 putstr(p); 623 if (curr_ac == indx) 624 putchr(']'); 625 ++indx; 626 } 627 width = 0; 628 putchr('\n'); 629 continue; 630 } 631 if (width) 632 putchr(' '); 633 if (curr_ac == indx) 634 putchr('['); 635 putstr(p); 636 if (curr_ac == indx) 637 putchr(']'); 638 width += len; 639 ++indx; 640 } 641 putchr('\n'); 642 error(NULL); 643 } 644
Indexes created Sun Sep 21 19:09:51 GMT 2025