TclParser.hh

Go to the documentation of this file.

#ifndef TCLPARSER_HH
#define TCLPARSER_HH
 
#include <string>
#include <string_view>
#include <vector>
#include <tcl.h>
 
#define DEBUG_TCLPARSER 0
 
class TclParser
{
public:
        TclParser(Tcl_Interp* interp, std::string_view input);
 
        [[nodiscard]] std::string getColors() const { return colors; }
 
        [[nodiscard]] int getLast() const { return last.back(); }
 
        [[nodiscard]] static bool isProc(Tcl_Interp* interp, std::string_view str);
 
private:
        enum ParseType { COMMAND, EXPRESSION, OTHER };
 
        void parse(const char* p, int size, ParseType type);
        void printTokens(Tcl_Token* tokens, int numTokens);
        [[nodiscard]] static ParseType guessSubType(Tcl_Token* tokens, int i);
        void setColors(const char* p, int size, char c);
 
private:
        Tcl_Interp* interp;
        std::string colors;
        std::string parseStr;
        std::vector<int> last;
        int offset;
 
#if DEBUG_TCLPARSER
        void DEBUG_PRINT(const std::string& s);
        int level;
#else
        #define DEBUG_PRINT(x)
#endif
};
 
#endif