File: m_delete.c

package info (click to toggle)
mh 6.8.4-28
  • links: PTS
  • area: main
  • in suites: slink
  • size: 7,012 kB
  • ctags: 7,496
  • sloc: ansic: 75,211; sh: 3,112; lisp: 2,205; ml: 1,894; makefile: 724; perl: 482; csh: 150; tcl: 66; sed: 43; awk: 7
file content (32 lines) | stat: -rw-r--r-- 651 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
/* m_delete.c - delete an entry from the profile */

#include "../h/mh.h"
#include <stdio.h>


m_delete (key)
register char  *key;
{
    register struct node   *np,
                           *pp;

    m_getdefs ();
    for (np = m_defs, pp = NULL; np; pp = np, np = np -> n_next) {
	if (uleq (np -> n_name, key)) {
	    if (!np -> n_context)
		admonish (NULLCP, "bug: m_delete(key=\"%s\")", np -> n_name);
	    if (pp)
		pp -> n_next = np -> n_next;
	    else
		m_defs = np -> n_next;
	    free (np -> n_name);
	    if (np -> n_field)
		free (np -> n_field);
	    free ((char *) np);
	    ctxflags |= CTXMOD;
	    return 0;
	}
    }

    return 1;
}