root/drivers/net/ethernet/meta/fbnic/fbnic_tlv.c
// SPDX-License-Identifier: GPL-2.0
/* Copyright (c) Meta Platforms, Inc. and affiliates. */

#include <linux/gfp.h>
#include <linux/mm.h>
#include <linux/once.h>
#include <linux/random.h>
#include <linux/string.h>
#include <uapi/linux/if_ether.h>

#include "fbnic_tlv.h"

/**
 * fbnic_tlv_msg_alloc - Allocate page and initialize FW message header
 * @msg_id: Identifier for new message we are starting
 *
 * Return: pointer to start of message, or NULL on failure.
 *
 * Allocates a page and initializes message header at start of page.
 * Initial message size is 1 DWORD which is just the header.
 **/
struct fbnic_tlv_msg *fbnic_tlv_msg_alloc(u16 msg_id)
{
        struct fbnic_tlv_hdr hdr = { 0 };
        struct fbnic_tlv_msg *msg;

        msg = (struct fbnic_tlv_msg *)__get_free_page(GFP_KERNEL);
        if (!msg)
                return NULL;

        /* Start with zero filled header and then back fill with data */
        hdr.type = msg_id;
        hdr.is_msg = 1;
        hdr.len = cpu_to_le16(1);

        /* Copy header into start of message */
        msg->hdr = hdr;

        return msg;
}

/**
 * fbnic_tlv_attr_put_flag - Add flag value to message
 * @msg: Message header we are adding flag attribute to
 * @attr_id: ID of flag attribute we are adding to message
 *
 * Return: -ENOSPC if there is no room for the attribute. Otherwise 0.
 *
 * Adds a 1 DWORD flag attribute to the message. The presence of this
 * attribute can be used as a boolean value indicating true, otherwise the
 * value is considered false.
 **/
int fbnic_tlv_attr_put_flag(struct fbnic_tlv_msg *msg, const u16 attr_id)
{
        int attr_max_len = PAGE_SIZE - offset_in_page(msg) - sizeof(*msg);
        struct fbnic_tlv_hdr hdr = { 0 };
        struct fbnic_tlv_msg *attr;

        attr_max_len -= le16_to_cpu(msg->hdr.len) * sizeof(u32);
        if (attr_max_len < sizeof(*attr))
                return -ENOSPC;

        /* Get header pointer and bump attr to start of data */
        attr = &msg[le16_to_cpu(msg->hdr.len)];

        /* Record attribute type and size */
        hdr.type = attr_id;
        hdr.len = cpu_to_le16(sizeof(hdr));

        attr->hdr = hdr;
        le16_add_cpu(&msg->hdr.len,
                     FBNIC_TLV_MSG_SIZE(le16_to_cpu(hdr.len)));

        return 0;
}

/**
 * fbnic_tlv_attr_put_value - Add data to message
 * @msg: Message header we are adding flag attribute to
 * @attr_id: ID of flag attribute we are adding to message
 * @value: Pointer to data to be stored
 * @len: Size of data to be stored.
 *
 * Return: -ENOSPC if there is no room for the attribute. Otherwise 0.
 *
 * Adds header and copies data pointed to by value into the message. The
 * result is rounded up to the nearest DWORD for sizing so that the
 * headers remain aligned.
 *
 * The assumption is that the value field is in a format where byte
 * ordering can be guaranteed such as a byte array or a little endian
 * format.
 **/
int fbnic_tlv_attr_put_value(struct fbnic_tlv_msg *msg, const u16 attr_id,
                             const void *value, const int len)
{
        int attr_max_len = PAGE_SIZE - offset_in_page(msg) - sizeof(*msg);
        struct fbnic_tlv_hdr hdr = { 0 };
        struct fbnic_tlv_msg *attr;

        attr_max_len -= le16_to_cpu(msg->hdr.len) * sizeof(u32);
        if (attr_max_len < sizeof(*attr) + len)
                return -ENOSPC;

        /* Get header pointer and bump attr to start of data */
        attr = &msg[le16_to_cpu(msg->hdr.len)];

        /* Record attribute type and size */
        hdr.type = attr_id;
        hdr.len = cpu_to_le16(sizeof(hdr) + len);

        /* Zero pad end of region to be written if we aren't aligned */
        if (len % sizeof(hdr))
                attr->value[len / sizeof(hdr)] = 0;

        /* Copy data over */
        memcpy(attr->value, value, len);

        attr->hdr = hdr;
        le16_add_cpu(&msg->hdr.len,
                     FBNIC_TLV_MSG_SIZE(le16_to_cpu(hdr.len)));

        return 0;
}

/**
 * __fbnic_tlv_attr_put_int - Add integer to message
 * @msg: Message header we are adding flag attribute to
 * @attr_id: ID of flag attribute we are adding to message
 * @value: Data to be stored
 * @len: Size of data to be stored, either 4 or 8 bytes.
 *
 * Return: -ENOSPC if there is no room for the attribute. Otherwise 0.
 *
 * Adds header and copies data pointed to by value into the message. Will
 * format the data as little endian.
 **/
int __fbnic_tlv_attr_put_int(struct fbnic_tlv_msg *msg, const u16 attr_id,
                             s64 value, const int len)
{
        __le64 le64_value = cpu_to_le64(value);

        return fbnic_tlv_attr_put_value(msg, attr_id, &le64_value, len);
}

/**
 * fbnic_tlv_attr_put_mac_addr - Add mac_addr to message
 * @msg: Message header we are adding flag attribute to
 * @attr_id: ID of flag attribute we are adding to message
 * @mac_addr: Byte pointer to MAC address to be stored
 *
 * Return: -ENOSPC if there is no room for the attribute. Otherwise 0.
 *
 * Adds header and copies data pointed to by mac_addr into the message. Will
 * copy the address raw so it will be in big endian with start of MAC
 * address at start of attribute.
 **/
int fbnic_tlv_attr_put_mac_addr(struct fbnic_tlv_msg *msg, const u16 attr_id,
                                const u8 *mac_addr)
{
        return fbnic_tlv_attr_put_value(msg, attr_id, mac_addr, ETH_ALEN);
}

/**
 * fbnic_tlv_attr_put_string - Add string to message
 * @msg: Message header we are adding flag attribute to
 * @attr_id: ID of flag attribute we are adding to message
 * @string: Byte pointer to null terminated string to be stored
 *
 * Return: -ENOSPC if there is no room for the attribute. Otherwise 0.
 *
 * Adds header and copies data pointed to by string into the message. Will
 * copy the address raw so it will be in byte order.
 **/
int fbnic_tlv_attr_put_string(struct fbnic_tlv_msg *msg, u16 attr_id,
                              const char *string)
{
        int attr_max_len = PAGE_SIZE - sizeof(*msg);
        int str_len = 1;

        /* The max length will be message minus existing message and new
         * attribute header. Since the message is measured in DWORDs we have
         * to multiply the size by 4.
         *
         * The string length doesn't include the \0 so we have to add one to
         * the final value, so start with that as our initial value.
         *
         * We will verify if the string will fit in fbnic_tlv_attr_put_value()
         */
        attr_max_len -= le16_to_cpu(msg->hdr.len) * sizeof(u32);
        str_len += strnlen(string, attr_max_len);

        return fbnic_tlv_attr_put_value(msg, attr_id, string, str_len);
}

/**
 * fbnic_tlv_attr_get_unsigned - Retrieve unsigned value from result
 * @attr: Attribute to retrieve data from
 * @def: The default value if attr is NULL
 *
 * Return: unsigned 64b value containing integer value
 **/
u64 fbnic_tlv_attr_get_unsigned(struct fbnic_tlv_msg *attr, u64 def)
{
        __le64 le64_value = 0;

        if (!attr)
                return def;

        memcpy(&le64_value, &attr->value[0],
               le16_to_cpu(attr->hdr.len) - sizeof(*attr));

        return le64_to_cpu(le64_value);
}

/**
 * fbnic_tlv_attr_get_signed - Retrieve signed value from result
 * @attr: Attribute to retrieve data from
 * @def: The default value if attr is NULL
 *
 * Return: signed 64b value containing integer value
 **/
s64 fbnic_tlv_attr_get_signed(struct fbnic_tlv_msg *attr, s64 def)
{
        __le64 le64_value = 0;
        int shift;
        s64 value;

        if (!attr)
                return def;

        shift = (8 + sizeof(*attr) - le16_to_cpu(attr->hdr.len)) * 8;

        /* Copy the value and adjust for byte ordering */
        memcpy(&le64_value, &attr->value[0],
               le16_to_cpu(attr->hdr.len) - sizeof(*attr));
        value = le64_to_cpu(le64_value);

        /* Sign extend the return value by using a pair of shifts */
        return (value << shift) >> shift;
}

/**
 * fbnic_tlv_attr_get_string - Retrieve string value from result
 * @attr: Attribute to retrieve data from
 * @dst: Pointer to an allocated string to store the data
 * @dstsize: The maximum size which can be in dst
 *
 * Return: the size of the string read from firmware or negative error.
 **/
ssize_t fbnic_tlv_attr_get_string(struct fbnic_tlv_msg *attr, char *dst,
                                  size_t dstsize)
{
        size_t srclen, len;
        ssize_t ret;

        if (!attr)
                return -EINVAL;

        if (dstsize == 0)
                return -E2BIG;

        srclen = le16_to_cpu(attr->hdr.len) - sizeof(*attr);
        if (srclen > 0 && ((char *)attr->value)[srclen - 1] == '\0')
                srclen--;

        if (srclen >= dstsize) {
                len = dstsize - 1;
                ret = -E2BIG;
        } else {
                len = srclen;
                ret = len;
        }

        memcpy(dst, &attr->value, len);
        /* Zero pad end of dst. */
        memset(dst + len, 0, dstsize - len);

        return ret;
}

/**
 * fbnic_tlv_attr_nest_start - Add nested attribute header to message
 * @msg: Message header we are adding flag attribute to
 * @attr_id: ID of flag attribute we are adding to message
 *
 * Return: NULL if there is no room for the attribute. Otherwise a pointer
 * to the new attribute header.
 *
 * New header length is stored initially in DWORDs.
 **/
struct fbnic_tlv_msg *fbnic_tlv_attr_nest_start(struct fbnic_tlv_msg *msg,
                                                u16 attr_id)
{
        int attr_max_len = PAGE_SIZE - offset_in_page(msg) - sizeof(*msg);
        struct fbnic_tlv_msg *attr = &msg[le16_to_cpu(msg->hdr.len)];
        struct fbnic_tlv_hdr hdr = { 0 };

        /* Make sure we have space for at least the nest header plus one more */
        attr_max_len -= le16_to_cpu(msg->hdr.len) * sizeof(u32);
        if (attr_max_len < sizeof(*attr) * 2)
                return NULL;

        /* Record attribute type and size */
        hdr.type = attr_id;

        /* Add current message length to account for consumption within the
         * page and leave it as a multiple of DWORDs, we will shift to
         * bytes when we close it out.
         */
        hdr.len = cpu_to_le16(1);

        attr->hdr = hdr;

        return attr;
}

/**
 * fbnic_tlv_attr_nest_stop - Close out nested attribute and add it to message
 * @msg: Message header we are adding flag attribute to
 *
 * Closes out nested attribute, adds length to message, and then bumps
 * length from DWORDs to bytes to match other attributes.
 **/
void fbnic_tlv_attr_nest_stop(struct fbnic_tlv_msg *msg)
{
        struct fbnic_tlv_msg *attr = &msg[le16_to_cpu(msg->hdr.len)];
        u16 len = le16_to_cpu(attr->hdr.len);

        /* Add attribute to message if there is more than just a header */
        if (len <= 1)
                return;

        le16_add_cpu(&msg->hdr.len, len);

        /* Convert from DWORDs to bytes */
        attr->hdr.len = cpu_to_le16(len * sizeof(u32));
}

static int
fbnic_tlv_attr_validate(struct fbnic_tlv_msg *attr,
                        const struct fbnic_tlv_index *tlv_index)
{
        u16 len = le16_to_cpu(attr->hdr.len) - sizeof(*attr);
        u16 attr_id = attr->hdr.type;
        __le32 *value = &attr->value[0];

        if (attr->hdr.is_msg)
                return -EINVAL;

        if (attr_id >= FBNIC_TLV_RESULTS_MAX)
                return -EINVAL;

        while (tlv_index->id != attr_id) {
                if  (tlv_index->id == FBNIC_TLV_ATTR_ID_UNKNOWN) {
                        if (attr->hdr.cannot_ignore)
                                return -ENOENT;
                        return le16_to_cpu(attr->hdr.len);
                }

                tlv_index++;
        }

        if (offset_in_page(attr) + len > PAGE_SIZE - sizeof(*attr))
                return -E2BIG;

        switch (tlv_index->type) {
        case FBNIC_TLV_STRING:
                if (!len || len > tlv_index->len)
                        return -EINVAL;
                if (((char *)value)[len - 1])
                        return -EINVAL;
                break;
        case FBNIC_TLV_FLAG:
                if (len)
                        return -EINVAL;
                break;
        case FBNIC_TLV_UNSIGNED:
        case FBNIC_TLV_SIGNED:
                if (tlv_index->len > sizeof(__le64))
                        return -EINVAL;
                fallthrough;
        case FBNIC_TLV_BINARY:
                if (!len || len > tlv_index->len)
                        return -EINVAL;
                break;
        case FBNIC_TLV_NESTED:
        case FBNIC_TLV_ARRAY:
                if (len % 4)
                        return -EINVAL;
                break;
        default:
                return -EINVAL;
        }

        return 0;
}

/**
 * fbnic_tlv_attr_parse_array - Parse array of attributes into results array
 * @attr: Start of attributes in the message
 * @len: Length of attributes in the message
 * @results: Array of pointers to store the results of parsing
 * @tlv_index: List of TLV attributes to be parsed from message
 * @tlv_attr_id: Specific ID that is repeated in array
 * @array_len: Number of results to store in results array
 *
 * Return: zero on success, or negative value on error.
 *
 * Will take a list of attributes and a parser definition and will capture
 * the results in the results array to have the data extracted later.
 **/
int fbnic_tlv_attr_parse_array(struct fbnic_tlv_msg *attr, int len,
                               struct fbnic_tlv_msg **results,
                               const struct fbnic_tlv_index *tlv_index,
                               u16 tlv_attr_id, size_t array_len)
{
        int i = 0;

        /* Initialize results table to NULL. */
        memset(results, 0, array_len * sizeof(results[0]));

        /* Nothing to parse if header was only thing there */
        if (!len)
                return 0;

        /* Work through list of attributes, parsing them as necessary */
        while (len > 0) {
                u16 attr_id = attr->hdr.type;
                u16 attr_len;
                int err;

                if (tlv_attr_id != attr_id)
                        return -EINVAL;

                /* Stop parsing on full error */
                err = fbnic_tlv_attr_validate(attr, tlv_index);
                if (err < 0)
                        return err;

                if (i >= array_len)
                        return -ENOSPC;

                results[i++] = attr;

                attr_len = FBNIC_TLV_MSG_SIZE(le16_to_cpu(attr->hdr.len));
                len -= attr_len;
                attr += attr_len;
        }

        return len == 0 ? 0 : -EINVAL;
}

/**
 * fbnic_tlv_attr_parse - Parse attributes into a list of attribute results
 * @attr: Start of attributes in the message
 * @len: Length of attributes in the message
 * @results: Array of pointers to store the results of parsing
 * @tlv_index: List of TLV attributes to be parsed from message
 *
 * Return: zero on success, or negative value on error.
 *
 * Will take a list of attributes and a parser definition and will capture
 * the results in the results array to have the data extracted later.
 **/
int fbnic_tlv_attr_parse(struct fbnic_tlv_msg *attr, int len,
                         struct fbnic_tlv_msg **results,
                         const struct fbnic_tlv_index *tlv_index)
{
        /* Initialize results table to NULL. */
        memset(results, 0, sizeof(results[0]) * FBNIC_TLV_RESULTS_MAX);

        /* Nothing to parse if header was only thing there */
        if (!len)
                return 0;

        /* Work through list of attributes, parsing them as necessary */
        while (len > 0) {
                int err = fbnic_tlv_attr_validate(attr, tlv_index);
                u16 attr_id = attr->hdr.type;
                u16 attr_len;

                /* Stop parsing on full error */
                if (err < 0)
                        return err;

                /* Ignore results for unsupported values */
                if (!err) {
                        /* Do not overwrite existing entries */
                        if (results[attr_id])
                                return -EADDRINUSE;

                        results[attr_id] = attr;
                }

                attr_len = FBNIC_TLV_MSG_SIZE(le16_to_cpu(attr->hdr.len));
                len -= attr_len;
                attr += attr_len;
        }

        return len == 0 ? 0 : -EINVAL;
}

/**
 * fbnic_tlv_msg_parse - Parse message and process via predetermined functions
 * @opaque: Value passed to parser function to enable driver access
 * @msg: Message to be parsed.
 * @parser: TLV message parser definition.
 *
 * Return: zero on success, or negative value on error.
 *
 * Will take a message a number of message types via the attribute parsing
 * definitions and function provided for the parser array.
 **/
int fbnic_tlv_msg_parse(void *opaque, struct fbnic_tlv_msg *msg,
                        const struct fbnic_tlv_parser *parser)
{
        struct fbnic_tlv_msg *results[FBNIC_TLV_RESULTS_MAX];
        u16 msg_id = msg->hdr.type;
        int err;

        if (!msg->hdr.is_msg)
                return -EINVAL;

        if (le16_to_cpu(msg->hdr.len) > PAGE_SIZE / sizeof(u32))
                return -E2BIG;

        while (parser->id != msg_id) {
                if (parser->id == FBNIC_TLV_MSG_ID_UNKNOWN)
                        return -ENOENT;
                parser++;
        }

        err = fbnic_tlv_attr_parse(&msg[1], le16_to_cpu(msg->hdr.len) - 1,
                                   results, parser->attr);
        if (err)
                return err;

        return parser->func(opaque, results);
}

/**
 * fbnic_tlv_parser_error - called if message doesn't match known type
 * @opaque: (unused)
 * @results: (unused)
 *
 * Return: -EBADMSG to indicate the message is an unsupported type
 **/
int fbnic_tlv_parser_error(void *opaque, struct fbnic_tlv_msg **results)
{
        return -EBADMSG;
}

void fbnic_tlv_attr_addr_copy(u8 *dest, struct fbnic_tlv_msg *src)
{
        u8 *mac_addr;

        mac_addr = fbnic_tlv_attr_get_value_ptr(src);
        memcpy(dest, mac_addr, ETH_ALEN);
}