source: trunk/minix/commands/make/check.c@ 9

/*************************************************************************
 *
 *  m a k e :   c h e c k . c
 *
 *  debugging stuff: Check structures for make.
 *========================================================================
 * Edition history
 *
 *  #    Date                         Comments                       By
 * --- -------- ---------------------------------------------------- ---
 *   1    ??                                                         ??
 *   2 23.08.89 adapted to new name tree structure                   RAL
 *   3 30.08.89 indention changed                                    PSH,RAL
 *   4 06.09.89 prt output redirected to stdout                      RAL
 * ------------ Version 2.0 released ------------------------------- RAL
 *
 *************************************************************************/

#include "h.h"


/*
 *      Prints out the structures as defined in memory.  Good for check
 *      that you make file does what you want (and for debugging make).
 */
void prt()
{
  register struct name   *np;
  register struct depend *dp;
  register struct line   *lp;
  register struct cmd    *cp;
  register struct macro  *mp;

  register int                  i;

  for (mp = macrohead; mp; mp = mp->m_next)
        printf("%s = %s\n", mp->m_name, mp->m_val);

  putchar('\n');

  for (i = 0; i <= maxsuffarray ; i++)
            for (np = suffparray[i]->n_next; np; np = np->n_next)
            {
                if (np->n_flag & N_DOUBLE)
                        printf("%s::\n", np->n_name);
                else
                        printf("%s:\n", np->n_name);
                if (np == firstname)
                        printf("(MAIN NAME)\n");
                for (lp = np->n_line; lp; lp = lp->l_next)
                {
                        putchar(':');
                        for (dp = lp->l_dep; dp; dp = dp->d_next)
                                printf(" %s", dp->d_name->n_name);
                        putchar('\n');

                        for (cp = lp->l_cmd; cp; cp = cp->c_next)
#ifdef os9
                                printf("-   %s\n", cp->c_cmd);
#else
                                printf("-\t%s\n", cp->c_cmd);
#endif
                        putchar('\n');
                }
                putchar('\n');
            }
}


/*
 *      Recursive routine that does the actual checking.
 */
void check(np)
struct name *np;
{
  register struct depend *dp;
  register struct line   *lp;


        if (np->n_flag & N_MARK)
                fatal("Circular dependency from %s", np->n_name,0);

        np->n_flag |= N_MARK;

        for (lp = np->n_line; lp; lp = lp->l_next)
                for (dp = lp->l_dep; dp; dp = dp->d_next)
                        check(dp->d_name);

        np->n_flag &= ~N_MARK;
}


/*
 *      Look for circular dependancies.
 *      ie.
 *              a: b
 *              b: a
 *      is a circular dep
 */
void circh()
{
  register struct name *np;
  register int          i;


  for (i = 0; i <= maxsuffarray ; i++)
           for (np = suffparray[i]->n_next; np; np = np->n_next)
                check(np);
}


/*
 *      Check the target .PRECIOUS, and mark its dependentd as precious
 */
void precious()
{
  register struct depend *dp;
  register struct line   *lp;
  register struct name   *np;


  if (!((np = newname(".PRECIOUS"))->n_flag & N_TARG))
        return;

  for (lp = np->n_line; lp; lp = lp->l_next)
        for (dp = lp->l_dep; dp; dp = dp->d_next)
                dp->d_name->n_flag |= N_PREC;
}