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

   1 #include "mh.h"
   2
   3
   4 m_replace(key,value)
   5 char *key, *value;
   6
   7 {
   8         register struct node *np;
   9
  10         m_getdefs();
  11         for(np = m_defs; ; np = np->n_next) {
  12                 if(uleq(np->n_name, key)) {
  13                         if(!equal(value, np->n_field)) {
  14                                 cfree(np->n_field);
  15                                 np->n_field = value;
  16                                 def_flags =| DEFMOD;
  17                         }
  18                         return;
  19                 }
  20                 if(!np->n_next)
  21                         break;
  22         }
  23         np->n_next = alloc(sizeof *np);
  24         np = np->n_next;
  25         np->n_name = key;
  26         np->n_next = 0;
  27         np->n_field = value;
  28         def_flags =| DEFMOD;
  29 }