src/plugins/acl/acl.c

   1 /*
   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:
   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 #include <stddef.h>
  17
  18 #include <vnet/vnet.h>
  19 #include <vnet/plugin/plugin.h>
  20 #include <acl/acl.h>
  21
  22 #include <vnet/l2/l2_classify.h>
  23 #include <vnet/classify/in_out_acl.h>
  24 #include <vpp/app/version.h>
  25
  26 #include <vlibapi/api.h>
  27 #include <vlibmemory/api.h>
  28
  29 /* define message IDs */
  30 #include <acl/acl_msg_enum.h>
  31
  32 /* define message structures */
  33 #define vl_typedefs
  34 #include <acl/acl_all_api_h.h>
  35 #undef vl_typedefs
  36
  37 /* define generated endian-swappers */
  38 #define vl_endianfun
  39 #include <acl/acl_all_api_h.h>
  40 #undef vl_endianfun
  41
  42 /* instantiate all the print functions we know about */
  43 #define vl_print(handle, ...) vlib_cli_output (handle, __VA_ARGS__)
  44 #define vl_printfun
  45 #include <acl/acl_all_api_h.h>
  46 #undef vl_printfun
  47
  48 /* Get the API version number */
  49 #define vl_api_version(n,v) static u32 api_version=(v);
  50 #include <acl/acl_all_api_h.h>
  51 #undef vl_api_version
  52
  53 #include "fa_node.h"
  54 #include "public_inlines.h"
  55
  56 acl_main_t acl_main;
  57
  58 #define REPLY_MSG_ID_BASE am->msg_id_base
  59 #include <vlibapi/api_helper_macros.h>
  60
  61 /* List of message types that this plugin understands */
  62
  63 #define foreach_acl_plugin_api_msg              \
  64 _(ACL_PLUGIN_GET_VERSION, acl_plugin_get_version) \
  65 _(ACL_PLUGIN_CONTROL_PING, acl_plugin_control_ping) \
  66 _(ACL_ADD_REPLACE, acl_add_replace)                             \
  67 _(ACL_DEL, acl_del)                             \
  68 _(ACL_INTERFACE_ADD_DEL, acl_interface_add_del) \
  69 _(ACL_INTERFACE_SET_ACL_LIST, acl_interface_set_acl_list)       \
  70 _(ACL_DUMP, acl_dump)  \
  71 _(ACL_INTERFACE_LIST_DUMP, acl_interface_list_dump) \
  72 _(MACIP_ACL_ADD, macip_acl_add) \
  73 _(MACIP_ACL_ADD_REPLACE, macip_acl_add_replace) \
  74 _(MACIP_ACL_DEL, macip_acl_del) \
  75 _(MACIP_ACL_INTERFACE_ADD_DEL, macip_acl_interface_add_del) \
  76 _(MACIP_ACL_DUMP, macip_acl_dump) \
  77 _(MACIP_ACL_INTERFACE_GET, macip_acl_interface_get) \
  78 _(MACIP_ACL_INTERFACE_LIST_DUMP, macip_acl_interface_list_dump) \
  79 _(ACL_INTERFACE_SET_ETYPE_WHITELIST, acl_interface_set_etype_whitelist) \
  80 _(ACL_INTERFACE_ETYPE_WHITELIST_DUMP, acl_interface_etype_whitelist_dump)
  81
  82
  83 /* *INDENT-OFF* */
  84 VLIB_PLUGIN_REGISTER () = {
  85     .version = VPP_BUILD_VER,
  86     .description = "Access Control Lists",
  87 };
  88 /* *INDENT-ON* */
  89
  90 /* Format vec16. */
  91 u8 *
  92 format_vec16 (u8 * s, va_list * va)
  93 {
  94   u16 *v = va_arg (*va, u16 *);
  95   char *fmt = va_arg (*va, char *);
  96   uword i;
  97   for (i = 0; i < vec_len (v); i++)
  98     {
  99       if (i > 0)
 100         s = format (s, ", ");
 101       s = format (s, fmt, v[i]);
 102     }
 103   return s;
 104 }
 105
 106
 107
 108 u8
 109 acl_plugin_acl_exists (u32 acl_index)
 110 {
 111   acl_main_t *am = &acl_main;
 112
 113   if (pool_is_free_index (am->acls, acl_index))
 114     return 0;
 115
 116   return 1;
 117 }
 118
 119 static void *
 120 acl_set_heap (acl_main_t * am)
 121 {
 122   if (0 == am->acl_mheap)
 123     {
 124       am->acl_mheap = mheap_alloc (0 /* use VM */ , am->acl_mheap_size);
 125       mheap_t *h = mheap_header (am->acl_mheap);
 126       h->flags |= MHEAP_FLAG_THREAD_SAFE;
 127     }
 128   void *oldheap = clib_mem_set_heap (am->acl_mheap);
 129   return oldheap;
 130 }
 131
 132 void *
 133 acl_plugin_set_heap ()
 134 {
 135   acl_main_t *am = &acl_main;
 136   return acl_set_heap (am);
 137 }
 138
 139 void
 140 acl_plugin_acl_set_validate_heap (acl_main_t * am, int on)
 141 {
 142   clib_mem_set_heap (acl_set_heap (am));
 143   mheap_t *h = mheap_header (am->acl_mheap);
 144   if (on)
 145     {
 146       h->flags |= MHEAP_FLAG_VALIDATE;
 147       h->flags &= ~MHEAP_FLAG_SMALL_OBJECT_CACHE;
 148       mheap_validate (h);
 149     }
 150   else
 151     {
 152       h->flags &= ~MHEAP_FLAG_VALIDATE;
 153       h->flags |= MHEAP_FLAG_SMALL_OBJECT_CACHE;
 154     }
 155 }
 156
 157 void
 158 acl_plugin_acl_set_trace_heap (acl_main_t * am, int on)
 159 {
 160   clib_mem_set_heap (acl_set_heap (am));
 161   mheap_t *h = mheap_header (am->acl_mheap);
 162   if (on)
 163     {
 164       h->flags |= MHEAP_FLAG_TRACE;
 165     }
 166   else
 167     {
 168       h->flags &= ~MHEAP_FLAG_TRACE;
 169     }
 170 }
 171
 172 static void
 173 vl_api_acl_plugin_get_version_t_handler (vl_api_acl_plugin_get_version_t * mp)
 174 {
 175   acl_main_t *am = &acl_main;
 176   vl_api_acl_plugin_get_version_reply_t *rmp;
 177   int msg_size = sizeof (*rmp);
 178   vl_api_registration_t *reg;
 179
 180   reg = vl_api_client_index_to_registration (mp->client_index);
 181   if (!reg)
 182     return;
 183
 184   rmp = vl_msg_api_alloc (msg_size);
 185   memset (rmp, 0, msg_size);
 186   rmp->_vl_msg_id =
 187     ntohs (VL_API_ACL_PLUGIN_GET_VERSION_REPLY + am->msg_id_base);
 188   rmp->context = mp->context;
 189   rmp->major = htonl (ACL_PLUGIN_VERSION_MAJOR);
 190   rmp->minor = htonl (ACL_PLUGIN_VERSION_MINOR);
 191
 192   vl_api_send_msg (reg, (u8 *) rmp);
 193 }
 194
 195 static void
 196 vl_api_acl_plugin_control_ping_t_handler (vl_api_acl_plugin_control_ping_t *
 197                                           mp)
 198 {
 199   vl_api_acl_plugin_control_ping_reply_t *rmp;
 200   acl_main_t *am = &acl_main;
 201   int rv = 0;
 202
 203   /* *INDENT-OFF* */
 204   REPLY_MACRO2 (VL_API_ACL_PLUGIN_CONTROL_PING_REPLY,
 205   ({
 206     rmp->vpe_pid = ntohl (getpid ());
 207   }));
 208   /* *INDENT-ON* */
 209 }
 210
 211 static void
 212 print_clib_warning_and_reset (vlib_main_t * vm, u8 * out0)
 213 {
 214   clib_warning ("%v", out0);
 215   vec_reset_length (out0);
 216 }
 217
 218 static void
 219 print_cli_and_reset (vlib_main_t * vm, u8 * out0)
 220 {
 221   vlib_cli_output (vm, "%v", out0);
 222   vec_reset_length (out0);
 223 }
 224
 225 typedef void (*acl_vector_print_func_t) (vlib_main_t * vm, u8 * out0);
 226
 227 static void
 228 acl_print_acl_x (acl_vector_print_func_t vpr, vlib_main_t * vm,
 229                  acl_main_t * am, int acl_index)
 230 {
 231   acl_rule_t *r;
 232   u8 *out0 = format (0, "acl-index %u count %u tag {%s}\n", acl_index,
 233                      am->acls[acl_index].count, am->acls[acl_index].tag);
 234   int j;
 235   vpr (vm, out0);
 236   for (j = 0; j < am->acls[acl_index].count; j++)
 237     {
 238       r = &am->acls[acl_index].rules[j];
 239       out0 = format (out0, "  %4d: %s ", j, r->is_ipv6 ? "ipv6" : "ipv4");
 240       out0 = format_acl_action (out0, r->is_permit);
 241       out0 = format (out0, " src %U/%d", format_ip46_address, &r->src,
 242                      r->is_ipv6 ? IP46_TYPE_IP6 : IP46_TYPE_IP4,
 243                      r->src_prefixlen);
 244       out0 =
 245         format (out0, " dst %U/%d", format_ip46_address, &r->dst,
 246                 r->is_ipv6 ? IP46_TYPE_IP6 : IP46_TYPE_IP4, r->dst_prefixlen);
 247       out0 = format (out0, " proto %d", r->proto);
 248       out0 = format (out0, " sport %d", r->src_port_or_type_first);
 249       if (r->src_port_or_type_first != r->src_port_or_type_last)
 250         {
 251           out0 = format (out0, "-%d", r->src_port_or_type_last);
 252         }
 253       out0 = format (out0, " dport %d", r->dst_port_or_code_first);
 254       if (r->dst_port_or_code_first != r->dst_port_or_code_last)
 255         {
 256           out0 = format (out0, "-%d", r->dst_port_or_code_last);
 257         }
 258       if (r->tcp_flags_mask || r->tcp_flags_value)
 259         {
 260           out0 =
 261             format (out0, " tcpflags %d mask %d", r->tcp_flags_value,
 262                     r->tcp_flags_mask);
 263         }
 264       out0 = format (out0, "\n");
 265       vpr (vm, out0);
 266     }
 267 }
 268
 269 static void
 270 acl_print_acl (vlib_main_t * vm, acl_main_t * am, int acl_index)
 271 {
 272   acl_print_acl_x (print_cli_and_reset, vm, am, acl_index);
 273 }
 274
 275 static void
 276 warning_acl_print_acl (vlib_main_t * vm, acl_main_t * am, int acl_index)
 277 {
 278   acl_print_acl_x (print_clib_warning_and_reset, vm, am, acl_index);
 279 }
 280
 281
 282 static int
 283 acl_add_list (u32 count, vl_api_acl_rule_t rules[],
 284               u32 * acl_list_index, u8 * tag)
 285 {
 286   acl_main_t *am = &acl_main;
 287   acl_list_t *a;
 288   acl_rule_t *r;
 289   acl_rule_t *acl_new_rules = 0;
 290   int i;
 291
 292   if (am->trace_acl > 255)
 293     clib_warning ("API dbg: acl_add_list index %d tag %s", *acl_list_index,
 294                   tag);
 295
 296   if (*acl_list_index != ~0)
 297     {
 298       /* They supplied some number, let's see if this ACL exists */
 299       if (pool_is_free_index (am->acls, *acl_list_index))
 300         {
 301           /* tried to replace a non-existent ACL, no point doing anything */
 302           clib_warning
 303             ("acl-plugin-error: Trying to replace nonexistent ACL %d (tag %s)",
 304              *acl_list_index, tag);
 305           return VNET_API_ERROR_NO_SUCH_ENTRY;
 306         }
 307     }
 308   if (0 == count)
 309     {
 310       clib_warning
 311         ("acl-plugin-warning: supplied no rules for ACL %d (tag %s)",
 312          *acl_list_index, tag);
 313     }
 314
 315   void *oldheap = acl_set_heap (am);
 316
 317   /* Create and populate the rules */
 318   if (count > 0)
 319     vec_validate (acl_new_rules, count - 1);
 320
 321   for (i = 0; i < count; i++)
 322     {
 323       r = vec_elt_at_index (acl_new_rules, i);
 324       memset (r, 0, sizeof (*r));
 325       r->is_permit = rules[i].is_permit;
 326       r->is_ipv6 = rules[i].is_ipv6;
 327       if (r->is_ipv6)
 328         {
 329           memcpy (&r->src, rules[i].src_ip_addr, sizeof (r->src));
 330           memcpy (&r->dst, rules[i].dst_ip_addr, sizeof (r->dst));
 331         }
 332       else
 333         {
 334           memcpy (&r->src.ip4, rules[i].src_ip_addr, sizeof (r->src.ip4));
 335           memcpy (&r->dst.ip4, rules[i].dst_ip_addr, sizeof (r->dst.ip4));
 336         }
 337       r->src_prefixlen = rules[i].src_ip_prefix_len;
 338       r->dst_prefixlen = rules[i].dst_ip_prefix_len;
 339       r->proto = rules[i].proto;
 340       r->src_port_or_type_first = ntohs (rules[i].srcport_or_icmptype_first);
 341       r->src_port_or_type_last = ntohs (rules[i].srcport_or_icmptype_last);
 342       r->dst_port_or_code_first = ntohs (rules[i].dstport_or_icmpcode_first);
 343       r->dst_port_or_code_last = ntohs (rules[i].dstport_or_icmpcode_last);
 344       r->tcp_flags_value = rules[i].tcp_flags_value;
 345       r->tcp_flags_mask = rules[i].tcp_flags_mask;
 346     }
 347
 348   if (~0 == *acl_list_index)
 349     {
 350       /* Get ACL index */
 351       pool_get_aligned (am->acls, a, CLIB_CACHE_LINE_BYTES);
 352       memset (a, 0, sizeof (*a));
 353       /* Will return the newly allocated ACL index */
 354       *acl_list_index = a - am->acls;
 355     }
 356   else
 357     {
 358       a = am->acls + *acl_list_index;
 359       /* Get rid of the old rules */
 360       if (a->rules)
 361         vec_free (a->rules);
 362     }
 363   a->rules = acl_new_rules;
 364   a->count = count;
 365   memcpy (a->tag, tag, sizeof (a->tag));
 366   if (am->trace_acl > 255)
 367     warning_acl_print_acl (am->vlib_main, am, *acl_list_index);
 368   /* notify the lookup contexts about the ACL changes */
 369   acl_plugin_lookup_context_notify_acl_change (*acl_list_index);
 370   clib_mem_set_heap (oldheap);
 371   return 0;
 372 }
 373
 374 static int
 375 acl_is_used_by (u32 acl_index, u32 ** foo_index_vec_by_acl)
 376 {
 377   if (acl_index < vec_len (foo_index_vec_by_acl))
 378     {
 379       if (vec_len (vec_elt (foo_index_vec_by_acl, acl_index)) > 0)
 380         {
 381           /* ACL is applied somewhere. */
 382           return 1;
 383         }
 384     }
 385   return 0;
 386 }
 387
 388 static int
 389 acl_del_list (u32 acl_list_index)
 390 {
 391   acl_main_t *am = &acl_main;
 392   acl_list_t *a;
 393   if (pool_is_free_index (am->acls, acl_list_index))
 394     {
 395       return VNET_API_ERROR_NO_SUCH_ENTRY;
 396     }
 397   if (acl_is_used_by (acl_list_index, am->input_sw_if_index_vec_by_acl))
 398     return VNET_API_ERROR_ACL_IN_USE_INBOUND;
 399   if (acl_is_used_by (acl_list_index, am->output_sw_if_index_vec_by_acl))
 400     return VNET_API_ERROR_ACL_IN_USE_OUTBOUND;
 401   /* lookup contexts cover other cases, not just inbound/oubound, so check that */
 402   if (acl_is_used_by (acl_list_index, am->lc_index_vec_by_acl))
 403     return VNET_API_ERROR_ACL_IN_USE_BY_LOOKUP_CONTEXT;
 404
 405   void *oldheap = acl_set_heap (am);
 406
 407   /* now we can delete the ACL itself */
 408   a = pool_elt_at_index (am->acls, acl_list_index);
 409   if (a->rules)
 410     vec_free (a->rules);
 411   pool_put (am->acls, a);
 412   /* acl_list_index is now free, notify the lookup contexts */
 413   acl_plugin_lookup_context_notify_acl_change (acl_list_index);
 414   clib_mem_set_heap (oldheap);
 415   return 0;
 416 }
 417
 418 /* Some aids in ASCII graphing the content */
 419 #define XX "\377"
 420 #define __ "\000"
 421 #define _(x)
 422 #define v
 423 /* *INDENT-OFF* */
 424
 425 u8 ip4_5tuple_mask[] =
 426   _("             dmac               smac            etype ")
 427   _(ether) __ __ __ __ __ __ v __ __ __ __ __ __ v __ __ v
 428   _("        v ihl totlen   ")
 429   _(0x0000)
 430   __ __ __ __
 431   _("        ident fl+fo    ")
 432   _(0x0004)
 433   __ __ __ __
 434   _("       ttl pr checksum ")
 435   _(0x0008)
 436   __ XX __ __
 437   _("        src address    ")
 438   _(0x000C)
 439   XX XX XX XX
 440   _("        dst address    ")
 441   _(0x0010)
 442   XX XX XX XX
 443   _("L4 T/U  sport dport    ")
 444   _(tcpudp)
 445   XX XX XX XX
 446   _(padpad)
 447   __ __ __ __
 448   _(padpad)
 449   __ __ __ __
 450   _(padeth)
 451   __ __;
 452
 453  u8 ip6_5tuple_mask[] =
 454   _("             dmac               smac            etype ")
 455   _(ether) __ __ __ __ __ __ v __ __ __ __ __ __ v __ __ v
 456   _("        v  tc + flow ")
 457   _(0x0000) __ __ __ __
 458   _("        plen  nh hl  ")
 459   _(0x0004) __ __ XX __
 460   _("        src address  ")
 461   _(0x0008) XX XX XX XX
 462   _(0x000C) XX XX XX XX
 463   _(0x0010) XX XX XX XX
 464   _(0x0014) XX XX XX XX
 465   _("        dst address  ")
 466   _(0x0018) XX XX XX XX
 467   _(0x001C) XX XX XX XX
 468   _(0x0020) XX XX XX XX
 469   _(0x0024) XX XX XX XX
 470   _("L4T/U  sport dport   ")
 471   _(tcpudp) XX XX XX XX _(padpad) __ __ __ __ _(padeth) __ __;
 472
 473  u8 dot1q_5tuple_mask[] =
 474    _("             dmac               smac          dot1q         etype ")
 475    _(ether) __ __ __ __ __ __ v __ __ __ __ __ __ v XX XX __ __ v XX XX v
 476    _(padpad) __ __ __ __
 477    _(padpad) __ __ __ __
 478    _(padpad) __ __ __ __
 479    _(padeth) __ __;
 480
 481  u8 dot1ad_5tuple_mask[] =
 482    _("             dmac               smac          dot1ad      dot1q         etype ")
 483    _(ether) __ __ __ __ __ __ v __ __ __ __ __ __ v XX XX __ __ XX XX __ __ v XX XX v
 484    _(padpad) __ __ __ __
 485    _(padpad) __ __ __ __
 486    _(padeth) __ __;
 487
 488  u8 ethertype_mask[] =
 489    _("             dmac               smac          etype ")
 490    _(ether) __ __ __ __ __ __ v __ __ __ __ __ __ v XX XX __ __;
 491
 492 /* *INDENT-ON* */
 493 #undef XX
 494 #undef __
 495 #undef _
 496 #undef v
 497
 498 static int
 499 count_skip (u8 * p, u32 size)
 500 {
 501   u64 *p64 = (u64 *) p;
 502   /* Be tolerant to null pointer */
 503   if (0 == p)
 504     return 0;
 505
 506   while ((0ULL == *p64) && ((u8 *) p64 - p) < size)
 507     {
 508       p64++;
 509     }
 510   return (p64 - (u64 *) p) / 2;
 511 }
 512
 513 static int
 514 acl_classify_add_del_table_tiny (vnet_classify_main_t * cm, u8 * mask,
 515                                  u32 mask_len, u32 next_table_index,
 516                                  u32 miss_next_index, u32 * table_index,
 517                                  int is_add)
 518 {
 519   u32 nbuckets = 1;
 520   u32 memory_size = 2 << 13;
 521   u32 skip = count_skip (mask, mask_len);
 522   u32 match = (mask_len / 16) - skip;
 523   u8 *skip_mask_ptr = mask + 16 * skip;
 524   u32 current_data_flag = 0;
 525   int current_data_offset = 0;
 526
 527   if (0 == match)
 528     match = 1;
 529   void *oldheap = clib_mem_set_heap (cm->vlib_main->heap_base);
 530   int ret = vnet_classify_add_del_table (cm, skip_mask_ptr, nbuckets,
 531                                          memory_size, skip, match,
 532                                          next_table_index, miss_next_index,
 533                                          table_index, current_data_flag,
 534                                          current_data_offset, is_add,
 535                                          1 /* delete_chain */ );
 536   clib_mem_set_heap (oldheap);
 537   return ret;
 538 }
 539
 540 static int
 541 acl_classify_add_del_table_small (vnet_classify_main_t * cm, u8 * mask,
 542                                   u32 mask_len, u32 next_table_index,
 543                                   u32 miss_next_index, u32 * table_index,
 544                                   int is_add)
 545 {
 546   u32 nbuckets = 32;
 547   u32 memory_size = 2 << 22;
 548   u32 skip = count_skip (mask, mask_len);
 549   u32 match = (mask_len / 16) - skip;
 550   u8 *skip_mask_ptr = mask + 16 * skip;
 551   u32 current_data_flag = 0;
 552   int current_data_offset = 0;
 553
 554   if (0 == match)
 555     match = 1;
 556
 557   void *oldheap = clib_mem_set_heap (cm->vlib_main->heap_base);
 558   int ret = vnet_classify_add_del_table (cm, skip_mask_ptr, nbuckets,
 559                                          memory_size, skip, match,
 560                                          next_table_index, miss_next_index,
 561                                          table_index, current_data_flag,
 562                                          current_data_offset, is_add,
 563                                          1 /* delete_chain */ );
 564   clib_mem_set_heap (oldheap);
 565   return ret;
 566 }
 567
 568 static int
 569 acl_unhook_l2_input_classify (acl_main_t * am, u32 sw_if_index)
 570 {
 571   vnet_classify_main_t *cm = &vnet_classify_main;
 572   u32 ip4_table_index = ~0;
 573   u32 ip6_table_index = ~0;
 574   u32 dot1q_table_index = ~0;
 575   u32 dot1ad_table_index = ~0;
 576   u32 etype_table_index = ~0;
 577   void *oldheap = acl_set_heap (am);
 578
 579   vec_validate_init_empty (am->acl_ip4_input_classify_table_by_sw_if_index,
 580                            sw_if_index, ~0);
 581   vec_validate_init_empty (am->acl_ip6_input_classify_table_by_sw_if_index,
 582                            sw_if_index, ~0);
 583   vec_validate_init_empty (am->acl_dot1q_input_classify_table_by_sw_if_index,
 584                            sw_if_index, ~0);
 585   vec_validate_init_empty (am->acl_dot1ad_input_classify_table_by_sw_if_index,
 586                            sw_if_index, ~0);
 587   vec_validate_init_empty (am->acl_etype_input_classify_table_by_sw_if_index,
 588                            sw_if_index, ~0);
 589
 590   /* switch to global heap while calling vnet_* functions */
 591   clib_mem_set_heap (cm->vlib_main->heap_base);
 592   vnet_l2_input_classify_enable_disable (sw_if_index, 0);
 593
 594   if (am->acl_ip4_input_classify_table_by_sw_if_index[sw_if_index] != ~0)
 595     {
 596       ip4_table_index =
 597         am->acl_ip4_input_classify_table_by_sw_if_index[sw_if_index];
 598       am->acl_ip4_input_classify_table_by_sw_if_index[sw_if_index] = ~0;
 599       acl_classify_add_del_table_tiny (cm, ip4_5tuple_mask,
 600                                        sizeof (ip4_5tuple_mask) - 1, ~0,
 601                                        am->l2_input_classify_next_acl_ip4,
 602                                        &ip4_table_index, 0);
 603     }
 604   if (am->acl_ip6_input_classify_table_by_sw_if_index[sw_if_index] != ~0)
 605     {
 606       ip6_table_index =
 607         am->acl_ip6_input_classify_table_by_sw_if_index[sw_if_index];
 608       am->acl_ip6_input_classify_table_by_sw_if_index[sw_if_index] = ~0;
 609       acl_classify_add_del_table_tiny (cm, ip6_5tuple_mask,
 610                                        sizeof (ip6_5tuple_mask) - 1, ~0,
 611                                        am->l2_input_classify_next_acl_ip6,
 612                                        &ip6_table_index, 0);
 613     }
 614   if (am->acl_dot1q_input_classify_table_by_sw_if_index[sw_if_index] != ~0)
 615     {
 616       dot1q_table_index =
 617         am->acl_dot1q_input_classify_table_by_sw_if_index[sw_if_index];
 618       am->acl_dot1q_input_classify_table_by_sw_if_index[sw_if_index] = ~0;
 619       acl_classify_add_del_table_tiny (cm, ip6_5tuple_mask,
 620                                        sizeof (ip6_5tuple_mask) - 1, ~0,
 621                                        ~0, &dot1q_table_index, 0);
 622     }
 623   if (am->acl_dot1ad_input_classify_table_by_sw_if_index[sw_if_index] != ~0)
 624     {
 625       dot1ad_table_index =
 626         am->acl_dot1ad_input_classify_table_by_sw_if_index[sw_if_index];
 627       am->acl_dot1ad_input_classify_table_by_sw_if_index[sw_if_index] = ~0;
 628       acl_classify_add_del_table_tiny (cm, dot1ad_5tuple_mask,
 629                                        sizeof (dot1ad_5tuple_mask) - 1, ~0,
 630                                        ~0, &dot1ad_table_index, 0);
 631     }
 632   if (am->acl_etype_input_classify_table_by_sw_if_index[sw_if_index] != ~0)
 633     {
 634       etype_table_index =
 635         am->acl_etype_input_classify_table_by_sw_if_index[sw_if_index];
 636       am->acl_etype_input_classify_table_by_sw_if_index[sw_if_index] = ~0;
 637       acl_classify_add_del_table_tiny (cm, ethertype_mask,
 638                                        sizeof (ethertype_mask) - 1, ~0,
 639                                        ~0, &etype_table_index, 0);
 640     }
 641   clib_mem_set_heap (oldheap);
 642   return 0;
 643 }
 644
 645 static int
 646 acl_unhook_l2_output_classify (acl_main_t * am, u32 sw_if_index)
 647 {
 648   vnet_classify_main_t *cm = &vnet_classify_main;
 649   u32 ip4_table_index = ~0;
 650   u32 ip6_table_index = ~0;
 651   u32 dot1q_table_index = ~0;
 652   u32 dot1ad_table_index = ~0;
 653   u32 etype_table_index = ~0;
 654   void *oldheap = acl_set_heap (am);
 655
 656   vec_validate_init_empty (am->acl_ip4_output_classify_table_by_sw_if_index,
 657                            sw_if_index, ~0);
 658   vec_validate_init_empty (am->acl_ip6_output_classify_table_by_sw_if_index,
 659                            sw_if_index, ~0);
 660   vec_validate_init_empty (am->acl_dot1q_output_classify_table_by_sw_if_index,
 661                            sw_if_index, ~0);
 662   vec_validate_init_empty
 663     (am->acl_dot1ad_output_classify_table_by_sw_if_index, sw_if_index, ~0);
 664   vec_validate_init_empty (am->acl_etype_output_classify_table_by_sw_if_index,
 665                            sw_if_index, ~0);
 666
 667   /* switch to global heap while calling vnet_* functions */
 668   clib_mem_set_heap (cm->vlib_main->heap_base);
 669
 670   vnet_l2_output_classify_enable_disable (sw_if_index, 0);
 671
 672   if (am->acl_ip4_output_classify_table_by_sw_if_index[sw_if_index] != ~0)
 673     {
 674       ip4_table_index =
 675         am->acl_ip4_output_classify_table_by_sw_if_index[sw_if_index];
 676       am->acl_ip4_output_classify_table_by_sw_if_index[sw_if_index] = ~0;
 677       acl_classify_add_del_table_tiny (cm, ip4_5tuple_mask,
 678                                        sizeof (ip4_5tuple_mask) - 1, ~0,
 679                                        am->l2_output_classify_next_acl_ip4,
 680                                        &ip4_table_index, 0);
 681     }
 682   if (am->acl_ip6_output_classify_table_by_sw_if_index[sw_if_index] != ~0)
 683     {
 684       ip6_table_index =
 685         am->acl_ip6_output_classify_table_by_sw_if_index[sw_if_index];
 686       am->acl_ip6_output_classify_table_by_sw_if_index[sw_if_index] = ~0;
 687       acl_classify_add_del_table_tiny (cm, ip6_5tuple_mask,
 688                                        sizeof (ip6_5tuple_mask) - 1, ~0,
 689                                        am->l2_output_classify_next_acl_ip6,
 690                                        &ip6_table_index, 0);
 691     }
 692   if (am->acl_dot1q_output_classify_table_by_sw_if_index[sw_if_index] != ~0)
 693     {
 694       dot1q_table_index =
 695         am->acl_dot1q_output_classify_table_by_sw_if_index[sw_if_index];
 696       am->acl_dot1q_output_classify_table_by_sw_if_index[sw_if_index] = ~0;
 697       acl_classify_add_del_table_tiny (cm, ip6_5tuple_mask,
 698                                        sizeof (ip6_5tuple_mask) - 1, ~0,
 699                                        ~0, &dot1q_table_index, 0);
 700     }
 701   if (am->acl_dot1ad_output_classify_table_by_sw_if_index[sw_if_index] != ~0)
 702     {
 703       dot1ad_table_index =
 704         am->acl_dot1ad_output_classify_table_by_sw_if_index[sw_if_index];
 705       am->acl_dot1ad_output_classify_table_by_sw_if_index[sw_if_index] = ~0;
 706       acl_classify_add_del_table_tiny (cm, dot1ad_5tuple_mask,
 707                                        sizeof (dot1ad_5tuple_mask) - 1, ~0,
 708                                        ~0, &dot1ad_table_index, 0);
 709     }
 710   if (am->acl_etype_output_classify_table_by_sw_if_index[sw_if_index] != ~0)
 711     {
 712       etype_table_index =
 713         am->acl_etype_output_classify_table_by_sw_if_index[sw_if_index];
 714       am->acl_etype_output_classify_table_by_sw_if_index[sw_if_index] = ~0;
 715       acl_classify_add_del_table_tiny (cm, ethertype_mask,
 716                                        sizeof (ethertype_mask) - 1, ~0,
 717                                        ~0, &etype_table_index, 0);
 718     }
 719   clib_mem_set_heap (oldheap);
 720   return 0;
 721 }
 722
 723 static void
 724 acl_add_vlan_session (acl_main_t * am, u32 table_index, u8 is_output,
 725                       u8 is_dot1ad, u8 is_ip6)
 726 {
 727   vnet_classify_main_t *cm = &vnet_classify_main;
 728   u8 *match;
 729   u32 next_acl;
 730   u8 idx;
 731   u8 session_idx;
 732
 733   if (is_ip6)
 734     {
 735       next_acl =
 736         (is_output) ? am->
 737         l2_output_classify_next_acl_ip6 : am->l2_input_classify_next_acl_ip6;
 738     }
 739   else
 740     {
 741       next_acl =
 742         (is_output) ? am->
 743         l2_output_classify_next_acl_ip4 : am->l2_input_classify_next_acl_ip4;
 744     }
 745   match = (is_dot1ad) ? dot1ad_5tuple_mask : dot1q_5tuple_mask;
 746   idx = (is_dot1ad) ? 20 : 16;
 747   if (is_dot1ad)
 748     {
 749       /* 802.1ad ethertype */
 750       match[12] = 0x88;
 751       match[13] = 0xa8;
 752       /* 802.1q ethertype */
 753       match[16] = 0x81;
 754       match[17] = 0x00;
 755     }
 756   else
 757     {
 758       /* 802.1q ethertype */
 759       match[12] = 0x81;
 760       match[13] = 0x00;
 761     }
 762
 763   /* add sessions to vlan tables per ethernet_type */
 764   if (is_ip6)
 765     {
 766       match[idx] = 0x86;
 767       match[idx + 1] = 0xdd;
 768       session_idx = 1;
 769     }
 770   else
 771     {
 772       match[idx] = 0x08;
 773       match[idx + 1] = 0x00;
 774       session_idx = 0;
 775     }
 776   vnet_classify_add_del_session (cm, table_index, match, next_acl,
 777                                  session_idx, 0, 0, 0, 1);
 778   /* reset the mask back to being a mask */
 779   match[idx] = 0xff;
 780   match[idx + 1] = 0xff;
 781   match[12] = 0xff;
 782   match[13] = 0xff;
 783   if (is_dot1ad)
 784     {
 785       match[16] = 0xff;
 786       match[17] = 0xff;
 787     }
 788 }
 789
 790 static int
 791 intf_has_etype_whitelist (acl_main_t * am, u32 sw_if_index, int is_input)
 792 {
 793   u16 **v = is_input
 794     ? am->input_etype_whitelist_by_sw_if_index
 795     : am->output_etype_whitelist_by_sw_if_index;
 796   return ((vec_len (v) > sw_if_index) && vec_elt (v, sw_if_index));
 797 }
 798
 799 static int
 800 etype_whitelist_add_sessions (acl_main_t * am, u32 sw_if_index, int is_input,
 801                               u32 etype_table_index)
 802 {
 803   vnet_classify_main_t *cm = &vnet_classify_main;
 804   u16 **v = is_input
 805     ? am->input_etype_whitelist_by_sw_if_index
 806     : am->output_etype_whitelist_by_sw_if_index;
 807   u8 *match = ethertype_mask;
 808
 809   int i;
 810   int rv = 0;
 811   u16 *whitelist = vec_elt (v, sw_if_index);
 812   u32 next = ~0;                /* permit */
 813   for (i = 0; i < vec_len (whitelist); i++)
 814     {
 815       /* big-endian */
 816       match[12] = (whitelist[i] >> 8) & 0xff;
 817       match[13] = whitelist[i] & 0xff;
 818       rv = rv
 819         || vnet_classify_add_del_session (cm, etype_table_index, match, next,
 820                                           whitelist[i], 0, 0, 0, 1);
 821     }
 822
 823   /* restore the mask */
 824   match[12] = 0xff;
 825   match[13] = 0xff;
 826   return rv;
 827 }
 828
 829 static int
 830 acl_hook_l2_input_classify (acl_main_t * am, u32 sw_if_index)
 831 {
 832   vnet_classify_main_t *cm = &vnet_classify_main;
 833   u32 ip4_table_index = ~0;
 834   u32 ip6_table_index = ~0;
 835   u32 dot1q_table_index = ~0;
 836   u32 dot1ad_table_index = ~0;
 837   u32 etype_table_index = ~0;
 838   int rv;
 839
 840   void *prevheap = clib_mem_set_heap (cm->vlib_main->heap_base);
 841
 842   /* in case there were previous tables attached */
 843   acl_unhook_l2_input_classify (am, sw_if_index);
 844   rv =
 845     acl_classify_add_del_table_tiny (cm, ip4_5tuple_mask,
 846                                      sizeof (ip4_5tuple_mask) - 1, ~0,
 847                                      am->l2_input_classify_next_acl_ip4,
 848                                      &ip4_table_index, 1);
 849   if (rv)
 850     goto done;
 851
 852   rv =
 853     acl_classify_add_del_table_tiny (cm, ip6_5tuple_mask,
 854                                      sizeof (ip6_5tuple_mask) - 1, ~0,
 855                                      am->l2_input_classify_next_acl_ip6,
 856                                      &ip6_table_index, 1);
 857   if (rv)
 858     {
 859       acl_classify_add_del_table_tiny (cm, ip4_5tuple_mask,
 860                                        sizeof (ip4_5tuple_mask) - 1, ~0,
 861                                        am->l2_input_classify_next_acl_ip4,
 862                                        &ip4_table_index, 0);
 863       goto done;
 864     }
 865
 866   if (intf_has_etype_whitelist (am, sw_if_index, 1))
 867     {
 868       acl_classify_add_del_table_tiny (cm, ethertype_mask, sizeof (ethertype_mask) - 1, ~0, 0,  /* drop if no match */
 869                                        &etype_table_index, 1);
 870       etype_whitelist_add_sessions (am, sw_if_index, 1, etype_table_index);
 871     }
 872
 873   rv =
 874     acl_classify_add_del_table_tiny (cm, dot1ad_5tuple_mask,
 875                                      sizeof (dot1ad_5tuple_mask) - 1,
 876                                      etype_table_index, ~0,
 877                                      &dot1ad_table_index, 1);
 878   rv =
 879     acl_classify_add_del_table_tiny (cm, dot1q_5tuple_mask,
 880                                      sizeof (dot1q_5tuple_mask) - 1,
 881                                      dot1ad_table_index, ~0,
 882                                      &dot1q_table_index, 1);
 883   if (rv)
 884     {
 885       acl_classify_add_del_table_tiny (cm, dot1ad_5tuple_mask,
 886                                        sizeof (dot1ad_5tuple_mask) - 1, ~0,
 887                                        ~0, &dot1ad_table_index, 0);
 888       acl_classify_add_del_table_tiny (cm, ip6_5tuple_mask,
 889                                        sizeof (ip6_5tuple_mask) - 1, ~0,
 890                                        am->l2_input_classify_next_acl_ip6,
 891                                        &ip6_table_index, 0);
 892       acl_classify_add_del_table_tiny (cm, ip4_5tuple_mask,
 893                                        sizeof (ip4_5tuple_mask) - 1, ~0,
 894                                        am->l2_input_classify_next_acl_ip4,
 895                                        &ip4_table_index, 0);
 896       goto done;
 897     }
 898
 899   rv =
 900     vnet_l2_input_classify_set_tables (sw_if_index, ip4_table_index,
 901                                        ip6_table_index, dot1q_table_index);
 902
 903   if (rv)
 904     {
 905       acl_classify_add_del_table_tiny (cm, ip4_5tuple_mask,
 906                                        sizeof (ip4_5tuple_mask) - 1, ~0,
 907                                        am->l2_input_classify_next_acl_ip4,
 908                                        &ip4_table_index, 0);
 909       acl_classify_add_del_table_tiny (cm, ip6_5tuple_mask,
 910                                        sizeof (ip6_5tuple_mask) - 1, ~0,
 911                                        am->l2_input_classify_next_acl_ip6,
 912                                        &ip6_table_index, 0);
 913       acl_classify_add_del_table_tiny (cm, dot1q_5tuple_mask,
 914                                        sizeof (dot1q_5tuple_mask) - 1, ~0,
 915                                        ~0, &dot1q_table_index, 0);
 916       acl_classify_add_del_table_tiny (cm, dot1ad_5tuple_mask,
 917                                        sizeof (dot1ad_5tuple_mask) - 1, ~0,
 918                                        ~0, &dot1ad_table_index, 0);
 919       goto done;
 920     }
 921
 922   /* add sessions to vlan tables per ethernet_type */
 923   acl_add_vlan_session (am, dot1q_table_index, 0, 0, 0);
 924   acl_add_vlan_session (am, dot1q_table_index, 0, 0, 1);
 925   acl_add_vlan_session (am, dot1ad_table_index, 0, 1, 0);
 926   acl_add_vlan_session (am, dot1ad_table_index, 0, 1, 1);
 927
 928   am->acl_ip4_input_classify_table_by_sw_if_index[sw_if_index] =
 929     ip4_table_index;
 930   am->acl_ip6_input_classify_table_by_sw_if_index[sw_if_index] =
 931     ip6_table_index;
 932   am->acl_dot1q_input_classify_table_by_sw_if_index[sw_if_index] =
 933     dot1q_table_index;
 934   am->acl_dot1ad_input_classify_table_by_sw_if_index[sw_if_index] =
 935     dot1ad_table_index;
 936   am->acl_dot1ad_input_classify_table_by_sw_if_index[sw_if_index] =
 937     dot1ad_table_index;
 938   am->acl_etype_input_classify_table_by_sw_if_index[sw_if_index] =
 939     etype_table_index;
 940
 941   vnet_l2_input_classify_enable_disable (sw_if_index, 1);
 942 done:
 943   clib_mem_set_heap (prevheap);
 944   return rv;
 945 }
 946
 947 static int
 948 acl_hook_l2_output_classify (acl_main_t * am, u32 sw_if_index)
 949 {
 950   vnet_classify_main_t *cm = &vnet_classify_main;
 951   u32 ip4_table_index = ~0;
 952   u32 ip6_table_index = ~0;
 953   u32 dot1q_table_index = ~0;
 954   u32 dot1ad_table_index = ~0;
 955   u32 etype_table_index = ~0;
 956   int rv;
 957
 958   void *prevheap = clib_mem_set_heap (cm->vlib_main->heap_base);
 959
 960   /* in case there were previous tables attached */
 961   acl_unhook_l2_output_classify (am, sw_if_index);
 962   rv =
 963     acl_classify_add_del_table_tiny (cm, ip4_5tuple_mask,
 964                                      sizeof (ip4_5tuple_mask) - 1, ~0,
 965                                      am->l2_output_classify_next_acl_ip4,
 966                                      &ip4_table_index, 1);
 967   if (rv)
 968     goto done;
 969   rv =
 970     acl_classify_add_del_table_tiny (cm, ip6_5tuple_mask,
 971                                      sizeof (ip6_5tuple_mask) - 1, ~0,
 972                                      am->l2_output_classify_next_acl_ip6,
 973                                      &ip6_table_index, 1);
 974   if (rv)
 975     {
 976       acl_classify_add_del_table_tiny (cm, ip4_5tuple_mask,
 977                                        sizeof (ip4_5tuple_mask) - 1, ~0,
 978                                        am->l2_output_classify_next_acl_ip4,
 979                                        &ip4_table_index, 0);
 980       goto done;
 981     }
 982
 983   if (intf_has_etype_whitelist (am, sw_if_index, 0))
 984     {
 985       acl_classify_add_del_table_tiny (cm, ethertype_mask, sizeof (ethertype_mask) - 1, ~0, 0,  /* drop if no match */
 986                                        &etype_table_index, 1);
 987       etype_whitelist_add_sessions (am, sw_if_index, 0, etype_table_index);
 988     }
 989
 990
 991   rv =
 992     acl_classify_add_del_table_tiny (cm, dot1ad_5tuple_mask,
 993                                      sizeof (dot1ad_5tuple_mask) - 1,
 994                                      etype_table_index, ~0,
 995                                      &dot1ad_table_index, 1);
 996   rv =
 997     acl_classify_add_del_table_tiny (cm, dot1q_5tuple_mask,
 998                                      sizeof (dot1q_5tuple_mask) - 1,
 999                                      dot1ad_table_index, ~0,
1000                                      &dot1q_table_index, 1);
1001   if (rv)
1002     {
1003       acl_classify_add_del_table_tiny (cm, dot1ad_5tuple_mask,
1004                                        sizeof (dot1ad_5tuple_mask) - 1, ~0,
1005                                        ~0, &dot1ad_table_index, 0);
1006       acl_classify_add_del_table_tiny (cm, ip6_5tuple_mask,
1007                                        sizeof (ip6_5tuple_mask) - 1, ~0,
1008                                        am->l2_output_classify_next_acl_ip6,
1009                                        &ip6_table_index, 0);
1010       acl_classify_add_del_table_tiny (cm, ip4_5tuple_mask,
1011                                        sizeof (ip4_5tuple_mask) - 1, ~0,
1012                                        am->l2_output_classify_next_acl_ip4,
1013                                        &ip4_table_index, 0);
1014       goto done;
1015     }
1016
1017   rv =
1018     vnet_l2_output_classify_set_tables (sw_if_index, ip4_table_index,
1019                                         ip6_table_index, dot1q_table_index);
1020 /*
1021   clib_warning
1022     ("ACL enabling on interface sw_if_index %d, setting tables to the following: ip4: %d ip6: %d\n",
1023      sw_if_index, ip4_table_index, ip6_table_index);
1024 */
1025   if (rv)
1026     {
1027       acl_classify_add_del_table_tiny (cm, ip6_5tuple_mask,
1028                                        sizeof (ip6_5tuple_mask) - 1, ~0,
1029                                        am->l2_output_classify_next_acl_ip6,
1030                                        &ip6_table_index, 0);
1031       acl_classify_add_del_table_tiny (cm, ip4_5tuple_mask,
1032                                        sizeof (ip4_5tuple_mask) - 1, ~0,
1033                                        am->l2_output_classify_next_acl_ip4,
1034                                        &ip4_table_index, 0);
1035       acl_classify_add_del_table_tiny (cm, dot1q_5tuple_mask,
1036                                        sizeof (dot1q_5tuple_mask) - 1, ~0,
1037                                        ~0, &dot1q_table_index, 0);
1038       acl_classify_add_del_table_tiny (cm, dot1ad_5tuple_mask,
1039                                        sizeof (dot1ad_5tuple_mask) - 1, ~0,
1040                                        ~0, &dot1ad_table_index, 0);
1041       goto done;
1042     }
1043
1044   /* add sessions to vlan tables per ethernet_type */
1045   acl_add_vlan_session (am, dot1q_table_index, 1, 0, 0);
1046   acl_add_vlan_session (am, dot1q_table_index, 1, 0, 1);
1047   acl_add_vlan_session (am, dot1ad_table_index, 1, 1, 0);
1048   acl_add_vlan_session (am, dot1ad_table_index, 1, 1, 1);
1049
1050   am->acl_ip4_output_classify_table_by_sw_if_index[sw_if_index] =
1051     ip4_table_index;
1052   am->acl_ip6_output_classify_table_by_sw_if_index[sw_if_index] =
1053     ip6_table_index;
1054   am->acl_dot1q_output_classify_table_by_sw_if_index[sw_if_index] =
1055     dot1q_table_index;
1056   am->acl_dot1ad_output_classify_table_by_sw_if_index[sw_if_index] =
1057     dot1ad_table_index;
1058   am->acl_etype_output_classify_table_by_sw_if_index[sw_if_index] =
1059     etype_table_index;
1060
1061   vnet_l2_output_classify_enable_disable (sw_if_index, 1);
1062 done:
1063   clib_mem_set_heap (prevheap);
1064   return rv;
1065 }
1066
1067 static void
1068 acl_clear_sessions (acl_main_t * am, u32 sw_if_index)
1069 {
1070   void *oldheap = clib_mem_set_heap (am->vlib_main->heap_base);
1071   vlib_process_signal_event (am->vlib_main, am->fa_cleaner_node_index,
1072                              ACL_FA_CLEANER_DELETE_BY_SW_IF_INDEX,
1073                              sw_if_index);
1074   clib_mem_set_heap (oldheap);
1075 }
1076
1077
1078 static int
1079 acl_interface_in_enable_disable (acl_main_t * am, u32 sw_if_index,
1080                                  int enable_disable)
1081 {
1082   int rv = 0;
1083
1084   /* Utterly wrong? */
1085   if (pool_is_free_index (am->vnet_main->interface_main.sw_interfaces,
1086                           sw_if_index))
1087     return VNET_API_ERROR_INVALID_SW_IF_INDEX;
1088
1089   if (clib_bitmap_get (am->in_acl_on_sw_if_index, sw_if_index) ==
1090       enable_disable)
1091     return 0;
1092
1093   acl_fa_enable_disable (sw_if_index, 1, enable_disable);
1094
1095   if (enable_disable)
1096     {
1097       rv = acl_hook_l2_input_classify (am, sw_if_index);
1098     }
1099   else
1100     {
1101       rv = acl_unhook_l2_input_classify (am, sw_if_index);
1102     }
1103
1104   am->in_acl_on_sw_if_index =
1105     clib_bitmap_set (am->in_acl_on_sw_if_index, sw_if_index, enable_disable);
1106
1107   return rv;
1108 }
1109
1110 static int
1111 acl_interface_out_enable_disable (acl_main_t * am, u32 sw_if_index,
1112                                   int enable_disable)
1113 {
1114   int rv;
1115
1116   /* Utterly wrong? */
1117   if (pool_is_free_index (am->vnet_main->interface_main.sw_interfaces,
1118                           sw_if_index))
1119     return VNET_API_ERROR_INVALID_SW_IF_INDEX;
1120
1121   if (clib_bitmap_get (am->out_acl_on_sw_if_index, sw_if_index) ==
1122       enable_disable)
1123     return 0;
1124
1125   acl_fa_enable_disable (sw_if_index, 0, enable_disable);
1126
1127   if (enable_disable)
1128     {
1129       rv = acl_hook_l2_output_classify (am, sw_if_index);
1130     }
1131   else
1132     {
1133       rv = acl_unhook_l2_output_classify (am, sw_if_index);
1134     }
1135
1136   am->out_acl_on_sw_if_index =
1137     clib_bitmap_set (am->out_acl_on_sw_if_index, sw_if_index, enable_disable);
1138
1139   return rv;
1140 }
1141
1142 static int
1143 acl_interface_inout_enable_disable (acl_main_t * am, u32 sw_if_index,
1144                                     int is_input, int enable_disable)
1145 {
1146   if (is_input)
1147     return acl_interface_in_enable_disable (am, sw_if_index, enable_disable);
1148   else
1149     return acl_interface_out_enable_disable (am, sw_if_index, enable_disable);
1150 }
1151
1152 static int
1153 acl_is_not_defined (acl_main_t * am, u32 acl_list_index)
1154 {
1155   return (pool_is_free_index (am->acls, acl_list_index));
1156 }
1157
1158 static int
1159 acl_interface_set_inout_acl_list (acl_main_t * am, u32 sw_if_index,
1160                                   u8 is_input, u32 * vec_acl_list_index,
1161                                   int *may_clear_sessions)
1162 {
1163   u32 *pacln;
1164   uword *seen_acl_bitmap = 0;
1165   uword *old_seen_acl_bitmap = 0;
1166   uword *change_acl_bitmap = 0;
1167   int acln;
1168   int rv = 0;
1169
1170
1171   if (am->trace_acl > 255)
1172     clib_warning
1173       ("API dbg: acl_interface_set_inout_acl_list: sw_if_index %d is_input %d acl_vec: [%U]",
1174        sw_if_index, is_input, format_vec32, vec_acl_list_index, "%d");
1175
1176   vec_foreach (pacln, vec_acl_list_index)
1177   {
1178     if (acl_is_not_defined (am, *pacln))
1179       {
1180         /* ACL is not defined. Can not apply */
1181         clib_warning ("ERROR: ACL %d not defined", *pacln);
1182         rv = VNET_API_ERROR_NO_SUCH_ENTRY;
1183         goto done;
1184       }
1185     if (clib_bitmap_get (seen_acl_bitmap, *pacln))
1186       {
1187         /* ACL being applied twice within the list. error. */
1188         clib_warning ("ERROR: ACL %d being applied twice", *pacln);
1189         rv = VNET_API_ERROR_ENTRY_ALREADY_EXISTS;
1190         goto done;
1191       }
1192     seen_acl_bitmap = clib_bitmap_set (seen_acl_bitmap, *pacln, 1);
1193   }
1194
1195
1196   u32 **pinout_lc_index_by_sw_if_index =
1197     is_input ? &am->
1198     input_lc_index_by_sw_if_index : &am->output_lc_index_by_sw_if_index;
1199
1200   u32 ***pinout_acl_vec_by_sw_if_index =
1201     is_input ? &am->
1202     input_acl_vec_by_sw_if_index : &am->output_acl_vec_by_sw_if_index;
1203
1204   u32 ***pinout_sw_if_index_vec_by_acl =
1205     is_input ? &am->
1206     input_sw_if_index_vec_by_acl : &am->output_sw_if_index_vec_by_acl;
1207
1208   vec_validate ((*pinout_acl_vec_by_sw_if_index), sw_if_index);
1209
1210   clib_bitmap_validate (old_seen_acl_bitmap, 1);
1211
1212   vec_foreach (pacln, (*pinout_acl_vec_by_sw_if_index)[sw_if_index])
1213   {
1214     old_seen_acl_bitmap = clib_bitmap_set (old_seen_acl_bitmap, *pacln, 1);
1215   }
1216   change_acl_bitmap =
1217     clib_bitmap_dup_xor (old_seen_acl_bitmap, seen_acl_bitmap);
1218
1219   if (am->trace_acl > 255)
1220     clib_warning ("bitmaps: old seen %U new seen %U changed %U",
1221                   format_bitmap_hex, old_seen_acl_bitmap, format_bitmap_hex,
1222                   seen_acl_bitmap, format_bitmap_hex, change_acl_bitmap);
1223
1224 /* *INDENT-OFF* */
1225   clib_bitmap_foreach(acln, change_acl_bitmap, ({
1226     if (clib_bitmap_get(old_seen_acl_bitmap, acln)) {
1227       /* ACL is being removed. */
1228       if (acln < vec_len((*pinout_sw_if_index_vec_by_acl))) {
1229         int index = vec_search((*pinout_sw_if_index_vec_by_acl)[acln], sw_if_index);
1230         vec_del1((*pinout_sw_if_index_vec_by_acl)[acln], index);
1231       }
1232     } else {
1233       /* ACL is being added. */
1234       vec_validate((*pinout_sw_if_index_vec_by_acl), acln);
1235       vec_add1((*pinout_sw_if_index_vec_by_acl)[acln], sw_if_index);
1236     }
1237   }));
1238 /* *INDENT-ON* */
1239
1240   vec_free ((*pinout_acl_vec_by_sw_if_index)[sw_if_index]);
1241   (*pinout_acl_vec_by_sw_if_index)[sw_if_index] =
1242     vec_dup (vec_acl_list_index);
1243
1244   /* if no commonalities between the ACL# - then we should definitely clear the sessions */
1245   if (may_clear_sessions && *may_clear_sessions
1246       && !clib_bitmap_is_zero (change_acl_bitmap))
1247     {
1248       acl_clear_sessions (am, sw_if_index);
1249       *may_clear_sessions = 0;
1250     }
1251
1252   /*
1253    * prepare or delete the lookup context if necessary, and if context exists, set ACL list
1254    */
1255   vec_validate_init_empty ((*pinout_lc_index_by_sw_if_index), sw_if_index,
1256                            ~0);
1257   if (vec_len (vec_acl_list_index) > 0)
1258     {
1259       u32 lc_index = (*pinout_lc_index_by_sw_if_index)[sw_if_index];
1260       if (~0 == lc_index)
1261         {
1262           lc_index =
1263             acl_plugin_get_lookup_context_index (am->interface_acl_user_id,
1264                                                  sw_if_index, is_input);
1265           ASSERT (lc_index >= 0);
1266           (*pinout_lc_index_by_sw_if_index)[sw_if_index] = lc_index;
1267         }
1268       acl_plugin_set_acl_vec_for_context (lc_index, vec_acl_list_index);
1269     }
1270   else
1271     {
1272       if (~0 != (*pinout_lc_index_by_sw_if_index)[sw_if_index])
1273         {
1274           acl_plugin_put_lookup_context_index ((*pinout_lc_index_by_sw_if_index)[sw_if_index]);
1275           (*pinout_lc_index_by_sw_if_index)[sw_if_index] = ~0;
1276         }
1277     }
1278
1279   /* ensure ACL processing is enabled/disabled as needed */
1280   acl_interface_inout_enable_disable (am, sw_if_index, is_input,
1281                                       vec_len (vec_acl_list_index) > 0);
1282
1283 done:
1284   clib_bitmap_free (change_acl_bitmap);
1285   clib_bitmap_free (seen_acl_bitmap);
1286   clib_bitmap_free (old_seen_acl_bitmap);
1287   return rv;
1288 }
1289
1290 static void
1291 acl_interface_reset_inout_acls (u32 sw_if_index, u8 is_input,
1292                                 int *may_clear_sessions)
1293 {
1294   acl_main_t *am = &acl_main;
1295   void *oldheap = acl_set_heap (am);
1296   acl_interface_set_inout_acl_list (am, sw_if_index, is_input, 0,
1297                                     may_clear_sessions);
1298   clib_mem_set_heap (oldheap);
1299 }
1300
1301 static int
1302 acl_interface_add_del_inout_acl (u32 sw_if_index, u8 is_add, u8 is_input,
1303                                  u32 acl_list_index)
1304 {
1305
1306   acl_main_t *am = &acl_main;
1307   u32 *acl_vec = 0;
1308   int may_clear_sessions = 1;
1309
1310   int error_already_applied = is_input ? VNET_API_ERROR_ACL_IN_USE_INBOUND
1311     : VNET_API_ERROR_ACL_IN_USE_OUTBOUND;
1312
1313   u32 ***pinout_acl_vec_by_sw_if_index =
1314     is_input ? &am->
1315     input_acl_vec_by_sw_if_index : &am->output_acl_vec_by_sw_if_index;
1316   int rv = 0;
1317   void *oldheap = acl_set_heap (am);
1318
1319   if (is_add)
1320     {
1321       vec_validate ((*pinout_acl_vec_by_sw_if_index), sw_if_index);
1322       u32 index = vec_search ((*pinout_acl_vec_by_sw_if_index)[sw_if_index],
1323                               acl_list_index);
1324
1325       if (~0 != index)
1326         {
1327           rv = error_already_applied;
1328           goto done;
1329         }
1330
1331       acl_vec = vec_dup ((*pinout_acl_vec_by_sw_if_index)[sw_if_index]);
1332       vec_add1 (acl_vec, acl_list_index);
1333     }
1334   else
1335     {
1336       if (sw_if_index > vec_len (*pinout_acl_vec_by_sw_if_index))
1337         {
1338           rv = VNET_API_ERROR_NO_SUCH_ENTRY;
1339           goto done;
1340         }
1341
1342       u32 index = vec_search ((*pinout_acl_vec_by_sw_if_index)[sw_if_index],
1343                               acl_list_index);
1344
1345       if (~0 == index)
1346         {
1347           rv = VNET_API_ERROR_NO_SUCH_ENTRY;
1348           goto done;
1349         }
1350
1351       acl_vec = vec_dup ((*pinout_acl_vec_by_sw_if_index)[sw_if_index]);
1352       vec_del1 (acl_vec, index);
1353     }
1354
1355   rv = acl_interface_set_inout_acl_list (am, sw_if_index, is_input, acl_vec,
1356                                          &may_clear_sessions);
1357 done:
1358   vec_free (acl_vec);
1359   clib_mem_set_heap (oldheap);
1360   return rv;
1361 }
1362
1363 static int
1364 acl_set_etype_whitelists (acl_main_t * am, u32 sw_if_index, u16 * vec_in,
1365                           u16 * vec_out)
1366 {
1367   vec_validate (am->input_etype_whitelist_by_sw_if_index, sw_if_index);
1368   vec_validate (am->output_etype_whitelist_by_sw_if_index, sw_if_index);
1369
1370   vec_free (am->input_etype_whitelist_by_sw_if_index[sw_if_index]);
1371   vec_free (am->output_etype_whitelist_by_sw_if_index[sw_if_index]);
1372
1373   am->input_etype_whitelist_by_sw_if_index[sw_if_index] = vec_in;
1374   am->output_etype_whitelist_by_sw_if_index[sw_if_index] = vec_out;
1375
1376   /*
1377    * if there are already inbound/outbound ACLs applied, toggle the
1378    * enable/disable - this will recreate the necessary tables.
1379    */
1380
1381   if (vec_len (am->input_acl_vec_by_sw_if_index) > sw_if_index)
1382     {
1383       if (vec_len (am->input_acl_vec_by_sw_if_index[sw_if_index]) > 0)
1384         {
1385           acl_interface_in_enable_disable (am, sw_if_index, 0);
1386           acl_interface_in_enable_disable (am, sw_if_index, 1);
1387         }
1388     }
1389   if (vec_len (am->output_acl_vec_by_sw_if_index) > sw_if_index)
1390     {
1391       if (vec_len (am->output_acl_vec_by_sw_if_index[sw_if_index]) > 0)
1392         {
1393           acl_interface_out_enable_disable (am, sw_if_index, 0);
1394           acl_interface_out_enable_disable (am, sw_if_index, 1);
1395         }
1396     }
1397   return 0;
1398 }
1399
1400
1401 typedef struct
1402 {
1403   u8 is_ipv6;
1404   u8 has_egress;
1405   u8 mac_mask[6];
1406   u8 prefix_len;
1407   u32 count;
1408   u32 table_index;
1409   u32 arp_table_index;
1410   u32 dot1q_table_index;
1411   u32 dot1ad_table_index;
1412   u32 arp_dot1q_table_index;
1413   u32 arp_dot1ad_table_index;
1414   /* egress tables */
1415   u32 out_table_index;
1416   u32 out_arp_table_index;
1417   u32 out_dot1q_table_index;
1418   u32 out_dot1ad_table_index;
1419   u32 out_arp_dot1q_table_index;
1420   u32 out_arp_dot1ad_table_index;
1421 } macip_match_type_t;
1422
1423 static u32
1424 macip_find_match_type (macip_match_type_t * mv, u8 * mac_mask, u8 prefix_len,
1425                        u8 is_ipv6)
1426 {
1427   u32 i;
1428   if (mv)
1429     {
1430       for (i = 0; i < vec_len (mv); i++)
1431         {
1432           if ((mv[i].prefix_len == prefix_len) && (mv[i].is_ipv6 == is_ipv6)
1433               && (0 == memcmp (mv[i].mac_mask, mac_mask, 6)))
1434             {
1435               return i;
1436             }
1437         }
1438     }
1439   return ~0;
1440 }
1441
1442
1443 /* Get metric used to sort match types.
1444    The more specific and the more often seen - the bigger the metric */
1445 static int
1446 match_type_metric (macip_match_type_t * m)
1447 {
1448   unsigned int mac_bits_set = 0;
1449   unsigned int mac_byte;
1450   int i;
1451   for (i = 0; i < 6; i++)
1452     {
1453       mac_byte = m->mac_mask[i];
1454       for (; mac_byte; mac_byte >>= 1)
1455         mac_bits_set += mac_byte & 1;
1456     }
1457   /*
1458    * Attempt to place the more specific and the more used rules on top.
1459    * There are obvious caveat corner cases to this, but they do not
1460    * seem to be sensible in real world (e.g. specific IPv4 with wildcard MAC
1461    * going with a wildcard IPv4 with a specific MAC).
1462    */
1463   return m->prefix_len + mac_bits_set + m->is_ipv6 + 10 * m->count;
1464 }
1465
1466 static int
1467 match_type_compare (macip_match_type_t * m1, macip_match_type_t * m2)
1468 {
1469   /* Ascending sort based on the metric values */
1470   return match_type_metric (m1) - match_type_metric (m2);
1471 }
1472
1473 /* Get the offset of L3 source within ethernet packet */
1474 static int
1475 get_l3_src_offset (int is6)
1476 {
1477   if (is6)
1478     return (sizeof (ethernet_header_t) +
1479             offsetof (ip6_header_t, src_address));
1480   else
1481     return (sizeof (ethernet_header_t) +
1482             offsetof (ip4_header_t, src_address));
1483 }
1484
1485 static int
1486 get_l3_dst_offset (int is6)
1487 {
1488   if (is6)
1489     return (sizeof (ethernet_header_t) +
1490             offsetof (ip6_header_t, dst_address));
1491   else
1492     return (sizeof (ethernet_header_t) +
1493             offsetof (ip4_header_t, dst_address));
1494 }
1495
1496 /*
1497  * return if the is_permit value also requires to create the egress tables
1498  * For backwards compatibility, we keep the is_permit = 1 to only
1499  * create the ingress tables, and the new value of 3 will also
1500  * create the egress tables based on destination.
1501  */
1502 static int
1503 macip_permit_also_egress (u8 is_permit)
1504 {
1505   return (is_permit == 3);
1506 }
1507
1508 static int
1509 macip_create_classify_tables (acl_main_t * am, u32 macip_acl_index)
1510 {
1511   macip_match_type_t *mvec = NULL;
1512   macip_match_type_t *mt;
1513   macip_acl_list_t *a = pool_elt_at_index (am->macip_acls, macip_acl_index);
1514   int i;
1515   u32 match_type_index;
1516   u32 last_table;
1517   u32 out_last_table;
1518   u8 mask[5 * 16];
1519   vnet_classify_main_t *cm = &vnet_classify_main;
1520
1521   /* Count the number of different types of rules */
1522   for (i = 0; i < a->count; i++)
1523     {
1524       if (~0 ==
1525           (match_type_index =
1526            macip_find_match_type (mvec, a->rules[i].src_mac_mask,
1527                                   a->rules[i].src_prefixlen,
1528                                   a->rules[i].is_ipv6)))
1529         {
1530           match_type_index = vec_len (mvec);
1531           vec_validate (mvec, match_type_index);
1532           memcpy (mvec[match_type_index].mac_mask,
1533                   a->rules[i].src_mac_mask, 6);
1534           mvec[match_type_index].prefix_len = a->rules[i].src_prefixlen;
1535           mvec[match_type_index].is_ipv6 = a->rules[i].is_ipv6;
1536           mvec[match_type_index].has_egress = 0;
1537           mvec[match_type_index].table_index = ~0;
1538           mvec[match_type_index].arp_table_index = ~0;
1539           mvec[match_type_index].dot1q_table_index = ~0;
1540           mvec[match_type_index].dot1ad_table_index = ~0;
1541           mvec[match_type_index].arp_dot1q_table_index = ~0;
1542           mvec[match_type_index].arp_dot1ad_table_index = ~0;
1543           mvec[match_type_index].out_table_index = ~0;
1544           mvec[match_type_index].out_arp_table_index = ~0;
1545           mvec[match_type_index].out_dot1q_table_index = ~0;
1546           mvec[match_type_index].out_dot1ad_table_index = ~0;
1547           mvec[match_type_index].out_arp_dot1q_table_index = ~0;
1548           mvec[match_type_index].out_arp_dot1ad_table_index = ~0;
1549         }
1550       mvec[match_type_index].count++;
1551       mvec[match_type_index].has_egress |=
1552         macip_permit_also_egress (a->rules[i].is_permit);
1553     }
1554   /* Put the most frequently used tables last in the list so we can create classifier tables in reverse order */
1555   vec_sort_with_function (mvec, match_type_compare);
1556   /* Create the classifier tables */
1557   last_table = ~0;
1558   out_last_table = ~0;
1559   /* First add ARP tables */
1560   vec_foreach (mt, mvec)
1561   {
1562     int mask_len;
1563     int is6 = mt->is_ipv6;
1564     int tags;
1565     u32 *last_tag_table;
1566     u32 *out_last_tag_table;
1567     u32 l3_offset;
1568
1569     if (!is6)
1570       {
1571         /*
1572            0                   1                   2                   3
1573            0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
1574            +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1575            |                      Destination Address                      |
1576            +                               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1577            |                               |                               |
1578            +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+                               +
1579            |                         Source Address                        |
1580            +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1581            |           EtherType           |         Hardware Type         |
1582            +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1583            |         Protocol Type         |  Hw addr len  | Proto addr len|
1584            +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1585            |             Opcode            |                               |
1586            +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+                               +
1587            |                    Sender Hardware Address                    |
1588            +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1589            |                    Sender Protocol Address                    |
1590            +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1591            |                    Target Hardware Address                    |
1592            +                               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1593            |                               |     TargetProtocolAddress     |
1594            +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1595            |                               |
1596            +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1597          */
1598         for (tags = 2; tags >= 0; tags--)
1599           {
1600             memset (mask, 0, sizeof (mask));
1601             /* source MAC address */
1602             memcpy (&mask[6], mt->mac_mask, 6);
1603
1604             switch (tags)
1605               {
1606               case 0:
1607               default:
1608                 memset (&mask[12], 0xff, 2);    /* ethernet protocol */
1609                 l3_offset = 14;
1610                 last_tag_table = &mt->arp_table_index;
1611                 break;
1612               case 1:
1613                 memset (&mask[12], 0xff, 2);    /* VLAN tag1 */
1614                 memset (&mask[16], 0xff, 2);    /* ethernet protocol */
1615                 l3_offset = 18;
1616                 last_tag_table = &mt->arp_dot1q_table_index;
1617                 break;
1618               case 2:
1619                 memset (&mask[12], 0xff, 2);    /* VLAN tag1 */
1620                 memset (&mask[16], 0xff, 2);    /* VLAN tag2 */
1621                 memset (&mask[20], 0xff, 2);    /* ethernet protocol */
1622                 l3_offset = 22;
1623                 last_tag_table = &mt->arp_dot1ad_table_index;
1624                 break;
1625               }
1626
1627             /* sender hardware address within ARP */
1628             memcpy (&mask[l3_offset + 8], mt->mac_mask, 6);
1629             /* sender protocol address within ARP */
1630             for (i = 0; i < (mt->prefix_len / 8); i++)
1631               mask[l3_offset + 14 + i] = 0xff;
1632             if (mt->prefix_len % 8)
1633               mask[l3_offset + 14 + (mt->prefix_len / 8)] =
1634                 0xff - ((1 << (8 - mt->prefix_len % 8)) - 1);
1635
1636             mask_len = ((l3_offset + 14 + ((mt->prefix_len + 7) / 8) +
1637                          (sizeof (u32x4) -
1638                           1)) / sizeof (u32x4)) * sizeof (u32x4);
1639             acl_classify_add_del_table_small (cm, mask, mask_len, last_table,
1640                                               (~0 == last_table) ? 0 : ~0,
1641                                               last_tag_table, 1);
1642             last_table = *last_tag_table;
1643             if (mt->has_egress)
1644               {
1645                 /* egress ARP table */
1646                 memset (mask, 0, sizeof (mask));
1647
1648                 switch (tags)
1649                   {
1650                   case 0:
1651                   default:
1652                     memset (&mask[12], 0xff, 2);        /* ethernet protocol */
1653                     l3_offset = 14;
1654                     out_last_tag_table = &mt->out_arp_table_index;
1655                     break;
1656                   case 1:
1657                     memset (&mask[12], 0xff, 2);        /* VLAN tag1 */
1658                     memset (&mask[16], 0xff, 2);        /* ethernet protocol */
1659                     l3_offset = 18;
1660                     out_last_tag_table = &mt->out_arp_dot1q_table_index;
1661                     break;
1662                   case 2:
1663                     memset (&mask[12], 0xff, 2);        /* VLAN tag1 */
1664                     memset (&mask[16], 0xff, 2);        /* VLAN tag2 */
1665                     memset (&mask[20], 0xff, 2);        /* ethernet protocol */
1666                     l3_offset = 22;
1667                     out_last_tag_table = &mt->out_arp_dot1ad_table_index;
1668                     break;
1669                   }
1670
1671                 /* AYXX: FIXME here - can we tighten the ARP-related table more ? */
1672                 /* mask captures just the destination and the ethertype */
1673                 mask_len = ((l3_offset +
1674                              (sizeof (u32x4) -
1675                               1)) / sizeof (u32x4)) * sizeof (u32x4);
1676                 acl_classify_add_del_table_small (cm, mask, mask_len,
1677                                                   out_last_table,
1678                                                   (~0 ==
1679                                                    out_last_table) ? 0 : ~0,
1680                                                   out_last_tag_table, 1);
1681                 out_last_table = *out_last_tag_table;
1682               }
1683           }
1684       }
1685   }
1686   /* Now add IP[46] tables */
1687   vec_foreach (mt, mvec)
1688   {
1689     int mask_len;
1690     int is6 = mt->is_ipv6;
1691     int l3_src_offs;
1692     int l3_dst_offs;
1693     int tags;
1694     u32 *last_tag_table;
1695     u32 *out_last_tag_table;
1696
1697     /*
1698      * create chained tables for VLAN (no-tags, dot1q and dot1ad) packets
1699      */
1700     for (tags = 2; tags >= 0; tags--)
1701       {
1702         memset (mask, 0, sizeof (mask));
1703         memcpy (&mask[6], mt->mac_mask, 6);
1704         l3_src_offs = tags * 4 + get_l3_src_offset (is6);
1705         switch (tags)
1706           {
1707           case 0:
1708           default:
1709             memset (&mask[12], 0xff, 2);        /* ethernet protocol */
1710             last_tag_table = &mt->table_index;
1711             break;
1712           case 1:
1713             memset (&mask[12], 0xff, 2);        /* VLAN tag1 */
1714             memset (&mask[16], 0xff, 2);        /* ethernet protocol */
1715             last_tag_table = &mt->dot1q_table_index;
1716             break;
1717           case 2:
1718             memset (&mask[12], 0xff, 2);        /* VLAN tag1 */
1719             memset (&mask[16], 0xff, 2);        /* VLAN tag2 */
1720             memset (&mask[20], 0xff, 2);        /* ethernet protocol */
1721             last_tag_table = &mt->dot1ad_table_index;
1722             break;
1723           }
1724         for (i = 0; i < (mt->prefix_len / 8); i++)
1725           {
1726             mask[l3_src_offs + i] = 0xff;
1727           }
1728         if (mt->prefix_len % 8)
1729           {
1730             mask[l3_src_offs + (mt->prefix_len / 8)] =
1731               0xff - ((1 << (8 - mt->prefix_len % 8)) - 1);
1732           }
1733         /*
1734          * Round-up the number of bytes needed to store the prefix,
1735          * and round up the number of vectors too
1736          */
1737         mask_len = ((l3_src_offs + ((mt->prefix_len + 7) / 8) +
1738                      (sizeof (u32x4) - 1)) / sizeof (u32x4)) * sizeof (u32x4);
1739         acl_classify_add_del_table_small (cm, mask, mask_len, last_table,
1740                                           (~0 == last_table) ? 0 : ~0,
1741                                           last_tag_table, 1);
1742         last_table = *last_tag_table;
1743       }
1744     if (mt->has_egress)
1745       {
1746         for (tags = 2; tags >= 0; tags--)
1747           {
1748             memset (mask, 0, sizeof (mask));
1749             /* MAC destination */
1750             memcpy (&mask[0], mt->mac_mask, 6);
1751             l3_dst_offs = tags * 4 + get_l3_dst_offset (is6);
1752             switch (tags)
1753               {
1754               case 0:
1755               default:
1756                 memset (&mask[12], 0xff, 2);    /* ethernet protocol */
1757                 out_last_tag_table = &mt->out_table_index;
1758                 break;
1759               case 1:
1760                 memset (&mask[12], 0xff, 2);    /* VLAN tag1 */
1761                 memset (&mask[16], 0xff, 2);    /* ethernet protocol */
1762                 out_last_tag_table = &mt->out_dot1q_table_index;
1763                 break;
1764               case 2:
1765                 memset (&mask[12], 0xff, 2);    /* VLAN tag1 */
1766                 memset (&mask[16], 0xff, 2);    /* VLAN tag2 */
1767                 memset (&mask[20], 0xff, 2);    /* ethernet protocol */
1768                 out_last_tag_table = &mt->out_dot1ad_table_index;
1769                 break;
1770               }
1771             for (i = 0; i < (mt->prefix_len / 8); i++)
1772               {
1773                 mask[l3_dst_offs + i] = 0xff;
1774               }
1775             if (mt->prefix_len % 8)
1776               {
1777                 mask[l3_dst_offs + (mt->prefix_len / 8)] =
1778                   0xff - ((1 << (8 - mt->prefix_len % 8)) - 1);
1779               }
1780             /*
1781              * Round-up the number of bytes needed to store the prefix,
1782              * and round up the number of vectors too
1783              */
1784             mask_len = ((l3_dst_offs + ((mt->prefix_len + 7) / 8) +
1785                          (sizeof (u32x4) -
1786                           1)) / sizeof (u32x4)) * sizeof (u32x4);
1787             acl_classify_add_del_table_small (cm, mask, mask_len,
1788                                               out_last_table,
1789                                               (~0 == out_last_table) ? 0 : ~0,
1790                                               out_last_tag_table, 1);
1791             out_last_table = *out_last_tag_table;
1792           }
1793       }
1794   }
1795   a->ip4_table_index = last_table;
1796   a->ip6_table_index = last_table;
1797   a->l2_table_index = last_table;
1798
1799   a->out_ip4_table_index = out_last_table;
1800   a->out_ip6_table_index = out_last_table;
1801   a->out_l2_table_index = out_last_table;
1802
1803   /* Populate the classifier tables with rules from the MACIP ACL */
1804   for (i = 0; i < a->count; i++)
1805     {
1806       u32 action = 0;
1807       u32 metadata = 0;
1808       int is6 = a->rules[i].is_ipv6;
1809       int l3_src_offs;
1810       int l3_dst_offs;
1811       u32 tag_table;
1812       int tags, eth;
1813
1814       match_type_index =
1815         macip_find_match_type (mvec, a->rules[i].src_mac_mask,
1816                                a->rules[i].src_prefixlen,
1817                                a->rules[i].is_ipv6);
1818       ASSERT (match_type_index != ~0);
1819
1820       for (tags = 2; tags >= 0; tags--)
1821         {
1822           memset (mask, 0, sizeof (mask));
1823           l3_src_offs = tags * 4 + get_l3_src_offset (is6);
1824           memcpy (&mask[6], a->rules[i].src_mac, 6);
1825           switch (tags)
1826             {
1827             case 0:
1828             default:
1829               tag_table = mvec[match_type_index].table_index;
1830               eth = 12;
1831               break;
1832             case 1:
1833               tag_table = mvec[match_type_index].dot1q_table_index;
1834               mask[12] = 0x81;
1835               mask[13] = 0x00;
1836               eth = 16;
1837               break;
1838             case 2:
1839               tag_table = mvec[match_type_index].dot1ad_table_index;
1840               mask[12] = 0x88;
1841               mask[13] = 0xa8;
1842               mask[16] = 0x81;
1843               mask[17] = 0x00;
1844               eth = 20;
1845               break;
1846             }
1847           if (is6)
1848             {
1849               memcpy (&mask[l3_src_offs], &a->rules[i].src_ip_addr.ip6, 16);
1850               mask[eth] = 0x86;
1851               mask[eth + 1] = 0xdd;
1852             }
1853           else
1854             {
1855               memcpy (&mask[l3_src_offs], &a->rules[i].src_ip_addr.ip4, 4);
1856               mask[eth] = 0x08;
1857               mask[eth + 1] = 0x00;
1858             }
1859
1860           /* add session to table mvec[match_type_index].table_index; */
1861           vnet_classify_add_del_session (cm, tag_table,
1862                                          mask, a->rules[i].is_permit ? ~0 : 0,
1863                                          i, 0, action, metadata, 1);
1864           memset (&mask[12], 0, sizeof (mask) - 12);
1865         }
1866
1867       /* add ARP table entry too */
1868       if (!is6 && (mvec[match_type_index].arp_table_index != ~0))
1869         {
1870           memset (mask, 0, sizeof (mask));
1871           memcpy (&mask[6], a->rules[i].src_mac, 6);
1872
1873           for (tags = 2; tags >= 0; tags--)
1874             {
1875               switch (tags)
1876                 {
1877                 case 0:
1878                 default:
1879                   tag_table = mvec[match_type_index].arp_table_index;
1880                   mask[12] = 0x08;
1881                   mask[13] = 0x06;
1882                   l3_src_offs = 14;
1883                   break;
1884                 case 1:
1885                   tag_table = mvec[match_type_index].arp_dot1q_table_index;
1886                   mask[12] = 0x81;
1887                   mask[13] = 0x00;
1888                   mask[16] = 0x08;
1889                   mask[17] = 0x06;
1890                   l3_src_offs = 18;
1891                   break;
1892                 case 2:
1893                   tag_table = mvec[match_type_index].arp_dot1ad_table_index;
1894                   mask[12] = 0x88;
1895                   mask[13] = 0xa8;
1896                   mask[16] = 0x81;
1897                   mask[17] = 0x00;
1898                   mask[20] = 0x08;
1899                   mask[21] = 0x06;
1900                   l3_src_offs = 22;
1901                   break;
1902                 }
1903
1904               memcpy (&mask[l3_src_offs + 8], a->rules[i].src_mac, 6);
1905               memcpy (&mask[l3_src_offs + 14], &a->rules[i].src_ip_addr.ip4,
1906                       4);
1907               vnet_classify_add_del_session (cm, tag_table, mask,
1908                                              a->rules[i].is_permit ? ~0 : 0,
1909                                              i, 0, action, metadata, 1);
1910             }
1911         }
1912       if (macip_permit_also_egress (a->rules[i].is_permit))
1913         {
1914           /* Add the egress entry with destination set */
1915           for (tags = 2; tags >= 0; tags--)
1916             {
1917               memset (mask, 0, sizeof (mask));
1918               l3_dst_offs = tags * 4 + get_l3_dst_offset (is6);
1919               /* src mac in the other direction becomes dst */
1920               memcpy (&mask[0], a->rules[i].src_mac, 6);
1921               switch (tags)
1922                 {
1923                 case 0:
1924                 default:
1925                   tag_table = mvec[match_type_index].out_table_index;
1926                   eth = 12;
1927                   break;
1928                 case 1:
1929                   tag_table = mvec[match_type_index].out_dot1q_table_index;
1930                   mask[12] = 0x81;
1931                   mask[13] = 0x00;
1932                   eth = 16;
1933                   break;
1934                 case 2:
1935                   tag_table = mvec[match_type_index].out_dot1ad_table_index;
1936                   mask[12] = 0x88;
1937                   mask[13] = 0xa8;
1938                   mask[16] = 0x81;
1939                   mask[17] = 0x00;
1940                   eth = 20;
1941                   break;
1942                 }
1943               if (is6)
1944                 {
1945                   memcpy (&mask[l3_dst_offs], &a->rules[i].src_ip_addr.ip6,
1946                           16);
1947                   mask[eth] = 0x86;
1948                   mask[eth + 1] = 0xdd;
1949                 }
1950               else
1951                 {
1952                   memcpy (&mask[l3_dst_offs], &a->rules[i].src_ip_addr.ip4,
1953                           4);
1954                   mask[eth] = 0x08;
1955                   mask[eth + 1] = 0x00;
1956                 }
1957
1958               /* add session to table mvec[match_type_index].table_index; */
1959               vnet_classify_add_del_session (cm, tag_table,
1960                                              mask,
1961                                              a->rules[i].is_permit ? ~0 : 0,
1962                                              i, 0, action, metadata, 1);
1963               // memset (&mask[12], 0, sizeof (mask) - 12);
1964             }
1965
1966           /* add ARP table entry too */
1967           if (!is6 && (mvec[match_type_index].out_arp_table_index != ~0))
1968             {
1969               for (tags = 2; tags >= 0; tags--)
1970                 {
1971                   memset (mask, 0, sizeof (mask));
1972                   switch (tags)
1973                     {
1974                     case 0:
1975                     default:
1976                       tag_table = mvec[match_type_index].out_arp_table_index;
1977                       mask[12] = 0x08;
1978                       mask[13] = 0x06;
1979                       break;
1980                     case 1:
1981                       tag_table =
1982                         mvec[match_type_index].out_arp_dot1q_table_index;
1983                       mask[12] = 0x81;
1984                       mask[13] = 0x00;
1985                       mask[16] = 0x08;
1986                       mask[17] = 0x06;
1987                       break;
1988                     case 2:
1989                       tag_table =
1990                         mvec[match_type_index].out_arp_dot1ad_table_index;
1991                       mask[12] = 0x88;
1992                       mask[13] = 0xa8;
1993                       mask[16] = 0x81;
1994                       mask[17] = 0x00;
1995                       mask[20] = 0x08;
1996                       mask[21] = 0x06;
1997                       break;
1998                     }
1999
2000                   vnet_classify_add_del_session (cm, tag_table,
2001                                                  mask,
2002                                                  a->
2003                                                  rules[i].is_permit ? ~0 : 0,
2004                                                  i, 0, action, metadata, 1);
2005                 }
2006             }
2007         }
2008     }
2009   return 0;
2010 }
2011
2012 static void
2013 macip_destroy_classify_tables (acl_main_t * am, u32 macip_acl_index)
2014 {
2015   vnet_classify_main_t *cm = &vnet_classify_main;
2016   macip_acl_list_t *a = pool_elt_at_index (am->macip_acls, macip_acl_index);
2017
2018   if (a->ip4_table_index != ~0)
2019     {
2020       acl_classify_add_del_table_small (cm, 0, ~0, ~0, ~0,
2021                                         &a->ip4_table_index, 0);
2022       a->ip4_table_index = ~0;
2023     }
2024   if (a->ip6_table_index != ~0)
2025     {
2026       acl_classify_add_del_table_small (cm, 0, ~0, ~0, ~0,
2027                                         &a->ip6_table_index, 0);
2028       a->ip6_table_index = ~0;
2029     }
2030   if (a->l2_table_index != ~0)
2031     {
2032       acl_classify_add_del_table_small (cm, 0, ~0, ~0, ~0, &a->l2_table_index,
2033                                         0);
2034       a->l2_table_index = ~0;
2035     }
2036   if (a->out_ip4_table_index != ~0)
2037     {
2038       acl_classify_add_del_table_small (cm, 0, ~0, ~0, ~0,
2039                                         &a->out_ip4_table_index, 0);
2040       a->out_ip4_table_index = ~0;
2041     }
2042   if (a->out_ip6_table_index != ~0)
2043     {
2044       acl_classify_add_del_table_small (cm, 0, ~0, ~0, ~0,
2045                                         &a->out_ip6_table_index, 0);
2046       a->out_ip6_table_index = ~0;
2047     }
2048   if (a->out_l2_table_index != ~0)
2049     {
2050       acl_classify_add_del_table_small (cm, 0, ~0, ~0, ~0,
2051                                         &a->out_l2_table_index, 0);
2052       a->out_l2_table_index = ~0;
2053     }
2054 }
2055
2056 static int
2057 macip_maybe_apply_unapply_classifier_tables (acl_main_t * am, u32 acl_index,
2058                                              int is_apply)
2059 {
2060   int rv = 0;
2061   int rv0 = 0;
2062   int i;
2063   macip_acl_list_t *a = pool_elt_at_index (am->macip_acls, acl_index);
2064
2065   for (i = 0; i < vec_len (am->macip_acl_by_sw_if_index); i++)
2066     if (vec_elt (am->macip_acl_by_sw_if_index, i) == acl_index)
2067       {
2068         rv0 = vnet_set_input_acl_intfc (am->vlib_main, i, a->ip4_table_index,
2069                                         a->ip6_table_index, a->l2_table_index,
2070                                         is_apply);
2071         /* return the first unhappy outcome but make try to plough through. */
2072         rv = rv || rv0;
2073         rv0 =
2074           vnet_set_output_acl_intfc (am->vlib_main, i, a->out_ip4_table_index,
2075                                      a->out_ip6_table_index,
2076                                      a->out_l2_table_index, is_apply);
2077         /* return the first unhappy outcome but make try to plough through. */
2078         rv = rv || rv0;
2079       }
2080   return rv;
2081 }
2082
2083 static int
2084 macip_acl_add_list (u32 count, vl_api_macip_acl_rule_t rules[],
2085                     u32 * acl_list_index, u8 * tag)
2086 {
2087   acl_main_t *am = &acl_main;
2088   macip_acl_list_t *a;
2089   macip_acl_rule_t *r;
2090   macip_acl_rule_t *acl_new_rules = 0;
2091   int i;
2092   int rv = 0;
2093
2094   if (*acl_list_index != ~0)
2095     {
2096       /* They supplied some number, let's see if this MACIP ACL exists */
2097       if (pool_is_free_index (am->macip_acls, *acl_list_index))
2098         {
2099           /* tried to replace a non-existent ACL, no point doing anything */
2100           clib_warning
2101             ("acl-plugin-error: Trying to replace nonexistent MACIP ACL %d (tag %s)",
2102              *acl_list_index, tag);
2103           return VNET_API_ERROR_NO_SUCH_ENTRY;
2104         }
2105     }
2106
2107   if (0 == count)
2108     {
2109       clib_warning
2110         ("acl-plugin-warning: Trying to create empty MACIP ACL (tag %s)",
2111          tag);
2112     }
2113   /* if replacing the ACL, unapply the classifier tables first - they will be gone.. */
2114   if (~0 != *acl_list_index)
2115     rv = macip_maybe_apply_unapply_classifier_tables (am, *acl_list_index, 0);
2116   void *oldheap = acl_set_heap (am);
2117   /* Create and populate the rules */
2118   if (count > 0)
2119     vec_validate (acl_new_rules, count - 1);
2120
2121   for (i = 0; i < count; i++)
2122     {
2123       r = &acl_new_rules[i];
2124       r->is_permit = rules[i].is_permit;
2125       r->is_ipv6 = rules[i].is_ipv6;
2126       memcpy (&r->src_mac, rules[i].src_mac, 6);
2127       memcpy (&r->src_mac_mask, rules[i].src_mac_mask, 6);
2128       if (rules[i].is_ipv6)
2129         memcpy (&r->src_ip_addr.ip6, rules[i].src_ip_addr, 16);
2130       else
2131         memcpy (&r->src_ip_addr.ip4, rules[i].src_ip_addr, 4);
2132       r->src_prefixlen = rules[i].src_ip_prefix_len;
2133     }
2134
2135   if (~0 == *acl_list_index)
2136     {
2137       /* Get ACL index */
2138       pool_get_aligned (am->macip_acls, a, CLIB_CACHE_LINE_BYTES);
2139       memset (a, 0, sizeof (*a));
2140       /* Will return the newly allocated ACL index */
2141       *acl_list_index = a - am->macip_acls;
2142     }
2143   else
2144     {
2145       a = pool_elt_at_index (am->macip_acls, *acl_list_index);
2146       if (a->rules)
2147         {
2148           vec_free (a->rules);
2149         }
2150       macip_destroy_classify_tables (am, *acl_list_index);
2151     }
2152
2153   a->rules = acl_new_rules;
2154   a->count = count;
2155   memcpy (a->tag, tag, sizeof (a->tag));
2156
2157   /* Create and populate the classifer tables */
2158   macip_create_classify_tables (am, *acl_list_index);
2159   clib_mem_set_heap (oldheap);
2160   /* If the ACL was already applied somewhere, reapply the newly created tables */
2161   rv = rv
2162     || macip_maybe_apply_unapply_classifier_tables (am, *acl_list_index, 1);
2163   return rv;
2164 }
2165
2166 /* No check that sw_if_index denotes a valid interface - the callers
2167  * were supposed to validate.
2168  *
2169  * That said, if sw_if_index corresponds to an interface that exists at all,
2170  * this function must return errors accordingly if the ACL is not applied.
2171  */
2172
2173 static int
2174 macip_acl_interface_del_acl (acl_main_t * am, u32 sw_if_index)
2175 {
2176   int rv;
2177   u32 macip_acl_index;
2178   macip_acl_list_t *a;
2179
2180   /* The vector is too short - MACIP ACL is not applied */
2181   if (sw_if_index >= vec_len (am->macip_acl_by_sw_if_index))
2182     return VNET_API_ERROR_NO_SUCH_ENTRY;
2183
2184   macip_acl_index = am->macip_acl_by_sw_if_index[sw_if_index];
2185   /* No point in deleting MACIP ACL which is not applied */
2186   if (~0 == macip_acl_index)
2187     return VNET_API_ERROR_NO_SUCH_ENTRY;
2188
2189   a = pool_elt_at_index (am->macip_acls, macip_acl_index);
2190   /* remove the classifier tables off the interface L2 ACL */
2191   rv =
2192     vnet_set_input_acl_intfc (am->vlib_main, sw_if_index, a->ip4_table_index,
2193                               a->ip6_table_index, a->l2_table_index, 0);
2194   rv |=
2195     vnet_set_output_acl_intfc (am->vlib_main, sw_if_index,
2196                                a->out_ip4_table_index, a->out_ip6_table_index,
2197                                a->out_l2_table_index, 0);
2198   /* Unset the MACIP ACL index */
2199   am->macip_acl_by_sw_if_index[sw_if_index] = ~0;
2200   /* macip_acl_interface_add_acl did a vec_add1() to this previously, so [sw_if_index] should be valid */
2201   u32 index = vec_search (am->sw_if_index_vec_by_macip_acl[macip_acl_index],
2202                           sw_if_index);
2203   if (index != ~0)
2204     vec_del1 (am->sw_if_index_vec_by_macip_acl[macip_acl_index], index);
2205   return rv;
2206 }
2207
2208 /* No check for validity of sw_if_index - the callers were supposed to validate */
2209
2210 static int
2211 macip_acl_interface_add_acl (acl_main_t * am, u32 sw_if_index,
2212                              u32 macip_acl_index)
2213 {
2214   macip_acl_list_t *a;
2215   int rv;
2216   if (pool_is_free_index (am->macip_acls, macip_acl_index))
2217     {
2218       return VNET_API_ERROR_NO_SUCH_ENTRY;
2219     }
2220   void *oldheap = acl_set_heap (am);
2221   a = pool_elt_at_index (am->macip_acls, macip_acl_index);
2222   vec_validate_init_empty (am->macip_acl_by_sw_if_index, sw_if_index, ~0);
2223   vec_validate (am->sw_if_index_vec_by_macip_acl, macip_acl_index);
2224   vec_add1 (am->sw_if_index_vec_by_macip_acl[macip_acl_index], sw_if_index);
2225   clib_mem_set_heap (oldheap);
2226   /* If there already a MACIP ACL applied, unapply it */
2227   if (~0 != am->macip_acl_by_sw_if_index[sw_if_index])
2228     macip_acl_interface_del_acl (am, sw_if_index);
2229   am->macip_acl_by_sw_if_index[sw_if_index] = macip_acl_index;
2230
2231   /* Apply the classifier tables for L2 ACLs */
2232   rv =
2233     vnet_set_input_acl_intfc (am->vlib_main, sw_if_index, a->ip4_table_index,
2234                               a->ip6_table_index, a->l2_table_index, 1);
2235   rv |=
2236     vnet_set_output_acl_intfc (am->vlib_main, sw_if_index,
2237                                a->out_ip4_table_index, a->out_ip6_table_index,
2238                                a->out_l2_table_index, 1);
2239   return rv;
2240 }
2241
2242 static int
2243 macip_acl_del_list (u32 acl_list_index)
2244 {
2245   acl_main_t *am = &acl_main;
2246   macip_acl_list_t *a;
2247   int i;
2248   if (pool_is_free_index (am->macip_acls, acl_list_index))
2249     {
2250       return VNET_API_ERROR_NO_SUCH_ENTRY;
2251     }
2252
2253   /* delete any references to the ACL */
2254   for (i = 0; i < vec_len (am->macip_acl_by_sw_if_index); i++)
2255     {
2256       if (am->macip_acl_by_sw_if_index[i] == acl_list_index)
2257         {
2258           macip_acl_interface_del_acl (am, i);
2259         }
2260     }
2261
2262   void *oldheap = acl_set_heap (am);
2263   /* Now that classifier tables are detached, clean them up */
2264   macip_destroy_classify_tables (am, acl_list_index);
2265
2266   /* now we can delete the ACL itself */
2267   a = pool_elt_at_index (am->macip_acls, acl_list_index);
2268   if (a->rules)
2269     {
2270       vec_free (a->rules);
2271     }
2272   pool_put (am->macip_acls, a);
2273   clib_mem_set_heap (oldheap);
2274   return 0;
2275 }
2276
2277
2278 static int
2279 macip_acl_interface_add_del_acl (u32 sw_if_index, u8 is_add,
2280                                  u32 acl_list_index)
2281 {
2282   acl_main_t *am = &acl_main;
2283   int rv = -1;
2284   if (is_add)
2285     {
2286       rv = macip_acl_interface_add_acl (am, sw_if_index, acl_list_index);
2287     }
2288   else
2289     {
2290       rv = macip_acl_interface_del_acl (am, sw_if_index);
2291     }
2292   return rv;
2293 }
2294
2295 /*
2296  * If the client does not allocate enough memory for a variable-length
2297  * message, and then proceed to use it as if the full memory allocated,
2298  * absent the check we happily consume that on the VPP side, and go
2299  * along as if nothing happened. However, the resulting
2300  * effects range from just garbage in the API decode
2301  * (because the decoder snoops too far), to potential memory
2302  * corruptions.
2303  *
2304  * This verifies that the actual length of the message is
2305  * at least expected_len, and complains loudly if it is not.
2306  *
2307  * A failing check here is 100% a software bug on the API user side,
2308  * so we might as well yell.
2309  *
2310  */
2311 static int
2312 verify_message_len (void *mp, u32 expected_len, char *where)
2313 {
2314   u32 supplied_len = vl_msg_api_get_msg_length (mp);
2315   if (supplied_len < expected_len)
2316     {
2317       clib_warning ("%s: Supplied message length %d is less than expected %d",
2318                     where, supplied_len, expected_len);
2319       return 0;
2320     }
2321   else
2322     {
2323       return 1;
2324     }
2325 }
2326
2327 /* API message handler */
2328 static void
2329 vl_api_acl_add_replace_t_handler (vl_api_acl_add_replace_t * mp)
2330 {
2331   vl_api_acl_add_replace_reply_t *rmp;
2332   acl_main_t *am = &acl_main;
2333   int rv;
2334   u32 acl_list_index = ntohl (mp->acl_index);
2335   u32 acl_count = ntohl (mp->count);
2336   u32 expected_len = sizeof (*mp) + acl_count * sizeof (mp->r[0]);
2337
2338   if (verify_message_len (mp, expected_len, "acl_add_replace"))
2339     {
2340       rv = acl_add_list (acl_count, mp->r, &acl_list_index, mp->tag);
2341     }
2342   else
2343     {
2344       rv = VNET_API_ERROR_INVALID_VALUE;
2345     }
2346
2347   /* *INDENT-OFF* */
2348   REPLY_MACRO2(VL_API_ACL_ADD_REPLACE_REPLY,
2349   ({
2350     rmp->acl_index = htonl(acl_list_index);
2351   }));
2352   /* *INDENT-ON* */
2353 }
2354
2355 static void
2356 vl_api_acl_del_t_handler (vl_api_acl_del_t * mp)
2357 {
2358   acl_main_t *am = &acl_main;
2359   vl_api_acl_del_reply_t *rmp;
2360   int rv;
2361
2362   rv = acl_del_list (ntohl (mp->acl_index));
2363
2364   REPLY_MACRO (VL_API_ACL_DEL_REPLY);
2365 }
2366
2367 static void
2368 vl_api_acl_interface_add_del_t_handler (vl_api_acl_interface_add_del_t * mp)
2369 {
2370   acl_main_t *am = &acl_main;
2371   vnet_interface_main_t *im = &am->vnet_main->interface_main;
2372   u32 sw_if_index = ntohl (mp->sw_if_index);
2373   vl_api_acl_interface_add_del_reply_t *rmp;
2374   int rv = -1;
2375
2376   if (pool_is_free_index (im->sw_interfaces, sw_if_index))
2377     rv = VNET_API_ERROR_INVALID_SW_IF_INDEX;
2378   else
2379     rv =
2380       acl_interface_add_del_inout_acl (sw_if_index, mp->is_add,
2381                                        mp->is_input, ntohl (mp->acl_index));
2382
2383   REPLY_MACRO (VL_API_ACL_INTERFACE_ADD_DEL_REPLY);
2384 }
2385
2386 static void
2387   vl_api_acl_interface_set_acl_list_t_handler
2388   (vl_api_acl_interface_set_acl_list_t * mp)
2389 {
2390   acl_main_t *am = &acl_main;
2391   vl_api_acl_interface_set_acl_list_reply_t *rmp;
2392   int rv = 0;
2393   int i;
2394   vnet_interface_main_t *im = &am->vnet_main->interface_main;
2395   u32 sw_if_index = ntohl (mp->sw_if_index);
2396
2397   if (pool_is_free_index (im->sw_interfaces, sw_if_index))
2398     rv = VNET_API_ERROR_INVALID_SW_IF_INDEX;
2399   else
2400     {
2401       int may_clear_sessions = 1;
2402       for (i = 0; i < mp->count; i++)
2403         {
2404           if (acl_is_not_defined (am, ntohl (mp->acls[i])))
2405             {
2406               /* ACL does not exist, so we can not apply it */
2407               rv = VNET_API_ERROR_NO_SUCH_ENTRY;
2408             }
2409         }
2410       if (0 == rv)
2411         {
2412           void *oldheap = acl_set_heap (am);
2413
2414           u32 *in_acl_vec = 0;
2415           u32 *out_acl_vec = 0;
2416           for (i = 0; i < mp->count; i++)
2417             if (i < mp->n_input)
2418               vec_add1 (in_acl_vec, clib_net_to_host_u32 (mp->acls[i]));
2419             else
2420               vec_add1 (out_acl_vec, clib_net_to_host_u32 (mp->acls[i]));
2421
2422           rv =
2423             acl_interface_set_inout_acl_list (am, sw_if_index, 0, out_acl_vec,
2424                                               &may_clear_sessions);
2425           rv = rv
2426             || acl_interface_set_inout_acl_list (am, sw_if_index, 1,
2427                                                  in_acl_vec,
2428                                                  &may_clear_sessions);
2429           vec_free (in_acl_vec);
2430           vec_free (out_acl_vec);
2431           clib_mem_set_heap (oldheap);
2432         }
2433     }
2434
2435   REPLY_MACRO (VL_API_ACL_INTERFACE_SET_ACL_LIST_REPLY);
2436 }
2437
2438 static void
2439 copy_acl_rule_to_api_rule (vl_api_acl_rule_t * api_rule, acl_rule_t * r)
2440 {
2441   api_rule->is_permit = r->is_permit;
2442   api_rule->is_ipv6 = r->is_ipv6;
2443   if (r->is_ipv6)
2444     {
2445       memcpy (api_rule->src_ip_addr, &r->src, sizeof (r->src));
2446       memcpy (api_rule->dst_ip_addr, &r->dst, sizeof (r->dst));
2447     }
2448   else
2449     {
2450       memcpy (api_rule->src_ip_addr, &r->src.ip4, sizeof (r->src.ip4));
2451       memcpy (api_rule->dst_ip_addr, &r->dst.ip4, sizeof (r->dst.ip4));
2452     }
2453   api_rule->src_ip_prefix_len = r->src_prefixlen;
2454   api_rule->dst_ip_prefix_len = r->dst_prefixlen;
2455   api_rule->proto = r->proto;
2456   api_rule->srcport_or_icmptype_first = htons (r->src_port_or_type_first);
2457   api_rule->srcport_or_icmptype_last = htons (r->src_port_or_type_last);
2458   api_rule->dstport_or_icmpcode_first = htons (r->dst_port_or_code_first);
2459   api_rule->dstport_or_icmpcode_last = htons (r->dst_port_or_code_last);
2460   api_rule->tcp_flags_mask = r->tcp_flags_mask;
2461   api_rule->tcp_flags_value = r->tcp_flags_value;
2462 }
2463
2464 static void
2465 send_acl_details (acl_main_t * am, vl_api_registration_t * reg,
2466                   acl_list_t * acl, u32 context)
2467 {
2468   vl_api_acl_details_t *mp;
2469   vl_api_acl_rule_t *rules;
2470   int i;
2471   int msg_size = sizeof (*mp) + sizeof (mp->r[0]) * acl->count;
2472   void *oldheap = acl_set_heap (am);
2473
2474   mp = vl_msg_api_alloc (msg_size);
2475   memset (mp, 0, msg_size);
2476   mp->_vl_msg_id = ntohs (VL_API_ACL_DETAILS + am->msg_id_base);
2477
2478   /* fill in the message */
2479   mp->context = context;
2480   mp->count = htonl (acl->count);
2481   mp->acl_index = htonl (acl - am->acls);
2482   memcpy (mp->tag, acl->tag, sizeof (mp->tag));
2483   // clib_memcpy (mp->r, acl->rules, acl->count * sizeof(acl->rules[0]));
2484   rules = mp->r;
2485   for (i = 0; i < acl->count; i++)
2486     {
2487       copy_acl_rule_to_api_rule (&rules[i], &acl->rules[i]);
2488     }
2489
2490   clib_mem_set_heap (oldheap);
2491   vl_api_send_msg (reg, (u8 *) mp);
2492 }
2493
2494
2495 static void
2496 vl_api_acl_dump_t_handler (vl_api_acl_dump_t * mp)
2497 {
2498   acl_main_t *am = &acl_main;
2499   u32 acl_index;
2500   acl_list_t *acl;
2501   int rv = -1;
2502   vl_api_registration_t *reg;
2503
2504   reg = vl_api_client_index_to_registration (mp->client_index);
2505   if (!reg)
2506     return;
2507
2508   if (mp->acl_index == ~0)
2509     {
2510     /* *INDENT-OFF* */
2511     /* Just dump all ACLs */
2512     pool_foreach (acl, am->acls,
2513     ({
2514       send_acl_details(am, reg, acl, mp->context);
2515     }));
2516     /* *INDENT-ON* */
2517     }
2518   else
2519     {
2520       acl_index = ntohl (mp->acl_index);
2521       if (!pool_is_free_index (am->acls, acl_index))
2522         {
2523           acl = pool_elt_at_index (am->acls, acl_index);
2524           send_acl_details (am, reg, acl, mp->context);
2525         }
2526     }
2527
2528   if (rv == -1)
2529     {
2530       /* FIXME API: should we signal an error here at all ? */
2531       return;
2532     }
2533 }
2534
2535 static void
2536 send_acl_interface_list_details (acl_main_t * am,
2537                                  vl_api_registration_t * reg,
2538                                  u32 sw_if_index, u32 context)
2539 {
2540   vl_api_acl_interface_list_details_t *mp;
2541   int msg_size;
2542   int n_input;
2543   int n_output;
2544   int count;
2545   int i = 0;
2546   void *oldheap = acl_set_heap (am);
2547
2548   vec_validate (am->input_acl_vec_by_sw_if_index, sw_if_index);
2549   vec_validate (am->output_acl_vec_by_sw_if_index, sw_if_index);
2550
2551   clib_mem_set_heap (oldheap);
2552
2553   n_input = vec_len (am->input_acl_vec_by_sw_if_index[sw_if_index]);
2554   n_output = vec_len (am->output_acl_vec_by_sw_if_index[sw_if_index]);
2555   count = n_input + n_output;
2556
2557   msg_size = sizeof (*mp);
2558   msg_size += sizeof (mp->acls[0]) * count;
2559
2560   mp = vl_msg_api_alloc (msg_size);
2561   memset (mp, 0, msg_size);
2562   mp->_vl_msg_id =
2563     ntohs (VL_API_ACL_INTERFACE_LIST_DETAILS + am->msg_id_base);
2564
2565   /* fill in the message */
2566   mp->context = context;
2567   mp->sw_if_index = htonl (sw_if_index);
2568   mp->count = count;
2569   mp->n_input = n_input;
2570   for (i = 0; i < n_input; i++)
2571     {
2572       mp->acls[i] = htonl (am->input_acl_vec_by_sw_if_index[sw_if_index][i]);
2573     }
2574   for (i = 0; i < n_output; i++)
2575     {
2576       mp->acls[n_input + i] =
2577         htonl (am->output_acl_vec_by_sw_if_index[sw_if_index][i]);
2578     }
2579   vl_api_send_msg (reg, (u8 *) mp);
2580 }
2581
2582 static void
2583 vl_api_acl_interface_list_dump_t_handler (vl_api_acl_interface_list_dump_t *
2584                                           mp)
2585 {
2586   acl_main_t *am = &acl_main;
2587   vnet_sw_interface_t *swif;
2588   vnet_interface_main_t *im = &am->vnet_main->interface_main;
2589
2590   u32 sw_if_index;
2591   vl_api_registration_t *reg;
2592
2593   reg = vl_api_client_index_to_registration (mp->client_index);
2594   if (!reg)
2595     return;
2596
2597   if (mp->sw_if_index == ~0)
2598     {
2599     /* *INDENT-OFF* */
2600     pool_foreach (swif, im->sw_interfaces,
2601     ({
2602       send_acl_interface_list_details(am, reg, swif->sw_if_index, mp->context);
2603     }));
2604     /* *INDENT-ON* */
2605     }
2606   else
2607     {
2608       sw_if_index = ntohl (mp->sw_if_index);
2609       if (!pool_is_free_index (im->sw_interfaces, sw_if_index))
2610         send_acl_interface_list_details (am, reg, sw_if_index, mp->context);
2611     }
2612 }
2613
2614 /* MACIP ACL API handlers */
2615
2616 static void
2617 vl_api_macip_acl_add_t_handler (vl_api_macip_acl_add_t * mp)
2618 {
2619   vl_api_macip_acl_add_reply_t *rmp;
2620   acl_main_t *am = &acl_main;
2621   int rv;
2622   u32 acl_list_index = ~0;
2623   u32 acl_count = ntohl (mp->count);
2624   u32 expected_len = sizeof (*mp) + acl_count * sizeof (mp->r[0]);
2625
2626   if (verify_message_len (mp, expected_len, "macip_acl_add"))
2627     {
2628       rv = macip_acl_add_list (acl_count, mp->r, &acl_list_index, mp->tag);
2629     }
2630   else
2631     {
2632       rv = VNET_API_ERROR_INVALID_VALUE;
2633     }
2634
2635   /* *INDENT-OFF* */
2636   REPLY_MACRO2(VL_API_MACIP_ACL_ADD_REPLY,
2637   ({
2638     rmp->acl_index = htonl(acl_list_index);
2639   }));
2640   /* *INDENT-ON* */
2641 }
2642
2643 static void
2644 vl_api_macip_acl_add_replace_t_handler (vl_api_macip_acl_add_replace_t * mp)
2645 {
2646   vl_api_macip_acl_add_replace_reply_t *rmp;
2647   acl_main_t *am = &acl_main;
2648   int rv;
2649   u32 acl_list_index = ntohl (mp->acl_index);
2650   u32 acl_count = ntohl (mp->count);
2651   u32 expected_len = sizeof (*mp) + acl_count * sizeof (mp->r[0]);
2652
2653   if (verify_message_len (mp, expected_len, "macip_acl_add_replace"))
2654     {
2655       rv = macip_acl_add_list (acl_count, mp->r, &acl_list_index, mp->tag);
2656     }
2657   else
2658     {
2659       rv = VNET_API_ERROR_INVALID_VALUE;
2660     }
2661
2662   /* *INDENT-OFF* */
2663   REPLY_MACRO2(VL_API_MACIP_ACL_ADD_REPLACE_REPLY,
2664   ({
2665     rmp->acl_index = htonl(acl_list_index);
2666   }));
2667   /* *INDENT-ON* */
2668 }
2669
2670 static void
2671 vl_api_macip_acl_del_t_handler (vl_api_macip_acl_del_t * mp)
2672 {
2673   acl_main_t *am = &acl_main;
2674   vl_api_macip_acl_del_reply_t *rmp;
2675   int rv;
2676
2677   rv = macip_acl_del_list (ntohl (mp->acl_index));
2678
2679   REPLY_MACRO (VL_API_MACIP_ACL_DEL_REPLY);
2680 }
2681
2682 static void
2683   vl_api_macip_acl_interface_add_del_t_handler
2684   (vl_api_macip_acl_interface_add_del_t * mp)
2685 {
2686   acl_main_t *am = &acl_main;
2687   vl_api_macip_acl_interface_add_del_reply_t *rmp;
2688   int rv = -1;
2689   vnet_interface_main_t *im = &am->vnet_main->interface_main;
2690   u32 sw_if_index = ntohl (mp->sw_if_index);
2691
2692   if (pool_is_free_index (im->sw_interfaces, sw_if_index))
2693     rv = VNET_API_ERROR_INVALID_SW_IF_INDEX;
2694   else
2695     rv =
2696       macip_acl_interface_add_del_acl (ntohl (mp->sw_if_index), mp->is_add,
2697                                        ntohl (mp->acl_index));
2698
2699   REPLY_MACRO (VL_API_MACIP_ACL_INTERFACE_ADD_DEL_REPLY);
2700 }
2701
2702 static void
2703 send_macip_acl_details (acl_main_t * am, vl_api_registration_t * reg,
2704                         macip_acl_list_t * acl, u32 context)
2705 {
2706   vl_api_macip_acl_details_t *mp;
2707   vl_api_macip_acl_rule_t *rules;
2708   macip_acl_rule_t *r;
2709   int i;
2710   int msg_size = sizeof (*mp) + (acl ? sizeof (mp->r[0]) * acl->count : 0);
2711
2712   mp = vl_msg_api_alloc (msg_size);
2713   memset (mp, 0, msg_size);
2714   mp->_vl_msg_id = ntohs (VL_API_MACIP_ACL_DETAILS + am->msg_id_base);
2715
2716   /* fill in the message */
2717   mp->context = context;
2718   if (acl)
2719     {
2720       memcpy (mp->tag, acl->tag, sizeof (mp->tag));
2721       mp->count = htonl (acl->count);
2722       mp->acl_index = htonl (acl - am->macip_acls);
2723       rules = mp->r;
2724       for (i = 0; i < acl->count; i++)
2725         {
2726           r = &acl->rules[i];
2727           rules[i].is_permit = r->is_permit;
2728           rules[i].is_ipv6 = r->is_ipv6;
2729           memcpy (rules[i].src_mac, &r->src_mac, sizeof (r->src_mac));
2730           memcpy (rules[i].src_mac_mask, &r->src_mac_mask,
2731                   sizeof (r->src_mac_mask));
2732           if (r->is_ipv6)
2733             memcpy (rules[i].src_ip_addr, &r->src_ip_addr.ip6,
2734                     sizeof (r->src_ip_addr.ip6));
2735           else
2736             memcpy (rules[i].src_ip_addr, &r->src_ip_addr.ip4,
2737                     sizeof (r->src_ip_addr.ip4));
2738           rules[i].src_ip_prefix_len = r->src_prefixlen;
2739         }
2740     }
2741   else
2742     {
2743       /* No martini, no party - no ACL applied to this interface. */
2744       mp->acl_index = ~0;
2745       mp->count = 0;
2746     }
2747
2748   vl_api_send_msg (reg, (u8 *) mp);
2749 }
2750
2751
2752 static void
2753 vl_api_macip_acl_dump_t_handler (vl_api_macip_acl_dump_t * mp)
2754 {
2755   acl_main_t *am = &acl_main;
2756   macip_acl_list_t *acl;
2757
2758   vl_api_registration_t *reg;
2759
2760   reg = vl_api_client_index_to_registration (mp->client_index);
2761   if (!reg)
2762     return;
2763
2764   if (mp->acl_index == ~0)
2765     {
2766       /* Just dump all ACLs for now, with sw_if_index = ~0 */
2767       pool_foreach (acl, am->macip_acls, (
2768                                            {
2769                                            send_macip_acl_details (am, reg,
2770                                                                    acl,
2771                                                                    mp->context);
2772                                            }
2773                     ));
2774       /* *INDENT-ON* */
2775     }
2776   else
2777     {
2778       u32 acl_index = ntohl (mp->acl_index);
2779       if (!pool_is_free_index (am->macip_acls, acl_index))
2780         {
2781           acl = pool_elt_at_index (am->macip_acls, acl_index);
2782           send_macip_acl_details (am, reg, acl, mp->context);
2783         }
2784     }
2785 }
2786
2787 static void
2788 vl_api_macip_acl_interface_get_t_handler (vl_api_macip_acl_interface_get_t *
2789                                           mp)
2790 {
2791   acl_main_t *am = &acl_main;
2792   vl_api_macip_acl_interface_get_reply_t *rmp;
2793   u32 count = vec_len (am->macip_acl_by_sw_if_index);
2794   int msg_size = sizeof (*rmp) + sizeof (rmp->acls[0]) * count;
2795   vl_api_registration_t *reg;
2796   int i;
2797
2798   reg = vl_api_client_index_to_registration (mp->client_index);
2799   if (!reg)
2800     return;
2801
2802   rmp = vl_msg_api_alloc (msg_size);
2803   memset (rmp, 0, msg_size);
2804   rmp->_vl_msg_id =
2805     ntohs (VL_API_MACIP_ACL_INTERFACE_GET_REPLY + am->msg_id_base);
2806   rmp->context = mp->context;
2807   rmp->count = htonl (count);
2808   for (i = 0; i < count; i++)
2809     {
2810       rmp->acls[i] = htonl (am->macip_acl_by_sw_if_index[i]);
2811     }
2812
2813   vl_api_send_msg (reg, (u8 *) rmp);
2814 }
2815
2816 static void
2817 send_macip_acl_interface_list_details (acl_main_t * am,
2818                                        vl_api_registration_t * reg,
2819                                        u32 sw_if_index,
2820                                        u32 acl_index, u32 context)
2821 {
2822   vl_api_macip_acl_interface_list_details_t *rmp;
2823   /* at this time there is only ever 1 mac ip acl per interface */
2824   int msg_size = sizeof (*rmp) + sizeof (rmp->acls[0]);
2825
2826   rmp = vl_msg_api_alloc (msg_size);
2827   memset (rmp, 0, msg_size);
2828   rmp->_vl_msg_id =
2829     ntohs (VL_API_MACIP_ACL_INTERFACE_LIST_DETAILS + am->msg_id_base);
2830
2831   /* fill in the message */
2832   rmp->context = context;
2833   rmp->count = 1;
2834   rmp->sw_if_index = htonl (sw_if_index);
2835   rmp->acls[0] = htonl (acl_index);
2836
2837   vl_api_send_msg (reg, (u8 *) rmp);
2838 }
2839
2840 static void
2841   vl_api_macip_acl_interface_list_dump_t_handler
2842   (vl_api_macip_acl_interface_list_dump_t * mp)
2843 {
2844   vl_api_registration_t *reg;
2845   acl_main_t *am = &acl_main;
2846   u32 sw_if_index = ntohl (mp->sw_if_index);
2847
2848   reg = vl_api_client_index_to_registration (mp->client_index);
2849   if (!reg)
2850     return;
2851
2852   if (sw_if_index == ~0)
2853     {
2854       vec_foreach_index (sw_if_index, am->macip_acl_by_sw_if_index)
2855       {
2856         if (~0 != am->macip_acl_by_sw_if_index[sw_if_index])
2857           {
2858             send_macip_acl_interface_list_details (am, reg, sw_if_index,
2859                                                    am->macip_acl_by_sw_if_index
2860                                                    [sw_if_index],
2861                                                    mp->context);
2862           }
2863       }
2864     }
2865   else
2866     {
2867       if (vec_len (am->macip_acl_by_sw_if_index) > sw_if_index)
2868         {
2869           send_macip_acl_interface_list_details (am, reg, sw_if_index,
2870                                                  am->macip_acl_by_sw_if_index
2871                                                  [sw_if_index], mp->context);
2872         }
2873     }
2874 }
2875
2876 static void
2877   vl_api_acl_interface_set_etype_whitelist_t_handler
2878   (vl_api_acl_interface_set_etype_whitelist_t * mp)
2879 {
2880   acl_main_t *am = &acl_main;
2881   vl_api_acl_interface_set_etype_whitelist_reply_t *rmp;
2882   int rv = 0;
2883   int i;
2884   vnet_interface_main_t *im = &am->vnet_main->interface_main;
2885   u32 sw_if_index = ntohl (mp->sw_if_index);
2886   u16 *vec_in = 0, *vec_out = 0;
2887   void *oldheap = acl_set_heap (am);
2888
2889   if (pool_is_free_index (im->sw_interfaces, sw_if_index))
2890     rv = VNET_API_ERROR_INVALID_SW_IF_INDEX;
2891   else
2892     {
2893       for (i = 0; i < mp->count; i++)
2894         {
2895           if (i < mp->n_input)
2896             vec_add1 (vec_in, ntohs (mp->whitelist[i]));
2897           else
2898             vec_add1 (vec_out, ntohs (mp->whitelist[i]));
2899         }
2900       rv = acl_set_etype_whitelists (am, sw_if_index, vec_in, vec_out);
2901     }
2902
2903   clib_mem_set_heap (oldheap);
2904   REPLY_MACRO (VL_API_ACL_INTERFACE_SET_ETYPE_WHITELIST_REPLY);
2905 }
2906
2907 static void
2908 send_acl_interface_etype_whitelist_details (acl_main_t * am,
2909                                             vl_api_registration_t * reg,
2910                                             u32 sw_if_index, u32 context)
2911 {
2912   vl_api_acl_interface_etype_whitelist_details_t *mp;
2913   int msg_size;
2914   int n_input = 0;
2915   int n_output = 0;
2916   int count = 0;
2917   int i = 0;
2918
2919   u16 *whitelist_in = 0;
2920   u16 *whitelist_out = 0;
2921
2922   if (intf_has_etype_whitelist (am, sw_if_index, 0))
2923     whitelist_out =
2924       vec_elt (am->output_etype_whitelist_by_sw_if_index, sw_if_index);
2925
2926   if (intf_has_etype_whitelist (am, sw_if_index, 1))
2927     whitelist_in =
2928       vec_elt (am->input_etype_whitelist_by_sw_if_index, sw_if_index);
2929
2930   if ((0 == whitelist_in) && (0 == whitelist_out))
2931     return;                     /* nothing to do */
2932
2933   void *oldheap = acl_set_heap (am);
2934
2935   n_input = vec_len (whitelist_in);
2936   n_output = vec_len (whitelist_out);
2937   count = n_input + n_output;
2938
2939   msg_size = sizeof (*mp);
2940   msg_size += sizeof (mp->whitelist[0]) * count;
2941
2942   mp = vl_msg_api_alloc (msg_size);
2943   memset (mp, 0, msg_size);
2944   mp->_vl_msg_id =
2945     ntohs (VL_API_ACL_INTERFACE_ETYPE_WHITELIST_DETAILS + am->msg_id_base);
2946
2947   /* fill in the message */
2948   mp->context = context;
2949   mp->sw_if_index = htonl (sw_if_index);
2950   mp->count = count;
2951   mp->n_input = n_input;
2952   for (i = 0; i < n_input; i++)
2953     {
2954       mp->whitelist[i] = htons (whitelist_in[i]);
2955     }
2956   for (i = 0; i < n_output; i++)
2957     {
2958       mp->whitelist[n_input + i] = htons (whitelist_out[i]);
2959     }
2960   clib_mem_set_heap (oldheap);
2961   vl_api_send_msg (reg, (u8 *) mp);
2962 }
2963
2964
2965 static void
2966   vl_api_acl_interface_etype_whitelist_dump_t_handler
2967   (vl_api_acl_interface_list_dump_t * mp)
2968 {
2969   acl_main_t *am = &acl_main;
2970   vnet_sw_interface_t *swif;
2971   vnet_interface_main_t *im = &am->vnet_main->interface_main;
2972
2973   u32 sw_if_index;
2974   vl_api_registration_t *reg;
2975
2976   reg = vl_api_client_index_to_registration (mp->client_index);
2977   if (!reg)
2978     return;
2979
2980   if (mp->sw_if_index == ~0)
2981     {
2982     /* *INDENT-OFF* */
2983     pool_foreach (swif, im->sw_interfaces,
2984     ({
2985       send_acl_interface_etype_whitelist_details(am, reg, swif->sw_if_index, mp->context);
2986     }));
2987     /* *INDENT-ON* */
2988     }
2989   else
2990     {
2991       sw_if_index = ntohl (mp->sw_if_index);
2992       if (!pool_is_free_index (im->sw_interfaces, sw_if_index))
2993         send_acl_interface_etype_whitelist_details (am, reg, sw_if_index,
2994                                                     mp->context);
2995     }
2996 }
2997
2998
2999
3000 /* Set up the API message handling tables */
3001 static clib_error_t *
3002 acl_plugin_api_hookup (vlib_main_t * vm)
3003 {
3004   acl_main_t *am = &acl_main;
3005 #define _(N,n)                                                  \
3006     vl_msg_api_set_handlers((VL_API_##N + am->msg_id_base),     \
3007                            #n,                                  \
3008                            vl_api_##n##_t_handler,              \
3009                            vl_noop_handler,                     \
3010                            vl_api_##n##_t_endian,               \
3011                            vl_api_##n##_t_print,                \
3012                            sizeof(vl_api_##n##_t), 1);
3013   foreach_acl_plugin_api_msg;
3014 #undef _
3015
3016   return 0;
3017 }
3018
3019 #define vl_msg_name_crc_list
3020 #include <acl/acl_all_api_h.h>
3021 #undef vl_msg_name_crc_list
3022
3023 static void
3024 setup_message_id_table (acl_main_t * am, api_main_t * apim)
3025 {
3026 #define _(id,n,crc) \
3027   vl_msg_api_add_msg_name_crc (apim, #n "_" #crc, id + am->msg_id_base);
3028   foreach_vl_msg_name_crc_acl;
3029 #undef _
3030 }
3031
3032 static void
3033 acl_setup_fa_nodes (void)
3034 {
3035   vlib_main_t *vm = vlib_get_main ();
3036   acl_main_t *am = &acl_main;
3037   vlib_node_t *n, *n4, *n6;
3038
3039   n = vlib_get_node_by_name (vm, (u8 *) "l2-input-classify");
3040   n4 = vlib_get_node_by_name (vm, (u8 *) "acl-plugin-in-ip4-l2");
3041   n6 = vlib_get_node_by_name (vm, (u8 *) "acl-plugin-in-ip6-l2");
3042
3043
3044   am->l2_input_classify_next_acl_ip4 =
3045     vlib_node_add_next_with_slot (vm, n->index, n4->index, ~0);
3046   am->l2_input_classify_next_acl_ip6 =
3047     vlib_node_add_next_with_slot (vm, n->index, n6->index, ~0);
3048
3049   feat_bitmap_init_next_nodes (vm, n4->index, L2INPUT_N_FEAT,
3050                                l2input_get_feat_names (),
3051                                am->fa_acl_in_ip4_l2_node_feat_next_node_index);
3052
3053   feat_bitmap_init_next_nodes (vm, n6->index, L2INPUT_N_FEAT,
3054                                l2input_get_feat_names (),
3055                                am->fa_acl_in_ip6_l2_node_feat_next_node_index);
3056
3057
3058   n = vlib_get_node_by_name (vm, (u8 *) "l2-output-classify");
3059   n4 = vlib_get_node_by_name (vm, (u8 *) "acl-plugin-out-ip4-l2");
3060   n6 = vlib_get_node_by_name (vm, (u8 *) "acl-plugin-out-ip6-l2");
3061
3062   am->l2_output_classify_next_acl_ip4 =
3063     vlib_node_add_next_with_slot (vm, n->index, n4->index, ~0);
3064   am->l2_output_classify_next_acl_ip6 =
3065     vlib_node_add_next_with_slot (vm, n->index, n6->index, ~0);
3066
3067   feat_bitmap_init_next_nodes (vm, n4->index, L2OUTPUT_N_FEAT,
3068                                l2output_get_feat_names (),
3069                                am->fa_acl_out_ip4_l2_node_feat_next_node_index);
3070
3071   feat_bitmap_init_next_nodes (vm, n6->index, L2OUTPUT_N_FEAT,
3072                                l2output_get_feat_names (),
3073                                am->fa_acl_out_ip6_l2_node_feat_next_node_index);
3074 }
3075
3076 static void
3077 acl_set_timeout_sec (int timeout_type, u32 value)
3078 {
3079   acl_main_t *am = &acl_main;
3080   clib_time_t *ct = &am->vlib_main->clib_time;
3081
3082   if (timeout_type < ACL_N_TIMEOUTS)
3083     {
3084       am->session_timeout_sec[timeout_type] = value;
3085     }
3086   else
3087     {
3088       clib_warning ("Unknown timeout type %d", timeout_type);
3089       return;
3090     }
3091   am->session_timeout[timeout_type] =
3092     (u64) (((f64) value) / ct->seconds_per_clock);
3093 }
3094
3095 static void
3096 acl_set_session_max_entries (u32 value)
3097 {
3098   acl_main_t *am = &acl_main;
3099   am->fa_conn_table_max_entries = value;
3100 }
3101
3102 static int
3103 acl_set_skip_ipv6_eh (u32 eh, u32 value)
3104 {
3105   acl_main_t *am = &acl_main;
3106
3107   if ((eh < 256) && (value < 2))
3108     {
3109       am->fa_ipv6_known_eh_bitmap =
3110         clib_bitmap_set (am->fa_ipv6_known_eh_bitmap, eh, value);
3111       return 1;
3112     }
3113   else
3114     return 0;
3115 }
3116
3117
3118 static clib_error_t *
3119 acl_sw_interface_add_del (vnet_main_t * vnm, u32 sw_if_index, u32 is_add)
3120 {
3121   acl_main_t *am = &acl_main;
3122   if (0 == am->acl_mheap)
3123     {
3124       /* ACL heap is not initialized, so definitely nothing to do. */
3125       return 0;
3126     }
3127   if (0 == is_add)
3128     {
3129       int may_clear_sessions = 1;
3130       vlib_process_signal_event (am->vlib_main, am->fa_cleaner_node_index,
3131                                  ACL_FA_CLEANER_DELETE_BY_SW_IF_INDEX,
3132                                  sw_if_index);
3133       /* also unapply any ACLs in case the users did not do so. */
3134       macip_acl_interface_del_acl (am, sw_if_index);
3135       acl_interface_reset_inout_acls (sw_if_index, 0, &may_clear_sessions);
3136       acl_interface_reset_inout_acls (sw_if_index, 1, &may_clear_sessions);
3137     }
3138   return 0;
3139 }
3140
3141 VNET_SW_INTERFACE_ADD_DEL_FUNCTION (acl_sw_interface_add_del);
3142
3143
3144
3145 static clib_error_t *
3146 acl_set_aclplugin_fn (vlib_main_t * vm,
3147                       unformat_input_t * input, vlib_cli_command_t * cmd)
3148 {
3149   clib_error_t *error = 0;
3150   u32 timeout = 0;
3151   u32 val = 0;
3152   u32 eh_val = 0;
3153   uword memory_size = 0;
3154   acl_main_t *am = &acl_main;
3155
3156   if (unformat (input, "skip-ipv6-extension-header %u %u", &eh_val, &val))
3157     {
3158       if (!acl_set_skip_ipv6_eh (eh_val, val))
3159         {
3160           error = clib_error_return (0, "expecting eh=0..255, value=0..1");
3161         }
3162       goto done;
3163     }
3164   if (unformat (input, "use-hash-acl-matching %u", &val))
3165     {
3166       am->use_hash_acl_matching = (val != 0);
3167       goto done;
3168     }
3169   if (unformat (input, "l4-match-nonfirst-fragment %u", &val))
3170     {
3171       am->l4_match_nonfirst_fragment = (val != 0);
3172       goto done;
3173     }
3174   if (unformat (input, "event-trace"))
3175     {
3176       if (!unformat (input, "%u", &val))
3177         {
3178           error = clib_error_return (0,
3179                                      "expecting trace level, got `%U`",
3180                                      format_unformat_error, input);
3181           goto done;
3182         }
3183       else
3184         {
3185           am->trace_acl = val;
3186           goto done;
3187         }
3188     }
3189   if (unformat (input, "heap"))
3190     {
3191       if (unformat (input, "main"))
3192         {
3193           if (unformat (input, "validate %u", &val))
3194             acl_plugin_acl_set_validate_heap (am, val);
3195           else if (unformat (input, "trace %u", &val))
3196             acl_plugin_acl_set_trace_heap (am, val);
3197           goto done;
3198         }
3199       else if (unformat (input, "hash"))
3200         {
3201           if (unformat (input, "validate %u", &val))
3202             acl_plugin_hash_acl_set_validate_heap (val);
3203           else if (unformat (input, "trace %u", &val))
3204             acl_plugin_hash_acl_set_trace_heap (val);
3205           goto done;
3206         }
3207       goto done;
3208     }
3209   if (unformat (input, "session"))
3210     {
3211       if (unformat (input, "table"))
3212         {
3213           /* The commands here are for tuning/testing. No user-serviceable parts inside */
3214           if (unformat (input, "max-entries"))
3215             {
3216               if (!unformat (input, "%u", &val))
3217                 {
3218                   error = clib_error_return (0,
3219                                              "expecting maximum number of entries, got `%U`",
3220                                              format_unformat_error, input);
3221                   goto done;
3222                 }
3223               else
3224                 {
3225                   acl_set_session_max_entries (val);
3226                   goto done;
3227                 }
3228             }
3229           if (unformat (input, "hash-table-buckets"))
3230             {
3231               if (!unformat (input, "%u", &val))
3232                 {
3233                   error = clib_error_return (0,
3234                                              "expecting maximum number of hash table buckets, got `%U`",
3235                                              format_unformat_error, input);
3236                   goto done;
3237                 }
3238               else
3239                 {
3240                   am->fa_conn_table_hash_num_buckets = val;
3241                   goto done;
3242                 }
3243             }
3244           if (unformat (input, "hash-table-memory"))
3245             {
3246               if (!unformat (input, "%U", unformat_memory_size, &memory_size))
3247                 {
3248                   error = clib_error_return (0,
3249                                              "expecting maximum amount of hash table memory, got `%U`",
3250                                              format_unformat_error, input);
3251                   goto done;
3252                 }
3253               else
3254                 {
3255                   am->fa_conn_table_hash_memory_size = memory_size;
3256                   goto done;
3257                 }
3258             }
3259           if (unformat (input, "event-trace"))
3260             {
3261               if (!unformat (input, "%u", &val))
3262                 {
3263                   error = clib_error_return (0,
3264                                              "expecting trace level, got `%U`",
3265                                              format_unformat_error, input);
3266                   goto done;
3267                 }
3268               else
3269                 {
3270                   am->trace_sessions = val;
3271                   goto done;
3272                 }
3273             }
3274           goto done;
3275         }
3276       if (unformat (input, "timeout"))
3277         {
3278           if (unformat (input, "udp"))
3279             {
3280               if (unformat (input, "idle"))
3281                 {
3282                   if (!unformat (input, "%u", &timeout))
3283                     {
3284                       error = clib_error_return (0,
3285                                                  "expecting timeout value in seconds, got `%U`",
3286                                                  format_unformat_error,
3287                                                  input);
3288                       goto done;
3289                     }
3290                   else
3291                     {
3292                       acl_set_timeout_sec (ACL_TIMEOUT_UDP_IDLE, timeout);
3293                       goto done;
3294                     }
3295                 }
3296             }
3297           if (unformat (input, "tcp"))
3298             {
3299               if (unformat (input, "idle"))
3300                 {
3301                   if (!unformat (input, "%u", &timeout))
3302                     {
3303                       error = clib_error_return (0,
3304                                                  "expecting timeout value in seconds, got `%U`",
3305                                                  format_unformat_error,
3306                                                  input);
3307                       goto done;
3308                     }
3309                   else
3310                     {
3311                       acl_set_timeout_sec (ACL_TIMEOUT_TCP_IDLE, timeout);
3312                       goto done;
3313                     }
3314                 }
3315               if (unformat (input, "transient"))
3316                 {
3317                   if (!unformat (input, "%u", &timeout))
3318                     {
3319                       error = clib_error_return (0,
3320                                                  "expecting timeout value in seconds, got `%U`",
3321                                                  format_unformat_error,
3322                                                  input);
3323                       goto done;
3324                     }
3325                   else
3326                     {
3327                       acl_set_timeout_sec (ACL_TIMEOUT_TCP_TRANSIENT,
3328                                            timeout);
3329                       goto done;
3330                     }
3331                 }
3332             }
3333           goto done;
3334         }
3335     }
3336 done:
3337   return error;
3338 }
3339
3340 static u8 *
3341 my_format_mac_address (u8 * s, va_list * args)
3342 {
3343   u8 *a = va_arg (*args, u8 *);
3344   return format (s, "%02x:%02x:%02x:%02x:%02x:%02x",
3345                  a[0], a[1], a[2], a[3], a[4], a[5]);
3346 }
3347
3348 static inline u8 *
3349 my_macip_acl_rule_t_pretty_format (u8 * out, va_list * args)
3350 {
3351   macip_acl_rule_t *a = va_arg (*args, macip_acl_rule_t *);
3352
3353   out = format (out, "%s action %d ip %U/%d mac %U mask %U",
3354                 a->is_ipv6 ? "ipv6" : "ipv4", a->is_permit,
3355                 format_ip46_address, &a->src_ip_addr,
3356                 a->is_ipv6 ? IP46_TYPE_IP6 : IP46_TYPE_IP4,
3357                 a->src_prefixlen,
3358                 my_format_mac_address, a->src_mac,
3359                 my_format_mac_address, a->src_mac_mask);
3360   return (out);
3361 }
3362
3363 static void
3364 macip_acl_print (acl_main_t * am, u32 macip_acl_index)
3365 {
3366   vlib_main_t *vm = am->vlib_main;
3367   int i;
3368
3369   /* Don't try to print someone else's memory */
3370   if (macip_acl_index > vec_len (am->macip_acls))
3371     return;
3372
3373   macip_acl_list_t *a = vec_elt_at_index (am->macip_acls, macip_acl_index);
3374   int free_pool_slot = pool_is_free_index (am->macip_acls, macip_acl_index);
3375
3376   vlib_cli_output (vm,
3377                    "MACIP acl_index: %d, count: %d (true len %d) tag {%s} is free pool slot: %d\n",
3378                    macip_acl_index, a->count, vec_len (a->rules), a->tag,
3379                    free_pool_slot);
3380   vlib_cli_output (vm,
3381                    "  ip4_table_index %d, ip6_table_index %d, l2_table_index %d\n",
3382                    a->ip4_table_index, a->ip6_table_index, a->l2_table_index);
3383   vlib_cli_output (vm,
3384                    "  out_ip4_table_index %d, out_ip6_table_index %d, out_l2_table_index %d\n",
3385                    a->out_ip4_table_index, a->out_ip6_table_index,
3386                    a->out_l2_table_index);
3387   for (i = 0; i < vec_len (a->rules); i++)
3388     vlib_cli_output (vm, "    rule %d: %U\n", i,
3389                      my_macip_acl_rule_t_pretty_format,
3390                      vec_elt_at_index (a->rules, i));
3391
3392 }
3393
3394 static clib_error_t *
3395 acl_show_aclplugin_macip_acl_fn (vlib_main_t * vm,
3396                                  unformat_input_t *
3397                                  input, vlib_cli_command_t * cmd)
3398 {
3399   clib_error_t *error = 0;
3400   acl_main_t *am = &acl_main;
3401   int i;
3402   u32 acl_index = ~0;
3403
3404   (void) unformat (input, "index %u", &acl_index);
3405
3406   for (i = 0; i < vec_len (am->macip_acls); i++)
3407     {
3408       /* Don't attempt to show the ACLs that do not exist */
3409       if (pool_is_free_index (am->macip_acls, i))
3410         continue;
3411
3412       if ((acl_index != ~0) && (acl_index != i))
3413         {
3414           continue;
3415         }
3416
3417       macip_acl_print (am, i);
3418       if (i < vec_len (am->sw_if_index_vec_by_macip_acl))
3419         {
3420           vlib_cli_output (vm, "  applied on sw_if_index(s): %U\n",
3421                            format_vec32,
3422                            vec_elt (am->sw_if_index_vec_by_macip_acl, i),
3423                            "%d");
3424         }
3425     }
3426
3427   return error;
3428 }
3429
3430 static clib_error_t *
3431 acl_show_aclplugin_macip_interface_fn (vlib_main_t * vm,
3432                                        unformat_input_t *
3433                                        input, vlib_cli_command_t * cmd)
3434 {
3435   clib_error_t *error = 0;
3436   acl_main_t *am = &acl_main;
3437   int i;
3438   for (i = 0; i < vec_len (am->macip_acl_by_sw_if_index); i++)
3439     {
3440       vlib_cli_output (vm, "  sw_if_index %d: %d\n", i,
3441                        vec_elt (am->macip_acl_by_sw_if_index, i));
3442     }
3443   return error;
3444 }
3445
3446 static void
3447 acl_plugin_show_acl (acl_main_t * am, u32 acl_index)
3448 {
3449   u32 i;
3450   vlib_main_t *vm = am->vlib_main;
3451
3452   for (i = 0; i < vec_len (am->acls); i++)
3453     {
3454       if (acl_is_not_defined (am, i))
3455         {
3456           /* don't attempt to show the ACLs that do not exist */
3457           continue;
3458         }
3459       if ((acl_index != ~0) && (acl_index != i))
3460         {
3461           continue;
3462         }
3463       acl_print_acl (vm, am, i);
3464
3465       if (i < vec_len (am->input_sw_if_index_vec_by_acl))
3466         {
3467           vlib_cli_output (vm, "  applied inbound on sw_if_index: %U\n",
3468                            format_vec32, am->input_sw_if_index_vec_by_acl[i],
3469                            "%d");
3470         }
3471       if (i < vec_len (am->output_sw_if_index_vec_by_acl))
3472         {
3473           vlib_cli_output (vm, "  applied outbound on sw_if_index: %U\n",
3474                            format_vec32, am->output_sw_if_index_vec_by_acl[i],
3475                            "%d");
3476         }
3477       if (i < vec_len (am->lc_index_vec_by_acl))
3478         {
3479           vlib_cli_output (vm, "  used in lookup context index: %U\n",
3480                            format_vec32, am->lc_index_vec_by_acl[i], "%d");
3481         }
3482     }
3483 }
3484
3485 static clib_error_t *
3486 acl_show_aclplugin_acl_fn (vlib_main_t * vm,
3487                            unformat_input_t * input, vlib_cli_command_t * cmd)
3488 {
3489   clib_error_t *error = 0;
3490   acl_main_t *am = &acl_main;
3491
3492   u32 acl_index = ~0;
3493   (void) unformat (input, "index %u", &acl_index);
3494
3495   acl_plugin_show_acl (am, acl_index);
3496   return error;
3497 }
3498
3499 static clib_error_t *
3500 acl_show_aclplugin_lookup_context_fn (vlib_main_t * vm,
3501                                       unformat_input_t * input,
3502                                       vlib_cli_command_t * cmd)
3503 {
3504   clib_error_t *error = 0;
3505
3506   u32 lc_index = ~0;
3507   (void) unformat (input, "index %u", &lc_index);
3508
3509   acl_plugin_show_lookup_context (lc_index);
3510   return error;
3511 }
3512
3513 static clib_error_t *
3514 acl_show_aclplugin_lookup_user_fn (vlib_main_t * vm,
3515                                    unformat_input_t * input,
3516                                    vlib_cli_command_t * cmd)
3517 {
3518   clib_error_t *error = 0;
3519
3520   u32 lc_index = ~0;
3521   (void) unformat (input, "index %u", &lc_index);
3522
3523   acl_plugin_show_lookup_user (lc_index);
3524   return error;
3525 }
3526
3527
3528 static void
3529 acl_plugin_show_interface (acl_main_t * am, u32 sw_if_index, int show_acl,
3530                            int detail)
3531 {
3532   vlib_main_t *vm = am->vlib_main;
3533   u32 swi;
3534   u32 *pj;
3535   for (swi = 0; (swi < vec_len (am->input_acl_vec_by_sw_if_index)) ||
3536        (swi < vec_len (am->output_acl_vec_by_sw_if_index)); swi++)
3537     {
3538       /* if we need a particular interface, skip all the others */
3539       if ((sw_if_index != ~0) && (sw_if_index != swi))
3540         continue;
3541
3542       vlib_cli_output (vm, "sw_if_index %d:\n", swi);
3543
3544       if (intf_has_etype_whitelist (am, swi, 1))
3545         {
3546           vlib_cli_output (vm, "  input etype whitelist: %U", format_vec16,
3547                            am->input_etype_whitelist_by_sw_if_index[swi],
3548                            "%04x");
3549         }
3550       if (intf_has_etype_whitelist (am, swi, 0))
3551         {
3552           vlib_cli_output (vm, " output etype whitelist: %U", format_vec16,
3553                            am->output_etype_whitelist_by_sw_if_index[swi],
3554                            "%04x");
3555         }
3556
3557       if ((swi < vec_len (am->input_acl_vec_by_sw_if_index)) &&
3558           (vec_len (am->input_acl_vec_by_sw_if_index[swi]) > 0))
3559         {
3560           vlib_cli_output (vm, "  input acl(s): %U", format_vec32,
3561                            am->input_acl_vec_by_sw_if_index[swi], "%d");
3562           if (show_acl)
3563             {
3564               vlib_cli_output (vm, "\n");
3565               vec_foreach (pj, am->input_acl_vec_by_sw_if_index[swi])
3566               {
3567                 acl_print_acl (vm, am, *pj);
3568               }
3569               vlib_cli_output (vm, "\n");
3570             }
3571         }
3572
3573       if ((swi < vec_len (am->output_acl_vec_by_sw_if_index)) &&
3574           (vec_len (am->output_acl_vec_by_sw_if_index[swi]) > 0))
3575         {
3576           vlib_cli_output (vm, "  output acl(s): %U", format_vec32,
3577                            am->output_acl_vec_by_sw_if_index[swi], "%d");
3578           if (show_acl)
3579             {
3580               vlib_cli_output (vm, "\n");
3581               vec_foreach (pj, am->output_acl_vec_by_sw_if_index[swi])
3582               {
3583                 acl_print_acl (vm, am, *pj);
3584               }
3585               vlib_cli_output (vm, "\n");
3586             }
3587         }
3588       if (detail && (swi < vec_len (am->input_lc_index_by_sw_if_index)))
3589         {
3590           vlib_cli_output (vm, "   input lookup context index: %d",
3591                            am->input_lc_index_by_sw_if_index[swi]);
3592         }
3593       if (detail && (swi < vec_len (am->output_lc_index_by_sw_if_index)))
3594         {
3595           vlib_cli_output (vm, "  output lookup context index: %d",
3596                            am->output_lc_index_by_sw_if_index[swi]);
3597         }
3598     }
3599
3600 }
3601
3602
3603 static clib_error_t *
3604 acl_show_aclplugin_decode_5tuple_fn (vlib_main_t * vm,
3605                                      unformat_input_t * input,
3606                                      vlib_cli_command_t * cmd)
3607 {
3608   clib_error_t *error = 0;
3609   u64 five_tuple[6] = { 0, 0, 0, 0, 0, 0 };
3610
3611   if (unformat
3612       (input, "%llx %llx %llx %llx %llx %llx", &five_tuple[0], &five_tuple[1],
3613        &five_tuple[2], &five_tuple[3], &five_tuple[4], &five_tuple[5]))
3614     vlib_cli_output (vm, "5-tuple structure decode: %U\n\n",
3615                      format_acl_plugin_5tuple, five_tuple);
3616   else
3617     error = clib_error_return (0, "expecting 6 hex integers");
3618   return error;
3619 }
3620
3621
3622 static clib_error_t *
3623 acl_show_aclplugin_interface_fn (vlib_main_t * vm,
3624                                  unformat_input_t *
3625                                  input, vlib_cli_command_t * cmd)
3626 {
3627   clib_error_t *error = 0;
3628   acl_main_t *am = &acl_main;
3629
3630   u32 sw_if_index = ~0;
3631   (void) unformat (input, "sw_if_index %u", &sw_if_index);
3632   int show_acl = unformat (input, "acl");
3633   int detail = unformat (input, "detail");
3634
3635   acl_plugin_show_interface (am, sw_if_index, show_acl, detail);
3636   return error;
3637 }
3638
3639 static clib_error_t *
3640 acl_show_aclplugin_memory_fn (vlib_main_t * vm,
3641                               unformat_input_t * input,
3642                               vlib_cli_command_t * cmd)
3643 {
3644   clib_error_t *error = 0;
3645   acl_main_t *am = &acl_main;
3646
3647   vlib_cli_output (vm, "ACL plugin main heap statistics:\n");
3648   if (am->acl_mheap)
3649     {
3650       vlib_cli_output (vm, " %U\n", format_mheap, am->acl_mheap, 1);
3651     }
3652   else
3653     {
3654       vlib_cli_output (vm, " Not initialized\n");
3655     }
3656   vlib_cli_output (vm, "ACL hash lookup support heap statistics:\n");
3657   if (am->hash_lookup_mheap)
3658     {
3659       vlib_cli_output (vm, " %U\n", format_mheap, am->hash_lookup_mheap, 1);
3660     }
3661   else
3662     {
3663       vlib_cli_output (vm, " Not initialized\n");
3664     }
3665   return error;
3666 }
3667
3668 static void
3669 acl_plugin_show_sessions (acl_main_t * am,
3670                           u32 show_session_thread_id,
3671                           u32 show_session_session_index)
3672 {
3673   vlib_main_t *vm = am->vlib_main;
3674   u16 wk;
3675   vnet_interface_main_t *im = &am->vnet_main->interface_main;
3676   vnet_sw_interface_t *swif;
3677
3678   {
3679     u64 n_adds = am->fa_session_total_adds;
3680     u64 n_dels = am->fa_session_total_dels;
3681     vlib_cli_output (vm, "Sessions total: add %lu - del %lu = %lu", n_adds,
3682                      n_dels, n_adds - n_dels);
3683   }
3684   vlib_cli_output (vm, "\n\nPer-thread data:");
3685   for (wk = 0; wk < vec_len (am->per_worker_data); wk++)
3686     {
3687       acl_fa_per_worker_data_t *pw = &am->per_worker_data[wk];
3688       vlib_cli_output (vm, "Thread #%d:", wk);
3689       if (show_session_thread_id == wk
3690           && show_session_session_index < pool_len (pw->fa_sessions_pool))
3691         {
3692           vlib_cli_output (vm, "  session index %u:",
3693                            show_session_session_index);
3694           fa_session_t *sess =
3695             pw->fa_sessions_pool + show_session_session_index;
3696           u64 *m = (u64 *) & sess->info;
3697           vlib_cli_output (vm,
3698                            "    info: %016llx %016llx %016llx %016llx %016llx %016llx",
3699                            m[0], m[1], m[2], m[3], m[4], m[5]);
3700           vlib_cli_output (vm, "    sw_if_index: %u", sess->sw_if_index);
3701           vlib_cli_output (vm, "    tcp_flags_seen: %x",
3702                            sess->tcp_flags_seen.as_u16);
3703           vlib_cli_output (vm, "    last active time: %lu",
3704                            sess->last_active_time);
3705           vlib_cli_output (vm, "    thread index: %u", sess->thread_index);
3706           vlib_cli_output (vm, "    link enqueue time: %lu",
3707                            sess->link_enqueue_time);
3708           vlib_cli_output (vm, "    link next index: %u",
3709                            sess->link_next_idx);
3710           vlib_cli_output (vm, "    link prev index: %u",
3711                            sess->link_prev_idx);
3712           vlib_cli_output (vm, "    link list id: %u", sess->link_list_id);
3713         }
3714       vlib_cli_output (vm, "  connection add/del stats:", wk);
3715       pool_foreach (swif, im->sw_interfaces, (
3716                                                {
3717                                                u32 sw_if_index =
3718                                                swif->sw_if_index;
3719                                                u64 n_adds =
3720                                                sw_if_index <
3721                                                vec_len
3722                                                (pw->fa_session_adds_by_sw_if_index)
3723                                                ?
3724                                                pw->fa_session_adds_by_sw_if_index
3725                                                [sw_if_index] : 0;
3726                                                u64 n_dels =
3727                                                sw_if_index <
3728                                                vec_len
3729                                                (pw->fa_session_dels_by_sw_if_index)
3730                                                ?
3731                                                pw->fa_session_dels_by_sw_if_index
3732                                                [sw_if_index] : 0;
3733                                                vlib_cli_output (vm,
3734                                                                 "    sw_if_index %d: add %lu - del %lu = %lu",
3735                                                                 sw_if_index,
3736                                                                 n_adds,
3737                                                                 n_dels,
3738                                                                 n_adds -
3739                                                                 n_dels);
3740                                                }
3741                     ));
3742
3743       vlib_cli_output (vm, "  connection timeout type lists:", wk);
3744       u8 tt = 0;
3745       for (tt = 0; tt < ACL_N_TIMEOUTS; tt++)
3746         {
3747           u32 head_session_index = pw->fa_conn_list_head[tt];
3748           vlib_cli_output (vm, "  fa_conn_list_head[%d]: %d", tt,
3749                            head_session_index);
3750           if (~0 != head_session_index)
3751             {
3752               fa_session_t *sess = pw->fa_sessions_pool + head_session_index;
3753               vlib_cli_output (vm, "    last active time: %lu",
3754                                sess->last_active_time);
3755               vlib_cli_output (vm, "    link enqueue time: %lu",
3756                                sess->link_enqueue_time);
3757             }
3758         }
3759
3760       vlib_cli_output (vm, "  Next expiry time: %lu", pw->next_expiry_time);
3761       vlib_cli_output (vm, "  Requeue until time: %lu",
3762                        pw->requeue_until_time);
3763       vlib_cli_output (vm, "  Current time wait interval: %lu",
3764                        pw->current_time_wait_interval);
3765       vlib_cli_output (vm, "  Count of deleted sessions: %lu",
3766                        pw->cnt_deleted_sessions);
3767       vlib_cli_output (vm, "  Delete already deleted: %lu",
3768                        pw->cnt_already_deleted_sessions);
3769       vlib_cli_output (vm, "  Session timers restarted: %lu",
3770                        pw->cnt_session_timer_restarted);
3771       vlib_cli_output (vm, "  Swipe until this time: %lu",
3772                        pw->swipe_end_time);
3773       vlib_cli_output (vm, "  sw_if_index serviced bitmap: %U",
3774                        format_bitmap_hex, pw->serviced_sw_if_index_bitmap);
3775       vlib_cli_output (vm, "  pending clear intfc bitmap : %U",
3776                        format_bitmap_hex,
3777                        pw->pending_clear_sw_if_index_bitmap);
3778       vlib_cli_output (vm, "  clear in progress: %u", pw->clear_in_process);
3779       vlib_cli_output (vm, "  interrupt is pending: %d",
3780                        pw->interrupt_is_pending);
3781       vlib_cli_output (vm, "  interrupt is needed: %d",
3782                        pw->interrupt_is_needed);
3783       vlib_cli_output (vm, "  interrupt is unwanted: %d",
3784                        pw->interrupt_is_unwanted);
3785       vlib_cli_output (vm, "  interrupt generation: %d",
3786                        pw->interrupt_generation);
3787     }
3788   vlib_cli_output (vm, "\n\nConn cleaner thread counters:");
3789 #define _(cnt, desc) vlib_cli_output(vm, "             %20lu: %s", am->cnt, desc);
3790   foreach_fa_cleaner_counter;
3791 #undef _
3792   vlib_cli_output (vm, "Interrupt generation: %d",
3793                    am->fa_interrupt_generation);
3794   vlib_cli_output (vm,
3795                    "Sessions per interval: min %lu max %lu increment: %f ms current: %f ms",
3796                    am->fa_min_deleted_sessions_per_interval,
3797                    am->fa_max_deleted_sessions_per_interval,
3798                    am->fa_cleaner_wait_time_increment * 1000.0,
3799                    ((f64) am->fa_current_cleaner_timer_wait_interval) *
3800                    1000.0 / (f64) vm->clib_time.clocks_per_second);
3801 }
3802
3803 static clib_error_t *
3804 acl_show_aclplugin_sessions_fn (vlib_main_t * vm,
3805                                 unformat_input_t * input,
3806                                 vlib_cli_command_t * cmd)
3807 {
3808   clib_error_t *error = 0;
3809   acl_main_t *am = &acl_main;
3810
3811   u32 show_bihash_verbose = 0;
3812   u32 show_session_thread_id = ~0;
3813   u32 show_session_session_index = ~0;
3814   (void) unformat (input, "thread %u index %u", &show_session_thread_id,
3815                    &show_session_session_index);
3816   (void) unformat (input, "verbose %u", &show_bihash_verbose);
3817
3818   acl_plugin_show_sessions (am, show_session_thread_id,
3819                             show_session_session_index);
3820   show_fa_sessions_hash (vm, show_bihash_verbose);
3821   return error;
3822 }
3823
3824 static clib_error_t *
3825 acl_show_aclplugin_tables_fn (vlib_main_t * vm,
3826                               unformat_input_t * input,
3827                               vlib_cli_command_t * cmd)
3828 {
3829   clib_error_t *error = 0;
3830
3831   u32 acl_index = ~0;
3832   u32 sw_if_index = ~0;
3833   int show_acl_hash_info = 0;
3834   int show_applied_info = 0;
3835   int show_mask_type = 0;
3836   int show_bihash = 0;
3837   u32 show_bihash_verbose = 0;
3838
3839   if (unformat (input, "acl"))
3840     {
3841       show_acl_hash_info = 1;
3842       /* mask-type is handy to see as well right there */
3843       show_mask_type = 1;
3844       unformat (input, "index %u", &acl_index);
3845     }
3846   else if (unformat (input, "applied"))
3847     {
3848       show_applied_info = 1;
3849       unformat (input, "sw_if_index %u", &sw_if_index);
3850     }
3851   else if (unformat (input, "mask"))
3852     {
3853       show_mask_type = 1;
3854     }
3855   else if (unformat (input, "hash"))
3856     {
3857       show_bihash = 1;
3858       unformat (input, "verbose %u", &show_bihash_verbose);
3859     }
3860
3861   if (!
3862       (show_mask_type || show_acl_hash_info || show_applied_info
3863        || show_bihash))
3864     {
3865       /* if no qualifiers specified, show all */
3866       show_mask_type = 1;
3867       show_acl_hash_info = 1;
3868       show_applied_info = 1;
3869       show_bihash = 1;
3870     }
3871   if (show_mask_type)
3872     acl_plugin_show_tables_mask_type ();
3873   if (show_acl_hash_info)
3874     acl_plugin_show_tables_acl_hash_info (acl_index);
3875   if (show_applied_info)
3876     acl_plugin_show_tables_applied_info (sw_if_index);
3877   if (show_bihash)
3878     acl_plugin_show_tables_bihash (show_bihash_verbose);
3879
3880   return error;
3881 }
3882
3883 static clib_error_t *
3884 acl_clear_aclplugin_fn (vlib_main_t * vm,
3885                         unformat_input_t * input, vlib_cli_command_t * cmd)
3886 {
3887   clib_error_t *error = 0;
3888   acl_main_t *am = &acl_main;
3889   vlib_process_signal_event (am->vlib_main, am->fa_cleaner_node_index,
3890                              ACL_FA_CLEANER_DELETE_BY_SW_IF_INDEX, ~0);
3891   return error;
3892 }
3893
3894  /* *INDENT-OFF* */
3895 VLIB_CLI_COMMAND (aclplugin_set_command, static) = {
3896     .path = "set acl-plugin",
3897     .short_help = "set acl-plugin session timeout {{udp idle}|tcp {idle|transient}} <seconds>",
3898     .function = acl_set_aclplugin_fn,
3899 };
3900
3901 VLIB_CLI_COMMAND (aclplugin_show_acl_command, static) = {
3902     .path = "show acl-plugin acl",
3903     .short_help = "show acl-plugin acl [index N]",
3904     .function = acl_show_aclplugin_acl_fn,
3905 };
3906
3907 VLIB_CLI_COMMAND (aclplugin_show_lookup_context_command, static) = {
3908     .path = "show acl-plugin lookup context",
3909     .short_help = "show acl-plugin lookup context [index N]",
3910     .function = acl_show_aclplugin_lookup_context_fn,
3911 };
3912
3913 VLIB_CLI_COMMAND (aclplugin_show_lookup_user_command, static) = {
3914     .path = "show acl-plugin lookup user",
3915     .short_help = "show acl-plugin lookup user [index N]",
3916     .function = acl_show_aclplugin_lookup_user_fn,
3917 };
3918
3919 VLIB_CLI_COMMAND (aclplugin_show_decode_5tuple_command, static) = {
3920     .path = "show acl-plugin decode 5tuple",
3921     .short_help = "show acl-plugin decode 5tuple XXXX XXXX XXXX XXXX XXXX XXXX",
3922     .function = acl_show_aclplugin_decode_5tuple_fn,
3923 };
3924
3925 VLIB_CLI_COMMAND (aclplugin_show_interface_command, static) = {
3926     .path = "show acl-plugin interface",
3927     .short_help = "show acl-plugin interface [sw_if_index N] [acl]",
3928     .function = acl_show_aclplugin_interface_fn,
3929 };
3930
3931 VLIB_CLI_COMMAND (aclplugin_show_memory_command, static) = {
3932     .path = "show acl-plugin memory",
3933     .short_help = "show acl-plugin memory",
3934     .function = acl_show_aclplugin_memory_fn,
3935 };
3936
3937 VLIB_CLI_COMMAND (aclplugin_show_sessions_command, static) = {
3938     .path = "show acl-plugin sessions",
3939     .short_help = "show acl-plugin sessions",
3940     .function = acl_show_aclplugin_sessions_fn,
3941 };
3942
3943 VLIB_CLI_COMMAND (aclplugin_show_tables_command, static) = {
3944     .path = "show acl-plugin tables",
3945     .short_help = "show acl-plugin tables [ acl [index N] | applied [ sw_if_index N ] | mask | hash [verbose N] ]",
3946     .function = acl_show_aclplugin_tables_fn,
3947 };
3948
3949 VLIB_CLI_COMMAND (aclplugin_show_macip_acl_command, static) = {
3950     .path = "show acl-plugin macip acl",
3951     .short_help = "show acl-plugin macip acl [index N]",
3952     .function = acl_show_aclplugin_macip_acl_fn,
3953 };
3954
3955 VLIB_CLI_COMMAND (aclplugin_show_macip_interface_command, static) = {
3956     .path = "show acl-plugin macip interface",
3957     .short_help = "show acl-plugin macip interface",
3958     .function = acl_show_aclplugin_macip_interface_fn,
3959 };
3960
3961 VLIB_CLI_COMMAND (aclplugin_clear_command, static) = {
3962     .path = "clear acl-plugin sessions",
3963     .short_help = "clear acl-plugin sessions",
3964     .function = acl_clear_aclplugin_fn,
3965 };
3966 /* *INDENT-ON* */
3967
3968 static clib_error_t *
3969 acl_plugin_config (vlib_main_t * vm, unformat_input_t * input)
3970 {
3971   acl_main_t *am = &acl_main;
3972   u32 conn_table_hash_buckets;
3973   u32 conn_table_hash_memory_size;
3974   u32 conn_table_max_entries;
3975   u32 main_heap_size;
3976   u32 hash_heap_size;
3977   u32 hash_lookup_hash_buckets;
3978   u32 hash_lookup_hash_memory;
3979
3980   while (unformat_check_input (input) != UNFORMAT_END_OF_INPUT)
3981     {
3982       if (unformat
3983           (input, "connection hash buckets %d", &conn_table_hash_buckets))
3984         am->fa_conn_table_hash_num_buckets = conn_table_hash_buckets;
3985       else if (unformat (input, "connection hash memory %d",
3986                          &conn_table_hash_memory_size))
3987         am->fa_conn_table_hash_memory_size = conn_table_hash_memory_size;
3988       else if (unformat (input, "connection count max %d",
3989                          &conn_table_max_entries))
3990         am->fa_conn_table_max_entries = conn_table_max_entries;
3991       else if (unformat (input, "main heap size %d", &main_heap_size))
3992         am->acl_mheap_size = main_heap_size;
3993       else if (unformat (input, "hash lookup heap size %d", &hash_heap_size))
3994         am->hash_lookup_mheap_size = hash_heap_size;
3995       else if (unformat (input, "hash lookup hash buckets %d",
3996                          &hash_lookup_hash_buckets))
3997         am->hash_lookup_hash_buckets = hash_lookup_hash_buckets;
3998       else if (unformat (input, "hash lookup hash memory %d",
3999                          &hash_lookup_hash_memory))
4000         am->hash_lookup_hash_memory = hash_lookup_hash_memory;
4001       else
4002         return clib_error_return (0, "unknown input '%U'",
4003                                   format_unformat_error, input);
4004     }
4005   return 0;
4006 }
4007
4008 VLIB_CONFIG_FUNCTION (acl_plugin_config, "acl-plugin");
4009
4010 static clib_error_t *
4011 acl_init (vlib_main_t * vm)
4012 {
4013   acl_main_t *am = &acl_main;
4014   clib_error_t *error = 0;
4015   memset (am, 0, sizeof (*am));
4016   am->vlib_main = vm;
4017   am->vnet_main = vnet_get_main ();
4018
4019   u8 *name = format (0, "acl_%08x%c", api_version, 0);
4020
4021   /* Ask for a correctly-sized block of API message decode slots */
4022   am->msg_id_base = vl_msg_api_get_msg_ids ((char *) name,
4023                                             VL_MSG_FIRST_AVAILABLE);
4024
4025   error = acl_plugin_api_hookup (vm);
4026
4027   /* Add our API messages to the global name_crc hash table */
4028   setup_message_id_table (am, &api_main);
4029
4030   vec_free (name);
4031
4032   acl_setup_fa_nodes ();
4033
4034   am->acl_mheap_size = ACL_FA_DEFAULT_HEAP_SIZE;
4035   am->hash_lookup_mheap_size = ACL_PLUGIN_HASH_LOOKUP_HEAP_SIZE;
4036
4037   am->hash_lookup_hash_buckets = ACL_PLUGIN_HASH_LOOKUP_HASH_BUCKETS;
4038   am->hash_lookup_hash_memory = ACL_PLUGIN_HASH_LOOKUP_HASH_MEMORY;
4039
4040   am->session_timeout_sec[ACL_TIMEOUT_TCP_TRANSIENT] =
4041     TCP_SESSION_TRANSIENT_TIMEOUT_SEC;
4042   am->session_timeout_sec[ACL_TIMEOUT_TCP_IDLE] =
4043     TCP_SESSION_IDLE_TIMEOUT_SEC;
4044   am->session_timeout_sec[ACL_TIMEOUT_UDP_IDLE] =
4045     UDP_SESSION_IDLE_TIMEOUT_SEC;
4046
4047   am->fa_conn_table_hash_num_buckets =
4048     ACL_FA_CONN_TABLE_DEFAULT_HASH_NUM_BUCKETS;
4049   am->fa_conn_table_hash_memory_size =
4050     ACL_FA_CONN_TABLE_DEFAULT_HASH_MEMORY_SIZE;
4051   am->fa_conn_table_max_entries = ACL_FA_CONN_TABLE_DEFAULT_MAX_ENTRIES;
4052   vlib_thread_main_t *tm = vlib_get_thread_main ();
4053   vec_validate (am->per_worker_data, tm->n_vlib_mains - 1);
4054   {
4055     u16 wk;
4056     u8 tt;
4057     for (wk = 0; wk < vec_len (am->per_worker_data); wk++)
4058       {
4059         acl_fa_per_worker_data_t *pw = &am->per_worker_data[wk];
4060         vec_validate (pw->fa_conn_list_head, ACL_N_TIMEOUTS - 1);
4061         vec_validate (pw->fa_conn_list_tail, ACL_N_TIMEOUTS - 1);
4062         for (tt = 0; tt < ACL_N_TIMEOUTS; tt++)
4063           {
4064             pw->fa_conn_list_head[tt] = ~0;
4065             pw->fa_conn_list_tail[tt] = ~0;
4066           }
4067       }
4068   }
4069
4070   am->fa_min_deleted_sessions_per_interval =
4071     ACL_FA_DEFAULT_MIN_DELETED_SESSIONS_PER_INTERVAL;
4072   am->fa_max_deleted_sessions_per_interval =
4073     ACL_FA_DEFAULT_MAX_DELETED_SESSIONS_PER_INTERVAL;
4074   am->fa_cleaner_wait_time_increment =
4075     ACL_FA_DEFAULT_CLEANER_WAIT_TIME_INCREMENT;
4076
4077   am->fa_cleaner_cnt_delete_by_sw_index = 0;
4078   am->fa_cleaner_cnt_delete_by_sw_index_ok = 0;
4079   am->fa_cleaner_cnt_unknown_event = 0;
4080   am->fa_cleaner_cnt_timer_restarted = 0;
4081   am->fa_cleaner_cnt_wait_with_timeout = 0;
4082
4083
4084 #define _(N, v, s) am->fa_ipv6_known_eh_bitmap = clib_bitmap_set(am->fa_ipv6_known_eh_bitmap, v, 1);
4085   foreach_acl_eh
4086 #undef _
4087     am->l4_match_nonfirst_fragment = 1;
4088
4089   /* use the new fancy hash-based matching */
4090   am->use_hash_acl_matching = 1;
4091
4092   am->interface_acl_user_id =
4093     acl_plugin_register_user_module ("interface ACL", "sw_if_index",
4094                                      "is_input");
4095
4096   return error;
4097 }
4098
4099 VLIB_INIT_FUNCTION (acl_init);
4100
4101
4102 /*
4103  * fd.io coding-style-patch-verification: ON
4104  *
4105  * Local Variables:
4106  * eval: (c-set-style "gnu")
4107  * End:
4108  */