Remove __P macros from src/usr.bin and src/usr.sbin.
[dragonfly.git] / usr.bin / make / lst.lib / lstDestroy.c
1 /*
2  * Copyright (c) 1988, 1989, 1990, 1993
3  *      The Regents of the University of California.  All rights reserved.
4  *
5  * This code is derived from software contributed to Berkeley by
6  * Adam de Boor.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
11  * 1. Redistributions of source code must retain the above copyright
12  *    notice, this list of conditions and the following disclaimer.
13  * 2. Redistributions in binary form must reproduce the above copyright
14  *    notice, this list of conditions and the following disclaimer in the
15  *    documentation and/or other materials provided with the distribution.
16  * 3. All advertising materials mentioning features or use of this software
17  *    must display the following acknowledgement:
18  *      This product includes software developed by the University of
19  *      California, Berkeley and its contributors.
20  * 4. Neither the name of the University nor the names of its contributors
21  *    may be used to endorse or promote products derived from this software
22  *    without specific prior written permission.
23  *
24  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34  * SUCH DAMAGE.
35  *
36  * $FreeBSD: src/usr.bin/make/lst.lib/lstDestroy.c,v 1.7 1999/08/28 01:03:49 peter Exp $
37  * $DragonFly: src/usr.bin/make/lst.lib/Attic/lstDestroy.c,v 1.3 2003/11/03 19:31:31 eirikn Exp $
38  *
39  * @(#)lstDestroy.c     8.1 (Berkeley) 6/6/93
40  */
41
42 /*-
43  * LstDestroy.c --
44  *      Nuke a list and all its resources
45  */
46
47 #include        "lstInt.h"
48
49 /*-
50  *-----------------------------------------------------------------------
51  * Lst_Destroy --
52  *      Destroy a list and free all its resources. If the freeProc is
53  *      given, it is called with the datum from each node in turn before
54  *      the node is freed.
55  *
56  * Results:
57  *      None.
58  *
59  * Side Effects:
60  *      The given list is freed in its entirety.
61  *
62  *-----------------------------------------------------------------------
63  */
64 void
65 Lst_Destroy (l, freeProc)
66     Lst                 l;
67     register void       (*freeProc)(ClientData);
68 {
69     register ListNode   ln;
70     register ListNode   tln = NilListNode;
71     register List       list = (List)l;
72
73     if (l == NILLST || ! l) {
74         /*
75          * Note the check for l == (Lst)0 to catch uninitialized static Lst's.
76          * Gross, but useful.
77          */
78         return;
79     }
80
81     /* To ease scanning */
82     if (list->lastPtr != NilListNode)
83         list->lastPtr->nextPtr = NilListNode;
84     else {
85         free ((Address)l);
86         return;
87     }
88
89     if (freeProc) {
90         for (ln = list->firstPtr; ln != NilListNode; ln = tln) {
91              tln = ln->nextPtr;
92              (*freeProc) (ln->datum);
93              free ((Address)ln);
94         }
95     } else {
96         for (ln = list->firstPtr; ln != NilListNode; ln = tln) {
97              tln = ln->nextPtr;
98              free ((Address)ln);
99         }
100     }
101
102     free ((Address)l);
103 }