1 | //===-- runtime/environment.h -----------------------------------*- 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 | #ifndef FORTRAN_RUNTIME_ENVIRONMENT_H_ |
10 | #define FORTRAN_RUNTIME_ENVIRONMENT_H_ |
11 | |
12 | #include "flang/Decimal/decimal.h" |
13 | #include <optional> |
14 | |
15 | struct EnvironmentDefaultList; |
16 | |
17 | namespace Fortran::runtime { |
18 | |
19 | class Terminator; |
20 | |
21 | #if FLANG_BIG_ENDIAN |
22 | constexpr bool isHostLittleEndian{false}; |
23 | #elif FLANG_LITTLE_ENDIAN |
24 | constexpr bool isHostLittleEndian{true}; |
25 | #else |
26 | #error host endianness is not known |
27 | #endif |
28 | |
29 | // External unformatted I/O data conversions |
30 | enum class Convert { Unknown, Native, LittleEndian, BigEndian, Swap }; |
31 | |
32 | std::optional<Convert> GetConvertFromString(const char *, std::size_t); |
33 | |
34 | struct ExecutionEnvironment { |
35 | constexpr ExecutionEnvironment(){}; |
36 | void Configure(int argc, const char *argv[], const char *envp[], |
37 | const EnvironmentDefaultList *envDefaults); |
38 | const char *GetEnv( |
39 | const char *name, std::size_t name_length, const Terminator &terminator); |
40 | |
41 | int argc{0}; |
42 | const char **argv{nullptr}; |
43 | char **envp{nullptr}; |
44 | |
45 | int listDirectedOutputLineLengthLimit{79}; // FORT_FMT_RECL |
46 | enum decimal::FortranRounding defaultOutputRoundingMode{ |
47 | decimal::FortranRounding::RoundNearest}; // RP(==PN) |
48 | Convert conversion{Convert::Unknown}; // FORT_CONVERT |
49 | bool noStopMessage{false}; // NO_STOP_MESSAGE=1 inhibits "Fortran STOP" |
50 | bool defaultUTF8{false}; // DEFAULT_UTF8 |
51 | }; |
52 | |
53 | extern ExecutionEnvironment executionEnvironment; |
54 | } // namespace Fortran::runtime |
55 | |
56 | #endif // FORTRAN_RUNTIME_ENVIRONMENT_H_ |
57 | |