49 lines
1.8 KiB
C
49 lines
1.8 KiB
C
#include "spl_intrin.h"
|
|
|
|
static const spl_intrin_info_t g_intrin_table[] = {
|
|
[SPL_INTRIN_NONE] = {0},
|
|
[SPL_INTRIN_SIZEOF] = {"@sizeof", SPL_INTRIN_SIZEOF, SPL_INTRIN_FORM_CALL, 1, 1,
|
|
SPL_INTRIN_RESULT_USIZE},
|
|
[SPL_INTRIN_ALIGNOF] = {"@alignof", SPL_INTRIN_ALIGNOF, SPL_INTRIN_FORM_CALL, 1, 1,
|
|
SPL_INTRIN_RESULT_USIZE},
|
|
[SPL_INTRIN_ASSERT] = {"@assert", SPL_INTRIN_ASSERT, SPL_INTRIN_FORM_CALL, 1, 2,
|
|
SPL_INTRIN_RESULT_UNIT},
|
|
[SPL_INTRIN_BREAKPOINT] = {"@breakpoint", SPL_INTRIN_BREAKPOINT, SPL_INTRIN_FORM_CALL, 0, 0,
|
|
SPL_INTRIN_RESULT_UNIT},
|
|
[SPL_INTRIN_LEN] = {"len", SPL_INTRIN_LEN, SPL_INTRIN_FORM_FIELD, 0, 0,
|
|
SPL_INTRIN_RESULT_USIZE},
|
|
};
|
|
|
|
static const usize g_intrin_count = sizeof(g_intrin_table) / sizeof(g_intrin_table[0]);
|
|
|
|
const spl_intrin_info_t *spl_intrin_info(spl_intrin_t kind) {
|
|
if ((usize)kind >= g_intrin_count)
|
|
return NULL;
|
|
return &g_intrin_table[kind];
|
|
}
|
|
|
|
spl_intrin_t spl_intrin_lookup_call(const char *name) {
|
|
if (!name)
|
|
return SPL_INTRIN_NONE;
|
|
const char *n = name[0] == '@' ? name + 1 : name;
|
|
for (usize i = 1; i < g_intrin_count; ++i) {
|
|
const spl_intrin_info_t *d = &g_intrin_table[i];
|
|
if (d->form != SPL_INTRIN_FORM_CALL)
|
|
continue;
|
|
const char *dn = d->name[0] == '@' ? d->name + 1 : d->name;
|
|
if (strcmp(dn, n) == 0)
|
|
return d->kind;
|
|
}
|
|
return SPL_INTRIN_NONE;
|
|
}
|
|
|
|
spl_intrin_t spl_intrin_lookup_field(spl_lang_type_kind_t recv_kind, const char *field) {
|
|
if (!field)
|
|
return SPL_INTRIN_NONE;
|
|
if (strcmp(field, "len") == 0) {
|
|
if (recv_kind == SPL_LANG_TYPE_ARRAY || recv_kind == SPL_LANG_TYPE_SLICE)
|
|
return SPL_INTRIN_LEN;
|
|
}
|
|
return SPL_INTRIN_NONE;
|
|
}
|