Function act_set_names

src/gpre/sql.cpp:4263–4335

//

static act* act_set_names()
{
	if (gpreGlob.sw_auto)
		CPR_warn("SET NAMES requires -manual switch to gpre.");

	act* action = (act*) MSC_alloc(ACT_LEN);
	action->act_type = ACT_noop;

	if (MSC_match(KW_COLON))
	{
		// User is specifying a host variable or string as
		// the character set.  Make this the run-time set.

		TEXT* value = PAR_native_value(false, false);
		for (gpre_dbb* db = gpreGlob.isc_databases; db; db = db->dbb_next)
		{
			if (db->dbb_r_lc_ctype)
			{
				char buffer[ERROR_LENGTH];
				fb_utils::snprintf(buffer, sizeof(buffer),
						"Supersedes runtime character set for database %s",
						db->dbb_filename ? db->dbb_filename : db->dbb_name->sym_string);
				CPR_warn(buffer);
			}
			db->dbb_r_lc_ctype = value;
		}
	}
	else if (gpreGlob.token_global.tok_type == tok_ident)
	{
		// User is specifying the name of a character set
		// Make this the compile time character set

		TEXT* value = (TEXT*) MSC_alloc(gpreGlob.token_global.tok_length + 1);
		MSC_copy(gpreGlob.token_global.tok_string, gpreGlob.token_global.tok_length, value);
		value[gpreGlob.token_global.tok_length] = '\0';

		// Due to the ambiguities involved in having modules expressed
		// in multiple compile-time character sets, we disallow it.

		if (gpreGlob.module_lc_ctype && strcmp(gpreGlob.module_lc_ctype, value) != 0)
			PAR_error("Duplicate declaration of module CHARACTER SET");

		gpreGlob.module_lc_ctype = value;
		for (gpre_dbb* db = gpreGlob.isc_databases; db; db = db->dbb_next)
		{
			if (db->dbb_c_lc_ctype)
			{
				char buffer[ERROR_LENGTH];
				fb_utils::snprintf(buffer, sizeof(buffer),
					"Supersedes character set for database %s",
					db->dbb_filename ? db->dbb_filename : db->dbb_name->sym_string);
				CPR_warn(buffer);
			}

			db->dbb_c_lc_ctype = value;
			if (!(db->dbb_flags & DBB_sqlca))
			{
				// Verify that character set name is valid,