summaryrefslogtreecommitdiffstats
path: root/debian/uncrustify-trinity/uncrustify-trinity-0.78.1/src/unc_tools.cpp
diff options
context:
space:
mode:
authorMichele Calgaro <michele.calgaro@yahoo.it>2024-11-18 22:24:33 +0900
committerMichele Calgaro <michele.calgaro@yahoo.it>2024-11-18 22:24:33 +0900
commit3b0c3b8206964b85bf3716c962d26dd15c4f285f (patch)
tree2f0973dbf96c2892d19a55b6f846f130e7399a48 /debian/uncrustify-trinity/uncrustify-trinity-0.78.1/src/unc_tools.cpp
parentff287d2f48d4f4253bf84f19bd7fe937b61ede45 (diff)
downloadextra-dependencies-3b0c3b8206964b85bf3716c962d26dd15c4f285f.tar.gz
extra-dependencies-3b0c3b8206964b85bf3716c962d26dd15c4f285f.zip
Remove uncrustify-trinity.HEADmaster
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.cpp722
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);
-}