blob: b87b23717c23115fb90be71a79501832ad7c4c32 [file] [log] [blame]
Linus Torvalds1da177e2005-04-16 15:20:36 -07001/*
2 * Copyright 2000 by Hans Reiser, licensing governed by reiserfs/README
3 */
4
Linus Torvalds1da177e2005-04-16 15:20:36 -07005#include <linux/time.h>
6#include <linux/fs.h>
7#include <linux/reiserfs_fs.h>
8#include <linux/string.h>
9#include <linux/buffer_head.h>
10
11#include <stdarg.h>
12
13static char error_buf[1024];
14static char fmt_buf[1024];
15static char off_buf[80];
16
Linus Torvaldsbd4c6252005-07-12 20:21:28 -070017static char *reiserfs_cpu_offset(struct cpu_key *key)
Linus Torvalds1da177e2005-04-16 15:20:36 -070018{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -070019 if (cpu_key_k_type(key) == TYPE_DIRENTRY)
20 sprintf(off_buf, "%Lu(%Lu)",
21 (unsigned long long)
22 GET_HASH_VALUE(cpu_key_k_offset(key)),
23 (unsigned long long)
24 GET_GENERATION_NUMBER(cpu_key_k_offset(key)));
25 else
26 sprintf(off_buf, "0x%Lx",
27 (unsigned long long)cpu_key_k_offset(key));
28 return off_buf;
Linus Torvalds1da177e2005-04-16 15:20:36 -070029}
30
Linus Torvaldsbd4c6252005-07-12 20:21:28 -070031static char *le_offset(struct reiserfs_key *key)
Linus Torvalds1da177e2005-04-16 15:20:36 -070032{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -070033 int version;
Linus Torvalds1da177e2005-04-16 15:20:36 -070034
Linus Torvaldsbd4c6252005-07-12 20:21:28 -070035 version = le_key_version(key);
36 if (le_key_k_type(version, key) == TYPE_DIRENTRY)
37 sprintf(off_buf, "%Lu(%Lu)",
38 (unsigned long long)
39 GET_HASH_VALUE(le_key_k_offset(version, key)),
40 (unsigned long long)
41 GET_GENERATION_NUMBER(le_key_k_offset(version, key)));
42 else
43 sprintf(off_buf, "0x%Lx",
44 (unsigned long long)le_key_k_offset(version, key));
45 return off_buf;
Linus Torvalds1da177e2005-04-16 15:20:36 -070046}
47
Linus Torvaldsbd4c6252005-07-12 20:21:28 -070048static char *cpu_type(struct cpu_key *key)
Linus Torvalds1da177e2005-04-16 15:20:36 -070049{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -070050 if (cpu_key_k_type(key) == TYPE_STAT_DATA)
51 return "SD";
52 if (cpu_key_k_type(key) == TYPE_DIRENTRY)
53 return "DIR";
54 if (cpu_key_k_type(key) == TYPE_DIRECT)
55 return "DIRECT";
56 if (cpu_key_k_type(key) == TYPE_INDIRECT)
57 return "IND";
58 return "UNKNOWN";
Linus Torvalds1da177e2005-04-16 15:20:36 -070059}
60
Linus Torvaldsbd4c6252005-07-12 20:21:28 -070061static char *le_type(struct reiserfs_key *key)
Linus Torvalds1da177e2005-04-16 15:20:36 -070062{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -070063 int version;
Linus Torvalds1da177e2005-04-16 15:20:36 -070064
Linus Torvaldsbd4c6252005-07-12 20:21:28 -070065 version = le_key_version(key);
66
67 if (le_key_k_type(version, key) == TYPE_STAT_DATA)
68 return "SD";
69 if (le_key_k_type(version, key) == TYPE_DIRENTRY)
70 return "DIR";
71 if (le_key_k_type(version, key) == TYPE_DIRECT)
72 return "DIRECT";
73 if (le_key_k_type(version, key) == TYPE_INDIRECT)
74 return "IND";
75 return "UNKNOWN";
Linus Torvalds1da177e2005-04-16 15:20:36 -070076}
77
Linus Torvalds1da177e2005-04-16 15:20:36 -070078/* %k */
Linus Torvaldsbd4c6252005-07-12 20:21:28 -070079static void sprintf_le_key(char *buf, struct reiserfs_key *key)
Linus Torvalds1da177e2005-04-16 15:20:36 -070080{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -070081 if (key)
82 sprintf(buf, "[%d %d %s %s]", le32_to_cpu(key->k_dir_id),
83 le32_to_cpu(key->k_objectid), le_offset(key),
84 le_type(key));
85 else
86 sprintf(buf, "[NULL]");
Linus Torvalds1da177e2005-04-16 15:20:36 -070087}
88
Linus Torvalds1da177e2005-04-16 15:20:36 -070089/* %K */
Linus Torvaldsbd4c6252005-07-12 20:21:28 -070090static void sprintf_cpu_key(char *buf, struct cpu_key *key)
Linus Torvalds1da177e2005-04-16 15:20:36 -070091{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -070092 if (key)
93 sprintf(buf, "[%d %d %s %s]", key->on_disk_key.k_dir_id,
94 key->on_disk_key.k_objectid, reiserfs_cpu_offset(key),
95 cpu_type(key));
96 else
97 sprintf(buf, "[NULL]");
Linus Torvalds1da177e2005-04-16 15:20:36 -070098}
99
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700100static void sprintf_de_head(char *buf, struct reiserfs_de_head *deh)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700101{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700102 if (deh)
103 sprintf(buf,
104 "[offset=%d dir_id=%d objectid=%d location=%d state=%04x]",
105 deh_offset(deh), deh_dir_id(deh), deh_objectid(deh),
106 deh_location(deh), deh_state(deh));
107 else
108 sprintf(buf, "[NULL]");
Linus Torvalds1da177e2005-04-16 15:20:36 -0700109
110}
111
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700112static void sprintf_item_head(char *buf, struct item_head *ih)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700113{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700114 if (ih) {
115 strcpy(buf,
116 (ih_version(ih) == KEY_FORMAT_3_6) ? "*3.6* " : "*3.5*");
117 sprintf_le_key(buf + strlen(buf), &(ih->ih_key));
118 sprintf(buf + strlen(buf), ", item_len %d, item_location %d, "
119 "free_space(entry_count) %d",
120 ih_item_len(ih), ih_location(ih), ih_free_space(ih));
121 } else
122 sprintf(buf, "[NULL]");
Linus Torvalds1da177e2005-04-16 15:20:36 -0700123}
124
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700125static void sprintf_direntry(char *buf, struct reiserfs_dir_entry *de)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700126{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700127 char name[20];
Linus Torvalds1da177e2005-04-16 15:20:36 -0700128
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700129 memcpy(name, de->de_name, de->de_namelen > 19 ? 19 : de->de_namelen);
130 name[de->de_namelen > 19 ? 19 : de->de_namelen] = 0;
131 sprintf(buf, "\"%s\"==>[%d %d]", name, de->de_dir_id, de->de_objectid);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700132}
133
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700134static void sprintf_block_head(char *buf, struct buffer_head *bh)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700135{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700136 sprintf(buf, "level=%d, nr_items=%d, free_space=%d rdkey ",
137 B_LEVEL(bh), B_NR_ITEMS(bh), B_FREE_SPACE(bh));
Linus Torvalds1da177e2005-04-16 15:20:36 -0700138}
139
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700140static void sprintf_buffer_head(char *buf, struct buffer_head *bh)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700141{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700142 char b[BDEVNAME_SIZE];
Linus Torvalds1da177e2005-04-16 15:20:36 -0700143
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700144 sprintf(buf,
Badari Pulavarty205f87f2006-03-26 01:38:00 -0800145 "dev %s, size %zd, blocknr %llu, count %d, state 0x%lx, page %p, (%s, %s, %s)",
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700146 bdevname(bh->b_bdev, b), bh->b_size,
147 (unsigned long long)bh->b_blocknr, atomic_read(&(bh->b_count)),
148 bh->b_state, bh->b_page,
149 buffer_uptodate(bh) ? "UPTODATE" : "!UPTODATE",
150 buffer_dirty(bh) ? "DIRTY" : "CLEAN",
151 buffer_locked(bh) ? "LOCKED" : "UNLOCKED");
Linus Torvalds1da177e2005-04-16 15:20:36 -0700152}
153
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700154static void sprintf_disk_child(char *buf, struct disk_child *dc)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700155{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700156 sprintf(buf, "[dc_number=%d, dc_size=%u]", dc_block_number(dc),
157 dc_size(dc));
Linus Torvalds1da177e2005-04-16 15:20:36 -0700158}
159
Jeff Mahoneycacbe3d2009-03-30 14:02:22 -0400160static char *is_there_reiserfs_struct(char *fmt, int *what)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700161{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700162 char *k = fmt;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700163
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700164 while ((k = strchr(k, '%')) != NULL) {
165 if (k[1] == 'k' || k[1] == 'K' || k[1] == 'h' || k[1] == 't' ||
166 k[1] == 'z' || k[1] == 'b' || k[1] == 'y' || k[1] == 'a') {
167 *what = k[1];
168 break;
169 }
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700170 k++;
171 }
172 return k;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700173}
174
Linus Torvalds1da177e2005-04-16 15:20:36 -0700175/* debugging reiserfs we used to print out a lot of different
176 variables, like keys, item headers, buffer heads etc. Values of
177 most fields matter. So it took a long time just to write
178 appropriative printk. With this reiserfs_warning you can use format
179 specification for complex structures like you used to do with
180 printfs for integers, doubles and pointers. For instance, to print
181 out key structure you have to write just:
182 reiserfs_warning ("bad key %k", key);
183 instead of
184 printk ("bad key %lu %lu %lu %lu", key->k_dir_id, key->k_objectid,
185 key->k_offset, key->k_uniqueness);
186*/
187
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700188static void prepare_error_buf(const char *fmt, va_list args)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700189{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700190 char *fmt1 = fmt_buf;
191 char *k;
192 char *p = error_buf;
Jeff Mahoneycacbe3d2009-03-30 14:02:22 -0400193 int what;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700194
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700195 strcpy(fmt1, fmt);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700196
Jeff Mahoneycacbe3d2009-03-30 14:02:22 -0400197 while ((k = is_there_reiserfs_struct(fmt1, &what)) != NULL) {
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700198 *k = 0;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700199
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700200 p += vsprintf(p, fmt1, args);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700201
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700202 switch (what) {
203 case 'k':
204 sprintf_le_key(p, va_arg(args, struct reiserfs_key *));
205 break;
206 case 'K':
207 sprintf_cpu_key(p, va_arg(args, struct cpu_key *));
208 break;
209 case 'h':
210 sprintf_item_head(p, va_arg(args, struct item_head *));
211 break;
212 case 't':
213 sprintf_direntry(p,
214 va_arg(args,
215 struct reiserfs_dir_entry *));
216 break;
217 case 'y':
218 sprintf_disk_child(p,
219 va_arg(args, struct disk_child *));
220 break;
221 case 'z':
222 sprintf_block_head(p,
223 va_arg(args, struct buffer_head *));
224 break;
225 case 'b':
226 sprintf_buffer_head(p,
227 va_arg(args, struct buffer_head *));
228 break;
229 case 'a':
230 sprintf_de_head(p,
231 va_arg(args,
232 struct reiserfs_de_head *));
233 break;
234 }
Linus Torvalds1da177e2005-04-16 15:20:36 -0700235
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700236 p += strlen(p);
237 fmt1 = k + 2;
238 }
239 vsprintf(p, fmt1, args);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700240
241}
242
Linus Torvalds1da177e2005-04-16 15:20:36 -0700243/* in addition to usual conversion specifiers this accepts reiserfs
244 specific conversion specifiers:
245 %k to print little endian key,
246 %K to print cpu key,
247 %h to print item_head,
248 %t to print directory entry
249 %z to print block head (arg must be struct buffer_head *
250 %b to print buffer_head
251*/
252
253#define do_reiserfs_warning(fmt)\
254{\
255 va_list args;\
256 va_start( args, fmt );\
257 prepare_error_buf( fmt, args );\
258 va_end( args );\
259}
260
Jeff Mahoney45b03d52009-03-30 14:02:21 -0400261void __reiserfs_warning(struct super_block *sb, const char *id,
262 const char *function, const char *fmt, ...)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700263{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700264 do_reiserfs_warning(fmt);
265 if (sb)
Jeff Mahoney45b03d52009-03-30 14:02:21 -0400266 printk(KERN_WARNING "REISERFS warning (device %s): %s%s%s: "
267 "%s\n", sb->s_id, id ? id : "", id ? " " : "",
268 function, error_buf);
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700269 else
Jeff Mahoney45b03d52009-03-30 14:02:21 -0400270 printk(KERN_WARNING "REISERFS warning: %s%s%s: %s\n",
271 id ? id : "", id ? " " : "", function, error_buf);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700272}
273
274/* No newline.. reiserfs_info calls can be followed by printk's */
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700275void reiserfs_info(struct super_block *sb, const char *fmt, ...)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700276{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700277 do_reiserfs_warning(fmt);
278 if (sb)
Jeff Mahoneya5437152009-03-30 14:02:19 -0400279 printk(KERN_NOTICE "REISERFS (device %s): %s",
280 sb->s_id, error_buf);
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700281 else
Jeff Mahoneya5437152009-03-30 14:02:19 -0400282 printk(KERN_NOTICE "REISERFS %s:", error_buf);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700283}
284
285/* No newline.. reiserfs_printk calls can be followed by printk's */
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700286static void reiserfs_printk(const char *fmt, ...)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700287{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700288 do_reiserfs_warning(fmt);
289 printk(error_buf);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700290}
291
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700292void reiserfs_debug(struct super_block *s, int level, const char *fmt, ...)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700293{
294#ifdef CONFIG_REISERFS_CHECK
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700295 do_reiserfs_warning(fmt);
296 if (s)
Jeff Mahoneya5437152009-03-30 14:02:19 -0400297 printk(KERN_DEBUG "REISERFS debug (device %s): %s\n",
298 s->s_id, error_buf);
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700299 else
Jeff Mahoneya5437152009-03-30 14:02:19 -0400300 printk(KERN_DEBUG "REISERFS debug: %s\n", error_buf);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700301#endif
302}
303
304/* The format:
305
306 maintainer-errorid: [function-name:] message
307
308 where errorid is unique to the maintainer and function-name is
309 optional, is recommended, so that anyone can easily find the bug
310 with a simple grep for the short to type string
311 maintainer-errorid. Don't bother with reusing errorids, there are
312 lots of numbers out there.
313
314 Example:
315
316 reiserfs_panic(
317 p_sb, "reiser-29: reiserfs_new_blocknrs: "
318 "one of search_start or rn(%d) is equal to MAX_B_NUM,"
319 "which means that we are optimizing location based on the bogus location of a temp buffer (%p).",
320 rn, bh
321 );
322
323 Regular panic()s sometimes clear the screen before the message can
324 be read, thus the need for the while loop.
325
326 Numbering scheme for panic used by Vladimir and Anatoly( Hans completely ignores this scheme, and considers it
327 pointless complexity):
328
329 panics in reiserfs_fs.h have numbers from 1000 to 1999
330 super.c 2000 to 2999
331 preserve.c (unused) 3000 to 3999
332 bitmap.c 4000 to 4999
333 stree.c 5000 to 5999
334 prints.c 6000 to 6999
335 namei.c 7000 to 7999
336 fix_nodes.c 8000 to 8999
337 dir.c 9000 to 9999
338 lbalance.c 10000 to 10999
339 ibalance.c 11000 to 11999 not ready
340 do_balan.c 12000 to 12999
341 inode.c 13000 to 13999
342 file.c 14000 to 14999
343 objectid.c 15000 - 15999
344 buffer.c 16000 - 16999
345 symlink.c 17000 - 17999
346
347 . */
348
Linus Torvalds1da177e2005-04-16 15:20:36 -0700349#ifdef CONFIG_REISERFS_CHECK
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700350extern struct tree_balance *cur_tb;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700351#endif
352
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700353void reiserfs_panic(struct super_block *sb, const char *fmt, ...)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700354{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700355 do_reiserfs_warning(fmt);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700356
Jeff Mahoney8e186e42007-10-18 23:39:24 -0700357 dump_stack();
358
359 panic(KERN_EMERG "REISERFS: panic (device %s): %s\n",
360 reiserfs_bdevname(sb), error_buf);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700361}
362
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700363void reiserfs_abort(struct super_block *sb, int errno, const char *fmt, ...)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700364{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700365 do_reiserfs_warning(fmt);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700366
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700367 if (reiserfs_error_panic(sb)) {
Jeff Mahoneya5437152009-03-30 14:02:19 -0400368 panic(KERN_CRIT "REISERFS panic (device %s): %s\n", sb->s_id,
369 error_buf);
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700370 }
Linus Torvalds1da177e2005-04-16 15:20:36 -0700371
Jeff Mahoneya5437152009-03-30 14:02:19 -0400372 if (reiserfs_is_journal_aborted(SB_JOURNAL(sb)))
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700373 return;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700374
Jeff Mahoneya5437152009-03-30 14:02:19 -0400375 printk(KERN_CRIT "REISERFS abort (device %s): %s\n", sb->s_id,
376 error_buf);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700377
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700378 sb->s_flags |= MS_RDONLY;
379 reiserfs_journal_abort(sb, errno);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700380}
381
382/* this prints internal nodes (4 keys/items in line) (dc_number,
383 dc_size)[k_dirid, k_objectid, k_offset, k_uniqueness](dc_number,
384 dc_size)...*/
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700385static int print_internal(struct buffer_head *bh, int first, int last)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700386{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700387 struct reiserfs_key *key;
388 struct disk_child *dc;
389 int i;
390 int from, to;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700391
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700392 if (!B_IS_KEYS_LEVEL(bh))
393 return 1;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700394
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700395 check_internal(bh);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700396
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700397 if (first == -1) {
398 from = 0;
399 to = B_NR_ITEMS(bh);
400 } else {
401 from = first;
402 to = last < B_NR_ITEMS(bh) ? last : B_NR_ITEMS(bh);
403 }
Linus Torvalds1da177e2005-04-16 15:20:36 -0700404
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700405 reiserfs_printk("INTERNAL NODE (%ld) contains %z\n", bh->b_blocknr, bh);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700406
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700407 dc = B_N_CHILD(bh, from);
408 reiserfs_printk("PTR %d: %y ", from, dc);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700409
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700410 for (i = from, key = B_N_PDELIM_KEY(bh, from), dc++; i < to;
411 i++, key++, dc++) {
412 reiserfs_printk("KEY %d: %k PTR %d: %y ", i, key, i + 1, dc);
413 if (i && i % 4 == 0)
414 printk("\n");
415 }
416 printk("\n");
Linus Torvalds1da177e2005-04-16 15:20:36 -0700417 return 0;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700418}
419
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700420static int print_leaf(struct buffer_head *bh, int print_mode, int first,
421 int last)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700422{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700423 struct block_head *blkh;
424 struct item_head *ih;
425 int i, nr;
426 int from, to;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700427
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700428 if (!B_IS_ITEMS_LEVEL(bh))
429 return 1;
430
431 check_leaf(bh);
432
433 blkh = B_BLK_HEAD(bh);
434 ih = B_N_PITEM_HEAD(bh, 0);
435 nr = blkh_nr_item(blkh);
436
437 printk
438 ("\n===================================================================\n");
439 reiserfs_printk("LEAF NODE (%ld) contains %z\n", bh->b_blocknr, bh);
440
441 if (!(print_mode & PRINT_LEAF_ITEMS)) {
442 reiserfs_printk("FIRST ITEM_KEY: %k, LAST ITEM KEY: %k\n",
443 &(ih->ih_key), &((ih + nr - 1)->ih_key));
444 return 0;
445 }
446
447 if (first < 0 || first > nr - 1)
448 from = 0;
449 else
450 from = first;
451
452 if (last < 0 || last > nr)
453 to = nr;
454 else
455 to = last;
456
457 ih += from;
458 printk
459 ("-------------------------------------------------------------------------------\n");
460 printk
461 ("|##| type | key | ilen | free_space | version | loc |\n");
462 for (i = from; i < to; i++, ih++) {
463 printk
464 ("-------------------------------------------------------------------------------\n");
465 reiserfs_printk("|%2d| %h |\n", i, ih);
466 if (print_mode & PRINT_LEAF_ITEMS)
467 op_print_item(ih, B_I_PITEM(bh, ih));
468 }
469
470 printk
471 ("===================================================================\n");
472
473 return 0;
474}
475
476char *reiserfs_hashname(int code)
477{
478 if (code == YURA_HASH)
479 return "rupasov";
480 if (code == TEA_HASH)
481 return "tea";
482 if (code == R5_HASH)
483 return "r5";
484
485 return "unknown";
Linus Torvalds1da177e2005-04-16 15:20:36 -0700486}
487
488/* return 1 if this is not super block */
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700489static int print_super_block(struct buffer_head *bh)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700490{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700491 struct reiserfs_super_block *rs =
492 (struct reiserfs_super_block *)(bh->b_data);
493 int skipped, data_blocks;
494 char *version;
495 char b[BDEVNAME_SIZE];
Linus Torvalds1da177e2005-04-16 15:20:36 -0700496
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700497 if (is_reiserfs_3_5(rs)) {
498 version = "3.5";
499 } else if (is_reiserfs_3_6(rs)) {
500 version = "3.6";
501 } else if (is_reiserfs_jr(rs)) {
502 version = ((sb_version(rs) == REISERFS_VERSION_2) ?
503 "3.6" : "3.5");
504 } else {
505 return 1;
506 }
Linus Torvalds1da177e2005-04-16 15:20:36 -0700507
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700508 printk("%s\'s super block is in block %llu\n", bdevname(bh->b_bdev, b),
509 (unsigned long long)bh->b_blocknr);
510 printk("Reiserfs version %s\n", version);
511 printk("Block count %u\n", sb_block_count(rs));
512 printk("Blocksize %d\n", sb_blocksize(rs));
513 printk("Free blocks %u\n", sb_free_blocks(rs));
514 // FIXME: this would be confusing if
515 // someone stores reiserfs super block in some data block ;)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700516// skipped = (bh->b_blocknr * bh->b_size) / sb_blocksize(rs);
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700517 skipped = bh->b_blocknr;
518 data_blocks = sb_block_count(rs) - skipped - 1 - sb_bmap_nr(rs) -
519 (!is_reiserfs_jr(rs) ? sb_jp_journal_size(rs) +
520 1 : sb_reserved_for_journal(rs)) - sb_free_blocks(rs);
521 printk
522 ("Busy blocks (skipped %d, bitmaps - %d, journal (or reserved) blocks - %d\n"
523 "1 super block, %d data blocks\n", skipped, sb_bmap_nr(rs),
524 (!is_reiserfs_jr(rs) ? (sb_jp_journal_size(rs) + 1) :
525 sb_reserved_for_journal(rs)), data_blocks);
526 printk("Root block %u\n", sb_root_block(rs));
527 printk("Journal block (first) %d\n", sb_jp_journal_1st_block(rs));
528 printk("Journal dev %d\n", sb_jp_journal_dev(rs));
529 printk("Journal orig size %d\n", sb_jp_journal_size(rs));
530 printk("FS state %d\n", sb_fs_state(rs));
531 printk("Hash function \"%s\"\n",
532 reiserfs_hashname(sb_hash_function_code(rs)));
533
534 printk("Tree height %d\n", sb_tree_height(rs));
535 return 0;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700536}
537
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700538static int print_desc_block(struct buffer_head *bh)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700539{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700540 struct reiserfs_journal_desc *desc;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700541
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700542 if (memcmp(get_journal_desc_magic(bh), JOURNAL_DESC_MAGIC, 8))
543 return 1;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700544
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700545 desc = (struct reiserfs_journal_desc *)(bh->b_data);
546 printk("Desc block %llu (j_trans_id %d, j_mount_id %d, j_len %d)",
547 (unsigned long long)bh->b_blocknr, get_desc_trans_id(desc),
548 get_desc_mount_id(desc), get_desc_trans_len(desc));
Linus Torvalds1da177e2005-04-16 15:20:36 -0700549
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700550 return 0;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700551}
552
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700553void print_block(struct buffer_head *bh, ...) //int print_mode, int first, int last)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700554{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700555 va_list args;
556 int mode, first, last;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700557
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700558 va_start(args, bh);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700559
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700560 if (!bh) {
561 printk("print_block: buffer is NULL\n");
562 return;
563 }
Linus Torvalds1da177e2005-04-16 15:20:36 -0700564
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700565 mode = va_arg(args, int);
566 first = va_arg(args, int);
567 last = va_arg(args, int);
568 if (print_leaf(bh, mode, first, last))
569 if (print_internal(bh, first, last))
570 if (print_super_block(bh))
571 if (print_desc_block(bh))
572 printk
573 ("Block %llu contains unformatted data\n",
574 (unsigned long long)bh->b_blocknr);
Richard Knutsson774ed222008-02-06 01:37:15 -0800575
576 va_end(args);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700577}
578
Linus Torvalds1da177e2005-04-16 15:20:36 -0700579static char print_tb_buf[2048];
580
581/* this stores initial state of tree balance in the print_tb_buf */
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700582void store_print_tb(struct tree_balance *tb)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700583{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700584 int h = 0;
585 int i;
586 struct buffer_head *tbSh, *tbFh;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700587
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700588 if (!tb)
589 return;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700590
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700591 sprintf(print_tb_buf, "\n"
592 "BALANCING %d\n"
593 "MODE=%c, ITEM_POS=%d POS_IN_ITEM=%d\n"
594 "=====================================================================\n"
595 "* h * S * L * R * F * FL * FR * CFL * CFR *\n",
596 REISERFS_SB(tb->tb_sb)->s_do_balance,
597 tb->tb_mode, PATH_LAST_POSITION(tb->tb_path),
598 tb->tb_path->pos_in_item);
599
Tobias Klausere8c96f82006-03-24 03:15:34 -0800600 for (h = 0; h < ARRAY_SIZE(tb->insert_size); h++) {
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700601 if (PATH_H_PATH_OFFSET(tb->tb_path, h) <=
602 tb->tb_path->path_length
603 && PATH_H_PATH_OFFSET(tb->tb_path,
604 h) > ILLEGAL_PATH_ELEMENT_OFFSET) {
605 tbSh = PATH_H_PBUFFER(tb->tb_path, h);
606 tbFh = PATH_H_PPARENT(tb->tb_path, h);
607 } else {
608 tbSh = NULL;
609 tbFh = NULL;
610 }
611 sprintf(print_tb_buf + strlen(print_tb_buf),
612 "* %d * %3lld(%2d) * %3lld(%2d) * %3lld(%2d) * %5lld * %5lld * %5lld * %5lld * %5lld *\n",
613 h,
614 (tbSh) ? (long long)(tbSh->b_blocknr) : (-1LL),
615 (tbSh) ? atomic_read(&(tbSh->b_count)) : -1,
616 (tb->L[h]) ? (long long)(tb->L[h]->b_blocknr) : (-1LL),
617 (tb->L[h]) ? atomic_read(&(tb->L[h]->b_count)) : -1,
618 (tb->R[h]) ? (long long)(tb->R[h]->b_blocknr) : (-1LL),
619 (tb->R[h]) ? atomic_read(&(tb->R[h]->b_count)) : -1,
620 (tbFh) ? (long long)(tbFh->b_blocknr) : (-1LL),
621 (tb->FL[h]) ? (long long)(tb->FL[h]->
622 b_blocknr) : (-1LL),
623 (tb->FR[h]) ? (long long)(tb->FR[h]->
624 b_blocknr) : (-1LL),
625 (tb->CFL[h]) ? (long long)(tb->CFL[h]->
626 b_blocknr) : (-1LL),
627 (tb->CFR[h]) ? (long long)(tb->CFR[h]->
628 b_blocknr) : (-1LL));
Linus Torvalds1da177e2005-04-16 15:20:36 -0700629 }
Linus Torvalds1da177e2005-04-16 15:20:36 -0700630
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700631 sprintf(print_tb_buf + strlen(print_tb_buf),
632 "=====================================================================\n"
633 "* h * size * ln * lb * rn * rb * blkn * s0 * s1 * s1b * s2 * s2b * curb * lk * rk *\n"
634 "* 0 * %4d * %2d * %2d * %2d * %2d * %4d * %2d * %2d * %3d * %2d * %3d * %4d * %2d * %2d *\n",
635 tb->insert_size[0], tb->lnum[0], tb->lbytes, tb->rnum[0],
636 tb->rbytes, tb->blknum[0], tb->s0num, tb->s1num, tb->s1bytes,
637 tb->s2num, tb->s2bytes, tb->cur_blknum, tb->lkey[0],
638 tb->rkey[0]);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700639
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700640 /* this prints balance parameters for non-leaf levels */
641 h = 0;
642 do {
643 h++;
644 sprintf(print_tb_buf + strlen(print_tb_buf),
645 "* %d * %4d * %2d * * %2d * * %2d *\n",
646 h, tb->insert_size[h], tb->lnum[h], tb->rnum[h],
647 tb->blknum[h]);
648 } while (tb->insert_size[h]);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700649
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700650 sprintf(print_tb_buf + strlen(print_tb_buf),
651 "=====================================================================\n"
652 "FEB list: ");
Linus Torvalds1da177e2005-04-16 15:20:36 -0700653
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700654 /* print FEB list (list of buffers in form (bh (b_blocknr, b_count), that will be used for new nodes) */
655 h = 0;
Tobias Klausere8c96f82006-03-24 03:15:34 -0800656 for (i = 0; i < ARRAY_SIZE(tb->FEB); i++)
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700657 sprintf(print_tb_buf + strlen(print_tb_buf),
658 "%p (%llu %d)%s", tb->FEB[i],
659 tb->FEB[i] ? (unsigned long long)tb->FEB[i]->
660 b_blocknr : 0ULL,
661 tb->FEB[i] ? atomic_read(&(tb->FEB[i]->b_count)) : 0,
Tobias Klausere8c96f82006-03-24 03:15:34 -0800662 (i == ARRAY_SIZE(tb->FEB) - 1) ? "\n" : ", ");
Linus Torvalds1da177e2005-04-16 15:20:36 -0700663
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700664 sprintf(print_tb_buf + strlen(print_tb_buf),
665 "======================== the end ====================================\n");
Linus Torvalds1da177e2005-04-16 15:20:36 -0700666}
667
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700668void print_cur_tb(char *mes)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700669{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700670 printk("%s\n%s", mes, print_tb_buf);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700671}
672
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700673static void check_leaf_block_head(struct buffer_head *bh)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700674{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700675 struct block_head *blkh;
676 int nr;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700677
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700678 blkh = B_BLK_HEAD(bh);
679 nr = blkh_nr_item(blkh);
680 if (nr > (bh->b_size - BLKH_SIZE) / IH_SIZE)
681 reiserfs_panic(NULL,
682 "vs-6010: check_leaf_block_head: invalid item number %z",
683 bh);
684 if (blkh_free_space(blkh) > bh->b_size - BLKH_SIZE - IH_SIZE * nr)
685 reiserfs_panic(NULL,
686 "vs-6020: check_leaf_block_head: invalid free space %z",
687 bh);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700688
689}
690
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700691static void check_internal_block_head(struct buffer_head *bh)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700692{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700693 struct block_head *blkh;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700694
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700695 blkh = B_BLK_HEAD(bh);
696 if (!(B_LEVEL(bh) > DISK_LEAF_NODE_LEVEL && B_LEVEL(bh) <= MAX_HEIGHT))
697 reiserfs_panic(NULL,
698 "vs-6025: check_internal_block_head: invalid level %z",
699 bh);
700
701 if (B_NR_ITEMS(bh) > (bh->b_size - BLKH_SIZE) / IH_SIZE)
702 reiserfs_panic(NULL,
703 "vs-6030: check_internal_block_head: invalid item number %z",
704 bh);
705
706 if (B_FREE_SPACE(bh) !=
707 bh->b_size - BLKH_SIZE - KEY_SIZE * B_NR_ITEMS(bh) -
708 DC_SIZE * (B_NR_ITEMS(bh) + 1))
709 reiserfs_panic(NULL,
710 "vs-6040: check_internal_block_head: invalid free space %z",
711 bh);
712
Linus Torvalds1da177e2005-04-16 15:20:36 -0700713}
714
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700715void check_leaf(struct buffer_head *bh)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700716{
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700717 int i;
718 struct item_head *ih;
719
720 if (!bh)
721 return;
722 check_leaf_block_head(bh);
723 for (i = 0, ih = B_N_PITEM_HEAD(bh, 0); i < B_NR_ITEMS(bh); i++, ih++)
724 op_check_item(ih, B_I_PITEM(bh, ih));
Linus Torvalds1da177e2005-04-16 15:20:36 -0700725}
726
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700727void check_internal(struct buffer_head *bh)
728{
729 if (!bh)
730 return;
731 check_internal_block_head(bh);
732}
Linus Torvalds1da177e2005-04-16 15:20:36 -0700733
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700734void print_statistics(struct super_block *s)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700735{
736
Linus Torvaldsbd4c6252005-07-12 20:21:28 -0700737 /*
738 printk ("reiserfs_put_super: session statistics: balances %d, fix_nodes %d, \
739 bmap with search %d, without %d, dir2ind %d, ind2dir %d\n",
740 REISERFS_SB(s)->s_do_balance, REISERFS_SB(s)->s_fix_nodes,
741 REISERFS_SB(s)->s_bmaps, REISERFS_SB(s)->s_bmaps_without_search,
742 REISERFS_SB(s)->s_direct2indirect, REISERFS_SB(s)->s_indirect2direct);
743 */
Linus Torvalds1da177e2005-04-16 15:20:36 -0700744
745}