44 lines
1.0 KiB
C
44 lines
1.0 KiB
C
// Logic for handling function type values
|
|
|
|
#include <stdbool.h>
|
|
|
|
#include "datatypes.h"
|
|
#include "functiontype.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));
|
|
}
|
|
|
|
PUREFUNC 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_t *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;
|
|
}
|
|
|
|
public PUREFUNC bool Func$is_none(const void *obj, const TypeInfo_t*)
|
|
{
|
|
return *(void**)obj == NULL;
|
|
}
|
|
|
|
// vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0
|