uCBQN/src/nfns.h
2023-04-29 15:31:31 +03:00

38 lines
843 B
C

#pragma once
#include "core.h"
typedef struct NFnDesc NFnDesc;
typedef struct NFn { // native function
struct Fun;
u32 id; // index in nfn_list
// custom fields:
i32 data;
B obj;
} NFn;
struct NFnDesc {
struct Value;
u32 id;
B name;
FC1 c1;
FC2 c2;
};
NFnDesc* registerNFn(B name, FC1 c1, FC2 c2); // should be called a constant number of times; consumes name
B m_nfn(NFnDesc* desc, B obj); // consumes obj
B nfn_name(B x); // doesn't consume
static void nfn_lateInit(NFn* fn, NFnDesc* desc) {
fn->id = desc->id;
}
static B nfn_objU(B t) {
assert(isVal(t) && TY(t) == t_nfn);
return c(NFn,t)->obj;
}
static i32 nfn_data(B t) {
assert(isVal(t) && TY(t) == t_nfn);
return c(NFn,t)->data;
}
static B nfn_swapObj(B t, B n) { // consumes n, returns old value
B p = c(NFn,t)->obj;
c(NFn,t)->obj = n;
return p;
}