4 * Copyright (c) 2012 Cisco and/or its affiliates.
5 * Licensed under the Apache License, Version 2.0 (the "License");
6 * you may not use this file except in compliance with the License.
7 * You may obtain a copy of the License at:
9 * http://www.apache.org/licenses/LICENSE-2.0
11 * Unless required by applicable law or agreed to in writing, software
12 * distributed under the License is distributed on an "AS IS" BASIS,
13 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14 * See the License for the specific language governing permissions and
15 * limitations under the License.
18 #include <vnet/vnet.h>
19 #include <vnet/mpls/mpls.h>
20 #include <vnet/fib/ip4_fib.h>
21 #include <vnet/fib/mpls_fib.h>
23 const static char* mpls_eos_bit_names[] = MPLS_EOS_BITS;
25 mpls_main_t mpls_main;
27 u8 * format_mpls_unicast_label (u8 * s, va_list * args)
29 mpls_label_t label = va_arg (*args, mpls_label_t);
32 case MPLS_IETF_IPV4_EXPLICIT_NULL_LABEL:
33 s = format (s, "%s", MPLS_IETF_IPV4_EXPLICIT_NULL_STRING);
35 case MPLS_IETF_ROUTER_ALERT_LABEL:
36 s = format (s, "%s", MPLS_IETF_ROUTER_ALERT_STRING);
38 case MPLS_IETF_IPV6_EXPLICIT_NULL_LABEL:
39 s = format (s, "%s", MPLS_IETF_IPV6_EXPLICIT_NULL_STRING);
41 case MPLS_IETF_IMPLICIT_NULL_LABEL:
42 s = format (s, "%s", MPLS_IETF_IMPLICIT_NULL_STRING);
44 case MPLS_IETF_ELI_LABEL:
45 s = format (s, "%s", MPLS_IETF_ELI_STRING);
47 case MPLS_IETF_GAL_LABEL:
48 s = format (s, "%s", MPLS_IETF_GAL_STRING);
51 s = format (s, "%d", label);
57 uword unformat_mpls_unicast_label (unformat_input_t * input, va_list * args)
59 mpls_label_t *label = va_arg (*args, mpls_label_t*);
61 if (unformat (input, MPLS_IETF_IPV4_EXPLICIT_NULL_STRING))
62 *label = MPLS_IETF_IPV4_EXPLICIT_NULL_LABEL;
63 else if (unformat (input, MPLS_IETF_IPV6_EXPLICIT_NULL_STRING))
64 *label = MPLS_IETF_IPV6_EXPLICIT_NULL_LABEL;
65 else if (unformat (input, MPLS_IETF_ROUTER_ALERT_STRING))
66 *label = MPLS_IETF_ROUTER_ALERT_LABEL;
67 else if (unformat (input, MPLS_IETF_IMPLICIT_NULL_STRING))
68 *label = MPLS_IETF_IMPLICIT_NULL_LABEL;
69 else if (unformat (input, "%d", label))
75 u8 * format_mpls_eos_bit (u8 * s, va_list * args)
77 mpls_eos_bit_t eb = va_arg (*args, mpls_eos_bit_t);
79 ASSERT(eb <= MPLS_EOS);
81 s = format(s, "%s", mpls_eos_bit_names[eb]);
86 u8 * format_mpls_header (u8 * s, va_list * args)
88 mpls_unicast_header_t hdr = va_arg (*args, mpls_unicast_header_t);
90 return (format(s, "[%U:%d:%d:%U]",
91 format_mpls_unicast_label,
92 vnet_mpls_uc_get_label(hdr.label_exp_s_ttl),
93 vnet_mpls_uc_get_ttl(hdr.label_exp_s_ttl),
94 vnet_mpls_uc_get_exp(hdr.label_exp_s_ttl),
96 vnet_mpls_uc_get_s(hdr.label_exp_s_ttl)));
100 unformat_mpls_header (unformat_input_t * input, va_list * args)
102 u8 ** result = va_arg (*args, u8 **);
103 mpls_unicast_header_t _h, * h = &_h;
104 u32 label, label_exp_s_ttl;
106 if (! unformat (input, "MPLS %d", &label))
109 label_exp_s_ttl = (label<<12) | (1<<8) /* s-bit */ | 0xFF;
110 h->label_exp_s_ttl = clib_host_to_net_u32 (label_exp_s_ttl);
112 /* Add gre, mpls headers to result. */
115 u32 h_n_bytes = sizeof (h[0]);
117 vec_add2 (*result, p, h_n_bytes);
118 clib_memcpy (p, h, h_n_bytes);
125 unformat_mpls_label_net_byte_order (unformat_input_t * input,
128 u32 * result = va_arg (*args, u32 *);
131 if (!unformat (input, "MPLS: label %d", &label))
134 label = (label<<12) | (1<<8) /* s-bit set */ | 0xFF /* ttl */;
136 *result = clib_host_to_net_u32 (label);
140 u8 * format_mpls_unicast_header_host_byte_order (u8 * s, va_list * args)
142 mpls_unicast_header_t *h = va_arg(*args, mpls_unicast_header_t *);
143 u32 label = h->label_exp_s_ttl;
145 s = format (s, "label %d exp %d, s %d, ttl %d",
146 vnet_mpls_uc_get_label (label),
147 vnet_mpls_uc_get_exp (label),
148 vnet_mpls_uc_get_s (label),
149 vnet_mpls_uc_get_ttl (label));
153 u8 * format_mpls_unicast_header_net_byte_order (u8 * s, va_list * args)
155 mpls_unicast_header_t *h = va_arg(*args, mpls_unicast_header_t *);
156 mpls_unicast_header_t h_host;
158 h_host.label_exp_s_ttl = clib_net_to_host_u32 (h->label_exp_s_ttl);
160 return format (s, "%U", format_mpls_unicast_header_host_byte_order,
165 mpls_dest_cmp(void * a1, void * a2)
167 show_mpls_fib_t * r1 = a1;
168 show_mpls_fib_t * r2 = a2;
170 return clib_net_to_host_u32(r1->dest) - clib_net_to_host_u32(r2->dest);
174 mpls_fib_index_cmp(void * a1, void * a2)
176 show_mpls_fib_t * r1 = a1;
177 show_mpls_fib_t * r2 = a2;
179 return r1->fib_index - r2->fib_index;
183 mpls_label_cmp(void * a1, void * a2)
185 show_mpls_fib_t * r1 = a1;
186 show_mpls_fib_t * r2 = a2;
188 return r1->label - r2->label;
191 static clib_error_t *
192 vnet_mpls_local_label (vlib_main_t * vm,
193 unformat_input_t * input,
194 vlib_cli_command_t * cmd)
196 unformat_input_t _line_input, * line_input = &_line_input;
197 fib_route_path_t *rpaths = NULL, rpath;
198 u32 table_id, is_del, is_ip;
199 mpls_label_t local_label;
200 mpls_label_t out_label;
201 clib_error_t * error;
206 vnm = vnet_get_main();
212 local_label = MPLS_LABEL_INVALID;
213 memset(&pfx, 0, sizeof(pfx));
215 /* Get a line of input. */
216 if (! unformat_user (input, unformat_line_input, line_input))
219 while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT)
221 memset(&rpath, 0, sizeof(rpath));
223 if (unformat (line_input, "table %d", &table_id))
225 else if (unformat (line_input, "del"))
227 else if (unformat (line_input, "add"))
229 else if (unformat (line_input, "eos"))
230 pfx.fp_eos = MPLS_EOS;
231 else if (unformat (line_input, "non-eos"))
232 pfx.fp_eos = MPLS_NON_EOS;
233 else if (unformat (line_input, "%U/%d",
234 unformat_ip4_address,
238 pfx.fp_proto = FIB_PROTOCOL_IP4;
241 else if (unformat (line_input, "%U/%d",
242 unformat_ip6_address,
246 pfx.fp_proto = FIB_PROTOCOL_IP6;
249 else if (unformat (line_input, "via %U %U weight %u",
250 unformat_ip4_address,
252 unformat_vnet_sw_interface, vnm,
253 &rpath.frp_sw_if_index,
256 rpath.frp_proto = FIB_PROTOCOL_IP4;
257 vec_add1(rpaths, rpath);
260 else if (unformat (line_input, "via %U %U weight %u",
261 unformat_ip6_address,
263 unformat_vnet_sw_interface, vnm,
264 &rpath.frp_sw_if_index,
267 rpath.frp_proto = FIB_PROTOCOL_IP6;
268 vec_add1(rpaths, rpath);
271 else if (unformat (line_input, "via %U %U",
272 unformat_ip4_address,
274 unformat_vnet_sw_interface, vnm,
275 &rpath.frp_sw_if_index))
277 rpath.frp_weight = 1;
278 rpath.frp_proto = FIB_PROTOCOL_IP4;
279 vec_add1(rpaths, rpath);
282 else if (unformat (line_input, "via %U %U",
283 unformat_ip6_address,
285 unformat_vnet_sw_interface, vnm,
286 &rpath.frp_sw_if_index))
288 rpath.frp_weight = 1;
289 rpath.frp_proto = FIB_PROTOCOL_IP6;
290 vec_add1(rpaths, rpath);
292 else if (unformat (line_input, "via %U next-hop-table %d",
293 unformat_ip4_address,
295 &rpath.frp_fib_index))
297 rpath.frp_weight = 1;
298 rpath.frp_sw_if_index = ~0;
299 rpath.frp_proto = FIB_PROTOCOL_IP4;
300 vec_add1(rpaths, rpath);
302 else if (unformat (line_input, "via %U next-hop-table %d",
303 unformat_ip6_address,
305 &rpath.frp_fib_index))
307 rpath.frp_weight = 1;
308 rpath.frp_sw_if_index = ~0;
309 rpath.frp_proto = FIB_PROTOCOL_IP6;
310 vec_add1(rpaths, rpath);
312 else if (unformat (line_input, "via %U",
313 unformat_ip4_address,
314 &rpath.frp_addr.ip4))
317 * the recursive next-hops are by default in the same table
320 rpath.frp_fib_index = table_id;
321 rpath.frp_weight = 1;
322 rpath.frp_sw_if_index = ~0;
323 rpath.frp_proto = FIB_PROTOCOL_IP4;
324 vec_add1(rpaths, rpath);
326 else if (unformat (line_input, "via %U",
327 unformat_ip6_address,
328 &rpath.frp_addr.ip6))
330 rpath.frp_fib_index = table_id;
331 rpath.frp_weight = 1;
332 rpath.frp_sw_if_index = ~0;
333 rpath.frp_proto = FIB_PROTOCOL_IP6;
334 vec_add1(rpaths, rpath);
336 else if (unformat (line_input, "%d", &local_label))
338 else if (unformat (line_input,
339 "ip4-lookup-in-table %d",
340 &rpath.frp_fib_index))
342 rpath.frp_proto = FIB_PROTOCOL_IP4;
343 rpath.frp_sw_if_index = FIB_NODE_INDEX_INVALID;
344 pfx.fp_payload_proto = DPO_PROTO_IP4;
345 vec_add1(rpaths, rpath);
347 else if (unformat (line_input,
348 "ip6-lookup-in-table %d",
349 &rpath.frp_fib_index))
351 rpath.frp_proto = FIB_PROTOCOL_IP6;
352 rpath.frp_sw_if_index = FIB_NODE_INDEX_INVALID;
353 vec_add1(rpaths, rpath);
354 pfx.fp_payload_proto = DPO_PROTO_IP6;
356 else if (unformat (line_input,
357 "mpls-lookup-in-table %d",
358 &rpath.frp_fib_index))
360 rpath.frp_proto = FIB_PROTOCOL_MPLS;
361 rpath.frp_sw_if_index = FIB_NODE_INDEX_INVALID;
362 pfx.fp_payload_proto = DPO_PROTO_MPLS;
363 vec_add1(rpaths, rpath);
365 else if (unformat (line_input, "out-label %U",
366 unformat_mpls_unicast_label,
369 if (vec_len(rpaths) == 0)
371 error = clib_error_return(0 , "Paths then labels");
374 vec_add1(rpaths[vec_len(rpaths)-1].frp_label_stack, out_label);
378 error = clib_error_return (0, "unkown input: %U",
379 format_unformat_error, line_input);
385 if (MPLS_LABEL_INVALID == local_label)
387 error = clib_error_return (0, "local-label required: %U",
388 format_unformat_error, input);
395 u32 fib_index = fib_table_find(pfx.fp_proto, table_id);
397 if (FIB_NODE_INDEX_INVALID == fib_index)
399 error = clib_error_return (0, "%U table-id %d does not exist",
400 format_fib_protocol, pfx.fp_proto, table_id);
406 fib_table_entry_local_label_remove(fib_index, &pfx, local_label);
410 fib_table_entry_local_label_add(fib_index, &pfx, local_label);
415 fib_node_index_t lfe, fib_index;
420 error = clib_error_return(0 , "no paths");
424 pfx.fp_proto = FIB_PROTOCOL_MPLS;
426 pfx.fp_label = local_label;
427 pfx.fp_payload_proto = fib_proto_to_dpo(rpaths[0].frp_proto);
430 * the CLI parsing stored table Ids, swap to FIB indicies
432 if (FIB_NODE_INDEX_INVALID == rpath.frp_sw_if_index)
434 fi = fib_table_id_find_fib_index(dpo_proto_to_fib(pfx.fp_payload_proto),
435 rpaths[0].frp_fib_index);
439 error = clib_error_return(0 , "%U Via table %d does not exist",
440 format_dpo_proto, pfx.fp_payload_proto,
441 rpaths[0].frp_fib_index);
444 rpaths[0].frp_fib_index = fi;
447 fib_index = mpls_fib_index_from_table_id(table_id);
449 if (FIB_NODE_INDEX_INVALID == fib_index)
451 error = clib_error_return (0, "MPLS table-id %d does not exist",
456 lfe = fib_table_entry_path_add2(fib_index,
462 if (FIB_NODE_INDEX_INVALID == lfe)
464 error = clib_error_return (0, "Failed to create %U-%U in MPLS table-id %d",
465 format_mpls_unicast_label, local_label,
466 format_mpls_eos_bit, eos,
473 unformat_free (line_input);
478 VLIB_CLI_COMMAND (mpls_local_label_command, static) = {
479 .path = "mpls local-label",
480 .function = vnet_mpls_local_label,
481 .short_help = "Create/Delete MPL local labels",
485 mpls_fib_reset_labels (u32 fib_id)
491 static clib_error_t *
492 mpls_init (vlib_main_t * vm)
494 mpls_main_t * mm = &mpls_main;
495 clib_error_t * error;
498 mm->vnet_main = vnet_get_main();
500 if ((error = vlib_call_init_function (vm, ip_main_init)))
503 return vlib_call_init_function (vm, mpls_input_init);
506 VLIB_INIT_FUNCTION (mpls_init);
508 mpls_main_t * mpls_get_main (vlib_main_t * vm)
510 vlib_call_init_function (vm, mpls_init);