procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add debugging function for treesit.c

Browse source 
* src/treesit.c (treesit_debug_print_parser_list): New function.
This commit is contained in:
Yuan Fu 2024-09-08 17:30:21 -07:00
parent 0fd259d166
commit 3fcec09f75
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
1 changed files with 47 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
src/treesit.c
View file

@ -484,6 +484,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 */