Method _read_long_string

src/Chain/libraries/glua/glua_tokenparser.cpp:441–510

        }

        void GluaTokenParser::_read_long_string(std::string &code, bool is_string, int sep)
        {
            ++_cycle_count;
            if (end_cycle(_cycle_count))
                return;
            auto line = _parsing_linenumber; // initial linenumber, the string may over-lines
            auto what = is_string ? "string" : "comment";
            _save_to_buff_and_next(_current_char(code));
            if (_parsing_pos < code.length() && is_new_line_start(_current_char(code)))
            {
                _inc_line(code);
            }
            while (_parsing_pos < code.length())
            {
                if (_parsing_buff_len >= LUA_TOKEN_MAX_LENGTH - 1)
                {
					if(!is_string)
					{
						// is too long comment
						_parsing_buff_len = 0;
					}
					else 
					{
                        global_glua_chain_api->throw_exception(_L, THINKYOUNG_API_COMPILE_ERROR, std::string("too long token").c_str());
						return;
					}
                }
                switch (_current_char(code))
                {
                case EOF_TOKEN_CHAR:
                    global_glua_chain_api->throw_exception(_L, THINKYOUNG_API_COMPILE_ERROR, "undefined long %s (starting at line %d)", what, line);
                    return;
                case ']':
                {
                    if (!is_string && code.length() > _parsing_pos + 1 && code[_parsing_pos + 1] == ']'
						)
                    {
                        _save_to_buff_and_next(_current_char(code));
                        _save_to_buff_and_next(_current_char(code));
                        goto endloop;
                    }
                    if (_skip_sep(code) == sep)
                    {
                        _save_to_buff_and_next(_current_char(code));
                        goto endloop;
                    }
                    else if (!is_string)
                    {
                        ++_parsing_pos;	// ignore any thing in comment
                    }
                    else
                    {
                        _save_to_buff_and_next(_current_char(code));  // ?
                    }
                    break;
                }
                case '\n': case '\r':
                    _save_to_buff(_current_char(code));