llvm/flang/lib/evaluate/expression-forward.h

// 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_EVALUATE_EXPRESSION_FORWARD_H_
#define FORTRAN_EVALUATE_EXPRESSION_FORWARD_H_

// Some forward definitions for expression.h that need to be available
// in variable.h to resolve cases of mutual references between class
// definitions.

#include "type.h"

namespace Fortran::evaluate {

// An expression of some specific result type.
template<typename A> class Expr;
template<int KIND> using IntegerExpr = Expr<Type<Category::Integer, KIND>>;
using DefaultIntegerExpr = IntegerExpr<DefaultInteger::kind>;
template<int KIND> using RealExpr = Expr<Type<Category::Real, KIND>>;
template<int KIND> using ComplexExpr = Expr<Type<Category::Complex, KIND>>;
template<int KIND> using CharacterExpr = Expr<Type<Category::Character, KIND>>;
template<int KIND> using LogicalExpr = Expr<Type<Category::Logical, KIND>>;

// An expression whose result is within one particular type category and
// of any supported kind.
using AnyKindIntegerExpr = Expr<AnyKindType<Category::Integer>>;
using AnyKindRealExpr = Expr<AnyKindType<Category::Real>>;
using AnyKindComplexExpr = Expr<AnyKindType<Category::Complex>>;
using AnyKindCharacterExpr = Expr<AnyKindType<Category::Character>>;
using AnyKindLogicalExpr = Expr<AnyKindType<Category::Logical>>;

// A completely generic expression.
struct GenericExpr;

}  // namespace Fortran::evaluate
#endif  // FORTRAN_EVALUATE_EXPRESSION_FORWARD_H_