abi.h File Reference

#include "serene/rt/core.h"

Include dependency graph for abi.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Typedefs
typedef srn_value_t *(*	srn_cprim_fn_t) (srn_context_t *, srn_value_t *, uint32_t)
	Call a C-ABI primitive from Serene (argv shape is uniform):

Functions
srn_value_t *	srn_apply_c (srn_context_t *ctx, srn_value_t *fn, srn_value_t *argv, uint32_t argc)
	Call Serene (lisp level) functions via C.
srn_value_t *	srn_call_cprimitive (srn_context_t *ctx, srn_cprim_fn_t fn, srn_value_t *argv, uint32_t argc)
srn_value_t *	srn_call0 (srn_context_t *ctx, srn_value_t *fun)
srn_value_t *	srn_call1 (srn_context_t *ctx, srn_value_t *fun, srn_value_t *a0)
srn_value_t *	srn_call2 (srn_context_t *ctx, srn_value_t *fun, srn_value_t *a0, srn_value_t *a1)

Typedef Documentation

srn_cprim_fn_t

typedef srn_value_t *(* srn_cprim_fn_t) (srn_context_t *, srn_value_t *, uint32_t)

Call a C-ABI primitive from Serene (argv shape is uniform):

Definition at line 32 of file abi.h.

Function Documentation

srn_apply_c()

srn_value_t * srn_apply_c	(	srn_context_t *	ctx,
		srn_value_t *	fn,
		srn_value_t *	argv,
		uint32_t	argc )

Call Serene (lisp level) functions via C.

Definition at line 26 of file abi.c.

                                                                                                {
  if (IS_A(fn, VClosure)) {
    PANIC_WITH_CTX(ctx, "apply: not a function");
  }
  srn_closure_t *cl = AS_CLOSURE(fn);
  if (cl == nullptr) {
    PANIC_WITH_CTX(ctx, "Not a closure value");
  }
  srn_fnptr_t fnptr = cl->fn;
  // Internal fn type is (srn_context_t*, srn_value_t**, u32) -> srn_value_t*
  // using fastcc in IR, but here it's just a plain function pointer; call
  // through.
  return fnptr(ctx, argv, argc);
}

Here is the caller graph for this function:

srn_call0()

srn_value_t * srn_call0	(	srn_context_t *	ctx,
		srn_value_t *	fun )

Definition at line 46 of file abi.c.

                                                             {
  return srn_apply_c(ctx, fun, nullptr, 0);
}

Here is the call graph for this function:

srn_call1()

srn_value_t * srn_call1	(	srn_context_t *	ctx,
		srn_value_t *	fun,
		srn_value_t *	a0 )

Definition at line 49 of file abi.c.

                                                                              {
  srn_value_t *argv[1] = {a0};
  return srn_apply_c(ctx, fun, (srn_value_t *)argv, 1);
}

Here is the call graph for this function:

srn_call2()

srn_value_t * srn_call2	(	srn_context_t *	ctx,
		srn_value_t *	fun,
		srn_value_t *	a0,
		srn_value_t *	a1 )

Definition at line 53 of file abi.c.

                                                                                               {
  srn_value_t *argv[2] = {a0, a1};
  return srn_apply_c(ctx, fun, (srn_value_t *)argv, 2);
}

Here is the call graph for this function:

srn_call_cprimitive()

srn_value_t * srn_call_cprimitive	(	srn_context_t *	ctx,
		srn_cprim_fn_t	fn,
		srn_value_t *	argv,
		uint32_t	argc )

Definition at line 41 of file abi.c.

                                                {
  return f(ctx, argv, argc);
}