fast_float/tests/fortran.cpp

/*
 * Exercise the Fortran conversion option.
 */
#include <cstdlib>
#include <iostream>
#include <vector>

#define FASTFLOAT_ALLOWS_LEADING_PLUS

#include "fast_float/fast_float.h"

int main ()
{
  const std::vector<double> expected{ 10000, 1000, 100,  10, 1,    .1, .01, .001, .0001 };
  const std::vector<std::string> fmt1{ "1+4", "1+3", "1+2", "1+1", "1+0", "1-1", "1-2",
    "1-3", "1-4" };
  const std::vector<std::string> fmt2{ "1d+4", "1d+3", "1d+2", "1d+1", "1d+0", "1d-1",
    "1d-2", "1d-3", "1d-4" };
  const std::vector<std::string> fmt3{ "+1+4", "+1+3", "+1+2", "+1+1", "+1+0", "+1-1",
    "+1-2", "+1-3", "+1-4" };
  const fast_float::parse_options options{ fast_float::chars_format::fortran };

  for ( auto const& f : fmt1 ) {
    auto d{ std::distance( &fmt1[0], &f ) };
    double result;
    auto answer{ fast_float::from_chars_advanced( f.data(), f.data()+f.size(), result,
                                                  options ) };
    if ( answer.ec != std::errc() || result != expected[std::size_t(d)] ) {
      std::cerr << "parsing failure on " << f << std::endl;
      return EXIT_FAILURE;
    }
  }

  for ( auto const& f : fmt2 ) {
    auto d{ std::distance( &fmt2[0], &f ) };
    double result;
    auto answer{ fast_float::from_chars_advanced( f.data(), f.data()+f.size(), result,
                                                  options ) };
    if ( answer.ec != std::errc() || result != expected[std::size_t(d)] ) {
      std::cerr << "parsing failure on " << f << std::endl;
      return EXIT_FAILURE;
    }
  }

  for ( auto const& f : fmt3 ) {
    auto d{ std::distance( &fmt3[0], &f ) };
    double result;
    auto answer{ fast_float::from_chars_advanced( f.data(), f.data()+f.size(), result,
                                                  options ) };
    if ( answer.ec != std::errc() || result != expected[std::size_t(d)] ) {
      std::cerr << "parsing failure on " << f << std::endl;
      return EXIT_FAILURE;
    }
  }

  return EXIT_SUCCESS;
}