7edb7ec69b
Refactor to create the Semantics class that is responsible for holding state during semantics (the scope tree and messages) and managing the logic of the various phases of semantic processing. Eliminate static Scope::globalScope. The messages generated during semantic processing are accumulated in a Messages data member of Semantics so that individual phases don't need to emit them to std::cerr. This is now done by the driver so that it has control over where they go and eliminates other includes of iostream. To do this, the messages object is passed in to the various semantics operations. Move DumpSymbols into semantics.cc: it doesn't belong in resolve-names.cc and it depends on the global scope, so it's as good a place as any. The call to RewriteParseTree is also moved to Semantics. Original-commit: flang-compiler/f18@771d0e1293 Reviewed-on: https://github.com/flang-compiler/f18/pull/186 Tree-same-pre-rewrite: false
58 lines
1.6 KiB
C++
58 lines
1.6 KiB
C++
// Copyright (c) 2018, NVIDIA CORPORATION. All rights reserved.
|
|
//
|
|
// Licensed under the Apache License, Version 2.0 (the "License");
|
|
// you may not use this file except in compliance with the License.
|
|
// You may obtain a copy of the License at
|
|
//
|
|
// http://www.apache.org/licenses/LICENSE-2.0
|
|
//
|
|
// Unless required by applicable law or agreed to in writing, software
|
|
// distributed under the License is distributed on an "AS IS" BASIS,
|
|
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
// See the License for the specific language governing permissions and
|
|
// limitations under the License.
|
|
|
|
#include "attr.h"
|
|
#include "../common/idioms.h"
|
|
#include <ostream>
|
|
#include <stddef.h>
|
|
|
|
namespace Fortran::semantics {
|
|
|
|
void Attrs::CheckValid(const Attrs &allowed) const {
|
|
if (!allowed.HasAll(*this)) {
|
|
common::die("invalid attribute");
|
|
}
|
|
}
|
|
|
|
std::string AttrToString(Attr attr) {
|
|
switch (attr) {
|
|
case Attr::BIND_C: return "BIND(C)";
|
|
case Attr::INTENT_IN: return "INTENT(IN)";
|
|
case Attr::INTENT_INOUT: return "INTENT(INOUT)";
|
|
case Attr::INTENT_OUT: return "INTENT(OUT)";
|
|
default: return EnumToString(attr);
|
|
}
|
|
}
|
|
|
|
std::ostream &operator<<(std::ostream &o, Attr attr) {
|
|
return o << AttrToString(attr);
|
|
}
|
|
|
|
std::ostream &operator<<(std::ostream &o, const Attrs &attrs) {
|
|
std::size_t n{attrs.count()};
|
|
std::size_t seen{0};
|
|
for (std::size_t j{0}; seen < n; ++j) {
|
|
Attr attr{static_cast<Attr>(j)};
|
|
if (attrs.test(attr)) {
|
|
if (seen > 0) {
|
|
o << ", ";
|
|
}
|
|
o << attr;
|
|
++seen;
|
|
}
|
|
}
|
|
return o;
|
|
}
|
|
|
|
} // namespace Fortran::semantics
|