dbck/phase3.qc

   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 "dbck.h"
  10
  11 #define NULL 0
  12
  13
  14 empty_list_check(id, l, hint)
  15 int id, hint;
  16 struct list *l;
  17 {
  18     if (l->members == 0 && l->list_id != 0)
  19       printf("Warning: List %s is empty\n", l->name);
  20 }
  21
  22
  23 /* Used by other parts of the program to check that a string_id is good.
  24  * This returns TRUE if it is, or FALSE if it is not, and as a side effect
  25  * increments the string reference count.
  26  */
  27
  28 int string_check(id)
  29 int id;
  30 {
  31     register struct string *s;
  32
  33     s = (struct string *) hash_lookup(strings, id);
  34     if (s == NULL)
  35       return(0);
  36     s->refc++;
  37     return(1);
  38 }
  39
  40
  41 unref_string_check(id, s, hint)
  42 int id, hint;
  43 struct string *s;
  44 {
  45     if (s->refc == 0) {
  46         printf("Unreferenced string %s id %d\n", s->name, id);
  47         if (single_fix("Delete", 1))
  48           single_delete("strings", "string_id", id);
  49     }
  50 }
  51
  52
  53 noclu_mach_check(id, m, hint)
  54 int id, hint;
  55 struct machine *m;
  56 {
  57     if (m->clucount == 0)
  58       printf("Warning: machine %s is not in any clusters\n", m->name);
  59 }
  60
  61
  62 phase3()
  63 ##{
  64     printf("Phase 3 - Finding unused objects\n");
  65
  66     dprintf("Checking machines...\n");
  67     hash_step(machines, noclu_mach_check, NULL);
  68
  69     dprintf("Checking lists...\n");
  70     hash_step(lists, empty_list_check, NULL);
  71
  72     dprintf("Checking strings...\n");
  73     hash_step(strings, unref_string_check, NULL);
  74
  75 ##}
  76