2020-02-14 06:41:56 +08:00
|
|
|
//===-- runtime/edit-output.h -----------------------------------*- C++ -*-===//
|
|
|
|
//
|
|
|
|
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
|
|
|
// See https://llvm.org/LICENSE.txt for license information.
|
|
|
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
|
|
//
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
|
|
|
|
#ifndef FORTRAN_RUNTIME_EDIT_OUTPUT_H_
|
|
|
|
#define FORTRAN_RUNTIME_EDIT_OUTPUT_H_
|
|
|
|
|
|
|
|
// Output data editing templates implementing the FORMAT data editing
|
|
|
|
// descriptors E, EN, ES, EX, D, F, and G for REAL data (and COMPLEX
|
|
|
|
// components, I and G for INTEGER, and B/O/Z for both.
|
|
|
|
// See subclauses in 13.7.2.3 of Fortran 2018 for the
|
|
|
|
// detailed specifications of these descriptors.
|
|
|
|
// List-directed output (13.10.4) for numeric types is also done here.
|
|
|
|
// Drives the same fast binary-to-decimal formatting templates used
|
|
|
|
// in the f18 front-end.
|
|
|
|
|
|
|
|
#include "format.h"
|
|
|
|
#include "io-stmt.h"
|
|
|
|
#include "flang/Common/uint128.h"
|
|
|
|
#include "flang/Decimal/decimal.h"
|
|
|
|
|
|
|
|
namespace Fortran::runtime::io {
|
|
|
|
|
|
|
|
// I, B, O, Z, and G output editing for INTEGER.
|
|
|
|
// The DataEdit reference is const here (and elsewhere in this header) so that
|
|
|
|
// one edit descriptor with a repeat factor may safely serve to edit
|
|
|
|
// multiple elements of an array.
|
2021-10-12 06:41:14 +08:00
|
|
|
template <int KIND>
|
|
|
|
bool EditIntegerOutput(
|
|
|
|
IoStatementState &, const DataEdit &, common::HostSignedIntType<8 * KIND>);
|
2020-02-14 06:41:56 +08:00
|
|
|
|
|
|
|
// Encapsulates the state of a REAL output conversion.
|
|
|
|
class RealOutputEditingBase {
|
|
|
|
protected:
|
|
|
|
explicit RealOutputEditingBase(IoStatementState &io) : io_{io} {}
|
|
|
|
|
2020-06-20 04:32:26 +08:00
|
|
|
static bool IsInfOrNaN(const decimal::ConversionToDecimalResult &res) {
|
|
|
|
const char *p{res.str};
|
|
|
|
if (!p || res.length < 1) {
|
2020-02-14 06:41:56 +08:00
|
|
|
return false;
|
|
|
|
}
|
|
|
|
if (*p == '-' || *p == '+') {
|
2020-06-20 04:32:26 +08:00
|
|
|
if (res.length == 1) {
|
|
|
|
return false;
|
|
|
|
}
|
2020-02-14 06:41:56 +08:00
|
|
|
++p;
|
|
|
|
}
|
2020-06-20 04:32:26 +08:00
|
|
|
return *p < '0' || *p > '9';
|
2020-02-14 06:41:56 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
const char *FormatExponent(int, const DataEdit &edit, int &length);
|
|
|
|
bool EmitPrefix(const DataEdit &, std::size_t length, std::size_t width);
|
|
|
|
bool EmitSuffix(const DataEdit &);
|
|
|
|
|
|
|
|
IoStatementState &io_;
|
2020-03-29 12:00:16 +08:00
|
|
|
int trailingBlanks_{0}; // created when Gw editing maps to Fw
|
2020-02-14 06:41:56 +08:00
|
|
|
char exponent_[16];
|
|
|
|
};
|
|
|
|
|
2020-10-03 03:39:05 +08:00
|
|
|
template <int KIND> class RealOutputEditing : public RealOutputEditingBase {
|
2020-02-14 06:41:56 +08:00
|
|
|
public:
|
2020-10-03 03:39:05 +08:00
|
|
|
static constexpr int binaryPrecision{common::PrecisionOfRealKind(KIND)};
|
|
|
|
using BinaryFloatingPoint =
|
|
|
|
decimal::BinaryFloatingPointNumber<binaryPrecision>;
|
2020-03-29 12:00:16 +08:00
|
|
|
template <typename A>
|
2020-02-14 06:41:56 +08:00
|
|
|
RealOutputEditing(IoStatementState &io, A x)
|
2020-03-29 12:00:16 +08:00
|
|
|
: RealOutputEditingBase{io}, x_{x} {}
|
2020-02-14 06:41:56 +08:00
|
|
|
bool Edit(const DataEdit &);
|
|
|
|
|
|
|
|
private:
|
|
|
|
// The DataEdit arguments here are const references or copies so that
|
|
|
|
// the original DataEdit can safely serve multiple array elements when
|
|
|
|
// it has a repeat count.
|
|
|
|
bool EditEorDOutput(const DataEdit &);
|
|
|
|
bool EditFOutput(const DataEdit &);
|
2020-03-29 12:00:16 +08:00
|
|
|
DataEdit EditForGOutput(DataEdit); // returns an E or F edit
|
2020-02-14 06:41:56 +08:00
|
|
|
bool EditEXOutput(const DataEdit &);
|
|
|
|
bool EditListDirectedOutput(const DataEdit &);
|
|
|
|
|
|
|
|
bool IsZero() const { return x_.IsZero(); }
|
|
|
|
|
|
|
|
decimal::ConversionToDecimalResult Convert(
|
2021-11-11 06:02:30 +08:00
|
|
|
int significantDigits, enum decimal::FortranRounding, int flags = 0);
|
2020-02-14 06:41:56 +08:00
|
|
|
|
|
|
|
BinaryFloatingPoint x_;
|
|
|
|
char buffer_[BinaryFloatingPoint::maxDecimalConversionDigits +
|
|
|
|
EXTRA_DECIMAL_CONVERSION_SPACE];
|
|
|
|
};
|
|
|
|
|
|
|
|
bool ListDirectedLogicalOutput(
|
|
|
|
IoStatementState &, ListDirectedStatementState<Direction::Output> &, bool);
|
|
|
|
bool EditLogicalOutput(IoStatementState &, const DataEdit &, bool);
|
|
|
|
bool ListDirectedDefaultCharacterOutput(IoStatementState &,
|
|
|
|
ListDirectedStatementState<Direction::Output> &, const char *, std::size_t);
|
|
|
|
bool EditDefaultCharacterOutput(
|
|
|
|
IoStatementState &, const DataEdit &, const char *, std::size_t);
|
|
|
|
|
2021-10-12 06:41:14 +08:00
|
|
|
extern template bool EditIntegerOutput<1>(
|
|
|
|
IoStatementState &, const DataEdit &, std::int8_t);
|
|
|
|
extern template bool EditIntegerOutput<2>(
|
|
|
|
IoStatementState &, const DataEdit &, std::int16_t);
|
|
|
|
extern template bool EditIntegerOutput<4>(
|
|
|
|
IoStatementState &, const DataEdit &, std::int32_t);
|
|
|
|
extern template bool EditIntegerOutput<8>(
|
2020-02-14 06:41:56 +08:00
|
|
|
IoStatementState &, const DataEdit &, std::int64_t);
|
2021-10-12 06:41:14 +08:00
|
|
|
extern template bool EditIntegerOutput<16>(
|
|
|
|
IoStatementState &, const DataEdit &, common::int128_t);
|
2020-02-14 06:41:56 +08:00
|
|
|
|
2020-10-03 03:39:05 +08:00
|
|
|
extern template class RealOutputEditing<2>;
|
|
|
|
extern template class RealOutputEditing<3>;
|
|
|
|
extern template class RealOutputEditing<4>;
|
2020-02-14 06:41:56 +08:00
|
|
|
extern template class RealOutputEditing<8>;
|
2020-10-03 03:39:05 +08:00
|
|
|
extern template class RealOutputEditing<10>;
|
|
|
|
// TODO: double/double
|
|
|
|
extern template class RealOutputEditing<16>;
|
2020-02-14 06:41:56 +08:00
|
|
|
|
2020-03-29 12:00:16 +08:00
|
|
|
} // namespace Fortran::runtime::io
|
|
|
|
#endif // FORTRAN_RUNTIME_EDIT_OUTPUT_H_
|