Mercurial > emacs

comparison lib-src/etags.c @ 8180:c98f9acb71e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* etags.c (main): Don't barf on obsolete -t and -T switches. (main): Print an explicative message when a switch is not known. (takeprec): recognise the `character*(*) function' syntax.
author Francesco Potortì <pot@gnu.org>
date Fri, 08 Jul 1994 10:31:16 +0000
parents f91e2cf8770b
children 81a2817b99b2
comparison
equal deleted inserted replaced
8179:87749666b68b 8180:c98f9acb71e3
450 break; 450 break;
451 case 'f': /* for compatibility with old makefiles */ 451 case 'f': /* for compatibility with old makefiles */
452 case 'o': 452 case 'o':
453 if (tagfile) 453 if (tagfile)
454 { 454 {
455 fprintf (stderr, 455 fprintf(stderr,
456 "%s: -%c flag may only be given once\n", progname, opt); 456 "%s: -%c flag may only be given once.\n", progname, opt);
457 goto usage; 457 goto usage;
458 } 458 }
459 tagfile = optarg; 459 tagfile = optarg;
460 break; 460 break;
461 case 'S': 461 case 'S':
465 print_version (); 465 print_version ();
466 break; 466 break;
467 case 'H': 467 case 'H':
468 print_help (); 468 print_help ();
469 break; 469 break;
470 case 't':
471 typedefs++;
472 break;
473 case 'T':
474 typedefs++;
475 typedefs_and_cplusplus++;
476 break;
470 477
471 #if (!CTAGS) 478 #if (!CTAGS)
472 479
473 /* Etags options */ 480 /* Etags options */
474 case 'i': 481 case 'i':
478 #else /* CTAGS */ 485 #else /* CTAGS */
479 486
480 /* Ctags options. */ 487 /* Ctags options. */
481 case 'B': 488 case 'B':
482 searchar = '?'; 489 searchar = '?';
483 break;
484 case 't':
485 typedefs++;
486 break;
487 case 'T':
488 typedefs++;
489 typedefs_and_cplusplus++;
490 break; 490 break;
491 case 'u': 491 case 'u':
492 update++; 492 update++;
493 break; 493 break;
494 case 'v': 494 case 'v':
502 break; 502 break;
503 503
504 #endif /* CTAGS */ 504 #endif /* CTAGS */
505 505
506 default: 506 default:
507 fprintf (stderr,
508 "%s: -%c flag not recognised.\n", progname, opt);
507 goto usage; 509 goto usage;
508 } 510 }
509 } 511 }
510 512
511 if (optind == argc && nincluded_files == 0) 513 if (optind == argc && nincluded_files == 0)
2072 if (*dbp != '*') 2074 if (*dbp != '*')
2073 return; 2075 return;
2074 dbp++; 2076 dbp++;
2075 while (isspace (*dbp)) 2077 while (isspace (*dbp))
2076 dbp++; 2078 dbp++;
2079 if (tail ("(*)"))
2080 return;
2077 if (!isdigit (*dbp)) 2081 if (!isdigit (*dbp))
2078 { 2082 {
2079 --dbp; /* force failure */ 2083 --dbp; /* force failure */
2080 return; 2084 return;
2081 } 2085 }