emacs-30 3fcec09f754 2/4: Add debugging function for treesit.c

[Yuan Fu]

branch: emacs-30
commit 3fcec09f754af9822339eff3ea15d43eb7d19014
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>

    Add debugging function for treesit.c
    
    * src/treesit.c (treesit_debug_print_parser_list): New function.
---
 src/treesit.c | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

diff --git a/src/treesit.c b/src/treesit.c
index 6e806039df0..351bd65819a 100644
--- a/src/treesit.c
+++ b/src/treesit.c
@@ -485,6 +485,53 @@ treesit_initialize (void)
 }
 
 
+/*** Debugging */
+
+void treesit_debug_print_parser_list (char *msg, Lisp_Object parser)
+{
+  struct buffer *buf = XBUFFER (XTS_PARSER (parser)->buffer);
+  char *buf_name = SSDATA (BVAR (buf, name));
+  printf ("%s (%s) [%s] <%s>: %ld(%ld)-(%ld)%ld {\n",
+         msg == NULL ? "" : msg,
+         SSDATA (SYMBOL_NAME (Vthis_command)),
+         SSDATA (SYMBOL_NAME (XTS_PARSER (parser)->language_symbol)),
+         buf_name, BUF_BEG (buf),
+         BUF_BEGV (buf), BUF_Z (buf), BUF_ZV (buf));
+  Lisp_Object tail = BVAR (buf, ts_parser_list);
+
+  FOR_EACH_TAIL (tail)
+    {
+      struct Lisp_TS_Parser *parser = XTS_PARSER (XCAR (tail));
+      printf ("[%s %s %s %ld-%ld T:%ld]\n", SSDATA (SYMBOL_NAME 
(parser->language_symbol)),
+             SSDATA (SYMBOL_NAME (parser->tag)),
+             parser->need_reparse ? "NEED-R" : "NONEED",
+             parser->visible_beg, parser->visible_end,
+             parser->timestamp);
+      /* Print ranges. */
+      uint32_t len;
+      const TSRange *ranges
+       = ts_parser_included_ranges (parser->parser, &len);
+
+      if (!(len == 1 && ranges[0].start_byte == 0 && ranges[0].end_byte == -1))
+       {
+         for (int idx = 0; idx < len; idx++)
+           {
+             TSRange range = ranges[idx];
+             printf (" [%d, %d)", range.start_byte, range.end_byte);
+
+             /* if (!parser->need_reparse) */
+             /*        { */
+             /*          eassert (BUF_BEGV_BYTE (buf) <= range.start_byte + 
parser->visible_beg); */
+             /*          eassert (range.end_byte + parser->visible_beg <= 
BUF_ZV_BYTE (buf)); */
+             /*        } */
+           }
+         printf ("\n");
+       }
+    }
+  printf ("}\n\n");
+}
+
+
 /*** Loading language library  */
 
 /* Translate a symbol treesit-<lang> to a C name treesit_<lang>.  */