Function tail_database

src/gpre/sql.cpp:6549–6742

//

static bool tail_database(act_t action_type, gpre_dbb* database)
{
	TEXT* string = NULL;

	// parse options for the database parameter block

	bool extend_dpb = false;

	while (true)
	{
		if (MSC_match(KW_LENGTH))
		{
			database->dbb_length = EXP_ULONG_ordinal(true);
			MSC_match(KW_PAGES);
		}
		else if (MSC_match(KW_USER))
		{
			if (isQuoted(gpreGlob.token_global.tok_type))
			{
				database->dbb_c_user = string =
					(TEXT*) MSC_alloc(gpreGlob.token_global.tok_length + 1);
				MSC_copy(gpreGlob.token_global.tok_string, gpreGlob.token_global.tok_length, string);

				// - 2 here ???
				string[gpreGlob.token_global.tok_length - 2] = '\0';
				PAR_get_token();
			}
			else
			{
				// Some non-C languages (such as Fortran) have problems
				// with extending the static DPB to add the runtime options
				// needed for a runtime user name or password.
				// 11 April 1995

				if (gpreGlob.sw_language == lang_c)
				{
					if (!MSC_match(KW_COLON))
						CPR_s_error("<colon> or <quoted string>");
					// Should I bother about dialects here ??
					if (isQuoted(gpreGlob.token_global.tok_type))
						CPR_s_error("<host variable>");
					database->dbb_r_user = PAR_native_value(false, false);
					extend_dpb = true;
				}
				else
					CPR_s_error("<quoted string>");
			}

		}
		else if (MSC_match(KW_PASSWORD))
		{
			if (isQuoted(gpreGlob.token_global.tok_type))
			{
				database->dbb_c_password = string =
					(TEXT*) MSC_alloc(gpreGlob.token_global.tok_length + 1);
				MSC_copy(gpreGlob.token_global.tok_string, gpreGlob.token_global.tok_length, string);
				string[gpreGlob.token_global.tok_length] = '\0';
				PAR_get_token();