59342b0641
checkpoint: changes build, tests all pass many fixes, ready to test more Further CLASS(*) support More fixes for CLASS(*) Hide data members of DynamicType implement PRESENT() intrinsic Original-commit: flang-compiler/f18@044ba12c20 Reviewed-on: https://github.com/flang-compiler/f18/pull/466 Tree-same-pre-rewrite: false
139 lines
5.4 KiB
C++
139 lines
5.4 KiB
C++
// Copyright (c) 2019, 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_IO_H_
|
|
#define FORTRAN_SEMANTICS_IO_H_
|
|
|
|
#include "semantics.h"
|
|
#include "tools.h"
|
|
#include "../common/enum-set.h"
|
|
#include "../parser/parse-tree.h"
|
|
|
|
namespace Fortran::semantics {
|
|
|
|
using common::IoSpecKind;
|
|
using common::IoStmtKind;
|
|
|
|
class IoChecker : public virtual BaseChecker {
|
|
public:
|
|
explicit IoChecker(SemanticsContext &context) : context_{context} {}
|
|
|
|
void Enter(const parser::BackspaceStmt &) { Init(IoStmtKind::Backspace); }
|
|
void Enter(const parser::CloseStmt &) { Init(IoStmtKind::Close); }
|
|
void Enter(const parser::EndfileStmt &) { Init(IoStmtKind::Endfile); }
|
|
void Enter(const parser::FlushStmt &) { Init(IoStmtKind::Flush); }
|
|
void Enter(const parser::InquireStmt &) { Init(IoStmtKind::Inquire); }
|
|
void Enter(const parser::OpenStmt &) { Init(IoStmtKind::Open); }
|
|
void Enter(const parser::ReadStmt &) { Init(IoStmtKind::Read); }
|
|
void Enter(const parser::RewindStmt &) { Init(IoStmtKind::Rewind); }
|
|
void Enter(const parser::WaitStmt &) { Init(IoStmtKind::Wait); }
|
|
void Enter(const parser::WriteStmt &) { Init(IoStmtKind::Write); }
|
|
|
|
void Enter(const parser::ConnectSpec &);
|
|
void Enter(const parser::ConnectSpec::CharExpr &);
|
|
void Enter(const parser::ConnectSpec::Newunit &);
|
|
void Enter(const parser::ConnectSpec::Recl &);
|
|
void Enter(const parser::EndLabel &);
|
|
void Enter(const parser::EorLabel &);
|
|
void Enter(const parser::ErrLabel &);
|
|
void Enter(const parser::FileUnitNumber &);
|
|
void Enter(const parser::Format &);
|
|
void Enter(const parser::IdExpr &);
|
|
void Enter(const parser::IdVariable &);
|
|
void Enter(const parser::InputItem &);
|
|
void Enter(const parser::InquireSpec &);
|
|
void Enter(const parser::InquireSpec::CharVar &);
|
|
void Enter(const parser::InquireSpec::IntVar &);
|
|
void Enter(const parser::InquireSpec::LogVar &);
|
|
void Enter(const parser::IoControlSpec &);
|
|
void Enter(const parser::IoControlSpec::Asynchronous &);
|
|
void Enter(const parser::IoControlSpec::CharExpr &);
|
|
void Enter(const parser::IoControlSpec::Pos &);
|
|
void Enter(const parser::IoControlSpec::Rec &);
|
|
void Enter(const parser::IoControlSpec::Size &);
|
|
void Enter(const parser::IoUnit &);
|
|
void Enter(const parser::MsgVariable &);
|
|
void Enter(const parser::OutputItem &);
|
|
void Enter(const parser::StatusExpr &);
|
|
void Enter(const parser::StatVariable &);
|
|
|
|
void Leave(const parser::BackspaceStmt &);
|
|
void Leave(const parser::CloseStmt &);
|
|
void Leave(const parser::EndfileStmt &);
|
|
void Leave(const parser::FlushStmt &);
|
|
void Leave(const parser::InquireStmt &);
|
|
void Leave(const parser::OpenStmt &);
|
|
void Leave(const parser::ReadStmt &);
|
|
void Leave(const parser::RewindStmt &);
|
|
void Leave(const parser::WaitStmt &);
|
|
void Leave(const parser::WriteStmt &);
|
|
|
|
private:
|
|
// Presence flag values.
|
|
ENUM_CLASS(Flag, IoControlList, InternalUnit, NumberUnit, StarUnit, CharFmt,
|
|
LabelFmt, StarFmt, FmtOrNml, KnownAccess, AccessDirect, AccessStream,
|
|
AdvanceYes, AsynchronousYes, KnownStatus, StatusNew, StatusReplace,
|
|
StatusScratch, DataList);
|
|
|
|
template<typename R, typename T> std::optional<R> GetConstExpr(const T &x) {
|
|
using DefaultCharConstantType =
|
|
evaluate::Type<common::TypeCategory::Character, 1>;
|
|
if (const SomeExpr * expr{GetExpr(x)}) {
|
|
const auto foldExpr{
|
|
evaluate::Fold(context_.foldingContext(), common::Clone(*expr))};
|
|
if constexpr (std::is_same_v<R, std::string>) {
|
|
return evaluate::GetScalarConstantValue<DefaultCharConstantType>(
|
|
foldExpr);
|
|
} else {
|
|
static_assert(std::is_same_v<R, std::int64_t>, "unexpected type");
|
|
return evaluate::ToInt64(foldExpr);
|
|
}
|
|
}
|
|
return std::nullopt;
|
|
}
|
|
|
|
void LeaveReadWrite() const;
|
|
|
|
void SetSpecifier(IoSpecKind);
|
|
|
|
void CheckStringValue(
|
|
IoSpecKind, const std::string &, const parser::CharBlock &) const;
|
|
|
|
void CheckForRequiredSpecifier(IoSpecKind) const;
|
|
void CheckForRequiredSpecifier(bool, const std::string &) const;
|
|
void CheckForRequiredSpecifier(IoSpecKind, IoSpecKind) const;
|
|
void CheckForRequiredSpecifier(IoSpecKind, bool, const std::string &) const;
|
|
void CheckForRequiredSpecifier(bool, const std::string &, IoSpecKind) const;
|
|
void CheckForRequiredSpecifier(
|
|
bool, const std::string &, bool, const std::string &) const;
|
|
|
|
void CheckForProhibitedSpecifier(IoSpecKind) const;
|
|
void CheckForProhibitedSpecifier(IoSpecKind, IoSpecKind) const;
|
|
void CheckForProhibitedSpecifier(IoSpecKind, bool, const std::string &) const;
|
|
void CheckForProhibitedSpecifier(bool, const std::string &, IoSpecKind) const;
|
|
|
|
void Init(IoStmtKind s) {
|
|
stmt_ = s;
|
|
specifierSet_.reset();
|
|
flags_.reset();
|
|
}
|
|
|
|
SemanticsContext &context_;
|
|
IoStmtKind stmt_ = IoStmtKind::None;
|
|
common::EnumSet<IoSpecKind, common::IoSpecKind_enumSize> specifierSet_;
|
|
common::EnumSet<Flag, Flag_enumSize> flags_;
|
|
};
|
|
|
|
}
|
|
#endif // FORTRAN_SEMANTICS_IO_H_
|