duktape/api-testcases/test-require-c-function.c

/*===
*** test_1 (duk_safe_call)
duk_require_c_function == my_func: 1
final top: 1
==> rc=0, result='undefined'
*** test_2 (duk_safe_call)
==> rc=1, result='TypeError: not c function'
*** test_3 (duk_safe_call)
==> rc=1, result='TypeError: not c function'
===*/

static duk_ret_t my_func(duk_context *ctx) {
	return 0;
}

static duk_ret_t test_1(duk_context *ctx) {
	duk_c_function funcptr;

	duk_set_top(ctx, 0);
	duk_push_c_function(ctx, my_func, 1 /*nargs*/);
	funcptr = duk_require_c_function(ctx, -1);
	printf("duk_require_c_function == my_func: %d\n", (funcptr == my_func ? 1 : 0));

	printf("final top: %ld\n", (long) duk_get_top(ctx));
	return 0;
}

static duk_ret_t test_2(duk_context *ctx) {
	duk_c_function funcptr;

	duk_set_top(ctx, 0);
	duk_push_c_function(ctx, my_func, 1 /*nargs*/);
	funcptr = duk_require_c_function(ctx, 3);
	printf("index 3 -> NULL: %d\n", (funcptr == NULL ? 1 : 0));

	printf("final top: %ld\n", (long) duk_get_top(ctx));
	return 0;
}

static duk_ret_t test_3(duk_context *ctx) {
	duk_c_function funcptr;

	duk_set_top(ctx, 0);
	duk_push_c_function(ctx, my_func, 1 /*nargs*/);
	funcptr = duk_require_c_function(ctx, DUK_INVALID_INDEX);
	printf("index DUK_INVALID_INDEX -> NULL: %d\n", (funcptr == NULL ? 1 : 0));

	printf("final top: %ld\n", (long) duk_get_top(ctx));
	return 0;
}

void test(duk_context *ctx) {
	TEST_SAFE_CALL(test_1);
	TEST_SAFE_CALL(test_2);
	TEST_SAFE_CALL(test_3);
}