易语言js引擎源码 改自mujs

易语言js引擎源码 改自mujs

@大色秘密

.版本 2

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码


' 源码 git://git.ghostscript.com/mujs.git  最后一次 拉取时间: 2016.6.2 17:52
_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 _临时子程序
.局部变量 J, 整数型

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
J ＝ js_newstate (0, 0, #JS_STRICT)

js_newcfunction (J, 到整数 (&jsB_load), “load”, 1)  ' 绑定函数
js_setglobal (J, “load”)  ' 设置为全局
js_dostring (J, #require_js)


js_newcfunction (J, 到整数 (&jsB_print), “print”, 0)
js_setglobal (J, “print”)


js_dostring (J, #jstest)

js_dofile (J, “randomColor.js”)


js_freestate (J)



.子程序 jsB_print, , , static void JS_API jsB_print(js_State *J)
.参数 J, 整数型
.局部变量 i, 整数型
.局部变量 top, 整数型

top ＝ js_gettop (J)
i ＝ 1

.判断循环首 (i ＜ top)
    输出调试文本 (js_tostring (J, i))
    i ＝ i ＋ 1
.判断循环尾 ()
js_pushundefined (J)


.子程序 jsB_load, , , static void JS_API jsB_load(js_State *J)
.参数 J, 整数型
.局部变量 filename, 文本型
.局部变量 rv, 整数型

filename ＝ js_tostring (J, 1)
rv ＝ js_dofile (J, filename)

js_pushboolean (J, 选择 (rv ≠ 0, 1, 0))