1 7a4ee46d 2003-11-23 devnull #include "stdinc.h"
2 7a4ee46d 2003-11-23 devnull #include "dat.h"
3 7a4ee46d 2003-11-23 devnull #include "fns.h"
5 7a4ee46d 2003-11-23 devnull int readonly = 1; /* for part.c */
8 7a4ee46d 2003-11-23 devnull usage(void)
10 7a4ee46d 2003-11-23 devnull fprint(2, "usage: printarena arenafile [offset]\n");
11 7a4ee46d 2003-11-23 devnull threadexitsall("usage");
14 7a4ee46d 2003-11-23 devnull static void
15 7a4ee46d 2003-11-23 devnull rdarena(Arena *arena, u64int offset)
17 7a4ee46d 2003-11-23 devnull u64int a, aa, e;
18 7a4ee46d 2003-11-23 devnull u32int magic;
19 7a4ee46d 2003-11-23 devnull Clump cl;
20 7a4ee46d 2003-11-23 devnull uchar score[VtScoreSize];
21 7a4ee46d 2003-11-23 devnull ZBlock *lump;
23 7a4ee46d 2003-11-23 devnull printarena(2, arena);
25 7a4ee46d 2003-11-23 devnull a = arena->base;
26 7a4ee46d 2003-11-23 devnull e = arena->base + arena->size;
27 7a4ee46d 2003-11-23 devnull if(offset != ~(u64int)0) {
28 7a4ee46d 2003-11-23 devnull if(offset >= e-a)
29 7a4ee46d 2003-11-23 devnull sysfatal("bad offset %llud >= %llud\n",
30 7a4ee46d 2003-11-23 devnull offset, e-a);
31 7a4ee46d 2003-11-23 devnull aa = offset;
35 7a4ee46d 2003-11-23 devnull for(; aa < e; aa += ClumpSize+cl.info.size) {
36 7a4ee46d 2003-11-23 devnull magic = clumpmagic(arena, aa);
37 7a4ee46d 2003-11-23 devnull if(magic == ClumpFreeMagic)
39 7a4ee46d 2003-11-23 devnull if(magic != ClumpMagic) {
40 7a4ee46d 2003-11-23 devnull fprint(2, "illegal clump magic number %#8.8ux offset %llud\n",
41 7a4ee46d 2003-11-23 devnull magic, aa);
44 7a4ee46d 2003-11-23 devnull lump = loadclump(arena, aa, 0, &cl, score, 0);
45 7a4ee46d 2003-11-23 devnull if(lump == nil) {
46 7a4ee46d 2003-11-23 devnull fprint(2, "clump %llud failed to read: %r\n", aa);
49 7a4ee46d 2003-11-23 devnull if(cl.info.type != VtTypeCorrupt) {
50 7a4ee46d 2003-11-23 devnull scoremem(score, lump->data, cl.info.uncsize);
51 7a4ee46d 2003-11-23 devnull if(scorecmp(cl.info.score, score) != 0) {
52 7a4ee46d 2003-11-23 devnull fprint(2, "clump %llud has mismatched score\n", aa);
55 7a4ee46d 2003-11-23 devnull if(vttypevalid(cl.info.type) < 0) {
56 7a4ee46d 2003-11-23 devnull fprint(2, "clump %llud has bad type %d\n", aa, cl.info.type);
60 7a4ee46d 2003-11-23 devnull print("%llud %V %d %d\n", aa, score, cl.info.type, cl.info.uncsize);
61 7a4ee46d 2003-11-23 devnull freezblock(lump);
63 7a4ee46d 2003-11-23 devnull print("end offset %llud\n", aa);
67 7a4ee46d 2003-11-23 devnull threadmain(int argc, char *argv[])
69 7a4ee46d 2003-11-23 devnull char *file;
70 7a4ee46d 2003-11-23 devnull Arena *arena;
71 7a4ee46d 2003-11-23 devnull u64int offset, aoffset;
72 7a4ee46d 2003-11-23 devnull Part *part;
74 7a4ee46d 2003-11-23 devnull uchar buf[8192];
75 7a4ee46d 2003-11-23 devnull ArenaHead head;
77 7a4ee46d 2003-11-23 devnull aoffset = 0;
78 7a4ee46d 2003-11-23 devnull ARGBEGIN{
79 7a4ee46d 2003-11-23 devnull case 'o':
80 7a4ee46d 2003-11-23 devnull aoffset = strtoull(EARGF(usage()), 0, 0);
87 7a4ee46d 2003-11-23 devnull offset = ~(u64int)0;
88 7a4ee46d 2003-11-23 devnull switch(argc) {
92 7a4ee46d 2003-11-23 devnull offset = strtoull(argv[1], 0, 0);
93 7a4ee46d 2003-11-23 devnull /* fall through */
95 7a4ee46d 2003-11-23 devnull file = argv[0];
99 7a4ee46d 2003-11-23 devnull fmtinstall('V', vtscorefmt);
101 7a4ee46d 2003-11-23 devnull statsinit();
103 7a4ee46d 2003-11-23 devnull if((d = dirstat(file)) == nil)
104 7a4ee46d 2003-11-23 devnull sysfatal("can't stat file %s: %r", file);
106 7a4ee46d 2003-11-23 devnull part = initpart(file, 0);
107 7a4ee46d 2003-11-23 devnull if(part == nil)
108 7a4ee46d 2003-11-23 devnull sysfatal("can't open file %s: %r", file);
109 7a4ee46d 2003-11-23 devnull if(readpart(part, aoffset, buf, sizeof buf) < 0)
110 7a4ee46d 2003-11-23 devnull sysfatal("can't read file %s: %r", file);
112 7a4ee46d 2003-11-23 devnull if(unpackarenahead(&head, buf) < 0)
113 7a4ee46d 2003-11-23 devnull sysfatal("corrupted arena header: %r");
115 7a4ee46d 2003-11-23 devnull if(aoffset+head.size > d->length)
116 7a4ee46d 2003-11-23 devnull sysfatal("arena is truncated: want %llud bytes have %llud\n",
117 7a4ee46d 2003-11-23 devnull head.size, d->length);
119 7a4ee46d 2003-11-23 devnull partblocksize(part, head.blocksize);
120 7a4ee46d 2003-11-23 devnull initdcache(8 * MaxDiskBlock);
122 7a4ee46d 2003-11-23 devnull arena = initarena(part, aoffset, head.size, head.blocksize);
123 7a4ee46d 2003-11-23 devnull if(arena == nil)
124 7a4ee46d 2003-11-23 devnull sysfatal("initarena: %r");
126 7a4ee46d 2003-11-23 devnull rdarena(arena, offset);
127 7a4ee46d 2003-11-23 devnull threadexitsall(0);
