diff options
Diffstat (limited to 'debian/uncrustify-trinity/uncrustify-trinity-0.72.0/src/combine_tools.cpp')
| -rw-r--r-- | debian/uncrustify-trinity/uncrustify-trinity-0.72.0/src/combine_tools.cpp | 485 |
1 files changed, 0 insertions, 485 deletions
diff --git a/debian/uncrustify-trinity/uncrustify-trinity-0.72.0/src/combine_tools.cpp b/debian/uncrustify-trinity/uncrustify-trinity-0.72.0/src/combine_tools.cpp deleted file mode 100644 index d79bf91a..00000000 --- a/debian/uncrustify-trinity/uncrustify-trinity-0.72.0/src/combine_tools.cpp +++ /dev/null @@ -1,485 +0,0 @@ -/** - * @file combine_tools.cpp - * - * @author Guy Maurel - * @license GPL v2+ - * extract from combine.cpp - */ - -#include "combine_tools.h" - -#include "combine_fix_mark.h" -#include "unc_ctype.h" -#include "uncrustify.h" - - -bool can_be_full_param(chunk_t *start, chunk_t *end) -{ - LOG_FUNC_ENTRY(); - - LOG_FMT(LFPARAM, "%s:", __func__); - - int word_count = 0; - int type_count = 0; - chunk_t *pc; - - for (pc = start; - pc != nullptr && pc != end; - pc = chunk_get_next_ncnl(pc, scope_e::PREPROC)) - { - LOG_FMT(LFPARAM, " [%s]", pc->text()); - - if ( chunk_is_token(pc, CT_QUALIFIER) - || chunk_is_token(pc, CT_STRUCT) - || chunk_is_token(pc, CT_ENUM) - || chunk_is_token(pc, CT_UNION) - || chunk_is_token(pc, CT_TYPENAME)) - { - LOG_FMT(LFPARAM, " <== %s! (yes)\n", get_token_name(pc->type)); - return(true); - } - - if (chunk_is_token(pc, CT_WORD) || chunk_is_token(pc, CT_TYPE)) - { - ++word_count; - - if (chunk_is_token(pc, CT_TYPE)) - { - ++type_count; - } - } - else if (chunk_is_token(pc, CT_MEMBER) || chunk_is_token(pc, CT_DC_MEMBER)) - { - if (word_count > 0) - { - --word_count; - } - } - else if (pc != start && chunk_is_ptr_operator(pc)) - { - // chunk is OK - } - else if (chunk_is_token(pc, CT_ASSIGN)) - { - // chunk is OK (default values) - break; - } - else if (chunk_is_token(pc, CT_ANGLE_OPEN)) - { - LOG_FMT(LFPARAM, " <== template\n"); - return(true); - } - else if (chunk_is_token(pc, CT_ELLIPSIS)) - { - LOG_FMT(LFPARAM, " <== elipses\n"); - return(true); - } - else if (word_count == 0 && chunk_is_token(pc, CT_PAREN_OPEN)) - { - // Check for old-school func proto param '(type)' - chunk_t *tmp1 = chunk_skip_to_match(pc, scope_e::PREPROC); - - if (tmp1 == nullptr) - { - return(false); - } - chunk_t *tmp2 = chunk_get_next_ncnl(tmp1, scope_e::PREPROC); - - if (tmp2 == nullptr) - { - return(false); - } - - if (chunk_is_token(tmp2, CT_COMMA) || chunk_is_paren_close(tmp2)) - { - do - { - pc = chunk_get_next_ncnl(pc, scope_e::PREPROC); - - if (pc == nullptr) - { - return(false); - } - LOG_FMT(LFPARAM, " [%s]", pc->text()); - } while (pc != tmp1); - - // reset some vars to allow [] after parens - word_count = 1; - type_count = 1; - } - else - { - LOG_FMT(LFPARAM, " <== [%s] not fcn type!\n", get_token_name(pc->type)); - return(false); - } - } - else if ( (word_count == 1 || (word_count == type_count)) - && chunk_is_token(pc, CT_PAREN_OPEN)) - { - // Check for func proto param 'void (*name)' or 'void (*name)(params)' or 'void (^name)(params)' - // <name> can be optional - chunk_t *tmp1 = chunk_get_next_ncnl(pc, scope_e::PREPROC); - - if (tmp1 == nullptr) - { - return(false); - } - chunk_t *tmp2 = chunk_get_next_ncnl(tmp1, scope_e::PREPROC); - - if (tmp2 == nullptr) - { - return(false); - } - chunk_t *tmp3 = (chunk_is_str(tmp2, ")", 1)) ? tmp2 : chunk_get_next_ncnl(tmp2, scope_e::PREPROC); - - if (tmp3 == nullptr) - { - return(false); - } - - if ( !chunk_is_str(tmp3, ")", 1) - || !(chunk_is_str(tmp1, "*", 1) || chunk_is_str(tmp1, "^", 1)) // Issue #2656 - || !(tmp2->type == CT_WORD || chunk_is_str(tmp2, ")", 1))) - { - LOG_FMT(LFPARAM, " <== [%s] not fcn type!\n", get_token_name(pc->type)); - return(false); - } - LOG_FMT(LFPARAM, " <skip fcn type>"); - tmp1 = chunk_get_next_ncnl(tmp3, scope_e::PREPROC); - - if (tmp1 == nullptr) - { - return(false); - } - - if (chunk_is_str(tmp1, "(", 1)) - { - tmp3 = chunk_skip_to_match(tmp1, scope_e::PREPROC); - } - pc = tmp3; - - // reset some vars to allow [] after parens - word_count = 1; - type_count = 1; - } - else if (chunk_is_token(pc, CT_TSQUARE)) - { - // ignore it - } - else if (word_count == 1 && chunk_is_token(pc, CT_SQUARE_OPEN)) - { - // skip over any array stuff - pc = chunk_skip_to_match(pc, scope_e::PREPROC); - } - else if (word_count == 2 && chunk_is_token(pc, CT_SQUARE_OPEN)) - { - // Bug #671: is it such as: bool foo[FOO_MAX] - pc = chunk_skip_to_match(pc, scope_e::PREPROC); - } - else if ( word_count == 1 - && language_is_set(LANG_CPP) - && chunk_is_str(pc, "&&", 2)) - { - // ignore possible 'move' operator - } - else - { - LOG_FMT(LFPARAM, " <== [%s] no way! tc=%d wc=%d\n", - get_token_name(pc->type), type_count, word_count); - return(false); - } - } - - chunk_t *last = chunk_get_prev_ncnlni(pc); // Issue #2279 - - if (chunk_is_ptr_operator(last)) - { - LOG_FMT(LFPARAM, " <== [%s] sure!\n", get_token_name(pc->type)); - return(true); - } - - if (word_count < 2 && type_count < 1 && start->brace_level > 0) - { - LOG_FMT(LFPARAM, " !MVP!"); - // Oh, joy, we are in Most Vexing Parse territory - auto const brace = - chunk_get_prev_type(start, CT_BRACE_OPEN, start->brace_level - 1); - - if (brace) - { - LOG_FMT(LFPARAM, " (matching %s brace at %zu:%zu)", - get_token_name(get_chunk_parent_type(brace)), - brace->orig_line, brace->orig_col); - } - - if ( brace - && ( get_chunk_parent_type(brace) == CT_CLASS - || get_chunk_parent_type(brace) == CT_STRUCT)) - { - // A Most Vexing Parse variable declaration cannot occur in the body - // of a struct/class, so we probably have a function prototype - LOG_FMT(LFPARAM, " <== [%s] Likely!\n", - (pc == nullptr ? "nullptr" : get_token_name(pc->type))); - return(true); - } - } - bool ret = ( word_count >= 2 - || (word_count == 1 && type_count == 1)); - - LOG_FMT(LFPARAM, " <== [%s] %s!\n", - (pc == nullptr ? "nullptr" : get_token_name(pc->type)), - ret ? "Yup" : "Unlikely"); - return(ret); -} // can_be_full_param - - -bool chunk_ends_type(chunk_t *start) -{ - LOG_FUNC_ENTRY(); - chunk_t *pc = start; - bool ret = false; - size_t cnt = 0; - bool last_expr = false; - bool last_lval = false; - - bool a = pc->flags.test(PCF_IN_FCN_CTOR); - - if (a) - { - return(false); - } - - for ( ; pc != nullptr; pc = chunk_get_prev_ncnlni(pc)) // Issue #2279 - { - LOG_FMT(LFTYPE, "%s(%d): type is %s, text() '%s', orig_line %zu, orig_col %zu\n ", - __func__, __LINE__, get_token_name(pc->type), pc->text(), - pc->orig_line, pc->orig_col); - log_pcf_flags(LFTYPE, pc->flags); - - if ( chunk_is_token(pc, CT_WORD) - || chunk_is_token(pc, CT_TYPE) - || chunk_is_token(pc, CT_PTR_TYPE) - || chunk_is_token(pc, CT_STAR) - || chunk_is_token(pc, CT_STRUCT) - || chunk_is_token(pc, CT_DC_MEMBER) - || chunk_is_token(pc, CT_PP) - || chunk_is_token(pc, CT_QUALIFIER) - || ( language_is_set(LANG_CPP | LANG_OC) // Issue #2727 - && get_chunk_parent_type(pc) == CT_TEMPLATE - && ( chunk_is_token(pc, CT_ANGLE_OPEN) - || chunk_is_token(pc, CT_ANGLE_CLOSE))) - || ( language_is_set(LANG_CS) - && (chunk_is_token(pc, CT_MEMBER)))) - { - cnt++; - last_expr = pc->flags.test(PCF_EXPR_START) - && !pc->flags.test(PCF_IN_FCN_CALL); - last_lval = pc->flags.test(PCF_LVALUE); - continue; - } - /* If a comma is encountered within a template, it must be - * considered within the context of its immediate parent - * template (i.e. argument list nest level) - */ - - if ( ( chunk_is_semicolon(pc) - && !pc->flags.test(PCF_IN_FOR)) - || chunk_is_token(pc, CT_TYPEDEF) - || chunk_is_token(pc, CT_BRACE_OPEN) - || chunk_is_token(pc, CT_BRACE_CLOSE) - || chunk_is_token(pc, CT_VBRACE_CLOSE) - || chunk_is_token(pc, CT_FPAREN_CLOSE) - || chunk_is_forin(pc) - || chunk_is_token(pc, CT_MACRO) - || chunk_is_token(pc, CT_PP_IF) - || chunk_is_token(pc, CT_PP_ELSE) - || chunk_is_token(pc, CT_PP_ENDIF) - || ( ( chunk_is_token(pc, CT_COMMA) - && !pc->flags.test(PCF_IN_FCN_CALL) - && get_cpp_template_angle_nest_level(start) == - get_cpp_template_angle_nest_level(pc)) - && last_expr) - || ( chunk_is_token(pc, CT_SPAREN_OPEN) - && last_lval)) - { - ret = cnt > 0; - } - break; - } - - if (pc == nullptr) - { - // first token - ret = true; - } - LOG_FMT(LFTYPE, "%s(%d): first token verdict: %s\n", - __func__, __LINE__, ret ? "yes" : "no"); - - return(ret); -} // chunk_ends_type - - -bool chunkstack_match(ChunkStack &cs, chunk_t *pc) -{ - for (size_t idx = 0; idx < cs.Len(); idx++) - { - chunk_t *tmp = cs.GetChunk(idx); - - if (pc->str.equals(tmp->str)) - { - return(true); - } - } - - return(false); -} // chunkstack_match - - -void flag_series(chunk_t *start, chunk_t *end, pcf_flags_t set_flags, pcf_flags_t clr_flags, scope_e nav) -{ - LOG_FUNC_ENTRY(); - - while (start != nullptr && start != end) - { - chunk_flags_upd(start, clr_flags, set_flags); - - start = chunk_get_next(start, nav); - - if (start == nullptr) - { - return; - } - } - - if (end != nullptr) - { - chunk_flags_upd(end, clr_flags, set_flags); - } -} // flag_series - - -size_t get_cpp_template_angle_nest_level(chunk_t *pc) -{ - LOG_FUNC_ENTRY(); - int nestLevel = 0; - - while (pc != nullptr && pc->flags.test(PCF_IN_TEMPLATE)) - { - if ( chunk_is_token(pc, CT_ANGLE_CLOSE) - && get_chunk_parent_type(pc) == CT_TEMPLATE) - { - --nestLevel; - } - else if ( chunk_is_token(pc, CT_ANGLE_OPEN) - && get_chunk_parent_type(pc) == CT_TEMPLATE) - { - ++nestLevel; - } - pc = chunk_get_prev_ncnlni(pc); - } - return(nestLevel <= 0 ? 0 : size_t(nestLevel)); -} - - -chunk_t *get_d_template_types(ChunkStack &cs, chunk_t *open_paren) -{ - LOG_FUNC_ENTRY(); - chunk_t *tmp = open_paren; - bool maybe_type = true; - - while ( ((tmp = chunk_get_next_ncnl(tmp)) != nullptr) - && tmp->level > open_paren->level) - { - if (chunk_is_token(tmp, CT_TYPE) || chunk_is_token(tmp, CT_WORD)) - { - if (maybe_type) - { - make_type(tmp); - cs.Push_Back(tmp); - } - maybe_type = false; - } - else if (chunk_is_token(tmp, CT_COMMA)) - { - maybe_type = true; - } - } - return(tmp); -} // get_d_template_types - - -bool go_on(chunk_t *pc, chunk_t *start) -{ - if (pc == nullptr || pc->level != start->level) - { - return(false); - } - - if (pc->flags.test(PCF_IN_FOR)) - { - return((!chunk_is_semicolon(pc)) && (!(chunk_is_token(pc, CT_COLON)))); - } - return(!chunk_is_semicolon(pc)); -} // go_on - - -bool is_ucase_str(const char *str, size_t len) -{ - while (len-- > 0) - { - if (unc_toupper(*str) != *str) - { - return(false); - } - str++; - } - return(true); -} // is_ucase_str - - -void make_type(chunk_t *pc) -{ - LOG_FUNC_ENTRY(); - - if (pc != nullptr) - { - if (chunk_is_token(pc, CT_WORD)) - { - set_chunk_type(pc, CT_TYPE); - } - else if ( ( chunk_is_star(pc) - || chunk_is_msref(pc) - || chunk_is_nullable(pc)) - && chunk_is_type(pc->prev)) // Issue # 2640 - { - set_chunk_type(pc, CT_PTR_TYPE); - } - else if ( chunk_is_addr(pc) - && !chunk_is_token(pc->prev, CT_SQUARE_OPEN)) // Issue # 2166 - { - set_chunk_type(pc, CT_BYREF); - } - } -} // make_type - - -chunk_t *set_paren_parent(chunk_t *start, c_token_t parent) -{ - LOG_FUNC_ENTRY(); - chunk_t *end; - - end = chunk_skip_to_match(start, scope_e::PREPROC); - - if (end != nullptr) - { - LOG_FMT(LFLPAREN, "%s(%d): %zu:%zu '%s' and %zu:%zu '%s' type is %s, parent_type is %s", - __func__, __LINE__, start->orig_line, start->orig_col, start->text(), - end->orig_line, end->orig_col, end->text(), - get_token_name(start->type), get_token_name(parent)); - log_func_stack_inline(LFLPAREN); - set_chunk_parent(start, parent); - set_chunk_parent(end, parent); - } - LOG_FMT(LFLPAREN, "%s(%d):\n", __func__, __LINE__); - return(chunk_get_next_ncnl(end, scope_e::PREPROC)); -} // set_paren_parent |