70b5a1d050
Summary: Expands on the previous support to enable formatted output, characters, and checking basic iostat. We intentionally do not handle cases where the descriptor is non-null as this is a non-trivial class that cannot easily be shepherded across the wire.
43 lines
1.5 KiB
C++
43 lines
1.5 KiB
C++
//===-- lib/runtime/io-api-gpu.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 FLANG_RT_RUNTIME_IO_API_GPU_H_
|
|
#define FLANG_RT_RUNTIME_IO_API_GPU_H_
|
|
|
|
#include <cstdint>
|
|
|
|
namespace Fortran::runtime::io {
|
|
// We reserve the RPC opcodes with 'f' in the MSB for Fortran usage.
|
|
constexpr std::uint32_t MakeOpcode(std::uint32_t base) {
|
|
return ('f' << 24) | base;
|
|
}
|
|
|
|
// Opcodes shared between the client and server for each function we support.
|
|
enum RPCOpcodes : std::uint32_t {
|
|
BeginExternalListOutput_Opcode = MakeOpcode(0),
|
|
BeginExternalFormattedOutput_Opcode = MakeOpcode(1),
|
|
EnableHandlers_Opcode = MakeOpcode(2),
|
|
EndIoStatement_Opcode = MakeOpcode(3),
|
|
OutputInteger8_Opcode = MakeOpcode(4),
|
|
OutputInteger16_Opcode = MakeOpcode(5),
|
|
OutputInteger32_Opcode = MakeOpcode(6),
|
|
OutputInteger64_Opcode = MakeOpcode(7),
|
|
OutputInteger128_Opcode = MakeOpcode(8),
|
|
OutputReal32_Opcode = MakeOpcode(9),
|
|
OutputReal64_Opcode = MakeOpcode(10),
|
|
OutputComplex32_Opcode = MakeOpcode(11),
|
|
OutputComplex64_Opcode = MakeOpcode(12),
|
|
OutputAscii_Opcode = MakeOpcode(13),
|
|
OutputCharacter_Opcode = MakeOpcode(14),
|
|
OutputLogical_Opcode = MakeOpcode(15),
|
|
};
|
|
|
|
} // namespace Fortran::runtime::io
|
|
|
|
#endif // FLANG_RT_RUNTIME_IO_API_GPU_H_
|