Function act_d_section

src/gpre/sql.cpp:2156–2223

//

static act* act_d_section(act_t type)
{
	if (!MSC_match(KW_DECLARE))
		CPR_s_error("DECLARE SECTION");

	if (!MSC_match(KW_SECTION))
		CPR_s_error("SECTION");

	MSC_match(KW_SEMI_COLON);

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

	if (type == ACT_b_declare)
		gpreGlob.cur_routine = action; // Hmm, global var.

	if (!gpreGlob.isc_databases)
	{
		// allocate database block and link to db chain

		gpreGlob.isc_databases = (gpre_dbb*) MSC_alloc_permanent(DBB_LEN);

		// allocate symbol block

		gpre_sym* symbol = (gpre_sym*) MSC_alloc_permanent(SYM_LEN);

		// make it a database, specifically this one

		symbol->sym_type = SYM_database;
		symbol->sym_object = (gpre_ctx*) gpreGlob.isc_databases;
		symbol->sym_string = gpreGlob.database_name;

		// database block points to the symbol block

		gpreGlob.isc_databases->dbb_name = symbol;
		gpreGlob.isc_databases->dbb_filename = NULL;
		gpreGlob.isc_databases->dbb_flags = DBB_sqlca;
		gpreGlob.isc_databases->dbb_c_lc_ctype = gpreGlob.module_lc_ctype;
		if (gpreGlob.sw_external)
			gpreGlob.isc_databases->dbb_scope = DBB_EXTERN;
	}
	else
	{
		// Load up the symbol (hash) table with relation names from this database

		MET_load_hash_table(gpreGlob.isc_databases);
	}

	HSH_insert(gpreGlob.isc_databases->dbb_name);

	if (MSC_match(KW_SQL))
	{
		if (!MSC_match(KW_NAMES))
			CPR_s_error("NAMES ARE");
		if (!MSC_match(KW_ARE))
			CPR_s_error("NAMES ARE");
		gpre_sym* symbol = MSC_find_symbol(gpreGlob.token_global.tok_symbol, SYM_charset);
		if (!symbol)