/*
 *
 *    Copyright (c) 2021 Project CHIP Authors
 *    All rights reserved.
 *
 *    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 "BdxUri.h"

#include <lib/core/CHIPEncoding.h>
#include <lib/core/CHIPSafeCasts.h>
#include <lib/support/BufferWriter.h>
#include <lib/support/BytesToHex.h>
#include <lib/support/CodeUtils.h>

#include <cstring>

namespace chip {
namespace bdx {

constexpr size_t kSchemeLen    = sizeof(kScheme) - 1;
constexpr size_t kHostPos      = kSchemeLen;
constexpr size_t kHostLen      = sizeof(NodeId) * 2;
constexpr size_t kHostEnd      = kHostPos + kHostLen;
constexpr size_t kSeparatorLen = 1;
constexpr size_t kMinUriLen    = kHostEnd + kSeparatorLen + 1 /* file-designator */;

static_assert(sizeof(NodeId) == sizeof(uint64_t), "The code below assumes NodeId is uint64_t");

CHIP_ERROR ParseURI(CharSpan uri, NodeId & nodeId, CharSpan & fileDesignator)
{
    VerifyOrReturnError(uri.size() >= kMinUriLen, CHIP_ERROR_INVALID_STRING_LENGTH);
    VerifyOrReturnError(memcmp(uri.data(), kScheme, kSchemeLen) == 0, CHIP_ERROR_INVALID_SCHEME_PREFIX);

    uint8_t nodeIdBytes[sizeof(NodeId)];
    VerifyOrReturnError(Encoding::HexToBytes(uri.data() + kHostPos, kHostLen, nodeIdBytes, sizeof(nodeIdBytes)) ==
                            sizeof(nodeIdBytes),
                        CHIP_ERROR_INVALID_DESTINATION_NODE_ID);

    nodeId = Encoding::BigEndian::Get64(nodeIdBytes);
    VerifyOrReturnError(IsOperationalNodeId(nodeId), CHIP_ERROR_INVALID_DESTINATION_NODE_ID);
    VerifyOrReturnError(uri.data()[kHostEnd] == '/', CHIP_ERROR_MISSING_URI_SEPARATOR);

    fileDesignator = uri.SubSpan(kHostEnd + kSeparatorLen);

    return CHIP_NO_ERROR;
}

CHIP_ERROR MakeURI(NodeId nodeId, CharSpan fileDesignator, MutableCharSpan & uri)
{
    VerifyOrReturnError(fileDesignator.size() > 0, CHIP_ERROR_INVALID_STRING_LENGTH);

    uint8_t nodeIdBytes[sizeof(NodeId)];
    Encoding::BigEndian::Put64(nodeIdBytes, nodeId);

    char nodeIdHex[sizeof(NodeId) * 2];
    ReturnErrorOnFailure(Encoding::BytesToUppercaseHexBuffer(nodeIdBytes, sizeof(nodeIdBytes), nodeIdHex, sizeof(nodeIdHex)));

    char * buffer     = uri.data();
    size_t bufferSize = uri.size();
    memset(buffer, 0, bufferSize);

    // Reduce the buffer writer size by one to reserve the last byte for the null-terminator
    Encoding::BufferWriter writer(Uint8::from_char(buffer), bufferSize - 1);
    writer.Put(kScheme, kSchemeLen);
    writer.Put(nodeIdHex, sizeof(nodeIdHex));
    writer.Put("/");
    writer.Put(fileDesignator.data(), fileDesignator.size());

    VerifyOrReturnError(writer.Fit(), CHIP_ERROR_BUFFER_TOO_SMALL);
    uri.reduce_size(writer.WritePos());

    return CHIP_NO_ERROR;
}

} // namespace bdx
} // namespace chip