🚀 go-pugleaf

BUG:      etags doesn't handle DEC-20 MACRO or MIDAS code
VERSION:  Emacs dist 18.55.22
FIX:      diffs follow

*** etags.c	Thu May 24 17:30:50 1990
--- etags.orig	Fri May 12 19:08:05 1989
***************
*** 505,518 ****
        fclose(inf);
        return;
      }
-   /* .mac or .mid for dec-20 assembler code */
-   if (cp && (!strcmp (cp + 1, "mac") ||
- 	     !strcmp (cp + 1, "mid")))
-     {
-       M_funcs(inf);
-       fclose(inf);
-       return;
-     }
    /* .l or .el or .lisp (or .cl or .clisp or ...) implies lisp source code */
    if (cp && (!strcmp (cp + 1, "l") ||
  	     !strcmp (cp + 1, "el") ||
--- 505,510 ----
***************
*** 1206,1256 ****
    if (*dbp == 0 || !isalpha(*dbp))
      return;
    for (cp = dbp+1; *cp && (isalpha(*cp) || isdigit(*cp)); cp++)
-     continue;
-   c = cp[0];
-   cp[0] = 0;
-   strcpy(nambuf, dbp);
-   cp[0] = c;
-   pfnote(nambuf, TRUE, lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
-   pfcnt++;
- }
- 
- /*
-  * MACRO/MIDAS tag functions
-  * look for "label:" or "var=" at beginning of line
-  */
- 
- M_funcs (fi)
-      FILE *fi;
- {
-   lineno = 0;
-   charno = 0;
-   pfcnt = 0;
- 
-   while (!feof (fi))
-     {
-       lineno++;
-       linecharno = charno;
-       charno += readline (&lb, fi) + 1;
-       dbp = lb.buffer;
-       while (isalpha(*dbp) || isdigit(*dbp) || (*dbp == '.') || (*dbp == '$'))
- 	dbp++;
-       if ((*dbp == ':') || (*dbp == '='))
- 	{
- 	  dbp = lb.buffer;
- 	  M_getit();
- 	}
-     }
- }
- 
- M_getit()
- {
-   register char *cp;
-   char c;
-   char nambuf[BUFSIZ];
- 
-   if (*dbp == 0) return;
-   for (cp = dbp+1; *cp && *cp != ':' && *cp != '=' && *cp != ' '; cp++)
      continue;
    c = cp[0];
    cp[0] = 0;
--- 1198,1203 ----