Function terminator

src/gpre/par.cpp:3300–3335

//

static bool terminator()
{

	// For C, changed keyword (KW_SEMICOLON) to MSC_match (KW_SEMICOLON) to eat a
	// semicolon if it is present so as to allow it to be there or not be there.
	// Bug#833.  mao 6/21/89

	// For C, right brace ("}") must also be a terminator.

	// Used reference here because MSC_match() can change tok_leyword.
	kwwords_t& key = gpreGlob.token_global.tok_keyword;

	switch (gpreGlob.sw_language)
	{
	case lang_c:
		if (MSC_match(KW_SEMI_COLON) || key == KW_ELSE || key == KW_ON_ERROR || key == KW_R_BRACE)
		{
			return true;
		}
		break;
	case lang_ada:
		if (MSC_match(KW_SEMI_COLON) || key == KW_ELSE || key == KW_ON_ERROR)
		{
			return true;
		}
		break;
	default:
		if (key == KW_SEMI_COLON || key == KW_ELSE || key == KW_ON_ERROR ||
			(gpreGlob.sw_language == lang_cobol && key == KW_DOT))
		{
			return true;
		}
	}

	return false;
}