| 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; |
