2018-01-30 20:50:59 +01:00
|
|
|
#ifndef FORTRAN_DEBUG_PARSER_H_
|
|
|
|
#define FORTRAN_DEBUG_PARSER_H_
|
|
|
|
|
|
|
|
// Implements the parser with syntax "(YOUR MESSAGE HERE)"_debug for use
|
|
|
|
// in temporary modifications to the grammar intended for tracing the
|
|
|
|
// flow of the parsers. Not to be used in production.
|
|
|
|
|
|
|
|
#include "basic-parsers.h"
|
|
|
|
#include "parse-state.h"
|
|
|
|
#include <iostream>
|
|
|
|
#include <optional>
|
|
|
|
#include <string>
|
|
|
|
|
|
|
|
namespace Fortran {
|
2018-02-07 21:04:42 +01:00
|
|
|
namespace parser {
|
2018-01-30 20:50:59 +01:00
|
|
|
|
|
|
|
class DebugParser {
|
2018-02-05 21:54:36 +01:00
|
|
|
public:
|
2018-01-30 20:50:59 +01:00
|
|
|
using resultType = Success;
|
|
|
|
constexpr DebugParser(const DebugParser &) = default;
|
|
|
|
constexpr DebugParser(const char *str, size_t n) : str_{str}, length_{n} {}
|
|
|
|
std::optional<Success> Parse(ParseState *state) const {
|
|
|
|
if (auto context = state->context()) {
|
|
|
|
std::cout << *context;
|
|
|
|
}
|
2018-02-12 21:48:13 +01:00
|
|
|
state->cooked().allSources().Identify(
|
|
|
|
std::cout, state->GetProvenance(), "");
|
2018-02-09 23:04:11 +01:00
|
|
|
std::cout << " parser debug: " << std::string{str_, length_} << '\n';
|
2018-01-30 20:50:59 +01:00
|
|
|
return {Success{}};
|
|
|
|
}
|
2018-02-05 23:29:26 +01:00
|
|
|
|
2018-02-05 21:54:36 +01:00
|
|
|
private:
|
2018-01-30 20:50:59 +01:00
|
|
|
const char *const str_;
|
|
|
|
size_t length_;
|
|
|
|
};
|
|
|
|
|
|
|
|
constexpr DebugParser operator""_debug(const char str[], size_t n) {
|
|
|
|
return DebugParser{str, n};
|
|
|
|
}
|
2018-02-07 21:04:42 +01:00
|
|
|
} // namespace parser
|
2018-01-30 20:50:59 +01:00
|
|
|
} // namespace Fortran
|
|
|
|
#endif // FORTRAN_DEBUG_PARSER_H_
|