From d08f795794b33a5d52e39c6b9f0c4e6e88fede3d Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Tue, 13 Aug 2024 01:30:25 -0400
Subject: Partially working first draft of bigints

---
 ast.c | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'ast.c')

diff --git a/ast.c b/ast.c
index 2e9afaed..69991e4c 100644
--- a/ast.c
+++ b/ast.c
@@ -5,6 +5,7 @@
 #include <printf.h>
 
 #include "ast.h"
+#include "builtins/integers.h"
 #include "builtins/text.h"
 
 static const char *OP_NAMES[] = {
@@ -34,9 +35,9 @@ static CORD optional_tagged_type(const char *tag, type_ast_t *ast);
 
 CORD xml_escape(CORD text)
 {
-    text = Text$replace(text, "&", "&amp;", INT64_MAX);
-    text = Text$replace(text, "<", "&lt;", INT64_MAX);
-    text = Text$replace(text, ">", "&gt;", INT64_MAX);
+    text = Text$replace(text, "&", "&amp;", I(-1));
+    text = Text$replace(text, "<", "&lt;", I(-1));
+    text = Text$replace(text, ">", "&gt;", I(-1));
     return text;
 }
 
@@ -98,7 +99,7 @@ CORD ast_to_xml(ast_t *ast)
     T(Nil, "<Nil>%r</Nil>", type_ast_to_xml(data.type))
     T(Bool, "<Bool value=\"%s\" />", data.b ? "yes" : "no")
     T(Var, "<Var>%s</Var>", data.name)
-    T(Int, "<Int bits=\"%ld\">%ld</Int>", data.bits, data.i)
+    T(Int, "<Int bits=\"%ld\">%s</Int>", data.bits, data.str)
     T(Num, "<Num bits=\"%ld\">%g</Num>", data.bits, data.n)
     T(TextLiteral, "%r", xml_escape(data.cord))
     T(TextJoin, "<Text%r>%r</Text>", data.lang ? CORD_all(" lang=\"", data.lang, "\"") : CORD_EMPTY, ast_list_to_xml(data.children))
-- 
cgit v1.2.3