18cee3e8e6
For source files (C++, Fortran, CMake) add copyright and license. For documentation files add just copyright. Original-commit: flang-compiler/f18@38381aed83 Reviewed-on: https://github.com/flang-compiler/f18/pull/74
100 lines
2.9 KiB
C++
100 lines
2.9 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 "user-state.h"
|
|
#include "basic-parsers.h"
|
|
#include "grammar.h"
|
|
#include "parse-state.h"
|
|
#include "stmt-parser.h"
|
|
#include "type-parsers.h"
|
|
#include <optional>
|
|
|
|
namespace Fortran {
|
|
namespace parser {
|
|
|
|
std::optional<Success> StartNewSubprogram::Parse(ParseState &state) {
|
|
if (auto ustate = state.userState()) {
|
|
ustate->NewSubprogram();
|
|
}
|
|
return {Success{}};
|
|
}
|
|
|
|
std::optional<CapturedLabelDoStmt::resultType> CapturedLabelDoStmt::Parse(
|
|
ParseState &state) {
|
|
static constexpr auto parser = statement(indirect(Parser<LabelDoStmt>{}));
|
|
auto result = parser.Parse(state);
|
|
if (result) {
|
|
if (auto ustate = state.userState()) {
|
|
ustate->NewDoLabel(std::get<Label>(result->statement->t));
|
|
}
|
|
}
|
|
return result;
|
|
}
|
|
|
|
std::optional<EndDoStmtForCapturedLabelDoStmt::resultType>
|
|
EndDoStmtForCapturedLabelDoStmt::Parse(ParseState &state) {
|
|
static constexpr auto parser = statement(indirect(Parser<EndDoStmt>{}));
|
|
if (auto enddo = parser.Parse(state)) {
|
|
if (enddo->label.has_value()) {
|
|
if (auto ustate = state.userState()) {
|
|
if (!ustate->InNonlabelDoConstruct() &&
|
|
ustate->IsDoLabel(enddo->label.value())) {
|
|
return enddo;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
return {};
|
|
}
|
|
|
|
std::optional<Success> EnterNonlabelDoConstruct::Parse(ParseState &state) {
|
|
if (auto ustate = state.userState()) {
|
|
ustate->EnterNonlabelDoConstruct();
|
|
}
|
|
return {Success{}};
|
|
}
|
|
|
|
std::optional<Success> LeaveDoConstruct::Parse(ParseState &state) {
|
|
if (auto ustate = state.userState()) {
|
|
ustate->LeaveDoConstruct();
|
|
}
|
|
return {Success{}};
|
|
}
|
|
|
|
std::optional<Name> OldStructureComponentName::Parse(ParseState &state) {
|
|
if (std::optional<Name> n{name.Parse(state)}) {
|
|
if (const auto *ustate = state.userState()) {
|
|
if (ustate->IsOldStructureComponent(n->source)) {
|
|
return n;
|
|
}
|
|
}
|
|
}
|
|
return {};
|
|
}
|
|
|
|
std::optional<DataComponentDefStmt> StructureComponents::Parse(
|
|
ParseState &state) {
|
|
static constexpr auto stmt = Parser<DataComponentDefStmt>{};
|
|
std::optional<DataComponentDefStmt> defs{stmt.Parse(state)};
|
|
if (defs.has_value()) {
|
|
if (auto ustate = state.userState()) {
|
|
for (const auto &decl : std::get<std::list<ComponentDecl>>(defs->t)) {
|
|
ustate->NoteOldStructureComponent(std::get<Name>(decl.t).source);
|
|
}
|
|
}
|
|
}
|
|
return defs;
|
|
}
|
|
} // namespace parser
|
|
} // namespace Fortran
|