bc/bc/bc.c

551 #define YYBACKUP(token, value) \
554     { yychar = (token), yylval = (value);			\
710   int yychar1 = 0;		/*  lookahead token as an internal (translated) token number */
754   yychar = YYEMPTY;		/* Cause a token to be read.  */
867 /* Read a lookahead token if we need one and don't already have one.  */
870   /* First try to decide what to do without reference to lookahead token.  */
876   /* Not known => get a lookahead token if don't already have one.  */
879      or a valid token in external form.  */
885 	fprintf(stderr, "Reading a token: ");
890   /* Convert token to internal form (in yychar1) for indexing tables with */
909 	  fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
911 	     of a token, for further debugging info.  */
926   /* yyn is what to do for this token type in this state.
946   /* Shift the lookahead token.  */
950     fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
953   /* Discard the token being shifted unless it is eof.  */
1776       /* if just tried and failed to reuse lookahead token after an error, discard it.  */
1784 	fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
1790   /* Else will try to reuse lookahead token
1791      after shifting the error token.  */
1793   yyerrstatus = 3;		/* Each real token shifted decrements this */
1797 yyerrdefault:  /* current state does not do anything special for the error token. */
1802   yyn = yydefact[yystate];  /* If its default is to accept any token, ok.  Otherwise pop it.*/
1806 yyerrpop:   /* pop the current state because it cannot handle the error token */
1852     fprintf(stderr, "Shifting error token, ");