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
55 lines
2 KiB
C++
55 lines
2 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.
|
|
|
|
#ifndef FORTRAN_SEMANTICS_ATTR_H_
|
|
#define FORTRAN_SEMANTICS_ATTR_H_
|
|
|
|
#include "../common/enum-set.h"
|
|
#include "../common/idioms.h"
|
|
#include <cinttypes>
|
|
#include <string>
|
|
|
|
namespace Fortran::semantics {
|
|
|
|
// All available attributes.
|
|
ENUM_CLASS(Attr, ABSTRACT, ALLOCATABLE, ASYNCHRONOUS, BIND_C, CONTIGUOUS,
|
|
DEFERRED, ELEMENTAL, EXTERNAL, IMPURE, INTENT_IN, INTENT_INOUT, INTENT_OUT,
|
|
INTRINSIC, MODULE, NON_OVERRIDABLE, NON_RECURSIVE, NOPASS, OPTIONAL,
|
|
PARAMETER, PASS, POINTER, PRIVATE, PROTECTED, PUBLIC, PURE, RECURSIVE, SAVE,
|
|
TARGET, VALUE, VOLATILE)
|
|
|
|
// Set of attributes
|
|
class Attrs : public common::EnumSet<Attr, Attr_enumSize> {
|
|
private:
|
|
using enumSetType = common::EnumSet<Attr, Attr_enumSize>;
|
|
|
|
public:
|
|
using enumSetType::enumSetType;
|
|
constexpr bool HasAny(const Attrs &x) const { return !(*this & x).none(); }
|
|
constexpr bool HasAll(const Attrs &x) const { return (~*this & x).none(); }
|
|
// Internal error if any of these attributes are not in allowed.
|
|
void CheckValid(const Attrs &allowed) const;
|
|
|
|
private:
|
|
friend std::ostream &operator<<(std::ostream &, const Attrs &);
|
|
};
|
|
|
|
// Return string representation of attr that matches Fortran source.
|
|
std::string AttrToString(Attr attr);
|
|
|
|
std::ostream &operator<<(std::ostream &o, Attr attr);
|
|
std::ostream &operator<<(std::ostream &o, const Attrs &attrs);
|
|
|
|
} // namespace Fortran::semantics
|
|
#endif // FORTRAN_SEMANTICS_ATTR_H_
|