LUA5.3支持库测试版本

tjsu

1. .版本 2
   
2. .支持库 LUA5
   
3. .支持库 spec
   
4. 
   
5. .程序集 窗口程序集_启动窗口
   
6. .程序集变量 lua, LUA5_3
   
7. .程序集变量 句柄1, 整数型
   
8. .程序集变量 句柄2, 整数型
   
9. 
   
10. .子程序 __启动窗口_创建完毕
    
11. 
    
12. lua.创建 ()
    
13. 句柄1 ＝ lua.取出句柄 ()
    
14. lua.打开_全部库 ()
    
15. lua.注册函数 (“print”, &print)
    
16. lua.注册函数 (“取文本”, &取文本)
    
17. lua.注册函数 (“取数字”, &取数字)
    
18. lua.注册函数 (“取逻辑”, &取逻辑)
    
19. 
    
20. lua.执行脚本文本 (编辑框_脚本1.内容)
    
21. 标签_线程1.标题 ＝ 到文本 (句柄1)
    
22. 
    
23. lua.创建 ()
    
24. 句柄2 ＝ lua.取出句柄 ()
    
25. lua.打开_全部库 ()
    
26. lua.注册函数 (“调试输出”, &print)
    
27. 
    
28. lua.执行脚本文本 (编辑框_脚本2.内容)
    
29. 标签_线程2.标题 ＝ 到文本 (句柄2)
    
30. 标签_当前线程.标题 ＝ 到文本 (句柄2)
    
31. 
    
32. 
    
33. .子程序 print
    
34. .局部变量 i, 整数型
    
35. .局部变量 输出文本, 文本型
    
36. 
    
37. ' LUA调用易语言里的函数时，被调用易语言函数，必须要用函数参数 的函数 否则会中断程序
    
38. 
    
39. 
    
40. 
    
41. .计次循环首 (lua.取出栈大小 (), i)
    
42. .判断开始 (lua.是否为空 (i))
    
43. 输出文本 ＝ 输出文本 ＋ “nui”
    
44. .判断 (lua.是否为数值 (i))
    
45. 输出文本 ＝ 输出文本 ＋ 到文本 (lua.取出小数 (i))
    
46. 
    
47. .判断 (lua.是否为文本 (i))
    
48. 输出文本 ＝ 输出文本 ＋ “【” ＋ lua.取出文本 (i) ＋ “】”
    
49. .判断 (lua.是否为逻辑 (i))
    
50. 输出文本 ＝ 输出文本 ＋ 到文本 (lua.取出逻辑 ())
    
51. .默认
    
52. 
    
53. .判断结束
    
54. 
    
55. .如果真 (lua.取出栈大小 () ＞ 1)
    
56. 输出文本 ＝ 输出文本 ＋ “ | ”
    
57. 
    
58. .如果真结束
    
59. 
    
60. 
    
61. 
    
62. 
    
63. .计次循环尾 ()
    
64. 编辑框_调试信息.加入文本 (“(” ＋ 输出文本 ＋ “)” ＋ #换行符)
    
65. 
    
66. .子程序 _按钮1_被单击
    
67. 
    
68. 
    
69. 
    
70. .如果真 (lua.取出句柄 () ＝ 句柄1)
    
71. 
    
72. 
    
73. lua.执行脚本文本 (编辑框_脚本1.内容)
    
74. 
    
75. 
    
76. .如果真 (lua.取出错误信息 () ≠ “”)
    
77. 编辑框_调试信息.加入文本 (lua.取出错误信息 () ＋ #换行符)
    
78. 
    
79. .如果真结束
    
80. 
    
81. .如果真结束
    
82. .如果真 (lua.取出句柄 () ≠ 句柄1)
    
83. 编辑框_调试信息.内容 ＝ “当前线程错误，请切换至当前线程” ＋ #换行符
    
84. .如果真结束
    
85. 
    
86. 
    
87. .子程序 _按钮2_被单击
    
88. 
    
89. lua.返回句柄 (句柄1)
    
90. 标签_当前线程.标题 ＝ 到文本 (句柄1)
    
91. 编辑框_调试信息.内容 ＝ “已经切换至线程1” ＋ #换行符 ＋ “开始运行被调试程序” ＋ #换行符
    
92. 
    
93. .子程序 _按钮4_被单击
    
94. 
    
95. 
    
96. .如果真 (lua.取出句柄 () ＝ 句柄2)
    
97. 
    
98. 
    
99. lua.执行脚本文本 (编辑框_脚本2.内容)
    
100. .如果真 (lua.取出错误信息 () ≠ “”)
     
101. 编辑框_调试信息.加入文本 (lua.取出错误信息 () ＋ #换行符)
     
102. 
     
103. .如果真结束
     
104. 
     
105. .如果真结束
     
106. .如果真 (lua.取出句柄 () ≠ 句柄2)
     
107. 编辑框_调试信息.内容 ＝ “当前线程错误，请切换至当前线程” ＋ #换行符
     
108. .如果真结束
     
109. 
     
110. 
     
111. .子程序 _按钮3_被单击
     
112. 
     
113. lua.返回句柄 (句柄2)
     
114. 标签_当前线程.标题 ＝ 到文本 (句柄2)
     
115. 编辑框_调试信息.内容 ＝ “已经切换至线程2” ＋ #换行符 ＋ “开始运行被调试程序” ＋ #换行符
     
116. 
     
117. .子程序 取文本, 整数型
     
118. 
     
119. ' LUA调用易语言里的函数时，被调用易语言函数，必须要用函数参数 的函数 否则会中断程序
     
120. 
     
121. lua.压入文本 (lua.取出文本 (1) ＋ “1”)
     
122. 返回 (1) ' ///////返回栈参数的个数，如果为0 无参数返回栈中，LUA无法收到数据，压入指令无效。
     
123. 
     
124. .子程序 取数字, 整数型
     
125. .局部变量 L, 整数型
     
126. 
     
127. ' LUA调用易语言里的函数时，被调用易语言函数，必须要用函数参数 的函数 否则会中断程序
     
128. 
     
129. L ＝ lua.取出小数 (1) ＋ 1
     
130. lua.压入数值 (L)
     
131. 返回 (1) ' ///////返回栈参数的个数，如果为0 无参数返回栈中，LUA无法收到数据，压入指令无效。
     
132. 
     
133. .子程序 取逻辑, 整数型
     
134. 
     
135. ' LUA调用易语言里的函数时，被调用易语言函数，必须要用函数参数 的函数 否则会中断程序
     
136. 
     
137. .判断开始 (lua.取出逻辑 (1) ＝ 假)
     
138. lua.压入逻辑 (真)
     
139. .判断 (lua.取出逻辑 (1))
     
140. lua.压入逻辑 (假)
     
141. .默认
     
142. 
     
143. .判断结束
     
144. 返回 (1) ' ///////返回栈参数的个数，如果为0 无参数返回栈中，LUA无法收到数据，压入指令无效。
     
145. 
     
146. 
     
147. .子程序 _按钮5_被单击
     
148. 
     
149. 
     
150. 函数测试 ()
     
151. ' 要调用LUA中函数必须要用一个用来完成，并且要按
     
152. ' 1向栈中压入函数名称
     
153. ' 2向栈中压入函数参数1
     
154. ' 3向栈中压入函数参数n
     
155. ' 4开始调用LUA函数
     
156. ' 5取回函数的返回值
     
157. ' 6返回栈参数的个数，如果为0 无参数返回栈中，LUA无法收到数据。
     
158. ' 这个流程来完成函数调用。
     
159. 
     
160. .子程序 函数测试, 整数型
     
161. 
     
162. ' *****************向栈中压入函数名称********************
     
163. lua.压入全局变量 (编辑框_函数名称.内容)
     
164. 
     
165. 
     
166. 
     
167. ' *****************向栈中压入函数参数1********************
     
168. .判断开始 (组合框_参数1.现行选中项 ＝ 0)
     
169. lua.压入数值 (到小数 (编辑框_参数1.内容))
     
170. .判断 (组合框_参数1.现行选中项 ＝ 1)
     
171. lua.压入文本 (编辑框_参数1.内容)
     
172. .判断 (组合框_参数1.现行选中项 ＝ 2)
     
173. .如果真 (编辑框_参数1.内容 ＝ “真”)
     
174. lua.压入逻辑 (真)
     
175. .如果真结束
     
176. .如果真 (编辑框_参数1.内容 ＝ “假”)
     
177. lua.压入逻辑 (假)
     
178. .如果真结束
     
179. 
     
180. 
     
181. .默认
     
182. 
     
183. .判断结束
     
184. 
     
185. ' *****************向栈中压入函数参数2********************
     
186. .判断开始 (组合框_参数2.现行选中项 ＝ 0)
     
187. lua.压入数值 (到小数 (编辑框_参数2.内容))
     
188. .判断 (组合框_参数2.现行选中项 ＝ 1)
     
189. lua.压入文本 (编辑框_参数2.内容)
     
190. .判断 (组合框_参数2.现行选中项 ＝ 2)
     
191. .如果真 (编辑框_参数2.内容 ＝ “真”)
     
192. lua.压入逻辑 (真)
     
193. .如果真结束
     
194. .如果真 (编辑框_参数2.内容 ≠ “真”)
     
195. lua.压入逻辑 (假)
     
196. .如果真结束
     
197. 
     
198. .默认
     
199. 
     
200. .判断结束
     
201. 
     
202. ' *****************开始调用LUA函数********************
     
203. lua.调用函数 (2, 1, 0)
     
204. 
     
205. 
     
206. ' *****************取回函数的返回值********************
     
207. 调试输出 (lua.取出小数 (lua.取出栈大小 ()), lua.取出栈大小 ())
     
208. 
     
209. 返回 (3) ' ///////返回栈参数的个数，如果为0 无参数返回栈中，LUA无法收到数据，压入指令无效。
     
210. 
     
211. 
     
212. .子程序 _按钮6_被单击
     
213. 
     
214. 调试输出 (lua.取出错误信息 ())
     
215. 
     

复制代码

本版本为测试版本，本版本基本于LUA5.33的源文件编写。可以多线程运行，
我要提前声明“本支库基于LUA5.33,本版本为测试版本，只供学习使用，调用“执行脚本文本”或者“执行脚本文本”这两个函数次数达到200次，库会锁定，要重新启动才可以"), ”table 还正编写中，编写完成后再分享正式版本。



如有BUG  要来论坛反馈啊！我改正BUG的地方！

lrdilu

下载地址过期了

duanyijun

回帖是美德

nbahanzhe

谢谢楼主就是支持库里面的fne不一样

易君

#在这里快速回复#感谢发布原创作品，精易因你更精彩！

jiang8125

看看。。。。。。。。。。。。。。。。

jiang8125

看看。。。。。。。。。。。。。。。。

1140141768

看看。。。。。。。。。。。。。。。。

rqelove510

很好,很屌........  小白不懂，LUAJIT会不会更好点？

fulong1688

有正式版本了吗 ???