596 |
switch (c) |
switch (c) |
597 |
{ |
{ |
598 |
case '%': |
case '%': |
599 |
|
obstack_1grow (&token_obstack, '\0'); |
600 |
token_buffer = obstack_finish (&token_obstack); |
token_buffer = obstack_finish (&token_obstack); |
601 |
return tok_two_percents; |
return tok_two_percents; |
602 |
|
|
603 |
case '{': |
case '{': |
604 |
|
obstack_1grow (&token_obstack, '\0'); |
605 |
token_buffer = obstack_finish (&token_obstack); |
token_buffer = obstack_finish (&token_obstack); |
606 |
return tok_percent_left_curly; |
return tok_percent_left_curly; |
607 |
|
|
609 |
very ancient Yacc versions. The paper of Johnson mentions |
very ancient Yacc versions. The paper of Johnson mentions |
610 |
them (as ancient :). */ |
them (as ancient :). */ |
611 |
case '<': |
case '<': |
612 |
|
obstack_1grow (&token_obstack, '\0'); |
613 |
token_buffer = obstack_finish (&token_obstack); |
token_buffer = obstack_finish (&token_obstack); |
614 |
return tok_left; |
return tok_left; |
615 |
|
|
616 |
case '>': |
case '>': |
617 |
|
obstack_1grow (&token_obstack, '\0'); |
618 |
token_buffer = obstack_finish (&token_obstack); |
token_buffer = obstack_finish (&token_obstack); |
619 |
return tok_right; |
return tok_right; |
620 |
|
|
621 |
case '2': |
case '2': |
622 |
|
obstack_1grow (&token_obstack, '\0'); |
623 |
token_buffer = obstack_finish (&token_obstack); |
token_buffer = obstack_finish (&token_obstack); |
624 |
return tok_nonassoc; |
return tok_nonassoc; |
625 |
|
|
626 |
case '0': |
case '0': |
627 |
|
obstack_1grow (&token_obstack, '\0'); |
628 |
token_buffer = obstack_finish (&token_obstack); |
token_buffer = obstack_finish (&token_obstack); |
629 |
return tok_token; |
return tok_token; |
630 |
|
|
631 |
case '=': |
case '=': |
632 |
|
obstack_1grow (&token_obstack, '\0'); |
633 |
token_buffer = obstack_finish (&token_obstack); |
token_buffer = obstack_finish (&token_obstack); |
634 |
return tok_prec; |
return tok_prec; |
635 |
} |
} |
636 |
|
|
637 |
if (!isalpha (c)) |
if (!isalpha (c)) |
638 |
{ |
{ |
639 |
|
obstack_1grow (&token_obstack, '\0'); |
640 |
token_buffer = obstack_finish (&token_obstack); |
token_buffer = obstack_finish (&token_obstack); |
641 |
return tok_illegal; |
return tok_illegal; |
642 |
} |
} |