Function PAR_database

src/gpre/par.cpp:479–683

//

act* PAR_database(bool sql, const TEXT* base_directory)
{
	if (gpreGlob.token_global.tok_length >= NAME_SIZE)
		PAR_error("Database alias too long");

	TEXT s[MAXPATHLEN << 1];

	act* action = MSC_action(0, ACT_database);
	gpre_dbb* db = (gpre_dbb*) MSC_alloc(DBB_LEN);

	// Get handle name token, make symbol for handle, and
	// insert symbol into hash table

	gpre_sym* symbol = PAR_symbol(SYM_dummy);
	db->dbb_name = symbol;
	symbol->sym_type = SYM_database;
	symbol->sym_object = (gpre_ctx*) db;

	if (!MSC_match(KW_EQUALS))
		CPR_s_error("\"=\" in database declaration");

	if (MSC_match(KW_STATIC))
		db->dbb_scope = DBB_STATIC;
	else if (MSC_match(KW_EXTERN))
		db->dbb_scope = DBB_EXTERN;

	MSC_match(KW_COMPILETIME);

	// parse the compiletime options
	TEXT* string;

	for (;;)
	{
		if (MSC_match(KW_FILENAME) && !isQuoted(gpreGlob.token_global.tok_type))
			CPR_s_error("quoted file name");

		tok& token = gpreGlob.token_global;

		if (isQuoted(token.tok_type))
		{
			if (base_directory)
			{
				db->dbb_filename = string =
					(TEXT*) MSC_alloc(token.tok_length + static_cast<int>(strlen(base_directory)) + 1);
				MSC_copy_cat(base_directory, static_cast<int>(strlen(base_directory)),
						 token.tok_string, token.tok_length, string);
			}
			else
			{
				db->dbb_filename = string = (TEXT *) MSC_alloc(token.tok_length + 1);
				MSC_copy(token.tok_string, token.tok_length, string);
			}
			token.tok_length += 2;
		}
		else if (MSC_match(KW_PASSWORD))
		{
			if (!isQuoted(token.tok_type))
				CPR_s_error("quoted password");