contrib/less/command.c

   1 /*
   2  * Copyright (C) 1984-2007  Mark Nudelman
   3  *
   4  * You may distribute under the terms of either the GNU General Public
   5  * License or the Less License, as specified in the README file.
   6  *
   7  * For more information about less, or for information on how to
   8  * contact the author, see the README file.
   9  */
  10
  11
  12 /*
  13  * User-level command processor.
  14  */
  15
  16 #include "less.h"
  17 #if MSDOS_COMPILER==WIN32C
  18 #include <windows.h>
  19 #endif
  20 #include "position.h"
  21 #include "option.h"
  22 #include "cmd.h"
  23
  24 extern int erase_char, erase2_char, kill_char;
  25 extern int sigs;
  26 extern int quit_if_one_screen;
  27 extern int squished;
  28 extern int hit_eof;
  29 extern int sc_width;
  30 extern int sc_height;
  31 extern int swindow;
  32 extern int jump_sline;
  33 extern int quitting;
  34 extern int wscroll;
  35 extern int top_scroll;
  36 extern int ignore_eoi;
  37 extern int secure;
  38 extern int hshift;
  39 extern int show_attn;
  40 extern char *every_first_cmd;
  41 extern char *curr_altfilename;
  42 extern char version[];
  43 extern struct scrpos initial_scrpos;
  44 extern IFILE curr_ifile;
  45 extern void constant *ml_search;
  46 extern void constant *ml_examine;
  47 #if SHELL_ESCAPE || PIPEC
  48 extern void constant *ml_shell;
  49 #endif
  50 #if EDITOR
  51 extern char *editor;
  52 extern char *editproto;
  53 #endif
  54 extern int screen_trashed;      /* The screen has been overwritten */
  55 extern int shift_count;
  56 extern int oldbot;
  57 extern int forw_prompt;
  58
  59 static char ungot[UNGOT_SIZE];
  60 static char *ungotp = NULL;
  61 #if SHELL_ESCAPE
  62 static char *shellcmd = NULL;   /* For holding last shell command for "!!" */
  63 #endif
  64 static int mca;                 /* The multicharacter command (action) */
  65 static int search_type;         /* The previous type of search */
  66 static LINENUM number;          /* The number typed by the user */
  67 static long fraction;           /* The fractional part of the number */
  68 static char optchar;
  69 static int optflag;
  70 static int optgetname;
  71 static POSITION bottompos;
  72 static int save_hshift;
  73 #if PIPEC
  74 static char pipec;
  75 #endif
  76
  77 static void multi_search();
  78
  79 /*
  80  * Move the cursor to start of prompt line before executing a command.
  81  * This looks nicer if the command takes a long time before
  82  * updating the screen.
  83  */
  84         static void
  85 cmd_exec()
  86 {
  87         clear_attn();
  88         clear_bot();
  89         flush();
  90 }
  91
  92 /*
  93  * Set up the display to start a new multi-character command.
  94  */
  95         static void
  96 start_mca(action, prompt, mlist, cmdflags)
  97         int action;
  98         char *prompt;
  99         void *mlist;
 100         int cmdflags;
 101 {
 102         mca = action;
 103         clear_bot();
 104         clear_cmd();
 105         cmd_putstr(prompt);
 106         set_mlist(mlist, cmdflags);
 107 }
 108
 109         public int
 110 in_mca()
 111 {
 112         return (mca != 0 && mca != A_PREFIX);
 113 }
 114
 115 /*
 116  * Set up the display to start a new search command.
 117  */
 118         static void
 119 mca_search()
 120 {
 121         if (search_type & SRCH_FORW)
 122                 mca = A_F_SEARCH;
 123         else
 124                 mca = A_B_SEARCH;
 125
 126         clear_bot();
 127         clear_cmd();
 128
 129         if (search_type & SRCH_NO_MATCH)
 130                 cmd_putstr("Non-match ");
 131         if (search_type & SRCH_FIRST_FILE)
 132                 cmd_putstr("First-file ");
 133         if (search_type & SRCH_PAST_EOF)
 134                 cmd_putstr("EOF-ignore ");
 135         if (search_type & SRCH_NO_MOVE)
 136                 cmd_putstr("Keep-pos ");
 137         if (search_type & SRCH_NO_REGEX)
 138                 cmd_putstr("Regex-off ");
 139
 140         if (search_type & SRCH_FORW)
 141                 cmd_putstr("/");
 142         else
 143                 cmd_putstr("?");
 144         set_mlist(ml_search, 0);
 145 }
 146
 147 /*
 148  * Set up the display to start a new toggle-option command.
 149  */
 150         static void
 151 mca_opt_toggle()
 152 {
 153         int no_prompt;
 154         int flag;
 155         char *dash;
 156
 157         no_prompt = (optflag & OPT_NO_PROMPT);
 158         flag = (optflag & ~OPT_NO_PROMPT);
 159         dash = (flag == OPT_NO_TOGGLE) ? "_" : "-";
 160
 161         mca = A_OPT_TOGGLE;
 162         clear_bot();
 163         clear_cmd();
 164         cmd_putstr(dash);
 165         if (optgetname)
 166                 cmd_putstr(dash);
 167         if (no_prompt)
 168                 cmd_putstr("(P)");
 169         switch (flag)
 170         {
 171         case OPT_UNSET:
 172                 cmd_putstr("+");
 173                 break;
 174         case OPT_SET:
 175                 cmd_putstr("!");
 176                 break;
 177         }
 178         set_mlist(NULL, 0);
 179 }
 180
 181 /*
 182  * Execute a multicharacter command.
 183  */
 184         static void
 185 exec_mca()
 186 {
 187         register char *cbuf;
 188
 189         cmd_exec();
 190         cbuf = get_cmdbuf();
 191
 192         switch (mca)
 193         {
 194         case A_F_SEARCH:
 195         case A_B_SEARCH:
 196                 multi_search(cbuf, (int) number);
 197                 break;
 198         case A_FIRSTCMD:
 199                 /*
 200                  * Skip leading spaces or + signs in the string.
 201                  */
 202                 while (*cbuf == '+' || *cbuf == ' ')
 203                         cbuf++;
 204                 if (every_first_cmd != NULL)
 205                         free(every_first_cmd);
 206                 if (*cbuf == '\0')
 207                         every_first_cmd = NULL;
 208                 else
 209                         every_first_cmd = save(cbuf);
 210                 break;
 211         case A_OPT_TOGGLE:
 212                 toggle_option(optchar, cbuf, optflag);
 213                 optchar = '\0';
 214                 break;
 215         case A_F_BRACKET:
 216                 match_brac(cbuf[0], cbuf[1], 1, (int) number);
 217                 break;
 218         case A_B_BRACKET:
 219                 match_brac(cbuf[1], cbuf[0], 0, (int) number);
 220                 break;
 221 #if EXAMINE
 222         case A_EXAMINE:
 223                 if (secure)
 224                         break;
 225                 edit_list(cbuf);
 226 #if TAGS
 227                 /* If tag structure is loaded then clean it up. */
 228                 cleantags();
 229 #endif
 230                 break;
 231 #endif
 232 #if SHELL_ESCAPE
 233         case A_SHELL:
 234                 /*
 235                  * !! just uses whatever is in shellcmd.
 236                  * Otherwise, copy cmdbuf to shellcmd,
 237                  * expanding any special characters ("%" or "#").
 238                  */
 239                 if (*cbuf != '!')
 240                 {
 241                         if (shellcmd != NULL)
 242                                 free(shellcmd);
 243                         shellcmd = fexpand(cbuf);
 244                 }
 245
 246                 if (secure)
 247                         break;
 248                 if (shellcmd == NULL)
 249                         lsystem("", "!done");
 250                 else
 251                         lsystem(shellcmd, "!done");
 252                 break;
 253 #endif
 254 #if PIPEC
 255         case A_PIPE:
 256                 if (secure)
 257                         break;
 258                 (void) pipe_mark(pipec, cbuf);
 259                 error("|done", NULL_PARG);
 260                 break;
 261 #endif
 262         }
 263 }
 264
 265 /*
 266  * Add a character to a multi-character command.
 267  */
 268         static int
 269 mca_char(c)
 270         int c;
 271 {
 272         char *p;
 273         int flag;
 274         char buf[3];
 275         PARG parg;
 276
 277         switch (mca)
 278         {
 279         case 0:
 280                 /*
 281                  * Not in a multicharacter command.
 282                  */
 283                 return (NO_MCA);
 284
 285         case A_PREFIX:
 286                 /*
 287                  * In the prefix of a command.
 288                  * This not considered a multichar command
 289                  * (even tho it uses cmdbuf, etc.).
 290                  * It is handled in the commands() switch.
 291                  */
 292                 return (NO_MCA);
 293
 294         case A_DIGIT:
 295                 /*
 296                  * Entering digits of a number.
 297                  * Terminated by a non-digit.
 298                  */
 299                 if (!((c >= '0' && c <= '9') || c == '.') &&
 300                   editchar(c, EC_PEEK|EC_NOHISTORY|EC_NOCOMPLETE|EC_NORIGHTLEFT) == A_INVALID)
 301                 {
 302                         /*
 303                          * Not part of the number.
 304                          * Treat as a normal command character.
 305                          */
 306                         number = cmd_int(&fraction);
 307                         mca = 0;
 308                         cmd_accept();
 309                         return (NO_MCA);
 310                 }
 311                 break;
 312
 313         case A_OPT_TOGGLE:
 314                 /*
 315                  * Special case for the TOGGLE_OPTION command.
 316                  * If the option letter which was entered is a
 317                  * single-char option, execute the command immediately,
 318                  * so user doesn't have to hit RETURN.
 319                  * If the first char is + or -, this indicates
 320                  * OPT_UNSET or OPT_SET respectively, instead of OPT_TOGGLE.
 321                  * "--" begins inputting a long option name.
 322                  */
 323                 if (optchar == '\0' && len_cmdbuf() == 0)
 324                 {
 325                         flag = (optflag & ~OPT_NO_PROMPT);
 326                         if (flag == OPT_NO_TOGGLE)
 327                         {
 328                                 switch (c)
 329                                 {
 330                                 case '_':
 331                                         /* "__" = long option name. */
 332                                         optgetname = TRUE;
 333                                         mca_opt_toggle();
 334                                         return (MCA_MORE);
 335                                 }
 336                         } else
 337                         {
 338                                 switch (c)
 339                                 {
 340                                 case '+':
 341                                         /* "-+" = UNSET. */
 342                                         optflag = (flag == OPT_UNSET) ?
 343                                                 OPT_TOGGLE : OPT_UNSET;
 344                                         mca_opt_toggle();
 345                                         return (MCA_MORE);
 346                                 case '!':
 347                                         /* "-!" = SET */
 348                                         optflag = (flag == OPT_SET) ?
 349                                                 OPT_TOGGLE : OPT_SET;
 350                                         mca_opt_toggle();
 351                                         return (MCA_MORE);
 352                                 case CONTROL('P'):
 353                                         optflag ^= OPT_NO_PROMPT;
 354                                         mca_opt_toggle();
 355                                         return (MCA_MORE);
 356                                 case '-':
 357                                         /* "--" = long option name. */
 358                                         optgetname = TRUE;
 359                                         mca_opt_toggle();
 360                                         return (MCA_MORE);
 361                                 }
 362                         }
 363                 }
 364                 if (optgetname)
 365                 {
 366                         /*
 367                          * We're getting a long option name.
 368                          * See if we've matched an option name yet.
 369                          * If so, display the complete name and stop
 370                          * accepting chars until user hits RETURN.
 371                          */
 372                         struct loption *o;
 373                         char *oname;
 374                         int lc;
 375
 376                         if (c == '\n' || c == '\r')
 377                         {
 378                                 /*
 379                                  * When the user hits RETURN, make sure
 380                                  * we've matched an option name, then
 381                                  * pretend he just entered the equivalent
 382                                  * option letter.
 383                                  */
 384                                 if (optchar == '\0')
 385                                 {
 386                                         parg.p_string = get_cmdbuf();
 387                                         error("There is no --%s option", &parg);
 388                                         return (MCA_DONE);
 389                                 }
 390                                 optgetname = FALSE;
 391                                 cmd_reset();
 392                                 c = optchar;
 393                         } else
 394                         {
 395                                 if (optchar != '\0')
 396                                 {
 397                                         /*
 398                                          * Already have a match for the name.
 399                                          * Don't accept anything but erase/kill.
 400                                          */
 401                                         if (c == erase_char ||
 402                                             c == erase2_char ||
 403                                             c == kill_char)
 404                                                 return (MCA_DONE);
 405                                         return (MCA_MORE);
 406                                 }
 407                                 /*
 408                                  * Add char to cmd buffer and try to match
 409                                  * the option name.
 410                                  */
 411                                 if (cmd_char(c) == CC_QUIT)
 412                                         return (MCA_DONE);
 413                                 p = get_cmdbuf();
 414                                 lc = ASCII_IS_LOWER(p[0]);
 415                                 o = findopt_name(&p, &oname, NULL);
 416                                 if (o != NULL)
 417                                 {
 418                                         /*
 419                                          * Got a match.
 420                                          * Remember the option letter and
 421                                          * display the full option name.
 422                                          */
 423                                         optchar = o->oletter;
 424                                         if (!lc && ASCII_IS_LOWER(optchar))
 425                                                 optchar = ASCII_TO_UPPER(optchar);
 426                                         cmd_reset();
 427                                         mca_opt_toggle();
 428                                         for (p = oname;  *p != '\0';  p++)
 429                                         {
 430                                                 c = *p;
 431                                                 if (!lc && ASCII_IS_LOWER(c))
 432                                                         c = ASCII_TO_UPPER(c);
 433                                                 if (cmd_char(c) != CC_OK)
 434                                                         return (MCA_DONE);
 435                                         }
 436                                 }
 437                                 return (MCA_MORE);
 438                         }
 439                 } else
 440                 {
 441                         if (c == erase_char || c == erase2_char || c == kill_char)
 442                                 break;
 443                         if (optchar != '\0')
 444                                 /* We already have the option letter. */
 445                                 break;
 446                 }
 447
 448                 optchar = c;
 449                 if ((optflag & ~OPT_NO_PROMPT) != OPT_TOGGLE ||
 450                     single_char_option(c))
 451                 {
 452                         toggle_option(c, "", optflag);
 453                         return (MCA_DONE);
 454                 }
 455                 /*
 456                  * Display a prompt appropriate for the option letter.
 457                  */
 458                 if ((p = opt_prompt(c)) == NULL)
 459                 {
 460                         buf[0] = '-';
 461                         buf[1] = c;
 462                         buf[2] = '\0';
 463                         p = buf;
 464                 }
 465                 start_mca(A_OPT_TOGGLE, p, (void*)NULL, 0);
 466                 return (MCA_MORE);
 467
 468         case A_F_SEARCH:
 469         case A_B_SEARCH:
 470                 /*
 471                  * Special case for search commands.
 472                  * Certain characters as the first char of
 473                  * the pattern have special meaning:
 474                  *      !  Toggle the NO_MATCH flag
 475                  *      *  Toggle the PAST_EOF flag
 476                  *      @  Toggle the FIRST_FILE flag
 477                  */
 478                 if (len_cmdbuf() > 0)
 479                         /*
 480                          * Only works for the first char of the pattern.
 481                          */
 482                         break;
 483
 484                 flag = 0;
 485                 switch (c)
 486                 {
 487                 case CONTROL('E'): /* ignore END of file */
 488                 case '*':
 489                         flag = SRCH_PAST_EOF;
 490                         break;
 491                 case CONTROL('F'): /* FIRST file */
 492                 case '@':
 493                         flag = SRCH_FIRST_FILE;
 494                         break;
 495                 case CONTROL('K'): /* KEEP position */
 496                         flag = SRCH_NO_MOVE;
 497                         break;
 498                 case CONTROL('R'): /* Don't use REGULAR EXPRESSIONS */
 499                         flag = SRCH_NO_REGEX;
 500                         break;
 501                 case CONTROL('N'): /* NOT match */
 502                 case '!':
 503                         flag = SRCH_NO_MATCH;
 504                         break;
 505                 }
 506                 if (flag != 0)
 507                 {
 508                         search_type ^= flag;
 509                         mca_search();
 510                         return (MCA_MORE);
 511                 }
 512                 break;
 513         }
 514
 515         /*
 516          * Any other multicharacter command
 517          * is terminated by a newline.
 518          */
 519         if (c == '\n' || c == '\r')
 520         {
 521                 /*
 522                  * Execute the command.
 523                  */
 524                 exec_mca();
 525                 return (MCA_DONE);
 526         }
 527
 528         /*
 529          * Append the char to the command buffer.
 530          */
 531         if (cmd_char(c) == CC_QUIT)
 532                 /*
 533                  * Abort the multi-char command.
 534                  */
 535                 return (MCA_DONE);
 536
 537         if ((mca == A_F_BRACKET || mca == A_B_BRACKET) && len_cmdbuf() >= 2)
 538         {
 539                 /*
 540                  * Special case for the bracket-matching commands.
 541                  * Execute the command after getting exactly two
 542                  * characters from the user.
 543                  */
 544                 exec_mca();
 545                 return (MCA_DONE);
 546         }
 547
 548         /*
 549          * Need another character.
 550          */
 551         return (MCA_MORE);
 552 }
 553
 554 /*
 555  * Discard any buffered file data.
 556  */
 557         static void
 558 clear_buffers()
 559 {
 560         if (!(ch_getflags() & CH_CANSEEK))
 561                 return;
 562         ch_flush();
 563         clr_linenum();
 564 #if HILITE_SEARCH
 565         clr_hilite();
 566 #endif
 567 }
 568
 569 /*
 570  * Make sure the screen is displayed.
 571  */
 572         static void
 573 make_display()
 574 {
 575         /*
 576          * If nothing is displayed yet, display starting from initial_scrpos.
 577          */
 578         if (empty_screen())
 579         {
 580                 if (initial_scrpos.pos == NULL_POSITION)
 581                         /*
 582                          * {{ Maybe this should be:
 583                          *    jump_loc(ch_zero(), jump_sline);
 584                          *    but this behavior seems rather unexpected
 585                          *    on the first screen. }}
 586                          */
 587                         jump_loc(ch_zero(), 1);
 588                 else
 589                         jump_loc(initial_scrpos.pos, initial_scrpos.ln);
 590         } else if (screen_trashed)
 591         {
 592                 int save_top_scroll = top_scroll;
 593                 int save_ignore_eoi = ignore_eoi;
 594                 top_scroll = 1;
 595                 ignore_eoi = 0;
 596                 if (screen_trashed == 2)
 597                 {
 598                         /* Special case used by ignore_eoi: re-open the input file
 599                          * and jump to the end of the file. */
 600                         reopen_curr_ifile();
 601                         jump_forw();
 602                 }
 603                 repaint();
 604                 top_scroll = save_top_scroll;
 605                 ignore_eoi = save_ignore_eoi;
 606         }
 607 }
 608
 609 /*
 610  * Display the appropriate prompt.
 611  */
 612         static void
 613 prompt()
 614 {
 615         register char *p;
 616
 617         if (ungotp != NULL && ungotp > ungot)
 618         {
 619                 /*
 620                  * No prompt necessary if commands are from
 621                  * ungotten chars rather than from the user.
 622                  */
 623                 return;
 624         }
 625
 626         /*
 627          * Make sure the screen is displayed.
 628          */
 629         make_display();
 630         bottompos = position(BOTTOM_PLUS_ONE);
 631
 632         /*
 633          * If we've hit EOF on the last file, and the -E flag is set
 634          * (or -F is set and this is the first prompt), then quit.
 635          * {{ Relying on "first prompt" to detect a single-screen file
 636          * fails if +G is used, for example. }}
 637          */
 638         if ((get_quit_at_eof() == OPT_ONPLUS || quit_if_one_screen) &&
 639             hit_eof && !(ch_getflags() & CH_HELPFILE) &&
 640             next_ifile(curr_ifile) == NULL_IFILE)
 641                 quit(QUIT_OK);
 642         quit_if_one_screen = FALSE;
 643 #if 0 /* This doesn't work well because some "te"s clear the screen. */
 644         /*
 645          * If the -e flag is set and we've hit EOF on the last file,
 646          * and the file is squished (shorter than the screen), quit.
 647          */
 648         if (get_quit_at_eof() && squished &&
 649             next_ifile(curr_ifile) == NULL_IFILE)
 650                 quit(QUIT_OK);
 651 #endif
 652
 653 #if MSDOS_COMPILER==WIN32C
 654         /*
 655          * In Win32, display the file name in the window title.
 656          */
 657         if (!(ch_getflags() & CH_HELPFILE))
 658                 SetConsoleTitle(pr_expand("Less?f - %f.", 0));
 659 #endif
 660         /*
 661          * Select the proper prompt and display it.
 662          */
 663         /*
 664          * If the previous action was a forward movement,
 665          * don't clear the bottom line of the display;
 666          * just print the prompt since the forward movement guarantees
 667          * that we're in the right position to display the prompt.
 668          * Clearing the line could cause a problem: for example, if the last
 669          * line displayed ended at the right screen edge without a newline,
 670          * then clearing would clear the last displayed line rather than
 671          * the prompt line.
 672          */
 673         if (!forw_prompt)
 674                 clear_bot();
 675         clear_cmd();
 676         forw_prompt = 0;
 677         p = pr_string();
 678         if (p == NULL || *p == '\0')
 679                 putchr(':');
 680         else
 681         {
 682                 at_enter(AT_STANDOUT);
 683                 putstr(p);
 684                 at_exit();
 685         }
 686         clear_eol();
 687 }
 688
 689 /*
 690  * Display the less version message.
 691  */
 692         public void
 693 dispversion()
 694 {
 695         PARG parg;
 696
 697         parg.p_string = version;
 698         error("less %s", &parg);
 699 }
 700
 701 /*
 702  * Get command character.
 703  * The character normally comes from the keyboard,
 704  * but may come from ungotten characters
 705  * (characters previously given to ungetcc or ungetsc).
 706  */
 707         public int
 708 getcc()
 709 {
 710         if (ungotp == NULL)
 711                 /*
 712                  * Normal case: no ungotten chars, so get one from the user.
 713                  */
 714                 return (getchr());
 715
 716         if (ungotp > ungot)
 717                 /*
 718                  * Return the next ungotten char.
 719                  */
 720                 return (*--ungotp);
 721
 722         /*
 723          * We have just run out of ungotten chars.
 724          */
 725         ungotp = NULL;
 726         if (len_cmdbuf() == 0 || !empty_screen())
 727                 return (getchr());
 728         /*
 729          * Command is incomplete, so try to complete it.
 730          */
 731         switch (mca)
 732         {
 733         case A_DIGIT:
 734                 /*
 735                  * We have a number but no command.  Treat as #g.
 736                  */
 737                 return ('g');
 738
 739         case A_F_SEARCH:
 740         case A_B_SEARCH:
 741                 /*
 742                  * We have "/string" but no newline.  Add the \n.
 743                  */
 744                 return ('\n');
 745
 746         default:
 747                 /*
 748                  * Some other incomplete command.  Let user complete it.
 749                  */
 750                 return (getchr());
 751         }
 752 }
 753
 754 /*
 755  * "Unget" a command character.
 756  * The next getcc() will return this character.
 757  */
 758         public void
 759 ungetcc(c)
 760         int c;
 761 {
 762         if (ungotp == NULL)
 763                 ungotp = ungot;
 764         if (ungotp >= ungot + sizeof(ungot))
 765         {
 766                 error("ungetcc overflow", NULL_PARG);
 767                 quit(QUIT_ERROR);
 768         }
 769         *ungotp++ = c;
 770 }
 771
 772 /*
 773  * Unget a whole string of command characters.
 774  * The next sequence of getcc()'s will return this string.
 775  */
 776         public void
 777 ungetsc(s)
 778         char *s;
 779 {
 780         register char *p;
 781
 782         for (p = s + strlen(s) - 1;  p >= s;  p--)
 783                 ungetcc(*p);
 784 }
 785
 786 /*
 787  * Search for a pattern, possibly in multiple files.
 788  * If SRCH_FIRST_FILE is set, begin searching at the first file.
 789  * If SRCH_PAST_EOF is set, continue the search thru multiple files.
 790  */
 791         static void
 792 multi_search(pattern, n)
 793         char *pattern;
 794         int n;
 795 {
 796         register int nomore;
 797         IFILE save_ifile;
 798         int changed_file;
 799
 800         changed_file = 0;
 801         save_ifile = save_curr_ifile();
 802
 803         if (search_type & SRCH_FIRST_FILE)
 804         {
 805                 /*
 806                  * Start at the first (or last) file
 807                  * in the command line list.
 808                  */
 809                 if (search_type & SRCH_FORW)
 810                         nomore = edit_first();
 811                 else
 812                         nomore = edit_last();
 813                 if (nomore)
 814                 {
 815                         unsave_ifile(save_ifile);
 816                         return;
 817                 }
 818                 changed_file = 1;
 819                 search_type &= ~SRCH_FIRST_FILE;
 820         }
 821
 822         for (;;)
 823         {
 824                 n = search(search_type, pattern, n);
 825                 /*
 826                  * The SRCH_NO_MOVE flag doesn't "stick": it gets cleared
 827                  * after being used once.  This allows "n" to work after
 828                  * using a /@@ search.
 829                  */
 830                 search_type &= ~SRCH_NO_MOVE;
 831                 if (n == 0)
 832                 {
 833                         /*
 834                          * Found it.
 835                          */
 836                         unsave_ifile(save_ifile);
 837                         return;
 838                 }
 839
 840                 if (n < 0)
 841                         /*
 842                          * Some kind of error in the search.
 843                          * Error message has been printed by search().
 844                          */
 845                         break;
 846
 847                 if ((search_type & SRCH_PAST_EOF) == 0)
 848                         /*
 849                          * We didn't find a match, but we're
 850                          * supposed to search only one file.
 851                          */
 852                         break;
 853                 /*
 854                  * Move on to the next file.
 855                  */
 856                 if (search_type & SRCH_FORW)
 857                         nomore = edit_next(1);
 858                 else
 859                         nomore = edit_prev(1);
 860                 if (nomore)
 861                         break;
 862                 changed_file = 1;
 863         }
 864
 865         /*
 866          * Didn't find it.
 867          * Print an error message if we haven't already.
 868          */
 869         if (n > 0)
 870                 error("Pattern not found", NULL_PARG);
 871
 872         if (changed_file)
 873         {
 874                 /*
 875                  * Restore the file we were originally viewing.
 876                  */
 877                 reedit_ifile(save_ifile);
 878         } else
 879         {
 880                 unsave_ifile(save_ifile);
 881         }
 882 }
 883
 884 /*
 885  * Main command processor.
 886  * Accept and execute commands until a quit command.
 887  */
 888         public void
 889 commands()
 890 {
 891         register int c;
 892         register int action;
 893         register char *cbuf;
 894         int newaction;
 895         int save_search_type;
 896         char *extra;
 897         char tbuf[2];
 898         PARG parg;
 899         IFILE old_ifile;
 900         IFILE new_ifile;
 901         char *tagfile;
 902
 903         search_type = SRCH_FORW;
 904         wscroll = (sc_height + 1) / 2;
 905         newaction = A_NOACTION;
 906
 907         for (;;)
 908         {
 909                 mca = 0;
 910                 cmd_accept();
 911                 number = 0;
 912                 optchar = '\0';
 913
 914                 /*
 915                  * See if any signals need processing.
 916                  */
 917                 if (sigs)
 918                 {
 919                         psignals();
 920                         if (quitting)
 921                                 quit(QUIT_SAVED_STATUS);
 922                 }
 923
 924                 /*
 925                  * See if window size changed, for systems that don't
 926                  * generate SIGWINCH.
 927                  */
 928                 check_winch();
 929
 930                 /*
 931                  * Display prompt and accept a character.
 932                  */
 933                 cmd_reset();
 934                 prompt();
 935                 if (sigs)
 936                         continue;
 937                 if (newaction == A_NOACTION)
 938                         c = getcc();
 939
 940         again:
 941                 if (sigs)
 942                         continue;
 943
 944                 if (newaction != A_NOACTION)
 945                 {
 946                         action = newaction;
 947                         newaction = A_NOACTION;
 948                 } else
 949                 {
 950                         /*
 951                          * If we are in a multicharacter command, call mca_char.
 952                          * Otherwise we call fcmd_decode to determine the
 953                          * action to be performed.
 954                          */
 955                         if (mca)
 956                                 switch (mca_char(c))
 957                                 {
 958                                 case MCA_MORE:
 959                                         /*
 960                                          * Need another character.
 961                                          */
 962                                         c = getcc();
 963                                         goto again;
 964                                 case MCA_DONE:
 965                                         /*
 966                                          * Command has been handled by mca_char.
 967                                          * Start clean with a prompt.
 968                                          */
 969                                         continue;
 970                                 case NO_MCA:
 971                                         /*
 972                                          * Not a multi-char command
 973                                          * (at least, not anymore).
 974                                          */
 975                                         break;
 976                                 }
 977
 978                         /*
 979                          * Decode the command character and decide what to do.
 980                          */
 981                         if (mca)
 982                         {
 983                                 /*
 984                                  * We're in a multichar command.
 985                                  * Add the character to the command buffer
 986                                  * and display it on the screen.
 987                                  * If the user backspaces past the start
 988                                  * of the line, abort the command.
 989                                  */
 990                                 if (cmd_char(c) == CC_QUIT || len_cmdbuf() == 0)
 991                                         continue;
 992                                 cbuf = get_cmdbuf();
 993                         } else
 994                         {
 995                                 /*
 996                                  * Don't use cmd_char if we're starting fresh
 997                                  * at the beginning of a command, because we
 998                                  * don't want to echo the command until we know
 999                                  * it is a multichar command.  We also don't
1000                                  * want erase_char/kill_char to be treated
1001                                  * as line editing characters.
1002                                  */
1003                                 tbuf[0] = c;
1004                                 tbuf[1] = '\0';
1005                                 cbuf = tbuf;
1006                         }
1007                         extra = NULL;
1008                         action = fcmd_decode(cbuf, &extra);
1009                         /*
1010                          * If an "extra" string was returned,
1011                          * process it as a string of command characters.
1012                          */
1013                         if (extra != NULL)
1014                                 ungetsc(extra);
1015                 }
1016                 /*
1017                  * Clear the cmdbuf string.
1018                  * (But not if we're in the prefix of a command,
1019                  * because the partial command string is kept there.)
1020                  */
1021                 if (action != A_PREFIX)
1022                         cmd_reset();
1023
1024                 switch (action)
1025                 {
1026                 case A_DIGIT:
1027                         /*
1028                          * First digit of a number.
1029                          */
1030                         start_mca(A_DIGIT, ":", (void*)NULL, CF_QUIT_ON_ERASE);
1031                         goto again;
1032
1033                 case A_F_WINDOW:
1034                         /*
1035                          * Forward one window (and set the window size).
1036                          */
1037                         if (number > 0)
1038                                 swindow = (int) number;
1039                         /* FALLTHRU */
1040                 case A_F_SCREEN:
1041                         /*
1042                          * Forward one screen.
1043                          */
1044                         if (number <= 0)
1045                                 number = get_swindow();
1046                         cmd_exec();
1047                         if (show_attn)
1048                                 set_attnpos(bottompos);
1049                         forward((int) number, 0, 1);
1050                         break;
1051
1052                 case A_B_WINDOW:
1053                         /*
1054                          * Backward one window (and set the window size).
1055                          */
1056                         if (number > 0)
1057                                 swindow = (int) number;
1058                         /* FALLTHRU */
1059                 case A_B_SCREEN:
1060                         /*
1061                          * Backward one screen.
1062                          */
1063                         if (number <= 0)
1064                                 number = get_swindow();
1065                         cmd_exec();
1066                         backward((int) number, 0, 1);
1067                         break;
1068
1069                 case A_F_LINE:
1070                         /*
1071                          * Forward N (default 1) line.
1072                          */
1073                         if (number <= 0)
1074                                 number = 1;
1075                         cmd_exec();
1076                         if (show_attn == OPT_ONPLUS && number > 1)
1077                                 set_attnpos(bottompos);
1078                         forward((int) number, 0, 0);
1079                         break;
1080
1081                 case A_B_LINE:
1082                         /*
1083                          * Backward N (default 1) line.
1084                          */
1085                         if (number <= 0)
1086                                 number = 1;
1087                         cmd_exec();
1088                         backward((int) number, 0, 0);
1089                         break;
1090
1091                 case A_FF_LINE:
1092                         /*
1093                          * Force forward N (default 1) line.
1094                          */
1095                         if (number <= 0)
1096                                 number = 1;
1097                         cmd_exec();
1098                         if (show_attn == OPT_ONPLUS && number > 1)
1099                                 set_attnpos(bottompos);
1100                         forward((int) number, 1, 0);
1101                         break;
1102
1103                 case A_BF_LINE:
1104                         /*
1105                          * Force backward N (default 1) line.
1106                          */
1107                         if (number <= 0)
1108                                 number = 1;
1109                         cmd_exec();
1110                         backward((int) number, 1, 0);
1111                         break;
1112
1113                 case A_FF_SCREEN:
1114                         /*
1115                          * Force forward one screen.
1116                          */
1117                         if (number <= 0)
1118                                 number = get_swindow();
1119                         cmd_exec();
1120                         if (show_attn == OPT_ONPLUS)
1121                                 set_attnpos(bottompos);
1122                         forward((int) number, 1, 0);
1123                         break;
1124
1125                 case A_F_FOREVER:
1126                         /*
1127                          * Forward forever, ignoring EOF.
1128                          */
1129                         if (ch_getflags() & CH_HELPFILE)
1130                                 break;
1131                         cmd_exec();
1132                         jump_forw();
1133                         ignore_eoi = 1;
1134                         hit_eof = 0;
1135                         while (!sigs)
1136                         {
1137                                 make_display();
1138                                 forward(1, 0, 0);
1139                         }
1140                         ignore_eoi = 0;
1141                         /*
1142                          * This gets us back in "F mode" after processing
1143                          * a non-abort signal (e.g. window-change).
1144                          */
1145                         if (sigs && !ABORT_SIGS())
1146                                 newaction = A_F_FOREVER;
1147                         break;
1148
1149                 case A_F_SCROLL:
1150                         /*
1151                          * Forward N lines
1152                          * (default same as last 'd' or 'u' command).
1153                          */
1154                         if (number > 0)
1155                                 wscroll = (int) number;
1156                         cmd_exec();
1157                         if (show_attn == OPT_ONPLUS)
1158                                 set_attnpos(bottompos);
1159                         forward(wscroll, 0, 0);
1160                         break;
1161
1162                 case A_B_SCROLL:
1163                         /*
1164                          * Forward N lines
1165                          * (default same as last 'd' or 'u' command).
1166                          */
1167                         if (number > 0)
1168                                 wscroll = (int) number;
1169                         cmd_exec();
1170                         backward(wscroll, 0, 0);
1171                         break;
1172
1173                 case A_FREPAINT:
1174                         /*
1175                          * Flush buffers, then repaint screen.
1176                          * Don't flush the buffers on a pipe!
1177                          */
1178                         clear_buffers();
1179                         /* FALLTHRU */
1180                 case A_REPAINT:
1181                         /*
1182                          * Repaint screen.
1183                          */
1184                         cmd_exec();
1185                         repaint();
1186                         break;
1187
1188                 case A_GOLINE:
1189                         /*
1190                          * Go to line N, default beginning of file.
1191                          */
1192                         if (number <= 0)
1193                                 number = 1;
1194                         cmd_exec();
1195                         jump_back(number);
1196                         break;
1197
1198                 case A_PERCENT:
1199                         /*
1200                          * Go to a specified percentage into the file.
1201                          */
1202                         if (number < 0)
1203                         {
1204                                 number = 0;
1205                                 fraction = 0;
1206                         }
1207                         if (number > 100)
1208                         {
1209                                 number = 100;
1210                                 fraction = 0;
1211                         }
1212                         cmd_exec();
1213                         jump_percent((int) number, fraction);
1214                         break;
1215
1216                 case A_GOEND:
1217                         /*
1218                          * Go to line N, default end of file.
1219                          */
1220                         cmd_exec();
1221                         if (number <= 0)
1222                                 jump_forw();
1223                         else
1224                                 jump_back(number);
1225                         break;
1226
1227                 case A_GOPOS:
1228                         /*
1229                          * Go to a specified byte position in the file.
1230                          */
1231                         cmd_exec();
1232                         if (number < 0)
1233                                 number = 0;
1234                         jump_line_loc((POSITION) number, jump_sline);
1235                         break;
1236
1237                 case A_STAT:
1238                         /*
1239                          * Print file name, etc.
1240                          */
1241                         if (ch_getflags() & CH_HELPFILE)
1242                                 break;
1243                         cmd_exec();
1244                         parg.p_string = eq_message();
1245                         error("%s", &parg);
1246                         break;
1247
1248                 case A_VERSION:
1249                         /*
1250                          * Print version number, without the "@(#)".
1251                          */
1252                         cmd_exec();
1253                         dispversion();
1254                         break;
1255
1256                 case A_QUIT:
1257                         /*
1258                          * Exit.
1259                          */
1260                         if (curr_ifile != NULL_IFILE &&
1261                             ch_getflags() & CH_HELPFILE)
1262                         {
1263                                 /*
1264                                  * Quit while viewing the help file
1265                                  * just means return to viewing the
1266                                  * previous file.
1267                                  */
1268                                 hshift = save_hshift;
1269                                 if (edit_prev(1) == 0)
1270                                         break;
1271                         }
1272                         if (extra != NULL)
1273                                 quit(*extra);
1274                         quit(QUIT_OK);
1275                         break;
1276
1277 /*
1278  * Define abbreviation for a commonly used sequence below.
1279  */
1280 #define DO_SEARCH() \
1281                         if (number <= 0) number = 1;    \
1282                         mca_search();                   \
1283                         cmd_exec();                     \
1284                         multi_search((char *)NULL, (int) number);
1285
1286
1287                 case A_F_SEARCH:
1288                         /*
1289                          * Search forward for a pattern.
1290                          * Get the first char of the pattern.
1291                          */
1292                         search_type = SRCH_FORW;
1293                         if (number <= 0)
1294                                 number = 1;
1295                         mca_search();
1296                         c = getcc();
1297                         goto again;
1298
1299                 case A_B_SEARCH:
1300                         /*
1301                          * Search backward for a pattern.
1302                          * Get the first char of the pattern.
1303                          */
1304                         search_type = SRCH_BACK;
1305                         if (number <= 0)
1306                                 number = 1;
1307                         mca_search();
1308                         c = getcc();
1309                         goto again;
1310
1311                 case A_AGAIN_SEARCH:
1312                         /*
1313                          * Repeat previous search.
1314                          */
1315                         DO_SEARCH();
1316                         break;
1317
1318                 case A_T_AGAIN_SEARCH:
1319                         /*
1320                          * Repeat previous search, multiple files.
1321                          */
1322                         search_type |= SRCH_PAST_EOF;
1323                         DO_SEARCH();
1324                         break;
1325
1326                 case A_REVERSE_SEARCH:
1327                         /*
1328                          * Repeat previous search, in reverse direction.
1329                          */
1330                         save_search_type = search_type;
1331                         search_type = SRCH_REVERSE(search_type);
1332                         DO_SEARCH();
1333                         search_type = save_search_type;
1334                         break;
1335
1336                 case A_T_REVERSE_SEARCH:
1337                         /*
1338                          * Repeat previous search,
1339                          * multiple files in reverse direction.
1340                          */
1341                         save_search_type = search_type;
1342                         search_type = SRCH_REVERSE(search_type);
1343                         search_type |= SRCH_PAST_EOF;
1344                         DO_SEARCH();
1345                         search_type = save_search_type;
1346                         break;
1347
1348                 case A_UNDO_SEARCH:
1349                         undo_search();
1350                         break;
1351
1352                 case A_HELP:
1353                         /*
1354                          * Help.
1355                          */
1356                         if (ch_getflags() & CH_HELPFILE)
1357                                 break;
1358                         cmd_exec();
1359                         save_hshift = hshift;
1360                         hshift = 0;
1361                         (void) edit(FAKE_HELPFILE);
1362                         break;
1363
1364                 case A_EXAMINE:
1365 #if EXAMINE
1366                         /*
1367                          * Edit a new file.  Get the filename.
1368                          */
1369                         if (secure)
1370                         {
1371                                 error("Command not available", NULL_PARG);
1372                                 break;
1373                         }
1374                         start_mca(A_EXAMINE, "Examine: ", ml_examine, 0);
1375                         c = getcc();
1376                         goto again;
1377 #else
1378                         error("Command not available", NULL_PARG);
1379                         break;
1380 #endif
1381
1382                 case A_VISUAL:
1383                         /*
1384                          * Invoke an editor on the input file.
1385                          */
1386 #if EDITOR
1387                         if (secure)
1388                         {
1389                                 error("Command not available", NULL_PARG);
1390                                 break;
1391                         }
1392                         if (ch_getflags() & CH_HELPFILE)
1393                                 break;
1394                         if (strcmp(get_filename(curr_ifile), "-") == 0)
1395                         {
1396                                 error("Cannot edit standard input", NULL_PARG);
1397                                 break;
1398                         }
1399                         if (curr_altfilename != NULL)
1400                         {
1401                                 error("WARNING: This file was viewed via LESSOPEN",
1402                                         NULL_PARG);
1403                         }
1404                         start_mca(A_SHELL, "!", ml_shell, 0);
1405                         /*
1406                          * Expand the editor prototype string
1407                          * and pass it to the system to execute.
1408                          * (Make sure the screen is displayed so the
1409                          * expansion of "+%lm" works.)
1410                          */
1411                         make_display();
1412                         cmd_exec();
1413                         lsystem(pr_expand(editproto, 0), (char*)NULL);
1414                         break;
1415 #else
1416                         error("Command not available", NULL_PARG);
1417                         break;
1418 #endif
1419
1420                 case A_NEXT_FILE:
1421                         /*
1422                          * Examine next file.
1423                          */
1424 #if TAGS
1425                         if (ntags())
1426                         {
1427                                 error("No next file", NULL_PARG);
1428                                 break;
1429                         }
1430 #endif
1431                         if (number <= 0)
1432                                 number = 1;
1433                         if (edit_next((int) number))
1434                         {
1435                                 if (get_quit_at_eof() && hit_eof &&
1436                                     !(ch_getflags() & CH_HELPFILE))
1437                                         quit(QUIT_OK);
1438                                 parg.p_string = (number > 1) ? "(N-th) " : "";
1439                                 error("No %snext file", &parg);
1440                         }
1441                         break;
1442
1443                 case A_PREV_FILE:
1444                         /*
1445                          * Examine previous file.
1446                          */
1447 #if TAGS
1448                         if (ntags())
1449                         {
1450                                 error("No previous file", NULL_PARG);
1451                                 break;
1452                         }
1453 #endif
1454                         if (number <= 0)
1455                                 number = 1;
1456                         if (edit_prev((int) number))
1457                         {
1458                                 parg.p_string = (number > 1) ? "(N-th) " : "";
1459                                 error("No %sprevious file", &parg);
1460                         }
1461                         break;
1462
1463                 case A_NEXT_TAG:
1464 #if TAGS
1465                         if (number <= 0)
1466                                 number = 1;
1467                         tagfile = nexttag((int) number);
1468                         if (tagfile == NULL)
1469                         {
1470                                 error("No next tag", NULL_PARG);
1471                                 break;
1472                         }
1473                         if (edit(tagfile) == 0)
1474                         {
1475                                 POSITION pos = tagsearch();
1476                                 if (pos != NULL_POSITION)
1477                                         jump_loc(pos, jump_sline);
1478                         }
1479 #else
1480                         error("Command not available", NULL_PARG);
1481 #endif
1482                         break;
1483
1484                 case A_PREV_TAG:
1485 #if TAGS
1486                         if (number <= 0)
1487                                 number = 1;
1488                         tagfile = prevtag((int) number);
1489                         if (tagfile == NULL)
1490                         {
1491                                 error("No previous tag", NULL_PARG);
1492                                 break;
1493                         }
1494                         if (edit(tagfile) == 0)
1495                         {
1496                                 POSITION pos = tagsearch();
1497                                 if (pos != NULL_POSITION)
1498                                         jump_loc(pos, jump_sline);
1499                         }
1500 #else
1501                         error("Command not available", NULL_PARG);
1502 #endif
1503                         break;
1504
1505                 case A_INDEX_FILE:
1506                         /*
1507                          * Examine a particular file.
1508                          */
1509                         if (number <= 0)
1510                                 number = 1;
1511                         if (edit_index((int) number))
1512                                 error("No such file", NULL_PARG);
1513                         break;
1514
1515                 case A_REMOVE_FILE:
1516                         if (ch_getflags() & CH_HELPFILE)
1517                                 break;
1518                         old_ifile = curr_ifile;
1519                         new_ifile = getoff_ifile(curr_ifile);
1520                         if (new_ifile == NULL_IFILE)
1521                         {
1522                                 bell();
1523                                 break;
1524                         }
1525                         if (edit_ifile(new_ifile) != 0)
1526                         {
1527                                 reedit_ifile(old_ifile);
1528                                 break;
1529                         }
1530                         del_ifile(old_ifile);
1531                         break;
1532
1533                 case A_OPT_TOGGLE:
1534                         optflag = OPT_TOGGLE;
1535                         optgetname = FALSE;
1536                         mca_opt_toggle();
1537                         c = getcc();
1538                         goto again;
1539
1540                 case A_DISP_OPTION:
1541                         /*
1542                          * Report a flag setting.
1543                          */
1544                         optflag = OPT_NO_TOGGLE;
1545                         optgetname = FALSE;
1546                         mca_opt_toggle();
1547                         c = getcc();
1548                         goto again;
1549
1550                 case A_FIRSTCMD:
1551                         /*
1552                          * Set an initial command for new files.
1553                          */
1554                         start_mca(A_FIRSTCMD, "+", (void*)NULL, 0);
1555                         c = getcc();
1556                         goto again;
1557
1558                 case A_SHELL:
1559                         /*
1560                          * Shell escape.
1561                          */
1562 #if SHELL_ESCAPE
1563                         if (secure)
1564                         {
1565                                 error("Command not available", NULL_PARG);
1566                                 break;
1567                         }
1568                         start_mca(A_SHELL, "!", ml_shell, 0);
1569                         c = getcc();
1570                         goto again;
1571 #else
1572                         error("Command not available", NULL_PARG);
1573                         break;
1574 #endif
1575
1576                 case A_SETMARK:
1577                         /*
1578                          * Set a mark.
1579                          */
1580                         if (ch_getflags() & CH_HELPFILE)
1581                                 break;
1582                         start_mca(A_SETMARK, "mark: ", (void*)NULL, 0);
1583                         c = getcc();
1584                         if (c == erase_char || c == erase2_char ||
1585                             c == kill_char || c == '\n' || c == '\r')
1586                                 break;
1587                         setmark(c);
1588                         break;
1589
1590                 case A_GOMARK:
1591                         /*
1592                          * Go to a mark.
1593                          */
1594                         start_mca(A_GOMARK, "goto mark: ", (void*)NULL, 0);
1595                         c = getcc();
1596                         if (c == erase_char || c == erase2_char ||
1597                             c == kill_char || c == '\n' || c == '\r')
1598                                 break;
1599                         cmd_exec();
1600                         gomark(c);
1601                         break;
1602
1603                 case A_PIPE:
1604 #if PIPEC
1605                         if (secure)
1606                         {
1607                                 error("Command not available", NULL_PARG);
1608                                 break;
1609                         }
1610                         start_mca(A_PIPE, "|mark: ", (void*)NULL, 0);
1611                         c = getcc();
1612                         if (c == erase_char || c == erase2_char || c == kill_char)
1613                                 break;
1614                         if (c == '\n' || c == '\r')
1615                                 c = '.';
1616                         if (badmark(c))
1617                                 break;
1618                         pipec = c;
1619                         start_mca(A_PIPE, "!", ml_shell, 0);
1620                         c = getcc();
1621                         goto again;
1622 #else
1623                         error("Command not available", NULL_PARG);
1624                         break;
1625 #endif
1626
1627                 case A_B_BRACKET:
1628                 case A_F_BRACKET:
1629                         start_mca(action, "Brackets: ", (void*)NULL, 0);
1630                         c = getcc();
1631                         goto again;
1632
1633                 case A_LSHIFT:
1634                         if (number > 0)
1635                                 shift_count = number;
1636                         else
1637                                 number = (shift_count > 0) ?
1638                                         shift_count : sc_width / 2;
1639                         if (number > hshift)
1640                                 number = hshift;
1641                         hshift -= number;
1642                         screen_trashed = 1;
1643                         break;
1644
1645                 case A_RSHIFT:
1646                         if (number > 0)
1647                                 shift_count = number;
1648                         else
1649                                 number = (shift_count > 0) ?
1650                                         shift_count : sc_width / 2;
1651                         hshift += number;
1652                         screen_trashed = 1;
1653                         break;
1654
1655                 case A_PREFIX:
1656                         /*
1657                          * The command is incomplete (more chars are needed).
1658                          * Display the current char, so the user knows
1659                          * what's going on, and get another character.
1660                          */
1661                         if (mca != A_PREFIX)
1662                         {
1663                                 cmd_reset();
1664                                 start_mca(A_PREFIX, " ", (void*)NULL,
1665                                         CF_QUIT_ON_ERASE);
1666                                 (void) cmd_char(c);
1667                         }
1668                         c = getcc();
1669                         goto again;
1670
1671                 case A_NOACTION:
1672                         break;
1673
1674                 default:
1675                         bell();
1676                         break;
1677                 }
1678         }
1679 }