🚀 go-pugleaf

In article <1992Dec16.212441.26891@chpc.utexas.edu> rshouman@chpc.utexas.edu (Radey Shouman) writes:
>I've modified etags.c, from GNU emacs 18.58, to find tags for fortran
>"entry" and "common" statements.  A context diff giving the
>necessary modifications follows.

Very sorry to follow up my own post, but I should make a correction to it:
the version of etags.c that I used is from 18.57, not 18.58; I diffed it
against the 18.58 etags.c, including some modifications other than those
I made.  A set of diffs including, I hope, only changes I have made follow:

*** etags.c	Wed Sep  2 15:02:54 1992
--- dist/etags.c	Wed Dec 16 17:35:18 1992
***************
*** 1,6 ****
- /* Modified 2 September, 1990 to recognize fortran "entry" statement and
-    "common" statement --ars */
- 
  /* Tags file maker to go with GNUmacs
     Copyright (C) 1984, 1987, 1988 Free Software Foundation, Inc. and Ken Arnold
  
--- 1,3 ----
***************
*** 1077,1090 ****
  	continue;
        switch (*dbp|' ')
  	{
- 	case 'c':
- 	  if (tail("common"))
- 	    getit();
- 	  continue;
- 	case 'e':
- 	  if (tail("entry"))
- 	    getit();
- 	  continue;
  	case 'f':
  	  if (tail("function"))
  	    getit();
--- 1074,1079 ----
***************
*** 1147,1153 ****
    char c;
    char nambuf[BUFSIZ];
  
!   while (isspace(*dbp) || *dbp == '/')
      dbp++;
    if (*dbp == 0 || !isalpha(*dbp))
      return;
--- 1136,1142 ----
    char c;
    char nambuf[BUFSIZ];
  
!   while (isspace(*dbp))
      dbp++;
    if (*dbp == 0 || !isalpha(*dbp))
      return;

-- 
Radey Shouman					rshouman@chpc.utexas.edu