//===-- lib/Parser/type-parser-implementation.h -----------------*- C++ -*-===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//

// Macros for implementing per-type parsers

#ifndef FORTRAN_PARSER_TYPE_PARSER_IMPLEMENTATION_H_
#define FORTRAN_PARSER_TYPE_PARSER_IMPLEMENTATION_H_

#include "type-parsers.h"

#undef TYPE_PARSER
#undef TYPE_CONTEXT_PARSER

// The result type of a parser combinator expression is determined
// here via "decltype(attempt(pexpr))" to work around a g++ bug that
// causes it to crash on "decltype(pexpr)" when pexpr's top-level
// operator is an overridden || of parsing alternatives.
#define TYPE_PARSER(pexpr) \
  template <> \
  auto Parser<typename decltype(attempt(pexpr))::resultType>::Parse( \
      ParseState &state) \
      ->std::optional<resultType> { \
    static constexpr auto parser{(pexpr)}; \
    return parser.Parse(state); \
  }

#define TYPE_CONTEXT_PARSER(contextText, pexpr) \
  TYPE_PARSER(CONTEXT_PARSER((contextText), (pexpr)))

#endif