65816-llvm-mos/runtime/include/c++/etl/format.h
2026-05-30 19:40:29 -05:00

2274 lines
64 KiB
C++

///\file
/******************************************************************************
The MIT License(MIT)
Embedded Template Library.
https://github.com/ETLCPP/etl
https://www.etlcpp.com
Copyright(c) 2025 BMW AG
Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files(the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and / or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions :
The above copyright notice and this permission notice shall be included in all
copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
SOFTWARE.
******************************************************************************/
#ifndef ETL_FORMAT_INCLUDED
#define ETL_FORMAT_INCLUDED
#include "platform.h"
#include "algorithm.h"
#include "array.h"
#include "array_view.h"
#include "error_handler.h"
#include "limits.h"
#include "math.h"
#include "optional.h"
#include "span.h"
#include "string.h"
#include "string_view.h"
#include "type_traits.h"
#include "utility.h"
#include "variant.h"
#include "visitor.h"
#if ETL_USING_FORMAT_FLOATING_POINT
#include <cmath>
#endif
#if ETL_USING_CPP11
namespace etl
{
class format_exception : public etl::exception
{
public:
format_exception(string_type reason_, string_type file_name_, numeric_type line_number_)
: exception(reason_, file_name_, line_number_)
{
}
};
class bad_format_string_exception : public etl::format_exception
{
public:
bad_format_string_exception(string_type file_name_, numeric_type line_number_)
: etl::format_exception(ETL_ERROR_TEXT("format:bad", ETL_FORMAT_FILE_ID"A"), file_name_, line_number_)
{
}
};
template <class... Args>
ETL_CONSTEXPR14 bool check_f(const char* fmt)
{
// to be implemented later
// return fmt[0] == 0; // actual check
(void)fmt;
return true;
}
inline void please_note_this_is_error_message_1() noexcept {}
template <class... Args>
struct basic_format_string
{
inline ETL_CONSTEVAL basic_format_string(const char* fmt)
: _sv(fmt)
{
bool format_string_ok = check_f(fmt);
if (!format_string_ok)
{
// if (etl::is_constant_evaluated()) // compile time error path
//{
// // calling a non-constexpr function in a consteval context to
// trigger a compile error please_note_this_is_error_message_1();
// }
// else // run time error path
//{
ETL_ASSERT_FAIL_AND_RETURN(ETL_ERROR(bad_format_string_exception));
//}
}
}
ETL_CONSTEXPR basic_format_string(const basic_format_string& other) = default;
ETL_CONSTEXPR14 basic_format_string& operator=(const basic_format_string& other) = default;
ETL_CONSTEXPR string_view get() const
{
return _sv;
}
private:
string_view _sv;
};
template <class... Args>
using format_string = basic_format_string<type_identity_t<Args>...>;
// Supported types to format
//
// This is the limited number of types as defined in std::basic_format_arg
// https://en.cppreference.com/w/cpp/utility/format/basic_format_arg.html
//
// Further types to be supported are added via converting constructors in
// etl::basic_format_arg
using supported_format_types = etl::variant< etl::monostate, bool, char, int, unsigned int, long long int, unsigned long long int,
#if ETL_USING_FORMAT_FLOATING_POINT
float, double, long double,
#endif
const char*, etl::string_view, const void*
// basic_format_arg::handle,
>;
template <class CharT>
class basic_format_parse_context
{
public:
using iterator = string_view::const_iterator;
using const_iterator = string_view::const_iterator;
using char_type = CharT;
basic_format_parse_context(etl::string_view fmt, size_t n_args = 0)
: range(fmt)
, num_args(n_args)
, current(0)
, automatic_mode(false)
, manual_mode(false)
{
}
basic_format_parse_context<CharT>& operator=(const basic_format_parse_context&) = delete;
iterator begin() const noexcept
{
return range.begin();
}
iterator end() const noexcept
{
return range.end();
}
ETL_CONSTEXPR14 void advance_to(iterator pos)
{
range = etl::string_view(pos, range.end());
}
ETL_CONSTEXPR14 size_t next_arg_id()
{
// automatic number generation only allowed if not already in manual mode
ETL_ASSERT(manual_mode == false, ETL_ERROR(bad_format_string_exception));
automatic_mode = true;
// TODO: compile time check
ETL_ASSERT(current < num_args, ETL_ERROR(bad_format_string_exception) /* not enough arguments for generated index */);
return current++;
}
ETL_CONSTEXPR14 void check_arg_id(size_t id)
{
// manual index specification only allowed if not already in automatic
// mode
ETL_ASSERT(automatic_mode == false, ETL_ERROR(bad_format_string_exception));
manual_mode = true;
ETL_ASSERT(id < num_args, ETL_ERROR(bad_format_string_exception) /* index out of range */);
}
private:
etl::string_view range;
size_t num_args;
size_t current;
bool automatic_mode;
bool manual_mode;
template <class, class>
friend struct formatter;
};
using format_parse_context = basic_format_parse_context<char>;
template <class Context>
class basic_format_arg
{
public:
class handle
{
public:
void format(etl::basic_format_parse_context<char>& /* parse_ctx */, Context& /*format_ctx*/)
{
// typename Context::template formatter_type<TD> f;
// parse_ctx.advance_to(f.parse(parse_ctx));
// format_ctx.advance_to(f.format(const_cast<TQ&>(static_cast<const
// TD&>(ref)), format_ctx));
}
private:
const void* obj;
typedef void (*function_type)(etl::basic_format_parse_context<char>&, Context&, const void*);
function_type func;
};
basic_format_arg() {}
basic_format_arg(const bool v)
: data(v)
{
}
basic_format_arg(const int v)
: data(v)
{
}
basic_format_arg(const short v)
: data(static_cast<int>(v))
{
}
basic_format_arg(const unsigned short v)
: data(static_cast<unsigned int>(v))
{
}
basic_format_arg(const long int v)
: data(static_cast<long long int>(v))
{
}
basic_format_arg(const unsigned int v)
: data(v)
{
}
basic_format_arg(const long long int v)
: data(v)
{
}
basic_format_arg(const unsigned long long int v)
: data(v)
{
}
// Additional type to list of basic types as defined for
// std::basic_format_arg: Mapping unsigned long to unsigned long long int
basic_format_arg(const unsigned long v)
: data(static_cast<unsigned long long int>(v))
{
}
basic_format_arg(const char* v)
: data(v)
{
}
basic_format_arg(char v)
: data(v)
{
}
basic_format_arg(const signed char v)
: data(static_cast<char>(v))
{
}
basic_format_arg(const unsigned char v)
: data(static_cast<char>(v))
{
}
#if ETL_USING_FORMAT_FLOATING_POINT
basic_format_arg(const float v)
: data(v)
{
}
basic_format_arg(const double v)
: data(v)
{
}
basic_format_arg(const long double v)
: data(v)
{
}
#endif
basic_format_arg(const etl::string_view v)
: data(v)
{
}
basic_format_arg(const etl::ibasic_string<char>& v)
: data(etl::string_view(v.data(), v.size()))
{
}
basic_format_arg(const basic_format_arg& other)
: data(other.data)
{
}
basic_format_arg(const void* v)
: data(v)
{
}
basic_format_arg& operator=(const basic_format_arg& other)
{
data = other.data;
return *this;
}
explicit operator bool() const
{
return !etl::holds_alternative<etl::monostate>(data);
}
template <class R, class Visitor>
R visit(Visitor&& vis)
{
return etl::visit(etl::forward<Visitor>(vis), data);
}
private:
supported_format_types data;
};
template <class Context, class... Args>
class format_arg_store
{
public:
format_arg_store(Args&... args)
: _args{args...}
{
}
basic_format_arg<Context> get(size_t i) const
{
return _args.get(i);
}
etl::array_view<basic_format_arg<Context>> get()
{
return _args;
}
private:
etl::array<basic_format_arg<Context>, sizeof...(Args)> _args;
};
template <class Context>
class basic_format_args
{
public:
template <class... Args>
basic_format_args(format_arg_store<Context, Args...>& store)
: _args(store.get())
{
}
basic_format_args(const basic_format_args<Context>& other)
: _args(other._args)
{
}
basic_format_args& operator=(const basic_format_args<Context>& other)
{
_args = other._args;
return *this;
}
basic_format_arg<Context> get(size_t i) const
{
return _args[i];
}
// non-standard
size_t size()
{
return _args.size();
}
private:
etl::array_view<basic_format_arg<Context>> _args;
};
namespace private_format
{
using char_type = char;
enum class spec_align_t
{
NONE, // default
START,
END,
CENTER
};
enum class spec_sign_t
{
MINUS, // default
PLUS,
SPACE
};
struct format_spec_t
{
etl::optional<size_t> index{etl::nullopt_t()};
spec_align_t align{spec_align_t::NONE}; // '<' / '>' / '^' / none (default)
char_type fill{' '}; // fill character (' ' is default)
spec_sign_t sign{spec_sign_t::MINUS}; // '+' / '-' (default) / ' '
bool hash{false}; // #
bool zero{false}; // 0
etl::optional<size_t> width{etl::nullopt_t()}; // the arg index if width_nested_replacement == true
bool width_nested_replacement{false}; // {}
etl::optional<size_t> precision{etl::nullopt_t()}; // the arg index if
// precision_nested_replacement == true
bool precision_nested_replacement{false}; // {}
bool locale_specific{false}; // 'L'
etl::optional<char> type{etl::nullopt_t()}; // literal 's', 'b', 'd', ...
};
} // namespace private_format
template <class OutputIt, class CharT>
class basic_format_context
{
public:
using iterator = OutputIt;
using char_type = CharT;
basic_format_context(const basic_format_context& other)
: _it(other._it)
, _format_args(other._format_args)
{
}
basic_format_context(OutputIt it, basic_format_args<basic_format_context>& fmt_args)
: _it(it)
, _format_args(fmt_args)
{
}
basic_format_context& operator=(const basic_format_context&) = delete;
basic_format_arg<basic_format_context> arg(size_t id) const
{
return _format_args.get(id);
}
iterator out()
{
return _it;
}
void advance_to(iterator it)
{
_it = it;
}
private_format::format_spec_t format_spec;
private:
iterator _it;
basic_format_args<basic_format_context>& _format_args;
};
template <class OutputIt>
using format_context = basic_format_context<OutputIt, char>;
template <class OutputIt>
using format_args = basic_format_args<format_context<OutputIt>>;
template <class OutputIt>
using format_arg = basic_format_arg<format_context<OutputIt>>;
template <class OutputIt, class Context = format_context<OutputIt>, class... Args>
format_arg_store<Context, Args...> make_format_args(Args&... args)
{
return format_arg_store<Context, Args...>(args...);
}
namespace private_format
{
inline bool is_digit(const char c)
{
return c >= '0' && c <= '9';
}
inline void advance(format_parse_context& parse_ctx)
{
parse_ctx.advance_to(parse_ctx.begin() + 1);
}
inline etl::optional<size_t> parse_num(format_parse_context& parse_ctx)
{
etl::optional<size_t> result;
auto fmt_it = parse_ctx.begin();
while (fmt_it != parse_ctx.end())
{
const char c = *fmt_it;
if (is_digit(c))
{
size_t old_value = result.value_or(0);
size_t new_value = old_value * 10 + static_cast<size_t>(c - '0');
if (new_value < old_value)
{
// Overflow detected
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
result = new_value;
}
else
{
break;
}
++fmt_it;
}
if (result.has_value())
{
parse_ctx.advance_to(fmt_it);
}
return result;
}
inline etl::optional<char> parse_any_of(format_parse_context& parse_ctx, etl::string_view chars)
{
etl::optional<char> result;
auto fmt_it = parse_ctx.begin();
if (fmt_it != parse_ctx.end())
{
const char c = *fmt_it;
auto it = etl::find(chars.cbegin(), chars.cend(), c);
if (it != chars.cend())
{
result = *it;
++fmt_it;
parse_ctx.advance_to(fmt_it);
}
}
return result;
}
inline bool parse_char(format_parse_context& parse_ctx, char c)
{
auto fmt_it = parse_ctx.begin();
if (fmt_it != parse_ctx.end())
{
char value = *fmt_it;
if (value == c)
{
++fmt_it;
parse_ctx.advance_to(fmt_it);
return true;
}
}
return false;
}
inline bool parse_sequence(format_parse_context& parse_ctx, etl::string_view sequence)
{
auto fmt_it = parse_ctx.begin();
if (etl::equal(sequence.cbegin(), sequence.cend(), fmt_it))
{
fmt_it += sequence.size();
parse_ctx.advance_to(fmt_it);
return true;
}
return false;
}
inline bool is_align_character(char c)
{
return c == '<' || c == '>' || c == '^';
}
inline spec_align_t align_from_char(char c)
{
spec_align_t result = spec_align_t::NONE;
switch (c)
{
case '<': result = spec_align_t::START; break;
case '>': result = spec_align_t::END; break;
case '^': result = spec_align_t::CENTER; break;
default:
// invalid alignment specification
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
return result;
}
inline spec_align_t parse_fill_and_align(format_parse_context& parse_ctx, char_type& fill)
{
spec_align_t result = spec_align_t::NONE;
fill = ' '; // default
auto fmt_it = parse_ctx.begin();
if (fmt_it != parse_ctx.end())
{
const char c = *fmt_it;
++fmt_it;
if (is_align_character(c))
{
result = align_from_char(c);
parse_ctx.advance_to(fmt_it);
}
else if (fmt_it != parse_ctx.end())
{
const char c2 = *fmt_it;
++fmt_it;
if (is_align_character(c2))
{
result = align_from_char(c2);
ETL_ASSERT(c != '{' && c != '}',
ETL_ERROR(bad_format_string_exception)); // no { or } allowed as
// fill character
fill = c;
parse_ctx.advance_to(fmt_it);
}
}
else
{
// no align and fill spec (valid)
}
}
return result;
}
inline spec_sign_t sign_from_char(const char c)
{
spec_sign_t result = spec_sign_t::MINUS;
switch (c)
{
case '-': result = spec_sign_t::MINUS; break;
case '+': result = spec_sign_t::PLUS; break;
case ' ': result = spec_sign_t::SPACE; break;
default:
// invalid sign character c
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
return result;
}
inline bool parse_nested_replacement(format_parse_context& parse_ctx, etl::optional<size_t>& index)
{
bool start = parse_char(parse_ctx, '{');
if (start)
{
auto num = parse_num(parse_ctx);
if (num)
{
// manual mode
index = num;
parse_ctx.check_arg_id(*index);
bool end = parse_char(parse_ctx, '}');
if (end)
{
return true;
}
else
{
// bad nested replacement index spec
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
else
{
bool end = parse_char(parse_ctx, '}');
if (end)
{
index = parse_ctx.next_arg_id();
return true;
}
else
{
// bad nested replacement spec
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
}
return false;
}
template <class OutputIt>
void parse_format_spec(format_parse_context& parse_ctx, format_context<OutputIt>& fmt_context)
{
auto& format_spec = fmt_context.format_spec;
format_spec = format_spec_t(); // reset format_spec to defaults
format_spec.index = parse_num(parse_ctx); // optional
bool colon = parse_char(parse_ctx, ':');
if (colon)
{
format_spec.align = parse_fill_and_align(parse_ctx, format_spec.fill);
etl::optional<char> sign = parse_any_of(parse_ctx, "+- ");
if (sign)
{
format_spec.sign = sign_from_char(*sign);
}
format_spec.hash = parse_char(parse_ctx, '#');
format_spec.zero = parse_char(parse_ctx, '0');
format_spec.width = parse_num(parse_ctx);
if (!format_spec.width)
{
// possibly with via nested replacement
format_spec.width_nested_replacement = parse_nested_replacement(parse_ctx, format_spec.width);
}
if (parse_char(parse_ctx, '.'))
{
format_spec.precision = parse_num(parse_ctx);
if (!format_spec.precision)
{
// possibly with via nested replacement
format_spec.precision_nested_replacement = parse_nested_replacement(parse_ctx, format_spec.precision);
}
}
format_spec.locale_specific = parse_char(parse_ctx, 'L');
format_spec.type = parse_any_of(parse_ctx, "s?bBcdoxXaAeEfFgGpP");
}
}
} // namespace private_format
template <class T, class CharT = char>
struct formatter
{
using char_type = CharT;
};
template <>
struct formatter<etl::monostate>
{
format_parse_context::iterator parse(format_parse_context& parse_ctx)
{
return parse_ctx.end();
}
template <class OutputIt>
typename format_context<OutputIt>::iterator format(etl::monostate arg, format_context<OutputIt>& fmt_ctx)
{
(void)arg;
return fmt_ctx.out();
}
};
namespace private_format
{
// for 4321, return 1000
template <typename UnsignedT, typename = etl::enable_if_t<etl::is_unsigned<UnsignedT>::value>>
UnsignedT get_highest_digit(UnsignedT value, size_t base = 10)
{
ETL_ASSERT(base > 1, ETL_ERROR(bad_format_string_exception));
UnsignedT result = 1;
value /= base;
while (result <= value)
{
result *= base;
}
return result;
}
template <typename T>
T int_pow(T base, T exp)
{
T result = 1;
while (exp > 0)
{
if (exp % 2 == 1)
result *= base;
base *= base;
exp /= 2;
}
return result;
}
template <typename OutputIt, typename T>
void format_sign(OutputIt& it, T value, const format_spec_t& spec)
{
char c = '\0';
if (value < 0)
{
c = '-';
}
else
{
switch (spec.sign)
{
case spec_sign_t::MINUS:
// c already set above if negative
break;
case spec_sign_t::PLUS: c = '+'; break;
case spec_sign_t::SPACE: c = ' '; break;
default:
// invalid sign
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
if (c != '\0')
{
*it = c;
++it;
}
}
template <typename OutputIt>
void format_sequence(OutputIt& out_it, etl::string_view value)
{
auto it = value.cbegin();
while (it != value.cend())
{
*out_it = *it;
++it;
++out_it;
}
}
template <typename OutputIt, typename T>
void format_alternate_form(OutputIt& it, const format_spec_t& spec)
{
if (spec.hash && spec.type.has_value())
{
switch (spec.type.value())
{
case 'b': format_sequence(it, "0b"); break;
case 'B': format_sequence(it, "0B"); break;
case 'o': format_sequence(it, "0"); break;
case 'x': format_sequence(it, "0x"); break;
case 'X':
format_sequence(it, "0X");
break;
// default: no prefix
}
}
}
template <typename OutputIt>
void format_plain_char(OutputIt& it, char_type c)
{
*it = c;
++it;
}
template <typename OutputIt>
void format_escaped_char(OutputIt& it, char_type c)
{
switch (c)
{
case '\t': format_sequence(it, "\\t"); break;
case '\n': format_sequence(it, "\\n"); break;
case '\r': format_sequence(it, "\\r"); break;
case '"': format_sequence(it, "\\\""); break;
case '\'': format_sequence(it, "\\'"); break;
case '\\': format_sequence(it, "\\\\"); break;
default: *it = c; ++it;
}
}
template <typename OutputIt>
void fill(OutputIt& it, size_t size, char_type c)
{
while (size > 0)
{
*it = c;
++it;
--size;
}
}
template <size_t default_base = 10>
inline size_t base_from_spec(const format_spec_t& spec)
{
size_t base = default_base;
if (spec.type.has_value())
{
switch (spec.type.value())
{
case 'a':
case 'A': base = 16; break;
case 'b':
case 'B': base = 2; break;
case 'o': base = 8; break;
case 'p':
case 'P':
case 'x':
case 'X':
base = 16;
break;
// default: no prefix
}
}
return base;
}
inline bool is_uppercase(const char c)
{
return c >= 'A' && c <= 'Z';
}
template <typename OutputIt, typename T>
void format_digit_char(OutputIt& it, T value, const format_spec_t& spec)
{
if (value <= 9)
{
*it = static_cast<char_type>('0' + static_cast<typename etl::make_unsigned<T>::type>(value));
}
else
{
if (spec.type.has_value() && is_uppercase(spec.type.value()))
{
*it = static_cast<char_type>('A' + static_cast<typename etl::make_unsigned<T>::type>(value - 10));
}
else
{
*it = static_cast<char_type>('a' + static_cast<typename etl::make_unsigned<T>::type>(value - 10));
}
}
++it;
}
inline void adjust_width_from_spec(const format_spec_t& spec, size_t& width)
{
if (spec.zero && spec.width.has_value())
{
width = etl::max(width, spec.width.value());
}
}
inline void check_precision(const format_spec_t& spec)
{
if (spec.precision.has_value())
{
// precision not allowed for integer numbers
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
// used for both integers and float parts
// skip_last_zeros helps in case of printing after-the-decimal zeros which
// are redundant then
template <typename OutputIt, typename T, T default_base = 10, bool skip_last_zeros = false>
void format_plain_num(OutputIt& it, T value, const format_spec_t& spec, size_t width = 0)
{
using UnsignedT = typename etl::make_unsigned<T>::type;
UnsignedT unsigned_value = etl::absolute_unsigned(value);
size_t base = base_from_spec<default_base>(spec);
UnsignedT highest_digit = get_highest_digit<UnsignedT>(unsigned_value, base);
if (width > 0)
{
UnsignedT align_highest_digit = int_pow<UnsignedT>(base, width - 1);
highest_digit = etl::max<UnsignedT>(align_highest_digit, highest_digit);
}
// this loop is iterated at least once, to print a number
while (highest_digit > 0)
{
UnsignedT digit = unsigned_value / highest_digit;
unsigned_value %= highest_digit;
format_digit_char(it, digit, spec);
if ETL_IF_CONSTEXPR (skip_last_zeros)
{
if (unsigned_value == 0)
{
break;
}
}
highest_digit /= base;
}
}
// for integers
template <typename OutputIt, typename T, bool skip_last_zeros = false>
void format_num(OutputIt& it, T value, const format_spec_t& spec)
{
size_t width = 0;
format_sign<OutputIt, T>(it, value, spec);
format_alternate_form<OutputIt, T>(it, spec);
adjust_width_from_spec(spec, width);
check_precision(spec);
format_plain_num(it, value, spec, width);
}
#if ETL_USING_FORMAT_FLOATING_POINT
template <typename OutputIt, typename T>
void format_floating_default(OutputIt& it, T value, const format_spec_t& spec)
{
const size_t fractional_decimals = 6; // default
T integral;
T fractional = modf(value, &integral);
bool sign;
unsigned long long int fractional_int;
unsigned long long int integral_int;
if (integral < 0.0)
{
sign = true;
fractional_int = static_cast<unsigned long long int>(-fractional * pow(10., fractional_decimals));
integral_int = static_cast<unsigned long long int>(-integral);
}
else
{
sign = false;
fractional_int = static_cast<unsigned long long int>(fractional * pow(10., fractional_decimals));
integral_int = static_cast<unsigned long long int>(integral);
}
private_format::format_sign<OutputIt, int>(it, sign ? -1 : 0, spec);
private_format::format_plain_num<OutputIt, unsigned long long int>(it, integral_int, spec);
private_format::format_sequence<OutputIt>(it, ".");
private_format::format_plain_num<OutputIt, unsigned long long int, 10, true>(it, fractional_int, spec, fractional_decimals);
}
// floating point in hex notation
template <typename OutputIt, typename T>
void format_floating_a(OutputIt& it, T value, const format_spec_t& spec)
{
static const size_t fractional_decimals = 10; // default
static const size_t exponent_decimals = 1;
long long int exponent_int = 0;
bool sign;
unsigned long long int fractional_int;
unsigned long long int integral_int;
T integral;
T fractional = modf(value, &integral);
while (value >= 0x10 || value <= -0x10)
{
++exponent_int;
value /= 0x10;
fractional = modf(value, &integral);
}
while ((value > 0.0000000000001 && value < 1) || (value < -0.0000000000001 && value > -1))
{
--exponent_int;
value *= 0x10;
fractional = modf(value, &integral);
}
if (integral < 0.0)
{
sign = true;
fractional_int = static_cast<unsigned long long int>(-fractional * pow(static_cast<T>(0x10), fractional_decimals));
integral_int = static_cast<unsigned long long int>(-integral);
}
else
{
sign = false;
fractional_int = static_cast<unsigned long long int>(fractional * pow(static_cast<T>(0x10), fractional_decimals));
integral_int = static_cast<unsigned long long int>(integral);
}
private_format::format_sign<OutputIt, int>(it, sign ? -1 : 0, spec);
private_format::format_plain_char<OutputIt>(it, '0');
char hex_letter = 'x';
if (is_uppercase(spec.type.value()))
{
hex_letter = 'X';
}
private_format::format_plain_char<OutputIt>(it, hex_letter);
private_format::format_plain_num<OutputIt, unsigned long long int, 16>(it, integral_int, spec);
private_format::format_plain_char<OutputIt>(it, '.');
private_format::format_plain_num<OutputIt, unsigned long long int, 16, true>(it, fractional_int, spec, fractional_decimals);
char letter = 'p';
if (is_uppercase(spec.type.value()))
{
letter = 'P';
}
private_format::format_plain_char<OutputIt>(it, letter);
private_format::format_plain_char<OutputIt>(it, (exponent_int < 0) ? '-' : '+');
private_format::format_plain_num<OutputIt, long long int, 16>(it, exponent_int, spec, exponent_decimals);
}
template <typename OutputIt, typename T>
void format_floating_e(OutputIt& it, T value, const format_spec_t& spec)
{
static const size_t fractional_decimals = 6; // default
static const size_t exponent_decimals = 2;
long long int exponent_int = 0;
bool sign;
unsigned long long int fractional_int;
unsigned long long int integral_int;
T integral;
T fractional = modf(value, &integral);
while (value >= 10 || value <= -10)
{
++exponent_int;
value /= 10;
fractional = modf(value, &integral);
}
while ((value > 0.0000000000001 && value < 1) || (value < -0.0000000000001 && value > -1))
{
--exponent_int;
value *= 10;
fractional = modf(value, &integral);
}
if (integral < 0.0)
{
sign = true;
fractional_int = static_cast<unsigned long long int>(-fractional * pow(10., fractional_decimals));
integral_int = static_cast<unsigned long long int>(-integral);
}
else
{
sign = false;
fractional_int = static_cast<unsigned long long int>(fractional * pow(10., fractional_decimals));
integral_int = static_cast<unsigned long long int>(integral);
}
private_format::format_sign<OutputIt, int>(it, sign ? -1 : 0, spec);
private_format::format_plain_num<OutputIt, unsigned long long int>(it, integral_int, spec);
private_format::format_sequence<OutputIt>(it, ".");
private_format::format_plain_num<OutputIt, unsigned long long int>(it, fractional_int, spec, fractional_decimals);
char letter = 'e';
if (is_uppercase(spec.type.value()))
{
letter = 'E';
}
private_format::format_plain_char<OutputIt>(it, letter);
private_format::format_plain_char<OutputIt>(it, (exponent_int < 0) ? '-' : '+');
private_format::format_plain_num<OutputIt, long long int>(it, exponent_int, spec, exponent_decimals);
}
template <typename OutputIt, typename T>
void format_floating_f(OutputIt& it, T value, const format_spec_t& spec)
{
const size_t fractional_decimals = 6; // default
T integral;
T fractional = modf(value, &integral);
bool sign;
unsigned long long int fractional_int;
unsigned long long int integral_int;
if (integral < 0.0)
{
sign = true;
fractional_int = static_cast<unsigned long long int>(-fractional * pow(10., fractional_decimals));
integral_int = static_cast<unsigned long long int>(-integral);
}
else
{
sign = false;
fractional_int = static_cast<unsigned long long int>(fractional * pow(10., fractional_decimals));
integral_int = static_cast<unsigned long long int>(integral);
}
private_format::format_sign<OutputIt, int>(it, sign ? -1 : 0, spec);
private_format::format_plain_num<OutputIt, unsigned long long int>(it, integral_int, spec);
private_format::format_sequence<OutputIt>(it, ".");
private_format::format_plain_num<OutputIt, unsigned long long int>(it, fractional_int, spec, fractional_decimals);
}
#endif
class dummy_assign_to
{
public:
dummy_assign_to& operator=(char_type)
{
return *this;
}
};
template <class OutputIt>
class limit_assign_to
{
public:
limit_assign_to(OutputIt o, bool is_active)
: out(o)
, active(is_active)
{
}
limit_assign_to& operator=(char_type c)
{
if (active)
{
*out = c;
}
return *this;
}
private:
OutputIt out;
bool active;
};
template <class OutputIt>
class limit_iterator
{
public:
limit_iterator(OutputIt& it, size_t n)
: out(it)
, limit(n)
{
}
limit_iterator(const limit_iterator& other) = default;
limit_iterator(limit_iterator&& other) = default;
limit_iterator& operator=(const limit_iterator& other) = default;
limit_iterator& operator=(limit_iterator&& other) = default;
limit_assign_to<OutputIt> operator*()
{
return limit_assign_to<OutputIt>(out, (limit > 0));
}
limit_iterator& operator++()
{
if (limit > 0)
{
--limit;
++out;
}
return *this;
}
limit_iterator operator++(int)
{
limit_iterator temp = *this;
if (limit > 0)
{
--limit;
out++;
}
return temp;
}
OutputIt get()
{
return out;
}
private:
OutputIt out;
size_t limit;
};
class counter_iterator
{
public:
counter_iterator()
: count(0)
{
}
counter_iterator(const counter_iterator& other) = default;
counter_iterator& operator=(const counter_iterator& other) = default;
dummy_assign_to operator*()
{
return dummy_assign_to();
}
counter_iterator& operator++()
{
++count;
return *this;
}
counter_iterator operator++(int)
{
counter_iterator temp = *this;
count++;
return temp;
}
size_t value()
{
return count;
}
private:
size_t count;
};
#if ETL_USING_FORMAT_FLOATING_POINT
template <typename OutputIt, typename T>
void format_floating_g(OutputIt& it, T value, const format_spec_t& spec)
{
private_format::counter_iterator counter_e, counter_f;
format_floating_e(counter_e, value, spec);
format_floating_f(counter_f, value, spec);
if (counter_e.value() < counter_f.value())
{
format_floating_e(it, value, spec);
}
else
{
format_floating_f(it, value, spec);
}
}
template <typename OutputIt, typename T>
void format_floating(OutputIt& it, T value, const format_spec_t& spec)
{
if (isnan(value))
{
if (spec.type.has_value() && (is_uppercase(spec.type.value())))
{
format_sequence(it, "NAN");
}
else
{
format_sequence(it, "nan");
}
}
else if (isinf(value))
{
if (spec.type.has_value() && (is_uppercase(spec.type.value())))
{
format_sequence(it, "INF");
}
else
{
format_sequence(it, "inf");
}
}
else if (!spec.type.has_value())
{
format_floating_default(it, value, spec);
}
else
{
switch (spec.type.value())
{
case 'a':
case 'A': format_floating_a(it, value, spec); break;
case 'e':
case 'E': format_floating_e(it, value, spec); break;
case 'f':
case 'F': format_floating_f(it, value, spec); break;
case 'g':
case 'G': format_floating_g(it, value, spec); break;
default:
// unknown presentation type
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
}
#endif
template <class OutputIt>
struct format_visitor
{
using output_iterator = OutputIt;
format_visitor(format_parse_context& parse_context, format_context<OutputIt>& f_ctx)
: parse_ctx(parse_context)
, fmt_ctx(f_ctx)
{
}
// for all types in supported_format_types
template <typename T>
void operator()(T value)
{
formatter<T> f;
format_parse_context::iterator it = f.parse(parse_ctx);
parse_ctx.advance_to(it);
OutputIt fit = f.format(value, fmt_ctx);
fmt_ctx.advance_to(fit);
}
format_parse_context& parse_ctx;
format_context<OutputIt>& fmt_ctx;
};
template <class OutputIt>
void output(format_context<OutputIt>& fmt_context, char c)
{
*fmt_context.out() = c;
OutputIt tmp = fmt_context.out();
tmp++;
fmt_context.advance_to(tmp);
}
template <typename OutputIt, typename Int>
typename format_context<OutputIt>::iterator format_aligned_int(Int arg, format_context<OutputIt>& fmt_ctx)
{
size_t prefix_size = 0;
size_t suffix_size = 0;
if (fmt_ctx.format_spec.width)
{
// calculate size
private_format::counter_iterator counter;
private_format::format_num<private_format::counter_iterator, Int>(counter, arg, fmt_ctx.format_spec);
if (counter.value() < fmt_ctx.format_spec.width.value())
{
size_t pad = fmt_ctx.format_spec.width.value() - counter.value();
switch (fmt_ctx.format_spec.align)
{
case private_format::spec_align_t::START:
prefix_size = 0;
suffix_size = pad;
break;
case private_format::spec_align_t::CENTER:
prefix_size = pad / 2;
suffix_size = pad - prefix_size;
break;
case private_format::spec_align_t::NONE: // default
case private_format::spec_align_t::END:
prefix_size = pad;
suffix_size = 0;
break;
default:
// invalid alignment specification
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
}
// actual output
OutputIt it = fmt_ctx.out();
private_format::fill<OutputIt>(it, prefix_size, fmt_ctx.format_spec.fill);
private_format::format_num<OutputIt, Int>(it, arg, fmt_ctx.format_spec);
private_format::fill<OutputIt>(it, suffix_size, fmt_ctx.format_spec.fill);
return it;
}
#if ETL_USING_FORMAT_FLOATING_POINT
template <typename OutputIt, typename Float>
typename format_context<OutputIt>::iterator format_aligned_floating(Float arg, format_context<OutputIt>& fmt_ctx)
{
size_t prefix_size = 0;
size_t suffix_size = 0;
if (fmt_ctx.format_spec.width)
{
// calculate size
private_format::counter_iterator counter;
private_format::format_floating<private_format::counter_iterator, Float>(counter, arg, fmt_ctx.format_spec);
if (counter.value() < fmt_ctx.format_spec.width.value())
{
size_t pad = fmt_ctx.format_spec.width.value() - counter.value();
switch (fmt_ctx.format_spec.align)
{
case private_format::spec_align_t::START:
prefix_size = 0;
suffix_size = pad;
break;
case private_format::spec_align_t::CENTER:
prefix_size = pad / 2;
suffix_size = pad - prefix_size;
break;
case private_format::spec_align_t::NONE: // default
case private_format::spec_align_t::END:
prefix_size = pad;
suffix_size = 0;
break;
default:
// invalid alignment specification
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
}
// actual output
OutputIt it = fmt_ctx.out();
private_format::fill<OutputIt>(it, prefix_size, fmt_ctx.format_spec.fill);
private_format::format_floating<OutputIt, Float>(it, arg, fmt_ctx.format_spec);
private_format::fill<OutputIt>(it, suffix_size, fmt_ctx.format_spec.fill);
return it;
}
#endif
template <typename OutputIt>
void format_string_view(OutputIt& it, etl::string_view arg, const format_spec_t& spec)
{
bool escaped = false;
if (spec.type.has_value())
{
switch (spec.type.value())
{
case 's':
// default output
break;
case '?':
// escaped string
escaped = true;
break;
default:
// invalid type for string
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
size_t limit = etl::numeric_limits<size_t>::max();
if (spec.precision.has_value())
{
limit = spec.precision.value();
}
if (escaped)
{
format_plain_char(it, '"');
}
etl::string_view::const_iterator arg_it = arg.begin();
while (arg_it != arg.cend() && limit > 0)
{
if (escaped)
{
format_escaped_char(it, *arg_it);
}
else
{
format_plain_char(it, *arg_it);
}
++arg_it;
--limit;
}
if (escaped)
{
format_plain_char(it, '"');
}
}
template <typename OutputIt>
typename format_context<OutputIt>::iterator format_aligned_string_view(etl::string_view arg, format_context<OutputIt>& fmt_ctx)
{
size_t prefix_size = 0;
size_t suffix_size = 0;
if (fmt_ctx.format_spec.width)
{
// calculate size
private_format::counter_iterator counter;
private_format::format_string_view<private_format::counter_iterator>(counter, arg, fmt_ctx.format_spec);
if (counter.value() < fmt_ctx.format_spec.width.value())
{
size_t pad = fmt_ctx.format_spec.width.value() - counter.value();
switch (fmt_ctx.format_spec.align)
{
case private_format::spec_align_t::NONE: // default
case private_format::spec_align_t::START:
prefix_size = 0;
suffix_size = pad;
break;
case private_format::spec_align_t::CENTER:
prefix_size = pad / 2;
suffix_size = pad - prefix_size;
break;
case private_format::spec_align_t::END:
prefix_size = pad;
suffix_size = 0;
break;
default:
// invalid alignment specification
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
}
// actual output
OutputIt it = fmt_ctx.out();
private_format::fill<OutputIt>(it, prefix_size, fmt_ctx.format_spec.fill);
private_format::format_string_view<OutputIt>(it, arg, fmt_ctx.format_spec);
private_format::fill<OutputIt>(it, suffix_size, fmt_ctx.format_spec.fill);
return it;
}
template <typename OutputIt>
void format_chars(OutputIt& it, const char* arg, const format_spec_t& spec)
{
bool escaped = false;
if (spec.type.has_value())
{
switch (spec.type.value())
{
case 's':
// default output
break;
case '?':
// escaped string
escaped = true;
break;
default:
// invalid type for string
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
size_t limit = etl::numeric_limits<size_t>::max();
if (spec.precision.has_value())
{
limit = spec.precision.value();
}
if (escaped)
{
format_plain_char(it, '"');
}
const char_type* arg_it = arg;
while (*arg_it != '\0' && limit > 0)
{
if (escaped)
{
format_escaped_char(it, *arg_it);
}
else
{
format_plain_char(it, *arg_it);
}
++arg_it;
--limit;
}
if (escaped)
{
format_plain_char(it, '"');
}
}
template <typename OutputIt>
typename format_context<OutputIt>::iterator format_aligned_chars(const char* arg, format_context<OutputIt>& fmt_ctx)
{
size_t prefix_size = 0;
size_t suffix_size = 0;
if (fmt_ctx.format_spec.width)
{
// calculate size
private_format::counter_iterator counter;
private_format::format_chars<private_format::counter_iterator>(counter, arg, fmt_ctx.format_spec);
if (counter.value() < fmt_ctx.format_spec.width.value())
{
size_t pad = fmt_ctx.format_spec.width.value() - counter.value();
switch (fmt_ctx.format_spec.align)
{
case private_format::spec_align_t::NONE: // default
case private_format::spec_align_t::START:
prefix_size = 0;
suffix_size = pad;
break;
case private_format::spec_align_t::CENTER:
prefix_size = pad / 2;
suffix_size = pad - prefix_size;
break;
case private_format::spec_align_t::END:
prefix_size = pad;
suffix_size = 0;
break;
default:
// invalid alignment specification
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
}
// actual output
OutputIt it = fmt_ctx.out();
private_format::fill<OutputIt>(it, prefix_size, fmt_ctx.format_spec.fill);
private_format::format_chars<OutputIt>(it, arg, fmt_ctx.format_spec);
private_format::fill<OutputIt>(it, suffix_size, fmt_ctx.format_spec.fill);
return it;
}
inline void check_char_spec(const format_spec_t& spec)
{
if ((!spec.type.has_value() || spec.type.value() == 'c' || spec.type.value() == '?')
&& (spec.sign != spec_sign_t::MINUS || spec.zero || spec.hash || spec.precision))
{
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
template <typename OutputIt>
void format_char(OutputIt& it, char_type c, const format_spec_t& spec)
{
check_char_spec(spec);
if (spec.type.has_value())
{
switch (spec.type.value())
{
case 'c':
// default output
format_plain_char(it, c);
break;
case '?':
// escaped string
format_plain_char(it, '\'');
format_escaped_char(it, c);
format_plain_char(it, '\'');
break;
case 'b':
case 'B':
case 'd':
case 'o':
case 'x':
case 'X': private_format::format_num<OutputIt, unsigned int>(it, static_cast<unsigned int>(static_cast<unsigned char>(c)), spec); break;
default:
// invalid type for string
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
else
{
format_plain_char(it, c);
}
}
template <typename OutputIt>
typename format_context<OutputIt>::iterator format_aligned_char(char_type arg, format_context<OutputIt>& fmt_ctx)
{
size_t prefix_size = 0;
size_t suffix_size = 0;
if (fmt_ctx.format_spec.width)
{
// calculate size
private_format::counter_iterator counter;
private_format::format_char<private_format::counter_iterator>(counter, arg, fmt_ctx.format_spec);
if (counter.value() < fmt_ctx.format_spec.width.value())
{
size_t pad = fmt_ctx.format_spec.width.value() - counter.value();
switch (fmt_ctx.format_spec.align)
{
case private_format::spec_align_t::NONE: // default
if (!fmt_ctx.format_spec.type.has_value() || fmt_ctx.format_spec.type.value() == 'c' || fmt_ctx.format_spec.type.value() == '?')
{
prefix_size = 0;
suffix_size = pad;
}
else
{
prefix_size = pad;
suffix_size = 0;
}
break;
case private_format::spec_align_t::START:
prefix_size = 0;
suffix_size = pad;
break;
case private_format::spec_align_t::CENTER:
prefix_size = pad / 2;
suffix_size = pad - prefix_size;
break;
case private_format::spec_align_t::END:
prefix_size = pad;
suffix_size = 0;
break;
default:
// invalid alignment specification
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
}
// actual output
OutputIt it = fmt_ctx.out();
private_format::fill<OutputIt>(it, prefix_size, fmt_ctx.format_spec.fill);
private_format::format_char<OutputIt>(it, arg, fmt_ctx.format_spec);
private_format::fill<OutputIt>(it, suffix_size, fmt_ctx.format_spec.fill);
return it;
}
template <typename OutputIt>
void format_bool(OutputIt& it, bool value, const format_spec_t& spec)
{
if (spec.type.has_value())
{
switch (spec.type.value())
{
case 's':
// default output
format_sequence(it, value ? "true" : "false");
break;
case 'b':
case 'B':
case 'd':
case 'o':
case 'x':
case 'X': private_format::format_num<OutputIt, unsigned int>(it, static_cast<unsigned int>(static_cast<unsigned char>(value)), spec); break;
default:
// invalid type for string
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
else
{
format_sequence(it, value ? "true" : "false");
}
}
template <typename OutputIt>
typename format_context<OutputIt>::iterator format_aligned_bool(bool arg, format_context<OutputIt>& fmt_ctx)
{
size_t prefix_size = 0;
size_t suffix_size = 0;
if (fmt_ctx.format_spec.width)
{
// calculate size
private_format::counter_iterator counter;
private_format::format_bool<private_format::counter_iterator>(counter, arg, fmt_ctx.format_spec);
if (counter.value() < fmt_ctx.format_spec.width.value())
{
size_t pad = fmt_ctx.format_spec.width.value() - counter.value();
switch (fmt_ctx.format_spec.align)
{
case private_format::spec_align_t::START:
prefix_size = 0;
suffix_size = pad;
break;
case private_format::spec_align_t::CENTER:
prefix_size = pad / 2;
suffix_size = pad - prefix_size;
break;
case private_format::spec_align_t::NONE: // default
case private_format::spec_align_t::END:
prefix_size = pad;
suffix_size = 0;
break;
default:
// invalid alignment specification
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
}
// actual output
OutputIt it = fmt_ctx.out();
private_format::fill<OutputIt>(it, prefix_size, fmt_ctx.format_spec.fill);
private_format::format_bool<OutputIt>(it, arg, fmt_ctx.format_spec);
private_format::fill<OutputIt>(it, suffix_size, fmt_ctx.format_spec.fill);
return it;
}
template <typename OutputIt>
void format_pointer(OutputIt& it, const void* value, const format_spec_t& spec)
{
if (spec.type.has_value())
{
switch (spec.type.value())
{
case 'p':
case 'P':
format_sequence(it, spec.type.value() == 'p' ? "0x" : "0X");
format_plain_num<OutputIt, uintptr_t>(it, reinterpret_cast<uintptr_t>(value), spec);
break;
default:
// invalid type for string
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
else
{
format_sequence(it, "0x");
format_plain_num<OutputIt, uintptr_t>(it, reinterpret_cast<uintptr_t>(value), spec);
}
}
template <typename OutputIt>
typename format_context<OutputIt>::iterator format_aligned_pointer(const void* arg, format_context<OutputIt>& fmt_ctx)
{
size_t prefix_size = 0;
size_t suffix_size = 0;
if (fmt_ctx.format_spec.width)
{
// calculate size
private_format::counter_iterator counter;
private_format::format_pointer<private_format::counter_iterator>(counter, arg, fmt_ctx.format_spec);
if (counter.value() < fmt_ctx.format_spec.width.value())
{
size_t pad = fmt_ctx.format_spec.width.value() - counter.value();
switch (fmt_ctx.format_spec.align)
{
case private_format::spec_align_t::START:
prefix_size = 0;
suffix_size = pad;
break;
case private_format::spec_align_t::CENTER:
prefix_size = pad / 2;
suffix_size = pad - prefix_size;
break;
case private_format::spec_align_t::NONE: // default
case private_format::spec_align_t::END:
prefix_size = pad;
suffix_size = 0;
break;
default:
// invalid alignment specification
ETL_ASSERT_FAIL(ETL_ERROR(bad_format_string_exception));
}
}
}
// actual output
OutputIt it = fmt_ctx.out();
private_format::fill<OutputIt>(it, prefix_size, fmt_ctx.format_spec.fill);
private_format::format_pointer<OutputIt>(it, arg, fmt_ctx.format_spec);
private_format::fill<OutputIt>(it, suffix_size, fmt_ctx.format_spec.fill);
return it;
}
} // namespace private_format
template <>
struct formatter<int>
{
format_parse_context::iterator parse(format_parse_context& parse_ctx)
{
// unified parsing is done already in vformat_to()
return parse_ctx.begin();
}
template <class OutputIt>
typename format_context<OutputIt>::iterator format(int arg, format_context<OutputIt>& fmt_ctx)
{
if (fmt_ctx.format_spec.type.has_value() && fmt_ctx.format_spec.type.value() == 'c')
{
return private_format::format_aligned_char<OutputIt>(static_cast<private_format::char_type>(arg), fmt_ctx);
}
return private_format::format_aligned_int<OutputIt, int>(arg, fmt_ctx);
}
};
template <>
struct formatter<unsigned int>
{
format_parse_context::iterator parse(format_parse_context& parse_ctx)
{
// unified parsing is done already in vformat_to()
return parse_ctx.begin();
}
template <class OutputIt>
typename format_context<OutputIt>::iterator format(unsigned int arg, format_context<OutputIt>& fmt_ctx)
{
if (fmt_ctx.format_spec.type.has_value() && fmt_ctx.format_spec.type.value() == 'c')
{
return private_format::format_aligned_char<OutputIt>(static_cast<private_format::char_type>(arg), fmt_ctx);
}
return private_format::format_aligned_int<OutputIt, unsigned int>(arg, fmt_ctx);
}
};
template <>
struct formatter<long long int>
{
format_parse_context::iterator parse(format_parse_context& parse_ctx)
{
// unified parsing is done already in vformat_to()
return parse_ctx.begin();
}
template <class OutputIt>
typename format_context<OutputIt>::iterator format(long long int arg, format_context<OutputIt>& fmt_ctx)
{
if (fmt_ctx.format_spec.type.has_value() && fmt_ctx.format_spec.type.value() == 'c')
{
return private_format::format_aligned_char<OutputIt>(static_cast<private_format::char_type>(arg), fmt_ctx);
}
return private_format::format_aligned_int<OutputIt, long long int>(arg, fmt_ctx);
}
};
template <>
struct formatter<unsigned long long int>
{
format_parse_context::iterator parse(format_parse_context& parse_ctx)
{
// unified parsing is done already in vformat_to()
return parse_ctx.begin();
}
template <class OutputIt>
typename format_context<OutputIt>::iterator format(unsigned long long int arg, format_context<OutputIt>& fmt_ctx)
{
if (fmt_ctx.format_spec.type.has_value() && fmt_ctx.format_spec.type.value() == 'c')
{
return private_format::format_aligned_char<OutputIt>(static_cast<private_format::char_type>(arg), fmt_ctx);
}
return private_format::format_aligned_int<OutputIt, unsigned long long int>(arg, fmt_ctx);
}
};
template <>
struct formatter<char>
{
format_parse_context::iterator parse(format_parse_context& parse_ctx)
{
// unified parsing is done already in vformat_to()
return parse_ctx.begin();
}
template <class OutputIt>
typename format_context<OutputIt>::iterator format(private_format::char_type arg, format_context<OutputIt>& fmt_ctx)
{
return private_format::format_aligned_char<OutputIt>(arg, fmt_ctx);
}
};
#if ETL_USING_FORMAT_FLOATING_POINT
template <>
struct formatter<float>
{
format_parse_context::iterator parse(format_parse_context& parse_ctx)
{
// unified parsing is done already in vformat_to()
return parse_ctx.begin();
}
template <class OutputIt>
typename format_context<OutputIt>::iterator format(float arg, format_context<OutputIt>& fmt_ctx)
{
return private_format::format_aligned_floating<OutputIt, float>(arg, fmt_ctx);
}
};
template <>
struct formatter<double>
{
format_parse_context::iterator parse(format_parse_context& parse_ctx)
{
// unified parsing is done already in vformat_to()
return parse_ctx.begin();
}
template <class OutputIt>
typename format_context<OutputIt>::iterator format(double arg, format_context<OutputIt>& fmt_ctx)
{
return private_format::format_aligned_floating<OutputIt, double>(arg, fmt_ctx);
}
};
template <>
struct formatter<long double>
{
format_parse_context::iterator parse(format_parse_context& parse_ctx)
{
// unified parsing is done already in vformat_to()
return parse_ctx.begin();
}
template <class OutputIt>
typename format_context<OutputIt>::iterator format(long double arg, format_context<OutputIt>& fmt_ctx)
{
return private_format::format_aligned_floating<OutputIt, long double>(arg, fmt_ctx);
}
};
#endif
template <>
struct formatter<etl::string_view>
{
format_parse_context::iterator parse(format_parse_context& parse_ctx)
{
// unified parsing is done already in vformat_to()
return parse_ctx.begin();
}
template <class OutputIt>
typename format_context<OutputIt>::iterator format(etl::string_view arg, format_context<OutputIt>& fmt_ctx)
{
return private_format::format_aligned_string_view<OutputIt>(arg, fmt_ctx);
}
};
// string formatter
template <>
struct formatter<const char*>
{
format_parse_context::iterator parse(format_parse_context& parse_ctx)
{
// unified parsing is done already in vformat_to()
return parse_ctx.begin();
}
template <class OutputIt>
typename format_context<OutputIt>::iterator format(const char* arg, format_context<OutputIt>& fmt_ctx)
{
return private_format::format_aligned_chars<OutputIt>(arg, fmt_ctx);
}
};
template <>
struct formatter<bool>
{
format_parse_context::iterator parse(format_parse_context& parse_ctx)
{
// unified parsing is done already in vformat_to()
return parse_ctx.begin();
}
template <class OutputIt>
typename format_context<OutputIt>::iterator format(bool arg, format_context<OutputIt>& fmt_ctx)
{
return private_format::format_aligned_bool<OutputIt>(arg, fmt_ctx);
}
};
template <>
struct formatter<const void*>
{
format_parse_context::iterator parse(format_parse_context& parse_ctx)
{
// unified parsing is done already in vformat_to()
return parse_ctx.begin();
}
template <class OutputIt>
typename format_context<OutputIt>::iterator format(const void* arg, format_context<OutputIt>& fmt_ctx)
{
return private_format::format_aligned_pointer<OutputIt>(arg, fmt_ctx);
}
};
template <class OutputIt>
OutputIt vformat_to(OutputIt out, etl::string_view fmt, format_args<OutputIt> args)
{
format_parse_context parse_context(fmt, args.size());
format_context<OutputIt> fmt_context(out, args);
private_format::format_visitor<OutputIt> v(parse_context, fmt_context);
while (parse_context.begin() != parse_context.end())
{
const char c = *parse_context.begin();
private_format::advance(parse_context);
if (c == '{')
{
if (*parse_context.begin() == '{')
{
// escape sequence for literal '{'
private_format::output<OutputIt>(fmt_context, c);
private_format::advance(parse_context);
}
else
{
private_format::parse_format_spec<OutputIt>(parse_context, fmt_context);
etl::optional<size_t> index = fmt_context.format_spec.index;
if (index.has_value())
{
parse_context.check_arg_id(*index);
}
else
{
index = parse_context.next_arg_id();
}
format_arg<OutputIt> arg = args.get(*index);
arg.template visit<void>(v);
ETL_ASSERT(*parse_context.begin() == '}', ETL_ERROR(bad_format_string_exception) /*"Closing brace missing"*/);
if (parse_context.begin() != parse_context.end())
{
private_format::advance(parse_context);
}
}
}
else if (c == '}') // only matches here if } without { is found
{
ETL_ASSERT(*parse_context.begin() == '}', ETL_ERROR(bad_format_string_exception) /*"2nd closing brace missing on escaped closing brace"*/);
// escape sequence for literal '}'
private_format::output<OutputIt>(fmt_context, c);
private_format::advance(parse_context);
}
else
{
private_format::output<OutputIt>(fmt_context, c);
}
}
return fmt_context.out();
}
template <typename OutputIt, typename = etl::enable_if_t< !etl::is_base_of< etl::remove_reference<etl::istring>::type, OutputIt>::value>,
class... Args>
OutputIt format_to(OutputIt out, format_string<Args...> fmt, Args&&... args)
{
auto the_args{make_format_args<OutputIt>(args...)};
return vformat_to(etl::move(out), fmt.get(), format_args<OutputIt>(the_args));
}
template <typename OutputIt, class WrapperIt = private_format::limit_iterator<OutputIt>, class... Args>
OutputIt format_to_n(OutputIt out, size_t n, format_string<Args...> fmt, Args&&... args)
{
auto the_args{make_format_args<WrapperIt>(args...)};
return vformat_to(WrapperIt(out, n), fmt.get(), format_args<WrapperIt>(the_args)).get();
}
// non std in the following, specific to etl
template <class... Args>
etl::istring::iterator format_to(etl::istring& out, format_string<Args...> fmt, Args&&... args)
{
etl::istring::iterator result = format_to_n(out.begin(), out.max_size(), fmt, etl::forward<Args>(args)...);
out.uninitialized_resize(static_cast<size_t>(result - out.begin()));
return result;
}
template <class... Args>
size_t formatted_size(format_string<Args...> fmt, Args&&... args)
{
private_format::counter_iterator it;
it = format_to(it, fmt, etl::forward<Args>(args)...);
return it.value();
}
} // namespace etl
#endif
#endif