b83a4450c2
This patch adds support for the `-cpp` and `-nocpp` flags. The implemented semantics match f18 (i.e. the "throwaway" driver), but are different to gfortran. In Flang the preprocessor is always run. Instead, `-cpp/-nocpp` are used to control whether predefined and command-line preprocessor macro definitions are enabled or not. In practice this is sufficient to model gfortran`s `-cpp/-nocpp`. In the absence of `-cpp/-nocpp`, the driver will use the extension of the input file to decide whether to include the standard macro predefinitions. gfortran's documentation [1] was used to decide which file extension to use for this. The logic mentioned above was added in FrontendAction::BeginSourceFile. That's relatively late in the driver set-up, but this roughly where the name of the input file becomes available. The logic for deciding between fixed and free form works in a similar way and was also moved to FrontendAction::BeginSourceFile for consistency (and to reduce code-duplication). The `-cpp/-nocpp` flags are respected also when the input is read from stdin. This is different to: * gfortran (behaves as if `-cpp` was used) * f18 (behaves as if `-nocpp` was used) Starting with this patch, file extensions are significant and some test files had to be renamed to reflect that. Where possible, preprocessor tests were updated so that they can be shared between `f18` and `flang-new`. This was implemented on top of adding new test for `-cpp/-nocpp`. [1] https://gcc.gnu.org/onlinedocs/gcc/Overall-Options.html Reviewed By: kiranchandramohan Differential Revision: https://reviews.llvm.org/D99292
69 lines
2.6 KiB
C++
69 lines
2.6 KiB
C++
//===- FrontendOptions.cpp ------------------------------------------------===//
|
|
//
|
|
// 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
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "flang/Frontend/FrontendOptions.h"
|
|
#include "flang/Evaluate/expression.h"
|
|
|
|
using namespace Fortran::frontend;
|
|
|
|
bool Fortran::frontend::isFixedFormSuffix(llvm::StringRef suffix) {
|
|
// Note: Keep this list in-sync with flang/test/lit.cfg.py
|
|
return suffix == "f77" || suffix == "f" || suffix == "F" || suffix == "ff" ||
|
|
suffix == "for" || suffix == "FOR" || suffix == "fpp" || suffix == "FPP";
|
|
}
|
|
|
|
bool Fortran::frontend::isFreeFormSuffix(llvm::StringRef suffix) {
|
|
// Note: Keep this list in-sync with flang/test/lit.cfg.py
|
|
// TODO: Add Cuda Fortan files (i.e. `*.cuf` and `*.CUF`).
|
|
return suffix == "f90" || suffix == "F90" || suffix == "ff90" ||
|
|
suffix == "f95" || suffix == "F95" || suffix == "ff95" ||
|
|
suffix == "f03" || suffix == "F03" || suffix == "f08" ||
|
|
suffix == "F08" || suffix == "f18" || suffix == "F18";
|
|
}
|
|
|
|
bool Fortran::frontend::mustBePreprocessed(llvm::StringRef suffix) {
|
|
return suffix == "F" || suffix == "FOR" || suffix == "fpp" ||
|
|
suffix == "FPP" || suffix == "F90" || suffix == "F95" ||
|
|
suffix == "F03" || suffix == "F08" || suffix == "F18";
|
|
}
|
|
|
|
// TODO: This is a copy of `asFortran` from f18.cpp and is added here for
|
|
// compatiblity. It doesn't really belong here, but I couldn't find a better
|
|
// place. We should decide whether to add it to the Evaluate or Parse/Unparse
|
|
// APIs or some dedicated utility library in the driver.
|
|
Fortran::parser::AnalyzedObjectsAsFortran
|
|
Fortran::frontend::getBasicAsFortran() {
|
|
return Fortran::parser::AnalyzedObjectsAsFortran{
|
|
[](llvm::raw_ostream &o, const Fortran::evaluate::GenericExprWrapper &x) {
|
|
if (x.v) {
|
|
x.v->AsFortran(o);
|
|
} else {
|
|
o << "(bad expression)";
|
|
}
|
|
},
|
|
[](llvm::raw_ostream &o,
|
|
const Fortran::evaluate::GenericAssignmentWrapper &x) {
|
|
if (x.v) {
|
|
x.v->AsFortran(o);
|
|
} else {
|
|
o << "(bad assignment)";
|
|
}
|
|
},
|
|
[](llvm::raw_ostream &o, const Fortran::evaluate::ProcedureRef &x) {
|
|
x.AsFortran(o << "CALL ");
|
|
},
|
|
};
|
|
}
|
|
|
|
InputKind FrontendOptions::GetInputKindForExtension(llvm::StringRef extension) {
|
|
if (isFixedFormSuffix(extension) || isFreeFormSuffix(extension)) {
|
|
return Language::Fortran;
|
|
}
|
|
return Language::Unknown;
|
|
}
|