Add an option -b which dumps the clean/dirty buffer cache RB trees for
[dragonfly.git] / test / debug / vnodeinfo.c
1 /*
2  * VNODEINFO.C
3  *
4  * cc -I/usr/src/sys vnodeinfo.c -o /usr/local/bin/vnodeinfo -lkvm
5  *
6  * vnodeinfo
7  *
8  * Dump the mountlist and related vnodes.
9  *
10  *
11  * Copyright (c) 2004 The DragonFly Project.  All rights reserved.
12  * 
13  * This code is derived from software contributed to The DragonFly Project
14  * by Matthew Dillon <dillon@backplane.com>
15  * 
16  * Redistribution and use in source and binary forms, with or without
17  * modification, are permitted provided that the following conditions
18  * are met:
19  * 
20  * 1. Redistributions of source code must retain the above copyright
21  *    notice, this list of conditions and the following disclaimer.
22  * 2. Redistributions in binary form must reproduce the above copyright
23  *    notice, this list of conditions and the following disclaimer in
24  *    the documentation and/or other materials provided with the
25  *    distribution.
26  * 3. Neither the name of The DragonFly Project nor the names of its
27  *    contributors may be used to endorse or promote products derived
28  *    from this software without specific, prior written permission.
29  * 
30  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
31  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
32  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
33  * FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE
34  * COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
35  * INCIDENTAL, SPECIAL, EXEMPLARY OR CONSEQUENTIAL DAMAGES (INCLUDING,
36  * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
37  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
38  * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
39  * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
40  * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
41  * SUCH DAMAGE.
42  *
43  * $DragonFly: src/test/debug/vnodeinfo.c,v 1.8 2005/12/05 16:52:02 dillon Exp $
44  */
45
46 #define _KERNEL_STRUCTURES_
47 #include <sys/param.h>
48 #include <sys/user.h>
49 #include <sys/malloc.h>
50 #include <sys/signalvar.h>
51 #include <sys/mount.h>
52 #include <sys/vnode.h>
53 #include <sys/buf.h>
54
55 #include <vm/vm.h>
56 #include <vm/vm_page.h>
57 #include <vm/vm_kern.h>
58 #include <vm/vm_object.h>
59 #include <vm/swap_pager.h>
60 #include <vm/vnode_pager.h>
61
62 #include <stdio.h>
63 #include <stdlib.h>
64 #include <string.h>
65 #include <fcntl.h>
66 #include <kvm.h>
67 #include <nlist.h>
68 #include <getopt.h>
69
70 struct nlist Nl[] = {
71     { "_mountlist" },
72     { "_vnode_free_list" },
73     { NULL }
74 };
75
76 static void kkread(kvm_t *kd, u_long addr, void *buf, size_t nbytes);
77 static struct mount *dumpmount(kvm_t *kd, struct mount *mp);
78 static struct vnode *dumpvp(kvm_t *kd, struct vnode *vp, int whichlist);
79 static void dumpbufs(kvm_t *kd, void *bufp, const char *id);
80 static int getobjpages(kvm_t *kd, struct vm_object *obj);
81 static int getobjvnpsize(kvm_t *kd, struct vm_object *obj);
82
83 int tracebufs = 0;
84
85 int
86 main(int ac, char **av)
87 {
88     struct mount *mp;
89     struct vnode *vp;
90     kvm_t *kd;
91     int i;
92     int ch;
93     const char *corefile = NULL;
94     const char *sysfile = NULL;
95
96     while ((ch = getopt(ac, av, "bM:N:")) != -1) {
97         switch(ch) {   
98         case 'b':
99             tracebufs = 1;
100             break;
101         case 'M':
102             corefile = optarg;
103             break;
104         case 'N': 
105             sysfile = optarg;
106             break; 
107         default:  
108             fprintf(stderr, "%s [-M core] [-N system]\n", av[0]);
109             exit(1);
110         }
111     }
112
113     if ((kd = kvm_open(sysfile, corefile, NULL, O_RDONLY, "kvm:")) == NULL) {
114         perror("kvm_open");
115         exit(1);
116     }
117     if (kvm_nlist(kd, Nl) != 0) {
118         perror("kvm_nlist");
119         exit(1);
120     }
121     kkread(kd, Nl[0].n_value, &mp, sizeof(mp));
122     while (mp)
123         mp = dumpmount(kd, mp);
124     kkread(kd, Nl[1].n_value, &vp, sizeof(vp));
125     printf("VNODEFREELIST {\n");
126     while (vp)
127         vp = dumpvp(kd, vp, 0);
128     printf("}\n");
129     return(0);
130 }
131
132 static struct mount *
133 dumpmount(kvm_t *kd, struct mount *mp)
134 {
135     struct mount mnt;
136     struct vnode *vp;
137
138     kkread(kd, (u_long)mp, &mnt, sizeof(mnt));
139     printf("MOUNTPOINT %s on %s {\n", 
140         mnt.mnt_stat.f_mntfromname, mnt.mnt_stat.f_mntonname);
141     printf("    lk_flags %08x share %d wait %d excl %d holder = %p\n",
142         mnt.mnt_lock.lk_flags, mnt.mnt_lock.lk_sharecount,
143         mnt.mnt_lock.lk_waitcount, mnt.mnt_lock.lk_exclusivecount,
144         mnt.mnt_lock.lk_lockholder);
145     printf("    mnt_flag %08x mnt_kern_flag %08x\n", 
146         mnt.mnt_flag, mnt.mnt_kern_flag);
147     printf("    mnt_nvnodelistsize %d\n", mnt.mnt_nvnodelistsize);
148     printf("    mnt_stat.f_fsid %08x %08x\n", mnt.mnt_stat.f_fsid.val[0],
149         mnt.mnt_stat.f_fsid.val[1]);
150     vp = mnt.mnt_nvnodelist.tqh_first;
151     while (vp)
152         vp = dumpvp(kd, vp, 1);
153
154     printf("}\n");
155
156     return(mnt.mnt_list.tqe_next);
157 }
158
159 static const char *
160 vtype(enum vtype type)
161 {
162     static char buf[32];
163
164     switch(type) {
165     case VNON:
166         return("VNON");
167     case VREG:
168         return("VREG");
169     case VDIR:
170         return("VDIR");
171     case VBLK:
172         return("VBLK");
173     case VCHR:
174         return("VCHR");
175     case VLNK:
176         return("VLNK");
177     case VSOCK:
178         return("VSOCK");
179     case VFIFO:
180         return("VFIFO");
181     case VBAD:
182         return("VBAD");
183     default:
184         break;
185     }
186     snprintf(buf, sizeof(buf), "%d", (int)type);
187     return(buf);
188 }
189
190 static struct vnode *
191 dumpvp(kvm_t *kd, struct vnode *vp, int whichlist)
192 {
193     struct vnode vn;
194
195     kkread(kd, (u_long)vp, &vn, sizeof(vn));
196
197     printf("    vnode %p usecnt %d holdcnt %d type=%s flags %08x",
198         vp, vn.v_usecount, vn.v_holdcnt, vtype(vn.v_type), vn.v_flag);
199
200     if ((vn.v_flag & VOBJBUF) && vn.v_object) {
201         int npages = getobjpages(kd, vn.v_object);
202         int vnpsize = getobjvnpsize(kd, vn.v_object);
203         if (npages || vnpsize)
204             printf(" vmobjpgs=%d vnpsize=%d", npages, vnpsize);
205     }
206
207     if (vn.v_flag & VROOT)
208         printf(" VROOT");
209     if (vn.v_flag & VTEXT)
210         printf(" VTEXT");
211     if (vn.v_flag & VSYSTEM)
212         printf(" VSYSTEM");
213     if (vn.v_flag & VISTTY)
214         printf(" VISTTY");
215 #ifdef VXLOCK
216     if (vn.v_flag & VXLOCK)
217         printf(" VXLOCK");
218     if (vn.v_flag & VXWANT)
219         printf(" VXWANT");
220 #endif
221 #ifdef VRECLAIMED
222     if (vn.v_flag & VRECLAIMED)
223         printf(" VRECLAIMED");
224     if (vn.v_flag & VINACTIVE)
225         printf(" VINACTIVE");
226 #endif
227     if (vn.v_flag & VBWAIT)
228         printf(" VBWAIT");
229     if (vn.v_flag & VOBJBUF)
230         printf(" VOBJBUF");
231     if (vn.v_flag & VAGE)
232         printf(" VAGE");
233     if (vn.v_flag & VOLOCK)
234         printf(" VOLOCK");
235     if (vn.v_flag & VOWANT)
236         printf(" VOWANT");
237 #ifdef VDOOMED
238     if (vn.v_flag & VDOOMED)
239         printf(" VDOOMED");
240 #endif
241     if (vn.v_flag & VFREE)
242         printf(" VFREE");
243 #ifdef VINFREE
244     if (vn.v_flag & VINFREE)
245         printf(" VINFREE");
246 #endif
247     if (vn.v_flag & VONWORKLST)
248         printf(" VONWORKLST");
249     if (vn.v_flag & VMOUNT)
250         printf(" VMOUNT");
251     if (vn.v_flag & VOBJDIRTY)
252         printf(" VOBJDIRTY");
253
254     printf("\n");
255
256     if (vn.v_lock.lk_sharecount || vn.v_lock.lk_waitcount || 
257         vn.v_lock.lk_exclusivecount || vn.v_lock.lk_lockholder != LK_NOTHREAD) {
258         printf("\tlk_flags %08x share %d wait %d excl %d holder = %p\n",
259             vn.v_lock.lk_flags, vn.v_lock.lk_sharecount,
260             vn.v_lock.lk_waitcount, vn.v_lock.lk_exclusivecount,
261             vn.v_lock.lk_lockholder);
262     }
263
264     if (tracebufs) {
265         if (vn.v_rbclean_tree.rbh_root) {
266             printf("\tCLEAN BUFFERS\n");
267             dumpbufs(kd, vn.v_rbclean_tree.rbh_root, "ROOT");
268         }
269         if (vn.v_rbdirty_tree.rbh_root) {
270             printf("\tDIRTY BUFFERS\n");
271             dumpbufs(kd, vn.v_rbdirty_tree.rbh_root, "ROOT");
272         }
273     }
274
275     if (whichlist)
276         return(vn.v_nmntvnodes.tqe_next);
277     else
278         return(vn.v_freelist.tqe_next);
279 }
280
281 static void
282 dumpbufs(kvm_t *kd, void *bufp, const char *id)
283 {
284         struct buf buf;
285
286         kkread(kd, (u_long)bufp, &buf, sizeof(buf));
287         printf("\t    %-8s %p lbn %5d fbn %6d\n",
288                 id, bufp,
289                 buf.b_lblkno,
290                 buf.b_blkno);
291
292         if (buf.b_rbnode.rbe_left)
293             dumpbufs(kd, buf.b_rbnode.rbe_left, "LEFT");
294         if (buf.b_rbnode.rbe_right)
295             dumpbufs(kd, buf.b_rbnode.rbe_right, "RIGHT");
296 }
297
298 static
299 int
300 getobjpages(kvm_t *kd, struct vm_object *obj)
301 {
302         struct vm_object vmobj;
303
304         kkread(kd, (u_long)obj, &vmobj, sizeof(vmobj));
305         return(vmobj.resident_page_count);
306 }
307
308 static
309 int
310 getobjvnpsize(kvm_t *kd, struct vm_object *obj)
311 {
312         struct vm_object vmobj;
313
314         kkread(kd, (u_long)obj, &vmobj, sizeof(vmobj));
315         return(vmobj.un_pager.vnp.vnp_size);
316 }
317
318 static void
319 kkread(kvm_t *kd, u_long addr, void *buf, size_t nbytes)
320 {
321     if (kvm_read(kd, addr, buf, nbytes) != nbytes) {
322         perror("kvm_read");
323         exit(1);
324     }
325 }
326