/*	dumprules.c
 *  (c) Copyright 1991 by Ben Eng, All Rights Reserved
 *
 */

#include "make.h"
#include "depend.h"


void
dump_macros( struct List *mlist )
{
	struct macro *mac;

	debugprintf( 2,( "** Macros **\n" ));

	for( mac = mlist->lh_Head; mac->node.ln_Succ; mac =
		mac->node.ln_Succ ) {
		logprintf( "%s %s %s\n", mac->name,
			(mac->flags & MF_SIMPLE) ? ":=" : "=", mac->expansion );
	}
	logprintf( "\n" );
}

static void
dump_dependencies( struct List *dlist )
{
	struct depend *dep;

	for( dep = dlist->lh_Head; dep->node.ln_Succ; dep =
		dep->node.ln_Succ ) {
		logprintf( " %s", dep->name );
	}
	logprintf( "\n" );
}

static void
dump_commands( struct List *clist )
{
	struct command *cmd;

	for( cmd = clist->lh_Head; cmd->node.ln_Succ; cmd =
		cmd->node.ln_Succ ) {
		logprintf( "\t%s\n", cmd->cmd );
	}
}

void
dump_targets( struct List *tlist )
{
	struct target *targ;

	debugprintf( 2, ( "** Target Rules **\n" ));

	for( targ = tlist->lh_Head; targ->node.ln_Succ; targ =
		targ->node.ln_Succ ) {
		logprintf( "\n%s", targ->name );
		if( targ->flags & TF_SUFFIX ) logprintf( " [SUFFIX]" );
		if( targ->flags & TF_BUILTIN ) logprintf( " [BUILTIN]" );
		logprintf( ":" );
		dump_dependencies( &targ->dependlist );
		if( targ->flags & TF_OWNER )
			dump_commands( &targ->commandlist );
		else
			dump_commands( targ->alternate );
	}
}

void
dump_suffixrules( struct List *slist )
{
	struct suffixrule *sr;

	debugprintf( 2, ( "** Suffix Rules **\n" ));

	for( sr = slist->lh_Head; sr->node.ln_Succ; sr =
		sr->node.ln_Succ ) {
		logprintf( "\n.%s.%s :\n", sr->dep_suf, sr->tar_suf );
		if( sr->targ->flags & TF_OWNER )
			dump_commands( &sr->targ->commandlist );
		else
			dump_commands( sr->targ->alternate );
	}
}


void
dump_all( void )
{
	debugprintf( 2, ("\n** Debug output for rules ** \n" ));
	dump_macros( &Global.macrolist );
	dump_suffixrules( &Global.suffixlist );
	dump_targets( &Global.targetlist );	
}