abi.c File Reference

#include "serene/rt/abi.h"
#include "serene/rt/closures.h"
#include "serene/rt/context.h"
#include "serene/rt/core.h"
#include "serene/utils.h"

Include dependency graph for abi.c:

Go to the source code of this file.

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 f, 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)

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	f,
		srn_value_t *	argv,
		uint32_t	argc )

Definition at line 41 of file abi.c.

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