Function gen_tpb

src/gpre/languages/pas.cpp:3015–3056

//

static void gen_tpb( const tpb* tpb_val, int column)
{
	TEXT buffer[80];

	printa(column, "gds__tpb_%d\t: %s [1..%d] of char := %s",
		   tpb_val->tpb_ident, PACKED_ARRAY, tpb_val->tpb_length, OPEN_BRACKET);

	int length = tpb_val->tpb_length;
	const TEXT* text = (TEXT *) tpb_val->tpb_string;
	TEXT* p = buffer;

	while (--length)
	{
		const TEXT c = *text++;
		if ((c >= 'A' && c <= 'Z') || c == '$' || c == '_')
			sprintf(p, "'%c', ", c);
		else
			sprintf(p, "chr(%d), ", c);
		while (*p)
			p++;
		if (p - buffer > 60)
		{
			align(column + INDENT);
			fprintf(gpreGlob.out_file, " %s", buffer);
			p = buffer;
			*p = 0;
		}
	}

	// handle the last character
	TEXT c = *text++;

	if ((c >= 'A' && c <= 'Z') || c == '$' || c == '_')
		sprintf(p, "'%c',", c);
	else
		sprintf(p, "chr(%d)", c);

	align(column + INDENT);
	fprintf(gpreGlob.out_file, "%s", buffer);

	printa(column, "%s;\n", CLOSE_BRACKET);
}


//____________________________________________________________