1 |
< |
/* Copyright (c) 1986 Regents of the University of California */ |
1 |
> |
/* Copyright (c) 1991 Regents of the University of California */ |
2 |
|
|
3 |
|
#ifndef lint |
4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
444 |
|
for (i = 0; i < MAXWORD && isid(lnext); i++, lnext = scan()) |
445 |
|
str[i] = lnext; |
446 |
|
str[i] = '\0'; |
447 |
+ |
while (isid(lnext)) /* skip rest of name */ |
448 |
+ |
lnext = scan(); |
449 |
|
|
450 |
|
return(str); |
451 |
|
} |
629 |
|
#endif |
630 |
|
|
631 |
|
#if defined(VARIABLE) || defined(FUNCTION) |
632 |
< |
if (isalpha(nextc)) { |
632 |
> |
if (isalpha(nextc) || nextc == CNTXMARK) { |
633 |
|
nam = getname(); |
634 |
|
#if defined(VARIABLE) && defined(FUNCTION) |
635 |
|
ep1 = NULL; |