forked from OSchip/llvm-project
[flang] Merge parse-tree-mutator.h into parse-tree-visitor.h
Use the latter for visiting and mutating and delete the former. Original-commit: flang-compiler/f18@ac5a098ca7 Reviewed-on: https://github.com/flang-compiler/f18/pull/60 Tree-same-pre-rewrite: false
This commit is contained in:
Tim Keith
parent
6746a18e6b
commit
06f9d7901a
|
|
@ -1,358 +0,0 @@
|
|||
#ifndef FORTRAN_PARSER_PARSE_TREE_MUTATOR_H_
|
||||
#define FORTRAN_PARSER_PARSE_TREE_MUTATOR_H_
|
||||
|
||||
#include "parse-tree.h"
|
||||
#include <cstddef>
|
||||
#include <optional>
|
||||
#include <tuple>
|
||||
#include <utility>
|
||||
#include <variant>
|
||||
|
||||
/// Parse tree mutator
|
||||
/// Call Walk(x, mutator) to visit x and, by default, each node under x,
|
||||
/// optionally rewriting it in place.
|
||||
///
|
||||
/// mutator.Pre(x) is called before visiting x and its children are not
|
||||
/// visited if it returns false.
|
||||
///
|
||||
/// mutator.Post(x) is called after visiting x.
|
||||
|
||||
namespace Fortran {
|
||||
namespace parser {
|
||||
|
||||
// Default case for visitation of non-class data members and strings
|
||||
template<typename A, typename M>
|
||||
typename std::enable_if<!std::is_class_v<A> ||
|
||||
std::is_same_v<std::string, A>>::type
|
||||
Walk(A &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
|
||||
template<typename M> void Walk(format::ControlEditDesc &, M &);
|
||||
template<typename M> void Walk(format::DerivedTypeDataEditDesc &, M &);
|
||||
template<typename M> void Walk(format::FormatItem &, M &);
|
||||
template<typename M> void Walk(format::FormatSpecification &, M &);
|
||||
template<typename M> void Walk(format::IntrinsicTypeDataEditDesc &, M &);
|
||||
|
||||
// Traversal of needed STL template classes (optional, list, tuple, variant)
|
||||
template<typename T, typename M>
|
||||
void Walk(std::optional<T> &x, M &mutator) {
|
||||
if (x) {
|
||||
Walk(*x, mutator);
|
||||
}
|
||||
}
|
||||
template<typename T, typename M> void Walk(std::list<T> &x, M &mutator) {
|
||||
for (auto &elem : x) {
|
||||
Walk(elem, mutator);
|
||||
}
|
||||
}
|
||||
template<std::size_t I = 0, typename Func, typename T>
|
||||
void ForEachInTuple(T &tuple, Func func) {
|
||||
if constexpr (I < std::tuple_size_v<T>) {
|
||||
func(std::get<I>(tuple));
|
||||
ForEachInTuple<I + 1>(tuple, func);
|
||||
}
|
||||
}
|
||||
template<typename M, typename... A>
|
||||
void Walk(std::tuple<A...> &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
ForEachInTuple(x, [&](auto &y) { Walk(y, mutator); });
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M, typename... A>
|
||||
void Walk(std::variant<A...> &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
std::visit([&](auto &y) { Walk(y, mutator); }, x);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename A, typename B, typename M>
|
||||
void Walk(std::pair<A, B> &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.first, mutator);
|
||||
Walk(x.second, mutator);
|
||||
}
|
||||
}
|
||||
|
||||
// Trait-determined traversal of empty, tuple, union, and wrapper classes.
|
||||
template<typename A, typename M>
|
||||
typename std::enable_if<EmptyTrait<A>>::type Walk(A &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
|
||||
template<typename A, typename M>
|
||||
typename std::enable_if<TupleTrait<A>>::type Walk(A &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.t, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
|
||||
template<typename A, typename M>
|
||||
typename std::enable_if<UnionTrait<A>>::type Walk(A &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.u, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
|
||||
template<typename A, typename M>
|
||||
typename std::enable_if<WrapperTrait<A>>::type Walk(A &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.v, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
|
||||
template<typename T, typename M>
|
||||
void Walk(Indirection<T> &x, M &mutator) {
|
||||
Walk(*x, mutator);
|
||||
}
|
||||
|
||||
// Walk a class with a single field 'thing'.
|
||||
template<typename T, typename M> void Walk(Scalar<T> &x, M &mutator) {
|
||||
Walk(x.thing, mutator);
|
||||
}
|
||||
template<typename T, typename M> void Walk(Constant<T> &x, M &mutator) {
|
||||
Walk(x.thing, mutator);
|
||||
}
|
||||
template<typename T, typename M> void Walk(Integer<T> &x, M &mutator) {
|
||||
Walk(x.thing, mutator);
|
||||
}
|
||||
template<typename T, typename M> void Walk(Logical<T> &x, M &mutator) {
|
||||
Walk(x.thing, mutator);
|
||||
}
|
||||
template<typename T, typename M>
|
||||
void Walk(DefaultChar<T> &x, M &mutator) {
|
||||
Walk(x.thing, mutator);
|
||||
}
|
||||
|
||||
template<typename T, typename M> void Walk(Statement<T> &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
// N.B. the label is not traversed
|
||||
Walk(x.statement, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
|
||||
template<typename M> void Walk(Name &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
|
||||
template<typename M> void Walk(AcSpec &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.type, mutator);
|
||||
Walk(x.values, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(ArrayElement &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.base, mutator);
|
||||
Walk(x.subscripts, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M>
|
||||
void Walk(CharSelector::LengthAndKind &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.length, mutator);
|
||||
Walk(x.kind, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(CaseValueRange::Range &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.lower, mutator);
|
||||
Walk(x.upper, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(CoindexedNamedObject &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.base, mutator);
|
||||
Walk(x.imageSelector, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M>
|
||||
void Walk(DeclarationTypeSpec::Class &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.derived, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(DeclarationTypeSpec::Type &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.derived, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(ImportStmt &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.names, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M>
|
||||
void Walk(IntrinsicTypeSpec::Character &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.selector, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M>
|
||||
void Walk(IntrinsicTypeSpec::Complex &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.kind, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M>
|
||||
void Walk(IntrinsicTypeSpec::Logical &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.kind, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(IntrinsicTypeSpec::Real &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.kind, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename T, typename M> void Walk(LoopBounds<T> &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.name, mutator);
|
||||
Walk(x.lower, mutator);
|
||||
Walk(x.upper, mutator);
|
||||
Walk(x.step, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(PartRef &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.name, mutator);
|
||||
Walk(x.subscripts, mutator);
|
||||
Walk(x.imageSelector, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(ReadStmt &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.iounit, mutator);
|
||||
Walk(x.format, mutator);
|
||||
Walk(x.controls, mutator);
|
||||
Walk(x.items, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(RealLiteralConstant &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.real, mutator);
|
||||
Walk(x.kind, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(RealLiteralConstant::Real &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(StructureComponent &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.base, mutator);
|
||||
Walk(x.component, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(Suffix &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.binding, mutator);
|
||||
Walk(x.resultName, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M>
|
||||
void Walk(TypeBoundProcedureStmt::WithInterface &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.interfaceName, mutator);
|
||||
Walk(x.attributes, mutator);
|
||||
Walk(x.bindingNames, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M>
|
||||
void Walk(TypeBoundProcedureStmt::WithoutInterface &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.attributes, mutator);
|
||||
Walk(x.declarations, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(UseStmt &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.nature, mutator);
|
||||
Walk(x.moduleName, mutator);
|
||||
Walk(x.u, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(WriteStmt &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.iounit, mutator);
|
||||
Walk(x.format, mutator);
|
||||
Walk(x.controls, mutator);
|
||||
Walk(x.items, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(format::ControlEditDesc &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.kind, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M>
|
||||
void Walk(format::DerivedTypeDataEditDesc &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.type, mutator);
|
||||
Walk(x.parameters, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(format::FormatItem &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.repeatCount, mutator);
|
||||
Walk(x.u, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M>
|
||||
void Walk(format::FormatSpecification &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.items, mutator);
|
||||
Walk(x.unlimitedItems, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M>
|
||||
void Walk(format::IntrinsicTypeDataEditDesc &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.kind, mutator);
|
||||
Walk(x.width, mutator);
|
||||
Walk(x.digits, mutator);
|
||||
Walk(x.exponentWidth, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
} // namespace parser
|
||||
} // namespace Fortran
|
||||
#endif // FORTRAN_PARSER_PARSE_TREE_MUTATOR_H_
|
||||
|
|
@ -10,6 +10,7 @@
|
|||
|
||||
/// Parse tree visitor
|
||||
/// Call Walk(x, visitor) to visit x and, by default, each node under x.
|
||||
/// If x is non-const, the visitor member functions can modify the tree.
|
||||
///
|
||||
/// visitor.Pre(x) is called before visiting x and its children are not
|
||||
/// visited if it returns false.
|
||||
|
|
@ -28,12 +29,25 @@ Walk(const A &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename A, typename M>
|
||||
typename std::enable_if<!std::is_class_v<A> ||
|
||||
std::is_same_v<std::string, A>>::type
|
||||
Walk(A &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
|
||||
template<typename V> void Walk(const format::ControlEditDesc &, V &);
|
||||
template<typename M> void Walk(format::ControlEditDesc &, M &);
|
||||
template<typename V> void Walk(const format::DerivedTypeDataEditDesc &, V &);
|
||||
template<typename M> void Walk(format::DerivedTypeDataEditDesc &, M &);
|
||||
template<typename V> void Walk(const format::FormatItem &, V &);
|
||||
template<typename M> void Walk(format::FormatItem &, M &);
|
||||
template<typename V> void Walk(const format::FormatSpecification &, V &);
|
||||
template<typename M> void Walk(format::FormatSpecification &, M &);
|
||||
template<typename V> void Walk(const format::IntrinsicTypeDataEditDesc &, V &);
|
||||
template<typename M> void Walk(format::IntrinsicTypeDataEditDesc &, M &);
|
||||
|
||||
// Traversal of needed STL template classes (optional, list, tuple, variant)
|
||||
template<typename T, typename V>
|
||||
|
|
@ -42,11 +56,21 @@ void Walk(const std::optional<T> &x, V &visitor) {
|
|||
Walk(*x, visitor);
|
||||
}
|
||||
}
|
||||
template<typename T, typename M> void Walk(std::optional<T> &x, M &mutator) {
|
||||
if (x) {
|
||||
Walk(*x, mutator);
|
||||
}
|
||||
}
|
||||
template<typename T, typename V> void Walk(const std::list<T> &x, V &visitor) {
|
||||
for (const auto &elem : x) {
|
||||
Walk(elem, visitor);
|
||||
}
|
||||
}
|
||||
template<typename T, typename M> void Walk(std::list<T> &x, M &mutator) {
|
||||
for (auto &elem : x) {
|
||||
Walk(elem, mutator);
|
||||
}
|
||||
}
|
||||
template<std::size_t I = 0, typename Func, typename T>
|
||||
void ForEachInTuple(const T &tuple, Func func) {
|
||||
if constexpr (I < std::tuple_size_v<T>) {
|
||||
|
|
@ -61,6 +85,19 @@ void Walk(const std::tuple<A...> &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<std::size_t I = 0, typename Func, typename T>
|
||||
void ForEachInTuple(T &tuple, Func func) {
|
||||
if constexpr (I < std::tuple_size_v<T>) {
|
||||
func(std::get<I>(tuple));
|
||||
ForEachInTuple<I + 1>(tuple, func);
|
||||
}
|
||||
}
|
||||
template<typename M, typename... A> void Walk(std::tuple<A...> &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
ForEachInTuple(x, [&](auto &y) { Walk(y, mutator); });
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V, typename... A>
|
||||
void Walk(const std::variant<A...> &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
|
|
@ -68,6 +105,13 @@ void Walk(const std::variant<A...> &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M, typename... A>
|
||||
void Walk(std::variant<A...> &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
std::visit([&](auto &y) { Walk(y, mutator); }, x);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename A, typename B, typename V>
|
||||
void Walk(const std::pair<A, B> &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
|
|
@ -75,6 +119,13 @@ void Walk(const std::pair<A, B> &x, V &visitor) {
|
|||
Walk(x.second, visitor);
|
||||
}
|
||||
}
|
||||
template<typename A, typename B, typename M>
|
||||
void Walk(std::pair<A, B> &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.first, mutator);
|
||||
Walk(x.second, mutator);
|
||||
}
|
||||
}
|
||||
|
||||
// Trait-determined traversal of empty, tuple, union, and wrapper classes.
|
||||
template<typename A, typename V>
|
||||
|
|
@ -83,6 +134,12 @@ typename std::enable_if<EmptyTrait<A>>::type Walk(const A &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename A, typename M>
|
||||
typename std::enable_if<EmptyTrait<A>>::type Walk(A &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
|
||||
template<typename A, typename V>
|
||||
typename std::enable_if<TupleTrait<A>>::type Walk(const A &x, V &visitor) {
|
||||
|
|
@ -91,6 +148,13 @@ typename std::enable_if<TupleTrait<A>>::type Walk(const A &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename A, typename M>
|
||||
typename std::enable_if<TupleTrait<A>>::type Walk(A &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.t, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
|
||||
template<typename A, typename V>
|
||||
typename std::enable_if<UnionTrait<A>>::type Walk(const A &x, V &visitor) {
|
||||
|
|
@ -99,6 +163,13 @@ typename std::enable_if<UnionTrait<A>>::type Walk(const A &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename A, typename M>
|
||||
typename std::enable_if<UnionTrait<A>>::type Walk(A &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.u, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
|
||||
template<typename A, typename V>
|
||||
typename std::enable_if<WrapperTrait<A>>::type Walk(const A &x, V &visitor) {
|
||||
|
|
@ -107,29 +178,54 @@ typename std::enable_if<WrapperTrait<A>>::type Walk(const A &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename A, typename M>
|
||||
typename std::enable_if<WrapperTrait<A>>::type Walk(A &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.v, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
|
||||
template<typename T, typename V>
|
||||
void Walk(const Indirection<T> &x, V &visitor) {
|
||||
Walk(*x, visitor);
|
||||
}
|
||||
template<typename T, typename M> void Walk(Indirection<T> &x, M &mutator) {
|
||||
Walk(*x, mutator);
|
||||
}
|
||||
|
||||
// Walk a class with a single field 'thing'.
|
||||
template<typename T, typename V> void Walk(const Scalar<T> &x, V &visitor) {
|
||||
Walk(x.thing, visitor);
|
||||
}
|
||||
template<typename T, typename M> void Walk(Scalar<T> &x, M &mutator) {
|
||||
Walk(x.thing, mutator);
|
||||
}
|
||||
template<typename T, typename V> void Walk(const Constant<T> &x, V &visitor) {
|
||||
Walk(x.thing, visitor);
|
||||
}
|
||||
template<typename T, typename M> void Walk(Constant<T> &x, M &mutator) {
|
||||
Walk(x.thing, mutator);
|
||||
}
|
||||
template<typename T, typename V> void Walk(const Integer<T> &x, V &visitor) {
|
||||
Walk(x.thing, visitor);
|
||||
}
|
||||
template<typename T, typename M> void Walk(Integer<T> &x, M &mutator) {
|
||||
Walk(x.thing, mutator);
|
||||
}
|
||||
template<typename T, typename V> void Walk(const Logical<T> &x, V &visitor) {
|
||||
Walk(x.thing, visitor);
|
||||
}
|
||||
template<typename T, typename M> void Walk(Logical<T> &x, M &mutator) {
|
||||
Walk(x.thing, mutator);
|
||||
}
|
||||
template<typename T, typename V>
|
||||
void Walk(const DefaultChar<T> &x, V &visitor) {
|
||||
Walk(x.thing, visitor);
|
||||
}
|
||||
template<typename T, typename M> void Walk(DefaultChar<T> &x, M &mutator) {
|
||||
Walk(x.thing, mutator);
|
||||
}
|
||||
|
||||
template<typename T, typename V> void Walk(const Statement<T> &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
|
|
@ -138,12 +234,24 @@ template<typename T, typename V> void Walk(const Statement<T> &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename T, typename M> void Walk(Statement<T> &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
// N.B. the label is not traversed
|
||||
Walk(x.statement, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
|
||||
template<typename V> void Walk(const Name &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(Name &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
|
||||
template<typename V> void Walk(const AcSpec &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
|
|
@ -152,6 +260,13 @@ template<typename V> void Walk(const AcSpec &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(AcSpec &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.type, mutator);
|
||||
Walk(x.values, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V> void Walk(const ArrayElement &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
Walk(x.base, visitor);
|
||||
|
|
@ -159,6 +274,13 @@ template<typename V> void Walk(const ArrayElement &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(ArrayElement &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.base, mutator);
|
||||
Walk(x.subscripts, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V>
|
||||
void Walk(const CharSelector::LengthAndKind &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
|
|
@ -167,6 +289,13 @@ void Walk(const CharSelector::LengthAndKind &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(CharSelector::LengthAndKind &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.length, mutator);
|
||||
Walk(x.kind, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V> void Walk(const CaseValueRange::Range &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
Walk(x.lower, visitor);
|
||||
|
|
@ -174,6 +303,13 @@ template<typename V> void Walk(const CaseValueRange::Range &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(CaseValueRange::Range &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.lower, mutator);
|
||||
Walk(x.upper, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V> void Walk(const CoindexedNamedObject &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
Walk(x.base, visitor);
|
||||
|
|
@ -181,6 +317,13 @@ template<typename V> void Walk(const CoindexedNamedObject &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(CoindexedNamedObject &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.base, mutator);
|
||||
Walk(x.imageSelector, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V>
|
||||
void Walk(const DeclarationTypeSpec::Class &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
|
|
@ -188,18 +331,36 @@ void Walk(const DeclarationTypeSpec::Class &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(DeclarationTypeSpec::Class &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.derived, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V> void Walk(const DeclarationTypeSpec::Type &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
Walk(x.derived, visitor);
|
||||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(DeclarationTypeSpec::Type &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.derived, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V> void Walk(const ImportStmt &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
Walk(x.names, visitor);
|
||||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(ImportStmt &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.names, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V>
|
||||
void Walk(const IntrinsicTypeSpec::Character &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
|
|
@ -207,6 +368,12 @@ void Walk(const IntrinsicTypeSpec::Character &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(IntrinsicTypeSpec::Character &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.selector, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V>
|
||||
void Walk(const IntrinsicTypeSpec::Complex &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
|
|
@ -214,6 +381,12 @@ void Walk(const IntrinsicTypeSpec::Complex &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(IntrinsicTypeSpec::Complex &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.kind, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V>
|
||||
void Walk(const IntrinsicTypeSpec::Logical &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
|
|
@ -221,12 +394,24 @@ void Walk(const IntrinsicTypeSpec::Logical &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(IntrinsicTypeSpec::Logical &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.kind, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V> void Walk(const IntrinsicTypeSpec::Real &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
Walk(x.kind, visitor);
|
||||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(IntrinsicTypeSpec::Real &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.kind, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename T, typename V> void Walk(const LoopBounds<T> &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
Walk(x.name, visitor);
|
||||
|
|
@ -236,6 +421,15 @@ template<typename T, typename V> void Walk(const LoopBounds<T> &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename T, typename M> void Walk(LoopBounds<T> &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.name, mutator);
|
||||
Walk(x.lower, mutator);
|
||||
Walk(x.upper, mutator);
|
||||
Walk(x.step, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V> void Walk(const PartRef &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
Walk(x.name, visitor);
|
||||
|
|
@ -244,6 +438,14 @@ template<typename V> void Walk(const PartRef &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(PartRef &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.name, mutator);
|
||||
Walk(x.subscripts, mutator);
|
||||
Walk(x.imageSelector, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V> void Walk(const ReadStmt &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
Walk(x.iounit, visitor);
|
||||
|
|
@ -253,6 +455,15 @@ template<typename V> void Walk(const ReadStmt &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(ReadStmt &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.iounit, mutator);
|
||||
Walk(x.format, mutator);
|
||||
Walk(x.controls, mutator);
|
||||
Walk(x.items, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V> void Walk(const RealLiteralConstant &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
Walk(x.real, visitor);
|
||||
|
|
@ -260,11 +471,23 @@ template<typename V> void Walk(const RealLiteralConstant &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(RealLiteralConstant &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.real, mutator);
|
||||
Walk(x.kind, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V> void Walk(const RealLiteralConstant::Real &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(RealLiteralConstant::Real &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V> void Walk(const StructureComponent &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
Walk(x.base, visitor);
|
||||
|
|
@ -272,6 +495,13 @@ template<typename V> void Walk(const StructureComponent &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(StructureComponent &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.base, mutator);
|
||||
Walk(x.component, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V> void Walk(const Suffix &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
Walk(x.binding, visitor);
|
||||
|
|
@ -279,6 +509,13 @@ template<typename V> void Walk(const Suffix &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(Suffix &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.binding, mutator);
|
||||
Walk(x.resultName, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V>
|
||||
void Walk(const TypeBoundProcedureStmt::WithInterface &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
|
|
@ -288,6 +525,15 @@ void Walk(const TypeBoundProcedureStmt::WithInterface &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M>
|
||||
void Walk(TypeBoundProcedureStmt::WithInterface &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.interfaceName, mutator);
|
||||
Walk(x.attributes, mutator);
|
||||
Walk(x.bindingNames, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V>
|
||||
void Walk(const TypeBoundProcedureStmt::WithoutInterface &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
|
|
@ -296,6 +542,14 @@ void Walk(const TypeBoundProcedureStmt::WithoutInterface &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M>
|
||||
void Walk(TypeBoundProcedureStmt::WithoutInterface &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.attributes, mutator);
|
||||
Walk(x.declarations, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V> void Walk(const UseStmt &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
Walk(x.nature, visitor);
|
||||
|
|
@ -304,6 +558,14 @@ template<typename V> void Walk(const UseStmt &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(UseStmt &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.nature, mutator);
|
||||
Walk(x.moduleName, mutator);
|
||||
Walk(x.u, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V> void Walk(const WriteStmt &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
Walk(x.iounit, visitor);
|
||||
|
|
@ -313,12 +575,27 @@ template<typename V> void Walk(const WriteStmt &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(WriteStmt &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.iounit, mutator);
|
||||
Walk(x.format, mutator);
|
||||
Walk(x.controls, mutator);
|
||||
Walk(x.items, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V> void Walk(const format::ControlEditDesc &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
Walk(x.kind, visitor);
|
||||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(format::ControlEditDesc &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.kind, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V>
|
||||
void Walk(const format::DerivedTypeDataEditDesc &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
|
|
@ -327,6 +604,13 @@ void Walk(const format::DerivedTypeDataEditDesc &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(format::DerivedTypeDataEditDesc &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.type, mutator);
|
||||
Walk(x.parameters, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V> void Walk(const format::FormatItem &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
Walk(x.repeatCount, visitor);
|
||||
|
|
@ -334,6 +618,13 @@ template<typename V> void Walk(const format::FormatItem &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(format::FormatItem &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.repeatCount, mutator);
|
||||
Walk(x.u, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V>
|
||||
void Walk(const format::FormatSpecification &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
|
|
@ -342,6 +633,13 @@ void Walk(const format::FormatSpecification &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M> void Walk(format::FormatSpecification &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.items, mutator);
|
||||
Walk(x.unlimitedItems, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename V>
|
||||
void Walk(const format::IntrinsicTypeDataEditDesc &x, V &visitor) {
|
||||
if (visitor.Pre(x)) {
|
||||
|
|
@ -352,6 +650,17 @@ void Walk(const format::IntrinsicTypeDataEditDesc &x, V &visitor) {
|
|||
visitor.Post(x);
|
||||
}
|
||||
}
|
||||
template<typename M>
|
||||
void Walk(format::IntrinsicTypeDataEditDesc &x, M &mutator) {
|
||||
if (mutator.Pre(x)) {
|
||||
Walk(x.kind, mutator);
|
||||
Walk(x.width, mutator);
|
||||
Walk(x.digits, mutator);
|
||||
Walk(x.exponentWidth, mutator);
|
||||
mutator.Post(x);
|
||||
}
|
||||
}
|
||||
|
||||
} // namespace parser
|
||||
} // namespace Fortran
|
||||
#endif // FORTRAN_PARSER_PARSE_TREE_VISITOR_H_
|
||||
|
|
|
|||
|
|
@ -1099,7 +1099,7 @@ void ResolveNames(
|
|||
parser::Program &program, const parser::CookedSource &cookedSource) {
|
||||
parser::Messages messages{cookedSource};
|
||||
ResolveNamesVisitor visitor{messages};
|
||||
parser::Walk(program, visitor);
|
||||
parser::Walk(static_cast<const parser::Program &>(program), visitor);
|
||||
if (!messages.empty()) {
|
||||
messages.Emit(std::cerr);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -2,7 +2,7 @@
|
|||
#include "scope.h"
|
||||
#include "symbol.h"
|
||||
#include "../parser/indirection.h"
|
||||
#include "../parser/parse-tree-mutator.h"
|
||||
#include "../parser/parse-tree-visitor.h"
|
||||
#include "../parser/parse-tree.h"
|
||||
#include <list>
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue