Function gen_database

src/gpre/languages/pas.cpp:1148–1305

//

static void gen_database(/* const act* action,*/ int column)
{
	const gpre_req* request;

	if (global_first_flag)
		return;
	global_first_flag = true;

	fprintf(gpreGlob.out_file, "\n(**** GPRE Preprocessor Definitions ****)\n");
	fprintf(gpreGlob.out_file, "%%include '/firebird/include/gds.ins.pas';\n");

	int indent = column + INDENT;
	bool flag = true;

	for (request = gpreGlob.requests; request; request = request->req_next)
	{
		if (request->req_flags & REQ_local)
			continue;
		for (const gpre_port* port = request->req_ports; port; port = port->por_next)
		{
			if (flag)
			{
				flag = false;
				fprintf(gpreGlob.out_file, "type");
			}
			make_port(port, indent);
		}
	}
	fprintf(gpreGlob.out_file, "\nvar");
	for (request = gpreGlob.requests; request; request = request->req_routine)
	{
		if (request->req_flags & REQ_local)
			continue;
		for (const gpre_port* port = request->req_ports; port; port = port->por_next)
			printa(indent, "gds__%d\t: gds__%dt;\t\t\t(* message *)",
				   port->por_ident, port->por_ident);

		for (blb* blob = request->req_blobs; blob; blob = blob->blb_next)
		{
			printa(indent, "gds__%d\t: gds__handle;\t\t\t(* blob handle *)", blob->blb_ident);
			printa(indent, "gds__%d\t: %s [1 .. %d] of char;\t(* blob segment *)",
				   blob->blb_buff_ident, PACKED_ARRAY, blob->blb_seg_length);
			printa(indent, "gds__%d\t: %s;\t\t\t(* segment length *)", blob->blb_len_ident, SHORT_DCL);
		}
	}

	const gpre_dbb* db;
	bool all_static = true;
	bool all_extern = true;

	for (db = gpreGlob.isc_databases; db; db = db->dbb_next)
	{
		all_static = all_static && (db->dbb_scope == DBB_STATIC);
		all_extern = all_extern && (db->dbb_scope == DBB_EXTERN);
		if (db->dbb_scope == DBB_STATIC)
			printa(indent, "%s\t: %s gds__handle\t:= nil;	(* database handle *)",
				   db->dbb_name->sym_string, STATIC_STRING);
	}