Add spidir_funcref_is_* utilities to C API

Author: nmraz

c-api-tests/cases/call.c

@@ -38,6 +38,13 @@ void caller_builder_callback(spidir_builder_handle_t builder, void* ctx) {
 
     spidir_value_t args[] = {ptr, ival};
 
+    ASSERT(spidir_funcref_get_kind(func_ctx->extfunc) ==
+           SPIDIR_FUNCREF_EXTERNAL);
+    ASSERT(spidir_funcref_is_external(func_ctx->extfunc));
+    ASSERT(spidir_funcref_get_kind(func_ctx->infunc) ==
+           SPIDIR_FUNCREF_INTERNAL);
+    ASSERT(spidir_funcref_is_internal(func_ctx->infunc));
+
     spidir_builder_build_call(builder, func_ctx->extfunc, 2, args);
     spidir_value_t ext_ret =
         spidir_builder_build_call(builder, func_ctx->extfunc2, 2, args);

c-api/include/spidir/module.h

@@ -236,6 +236,22 @@ spidir_funcref_get_kind(spidir_funcref_t func) {
     return func.id >> 32;
 }
 
+/// Queries whether a function reference points to an internal function.
+///
+/// @param[in] func The reference to query.
+/// @return True if `func` refers to an internal function.
+static inline bool spidir_funcref_is_internal(spidir_funcref_t func) {
+    return spidir_funcref_get_kind(func) == SPIDIR_FUNCREF_INTERNAL;
+}
+
+/// Queries whether a function reference points to an external function.
+///
+/// @param[in] func The reference to query.
+/// @return True if `func` refers to an external function.
+static inline bool spidir_funcref_is_external(spidir_funcref_t func) {
+    return spidir_funcref_get_kind(func) == SPIDIR_FUNCREF_EXTERNAL;
+}
+
 /// Returns the module-internal function pointed to by a reference previously
 /// created with `spidir_funcref_make_internal`.
 ///