Can't call js function from C about v7 HOT 13 CLOSED

enum v7_err rcode = V7_OK;
struct v7 *state = NULL;
v7_val_t result;

static void OnUpdate(struct v7 *v7) {
	v7_val_t func, result, args;

	/* Lookup JavaScript function `sum()` */
	func = v7_get(v7, v7_get_global(v7), "Update", 6);

	/* Create arguments array with two numbers */
	args = v7_mk_null();

	/* Call JavaScript function. Pass `undefined` as `this` */
	if (v7_apply(v7, func, V7_UNDEFINED, args, &result) == V7_OK) {
		printf("Result: %g\n", v7_get_double(v7, result));
	}
	else {
		v7_print_error(stderr, v7, "Error while calling sum", result);
	}
}

int main()
{
    printf("JavaScript Test");
	
	//V7 start
	state = v7_create();
	
	rcode = v7_exec_file(state, "test.js", &result);
		if (rcode != V7_OK) {
			fprintf(stderr, "exec error: %d\n", (int)rcode);
		}

	while(1)
	{
		OnUpdate(state);
	}

  return 0;
}

function Update() {
 print("mooo!");
}

IMPORT js.inc

jscode = """
var sum = function(a, b, c) {
  print (c);
  return a + b; };
"""

JS::CREATE()
JS::EXEC(jscode)
func = JS::GETS(JS::SYS, "sum")
args = JS::MK_ARRAY()
JS::ARRAY_PUSH(args, JS::MK_NUMBER(123.0))
JS::ARRAY_PUSH(args, JS::MK_NUMBER(0.456))
JS::ARRAY_PUSH(args, JS::MK_STRING("Script BASIC"))
result = JS::APPLY(func, 0, args, rcode)
PRINT FORMAT("Result: %g\n", JS::GET_DOUBLE(result))
JS::DESTROY

jrs@jrs-laptop:~/sb/examples/js$ scriba js_callfunc.sb
Script BASIC 
Result: 123.456
jrs@jrs-laptop:~/sb/examples/js$ 

IMPORT js.sbi

jscode = """
var sum = function(a, b, c) {
  print (c);
  return a + b; };
"""

JS::CREATE()
JS::EXEC(jscode)
func = JS::GETS(JS::SYS, "sum")
args = JS::MK_ARRAY()
JS::ARRAY_PUSH(args, JS::MK_NUMBER(123.0))
JS::ARRAY_PUSH(args, JS::MK_NUMBER(0.456))
JS::ARRAY_PUSH(args, JS::MK_STRING("Script BASIC"))
result = JS::APPLY(func, 0, args, rcode)
PRINT FORMAT("Result: %g\n", JS::GET_DOUBLE(result))
PRINT "Error: ",JS::GET_ERROR(),"\n"
JS::DESTROY

C:\sbsetup\examples>scriba js_callfunc.sb
Result: -1.#QNAN
Error: value is not a function

C:\sbsetup\examples>

IMPORT js.inc

jscode = """
var a_int = 64
var a_dbl = 1.23
var a_str = "Script BASIC"
"""

JS::CREATE
JS::EXEC(jscode)
PRINT JS::GET_INT(JS::GETS(JS::SYS, "a_int")),"\n"
PRINT FORMAT("%.2f",JS::GET_DOUBLE(JS::GETS(JS::SYS, "a_dbl"))),"\n"
PRINT JS::GET_STRING(JS::GETS(JS::SYS, "a_str")),"\n"
JS::DESTROY


C:\sbgcc\examples\js>scriba js_getsvar.sb
64
1.23
Script BASIC

C:\sbgcc\examples\js>

IMPORT js.inc

jscode = """
var sum = function(a, b) {
  return a + b; };
"""
PRINT jscode,"\n"

JS::CREATE()
ok = JS::EXEC(jscode, rcode)
func = JS::GETS(JS::SYS, "sum")
PRINT "func an object? ",JS::IS_OBJECT(func),"\n"
args = JS::MK_ARRAY()
JS::ARRAY_PUSH(args, JS::MK_NUMBER(123.0))
PRINT "args[0] = ",FORMAT("%g",JS::GET_DOUBLE(JS::ARRAY_GET(args, 0))),"\n"
JS::ARRAY_PUSH(args, JS::MK_NUMBER(0.456))
PRINT "args[1] = ",FORMAT("%g",JS::GET_DOUBLE(JS::ARRAY_GET(args, 1))),"\n"
result = JS::APPLY(func, 0, args, rcode)
PRINT "Error: ",JS::GET_ERROR(),"\n"
PRINT "rcode: ",rcode,"\n"
PRINT FORMAT("Result: %g\n", JS::GET_DOUBLE(result))
JS::DESTROY


C:\sbgcc\examples\js>scriba js_callfunc.sb

var sum = function(a, b) {
  return a + b; };

func an object? 0
args[0] = 123
args[1] = 0.456
Error: value is not a function
rcode: 2
Result: -1.#QNAN

C:\sbgcc\examples\js>