Function PAR_action

src/gpre/par.cpp:130–441

//

act* PAR_action(const TEXT* base_dir)
{
	gpre_sym* symbol = gpreGlob.token_global.tok_symbol;

	if (!symbol)
	{
		cur_statement = NULL;
		return NULL;
	}

	if (gpreGlob.token_global.tok_keyword >= KW_start_actions &&
		gpreGlob.token_global.tok_keyword <= KW_end_actions)
	{
		const kwwords_t keyword = gpreGlob.token_global.tok_keyword;
		if (! gpreGlob.sw_no_qli)
		{
			switch (keyword)
			{
			case KW_READY:
			case KW_START_TRANSACTION:
			case KW_FINISH:
			case KW_COMMIT:
			case KW_PREPARE:
			case KW_RELEASE_REQUESTS:
			case KW_ROLLBACK:
			case KW_FUNCTION:
			case KW_SAVE:
			case KW_SUB:
			case KW_SUBROUTINE:
				CPR_eol_token();
				break;

			case KW_EXTERNAL:
				set_external_flag();
				return NULL;

			case KW_FOR:
				// Get the next token as it is without upcasing
				gpreGlob.override_case = true;
				CPR_token();
				break;

			default:
				CPR_token();
			}
		}
		else
			CPR_token();

		try {

			if (! gpreGlob.sw_no_qli)
			{
				switch (keyword)
				{
				case KW_INT:
				case KW_LONG:
				case KW_SHORT: