2 * Copyright (c) 2016 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:
7 * http://www.apache.org/licenses/LICENSE-2.0
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.
16 #include <vppinfra/error.h>
17 #include <vppinfra/hash.h>
18 #include <vnet/vnet.h>
19 #include <vnet/ip/ip.h>
20 #include <vnet/ip/udp.h>
21 #include <vnet/ethernet/ethernet.h>
22 #include <vnet/lisp-gpe/lisp_gpe.h>
24 #define foreach_lisp_gpe_tx_next \
25 _(DROP, "error-drop") \
26 _(IP4_LOOKUP, "ip4-lookup") \
27 _(IP6_LOOKUP, "ip6-lookup")
31 #define _(sym,str) LISP_GPE_TX_NEXT_##sym,
32 foreach_lisp_gpe_tx_next
40 } lisp_gpe_tx_trace_t;
43 format_lisp_gpe_tx_trace (u8 * s, va_list * args)
45 CLIB_UNUSED (vlib_main_t * vm) = va_arg (*args, vlib_main_t *);
46 CLIB_UNUSED (vlib_node_t * node) = va_arg (*args, vlib_node_t *);
47 lisp_gpe_tx_trace_t * t = va_arg (*args, lisp_gpe_tx_trace_t *);
49 s = format (s, "LISP-GPE-TX: tunnel %d", t->tunnel_index);
54 get_one_tunnel_inline (lisp_gpe_main_t * lgm, vlib_buffer_t * b0,
55 lisp_gpe_tunnel_t ** t0, u8 is_v4)
57 u32 adj_index0, tunnel_index0;
58 ip_adjacency_t * adj0;
60 /* Get adjacency and from it the tunnel_index */
61 adj_index0 = vnet_buffer(b0)->ip.adj_index[VLIB_TX];
64 adj0 = ip_get_adjacency (lgm->lm4, adj_index0);
66 adj0 = ip_get_adjacency (lgm->lm6, adj_index0);
68 tunnel_index0 = adj0->rewrite_header.node_index;
69 t0[0] = pool_elt_at_index(lgm->tunnels, tunnel_index0);
75 encap_one_inline (lisp_gpe_main_t * lgm, vlib_buffer_t * b0,
76 lisp_gpe_tunnel_t * t0, u32 * next0, u8 is_v4)
78 ASSERT(sizeof(ip4_udp_lisp_gpe_header_t) == 36);
79 ASSERT(sizeof(ip6_udp_lisp_gpe_header_t) == 56);
83 ip_udp_encap_one (lgm->vlib_main, b0, t0->rewrite, 36, 1);
84 next0[0] = LISP_GPE_TX_NEXT_IP4_LOOKUP;
89 ip_udp_encap_one (lgm->vlib_main, b0, t0->rewrite, 56, 0);
90 next0[0] = LISP_GPE_TX_NEXT_IP6_LOOKUP;
95 get_two_tunnels_inline (lisp_gpe_main_t * lgm, vlib_buffer_t * b0,
96 vlib_buffer_t * b1, lisp_gpe_tunnel_t ** t0,
97 lisp_gpe_tunnel_t ** t1, u8 is_v4)
99 u32 adj_index0, adj_index1, tunnel_index0, tunnel_index1;
100 ip_adjacency_t * adj0, * adj1;
102 /* Get adjacency and from it the tunnel_index */
103 adj_index0 = vnet_buffer(b0)->ip.adj_index[VLIB_TX];
104 adj_index1 = vnet_buffer(b1)->ip.adj_index[VLIB_TX];
108 adj0 = ip_get_adjacency (lgm->lm4, adj_index0);
109 adj1 = ip_get_adjacency (lgm->lm4, adj_index1);
113 adj0 = ip_get_adjacency (lgm->lm6, adj_index0);
114 adj1 = ip_get_adjacency (lgm->lm6, adj_index1);
117 tunnel_index0 = adj0->rewrite_header.node_index;
118 tunnel_index1 = adj1->rewrite_header.node_index;
120 t0[0] = pool_elt_at_index(lgm->tunnels, tunnel_index0);
121 t1[0] = pool_elt_at_index(lgm->tunnels, tunnel_index1);
128 encap_two_inline (lisp_gpe_main_t * lgm, vlib_buffer_t * b0, vlib_buffer_t * b1,
129 lisp_gpe_tunnel_t * t0, lisp_gpe_tunnel_t * t1, u32 * next0,
130 u32 * next1, u8 is_v4)
132 ASSERT(sizeof(ip4_udp_lisp_gpe_header_t) == 36);
133 ASSERT(sizeof(ip6_udp_lisp_gpe_header_t) == 56);
137 ip_udp_encap_one (lgm->vlib_main, b0, t0->rewrite, 36, 1);
138 ip_udp_encap_one (lgm->vlib_main, b1, t1->rewrite, 36, 1);
139 next0[0] = next1[0] = LISP_GPE_TX_NEXT_IP4_LOOKUP;
143 ip_udp_encap_one (lgm->vlib_main, b0, t0->rewrite, 56, 0);
144 ip_udp_encap_one (lgm->vlib_main, b1, t1->rewrite, 56, 0);
145 next0[0] = next1[0] = LISP_GPE_TX_NEXT_IP6_LOOKUP;
149 #define is_v4_packet(_h) ((*(u8*) _h) & 0xF0) == 0x40
152 lisp_gpe_interface_tx (vlib_main_t * vm, vlib_node_runtime_t * node,
153 vlib_frame_t * from_frame)
155 u32 n_left_from, next_index, * from, * to_next;
156 lisp_gpe_main_t * lgm = &lisp_gpe_main;
157 u32 pkts_encapsulated = 0;
159 from = vlib_frame_vector_args (from_frame);
160 n_left_from = from_frame->n_vectors;
162 next_index = node->cached_next_index;
164 while (n_left_from > 0)
168 vlib_get_next_frame (vm, node, next_index,
169 to_next, n_left_to_next);
171 while (n_left_from >= 4 && n_left_to_next >= 2)
174 vlib_buffer_t * b0, * b1;
176 lisp_gpe_tunnel_t * t0 = 0, * t1 = 0;
177 u8 is_v4_eid0, is_v4_eid1;
179 next0 = next1 = LISP_GPE_TX_NEXT_IP4_LOOKUP;
181 /* Prefetch next iteration. */
183 vlib_buffer_t * p2, *p3;
185 p2 = vlib_get_buffer (vm, from[2]);
186 p3 = vlib_get_buffer (vm, from[3]);
188 vlib_prefetch_buffer_header(p2, LOAD);
189 vlib_prefetch_buffer_header(p3, LOAD);
191 CLIB_PREFETCH(p2->data, 2*CLIB_CACHE_LINE_BYTES, LOAD);
192 CLIB_PREFETCH(p3->data, 2*CLIB_CACHE_LINE_BYTES, LOAD);
204 b0 = vlib_get_buffer (vm, bi0);
205 b1 = vlib_get_buffer (vm, bi1);
207 is_v4_eid0 = is_v4_packet(vlib_buffer_get_current (b0));
208 is_v4_eid1 = is_v4_packet(vlib_buffer_get_current (b1));
210 if (PREDICT_TRUE(is_v4_eid0 == is_v4_eid1))
212 get_two_tunnels_inline (lgm, b0, b1, &t0, &t1,
217 get_one_tunnel_inline (lgm, b0, &t0, is_v4_eid0 ? 1 : 0);
218 get_one_tunnel_inline (lgm, b1, &t1, is_v4_eid1 ? 1 : 0);
222 ip_addr_version(&t0->dst) == ip_addr_version(&t1->dst)))
224 encap_two_inline (lgm, b0, b1, t0, t1, &next0, &next1,
225 ip_addr_version(&t0->dst) == IP4 ? 1 : 0);
229 encap_one_inline (lgm, b0, t0, &next0,
230 ip_addr_version(&t0->dst) == IP4 ? 1 : 0);
231 encap_one_inline (lgm, b1, t1, &next1,
232 ip_addr_version(&t1->dst) == IP4 ? 1 : 0);
235 /* Reset to look up tunnel partner in the configured FIB */
236 vnet_buffer(b0)->sw_if_index[VLIB_TX] = t0->encap_fib_index;
237 vnet_buffer(b1)->sw_if_index[VLIB_TX] = t1->encap_fib_index;
239 if (PREDICT_FALSE(b0->flags & VLIB_BUFFER_IS_TRACED))
241 lisp_gpe_tx_trace_t *tr = vlib_add_trace (vm, node, b0,
243 tr->tunnel_index = t0 - lgm->tunnels;
245 if (PREDICT_FALSE(b1->flags & VLIB_BUFFER_IS_TRACED))
247 lisp_gpe_tx_trace_t *tr = vlib_add_trace (vm, node, b1,
249 tr->tunnel_index = t1 - lgm->tunnels;
252 pkts_encapsulated += 2;
254 vlib_validate_buffer_enqueue_x2(vm, node, next_index, to_next,
255 n_left_to_next, bi0, bi1, next0,
259 while (n_left_from > 0 && n_left_to_next > 0)
262 u32 bi0, next0 = LISP_GPE_TX_NEXT_IP4_LOOKUP;
263 lisp_gpe_tunnel_t * t0 = 0;
273 b0 = vlib_get_buffer (vm, bi0);
275 is_v4_0 = is_v4_packet(vlib_buffer_get_current (b0));
276 get_one_tunnel_inline (lgm, b0, &t0, is_v4_0 ? 1 : 0);
278 encap_one_inline (lgm, b0, t0, &next0,
279 ip_addr_version(&t0->dst) == IP4 ? 1 : 0);
281 /* Reset to look up tunnel partner in the configured FIB */
282 vnet_buffer(b0)->sw_if_index[VLIB_TX] = t0->encap_fib_index;
286 if (PREDICT_FALSE(b0->flags & VLIB_BUFFER_IS_TRACED))
288 lisp_gpe_tx_trace_t *tr = vlib_add_trace (vm, node, b0,
290 tr->tunnel_index = t0 - lgm->tunnels;
292 vlib_validate_buffer_enqueue_x1(vm, node, next_index, to_next,
293 n_left_to_next, bi0, next0);
296 vlib_put_next_frame (vm, node, next_index, n_left_to_next);
298 vlib_node_increment_counter (vm, node->node_index,
299 LISP_GPE_ERROR_ENCAPSULATED, pkts_encapsulated);
300 return from_frame->n_vectors;
304 format_lisp_gpe_name (u8 * s, va_list * args)
306 u32 dev_instance = va_arg (*args, u32);
307 return format (s, "lisp_gpe%d", dev_instance);
310 VNET_DEVICE_CLASS (lisp_gpe_device_class,static) = {
312 .format_device_name = format_lisp_gpe_name,
313 .format_tx_trace = format_lisp_gpe_tx_trace,
314 .tx_function = lisp_gpe_interface_tx,
315 .no_flatten_output_chains = 1,
319 dummy_set_rewrite (vnet_main_t * vnm, u32 sw_if_index, u32 l3_type,
320 void * dst_address, void * rewrite, uword max_rewrite_bytes)
326 format_lisp_gpe_header_with_length (u8 * s, va_list * args)
328 lisp_gpe_header_t * h = va_arg (*args, lisp_gpe_header_t *);
329 u32 max_header_bytes = va_arg (*args, u32);
332 header_bytes = sizeof (h[0]);
333 if (max_header_bytes != 0 && header_bytes > max_header_bytes)
334 return format (s, "lisp-gpe header truncated");
336 s = format (s, "flags: ");
337 #define _(n,v) if (h->flags & v) s = format (s, "%s ", #n);
338 foreach_lisp_gpe_flag_bit;
341 s = format (s, "\n ver_res %d res %d next_protocol %d iid %d(%x)",
342 h->ver_res, h->res, h->next_protocol,
343 clib_net_to_host_u32 (h->iid),
344 clib_net_to_host_u32 (h->iid));
348 VNET_HW_INTERFACE_CLASS (lisp_gpe_hw_class) = {
350 .format_header = format_lisp_gpe_header_with_length,
351 .set_rewrite = dummy_set_rewrite,
355 add_del_ip_prefix_route (ip_prefix_t * dst_prefix, u32 table_id,
356 ip_adjacency_t * add_adj, u8 is_add, u32 * adj_index)
360 if (ip_prefix_version(dst_prefix) == IP4)
362 ip4_main_t * im4 = &ip4_main;
363 ip4_add_del_route_args_t a;
364 ip4_address_t addr = ip_prefix_v4(dst_prefix);
366 memset(&a, 0, sizeof(a));
367 a.flags = IP4_ROUTE_FLAG_TABLE_ID;
368 a.table_index_or_table_id = table_id;
370 a.dst_address_length = ip_prefix_len(dst_prefix);
371 a.dst_address = addr;
372 a.flags |= is_add ? IP4_ROUTE_FLAG_ADD : IP4_ROUTE_FLAG_DEL;
374 a.n_add_adj = is_add ? 1 : 0;
376 ip4_add_del_route (im4, &a);
380 p = ip4_get_route (im4, table_id, 0, addr.as_u8,
381 ip_prefix_len(dst_prefix));
384 clib_warning("Failed to insert route for eid %U!",
385 format_ip4_address_and_length, addr.as_u8,
386 ip_prefix_len(dst_prefix));
394 ip6_main_t * im6 = &ip6_main;
395 ip6_add_del_route_args_t a;
396 ip6_address_t addr = ip_prefix_v6(dst_prefix);
398 memset(&a, 0, sizeof(a));
399 a.flags = IP6_ROUTE_FLAG_TABLE_ID;
400 a.table_index_or_table_id = table_id;
402 a.dst_address_length = ip_prefix_len(dst_prefix);
403 a.dst_address = addr;
404 a.flags |= is_add ? IP6_ROUTE_FLAG_ADD : IP6_ROUTE_FLAG_DEL;
406 a.n_add_adj = is_add ? 1 : 0;
408 ip6_add_del_route (im6, &a);
412 adj_index[0] = ip6_get_route (im6, table_id, 0, &addr,
413 ip_prefix_len(dst_prefix));
414 if (adj_index[0] == 0)
416 clib_warning("Failed to insert route for eid %U!",
417 format_ip6_address_and_length, addr.as_u8,
418 ip_prefix_len(dst_prefix));
427 add_del_lisp_gpe_default_route (u32 table_id, u8 is_v4, u8 is_add)
429 lisp_gpe_main_t * lgm = &lisp_gpe_main;
434 /* setup adjacency */
435 memset (&adj, 0, sizeof(adj));
438 adj.explicit_fib_index = ~0;
439 adj.lookup_next_index = is_v4 ? lgm->ip4_lookup_next_lgpe_ip4_lookup :
440 lgm->ip6_lookup_next_lgpe_ip6_lookup;
441 /* default route has tunnel_index ~0 */
442 adj.rewrite_header.sw_if_index = ~0;
444 /* set prefix to 0/0 */
445 memset(&prefix, 0, sizeof(prefix));
446 ip_prefix_version(&prefix) = is_v4 ? IP4 : IP6;
448 /* add/delete route for prefix */
449 add_del_ip_prefix_route (&prefix, table_id, &adj, is_add, &adj_index);
453 lisp_gpe_iface_set_table (u32 sw_if_index, u32 table_id, u8 is_ip4)
457 ip4_main_t * im4 = &ip4_main;
459 fib = find_ip4_fib_by_table_index_or_id (im4, table_id,
460 IP4_ROUTE_FLAG_TABLE_ID);
462 /* fib's created if it doesn't exist */
465 vec_validate(im4->fib_index_by_sw_if_index, sw_if_index);
466 im4->fib_index_by_sw_if_index[sw_if_index] = fib->index;
470 ip6_main_t * im6 = &ip6_main;
472 fib = find_ip6_fib_by_table_index_or_id (im6, table_id,
473 IP6_ROUTE_FLAG_TABLE_ID);
475 /* fib's created if it doesn't exist */
478 vec_validate(im6->fib_index_by_sw_if_index, sw_if_index);
479 im6->fib_index_by_sw_if_index[sw_if_index] = fib->index;
484 vnet_lisp_gpe_add_del_iface (vnet_lisp_gpe_add_del_iface_args_t * a,
487 lisp_gpe_main_t * lgm = &lisp_gpe_main;
488 vnet_main_t * vnm = lgm->vnet_main;
489 vnet_hw_interface_t * hi;
490 u32 hw_if_index = ~0, lookup_next_index4, lookup_next_index6, flen;
493 if (vnet_lisp_gpe_enable_disable_status() == 0)
495 clib_warning ("LISP is disabled!");
496 return VNET_API_ERROR_LISP_DISABLED;
499 hip = hash_get(lgm->lisp_gpe_hw_if_index_by_table_id, a->table_id);
505 clib_warning ("Interface for vrf %d already exists", a->table_id);
509 /* create hw lisp_gpeX iface if needed, otherwise reuse existing */
510 flen = vec_len(lgm->free_lisp_gpe_tunnel_hw_if_indices);
513 hw_if_index = lgm->free_lisp_gpe_tunnel_hw_if_indices[flen - 1];
514 _vec_len(lgm->free_lisp_gpe_tunnel_hw_if_indices) -= 1;
518 hw_if_index = vnet_register_interface (vnm,
519 lisp_gpe_device_class.index,
521 lisp_gpe_hw_class.index, 0);
524 hi = vnet_get_hw_interface (vnm, hw_if_index);
525 hash_set(lgm->lisp_gpe_hw_if_index_by_table_id, a->table_id, hw_if_index);
527 /* set tunnel termination: post decap, packets are tagged as having been
528 * originated by lisp-gpe interface */
529 hash_set(lgm->tunnel_term_sw_if_index_by_vni, a->vni, hi->sw_if_index);
530 hash_set(lgm->vni_by_tunnel_term_sw_if_index, hi->sw_if_index, a->vni);
532 /* set ingress arc from lgpe_ipX_lookup */
533 lookup_next_index4 = vlib_node_add_next (lgm->vlib_main,
534 lgpe_ip4_lookup_node.index,
535 hi->output_node_index);
536 lookup_next_index6 = vlib_node_add_next (lgm->vlib_main,
537 lgpe_ip6_lookup_node.index,
538 hi->output_node_index);
539 hash_set(lgm->lgpe_ip4_lookup_next_index_by_table_id, a->table_id,
541 hash_set(lgm->lgpe_ip6_lookup_next_index_by_table_id, a->table_id,
544 /* insert default routes that point to lgpe-ipx-lookup */
545 add_del_lisp_gpe_default_route (a->table_id, /* is_v4 */1, 1);
546 add_del_lisp_gpe_default_route (a->table_id, /* is_v4 */0, 1);
548 /* set egress arcs */
549 #define _(sym,str) vlib_node_add_named_next_with_slot (vnm->vlib_main, \
550 hi->tx_node_index, str, LISP_GPE_TX_NEXT_##sym);
551 foreach_lisp_gpe_tx_next
554 /* set interface in appropriate v4 and v6 FIBs */
555 lisp_gpe_iface_set_table (hi->sw_if_index, a->table_id, 1);
556 lisp_gpe_iface_set_table (hi->sw_if_index, a->table_id, 0);
558 /* enable interface */
559 vnet_sw_interface_set_flags (vnm, hi->sw_if_index,
560 VNET_SW_INTERFACE_FLAG_ADMIN_UP);
561 vnet_hw_interface_set_flags (vnm, hi->hw_if_index,
562 VNET_HW_INTERFACE_FLAG_LINK_UP);
568 clib_warning("The interface for vrf %d doesn't exist", a->table_id);
571 hi = vnet_get_hw_interface (vnm, hip[0]);
573 /* disable interface */
574 vnet_sw_interface_set_flags (vnm, hi->sw_if_index, 0/* down */);
575 vnet_hw_interface_set_flags (vnm, hi->hw_if_index, 0/* down */);
576 hash_unset(lgm->lisp_gpe_hw_if_index_by_table_id, a->table_id);
577 vec_add1(lgm->free_lisp_gpe_tunnel_hw_if_indices, hi->hw_if_index);
579 /* clean tunnel termination and vni to sw_if_index binding */
580 vni = hash_get(lgm->vni_by_tunnel_term_sw_if_index, hi->sw_if_index);
581 hash_unset(lgm->tunnel_term_sw_if_index_by_vni, vni[0]);
582 hash_unset(lgm->vni_by_tunnel_term_sw_if_index, hi->sw_if_index);
584 /* unset default routes */
585 add_del_lisp_gpe_default_route (a->table_id, /* is_v4 */1, 0);
586 add_del_lisp_gpe_default_route (a->table_id, /* is_v4 */0, 0);
592 static clib_error_t *
593 lisp_gpe_add_del_iface_command_fn (vlib_main_t * vm, unformat_input_t * input,
594 vlib_cli_command_t * cmd)
596 unformat_input_t _line_input, * line_input = &_line_input;
598 clib_error_t * error = 0;
602 vnet_lisp_gpe_add_del_iface_args_t _a, * a = &_a;
604 /* Get a line of input. */
605 if (! unformat_user (input, unformat_line_input, line_input))
608 while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT)
610 if (unformat (line_input, "add"))
612 else if (unformat (line_input, "del"))
614 else if (unformat (line_input, "vrf %d", &table_id))
618 return clib_error_return (0, "parse error: '%U'",
619 format_unformat_error, line_input);
624 a->table_id = table_id;
625 rv = vnet_lisp_gpe_add_del_iface (a, 0);
628 error = clib_error_return(0, "failed to %s gpe iface!",
629 is_add ? "add" : "delete");
635 VLIB_CLI_COMMAND (add_del_lisp_gpe_iface_command, static) = {
636 .path = "lisp gpe iface",
637 .short_help = "lisp gpe iface add/del table-index <table_index> vrf <vrf>",
638 .function = lisp_gpe_add_del_iface_command_fn,