diplodocus.org Git - nmh/blob - docs/historical/mh-jun-1982/subs/m_find.c

   1 #ifdef COMMENT
   2         Proprietary Rand Corporation, 1981.
   3         Further distribution of this software
   4         subject to the terms of the Rand
   5         license agreement.
   6 #endif
   7
   8 #include "../mh.h"
   9 #include <stdio.h>
  10
  11 char *m_find(str)
  12         char *str;
  13 {
  14         register struct node *n;
  15
  16         m_getdefs();
  17         for(n = m_defs; n; n = n->n_next)
  18                 if(uleq(n->n_name, str))
  19                         return(n->n_field);
  20         return(NULL);
  21 }