Function act_include

src/gpre/sql.cpp:3370–3411

//

static act* act_include()
{
	PAR_get_token();
	MSC_match(KW_SEMI_COLON);

	act* action = (act*) MSC_alloc(ACT_LEN);
	action->act_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 the symbol (hash) table with relation names from this database.
		MET_load_hash_table(gpreGlob.isc_databases);

	HSH_insert(gpreGlob.isc_databases->dbb_name);

	return action;
}


//____________________________________________________________