From c455e7b67d2e55e6ed03e3449203d4e307f5a7dd Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Fri, 13 Sep 2024 20:18:08 -0400
Subject: Rename builtins/ -> stdlib/

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

(limited to 'stdlib/functiontype.c')

diff --git a/stdlib/functiontype.c b/stdlib/functiontype.c
new file mode 100644
index 00000000..251a01ed
--- /dev/null
+++ b/stdlib/functiontype.c
@@ -0,0 +1,35 @@
+// Logic for handling function type values
+
+#include "datatypes.h"
+#include "tables.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