1647 |
{ |
{ |
1648 |
struct obstack tokendefs; |
struct obstack tokendefs; |
1649 |
bucket *bp; |
bucket *bp; |
|
char *cp, *symbol; |
|
|
char c; |
|
1650 |
obstack_init (&tokendefs); |
obstack_init (&tokendefs); |
1651 |
|
|
1652 |
for (bp = firstsymbol; bp; bp = bp->next) |
for (bp = firstsymbol; bp; bp = bp->next) |
1653 |
{ |
{ |
1654 |
symbol = bp->tag; /* get symbol */ |
char *symbol = bp->tag; /* get symbol */ |
1655 |
|
|
1656 |
if (bp->value >= ntokens) |
if (bp->value >= ntokens) |
1657 |
continue; |
continue; |
1671 |
} |
} |
1672 |
|
|
1673 |
/* Don't #define nonliteral tokens whose names contain periods. */ |
/* Don't #define nonliteral tokens whose names contain periods. */ |
1674 |
cp = symbol; |
if (strchr (symbol, '.')) |
|
while ((c = *cp++) && c != '.'); |
|
|
if (c != '\0') |
|
1675 |
continue; |
continue; |
1676 |
|
|
1677 |
obstack_fgrow2 (&tokendefs, "# define %s\t%d\n", |
obstack_fgrow2 (&tokendefs, "# define %s\t%d\n", |