view release on metacpan or  search on metacpan

Compiler/lexer.c  view on Meta::CPAN

case 64:
YY_RULE_SETUP
#line 138 "lexer.yy"
{ return L_ELLIPSIS; }
	YY_BREAK
case 65:
YY_RULE_SETUP
#line 140 "lexer.yy"
{ return *amd_yytext; }
	YY_BREAK
/* Strays */
case 66:
YY_RULE_SETUP
#line 144 "lexer.yy"
{ amd_yyerrorf("Stray \\ in program\n");  }
	YY_BREAK
case 67:
YY_RULE_SETUP
#line 145 "lexer.yy"
{ amd_yyerrorf("Illegal character (hex %d) '%c'\n",
										*amd_yytext, *amd_yytext); }
	YY_BREAK
case 68:
YY_RULE_SETUP
#line 147 "lexer.yy"
{ amd_yyerrorf("Unexpected non-ASCII %d\n", *amd_yytext); }
	YY_BREAK
case YY_STATE_EOF(INITIAL):
case YY_STATE_EOF(CODE):
case YY_STATE_EOF(BLANK):
case YY_STATE_EOF(STRING):
case YY_STATE_EOF(PPLINE):
case YY_STATE_EOF(CCOMMENT):
case YY_STATE_EOF(CPPCOMMENT):
#line 148 "lexer.yy"
{ return 0; }
	YY_BREAK
case 69:
YY_RULE_SETUP
#line 150 "lexer.yy"
ECHO;
	YY_BREAK
#line 1118 "lex.yy.c"

	case YY_END_OF_BUFFER:
		{
		/* Amount of text matched not including the EOB char. */
		int amd_yy_amount_of_matched_text = (int) (amd_yy_cp - amd_yytext_ptr) - 1;

		/* Undo the effects of YY_DO_BEFORE_ACTION. */
		*amd_yy_cp = amd_yy_hold_char;
		YY_RESTORE_YY_MORE_OFFSET

		if ( amd_yy_current_buffer->amd_yy_buffer_status == YY_BUFFER_NEW )
			{
			/* We're scanning a new file or input source.  It's
			 * possible that this happened because the user
			 * just pointed amd_yyin at a new source and called
			 * amd_yylex().  If so, then we have to assure
			 * consistency between amd_yy_current_buffer and our
			 * globals.  Here is the right place to do so, because
			 * this is the first action (other than possibly a
			 * back-up) that will match for the new input source.
			 */
			amd_yy_n_chars = amd_yy_current_buffer->amd_yy_n_chars;
			amd_yy_current_buffer->amd_yy_input_file = amd_yyin;
			amd_yy_current_buffer->amd_yy_buffer_status = YY_BUFFER_NORMAL;
			}

		/* Note that here we test for amd_yy_c_buf_p "<=" to the position
		 * of the first EOB in the buffer, since amd_yy_c_buf_p will
		 * already have been incremented past the NUL character
		 * (since all states make transitions on EOB to the
		 * end-of-buffer state).  Contrast this with the test
		 * in input().
		 */
		if ( amd_yy_c_buf_p <= &amd_yy_current_buffer->amd_yy_ch_buf[amd_yy_n_chars] )
			{ /* This was really a NUL. */
			amd_yy_state_type amd_yy_next_state;

			amd_yy_c_buf_p = amd_yytext_ptr + amd_yy_amount_of_matched_text;

			amd_yy_current_state = amd_yy_get_previous_state();

			/* Okay, we're now positioned to make the NUL
			 * transition.  We couldn't have
			 * amd_yy_get_previous_state() go ahead and do it
			 * for us because it doesn't know how to deal
			 * with the possibility of jamming (and we don't
			 * want to build jamming into it because then it
			 * will run more slowly).
			 */

			amd_yy_next_state = amd_yy_try_NUL_trans( amd_yy_current_state );

			amd_yy_bp = amd_yytext_ptr + YY_MORE_ADJ;

			if ( amd_yy_next_state )
				{
				/* Consume the NUL. */
				amd_yy_cp = ++amd_yy_c_buf_p;
				amd_yy_current_state = amd_yy_next_state;
				goto amd_yy_match;
				}

			else
				{
				amd_yy_cp = amd_yy_c_buf_p;
				goto amd_yy_find_action;
				}
			}

		else switch ( amd_yy_get_next_buffer() )
			{
			case EOB_ACT_END_OF_FILE:
				{
				amd_yy_did_buffer_switch_on_eof = 0;

				if ( amd_yywrap() )
					{
					/* Note: because we've taken care in