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
2167 /* No check for validity of sw_if_index - the callers were supposed to validate */
2168
2169 static int
2170 macip_acl_interface_del_acl (acl_main_t * am, u32 sw_if_index)
2171 {
2172   int rv;
2173   u32 macip_acl_index;
2174   macip_acl_list_t *a;
2175   void *oldheap = acl_set_heap (am);
2176   vec_validate_init_empty (am->macip_acl_by_sw_if_index, sw_if_index, ~0);
2177   clib_mem_set_heap (oldheap);
2178   macip_acl_index = am->macip_acl_by_sw_if_index[sw_if_index];
2179   /* No point in deleting MACIP ACL which is not applied */
2180   if (~0 == macip_acl_index)
2181     return VNET_API_ERROR_NO_SUCH_ENTRY;
2182   a = pool_elt_at_index (am->macip_acls, macip_acl_index);
2183   /* remove the classifier tables off the interface L2 ACL */
2184   rv =
2185     vnet_set_input_acl_intfc (am->vlib_main, sw_if_index, a->ip4_table_index,
2186                               a->ip6_table_index, a->l2_table_index, 0);
2187   rv |=
2188     vnet_set_output_acl_intfc (am->vlib_main, sw_if_index,
2189                                a->out_ip4_table_index, a->out_ip6_table_index,
2190                                a->out_l2_table_index, 0);
2191   /* Unset the MACIP ACL index */
2192   am->macip_acl_by_sw_if_index[sw_if_index] = ~0;
2193   return rv;
2194 }
2195
2196 /* No check for validity of sw_if_index - the callers were supposed to validate */
2197
2198 static int
2199 macip_acl_interface_add_acl (acl_main_t * am, u32 sw_if_index,
2200                              u32 macip_acl_index)
2201 {
2202   macip_acl_list_t *a;
2203   int rv;
2204   if (pool_is_free_index (am->macip_acls, macip_acl_index))
2205     {
2206       return VNET_API_ERROR_NO_SUCH_ENTRY;
2207     }
2208   void *oldheap = acl_set_heap (am);
2209   a = pool_elt_at_index (am->macip_acls, macip_acl_index);
2210   vec_validate_init_empty (am->macip_acl_by_sw_if_index, sw_if_index, ~0);
2211   clib_mem_set_heap (oldheap);
2212   /* If there already a MACIP ACL applied, unapply it */
2213   if (~0 != am->macip_acl_by_sw_if_index[sw_if_index])
2214     macip_acl_interface_del_acl (am, sw_if_index);
2215   am->macip_acl_by_sw_if_index[sw_if_index] = macip_acl_index;
2216
2217   /* Apply the classifier tables for L2 ACLs */
2218   rv =
2219     vnet_set_input_acl_intfc (am->vlib_main, sw_if_index, a->ip4_table_index,
2220                               a->ip6_table_index, a->l2_table_index, 1);
2221   rv |=
2222     vnet_set_output_acl_intfc (am->vlib_main, sw_if_index,
2223                                a->out_ip4_table_index, a->out_ip6_table_index,
2224                                a->out_l2_table_index, 1);
2225   return rv;
2226 }
2227
2228 static int
2229 macip_acl_del_list (u32 acl_list_index)
2230 {
2231   acl_main_t *am = &acl_main;
2232   macip_acl_list_t *a;
2233   int i;
2234   if (pool_is_free_index (am->macip_acls, acl_list_index))
2235     {
2236       return VNET_API_ERROR_NO_SUCH_ENTRY;
2237     }
2238
2239   /* delete any references to the ACL */
2240   for (i = 0; i < vec_len (am->macip_acl_by_sw_if_index); i++)
2241     {
2242       if (am->macip_acl_by_sw_if_index[i] == acl_list_index)
2243         {
2244           macip_acl_interface_del_acl (am, i);
2245         }
2246     }
2247
2248   void *oldheap = acl_set_heap (am);
2249   /* Now that classifier tables are detached, clean them up */
2250   macip_destroy_classify_tables (am, acl_list_index);
2251
2252   /* now we can delete the ACL itself */
2253   a = pool_elt_at_index (am->macip_acls, acl_list_index);
2254   if (a->rules)
2255     {
2256       vec_free (a->rules);
2257     }
2258   pool_put (am->macip_acls, a);
2259   clib_mem_set_heap (oldheap);
2260   return 0;
2261 }
2262
2263
2264 static int
2265 macip_acl_interface_add_del_acl (u32 sw_if_index, u8 is_add,
2266                                  u32 acl_list_index)
2267 {
2268   acl_main_t *am = &acl_main;
2269   int rv = -1;
2270   if (is_add)
2271     {
2272       rv = macip_acl_interface_add_acl (am, sw_if_index, acl_list_index);
2273     }
2274   else
2275     {
2276       rv = macip_acl_interface_del_acl (am, sw_if_index);
2277     }
2278   return rv;
2279 }
2280
2281 /*
2282  * If the client does not allocate enough memory for a variable-length
2283  * message, and then proceed to use it as if the full memory allocated,
2284  * absent the check we happily consume that on the VPP side, and go
2285  * along as if nothing happened. However, the resulting
2286  * effects range from just garbage in the API decode
2287  * (because the decoder snoops too far), to potential memory
2288  * corruptions.
2289  *
2290  * This verifies that the actual length of the message is
2291  * at least expected_len, and complains loudly if it is not.
2292  *
2293  * A failing check here is 100% a software bug on the API user side,
2294  * so we might as well yell.
2295  *
2296  */
2297 static int
2298 verify_message_len (void *mp, u32 expected_len, char *where)
2299 {
2300   u32 supplied_len = vl_msg_api_get_msg_length (mp);
2301   if (supplied_len < expected_len)
2302     {
2303       clib_warning ("%s: Supplied message length %d is less than expected %d",
2304                     where, supplied_len, expected_len);
2305       return 0;
2306     }
2307   else
2308     {
2309       return 1;
2310     }
2311 }
2312
2313 /* API message handler */
2314 static void
2315 vl_api_acl_add_replace_t_handler (vl_api_acl_add_replace_t * mp)
2316 {
2317   vl_api_acl_add_replace_reply_t *rmp;
2318   acl_main_t *am = &acl_main;
2319   int rv;
2320   u32 acl_list_index = ntohl (mp->acl_index);
2321   u32 acl_count = ntohl (mp->count);
2322   u32 expected_len = sizeof (*mp) + acl_count * sizeof (mp->r[0]);
2323
2324   if (verify_message_len (mp, expected_len, "acl_add_replace"))
2325     {
2326       rv = acl_add_list (acl_count, mp->r, &acl_list_index, mp->tag);
2327     }
2328   else
2329     {
2330       rv = VNET_API_ERROR_INVALID_VALUE;
2331     }
2332
2333   /* *INDENT-OFF* */
2334   REPLY_MACRO2(VL_API_ACL_ADD_REPLACE_REPLY,
2335   ({
2336     rmp->acl_index = htonl(acl_list_index);
2337   }));
2338   /* *INDENT-ON* */
2339 }
2340
2341 static void
2342 vl_api_acl_del_t_handler (vl_api_acl_del_t * mp)
2343 {
2344   acl_main_t *am = &acl_main;
2345   vl_api_acl_del_reply_t *rmp;
2346   int rv;
2347
2348   rv = acl_del_list (ntohl (mp->acl_index));
2349
2350   REPLY_MACRO (VL_API_ACL_DEL_REPLY);
2351 }
2352
2353 static void
2354 vl_api_acl_interface_add_del_t_handler (vl_api_acl_interface_add_del_t * mp)
2355 {
2356   acl_main_t *am = &acl_main;
2357   vnet_interface_main_t *im = &am->vnet_main->interface_main;
2358   u32 sw_if_index = ntohl (mp->sw_if_index);
2359   vl_api_acl_interface_add_del_reply_t *rmp;
2360   int rv = -1;
2361
2362   if (pool_is_free_index (im->sw_interfaces, sw_if_index))
2363     rv = VNET_API_ERROR_INVALID_SW_IF_INDEX;
2364   else
2365     rv =
2366       acl_interface_add_del_inout_acl (sw_if_index, mp->is_add,
2367                                        mp->is_input, ntohl (mp->acl_index));
2368
2369   REPLY_MACRO (VL_API_ACL_INTERFACE_ADD_DEL_REPLY);
2370 }
2371
2372 static void
2373   vl_api_acl_interface_set_acl_list_t_handler
2374   (vl_api_acl_interface_set_acl_list_t * mp)
2375 {
2376   acl_main_t *am = &acl_main;
2377   vl_api_acl_interface_set_acl_list_reply_t *rmp;
2378   int rv = 0;
2379   int i;
2380   vnet_interface_main_t *im = &am->vnet_main->interface_main;
2381   u32 sw_if_index = ntohl (mp->sw_if_index);
2382
2383   if (pool_is_free_index (im->sw_interfaces, sw_if_index))
2384     rv = VNET_API_ERROR_INVALID_SW_IF_INDEX;
2385   else
2386     {
2387       int may_clear_sessions = 1;
2388       for (i = 0; i < mp->count; i++)
2389         {
2390           if (acl_is_not_defined (am, ntohl (mp->acls[i])))
2391             {
2392               /* ACL does not exist, so we can not apply it */
2393               rv = VNET_API_ERROR_NO_SUCH_ENTRY;
2394             }
2395         }
2396       if (0 == rv)
2397         {
2398           void *oldheap = acl_set_heap (am);
2399
2400           u32 *in_acl_vec = 0;
2401           u32 *out_acl_vec = 0;
2402           for (i = 0; i < mp->count; i++)
2403             if (i < mp->n_input)
2404               vec_add1 (in_acl_vec, clib_net_to_host_u32 (mp->acls[i]));
2405             else
2406               vec_add1 (out_acl_vec, clib_net_to_host_u32 (mp->acls[i]));
2407
2408           rv =
2409             acl_interface_set_inout_acl_list (am, sw_if_index, 0, out_acl_vec,
2410                                               &may_clear_sessions);
2411           rv = rv
2412             || acl_interface_set_inout_acl_list (am, sw_if_index, 1,
2413                                                  in_acl_vec,
2414                                                  &may_clear_sessions);
2415           vec_free (in_acl_vec);
2416           vec_free (out_acl_vec);
2417           clib_mem_set_heap (oldheap);
2418         }
2419     }
2420
2421   REPLY_MACRO (VL_API_ACL_INTERFACE_SET_ACL_LIST_REPLY);
2422 }
2423
2424 static void
2425 copy_acl_rule_to_api_rule (vl_api_acl_rule_t * api_rule, acl_rule_t * r)
2426 {
2427   api_rule->is_permit = r->is_permit;
2428   api_rule->is_ipv6 = r->is_ipv6;
2429   if (r->is_ipv6)
2430     {
2431       memcpy (api_rule->src_ip_addr, &r->src, sizeof (r->src));
2432       memcpy (api_rule->dst_ip_addr, &r->dst, sizeof (r->dst));
2433     }
2434   else
2435     {
2436       memcpy (api_rule->src_ip_addr, &r->src.ip4, sizeof (r->src.ip4));
2437       memcpy (api_rule->dst_ip_addr, &r->dst.ip4, sizeof (r->dst.ip4));
2438     }
2439   api_rule->src_ip_prefix_len = r->src_prefixlen;
2440   api_rule->dst_ip_prefix_len = r->dst_prefixlen;
2441   api_rule->proto = r->proto;
2442   api_rule->srcport_or_icmptype_first = htons (r->src_port_or_type_first);
2443   api_rule->srcport_or_icmptype_last = htons (r->src_port_or_type_last);
2444   api_rule->dstport_or_icmpcode_first = htons (r->dst_port_or_code_first);
2445   api_rule->dstport_or_icmpcode_last = htons (r->dst_port_or_code_last);
2446   api_rule->tcp_flags_mask = r->tcp_flags_mask;
2447   api_rule->tcp_flags_value = r->tcp_flags_value;
2448 }
2449
2450 static void
2451 send_acl_details (acl_main_t * am, vl_api_registration_t * reg,
2452                   acl_list_t * acl, u32 context)
2453 {
2454   vl_api_acl_details_t *mp;
2455   vl_api_acl_rule_t *rules;
2456   int i;
2457   int msg_size = sizeof (*mp) + sizeof (mp->r[0]) * acl->count;
2458   void *oldheap = acl_set_heap (am);
2459
2460   mp = vl_msg_api_alloc (msg_size);
2461   memset (mp, 0, msg_size);
2462   mp->_vl_msg_id = ntohs (VL_API_ACL_DETAILS + am->msg_id_base);
2463
2464   /* fill in the message */
2465   mp->context = context;
2466   mp->count = htonl (acl->count);
2467   mp->acl_index = htonl (acl - am->acls);
2468   memcpy (mp->tag, acl->tag, sizeof (mp->tag));
2469   // clib_memcpy (mp->r, acl->rules, acl->count * sizeof(acl->rules[0]));
2470   rules = mp->r;
2471   for (i = 0; i < acl->count; i++)
2472     {
2473       copy_acl_rule_to_api_rule (&rules[i], &acl->rules[i]);
2474     }
2475
2476   clib_mem_set_heap (oldheap);
2477   vl_api_send_msg (reg, (u8 *) mp);
2478 }
2479
2480
2481 static void
2482 vl_api_acl_dump_t_handler (vl_api_acl_dump_t * mp)
2483 {
2484   acl_main_t *am = &acl_main;
2485   u32 acl_index;
2486   acl_list_t *acl;
2487   int rv = -1;
2488   vl_api_registration_t *reg;
2489
2490   reg = vl_api_client_index_to_registration (mp->client_index);
2491   if (!reg)
2492     return;
2493
2494   if (mp->acl_index == ~0)
2495     {
2496     /* *INDENT-OFF* */
2497     /* Just dump all ACLs */
2498     pool_foreach (acl, am->acls,
2499     ({
2500       send_acl_details(am, reg, acl, mp->context);
2501     }));
2502     /* *INDENT-ON* */
2503     }
2504   else
2505     {
2506       acl_index = ntohl (mp->acl_index);
2507       if (!pool_is_free_index (am->acls, acl_index))
2508         {
2509           acl = pool_elt_at_index (am->acls, acl_index);
2510           send_acl_details (am, reg, acl, mp->context);
2511         }
2512     }
2513
2514   if (rv == -1)
2515     {
2516       /* FIXME API: should we signal an error here at all ? */
2517       return;
2518     }
2519 }
2520
2521 static void
2522 send_acl_interface_list_details (acl_main_t * am,
2523                                  vl_api_registration_t * reg,
2524                                  u32 sw_if_index, u32 context)
2525 {
2526   vl_api_acl_interface_list_details_t *mp;
2527   int msg_size;
2528   int n_input;
2529   int n_output;
2530   int count;
2531   int i = 0;
2532   void *oldheap = acl_set_heap (am);
2533
2534   vec_validate (am->input_acl_vec_by_sw_if_index, sw_if_index);
2535   vec_validate (am->output_acl_vec_by_sw_if_index, sw_if_index);
2536
2537   clib_mem_set_heap (oldheap);
2538
2539   n_input = vec_len (am->input_acl_vec_by_sw_if_index[sw_if_index]);
2540   n_output = vec_len (am->output_acl_vec_by_sw_if_index[sw_if_index]);
2541   count = n_input + n_output;
2542
2543   msg_size = sizeof (*mp);
2544   msg_size += sizeof (mp->acls[0]) * count;
2545
2546   mp = vl_msg_api_alloc (msg_size);
2547   memset (mp, 0, msg_size);
2548   mp->_vl_msg_id =
2549     ntohs (VL_API_ACL_INTERFACE_LIST_DETAILS + am->msg_id_base);
2550
2551   /* fill in the message */
2552   mp->context = context;
2553   mp->sw_if_index = htonl (sw_if_index);
2554   mp->count = count;
2555   mp->n_input = n_input;
2556   for (i = 0; i < n_input; i++)
2557     {
2558       mp->acls[i] = htonl (am->input_acl_vec_by_sw_if_index[sw_if_index][i]);
2559     }
2560   for (i = 0; i < n_output; i++)
2561     {
2562       mp->acls[n_input + i] =
2563         htonl (am->output_acl_vec_by_sw_if_index[sw_if_index][i]);
2564     }
2565   vl_api_send_msg (reg, (u8 *) mp);
2566 }
2567
2568 static void
2569 vl_api_acl_interface_list_dump_t_handler (vl_api_acl_interface_list_dump_t *
2570                                           mp)
2571 {
2572   acl_main_t *am = &acl_main;
2573   vnet_sw_interface_t *swif;
2574   vnet_interface_main_t *im = &am->vnet_main->interface_main;
2575
2576   u32 sw_if_index;
2577   vl_api_registration_t *reg;
2578
2579   reg = vl_api_client_index_to_registration (mp->client_index);
2580   if (!reg)
2581     return;
2582
2583   if (mp->sw_if_index == ~0)
2584     {
2585     /* *INDENT-OFF* */
2586     pool_foreach (swif, im->sw_interfaces,
2587     ({
2588       send_acl_interface_list_details(am, reg, swif->sw_if_index, mp->context);
2589     }));
2590     /* *INDENT-ON* */
2591     }
2592   else
2593     {
2594       sw_if_index = ntohl (mp->sw_if_index);
2595       if (!pool_is_free_index (im->sw_interfaces, sw_if_index))
2596         send_acl_interface_list_details (am, reg, sw_if_index, mp->context);
2597     }
2598 }
2599
2600 /* MACIP ACL API handlers */
2601
2602 static void
2603 vl_api_macip_acl_add_t_handler (vl_api_macip_acl_add_t * mp)
2604 {
2605   vl_api_macip_acl_add_reply_t *rmp;
2606   acl_main_t *am = &acl_main;
2607   int rv;
2608   u32 acl_list_index = ~0;
2609   u32 acl_count = ntohl (mp->count);
2610   u32 expected_len = sizeof (*mp) + acl_count * sizeof (mp->r[0]);
2611
2612   if (verify_message_len (mp, expected_len, "macip_acl_add"))
2613     {
2614       rv = macip_acl_add_list (acl_count, mp->r, &acl_list_index, mp->tag);
2615     }
2616   else
2617     {
2618       rv = VNET_API_ERROR_INVALID_VALUE;
2619     }
2620
2621   /* *INDENT-OFF* */
2622   REPLY_MACRO2(VL_API_MACIP_ACL_ADD_REPLY,
2623   ({
2624     rmp->acl_index = htonl(acl_list_index);
2625   }));
2626   /* *INDENT-ON* */
2627 }
2628
2629 static void
2630 vl_api_macip_acl_add_replace_t_handler (vl_api_macip_acl_add_replace_t * mp)
2631 {
2632   vl_api_macip_acl_add_replace_reply_t *rmp;
2633   acl_main_t *am = &acl_main;
2634   int rv;
2635   u32 acl_list_index = ntohl (mp->acl_index);
2636   u32 acl_count = ntohl (mp->count);
2637   u32 expected_len = sizeof (*mp) + acl_count * sizeof (mp->r[0]);
2638
2639   if (verify_message_len (mp, expected_len, "macip_acl_add_replace"))
2640     {
2641       rv = macip_acl_add_list (acl_count, mp->r, &acl_list_index, mp->tag);
2642     }
2643   else
2644     {
2645       rv = VNET_API_ERROR_INVALID_VALUE;
2646     }
2647
2648   /* *INDENT-OFF* */
2649   REPLY_MACRO2(VL_API_MACIP_ACL_ADD_REPLACE_REPLY,
2650   ({
2651     rmp->acl_index = htonl(acl_list_index);
2652   }));
2653   /* *INDENT-ON* */
2654 }
2655
2656 static void
2657 vl_api_macip_acl_del_t_handler (vl_api_macip_acl_del_t * mp)
2658 {
2659   acl_main_t *am = &acl_main;
2660   vl_api_macip_acl_del_reply_t *rmp;
2661   int rv;
2662
2663   rv = macip_acl_del_list (ntohl (mp->acl_index));
2664
2665   REPLY_MACRO (VL_API_MACIP_ACL_DEL_REPLY);
2666 }
2667
2668 static void
2669   vl_api_macip_acl_interface_add_del_t_handler
2670   (vl_api_macip_acl_interface_add_del_t * mp)
2671 {
2672   acl_main_t *am = &acl_main;
2673   vl_api_macip_acl_interface_add_del_reply_t *rmp;
2674   int rv = -1;
2675   vnet_interface_main_t *im = &am->vnet_main->interface_main;
2676   u32 sw_if_index = ntohl (mp->sw_if_index);
2677
2678   if (pool_is_free_index (im->sw_interfaces, sw_if_index))
2679     rv = VNET_API_ERROR_INVALID_SW_IF_INDEX;
2680   else
2681     rv =
2682       macip_acl_interface_add_del_acl (ntohl (mp->sw_if_index), mp->is_add,
2683                                        ntohl (mp->acl_index));
2684
2685   REPLY_MACRO (VL_API_MACIP_ACL_INTERFACE_ADD_DEL_REPLY);
2686 }
2687
2688 static void
2689 send_macip_acl_details (acl_main_t * am, vl_api_registration_t * reg,
2690                         macip_acl_list_t * acl, u32 context)
2691 {
2692   vl_api_macip_acl_details_t *mp;
2693   vl_api_macip_acl_rule_t *rules;
2694   macip_acl_rule_t *r;
2695   int i;
2696   int msg_size = sizeof (*mp) + (acl ? sizeof (mp->r[0]) * acl->count : 0);
2697
2698   mp = vl_msg_api_alloc (msg_size);
2699   memset (mp, 0, msg_size);
2700   mp->_vl_msg_id = ntohs (VL_API_MACIP_ACL_DETAILS + am->msg_id_base);
2701
2702   /* fill in the message */
2703   mp->context = context;
2704   if (acl)
2705     {
2706       memcpy (mp->tag, acl->tag, sizeof (mp->tag));
2707       mp->count = htonl (acl->count);
2708       mp->acl_index = htonl (acl - am->macip_acls);
2709       rules = mp->r;
2710       for (i = 0; i < acl->count; i++)
2711         {
2712           r = &acl->rules[i];
2713           rules[i].is_permit = r->is_permit;
2714           rules[i].is_ipv6 = r->is_ipv6;
2715           memcpy (rules[i].src_mac, &r->src_mac, sizeof (r->src_mac));
2716           memcpy (rules[i].src_mac_mask, &r->src_mac_mask,
2717                   sizeof (r->src_mac_mask));
2718           if (r->is_ipv6)
2719             memcpy (rules[i].src_ip_addr, &r->src_ip_addr.ip6,
2720                     sizeof (r->src_ip_addr.ip6));
2721           else
2722             memcpy (rules[i].src_ip_addr, &r->src_ip_addr.ip4,
2723                     sizeof (r->src_ip_addr.ip4));
2724           rules[i].src_ip_prefix_len = r->src_prefixlen;
2725         }
2726     }
2727   else
2728     {
2729       /* No martini, no party - no ACL applied to this interface. */
2730       mp->acl_index = ~0;
2731       mp->count = 0;
2732     }
2733
2734   vl_api_send_msg (reg, (u8 *) mp);
2735 }
2736
2737
2738 static void
2739 vl_api_macip_acl_dump_t_handler (vl_api_macip_acl_dump_t * mp)
2740 {
2741   acl_main_t *am = &acl_main;
2742   macip_acl_list_t *acl;
2743
2744   vl_api_registration_t *reg;
2745
2746   reg = vl_api_client_index_to_registration (mp->client_index);
2747   if (!reg)
2748     return;
2749
2750   if (mp->acl_index == ~0)
2751     {
2752       /* Just dump all ACLs for now, with sw_if_index = ~0 */
2753       pool_foreach (acl, am->macip_acls, (
2754                                            {
2755                                            send_macip_acl_details (am, reg,
2756                                                                    acl,
2757                                                                    mp->context);
2758                                            }
2759                     ));
2760       /* *INDENT-ON* */
2761     }
2762   else
2763     {
2764       u32 acl_index = ntohl (mp->acl_index);
2765       if (!pool_is_free_index (am->macip_acls, acl_index))
2766         {
2767           acl = pool_elt_at_index (am->macip_acls, acl_index);
2768           send_macip_acl_details (am, reg, acl, mp->context);
2769         }
2770     }
2771 }
2772
2773 static void
2774 vl_api_macip_acl_interface_get_t_handler (vl_api_macip_acl_interface_get_t *
2775                                           mp)
2776 {
2777   acl_main_t *am = &acl_main;
2778   vl_api_macip_acl_interface_get_reply_t *rmp;
2779   u32 count = vec_len (am->macip_acl_by_sw_if_index);
2780   int msg_size = sizeof (*rmp) + sizeof (rmp->acls[0]) * count;
2781   vl_api_registration_t *reg;
2782   int i;
2783
2784   reg = vl_api_client_index_to_registration (mp->client_index);
2785   if (!reg)
2786     return;
2787
2788   rmp = vl_msg_api_alloc (msg_size);
2789   memset (rmp, 0, msg_size);
2790   rmp->_vl_msg_id =
2791     ntohs (VL_API_MACIP_ACL_INTERFACE_GET_REPLY + am->msg_id_base);
2792   rmp->context = mp->context;
2793   rmp->count = htonl (count);
2794   for (i = 0; i < count; i++)
2795     {
2796       rmp->acls[i] = htonl (am->macip_acl_by_sw_if_index[i]);
2797     }
2798
2799   vl_api_send_msg (reg, (u8 *) rmp);
2800 }
2801
2802 static void
2803 send_macip_acl_interface_list_details (acl_main_t * am,
2804                                        vl_api_registration_t * reg,
2805                                        u32 sw_if_index,
2806                                        u32 acl_index, u32 context)
2807 {
2808   vl_api_macip_acl_interface_list_details_t *rmp;
2809   /* at this time there is only ever 1 mac ip acl per interface */
2810   int msg_size = sizeof (*rmp) + sizeof (rmp->acls[0]);
2811
2812   rmp = vl_msg_api_alloc (msg_size);
2813   memset (rmp, 0, msg_size);
2814   rmp->_vl_msg_id =
2815     ntohs (VL_API_MACIP_ACL_INTERFACE_LIST_DETAILS + am->msg_id_base);
2816
2817   /* fill in the message */
2818   rmp->context = context;
2819   rmp->count = 1;
2820   rmp->sw_if_index = htonl (sw_if_index);
2821   rmp->acls[0] = htonl (acl_index);
2822
2823   vl_api_send_msg (reg, (u8 *) rmp);
2824 }
2825
2826 static void
2827   vl_api_macip_acl_interface_list_dump_t_handler
2828   (vl_api_macip_acl_interface_list_dump_t * mp)
2829 {
2830   vl_api_registration_t *reg;
2831   acl_main_t *am = &acl_main;
2832   u32 sw_if_index = ntohl (mp->sw_if_index);
2833
2834   reg = vl_api_client_index_to_registration (mp->client_index);
2835   if (!reg)
2836     return;
2837
2838   if (sw_if_index == ~0)
2839     {
2840       vec_foreach_index (sw_if_index, am->macip_acl_by_sw_if_index)
2841       {
2842         if (~0 != am->macip_acl_by_sw_if_index[sw_if_index])
2843           {
2844             send_macip_acl_interface_list_details (am, reg, sw_if_index,
2845                                                    am->macip_acl_by_sw_if_index
2846                                                    [sw_if_index],
2847                                                    mp->context);
2848           }
2849       }
2850     }
2851   else
2852     {
2853       if (vec_len (am->macip_acl_by_sw_if_index) > sw_if_index)
2854         {
2855           send_macip_acl_interface_list_details (am, reg, sw_if_index,
2856                                                  am->macip_acl_by_sw_if_index
2857                                                  [sw_if_index], mp->context);
2858         }
2859     }
2860 }
2861
2862 static void
2863   vl_api_acl_interface_set_etype_whitelist_t_handler
2864   (vl_api_acl_interface_set_etype_whitelist_t * mp)
2865 {
2866   acl_main_t *am = &acl_main;
2867   vl_api_acl_interface_set_etype_whitelist_reply_t *rmp;
2868   int rv = 0;
2869   int i;
2870   vnet_interface_main_t *im = &am->vnet_main->interface_main;
2871   u32 sw_if_index = ntohl (mp->sw_if_index);
2872   u16 *vec_in = 0, *vec_out = 0;
2873   void *oldheap = acl_set_heap (am);
2874
2875   if (pool_is_free_index (im->sw_interfaces, sw_if_index))
2876     rv = VNET_API_ERROR_INVALID_SW_IF_INDEX;
2877   else
2878     {
2879       for (i = 0; i < mp->count; i++)
2880         {
2881           if (i < mp->n_input)
2882             vec_add1 (vec_in, ntohs (mp->whitelist[i]));
2883           else
2884             vec_add1 (vec_out, ntohs (mp->whitelist[i]));
2885         }
2886       rv = acl_set_etype_whitelists (am, sw_if_index, vec_in, vec_out);
2887     }
2888
2889   clib_mem_set_heap (oldheap);
2890   REPLY_MACRO (VL_API_ACL_INTERFACE_SET_ETYPE_WHITELIST_REPLY);
2891 }
2892
2893 static void
2894 send_acl_interface_etype_whitelist_details (acl_main_t * am,
2895                                             vl_api_registration_t * reg,
2896                                             u32 sw_if_index, u32 context)
2897 {
2898   vl_api_acl_interface_etype_whitelist_details_t *mp;
2899   int msg_size;
2900   int n_input = 0;
2901   int n_output = 0;
2902   int count = 0;
2903   int i = 0;
2904
2905   u16 *whitelist_in = 0;
2906   u16 *whitelist_out = 0;
2907
2908   if (intf_has_etype_whitelist (am, sw_if_index, 0))
2909     whitelist_out =
2910       vec_elt (am->output_etype_whitelist_by_sw_if_index, sw_if_index);
2911
2912   if (intf_has_etype_whitelist (am, sw_if_index, 1))
2913     whitelist_in =
2914       vec_elt (am->input_etype_whitelist_by_sw_if_index, sw_if_index);
2915
2916   if ((0 == whitelist_in) && (0 == whitelist_out))
2917     return;                     /* nothing to do */
2918
2919   void *oldheap = acl_set_heap (am);
2920
2921   n_input = vec_len (whitelist_in);
2922   n_output = vec_len (whitelist_out);
2923   count = n_input + n_output;
2924
2925   msg_size = sizeof (*mp);
2926   msg_size += sizeof (mp->whitelist[0]) * count;
2927
2928   mp = vl_msg_api_alloc (msg_size);
2929   memset (mp, 0, msg_size);
2930   mp->_vl_msg_id =
2931     ntohs (VL_API_ACL_INTERFACE_ETYPE_WHITELIST_DETAILS + am->msg_id_base);
2932
2933   /* fill in the message */
2934   mp->context = context;
2935   mp->sw_if_index = htonl (sw_if_index);
2936   mp->count = count;
2937   mp->n_input = n_input;
2938   for (i = 0; i < n_input; i++)
2939     {
2940       mp->whitelist[i] = htons (whitelist_in[i]);
2941     }
2942   for (i = 0; i < n_output; i++)
2943     {
2944       mp->whitelist[n_input + i] = htons (whitelist_out[i]);
2945     }
2946   clib_mem_set_heap (oldheap);
2947   vl_api_send_msg (reg, (u8 *) mp);
2948 }
2949
2950
2951 static void
2952   vl_api_acl_interface_etype_whitelist_dump_t_handler
2953   (vl_api_acl_interface_list_dump_t * mp)
2954 {
2955   acl_main_t *am = &acl_main;
2956   vnet_sw_interface_t *swif;
2957   vnet_interface_main_t *im = &am->vnet_main->interface_main;
2958
2959   u32 sw_if_index;
2960   vl_api_registration_t *reg;
2961
2962   reg = vl_api_client_index_to_registration (mp->client_index);
2963   if (!reg)
2964     return;
2965
2966   if (mp->sw_if_index == ~0)
2967     {
2968     /* *INDENT-OFF* */
2969     pool_foreach (swif, im->sw_interfaces,
2970     ({
2971       send_acl_interface_etype_whitelist_details(am, reg, swif->sw_if_index, mp->context);
2972     }));
2973     /* *INDENT-ON* */
2974     }
2975   else
2976     {
2977       sw_if_index = ntohl (mp->sw_if_index);
2978       if (!pool_is_free_index (im->sw_interfaces, sw_if_index))
2979         send_acl_interface_etype_whitelist_details (am, reg, sw_if_index,
2980                                                     mp->context);
2981     }
2982 }
2983
2984
2985
2986 /* Set up the API message handling tables */
2987 static clib_error_t *
2988 acl_plugin_api_hookup (vlib_main_t * vm)
2989 {
2990   acl_main_t *am = &acl_main;
2991 #define _(N,n)                                                  \
2992     vl_msg_api_set_handlers((VL_API_##N + am->msg_id_base),     \
2993                            #n,                                  \
2994                            vl_api_##n##_t_handler,              \
2995                            vl_noop_handler,                     \
2996                            vl_api_##n##_t_endian,               \
2997                            vl_api_##n##_t_print,                \
2998                            sizeof(vl_api_##n##_t), 1);
2999   foreach_acl_plugin_api_msg;
3000 #undef _
3001
3002   return 0;
3003 }
3004
3005 #define vl_msg_name_crc_list
3006 #include <acl/acl_all_api_h.h>
3007 #undef vl_msg_name_crc_list
3008
3009 static void
3010 setup_message_id_table (acl_main_t * am, api_main_t * apim)
3011 {
3012 #define _(id,n,crc) \
3013   vl_msg_api_add_msg_name_crc (apim, #n "_" #crc, id + am->msg_id_base);
3014   foreach_vl_msg_name_crc_acl;
3015 #undef _
3016 }
3017
3018 static void
3019 acl_setup_fa_nodes (void)
3020 {
3021   vlib_main_t *vm = vlib_get_main ();
3022   acl_main_t *am = &acl_main;
3023   vlib_node_t *n, *n4, *n6;
3024
3025   n = vlib_get_node_by_name (vm, (u8 *) "l2-input-classify");
3026   n4 = vlib_get_node_by_name (vm, (u8 *) "acl-plugin-in-ip4-l2");
3027   n6 = vlib_get_node_by_name (vm, (u8 *) "acl-plugin-in-ip6-l2");
3028
3029
3030   am->l2_input_classify_next_acl_ip4 =
3031     vlib_node_add_next_with_slot (vm, n->index, n4->index, ~0);
3032   am->l2_input_classify_next_acl_ip6 =
3033     vlib_node_add_next_with_slot (vm, n->index, n6->index, ~0);
3034
3035   feat_bitmap_init_next_nodes (vm, n4->index, L2INPUT_N_FEAT,
3036                                l2input_get_feat_names (),
3037                                am->fa_acl_in_ip4_l2_node_feat_next_node_index);
3038
3039   feat_bitmap_init_next_nodes (vm, n6->index, L2INPUT_N_FEAT,
3040                                l2input_get_feat_names (),
3041                                am->fa_acl_in_ip6_l2_node_feat_next_node_index);
3042
3043
3044   n = vlib_get_node_by_name (vm, (u8 *) "l2-output-classify");
3045   n4 = vlib_get_node_by_name (vm, (u8 *) "acl-plugin-out-ip4-l2");
3046   n6 = vlib_get_node_by_name (vm, (u8 *) "acl-plugin-out-ip6-l2");
3047
3048   am->l2_output_classify_next_acl_ip4 =
3049     vlib_node_add_next_with_slot (vm, n->index, n4->index, ~0);
3050   am->l2_output_classify_next_acl_ip6 =
3051     vlib_node_add_next_with_slot (vm, n->index, n6->index, ~0);
3052
3053   feat_bitmap_init_next_nodes (vm, n4->index, L2OUTPUT_N_FEAT,
3054                                l2output_get_feat_names (),
3055                                am->fa_acl_out_ip4_l2_node_feat_next_node_index);
3056
3057   feat_bitmap_init_next_nodes (vm, n6->index, L2OUTPUT_N_FEAT,
3058                                l2output_get_feat_names (),
3059                                am->fa_acl_out_ip6_l2_node_feat_next_node_index);
3060 }
3061
3062 static void
3063 acl_set_timeout_sec (int timeout_type, u32 value)
3064 {
3065   acl_main_t *am = &acl_main;
3066   clib_time_t *ct = &am->vlib_main->clib_time;
3067
3068   if (timeout_type < ACL_N_TIMEOUTS)
3069     {
3070       am->session_timeout_sec[timeout_type] = value;
3071     }
3072   else
3073     {
3074       clib_warning ("Unknown timeout type %d", timeout_type);
3075       return;
3076     }
3077   am->session_timeout[timeout_type] =
3078     (u64) (((f64) value) / ct->seconds_per_clock);
3079 }
3080
3081 static void
3082 acl_set_session_max_entries (u32 value)
3083 {
3084   acl_main_t *am = &acl_main;
3085   am->fa_conn_table_max_entries = value;
3086 }
3087
3088 static int
3089 acl_set_skip_ipv6_eh (u32 eh, u32 value)
3090 {
3091   acl_main_t *am = &acl_main;
3092
3093   if ((eh < 256) && (value < 2))
3094     {
3095       am->fa_ipv6_known_eh_bitmap =
3096         clib_bitmap_set (am->fa_ipv6_known_eh_bitmap, eh, value);
3097       return 1;
3098     }
3099   else
3100     return 0;
3101 }
3102
3103
3104 static clib_error_t *
3105 acl_sw_interface_add_del (vnet_main_t * vnm, u32 sw_if_index, u32 is_add)
3106 {
3107   acl_main_t *am = &acl_main;
3108   if (0 == am->acl_mheap)
3109     {
3110       /* ACL heap is not initialized, so definitely nothing to do. */
3111       return 0;
3112     }
3113   if (0 == is_add)
3114     {
3115       int may_clear_sessions = 1;
3116       vlib_process_signal_event (am->vlib_main, am->fa_cleaner_node_index,
3117                                  ACL_FA_CLEANER_DELETE_BY_SW_IF_INDEX,
3118                                  sw_if_index);
3119       /* also unapply any ACLs in case the users did not do so. */
3120       macip_acl_interface_del_acl (am, sw_if_index);
3121       acl_interface_reset_inout_acls (sw_if_index, 0, &may_clear_sessions);
3122       acl_interface_reset_inout_acls (sw_if_index, 1, &may_clear_sessions);
3123     }
3124   return 0;
3125 }
3126
3127 VNET_SW_INTERFACE_ADD_DEL_FUNCTION (acl_sw_interface_add_del);
3128
3129
3130
3131 static clib_error_t *
3132 acl_set_aclplugin_fn (vlib_main_t * vm,
3133                       unformat_input_t * input, vlib_cli_command_t * cmd)
3134 {
3135   clib_error_t *error = 0;
3136   u32 timeout = 0;
3137   u32 val = 0;
3138   u32 eh_val = 0;
3139   uword memory_size = 0;
3140   acl_main_t *am = &acl_main;
3141
3142   if (unformat (input, "skip-ipv6-extension-header %u %u", &eh_val, &val))
3143     {
3144       if (!acl_set_skip_ipv6_eh (eh_val, val))
3145         {
3146           error = clib_error_return (0, "expecting eh=0..255, value=0..1");
3147         }
3148       goto done;
3149     }
3150   if (unformat (input, "use-hash-acl-matching %u", &val))
3151     {
3152       am->use_hash_acl_matching = (val != 0);
3153       goto done;
3154     }
3155   if (unformat (input, "l4-match-nonfirst-fragment %u", &val))
3156     {
3157       am->l4_match_nonfirst_fragment = (val != 0);
3158       goto done;
3159     }
3160   if (unformat (input, "event-trace"))
3161     {
3162       if (!unformat (input, "%u", &val))
3163         {
3164           error = clib_error_return (0,
3165                                      "expecting trace level, got `%U`",
3166                                      format_unformat_error, input);
3167           goto done;
3168         }
3169       else
3170         {
3171           am->trace_acl = val;
3172           goto done;
3173         }
3174     }
3175   if (unformat (input, "heap"))
3176     {
3177       if (unformat (input, "main"))
3178         {
3179           if (unformat (input, "validate %u", &val))
3180             acl_plugin_acl_set_validate_heap (am, val);
3181           else if (unformat (input, "trace %u", &val))
3182             acl_plugin_acl_set_trace_heap (am, val);
3183           goto done;
3184         }
3185       else if (unformat (input, "hash"))
3186         {
3187           if (unformat (input, "validate %u", &val))
3188             acl_plugin_hash_acl_set_validate_heap (val);
3189           else if (unformat (input, "trace %u", &val))
3190             acl_plugin_hash_acl_set_trace_heap (val);
3191           goto done;
3192         }
3193       goto done;
3194     }
3195   if (unformat (input, "session"))
3196     {
3197       if (unformat (input, "table"))
3198         {
3199           /* The commands here are for tuning/testing. No user-serviceable parts inside */
3200           if (unformat (input, "max-entries"))
3201             {
3202               if (!unformat (input, "%u", &val))
3203                 {
3204                   error = clib_error_return (0,
3205                                              "expecting maximum number of entries, got `%U`",
3206                                              format_unformat_error, input);
3207                   goto done;
3208                 }
3209               else
3210                 {
3211                   acl_set_session_max_entries (val);
3212                   goto done;
3213                 }
3214             }
3215           if (unformat (input, "hash-table-buckets"))
3216             {
3217               if (!unformat (input, "%u", &val))
3218                 {
3219                   error = clib_error_return (0,
3220                                              "expecting maximum number of hash table buckets, got `%U`",
3221                                              format_unformat_error, input);
3222                   goto done;
3223                 }
3224               else
3225                 {
3226                   am->fa_conn_table_hash_num_buckets = val;
3227                   goto done;
3228                 }
3229             }
3230           if (unformat (input, "hash-table-memory"))
3231             {
3232               if (!unformat (input, "%U", unformat_memory_size, &memory_size))
3233                 {
3234                   error = clib_error_return (0,
3235                                              "expecting maximum amount of hash table memory, got `%U`",
3236                                              format_unformat_error, input);
3237                   goto done;
3238                 }
3239               else
3240                 {
3241                   am->fa_conn_table_hash_memory_size = memory_size;
3242                   goto done;
3243                 }
3244             }
3245           if (unformat (input, "event-trace"))
3246             {
3247               if (!unformat (input, "%u", &val))
3248                 {
3249                   error = clib_error_return (0,
3250                                              "expecting trace level, got `%U`",
3251                                              format_unformat_error, input);
3252                   goto done;
3253                 }
3254               else
3255                 {
3256                   am->trace_sessions = val;
3257                   goto done;
3258                 }
3259             }
3260           goto done;
3261         }
3262       if (unformat (input, "timeout"))
3263         {
3264           if (unformat (input, "udp"))
3265             {
3266               if (unformat (input, "idle"))
3267                 {
3268                   if (!unformat (input, "%u", &timeout))
3269                     {
3270                       error = clib_error_return (0,
3271                                                  "expecting timeout value in seconds, got `%U`",
3272                                                  format_unformat_error,
3273                                                  input);
3274                       goto done;
3275                     }
3276                   else
3277                     {
3278                       acl_set_timeout_sec (ACL_TIMEOUT_UDP_IDLE, timeout);
3279                       goto done;
3280                     }
3281                 }
3282             }
3283           if (unformat (input, "tcp"))
3284             {
3285               if (unformat (input, "idle"))
3286                 {
3287                   if (!unformat (input, "%u", &timeout))
3288                     {
3289                       error = clib_error_return (0,
3290                                                  "expecting timeout value in seconds, got `%U`",
3291                                                  format_unformat_error,
3292                                                  input);
3293                       goto done;
3294                     }
3295                   else
3296                     {
3297                       acl_set_timeout_sec (ACL_TIMEOUT_TCP_IDLE, timeout);
3298                       goto done;
3299                     }
3300                 }
3301               if (unformat (input, "transient"))
3302                 {
3303                   if (!unformat (input, "%u", &timeout))
3304                     {
3305                       error = clib_error_return (0,
3306                                                  "expecting timeout value in seconds, got `%U`",
3307                                                  format_unformat_error,
3308                                                  input);
3309                       goto done;
3310                     }
3311                   else
3312                     {
3313                       acl_set_timeout_sec (ACL_TIMEOUT_TCP_TRANSIENT,
3314                                            timeout);
3315                       goto done;
3316                     }
3317                 }
3318             }
3319           goto done;
3320         }
3321     }
3322 done:
3323   return error;
3324 }
3325
3326 static u8 *
3327 my_format_mac_address (u8 * s, va_list * args)
3328 {
3329   u8 *a = va_arg (*args, u8 *);
3330   return format (s, "%02x:%02x:%02x:%02x:%02x:%02x",
3331                  a[0], a[1], a[2], a[3], a[4], a[5]);
3332 }
3333
3334 static inline u8 *
3335 my_macip_acl_rule_t_pretty_format (u8 * out, va_list * args)
3336 {
3337   macip_acl_rule_t *a = va_arg (*args, macip_acl_rule_t *);
3338
3339   out = format (out, "%s action %d ip %U/%d mac %U mask %U",
3340                 a->is_ipv6 ? "ipv6" : "ipv4", a->is_permit,
3341                 format_ip46_address, &a->src_ip_addr,
3342                 a->is_ipv6 ? IP46_TYPE_IP6 : IP46_TYPE_IP4,
3343                 a->src_prefixlen,
3344                 my_format_mac_address, a->src_mac,
3345                 my_format_mac_address, a->src_mac_mask);
3346   return (out);
3347 }
3348
3349 static void
3350 macip_acl_print (acl_main_t * am, u32 macip_acl_index)
3351 {
3352   vlib_main_t *vm = am->vlib_main;
3353   int i;
3354
3355   /* Don't attempt to show the ACLs that do not exist */
3356   if (pool_is_free_index (am->macip_acls, macip_acl_index))
3357     return;
3358
3359   /* Don't try to print someone else's memory */
3360   if (macip_acl_index > vec_len (am->macip_acls))
3361     return;
3362
3363   macip_acl_list_t *a = vec_elt_at_index (am->macip_acls, macip_acl_index);
3364   int free_pool_slot = pool_is_free_index (am->macip_acls, macip_acl_index);
3365
3366   vlib_cli_output (vm,
3367                    "MACIP acl_index: %d, count: %d (true len %d) tag {%s} is free pool slot: %d\n",
3368                    macip_acl_index, a->count, vec_len (a->rules), a->tag,
3369                    free_pool_slot);
3370   vlib_cli_output (vm,
3371                    "  ip4_table_index %d, ip6_table_index %d, l2_table_index %d\n",
3372                    a->ip4_table_index, a->ip6_table_index, a->l2_table_index);
3373   vlib_cli_output (vm,
3374                    "  out_ip4_table_index %d, out_ip6_table_index %d, out_l2_table_index %d\n",
3375                    a->out_ip4_table_index, a->out_ip6_table_index,
3376                    a->out_l2_table_index);
3377   for (i = 0; i < vec_len (a->rules); i++)
3378     vlib_cli_output (vm, "    rule %d: %U\n", i,
3379                      my_macip_acl_rule_t_pretty_format,
3380                      vec_elt_at_index (a->rules, i));
3381
3382 }
3383
3384 static clib_error_t *
3385 acl_show_aclplugin_macip_acl_fn (vlib_main_t * vm,
3386                                  unformat_input_t *
3387                                  input, vlib_cli_command_t * cmd)
3388 {
3389   clib_error_t *error = 0;
3390   acl_main_t *am = &acl_main;
3391   int i;
3392   for (i = 0; i < vec_len (am->macip_acls); i++)
3393     macip_acl_print (am, i);
3394   return error;
3395 }
3396
3397 static clib_error_t *
3398 acl_show_aclplugin_macip_interface_fn (vlib_main_t * vm,
3399                                        unformat_input_t *
3400                                        input, vlib_cli_command_t * cmd)
3401 {
3402   clib_error_t *error = 0;
3403   acl_main_t *am = &acl_main;
3404   int i;
3405   for (i = 0; i < vec_len (am->macip_acl_by_sw_if_index); i++)
3406     {
3407       vlib_cli_output (vm, "  sw_if_index %d: %d\n", i,
3408                        vec_elt (am->macip_acl_by_sw_if_index, i));
3409     }
3410   return error;
3411 }
3412
3413 static void
3414 acl_plugin_show_acl (acl_main_t * am, u32 acl_index)
3415 {
3416   u32 i;
3417   vlib_main_t *vm = am->vlib_main;
3418
3419   for (i = 0; i < vec_len (am->acls); i++)
3420     {
3421       if (acl_is_not_defined (am, i))
3422         {
3423           /* don't attempt to show the ACLs that do not exist */
3424           continue;
3425         }
3426       if ((acl_index != ~0) && (acl_index != i))
3427         {
3428           continue;
3429         }
3430       acl_print_acl (vm, am, i);
3431
3432       if (i < vec_len (am->input_sw_if_index_vec_by_acl))
3433         {
3434           vlib_cli_output (vm, "  applied inbound on sw_if_index: %U\n",
3435                            format_vec32, am->input_sw_if_index_vec_by_acl[i],
3436                            "%d");
3437         }
3438       if (i < vec_len (am->output_sw_if_index_vec_by_acl))
3439         {
3440           vlib_cli_output (vm, "  applied outbound on sw_if_index: %U\n",
3441                            format_vec32, am->output_sw_if_index_vec_by_acl[i],
3442                            "%d");
3443         }
3444       if (i < vec_len (am->lc_index_vec_by_acl))
3445         {
3446           vlib_cli_output (vm, "  used in lookup context index: %U\n",
3447                            format_vec32, am->lc_index_vec_by_acl[i], "%d");
3448         }
3449     }
3450 }
3451
3452 static clib_error_t *
3453 acl_show_aclplugin_acl_fn (vlib_main_t * vm,
3454                            unformat_input_t * input, vlib_cli_command_t * cmd)
3455 {
3456   clib_error_t *error = 0;
3457   acl_main_t *am = &acl_main;
3458
3459   u32 acl_index = ~0;
3460   (void) unformat (input, "index %u", &acl_index);
3461
3462   acl_plugin_show_acl (am, acl_index);
3463   return error;
3464 }
3465
3466 static clib_error_t *
3467 acl_show_aclplugin_lookup_context_fn (vlib_main_t * vm,
3468                                       unformat_input_t * input,
3469                                       vlib_cli_command_t * cmd)
3470 {
3471   clib_error_t *error = 0;
3472
3473   u32 lc_index = ~0;
3474   (void) unformat (input, "index %u", &lc_index);
3475
3476   acl_plugin_show_lookup_context (lc_index);
3477   return error;
3478 }
3479
3480 static clib_error_t *
3481 acl_show_aclplugin_lookup_user_fn (vlib_main_t * vm,
3482                                    unformat_input_t * input,
3483                                    vlib_cli_command_t * cmd)
3484 {
3485   clib_error_t *error = 0;
3486
3487   u32 lc_index = ~0;
3488   (void) unformat (input, "index %u", &lc_index);
3489
3490   acl_plugin_show_lookup_user (lc_index);
3491   return error;
3492 }
3493
3494
3495 static void
3496 acl_plugin_show_interface (acl_main_t * am, u32 sw_if_index, int show_acl,
3497                            int detail)
3498 {
3499   vlib_main_t *vm = am->vlib_main;
3500   u32 swi;
3501   u32 *pj;
3502   for (swi = 0; (swi < vec_len (am->input_acl_vec_by_sw_if_index)) ||
3503        (swi < vec_len (am->output_acl_vec_by_sw_if_index)); swi++)
3504     {
3505       /* if we need a particular interface, skip all the others */
3506       if ((sw_if_index != ~0) && (sw_if_index != swi))
3507         continue;
3508
3509       vlib_cli_output (vm, "sw_if_index %d:\n", swi);
3510
3511       if (intf_has_etype_whitelist (am, swi, 1))
3512         {
3513           vlib_cli_output (vm, "  input etype whitelist: %U", format_vec16,
3514                            am->input_etype_whitelist_by_sw_if_index[swi],
3515                            "%04x");
3516         }
3517       if (intf_has_etype_whitelist (am, swi, 0))
3518         {
3519           vlib_cli_output (vm, " output etype whitelist: %U", format_vec16,
3520                            am->output_etype_whitelist_by_sw_if_index[swi],
3521                            "%04x");
3522         }
3523
3524       if ((swi < vec_len (am->input_acl_vec_by_sw_if_index)) &&
3525           (vec_len (am->input_acl_vec_by_sw_if_index[swi]) > 0))
3526         {
3527           vlib_cli_output (vm, "  input acl(s): %U", format_vec32,
3528                            am->input_acl_vec_by_sw_if_index[swi], "%d");
3529           if (show_acl)
3530             {
3531               vlib_cli_output (vm, "\n");
3532               vec_foreach (pj, am->input_acl_vec_by_sw_if_index[swi])
3533               {
3534                 acl_print_acl (vm, am, *pj);
3535               }
3536               vlib_cli_output (vm, "\n");
3537             }
3538         }
3539
3540       if ((swi < vec_len (am->output_acl_vec_by_sw_if_index)) &&
3541           (vec_len (am->output_acl_vec_by_sw_if_index[swi]) > 0))
3542         {
3543           vlib_cli_output (vm, "  output acl(s): %U", format_vec32,
3544                            am->output_acl_vec_by_sw_if_index[swi], "%d");
3545           if (show_acl)
3546             {
3547               vlib_cli_output (vm, "\n");
3548               vec_foreach (pj, am->output_acl_vec_by_sw_if_index[swi])
3549               {
3550                 acl_print_acl (vm, am, *pj);
3551               }
3552               vlib_cli_output (vm, "\n");
3553             }
3554         }
3555       if (detail && (swi < vec_len (am->input_lc_index_by_sw_if_index)))
3556         {
3557           vlib_cli_output (vm, "   input lookup context index: %d",
3558                            am->input_lc_index_by_sw_if_index[swi]);
3559         }
3560       if (detail && (swi < vec_len (am->output_lc_index_by_sw_if_index)))
3561         {
3562           vlib_cli_output (vm, "  output lookup context index: %d",
3563                            am->output_lc_index_by_sw_if_index[swi]);
3564         }
3565     }
3566
3567 }
3568
3569
3570 static clib_error_t *
3571 acl_show_aclplugin_decode_5tuple_fn (vlib_main_t * vm,
3572                                      unformat_input_t * input,
3573                                      vlib_cli_command_t * cmd)
3574 {
3575   clib_error_t *error = 0;
3576   u64 five_tuple[6] = { 0, 0, 0, 0, 0, 0 };
3577
3578   if (unformat
3579       (input, "%llx %llx %llx %llx %llx %llx", &five_tuple[0], &five_tuple[1],
3580        &five_tuple[2], &five_tuple[3], &five_tuple[4], &five_tuple[5]))
3581     vlib_cli_output (vm, "5-tuple structure decode: %U\n\n",
3582                      format_acl_plugin_5tuple, five_tuple);
3583   else
3584     error = clib_error_return (0, "expecting 6 hex integers");
3585   return error;
3586 }
3587
3588
3589 static clib_error_t *
3590 acl_show_aclplugin_interface_fn (vlib_main_t * vm,
3591                                  unformat_input_t *
3592                                  input, vlib_cli_command_t * cmd)
3593 {
3594   clib_error_t *error = 0;
3595   acl_main_t *am = &acl_main;
3596
3597   u32 sw_if_index = ~0;
3598   (void) unformat (input, "sw_if_index %u", &sw_if_index);
3599   int show_acl = unformat (input, "acl");
3600   int detail = unformat (input, "detail");
3601
3602   acl_plugin_show_interface (am, sw_if_index, show_acl, detail);
3603   return error;
3604 }
3605
3606 static clib_error_t *
3607 acl_show_aclplugin_memory_fn (vlib_main_t * vm,
3608                               unformat_input_t * input,
3609                               vlib_cli_command_t * cmd)
3610 {
3611   clib_error_t *error = 0;
3612   acl_main_t *am = &acl_main;
3613
3614   vlib_cli_output (vm, "ACL plugin main heap statistics:\n");
3615   if (am->acl_mheap)
3616     {
3617       vlib_cli_output (vm, " %U\n", format_mheap, am->acl_mheap, 1);
3618     }
3619   else
3620     {
3621       vlib_cli_output (vm, " Not initialized\n");
3622     }
3623   vlib_cli_output (vm, "ACL hash lookup support heap statistics:\n");
3624   if (am->hash_lookup_mheap)
3625     {
3626       vlib_cli_output (vm, " %U\n", format_mheap, am->hash_lookup_mheap, 1);
3627     }
3628   else
3629     {
3630       vlib_cli_output (vm, " Not initialized\n");
3631     }
3632   return error;
3633 }
3634
3635 static void
3636 acl_plugin_show_sessions (acl_main_t * am,
3637                           u32 show_session_thread_id,
3638                           u32 show_session_session_index)
3639 {
3640   vlib_main_t *vm = am->vlib_main;
3641   u16 wk;
3642   vnet_interface_main_t *im = &am->vnet_main->interface_main;
3643   vnet_sw_interface_t *swif;
3644
3645   {
3646     u64 n_adds = am->fa_session_total_adds;
3647     u64 n_dels = am->fa_session_total_dels;
3648     vlib_cli_output (vm, "Sessions total: add %lu - del %lu = %lu", n_adds,
3649                      n_dels, n_adds - n_dels);
3650   }
3651   vlib_cli_output (vm, "\n\nPer-thread data:");
3652   for (wk = 0; wk < vec_len (am->per_worker_data); wk++)
3653     {
3654       acl_fa_per_worker_data_t *pw = &am->per_worker_data[wk];
3655       vlib_cli_output (vm, "Thread #%d:", wk);
3656       if (show_session_thread_id == wk
3657           && show_session_session_index < pool_len (pw->fa_sessions_pool))
3658         {
3659           vlib_cli_output (vm, "  session index %u:",
3660                            show_session_session_index);
3661           fa_session_t *sess =
3662             pw->fa_sessions_pool + show_session_session_index;
3663           u64 *m = (u64 *) & sess->info;
3664           vlib_cli_output (vm,
3665                            "    info: %016llx %016llx %016llx %016llx %016llx %016llx",
3666                            m[0], m[1], m[2], m[3], m[4], m[5]);
3667           vlib_cli_output (vm, "    sw_if_index: %u", sess->sw_if_index);
3668           vlib_cli_output (vm, "    tcp_flags_seen: %x",
3669                            sess->tcp_flags_seen.as_u16);
3670           vlib_cli_output (vm, "    last active time: %lu",
3671                            sess->last_active_time);
3672           vlib_cli_output (vm, "    thread index: %u", sess->thread_index);
3673           vlib_cli_output (vm, "    link enqueue time: %lu",
3674                            sess->link_enqueue_time);
3675           vlib_cli_output (vm, "    link next index: %u",
3676                            sess->link_next_idx);
3677           vlib_cli_output (vm, "    link prev index: %u",
3678                            sess->link_prev_idx);
3679           vlib_cli_output (vm, "    link list id: %u", sess->link_list_id);
3680         }
3681       vlib_cli_output (vm, "  connection add/del stats:", wk);
3682       pool_foreach (swif, im->sw_interfaces, (
3683                                                {
3684                                                u32 sw_if_index =
3685                                                swif->sw_if_index;
3686                                                u64 n_adds =
3687                                                sw_if_index <
3688                                                vec_len
3689                                                (pw->fa_session_adds_by_sw_if_index)
3690                                                ?
3691                                                pw->fa_session_adds_by_sw_if_index
3692                                                [sw_if_index] : 0;
3693                                                u64 n_dels =
3694                                                sw_if_index <
3695                                                vec_len
3696                                                (pw->fa_session_dels_by_sw_if_index)
3697                                                ?
3698                                                pw->fa_session_dels_by_sw_if_index
3699                                                [sw_if_index] : 0;
3700                                                vlib_cli_output (vm,
3701                                                                 "    sw_if_index %d: add %lu - del %lu = %lu",
3702                                                                 sw_if_index,
3703                                                                 n_adds,
3704                                                                 n_dels,
3705                                                                 n_adds -
3706                                                                 n_dels);
3707                                                }
3708                     ));
3709
3710       vlib_cli_output (vm, "  connection timeout type lists:", wk);
3711       u8 tt = 0;
3712       for (tt = 0; tt < ACL_N_TIMEOUTS; tt++)
3713         {
3714           u32 head_session_index = pw->fa_conn_list_head[tt];
3715           vlib_cli_output (vm, "  fa_conn_list_head[%d]: %d", tt,
3716                            head_session_index);
3717           if (~0 != head_session_index)
3718             {
3719               fa_session_t *sess = pw->fa_sessions_pool + head_session_index;
3720               vlib_cli_output (vm, "    last active time: %lu",
3721                                sess->last_active_time);
3722               vlib_cli_output (vm, "    link enqueue time: %lu",
3723                                sess->link_enqueue_time);
3724             }
3725         }
3726
3727       vlib_cli_output (vm, "  Next expiry time: %lu", pw->next_expiry_time);
3728       vlib_cli_output (vm, "  Requeue until time: %lu",
3729                        pw->requeue_until_time);
3730       vlib_cli_output (vm, "  Current time wait interval: %lu",
3731                        pw->current_time_wait_interval);
3732       vlib_cli_output (vm, "  Count of deleted sessions: %lu",
3733                        pw->cnt_deleted_sessions);
3734       vlib_cli_output (vm, "  Delete already deleted: %lu",
3735                        pw->cnt_already_deleted_sessions);
3736       vlib_cli_output (vm, "  Session timers restarted: %lu",
3737                        pw->cnt_session_timer_restarted);
3738       vlib_cli_output (vm, "  Swipe until this time: %lu",
3739                        pw->swipe_end_time);
3740       vlib_cli_output (vm, "  sw_if_index serviced bitmap: %U",
3741                        format_bitmap_hex, pw->serviced_sw_if_index_bitmap);
3742       vlib_cli_output (vm, "  pending clear intfc bitmap : %U",
3743                        format_bitmap_hex,
3744                        pw->pending_clear_sw_if_index_bitmap);
3745       vlib_cli_output (vm, "  clear in progress: %u", pw->clear_in_process);
3746       vlib_cli_output (vm, "  interrupt is pending: %d",
3747                        pw->interrupt_is_pending);
3748       vlib_cli_output (vm, "  interrupt is needed: %d",
3749                        pw->interrupt_is_needed);
3750       vlib_cli_output (vm, "  interrupt is unwanted: %d",
3751                        pw->interrupt_is_unwanted);
3752       vlib_cli_output (vm, "  interrupt generation: %d",
3753                        pw->interrupt_generation);
3754     }
3755   vlib_cli_output (vm, "\n\nConn cleaner thread counters:");
3756 #define _(cnt, desc) vlib_cli_output(vm, "             %20lu: %s", am->cnt, desc);
3757   foreach_fa_cleaner_counter;
3758 #undef _
3759   vlib_cli_output (vm, "Interrupt generation: %d",
3760                    am->fa_interrupt_generation);
3761   vlib_cli_output (vm,
3762                    "Sessions per interval: min %lu max %lu increment: %f ms current: %f ms",
3763                    am->fa_min_deleted_sessions_per_interval,
3764                    am->fa_max_deleted_sessions_per_interval,
3765                    am->fa_cleaner_wait_time_increment * 1000.0,
3766                    ((f64) am->fa_current_cleaner_timer_wait_interval) *
3767                    1000.0 / (f64) vm->clib_time.clocks_per_second);
3768 }
3769
3770 static clib_error_t *
3771 acl_show_aclplugin_sessions_fn (vlib_main_t * vm,
3772                                 unformat_input_t * input,
3773                                 vlib_cli_command_t * cmd)
3774 {
3775   clib_error_t *error = 0;
3776   acl_main_t *am = &acl_main;
3777
3778   u32 show_bihash_verbose = 0;
3779   u32 show_session_thread_id = ~0;
3780   u32 show_session_session_index = ~0;
3781   (void) unformat (input, "thread %u index %u", &show_session_thread_id,
3782                    &show_session_session_index);
3783   (void) unformat (input, "verbose %u", &show_bihash_verbose);
3784
3785   acl_plugin_show_sessions (am, show_session_thread_id,
3786                             show_session_session_index);
3787   show_fa_sessions_hash (vm, show_bihash_verbose);
3788   return error;
3789 }
3790
3791 static clib_error_t *
3792 acl_show_aclplugin_tables_fn (vlib_main_t * vm,
3793                               unformat_input_t * input,
3794                               vlib_cli_command_t * cmd)
3795 {
3796   clib_error_t *error = 0;
3797
3798   u32 acl_index = ~0;
3799   u32 sw_if_index = ~0;
3800   int show_acl_hash_info = 0;
3801   int show_applied_info = 0;
3802   int show_mask_type = 0;
3803   int show_bihash = 0;
3804   u32 show_bihash_verbose = 0;
3805
3806   if (unformat (input, "acl"))
3807     {
3808       show_acl_hash_info = 1;
3809       /* mask-type is handy to see as well right there */
3810       show_mask_type = 1;
3811       unformat (input, "index %u", &acl_index);
3812     }
3813   else if (unformat (input, "applied"))
3814     {
3815       show_applied_info = 1;
3816       unformat (input, "sw_if_index %u", &sw_if_index);
3817     }
3818   else if (unformat (input, "mask"))
3819     {
3820       show_mask_type = 1;
3821     }
3822   else if (unformat (input, "hash"))
3823     {
3824       show_bihash = 1;
3825       unformat (input, "verbose %u", &show_bihash_verbose);
3826     }
3827
3828   if (!
3829       (show_mask_type || show_acl_hash_info || show_applied_info
3830        || show_bihash))
3831     {
3832       /* if no qualifiers specified, show all */
3833       show_mask_type = 1;
3834       show_acl_hash_info = 1;
3835       show_applied_info = 1;
3836       show_bihash = 1;
3837     }
3838   if (show_mask_type)
3839     acl_plugin_show_tables_mask_type ();
3840   if (show_acl_hash_info)
3841     acl_plugin_show_tables_acl_hash_info (acl_index);
3842   if (show_applied_info)
3843     acl_plugin_show_tables_applied_info (sw_if_index);
3844   if (show_bihash)
3845     acl_plugin_show_tables_bihash (show_bihash_verbose);
3846
3847   return error;
3848 }
3849
3850 static clib_error_t *
3851 acl_clear_aclplugin_fn (vlib_main_t * vm,
3852                         unformat_input_t * input, vlib_cli_command_t * cmd)
3853 {
3854   clib_error_t *error = 0;
3855   acl_main_t *am = &acl_main;
3856   vlib_process_signal_event (am->vlib_main, am->fa_cleaner_node_index,
3857                              ACL_FA_CLEANER_DELETE_BY_SW_IF_INDEX, ~0);
3858   return error;
3859 }
3860
3861  /* *INDENT-OFF* */
3862 VLIB_CLI_COMMAND (aclplugin_set_command, static) = {
3863     .path = "set acl-plugin",
3864     .short_help = "set acl-plugin session timeout {{udp idle}|tcp {idle|transient}} <seconds>",
3865     .function = acl_set_aclplugin_fn,
3866 };
3867
3868 VLIB_CLI_COMMAND (aclplugin_show_acl_command, static) = {
3869     .path = "show acl-plugin acl",
3870     .short_help = "show acl-plugin acl [index N]",
3871     .function = acl_show_aclplugin_acl_fn,
3872 };
3873
3874 VLIB_CLI_COMMAND (aclplugin_show_lookup_context_command, static) = {
3875     .path = "show acl-plugin lookup context",
3876     .short_help = "show acl-plugin lookup context [index N]",
3877     .function = acl_show_aclplugin_lookup_context_fn,
3878 };
3879
3880 VLIB_CLI_COMMAND (aclplugin_show_lookup_user_command, static) = {
3881     .path = "show acl-plugin lookup user",
3882     .short_help = "show acl-plugin lookup user [index N]",
3883     .function = acl_show_aclplugin_lookup_user_fn,
3884 };
3885
3886 VLIB_CLI_COMMAND (aclplugin_show_decode_5tuple_command, static) = {
3887     .path = "show acl-plugin decode 5tuple",
3888     .short_help = "show acl-plugin decode 5tuple XXXX XXXX XXXX XXXX XXXX XXXX",
3889     .function = acl_show_aclplugin_decode_5tuple_fn,
3890 };
3891
3892 VLIB_CLI_COMMAND (aclplugin_show_interface_command, static) = {
3893     .path = "show acl-plugin interface",
3894     .short_help = "show acl-plugin interface [sw_if_index N] [acl]",
3895     .function = acl_show_aclplugin_interface_fn,
3896 };
3897
3898 VLIB_CLI_COMMAND (aclplugin_show_memory_command, static) = {
3899     .path = "show acl-plugin memory",
3900     .short_help = "show acl-plugin memory",
3901     .function = acl_show_aclplugin_memory_fn,
3902 };
3903
3904 VLIB_CLI_COMMAND (aclplugin_show_sessions_command, static) = {
3905     .path = "show acl-plugin sessions",
3906     .short_help = "show acl-plugin sessions",
3907     .function = acl_show_aclplugin_sessions_fn,
3908 };
3909
3910 VLIB_CLI_COMMAND (aclplugin_show_tables_command, static) = {
3911     .path = "show acl-plugin tables",
3912     .short_help = "show acl-plugin tables [ acl [index N] | applied [ sw_if_index N ] | mask | hash [verbose N] ]",
3913     .function = acl_show_aclplugin_tables_fn,
3914 };
3915
3916 VLIB_CLI_COMMAND (aclplugin_show_macip_acl_command, static) = {
3917     .path = "show acl-plugin macip acl",
3918     .short_help = "show acl-plugin macip acl",
3919     .function = acl_show_aclplugin_macip_acl_fn,
3920 };
3921
3922 VLIB_CLI_COMMAND (aclplugin_show_macip_interface_command, static) = {
3923     .path = "show acl-plugin macip interface",
3924     .short_help = "show acl-plugin macip interface",
3925     .function = acl_show_aclplugin_macip_interface_fn,
3926 };
3927
3928 VLIB_CLI_COMMAND (aclplugin_clear_command, static) = {
3929     .path = "clear acl-plugin sessions",
3930     .short_help = "clear acl-plugin sessions",
3931     .function = acl_clear_aclplugin_fn,
3932 };
3933 /* *INDENT-ON* */
3934
3935 static clib_error_t *
3936 acl_plugin_config (vlib_main_t * vm, unformat_input_t * input)
3937 {
3938   acl_main_t *am = &acl_main;
3939   u32 conn_table_hash_buckets;
3940   u32 conn_table_hash_memory_size;
3941   u32 conn_table_max_entries;
3942   u32 main_heap_size;
3943   u32 hash_heap_size;
3944   u32 hash_lookup_hash_buckets;
3945   u32 hash_lookup_hash_memory;
3946
3947   while (unformat_check_input (input) != UNFORMAT_END_OF_INPUT)
3948     {
3949       if (unformat
3950           (input, "connection hash buckets %d", &conn_table_hash_buckets))
3951         am->fa_conn_table_hash_num_buckets = conn_table_hash_buckets;
3952       else if (unformat (input, "connection hash memory %d",
3953                          &conn_table_hash_memory_size))
3954         am->fa_conn_table_hash_memory_size = conn_table_hash_memory_size;
3955       else if (unformat (input, "connection count max %d",
3956                          &conn_table_max_entries))
3957         am->fa_conn_table_max_entries = conn_table_max_entries;
3958       else if (unformat (input, "main heap size %d", &main_heap_size))
3959         am->acl_mheap_size = main_heap_size;
3960       else if (unformat (input, "hash lookup heap size %d", &hash_heap_size))
3961         am->hash_lookup_mheap_size = hash_heap_size;
3962       else if (unformat (input, "hash lookup hash buckets %d",
3963                          &hash_lookup_hash_buckets))
3964         am->hash_lookup_hash_buckets = hash_lookup_hash_buckets;
3965       else if (unformat (input, "hash lookup hash memory %d",
3966                          &hash_lookup_hash_memory))
3967         am->hash_lookup_hash_memory = hash_lookup_hash_memory;
3968       else
3969         return clib_error_return (0, "unknown input '%U'",
3970                                   format_unformat_error, input);
3971     }
3972   return 0;
3973 }
3974
3975 VLIB_CONFIG_FUNCTION (acl_plugin_config, "acl-plugin");
3976
3977 static clib_error_t *
3978 acl_init (vlib_main_t * vm)
3979 {
3980   acl_main_t *am = &acl_main;
3981   clib_error_t *error = 0;
3982   memset (am, 0, sizeof (*am));
3983   am->vlib_main = vm;
3984   am->vnet_main = vnet_get_main ();
3985
3986   u8 *name = format (0, "acl_%08x%c", api_version, 0);
3987
3988   /* Ask for a correctly-sized block of API message decode slots */
3989   am->msg_id_base = vl_msg_api_get_msg_ids ((char *) name,
3990                                             VL_MSG_FIRST_AVAILABLE);
3991
3992   error = acl_plugin_api_hookup (vm);
3993
3994   /* Add our API messages to the global name_crc hash table */
3995   setup_message_id_table (am, &api_main);
3996
3997   vec_free (name);
3998
3999   acl_setup_fa_nodes ();
4000
4001   am->acl_mheap_size = ACL_FA_DEFAULT_HEAP_SIZE;
4002   am->hash_lookup_mheap_size = ACL_PLUGIN_HASH_LOOKUP_HEAP_SIZE;
4003
4004   am->hash_lookup_hash_buckets = ACL_PLUGIN_HASH_LOOKUP_HASH_BUCKETS;
4005   am->hash_lookup_hash_memory = ACL_PLUGIN_HASH_LOOKUP_HASH_MEMORY;
4006
4007   am->session_timeout_sec[ACL_TIMEOUT_TCP_TRANSIENT] =
4008     TCP_SESSION_TRANSIENT_TIMEOUT_SEC;
4009   am->session_timeout_sec[ACL_TIMEOUT_TCP_IDLE] =
4010     TCP_SESSION_IDLE_TIMEOUT_SEC;
4011   am->session_timeout_sec[ACL_TIMEOUT_UDP_IDLE] =
4012     UDP_SESSION_IDLE_TIMEOUT_SEC;
4013
4014   am->fa_conn_table_hash_num_buckets =
4015     ACL_FA_CONN_TABLE_DEFAULT_HASH_NUM_BUCKETS;
4016   am->fa_conn_table_hash_memory_size =
4017     ACL_FA_CONN_TABLE_DEFAULT_HASH_MEMORY_SIZE;
4018   am->fa_conn_table_max_entries = ACL_FA_CONN_TABLE_DEFAULT_MAX_ENTRIES;
4019   vlib_thread_main_t *tm = vlib_get_thread_main ();
4020   vec_validate (am->per_worker_data, tm->n_vlib_mains - 1);
4021   {
4022     u16 wk;
4023     u8 tt;
4024     for (wk = 0; wk < vec_len (am->per_worker_data); wk++)
4025       {
4026         acl_fa_per_worker_data_t *pw = &am->per_worker_data[wk];
4027         vec_validate (pw->fa_conn_list_head, ACL_N_TIMEOUTS - 1);
4028         vec_validate (pw->fa_conn_list_tail, ACL_N_TIMEOUTS - 1);
4029         for (tt = 0; tt < ACL_N_TIMEOUTS; tt++)
4030           {
4031             pw->fa_conn_list_head[tt] = ~0;
4032             pw->fa_conn_list_tail[tt] = ~0;
4033           }
4034       }
4035   }
4036
4037   am->fa_min_deleted_sessions_per_interval =
4038     ACL_FA_DEFAULT_MIN_DELETED_SESSIONS_PER_INTERVAL;
4039   am->fa_max_deleted_sessions_per_interval =
4040     ACL_FA_DEFAULT_MAX_DELETED_SESSIONS_PER_INTERVAL;
4041   am->fa_cleaner_wait_time_increment =
4042     ACL_FA_DEFAULT_CLEANER_WAIT_TIME_INCREMENT;
4043
4044   am->fa_cleaner_cnt_delete_by_sw_index = 0;
4045   am->fa_cleaner_cnt_delete_by_sw_index_ok = 0;
4046   am->fa_cleaner_cnt_unknown_event = 0;
4047   am->fa_cleaner_cnt_timer_restarted = 0;
4048   am->fa_cleaner_cnt_wait_with_timeout = 0;
4049
4050
4051 #define _(N, v, s) am->fa_ipv6_known_eh_bitmap = clib_bitmap_set(am->fa_ipv6_known_eh_bitmap, v, 1);
4052   foreach_acl_eh
4053 #undef _
4054     am->l4_match_nonfirst_fragment = 1;
4055
4056   /* use the new fancy hash-based matching */
4057   am->use_hash_acl_matching = 1;
4058
4059   am->interface_acl_user_id =
4060     acl_plugin_register_user_module ("interface ACL", "sw_if_index",
4061                                      "is_input");
4062
4063   return error;
4064 }
4065
4066 VLIB_INIT_FUNCTION (acl_init);
4067
4068
4069 /*
4070  * fd.io coding-style-patch-verification: ON
4071  *
4072  * Local Variables:
4073  * eval: (c-set-style "gnu")
4074  * End:
4075  */