xref: /illumos-gate/usr/src/cmd/sgs/gprof/common/printlist.c (revision 7c478bd95313f5f23a4c958a745db2134aa0324)
1*7c478bd9Sstevel@tonic-gate /*
2*7c478bd9Sstevel@tonic-gate  * CDDL HEADER START
3*7c478bd9Sstevel@tonic-gate  *
4*7c478bd9Sstevel@tonic-gate  * The contents of this file are subject to the terms of the
5*7c478bd9Sstevel@tonic-gate  * Common Development and Distribution License, Version 1.0 only
6*7c478bd9Sstevel@tonic-gate  * (the "License").  You may not use this file except in compliance
7*7c478bd9Sstevel@tonic-gate  * with the License.
8*7c478bd9Sstevel@tonic-gate  *
9*7c478bd9Sstevel@tonic-gate  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10*7c478bd9Sstevel@tonic-gate  * or http://www.opensolaris.org/os/licensing.
11*7c478bd9Sstevel@tonic-gate  * See the License for the specific language governing permissions
12*7c478bd9Sstevel@tonic-gate  * and limitations under the License.
13*7c478bd9Sstevel@tonic-gate  *
14*7c478bd9Sstevel@tonic-gate  * When distributing Covered Code, include this CDDL HEADER in each
15*7c478bd9Sstevel@tonic-gate  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16*7c478bd9Sstevel@tonic-gate  * If applicable, add the following below this CDDL HEADER, with the
17*7c478bd9Sstevel@tonic-gate  * fields enclosed by brackets "[]" replaced with your own identifying
18*7c478bd9Sstevel@tonic-gate  * information: Portions Copyright [yyyy] [name of copyright owner]
19*7c478bd9Sstevel@tonic-gate  *
20*7c478bd9Sstevel@tonic-gate  * CDDL HEADER END
21*7c478bd9Sstevel@tonic-gate  */
22*7c478bd9Sstevel@tonic-gate /*
23*7c478bd9Sstevel@tonic-gate  * Copyright (c) 1990-1997, by Sun Microsystems, Inc.
24*7c478bd9Sstevel@tonic-gate  * All rights reserved.
25*7c478bd9Sstevel@tonic-gate  */
26*7c478bd9Sstevel@tonic-gate 
27*7c478bd9Sstevel@tonic-gate #pragma ident	"%Z%%M%	%I%	%E% SMI"
28*7c478bd9Sstevel@tonic-gate 
29*7c478bd9Sstevel@tonic-gate #include "gprof.h"
30*7c478bd9Sstevel@tonic-gate 
31*7c478bd9Sstevel@tonic-gate /*
32*7c478bd9Sstevel@tonic-gate  *	these are the lists of names:
33*7c478bd9Sstevel@tonic-gate  *	there is the list head and then the listname
34*7c478bd9Sstevel@tonic-gate  *	is a pointer to the list head
35*7c478bd9Sstevel@tonic-gate  *	(for ease of passing to stringlist functions).
36*7c478bd9Sstevel@tonic-gate  */
37*7c478bd9Sstevel@tonic-gate struct stringlist	fhead = { 0, 0 };
38*7c478bd9Sstevel@tonic-gate struct stringlist	*flist = &fhead;
39*7c478bd9Sstevel@tonic-gate struct stringlist	Fhead = { 0, 0 };
40*7c478bd9Sstevel@tonic-gate struct stringlist	*Flist = &Fhead;
41*7c478bd9Sstevel@tonic-gate struct stringlist	ehead = { 0, 0 };
42*7c478bd9Sstevel@tonic-gate struct stringlist	*elist = &ehead;
43*7c478bd9Sstevel@tonic-gate struct stringlist	Ehead = { 0, 0 };
44*7c478bd9Sstevel@tonic-gate struct stringlist	*Elist = &Ehead;
45*7c478bd9Sstevel@tonic-gate 
46*7c478bd9Sstevel@tonic-gate void
47*7c478bd9Sstevel@tonic-gate addlist(struct stringlist *listp, char *funcname)
48*7c478bd9Sstevel@tonic-gate {
49*7c478bd9Sstevel@tonic-gate 	struct stringlist	*slp;
50*7c478bd9Sstevel@tonic-gate 
51*7c478bd9Sstevel@tonic-gate 	slp = (struct stringlist *)malloc(sizeof (struct stringlist));
52*7c478bd9Sstevel@tonic-gate 
53*7c478bd9Sstevel@tonic-gate 	if (slp == NULL) {
54*7c478bd9Sstevel@tonic-gate 		fprintf(stderr, "gprof: ran out room for printlist\n");
55*7c478bd9Sstevel@tonic-gate 		exit(1);
56*7c478bd9Sstevel@tonic-gate 	}
57*7c478bd9Sstevel@tonic-gate 
58*7c478bd9Sstevel@tonic-gate 	slp->next = listp->next;
59*7c478bd9Sstevel@tonic-gate 	slp->string = funcname;
60*7c478bd9Sstevel@tonic-gate 	listp->next = slp;
61*7c478bd9Sstevel@tonic-gate }
62*7c478bd9Sstevel@tonic-gate 
63*7c478bd9Sstevel@tonic-gate bool
64*7c478bd9Sstevel@tonic-gate onlist(struct stringlist *listp, char *funcname)
65*7c478bd9Sstevel@tonic-gate {
66*7c478bd9Sstevel@tonic-gate 	struct stringlist	*slp;
67*7c478bd9Sstevel@tonic-gate 
68*7c478bd9Sstevel@tonic-gate 	for (slp = listp->next; slp; slp = slp->next) {
69*7c478bd9Sstevel@tonic-gate 		if (strcmp(slp->string, funcname) == 0)
70*7c478bd9Sstevel@tonic-gate 			return (TRUE);
71*7c478bd9Sstevel@tonic-gate 
72*7c478bd9Sstevel@tonic-gate 		if (funcname[0] == '_' &&
73*7c478bd9Sstevel@tonic-gate 		    strcmp(slp->string, &funcname[1]) == 0)
74*7c478bd9Sstevel@tonic-gate 			return (TRUE);
75*7c478bd9Sstevel@tonic-gate 	}
76*7c478bd9Sstevel@tonic-gate 	return (FALSE);
77*7c478bd9Sstevel@tonic-gate }
78