From ade25eeb5a1f76ac1b7b82c5d4f82dcaeedcc3e4 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Mon, 12 Feb 2024 01:57:31 -0500
Subject: [PATCH] Add __cord() method for structs

---
 compile.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/compile.c b/compile.c
index 843dba0..2b4c39e 100644
--- a/compile.c
+++ b/compile.c
@@ -272,6 +272,18 @@ CORD compile(ast_t *ast)
             CORD_sprintf(&code, "%r%r %s;\n", code, compile_type(field->type), field->name);
         }
         code = CORD_cat(code, "};\n");
+        CORD_sprintf(&code,
+                     "%rCORD %s__cord(%s_t *obj, void *userdata) {\n"
+                     "\tif (!obj) return \"%s\";\n"
+                     "\treturn CORD_asprintf(\"%s(", code, def->name, def->name, def->name, def->name);
+        for (arg_ast_t *field = def->fields; field; field = field->next) {
+            CORD_sprintf(&code, "%r%s=%%r", code, field->name);
+            if (field->next) code = CORD_cat(code, ", ");
+        }
+        code = CORD_cat(code, ")\"");
+        for (arg_ast_t *field = def->fields; field; field = field->next)
+            CORD_sprintf(&code, "%r, __cord(obj->%s)", code, field->name);
+        code = CORD_cat(code, ");\n}");
         return code;
     }
     case EnumDef: {