decs.c

#include <dcw.h>
#include "struct.h"
#include "decs.h"


#ifdef HASPROTOS
static void init( FILE * , FILE * , char * );
static void data_decls( FILE * , declnlist );
static void one_proto( FILE * , char * , shapelist , BOOL );
static void protos( FILE * , declnlist , BOOL );
static void cons_fn_hdr( FILE * , char * , shapelist );
static void cons_fn_body( FILE * , char * , shapelist );
static void cons_fns( FILE * , declnlist );
static void print_fns( FILE * , declnlist );
static void print_fn_shape( FILE * , char * , shapelist );
static void print_param( FILE *, char * , char * , char * );
#else
static void init();
static void data_decls();
static void one_proto();
static void protos();
static void cons_fn_hdr();
static void cons_fn_body();
static void cons_fns();
static void print_fns();
static void print_fn_shape();
static void print_param();
#endif


static void init( h, c, basename ) FILE *c, *h; char *basename;
{
	fprintf( h, "/*\n" );
	fprintf( h, "\tAutomatically Generated by DataDec\n" );
	fprintf( h, " */\n\n");
	fprintf( h, "typedef char *string;\n\n" );
	fprintf( h, "typedef char BOOL;\n" );
	fprintf( h, "#define TRUE 1\n" );
	fprintf( h, "#define FALSE 0\n\n" );

	fprintf( c, "/*\n" );
	fprintf( c, "\tAutomatically Generated by DataDec\n" );
	fprintf( c, " */\n\n");

	fprintf( c, "#include <stdio.h>\n" );
	fprintf( c, "#include \"%s.h\"\n\n\n", basename );

	fprintf( c, "#define NEW(t) ((t *)malloc(sizeof(t)))\n\n\n" );
}


static void data_decls( f, dl ) FILE *f; declnlist dl;
{
	declnlist d;
	char *name;
	shapelist s;
	int n;
	char *tag;
	paramlist p;

	for( d=dl; d; d=d->next )
	{
		name = d->name;
		fprintf( f, "typedef struct %s_str *%s;\n", name, name );
	}
	fprintf( f, "\n\n" );
	for( d=dl; d; d=d->next )
	{
		name = d->name;
		fprintf( f, "/* ---- Type %s ---- */\n\n", name );
		n = 0;
		for( s = d->shapes; s; s=s->next )
		{
			fprintf( f, "#define %s_%s_tag %d\n",
				name, s->tagname, n++ );
		}
		fprintf( f, "\nstruct %s_str {\n", name );
		fprintf( f, "\tint\ttag;\n" );
		fprintf( f, "\tunion {\n" );
		for( s = d->shapes; s; s=s->next )
		{
			if( s->params )
			{
				fprintf( f, "\t\tstruct {\n" );
				for( p = s->params; p; p=p->next )
				{
					fprintf( f, "\t\t\t%s\t%s;\n",
						p->type, p->name );
				}
				fprintf( f, "\t\t} %s;\n", s->tagname );
			}
		}
		fprintf( f, "\t} u;\n};\n\n" );
	}
}


static void one_proto( f, name, s, protos ) FILE *f; char *name; shapelist s; BOOL protos;
{
	char *tag;
	paramlist p;
	BOOL first;

	tag = s->tagname;
	fprintf( f, "extern %s %s_%s( ", name, name, tag );
	if( protos )
	{
		if( s->params == NULL )
		{
			fprintf( f, "void " );
		} else
		{
			first = TRUE;
			for( p = s->params; p ; p=p->next, first=FALSE )
			{
				if( !first ) fprintf( f, ", " );
				fprintf( f, "%s ", p->type );
			}
		}
	}
	fprintf( f, ");\n" );
}


static void protos( f, d, protos ) FILE *f; declnlist d; BOOL protos;
{
	char *name;
	declnlist dl;
	shapelist s;

	for( dl=d; dl; dl = dl->next )
	{
		name = dl->name;
		for( s = dl->shapes; s; s=s->next )
		{
			one_proto( f, name, s, protos );
		}
	}
	for( dl=d; dl; dl = dl->next )
	{
		fprintf( f, "extern void print_%s( ", dl->name );
		if( protos ) fprintf( f, "%s ", dl->name );
		fprintf( f, ");\n" );
	}
}


static void cons_fn_hdr( f, name, s ) FILE *f; char *name; shapelist s;
{
	char *tag;
	paramlist p;
	BOOL first;

	tag = s->tagname;
	fprintf( f, "%s %s_%s( ", name, name, tag );
	first = TRUE;
	for( p=s->params; p; p=p->next, first=FALSE )
	{
		if( !first ) fprintf( f, ", " );
		fprintf( f, "%s", p->name );
	}
	fprintf( f, " ) " );
	for( p=s->params; p; p=p->next )
	{
		fprintf( f, "%s %s; ", p->type, p->name );
	}
	fputc( '\n', f );
}


static void cons_fn_body( f, name, s ) FILE *f; char *name; shapelist s;
{
	char *tag;
	paramlist p;

	tag = s->tagname;
	fprintf( f, "{\n\t%s new;\n\n", name );
	fprintf( f, "\tnew = NEW( struct %s_str );\n", name );
	fprintf( f, "\tnew->tag = %s_%s_tag;\n", name, tag );
	for( p=s->params; p; p=p->next )
	{
		fprintf( f, "\tnew->u.%s.%s = %s;\n", tag, p->name, p->name );
	}
	fprintf( f, "\treturn new;\n}\n" );
}


static void cons_fns( f, d ) FILE *f; declnlist d;
{
	char *name;
	shapelist s;

	for( ; d; d=d->next )
	{
		name = d->name;
		for( s = d->shapes; s; s=s->next )
		{
			cons_fn_hdr( f, name, s );
			cons_fn_body( f, name, s );
			fprintf( f, "\n\n" );
		}
	}
}


static void print_param( f, shape, ftype, fname ) FILE *f; char *shape, *ftype, *fname;
{
	char pname[200];

	sprintf( pname, "p->u.%s.%s", shape, fname );
	if( streq( ftype, "int" ) )
	{
		fprintf( f, "\t\tfprintf( f, \"%%d\", %s );\n", pname );
	} else if( streq( ftype, "char" ) )
	{
		fprintf( f, "\t\tfprintf( f, \"%%c\", %s );\n", pname );
	} else if( streq( ftype, "BOOL" ) )
	{
		fprintf( f, "\t\tfprintf( f, \"%%s\", %s?\"true\":\"false\" );\n",
			pname );
	} else if( streq( ftype, "string" ) )
	{
		fprintf( f, "\t\tfprintf( f, \"%%s\", %s );\n", pname );
	} else
	{
		fprintf( f, "\t\tprint_%s( f, %s );\n", ftype, pname );
	}
}


static void print_fn_shape( f, typename, s ) FILE *f; char *typename; shapelist s;
{
	printlist pl;
	paramlist p;
	int n;

	fprintf( f, "\tcase %s_%s_tag:\n", typename, s->tagname );

	if( s->pl == NULL )
	{
		for( p = s->params; p; p = p->next )
		{
			print_param( f, s->tagname, p->type, p->name );
		}
	} else
	{
		for( pl = s->pl; pl; pl = pl->next )
		{
			if( pl->item->tag == printitem_is_str )
			{
				fprintf( f, "\t\tfprintf( f, \"%s\" );\n",
					pl->item->str );
			} else
			{
				n = pl->item->num;
				for( p = s->params; --n; p = p->next )
				{
					ASSERT( p != NULL,
("datadec: bad printitem in shape %s of type %s\n",s->tagname,typename));
				}
				print_param( f, s->tagname, p->type, p->name );
			}
		}
	}
	fprintf( f, "\t\tbreak;\n" );
}


static void print_fns( f, d ) FILE *f ; declnlist d;
{
	shapelist s;

	for( ; d; d = d->next )
	{
		fprintf( f, "void print_%s( f, p ) FILE *f; %s p;\n",
			d->name, d->name );
		fprintf( f, "{\n\tswitch( p->tag )\n\t{\n" );
		for( s = d->shapes; s; s = s->next )
		{
			print_fn_shape( f, d->name, s );
		}
		fprintf( f, "\tdefault:\n" );
		fprintf( f, "\t\tfprintf( stderr," );
		fprintf( f,
		" \"print_%s: impossible tag %%d\\n\", p->tag );\n",
		d->name );
		fprintf( f, "\t\texit(1);\n\t}\n}\n\n" );
	}
}

void make_declns( d, c, h, basename ) declnlist d; FILE *c, *h; char *basename;
{
	printf( "Making data declarations\n" );

	init( h, c, basename );

	data_decls( h, d );

	fprintf( h, "#ifdef HASPROTOS\n" );
	protos( h, d, TRUE );
	fprintf( h, "#else\n" );
	protos( h, d, FALSE );
	fprintf( h, "#endif\n" );

	cons_fns( c, d );
	print_fns( c, d );
}