Function gen_tpb

src/gpre/c_cxx.cpp:3390–3432

//

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

	printa(column, "static %schar\n", CONST_STR);
	column += INDENT;
	TEXT* p = buffer;

	for (length = 0; length < column; length++)
		*p++ = ' ';

	sprintf(p, "isc_tpb_%d [%d] = {", tpb_buffer->tpb_ident, tpb_buffer->tpb_length);
	while (*p)
		p++;

	SSHORT tpb_length = tpb_buffer->tpb_length;
	const TEXT* text = (TEXT*) tpb_buffer->tpb_string;

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

	fprintf(gpreGlob.out_file, "%s};\n", buffer);
}


//____________________________________________________________