view release on metacpan or  search on metacpan

Compiler/lexer.c  view on Meta::CPAN

	b->amd_yy_input_file = 0;
	b->amd_yy_n_chars = b->amd_yy_buf_size;
	b->amd_yy_is_interactive = 0;
	b->amd_yy_at_bol = 1;
	b->amd_yy_fill_buffer = 0;
	b->amd_yy_buffer_status = YY_BUFFER_NEW;

	amd_yy_switch_to_buffer( b );

	return b;
	}
#endif


#ifndef YY_NO_SCAN_STRING
#ifdef YY_USE_PROTOS
YY_BUFFER_STATE amd_yy_scan_string( amd_yyconst char *amd_yy_str )
#else
YY_BUFFER_STATE amd_yy_scan_string( amd_yy_str )
amd_yyconst char *amd_yy_str;
#endif
	{
	int len;
	for ( len = 0; amd_yy_str[len]; ++len )
		;

	return amd_yy_scan_bytes( amd_yy_str, len );
	}
#endif


#ifndef YY_NO_SCAN_BYTES
#ifdef YY_USE_PROTOS
YY_BUFFER_STATE amd_yy_scan_bytes( amd_yyconst char *bytes, int len )
#else
YY_BUFFER_STATE amd_yy_scan_bytes( bytes, len )
amd_yyconst char *bytes;
int len;
#endif
	{
	YY_BUFFER_STATE b;
	char *buf;
	amd_yy_size_t n;
	int i;

	/* Get memory for full buffer, including space for trailing EOB's. */
	n = len + 2;
	buf = (char *) amd_yy_flex_alloc( n );
	if ( ! buf )
		YY_FATAL_ERROR( "out of dynamic memory in amd_yy_scan_bytes()" );

	for ( i = 0; i < len; ++i )
		buf[i] = bytes[i];

	buf[len] = buf[len+1] = YY_END_OF_BUFFER_CHAR;

	b = amd_yy_scan_buffer( buf, n );
	if ( ! b )
		YY_FATAL_ERROR( "bad buffer in amd_yy_scan_bytes()" );

	/* It's okay to grow etc. this buffer, and we should throw it
	 * away when we're done.
	 */
	b->amd_yy_is_our_buffer = 1;

	return b;
	}
#endif


#ifndef YY_NO_PUSH_STATE
#ifdef YY_USE_PROTOS
static void amd_yy_push_state( int new_state )
#else
static void amd_yy_push_state( new_state )
int new_state;
#endif
	{
	if ( amd_yy_start_stack_ptr >= amd_yy_start_stack_depth )
		{
		amd_yy_size_t new_size;

		amd_yy_start_stack_depth += YY_START_STACK_INCR;
		new_size = amd_yy_start_stack_depth * sizeof( int );

		if ( ! amd_yy_start_stack )
			amd_yy_start_stack = (int *) amd_yy_flex_alloc( new_size );

		else
			amd_yy_start_stack = (int *) amd_yy_flex_realloc(
					(void *) amd_yy_start_stack, new_size );

		if ( ! amd_yy_start_stack )
			YY_FATAL_ERROR(
			"out of memory expanding start-condition stack" );
		}

	amd_yy_start_stack[amd_yy_start_stack_ptr++] = YY_START;

	BEGIN(new_state);
	}
#endif


#ifndef YY_NO_POP_STATE
static void amd_yy_pop_state()
	{
	if ( --amd_yy_start_stack_ptr < 0 )
		YY_FATAL_ERROR( "start-condition stack underflow" );

	BEGIN(amd_yy_start_stack[amd_yy_start_stack_ptr]);
	}
#endif


#ifndef YY_NO_TOP_STATE
static int amd_yy_top_state()
	{
	return amd_yy_start_stack[amd_yy_start_stack_ptr - 1];
	}
#endif