diff options
author | Michele Calgaro <michele.calgaro@yahoo.it> | 2024-11-18 22:24:33 +0900 |
---|---|---|
committer | Michele Calgaro <michele.calgaro@yahoo.it> | 2024-11-18 22:24:33 +0900 |
commit | 3b0c3b8206964b85bf3716c962d26dd15c4f285f (patch) | |
tree | 2f0973dbf96c2892d19a55b6f846f130e7399a48 /debian/uncrustify-trinity/uncrustify-trinity-0.78.1/src/unc_tools.cpp | |
parent | ff287d2f48d4f4253bf84f19bd7fe937b61ede45 (diff) | |
download | extra-dependencies-3b0c3b8206964b85bf3716c962d26dd15c4f285f.tar.gz extra-dependencies-3b0c3b8206964b85bf3716c962d26dd15c4f285f.zip |
It is no longer necessary to maintain a customize trinity version.
Upstream version can be used as is.
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
Diffstat (limited to 'debian/uncrustify-trinity/uncrustify-trinity-0.78.1/src/unc_tools.cpp')
-rw-r--r-- | debian/uncrustify-trinity/uncrustify-trinity-0.78.1/src/unc_tools.cpp | 722 |
1 files changed, 0 insertions, 722 deletions
diff --git a/debian/uncrustify-trinity/uncrustify-trinity-0.78.1/src/unc_tools.cpp b/debian/uncrustify-trinity/uncrustify-trinity-0.78.1/src/unc_tools.cpp deleted file mode 100644 index 0da2bdd3..00000000 --- a/debian/uncrustify-trinity/uncrustify-trinity-0.78.1/src/unc_tools.cpp +++ /dev/null @@ -1,722 +0,0 @@ -/** - * @file unc_tools.cpp - * This file contains lot of tools for debugging - * - * @author Guy Maurel - * October 2015- 2023 - * @license GPL v2+ - */ - -#include "unc_tools.h" - -#include "args.h" -#include "output.h" - -constexpr static auto LCURRENT = LGUY; - -/* - * the test suite Coveralls: https://coveralls.io - * will complains because these functions are only - * used at development time. - * Don't worry about unused lines for the functions: - * prot_the_line - * prot_the_source - * examine_Data - * dump_out - * dump_in - */ - -static size_t counter = 0; -static size_t tokenCounter; - - -/* protocol of the line - * examples: - * prot_the_line(__func__, __LINE__, pc->GetOrigLine(), 0); - * prot_the_line(__func__, __LINE__, 0, 0); - * prot_the_line(__func__, __LINE__, 6, 5); - * prot_the_source(__LINE__); - * log_pcf_flags(LSYS, pc->GetFlags()); - * - * if actual_line is zero, use the option debug_line_number_to_protocol. - * if the value is zero, don't make any protocol and return. - * - * if partNumber is zero, all the tokens of the line are shown, - * if partNumber is NOT zero, only the token with this partNumber is shown. - * - * prot_the_line_pc(pc_sub, __func__, __LINE__, 6, 5); - * to get a protocol of a sub branch, which begins with pc_sub - */ -void prot_the_line(const char *func_name, int theLine, unsigned int actual_line, size_t partNumber) -{ - prot_the_line_pc(Chunk::GetHead(), func_name, theLine, actual_line, partNumber); -} - - -void prot_the_line_pc(Chunk *pc_sub, const char *func_name, int theLine, unsigned int actual_line, size_t partNumber) -{ - if (actual_line == 0) - { - // use the option debug_line_number_to_protocol. - actual_line = options::debug_line_number_to_protocol(); - - if (actual_line == 0) - { - // don't make any protocol. - return; - } - } - counter++; - tokenCounter = 0; - LOG_FMT(LGUY, "Prot_the_line:(%s:%d)(%zu)\n", func_name, theLine, counter); - - for (Chunk *pc = pc_sub; pc->IsNotNullChunk(); pc = pc->GetNext()) - { - if (pc->GetOrigLine() == actual_line) - { - tokenCounter++; - - if ( partNumber == 0 - || partNumber == tokenCounter) - { - LOG_FMT(LGUY, " orig line is %d, (%zu) ", actual_line, tokenCounter); - - if (pc->Is(CT_VBRACE_OPEN)) - { - LOG_FMT(LGUY, "<VBRACE_OPEN>, "); - } - else if (pc->Is(CT_NEWLINE)) - { - LOG_FMT(LGUY, "<NL>(new line count is %zu), ", pc->GetNlCount()); - } - else if (pc->Is(CT_VBRACE_CLOSE)) - { - LOG_FMT(LGUY, "<CT_VBRACE_CLOSE>, "); - } - else if (pc->Is(CT_VBRACE_OPEN)) - { - LOG_FMT(LGUY, "<CT_VBRACE_OPEN>, "); - } - else if (pc->Is(CT_SPACE)) - { - LOG_FMT(LGUY, "<CT_SPACE>, "); - } - else if (pc->Is(CT_IGNORED)) - { - LOG_FMT(LGUY, "<IGNORED> "); - } - else - { - LOG_FMT(LGUY, "Text() '%s', ", pc->Text()); - } - LOG_FMT(LGUY, " column is %zu, pp level is %zu, type is %s, parent type is %s, orig col is %zu,", - pc->GetColumn(), pc->GetPpLevel(), get_token_name(pc->GetType()), - get_token_name(pc->GetParentType()), pc->GetOrigCol()); - - if (pc->Is(CT_IGNORED)) - { - LOG_FMT(LGUY, "\n"); - } - else - { - LOG_FMT(LGUY, " pc->GetFlags(): "); - log_pcf_flags(LGUY, pc->GetFlags()); - } - - if (pc->Is(CT_COND_COLON)) - { - Chunk *pa = pc->GetParent(); - LOG_FMT(LGUY, "<> pa-type is %s, orig_line is %zu\n", get_token_name(pa->GetType()), pa->GetOrigLine()); - } - - if (pc->GetTrackingData() != nullptr) - { - LOG_FMT(LGUY, " Tracking info are: \n"); - LOG_FMT(LGUY, " number of track(s) %zu\n", pc->GetTrackingData()->size()); - - for (size_t track = 0; track < pc->GetTrackingData()->size(); track++) - { - const TrackList *A = pc->GetTrackingData(); - const TrackNumber B = A->at(track); - size_t Bfirst = B.first; - char *Bsecond = B.second; - - LOG_FMT(LGUY, " %zu, tracking number is %zu\n", track, Bfirst); - LOG_FMT(LGUY, " %zu, rule is %s\n", track, Bsecond); - } - } - } - } - } - - LOG_FMT(LGUY, "\n"); -} // prot_the_line_pc - - -void prot_the_columns(int theLine, unsigned int actual_line) -{ - if (actual_line == 0) - { - // use the option debug_line_number_to_protocol. - actual_line = options::debug_line_number_to_protocol(); - - if (actual_line == 0) - { - // don't make any protocol. - return; - } - } - counter++; - LOG_FMT(LGUY, "%4d:", theLine); - - for (Chunk *pc = Chunk::GetHead(); pc->IsNotNullChunk(); pc = pc->GetNext()) - { - if (pc->GetOrigLine() == actual_line) - { - LOG_FMT(LGUY, "%4zu,", - pc->GetColumn()); - } - } - - LOG_FMT(LGUY, " (%2zu)\n", counter); -} // prot_the_columns - - -void prot_the_OrigCols(int theLine, unsigned int actual_line) -{ - if (actual_line == 0) - { - // use the option debug_line_number_to_protocol. - actual_line = options::debug_line_number_to_protocol(); - - if (actual_line == 0) - { - // don't make any protocol. - return; - } - } - counter++; - LOG_FMT(LGUY, "%4d:", theLine); - - for (Chunk *pc = Chunk::GetHead(); pc->IsNotNullChunk(); pc = pc->GetNext()) - { - if (pc->GetOrigLine() == actual_line) - { - LOG_FMT(LGUY, "%4zu,", - pc->GetOrigCol()); - } - } - - LOG_FMT(LGUY, " (%2zu)\n", counter); -} // prot_the_OrigCols - - -void rebuild_the_line(int theLine, unsigned int actual_line, bool increment) -{ -#define MANY 1000 - - if (actual_line == 0) - { - // use the option debug_line_number_to_protocol. - actual_line = options::debug_line_number_to_protocol(); - - if (actual_line == 0) - { - // don't make any protocol. - return; - } - } - char rebuildLine[MANY]; - char virtualLine[MANY]; - - // fill the array - for (size_t where = 0; where < MANY; where++) - { - rebuildLine[where] = ' '; - virtualLine[where] = '_'; - } - - rebuildLine[MANY - 1] = '\0'; - virtualLine[MANY - 1] = '\0'; - LOG_FMT(LGUY, "%4d:", theLine); - - size_t len0 = 0; - bool has_a_virtual_brace; - has_a_virtual_brace = false; - - for (Chunk *pc = Chunk::GetHead(); pc->IsNotNullChunk(); pc = pc->GetNext()) - { - if (pc->GetOrigLine() == actual_line) - { - if (pc->Is(CT_NEWLINE)) - { - size_t col = pc->GetColumn(); - size_t len1 = pc->Len(); - len0 = col + len1 - 1; - rebuildLine[len0] = '\0'; - virtualLine[len0] = '\0'; - break; - } - else if ( pc->Is(CT_VBRACE_OPEN) - || pc->Is(CT_VBRACE_CLOSE)) - { - has_a_virtual_brace = true; - size_t col = pc->GetOrigCol(); - virtualLine[col - 1] = 'V'; - } - else - { - size_t col = pc->GetColumn(); - size_t len1 = pc->Len(); - const char *A = pc->Text(); - - for (size_t x = 0; x < len1; x++) - { - char B = A[x]; - - if (col + x >= MANY) - { - LOG_FMT(LGUY, " ***** MANY is too little for this line %d\n", theLine); - exit(EX_SOFTWARE); - } - rebuildLine[col + x - 1] = B; - } - } - } - } - - if (increment) - { - counter++; - } - LOG_FMT(LGUY, "%s , counter is %zu\n", rebuildLine, counter); - - if (has_a_virtual_brace) - { - LOG_FMT(LGUY, "VIRT:%s\n", virtualLine); - } -} // rebuild_the_line - - -void prot_all_lines(const char *func_name, int theLine) -{ - counter++; - tokenCounter = 0; - size_t lineNumber = 1; - - LOG_FMT(LGUY, "Prot_all_lines:(%s:%d)(%zu)\n", func_name, theLine, counter); - - for (Chunk *pc = Chunk::GetHead(); pc->IsNotNullChunk(); pc = pc->GetNext()) - { - tokenCounter++; - - LOG_FMT(LGUY, " orig line is %zu,%zu, pp level is %zu, ", lineNumber, tokenCounter, pc->GetPpLevel()); - - if (pc->Is(CT_VBRACE_OPEN)) - { - LOG_FMT(LGUY, "<VBRACE_OPEN>, "); - } - else if (pc->Is(CT_NEWLINE)) - { - LOG_FMT(LGUY, "<NL>(new line count is %zu), ", pc->GetNlCount()); - tokenCounter = 0; - lineNumber = lineNumber + pc->GetNlCount(); - } - else if (pc->Is(CT_VBRACE_CLOSE)) - { - LOG_FMT(LGUY, "<CT_VBRACE_CLOSE>, "); - } - else if (pc->Is(CT_VBRACE_OPEN)) - { - LOG_FMT(LGUY, "<CT_VBRACE_OPEN>, "); - } - else if (pc->Is(CT_SPACE)) - { - LOG_FMT(LGUY, "<CT_SPACE>, "); - } - else if (pc->Is(CT_IGNORED)) - { - LOG_FMT(LGUY, "<IGNORED> "); - } - else - { - LOG_FMT(LGUY, "Text() '%s', ", pc->Text()); - } - LOG_FMT(LGUY, " column is %zu, type is %s\n", - pc->GetColumn(), get_token_name(pc->GetType())); - } -} // prot_all_lines - - -void prot_the_source(int theLine) -{ - counter++; - LOG_FMT(LGUY, "Prot_the_source:(%d)(%zu)\n", theLine, counter); - output_text(stderr); -} - - -// examples: -// examine_Data(__func__, __LINE__, n); -void examine_Data(const char *func_name, int theLine, int what) -{ - LOG_FMT(LGUY, "\n%s:", func_name); - - Chunk *pc; - - switch (what) - { - case 1: - - for (pc = Chunk::GetHead(); pc->IsNotNullChunk(); pc = pc->GetNext()) - { - if ( pc->Is(CT_SQUARE_CLOSE) - || pc->Is(CT_TSQUARE)) - { - LOG_FMT(LGUY, "\n"); - LOG_FMT(LGUY, "1:(%d),", theLine); - LOG_FMT(LGUY, "%s, orig col=%zu, orig col end=%zu\n", pc->Text(), pc->GetOrigCol(), pc->GetOrigColEnd()); - } - } - - break; - - case 2: - LOG_FMT(LGUY, "2:(%d)\n", theLine); - - for (pc = Chunk::GetHead(); pc->IsNotNullChunk(); pc = pc->GetNext()) - { - if (pc->GetOrigLine() == 7) - { - if (pc->Is(CT_NEWLINE)) - { - LOG_FMT(LGUY, "(%zu)<NL> col=%zu\n\n", pc->GetOrigLine(), pc->GetOrigCol()); - } - else - { - LOG_FMT(LGUY, "(%zu)%s %s, col=%zu, column=%zu\n", pc->GetOrigLine(), pc->Text(), get_token_name(pc->GetType()), pc->GetOrigCol(), pc->GetColumn()); - } - } - } - - break; - - case 3: - LOG_FMT(LGUY, "3:(%d)\n", theLine); - - for (pc = Chunk::GetHead(); pc->IsNotNullChunk(); pc = pc->GetNext()) - { - if (pc->Is(CT_NEWLINE)) - { - LOG_FMT(LGUY, "(%zu)<NL> col=%zu\n\n", pc->GetOrigLine(), pc->GetOrigCol()); - } - else - { - LOG_FMT(LGUY, "(%zu)%s %s, col=%zu, column=%zu\n", pc->GetOrigLine(), pc->Text(), get_token_name(pc->GetType()), pc->GetOrigCol(), pc->GetColumn()); - } - } - - break; - - case 4: - LOG_FMT(LGUY, "4:(%d)\n", theLine); - - for (pc = Chunk::GetHead(); pc->IsNotNullChunk(); pc = pc->GetNext()) - { - if (pc->GetOrigLine() == 6) - { - if (pc->Is(CT_NEWLINE)) - { - LOG_FMT(LGUY, "(%zu)<NL> col=%zu\n\n", pc->GetOrigLine(), pc->GetOrigCol()); - } - else - { - LOG_FMT(LGUY, "(%zu)%s %s, col=%zu, column=%zu\n", pc->GetOrigLine(), pc->Text(), get_token_name(pc->GetType()), pc->GetOrigCol(), pc->GetColumn()); - } - } - } - - break; - - default: - break; - } // switch -} // examine_Data - - -void dump_out(unsigned int type) -{ - char dumpFileName[300]; - - if (cpd.dumped_file == nullptr) - { - sprintf(dumpFileName, "%s.%u", cpd.filename.c_str(), type); - } - else - { - sprintf(dumpFileName, "%s.%u", cpd.dumped_file, type); - } - FILE *D_file = fopen(dumpFileName, "w"); - - if (D_file != nullptr) - { - for (Chunk *pc = Chunk::GetHead(); pc->IsNotNullChunk(); pc = pc->GetNext()) - { - fprintf(D_file, "[%p]\n", pc); - fprintf(D_file, " type %s\n", get_token_name(pc->GetType())); - fprintf(D_file, " orig line %zu\n", pc->GetOrigLine()); - fprintf(D_file, " orig col %zu\n", pc->GetOrigCol()); - fprintf(D_file, " orig col end %zu\n", pc->GetOrigColEnd()); - - if (pc->GetOrigPrevSp() != 0) - { - fprintf(D_file, " orig prev sp %zu\n", pc->GetOrigPrevSp()); - } - - if (pc->GetColumn() != 0) - { - fprintf(D_file, " column %zu\n", pc->GetColumn()); - } - - if (pc->GetColumnIndent() != 0) - { - fprintf(D_file, " column indent %zu\n", pc->GetColumnIndent()); - } - - if (pc->GetNlCount() != 0) - { - fprintf(D_file, " nl_count %zu\n", pc->GetNlCount()); - } - - if (pc->GetLevel() != 0) - { - fprintf(D_file, " level %zu\n", pc->GetLevel()); - } - - if (pc->GetBraceLevel() != 0) - { - fprintf(D_file, " brace level %zu\n", pc->GetBraceLevel()); - } - - if (pc->GetPpLevel() != 0) - { - fprintf(D_file, " pp level %zu\n", pc->GetPpLevel()); - } - - if (pc->GetAfterTab() != 0) - { - fprintf(D_file, " after tab %d\n", pc->GetAfterTab()); - } - - if (pc->IsNot(CT_NEWLINE)) - { - fprintf(D_file, " Text %s\n", pc->Text()); - } - } - - fclose(D_file); - } -} // dump_out - - -void dump_in(unsigned int type) -{ - char buffer[256]; - bool aNewChunkIsFound = false; - Chunk chunk; - char dumpFileName[300]; - - if (cpd.dumped_file == nullptr) - { - sprintf(dumpFileName, "%s.%u", cpd.filename.c_str(), type); - } - else - { - sprintf(dumpFileName, "%s.%u", cpd.dumped_file, type); - } - FILE *D_file = fopen(dumpFileName, "r"); - - if (D_file != nullptr) - { - unsigned int lineNumber = 0; - - while (fgets(buffer, sizeof(buffer), D_file) != nullptr) - { - ++lineNumber; - - if (aNewChunkIsFound) - { - // look for the next chunk - char first = buffer[0]; - - if (first == '[') - { - aNewChunkIsFound = false; - // add the chunk in the list - chunk.CopyAndAddBefore(Chunk::NullChunkPtr); - chunk.Reset(); - aNewChunkIsFound = true; - continue; - } - // the line as the form - // part value - // Split the line - const int max_parts_count = 3; - char *parts[max_parts_count]; - int parts_count = Args::SplitLine(buffer, parts, max_parts_count - 1); - - if (parts_count != 2) - { - exit(EX_SOFTWARE); - } - - if (strcasecmp(parts[0], "type") == 0) - { - E_Token tokenName = find_token_name(parts[1]); - chunk.SetType(tokenName); - } - else if (strcasecmp(parts[0], "orig line") == 0) - { - chunk.SetOrigLine(strtol(parts[1], nullptr, 0)); - } - else if (strcasecmp(parts[0], "orig col") == 0) - { - chunk.SetOrigCol(strtol(parts[1], nullptr, 0)); - } - else if (strcasecmp(parts[0], "orig col end") == 0) - { - chunk.SetOrigColEnd(strtol(parts[1], nullptr, 0)); - } - else if (strcasecmp(parts[0], "orig prev sp") == 0) - { - chunk.SetOrigPrevSp(strtol(parts[1], nullptr, 0)); - } - else if (strcasecmp(parts[0], "column") == 0) - { - chunk.SetColumn(strtol(parts[1], nullptr, 0)); - } - else if (strcasecmp(parts[0], "nl_count") == 0) - { - chunk.SetNlCount(strtol(parts[1], nullptr, 0)); - } - else if (strcasecmp(parts[0], "text") == 0) - { - if (chunk.GetType() != CT_NEWLINE) - { - chunk.Str() = parts[1]; - } - } - else - { - fprintf(stderr, "on line=%d, for '%s'\n", lineNumber, parts[0]); - log_flush(true); - exit(EX_SOFTWARE); - } - } - else - { - // look for a new chunk - char first = buffer[0]; - - if (first == '[') - { - aNewChunkIsFound = true; - chunk.Reset(); - } - } - } - // add the last chunk in the list - chunk.CopyAndAddBefore(Chunk::NullChunkPtr); - fclose(D_file); - } - else - { - fprintf(stderr, "FATAL: file not found '%s'\n", dumpFileName); - log_flush(true); - exit(EX_SOFTWARE); - } -} // dump_in - - -size_t number = 0; - - -size_t get_A_Number() -{ - number = number + 1; - return(number); -} - - -void dump_keyword_for_lang(size_t language_count, chunk_tag_t *keyword_for_lang) -{ - LOG_FMT(LDYNKW, "%s: tag type flags\n", __func__); - - for (size_t ii = 0; ii < language_count; ii++) - { - std::bitset<16> bit_a; - bit_a = keyword_for_lang[ii].lang_flags; - std::string g_a; - g_a = bit_a.to_string(); - LOG_FMT(LDYNKW, "%s: %3zu: %18s, %14s, %12ld, %16s, %s\n", - __func__, ii, - keyword_for_lang[ii].tag, get_token_name(keyword_for_lang[ii].type), - (long)keyword_for_lang[ii].lang_flags, - g_a.data(), - language_name_from_flags(keyword_for_lang[ii].lang_flags)); - } -} - - -void dump_step(const char *filename, const char *step_description) -{ - static int file_num = 0; - char buffer[256]; - FILE *dump_file; - - if ( filename == nullptr - || strlen(filename) == 0) - { - return; - } - - // On the first call, also save the options in use - if (file_num == 0) - { - snprintf(buffer, 256, "New dump file: %s_%03d.log - Options in use", filename, file_num); - log_rule_B(buffer); - - snprintf(buffer, 256, "%s_%03d.log", filename, file_num); - ++file_num; - - dump_file = fopen(buffer, "wb"); - - if (dump_file != nullptr) - { - save_option_file(dump_file, false, true); - fclose(dump_file); - } - } - snprintf(buffer, 256, "New dump file: %s_%03d.log - %s", filename, file_num, step_description); - log_rule_B(buffer); - - snprintf(buffer, 256, "%s_%03d.log", filename, file_num); - ++file_num; - - dump_file = fopen(buffer, "wb"); - - if (dump_file != nullptr) - { - fprintf(dump_file, "STEP: %s\n--------------\n", step_description); - output_parsed(dump_file, false); - fclose(dump_file); - } -} // dump_step - -char dump_file_name[80]; - - -void set_dump_file_name(const char *name) -{ - sprintf(dump_file_name, "%s", name); -} |