fs/dlm/debug_fs.c

   1 // SPDX-License-Identifier: GPL-2.0-only
   2 /******************************************************************************
   3 *******************************************************************************
   4 **
   5 **  Copyright (C) 2005-2009 Red Hat, Inc.  All rights reserved.
   6 **
   7 **
   8 *******************************************************************************
   9 ******************************************************************************/
  10
  11 #include <linux/pagemap.h>
  12 #include <linux/seq_file.h>
  13 #include <linux/init.h>
  14 #include <linux/ctype.h>
  15 #include <linux/debugfs.h>
  16 #include <linux/slab.h>
  17
  18 #include "dlm_internal.h"
  19 #include "midcomms.h"
  20 #include "lock.h"
  21
  22 #define DLM_DEBUG_BUF_LEN 4096
  23 static char debug_buf[DLM_DEBUG_BUF_LEN];
  24 static struct mutex debug_buf_lock;
  25
  26 static struct dentry *dlm_root;
  27 static struct dentry *dlm_comms;
  28
  29 static char *print_lockmode(int mode)
  30 {
  31         switch (mode) {
  32         case DLM_LOCK_IV:
  33                 return "--";
  34         case DLM_LOCK_NL:
  35                 return "NL";
  36         case DLM_LOCK_CR:
  37                 return "CR";
  38         case DLM_LOCK_CW:
  39                 return "CW";
  40         case DLM_LOCK_PR:
  41                 return "PR";
  42         case DLM_LOCK_PW:
  43                 return "PW";
  44         case DLM_LOCK_EX:
  45                 return "EX";
  46         default:
  47                 return "??";
  48         }
  49 }
  50
  51 static void print_format1_lock(struct seq_file *s, struct dlm_lkb *lkb,
  52                                struct dlm_rsb *res)
  53 {
  54         seq_printf(s, "%08x %s", lkb->lkb_id, print_lockmode(lkb->lkb_grmode));
  55
  56         if (lkb->lkb_status == DLM_LKSTS_CONVERT ||
  57             lkb->lkb_status == DLM_LKSTS_WAITING)
  58                 seq_printf(s, " (%s)", print_lockmode(lkb->lkb_rqmode));
  59
  60         if (lkb->lkb_nodeid) {
  61                 if (lkb->lkb_nodeid != res->res_nodeid)
  62                         seq_printf(s, " Remote: %3d %08x", lkb->lkb_nodeid,
  63                                    lkb->lkb_remid);
  64                 else
  65                         seq_printf(s, " Master:     %08x", lkb->lkb_remid);
  66         }
  67
  68         if (lkb->lkb_wait_type)
  69                 seq_printf(s, " wait_type: %d", lkb->lkb_wait_type);
  70
  71         seq_putc(s, '\n');
  72 }
  73
  74 static void print_format1(struct dlm_rsb *res, struct seq_file *s)
  75 {
  76         struct dlm_lkb *lkb;
  77         int i, lvblen = res->res_ls->ls_lvblen, recover_list, root_list;
  78
  79         lock_rsb(res);
  80
  81         seq_printf(s, "\nResource %p Name (len=%d) \"", res, res->res_length);
  82
  83         for (i = 0; i < res->res_length; i++) {
  84                 if (isprint(res->res_name[i]))
  85                         seq_printf(s, "%c", res->res_name[i]);
  86                 else
  87                         seq_printf(s, "%c", '.');
  88         }
  89
  90         if (res->res_nodeid > 0)
  91                 seq_printf(s, "\"\nLocal Copy, Master is node %d\n",
  92                            res->res_nodeid);
  93         else if (res->res_nodeid == 0)
  94                 seq_puts(s, "\"\nMaster Copy\n");
  95         else if (res->res_nodeid == -1)
  96                 seq_printf(s, "\"\nLooking up master (lkid %x)\n",
  97                            res->res_first_lkid);
  98         else
  99                 seq_printf(s, "\"\nInvalid master %d\n", res->res_nodeid);
 100         if (seq_has_overflowed(s))
 101                 goto out;
 102
 103         /* Print the LVB: */
 104         if (res->res_lvbptr) {
 105                 seq_puts(s, "LVB: ");
 106                 for (i = 0; i < lvblen; i++) {
 107                         if (i == lvblen / 2)
 108                                 seq_puts(s, "\n     ");
 109                         seq_printf(s, "%02x ",
 110                                    (unsigned char) res->res_lvbptr[i]);
 111                 }
 112                 if (rsb_flag(res, RSB_VALNOTVALID))
 113                         seq_puts(s, " (INVALID)");
 114                 seq_putc(s, '\n');
 115                 if (seq_has_overflowed(s))
 116                         goto out;
 117         }
 118
 119         root_list = !list_empty(&res->res_root_list);
 120         recover_list = !list_empty(&res->res_recover_list);
 121
 122         if (root_list || recover_list) {
 123                 seq_printf(s, "Recovery: root %d recover %d flags %lx count %d\n",
 124                            root_list, recover_list,
 125                            res->res_flags, res->res_recover_locks_count);
 126         }
 127
 128         /* Print the locks attached to this resource */
 129         seq_puts(s, "Granted Queue\n");
 130         list_for_each_entry(lkb, &res->res_grantqueue, lkb_statequeue) {
 131                 print_format1_lock(s, lkb, res);
 132                 if (seq_has_overflowed(s))
 133                         goto out;
 134         }
 135
 136         seq_puts(s, "Conversion Queue\n");
 137         list_for_each_entry(lkb, &res->res_convertqueue, lkb_statequeue) {
 138                 print_format1_lock(s, lkb, res);
 139                 if (seq_has_overflowed(s))
 140                         goto out;
 141         }
 142
 143         seq_puts(s, "Waiting Queue\n");
 144         list_for_each_entry(lkb, &res->res_waitqueue, lkb_statequeue) {
 145                 print_format1_lock(s, lkb, res);
 146                 if (seq_has_overflowed(s))
 147                         goto out;
 148         }
 149
 150         if (list_empty(&res->res_lookup))
 151                 goto out;
 152
 153         seq_puts(s, "Lookup Queue\n");
 154         list_for_each_entry(lkb, &res->res_lookup, lkb_rsb_lookup) {
 155                 seq_printf(s, "%08x %s",
 156                            lkb->lkb_id, print_lockmode(lkb->lkb_rqmode));
 157                 if (lkb->lkb_wait_type)
 158                         seq_printf(s, " wait_type: %d", lkb->lkb_wait_type);
 159                 seq_putc(s, '\n');
 160                 if (seq_has_overflowed(s))
 161                         goto out;
 162         }
 163  out:
 164         unlock_rsb(res);
 165 }
 166
 167 static void print_format2_lock(struct seq_file *s, struct dlm_lkb *lkb,
 168                                struct dlm_rsb *r)
 169 {
 170         u64 xid = 0;
 171         u64 us;
 172
 173         if (lkb->lkb_flags & DLM_IFL_USER) {
 174                 if (lkb->lkb_ua)
 175                         xid = lkb->lkb_ua->xid;
 176         }
 177
 178         /* microseconds since lkb was added to current queue */
 179         us = ktime_to_us(ktime_sub(ktime_get(), lkb->lkb_timestamp));
 180
 181         /* id nodeid remid pid xid exflags flags sts grmode rqmode time_us
 182            r_nodeid r_len r_name */
 183
 184         seq_printf(s, "%x %d %x %u %llu %x %x %d %d %d %llu %u %d \"%s\"\n",
 185                    lkb->lkb_id,
 186                    lkb->lkb_nodeid,
 187                    lkb->lkb_remid,
 188                    lkb->lkb_ownpid,
 189                    (unsigned long long)xid,
 190                    lkb->lkb_exflags,
 191                    lkb->lkb_flags,
 192                    lkb->lkb_status,
 193                    lkb->lkb_grmode,
 194                    lkb->lkb_rqmode,
 195                    (unsigned long long)us,
 196                    r->res_nodeid,
 197                    r->res_length,
 198                    r->res_name);
 199 }
 200
 201 static void print_format2(struct dlm_rsb *r, struct seq_file *s)
 202 {
 203         struct dlm_lkb *lkb;
 204
 205         lock_rsb(r);
 206
 207         list_for_each_entry(lkb, &r->res_grantqueue, lkb_statequeue) {
 208                 print_format2_lock(s, lkb, r);
 209                 if (seq_has_overflowed(s))
 210                         goto out;
 211         }
 212
 213         list_for_each_entry(lkb, &r->res_convertqueue, lkb_statequeue) {
 214                 print_format2_lock(s, lkb, r);
 215                 if (seq_has_overflowed(s))
 216                         goto out;
 217         }
 218
 219         list_for_each_entry(lkb, &r->res_waitqueue, lkb_statequeue) {
 220                 print_format2_lock(s, lkb, r);
 221                 if (seq_has_overflowed(s))
 222                         goto out;
 223         }
 224  out:
 225         unlock_rsb(r);
 226 }
 227
 228 static void print_format3_lock(struct seq_file *s, struct dlm_lkb *lkb,
 229                               int rsb_lookup)
 230 {
 231         u64 xid = 0;
 232
 233         if (lkb->lkb_flags & DLM_IFL_USER) {
 234                 if (lkb->lkb_ua)
 235                         xid = lkb->lkb_ua->xid;
 236         }
 237
 238         seq_printf(s, "lkb %x %d %x %u %llu %x %x %d %d %d %d %d %d %u %llu %llu\n",
 239                    lkb->lkb_id,
 240                    lkb->lkb_nodeid,
 241                    lkb->lkb_remid,
 242                    lkb->lkb_ownpid,
 243                    (unsigned long long)xid,
 244                    lkb->lkb_exflags,
 245                    lkb->lkb_flags,
 246                    lkb->lkb_status,
 247                    lkb->lkb_grmode,
 248                    lkb->lkb_rqmode,
 249                    lkb->lkb_last_bast.mode,
 250                    rsb_lookup,
 251                    lkb->lkb_wait_type,
 252                    lkb->lkb_lvbseq,
 253                    (unsigned long long)ktime_to_ns(lkb->lkb_timestamp),
 254                    (unsigned long long)ktime_to_ns(lkb->lkb_last_bast_time));
 255 }
 256
 257 static void print_format3(struct dlm_rsb *r, struct seq_file *s)
 258 {
 259         struct dlm_lkb *lkb;
 260         int i, lvblen = r->res_ls->ls_lvblen;
 261         int print_name = 1;
 262
 263         lock_rsb(r);
 264
 265         seq_printf(s, "rsb %p %d %x %lx %d %d %u %d ",
 266                    r,
 267                    r->res_nodeid,
 268                    r->res_first_lkid,
 269                    r->res_flags,
 270                    !list_empty(&r->res_root_list),
 271                    !list_empty(&r->res_recover_list),
 272                    r->res_recover_locks_count,
 273                    r->res_length);
 274         if (seq_has_overflowed(s))
 275                 goto out;
 276
 277         for (i = 0; i < r->res_length; i++) {
 278                 if (!isascii(r->res_name[i]) || !isprint(r->res_name[i]))
 279                         print_name = 0;
 280         }
 281
 282         seq_puts(s, print_name ? "str " : "hex");
 283
 284         for (i = 0; i < r->res_length; i++) {
 285                 if (print_name)
 286                         seq_printf(s, "%c", r->res_name[i]);
 287                 else
 288                         seq_printf(s, " %02x", (unsigned char)r->res_name[i]);
 289         }
 290         seq_putc(s, '\n');
 291         if (seq_has_overflowed(s))
 292                 goto out;
 293
 294         if (!r->res_lvbptr)
 295                 goto do_locks;
 296
 297         seq_printf(s, "lvb %u %d", r->res_lvbseq, lvblen);
 298
 299         for (i = 0; i < lvblen; i++)
 300                 seq_printf(s, " %02x", (unsigned char)r->res_lvbptr[i]);
 301         seq_putc(s, '\n');
 302         if (seq_has_overflowed(s))
 303                 goto out;
 304
 305  do_locks:
 306         list_for_each_entry(lkb, &r->res_grantqueue, lkb_statequeue) {
 307                 print_format3_lock(s, lkb, 0);
 308                 if (seq_has_overflowed(s))
 309                         goto out;
 310         }
 311
 312         list_for_each_entry(lkb, &r->res_convertqueue, lkb_statequeue) {
 313                 print_format3_lock(s, lkb, 0);
 314                 if (seq_has_overflowed(s))
 315                         goto out;
 316         }
 317
 318         list_for_each_entry(lkb, &r->res_waitqueue, lkb_statequeue) {
 319                 print_format3_lock(s, lkb, 0);
 320                 if (seq_has_overflowed(s))
 321                         goto out;
 322         }
 323
 324         list_for_each_entry(lkb, &r->res_lookup, lkb_rsb_lookup) {
 325                 print_format3_lock(s, lkb, 1);
 326                 if (seq_has_overflowed(s))
 327                         goto out;
 328         }
 329  out:
 330         unlock_rsb(r);
 331 }
 332
 333 static void print_format4(struct dlm_rsb *r, struct seq_file *s)
 334 {
 335         int our_nodeid = dlm_our_nodeid();
 336         int print_name = 1;
 337         int i;
 338
 339         lock_rsb(r);
 340
 341         seq_printf(s, "rsb %p %d %d %d %d %lu %lx %d ",
 342                    r,
 343                    r->res_nodeid,
 344                    r->res_master_nodeid,
 345                    r->res_dir_nodeid,
 346                    our_nodeid,
 347                    r->res_toss_time,
 348                    r->res_flags,
 349                    r->res_length);
 350
 351         for (i = 0; i < r->res_length; i++) {
 352                 if (!isascii(r->res_name[i]) || !isprint(r->res_name[i]))
 353                         print_name = 0;
 354         }
 355
 356         seq_puts(s, print_name ? "str " : "hex");
 357
 358         for (i = 0; i < r->res_length; i++) {
 359                 if (print_name)
 360                         seq_printf(s, "%c", r->res_name[i]);
 361                 else
 362                         seq_printf(s, " %02x", (unsigned char)r->res_name[i]);
 363         }
 364         seq_putc(s, '\n');
 365         unlock_rsb(r);
 366 }
 367
 368 struct rsbtbl_iter {
 369         struct dlm_rsb *rsb;
 370         unsigned bucket;
 371         int format;
 372         int header;
 373 };
 374
 375 /*
 376  * If the buffer is full, seq_printf can be called again, but it
 377  * does nothing.  So, the these printing routines periodically check
 378  * seq_has_overflowed to avoid wasting too much time trying to print to
 379  * a full buffer.
 380  */
 381
 382 static int table_seq_show(struct seq_file *seq, void *iter_ptr)
 383 {
 384         struct rsbtbl_iter *ri = iter_ptr;
 385
 386         switch (ri->format) {
 387         case 1:
 388                 print_format1(ri->rsb, seq);
 389                 break;
 390         case 2:
 391                 if (ri->header) {
 392                         seq_puts(seq, "id nodeid remid pid xid exflags flags sts grmode rqmode time_ms r_nodeid r_len r_name\n");
 393                         ri->header = 0;
 394                 }
 395                 print_format2(ri->rsb, seq);
 396                 break;
 397         case 3:
 398                 if (ri->header) {
 399                         seq_puts(seq, "version rsb 1.1 lvb 1.1 lkb 1.1\n");
 400                         ri->header = 0;
 401                 }
 402                 print_format3(ri->rsb, seq);
 403                 break;
 404         case 4:
 405                 if (ri->header) {
 406                         seq_puts(seq, "version 4 rsb 2\n");
 407                         ri->header = 0;
 408                 }
 409                 print_format4(ri->rsb, seq);
 410                 break;
 411         }
 412
 413         return 0;
 414 }
 415
 416 static const struct seq_operations format1_seq_ops;
 417 static const struct seq_operations format2_seq_ops;
 418 static const struct seq_operations format3_seq_ops;
 419 static const struct seq_operations format4_seq_ops;
 420
 421 static void *table_seq_start(struct seq_file *seq, loff_t *pos)
 422 {
 423         struct rb_root *tree;
 424         struct rb_node *node;
 425         struct dlm_ls *ls = seq->private;
 426         struct rsbtbl_iter *ri;
 427         struct dlm_rsb *r;
 428         loff_t n = *pos;
 429         unsigned bucket, entry;
 430         int toss = (seq->op == &format4_seq_ops);
 431
 432         bucket = n >> 32;
 433         entry = n & ((1LL << 32) - 1);
 434
 435         if (bucket >= ls->ls_rsbtbl_size)
 436                 return NULL;
 437
 438         ri = kzalloc(sizeof(*ri), GFP_NOFS);
 439         if (!ri)
 440                 return NULL;
 441         if (n == 0)
 442                 ri->header = 1;
 443         if (seq->op == &format1_seq_ops)
 444                 ri->format = 1;
 445         if (seq->op == &format2_seq_ops)
 446                 ri->format = 2;
 447         if (seq->op == &format3_seq_ops)
 448                 ri->format = 3;
 449         if (seq->op == &format4_seq_ops)
 450                 ri->format = 4;
 451
 452         tree = toss ? &ls->ls_rsbtbl[bucket].toss : &ls->ls_rsbtbl[bucket].keep;
 453
 454         spin_lock(&ls->ls_rsbtbl[bucket].lock);
 455         if (!RB_EMPTY_ROOT(tree)) {
 456                 for (node = rb_first(tree); node; node = rb_next(node)) {
 457                         r = rb_entry(node, struct dlm_rsb, res_hashnode);
 458                         if (!entry--) {
 459                                 dlm_hold_rsb(r);
 460                                 ri->rsb = r;
 461                                 ri->bucket = bucket;
 462                                 spin_unlock(&ls->ls_rsbtbl[bucket].lock);
 463                                 return ri;
 464                         }
 465                 }
 466         }
 467         spin_unlock(&ls->ls_rsbtbl[bucket].lock);
 468
 469         /*
 470          * move to the first rsb in the next non-empty bucket
 471          */
 472
 473         /* zero the entry */
 474         n &= ~((1LL << 32) - 1);
 475
 476         while (1) {
 477                 bucket++;
 478                 n += 1LL << 32;
 479
 480                 if (bucket >= ls->ls_rsbtbl_size) {
 481                         kfree(ri);
 482                         return NULL;
 483                 }
 484                 tree = toss ? &ls->ls_rsbtbl[bucket].toss : &ls->ls_rsbtbl[bucket].keep;
 485
 486                 spin_lock(&ls->ls_rsbtbl[bucket].lock);
 487                 if (!RB_EMPTY_ROOT(tree)) {
 488                         node = rb_first(tree);
 489                         r = rb_entry(node, struct dlm_rsb, res_hashnode);
 490                         dlm_hold_rsb(r);
 491                         ri->rsb = r;
 492                         ri->bucket = bucket;
 493                         spin_unlock(&ls->ls_rsbtbl[bucket].lock);
 494                         *pos = n;
 495                         return ri;
 496                 }
 497                 spin_unlock(&ls->ls_rsbtbl[bucket].lock);
 498         }
 499 }
 500
 501 static void *table_seq_next(struct seq_file *seq, void *iter_ptr, loff_t *pos)
 502 {
 503         struct dlm_ls *ls = seq->private;
 504         struct rsbtbl_iter *ri = iter_ptr;
 505         struct rb_root *tree;
 506         struct rb_node *next;
 507         struct dlm_rsb *r, *rp;
 508         loff_t n = *pos;
 509         unsigned bucket;
 510         int toss = (seq->op == &format4_seq_ops);
 511
 512         bucket = n >> 32;
 513
 514         /*
 515          * move to the next rsb in the same bucket
 516          */
 517
 518         spin_lock(&ls->ls_rsbtbl[bucket].lock);
 519         rp = ri->rsb;
 520         next = rb_next(&rp->res_hashnode);
 521
 522         if (next) {
 523                 r = rb_entry(next, struct dlm_rsb, res_hashnode);
 524                 dlm_hold_rsb(r);
 525                 ri->rsb = r;
 526                 spin_unlock(&ls->ls_rsbtbl[bucket].lock);
 527                 dlm_put_rsb(rp);
 528                 ++*pos;
 529                 return ri;
 530         }
 531         spin_unlock(&ls->ls_rsbtbl[bucket].lock);
 532         dlm_put_rsb(rp);
 533
 534         /*
 535          * move to the first rsb in the next non-empty bucket
 536          */
 537
 538         /* zero the entry */
 539         n &= ~((1LL << 32) - 1);
 540
 541         while (1) {
 542                 bucket++;
 543                 n += 1LL << 32;
 544
 545                 if (bucket >= ls->ls_rsbtbl_size) {
 546                         kfree(ri);
 547                         ++*pos;
 548                         return NULL;
 549                 }
 550                 tree = toss ? &ls->ls_rsbtbl[bucket].toss : &ls->ls_rsbtbl[bucket].keep;
 551
 552                 spin_lock(&ls->ls_rsbtbl[bucket].lock);
 553                 if (!RB_EMPTY_ROOT(tree)) {
 554                         next = rb_first(tree);
 555                         r = rb_entry(next, struct dlm_rsb, res_hashnode);
 556                         dlm_hold_rsb(r);
 557                         ri->rsb = r;
 558                         ri->bucket = bucket;
 559                         spin_unlock(&ls->ls_rsbtbl[bucket].lock);
 560                         *pos = n;
 561                         return ri;
 562                 }
 563                 spin_unlock(&ls->ls_rsbtbl[bucket].lock);
 564         }
 565 }
 566
 567 static void table_seq_stop(struct seq_file *seq, void *iter_ptr)
 568 {
 569         struct rsbtbl_iter *ri = iter_ptr;
 570
 571         if (ri) {
 572                 dlm_put_rsb(ri->rsb);
 573                 kfree(ri);
 574         }
 575 }
 576
 577 static const struct seq_operations format1_seq_ops = {
 578         .start = table_seq_start,
 579         .next  = table_seq_next,
 580         .stop  = table_seq_stop,
 581         .show  = table_seq_show,
 582 };
 583
 584 static const struct seq_operations format2_seq_ops = {
 585         .start = table_seq_start,
 586         .next  = table_seq_next,
 587         .stop  = table_seq_stop,
 588         .show  = table_seq_show,
 589 };
 590
 591 static const struct seq_operations format3_seq_ops = {
 592         .start = table_seq_start,
 593         .next  = table_seq_next,
 594         .stop  = table_seq_stop,
 595         .show  = table_seq_show,
 596 };
 597
 598 static const struct seq_operations format4_seq_ops = {
 599         .start = table_seq_start,
 600         .next  = table_seq_next,
 601         .stop  = table_seq_stop,
 602         .show  = table_seq_show,
 603 };
 604
 605 static const struct file_operations format1_fops;
 606 static const struct file_operations format2_fops;
 607 static const struct file_operations format3_fops;
 608 static const struct file_operations format4_fops;
 609
 610 static int table_open1(struct inode *inode, struct file *file)
 611 {
 612         struct seq_file *seq;
 613         int ret;
 614
 615         ret = seq_open(file, &format1_seq_ops);
 616         if (ret)
 617                 return ret;
 618
 619         seq = file->private_data;
 620         seq->private = inode->i_private; /* the dlm_ls */
 621         return 0;
 622 }
 623
 624 static int table_open2(struct inode *inode, struct file *file)
 625 {
 626         struct seq_file *seq;
 627         int ret;
 628
 629         ret = seq_open(file, &format2_seq_ops);
 630         if (ret)
 631                 return ret;
 632
 633         seq = file->private_data;
 634         seq->private = inode->i_private; /* the dlm_ls */
 635         return 0;
 636 }
 637
 638 static ssize_t table_write2(struct file *file, const char __user *user_buf,
 639                             size_t count, loff_t *ppos)
 640 {
 641         struct seq_file *seq = file->private_data;
 642         int n, len, lkb_nodeid, lkb_status, error;
 643         char name[DLM_RESNAME_MAXLEN + 1] = {};
 644         struct dlm_ls *ls = seq->private;
 645         unsigned int lkb_flags;
 646         char buf[256] = {};
 647         uint32_t lkb_id;
 648
 649         if (copy_from_user(buf, user_buf,
 650                            min_t(size_t, sizeof(buf) - 1, count)))
 651                 return -EFAULT;
 652
 653         n = sscanf(buf, "%x %" __stringify(DLM_RESNAME_MAXLEN) "s %x %d %d",
 654                    &lkb_id, name, &lkb_flags, &lkb_nodeid, &lkb_status);
 655         if (n != 5)
 656                 return -EINVAL;
 657
 658         len = strnlen(name, DLM_RESNAME_MAXLEN);
 659         error = dlm_debug_add_lkb(ls, lkb_id, name, len, lkb_flags,
 660                                   lkb_nodeid, lkb_status);
 661         if (error)
 662                 return error;
 663
 664         return count;
 665 }
 666
 667 static int table_open3(struct inode *inode, struct file *file)
 668 {
 669         struct seq_file *seq;
 670         int ret;
 671
 672         ret = seq_open(file, &format3_seq_ops);
 673         if (ret)
 674                 return ret;
 675
 676         seq = file->private_data;
 677         seq->private = inode->i_private; /* the dlm_ls */
 678         return 0;
 679 }
 680
 681 static int table_open4(struct inode *inode, struct file *file)
 682 {
 683         struct seq_file *seq;
 684         int ret;
 685
 686         ret = seq_open(file, &format4_seq_ops);
 687         if (ret)
 688                 return ret;
 689
 690         seq = file->private_data;
 691         seq->private = inode->i_private; /* the dlm_ls */
 692         return 0;
 693 }
 694
 695 static const struct file_operations format1_fops = {
 696         .owner   = THIS_MODULE,
 697         .open    = table_open1,
 698         .read    = seq_read,
 699         .llseek  = seq_lseek,
 700         .release = seq_release
 701 };
 702
 703 static const struct file_operations format2_fops = {
 704         .owner   = THIS_MODULE,
 705         .open    = table_open2,
 706         .read    = seq_read,
 707         .write   = table_write2,
 708         .llseek  = seq_lseek,
 709         .release = seq_release
 710 };
 711
 712 static const struct file_operations format3_fops = {
 713         .owner   = THIS_MODULE,
 714         .open    = table_open3,
 715         .read    = seq_read,
 716         .llseek  = seq_lseek,
 717         .release = seq_release
 718 };
 719
 720 static const struct file_operations format4_fops = {
 721         .owner   = THIS_MODULE,
 722         .open    = table_open4,
 723         .read    = seq_read,
 724         .llseek  = seq_lseek,
 725         .release = seq_release
 726 };
 727
 728 /*
 729  * dump lkb's on the ls_waiters list
 730  */
 731 static ssize_t waiters_read(struct file *file, char __user *userbuf,
 732                             size_t count, loff_t *ppos)
 733 {
 734         struct dlm_ls *ls = file->private_data;
 735         struct dlm_lkb *lkb;
 736         size_t len = DLM_DEBUG_BUF_LEN, pos = 0, ret, rv;
 737
 738         mutex_lock(&debug_buf_lock);
 739         mutex_lock(&ls->ls_waiters_mutex);
 740         memset(debug_buf, 0, sizeof(debug_buf));
 741
 742         list_for_each_entry(lkb, &ls->ls_waiters, lkb_wait_reply) {
 743                 ret = snprintf(debug_buf + pos, len - pos, "%x %d %d %s\n",
 744                                lkb->lkb_id, lkb->lkb_wait_type,
 745                                lkb->lkb_nodeid, lkb->lkb_resource->res_name);
 746                 if (ret >= len - pos)
 747                         break;
 748                 pos += ret;
 749         }
 750         mutex_unlock(&ls->ls_waiters_mutex);
 751
 752         rv = simple_read_from_buffer(userbuf, count, ppos, debug_buf, pos);
 753         mutex_unlock(&debug_buf_lock);
 754         return rv;
 755 }
 756
 757 static ssize_t waiters_write(struct file *file, const char __user *user_buf,
 758                              size_t count, loff_t *ppos)
 759 {
 760         struct dlm_ls *ls = file->private_data;
 761         int mstype, to_nodeid;
 762         char buf[128] = {};
 763         uint32_t lkb_id;
 764         int n, error;
 765
 766         if (copy_from_user(buf, user_buf,
 767                            min_t(size_t, sizeof(buf) - 1, count)))
 768                 return -EFAULT;
 769
 770         n = sscanf(buf, "%x %d %d", &lkb_id, &mstype, &to_nodeid);
 771         if (n != 3)
 772                 return -EINVAL;
 773
 774         error = dlm_debug_add_lkb_to_waiters(ls, lkb_id, mstype, to_nodeid);
 775         if (error)
 776                 return error;
 777
 778         return count;
 779 }
 780
 781 static const struct file_operations waiters_fops = {
 782         .owner   = THIS_MODULE,
 783         .open    = simple_open,
 784         .read    = waiters_read,
 785         .write   = waiters_write,
 786         .llseek  = default_llseek,
 787 };
 788
 789 void dlm_delete_debug_file(struct dlm_ls *ls)
 790 {
 791         debugfs_remove(ls->ls_debug_rsb_dentry);
 792         debugfs_remove(ls->ls_debug_waiters_dentry);
 793         debugfs_remove(ls->ls_debug_locks_dentry);
 794         debugfs_remove(ls->ls_debug_all_dentry);
 795         debugfs_remove(ls->ls_debug_toss_dentry);
 796 }
 797
 798 static int dlm_state_show(struct seq_file *file, void *offset)
 799 {
 800         seq_printf(file, "%s\n", dlm_midcomms_state(file->private));
 801         return 0;
 802 }
 803 DEFINE_SHOW_ATTRIBUTE(dlm_state);
 804
 805 static int dlm_flags_show(struct seq_file *file, void *offset)
 806 {
 807         seq_printf(file, "%lu\n", dlm_midcomms_flags(file->private));
 808         return 0;
 809 }
 810 DEFINE_SHOW_ATTRIBUTE(dlm_flags);
 811
 812 static int dlm_send_queue_cnt_show(struct seq_file *file, void *offset)
 813 {
 814         seq_printf(file, "%d\n", dlm_midcomms_send_queue_cnt(file->private));
 815         return 0;
 816 }
 817 DEFINE_SHOW_ATTRIBUTE(dlm_send_queue_cnt);
 818
 819 static int dlm_version_show(struct seq_file *file, void *offset)
 820 {
 821         seq_printf(file, "0x%08x\n", dlm_midcomms_version(file->private));
 822         return 0;
 823 }
 824 DEFINE_SHOW_ATTRIBUTE(dlm_version);
 825
 826 static ssize_t dlm_rawmsg_write(struct file *fp, const char __user *user_buf,
 827                                 size_t count, loff_t *ppos)
 828 {
 829         void *buf;
 830         int ret;
 831
 832         if (count > PAGE_SIZE || count < sizeof(struct dlm_header))
 833                 return -EINVAL;
 834
 835         buf = kmalloc(PAGE_SIZE, GFP_NOFS);
 836         if (!buf)
 837                 return -ENOMEM;
 838
 839         if (copy_from_user(buf, user_buf, count)) {
 840                 ret = -EFAULT;
 841                 goto out;
 842         }
 843
 844         ret = dlm_midcomms_rawmsg_send(fp->private_data, buf, count);
 845         if (ret)
 846                 goto out;
 847
 848         kfree(buf);
 849         return count;
 850
 851 out:
 852         kfree(buf);
 853         return ret;
 854 }
 855
 856 static const struct file_operations dlm_rawmsg_fops = {
 857         .open   = simple_open,
 858         .write  = dlm_rawmsg_write,
 859         .llseek = no_llseek,
 860 };
 861
 862 void *dlm_create_debug_comms_file(int nodeid, void *data)
 863 {
 864         struct dentry *d_node;
 865         char name[256];
 866
 867         memset(name, 0, sizeof(name));
 868         snprintf(name, 256, "%d", nodeid);
 869
 870         d_node = debugfs_create_dir(name, dlm_comms);
 871         debugfs_create_file("state", 0444, d_node, data, &dlm_state_fops);
 872         debugfs_create_file("flags", 0444, d_node, data, &dlm_flags_fops);
 873         debugfs_create_file("send_queue_count", 0444, d_node, data,
 874                             &dlm_send_queue_cnt_fops);
 875         debugfs_create_file("version", 0444, d_node, data, &dlm_version_fops);
 876         debugfs_create_file("rawmsg", 0200, d_node, data, &dlm_rawmsg_fops);
 877
 878         return d_node;
 879 }
 880
 881 void dlm_delete_debug_comms_file(void *ctx)
 882 {
 883         debugfs_remove(ctx);
 884 }
 885
 886 void dlm_create_debug_file(struct dlm_ls *ls)
 887 {
 888         char name[DLM_LOCKSPACE_LEN + 8];
 889
 890         /* format 1 */
 891
 892         ls->ls_debug_rsb_dentry = debugfs_create_file(ls->ls_name,
 893                                                       S_IFREG | S_IRUGO,
 894                                                       dlm_root,
 895                                                       ls,
 896                                                       &format1_fops);
 897
 898         /* format 2 */
 899
 900         memset(name, 0, sizeof(name));
 901         snprintf(name, DLM_LOCKSPACE_LEN + 8, "%s_locks", ls->ls_name);
 902
 903         ls->ls_debug_locks_dentry = debugfs_create_file(name,
 904                                                         0644,
 905                                                         dlm_root,
 906                                                         ls,
 907                                                         &format2_fops);
 908
 909         /* format 3 */
 910
 911         memset(name, 0, sizeof(name));
 912         snprintf(name, DLM_LOCKSPACE_LEN + 8, "%s_all", ls->ls_name);
 913
 914         ls->ls_debug_all_dentry = debugfs_create_file(name,
 915                                                       S_IFREG | S_IRUGO,
 916                                                       dlm_root,
 917                                                       ls,
 918                                                       &format3_fops);
 919
 920         /* format 4 */
 921
 922         memset(name, 0, sizeof(name));
 923         snprintf(name, DLM_LOCKSPACE_LEN + 8, "%s_toss", ls->ls_name);
 924
 925         ls->ls_debug_toss_dentry = debugfs_create_file(name,
 926                                                        S_IFREG | S_IRUGO,
 927                                                        dlm_root,
 928                                                        ls,
 929                                                        &format4_fops);
 930
 931         memset(name, 0, sizeof(name));
 932         snprintf(name, DLM_LOCKSPACE_LEN + 8, "%s_waiters", ls->ls_name);
 933
 934         ls->ls_debug_waiters_dentry = debugfs_create_file(name,
 935                                                           0644,
 936                                                           dlm_root,
 937                                                           ls,
 938                                                           &waiters_fops);
 939 }
 940
 941 void __init dlm_register_debugfs(void)
 942 {
 943         mutex_init(&debug_buf_lock);
 944         dlm_root = debugfs_create_dir("dlm", NULL);
 945         dlm_comms = debugfs_create_dir("comms", dlm_root);
 946 }
 947
 948 void dlm_unregister_debugfs(void)
 949 {
 950         debugfs_remove(dlm_root);
 951 }
 952