diff options
| author | Francesco Potortì | 1994-07-08 10:31:16 +0000 |
|---|---|---|
| committer | Francesco Potortì | 1994-07-08 10:31:16 +0000 |
| commit | 0c1fd2e3890fcfd8e68dac745065f0fc797f3532 (patch) | |
| tree | fb2f90185d43fa22ff63ab07298056fc0308c6e7 /lib-src | |
| parent | 642c364840fb39d6c5636efdcdacd6a812048b30 (diff) | |
| download | emacs-0c1fd2e3890fcfd8e68dac745065f0fc797f3532.tar.gz emacs-0c1fd2e3890fcfd8e68dac745065f0fc797f3532.zip | |
* 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.
Diffstat (limited to 'lib-src')
| -rw-r--r-- | lib-src/etags.c | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/lib-src/etags.c b/lib-src/etags.c index 6410c048931..e640fcdfeee 100644 --- a/lib-src/etags.c +++ b/lib-src/etags.c | |||
| @@ -452,8 +452,8 @@ main (argc, argv) | |||
| 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; |
| @@ -467,6 +467,13 @@ main (argc, argv) | |||
| 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 | ||
| @@ -481,13 +488,6 @@ main (argc, argv) | |||
| 481 | case 'B': | 488 | case 'B': |
| 482 | searchar = '?'; | 489 | searchar = '?'; |
| 483 | break; | 490 | break; |
| 484 | case 't': | ||
| 485 | typedefs++; | ||
| 486 | break; | ||
| 487 | case 'T': | ||
| 488 | typedefs++; | ||
| 489 | typedefs_and_cplusplus++; | ||
| 490 | break; | ||
| 491 | case 'u': | 491 | case 'u': |
| 492 | update++; | 492 | update++; |
| 493 | break; | 493 | break; |
| @@ -504,6 +504,8 @@ main (argc, argv) | |||
| 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 | } |
| @@ -2074,6 +2076,8 @@ takeprec () | |||
| 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 */ |