c2bdc144c5
Original-commit: flang-compiler/f18@9c863a572b Reviewed-on: https://github.com/flang-compiler/f18/pull/926 Tree-same-pre-rewrite: false
66 lines
2.9 KiB
C++
66 lines
2.9 KiB
C++
//===-- lib/common/Fortran-features.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_COMMON_FORTRAN_FEATURES_H_
|
|
#define FORTRAN_COMMON_FORTRAN_FEATURES_H_
|
|
|
|
#include "Fortran.h"
|
|
#include "enum-set.h"
|
|
#include "idioms.h"
|
|
|
|
namespace Fortran::common {
|
|
|
|
ENUM_CLASS(LanguageFeature, BackslashEscapes, OldDebugLines,
|
|
FixedFormContinuationWithColumn1Ampersand, LogicalAbbreviations,
|
|
XOROperator, PunctuationInNames, OptionalFreeFormSpace, BOZExtensions,
|
|
EmptyStatement, AlternativeNE, ExecutionPartNamelist, DECStructures,
|
|
DoubleComplex, Byte, StarKind, QuadPrecision, SlashInitialization,
|
|
TripletInArrayConstructor, MissingColons, SignedComplexLiteral,
|
|
OldStyleParameter, ComplexConstructor, PercentLOC, SignedPrimary, FileName,
|
|
Convert, Dispose, IOListLeadingComma, AbbreviatedEditDescriptor,
|
|
ProgramParentheses, PercentRefAndVal, OmitFunctionDummies, CrayPointer,
|
|
Hollerith, ArithmeticIF, Assign, AssignedGOTO, Pause, OpenMP,
|
|
CruftAfterAmpersand, ClassicCComments, AdditionalFormats, BigIntLiterals,
|
|
RealDoControls, EquivalenceNumericWithCharacter, AdditionalIntrinsics,
|
|
AnonymousParents, OldLabelDoEndStatements, LogicalIntegerAssignment,
|
|
EmptySourceFile, ProgramReturn)
|
|
|
|
using LanguageFeatures = EnumSet<LanguageFeature, LanguageFeature_enumSize>;
|
|
|
|
class LanguageFeatureControl {
|
|
public:
|
|
LanguageFeatureControl() {
|
|
// These features must be explicitly enabled by command line options.
|
|
disable_.set(LanguageFeature::OldDebugLines);
|
|
disable_.set(LanguageFeature::OpenMP);
|
|
// These features, if enabled, conflict with valid standard usage,
|
|
// so there are disabled here by default.
|
|
disable_.set(LanguageFeature::BackslashEscapes);
|
|
disable_.set(LanguageFeature::LogicalAbbreviations);
|
|
disable_.set(LanguageFeature::XOROperator);
|
|
}
|
|
LanguageFeatureControl(const LanguageFeatureControl &) = default;
|
|
void Enable(LanguageFeature f, bool yes = true) { disable_.set(f, !yes); }
|
|
void EnableWarning(LanguageFeature f, bool yes = true) { warn_.set(f, yes); }
|
|
void WarnOnAllNonstandard(bool yes = true) { warnAll_ = yes; }
|
|
bool IsEnabled(LanguageFeature f) const { return !disable_.test(f); }
|
|
bool ShouldWarn(LanguageFeature f) const {
|
|
return (warnAll_ && f != LanguageFeature::OpenMP) || warn_.test(f);
|
|
}
|
|
// Return all spellings of operators names, depending on features enabled
|
|
std::vector<const char *> GetNames(LogicalOperator) const;
|
|
std::vector<const char *> GetNames(RelationalOperator) const;
|
|
|
|
private:
|
|
LanguageFeatures disable_;
|
|
LanguageFeatures warn_;
|
|
bool warnAll_{false};
|
|
};
|
|
}
|
|
#endif // FORTRAN_COMMON_FORTRAN_FEATURES_H_
|