1 a0d146ed 2005-07-12 devnull #include "stdinc.h"
2 a0d146ed 2005-07-12 devnull #include "dat.h"
3 a0d146ed 2005-07-12 devnull #include "fns.h"
5 a0d146ed 2005-07-12 devnull int count[VtMaxLumpSize][VtMaxType];
6 a0d146ed 2005-07-12 devnull Config conf;
10 a0d146ed 2005-07-12 devnull ClumpChunks = 32*1024
13 a0d146ed 2005-07-12 devnull static int
14 a0d146ed 2005-07-12 devnull readarenainfo(Arena *arena)
16 a0d146ed 2005-07-12 devnull ClumpInfo *ci, *cis;
17 a0d146ed 2005-07-12 devnull u32int clump;
18 a0d146ed 2005-07-12 devnull int i, n, ok;
20 a0d146ed 2005-07-12 devnull if(arena->memstats.clumps)
21 a0d146ed 2005-07-12 devnull fprint(2, "reading directory for arena=%s with %d entries\n", arena->name, arena->memstats.clumps);
23 a0d146ed 2005-07-12 devnull cis = MKN(ClumpInfo, ClumpChunks);
25 a0d146ed 2005-07-12 devnull for(clump = 0; clump < arena->memstats.clumps; clump += n){
26 a0d146ed 2005-07-12 devnull n = ClumpChunks;
28 a0d146ed 2005-07-12 devnull if(n > arena->memstats.clumps - clump)
29 a0d146ed 2005-07-12 devnull n = arena->memstats.clumps - clump;
31 a0d146ed 2005-07-12 devnull if((i=readclumpinfos(arena, clump, cis, n)) != n){
32 a0d146ed 2005-07-12 devnull seterr(EOk, "arena directory read failed %d not %d: %r", i, n);
37 a0d146ed 2005-07-12 devnull for(i = 0; i < n; i++){
38 a0d146ed 2005-07-12 devnull ci = &cis[i];
39 a0d146ed 2005-07-12 devnull if(ci->type >= VtMaxType || ci->uncsize >= VtMaxLumpSize) {
40 a0d146ed 2005-07-12 devnull fprint(2, "bad clump: %d: type = %d: size = %d\n", clump+i, ci->type, ci->uncsize);
41 a0d146ed 2005-07-12 devnull continue;
43 a0d146ed 2005-07-12 devnull count[ci->uncsize][ci->type]++;
46 a0d146ed 2005-07-12 devnull free(cis);
47 a0d146ed 2005-07-12 devnull if(ok < 0)
48 a0d146ed 2005-07-12 devnull return TWID32;
49 a0d146ed 2005-07-12 devnull return clump;
52 a0d146ed 2005-07-12 devnull static void
53 a0d146ed 2005-07-12 devnull clumpstats(Index *ix)
56 a0d146ed 2005-07-12 devnull ulong clumps, n;
57 a0d146ed 2005-07-12 devnull int i, j, t;
60 a0d146ed 2005-07-12 devnull clumps = 0;
61 a0d146ed 2005-07-12 devnull for(i = 0; i < ix->narenas; i++){
62 a0d146ed 2005-07-12 devnull n = readarenainfo(ix->arenas[i]);
63 a0d146ed 2005-07-12 devnull if(n == TWID32){
67 a0d146ed 2005-07-12 devnull clumps += n;
70 a0d146ed 2005-07-12 devnull if(ok < 0)
73 a0d146ed 2005-07-12 devnull print("clumps = %ld\n", clumps);
74 a0d146ed 2005-07-12 devnull for(i=0; i<VtMaxLumpSize; i++) {
76 a0d146ed 2005-07-12 devnull for(j=0; j<VtMaxType; j++)
77 a0d146ed 2005-07-12 devnull t += count[i][j];
78 a0d146ed 2005-07-12 devnull if(t == 0)
79 a0d146ed 2005-07-12 devnull continue;
80 a0d146ed 2005-07-12 devnull print("%d\t%d", i, t);
81 a0d146ed 2005-07-12 devnull for(j=0; j<VtMaxType; j++)
82 a0d146ed 2005-07-12 devnull print("\t%d", count[i][j]);
83 a0d146ed 2005-07-12 devnull print("\n");
89 a0d146ed 2005-07-12 devnull usage(void)
91 a0d146ed 2005-07-12 devnull fprint(2, "usage: clumpstats [-B blockcachesize] config\n");
92 a0d146ed 2005-07-12 devnull threadexitsall(0);
96 a0d146ed 2005-07-12 devnull threadmain(int argc, char *argv[])
98 a0d146ed 2005-07-12 devnull u32int bcmem;
100 a0d146ed 2005-07-12 devnull bcmem = 0;
102 a0d146ed 2005-07-12 devnull ARGBEGIN{
103 a0d146ed 2005-07-12 devnull case 'B':
104 a0d146ed 2005-07-12 devnull bcmem = unittoull(ARGF());
106 a0d146ed 2005-07-12 devnull default:
107 a0d146ed 2005-07-12 devnull usage();
111 a0d146ed 2005-07-12 devnull readonly = 1;
113 a0d146ed 2005-07-12 devnull if(argc != 1)
114 a0d146ed 2005-07-12 devnull usage();
116 a0d146ed 2005-07-12 devnull if(initventi(argv[0], &conf) < 0)
117 a0d146ed 2005-07-12 devnull sysfatal("can't init venti: %r");
119 a0d146ed 2005-07-12 devnull if(bcmem < maxblocksize * (mainindex->narenas + mainindex->nsects * 4 + 16))
120 a0d146ed 2005-07-12 devnull bcmem = maxblocksize * (mainindex->narenas + mainindex->nsects * 4 + 16);
121 a0d146ed 2005-07-12 devnull if(0) fprint(2, "initialize %d bytes of disk block cache\n", bcmem);
122 a0d146ed 2005-07-12 devnull initdcache(bcmem);
124 a0d146ed 2005-07-12 devnull clumpstats(mainindex);
126 a0d146ed 2005-07-12 devnull threadexitsall(0);