arnold@ucsfcgl.UUCP (Ken Arnold%UCB) (11/09/84)
This is an editor script which will take the version of ctags I posted
and make it recognize (defmethod, (defwhopper, and (defwrapper syntax.
It also fixes a bug which was introduced which caused it never to
recognize lisp files as such (well, it WAS an undocumented feature).
If my version of ctags (which recognizes YACC and lex) hasn't gotten
to your site, save this for when it does.
Ken Arnold
--------------------cut here--------------------
931,932c
if (!isspace(c) && c != '\r') {
.
918a
* striccmp:
* Compare two strings over the length of the second, ignoring
* case distinctions. If they are the same, return 0. If they
* are different, return the difference of the first two different
* characters. It is assumed that the pattern (second string) is
* completely lower case.
*/
striccmp(str, pat)
register char *str, *pat;
{
register int c1;
while (*pat) {
if (isupper(*str))
c1 = tolower(*str);
else
c1 = *str;
if (c1 != *pat)
return c1 - *pat;
pat++;
str++;
}
return 0;
}
/*
.
907,909c
if (*dbp == 0)
return;
if (special) {
if ((cp = index(dbp, ')')) == NULL)
return;
while (cp >= dbp && *cp != ':')
cp--;
if (cp < dbp)
return;
dbp = cp;
while (*cp && *cp != ')' && *cp != ' ')
cp++;
}
else
for (cp = dbp + 1; *cp && *cp != '(' && *cp != ' '; cp++)
continue;
.
905c
for (cp = lbuf; *cp; cp++)
continue;
.
901,903c
register char *cp;
register char c;
char nambuf[BUFSIZ];
.
899c
L_getit(special)
int special;
.
897a
}
.
888,895c
if (dbp[0] == '(' &&
(dbp[1] == 'D' || dbp[1] == 'd') &&
(dbp[2] == 'E' || dbp[2] == 'e') &&
(dbp[3] == 'F' || dbp[3] == 'f')) {
dbp += 4;
if (striccmp(dbp, "method") == 0 ||
striccmp(dbp, "wrapper") == 0 ||
striccmp(dbp, "whopper") == 0)
special = TRUE;
else
special = FALSE;
while (!isspace(*dbp))
dbp++;
while (isspace(*dbp))
dbp++;
L_getit(special);
.
883a
register int special;
.
217c
if (index(";([", first_char()) != NULL) { /* lisp */
.
0a
/* $Header */
.