424ec7b35b
Create interval.h. Use std::size_t instead of bare size_t. Redefine parser::Name to not be just a bare string. Break out and rename CharBlock from token-sequence.h for use in the parse tree. Incremental replacement of name strings with pointers to cooked characters. Fix case sensitivity problem. Use new CharBlock encoding to replace strings for real literal constants. Normalized cooked character stream to lower case. Simplify parsing now that cooked stream is lower case. Replace Keyword in parse tree. Add static_asserts to || and recovery parsers to enforce same result types. Remove needless TODO comment inserted earlier. Fix case conversion on prefixed character literals (f90_correct/dc04.f90). Use CharBlock in user-state.h. Complete transition from nextChar to nextCh (i.e., always use pointers). Document extensions. Begin work on compiler directive lines. More documentation work. Reformat prescan.cc. More work on compiler directive scanning. Original-commit: flang-compiler/f18@38d0404e16 Reviewed-on: https://github.com/flang-compiler/f18/pull/29 Tree-same-pre-rewrite: false
93 lines
3.1 KiB
C++
93 lines
3.1 KiB
C++
#ifndef FORTRAN_PARSER_PREPROCESSOR_H_
|
|
#define FORTRAN_PARSER_PREPROCESSOR_H_
|
|
|
|
// A Fortran-aware preprocessing module used by the prescanner to implement
|
|
// preprocessing directives and macro replacement. Intended to be efficient
|
|
// enough to always run on all source files even when no preprocessing is
|
|
// performed, so that special compiler command options &/or source file name
|
|
// extensions for preprocessing will not be necessary.
|
|
|
|
#include "char-block.h"
|
|
#include "provenance.h"
|
|
#include "token-sequence.h"
|
|
#include <cstddef>
|
|
#include <list>
|
|
#include <stack>
|
|
#include <string>
|
|
#include <unordered_map>
|
|
#include <vector>
|
|
|
|
namespace Fortran {
|
|
namespace parser {
|
|
|
|
class Prescanner;
|
|
|
|
// Defines a macro
|
|
class Definition {
|
|
public:
|
|
Definition(const TokenSequence &, std::size_t firstToken, std::size_t tokens);
|
|
Definition(const std::vector<std::string> &argNames, const TokenSequence &,
|
|
std::size_t firstToken, std::size_t tokens, bool isVariadic = false);
|
|
Definition(const std::string &predefined, AllSources *);
|
|
|
|
bool isFunctionLike() const { return isFunctionLike_; }
|
|
std::size_t argumentCount() const { return argumentCount_; }
|
|
bool isVariadic() const { return isVariadic_; }
|
|
bool isDisabled() const { return isDisabled_; }
|
|
bool isPredefined() const { return isPredefined_; }
|
|
const TokenSequence &replacement() const { return replacement_; }
|
|
|
|
bool set_isDisabled(bool disable);
|
|
|
|
TokenSequence Apply(const std::vector<TokenSequence> &args, AllSources *);
|
|
|
|
private:
|
|
static TokenSequence Tokenize(const std::vector<std::string> &argNames,
|
|
const TokenSequence &token, std::size_t firstToken, std::size_t tokens);
|
|
|
|
bool isFunctionLike_{false};
|
|
std::size_t argumentCount_{0};
|
|
bool isVariadic_{false};
|
|
bool isDisabled_{false};
|
|
bool isPredefined_{false};
|
|
TokenSequence replacement_;
|
|
};
|
|
|
|
// Preprocessing state
|
|
class Preprocessor {
|
|
public:
|
|
explicit Preprocessor(AllSources *);
|
|
|
|
void Define(std::string macro, std::string value);
|
|
void Undefine(std::string macro);
|
|
|
|
// When the input contains macros to be replaced, the new token sequence
|
|
// is appended to the output and the returned value is true. When
|
|
// no macro replacement is necessary, the output is unmodified and the
|
|
// return value is false.
|
|
bool MacroReplacement(
|
|
const TokenSequence &, const Prescanner &, TokenSequence *);
|
|
|
|
// Implements a preprocessor directive.
|
|
void Directive(const TokenSequence &, Prescanner *);
|
|
|
|
private:
|
|
enum class IsElseActive { No, Yes };
|
|
enum class CanDeadElseAppear { No, Yes };
|
|
|
|
CharBlock SaveTokenAsName(const CharBlock &);
|
|
bool IsNameDefined(const CharBlock &);
|
|
TokenSequence ReplaceMacros(const TokenSequence &, const Prescanner &);
|
|
void SkipDisabledConditionalCode(
|
|
const std::string &, IsElseActive, Prescanner *, Provenance);
|
|
bool IsIfPredicateTrue(const TokenSequence &expr, std::size_t first,
|
|
std::size_t exprTokens, Prescanner *);
|
|
|
|
AllSources *allSources_;
|
|
std::list<std::string> names_;
|
|
std::unordered_map<CharBlock, Definition> definitions_;
|
|
std::stack<CanDeadElseAppear> ifStack_;
|
|
};
|
|
} // namespace parser
|
|
} // namespace Fortran
|
|
#endif // FORTRAN_PARSER_PREPROCESSOR_H_
|