flang/runtime/format.cpp

   1 //===-- runtime/format.cpp --------------------------------------*- C++ -*-===//
   2 //
   3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
   4 // See https://llvm.org/LICENSE.txt for license information.
   5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
   6 //
   7 //===----------------------------------------------------------------------===//
   8
   9 #include "format-implementation.h"
  10
  11 namespace Fortran::runtime::io {
  12
  13 DataEdit DefaultFormatControlCallbacks::GetNextDataEdit(int) {
  14   Crash("DefaultFormatControlCallbacks::GetNextDataEdit() called for "
  15         "non-formatted I/O statement");
  16   return {};
  17 }
  18 bool DefaultFormatControlCallbacks::Emit(
  19     const char *, std::size_t, std::size_t) {
  20   Crash("DefaultFormatControlCallbacks::Emit(char) called for non-output I/O "
  21         "statement");
  22   return {};
  23 }
  24 bool DefaultFormatControlCallbacks::Emit(const char16_t *, std::size_t) {
  25   Crash("DefaultFormatControlCallbacks::Emit(char16_t) called for non-output "
  26         "I/O statement");
  27   return {};
  28 }
  29 bool DefaultFormatControlCallbacks::Emit(const char32_t *, std::size_t) {
  30   Crash("DefaultFormatControlCallbacks::Emit(char32_t) called for non-output "
  31         "I/O statement");
  32   return {};
  33 }
  34 std::optional<char32_t> DefaultFormatControlCallbacks::GetCurrentChar() {
  35   Crash("DefaultFormatControlCallbacks::GetCurrentChar() called for non-input "
  36         "I/O "
  37         "statement");
  38   return {};
  39 }
  40 bool DefaultFormatControlCallbacks::AdvanceRecord(int) {
  41   Crash("DefaultFormatControlCallbacks::AdvanceRecord() called unexpectedly");
  42   return {};
  43 }
  44 void DefaultFormatControlCallbacks::BackspaceRecord() {
  45   Crash("DefaultFormatControlCallbacks::BackspaceRecord() called unexpectedly");
  46 }
  47 void DefaultFormatControlCallbacks::HandleAbsolutePosition(std::int64_t) {
  48   Crash("DefaultFormatControlCallbacks::HandleAbsolutePosition() called for "
  49         "non-formatted I/O statement");
  50 }
  51 void DefaultFormatControlCallbacks::HandleRelativePosition(std::int64_t) {
  52   Crash("DefaultFormatControlCallbacks::HandleRelativePosition() called for "
  53         "non-formatted I/O statement");
  54 }
  55
  56 template class FormatControl<
  57     InternalFormattedIoStatementState<Direction::Output>>;
  58 template class FormatControl<
  59     InternalFormattedIoStatementState<Direction::Input>>;
  60 template class FormatControl<
  61     ExternalFormattedIoStatementState<Direction::Output>>;
  62 template class FormatControl<
  63     ExternalFormattedIoStatementState<Direction::Input>>;
  64 } // namespace Fortran::runtime::io