diplodocus.org Git - nmh/blob - docs/historical/SRI-NOSC/subs.dir/m_delete.c

   1 #include "mh.h"
   2
   3 m_delete(key)
   4 char *key;
   5 {
   6         register struct node *np, *npprev;
   7
   8         m_getdefs();
   9         for(np = &m_defs; npprev = np; )  {
  10                 np = np->n_next;
  11                 if(uleq(np->n_name, key)) {
  12                         npprev->n_next = np->n_next;
  13                         cfree(np->n_name);
  14                         cfree(np->n_field);
  15                         free(np);
  16                         def_flags =| DEFMOD;
  17                         return(0);
  18                 }
  19         }
  20         return(1);
  21 }