1fb2f18f8Sesaxe /*
2fb2f18f8Sesaxe  * CDDL HEADER START
3fb2f18f8Sesaxe  *
4fb2f18f8Sesaxe  * The contents of this file are subject to the terms of the
5fb2f18f8Sesaxe  * Common Development and Distribution License (the "License").
6fb2f18f8Sesaxe  * You may not use this file except in compliance with the License.
7fb2f18f8Sesaxe  *
8fb2f18f8Sesaxe  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9fb2f18f8Sesaxe  * or http://www.opensolaris.org/os/licensing.
10fb2f18f8Sesaxe  * See the License for the specific language governing permissions
11fb2f18f8Sesaxe  * and limitations under the License.
12fb2f18f8Sesaxe  *
13fb2f18f8Sesaxe  * When distributing Covered Code, include this CDDL HEADER in each
14fb2f18f8Sesaxe  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15fb2f18f8Sesaxe  * If applicable, add the following below this CDDL HEADER, with the
16fb2f18f8Sesaxe  * fields enclosed by brackets "[]" replaced with your own identifying
17fb2f18f8Sesaxe  * information: Portions Copyright [yyyy] [name of copyright owner]
18fb2f18f8Sesaxe  *
19fb2f18f8Sesaxe  * CDDL HEADER END
20fb2f18f8Sesaxe  */
21fb2f18f8Sesaxe 
22fb2f18f8Sesaxe /*
23fb2f18f8Sesaxe  * Copyright 2007 Sun Microsystems, Inc.  All rights reserved.
24fb2f18f8Sesaxe  * Use is subject to license terms.
25fb2f18f8Sesaxe  */
26fb2f18f8Sesaxe 
27fb2f18f8Sesaxe /*
28fb2f18f8Sesaxe  * Display group information and walk all elements of a group
29fb2f18f8Sesaxe  */
30fb2f18f8Sesaxe 
31fb2f18f8Sesaxe #include "group.h"
32fb2f18f8Sesaxe 
33fb2f18f8Sesaxe #include <mdb/mdb_modapi.h>
34fb2f18f8Sesaxe #include <sys/group.h>
35fb2f18f8Sesaxe 
36fb2f18f8Sesaxe /*
37fb2f18f8Sesaxe  * Display group information
38fb2f18f8Sesaxe  */
39fb2f18f8Sesaxe 
40fb2f18f8Sesaxe /* ARGSUSED */
41fb2f18f8Sesaxe int
group(uintptr_t addr,uint_t flags,int argc,const mdb_arg_t * argv)42fb2f18f8Sesaxe group(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
43fb2f18f8Sesaxe {
44fb2f18f8Sesaxe 	group_t	group;
45fb2f18f8Sesaxe 	int	opt_q = 0; /* display only address. */
46fb2f18f8Sesaxe 
47fb2f18f8Sesaxe 	/* Should provide an address */
48fb2f18f8Sesaxe 	if (!(flags & DCMD_ADDRSPEC))
49fb2f18f8Sesaxe 		return (DCMD_USAGE);
50fb2f18f8Sesaxe 
51fb2f18f8Sesaxe 	if (mdb_getopts(argc, argv,
52fb2f18f8Sesaxe 	    'q', MDB_OPT_SETBITS, TRUE, &opt_q,
53fb2f18f8Sesaxe 		NULL) != argc)
54fb2f18f8Sesaxe 		return (DCMD_USAGE);
55fb2f18f8Sesaxe 
56fb2f18f8Sesaxe 	if (flags & DCMD_PIPE_OUT)
57fb2f18f8Sesaxe 		opt_q = B_TRUE;
58fb2f18f8Sesaxe 
59fb2f18f8Sesaxe 	if (DCMD_HDRSPEC(flags) && !opt_q) {
60fb2f18f8Sesaxe 		mdb_printf("%?s %6s %9s %?s\n",
61fb2f18f8Sesaxe 		    "ADDR",
62fb2f18f8Sesaxe 		    "SIZE",
63fb2f18f8Sesaxe 		    "CAPACITY",
64fb2f18f8Sesaxe 		    "SET");
65fb2f18f8Sesaxe 	}
66fb2f18f8Sesaxe 
67fb2f18f8Sesaxe 	if (mdb_vread(&group, sizeof (struct group), addr) == -1) {
68fb2f18f8Sesaxe 		mdb_warn("unable to read 'group' at %p", addr);
69fb2f18f8Sesaxe 		return (DCMD_ERR);
70fb2f18f8Sesaxe 	}
71fb2f18f8Sesaxe 
72fb2f18f8Sesaxe 	if (opt_q) {
73fb2f18f8Sesaxe 		mdb_printf("%0?p\n", addr);
74fb2f18f8Sesaxe 		return (DCMD_OK);
75fb2f18f8Sesaxe 	}
76fb2f18f8Sesaxe 
77fb2f18f8Sesaxe 	mdb_printf("%?p %6d %9d %?p\n",
78fb2f18f8Sesaxe 	    addr, group.grp_size, group.grp_capacity, group.grp_set);
79fb2f18f8Sesaxe 
80fb2f18f8Sesaxe 	return (DCMD_OK);
81fb2f18f8Sesaxe }
82fb2f18f8Sesaxe 
83fb2f18f8Sesaxe /*
84fb2f18f8Sesaxe  * Walk all elements in the group set.
85fb2f18f8Sesaxe  */
86fb2f18f8Sesaxe 
87fb2f18f8Sesaxe typedef struct group_walk {
88fb2f18f8Sesaxe 	uintptr_t *gw_set;
89fb2f18f8Sesaxe 	int gw_size;
90fb2f18f8Sesaxe 	int gw_pos;
91fb2f18f8Sesaxe 	int gw_initialized;
92fb2f18f8Sesaxe } group_walk_t;
93fb2f18f8Sesaxe 
94fb2f18f8Sesaxe 
95fb2f18f8Sesaxe /*
96fb2f18f8Sesaxe  * Initialize the walk structure with the copy of a group set, its size and the
97fb2f18f8Sesaxe  * initial pointer position.
98fb2f18f8Sesaxe  */
99fb2f18f8Sesaxe int
group_walk_init(mdb_walk_state_t * wsp)100fb2f18f8Sesaxe group_walk_init(mdb_walk_state_t *wsp)
101fb2f18f8Sesaxe {
102fb2f18f8Sesaxe 	group_walk_t	*gw;
103fb2f18f8Sesaxe 	group_t		group;
104fb2f18f8Sesaxe 
105fb2f18f8Sesaxe 	gw = mdb_alloc(sizeof (group_walk_t), UM_SLEEP | UM_GC);
106fb2f18f8Sesaxe 
107fb2f18f8Sesaxe 	if (mdb_vread(&group, sizeof (struct group), wsp->walk_addr) == -1) {
108fb2f18f8Sesaxe 		mdb_warn("couldn't read 'group' at %p", wsp->walk_addr);
109fb2f18f8Sesaxe 		return (WALK_ERR);
110fb2f18f8Sesaxe 	}
111fb2f18f8Sesaxe 
112fb2f18f8Sesaxe 	gw->gw_size = group.grp_size;
113fb2f18f8Sesaxe 	gw->gw_initialized = 0;
114fb2f18f8Sesaxe 	gw->gw_pos = 0;
115fb2f18f8Sesaxe 
116fb2f18f8Sesaxe 	if (gw->gw_size < 0) {
117fb2f18f8Sesaxe 		mdb_warn("invalid group at %p", wsp->walk_addr);
118fb2f18f8Sesaxe 		return (WALK_ERR);
119fb2f18f8Sesaxe 	}
120fb2f18f8Sesaxe 
121fb2f18f8Sesaxe 	if (gw->gw_size == 0)
122fb2f18f8Sesaxe 		return (WALK_DONE);
123fb2f18f8Sesaxe 
124fb2f18f8Sesaxe 	/*
125fb2f18f8Sesaxe 	 * Allocate space for the set and copy all set entries.
126fb2f18f8Sesaxe 	 */
127fb2f18f8Sesaxe 	gw->gw_set = mdb_alloc(group.grp_size * sizeof (uintptr_t),
128fb2f18f8Sesaxe 	    UM_SLEEP | UM_GC);
129fb2f18f8Sesaxe 
130fb2f18f8Sesaxe 	if (mdb_vread(gw->gw_set, group.grp_size * sizeof (uintptr_t),
131fb2f18f8Sesaxe 	    (uintptr_t)group.grp_set) == -1) {
132fb2f18f8Sesaxe 		mdb_warn("couldn't read 'group set' at %p", group.grp_set);
133fb2f18f8Sesaxe 		return (WALK_ERR);
134fb2f18f8Sesaxe 	}
135fb2f18f8Sesaxe 
136fb2f18f8Sesaxe 	wsp->walk_data = gw;
137fb2f18f8Sesaxe 	wsp->walk_addr = gw->gw_set[0];
138fb2f18f8Sesaxe 	gw->gw_pos = 0;
139fb2f18f8Sesaxe 
140fb2f18f8Sesaxe 	return (WALK_NEXT);
141fb2f18f8Sesaxe }
142fb2f18f8Sesaxe 
143fb2f18f8Sesaxe /*
144fb2f18f8Sesaxe  * Print element of the set and advance the pointer.
145fb2f18f8Sesaxe  */
146fb2f18f8Sesaxe int
group_walk_step(mdb_walk_state_t * wsp)147fb2f18f8Sesaxe group_walk_step(mdb_walk_state_t *wsp)
148fb2f18f8Sesaxe {
149fb2f18f8Sesaxe 	group_walk_t *gw = (group_walk_t *)wsp->walk_data;
150fb2f18f8Sesaxe 	int status;
151fb2f18f8Sesaxe 
152fb2f18f8Sesaxe 	/*
153fb2f18f8Sesaxe 	 * Already visited all valid elements, nothing else to do.
154fb2f18f8Sesaxe 	 */
155fb2f18f8Sesaxe 	if (gw->gw_size < 0)
156fb2f18f8Sesaxe 		return (WALK_DONE);
157fb2f18f8Sesaxe 
158fb2f18f8Sesaxe 	/*
159fb2f18f8Sesaxe 	 * Print non-NULL elements
160fb2f18f8Sesaxe 	 */
161*892ad162SToomas Soome 	status = wsp->walk_addr == 0 ?
162fb2f18f8Sesaxe 	    WALK_NEXT :
163fb2f18f8Sesaxe 	    wsp->walk_callback(wsp->walk_addr, wsp->walk_data,
164fb2f18f8Sesaxe 		wsp->walk_cbdata);
165fb2f18f8Sesaxe 
166fb2f18f8Sesaxe 	/*
167fb2f18f8Sesaxe 	 * Adjust walk_addr to point to the next element
168fb2f18f8Sesaxe 	 */
169fb2f18f8Sesaxe 	gw->gw_size--;
170fb2f18f8Sesaxe 
171fb2f18f8Sesaxe 	if (gw->gw_size > 0)
172fb2f18f8Sesaxe 		wsp->walk_addr = gw->gw_set[++gw->gw_pos];
173fb2f18f8Sesaxe 	else
174fb2f18f8Sesaxe 		status = WALK_DONE;
175fb2f18f8Sesaxe 
176fb2f18f8Sesaxe 	return (status);
177fb2f18f8Sesaxe }
178