src/vpp/api/custom_dump.c

   1 /*
   2  * ------------------------------------------------------------------
   3  * custom_dump.c - pretty-print API messages for replay
   4  *
   5  * Copyright (c) 2014-2016 Cisco and/or its affiliates. Licensed under the
   6  * Apache License, Version 2.0 (the "License"); you may not use this file
   7  * except in compliance with the License. You may obtain a copy of the
   8  * License at:
   9  *
  10  * http://www.apache.org/licenses/LICENSE-2.0
  11  *
  12  * Unless required by applicable law or agreed to in writing, software
  13  * distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
  14  * WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
  15  * License for the specific language governing permissions and limitations
  16  * under the License.
  17  * ------------------------------------------------------------------
  18  */
  19
  20 #include <vnet/vnet.h>
  21 #include <vnet/ip/ip.h>
  22 #include <vnet/ip-neighbor/ip_neighbor.h>
  23 #include <vnet/ip/ip_types_api.h>
  24 #include <vnet/fib/fib_api.h>
  25 #include <vnet/unix/tuntap.h>
  26 #include <vnet/mpls/mpls.h>
  27 #include <vnet/l2/l2_input.h>
  28 #include <vnet/srv6/sr.h>
  29 #include <vnet/srmpls/sr_mpls.h>
  30 #include <vnet/vxlan-gpe/vxlan_gpe.h>
  31 #include <vnet/classify/policer_classify.h>
  32 #include <vnet/policer/xlate.h>
  33 #include <vnet/policer/policer.h>
  34 #include <vnet/classify/flow_classify.h>
  35 #include <vlib/vlib.h>
  36 #include <vlib/pci/pci.h>
  37 #include <vlib/unix/unix.h>
  38 #include <vlibapi/api.h>
  39 #include <vlibmemory/api.h>
  40 #include <vnet/qos/qos_types.h>
  41
  42 #include <vnet/ethernet/ethernet.h>
  43 #include <vnet/ethernet/ethernet_types_api.h>
  44 #include <vnet/l2/l2_vtr.h>
  45
  46 #include <vpp/api/vpe_msg_enum.h>
  47 #include <vpp/api/types.h>
  48
  49 #include <vnet/bonding/node.h>
  50
  51 #include <vnet/format_fns.h>
  52
  53 #define vl_typedefs             /* define message structures */
  54 #include <vpp/api/vpe_all_api_h.h>
  55 #undef vl_typedefs
  56
  57 #define vl_endianfun            /* define message structures */
  58 #include <vpp/api/vpe_all_api_h.h>
  59 #undef vl_endianfun
  60
  61 #define vl_print(handle, ...) vlib_cli_output (handle, __VA_ARGS__)
  62
  63 #define FINISH                                  \
  64     vec_add1 (s, 0);                            \
  65     vl_print (handle, (char *)s);               \
  66     vec_free (s);                               \
  67     return handle;
  68
  69
  70 static void *vl_api_create_loopback_t_print
  71   (vl_api_create_loopback_t * mp, void *handle)
  72 {
  73   u8 *s;
  74
  75   s = format (0, "SCRIPT: create_loopback ");
  76   s = format (s, "mac %U ", format_ethernet_address, &mp->mac_address);
  77
  78   FINISH;
  79 }
  80
  81 static void *vl_api_create_loopback_instance_t_print
  82   (vl_api_create_loopback_instance_t * mp, void *handle)
  83 {
  84   u8 *s;
  85
  86   s = format (0, "SCRIPT: create_loopback ");
  87   s = format (s, "mac %U ", format_ethernet_address, &mp->mac_address);
  88   s = format (s, "instance %d ", mp->user_instance);
  89
  90   FINISH;
  91 }
  92
  93 static void *vl_api_delete_loopback_t_print
  94   (vl_api_delete_loopback_t * mp, void *handle)
  95 {
  96   u8 *s;
  97
  98   s = format (0, "SCRIPT: delete_loopback ");
  99   s = format (s, "sw_if_index %d ", mp->sw_if_index);
 100
 101   FINISH;
 102 }
 103
 104 static void *vl_api_sw_interface_set_flags_t_print
 105   (vl_api_sw_interface_set_flags_t * mp, void *handle)
 106 {
 107   u8 *s;
 108   s = format (0, "SCRIPT: sw_interface_set_flags ");
 109
 110   s = format (s, "sw_if_index %d ", mp->sw_if_index);
 111
 112   if ((mp->flags) & IF_STATUS_API_FLAG_ADMIN_UP)
 113     s = format (s, "admin-up ");
 114   else
 115     s = format (s, "admin-down ");
 116
 117   FINISH;
 118 }
 119
 120 __clib_unused
 121   static void *vl_api_sw_interface_set_rx_placement_t_print
 122   (vl_api_sw_interface_set_rx_placement_t * mp, void *handle)
 123 {
 124   u8 *s;
 125   s = format (0, "SCRIPT: sw_interface_set_rx_placement ");
 126
 127   s = format (s, "sw_if_index %d ", mp->sw_if_index);
 128
 129   s = format (s, "queue %d ", mp->queue_id);
 130   if (mp->is_main)
 131     s = format (s, "main ");
 132   else
 133     s = format (s, "worker %d ", mp->worker_id);
 134
 135   FINISH;
 136 }
 137
 138 static void *vl_api_sw_interface_rx_placement_dump_t_print
 139   (vl_api_sw_interface_rx_placement_dump_t * mp, void *handle)
 140 {
 141   u8 *s;
 142   u32 sw_if_index = (mp->sw_if_index);
 143
 144   s = format (0, "SCRIPT: sw_interface_rx_placement_dump ");
 145
 146   if (sw_if_index != ~0)
 147     s = format (s, "sw_if_index %d ", sw_if_index);
 148
 149   FINISH;
 150 }
 151
 152 static void *vl_api_sw_interface_event_t_print
 153   (vl_api_sw_interface_event_t * mp, void *handle)
 154 {
 155   u8 *s;
 156   s = format (0, "SCRIPT: sw_interface_event ");
 157
 158   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
 159
 160   if ((mp->flags) & IF_STATUS_API_FLAG_ADMIN_UP)
 161     s = format (s, "admin-up ");
 162   else
 163     s = format (s, "admin-down ");
 164
 165   if ((mp->flags) & IF_STATUS_API_FLAG_LINK_UP)
 166     s = format (s, "link-up");
 167   else
 168     s = format (s, "link-down");
 169
 170   if (mp->deleted)
 171     s = format (s, " deleted");
 172
 173   FINISH;
 174 }
 175
 176
 177 static void *vl_api_sw_interface_add_del_address_t_print
 178   (vl_api_sw_interface_add_del_address_t * mp, void *handle)
 179 {
 180   u8 *s;
 181
 182   s = format (0, "SCRIPT: sw_interface_add_del_address ");
 183   s = format (s, "sw_if_index %d ", mp->sw_if_index);
 184   s = format (s, "%U ", format_vl_api_prefix_t, &mp->prefix);
 185   if (mp->is_add == 0)
 186     s = format (s, "del ");
 187   if (mp->del_all)
 188     s = format (s, "del-all ");
 189
 190   FINISH;
 191 }
 192
 193 static void *vl_api_sw_interface_set_table_t_print
 194   (vl_api_sw_interface_set_table_t * mp, void *handle)
 195 {
 196   u8 *s;
 197
 198   s = format (0, "SCRIPT: sw_interface_set_table ");
 199
 200   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
 201
 202   if (mp->vrf_id)
 203     s = format (s, "vrf %d ", (mp->vrf_id));
 204
 205   if (mp->is_ipv6)
 206     s = format (s, "ipv6 ");
 207
 208   FINISH;
 209 }
 210
 211 static void *vl_api_sw_interface_set_mpls_enable_t_print
 212   (vl_api_sw_interface_set_mpls_enable_t * mp, void *handle)
 213 {
 214   u8 *s;
 215
 216   s = format (0, "SCRIPT: sw_interface_set_mpls_enable ");
 217
 218   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
 219
 220   if (mp->enable == 0)
 221     s = format (s, "disable");
 222
 223   FINISH;
 224 }
 225
 226 static void *vl_api_sw_interface_set_vpath_t_print
 227   (vl_api_sw_interface_set_vpath_t * mp, void *handle)
 228 {
 229   u8 *s;
 230
 231   s = format (0, "SCRIPT: sw_interface_set_vpath ");
 232
 233   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
 234
 235   if (mp->enable)
 236     s = format (s, "enable ");
 237   else
 238     s = format (s, "disable ");
 239
 240   FINISH;
 241 }
 242
 243 static void *vl_api_sw_interface_set_vxlan_bypass_t_print
 244   (vl_api_sw_interface_set_vxlan_bypass_t * mp, void *handle)
 245 {
 246   u8 *s;
 247
 248   s = format (0, "SCRIPT: sw_interface_set_vxlan_bypass ");
 249
 250   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
 251
 252   if (mp->is_ipv6)
 253     s = format (s, "ip6 ");
 254
 255   if (mp->enable)
 256     s = format (s, "enable ");
 257   else
 258     s = format (s, "disable ");
 259
 260   FINISH;
 261 }
 262
 263 static void *vl_api_sw_interface_set_l2_xconnect_t_print
 264   (vl_api_sw_interface_set_l2_xconnect_t * mp, void *handle)
 265 {
 266   u8 *s;
 267
 268   s = format (0, "SCRIPT: sw_interface_set_l2_xconnect ");
 269
 270   s = format (s, "sw_if_index %d ", (mp->rx_sw_if_index));
 271
 272   if (mp->enable)
 273     {
 274       s = format (s, "tx_sw_if_index %d ", (mp->tx_sw_if_index));
 275     }
 276   else
 277     s = format (s, "delete ");
 278
 279   FINISH;
 280 }
 281
 282 static void *vl_api_sw_interface_set_l2_bridge_t_print
 283   (vl_api_sw_interface_set_l2_bridge_t * mp, void *handle)
 284 {
 285   u8 *s;
 286
 287   s = format (0, "SCRIPT: sw_interface_set_l2_bridge ");
 288
 289   s = format (s, "sw_if_index %d ", (mp->rx_sw_if_index));
 290
 291   if (mp->enable)
 292     {
 293       s = format (s, "bd_id %d shg %d ", (mp->bd_id), mp->shg);
 294       if (L2_API_PORT_TYPE_BVI == (mp->port_type))
 295         s = format (s, "bvi ");
 296       if (L2_API_PORT_TYPE_UU_FWD == (mp->port_type))
 297         s = format (s, "uu-fwd ");
 298       s = format (s, "enable");
 299     }
 300   else
 301     s = format (s, "disable ");
 302
 303   FINISH;
 304 }
 305
 306 static void *vl_api_bridge_domain_add_del_t_print
 307   (vl_api_bridge_domain_add_del_t * mp, void *handle)
 308 {
 309   u8 *s;
 310
 311   s = format (0, "SCRIPT: bridge_domain_add_del ");
 312
 313   s = format (s, "bd_id %d ", (mp->bd_id));
 314
 315   if (mp->is_add)
 316     {
 317       if (mp->bd_tag[0])
 318         s = format (s, "bd_tag %s ", mp->bd_tag);
 319       s = format (s, "flood %d uu-flood %d ", mp->flood, mp->uu_flood);
 320       s = format (s, "forward %d learn %d ", mp->forward, mp->learn);
 321       s = format (s, "arp-term %d mac-age %d", mp->arp_term, mp->mac_age);
 322     }
 323   else
 324     s = format (s, "del ");
 325
 326   FINISH;
 327 }
 328
 329 static void *vl_api_bridge_domain_set_mac_age_t_print
 330   (vl_api_bridge_domain_set_mac_age_t * mp, void *handle)
 331 {
 332   u8 *s;
 333
 334   s = format (0, "SCRIPT: bridge_domain_set_mac_age ");
 335
 336   s = format (s, "bd_id %d ", (mp->bd_id));
 337
 338   s = format (s, "mac-age %d", mp->mac_age);
 339
 340   FINISH;
 341 }
 342
 343 static void *vl_api_bridge_domain_dump_t_print
 344   (vl_api_bridge_domain_dump_t * mp, void *handle)
 345 {
 346   u8 *s;
 347   u32 bd_id = (mp->bd_id);
 348
 349   s = format (0, "SCRIPT: bridge_domain_dump ");
 350
 351   if (bd_id != ~0)
 352     s = format (s, "bd_id %d ", bd_id);
 353
 354   FINISH;
 355 }
 356
 357 static void *vl_api_l2fib_flush_all_t_print
 358   (vl_api_l2fib_flush_all_t * mp, void *handle)
 359 {
 360   u8 *s;
 361
 362   s = format (0, "SCRIPT: l2fib_flush_all ");
 363
 364   FINISH;
 365 }
 366
 367
 368 static void *vl_api_l2fib_flush_bd_t_print
 369   (vl_api_l2fib_flush_bd_t * mp, void *handle)
 370 {
 371   u8 *s;
 372   u32 bd_id = (mp->bd_id);
 373
 374   s = format (0, "SCRIPT: l2fib_flush_bd ");
 375   s = format (s, "bd_id %d ", bd_id);
 376
 377   FINISH;
 378 }
 379
 380 static void *vl_api_l2fib_flush_int_t_print
 381   (vl_api_l2fib_flush_int_t * mp, void *handle)
 382 {
 383   u8 *s;
 384   u32 sw_if_index = (mp->sw_if_index);
 385
 386   s = format (0, "SCRIPT: l2fib_flush_int ");
 387   s = format (s, "sw_if_index %d ", sw_if_index);
 388
 389   FINISH;
 390 }
 391
 392 static void *vl_api_l2fib_add_del_t_print
 393   (vl_api_l2fib_add_del_t * mp, void *handle)
 394 {
 395   u8 *s;
 396
 397   s = format (0, "SCRIPT: l2fib_add_del ");
 398
 399   s = format (s, "mac %U ", format_ethernet_address, mp->mac);
 400
 401   s = format (s, "bd_id %d ", (mp->bd_id));
 402
 403
 404   if (mp->is_add)
 405     {
 406       s = format (s, "sw_if_index %d ", (mp->sw_if_index));
 407       if (mp->static_mac)
 408         s = format (s, "%s", "static ");
 409       if (mp->filter_mac)
 410         s = format (s, "%s", "filter ");
 411       if (mp->bvi_mac)
 412         s = format (s, "%s", "bvi ");
 413     }
 414   else
 415     {
 416       s = format (s, "del ");
 417     }
 418
 419   FINISH;
 420 }
 421
 422 static void *
 423 vl_api_l2_flags_t_print (vl_api_l2_flags_t * mp, void *handle)
 424 {
 425   u8 *s;
 426   u32 flags = (mp->feature_bitmap);
 427
 428   s = format (0, "SCRIPT: l2_flags ");
 429
 430   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
 431
 432   if (flags & L2_LEARN)
 433     s = format (s, "learn ");
 434   if (flags & L2_FWD)
 435     s = format (s, "forward ");
 436   if (flags & L2_FLOOD)
 437     s = format (s, "flood ");
 438   if (flags & L2_UU_FLOOD)
 439     s = format (s, "uu-flood ");
 440   if (flags & L2_ARP_TERM)
 441     s = format (s, "arp-term ");
 442
 443   if (mp->is_set == 0)
 444     s = format (s, "clear ");
 445
 446   FINISH;
 447 }
 448
 449 static void *vl_api_bridge_flags_t_print
 450   (vl_api_bridge_flags_t * mp, void *handle)
 451 {
 452   u8 *s;
 453   u32 flags = (mp->flags);
 454
 455   s = format (0, "SCRIPT: bridge_flags ");
 456
 457   s = format (s, "bd_id %d ", (mp->bd_id));
 458
 459   if (flags & BRIDGE_API_FLAG_LEARN)
 460     s = format (s, "learn ");
 461   if (flags & BRIDGE_API_FLAG_FWD)
 462     s = format (s, "forward ");
 463   if (flags & BRIDGE_API_FLAG_FLOOD)
 464     s = format (s, "flood ");
 465   if (flags & BRIDGE_API_FLAG_UU_FLOOD)
 466     s = format (s, "uu-flood ");
 467   if (flags & BRIDGE_API_FLAG_ARP_TERM)
 468     s = format (s, "arp-term ");
 469
 470   if (mp->is_set == 0)
 471     s = format (s, "clear ");
 472
 473   FINISH;
 474 }
 475
 476 static void *vl_api_bd_ip_mac_add_del_t_print
 477   (vl_api_bd_ip_mac_add_del_t * mp, void *handle)
 478 {
 479   u8 *s;
 480
 481   s = format (0, "SCRIPT: bd_ip_mac_add_del ");
 482   s = format (s, "bd_id %d ", (mp->entry.bd_id));
 483
 484   s = format (s, "%U ", format_vl_api_address, &mp->entry.ip);
 485   s = format (s, "%U ", format_vl_api_mac_address, &mp->entry.mac);
 486   if (mp->is_add == 0)
 487     s = format (s, "del ");
 488
 489   FINISH;
 490 }
 491
 492 static void *vl_api_bd_ip_mac_flush_t_print
 493   (vl_api_bd_ip_mac_flush_t * mp, void *handle)
 494 {
 495   u8 *s;
 496
 497   s = format (0, "SCRIPT: bd_ip_mac_flush ");
 498   s = format (s, "bd_id %d ", (mp->bd_id));
 499
 500   FINISH;
 501 }
 502
 503 __clib_unused
 504   static void *vl_api_bd_ip_mac_dump_t_print
 505   (vl_api_bd_ip_mac_dump_t * mp, void *handle)
 506 {
 507   u8 *s;
 508
 509   s = format (0, "SCRIPT: bd_ip_mac_dump ");
 510
 511   FINISH;
 512 }
 513
 514 static void *vl_api_tap_create_v2_t_print
 515   (vl_api_tap_create_v2_t * mp, void *handle)
 516 {
 517   u8 *s;
 518   u8 null_mac[6];
 519
 520   clib_memset (null_mac, 0, sizeof (null_mac));
 521
 522   s = format (0, "SCRIPT: tap_create_v2 ");
 523   s = format (s, "id %u ", (mp->id));
 524   if (memcmp (mp->mac_address, null_mac, 6))
 525     s = format (s, "mac-address %U ",
 526                 format_ethernet_address, mp->mac_address);
 527   if (memcmp (mp->host_mac_addr, null_mac, 6))
 528     s = format (s, "host-mac-addr %U ",
 529                 format_ethernet_address, mp->host_mac_addr);
 530   if (mp->host_if_name_set)
 531     s = format (s, "host-if-name %s ", mp->host_if_name);
 532   if (mp->host_namespace_set)
 533     s = format (s, "host-ns %s ", mp->host_namespace);
 534   if (mp->host_bridge_set)
 535     s = format (s, "host-bridge %s ", mp->host_bridge);
 536   if (mp->host_ip4_prefix_set)
 537     s = format (s, "host-ip4-addr %U/%d ", format_ip4_address,
 538                 mp->host_ip4_prefix.address, mp->host_ip4_prefix.len);
 539   if (mp->host_ip6_prefix_set)
 540     s = format (s, "host-ip6-addr %U/%d ", format_ip6_address,
 541                 mp->host_ip6_prefix.address, mp->host_ip6_prefix.len);
 542   if (mp->host_ip4_gw_set)
 543     s =
 544       format (s, "host-ip4-gw %U ", format_ip4_address,
 545               mp->host_ip4_prefix.address);
 546   if (mp->host_ip6_gw_set)
 547     s =
 548       format (s, "host-ip6-gw %U ", format_ip6_address,
 549               mp->host_ip6_prefix.address);
 550   if (mp->num_rx_queues)
 551     s = format (s, "num_rx_queues %u ", mp->num_rx_queues);
 552   if (mp->tx_ring_sz)
 553     s = format (s, "tx-ring-size %u ", (mp->tx_ring_sz));
 554   if (mp->rx_ring_sz)
 555     s = format (s, "rx-ring-size %u ", (mp->rx_ring_sz));
 556   if (mp->host_mtu_set)
 557     s = format (s, "host-mtu-size %u ", (mp->host_mtu_size));
 558   if ((mp->tap_flags) & TAP_API_FLAG_GSO)
 559     s = format (s, "gso-enabled ");
 560   if ((mp->tap_flags) & TAP_API_FLAG_CSUM_OFFLOAD)
 561     s = format (s, "csum-offload-enabled ");
 562   if ((mp->tap_flags) & TAP_API_FLAG_PERSIST)
 563     s = format (s, "persist ");
 564   if ((mp->tap_flags) & TAP_API_FLAG_ATTACH)
 565     s = format (s, "attach ");
 566   if ((mp->tap_flags) & TAP_API_FLAG_TUN)
 567     s = format (s, "tun ");
 568   if ((mp->tap_flags) & TAP_API_FLAG_GRO_COALESCE)
 569     s = format (s, "gro-coalesce-enabled ");
 570   if ((mp->tap_flags) & TAP_API_FLAG_PACKED)
 571     s = format (s, "packed ");
 572   if ((mp->tap_flags) & TAP_API_FLAG_IN_ORDER)
 573     s = format (s, "in-order ");
 574   FINISH;
 575 }
 576
 577 static void *vl_api_tap_delete_v2_t_print
 578   (vl_api_tap_delete_v2_t * mp, void *handle)
 579 {
 580   u8 *s;
 581
 582   s = format (0, "SCRIPT: tap_delete_v2 ");
 583   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
 584
 585   FINISH;
 586 }
 587
 588 static void *vl_api_sw_interface_tap_v2_dump_t_print
 589   (vl_api_sw_interface_tap_v2_dump_t * mp, void *handle)
 590 {
 591   u8 *s;
 592
 593   s = format (0, "SCRIPT: sw_interface_tap_v2_dump ");
 594
 595   FINISH;
 596 }
 597
 598 __clib_unused
 599   static void *vl_api_virtio_pci_create_t_print
 600   (vl_api_virtio_pci_create_t * mp, void *handle)
 601 {
 602   u8 *s;
 603   u8 null_mac[6];
 604
 605   clib_memset (null_mac, 0, sizeof (null_mac));
 606
 607   s = format (0, "SCRIPT: virtio_pci_create ");
 608   s = format (s, "pci_addr %U ", format_vlib_pci_addr, (mp->pci_addr));
 609   if (memcmp (mp->mac_address, null_mac, 6))
 610     s = format (s, "mac-address %U ",
 611                 format_ethernet_address, mp->mac_address);
 612   if (mp->features)
 613     s = format (s, "features 0x%llx ", clib_net_to_host_u64 (mp->features));
 614   if (mp->gso_enabled)
 615     s = format (s, "gso-enabled ");
 616   if (mp->checksum_offload_enabled)
 617     s = format (s, "checksum_offload_enabled");
 618   FINISH;
 619 }
 620
 621 __clib_unused
 622   static void *vl_api_virtio_pci_create_v2_t_print
 623   (vl_api_virtio_pci_create_v2_t * mp, void *handle)
 624 {
 625   u8 *s;
 626   u8 null_mac[6];
 627
 628   clib_memset (null_mac, 0, sizeof (null_mac));
 629
 630   s = format (0, "SCRIPT: virtio_pci_create_v2 ");
 631   s = format (s, "pci_addr %U ", format_vlib_pci_addr, (mp->pci_addr));
 632   if (memcmp (mp->mac_address, null_mac, 6))
 633     s = format (s, "mac-address %U ",
 634                 format_ethernet_address, mp->mac_address);
 635   if (mp->features)
 636     s = format (s, "features 0x%llx ", clib_net_to_host_u64 (mp->features));
 637   if (mp->virtio_flags & VIRTIO_API_FLAG_GSO)
 638     s = format (s, "gso-enabled ");
 639   if (mp->virtio_flags & VIRTIO_API_FLAG_CSUM_OFFLOAD)
 640     s = format (s, "checksum_offload_enabled ");
 641   if ((mp->virtio_flags) & VIRTIO_API_FLAG_GRO_COALESCE)
 642     s = format (s, "gro-coalesce-enabled ");
 643   if ((mp->virtio_flags) & VIRTIO_API_FLAG_PACKED)
 644     s = format (s, "packed ");
 645   if ((mp->virtio_flags) & VIRTIO_API_FLAG_IN_ORDER)
 646     s = format (s, "in-order ");
 647   if ((mp->virtio_flags) & VIRTIO_API_FLAG_BUFFERING)
 648     s = format (s, "buffering ");
 649   FINISH;
 650 }
 651
 652 __clib_unused
 653   static void *vl_api_virtio_pci_delete_t_print
 654   (vl_api_virtio_pci_delete_t * mp, void *handle)
 655 {
 656   u8 *s;
 657
 658   s = format (0, "SCRIPT: virtio_pci_delete ");
 659   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
 660
 661   FINISH;
 662 }
 663
 664 __clib_unused
 665   static void *vl_api_sw_interface_virtio_pci_dump_t_print
 666   (vl_api_sw_interface_virtio_pci_dump_t * mp, void *handle)
 667 {
 668   u8 *s;
 669
 670   s = format (0, "SCRIPT: sw_interface_virtio_pci_dump ");
 671
 672   FINISH;
 673 }
 674
 675 static void *vl_api_bond_create_t_print
 676   (vl_api_bond_create_t * mp, void *handle)
 677 {
 678   u8 *s;
 679   u8 null_mac[6];
 680
 681   clib_memset (null_mac, 0, sizeof (null_mac));
 682
 683   s = format (0, "SCRIPT: bond_create ");
 684   if (memcmp (mp->mac_address, null_mac, 6))
 685     s = format (s, "mac-address %U ",
 686                 format_ethernet_address, mp->mac_address);
 687   if (mp->mode)
 688     s = format (s, "mode %U ", format_bond_mode, ntohl (mp->mode));
 689   if (mp->lb)
 690     s = format (s, "lb %U ", format_bond_load_balance, ntohl (mp->lb));
 691   if (mp->numa_only)
 692     s = format (s, "numa-only is set in lacp mode");
 693   if (mp->id != ~0)
 694     s = format (s, "id %u ", (mp->id));
 695   FINISH;
 696 }
 697
 698 static void *vl_api_bond_create2_t_print
 699   (vl_api_bond_create2_t * mp, void *handle)
 700 {
 701   u8 *s;
 702   u8 null_mac[6];
 703
 704   clib_memset (null_mac, 0, sizeof (null_mac));
 705
 706   s = format (0, "SCRIPT: bond_create2 ");
 707   if (memcmp (mp->mac_address, null_mac, 6))
 708     s = format (s, "mac-address %U ",
 709                 format_ethernet_address, mp->mac_address);
 710   if (mp->mode)
 711     s = format (s, "mode %U ", format_bond_mode, ntohl (mp->mode));
 712   if (mp->lb)
 713     s = format (s, "lb %U ", format_bond_load_balance, ntohl (mp->lb));
 714   if (mp->numa_only)
 715     s = format (s, "numa-only ");
 716   if (mp->enable_gso)
 717     s = format (s, "gso ");
 718   if (mp->id != ~0)
 719     s = format (s, "id %u ", (mp->id));
 720   FINISH;
 721 }
 722
 723 static void *vl_api_bond_delete_t_print
 724   (vl_api_bond_delete_t * mp, void *handle)
 725 {
 726   u8 *s;
 727
 728   s = format (0, "SCRIPT: bond_delete ");
 729   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
 730
 731   FINISH;
 732 }
 733
 734 static void *vl_api_bond_add_member_t_print
 735   (vl_api_bond_add_member_t * mp, void *handle)
 736 {
 737   u8 *s;
 738
 739   s = format (0, "SCRIPT: bond_add_member ");
 740   s = format (s, "bond_sw_if_index %u ", (mp->bond_sw_if_index));
 741   s = format (s, "sw_if_index %u ", (mp->sw_if_index));
 742   if (mp->is_passive)
 743     s = format (s, "passive ");
 744   if (mp->is_long_timeout)
 745     s = format (s, "long-timeout ");
 746
 747   FINISH;
 748 }
 749
 750 static void *vl_api_sw_interface_set_bond_weight_t_print
 751   (vl_api_sw_interface_set_bond_weight_t * mp, void *handle)
 752 {
 753   u8 *s;
 754
 755   s = format (0, "SCRIPT: sw_interface_set_bond_weight ");
 756   s = format (s, "sw_if_index %u ", ntohl (mp->sw_if_index));
 757   s = format (s, "weight %u ", ntohl (mp->weight));
 758
 759   FINISH;
 760 }
 761
 762 static void *vl_api_bond_detach_member_t_print
 763   (vl_api_bond_detach_member_t * mp, void *handle)
 764 {
 765   u8 *s;
 766
 767   s = format (0, "SCRIPT: bond_detach_member ");
 768   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
 769
 770   FINISH;
 771 }
 772
 773 static void *vl_api_sw_bond_interface_dump_t_print
 774   (vl_api_sw_bond_interface_dump_t * mp, void *handle)
 775 {
 776   u8 *s;
 777
 778   s = format (0, "SCRIPT: sw_bond_interface_dump ");
 779   if (mp->sw_if_index != ~0)
 780     s = format (s, "sw_if_index %d ", (mp->sw_if_index));
 781
 782   FINISH;
 783 }
 784
 785 static void *vl_api_sw_member_interface_dump_t_print
 786   (vl_api_sw_member_interface_dump_t * mp, void *handle)
 787 {
 788   u8 *s;
 789
 790   s = format (0, "SCRIPT: sw_member_interface_dump ");
 791   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
 792
 793   FINISH;
 794 }
 795
 796 static void *vl_api_ip_route_add_del_t_print
 797   (vl_api_ip_route_add_del_t * mp, void *handle)
 798 {
 799   u8 *s, p;
 800
 801   s = format (0, "SCRIPT: ip_route_add_del ");
 802   if (mp->is_add == 0)
 803     s = format (s, "del ");
 804
 805   s = format (s, "%U", format_vl_api_prefix, &mp->route.prefix);
 806
 807   for (p = 0; p < mp->route.n_paths; p++)
 808     s = format (s, " [%U]", format_vl_api_fib_path, &mp->route.paths[p]);
 809
 810   FINISH;
 811 }
 812
 813 static void *vl_api_mpls_route_add_del_t_print
 814   (vl_api_mpls_route_add_del_t * mp, void *handle)
 815 {
 816   u8 *s, p;
 817
 818   s = format (0, "SCRIPT: mpls_route_add_del ");
 819
 820   if (mp->mr_is_add)
 821     s = format (s, "add ");
 822   else
 823     s = format (s, "del ");
 824
 825   s = format (s, "table %d ", (mp->mr_route.mr_table_id));
 826   s = format (s, "%d ", (mp->mr_route.mr_label));
 827
 828   if (mp->mr_route.mr_eos)
 829     s = format (s, "eos ");
 830   else
 831     s = format (s, "non-eos ");
 832
 833   if (mp->mr_route.mr_is_multicast)
 834     s = format (s, "multicast ");
 835
 836   for (p = 0; p < mp->mr_route.mr_n_paths; p++)
 837     s =
 838       format (s, " [%U]", format_vl_api_fib_path, &mp->mr_route.mr_paths[p]);
 839
 840
 841   FINISH;
 842 }
 843
 844 static void *vl_api_ip_table_add_del_t_print
 845   (vl_api_ip_table_add_del_t * mp, void *handle)
 846 {
 847   u8 *s;
 848
 849   s = format (0, "SCRIPT: ip_table_add_del ");
 850   if (mp->is_add)
 851     s = format (s, "add ");
 852   else
 853     s = format (s, "del ");
 854   if (mp->table.is_ip6)
 855     s = format (s, "ip6 ");
 856   s = format (s, "table %d ", (mp->table.table_id));
 857   s = format (s, "%s ", mp->table.name);
 858
 859   FINISH;
 860 }
 861
 862 static void *vl_api_mpls_table_add_del_t_print
 863   (vl_api_mpls_table_add_del_t * mp, void *handle)
 864 {
 865   u8 *s;
 866
 867   s = format (0, "SCRIPT: mpls_table_add_del ");
 868   if (mp->mt_is_add)
 869     s = format (s, "add ");
 870   else
 871     s = format (s, "del ");
 872   s = format (s, "table %d ", (mp->mt_table.mt_table_id));
 873
 874   FINISH;
 875 }
 876
 877 static void *vl_api_mpls_tunnel_add_del_t_print
 878   (vl_api_mpls_tunnel_add_del_t * mp, void *handle)
 879 {
 880   u8 *s, p;
 881
 882   s = format (0, "SCRIPT: mpls_tunnel_add_del ");
 883
 884   if (mp->mt_is_add == 0)
 885     s = format (s, "del sw_if_index %d ", (mp->mt_tunnel.mt_sw_if_index));
 886   else
 887     s = format (s, "sw_if_index %d ", (mp->mt_tunnel.mt_sw_if_index));
 888
 889
 890   if (mp->mt_tunnel.mt_l2_only)
 891     s = format (s, "l2-only ");
 892   if (mp->mt_tunnel.mt_is_multicast)
 893     s = format (s, "multicast ");
 894   if (mp->mt_tunnel.mt_tunnel_index)
 895     s = format (s, "tunnel-index ");
 896
 897   for (p = 0; p < mp->mt_tunnel.mt_n_paths; p++)
 898     s = format (s, " [%U]", format_vl_api_fib_path,
 899                 &mp->mt_tunnel.mt_paths[p]);
 900
 901   FINISH;
 902 }
 903
 904 static void *vl_api_sr_mpls_policy_add_t_print
 905   (vl_api_sr_mpls_policy_add_t * mp, void *handle)
 906 {
 907   u8 *s;
 908
 909   s = format (0, "SCRIPT: sr_mpls_policy_add ");
 910
 911   s = format (s, "bsid %d ", (mp->bsid));
 912
 913   if (mp->weight != htonl ((u32) 1))
 914     s = format (s, "%d ", (mp->weight));
 915
 916   if (mp->is_spray)
 917     s = format (s, "spray ");
 918
 919   if (mp->n_segments)
 920     {
 921       int i;
 922       for (i = 0; i < mp->n_segments; i++)
 923         s = format (s, "next %d ", (mp->segments[i]));
 924     }
 925
 926   FINISH;
 927 }
 928
 929 static void *vl_api_sr_mpls_policy_del_t_print
 930   (vl_api_sr_mpls_policy_del_t * mp, void *handle)
 931 {
 932   u8 *s;
 933
 934   s = format (0, "SCRIPT: sr_mpls_policy_del ");
 935
 936   s = format (s, "bsid %d ", (mp->bsid));
 937
 938   FINISH;
 939 }
 940
 941 static void *vl_api_sw_interface_set_unnumbered_t_print
 942   (vl_api_sw_interface_set_unnumbered_t * mp, void *handle)
 943 {
 944   u8 *s;
 945
 946   s = format (0, "SCRIPT: sw_interface_set_unnumbered ");
 947
 948   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
 949
 950   s = format (s, "unnum_if_index %d ", (mp->unnumbered_sw_if_index));
 951
 952   if (mp->is_add == 0)
 953     s = format (s, "del ");
 954
 955   FINISH;
 956 }
 957
 958 static void *vl_api_create_vlan_subif_t_print
 959   (vl_api_create_vlan_subif_t * mp, void *handle)
 960 {
 961   u8 *s;
 962
 963   s = format (0, "SCRIPT: create_vlan_subif ");
 964
 965   if (mp->sw_if_index)
 966     s = format (s, "sw_if_index %d ", (mp->sw_if_index));
 967
 968   if (mp->vlan_id)
 969     s = format (s, "vlan_id %d ", (mp->vlan_id));
 970
 971   FINISH;
 972 }
 973
 974 #define foreach_create_subif_flag               \
 975 _(0, "no_tags")                                 \
 976 _(1, "one_tag")                                 \
 977 _(2, "two_tags")                                \
 978 _(3, "dot1ad")                                  \
 979 _(4, "exact_match")                             \
 980 _(5, "default_sub")                             \
 981 _(6, "outer_vlan_id_any")                       \
 982 _(7, "inner_vlan_id_any")
 983
 984 static void *vl_api_create_subif_t_print
 985   (vl_api_create_subif_t * mp, void *handle)
 986 {
 987   u8 *s;
 988
 989   s = format (0, "SCRIPT: create_subif ");
 990
 991   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
 992
 993   s = format (s, "sub_id %d ", (mp->sub_id));
 994
 995   if (mp->outer_vlan_id)
 996     s = format (s, "outer_vlan_id %d ", (mp->outer_vlan_id));
 997
 998   if (mp->inner_vlan_id)
 999     s = format (s, "inner_vlan_id %d ", (mp->inner_vlan_id));
1000
1001 #define _(a,b) if (mp->sub_if_flags & (1 << a)) s = format (s, "%s ", b);
1002   foreach_create_subif_flag;
1003 #undef _
1004
1005   FINISH;
1006 }
1007
1008 static void *vl_api_delete_subif_t_print
1009   (vl_api_delete_subif_t * mp, void *handle)
1010 {
1011   u8 *s;
1012
1013   s = format (0, "SCRIPT: delete_subif ");
1014   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1015
1016   FINISH;
1017 }
1018
1019 static void *
1020 vl_api_ip_table_replace_begin_t_print (vl_api_ip_table_replace_begin_t * mp,
1021                                        void *handle)
1022 {
1023   u8 *s;
1024
1025   s = format (0, "SCRIPT: ip_table_replace_begin ");
1026
1027   s = format (s, "v%s-table %d ",
1028               mp->table.is_ip6 ? "6" : "4", (mp->table.table_id));
1029
1030   FINISH;
1031 }
1032
1033 static void *
1034 vl_api_ip_table_flush_t_print (vl_api_ip_table_flush_t * mp, void *handle)
1035 {
1036   u8 *s;
1037
1038   s = format (0, "SCRIPT: ip_table_flush ");
1039
1040   s = format (s, "v%s-table %d ",
1041               mp->table.is_ip6 ? "6" : "4", (mp->table.table_id));
1042
1043   FINISH;
1044 }
1045
1046 static void *
1047 vl_api_ip_table_replace_end_t_print (vl_api_ip_table_replace_end_t * mp,
1048                                      void *handle)
1049 {
1050   u8 *s;
1051
1052   s = format (0, "SCRIPT: ip_table_replace_end ");
1053
1054   s = format (s, "v%s-table %d ",
1055               mp->table.is_ip6 ? "6" : "4", (mp->table.table_id));
1056
1057   FINISH;
1058 }
1059
1060 static void *vl_api_set_ip_flow_hash_t_print
1061   (vl_api_set_ip_flow_hash_t * mp, void *handle)
1062 {
1063   u8 *s;
1064
1065   s = format (0, "SCRIPT: set_ip_flow_hash ");
1066
1067   s = format (s, "vrf_id %d ", (mp->vrf_id));
1068
1069   if (mp->src)
1070     s = format (s, "src ");
1071
1072   if (mp->dst)
1073     s = format (s, "dst ");
1074
1075   if (mp->sport)
1076     s = format (s, "sport ");
1077
1078   if (mp->dport)
1079     s = format (s, "dport ");
1080
1081   if (mp->proto)
1082     s = format (s, "proto ");
1083
1084   if (mp->reverse)
1085     s = format (s, "reverse ");
1086
1087   if (mp->is_ipv6 != 0)
1088     s = format (s, "ipv6 ");
1089
1090   FINISH;
1091 }
1092
1093
1094 static void *vl_api_l2_patch_add_del_t_print
1095   (vl_api_l2_patch_add_del_t * mp, void *handle)
1096 {
1097   u8 *s;
1098
1099   s = format (0, "SCRIPT: l2_patch_add_del ");
1100
1101   s = format (s, "rx_sw_if_index %d ", (mp->rx_sw_if_index));
1102
1103   s = format (s, "tx_sw_if_index %d ", (mp->tx_sw_if_index));
1104
1105   if (mp->is_add == 0)
1106     s = format (s, "del ");
1107
1108   FINISH;
1109 }
1110
1111 static void *vl_api_sr_localsid_add_del_t_print
1112   (vl_api_sr_localsid_add_del_t * mp, void *handle)
1113 {
1114   vnet_main_t *vnm = vnet_get_main ();
1115   u8 *s;
1116
1117   s = format (0, "SCRIPT: sr_localsid_add_del ");
1118
1119   switch (mp->behavior)
1120     {
1121     case SR_BEHAVIOR_END:
1122       s = format (s, "Address: %U\nBehavior: End",
1123                   format_ip6_address, (ip6_address_t *) mp->localsid);
1124       s = format (s, (mp->end_psp ? "End.PSP: True" : "End.PSP: False"));
1125       break;
1126     case SR_BEHAVIOR_X:
1127       s =
1128         format (s,
1129                 "Address: %U\nBehavior: X (Endpoint with Layer-3 cross-connect)"
1130                 "\nIface: %U\nNext hop: %U", format_ip6_address,
1131                 (ip6_address_t *) mp->localsid,
1132                 format_vnet_sw_if_index_name, vnm, (mp->sw_if_index),
1133                 format_ip6_address, (ip6_address_t *) mp->nh_addr.un.ip6);
1134       s = format (s, (mp->end_psp ? "End.PSP: True" : "End.PSP: False"));
1135       break;
1136     case SR_BEHAVIOR_DX4:
1137       s =
1138         format (s,
1139                 "Address: %U\nBehavior: DX4 (Endpoint with decapsulation with IPv4 cross-connect)"
1140                 "\nIface: %U\nNext hop: %U", format_ip6_address,
1141                 (ip6_address_t *) mp->localsid,
1142                 format_vnet_sw_if_index_name, vnm, (mp->sw_if_index),
1143                 format_ip4_address, (ip4_address_t *) mp->nh_addr.un.ip4);
1144       break;
1145     case SR_BEHAVIOR_DX6:
1146       s =
1147         format (s,
1148                 "Address: %U\nBehavior: DX6 (Endpoint with decapsulation with IPv6 cross-connect)"
1149                 "\nIface: %UNext hop: %U", format_ip6_address,
1150                 (ip6_address_t *) mp->localsid,
1151                 format_vnet_sw_if_index_name, vnm, (mp->sw_if_index),
1152                 format_ip6_address, (ip6_address_t *) mp->nh_addr.un.ip6);
1153       break;
1154     case SR_BEHAVIOR_DX2:
1155       s =
1156         format (s,
1157                 "Address: %U\nBehavior: DX2 (Endpoint with decapulation and Layer-2 cross-connect)"
1158                 "\nIface: %U", format_ip6_address,
1159                 (ip6_address_t *) mp->localsid,
1160                 format_vnet_sw_if_index_name, vnm, (mp->sw_if_index));
1161       break;
1162     case SR_BEHAVIOR_DT6:
1163       s =
1164         format (s,
1165                 "Address: %U\nBehavior: DT6 (Endpoint with decapsulation and specific IPv6 table lookup)"
1166                 "\nTable: %u", format_ip6_address,
1167                 (ip6_address_t *) mp->localsid, (mp->fib_table));
1168       break;
1169     case SR_BEHAVIOR_DT4:
1170       s =
1171         format (s,
1172                 "Address: %U\nBehavior: DT4 (Endpoint with decapsulation and specific IPv4 table lookup)"
1173                 "\nTable: %u", format_ip6_address,
1174                 (ip6_address_t *) mp->localsid, (mp->fib_table));
1175       break;
1176     default:
1177       if (mp->behavior >= SR_BEHAVIOR_LAST)
1178         {
1179           s = format (s, "Address: %U\n Behavior: %u",
1180                       format_ip6_address, (ip6_address_t *) mp->localsid,
1181                       mp->behavior);
1182         }
1183       else
1184         //Should never get here...
1185         s = format (s, "Internal error");
1186       break;
1187     }
1188   FINISH;
1189 }
1190
1191 static void *vl_api_sr_steering_add_del_t_print
1192   (vl_api_sr_steering_add_del_t * mp, void *handle)
1193 {
1194   u8 *s;
1195
1196   s = format (0, "SCRIPT: sr_steering_add_del ");
1197
1198   s = format (s, (mp->is_del ? "Del: True" : "Del: False"));
1199
1200   switch (mp->traffic_type)
1201     {
1202     case SR_STEER_L2:
1203       s = format (s, "Traffic type: L2 iface: %u", (mp->sw_if_index));
1204       break;
1205     case SR_STEER_IPV4:
1206       s = format (s, "Traffic type: IPv4 %U/%u", format_ip4_address,
1207                   (ip4_address_t *) mp->prefix.address.un.ip4,
1208                   (mp->prefix.len));
1209       break;
1210     case SR_STEER_IPV6:
1211       s = format (s, "Traffic type: IPv6 %U/%u", format_ip6_address,
1212                   (ip6_address_t *) mp->prefix.address.un.ip6,
1213                   (mp->prefix.len));
1214       break;
1215     default:
1216       s = format (s, "Traffic type: Unknown(%u)", mp->traffic_type);
1217       break;
1218     }
1219   s = format (s, "BindingSID: %U", format_ip6_address,
1220               (ip6_address_t *) mp->bsid_addr);
1221
1222   s = format (s, "SR Policy Index: %u", (mp->sr_policy_index));
1223
1224   s = format (s, "FIB_table: %u", (mp->table_id));
1225
1226   FINISH;
1227 }
1228
1229 static void *vl_api_sr_policy_add_t_print
1230   (vl_api_sr_policy_add_t * mp, void *handle)
1231 {
1232   u8 *s;
1233
1234   ip6_address_t *segments = 0, *seg;
1235   ip6_address_t *this_address = (ip6_address_t *) mp->sids.sids;
1236
1237   int i;
1238   for (i = 0; i < mp->sids.num_sids; i++)
1239     {
1240       vec_add2 (segments, seg, 1);
1241       clib_memcpy (seg->as_u8, this_address->as_u8, sizeof (*this_address));
1242       this_address++;
1243     }
1244
1245   s = format (0, "SCRIPT: sr_policy_add ");
1246
1247   s = format (s, "BSID: %U", format_ip6_address,
1248               (ip6_address_t *) mp->bsid_addr);
1249
1250   s =
1251     format (s,
1252             (mp->is_encap ? "Behavior: Encapsulation" :
1253              "Behavior: SRH insertion"));
1254
1255   s = format (s, "FIB_table: %u", (mp->fib_table));
1256
1257   s = format (s, (mp->is_spray ? "Type: Default" : "Type: Spray"));
1258
1259   s = format (s, "SID list weight: %u", (mp->weight));
1260
1261   s = format (s, "{");
1262   vec_foreach (seg, segments)
1263   {
1264     s = format (s, "%U, ", format_ip6_address, seg);
1265   }
1266   s = format (s, "\b\b } ");
1267
1268   FINISH;
1269 }
1270
1271 static void *vl_api_sr_policy_mod_t_print
1272   (vl_api_sr_policy_mod_t * mp, void *handle)
1273 {
1274   u8 *s;
1275
1276   ip6_address_t *segments = 0, *seg;
1277   ip6_address_t *this_address = (ip6_address_t *) mp->sids.sids;
1278
1279   int i;
1280   for (i = 0; i < mp->sids.num_sids; i++)
1281     {
1282       vec_add2 (segments, seg, 1);
1283       clib_memcpy (seg->as_u8, this_address->as_u8, sizeof (*this_address));
1284       this_address++;
1285     }
1286
1287   s = format (0, "SCRIPT: sr_policy_mod ");
1288
1289   s = format (s, "BSID: %U", format_ip6_address,
1290               (ip6_address_t *) mp->bsid_addr);
1291
1292   s = format (s, "SR Policy index: %u", (mp->sr_policy_index));
1293
1294   s = format (s, "Operation: %u", mp->operation);
1295
1296   s = format (s, "SID list index: %u", (mp->sl_index));
1297
1298   s = format (s, "SID list weight: %u", (mp->weight));
1299
1300   s = format (s, "{");
1301   vec_foreach (seg, segments)
1302   {
1303     s = format (s, "%U, ", format_ip6_address, seg);
1304   }
1305   s = format (s, "\b\b } ");
1306
1307   FINISH;
1308 }
1309
1310 static void *vl_api_sr_policy_del_t_print
1311   (vl_api_sr_policy_del_t * mp, void *handle)
1312 {
1313   u8 *s;
1314
1315   s = format (0, "SCRIPT: sr_policy_del ");
1316   s = format (s, "To be delivered. Good luck.");
1317   FINISH;
1318 }
1319
1320 static void *vl_api_classify_add_del_table_t_print
1321   (vl_api_classify_add_del_table_t * mp, void *handle)
1322 {
1323   u8 *s;
1324   int i;
1325
1326   s = format (0, "SCRIPT: classify_add_del_table ");
1327
1328   if (mp->is_add == 0)
1329     {
1330       s = format (s, "table %d ", (mp->table_index));
1331       s = format (s, "%s ", mp->del_chain ? "del-chain" : "del");
1332     }
1333   else
1334     {
1335       s = format (s, "nbuckets %d ", (mp->nbuckets));
1336       s = format (s, "memory_size %d ", (mp->memory_size));
1337       s = format (s, "skip %d ", (mp->skip_n_vectors));
1338       s = format (s, "match %d ", (mp->match_n_vectors));
1339       s = format (s, "next-table %d ", (mp->next_table_index));
1340       s = format (s, "miss-next %d ", (mp->miss_next_index));
1341       s = format (s, "current-data-flag %d ", (mp->current_data_flag));
1342       if (mp->current_data_flag)
1343         s = format (s, "current-data-offset %d ", (mp->current_data_offset));
1344       s = format (s, "mask hex ");
1345       for (i = 0; i < (mp->match_n_vectors) * sizeof (u32x4); i++)
1346         s = format (s, "%02x", mp->mask[i]);
1347       vec_add1 (s, ' ');
1348     }
1349
1350   FINISH;
1351 }
1352
1353 static void *vl_api_classify_add_del_session_t_print
1354   (vl_api_classify_add_del_session_t * mp, void *handle)
1355 {
1356   u8 *s;
1357   int i, limit = 0;
1358
1359   s = format (0, "SCRIPT: classify_add_del_session ");
1360
1361   s = format (s, "table_index %d ", (mp->table_index));
1362   s = format (s, "hit_next_index %d ", (mp->hit_next_index));
1363   s = format (s, "opaque_index %d ", (mp->opaque_index));
1364   s = format (s, "advance %d ", (mp->advance));
1365   s = format (s, "action %d ", mp->action);
1366   if (mp->action)
1367     s = format (s, "metadata %d ", (mp->metadata));
1368   if (mp->is_add == 0)
1369     s = format (s, "del ");
1370
1371   s = format (s, "match hex ");
1372   for (i = 5 * sizeof (u32x4) - 1; i > 0; i--)
1373     {
1374       if (mp->match[i] != 0)
1375         {
1376           limit = i + 1;
1377           break;
1378         }
1379     }
1380
1381   for (i = 0; i < limit; i++)
1382     s = format (s, "%02x", mp->match[i]);
1383
1384   FINISH;
1385 }
1386
1387 static void *vl_api_classify_set_interface_ip_table_t_print
1388   (vl_api_classify_set_interface_ip_table_t * mp, void *handle)
1389 {
1390   u8 *s;
1391
1392   s = format (0, "SCRIPT: classify_set_interface_ip_table ");
1393
1394   if (mp->is_ipv6)
1395     s = format (s, "ipv6 ");
1396
1397   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1398   s = format (s, "table %d ", (mp->table_index));
1399
1400   FINISH;
1401 }
1402
1403 static void *vl_api_classify_set_interface_l2_tables_t_print
1404   (vl_api_classify_set_interface_l2_tables_t * mp, void *handle)
1405 {
1406   u8 *s;
1407
1408   s = format (0, "SCRIPT: classify_set_interface_l2_tables ");
1409
1410   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1411   s = format (s, "ip4-table %d ", (mp->ip4_table_index));
1412   s = format (s, "ip6-table %d ", (mp->ip6_table_index));
1413   s = format (s, "other-table %d ", (mp->other_table_index));
1414   s = format (s, "is-input %d ", mp->is_input);
1415
1416   FINISH;
1417 }
1418
1419 static void *vl_api_add_node_next_t_print
1420   (vl_api_add_node_next_t * mp, void *handle)
1421 {
1422   u8 *s;
1423
1424   s = format (0, "SCRIPT: add_node_next ");
1425
1426   s = format (s, "node %s next %s ", mp->node_name, mp->next_name);
1427
1428   FINISH;
1429 }
1430
1431 static void *vl_api_vxlan_add_del_tunnel_t_print
1432   (vl_api_vxlan_add_del_tunnel_t * mp, void *handle)
1433 {
1434   u8 *s;
1435   s = format (0, "SCRIPT: vxlan_add_del_tunnel ");
1436
1437   ip46_address_t src =
1438     to_ip46 (mp->src_address.af, (u8 *) & mp->src_address.un);
1439   ip46_address_t dst =
1440     to_ip46 (mp->dst_address.af, (u8 *) & mp->dst_address.un);
1441
1442   u8 is_grp = ip46_address_is_multicast (&dst);
1443   char *dst_name = is_grp ? "group" : "dst";
1444
1445   s = format (s, "src %U ", format_ip46_address, &src, IP46_TYPE_ANY);
1446   s = format (s, "%s %U ", dst_name, format_ip46_address,
1447               &dst, IP46_TYPE_ANY);
1448
1449   if (is_grp)
1450     s = format (s, "mcast_sw_if_index %d ", (mp->mcast_sw_if_index));
1451
1452   if (mp->encap_vrf_id)
1453     s = format (s, "encap-vrf-id %d ", (mp->encap_vrf_id));
1454
1455   s = format (s, "decap-next %d ", (mp->decap_next_index));
1456
1457   s = format (s, "vni %d ", (mp->vni));
1458
1459   s = format (s, "instance %d ", (mp->instance));
1460
1461   if (mp->is_add == 0)
1462     s = format (s, "del ");
1463
1464   FINISH;
1465 }
1466
1467 static void *vl_api_vxlan_offload_rx_t_print
1468   (vl_api_vxlan_offload_rx_t * mp, void *handle)
1469 {
1470   u8 *s;
1471   s = format (0, "SCRIPT: vxlan_offload_rx ");
1472
1473   s = format (s, "hw hw_if_index %d ", (mp->hw_if_index));
1474   s = format (s, "rx sw_if_index %d ", (mp->sw_if_index));
1475   if (!mp->enable)
1476     s = format (s, "del ");
1477
1478   FINISH;
1479 }
1480
1481 static void *vl_api_vxlan_tunnel_dump_t_print
1482   (vl_api_vxlan_tunnel_dump_t * mp, void *handle)
1483 {
1484   u8 *s;
1485
1486   s = format (0, "SCRIPT: vxlan_tunnel_dump ");
1487
1488   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1489
1490   FINISH;
1491 }
1492
1493 static void *vl_api_vxlan_gbp_tunnel_add_del_t_print
1494   (vl_api_vxlan_gbp_tunnel_add_del_t * mp, void *handle)
1495 {
1496   u8 *s;
1497   s = format (0, "SCRIPT: vxlan_gbp_tunnel_add_del ");
1498
1499   if (mp->is_add)
1500     s = format (s, "add ");
1501   else
1502     s = format (s, "del ");
1503
1504   s = format (s, "instance %d ", (mp->tunnel.instance));
1505   s = format (s, "src %U ", format_vl_api_address, &mp->tunnel.src);
1506   s = format (s, "dst %U ", format_vl_api_address, &mp->tunnel.dst);
1507   s = format (s, "mcast_sw_if_index %d ", (mp->tunnel.mcast_sw_if_index));
1508   s = format (s, "encap_table_id %d ", (mp->tunnel.encap_table_id));
1509   s = format (s, "vni %d ", (mp->tunnel.vni));
1510   s = format (s, "sw_if_index %d ", (mp->tunnel.sw_if_index));
1511
1512   FINISH;
1513 }
1514
1515 static void *vl_api_vxlan_gbp_tunnel_dump_t_print
1516   (vl_api_vxlan_gbp_tunnel_dump_t * mp, void *handle)
1517 {
1518   u8 *s;
1519
1520   s = format (0, "SCRIPT: vxlan_gbp_tunnel_dump ");
1521
1522   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1523
1524   FINISH;
1525 }
1526
1527 static void *vl_api_sw_interface_set_vxlan_gbp_bypass_t_print
1528   (vl_api_sw_interface_set_vxlan_gbp_bypass_t * mp, void *handle)
1529 {
1530   u8 *s;
1531
1532   s = format (0, "SCRIPT: sw_interface_set_vxlan_gbp_bypass ");
1533
1534   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1535   s = format (s, "%s ", (mp->is_ipv6 != 0) ? "ipv6" : "ipv4");
1536   s = format (s, "%s ", (mp->enable != 0) ? "enable" : "disable");
1537
1538   FINISH;
1539 }
1540
1541 static void *vl_api_l2_fib_clear_table_t_print
1542   (vl_api_l2_fib_clear_table_t * mp, void *handle)
1543 {
1544   u8 *s;
1545
1546   s = format (0, "SCRIPT: l2_fib_clear_table ");
1547
1548   FINISH;
1549 }
1550
1551 static void *vl_api_l2_interface_efp_filter_t_print
1552   (vl_api_l2_interface_efp_filter_t * mp, void *handle)
1553 {
1554   u8 *s;
1555
1556   s = format (0, "SCRIPT: l2_interface_efp_filter ");
1557
1558   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1559   if (mp->enable_disable)
1560     s = format (s, "enable ");
1561   else
1562     s = format (s, "disable ");
1563
1564   FINISH;
1565 }
1566
1567 static void *vl_api_l2_interface_vlan_tag_rewrite_t_print
1568   (vl_api_l2_interface_vlan_tag_rewrite_t * mp, void *handle)
1569 {
1570   u8 *s;
1571
1572   s = format (0, "SCRIPT: l2_interface_vlan_tag_rewrite ");
1573
1574   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1575   s = format (s, "vtr_op %d ", (mp->vtr_op));
1576   s = format (s, "push_dot1q %d ", (mp->push_dot1q));
1577   s = format (s, "tag1 %d ", (mp->tag1));
1578   s = format (s, "tag2 %d ", (mp->tag2));
1579
1580   FINISH;
1581 }
1582
1583 static void *vl_api_create_vhost_user_if_t_print
1584   (vl_api_create_vhost_user_if_t * mp, void *handle)
1585 {
1586   u8 *s;
1587
1588   s = format (0, "SCRIPT: create_vhost_user_if ");
1589
1590   s = format (s, "socket %s ", mp->sock_filename);
1591   if (mp->is_server)
1592     s = format (s, "server ");
1593   if (mp->renumber)
1594     s = format (s, "renumber %d ", (mp->custom_dev_instance));
1595   if (mp->disable_mrg_rxbuf)
1596     s = format (s, "disable_mrg_rxbuf ");
1597   if (mp->disable_indirect_desc)
1598     s = format (s, "disable_indirect_desc ");
1599   if (mp->tag[0])
1600     s = format (s, "tag %s ", mp->tag);
1601   if (mp->enable_gso)
1602     s = format (s, "gso ");
1603   if (mp->enable_packed)
1604     s = format (s, "packed");
1605
1606   FINISH;
1607 }
1608
1609 static void *vl_api_modify_vhost_user_if_t_print
1610   (vl_api_modify_vhost_user_if_t * mp, void *handle)
1611 {
1612   u8 *s;
1613
1614   s = format (0, "SCRIPT: modify_vhost_user_if ");
1615
1616   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1617   s = format (s, "socket %s ", mp->sock_filename);
1618   if (mp->is_server)
1619     s = format (s, "server ");
1620   if (mp->renumber)
1621     s = format (s, "renumber %d ", (mp->custom_dev_instance));
1622   if (mp->enable_gso)
1623     s = format (s, "gso ");
1624   if (mp->enable_packed)
1625     s = format (s, "packed");
1626
1627   FINISH;
1628 }
1629
1630 static void *vl_api_create_vhost_user_if_v2_t_print
1631   (vl_api_create_vhost_user_if_v2_t * mp, void *handle)
1632 {
1633   u8 *s;
1634
1635   s = format (0, "SCRIPT: create_vhost_user_if_v2 ");
1636
1637   s = format (s, "socket %s ", mp->sock_filename);
1638   if (mp->is_server)
1639     s = format (s, "server ");
1640   if (mp->renumber)
1641     s = format (s, "renumber %d ", (mp->custom_dev_instance));
1642   if (mp->disable_mrg_rxbuf)
1643     s = format (s, "disable_mrg_rxbuf ");
1644   if (mp->disable_indirect_desc)
1645     s = format (s, "disable_indirect_desc ");
1646   if (mp->tag[0])
1647     s = format (s, "tag %s ", mp->tag);
1648   if (mp->enable_gso)
1649     s = format (s, "gso ");
1650   if (mp->enable_event_idx)
1651     s = format (s, "event-idx ");
1652   if (mp->enable_packed)
1653     s = format (s, "packed");
1654
1655   FINISH;
1656 }
1657
1658 static void *vl_api_modify_vhost_user_if_v2_t_print
1659   (vl_api_modify_vhost_user_if_v2_t * mp, void *handle)
1660 {
1661   u8 *s;
1662
1663   s = format (0, "SCRIPT: modify_vhost_user_if_v2 ");
1664
1665   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1666   s = format (s, "socket %s ", mp->sock_filename);
1667   if (mp->is_server)
1668     s = format (s, "server ");
1669   if (mp->renumber)
1670     s = format (s, "renumber %d ", (mp->custom_dev_instance));
1671   if (mp->enable_gso)
1672     s = format (s, "gso ");
1673   if (mp->enable_event_idx)
1674     s = format (s, "event-idx ");
1675   if (mp->enable_packed)
1676     s = format (s, "packed");
1677
1678   FINISH;
1679 }
1680
1681 static void *vl_api_delete_vhost_user_if_t_print
1682   (vl_api_delete_vhost_user_if_t * mp, void *handle)
1683 {
1684   u8 *s;
1685
1686   s = format (0, "SCRIPT: delete_vhost_user_if ");
1687   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1688
1689   FINISH;
1690 }
1691
1692 static void *vl_api_sw_interface_vhost_user_dump_t_print
1693   (vl_api_sw_interface_vhost_user_dump_t * mp, void *handle)
1694 {
1695   u8 *s;
1696
1697   s = format (0, "SCRIPT: sw_interface_vhost_user_dump ");
1698   if (mp->sw_if_index != ~0)
1699     s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1700
1701   FINISH;
1702 }
1703
1704 static void *vl_api_sw_interface_dump_t_print
1705   (vl_api_sw_interface_dump_t * mp, void *handle)
1706 {
1707   u8 *s;
1708
1709   s = format (0, "SCRIPT: sw_interface_dump ");
1710
1711   if (mp->name_filter_valid)
1712     {
1713       u8 *v = vl_api_from_api_to_new_vec (mp, &mp->name_filter);
1714       s = format (s, "name_filter %v ", v);
1715       vec_free (v);
1716     }
1717   else
1718     s = format (s, "all ");
1719
1720   FINISH;
1721 }
1722
1723 static void *vl_api_l2_fib_table_dump_t_print
1724   (vl_api_l2_fib_table_dump_t * mp, void *handle)
1725 {
1726   u8 *s;
1727
1728   s = format (0, "SCRIPT: l2_fib_table_dump ");
1729
1730   s = format (s, "bd_id %d ", (mp->bd_id));
1731
1732   FINISH;
1733 }
1734
1735 static void *vl_api_control_ping_t_print
1736   (vl_api_control_ping_t * mp, void *handle)
1737 {
1738   u8 *s;
1739
1740   s = format (0, "SCRIPT: control_ping ");
1741
1742   FINISH;
1743 }
1744
1745 static void *vl_api_want_interface_events_t_print
1746   (vl_api_want_interface_events_t * mp, void *handle)
1747 {
1748   u8 *s;
1749
1750   s = format (0, "SCRIPT: want_interface_events pid %d enable %d ",
1751               (mp->pid), ntohl (mp->enable_disable));
1752
1753   FINISH;
1754 }
1755
1756 static void *
1757 vl_api_cli_t_print (vl_api_cli_t * mp, void *handle)
1758 {
1759   u8 *s;
1760
1761   s = format (0, "SCRIPT: cli ");
1762
1763   FINISH;
1764 }
1765
1766 static void *vl_api_cli_inband_t_print
1767   (vl_api_cli_inband_t * mp, void *handle)
1768 {
1769   u8 *s;
1770   u8 *cmd = 0;
1771
1772   cmd = vl_api_from_api_to_new_vec (mp, &mp->cmd);
1773
1774   s = format (0, "SCRIPT: exec %v ", cmd);
1775
1776   vec_free (cmd);
1777   FINISH;
1778 }
1779
1780 static void *vl_api_memclnt_create_t_print
1781   (vl_api_memclnt_create_t * mp, void *handle)
1782 {
1783   u8 *s;
1784
1785   s = format (0, "SCRIPT: memclnt_create name %s ", mp->name);
1786
1787   FINISH;
1788 }
1789
1790 static void *vl_api_sockclnt_create_t_print
1791   (vl_api_sockclnt_create_t * mp, void *handle)
1792 {
1793   u8 *s;
1794
1795   s = format (0, "SCRIPT: sockclnt_create name %s ", mp->name);
1796
1797   FINISH;
1798 }
1799
1800 static void *vl_api_show_version_t_print
1801   (vl_api_show_version_t * mp, void *handle)
1802 {
1803   u8 *s;
1804
1805   s = format (0, "SCRIPT: show_version ");
1806
1807   FINISH;
1808 }
1809
1810 __clib_unused
1811   static void *vl_api_show_threads_t_print
1812   (vl_api_show_threads_t * mp, void *handle)
1813 {
1814   u8 *s;
1815
1816   s = format (0, "SCRIPT: show_threads ");
1817
1818   FINISH;
1819 }
1820
1821 static void *vl_api_vxlan_gpe_add_del_tunnel_t_print
1822   (vl_api_vxlan_gpe_add_del_tunnel_t * mp, void *handle)
1823 {
1824   u8 *s;
1825
1826   s = format (0, "SCRIPT: vxlan_gpe_add_del_tunnel ");
1827
1828   ip46_address_t local, remote;
1829
1830   ip_address_decode (&mp->local, &local);
1831   ip_address_decode (&mp->remote, &remote);
1832
1833   u8 is_grp = ip46_address_is_multicast (&remote);
1834   char *remote_name = is_grp ? "group" : "remote";
1835
1836   s = format (s, "local %U ", format_ip46_address, &local, IP46_TYPE_ANY);
1837   s = format (s, "%s %U ", remote_name, format_ip46_address,
1838               &remote, IP46_TYPE_ANY);
1839
1840   if (is_grp)
1841     s = format (s, "mcast_sw_if_index %d ", (mp->mcast_sw_if_index));
1842   s = format (s, "protocol %d ", (mp->protocol));
1843
1844   s = format (s, "vni %d ", (mp->vni));
1845
1846   if (mp->is_add == 0)
1847     s = format (s, "del ");
1848
1849   if (mp->encap_vrf_id)
1850     s = format (s, "encap-vrf-id %d ", (mp->encap_vrf_id));
1851
1852   if (mp->decap_vrf_id)
1853     s = format (s, "decap-vrf-id %d ", (mp->decap_vrf_id));
1854
1855   FINISH;
1856 }
1857
1858 static void *vl_api_vxlan_gpe_tunnel_dump_t_print
1859   (vl_api_vxlan_gpe_tunnel_dump_t * mp, void *handle)
1860 {
1861   u8 *s;
1862
1863   s = format (0, "SCRIPT: vxlan_gpe_tunnel_dump ");
1864
1865   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1866
1867   FINISH;
1868 }
1869
1870 static void *vl_api_interface_name_renumber_t_print
1871   (vl_api_interface_name_renumber_t * mp, void *handle)
1872 {
1873   u8 *s;
1874
1875   s = format (0, "SCRIPT: interface_renumber ");
1876
1877   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1878
1879   s = format (s, "new_show_dev_instance %d ", (mp->new_show_dev_instance));
1880
1881   FINISH;
1882 }
1883
1884 static void *vl_api_want_l2_macs_events_t_print
1885   (vl_api_want_l2_macs_events_t * mp, void *handle)
1886 {
1887   u8 *s;
1888
1889   s = format (0, "SCRIPT: want_l2_macs_events ");
1890   s = format (s, "learn-limit %d ", (mp->learn_limit));
1891   s = format (s, "scan-delay %d ", (u32) mp->scan_delay);
1892   s = format (s, "max-entries %d ", (u32) mp->max_macs_in_event * 10);
1893   if (mp->enable_disable == 0)
1894     s = format (s, "disable");
1895
1896   FINISH;
1897 }
1898
1899 static void *vl_api_input_acl_set_interface_t_print
1900   (vl_api_input_acl_set_interface_t * mp, void *handle)
1901 {
1902   u8 *s;
1903
1904   s = format (0, "SCRIPT: input_acl_set_interface ");
1905
1906   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1907   s = format (s, "ip4-table %d ", (mp->ip4_table_index));
1908   s = format (s, "ip6-table %d ", (mp->ip6_table_index));
1909   s = format (s, "l2-table %d ", (mp->l2_table_index));
1910
1911   if (mp->is_add == 0)
1912     s = format (s, "del ");
1913
1914   FINISH;
1915 }
1916
1917 static void *vl_api_output_acl_set_interface_t_print
1918   (vl_api_output_acl_set_interface_t * mp, void *handle)
1919 {
1920   u8 *s;
1921
1922   s = format (0, "SCRIPT: output_acl_set_interface ");
1923
1924   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1925   s = format (s, "ip4-table %d ", (mp->ip4_table_index));
1926   s = format (s, "ip6-table %d ", (mp->ip6_table_index));
1927   s = format (s, "l2-table %d ", (mp->l2_table_index));
1928
1929   if (mp->is_add == 0)
1930     s = format (s, "del ");
1931
1932   FINISH;
1933 }
1934
1935 static void *vl_api_ip_address_dump_t_print
1936   (vl_api_ip_address_dump_t * mp, void *handle)
1937 {
1938   u8 *s;
1939
1940   s = format (0, "SCRIPT: ip6_address_dump ");
1941   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1942   s = format (s, "is_ipv6 %d ", mp->is_ipv6 != 0);
1943
1944   FINISH;
1945 }
1946
1947 static void *
1948 vl_api_ip_dump_t_print (vl_api_ip_dump_t * mp, void *handle)
1949 {
1950   u8 *s;
1951
1952   s = format (0, "SCRIPT: ip_dump ");
1953   s = format (s, "is_ipv6 %d ", mp->is_ipv6 != 0);
1954
1955   FINISH;
1956 }
1957
1958 static void *vl_api_cop_interface_enable_disable_t_print
1959   (vl_api_cop_interface_enable_disable_t * mp, void *handle)
1960 {
1961   u8 *s;
1962
1963   s = format (0, "SCRIPT: cop_interface_enable_disable ");
1964   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1965   if (mp->enable_disable)
1966     s = format (s, "enable ");
1967   else
1968     s = format (s, "disable ");
1969
1970   FINISH;
1971 }
1972
1973 static void *vl_api_cop_whitelist_enable_disable_t_print
1974   (vl_api_cop_whitelist_enable_disable_t * mp, void *handle)
1975 {
1976   u8 *s;
1977
1978   s = format (0, "SCRIPT: cop_whitelist_enable_disable ");
1979   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
1980   s = format (s, "fib-id %d ", (mp->fib_id));
1981   if (mp->ip4)
1982     s = format (s, "ip4 ");
1983   if (mp->ip6)
1984     s = format (s, "ip6 ");
1985   if (mp->default_cop)
1986     s = format (s, "default ");
1987
1988   FINISH;
1989 }
1990
1991 static void *vl_api_af_packet_create_t_print
1992   (vl_api_af_packet_create_t * mp, void *handle)
1993 {
1994   u8 *s;
1995
1996   s = format (0, "SCRIPT: af_packet_create ");
1997   s = format (s, "host_if_name %s ", mp->host_if_name);
1998   if (mp->use_random_hw_addr)
1999     s = format (s, "hw_addr random ");
2000   else
2001     s = format (s, "hw_addr %U ", format_ethernet_address, mp->hw_addr);
2002
2003   FINISH;
2004 }
2005
2006 static void *vl_api_af_packet_delete_t_print
2007   (vl_api_af_packet_delete_t * mp, void *handle)
2008 {
2009   u8 *s;
2010
2011   s = format (0, "SCRIPT: af_packet_delete ");
2012   s = format (s, "host_if_name %s ", mp->host_if_name);
2013
2014   FINISH;
2015 }
2016
2017 static void *vl_api_af_packet_dump_t_print
2018   (vl_api_af_packet_dump_t * mp, void *handle)
2019 {
2020   u8 *s;
2021
2022   s = format (0, "SCRIPT: af_packet_dump ");
2023
2024   FINISH;
2025 }
2026
2027 static u8 *
2028 format_policer_action (u8 * s, va_list * va)
2029 {
2030   u32 action = va_arg (*va, u32);
2031   u32 dscp = va_arg (*va, u32);
2032
2033   if (action == QOS_ACTION_DROP)
2034     s = format (s, "drop");
2035   else if (action == QOS_ACTION_TRANSMIT)
2036     s = format (s, "transmit");
2037   else if (action == QOS_ACTION_MARK_AND_TRANSMIT)
2038     {
2039       s = format (s, "mark-and-transmit ");
2040       switch (dscp)
2041         {
2042 #define _(v, f)                                                               \
2043   case IP_DSCP_##f:                                                           \
2044     format (s, "%s", #f);
2045           foreach_ip_dscp
2046 #undef _
2047         }
2048     }
2049   return s;
2050 }
2051
2052 static void *vl_api_policer_add_del_t_print
2053   (vl_api_policer_add_del_t * mp, void *handle)
2054 {
2055   u8 *s;
2056
2057   s = format (0, "SCRIPT: policer_add_del ");
2058   s = format (s, "name %s ", mp->name);
2059   s = format (s, "cir %d ", mp->cir);
2060   s = format (s, "eir %d ", mp->eir);
2061   s = format (s, "cb %d ", mp->cb);
2062   s = format (s, "eb %d ", mp->eb);
2063
2064   switch (mp->rate_type)
2065     {
2066     case QOS_RATE_KBPS:
2067       s = format (s, "rate_type kbps ");
2068       break;
2069     case QOS_RATE_PPS:
2070       s = format (s, "rate_type pps ");
2071       break;
2072     default:
2073       break;
2074     }
2075
2076   switch (mp->round_type)
2077     {
2078     case QOS_ROUND_TO_CLOSEST:
2079       s = format (s, "round_type closest ");
2080       break;
2081     case QOS_ROUND_TO_UP:
2082       s = format (s, "round_type up ");
2083       break;
2084     case QOS_ROUND_TO_DOWN:
2085       s = format (s, "round_type down ");
2086       break;
2087     default:
2088       break;
2089     }
2090
2091   switch (mp->type)
2092     {
2093     case QOS_POLICER_TYPE_1R2C:
2094       s = format (s, "type 1r2c ");
2095       break;
2096     case QOS_POLICER_TYPE_1R3C_RFC_2697:
2097       s = format (s, "type 1r3c ");
2098       break;
2099     case QOS_POLICER_TYPE_2R3C_RFC_2698:
2100       s = format (s, "type 2r3c-2698 ");
2101       break;
2102     case QOS_POLICER_TYPE_2R3C_RFC_4115:
2103       s = format (s, "type 2r3c-4115 ");
2104       break;
2105     case QOS_POLICER_TYPE_2R3C_RFC_MEF5CF1:
2106       s = format (s, "type 2r3c-mef5cf1 ");
2107       break;
2108     default:
2109       break;
2110     }
2111
2112   s = format (s, "conform_action %U ", format_policer_action,
2113               mp->conform_action.type, mp->conform_action.dscp);
2114   s = format (s, "exceed_action %U ", format_policer_action,
2115               mp->exceed_action.type, mp->exceed_action.dscp);
2116   s = format (s, "violate_action %U ", format_policer_action,
2117               mp->violate_action.type, mp->violate_action.dscp);
2118
2119   if (mp->color_aware)
2120     s = format (s, "color-aware ");
2121   if (mp->is_add == 0)
2122     s = format (s, "del ");
2123
2124   FINISH;
2125 }
2126
2127 static void *vl_api_policer_dump_t_print
2128   (vl_api_policer_dump_t * mp, void *handle)
2129 {
2130   u8 *s;
2131
2132   s = format (0, "SCRIPT: policer_dump ");
2133   if (mp->match_name_valid)
2134     s = format (s, "name %s ", mp->match_name);
2135
2136   FINISH;
2137 }
2138
2139 static void *vl_api_policer_classify_set_interface_t_print
2140   (vl_api_policer_classify_set_interface_t * mp, void *handle)
2141 {
2142   u8 *s;
2143
2144   s = format (0, "SCRIPT: policer_classify_set_interface ");
2145   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
2146   if (mp->ip4_table_index != ~0)
2147     s = format (s, "ip4-table %d ", (mp->ip4_table_index));
2148   if (mp->ip6_table_index != ~0)
2149     s = format (s, "ip6-table %d ", (mp->ip6_table_index));
2150   if (mp->l2_table_index != ~0)
2151     s = format (s, "l2-table %d ", (mp->l2_table_index));
2152   if (mp->is_add == 0)
2153     s = format (s, "del ");
2154
2155   FINISH;
2156 }
2157
2158 static void *vl_api_policer_classify_dump_t_print
2159   (vl_api_policer_classify_dump_t * mp, void *handle)
2160 {
2161   u8 *s;
2162
2163   s = format (0, "SCRIPT: policer_classify_dump ");
2164   switch (mp->type)
2165     {
2166     case POLICER_CLASSIFY_API_TABLE_IP4:
2167       s = format (s, "type ip4 ");
2168       break;
2169     case POLICER_CLASSIFY_API_TABLE_IP6:
2170       s = format (s, "type ip6 ");
2171       break;
2172     case POLICER_CLASSIFY_API_TABLE_L2:
2173       s = format (s, "type l2 ");
2174       break;
2175     default:
2176       break;
2177     }
2178
2179   FINISH;
2180 }
2181
2182 static void *vl_api_sw_interface_clear_stats_t_print
2183   (vl_api_sw_interface_clear_stats_t * mp, void *handle)
2184 {
2185   u8 *s;
2186
2187   s = format (0, "SCRIPT: sw_interface_clear_stats ");
2188   if (mp->sw_if_index != ~0)
2189     s = format (s, "sw_if_index %d ", (mp->sw_if_index));
2190
2191   FINISH;
2192 }
2193
2194 static void *vl_api_mpls_tunnel_dump_t_print
2195   (vl_api_mpls_tunnel_dump_t * mp, void *handle)
2196 {
2197   u8 *s;
2198
2199   s = format (0, "SCRIPT: mpls_tunnel_dump ");
2200   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
2201
2202   FINISH;
2203 }
2204
2205 static void *vl_api_mpls_table_dump_t_print
2206   (vl_api_mpls_table_dump_t * mp, void *handle)
2207 {
2208   u8 *s;
2209
2210   s = format (0, "SCRIPT: mpls_table_decap_dump ");
2211
2212   FINISH;
2213 }
2214
2215 static void *vl_api_mpls_route_dump_t_print
2216   (vl_api_mpls_route_dump_t * mp, void *handle)
2217 {
2218   u8 *s;
2219
2220   s = format (0, "SCRIPT: mpls_route_decap_dump ");
2221
2222   FINISH;
2223 }
2224
2225 static void *vl_api_classify_table_ids_t_print
2226   (vl_api_classify_table_ids_t * mp, void *handle)
2227 {
2228   u8 *s;
2229
2230   s = format (0, "SCRIPT: classify_table_ids ");
2231
2232   FINISH;
2233 }
2234
2235 static void *vl_api_classify_table_by_interface_t_print
2236   (vl_api_classify_table_by_interface_t * mp, void *handle)
2237 {
2238   u8 *s;
2239
2240   s = format (0, "SCRIPT: classify_table_by_interface ");
2241   if (mp->sw_if_index != ~0)
2242     s = format (s, "sw_if_index %d ", (mp->sw_if_index));
2243
2244   FINISH;
2245 }
2246
2247 static void *vl_api_classify_table_info_t_print
2248   (vl_api_classify_table_info_t * mp, void *handle)
2249 {
2250   u8 *s;
2251
2252   s = format (0, "SCRIPT: classify_table_info ");
2253   if (mp->table_id != ~0)
2254     s = format (s, "table_id %d ", (mp->table_id));
2255
2256   FINISH;
2257 }
2258
2259 static void *vl_api_classify_session_dump_t_print
2260   (vl_api_classify_session_dump_t * mp, void *handle)
2261 {
2262   u8 *s;
2263
2264   s = format (0, "SCRIPT: classify_session_dump ");
2265   if (mp->table_id != ~0)
2266     s = format (s, "table_id %d ", (mp->table_id));
2267
2268   FINISH;
2269 }
2270
2271 static void *vl_api_set_ipfix_exporter_t_print
2272   (vl_api_set_ipfix_exporter_t * mp, void *handle)
2273 {
2274   u8 *s;
2275
2276   s = format (0, "SCRIPT: set_ipfix_exporter ");
2277
2278   s = format (s, "collector-address %U ", format_ip4_address,
2279               (ip4_address_t *) mp->collector_address.un.ip4);
2280   s = format (s, "collector-port %d ", (mp->collector_port));
2281   s = format (s, "src-address %U ", format_ip4_address,
2282               (ip4_address_t *) mp->src_address.un.ip4);
2283   s = format (s, "vrf-id %d ", (mp->vrf_id));
2284   s = format (s, "path-mtu %d ", (mp->path_mtu));
2285   s = format (s, "template-interval %d ", (mp->template_interval));
2286   s = format (s, "udp-checksum %d ", mp->udp_checksum);
2287
2288   FINISH;
2289 }
2290
2291 static void *vl_api_ipfix_exporter_dump_t_print
2292   (vl_api_ipfix_exporter_dump_t * mp, void *handle)
2293 {
2294   u8 *s;
2295
2296   s = format (0, "SCRIPT: ipfix_exporter_dump ");
2297
2298   FINISH;
2299 }
2300
2301 static void *vl_api_set_ipfix_classify_stream_t_print
2302   (vl_api_set_ipfix_classify_stream_t * mp, void *handle)
2303 {
2304   u8 *s;
2305
2306   s = format (0, "SCRIPT: set_ipfix_classify_stream ");
2307
2308   s = format (s, "domain-id %d ", (mp->domain_id));
2309   s = format (s, "src-port %d ", (mp->src_port));
2310
2311   FINISH;
2312 }
2313
2314 static void *vl_api_ipfix_classify_stream_dump_t_print
2315   (vl_api_ipfix_classify_stream_dump_t * mp, void *handle)
2316 {
2317   u8 *s;
2318
2319   s = format (0, "SCRIPT: ipfix_classify_stream_dump ");
2320
2321   FINISH;
2322 }
2323
2324 static void *vl_api_ipfix_classify_table_add_del_t_print
2325   (vl_api_ipfix_classify_table_add_del_t * mp, void *handle)
2326 {
2327   u8 *s;
2328
2329   s = format (0, "SCRIPT: ipfix_classify_table_add_del ");
2330
2331   s = format (s, "table-id %d ", (mp->table_id));
2332   s = format (s, "ip-version %d ", mp->ip_version);
2333   s = format (s, "transport-protocol %d ", mp->transport_protocol);
2334
2335   FINISH;
2336 }
2337
2338 static void *vl_api_ipfix_classify_table_dump_t_print
2339   (vl_api_ipfix_classify_table_dump_t * mp, void *handle)
2340 {
2341   u8 *s;
2342
2343   s = format (0, "SCRIPT: ipfix_classify_table_dump ");
2344
2345   FINISH;
2346 }
2347
2348 static void *vl_api_sw_interface_span_enable_disable_t_print
2349   (vl_api_sw_interface_span_enable_disable_t * mp, void *handle)
2350 {
2351   u8 *s;
2352
2353   s = format (0, "SCRIPT: sw_interface_span_enable_disable ");
2354   s = format (s, "src_sw_if_index %u ", (mp->sw_if_index_from));
2355   s = format (s, "dst_sw_if_index %u ", (mp->sw_if_index_to));
2356
2357   if (mp->is_l2)
2358     s = format (s, "l2 ");
2359
2360   switch (mp->state)
2361     {
2362     case 0:
2363       s = format (s, "disable ");
2364       break;
2365     case 1:
2366       s = format (s, "rx ");
2367       break;
2368     case 2:
2369       s = format (s, "tx ");
2370       break;
2371     case 3:
2372     default:
2373       s = format (s, "both ");
2374       break;
2375     }
2376
2377   FINISH;
2378 }
2379
2380 static void *
2381 vl_api_sw_interface_span_dump_t_print (vl_api_sw_interface_span_dump_t * mp,
2382                                        void *handle)
2383 {
2384   u8 *s;
2385
2386   s = format (0, "SCRIPT: sw_interface_span_dump ");
2387
2388   if (mp->is_l2)
2389     s = format (s, "l2 ");
2390
2391   FINISH;
2392 }
2393
2394 static void *vl_api_get_next_index_t_print
2395   (vl_api_get_next_index_t * mp, void *handle)
2396 {
2397   u8 *s;
2398
2399   s = format (0, "SCRIPT: get_next_index ");
2400   s = format (s, "node-name %s ", mp->node_name);
2401   s = format (s, "next-node-name %s ", mp->next_name);
2402
2403   FINISH;
2404 }
2405
2406 static void *vl_api_pg_create_interface_t_print
2407   (vl_api_pg_create_interface_t * mp, void *handle)
2408 {
2409   u8 *s;
2410
2411   s = format (0, "SCRIPT: pg_create_interface ");
2412   s = format (s, "if_id %d ", (mp->interface_id));
2413   s = format (s, "gso-enabled %u ", mp->gso_enabled);
2414   s = format (s, "gso-size %u", (mp->gso_size));
2415
2416   FINISH;
2417 }
2418
2419 static void *vl_api_pg_capture_t_print
2420   (vl_api_pg_capture_t * mp, void *handle)
2421 {
2422   u8 *s;
2423
2424   s = format (0, "SCRIPT: pg_capture ");
2425   s = format (s, "if_id %d ", (mp->interface_id));
2426   s = format (s, "pcap %s", mp->pcap_file_name);
2427   if (mp->count != ~0)
2428     s = format (s, "count %d ", (mp->count));
2429   if (!mp->is_enabled)
2430     s = format (s, "disable");
2431
2432   FINISH;
2433 }
2434
2435 static void *vl_api_pg_enable_disable_t_print
2436   (vl_api_pg_enable_disable_t * mp, void *handle)
2437 {
2438   u8 *s;
2439
2440   s = format (0, "SCRIPT: pg_enable_disable ");
2441   if (vl_api_string_len (&mp->stream_name) > 0)
2442     s =
2443       format (s, "stream %s",
2444               vl_api_from_api_to_new_c_string (&mp->stream_name));
2445   if (!mp->is_enabled)
2446     s = format (s, "disable");
2447
2448   FINISH;
2449 }
2450
2451 static void *vl_api_pg_interface_enable_disable_coalesce_t_print
2452   (vl_api_pg_interface_enable_disable_coalesce_t * mp, void *handle)
2453 {
2454   u8 *s;
2455
2456   s = format (0, "SCRIPT: pg_interface_enable_disable_coalesce ");
2457   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
2458   if (!mp->coalesce_enabled)
2459     s = format (s, "disable");
2460   else
2461     s = format (s, "enable");
2462   FINISH;
2463 }
2464
2465
2466 static void *vl_api_ip_source_and_port_range_check_add_del_t_print
2467   (vl_api_ip_source_and_port_range_check_add_del_t * mp, void *handle)
2468 {
2469   u8 *s;
2470   int i;
2471
2472   s = format (0, "SCRIPT: ip_source_and_port_range_check_add_del ");
2473   s = format (s, "%U ", format_vl_api_prefix, &mp->prefix);
2474
2475   for (i = 0; i < mp->number_of_ranges; i++)
2476     {
2477       s = format (s, "range %d - %d ", mp->low_ports[i], mp->high_ports[i]);
2478     }
2479
2480   s = format (s, "vrf %d ", (mp->vrf_id));
2481
2482   if (mp->is_add == 0)
2483     s = format (s, "del ");
2484
2485   FINISH;
2486 }
2487
2488 static void *vl_api_ip_source_and_port_range_check_interface_add_del_t_print
2489   (vl_api_ip_source_and_port_range_check_interface_add_del_t * mp,
2490    void *handle)
2491 {
2492   u8 *s;
2493
2494   s = format (0, "SCRIPT: ip_source_and_port_range_check_interface_add_del ");
2495
2496   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
2497
2498   if (mp->tcp_out_vrf_id != ~0)
2499     s = format (s, "tcp-out-vrf %d ", (mp->tcp_out_vrf_id));
2500
2501   if (mp->udp_out_vrf_id != ~0)
2502     s = format (s, "udp-out-vrf %d ", (mp->udp_out_vrf_id));
2503
2504   if (mp->tcp_in_vrf_id != ~0)
2505     s = format (s, "tcp-in-vrf %d ", (mp->tcp_in_vrf_id));
2506
2507   if (mp->udp_in_vrf_id != ~0)
2508     s = format (s, "udp-in-vrf %d ", (mp->udp_in_vrf_id));
2509
2510   if (mp->is_add == 0)
2511     s = format (s, "del ");
2512
2513   FINISH;
2514 }
2515
2516 /* static u8 * */
2517 /* format_nsh_address_vat (u8 * s, va_list * args) */
2518 /* { */
2519 /*   nsh_t *a = va_arg (*args, nsh_t *); */
2520 /*   return format (s, "SPI:%d SI:%d", clib_net_to_host_u32 (a->spi), a->si); */
2521 /* } */
2522
2523 static const char *policy_strs[] = {
2524   "BYPASS",
2525   "DISCARD",
2526   "RESOLVE",
2527   "PROTECT",
2528 };
2529
2530 static const char *algo_strs[] = {
2531   "NONE",
2532   "AES_CBC_128",
2533   "AES_CBC_192",
2534   "AES_CBC_256",
2535   "AES_CTR_128",
2536   "AES_CTR_192",
2537   "AES_CTR_256",
2538   "AES_GCM_128",
2539   "AES_GCM_192",
2540   "AES_GCM_256",
2541   "DES_CBC",
2542   "3DES_CBC",
2543 };
2544
2545
2546 static const char *integ_strs[] = {
2547   "NONE",
2548   "MD5_96",
2549   "SHA1_96",
2550   "SHA_256_96",
2551   "SHA_256_128",
2552   "SHA_384_192",
2553   "SHA_512_256",
2554 };
2555
2556 static void *vl_api_ipsec_spd_entry_add_del_t_print
2557   (vl_api_ipsec_spd_entry_add_del_t * mp, void *handle)
2558 {
2559   u8 *s;
2560   const char *str;
2561   vl_api_ipsec_spd_entry_t *ep;
2562   int policy_host_byte_order;
2563
2564   ep = (vl_api_ipsec_spd_entry_t *) & mp->entry;
2565
2566   s = format (0, "SCRIPT: ipsec_spd_entry ");
2567   s = format (s, "is_add %d spd_id %u priority %d is_outbound %d sa_id %u\n",
2568               mp->is_add,
2569               (ep->spd_id), ntohl (ep->priority), ep->is_outbound,
2570               (ep->sa_id));
2571
2572   policy_host_byte_order = (ep->policy);
2573
2574   if (policy_host_byte_order < ARRAY_LEN (policy_strs))
2575     str = policy_strs[policy_host_byte_order];
2576   else
2577     str = "BOGUS!";
2578
2579   s = format (s, "  policy: %s protocol %d\n", str, ep->protocol);
2580
2581   s = format (s, "  remote_address_start %U remote_address_stop %U\n",
2582               format_vl_api_address,
2583               &ep->remote_address_start,
2584               format_vl_api_address, &ep->remote_address_stop);
2585
2586   s = format (s, "  local_address_start %U local_address_stop %U\n",
2587               format_vl_api_address,
2588               &ep->local_address_start,
2589               format_vl_api_address, &ep->local_address_stop);
2590
2591   s = format (s, "  remote_port_start %d remote_port_stop %d\n",
2592               (ep->remote_port_start), ntohs (ep->remote_port_stop));
2593
2594   s = format (s, "  local_port_start %d local_port_stop %d ",
2595               (ep->local_port_start), ntohs (ep->local_port_stop));
2596
2597   FINISH;
2598 }
2599
2600 static void *vl_api_ipsec_interface_add_del_spd_t_print
2601   (vl_api_ipsec_interface_add_del_spd_t * mp, void *handle)
2602 {
2603   u8 *s;
2604
2605   s = format (0, "SCRIPT: ipsec_interface_add_del_spd ");
2606   s = format (s, "is_add %d sw_if_index %d spd_id %u ",
2607               mp->is_add, (mp->sw_if_index), ntohl (mp->spd_id));
2608   FINISH;
2609 }
2610
2611 static void *vl_api_ipsec_spd_add_del_t_print
2612   (vl_api_ipsec_spd_add_del_t * mp, void *handle)
2613 {
2614   u8 *s;
2615
2616   s = format (0, "SCRIPT: ipsec_spd_add_del ");
2617   s = format (s, "spd_id %u is_add %d ", (mp->spd_id), mp->is_add);
2618   FINISH;
2619 }
2620
2621 static void *vl_api_ipsec_sad_entry_add_del_t_print
2622   (vl_api_ipsec_sad_entry_add_del_t * mp, void *handle)
2623 {
2624   u8 *s;
2625   int tmp;
2626   vl_api_ipsec_sad_entry_t *ep;
2627   const char *protocol_str, *algo_str, *integ_str;
2628
2629   protocol_str = "BOGUS protocol!";
2630   algo_str = "BOGUS crypto_algorithm!";
2631   integ_str = "BOGUS integrity_algorithm!";
2632
2633   ep = (vl_api_ipsec_sad_entry_t *) & mp->entry;
2634
2635   s = format (0, "SCRIPT: ipsec_sad_entry_add_del is_add %d ", mp->is_add);
2636
2637   tmp = (ep->protocol);
2638   if (tmp == IPSEC_API_PROTO_ESP)
2639     protocol_str = "ESP";
2640   else if (tmp == IPSEC_API_PROTO_AH)
2641     protocol_str = "AH";
2642
2643   tmp = (ep->crypto_algorithm);
2644   if (tmp < ARRAY_LEN (algo_strs))
2645     algo_str = algo_strs[tmp];
2646
2647   tmp = (ep->integrity_algorithm);
2648   if (tmp < ARRAY_LEN (integ_strs))
2649     integ_str = integ_strs[tmp];
2650
2651   s = format (s, "proto %s crypto alg %s integ alg %s\n",
2652               protocol_str, algo_str, integ_str);
2653   s = format (s, " crypto_key len %d value %U\n",
2654               ep->crypto_key.length, format_hex_bytes, ep->crypto_key.data,
2655               (int) (ep->crypto_key.length));
2656   s = format (s, " integ_key len %d value %U\n",
2657               ep->integrity_key.length, format_hex_bytes,
2658               ep->integrity_key.data, (int) (ep->integrity_key.length));
2659   s = format (s, " flags 0x%x ", (ep->flags));
2660
2661   s = format (s, "tunnel_src %U tunnel_dst %U\n",
2662               format_vl_api_address,
2663               &ep->tunnel_src, format_vl_api_address, &ep->tunnel_dst);
2664   s = format (s, " tx_table_id %u salt %u ",
2665               (ep->tx_table_id), ntohl (ep->salt));
2666   FINISH;
2667 }
2668
2669
2670 static void *vl_api_l2_interface_pbb_tag_rewrite_t_print
2671   (vl_api_l2_interface_pbb_tag_rewrite_t * mp, void *handle)
2672 {
2673   u8 *s;
2674   u32 vtr_op = (mp->vtr_op);
2675
2676   s = format (0, "SCRIPT: l2_interface_pbb_tag_rewrite ");
2677
2678   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
2679   s = format (s, "vtr_op %d ", vtr_op);
2680   if (vtr_op != L2_VTR_DISABLED && vtr_op != L2_VTR_POP_2)
2681     {
2682       if (vtr_op == L2_VTR_TRANSLATE_2_2)
2683         s = format (s, "%d ", (mp->outer_tag));
2684       s = format (s, "dmac %U ", format_ethernet_address, &mp->b_dmac);
2685       s = format (s, "smac %U ", format_ethernet_address, &mp->b_smac);
2686       s = format (s, "sid %d ", (mp->i_sid));
2687       s = format (s, "vlanid %d ", (mp->b_vlanid));
2688     }
2689   FINISH;
2690 }
2691
2692 static void *vl_api_flow_classify_set_interface_t_print
2693   (vl_api_flow_classify_set_interface_t * mp, void *handle)
2694 {
2695   u8 *s;
2696
2697   s = format (0, "SCRIPT: flow_classify_set_interface ");
2698   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
2699   if (mp->ip4_table_index != ~0)
2700     s = format (s, "ip4-table %d ", (mp->ip4_table_index));
2701   if (mp->ip6_table_index != ~0)
2702     s = format (s, "ip6-table %d ", (mp->ip6_table_index));
2703   if (mp->is_add == 0)
2704     s = format (s, "del ");
2705
2706   FINISH;
2707 }
2708
2709 static void *
2710 vl_api_set_punt_t_print (vl_api_set_punt_t * mp, void *handle)
2711 {
2712   u8 *s;
2713
2714   s = format (0, "SCRIPT: punt ");
2715
2716   switch (mp->punt.type)
2717     {
2718     case PUNT_API_TYPE_L4:
2719       s = format (s, "%U", format_vl_api_address_family, mp->punt.punt.l4.af);
2720
2721       s = format (s, "protocol %d ", mp->punt.punt.l4.protocol);
2722
2723       if (mp->punt.punt.l4.port != (u16) ~ 0)
2724         s = format (s, "port %d ", (mp->punt.punt.l4.port));
2725       break;
2726     default:
2727       break;
2728
2729     }
2730
2731   if (!mp->is_add)
2732     s = format (s, "del ");
2733
2734   FINISH;
2735 }
2736
2737 static void *vl_api_flow_classify_dump_t_print
2738   (vl_api_flow_classify_dump_t * mp, void *handle)
2739 {
2740   u8 *s;
2741
2742   s = format (0, "SCRIPT: flow_classify_dump ");
2743   switch (mp->type)
2744     {
2745     case FLOW_CLASSIFY_API_TABLE_IP4:
2746       s = format (s, "type ip4 ");
2747       break;
2748     case FLOW_CLASSIFY_API_TABLE_IP6:
2749       s = format (s, "type ip6 ");
2750       break;
2751     default:
2752       break;
2753     }
2754
2755   FINISH;
2756 }
2757
2758 static void *vl_api_get_first_msg_id_t_print
2759   (vl_api_get_first_msg_id_t * mp, void *handle)
2760 {
2761   u8 *s;
2762
2763   s = format (0, "SCRIPT: get_first_msg_id %s ", mp->name);
2764
2765   FINISH;
2766 }
2767
2768 static void *vl_api_ioam_enable_t_print
2769   (vl_api_ioam_enable_t * mp, void *handle)
2770 {
2771   u8 *s;
2772
2773   s = format (0, "SCRIPT: ioam_enable ");
2774
2775   if (mp->trace_enable)
2776     s = format (s, "trace enabled");
2777
2778   if (mp->pot_enable)
2779     s = format (s, "POT enabled");
2780
2781   if (mp->seqno)
2782     s = format (s, "Seqno enabled");
2783
2784   if (mp->analyse)
2785     s = format (s, "Analyse enabled");
2786
2787   FINISH;
2788 }
2789
2790 static void *vl_api_ioam_disable_t_print
2791   (vl_api_ioam_disable_t * mp, void *handle)
2792 {
2793   u8 *s;
2794
2795   s = format (0, "SCRIPT: ioam_disable ");
2796   s = format (s, "trace disabled");
2797   s = format (s, "POT disabled");
2798   s = format (s, "Seqno disabled");
2799   s = format (s, "Analyse disabled");
2800
2801   FINISH;
2802 }
2803
2804 static void *vl_api_feature_enable_disable_t_print
2805   (vl_api_feature_enable_disable_t * mp, void *handle)
2806 {
2807   u8 *s;
2808
2809   s = format (0, "SCRIPT: feature_enable_disable ");
2810   s = format (s, "arc_name %s ", mp->arc_name);
2811   s = format (s, "feature_name %s ", mp->feature_name);
2812   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
2813   if (!mp->enable)
2814     s = format (s, "disable");
2815
2816   FINISH;
2817 }
2818
2819 static void *vl_api_feature_gso_enable_disable_t_print
2820   (vl_api_feature_gso_enable_disable_t * mp, void *handle)
2821 {
2822   u8 *s;
2823
2824   s = format (0, "SCRIPT: feature_gso_enable_disable ");
2825   s = format (s, "sw_if_index %d ", ntohl (mp->sw_if_index));
2826   if (mp->enable_disable)
2827     s = format (s, "enable");
2828   if (!mp->enable_disable)
2829     s = format (s, "disable");
2830
2831   FINISH;
2832 }
2833
2834 static void *vl_api_sw_interface_tag_add_del_t_print
2835   (vl_api_sw_interface_tag_add_del_t * mp, void *handle)
2836 {
2837   u8 *s;
2838
2839   s = format (0, "SCRIPT: sw_interface_tag_add_del ");
2840   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
2841   if (mp->is_add)
2842     s = format (s, "tag %s ", mp->tag);
2843   else
2844     s = format (s, "del ");
2845
2846   FINISH;
2847 }
2848
2849 static void *vl_api_hw_interface_set_mtu_t_print
2850   (vl_api_hw_interface_set_mtu_t * mp, void *handle)
2851 {
2852   u8 *s;
2853
2854   s = format (0, "SCRIPT: sw_interface_set_mtu ");
2855   s = format (s, "sw_if_index %d ", (mp->sw_if_index));
2856   s = format (s, "tag %d ", (mp->mtu));
2857
2858   FINISH;
2859 }
2860
2861 static void *vl_api_p2p_ethernet_add_t_print
2862   (vl_api_p2p_ethernet_add_t * mp, void *handle)
2863 {
2864   u8 *s;
2865
2866   s = format (0, "SCRIPT: p2p_ethernet_add ");
2867   s = format (s, "sw_if_index %d ", (mp->parent_if_index));
2868   s = format (s, "remote_mac %U ", format_ethernet_address, mp->remote_mac);
2869
2870   FINISH;
2871 }
2872
2873 static void *vl_api_p2p_ethernet_del_t_print
2874   (vl_api_p2p_ethernet_del_t * mp, void *handle)
2875 {
2876   u8 *s;
2877
2878   s = format (0, "SCRIPT: p2p_ethernet_del ");
2879   s = format (s, "sw_if_index %d ", (mp->parent_if_index));
2880   s = format (s, "remote_mac %U ", format_ethernet_address, mp->remote_mac);
2881
2882   FINISH;
2883 }
2884
2885 static void *vl_api_tcp_configure_src_addresses_t_print
2886   (vl_api_tcp_configure_src_addresses_t * mp, void *handle)
2887 {
2888   u8 *s;
2889
2890   s = format (0, "SCRIPT: tcp_configure_src_addresses ");
2891   s = format (s, "%U - %U ",
2892               format_vl_api_address, &mp->first_address,
2893               format_vl_api_address, &mp->last_address);
2894
2895   if (mp->vrf_id)
2896     s = format (s, "vrf %d ", (mp->vrf_id));
2897
2898   FINISH;
2899 }
2900
2901 static void *vl_api_app_namespace_add_del_t_print
2902   (vl_api_app_namespace_add_del_t * mp, void *handle)
2903 {
2904   u8 *s;
2905
2906   s = format (0, "SCRIPT: app_namespace_add_del ");
2907   s = format (s, "ns-id %s secret %lu sw_if_index %d ipv4_fib_id %d "
2908               "ipv6_fib_id %d",
2909               vl_api_from_api_to_new_c_string (&mp->namespace_id),
2910               mp->secret, (mp->sw_if_index), (mp->ip4_fib_id),
2911               (mp->ip6_fib_id));
2912   FINISH;
2913 }
2914
2915 static void *vl_api_session_rule_add_del_t_print
2916   (vl_api_session_rule_add_del_t * mp, void *handle)
2917 {
2918   u8 *s;
2919   fib_prefix_t lcl, rmt;
2920   char *proto = mp->transport_proto == 0 ? "tcp" : "udp";
2921   s = format (0, "SCRIPT: session_rule_add_del ");
2922   mp->tag[sizeof (mp->tag) - 1] = 0;
2923   ip_prefix_decode (&mp->lcl, &lcl);
2924   ip_prefix_decode (&mp->rmt, &rmt);
2925
2926   if (lcl.fp_proto == FIB_PROTOCOL_IP4)
2927     s = format (s, "appns %d scope %d %s %U/%d %d %U/%d %d action %u tag %s",
2928                 mp->appns_index, mp->scope, proto, format_ip4_address,
2929                 &lcl.fp_addr.ip4, lcl.fp_len,
2930                 format_ip4_address, &rmt.fp_addr.ip4,
2931                 rmt.fp_len, mp->action_index, mp->tag);
2932   else
2933     s = format (s, "appns %d scope %d %s %U/%d %d %U/%d %d action %u tag %s",
2934                 mp->appns_index, mp->scope, proto, format_ip6_address,
2935                 &lcl.fp_addr.ip6, lcl.fp_len,
2936                 format_ip6_address, &rmt.fp_addr.ip6,
2937                 rmt.fp_len, mp->action_index, mp->tag);
2938   FINISH;
2939 }
2940
2941 __clib_unused
2942   static void *vl_api_ip_container_proxy_add_del_t_print
2943   (vl_api_ip_container_proxy_add_del_t * mp, void *handle)
2944 {
2945   u8 *s;
2946   s = format (0, "SCRIPT: ip_container_proxy_add_del ");
2947   s = format (s, "is_add %d prefix %U sw_if_index %d",
2948               mp->is_add, format_vl_api_prefix, mp->sw_if_index);
2949
2950   FINISH;
2951 }
2952
2953 static void *vl_api_qos_record_enable_disable_t_print
2954   (vl_api_qos_record_enable_disable_t * mp, void *handle)
2955 {
2956   u8 *s;
2957
2958   s = format (0, "SCRIPT: qos_record_enable_disable ");
2959   s = format (s, "sw_if_index %d ", (mp->record.sw_if_index));
2960   s = format (s, "input_source %U ", format_qos_source,
2961               mp->record.input_source);
2962
2963   if (!mp->enable)
2964     s = format (s, "disable ");
2965
2966   FINISH;
2967 }
2968
2969 #define foreach_no_print_function               \
2970 _(memclnt_keepalive_reply)
2971
2972 #define _(f)                                    \
2973 static void * vl_api_ ## f ## _t_print          \
2974   (vl_api_ ## f ## _t * mp, void * handle)      \
2975 {                                               \
2976   return handle;                                \
2977 }
2978 foreach_no_print_function;
2979 #undef _
2980
2981 #define foreach_custom_print_function                                   \
2982 _(CREATE_LOOPBACK, create_loopback)                                     \
2983 _(CREATE_LOOPBACK_INSTANCE, create_loopback_instance)                   \
2984 _(SW_INTERFACE_SET_FLAGS, sw_interface_set_flags)                       \
2985 _(SW_INTERFACE_EVENT, sw_interface_event)                               \
2986 _(SW_INTERFACE_ADD_DEL_ADDRESS, sw_interface_add_del_address)           \
2987 _(SW_INTERFACE_SET_TABLE, sw_interface_set_table)                       \
2988 _(SW_INTERFACE_SET_MPLS_ENABLE, sw_interface_set_mpls_enable)           \
2989 _(SW_INTERFACE_SET_VPATH, sw_interface_set_vpath)                       \
2990 _(SW_INTERFACE_SET_VXLAN_BYPASS, sw_interface_set_vxlan_bypass)         \
2991 _(BOND_CREATE, bond_create)                                             \
2992 _(BOND_CREATE2, bond_create2)                                           \
2993 _(BOND_DELETE, bond_delete)                                             \
2994 _(BOND_ADD_MEMBER, bond_add_member)                                     \
2995 _(BOND_DETACH_MEMBER, bond_detach_member)                               \
2996 _(SW_INTERFACE_SET_BOND_WEIGHT, sw_interface_set_bond_weight)           \
2997 _(SW_MEMBER_INTERFACE_DUMP, sw_member_interface_dump)                   \
2998 _(SW_BOND_INTERFACE_DUMP, sw_bond_interface_dump)                       \
2999 _(SW_INTERFACE_RX_PLACEMENT_DUMP, sw_interface_rx_placement_dump)       \
3000 _(TAP_CREATE_V2, tap_create_v2)                                         \
3001 _(TAP_DELETE_V2, tap_delete_v2)                                         \
3002 _(SW_INTERFACE_TAP_V2_DUMP, sw_interface_tap_v2_dump)                   \
3003 _(IP_TABLE_ADD_DEL, ip_table_add_del)                                   \
3004 _(MPLS_ROUTE_ADD_DEL, mpls_route_add_del)                               \
3005 _(MPLS_TABLE_ADD_DEL, mpls_table_add_del)                               \
3006 _(IP_ROUTE_ADD_DEL, ip_route_add_del)                                   \
3007 _(MPLS_TUNNEL_ADD_DEL, mpls_tunnel_add_del)                             \
3008 _(SR_MPLS_POLICY_ADD, sr_mpls_policy_add)                               \
3009 _(SR_MPLS_POLICY_DEL, sr_mpls_policy_del)                               \
3010 _(SW_INTERFACE_SET_UNNUMBERED, sw_interface_set_unnumbered)             \
3011 _(CREATE_VLAN_SUBIF, create_vlan_subif)                                 \
3012 _(CREATE_SUBIF, create_subif)                                           \
3013 _(IP_TABLE_REPLACE_BEGIN, ip_table_replace_begin)                       \
3014 _(IP_TABLE_FLUSH, ip_table_flush)                                       \
3015 _(IP_TABLE_REPLACE_END, ip_table_replace_end)                           \
3016 _(SET_IP_FLOW_HASH, set_ip_flow_hash)                                   \
3017 _(L2_PATCH_ADD_DEL, l2_patch_add_del)                                   \
3018 _(SR_LOCALSID_ADD_DEL, sr_localsid_add_del)                             \
3019 _(SR_STEERING_ADD_DEL, sr_steering_add_del)                             \
3020 _(SR_POLICY_ADD, sr_policy_add)                                         \
3021 _(SR_POLICY_MOD, sr_policy_mod)                                         \
3022 _(SR_POLICY_DEL, sr_policy_del)                                         \
3023 _(SW_INTERFACE_SET_L2_XCONNECT, sw_interface_set_l2_xconnect)           \
3024 _(L2FIB_ADD_DEL, l2fib_add_del)                                         \
3025 _(L2FIB_FLUSH_ALL, l2fib_flush_all)                                     \
3026 _(L2FIB_FLUSH_BD, l2fib_flush_bd)                                       \
3027 _(L2FIB_FLUSH_INT, l2fib_flush_int)                                     \
3028 _(L2_FLAGS, l2_flags)                                                   \
3029 _(BRIDGE_FLAGS, bridge_flags)                                           \
3030 _(CLASSIFY_ADD_DEL_TABLE, classify_add_del_table)                       \
3031 _(CLASSIFY_ADD_DEL_SESSION, classify_add_del_session)                   \
3032 _(SW_INTERFACE_SET_L2_BRIDGE, sw_interface_set_l2_bridge)               \
3033 _(BRIDGE_DOMAIN_ADD_DEL, bridge_domain_add_del)                         \
3034 _(BRIDGE_DOMAIN_DUMP, bridge_domain_dump)                               \
3035 _(BRIDGE_DOMAIN_SET_MAC_AGE, bridge_domain_set_mac_age)                 \
3036 _(CLASSIFY_SET_INTERFACE_IP_TABLE, classify_set_interface_ip_table)     \
3037 _(CLASSIFY_SET_INTERFACE_L2_TABLES, classify_set_interface_l2_tables)   \
3038 _(ADD_NODE_NEXT, add_node_next)                                         \
3039 _(VXLAN_ADD_DEL_TUNNEL, vxlan_add_del_tunnel)                           \
3040 _(VXLAN_TUNNEL_DUMP, vxlan_tunnel_dump)                                 \
3041 _(VXLAN_OFFLOAD_RX, vxlan_offload_rx)                                   \
3042 _(L2_FIB_CLEAR_TABLE, l2_fib_clear_table)                               \
3043 _(L2_INTERFACE_EFP_FILTER, l2_interface_efp_filter)                     \
3044 _(L2_INTERFACE_VLAN_TAG_REWRITE, l2_interface_vlan_tag_rewrite)         \
3045 _(CREATE_VHOST_USER_IF, create_vhost_user_if)                           \
3046 _(MODIFY_VHOST_USER_IF, modify_vhost_user_if)                           \
3047 _(CREATE_VHOST_USER_IF_V2, create_vhost_user_if_v2)                     \
3048 _(MODIFY_VHOST_USER_IF_V2, modify_vhost_user_if_v2)                     \
3049 _(DELETE_VHOST_USER_IF, delete_vhost_user_if)                           \
3050 _(SW_INTERFACE_DUMP, sw_interface_dump)                                 \
3051 _(CONTROL_PING, control_ping)                                           \
3052 _(WANT_INTERFACE_EVENTS, want_interface_events)                         \
3053 _(CLI, cli)                                                             \
3054 _(CLI_INBAND, cli_inband)                                               \
3055 _(MEMCLNT_CREATE, memclnt_create)                                       \
3056 _(SOCKCLNT_CREATE, sockclnt_create)                                     \
3057 _(SW_INTERFACE_VHOST_USER_DUMP, sw_interface_vhost_user_dump)           \
3058 _(SHOW_VERSION, show_version)                                           \
3059 _(L2_FIB_TABLE_DUMP, l2_fib_table_dump)                                 \
3060 _(VXLAN_GPE_ADD_DEL_TUNNEL, vxlan_gpe_add_del_tunnel)                   \
3061 _(VXLAN_GPE_TUNNEL_DUMP, vxlan_gpe_tunnel_dump)                         \
3062 _(VXLAN_GBP_TUNNEL_ADD_DEL, vxlan_gbp_tunnel_add_del)                   \
3063 _(VXLAN_GBP_TUNNEL_DUMP, vxlan_gbp_tunnel_dump)                         \
3064 _(SW_INTERFACE_SET_VXLAN_GBP_BYPASS, sw_interface_set_vxlan_gbp_bypass) \
3065 _(INTERFACE_NAME_RENUMBER, interface_name_renumber)                     \
3066 _(WANT_L2_MACS_EVENTS, want_l2_macs_events)                             \
3067 _(INPUT_ACL_SET_INTERFACE, input_acl_set_interface)                     \
3068 _(IP_ADDRESS_DUMP, ip_address_dump)                                     \
3069 _(IP_DUMP, ip_dump)                                                     \
3070 _(DELETE_LOOPBACK, delete_loopback)                                     \
3071 _(BD_IP_MAC_ADD_DEL, bd_ip_mac_add_del)                                 \
3072 _(BD_IP_MAC_FLUSH, bd_ip_mac_flush)                                     \
3073 _(COP_INTERFACE_ENABLE_DISABLE, cop_interface_enable_disable)           \
3074 _(COP_WHITELIST_ENABLE_DISABLE, cop_whitelist_enable_disable)           \
3075 _(AF_PACKET_CREATE, af_packet_create)                                   \
3076 _(AF_PACKET_DELETE, af_packet_delete)                                   \
3077 _(AF_PACKET_DUMP, af_packet_dump)                                       \
3078 _(SW_INTERFACE_CLEAR_STATS, sw_interface_clear_stats)                   \
3079 _(MPLS_TABLE_DUMP, mpls_table_dump)                                     \
3080 _(MPLS_ROUTE_DUMP, mpls_route_dump)                                     \
3081 _(MPLS_TUNNEL_DUMP, mpls_tunnel_dump)                                   \
3082 _(CLASSIFY_TABLE_IDS,classify_table_ids)                                \
3083 _(CLASSIFY_TABLE_BY_INTERFACE, classify_table_by_interface)             \
3084 _(CLASSIFY_TABLE_INFO,classify_table_info)                              \
3085 _(CLASSIFY_SESSION_DUMP,classify_session_dump)                          \
3086 _(SET_IPFIX_EXPORTER, set_ipfix_exporter)                               \
3087 _(IPFIX_EXPORTER_DUMP, ipfix_exporter_dump)                             \
3088 _(SET_IPFIX_CLASSIFY_STREAM, set_ipfix_classify_stream)                 \
3089 _(IPFIX_CLASSIFY_STREAM_DUMP, ipfix_classify_stream_dump)               \
3090 _(IPFIX_CLASSIFY_TABLE_ADD_DEL, ipfix_classify_table_add_del)           \
3091 _(IPFIX_CLASSIFY_TABLE_DUMP, ipfix_classify_table_dump)                 \
3092 _(SW_INTERFACE_SPAN_ENABLE_DISABLE, sw_interface_span_enable_disable)   \
3093 _(SW_INTERFACE_SPAN_DUMP, sw_interface_span_dump)                       \
3094 _(GET_NEXT_INDEX, get_next_index)                                       \
3095 _(PG_CREATE_INTERFACE,pg_create_interface)                              \
3096 _(PG_CAPTURE, pg_capture)                                               \
3097 _(PG_ENABLE_DISABLE, pg_enable_disable)                                 \
3098 _(PG_INTERFACE_ENABLE_DISABLE_COALESCE, pg_interface_enable_disable_coalesce) \
3099 _(POLICER_ADD_DEL, policer_add_del)                                     \
3100 _(POLICER_DUMP, policer_dump)                                           \
3101 _(POLICER_CLASSIFY_SET_INTERFACE, policer_classify_set_interface)       \
3102 _(POLICER_CLASSIFY_DUMP, policer_classify_dump)                         \
3103 _(IP_SOURCE_AND_PORT_RANGE_CHECK_ADD_DEL,                               \
3104   ip_source_and_port_range_check_add_del)                               \
3105 _(IP_SOURCE_AND_PORT_RANGE_CHECK_INTERFACE_ADD_DEL,                     \
3106   ip_source_and_port_range_check_interface_add_del)                     \
3107 _(IPSEC_INTERFACE_ADD_DEL_SPD, ipsec_interface_add_del_spd)             \
3108 _(IPSEC_SAD_ENTRY_ADD_DEL, ipsec_sad_entry_add_del)                     \
3109 _(IPSEC_SPD_ADD_DEL, ipsec_spd_add_del)                                 \
3110 _(IPSEC_SPD_ENTRY_ADD_DEL, ipsec_spd_entry_add_del)                     \
3111 _(DELETE_SUBIF, delete_subif)                                           \
3112 _(L2_INTERFACE_PBB_TAG_REWRITE, l2_interface_pbb_tag_rewrite)           \
3113 _(SET_PUNT, set_punt)                                                   \
3114 _(FLOW_CLASSIFY_SET_INTERFACE, flow_classify_set_interface)             \
3115 _(FLOW_CLASSIFY_DUMP, flow_classify_dump)                               \
3116 _(GET_FIRST_MSG_ID, get_first_msg_id)                                   \
3117 _(IOAM_ENABLE, ioam_enable)                                             \
3118 _(IOAM_DISABLE, ioam_disable)                                           \
3119 _(FEATURE_ENABLE_DISABLE, feature_enable_disable)                       \
3120 _(FEATURE_GSO_ENABLE_DISABLE, feature_gso_enable_disable)               \
3121 _(SW_INTERFACE_TAG_ADD_DEL, sw_interface_tag_add_del)                   \
3122 _(HW_INTERFACE_SET_MTU, hw_interface_set_mtu)                           \
3123 _(P2P_ETHERNET_ADD, p2p_ethernet_add)                                   \
3124 _(P2P_ETHERNET_DEL, p2p_ethernet_del)                                   \
3125 _(TCP_CONFIGURE_SRC_ADDRESSES, tcp_configure_src_addresses)             \
3126 _(APP_NAMESPACE_ADD_DEL, app_namespace_add_del)                         \
3127 _(SESSION_RULE_ADD_DEL, session_rule_add_del)                           \
3128 _(OUTPUT_ACL_SET_INTERFACE, output_acl_set_interface)                   \
3129 _(QOS_RECORD_ENABLE_DISABLE, qos_record_enable_disable)                 \
3130 _(MEMCLNT_KEEPALIVE_REPLY, memclnt_keepalive_reply)
3131
3132 void
3133 vl_msg_api_custom_dump_configure (api_main_t * am)
3134 {
3135 #define _(n,f) am->msg_print_handlers[VL_API_##n]       \
3136     = (void *) vl_api_##f##_t_print;
3137   foreach_custom_print_function;
3138 #undef _
3139 }
3140
3141 /*
3142  * fd.io coding-style-patch-verification: ON
3143  *
3144  * Local Variables:
3145  * eval: (c-set-style "gnu")
3146  * End:
3147  */