From 51c346bbc5f6c5179b56b09b75eec466acbe7ad7 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Fri, 13 Sep 2024 19:59:28 -0400
Subject: Code cleanup

---
 builtins/functiontype.c | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 builtins/functiontype.c

(limited to 'builtins/functiontype.c')

diff --git a/builtins/functiontype.c b/builtins/functiontype.c
new file mode 100644
index 00000000..c376ba26
--- /dev/null
+++ b/builtins/functiontype.c
@@ -0,0 +1,35 @@
+// Logic for handling function type values
+
+#include "datatypes.h"
+#include "table.h"
+#include "text.h"
+#include "types.h"
+#include "util.h"
+
+static Table_t function_names = {};
+
+public void register_function(void *fn, Text_t name)
+{
+    Table$set(&function_names, &fn, &name, Table$info(Function$info("???"), &Text$info));
+}
+
+public Text_t *get_function_name(void *fn)
+{
+    return Table$get(function_names, &fn, Table$info(Function$info("???"), &Text$info));
+}
+
+public Text_t Func$as_text(const void *fn, bool colorize, const TypeInfo *type)
+{
+    (void)fn;
+    Text_t text = Text$from_str(type->FunctionInfo.type_str);
+    if (fn) {
+        Text_t *name = get_function_name(*(void**)fn);
+        if (name)
+            text = *name;
+    }
+    if (fn && colorize)
+        text = Text$concat(Text("\x1b[32;1m"), text, Text("\x1b[m"));
+    return text;
+}
+
+// vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0
-- 
cgit v1.2.3