1*0Sstevel@tonic-gate /*
2*0Sstevel@tonic-gate * CDDL HEADER START
3*0Sstevel@tonic-gate *
4*0Sstevel@tonic-gate * The contents of this file are subject to the terms of the
5*0Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only
6*0Sstevel@tonic-gate * (the "License"). You may not use this file except in compliance
7*0Sstevel@tonic-gate * with the License.
8*0Sstevel@tonic-gate *
9*0Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10*0Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
11*0Sstevel@tonic-gate * See the License for the specific language governing permissions
12*0Sstevel@tonic-gate * and limitations under the License.
13*0Sstevel@tonic-gate *
14*0Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
15*0Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16*0Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
17*0Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
18*0Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
19*0Sstevel@tonic-gate *
20*0Sstevel@tonic-gate * CDDL HEADER END
21*0Sstevel@tonic-gate */
22*0Sstevel@tonic-gate /*
23*0Sstevel@tonic-gate * Copyright (c) 1994, by Sun Microsytems, Inc.
24*0Sstevel@tonic-gate */
25*0Sstevel@tonic-gate
26*0Sstevel@tonic-gate #pragma ident "%Z%%M% %I% %E% SMI"
27*0Sstevel@tonic-gate
28*0Sstevel@tonic-gate /*
29*0Sstevel@tonic-gate * Includes
30*0Sstevel@tonic-gate */
31*0Sstevel@tonic-gate
32*0Sstevel@tonic-gate #include <stdio.h>
33*0Sstevel@tonic-gate #include <stdlib.h>
34*0Sstevel@tonic-gate #include <string.h>
35*0Sstevel@tonic-gate #include "queue.h"
36*0Sstevel@tonic-gate #include "set.h"
37*0Sstevel@tonic-gate #include "new.h"
38*0Sstevel@tonic-gate
39*0Sstevel@tonic-gate
40*0Sstevel@tonic-gate /*
41*0Sstevel@tonic-gate * Globals
42*0Sstevel@tonic-gate */
43*0Sstevel@tonic-gate
44*0Sstevel@tonic-gate static queue_node_t g_setlist = {
45*0Sstevel@tonic-gate &g_setlist,
46*0Sstevel@tonic-gate &g_setlist};
47*0Sstevel@tonic-gate
48*0Sstevel@tonic-gate
49*0Sstevel@tonic-gate /*
50*0Sstevel@tonic-gate * Forward Declarations
51*0Sstevel@tonic-gate */
52*0Sstevel@tonic-gate
53*0Sstevel@tonic-gate static void set_destroy(set_t * set_p);
54*0Sstevel@tonic-gate static void set_print(FILE * stream, set_t * set_p);
55*0Sstevel@tonic-gate
56*0Sstevel@tonic-gate
57*0Sstevel@tonic-gate /*
58*0Sstevel@tonic-gate * set() - creates a set
59*0Sstevel@tonic-gate */
60*0Sstevel@tonic-gate
61*0Sstevel@tonic-gate set_t *
set(char * setname_p,expr_t * exprlist_p)62*0Sstevel@tonic-gate set(char *setname_p, expr_t * exprlist_p)
63*0Sstevel@tonic-gate {
64*0Sstevel@tonic-gate set_t *new_p;
65*0Sstevel@tonic-gate set_t *old_p;
66*0Sstevel@tonic-gate
67*0Sstevel@tonic-gate /* does this setname exist already? */
68*0Sstevel@tonic-gate old_p = set_find(setname_p);
69*0Sstevel@tonic-gate if (old_p)
70*0Sstevel@tonic-gate set_destroy(old_p);
71*0Sstevel@tonic-gate
72*0Sstevel@tonic-gate /* create a new set */
73*0Sstevel@tonic-gate new_p = new(set_t);
74*0Sstevel@tonic-gate queue_init(&new_p->qn);
75*0Sstevel@tonic-gate new_p->setname_p = setname_p;
76*0Sstevel@tonic-gate new_p->exprlist_p = exprlist_p;
77*0Sstevel@tonic-gate
78*0Sstevel@tonic-gate /* append the new set to the global list */
79*0Sstevel@tonic-gate (void) queue_append(&g_setlist, &new_p->qn);
80*0Sstevel@tonic-gate
81*0Sstevel@tonic-gate return (new_p);
82*0Sstevel@tonic-gate
83*0Sstevel@tonic-gate } /* end set */
84*0Sstevel@tonic-gate
85*0Sstevel@tonic-gate
86*0Sstevel@tonic-gate /*
87*0Sstevel@tonic-gate * set_destroy() - destroys a set and related resources
88*0Sstevel@tonic-gate */
89*0Sstevel@tonic-gate
90*0Sstevel@tonic-gate static void
set_destroy(set_t * set_p)91*0Sstevel@tonic-gate set_destroy(set_t * set_p)
92*0Sstevel@tonic-gate {
93*0Sstevel@tonic-gate if (!set_p)
94*0Sstevel@tonic-gate return;
95*0Sstevel@tonic-gate
96*0Sstevel@tonic-gate /* remove ourselves from any list */
97*0Sstevel@tonic-gate if (!queue_isempty(&set_p->qn))
98*0Sstevel@tonic-gate (void) queue_remove(&set_p->qn);
99*0Sstevel@tonic-gate
100*0Sstevel@tonic-gate if (set_p->setname_p)
101*0Sstevel@tonic-gate free(set_p->setname_p);
102*0Sstevel@tonic-gate
103*0Sstevel@tonic-gate /* destroy the exprlist */
104*0Sstevel@tonic-gate expr_destroy(set_p->exprlist_p);
105*0Sstevel@tonic-gate
106*0Sstevel@tonic-gate free(set_p);
107*0Sstevel@tonic-gate
108*0Sstevel@tonic-gate } /* end set_destroy */
109*0Sstevel@tonic-gate
110*0Sstevel@tonic-gate
111*0Sstevel@tonic-gate /*
112*0Sstevel@tonic-gate * set_list() - pretty prints the global setlist
113*0Sstevel@tonic-gate */
114*0Sstevel@tonic-gate
115*0Sstevel@tonic-gate void
set_list(void)116*0Sstevel@tonic-gate set_list(void)
117*0Sstevel@tonic-gate {
118*0Sstevel@tonic-gate set_t *set_p;
119*0Sstevel@tonic-gate
120*0Sstevel@tonic-gate set_p = (set_t *) & g_setlist;
121*0Sstevel@tonic-gate while ((set_p = (set_t *) queue_next(&g_setlist, &set_p->qn))) {
122*0Sstevel@tonic-gate (void) printf("$%-8s ", set_p->setname_p);
123*0Sstevel@tonic-gate set_print(stdout, set_p);
124*0Sstevel@tonic-gate (void) printf("\n");
125*0Sstevel@tonic-gate }
126*0Sstevel@tonic-gate
127*0Sstevel@tonic-gate } /* end set_list */
128*0Sstevel@tonic-gate
129*0Sstevel@tonic-gate
130*0Sstevel@tonic-gate /*
131*0Sstevel@tonic-gate * set_print() - pretty prints a set
132*0Sstevel@tonic-gate */
133*0Sstevel@tonic-gate
134*0Sstevel@tonic-gate static void
set_print(FILE * stream,set_t * set_p)135*0Sstevel@tonic-gate set_print(FILE * stream, set_t * set_p)
136*0Sstevel@tonic-gate {
137*0Sstevel@tonic-gate if (!set_p)
138*0Sstevel@tonic-gate return;
139*0Sstevel@tonic-gate
140*0Sstevel@tonic-gate expr_print(stream, set_p->exprlist_p);
141*0Sstevel@tonic-gate
142*0Sstevel@tonic-gate } /* end set_print */
143*0Sstevel@tonic-gate
144*0Sstevel@tonic-gate
145*0Sstevel@tonic-gate #ifdef OLD
146*0Sstevel@tonic-gate /*
147*0Sstevel@tonic-gate * set_match() - discerns whether a probe is in a set
148*0Sstevel@tonic-gate */
149*0Sstevel@tonic-gate
150*0Sstevel@tonic-gate boolean_t
set_match(set_t * set_p,const char * name,const char * keys)151*0Sstevel@tonic-gate set_match(set_t * set_p, const char *name, const char *keys)
152*0Sstevel@tonic-gate {
153*0Sstevel@tonic-gate if (!set_p)
154*0Sstevel@tonic-gate return (B_FALSE);
155*0Sstevel@tonic-gate
156*0Sstevel@tonic-gate return (expr_match(set_p->exprlist_p, name, keys));
157*0Sstevel@tonic-gate
158*0Sstevel@tonic-gate } /* end set_match */
159*0Sstevel@tonic-gate #endif
160*0Sstevel@tonic-gate
161*0Sstevel@tonic-gate
162*0Sstevel@tonic-gate /*
163*0Sstevel@tonic-gate * set_find() - finds a set by name
164*0Sstevel@tonic-gate */
165*0Sstevel@tonic-gate
166*0Sstevel@tonic-gate set_t *
set_find(char * setname_p)167*0Sstevel@tonic-gate set_find(char *setname_p)
168*0Sstevel@tonic-gate {
169*0Sstevel@tonic-gate set_t *set_p;
170*0Sstevel@tonic-gate
171*0Sstevel@tonic-gate if (!setname_p)
172*0Sstevel@tonic-gate return (NULL);
173*0Sstevel@tonic-gate
174*0Sstevel@tonic-gate set_p = (set_t *) & g_setlist;
175*0Sstevel@tonic-gate while ((set_p = (set_t *) queue_next(&g_setlist, &set_p->qn)))
176*0Sstevel@tonic-gate if (strcmp(setname_p, set_p->setname_p) == 0)
177*0Sstevel@tonic-gate return (set_p);
178*0Sstevel@tonic-gate
179*0Sstevel@tonic-gate return (NULL);
180*0Sstevel@tonic-gate
181*0Sstevel@tonic-gate } /* end set_find */
182