dbck/phase3.pc

   1 /* $Header$
   2  *
   3  *  (c) Copyright 1988 by the Massachusetts Institute of Technology.
   4  *  For copying and distribution information, please see the file
   5  *  <mit-copyright.h>.
   6  */
   7
   8 #include <mit-copyright.h>
   9 #include <stdio.h>
  10 #include "dbck.h"
  11
  12 static char phase3_qc_rcsid[] = "$Header$";
  13
  14
  15 empty_list_check(int id, struct list *l, int hint)
  16 {
  17   if (l->members == 0 && l->list_id != 0)
  18     printf("Warning: List %s is empty\n", l->name);
  19 }
  20
  21
  22 /* Used by other parts of the program to check that a string_id is good.
  23  * This returns the stringif it is, or NULL if it is not, and as a side effect
  24  * increments the string reference count.
  25  */
  26
  27 struct string *string_check(int id)
  28 {
  29   struct string *s;
  30
  31   s = (struct string *) hash_lookup(strings, id);
  32   if (!s)
  33     return s;
  34   s->refc++;
  35   return s;
  36 }
  37
  38
  39 unref_string_check(int id, struct string *s, int hint)
  40 {
  41   if (s->refc == 0)
  42     {
  43       printf("Unreferenced string %s id %d\n", s->name, id);
  44       if (single_fix("Delete", 1))
  45         single_delete("strings", "string_id", id);
  46     }
  47 }
  48
  49 /*  This test was disabled because the MIT Moira server, which
  50  *  initially only managed host information for workstations and
  51  *  servers in the Athena Computing Environment, has been extended to
  52  *  manage all hosts in the MIT.EDU domain (but not subdomains).
  53  */
  54 #ifndef ATHENA
  55 noclu_mach_check(int id, struct machine *m, int hint)
  56 {
  57   if (m->clucount == 0 && m->mach_id != 0)
  58     printf("Warning: machine %s is not in any clusters\n", m->name);
  59 }
  60 #endif
  61
  62 phase3(void)
  63 {
  64   printf("Phase 3 - Finding unused objects\n");
  65
  66   if (warn)
  67     {
  68 #ifndef ATHENA
  69       dprintf("Checking machines...\n");
  70       hash_step(machines, noclu_mach_check, NULL);
  71 #endif
  72       dprintf("Checking lists...\n");
  73       hash_step(lists, empty_list_check, NULL);
  74     }
  75
  76   dprintf("Checking strings...\n");
  77   hash_step(strings, unref_string_check, NULL);
  78 }
  79