855 static char	*dbp = lbuf;  variable
866 		dbp = lbuf;
867 		if (*dbp == '%') dbp++;		/* Ratfor escape to fortran */
868 		while (isspace(*dbp))
869 			dbp++;
870 		if (*dbp == 0)
872 		switch (*dbp |' ') {
892 				while (isspace(*dbp))
893 					dbp++;
894 				if (*dbp == 0)
902 		while (isspace(*dbp))
903 			dbp++;
904 		if (*dbp == 0)
906 		switch (*dbp|' ') {
935 	while (*cp && (*cp&~' ') == ((*(dbp+len))&~' '))
938 		dbp += len;
948 	while (isspace(*dbp))  in takeprec()
949 		dbp++;  in takeprec()
950 	if (*dbp != '*')  in takeprec()
952 	dbp++;  in takeprec()
953 	while (isspace(*dbp))  in takeprec()
954 		dbp++;  in takeprec()
955 	if (!isdigit(*dbp)) {  in takeprec()
956 		--dbp;		/* force failure */  in takeprec()
960 		dbp++;  in takeprec()
961 	while (isdigit(*dbp));  in takeprec()
974 	while (isspace(*dbp))  in getit()
975 		dbp++;  in getit()
976 	if (*dbp == 0 || !isalpha(*dbp) || !isascii(*dbp))  in getit()
978 	for (cp = dbp+1; *cp && (isalpha(*cp) || isdigit(*cp)); cp++)  in getit()
982 	(void) strcpy(nambuf, dbp);  in getit()
1049 		dbp = lbuf;
1050 		if (dbp[0] == '(' &&
1051 		    (dbp[1] == 'D' || dbp[1] == 'd') &&
1052 		    (dbp[2] == 'E' || dbp[2] == 'e') &&
1053 		    (dbp[3] == 'F' || dbp[3] == 'f')) {
1054 			dbp += 4;
1055 			if (striccmp(dbp, "method") == 0 ||
1056 			    striccmp(dbp, "wrapper") == 0 ||
1057 			    striccmp(dbp, "whopper") == 0)
1061 			while (!isspace(*dbp))
1062 				dbp++;
1063 			while (isspace(*dbp))
1064 				dbp++;
1081 	if (*dbp == 0)
1084 		if ((cp = index(dbp, ')')) == NULL)
1086 		while (cp >= dbp && *cp != ':')
1088 		if (cp < dbp)
1090 		dbp = cp;
1094 		for (cp = dbp + 1; *cp && *cp != '(' && *cp != ' '; cp++)
1098 	(void) strcpy(nambuf, dbp);