libcr copy: Retarget build paths from ../libc to ../libcr and retarget
[dragonfly.git] / lib / libcr / regex / regfree.c
1 /*-
2  * Copyright (c) 1992, 1993, 1994 Henry Spencer.
3  * Copyright (c) 1992, 1993, 1994
4  *      The Regents of the University of California.  All rights reserved.
5  *
6  * This code is derived from software contributed to Berkeley by
7  * Henry Spencer.
8  *
9  * Redistribution and use in source and binary forms, with or without
10  * modification, are permitted provided that the following conditions
11  * are met:
12  * 1. Redistributions of source code must retain the above copyright
13  *    notice, this list of conditions and the following disclaimer.
14  * 2. Redistributions in binary form must reproduce the above copyright
15  *    notice, this list of conditions and the following disclaimer in the
16  *    documentation and/or other materials provided with the distribution.
17  * 3. All advertising materials mentioning features or use of this software
18  *    must display the following acknowledgement:
19  *      This product includes software developed by the University of
20  *      California, Berkeley and its contributors.
21  * 4. Neither the name of the University nor the names of its contributors
22  *    may be used to endorse or promote products derived from this software
23  *    without specific prior written permission.
24  *
25  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
26  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
27  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
28  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
29  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
30  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
31  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
32  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
33  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
34  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
35  * SUCH DAMAGE.
36  *
37  *      @(#)regfree.c   8.3 (Berkeley) 3/20/94
38  *
39  * $FreeBSD: src/lib/libc/regex/regfree.c,v 1.1.1.1.14.1 2000/07/31 06:30:37 dcs Exp $
40  * $DragonFly: src/lib/libcr/regex/Attic/regfree.c,v 1.2 2003/06/17 04:26:44 dillon Exp $
41  *
42  * @(#)regfree.c        8.3 (Berkeley) 3/20/94
43  */
44
45 #include <sys/types.h>
46 #include <stdio.h>
47 #include <stdlib.h>
48 #include <limits.h>
49 #include <regex.h>
50
51 #include "utils.h"
52 #include "regex2.h"
53
54 /*
55  - regfree - free everything
56  = extern void regfree(regex_t *);
57  */
58 void
59 regfree(preg)
60 regex_t *preg;
61 {
62         register struct re_guts *g;
63
64         if (preg->re_magic != MAGIC1)   /* oops */
65                 return;                 /* nice to complain, but hard */
66
67         g = preg->re_g;
68         if (g == NULL || g->magic != MAGIC2)    /* oops again */
69                 return;
70         preg->re_magic = 0;             /* mark it invalid */
71         g->magic = 0;                   /* mark it invalid */
72
73         if (g->strip != NULL)
74                 free((char *)g->strip);
75         if (g->sets != NULL)
76                 free((char *)g->sets);
77         if (g->setbits != NULL)
78                 free((char *)g->setbits);
79         if (g->must != NULL)
80                 free(g->must);
81         if (g->charjump != NULL)
82                 free(&g->charjump[CHAR_MIN]);
83         if (g->matchjump != NULL)
84                 free(g->matchjump);
85         free((char *)g);
86 }