lustre/ptlrpc/nrs_tbf.c

   1 /*
   2  * GPL HEADER START
   3  *
   4  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5  *
   6  * This program is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License version 2 only,
   8  * as published by the Free Software Foundation.
   9
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License version 2 for more details.  A copy is
  14  * included in the COPYING file that accompanied this code.
  15
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
  19  *
  20  * GPL HEADER END
  21  */
  22 /*
  23  * Copyright (C) 2013 DataDirect Networks, Inc.
  24  *
  25  */
  26 /*
  27  * lustre/ptlrpc/nrs_tbf.c
  28  *
  29  * Network Request Scheduler (NRS) Token Bucket Filter(TBF) policy
  30  *
  31  */
  32
  33 #ifdef HAVE_SERVER_SUPPORT
  34
  35 /**
  36  * \addtogoup nrs
  37  * @{
  38  */
  39
  40 #define DEBUG_SUBSYSTEM S_RPC
  41 #ifndef __KERNEL__
  42 #include <liblustre.h>
  43 #endif
  44 #include <obd_support.h>
  45 #include <obd_class.h>
  46 #include <libcfs/libcfs.h>
  47 #include "ptlrpc_internal.h"
  48
  49 /**
  50  * \name tbf
  51  *
  52  * Token Bucket Filter over client NIDs
  53  *
  54  * @{
  55  */
  56
  57 #define NRS_POL_NAME_TBF        "tbf"
  58
  59 int tbf_jobid_cache_size = 8192;
  60 CFS_MODULE_PARM(tbf_jobid_cache_size, "i", int, 0644,
  61                 "The size of jobid cache");
  62
  63 int tbf_rate = 10000;
  64 CFS_MODULE_PARM(tbf_rate, "i", int, 0644,
  65                 "Default rate limit in RPCs/s");
  66
  67 int tbf_depth = 3;
  68 CFS_MODULE_PARM(tbf_depth, "i", int, 0644,
  69                 "How many tokens that a client can save up");
  70
  71 static enum hrtimer_restart nrs_tbf_timer_cb(struct hrtimer *timer)
  72 {
  73         struct nrs_tbf_head *head = container_of(timer, struct nrs_tbf_head,
  74                                                  th_timer);
  75         struct ptlrpc_nrs   *nrs = head->th_res.res_policy->pol_nrs;
  76         struct ptlrpc_service_part *svcpt = nrs->nrs_svcpt;
  77
  78         spin_lock(&nrs->nrs_lock);
  79         nrs->nrs_throttling = 0;
  80         spin_unlock(&nrs->nrs_lock);
  81         wake_up(&svcpt->scp_waitq);
  82
  83         return HRTIMER_NORESTART;
  84 }
  85
  86 #define NRS_TBF_DEFAULT_RULE "default"
  87
  88 static void nrs_tbf_rule_fini(struct nrs_tbf_rule *rule)
  89 {
  90         LASSERT(atomic_read(&rule->tr_ref) == 0);
  91         LASSERT(list_empty(&rule->tr_cli_list));
  92         LASSERT(list_empty(&rule->tr_linkage));
  93
  94         rule->tr_head->th_ops->o_rule_fini(rule);
  95         OBD_FREE_PTR(rule);
  96 }
  97
  98 /**
  99  * Decreases the rule's usage reference count, and stops the rule in case it
 100  * was already stopping and have no more outstanding usage references (which
 101  * indicates it has no more queued or started requests, and can be safely
 102  * stopped).
 103  */
 104 static void nrs_tbf_rule_put(struct nrs_tbf_rule *rule)
 105 {
 106         if (atomic_dec_and_test(&rule->tr_ref))
 107                 nrs_tbf_rule_fini(rule);
 108 }
 109
 110 /**
 111  * Increases the rule's usage reference count.
 112  */
 113 static inline void nrs_tbf_rule_get(struct nrs_tbf_rule *rule)
 114 {
 115         atomic_inc(&rule->tr_ref);
 116 }
 117
 118 static void
 119 nrs_tbf_cli_rule_put(struct nrs_tbf_client *cli)
 120 {
 121         LASSERT(!cfs_list_empty(&cli->tc_linkage));
 122         LASSERT(cli->tc_rule);
 123         cfs_list_del_init(&cli->tc_linkage);
 124         nrs_tbf_rule_put(cli->tc_rule);
 125         cli->tc_rule = NULL;
 126 }
 127
 128 static void
 129 nrs_tbf_cli_reset_value(struct nrs_tbf_head *head,
 130                         struct nrs_tbf_client *cli)
 131
 132 {
 133         struct nrs_tbf_rule *rule = cli->tc_rule;
 134
 135         cli->tc_rpc_rate = rule->tr_rpc_rate;
 136         cli->tc_nsecs = rule->tr_nsecs;
 137         cli->tc_depth = rule->tr_depth;
 138         cli->tc_ntoken = rule->tr_depth;
 139         cli->tc_check_time = ktime_to_ns(ktime_get());
 140         cli->tc_rule_sequence = atomic_read(&head->th_rule_sequence);
 141         cli->tc_rule_generation = rule->tr_generation;
 142
 143         if (cli->tc_in_heap)
 144                 cfs_binheap_relocate(head->th_binheap,
 145                                      &cli->tc_node);
 146 }
 147
 148 static void
 149 nrs_tbf_cli_reset(struct nrs_tbf_head *head,
 150                   struct nrs_tbf_rule *rule,
 151                   struct nrs_tbf_client *cli)
 152 {
 153         if (!list_empty(&cli->tc_linkage)) {
 154                 LASSERT(rule != cli->tc_rule);
 155                 nrs_tbf_cli_rule_put(cli);
 156         }
 157         LASSERT(cli->tc_rule == NULL);
 158         LASSERT(list_empty(&cli->tc_linkage));
 159         /* Rule's ref is added before called */
 160         cli->tc_rule = rule;
 161         list_add_tail(&cli->tc_linkage, &rule->tr_cli_list);
 162         nrs_tbf_cli_reset_value(head, cli);
 163 }
 164
 165 static int
 166 nrs_tbf_rule_dump(struct nrs_tbf_rule *rule, struct seq_file *m)
 167 {
 168         return rule->tr_head->th_ops->o_rule_dump(rule, m);
 169 }
 170
 171 static int
 172 nrs_tbf_rule_dump_all(struct nrs_tbf_head *head, struct seq_file *m)
 173 {
 174         struct nrs_tbf_rule *rule;
 175         int rc = 0;
 176
 177         LASSERT(head != NULL);
 178         spin_lock(&head->th_rule_lock);
 179         /* List the rules from newest to oldest */
 180         list_for_each_entry(rule, &head->th_list, tr_linkage) {
 181                 LASSERT((rule->tr_flags & NTRS_STOPPING) == 0);
 182                 rc = nrs_tbf_rule_dump(rule, m);
 183                 if (rc) {
 184                         rc = -ENOSPC;
 185                         break;
 186                 }
 187         }
 188         spin_unlock(&head->th_rule_lock);
 189
 190         return rc;
 191 }
 192
 193 static struct nrs_tbf_rule *
 194 nrs_tbf_rule_find_nolock(struct nrs_tbf_head *head,
 195                          const char *name)
 196 {
 197         struct nrs_tbf_rule *rule;
 198
 199         LASSERT(head != NULL);
 200         cfs_list_for_each_entry(rule, &head->th_list, tr_linkage) {
 201                 LASSERT((rule->tr_flags & NTRS_STOPPING) == 0);
 202                 if (strcmp(rule->tr_name, name) == 0) {
 203                         nrs_tbf_rule_get(rule);
 204                         return rule;
 205                 }
 206         }
 207         return NULL;
 208 }
 209
 210 static struct nrs_tbf_rule *
 211 nrs_tbf_rule_find(struct nrs_tbf_head *head,
 212                   const char *name)
 213 {
 214         struct nrs_tbf_rule *rule;
 215
 216         LASSERT(head != NULL);
 217         spin_lock(&head->th_rule_lock);
 218         rule = nrs_tbf_rule_find_nolock(head, name);
 219         spin_unlock(&head->th_rule_lock);
 220         return rule;
 221 }
 222
 223 static struct nrs_tbf_rule *
 224 nrs_tbf_rule_match(struct nrs_tbf_head *head,
 225                    struct nrs_tbf_client *cli)
 226 {
 227         struct nrs_tbf_rule *rule = NULL;
 228         struct nrs_tbf_rule *tmp_rule;
 229
 230         spin_lock(&head->th_rule_lock);
 231         /* Match the newest rule in the list */
 232         cfs_list_for_each_entry(tmp_rule, &head->th_list, tr_linkage) {
 233                 LASSERT((tmp_rule->tr_flags & NTRS_STOPPING) == 0);
 234                 if (head->th_ops->o_rule_match(tmp_rule, cli)) {
 235                         rule = tmp_rule;
 236                         break;
 237                 }
 238         }
 239
 240         if (rule == NULL)
 241                 rule = head->th_rule;
 242
 243         nrs_tbf_rule_get(rule);
 244         spin_unlock(&head->th_rule_lock);
 245         return rule;
 246 }
 247
 248 static void
 249 nrs_tbf_cli_init(struct nrs_tbf_head *head,
 250                  struct nrs_tbf_client *cli,
 251                  struct ptlrpc_request *req)
 252 {
 253         struct nrs_tbf_rule *rule;
 254
 255         cli->tc_in_heap = false;
 256         head->th_ops->o_cli_init(cli, req);
 257         CFS_INIT_LIST_HEAD(&cli->tc_list);
 258         CFS_INIT_LIST_HEAD(&cli->tc_linkage);
 259         atomic_set(&cli->tc_ref, 1);
 260         rule = nrs_tbf_rule_match(head, cli);
 261         nrs_tbf_cli_reset(head, rule, cli);
 262 }
 263
 264 static void
 265 nrs_tbf_cli_fini(struct nrs_tbf_client *cli)
 266 {
 267         LASSERT(cfs_list_empty(&cli->tc_list));
 268         LASSERT(!cli->tc_in_heap);
 269         LASSERT(atomic_read(&cli->tc_ref) == 0);
 270         nrs_tbf_cli_rule_put(cli);
 271         OBD_FREE_PTR(cli);
 272 }
 273
 274 static int
 275 nrs_tbf_rule_start(struct ptlrpc_nrs_policy *policy,
 276                    struct nrs_tbf_head *head,
 277                    struct nrs_tbf_cmd *start)
 278 {
 279         struct nrs_tbf_rule *rule, *tmp_rule;
 280         int rc;
 281
 282         rule = nrs_tbf_rule_find(head, start->tc_name);
 283         if (rule) {
 284                 nrs_tbf_rule_put(rule);
 285                 return -EEXIST;
 286         }
 287
 288         OBD_CPT_ALLOC_PTR(rule, nrs_pol2cptab(policy), nrs_pol2cptid(policy));
 289         if (rule == NULL)
 290                 return -ENOMEM;
 291
 292         memcpy(rule->tr_name, start->tc_name, strlen(start->tc_name));
 293         rule->tr_rpc_rate = start->tc_rpc_rate;
 294         rule->tr_nsecs = NSEC_PER_SEC / rule->tr_rpc_rate;
 295         rule->tr_depth = tbf_depth;
 296         atomic_set(&rule->tr_ref, 1);
 297         CFS_INIT_LIST_HEAD(&rule->tr_cli_list);
 298         CFS_INIT_LIST_HEAD(&rule->tr_nids);
 299
 300         rc = head->th_ops->o_rule_init(policy, rule, start);
 301         if (rc) {
 302                 OBD_FREE_PTR(rule);
 303                 return rc;
 304         }
 305
 306         /* Add as the newest rule */
 307         spin_lock(&head->th_rule_lock);
 308         tmp_rule = nrs_tbf_rule_find_nolock(head, start->tc_name);
 309         if (tmp_rule) {
 310                 nrs_tbf_rule_put(tmp_rule);
 311                 nrs_tbf_rule_put(rule);
 312                 return -EEXIST;
 313         }
 314         cfs_list_add(&rule->tr_linkage, &head->th_list);
 315         rule->tr_head = head;
 316         spin_unlock(&head->th_rule_lock);
 317         atomic_inc(&head->th_rule_sequence);
 318         if (start->tc_rule_flags & NTRS_DEFAULT) {
 319                 rule->tr_flags |= NTRS_DEFAULT;
 320                 LASSERT(head->th_rule == NULL);
 321                 head->th_rule = rule;
 322         }
 323
 324         return 0;
 325 }
 326
 327 static int
 328 nrs_tbf_rule_change(struct ptlrpc_nrs_policy *policy,
 329                     struct nrs_tbf_head *head,
 330                     struct nrs_tbf_cmd *change)
 331 {
 332         struct nrs_tbf_rule *rule;
 333
 334         assert_spin_locked(&policy->pol_nrs->nrs_lock);
 335
 336         rule = nrs_tbf_rule_find(head, change->tc_name);
 337         if (rule == NULL)
 338                 return -ENOENT;
 339
 340         rule->tr_rpc_rate = change->tc_rpc_rate;
 341         rule->tr_nsecs = NSEC_PER_SEC / rule->tr_rpc_rate;
 342         rule->tr_generation++;
 343         nrs_tbf_rule_put(rule);
 344
 345         return 0;
 346 }
 347
 348 static int
 349 nrs_tbf_rule_stop(struct ptlrpc_nrs_policy *policy,
 350                   struct nrs_tbf_head *head,
 351                   struct nrs_tbf_cmd *stop)
 352 {
 353         struct nrs_tbf_rule *rule;
 354
 355         assert_spin_locked(&policy->pol_nrs->nrs_lock);
 356
 357         if (strcmp(stop->tc_name, NRS_TBF_DEFAULT_RULE) == 0)
 358                 return -EPERM;
 359
 360         rule = nrs_tbf_rule_find(head, stop->tc_name);
 361         if (rule == NULL)
 362                 return -ENOENT;
 363
 364         cfs_list_del_init(&rule->tr_linkage);
 365         rule->tr_flags |= NTRS_STOPPING;
 366         nrs_tbf_rule_put(rule);
 367         nrs_tbf_rule_put(rule);
 368
 369         return 0;
 370 }
 371
 372 static int
 373 nrs_tbf_command(struct ptlrpc_nrs_policy *policy,
 374                 struct nrs_tbf_head *head,
 375                 struct nrs_tbf_cmd *cmd)
 376 {
 377         int rc;
 378
 379         assert_spin_locked(&policy->pol_nrs->nrs_lock);
 380
 381         switch (cmd->tc_cmd) {
 382         case NRS_CTL_TBF_START_RULE:
 383                 if (!(cmd->tc_valid_types & head->th_type_flag))
 384                         return -EINVAL;
 385
 386                 spin_unlock(&policy->pol_nrs->nrs_lock);
 387                 rc = nrs_tbf_rule_start(policy, head, cmd);
 388                 spin_lock(&policy->pol_nrs->nrs_lock);
 389                 return rc;
 390         case NRS_CTL_TBF_CHANGE_RATE:
 391                 rc = nrs_tbf_rule_change(policy, head, cmd);
 392                 return rc;
 393         case NRS_CTL_TBF_STOP_RULE:
 394                 rc = nrs_tbf_rule_stop(policy, head, cmd);
 395                 /* Take it as a success, if not exists at all */
 396                 return rc == -ENOENT ? 0 : rc;
 397         default:
 398                 return -EFAULT;
 399         }
 400 }
 401
 402 /**
 403  * Binary heap predicate.
 404  *
 405  * \param[in] e1 the first binheap node to compare
 406  * \param[in] e2 the second binheap node to compare
 407  *
 408  * \retval 0 e1 > e2
 409  * \retval 1 e1 < e2
 410  */
 411 static int tbf_cli_compare(cfs_binheap_node_t *e1, cfs_binheap_node_t *e2)
 412 {
 413         struct nrs_tbf_client *cli1;
 414         struct nrs_tbf_client *cli2;
 415
 416         cli1 = container_of(e1, struct nrs_tbf_client, tc_node);
 417         cli2 = container_of(e2, struct nrs_tbf_client, tc_node);
 418
 419         if (cli1->tc_check_time + cli1->tc_nsecs <
 420             cli2->tc_check_time + cli2->tc_nsecs)
 421                 return 1;
 422         else if (cli1->tc_check_time + cli1->tc_nsecs >
 423                  cli2->tc_check_time + cli2->tc_nsecs)
 424                 return 0;
 425
 426         if (cli1->tc_check_time < cli2->tc_check_time)
 427                 return 1;
 428         else if (cli1->tc_check_time > cli2->tc_check_time)
 429                 return 0;
 430
 431         /* Maybe need more comparasion, e.g. request number in the rules */
 432         return 1;
 433 }
 434
 435 /**
 436  * TBF binary heap operations
 437  */
 438 static cfs_binheap_ops_t nrs_tbf_heap_ops = {
 439         .hop_enter      = NULL,
 440         .hop_exit       = NULL,
 441         .hop_compare    = tbf_cli_compare,
 442 };
 443
 444 static unsigned nrs_tbf_jobid_hop_hash(cfs_hash_t *hs, const void *key,
 445                                   unsigned mask)
 446 {
 447         return cfs_hash_djb2_hash(key, strlen(key), mask);
 448 }
 449
 450 static int nrs_tbf_jobid_hop_keycmp(const void *key, cfs_hlist_node_t *hnode)
 451 {
 452         struct nrs_tbf_client *cli = cfs_hlist_entry(hnode,
 453                                                      struct nrs_tbf_client,
 454                                                      tc_hnode);
 455
 456         return (strcmp(cli->tc_jobid, key) == 0);
 457 }
 458
 459 static void *nrs_tbf_jobid_hop_key(cfs_hlist_node_t *hnode)
 460 {
 461         struct nrs_tbf_client *cli = cfs_hlist_entry(hnode,
 462                                                      struct nrs_tbf_client,
 463                                                      tc_hnode);
 464
 465         return cli->tc_jobid;
 466 }
 467
 468 static void *nrs_tbf_jobid_hop_object(cfs_hlist_node_t *hnode)
 469 {
 470         return cfs_hlist_entry(hnode, struct nrs_tbf_client, tc_hnode);
 471 }
 472
 473 static void nrs_tbf_jobid_hop_get(cfs_hash_t *hs, cfs_hlist_node_t *hnode)
 474 {
 475         struct nrs_tbf_client *cli = cfs_hlist_entry(hnode,
 476                                                      struct nrs_tbf_client,
 477                                                      tc_hnode);
 478
 479         atomic_inc(&cli->tc_ref);
 480 }
 481
 482 static void nrs_tbf_jobid_hop_put(cfs_hash_t *hs, cfs_hlist_node_t *hnode)
 483 {
 484         struct nrs_tbf_client *cli = cfs_hlist_entry(hnode,
 485                                                      struct nrs_tbf_client,
 486                                                      tc_hnode);
 487
 488         atomic_dec(&cli->tc_ref);
 489 }
 490
 491 static void nrs_tbf_jobid_hop_exit(cfs_hash_t *hs, cfs_hlist_node_t *hnode)
 492
 493 {
 494         struct nrs_tbf_client *cli = cfs_hlist_entry(hnode,
 495                                                      struct nrs_tbf_client,
 496                                                      tc_hnode);
 497
 498         LASSERT(atomic_read(&cli->tc_ref) == 0);
 499         nrs_tbf_cli_fini(cli);
 500 }
 501
 502 static cfs_hash_ops_t nrs_tbf_jobid_hash_ops = {
 503         .hs_hash        = nrs_tbf_jobid_hop_hash,
 504         .hs_keycmp      = nrs_tbf_jobid_hop_keycmp,
 505         .hs_key         = nrs_tbf_jobid_hop_key,
 506         .hs_object      = nrs_tbf_jobid_hop_object,
 507         .hs_get         = nrs_tbf_jobid_hop_get,
 508         .hs_put         = nrs_tbf_jobid_hop_put,
 509         .hs_put_locked  = nrs_tbf_jobid_hop_put,
 510         .hs_exit        = nrs_tbf_jobid_hop_exit,
 511 };
 512
 513 #define NRS_TBF_JOBID_HASH_FLAGS (CFS_HASH_SPIN_BKTLOCK | \
 514                                   CFS_HASH_NO_ITEMREF | \
 515                                   CFS_HASH_DEPTH)
 516
 517 static struct nrs_tbf_client *
 518 nrs_tbf_jobid_hash_lookup(cfs_hash_t *hs,
 519                           cfs_hash_bd_t *bd,
 520                           const char *jobid)
 521 {
 522         cfs_hlist_node_t *hnode;
 523         struct nrs_tbf_client *cli;
 524
 525         /* cfs_hash_bd_peek_locked is a somehow "internal" function
 526          * of cfs_hash, it doesn't add refcount on object. */
 527         hnode = cfs_hash_bd_peek_locked(hs, bd, (void *)jobid);
 528         if (hnode == NULL)
 529                 return NULL;
 530
 531         cfs_hash_get(hs, hnode);
 532         cli = container_of0(hnode, struct nrs_tbf_client, tc_hnode);
 533         if (!cfs_list_empty(&cli->tc_lru))
 534                 cfs_list_del_init(&cli->tc_lru);
 535         return cli;
 536 }
 537
 538 #define NRS_TBF_JOBID_NULL ""
 539
 540 static struct nrs_tbf_client *
 541 nrs_tbf_jobid_cli_find(struct nrs_tbf_head *head,
 542                        struct ptlrpc_request *req)
 543 {
 544         const char              *jobid;
 545         struct nrs_tbf_client   *cli;
 546         cfs_hash_t              *hs = head->th_cli_hash;
 547         cfs_hash_bd_t            bd;
 548
 549         jobid = lustre_msg_get_jobid(req->rq_reqmsg);
 550         if (jobid == NULL)
 551                 jobid = NRS_TBF_JOBID_NULL;
 552         cfs_hash_bd_get_and_lock(hs, (void *)jobid, &bd, 1);
 553         cli = nrs_tbf_jobid_hash_lookup(hs, &bd, jobid);
 554         cfs_hash_bd_unlock(hs, &bd, 1);
 555
 556         return cli;
 557 }
 558
 559 static struct nrs_tbf_client *
 560 nrs_tbf_jobid_cli_findadd(struct nrs_tbf_head *head,
 561                           struct nrs_tbf_client *cli)
 562 {
 563         const char              *jobid;
 564         struct nrs_tbf_client   *ret;
 565         cfs_hash_t              *hs = head->th_cli_hash;
 566         cfs_hash_bd_t            bd;
 567
 568         jobid = cli->tc_jobid;
 569         cfs_hash_bd_get_and_lock(hs, (void *)jobid, &bd, 1);
 570         ret = nrs_tbf_jobid_hash_lookup(hs, &bd, jobid);
 571         if (ret == NULL) {
 572                 cfs_hash_bd_add_locked(hs, &bd, &cli->tc_hnode);
 573                 ret = cli;
 574         }
 575         cfs_hash_bd_unlock(hs, &bd, 1);
 576
 577         return ret;
 578 }
 579
 580 static void
 581 nrs_tbf_jobid_cli_put(struct nrs_tbf_head *head,
 582                       struct nrs_tbf_client *cli)
 583 {
 584         cfs_hash_bd_t            bd;
 585         cfs_hash_t              *hs = head->th_cli_hash;
 586         struct nrs_tbf_bucket   *bkt;
 587         int                      hw;
 588         CFS_LIST_HEAD            (zombies);
 589
 590         cfs_hash_bd_get(hs, &cli->tc_jobid, &bd);
 591         bkt = cfs_hash_bd_extra_get(hs, &bd);
 592         if (!cfs_hash_bd_dec_and_lock(hs, &bd, &cli->tc_ref))
 593                 return;
 594         LASSERT(cfs_list_empty(&cli->tc_lru));
 595         cfs_list_add_tail(&cli->tc_lru, &bkt->ntb_lru);
 596
 597         /*
 598          * Check and purge the LRU, there is at least one client in the LRU.
 599          */
 600         hw = tbf_jobid_cache_size >>
 601              (hs->hs_cur_bits - hs->hs_bkt_bits);
 602         while (cfs_hash_bd_count_get(&bd) > hw) {
 603                 if (unlikely(cfs_list_empty(&bkt->ntb_lru)))
 604                         break;
 605                 cli = cfs_list_entry(bkt->ntb_lru.next,
 606                                      struct nrs_tbf_client,
 607                                      tc_lru);
 608                 LASSERT(atomic_read(&cli->tc_ref) == 0);
 609                 cfs_hash_bd_del_locked(hs, &bd, &cli->tc_hnode);
 610                 cfs_list_move(&cli->tc_lru, &zombies);
 611         }
 612         cfs_hash_bd_unlock(head->th_cli_hash, &bd, 1);
 613
 614         while (!cfs_list_empty(&zombies)) {
 615                 cli = container_of0(zombies.next,
 616                                     struct nrs_tbf_client, tc_lru);
 617                 cfs_list_del_init(&cli->tc_lru);
 618                 nrs_tbf_cli_fini(cli);
 619         }
 620 }
 621
 622 static void
 623 nrs_tbf_jobid_cli_init(struct nrs_tbf_client *cli,
 624                        struct ptlrpc_request *req)
 625 {
 626         char *jobid = lustre_msg_get_jobid(req->rq_reqmsg);
 627
 628         if (jobid == NULL)
 629                 jobid = NRS_TBF_JOBID_NULL;
 630         LASSERT(strlen(jobid) < JOBSTATS_JOBID_SIZE);
 631         CFS_INIT_LIST_HEAD(&cli->tc_lru);
 632         memcpy(cli->tc_jobid, jobid, strlen(jobid));
 633 }
 634
 635 static int nrs_tbf_jobid_hash_order(void)
 636 {
 637         int bits;
 638
 639         for (bits = 1; (1 << bits) < tbf_jobid_cache_size; ++bits)
 640                 ;
 641
 642         return bits;
 643 }
 644
 645 #define NRS_TBF_JOBID_BKT_BITS 10
 646
 647 static int
 648 nrs_tbf_jobid_startup(struct ptlrpc_nrs_policy *policy,
 649                       struct nrs_tbf_head *head)
 650 {
 651         struct nrs_tbf_cmd       start;
 652         struct nrs_tbf_bucket   *bkt;
 653         int                      bits;
 654         int                      i;
 655         int                      rc;
 656         cfs_hash_bd_t            bd;
 657
 658         bits = nrs_tbf_jobid_hash_order();
 659         if (bits < NRS_TBF_JOBID_BKT_BITS)
 660                 bits = NRS_TBF_JOBID_BKT_BITS;
 661         head->th_cli_hash = cfs_hash_create("nrs_tbf_hash",
 662                                             bits,
 663                                             bits,
 664                                             NRS_TBF_JOBID_BKT_BITS,
 665                                             sizeof(*bkt),
 666                                             0,
 667                                             0,
 668                                             &nrs_tbf_jobid_hash_ops,
 669                                             NRS_TBF_JOBID_HASH_FLAGS);
 670         if (head->th_cli_hash == NULL)
 671                 return -ENOMEM;
 672
 673         cfs_hash_for_each_bucket(head->th_cli_hash, &bd, i) {
 674                 bkt = cfs_hash_bd_extra_get(head->th_cli_hash, &bd);
 675                 CFS_INIT_LIST_HEAD(&bkt->ntb_lru);
 676         }
 677
 678         memset(&start, 0, sizeof(start));
 679         start.tc_jobids_str = "*";
 680
 681         start.tc_rpc_rate = tbf_rate;
 682         start.tc_rule_flags = NTRS_DEFAULT;
 683         start.tc_name = NRS_TBF_DEFAULT_RULE;
 684         CFS_INIT_LIST_HEAD(&start.tc_jobids);
 685         rc = nrs_tbf_rule_start(policy, head, &start);
 686
 687         return rc;
 688 }
 689
 690 /**
 691  * Frees jobid of \a list.
 692  *
 693  */
 694 static void
 695 nrs_tbf_jobid_list_free(cfs_list_t *jobid_list)
 696 {
 697         struct nrs_tbf_jobid *jobid, *n;
 698
 699         cfs_list_for_each_entry_safe(jobid, n, jobid_list, tj_linkage) {
 700                 OBD_FREE(jobid->tj_id, strlen(jobid->tj_id) + 1);
 701                 cfs_list_del(&jobid->tj_linkage);
 702                 OBD_FREE(jobid, sizeof(struct nrs_tbf_jobid));
 703         }
 704 }
 705
 706 static int
 707 nrs_tbf_jobid_list_add(const struct cfs_lstr *id, cfs_list_t *jobid_list)
 708 {
 709         struct nrs_tbf_jobid *jobid;
 710
 711         OBD_ALLOC(jobid, sizeof(struct nrs_tbf_jobid));
 712         if (jobid == NULL)
 713                 return -ENOMEM;
 714
 715         OBD_ALLOC(jobid->tj_id, id->ls_len + 1);
 716         if (jobid->tj_id == NULL) {
 717                 OBD_FREE(jobid, sizeof(struct nrs_tbf_jobid));
 718                 return -ENOMEM;
 719         }
 720
 721         memcpy(jobid->tj_id, id->ls_str, id->ls_len);
 722         cfs_list_add_tail(&jobid->tj_linkage, jobid_list);
 723         return 0;
 724 }
 725
 726 static int
 727 nrs_tbf_jobid_list_match(cfs_list_t *jobid_list, char *id)
 728 {
 729         struct nrs_tbf_jobid *jobid;
 730
 731         cfs_list_for_each_entry(jobid, jobid_list, tj_linkage) {
 732                 if (strcmp(id, jobid->tj_id) == 0)
 733                         return 1;
 734         }
 735         return 0;
 736 }
 737
 738 static int
 739 nrs_tbf_jobid_list_parse(char *str, int len, cfs_list_t *jobid_list)
 740 {
 741         struct cfs_lstr src;
 742         struct cfs_lstr res;
 743         int rc = 0;
 744         ENTRY;
 745
 746         src.ls_str = str;
 747         src.ls_len = len;
 748         CFS_INIT_LIST_HEAD(jobid_list);
 749         while (src.ls_str) {
 750                 rc = cfs_gettok(&src, ' ', &res);
 751                 if (rc == 0) {
 752                         rc = -EINVAL;
 753                         break;
 754                 }
 755                 rc = nrs_tbf_jobid_list_add(&res, jobid_list);
 756                 if (rc)
 757                         break;
 758         }
 759         if (rc)
 760                 nrs_tbf_jobid_list_free(jobid_list);
 761         RETURN(rc);
 762 }
 763
 764 static void nrs_tbf_jobid_cmd_fini(struct nrs_tbf_cmd *cmd)
 765 {
 766         if (!cfs_list_empty(&cmd->tc_jobids))
 767                 nrs_tbf_jobid_list_free(&cmd->tc_jobids);
 768         if (cmd->tc_jobids_str)
 769                 OBD_FREE(cmd->tc_jobids_str, strlen(cmd->tc_jobids_str) + 1);
 770 }
 771
 772 static int nrs_tbf_jobid_parse(struct nrs_tbf_cmd *cmd, const char *id)
 773 {
 774         int rc;
 775
 776         OBD_ALLOC(cmd->tc_jobids_str, strlen(id) + 1);
 777         if (cmd->tc_jobids_str == NULL)
 778                 return -ENOMEM;
 779
 780         memcpy(cmd->tc_jobids_str, id, strlen(id));
 781
 782         /* parse jobid list */
 783         rc = nrs_tbf_jobid_list_parse(cmd->tc_jobids_str,
 784                                       strlen(cmd->tc_jobids_str),
 785                                       &cmd->tc_jobids);
 786         if (rc)
 787                 nrs_tbf_jobid_cmd_fini(cmd);
 788
 789         return rc;
 790 }
 791
 792 static int nrs_tbf_jobid_rule_init(struct ptlrpc_nrs_policy *policy,
 793                                    struct nrs_tbf_rule *rule,
 794                                    struct nrs_tbf_cmd *start)
 795 {
 796         int rc = 0;
 797
 798         LASSERT(start->tc_jobids_str);
 799         OBD_ALLOC(rule->tr_jobids_str,
 800                   strlen(start->tc_jobids_str) + 1);
 801         if (rule->tr_jobids_str == NULL)
 802                 return -ENOMEM;
 803
 804         memcpy(rule->tr_jobids_str,
 805                start->tc_jobids_str,
 806                strlen(start->tc_jobids_str));
 807
 808         CFS_INIT_LIST_HEAD(&rule->tr_jobids);
 809         if (!cfs_list_empty(&start->tc_jobids)) {
 810                 rc = nrs_tbf_jobid_list_parse(rule->tr_jobids_str,
 811                                               strlen(rule->tr_jobids_str),
 812                                               &rule->tr_jobids);
 813                 if (rc)
 814                         CERROR("jobids {%s} illegal\n", rule->tr_jobids_str);
 815         }
 816         if (rc)
 817                 OBD_FREE(rule->tr_jobids_str,
 818                          strlen(start->tc_jobids_str) + 1);
 819         return rc;
 820 }
 821
 822 static int
 823 nrs_tbf_jobid_rule_dump(struct nrs_tbf_rule *rule, struct seq_file *m)
 824 {
 825         return seq_printf(m, "%s {%s} %llu, ref %d\n", rule->tr_name,
 826                           rule->tr_jobids_str, rule->tr_rpc_rate,
 827                           atomic_read(&rule->tr_ref) - 1);
 828 }
 829
 830 static int
 831 nrs_tbf_jobid_rule_match(struct nrs_tbf_rule *rule,
 832                          struct nrs_tbf_client *cli)
 833 {
 834         return nrs_tbf_jobid_list_match(&rule->tr_jobids, cli->tc_jobid);
 835 }
 836
 837 static void nrs_tbf_jobid_rule_fini(struct nrs_tbf_rule *rule)
 838 {
 839         if (!cfs_list_empty(&rule->tr_jobids))
 840                 nrs_tbf_jobid_list_free(&rule->tr_jobids);
 841         LASSERT(rule->tr_jobids_str != NULL);
 842         OBD_FREE(rule->tr_jobids_str, strlen(rule->tr_jobids_str) + 1);
 843 }
 844
 845 struct nrs_tbf_ops nrs_tbf_jobid_ops = {
 846         .o_name = NRS_TBF_TYPE_JOBID,
 847         .o_startup = nrs_tbf_jobid_startup,
 848         .o_cli_find = nrs_tbf_jobid_cli_find,
 849         .o_cli_findadd = nrs_tbf_jobid_cli_findadd,
 850         .o_cli_put = nrs_tbf_jobid_cli_put,
 851         .o_cli_init = nrs_tbf_jobid_cli_init,
 852         .o_rule_init = nrs_tbf_jobid_rule_init,
 853         .o_rule_dump = nrs_tbf_jobid_rule_dump,
 854         .o_rule_match = nrs_tbf_jobid_rule_match,
 855         .o_rule_fini = nrs_tbf_jobid_rule_fini,
 856 };
 857
 858 /**
 859  * libcfs_hash operations for nrs_tbf_net::cn_cli_hash
 860  *
 861  * This uses ptlrpc_request::rq_peer.nid as its key, in order to hash
 862  * nrs_tbf_client objects.
 863  */
 864 #define NRS_TBF_NID_BKT_BITS    8
 865 #define NRS_TBF_NID_BITS        16
 866
 867 static unsigned nrs_tbf_nid_hop_hash(cfs_hash_t *hs, const void *key,
 868                                   unsigned mask)
 869 {
 870         return cfs_hash_djb2_hash(key, sizeof(lnet_nid_t), mask);
 871 }
 872
 873 static int nrs_tbf_nid_hop_keycmp(const void *key, cfs_hlist_node_t *hnode)
 874 {
 875         lnet_nid_t            *nid = (lnet_nid_t *)key;
 876         struct nrs_tbf_client *cli = cfs_hlist_entry(hnode,
 877                                                      struct nrs_tbf_client,
 878                                                      tc_hnode);
 879
 880         return *nid == cli->tc_nid;
 881 }
 882
 883 static void *nrs_tbf_nid_hop_key(cfs_hlist_node_t *hnode)
 884 {
 885         struct nrs_tbf_client *cli = cfs_hlist_entry(hnode,
 886                                                      struct nrs_tbf_client,
 887                                                      tc_hnode);
 888
 889         return &cli->tc_nid;
 890 }
 891
 892 static void *nrs_tbf_nid_hop_object(cfs_hlist_node_t *hnode)
 893 {
 894         return cfs_hlist_entry(hnode, struct nrs_tbf_client, tc_hnode);
 895 }
 896
 897 static void nrs_tbf_nid_hop_get(cfs_hash_t *hs, cfs_hlist_node_t *hnode)
 898 {
 899         struct nrs_tbf_client *cli = cfs_hlist_entry(hnode,
 900                                                      struct nrs_tbf_client,
 901                                                      tc_hnode);
 902
 903         atomic_inc(&cli->tc_ref);
 904 }
 905
 906 static void nrs_tbf_nid_hop_put(cfs_hash_t *hs, cfs_hlist_node_t *hnode)
 907 {
 908         struct nrs_tbf_client *cli = cfs_hlist_entry(hnode,
 909                                                      struct nrs_tbf_client,
 910                                                      tc_hnode);
 911
 912         atomic_dec(&cli->tc_ref);
 913 }
 914
 915 static void nrs_tbf_nid_hop_exit(cfs_hash_t *hs, cfs_hlist_node_t *hnode)
 916 {
 917         struct nrs_tbf_client *cli = cfs_hlist_entry(hnode,
 918                                                      struct nrs_tbf_client,
 919                                                      tc_hnode);
 920
 921         LASSERTF(atomic_read(&cli->tc_ref) == 0,
 922                  "Busy TBF object from client with NID %s, with %d refs\n",
 923                  libcfs_nid2str(cli->tc_nid), atomic_read(&cli->tc_ref));
 924
 925         nrs_tbf_cli_fini(cli);
 926 }
 927
 928 static cfs_hash_ops_t nrs_tbf_nid_hash_ops = {
 929         .hs_hash        = nrs_tbf_nid_hop_hash,
 930         .hs_keycmp      = nrs_tbf_nid_hop_keycmp,
 931         .hs_key         = nrs_tbf_nid_hop_key,
 932         .hs_object      = nrs_tbf_nid_hop_object,
 933         .hs_get         = nrs_tbf_nid_hop_get,
 934         .hs_put         = nrs_tbf_nid_hop_put,
 935         .hs_put_locked  = nrs_tbf_nid_hop_put,
 936         .hs_exit        = nrs_tbf_nid_hop_exit,
 937 };
 938
 939 static struct nrs_tbf_client *
 940 nrs_tbf_nid_cli_find(struct nrs_tbf_head *head,
 941                      struct ptlrpc_request *req)
 942 {
 943         return cfs_hash_lookup(head->th_cli_hash, &req->rq_peer.nid);
 944 }
 945
 946 static struct nrs_tbf_client *
 947 nrs_tbf_nid_cli_findadd(struct nrs_tbf_head *head,
 948                         struct nrs_tbf_client *cli)
 949 {
 950         return cfs_hash_findadd_unique(head->th_cli_hash, &cli->tc_nid,
 951                                        &cli->tc_hnode);
 952 }
 953
 954 static void
 955 nrs_tbf_nid_cli_put(struct nrs_tbf_head *head,
 956                       struct nrs_tbf_client *cli)
 957 {
 958         cfs_hash_put(head->th_cli_hash, &cli->tc_hnode);
 959 }
 960
 961 static int
 962 nrs_tbf_nid_startup(struct ptlrpc_nrs_policy *policy,
 963                     struct nrs_tbf_head *head)
 964 {
 965         struct nrs_tbf_cmd      start;
 966         int rc;
 967
 968         head->th_cli_hash = cfs_hash_create("nrs_tbf_hash",
 969                                             NRS_TBF_NID_BITS,
 970                                             NRS_TBF_NID_BITS,
 971                                             NRS_TBF_NID_BKT_BITS, 0,
 972                                             CFS_HASH_MIN_THETA,
 973                                             CFS_HASH_MAX_THETA,
 974                                             &nrs_tbf_nid_hash_ops,
 975                                             CFS_HASH_RW_BKTLOCK);
 976         if (head->th_cli_hash == NULL)
 977                 return -ENOMEM;
 978
 979         memset(&start, 0, sizeof(start));
 980         start.tc_nids_str = "*";
 981
 982         start.tc_rpc_rate = tbf_rate;
 983         start.tc_rule_flags = NTRS_DEFAULT;
 984         start.tc_name = NRS_TBF_DEFAULT_RULE;
 985         CFS_INIT_LIST_HEAD(&start.tc_nids);
 986         rc = nrs_tbf_rule_start(policy, head, &start);
 987
 988         return rc;
 989 }
 990
 991 static void
 992 nrs_tbf_nid_cli_init(struct nrs_tbf_client *cli,
 993                              struct ptlrpc_request *req)
 994 {
 995         cli->tc_nid = req->rq_peer.nid;
 996 }
 997
 998 static int nrs_tbf_nid_rule_init(struct ptlrpc_nrs_policy *policy,
 999                                  struct nrs_tbf_rule *rule,
1000                                  struct nrs_tbf_cmd *start)
1001 {
1002         LASSERT(start->tc_nids_str);
1003         OBD_ALLOC(rule->tr_nids_str,
1004                   strlen(start->tc_nids_str) + 1);
1005         if (rule->tr_nids_str == NULL)
1006                 return -ENOMEM;
1007
1008         memcpy(rule->tr_nids_str,
1009                start->tc_nids_str,
1010                strlen(start->tc_nids_str));
1011
1012         CFS_INIT_LIST_HEAD(&rule->tr_nids);
1013         if (!cfs_list_empty(&start->tc_nids)) {
1014                 if (cfs_parse_nidlist(rule->tr_nids_str,
1015                                       strlen(rule->tr_nids_str),
1016                                       &rule->tr_nids) <= 0) {
1017                         CERROR("nids {%s} illegal\n",
1018                                rule->tr_nids_str);
1019                         OBD_FREE(rule->tr_nids_str,
1020                                  strlen(start->tc_nids_str) + 1);
1021                         return -EINVAL;
1022                 }
1023         }
1024         return 0;
1025 }
1026
1027 static int
1028 nrs_tbf_nid_rule_dump(struct nrs_tbf_rule *rule, struct seq_file *m)
1029 {
1030         return seq_printf(m, "%s {%s} %llu, ref %d\n", rule->tr_name,
1031                           rule->tr_nids_str, rule->tr_rpc_rate,
1032                           atomic_read(&rule->tr_ref) - 1);
1033 }
1034
1035 static int
1036 nrs_tbf_nid_rule_match(struct nrs_tbf_rule *rule,
1037                        struct nrs_tbf_client *cli)
1038 {
1039         return cfs_match_nid(cli->tc_nid, &rule->tr_nids);
1040 }
1041
1042 static void nrs_tbf_nid_rule_fini(struct nrs_tbf_rule *rule)
1043 {
1044         if (!cfs_list_empty(&rule->tr_nids))
1045                 cfs_free_nidlist(&rule->tr_nids);
1046         LASSERT(rule->tr_nids_str != NULL);
1047         OBD_FREE(rule->tr_nids_str, strlen(rule->tr_nids_str) + 1);
1048 }
1049
1050 static void nrs_tbf_nid_cmd_fini(struct nrs_tbf_cmd *cmd)
1051 {
1052         if (!cfs_list_empty(&cmd->tc_nids))
1053                 cfs_free_nidlist(&cmd->tc_nids);
1054         if (cmd->tc_nids_str)
1055                 OBD_FREE(cmd->tc_nids_str, strlen(cmd->tc_nids_str) + 1);
1056 }
1057
1058 static int nrs_tbf_nid_parse(struct nrs_tbf_cmd *cmd, const char *id)
1059 {
1060         OBD_ALLOC(cmd->tc_nids_str, strlen(id) + 1);
1061         if (cmd->tc_nids_str == NULL)
1062                 return -ENOMEM;
1063
1064         memcpy(cmd->tc_nids_str, id, strlen(id));
1065
1066         /* parse NID list */
1067         if (cfs_parse_nidlist(cmd->tc_nids_str,
1068                               strlen(cmd->tc_nids_str),
1069                               &cmd->tc_nids) <= 0) {
1070                 nrs_tbf_nid_cmd_fini(cmd);
1071                 return -EINVAL;
1072         }
1073
1074         return 0;
1075 }
1076
1077 struct nrs_tbf_ops nrs_tbf_nid_ops = {
1078         .o_name = NRS_TBF_TYPE_NID,
1079         .o_startup = nrs_tbf_nid_startup,
1080         .o_cli_find = nrs_tbf_nid_cli_find,
1081         .o_cli_findadd = nrs_tbf_nid_cli_findadd,
1082         .o_cli_put = nrs_tbf_nid_cli_put,
1083         .o_cli_init = nrs_tbf_nid_cli_init,
1084         .o_rule_init = nrs_tbf_nid_rule_init,
1085         .o_rule_dump = nrs_tbf_nid_rule_dump,
1086         .o_rule_match = nrs_tbf_nid_rule_match,
1087         .o_rule_fini = nrs_tbf_nid_rule_fini,
1088 };
1089
1090 /**
1091  * Is called before the policy transitions into
1092  * ptlrpc_nrs_pol_state::NRS_POL_STATE_STARTED; allocates and initializes a
1093  * policy-specific private data structure.
1094  *
1095  * \param[in] policy The policy to start
1096  *
1097  * \retval -ENOMEM OOM error
1098  * \retval  0      success
1099  *
1100  * \see nrs_policy_register()
1101  * \see nrs_policy_ctl()
1102  */
1103 static int nrs_tbf_start(struct ptlrpc_nrs_policy *policy, char *arg)
1104 {
1105         struct nrs_tbf_head     *head;
1106         struct nrs_tbf_ops      *ops;
1107         __u32                    type;
1108         int rc = 0;
1109
1110         if (arg == NULL || strlen(arg) > NRS_TBF_TYPE_MAX_LEN)
1111                 GOTO(out, rc = -EINVAL);
1112
1113         if (strcmp(arg, NRS_TBF_TYPE_NID) == 0) {
1114                 ops = &nrs_tbf_nid_ops;
1115                 type = NRS_TBF_FLAG_NID;
1116         } else if (strcmp(arg, NRS_TBF_TYPE_JOBID) == 0) {
1117                 ops = &nrs_tbf_jobid_ops;
1118                 type = NRS_TBF_FLAG_JOBID;
1119         } else
1120                 GOTO(out, rc = -ENOTSUPP);
1121
1122         OBD_CPT_ALLOC_PTR(head, nrs_pol2cptab(policy), nrs_pol2cptid(policy));
1123         if (head == NULL)
1124                 GOTO(out, rc = -ENOMEM);
1125
1126         memcpy(head->th_type, arg, strlen(arg));
1127         head->th_type[strlen(arg)] = '\0';
1128         head->th_ops = ops;
1129         head->th_type_flag = type;
1130
1131         head->th_binheap = cfs_binheap_create(&nrs_tbf_heap_ops,
1132                                               CBH_FLAG_ATOMIC_GROW, 4096, NULL,
1133                                               nrs_pol2cptab(policy),
1134                                               nrs_pol2cptid(policy));
1135         if (head->th_binheap == NULL)
1136                 GOTO(out_free_head, rc = -ENOMEM);
1137
1138         atomic_set(&head->th_rule_sequence, 0);
1139         spin_lock_init(&head->th_rule_lock);
1140         CFS_INIT_LIST_HEAD(&head->th_list);
1141         hrtimer_init(&head->th_timer, CLOCK_MONOTONIC, HRTIMER_MODE_ABS);
1142         head->th_timer.function = nrs_tbf_timer_cb;
1143         rc = head->th_ops->o_startup(policy, head);
1144         if (rc)
1145                 GOTO(out_free_heap, rc);
1146
1147         policy->pol_private = head;
1148         return 0;
1149 out_free_heap:
1150         cfs_binheap_destroy(head->th_binheap);
1151 out_free_head:
1152         OBD_FREE_PTR(head);
1153 out:
1154         return rc;
1155 }
1156
1157 /**
1158  * Is called before the policy transitions into
1159  * ptlrpc_nrs_pol_state::NRS_POL_STATE_STOPPED; deallocates the policy-specific
1160  * private data structure.
1161  *
1162  * \param[in] policy The policy to stop
1163  *
1164  * \see nrs_policy_stop0()
1165  */
1166 static void nrs_tbf_stop(struct ptlrpc_nrs_policy *policy)
1167 {
1168         struct nrs_tbf_head *head = policy->pol_private;
1169         struct ptlrpc_nrs *nrs = policy->pol_nrs;
1170         struct nrs_tbf_rule *rule, *n;
1171
1172         LASSERT(head != NULL);
1173         LASSERT(head->th_cli_hash != NULL);
1174         hrtimer_cancel(&head->th_timer);
1175         /* Should cleanup hash first before free rules */
1176         cfs_hash_putref(head->th_cli_hash);
1177         cfs_list_for_each_entry_safe(rule, n, &head->th_list, tr_linkage) {
1178                 cfs_list_del_init(&rule->tr_linkage);
1179                 nrs_tbf_rule_put(rule);
1180         }
1181         LASSERT(cfs_list_empty(&head->th_list));
1182         LASSERT(head->th_binheap != NULL);
1183         LASSERT(cfs_binheap_is_empty(head->th_binheap));
1184         cfs_binheap_destroy(head->th_binheap);
1185         OBD_FREE_PTR(head);
1186         spin_lock(&nrs->nrs_lock);
1187         nrs->nrs_throttling = 0;
1188         spin_unlock(&nrs->nrs_lock);
1189         wake_up(&policy->pol_nrs->nrs_svcpt->scp_waitq);
1190 }
1191
1192 /**
1193  * Performs a policy-specific ctl function on TBF policy instances; similar
1194  * to ioctl.
1195  *
1196  * \param[in]     policy the policy instance
1197  * \param[in]     opc    the opcode
1198  * \param[in,out] arg    used for passing parameters and information
1199  *
1200  * \pre assert_spin_locked(&policy->pol_nrs->->nrs_lock)
1201  * \post assert_spin_locked(&policy->pol_nrs->->nrs_lock)
1202  *
1203  * \retval 0   operation carried out successfully
1204  * \retval -ve error
1205  */
1206 int nrs_tbf_ctl(struct ptlrpc_nrs_policy *policy, enum ptlrpc_nrs_ctl opc,
1207                 void *arg)
1208 {
1209         int rc = 0;
1210         ENTRY;
1211
1212         assert_spin_locked(&policy->pol_nrs->nrs_lock);
1213
1214         switch ((enum nrs_ctl_tbf)opc) {
1215         default:
1216                 RETURN(-EINVAL);
1217
1218         /**
1219          * Read RPC rate size of a policy instance.
1220          */
1221         case NRS_CTL_TBF_RD_RULE: {
1222                 struct nrs_tbf_head *head = policy->pol_private;
1223                 struct seq_file *m = (struct seq_file *) arg;
1224                 struct ptlrpc_service_part *svcpt;
1225
1226                 svcpt = policy->pol_nrs->nrs_svcpt;
1227                 seq_printf(m, "CPT %d:\n", svcpt->scp_cpt);
1228
1229                 rc = nrs_tbf_rule_dump_all(head, m);
1230                 }
1231                 break;
1232
1233         /**
1234          * Write RPC rate of a policy instance.
1235          */
1236         case NRS_CTL_TBF_WR_RULE: {
1237                 struct nrs_tbf_head *head = policy->pol_private;
1238                 struct nrs_tbf_cmd *cmd;
1239
1240                 cmd = (struct nrs_tbf_cmd *)arg;
1241                 rc = nrs_tbf_command(policy,
1242                                      head,
1243                                      cmd);
1244                 }
1245                 break;
1246         }
1247
1248         RETURN(rc);
1249 }
1250
1251 /**
1252  * Is called for obtaining a TBF policy resource.
1253  *
1254  * \param[in]  policy     The policy on which the request is being asked for
1255  * \param[in]  nrq        The request for which resources are being taken
1256  * \param[in]  parent     Parent resource, unused in this policy
1257  * \param[out] resp       Resources references are placed in this array
1258  * \param[in]  moving_req Signifies limited caller context; unused in this
1259  *                        policy
1260  *
1261  *
1262  * \see nrs_resource_get_safe()
1263  */
1264 static int nrs_tbf_res_get(struct ptlrpc_nrs_policy *policy,
1265                            struct ptlrpc_nrs_request *nrq,
1266                            const struct ptlrpc_nrs_resource *parent,
1267                            struct ptlrpc_nrs_resource **resp,
1268                            bool moving_req)
1269 {
1270         struct nrs_tbf_head   *head;
1271         struct nrs_tbf_client *cli;
1272         struct nrs_tbf_client *tmp;
1273         struct ptlrpc_request *req;
1274
1275         if (parent == NULL) {
1276                 *resp = &((struct nrs_tbf_head *)policy->pol_private)->th_res;
1277                 return 0;
1278         }
1279
1280         head = container_of(parent, struct nrs_tbf_head, th_res);
1281         req = container_of(nrq, struct ptlrpc_request, rq_nrq);
1282         cli = head->th_ops->o_cli_find(head, req);
1283         if (cli != NULL) {
1284                 spin_lock(&policy->pol_nrs->nrs_svcpt->scp_req_lock);
1285                 LASSERT(cli->tc_rule);
1286                 if (cli->tc_rule_sequence !=
1287                     atomic_read(&head->th_rule_sequence) ||
1288                     cli->tc_rule->tr_flags & NTRS_STOPPING) {
1289                         struct nrs_tbf_rule *rule;
1290
1291                         rule = nrs_tbf_rule_match(head, cli);
1292                         if (rule != cli->tc_rule)
1293                                 nrs_tbf_cli_reset(head, rule, cli);
1294                         else
1295                                 nrs_tbf_rule_put(rule);
1296                 } else if (cli->tc_rule_generation !=
1297                            cli->tc_rule->tr_generation) {
1298                         nrs_tbf_cli_reset_value(head, cli);
1299                 }
1300                 spin_unlock(&policy->pol_nrs->nrs_svcpt->scp_req_lock);
1301                 goto out;
1302         }
1303
1304         OBD_CPT_ALLOC_GFP(cli, nrs_pol2cptab(policy), nrs_pol2cptid(policy),
1305                           sizeof(*cli), moving_req ? GFP_ATOMIC : __GFP_IO);
1306         if (cli == NULL)
1307                 return -ENOMEM;
1308         nrs_tbf_cli_init(head, cli, req);
1309         tmp = head->th_ops->o_cli_findadd(head, cli);
1310         if (tmp != cli) {
1311                 atomic_dec(&cli->tc_ref);
1312                 nrs_tbf_cli_fini(cli);
1313                 cli = tmp;
1314         }
1315 out:
1316         *resp = &cli->tc_res;
1317
1318         return 1;
1319 }
1320
1321 /**
1322  * Called when releasing references to the resource hierachy obtained for a
1323  * request for scheduling using the TBF policy.
1324  *
1325  * \param[in] policy   the policy the resource belongs to
1326  * \param[in] res      the resource to be released
1327  */
1328 static void nrs_tbf_res_put(struct ptlrpc_nrs_policy *policy,
1329                             const struct ptlrpc_nrs_resource *res)
1330 {
1331         struct nrs_tbf_head   *head;
1332         struct nrs_tbf_client *cli;
1333
1334         /**
1335          * Do nothing for freeing parent, nrs_tbf_net resources
1336          */
1337         if (res->res_parent == NULL)
1338                 return;
1339
1340         cli = container_of(res, struct nrs_tbf_client, tc_res);
1341         head = container_of(res->res_parent, struct nrs_tbf_head, th_res);
1342
1343         head->th_ops->o_cli_put(head, cli);
1344 }
1345
1346 /**
1347  * Called when getting a request from the TBF policy for handling, or just
1348  * peeking; removes the request from the policy when it is to be handled.
1349  *
1350  * \param[in] policy The policy
1351  * \param[in] peek   When set, signifies that we just want to examine the
1352  *                   request, and not handle it, so the request is not removed
1353  *                   from the policy.
1354  * \param[in] force  Force the policy to return a request; unused in this
1355  *                   policy
1356  *
1357  * \retval The request to be handled; this is the next request in the TBF
1358  *         rule
1359  *
1360  * \see ptlrpc_nrs_req_get_nolock()
1361  * \see nrs_request_get()
1362  */
1363 static
1364 struct ptlrpc_nrs_request *nrs_tbf_req_get(struct ptlrpc_nrs_policy *policy,
1365                                            bool peek, bool force)
1366 {
1367         struct nrs_tbf_head       *head = policy->pol_private;
1368         struct ptlrpc_nrs_request *nrq = NULL;
1369         struct nrs_tbf_client     *cli;
1370         cfs_binheap_node_t        *node;
1371
1372         assert_spin_locked(&policy->pol_nrs->nrs_svcpt->scp_req_lock);
1373
1374         if (!peek && policy->pol_nrs->nrs_throttling)
1375                 return NULL;
1376
1377         node = cfs_binheap_root(head->th_binheap);
1378         if (unlikely(node == NULL))
1379                 return NULL;
1380
1381         cli = container_of(node, struct nrs_tbf_client, tc_node);
1382         LASSERT(cli->tc_in_heap);
1383         if (peek) {
1384                 nrq = cfs_list_entry(cli->tc_list.next,
1385                                      struct ptlrpc_nrs_request,
1386                                      nr_u.tbf.tr_list);
1387         } else {
1388                 __u64 now = ktime_to_ns(ktime_get());
1389                 __u64 passed;
1390                 long  ntoken;
1391                 __u64 deadline;
1392
1393                 deadline = cli->tc_check_time +
1394                           cli->tc_nsecs;
1395                 LASSERT(now >= cli->tc_check_time);
1396                 passed = now - cli->tc_check_time;
1397                 ntoken = (passed * cli->tc_rpc_rate) / NSEC_PER_SEC;
1398                 ntoken += cli->tc_ntoken;
1399                 if (ntoken > cli->tc_depth)
1400                         ntoken = cli->tc_depth;
1401                 if (ntoken > 0) {
1402                         struct ptlrpc_request *req;
1403                         nrq = cfs_list_entry(cli->tc_list.next,
1404                                              struct ptlrpc_nrs_request,
1405                                              nr_u.tbf.tr_list);
1406                         req = container_of(nrq,
1407                                            struct ptlrpc_request,
1408                                            rq_nrq);
1409                         ntoken--;
1410                         cli->tc_ntoken = ntoken;
1411                         cli->tc_check_time = now;
1412                         cfs_list_del_init(&nrq->nr_u.tbf.tr_list);
1413                         if (cfs_list_empty(&cli->tc_list)) {
1414                                 cfs_binheap_remove(head->th_binheap,
1415                                                    &cli->tc_node);
1416                                 cli->tc_in_heap = false;
1417                         } else {
1418                                 cfs_binheap_relocate(head->th_binheap,
1419                                                      &cli->tc_node);
1420                         }
1421                         CDEBUG(D_RPCTRACE,
1422                                "NRS start %s request from %s, "
1423                                "seq: "LPU64"\n",
1424                                policy->pol_desc->pd_name,
1425                                libcfs_id2str(req->rq_peer),
1426                                nrq->nr_u.tbf.tr_sequence);
1427                 } else {
1428                         ktime_t time;
1429
1430                         spin_lock(&policy->pol_nrs->nrs_lock);
1431                         policy->pol_nrs->nrs_throttling = 1;
1432                         spin_unlock(&policy->pol_nrs->nrs_lock);
1433                         head->th_deadline = deadline;
1434                         time = ktime_set(0, 0);
1435                         time = ktime_add_ns(time, deadline);
1436                         hrtimer_start(&head->th_timer, time, HRTIMER_MODE_ABS);
1437                 }
1438         }
1439
1440         return nrq;
1441 }
1442
1443 /**
1444  * Adds request \a nrq to \a policy's list of queued requests
1445  *
1446  * \param[in] policy The policy
1447  * \param[in] nrq    The request to add
1448  *
1449  * \retval 0 success; nrs_request_enqueue() assumes this function will always
1450  *                    succeed
1451  */
1452 static int nrs_tbf_req_add(struct ptlrpc_nrs_policy *policy,
1453                            struct ptlrpc_nrs_request *nrq)
1454 {
1455         struct nrs_tbf_head   *head;
1456         struct nrs_tbf_client *cli;
1457         int                    rc = 0;
1458
1459         assert_spin_locked(&policy->pol_nrs->nrs_svcpt->scp_req_lock);
1460
1461         cli = container_of(nrs_request_resource(nrq),
1462                            struct nrs_tbf_client, tc_res);
1463         head = container_of(nrs_request_resource(nrq)->res_parent,
1464                             struct nrs_tbf_head, th_res);
1465         if (cfs_list_empty(&cli->tc_list)) {
1466                 LASSERT(!cli->tc_in_heap);
1467                 rc = cfs_binheap_insert(head->th_binheap, &cli->tc_node);
1468                 if (rc == 0) {
1469                         cli->tc_in_heap = true;
1470                         nrq->nr_u.tbf.tr_sequence = head->th_sequence++;
1471                         cfs_list_add_tail(&nrq->nr_u.tbf.tr_list,
1472                                           &cli->tc_list);
1473                         if (policy->pol_nrs->nrs_throttling) {
1474                                 __u64 deadline = cli->tc_check_time +
1475                                                  cli->tc_nsecs;
1476                                 if ((head->th_deadline > deadline) &&
1477                                     (hrtimer_try_to_cancel(&head->th_timer)
1478                                      >= 0)) {
1479                                         ktime_t time;
1480                                         head->th_deadline = deadline;
1481                                         time = ktime_set(0, 0);
1482                                         time = ktime_add_ns(time, deadline);
1483                                         hrtimer_start(&head->th_timer, time,
1484                                                       HRTIMER_MODE_ABS);
1485                                 }
1486                         }
1487                 }
1488         } else {
1489                 LASSERT(cli->tc_in_heap);
1490                 nrq->nr_u.tbf.tr_sequence = head->th_sequence++;
1491                 cfs_list_add_tail(&nrq->nr_u.tbf.tr_list,
1492                                   &cli->tc_list);
1493         }
1494         return rc;
1495 }
1496
1497 /**
1498  * Removes request \a nrq from \a policy's list of queued requests.
1499  *
1500  * \param[in] policy The policy
1501  * \param[in] nrq    The request to remove
1502  */
1503 static void nrs_tbf_req_del(struct ptlrpc_nrs_policy *policy,
1504                              struct ptlrpc_nrs_request *nrq)
1505 {
1506         struct nrs_tbf_head   *head;
1507         struct nrs_tbf_client *cli;
1508
1509         assert_spin_locked(&policy->pol_nrs->nrs_svcpt->scp_req_lock);
1510
1511         cli = container_of(nrs_request_resource(nrq),
1512                            struct nrs_tbf_client, tc_res);
1513         head = container_of(nrs_request_resource(nrq)->res_parent,
1514                             struct nrs_tbf_head, th_res);
1515
1516         LASSERT(!cfs_list_empty(&nrq->nr_u.tbf.tr_list));
1517         cfs_list_del_init(&nrq->nr_u.tbf.tr_list);
1518         if (cfs_list_empty(&cli->tc_list)) {
1519                 cfs_binheap_remove(head->th_binheap,
1520                                    &cli->tc_node);
1521                 cli->tc_in_heap = false;
1522         } else {
1523                 cfs_binheap_relocate(head->th_binheap,
1524                                      &cli->tc_node);
1525         }
1526 }
1527
1528 /**
1529  * Prints a debug statement right before the request \a nrq stops being
1530  * handled.
1531  *
1532  * \param[in] policy The policy handling the request
1533  * \param[in] nrq    The request being handled
1534  *
1535  * \see ptlrpc_server_finish_request()
1536  * \see ptlrpc_nrs_req_stop_nolock()
1537  */
1538 static void nrs_tbf_req_stop(struct ptlrpc_nrs_policy *policy,
1539                               struct ptlrpc_nrs_request *nrq)
1540 {
1541         struct ptlrpc_request *req = container_of(nrq, struct ptlrpc_request,
1542                                                   rq_nrq);
1543
1544         assert_spin_locked(&policy->pol_nrs->nrs_svcpt->scp_req_lock);
1545
1546         CDEBUG(D_RPCTRACE, "NRS stop %s request from %s, seq: "LPU64"\n",
1547                policy->pol_desc->pd_name, libcfs_id2str(req->rq_peer),
1548                nrq->nr_u.tbf.tr_sequence);
1549 }
1550
1551 #ifdef LPROCFS
1552
1553 /**
1554  * lprocfs interface
1555  */
1556
1557 /**
1558  * The maximum RPC rate.
1559  */
1560 #define LPROCFS_NRS_RATE_MAX            65535
1561
1562 static int
1563 ptlrpc_lprocfs_nrs_tbf_rule_seq_show(struct seq_file *m, void *data)
1564 {
1565         struct ptlrpc_service       *svc = m->private;
1566         int                          rc;
1567
1568         seq_printf(m, "regular_requests:\n");
1569         /**
1570          * Perform two separate calls to this as only one of the NRS heads'
1571          * policies may be in the ptlrpc_nrs_pol_state::NRS_POL_STATE_STARTED or
1572          * ptlrpc_nrs_pol_state::NRS_POL_STATE_STOPPING state.
1573          */
1574         rc = ptlrpc_nrs_policy_control(svc, PTLRPC_NRS_QUEUE_REG,
1575                                        NRS_POL_NAME_TBF,
1576                                        NRS_CTL_TBF_RD_RULE,
1577                                        false, m);
1578         if (rc == 0) {
1579                 /**
1580                  * Ignore -ENODEV as the regular NRS head's policy may be in the
1581                  * ptlrpc_nrs_pol_state::NRS_POL_STATE_STOPPED state.
1582                  */
1583         } else if (rc != -ENODEV) {
1584                 return rc;
1585         }
1586
1587         if (!nrs_svc_has_hp(svc))
1588                 goto no_hp;
1589
1590         seq_printf(m, "high_priority_requests:\n");
1591         rc = ptlrpc_nrs_policy_control(svc, PTLRPC_NRS_QUEUE_HP,
1592                                        NRS_POL_NAME_TBF,
1593                                        NRS_CTL_TBF_RD_RULE,
1594                                        false, m);
1595         if (rc == 0) {
1596                 /**
1597                  * Ignore -ENODEV as the high priority NRS head's policy may be
1598                  * in the ptlrpc_nrs_pol_state::NRS_POL_STATE_STOPPED state.
1599                  */
1600         } else if (rc != -ENODEV) {
1601                 return rc;
1602         }
1603
1604 no_hp:
1605
1606         return rc;
1607 }
1608
1609 static int nrs_tbf_id_parse(struct nrs_tbf_cmd *cmd, char **val)
1610 {
1611         int rc;
1612         char *token;
1613
1614         token = strsep(val, "}");
1615         if (*val == NULL)
1616                 GOTO(out, rc = -EINVAL);
1617
1618         if (strlen(token) <= 1 ||
1619             token[0] != '{')
1620                 GOTO(out, rc = -EINVAL);
1621         /* Skip '{' */
1622         token++;
1623
1624         /* Should be followed by ' ' or nothing */
1625         if ((*val)[0] == '\0')
1626                 *val = NULL;
1627         else if ((*val)[0] == ' ')
1628                 (*val)++;
1629         else
1630                 GOTO(out, rc = -EINVAL);
1631
1632         rc = nrs_tbf_jobid_parse(cmd, token);
1633         if (!rc)
1634                 cmd->tc_valid_types |= NRS_TBF_FLAG_JOBID;
1635
1636         rc = nrs_tbf_nid_parse(cmd, token);
1637         if (!rc)
1638                 cmd->tc_valid_types |= NRS_TBF_FLAG_NID;
1639
1640         if (!cmd->tc_valid_types)
1641                 rc = -EINVAL;
1642         else
1643                 rc = 0;
1644 out:
1645         return rc;
1646 }
1647
1648
1649 static void nrs_tbf_cmd_fini(struct nrs_tbf_cmd *cmd)
1650 {
1651         if (cmd->tc_valid_types & NRS_TBF_FLAG_JOBID)
1652                 nrs_tbf_jobid_cmd_fini(cmd);
1653         if (cmd->tc_valid_types & NRS_TBF_FLAG_NID)
1654                 nrs_tbf_nid_cmd_fini(cmd);
1655 }
1656
1657 static struct nrs_tbf_cmd *
1658 nrs_tbf_parse_cmd(char *buffer, unsigned long count)
1659 {
1660         static struct nrs_tbf_cmd *cmd;
1661         char                      *token;
1662         char                      *val;
1663         int                        i;
1664         int                        rc = 0;
1665
1666         OBD_ALLOC_PTR(cmd);
1667         if (cmd == NULL)
1668                 GOTO(out, rc = -ENOMEM);
1669
1670         val = buffer;
1671         token = strsep(&val, " ");
1672         if (val == NULL || strlen(val) == 0)
1673                 GOTO(out_free_cmd, rc = -EINVAL);
1674
1675         /* Type of the command */
1676         if (strcmp(token, "start") == 0)
1677                 cmd->tc_cmd = NRS_CTL_TBF_START_RULE;
1678         else if (strcmp(token, "stop") == 0)
1679                 cmd->tc_cmd = NRS_CTL_TBF_STOP_RULE;
1680         else if (strcmp(token, "change") == 0)
1681                 cmd->tc_cmd = NRS_CTL_TBF_CHANGE_RATE;
1682         else
1683                 GOTO(out_free_cmd, rc = -EINVAL);
1684
1685         /* Name of the rule */
1686         token = strsep(&val, " ");
1687         if (val == NULL) {
1688                 /**
1689                  * Stop comand only need name argument,
1690                  * But other commands need ID or rate argument.
1691                  */
1692                 if (cmd->tc_cmd != NRS_CTL_TBF_STOP_RULE)
1693                         GOTO(out_free_cmd, rc = -EINVAL);
1694         }
1695
1696         for (i = 0; i < strlen(token); i++) {
1697                 if ((!isalnum(token[i])) &&
1698                     (token[i] != '_'))
1699                         GOTO(out_free_cmd, rc = -EINVAL);
1700         }
1701         cmd->tc_name = token;
1702
1703         if (cmd->tc_cmd == NRS_CTL_TBF_START_RULE) {
1704                 /* List of ID */
1705                 LASSERT(val);
1706                 rc = nrs_tbf_id_parse(cmd, &val);
1707                 if (rc)
1708                         GOTO(out_free_cmd, rc);
1709         }
1710
1711         if (val != NULL) {
1712                 if (cmd->tc_cmd == NRS_CTL_TBF_STOP_RULE ||
1713                     strlen(val) == 0 || !isdigit(val[0]))
1714                         GOTO(out_free_nid, rc = -EINVAL);
1715
1716                 cmd->tc_rpc_rate = simple_strtoull(val, NULL, 10);
1717                 if (cmd->tc_rpc_rate <= 0 ||
1718                     cmd->tc_rpc_rate >= LPROCFS_NRS_RATE_MAX)
1719                         GOTO(out_free_nid, rc = -EINVAL);
1720         } else {
1721                 if (cmd->tc_cmd == NRS_CTL_TBF_CHANGE_RATE)
1722                         GOTO(out_free_nid, rc = -EINVAL);
1723                 /* No RPC rate given */
1724                 cmd->tc_rpc_rate = tbf_rate;
1725         }
1726         goto out;
1727 out_free_nid:
1728         nrs_tbf_cmd_fini(cmd);
1729 out_free_cmd:
1730         OBD_FREE_PTR(cmd);
1731 out:
1732         if (rc)
1733                 cmd = ERR_PTR(rc);
1734         return cmd;
1735 }
1736
1737 extern struct nrs_core nrs_core;
1738 #define LPROCFS_WR_NRS_TBF_MAX_CMD (4096)
1739 static ssize_t
1740 ptlrpc_lprocfs_nrs_tbf_rule_seq_write(struct file *file, const char *buffer,
1741                                       size_t count, loff_t *off)
1742 {
1743         struct seq_file           *m = file->private_data;
1744         struct ptlrpc_service     *svc = m->private;
1745         char                      *kernbuf;
1746         char                      *val;
1747         int                        rc;
1748         static struct nrs_tbf_cmd *cmd;
1749         enum ptlrpc_nrs_queue_type queue = PTLRPC_NRS_QUEUE_BOTH;
1750         unsigned long              length;
1751         char                      *token;
1752
1753         OBD_ALLOC(kernbuf, LPROCFS_WR_NRS_TBF_MAX_CMD);
1754         if (kernbuf == NULL)
1755                 GOTO(out, rc = -ENOMEM);
1756
1757         if (count > LPROCFS_WR_NRS_TBF_MAX_CMD - 1)
1758                 GOTO(out_free_kernbuff, rc = -EINVAL);
1759
1760         if (copy_from_user(kernbuf, buffer, count))
1761                 GOTO(out_free_kernbuff, rc = -EFAULT);
1762
1763         val = kernbuf;
1764         token = strsep(&val, " ");
1765         if (val == NULL)
1766                 GOTO(out_free_kernbuff, rc = -EINVAL);
1767
1768         if (strcmp(token, "reg") == 0) {
1769                 queue = PTLRPC_NRS_QUEUE_REG;
1770         } else if (strcmp(token, "hp") == 0) {
1771                 queue = PTLRPC_NRS_QUEUE_HP;
1772         } else {
1773                 kernbuf[strlen(token)] = ' ';
1774                 val = kernbuf;
1775         }
1776         length = strlen(val);
1777
1778         if (length == 0)
1779                 GOTO(out_free_kernbuff, rc = -EINVAL);
1780
1781         if (queue == PTLRPC_NRS_QUEUE_HP && !nrs_svc_has_hp(svc))
1782                 GOTO(out_free_kernbuff, rc = -ENODEV);
1783         else if (queue == PTLRPC_NRS_QUEUE_BOTH && !nrs_svc_has_hp(svc))
1784                 queue = PTLRPC_NRS_QUEUE_REG;
1785
1786         cmd = nrs_tbf_parse_cmd(val, length);
1787         if (IS_ERR(cmd))
1788                 GOTO(out_free_kernbuff, rc = PTR_ERR(cmd));
1789
1790         /**
1791          * Serialize NRS core lprocfs operations with policy registration/
1792          * unregistration.
1793          */
1794         mutex_lock(&nrs_core.nrs_mutex);
1795         rc = ptlrpc_nrs_policy_control(svc, queue,
1796                                        NRS_POL_NAME_TBF,
1797                                        NRS_CTL_TBF_WR_RULE,
1798                                        false, cmd);
1799         mutex_unlock(&nrs_core.nrs_mutex);
1800
1801         nrs_tbf_cmd_fini(cmd);
1802         OBD_FREE_PTR(cmd);
1803 out_free_kernbuff:
1804         OBD_FREE(kernbuf, LPROCFS_WR_NRS_TBF_MAX_CMD);
1805 out:
1806         return rc ? rc : count;
1807 }
1808 LPROC_SEQ_FOPS(ptlrpc_lprocfs_nrs_tbf_rule);
1809
1810 /**
1811  * Initializes a TBF policy's lprocfs interface for service \a svc
1812  *
1813  * \param[in] svc the service
1814  *
1815  * \retval 0    success
1816  * \retval != 0 error
1817  */
1818 int nrs_tbf_lprocfs_init(struct ptlrpc_service *svc)
1819 {
1820         struct lprocfs_seq_vars nrs_tbf_lprocfs_vars[] = {
1821                 { .name         = "nrs_tbf_rule",
1822                   .fops         = &ptlrpc_lprocfs_nrs_tbf_rule_fops,
1823                   .data = svc },
1824                 { NULL }
1825         };
1826
1827         if (svc->srv_procroot == NULL)
1828                 return 0;
1829
1830         return lprocfs_seq_add_vars(svc->srv_procroot, nrs_tbf_lprocfs_vars,
1831                                     NULL);
1832 }
1833
1834 /**
1835  * Cleans up a TBF policy's lprocfs interface for service \a svc
1836  *
1837  * \param[in] svc the service
1838  */
1839 void nrs_tbf_lprocfs_fini(struct ptlrpc_service *svc)
1840 {
1841         if (svc->srv_procroot == NULL)
1842                 return;
1843
1844         lprocfs_remove_proc_entry("nrs_tbf_rule", svc->srv_procroot);
1845 }
1846
1847 #endif /* LPROCFS */
1848
1849 /**
1850  * TBF policy operations
1851  */
1852 static const struct ptlrpc_nrs_pol_ops nrs_tbf_ops = {
1853         .op_policy_start        = nrs_tbf_start,
1854         .op_policy_stop         = nrs_tbf_stop,
1855         .op_policy_ctl          = nrs_tbf_ctl,
1856         .op_res_get             = nrs_tbf_res_get,
1857         .op_res_put             = nrs_tbf_res_put,
1858         .op_req_get             = nrs_tbf_req_get,
1859         .op_req_enqueue         = nrs_tbf_req_add,
1860         .op_req_dequeue         = nrs_tbf_req_del,
1861         .op_req_stop            = nrs_tbf_req_stop,
1862 #ifdef LPROCFS
1863         .op_lprocfs_init        = nrs_tbf_lprocfs_init,
1864         .op_lprocfs_fini        = nrs_tbf_lprocfs_fini,
1865 #endif
1866 };
1867
1868 /**
1869  * TBF policy configuration
1870  */
1871 struct ptlrpc_nrs_pol_conf nrs_conf_tbf = {
1872         .nc_name                = NRS_POL_NAME_TBF,
1873         .nc_ops                 = &nrs_tbf_ops,
1874         .nc_compat              = nrs_policy_compat_all,
1875 };
1876
1877 /** @} tbf */
1878
1879 /** @} nrs */
1880
1881 #endif /* HAVE_SERVER_SUPPORT */