src/vnet/ip/lookup.c

   1 /*
   2  * Copyright (c) 2015 Cisco and/or its affiliates.
   3  * Licensed under the Apache License, Version 2.0 (the "License");
   4  * you may not use this file except in compliance with the License.
   5  * You may obtain a copy of the License at:
   6  *
   7  *     http://www.apache.org/licenses/LICENSE-2.0
   8  *
   9  * Unless required by applicable law or agreed to in writing, software
  10  * distributed under the License is distributed on an "AS IS" BASIS,
  11  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  12  * See the License for the specific language governing permissions and
  13  * limitations under the License.
  14  */
  15 /*
  16  * ip/ip_lookup.c: ip4/6 adjacency and lookup table managment
  17  *
  18  * Copyright (c) 2008 Eliot Dresselhaus
  19  *
  20  * Permission is hereby granted, free of charge, to any person obtaining
  21  * a copy of this software and associated documentation files (the
  22  * "Software"), to deal in the Software without restriction, including
  23  * without limitation the rights to use, copy, modify, merge, publish,
  24  * distribute, sublicense, and/or sell copies of the Software, and to
  25  * permit persons to whom the Software is furnished to do so, subject to
  26  * the following conditions:
  27  *
  28  * The above copyright notice and this permission notice shall be
  29  * included in all copies or substantial portions of the Software.
  30  *
  31  *  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  32  *  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  33  *  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  34  *  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  35  *  LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  36  *  OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  37  *  WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  38  */
  39
  40 #include <vnet/ip/ip.h>
  41 #include <vnet/adj/adj.h>
  42 #include <vnet/fib/fib_table.h>
  43 #include <vnet/fib/ip4_fib.h>
  44 #include <vnet/fib/ip6_fib.h>
  45 #include <vnet/mpls/mpls.h>
  46 #include <vnet/dpo/drop_dpo.h>
  47 #include <vnet/dpo/classify_dpo.h>
  48 #include <vnet/dpo/punt_dpo.h>
  49 #include <vnet/dpo/receive_dpo.h>
  50 #include <vnet/dpo/ip_null_dpo.h>
  51
  52 /**
  53  * @file
  54  * @brief IPv4 and IPv6 adjacency and lookup table managment.
  55  *
  56  */
  57
  58 clib_error_t *
  59 ip_interface_address_add_del (ip_lookup_main_t * lm,
  60                               u32 sw_if_index,
  61                               void *addr_fib,
  62                               u32 address_length,
  63                               u32 is_del, u32 * result_if_address_index)
  64 {
  65   vnet_main_t *vnm = vnet_get_main ();
  66   ip_interface_address_t *a, *prev, *next;
  67   uword *p = mhash_get (&lm->address_to_if_address_index, addr_fib);
  68
  69   vec_validate_init_empty (lm->if_address_pool_index_by_sw_if_index,
  70                            sw_if_index, ~0);
  71   a = p ? pool_elt_at_index (lm->if_address_pool, p[0]) : 0;
  72
  73   /* Verify given length. */
  74   if ((a && (address_length != a->address_length)) || (address_length == 0))
  75     {
  76       vnm->api_errno = VNET_API_ERROR_ADDRESS_LENGTH_MISMATCH;
  77       return clib_error_create
  78         ("%U wrong length (expected %d) for interface %U",
  79          lm->format_address_and_length, addr_fib,
  80          address_length, a ? a->address_length : -1,
  81          format_vnet_sw_if_index_name, vnm, sw_if_index);
  82     }
  83
  84   if (is_del)
  85     {
  86       if (!a)
  87         {
  88           vnet_sw_interface_t *si = vnet_get_sw_interface (vnm, sw_if_index);
  89           vnm->api_errno = VNET_API_ERROR_ADDRESS_NOT_FOUND_FOR_INTERFACE;
  90           return clib_error_create ("%U not found for interface %U",
  91                                     lm->format_address_and_length,
  92                                     addr_fib, address_length,
  93                                     format_vnet_sw_interface_name, vnm, si);
  94         }
  95
  96       if (a->prev_this_sw_interface != ~0)
  97         {
  98           prev =
  99             pool_elt_at_index (lm->if_address_pool,
 100                                a->prev_this_sw_interface);
 101           prev->next_this_sw_interface = a->next_this_sw_interface;
 102         }
 103       if (a->next_this_sw_interface != ~0)
 104         {
 105           next =
 106             pool_elt_at_index (lm->if_address_pool,
 107                                a->next_this_sw_interface);
 108           next->prev_this_sw_interface = a->prev_this_sw_interface;
 109
 110           if (a->prev_this_sw_interface == ~0)
 111             lm->if_address_pool_index_by_sw_if_index[sw_if_index] =
 112               a->next_this_sw_interface;
 113         }
 114
 115       if ((a->next_this_sw_interface == ~0)
 116           && (a->prev_this_sw_interface == ~0))
 117         lm->if_address_pool_index_by_sw_if_index[sw_if_index] = ~0;
 118
 119       mhash_unset (&lm->address_to_if_address_index, addr_fib,
 120                    /* old_value */ 0);
 121       pool_put (lm->if_address_pool, a);
 122
 123       if (result_if_address_index)
 124         *result_if_address_index = ~0;
 125     }
 126
 127   else if (!a)
 128     {
 129       u32 pi;                   /* previous index */
 130       u32 ai;
 131       u32 hi;                   /* head index */
 132
 133       pool_get (lm->if_address_pool, a);
 134       memset (a, ~0, sizeof (a[0]));
 135       ai = a - lm->if_address_pool;
 136
 137       hi = pi = lm->if_address_pool_index_by_sw_if_index[sw_if_index];
 138       prev = 0;
 139       while (pi != (u32) ~ 0)
 140         {
 141           prev = pool_elt_at_index (lm->if_address_pool, pi);
 142           pi = prev->next_this_sw_interface;
 143         }
 144       pi = prev ? prev - lm->if_address_pool : (u32) ~ 0;
 145
 146       a->address_key = mhash_set (&lm->address_to_if_address_index,
 147                                   addr_fib, ai, /* old_value */ 0);
 148       a->address_length = address_length;
 149       a->sw_if_index = sw_if_index;
 150       a->flags = 0;
 151       a->prev_this_sw_interface = pi;
 152       a->next_this_sw_interface = ~0;
 153       if (prev)
 154         prev->next_this_sw_interface = ai;
 155
 156       lm->if_address_pool_index_by_sw_if_index[sw_if_index] =
 157         (hi != ~0) ? hi : ai;
 158       if (result_if_address_index)
 159         *result_if_address_index = ai;
 160     }
 161   else
 162     {
 163       if (result_if_address_index)
 164         *result_if_address_index = a - lm->if_address_pool;
 165     }
 166
 167
 168   return /* no error */ 0;
 169 }
 170
 171 void
 172 ip_lookup_init (ip_lookup_main_t * lm, u32 is_ip6)
 173 {
 174   /* ensure that adjacency is cacheline aligned and sized */
 175   STATIC_ASSERT (STRUCT_OFFSET_OF (ip_adjacency_t, cacheline0) == 0,
 176                  "Cache line marker must be 1st element in struct");
 177   STATIC_ASSERT (STRUCT_OFFSET_OF (ip_adjacency_t, cacheline1) ==
 178                  CLIB_CACHE_LINE_BYTES,
 179                  "Data in cache line 0 is bigger than cache line size");
 180
 181   /* Preallocate three "special" adjacencies */
 182   lm->adjacency_heap = adj_pool;
 183
 184   if (!lm->fib_result_n_bytes)
 185     lm->fib_result_n_bytes = sizeof (uword);
 186
 187   lm->is_ip6 = is_ip6;
 188   if (is_ip6)
 189     {
 190       lm->format_address_and_length = format_ip6_address_and_length;
 191       mhash_init (&lm->address_to_if_address_index, sizeof (uword),
 192                   sizeof (ip6_address_fib_t));
 193     }
 194   else
 195     {
 196       lm->format_address_and_length = format_ip4_address_and_length;
 197       mhash_init (&lm->address_to_if_address_index, sizeof (uword),
 198                   sizeof (ip4_address_fib_t));
 199     }
 200
 201   {
 202     int i;
 203
 204     /* Setup all IP protocols to be punted and builtin-unknown. */
 205     for (i = 0; i < 256; i++)
 206       {
 207         lm->local_next_by_ip_protocol[i] = IP_LOCAL_NEXT_PUNT;
 208         lm->builtin_protocol_by_ip_protocol[i] = IP_BUILTIN_PROTOCOL_UNKNOWN;
 209       }
 210
 211     lm->local_next_by_ip_protocol[IP_PROTOCOL_UDP] = IP_LOCAL_NEXT_UDP_LOOKUP;
 212     lm->local_next_by_ip_protocol[is_ip6 ? IP_PROTOCOL_ICMP6 :
 213                                   IP_PROTOCOL_ICMP] = IP_LOCAL_NEXT_ICMP;
 214     lm->builtin_protocol_by_ip_protocol[IP_PROTOCOL_UDP] =
 215       IP_BUILTIN_PROTOCOL_UDP;
 216     lm->builtin_protocol_by_ip_protocol[is_ip6 ? IP_PROTOCOL_ICMP6 :
 217                                         IP_PROTOCOL_ICMP] =
 218       IP_BUILTIN_PROTOCOL_ICMP;
 219   }
 220 }
 221
 222 u8 *
 223 format_ip_flow_hash_config (u8 * s, va_list * args)
 224 {
 225   flow_hash_config_t flow_hash_config = va_arg (*args, u32);
 226
 227 #define _(n,v) if (flow_hash_config & v) s = format (s, "%s ", #n);
 228   foreach_flow_hash_bit;
 229 #undef _
 230
 231   return s;
 232 }
 233
 234 u8 *
 235 format_ip_lookup_next (u8 * s, va_list * args)
 236 {
 237   ip_lookup_next_t n = va_arg (*args, ip_lookup_next_t);
 238   char *t = 0;
 239
 240   switch (n)
 241     {
 242     default:
 243       s = format (s, "unknown %d", n);
 244       return s;
 245
 246     case IP_LOOKUP_NEXT_DROP:
 247       t = "drop";
 248       break;
 249     case IP_LOOKUP_NEXT_PUNT:
 250       t = "punt";
 251       break;
 252     case IP_LOOKUP_NEXT_ARP:
 253       t = "arp";
 254       break;
 255     case IP_LOOKUP_NEXT_MIDCHAIN:
 256       t = "midchain";
 257       break;
 258     case IP_LOOKUP_NEXT_GLEAN:
 259       t = "glean";
 260       break;
 261     case IP_LOOKUP_NEXT_REWRITE:
 262       break;
 263     }
 264
 265   if (t)
 266     vec_add (s, t, strlen (t));
 267
 268   return s;
 269 }
 270
 271 u8 *
 272 format_ip_adjacency_packet_data (u8 * s, va_list * args)
 273 {
 274   vnet_main_t *vnm = va_arg (*args, vnet_main_t *);
 275   u32 adj_index = va_arg (*args, u32);
 276   u8 *packet_data = va_arg (*args, u8 *);
 277   u32 n_packet_data_bytes = va_arg (*args, u32);
 278   ip_adjacency_t *adj = adj_get (adj_index);
 279
 280   switch (adj->lookup_next_index)
 281     {
 282     case IP_LOOKUP_NEXT_REWRITE:
 283       s = format (s, "%U",
 284                   format_vnet_rewrite_header,
 285                   vnm->vlib_main, &adj->rewrite_header, packet_data,
 286                   n_packet_data_bytes);
 287       break;
 288
 289     default:
 290       break;
 291     }
 292
 293   return s;
 294 }
 295
 296 static uword
 297 unformat_dpo (unformat_input_t * input, va_list * args)
 298 {
 299   dpo_id_t *dpo = va_arg (*args, dpo_id_t *);
 300   fib_protocol_t fp = va_arg (*args, int);
 301   dpo_proto_t proto;
 302
 303   proto = fib_proto_to_dpo (fp);
 304
 305   if (unformat (input, "drop"))
 306     dpo_copy (dpo, drop_dpo_get (proto));
 307   else if (unformat (input, "punt"))
 308     dpo_copy (dpo, punt_dpo_get (proto));
 309   else if (unformat (input, "local"))
 310     receive_dpo_add_or_lock (proto, ~0, NULL, dpo);
 311   else if (unformat (input, "null-send-unreach"))
 312     ip_null_dpo_add_and_lock (proto, IP_NULL_ACTION_SEND_ICMP_UNREACH, dpo);
 313   else if (unformat (input, "null-send-prohibit"))
 314     ip_null_dpo_add_and_lock (proto, IP_NULL_ACTION_SEND_ICMP_PROHIBIT, dpo);
 315   else if (unformat (input, "null"))
 316     ip_null_dpo_add_and_lock (proto, IP_NULL_ACTION_NONE, dpo);
 317   else if (unformat (input, "classify"))
 318     {
 319       u32 classify_table_index;
 320
 321       if (!unformat (input, "%d", &classify_table_index))
 322         {
 323           clib_warning ("classify adj must specify table index");
 324           return 0;
 325         }
 326
 327       dpo_set (dpo, DPO_CLASSIFY, proto,
 328                classify_dpo_create (proto, classify_table_index));
 329     }
 330   else
 331     return 0;
 332
 333   return 1;
 334 }
 335
 336 const ip46_address_t zero_addr = {
 337   .as_u64 = {
 338              0, 0},
 339 };
 340
 341 u32
 342 fib_table_id_find_fib_index (fib_protocol_t proto, u32 table_id)
 343 {
 344   ip4_main_t *im4 = &ip4_main;
 345   ip6_main_t *im6 = &ip6_main;
 346   uword *p;
 347
 348   switch (proto)
 349     {
 350     case FIB_PROTOCOL_IP4:
 351       p = hash_get (im4->fib_index_by_table_id, table_id);
 352       break;
 353     case FIB_PROTOCOL_IP6:
 354       p = hash_get (im6->fib_index_by_table_id, table_id);
 355       break;
 356     default:
 357       p = NULL;
 358       break;
 359     }
 360   if (NULL != p)
 361     {
 362       return (p[0]);
 363     }
 364   return (~0);
 365 }
 366
 367 clib_error_t *
 368 vnet_ip_route_cmd (vlib_main_t * vm,
 369                    unformat_input_t * main_input, vlib_cli_command_t * cmd)
 370 {
 371   unformat_input_t _line_input, *line_input = &_line_input;
 372   fib_route_path_t *rpaths = NULL, rpath;
 373   dpo_id_t dpo = DPO_INVALID, *dpos = NULL;
 374   fib_prefix_t *prefixs = NULL, pfx;
 375   mpls_label_t out_label, via_label;
 376   clib_error_t *error = NULL;
 377   u32 table_id, is_del;
 378   vnet_main_t *vnm;
 379   u32 fib_index;
 380   f64 count;
 381   int i;
 382
 383   vnm = vnet_get_main ();
 384   is_del = 0;
 385   table_id = 0;
 386   count = 1;
 387   memset (&pfx, 0, sizeof (pfx));
 388   out_label = via_label = MPLS_LABEL_INVALID;
 389
 390   /* Get a line of input. */
 391   if (!unformat_user (main_input, unformat_line_input, line_input))
 392     return 0;
 393
 394   while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT)
 395     {
 396       memset (&rpath, 0, sizeof (rpath));
 397
 398       if (unformat (line_input, "table %d", &table_id))
 399         ;
 400       else if (unformat (line_input, "del"))
 401         is_del = 1;
 402       else if (unformat (line_input, "add"))
 403         is_del = 0;
 404       else if (unformat (line_input, "resolve-via-host"))
 405         {
 406           if (vec_len (rpaths) == 0)
 407             {
 408               error = clib_error_return (0, "Paths then flags");
 409               goto done;
 410             }
 411           rpaths[vec_len (rpaths) - 1].frp_flags |=
 412             FIB_ROUTE_PATH_RESOLVE_VIA_HOST;
 413         }
 414       else if (unformat (line_input, "resolve-via-attached"))
 415         {
 416           if (vec_len (rpaths) == 0)
 417             {
 418               error = clib_error_return (0, "Paths then flags");
 419               goto done;
 420             }
 421           rpaths[vec_len (rpaths) - 1].frp_flags |=
 422             FIB_ROUTE_PATH_RESOLVE_VIA_ATTACHED;
 423         }
 424       else if (unformat (line_input, "out-label %U",
 425                          unformat_mpls_unicast_label, &out_label))
 426         {
 427           if (vec_len (rpaths) == 0)
 428             {
 429               error = clib_error_return (0, "Paths then labels");
 430               goto done;
 431             }
 432           vec_add1 (rpaths[vec_len (rpaths) - 1].frp_label_stack, out_label);
 433         }
 434       else if (unformat (line_input, "via-label %U",
 435                          unformat_mpls_unicast_label, &rpath.frp_local_label))
 436         {
 437           rpath.frp_weight = 1;
 438           rpath.frp_proto = FIB_PROTOCOL_MPLS;
 439           rpath.frp_sw_if_index = ~0;
 440           vec_add1 (rpaths, rpath);
 441         }
 442       else if (unformat (line_input, "count %f", &count))
 443         ;
 444
 445       else if (unformat (line_input, "%U/%d",
 446                          unformat_ip4_address, &pfx.fp_addr.ip4, &pfx.fp_len))
 447         {
 448           pfx.fp_proto = FIB_PROTOCOL_IP4;
 449           vec_add1 (prefixs, pfx);
 450         }
 451       else if (unformat (line_input, "%U/%d",
 452                          unformat_ip6_address, &pfx.fp_addr.ip6, &pfx.fp_len))
 453         {
 454           pfx.fp_proto = FIB_PROTOCOL_IP6;
 455           vec_add1 (prefixs, pfx);
 456         }
 457       else if (unformat (line_input, "via %U %U weight %u",
 458                          unformat_ip4_address,
 459                          &rpath.frp_addr.ip4,
 460                          unformat_vnet_sw_interface, vnm,
 461                          &rpath.frp_sw_if_index, &rpath.frp_weight))
 462         {
 463           rpath.frp_proto = FIB_PROTOCOL_IP4;
 464           vec_add1 (rpaths, rpath);
 465         }
 466
 467       else if (unformat (line_input, "via %U %U weight %u",
 468                          unformat_ip6_address,
 469                          &rpath.frp_addr.ip6,
 470                          unformat_vnet_sw_interface, vnm,
 471                          &rpath.frp_sw_if_index, &rpath.frp_weight))
 472         {
 473           rpath.frp_proto = FIB_PROTOCOL_IP6;
 474           vec_add1 (rpaths, rpath);
 475         }
 476
 477       else if (unformat (line_input, "via %U %U",
 478                          unformat_ip4_address,
 479                          &rpath.frp_addr.ip4,
 480                          unformat_vnet_sw_interface, vnm,
 481                          &rpath.frp_sw_if_index))
 482         {
 483           rpath.frp_weight = 1;
 484           rpath.frp_proto = FIB_PROTOCOL_IP4;
 485           vec_add1 (rpaths, rpath);
 486         }
 487
 488       else if (unformat (line_input, "via %U %U",
 489                          unformat_ip6_address,
 490                          &rpath.frp_addr.ip6,
 491                          unformat_vnet_sw_interface, vnm,
 492                          &rpath.frp_sw_if_index))
 493         {
 494           rpath.frp_weight = 1;
 495           rpath.frp_proto = FIB_PROTOCOL_IP6;
 496           vec_add1 (rpaths, rpath);
 497         }
 498       else if (unformat (line_input, "via %U next-hop-table %d",
 499                          unformat_ip4_address,
 500                          &rpath.frp_addr.ip4, &rpath.frp_fib_index))
 501         {
 502           rpath.frp_weight = 1;
 503           rpath.frp_sw_if_index = ~0;
 504           rpath.frp_proto = FIB_PROTOCOL_IP4;
 505           vec_add1 (rpaths, rpath);
 506         }
 507       else if (unformat (line_input, "via %U next-hop-table %d",
 508                          unformat_ip6_address,
 509                          &rpath.frp_addr.ip6, &rpath.frp_fib_index))
 510         {
 511           rpath.frp_weight = 1;
 512           rpath.frp_sw_if_index = ~0;
 513           rpath.frp_proto = FIB_PROTOCOL_IP6;
 514           vec_add1 (rpaths, rpath);
 515         }
 516       else if (unformat (line_input, "via %U",
 517                          unformat_ip4_address, &rpath.frp_addr.ip4))
 518         {
 519           /*
 520            * the recursive next-hops are by default in the same table
 521            * as the prefix
 522            */
 523           rpath.frp_fib_index = table_id;
 524           rpath.frp_weight = 1;
 525           rpath.frp_sw_if_index = ~0;
 526           rpath.frp_proto = FIB_PROTOCOL_IP4;
 527           vec_add1 (rpaths, rpath);
 528         }
 529       else if (unformat (line_input, "via %U",
 530                          unformat_ip6_address, &rpath.frp_addr.ip6))
 531         {
 532           rpath.frp_fib_index = table_id;
 533           rpath.frp_weight = 1;
 534           rpath.frp_sw_if_index = ~0;
 535           rpath.frp_proto = FIB_PROTOCOL_IP6;
 536           vec_add1 (rpaths, rpath);
 537         }
 538       else if (unformat (line_input,
 539                          "lookup in table %d", &rpath.frp_fib_index))
 540         {
 541           rpath.frp_proto = pfx.fp_proto;
 542           rpath.frp_sw_if_index = ~0;
 543           vec_add1 (rpaths, rpath);
 544         }
 545       else if (vec_len (prefixs) > 0 &&
 546                unformat (line_input, "via %U",
 547                          unformat_vnet_sw_interface, vnm,
 548                          &rpath.frp_sw_if_index))
 549         {
 550           rpath.frp_weight = 1;
 551           rpath.frp_proto = prefixs[0].fp_proto;
 552           vec_add1 (rpaths, rpath);
 553         }
 554       else if (vec_len (prefixs) > 0 &&
 555                unformat (line_input, "via %U",
 556                          unformat_dpo, &dpo, prefixs[0].fp_proto))
 557         {
 558           vec_add1 (dpos, dpo);
 559         }
 560       else
 561         {
 562           error = unformat_parse_error (line_input);
 563           goto done;
 564         }
 565     }
 566
 567   unformat_free (line_input);
 568
 569   if (vec_len (prefixs) == 0)
 570     {
 571       error =
 572         clib_error_return (0, "expected ip4/ip6 destination address/length.");
 573       goto done;
 574     }
 575
 576   if (!is_del && vec_len (rpaths) + vec_len (dpos) == 0)
 577     {
 578       error = clib_error_return (0, "expected paths.");
 579       goto done;
 580     }
 581
 582   if (~0 == table_id)
 583     {
 584       /*
 585        * if no table_id is passed we will manipulate the default
 586        */
 587       fib_index = 0;
 588     }
 589   else
 590     {
 591       fib_index = fib_table_id_find_fib_index (prefixs[0].fp_proto, table_id);
 592
 593       if (~0 == fib_index)
 594         {
 595           error = clib_error_return (0, "Nonexistent table id %d", table_id);
 596           goto done;
 597         }
 598     }
 599
 600   for (i = 0; i < vec_len (prefixs); i++)
 601     {
 602       if (is_del && 0 == vec_len (rpaths))
 603         {
 604           fib_table_entry_delete (fib_index, &prefixs[i], FIB_SOURCE_CLI);
 605         }
 606       else if (!is_del && 1 == vec_len (dpos))
 607         {
 608           fib_table_entry_special_dpo_add (fib_index,
 609                                            &prefixs[i],
 610                                            FIB_SOURCE_CLI,
 611                                            FIB_ENTRY_FLAG_EXCLUSIVE,
 612                                            &dpos[0]);
 613           dpo_reset (&dpos[0]);
 614         }
 615       else if (vec_len (dpos) > 0)
 616         {
 617           error =
 618             clib_error_return (0,
 619                                "Load-balancing over multiple special adjacencies is unsupported");
 620           goto done;
 621         }
 622       else if (0 < vec_len (rpaths))
 623         {
 624           u32 k, j, n, incr;
 625           ip46_address_t dst = prefixs[i].fp_addr;
 626           f64 t[2];
 627           n = count;
 628           t[0] = vlib_time_now (vm);
 629           incr = 1 << ((FIB_PROTOCOL_IP4 == prefixs[0].fp_proto ? 32 : 128) -
 630                        prefixs[i].fp_len);
 631
 632           for (k = 0; k < n; k++)
 633             {
 634               for (j = 0; j < vec_len (rpaths); j++)
 635                 {
 636                   u32 fi;
 637                   /*
 638                    * the CLI parsing stored table Ids, swap to FIB indicies
 639                    */
 640                   fi = fib_table_id_find_fib_index (prefixs[i].fp_proto,
 641                                                     rpaths[i].frp_fib_index);
 642
 643                   if (~0 == fi)
 644                     {
 645                       error =
 646                         clib_error_return (0, "Via table %d does not exist",
 647                                            rpaths[i].frp_fib_index);
 648                       goto done;
 649                     }
 650                   rpaths[i].frp_fib_index = fi;
 651
 652                   fib_prefix_t rpfx = {
 653                     .fp_len = prefixs[i].fp_len,
 654                     .fp_proto = prefixs[i].fp_proto,
 655                     .fp_addr = dst,
 656                   };
 657
 658                   if (is_del)
 659                     fib_table_entry_path_remove2 (fib_index,
 660                                                   &rpfx,
 661                                                   FIB_SOURCE_CLI, &rpaths[j]);
 662                   else
 663                     fib_table_entry_path_add2 (fib_index,
 664                                                &rpfx,
 665                                                FIB_SOURCE_CLI,
 666                                                FIB_ENTRY_FLAG_NONE,
 667                                                &rpaths[j]);
 668                 }
 669
 670               if (FIB_PROTOCOL_IP4 == prefixs[0].fp_proto)
 671                 {
 672                   dst.ip4.as_u32 =
 673                     clib_host_to_net_u32 (incr +
 674                                           clib_net_to_host_u32 (dst.
 675                                                                 ip4.as_u32));
 676                 }
 677               else
 678                 {
 679                   int bucket = (incr < 64 ? 0 : 1);
 680                   dst.ip6.as_u64[bucket] =
 681                     clib_host_to_net_u64 (incr +
 682                                           clib_net_to_host_u64 (dst.ip6.as_u64
 683                                                                 [bucket]));
 684
 685                 }
 686             }
 687           t[1] = vlib_time_now (vm);
 688           if (count > 1)
 689             vlib_cli_output (vm, "%.6e routes/sec", count / (t[1] - t[0]));
 690         }
 691       else
 692         {
 693           error = clib_error_return (0, "Don't understand what you want...");
 694           goto done;
 695         }
 696     }
 697
 698
 699 done:
 700   vec_free (dpos);
 701   vec_free (prefixs);
 702   vec_free (rpaths);
 703   return error;
 704 }
 705
 706 /* *INDENT-OFF* */
 707 VLIB_CLI_COMMAND (vlib_cli_ip_command, static) = {
 708   .path = "ip",
 709   .short_help = "Internet protocol (IP) commands",
 710 };
 711 /* *INDENT-ON* */
 712
 713 /* *INDENT-OFF* */
 714 VLIB_CLI_COMMAND (vlib_cli_ip6_command, static) = {
 715   .path = "ip6",
 716   .short_help = "Internet protocol version 6 (IPv6) commands",
 717 };
 718 /* *INDENT-ON* */
 719
 720 /* *INDENT-OFF* */
 721 VLIB_CLI_COMMAND (vlib_cli_show_ip_command, static) = {
 722   .path = "show ip",
 723   .short_help = "Internet protocol (IP) show commands",
 724 };
 725 /* *INDENT-ON* */
 726
 727 /* *INDENT-OFF* */
 728 VLIB_CLI_COMMAND (vlib_cli_show_ip6_command, static) = {
 729   .path = "show ip6",
 730   .short_help = "Internet protocol version 6 (IPv6) show commands",
 731 };
 732 /* *INDENT-ON* */
 733
 734 /*?
 735  * This command is used to add or delete IPv4 or IPv6 routes. All
 736  * IP Addresses ('<em><dst-ip-addr>/<width></em>',
 737  * '<em><next-hop-ip-addr></em>' and '<em><adj-hop-ip-addr></em>')
 738  * can be IPv4 or IPv6, but all must be of the same form in a single
 739  * command. To display the current set of routes, use the commands
 740  * '<em>show ip fib</em>' and '<em>show ip6 fib</em>'.
 741  *
 742  * @cliexpar
 743  * Example of how to add a straight forward static route:
 744  * @cliexcmd{ip route add 6.0.1.2/32 via 6.0.0.1 GigabitEthernet2/0/0}
 745  * Example of how to delete a straight forward static route:
 746  * @cliexcmd{ip route del 6.0.1.2/32 via 6.0.0.1 GigabitEthernet2/0/0}
 747  * Mainly for route add/del performance testing, one can add or delete
 748  * multiple routes by adding 'count N' to the previous item:
 749  * @cliexcmd{ip route add count 10 7.0.0.0/24 via 6.0.0.1 GigabitEthernet2/0/0}
 750  * Add multiple routes for the same destination to create equal-cost multipath:
 751  * @cliexcmd{ip route add 7.0.0.1/32 via 6.0.0.1 GigabitEthernet2/0/0}
 752  * @cliexcmd{ip route add 7.0.0.1/32 via 6.0.0.2 GigabitEthernet2/0/0}
 753  * For unequal-cost multipath, specify the desired weights. This
 754  * combination of weights results in 3/4 of the traffic following the
 755  * second path, 1/4 following the first path:
 756  * @cliexcmd{ip route add 7.0.0.1/32 via 6.0.0.1 GigabitEthernet2/0/0 weight 1}
 757  * @cliexcmd{ip route add 7.0.0.1/32 via 6.0.0.2 GigabitEthernet2/0/0 weight 3}
 758  * To add a route to a particular FIB table (VRF), use:
 759  * @cliexcmd{ip route add 172.16.24.0/24 table 7 via GigabitEthernet2/0/0}
 760  ?*/
 761 /* *INDENT-OFF* */
 762 VLIB_CLI_COMMAND (ip_route_command, static) = {
 763   .path = "ip route",
 764   .short_help = "ip route [add|del] [count <n>] <dst-ip-addr>/<width> [table <table-id>] [via <next-hop-ip-addr> [<interface>] [weight <weight>]] | [via arp <interface> <adj-hop-ip-addr>] | [via drop|punt|local<id>|arp|classify <classify-idx>] [lookup in table <out-table-id>]",
 765   .function = vnet_ip_route_cmd,
 766   .is_mp_safe = 1,
 767 };
 768 /* *INDENT-ON* */
 769
 770 /*
 771  * The next two routines address a longstanding script hemorrhoid.
 772  * Probing a v4 or v6 neighbor needs to appear to be synchronous,
 773  * or dependent route-adds will simply fail.
 774  */
 775 static clib_error_t *
 776 ip6_probe_neighbor_wait (vlib_main_t * vm, ip6_address_t * a, u32 sw_if_index,
 777                          int retry_count)
 778 {
 779   vnet_main_t *vnm = vnet_get_main ();
 780   clib_error_t *e;
 781   int i;
 782   int resolved = 0;
 783   uword event_type;
 784   uword *event_data = 0;
 785
 786   ASSERT (vlib_in_process_context (vm));
 787
 788   if (retry_count > 0)
 789     vnet_register_ip6_neighbor_resolution_event
 790       (vnm, a, vlib_get_current_process (vm)->node_runtime.node_index,
 791        1 /* event */ , 0 /* data */ );
 792
 793   for (i = 0; i < retry_count; i++)
 794     {
 795       /* The interface may be down, etc. */
 796       e = ip6_probe_neighbor (vm, a, sw_if_index);
 797
 798       if (e)
 799         return e;
 800
 801       vlib_process_wait_for_event_or_clock (vm, 1.0);
 802       event_type = vlib_process_get_events (vm, &event_data);
 803       switch (event_type)
 804         {
 805         case 1:         /* resolved... */
 806           vlib_cli_output (vm, "Resolved %U", format_ip6_address, a);
 807           resolved = 1;
 808           goto done;
 809
 810         case ~0:                /* timeout */
 811           break;
 812
 813         default:
 814           clib_warning ("unknown event_type %d", event_type);
 815         }
 816       vec_reset_length (event_data);
 817     }
 818
 819 done:
 820
 821   if (!resolved)
 822     return clib_error_return (0, "Resolution failed for %U",
 823                               format_ip6_address, a);
 824   return 0;
 825 }
 826
 827 static clib_error_t *
 828 ip4_probe_neighbor_wait (vlib_main_t * vm, ip4_address_t * a, u32 sw_if_index,
 829                          int retry_count)
 830 {
 831   vnet_main_t *vnm = vnet_get_main ();
 832   clib_error_t *e;
 833   int i;
 834   int resolved = 0;
 835   uword event_type;
 836   uword *event_data = 0;
 837
 838   ASSERT (vlib_in_process_context (vm));
 839
 840   if (retry_count > 0)
 841     vnet_register_ip4_arp_resolution_event
 842       (vnm, a, vlib_get_current_process (vm)->node_runtime.node_index,
 843        1 /* event */ , 0 /* data */ );
 844
 845   for (i = 0; i < retry_count; i++)
 846     {
 847       /* The interface may be down, etc. */
 848       e = ip4_probe_neighbor (vm, a, sw_if_index);
 849
 850       if (e)
 851         return e;
 852
 853       vlib_process_wait_for_event_or_clock (vm, 1.0);
 854       event_type = vlib_process_get_events (vm, &event_data);
 855       switch (event_type)
 856         {
 857         case 1:         /* resolved... */
 858           vlib_cli_output (vm, "Resolved %U", format_ip4_address, a);
 859           resolved = 1;
 860           goto done;
 861
 862         case ~0:                /* timeout */
 863           break;
 864
 865         default:
 866           clib_warning ("unknown event_type %d", event_type);
 867         }
 868       vec_reset_length (event_data);
 869     }
 870
 871 done:
 872
 873   vec_reset_length (event_data);
 874
 875   if (!resolved)
 876     return clib_error_return (0, "Resolution failed for %U",
 877                               format_ip4_address, a);
 878   return 0;
 879 }
 880
 881 static clib_error_t *
 882 probe_neighbor_address (vlib_main_t * vm,
 883                         unformat_input_t * input, vlib_cli_command_t * cmd)
 884 {
 885   vnet_main_t *vnm = vnet_get_main ();
 886   unformat_input_t _line_input, *line_input = &_line_input;
 887   ip4_address_t a4;
 888   ip6_address_t a6;
 889   clib_error_t *error = 0;
 890   u32 sw_if_index = ~0;
 891   int retry_count = 3;
 892   int is_ip4 = 1;
 893   int address_set = 0;
 894
 895   /* Get a line of input. */
 896   if (!unformat_user (input, unformat_line_input, line_input))
 897     return 0;
 898
 899   while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT)
 900     {
 901       if (unformat_user (line_input, unformat_vnet_sw_interface, vnm,
 902                          &sw_if_index))
 903         ;
 904       else if (unformat (line_input, "retry %d", &retry_count))
 905         ;
 906
 907       else if (unformat (line_input, "%U", unformat_ip4_address, &a4))
 908         address_set++;
 909       else if (unformat (line_input, "%U", unformat_ip6_address, &a6))
 910         {
 911           address_set++;
 912           is_ip4 = 0;
 913         }
 914       else
 915         return clib_error_return (0, "unknown input '%U'",
 916                                   format_unformat_error, line_input);
 917     }
 918
 919   unformat_free (line_input);
 920
 921   if (sw_if_index == ~0)
 922     return clib_error_return (0, "Interface required, not set.");
 923   if (address_set == 0)
 924     return clib_error_return (0, "ip address required, not set.");
 925   if (address_set > 1)
 926     return clib_error_return (0, "Multiple ip addresses not supported.");
 927
 928   if (is_ip4)
 929     error = ip4_probe_neighbor_wait (vm, &a4, sw_if_index, retry_count);
 930   else
 931     error = ip6_probe_neighbor_wait (vm, &a6, sw_if_index, retry_count);
 932
 933   return error;
 934 }
 935
 936 /*?
 937  * The '<em>ip probe-neighbor</em>' command ARPs for IPv4 addresses or
 938  * attempts IPv6 neighbor discovery depending on the supplied IP address
 939  * format.
 940  *
 941  * @note This command will not immediately affect the indicated FIB; it
 942  * is not suitable for use in establishing a FIB entry prior to adding
 943  * recursive FIB entries. As in: don't use it in a script to probe a
 944  * gateway prior to adding a default route. It won't work. Instead,
 945  * configure a static ARP cache entry [see '<em>set ip arp</em>'], or
 946  * a static IPv6 neighbor [see '<em>set ip6 neighbor</em>'].
 947  *
 948  * @cliexpar
 949  * Example of probe for an IPv4 address:
 950  * @cliexcmd{ip probe-neighbor GigabitEthernet2/0/0 172.16.1.2}
 951 ?*/
 952 /* *INDENT-OFF* */
 953 VLIB_CLI_COMMAND (ip_probe_neighbor_command, static) = {
 954   .path = "ip probe-neighbor",
 955   .function = probe_neighbor_address,
 956   .short_help = "ip probe-neighbor <interface> <ip4-addr> | <ip6-addr> [retry nn]",
 957   .is_mp_safe = 1,
 958 };
 959 /* *INDENT-ON* */
 960
 961 /*
 962  * fd.io coding-style-patch-verification: ON
 963  *
 964  * Local Variables:
 965  * eval: (c-set-style "gnu")
 966  * End:
 967  */