/*
 * Copyright (c) 2018 Cisco and/or its affiliates.
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at:
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

#include <vlibapi/api_types.h>
#include <vnet/ip/ip_types_api.h>

int
ip_address_family_decode (vl_api_address_family_t af,
			  ip_address_family_t * out)
{
  switch (af)
    {
    case ADDRESS_IP4:
      *out = AF_IP4;
      return (0);
    case ADDRESS_IP6:
      *out = AF_IP6;
      return (0);
    }
  return (VNET_API_ERROR_INVALID_ADDRESS_FAMILY);
}

vl_api_address_family_t
ip_address_family_encode (ip_address_family_t af)
{
  switch (af)
    {
    case AF_IP4:
      return (ADDRESS_IP4);
    case AF_IP6:
      return (ADDRESS_IP6);
    }

  ASSERT (0);
  return (ADDRESS_IP4);
}

int
ip_proto_decode (vl_api_ip_proto_t ipp, ip_protocol_t * out)
{
  /* Not all protocol are defined in vl_api_ip_proto_t
   * so we must cast to a different type.
   */
  switch ((u8) ipp)
    {
#define ip_protocol(n,s)                       \
      case IP_PROTOCOL_##s:                    \
        *out = IP_PROTOCOL_##s;                \
        return (0);
#include "protocols.def"
#undef ip_protocol
    }
  return (VNET_API_ERROR_INVALID_PROTOCOL);
}

vl_api_ip_proto_t
ip_proto_encode (ip_protocol_t ipp)
{
  switch (ipp)
    {
#define ip_protocol(n,s)                                \
      case IP_PROTOCOL_##s:                             \
        return ((vl_api_ip_proto_t) IP_PROTOCOL_##s);
#include "protocols.def"
#undef ip_protocol
    }

  ASSERT (0);
  return (IP_API_PROTO_TCP);
}

ip_dscp_t
ip_dscp_decode (vl_api_ip_dscp_t in)
{
  return ((ip_dscp_t) in);
}

vl_api_ip_dscp_t
ip_dscp_encode (ip_dscp_t dscp)
{
  return ((vl_api_ip_dscp_t) dscp);
}

int
ip_feature_location_decode (vl_api_ip_feature_location_t loc,
			    ip_feature_location_t * out)
{
  /* Not all feature_locationcol are defined in vl_api_ip_feature_location_t
   * so we must cast to a different type.
   */
  switch (loc)
    {
#define _(n,s)                                    \
      case IP_API_FEATURE_##n:                    \
        *out = IP_FEATURE_##n;                    \
        return (0);
      foreach_ip_feature_location
#undef _
    }
  return (VNET_API_ERROR_FEATURE_DISABLED);
}

vl_api_ip_feature_location_t
ip_feature_location_encode (ip_feature_location_t loc)
{
  return ((vl_api_ip_feature_location_t) (loc));
}


void
ip6_address_encode (const ip6_address_t * in, vl_api_ip6_address_t out)
{
  clib_memcpy (out, in, sizeof (*in));
}

void
ip6_address_decode (const vl_api_ip6_address_t in, ip6_address_t * out)
{
  clib_memcpy (out, in, sizeof (*out));
}

void
ip4_address_encode (const ip4_address_t * in, vl_api_ip4_address_t out)
{
  clib_memcpy (out, in, sizeof (*in));
}

void
ip4_address_decode (const vl_api_ip4_address_t in, ip4_address_t * out)
{
  clib_memcpy (out, in, sizeof (*out));
}

static ip46_type_t
ip_address_union_decode (const vl_api_address_union_t * in,
			 vl_api_address_family_t af, ip46_address_t * out)
{
  ip46_type_t type;

  switch (af)
    {
    case ADDRESS_IP4:
      clib_memset (out, 0, sizeof (*out));
      clib_memcpy (&out->ip4, &in->ip4, sizeof (out->ip4));
      type = IP46_TYPE_IP4;
      break;
    case ADDRESS_IP6:
      clib_memcpy (&out->ip6, &in->ip6, sizeof (out->ip6));
      type = IP46_TYPE_IP6;
      break;
    default:
      type = IP46_TYPE_ANY;
      break;
    }

  return type;
}

ip46_type_t
ip_address_decode (const vl_api_address_t * in, ip46_address_t * out)
{
  return (ip_address_union_decode (&in->un, in->af, out));
}

void
ip_address_decode2 (const vl_api_address_t * in, ip_address_t * out)
{
  switch (ip_address_union_decode (&in->un, in->af, &out->ip))
    {
    case IP46_TYPE_IP4:
      out->version = AF_IP4;
      break;
    case IP46_TYPE_IP6:
      out->version = AF_IP6;
      break;
    default:
      ;
      break;
    }
}

static void
ip_address_union_encode (const ip46_address_t * in,
			 vl_api_address_family_t af,
			 vl_api_address_union_t * out)
{
  if (ADDRESS_IP6 == af)
    ip6_address_encode (&in->ip6, out->ip6);
  else
    ip4_address_encode (&in->ip4, out->ip4);
}

void
ip_address_encode (const ip46_address_t * in,
		   ip46_type_t type, vl_api_address_t * out)
{
  switch (type)
    {
    case IP46_TYPE_IP4:
      out->af = ADDRESS_IP4;
      break;
    case IP46_TYPE_IP6:
      out->af = ADDRESS_IP6;
      break;
    case IP46_TYPE_ANY:
      if (ip46_address_is_ip4 (in))
	out->af = ADDRESS_IP4;
      else
	out->af = ADDRESS_IP6;
      break;
    }
  ip_address_union_encode (in, out->af, &out->un);
}

void
ip_address_encode2 (const ip_address_t * in, vl_api_address_t * out)
{
  switch (in->version)
    {
    case AF_IP4:
      out->af = ADDRESS_IP4;
      ip4_address_encode (&in->ip.ip4, out->un.ip4);
      break;
    case AF_IP6:
      out->af = ADDRESS_IP6;
      ip6_address_encode (&in->ip.ip6, out->un.ip6);
      break;
    }
  ip_address_union_encode (&in->ip, out->af, &out->un);
}

void
ip_prefix_decode (const vl_api_prefix_t * in, fib_prefix_t * out)
{
  switch (in->address.af)
    {
    case ADDRESS_IP4:
      out->fp_proto = FIB_PROTOCOL_IP4;
      break;
    case ADDRESS_IP6:
      out->fp_proto = FIB_PROTOCOL_IP6;
      break;
    }
  out->fp_len = in->len;
  out->___fp___pad = 0;
  ip_address_decode (&in->address, &out->fp_addr);
}

int
ip_prefix_decode2 (const vl_api_prefix_t * in, ip_prefix_t * out)
{
  out->len = in->len;
  ip_address_decode2 (&in->address, &out->addr);

  if (!ip_prefix_validate (out))
    return (VNET_API_ERROR_IP_PREFIX_INVALID);
  return (0);
}

void
ip_prefix_encode (const fib_prefix_t * in, vl_api_prefix_t * out)
{
  out->len = in->fp_len;
  ip46_type_t ip46_type;

  switch (in->fp_proto)
    {
    case FIB_PROTOCOL_IP4:
      ip46_type = (IP46_TYPE_IP4);
      break;
    case FIB_PROTOCOL_IP6:
      ip46_type = (IP46_TYPE_IP6);
      break;
    case FIB_PROTOCOL_MPLS:
      ip46_type = (IP46_TYPE_ANY);
      break;
    default:
      ip46_type = (IP46_TYPE_ANY);
    }

  ip_address_encode (&in->fp_addr, ip46_type, &out->address);
}

void
ip_prefix_encode2 (const ip_prefix_t * in, vl_api_prefix_t * out)
{
  out->len = in->len;
  ip_address_encode2 (&in->addr, &out->address);
}

void
ip_mprefix_encode (const mfib_prefix_t * in, vl_api_mprefix_t * out)
{
  out->af = (FIB_PROTOCOL_IP6 == in->fp_proto ? ADDRESS_IP6 : ADDRESS_IP4);
  out->grp_address_length = clib_host_to_net_u16 (in->fp_len);

  ip_address_union_encode (&in->fp_grp_addr, out->af, &out->grp_address);
  ip_address_union_encode (&in->fp_src_addr, out->af, &out->src_address);
}

void
ip_mprefix_decode (const vl_api_mprefix_t * in, mfib_prefix_t * out)
{
  out->fp_proto = (ADDRESS_IP6 == in->af ?
		   FIB_PROTOCOL_IP6 : FIB_PROTOCOL_IP4);
  out->fp_len = clib_net_to_host_u16 (in->grp_address_length);
  out->___fp___pad = 0;

  ip_address_union_decode (&in->grp_address, in->af, &out->fp_grp_addr);
  ip_address_union_decode (&in->src_address, in->af, &out->fp_src_addr);

  if (!ip46_address_is_zero (&out->fp_src_addr))
    out->fp_len = (out->fp_proto == FIB_PROTOCOL_IP6 ? 256 : 64);
}

/*
 * fd.io coding-style-patch-verification: ON
 *
 * Local Variables:
 * eval: (c-set-style "gnu")
 * End:
 */