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) 1999 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 <stdio.h>
30*7c478bd9Sstevel@tonic-gate #include <stdlib.h>
31*7c478bd9Sstevel@tonic-gate #include <string.h>
32*7c478bd9Sstevel@tonic-gate 
33*7c478bd9Sstevel@tonic-gate #include <fcode/private.h>
34*7c478bd9Sstevel@tonic-gate #include <fcode/log.h>
35*7c478bd9Sstevel@tonic-gate 
36*7c478bd9Sstevel@tonic-gate fc_resource_t *
find_resource(fc_resource_t ** head,void * ptr,int (cmp)(void *,void *))37*7c478bd9Sstevel@tonic-gate find_resource(fc_resource_t **head, void *ptr, int (cmp)(void *, void *))
38*7c478bd9Sstevel@tonic-gate {
39*7c478bd9Sstevel@tonic-gate 	fc_resource_t *f, *prev, *r = *head;
40*7c478bd9Sstevel@tonic-gate 
41*7c478bd9Sstevel@tonic-gate 	f = NULL;
42*7c478bd9Sstevel@tonic-gate 	prev = NULL;
43*7c478bd9Sstevel@tonic-gate 	while (r) {
44*7c478bd9Sstevel@tonic-gate 		if (r->data == NULL) {
45*7c478bd9Sstevel@tonic-gate 			fc_resource_t *dead;
46*7c478bd9Sstevel@tonic-gate 
47*7c478bd9Sstevel@tonic-gate 			if (prev)
48*7c478bd9Sstevel@tonic-gate 				prev->next = r->next;
49*7c478bd9Sstevel@tonic-gate 			else {
50*7c478bd9Sstevel@tonic-gate 				*head = r->next;
51*7c478bd9Sstevel@tonic-gate 			}
52*7c478bd9Sstevel@tonic-gate 			dead = r;
53*7c478bd9Sstevel@tonic-gate 			r = r->next;
54*7c478bd9Sstevel@tonic-gate 			FREE(dead);
55*7c478bd9Sstevel@tonic-gate 		} else {
56*7c478bd9Sstevel@tonic-gate 			if (cmp(ptr, r->data)) {
57*7c478bd9Sstevel@tonic-gate 				f = r;
58*7c478bd9Sstevel@tonic-gate 				break;
59*7c478bd9Sstevel@tonic-gate 			}
60*7c478bd9Sstevel@tonic-gate 			prev = r;
61*7c478bd9Sstevel@tonic-gate 			r = r->next;
62*7c478bd9Sstevel@tonic-gate 		}
63*7c478bd9Sstevel@tonic-gate 	}
64*7c478bd9Sstevel@tonic-gate 	return (f);
65*7c478bd9Sstevel@tonic-gate }
66*7c478bd9Sstevel@tonic-gate 
67*7c478bd9Sstevel@tonic-gate void *
add_resource(fc_resource_t ** head,void * ptr,int (cmp)(void *,void *))68*7c478bd9Sstevel@tonic-gate add_resource(fc_resource_t **head, void *ptr, int (cmp)(void *, void *))
69*7c478bd9Sstevel@tonic-gate {
70*7c478bd9Sstevel@tonic-gate 	fc_resource_t *r;
71*7c478bd9Sstevel@tonic-gate 
72*7c478bd9Sstevel@tonic-gate 	r = find_resource(head, ptr, cmp);
73*7c478bd9Sstevel@tonic-gate 	if (r == NULL) {
74*7c478bd9Sstevel@tonic-gate 		r = MALLOC(sizeof (fc_resource_t));
75*7c478bd9Sstevel@tonic-gate 		r->data = ptr;
76*7c478bd9Sstevel@tonic-gate 		r->next = *head;
77*7c478bd9Sstevel@tonic-gate 		*head = r;
78*7c478bd9Sstevel@tonic-gate 		return (r->data);
79*7c478bd9Sstevel@tonic-gate 	}
80*7c478bd9Sstevel@tonic-gate 	log_message(MSG_ERROR, "add_resource: Duplicate entry: %p\n", ptr);
81*7c478bd9Sstevel@tonic-gate 	return (NULL);
82*7c478bd9Sstevel@tonic-gate }
83*7c478bd9Sstevel@tonic-gate 
84*7c478bd9Sstevel@tonic-gate void
free_resource(fc_resource_t ** head,void * ptr,int (cmp)(void *,void *))85*7c478bd9Sstevel@tonic-gate free_resource(fc_resource_t **head, void *ptr,  int (cmp)(void *, void *))
86*7c478bd9Sstevel@tonic-gate {
87*7c478bd9Sstevel@tonic-gate 	fc_resource_t *r;
88*7c478bd9Sstevel@tonic-gate 
89*7c478bd9Sstevel@tonic-gate 	if ((r = find_resource(head, ptr, cmp)) != NULL)
90*7c478bd9Sstevel@tonic-gate 		r->data = NULL;
91*7c478bd9Sstevel@tonic-gate 	else
92*7c478bd9Sstevel@tonic-gate 		log_message(MSG_ERROR, "free_resource: No such Entry: %p\n",
93*7c478bd9Sstevel@tonic-gate 		    ptr);
94*7c478bd9Sstevel@tonic-gate }
95*7c478bd9Sstevel@tonic-gate 
96*7c478bd9Sstevel@tonic-gate #ifdef DEBUG
97*7c478bd9Sstevel@tonic-gate 
98*7c478bd9Sstevel@tonic-gate static int
dump_print(void * s,void * d)99*7c478bd9Sstevel@tonic-gate dump_print(void *s, void *d)
100*7c478bd9Sstevel@tonic-gate {
101*7c478bd9Sstevel@tonic-gate 	log_message(MSG_DEBUG, "Buffer: %p\n", d);
102*7c478bd9Sstevel@tonic-gate 	return (0);
103*7c478bd9Sstevel@tonic-gate }
104*7c478bd9Sstevel@tonic-gate 
105*7c478bd9Sstevel@tonic-gate void
dump_resources(fcode_env_t * env)106*7c478bd9Sstevel@tonic-gate dump_resources(fcode_env_t *env)
107*7c478bd9Sstevel@tonic-gate {
108*7c478bd9Sstevel@tonic-gate 	fc_resource_t **head;
109*7c478bd9Sstevel@tonic-gate 
110*7c478bd9Sstevel@tonic-gate 	head = (fc_resource_t **) POP(DS);
111*7c478bd9Sstevel@tonic-gate 	(void) find_resource(head, NULL, dump_print);
112*7c478bd9Sstevel@tonic-gate }
113*7c478bd9Sstevel@tonic-gate 
114*7c478bd9Sstevel@tonic-gate void
propbufs(fcode_env_t * env)115*7c478bd9Sstevel@tonic-gate propbufs(fcode_env_t *env)
116*7c478bd9Sstevel@tonic-gate {
117*7c478bd9Sstevel@tonic-gate 	PUSH(DS, (fstack_t) &env->propbufs);
118*7c478bd9Sstevel@tonic-gate }
119*7c478bd9Sstevel@tonic-gate 
120*7c478bd9Sstevel@tonic-gate #pragma init(_init)
121*7c478bd9Sstevel@tonic-gate 
122*7c478bd9Sstevel@tonic-gate static void
_init(void)123*7c478bd9Sstevel@tonic-gate _init(void)
124*7c478bd9Sstevel@tonic-gate {
125*7c478bd9Sstevel@tonic-gate 	fcode_env_t *env = initial_env;
126*7c478bd9Sstevel@tonic-gate 
127*7c478bd9Sstevel@tonic-gate 	NOTICE;
128*7c478bd9Sstevel@tonic-gate 	ASSERT(env);
129*7c478bd9Sstevel@tonic-gate 
130*7c478bd9Sstevel@tonic-gate 	FORTH(0,		"propbufs",		propbufs);
131*7c478bd9Sstevel@tonic-gate 	FORTH(0,		"dump-resource",	dump_resources);
132*7c478bd9Sstevel@tonic-gate }
133*7c478bd9Sstevel@tonic-gate 
134*7c478bd9Sstevel@tonic-gate #endif
135