mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-20 14:19:18 +02:00
49 lines
1.7 KiB
C
49 lines
1.7 KiB
C
/* param.c -- low-level parameter utilities */
|
|
/* Copyright (c) 2010 Alex Shinn. All rights reserved. */
|
|
/* BSD-style license: http://synthcode.com/license.txt */
|
|
|
|
#include <chibi/eval.h>
|
|
|
|
#define _I(x) sexp_make_fixnum(x)
|
|
|
|
static sexp sexp_make_parameter (sexp ctx sexp_api_params(self, n), sexp init, sexp conv) {
|
|
sexp res;
|
|
sexp_gc_var1(cell);
|
|
sexp_gc_preserve1(ctx, cell);
|
|
cell = sexp_cons(ctx, SEXP_FALSE, init);
|
|
res = sexp_make_opcode(ctx, self, SEXP_FALSE, _I(SEXP_OPC_PARAMETER),
|
|
_I(SEXP_OP_PARAMETER_REF), SEXP_ZERO, SEXP_ONE,
|
|
_I(SEXP_OBJECT), _I(SEXP_OBJECT), SEXP_ZERO,
|
|
cell, conv, NULL);
|
|
sexp_gc_release1(ctx);
|
|
return res;
|
|
}
|
|
|
|
static sexp sexp_parameter_converter (sexp ctx sexp_api_params(self, n), sexp param) {
|
|
sexp res;
|
|
sexp_assert_type(ctx, sexp_opcodep, SEXP_OPCODE, param);
|
|
res = sexp_opcode_data2(param);
|
|
return res ? res : SEXP_FALSE;
|
|
}
|
|
|
|
static sexp sexp_thread_parameters (sexp ctx sexp_api_params(self, n)) {
|
|
sexp res = sexp_context_params(ctx);
|
|
return res ? res : SEXP_NULL;
|
|
}
|
|
|
|
static sexp sexp_thread_parameters_set (sexp ctx sexp_api_params(self, n), sexp new) {
|
|
sexp_context_params(ctx) = new;
|
|
return SEXP_VOID;
|
|
}
|
|
|
|
sexp sexp_init_library (sexp ctx sexp_api_params(self, n), sexp env) {
|
|
|
|
sexp_define_foreign(ctx, env, "%make-parameter", 2, sexp_make_parameter);
|
|
sexp_define_foreign(ctx, env, "parameter-converter", 1, sexp_parameter_converter);
|
|
sexp_define_foreign(ctx, env, "thread-parameters", 0, sexp_thread_parameters);
|
|
sexp_define_foreign(ctx, env, "thread-parameters-set!", 1, sexp_thread_parameters_set);
|
|
|
|
return SEXP_VOID;
|
|
}
|
|
|
|
#undef _I
|