1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
/* to be appended to end of ytab.c so it knows about yytoks */
/******************************************************************
*
* function: tokname()
*
* purpose: find name of given token number. Uses yytoks[]
* list used by debugging.
*
*/
char *tokname(toknum)
int toknum;
{
char *name;
#ifndef NO_YACC_DEBUG
#ifdef YYBISON
name = yytname[YYTRANSLATE(toknum)];
return name;
#else
int yy_i;
for ( yy_i = 0; yytoks[yy_i].t_val >= 0; yy_i++ )
if ( yytoks[yy_i].t_val == toknum )
return yytoks[yy_i].t_name;
/* unfound */
name = " ";
sprintf(name,"%4d (unnamed)",toknum);
return name;
#endif
#else
/* unfound */
name = " ";
sprintf(name,"%4d (unnamed)",toknum);
return name;
#endif
}
|
