From cedae3039c8d67568b5ac35833c10cbfc1c7cb23 Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Thu, 3 Apr 2025 15:01:23 -0400 Subject: Fix textual representation of table types --- src/ast.c | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'src/ast.c') diff --git a/src/ast.c b/src/ast.c index 75795d61..84d25db0 100644 --- a/src/ast.c +++ b/src/ast.c @@ -171,11 +171,21 @@ CORD ast_to_xml(ast_t *ast) } } -const char *ast_to_str(ast_t *ast) +const char *ast_to_xml_str(ast_t *ast) { return CORD_to_const_char_star(ast_to_xml(ast)); } +const char *ast_source(ast_t *ast) +{ + if (!ast) return NULL; + size_t len = (size_t)(ast->end - ast->start); + char *source = GC_MALLOC_ATOMIC(len + 1); + memcpy(source, ast->start, len); + source[len] = '\0'; + return source; +} + CORD type_ast_to_xml(type_ast_t *t) { if (!t) return "NULL"; -- cgit v1.2.3