【开源】【2015.04.19】易语言宏插件源码（易语言版源码），现已支持数组参数！！！

SalHe

嗯哼，这个源码呢搁浅了两个月
因为现在初二，同学们赶着学习呢
做事一定要提前有计划~~！

OK，今天周末，马上要去学校了扫地了
才写完滴，发给各位耍耍咯
我也不想废话哈，各位知道是啥就行咯
这是上次发的帖子：
【开源】【2015.02.16】易语言宏插件源码（易语言版源码）
http://bbs.125.la/thread-13776963-1-1.html

发张效果图：

OK，我发下此图中的代码

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' ！！！请结合插件源码理解
' ！！！其中 test_plugin 为宏插件编译后不包括扩展名的文件名
' ！！！那个长整数型和小数型不知如何测试
' ！！！因为我试过输入一个长整数，编译还是整数型
' ！！！而小数型则是双精度小数型
' ！！！Step.1
' ！！！先测试下非数组的
调试输出 (“------------------------------------------”)
调试输出 (“Ok，让我们来测试下非数组宏参数的功能如何”)
调试输出 (宏 (“test_plugin”, 1))  ' @整数型
调试输出 (宏 (“test_plugin”, 1.1))  ' @双精度小数型
调试输出 (宏 (“test_plugin”, “文本型”))  ' @文本型
调试输出 (宏 (“test_plugin”, { 1, 2, 3, 4, 5 }))  ' @字节集
调试输出 (宏 (“test_plugin”, [2000年3月12日]))  ' @日期时间型
调试输出 (宏 (“test_plugin”, 真))  ' @逻辑型
调试输出 (宏 (“test_plugin”, 假))  ' @逻辑型
' ！！！Step.2
' ！！！然后是数组的
调试输出 (“------------------------------------------”)
调试输出 (“Ok，再来看看数组呢”)
调试输出 (宏 (“test_plugin”, { 1, 2, 3, 4, 5 }))  ' @整数型数组。编译器会理解成字节集 = =，大家明白就行啦哈
调试输出 (宏 (“test_plugin”, { 1.1, 2.1, 3.1, 4.1, 5.1 }))  ' @双精度小数型数组
调试输出 (宏 (“test_plugin”, { “a”, “b”, “c”, “d”, “e” }))  ' @文本型数组
调试输出 (宏 (“test_plugin”, { [2000年3月12日], [2000年9月26日] }))  ' @日期时间型数组
调试输出 (宏 (“test_plugin”, { 真, 假 }))  ' @逻辑型数组
' 调试输出 (宏 (“test_plugin”, { {1,2}, {1,2}, {1,2}, {1,2}, {1,2}}))  ' @字节集数组？！ 谁能告诉我怎么传？
' ！！！Step.3
' ！！！测试出个错
' 调试输出 (宏 (“test_plugin”, 1, 1))  ' @出个错试试（我们写的宏插件限制了1个参数）
' ！！！下面这句话可跳过
' ！！！参数类型不符合的错我到没想到
' ！！！结束()，是为了我方便调试宏插件添加的
结束 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' ！！！请结合插件源码理解<br /> ' ！！！其中 test_plugin 为宏插件编译后不包括扩展名的文件名<br /> <br /> ' ！！！那个长整数型和小数型不知如何测试<br /> ' ！！！因为我试过输入一个长整数，编译还是整数型<br /> ' ！！！而小数型则是双精度小数型<br /> <br /> ' ！！！Step.1<br /> ' ！！！先测试下非数组的<br /> 调试输出 (“------------------------------------------”)<br /> 调试输出 (“Ok，让我们来测试下非数组宏参数的功能如何”)<br /> 调试输出 (宏 (“test_plugin”, 1))  ' @整数型<br /> 调试输出 (宏 (“test_plugin”, 1.1))  ' @双精度小数型<br /> 调试输出 (宏 (“test_plugin”, “文本型”))  ' @文本型<br /> 调试输出 (宏 (“test_plugin”, { 1, 2, 3, 4, 5 }))  ' @字节集<br /> 调试输出 (宏 (“test_plugin”, [2000年3月12日]))  ' @日期时间型<br /> 调试输出 (宏 (“test_plugin”, 真))  ' @逻辑型<br /> 调试输出 (宏 (“test_plugin”, 假))  ' @逻辑型<br /> <br /> ' ！！！Step.2<br /> ' ！！！然后是数组的<br /> 调试输出 (“------------------------------------------”)<br /> 调试输出 (“Ok，再来看看数组呢”)<br /> 调试输出 (宏 (“test_plugin”, { 1, 2, 3, 4, 5 }))  ' @整数型数组。编译器会理解成字节集 = =，大家明白就行啦哈<br /> 调试输出 (宏 (“test_plugin”, { 1.1, 2.1, 3.1, 4.1, 5.1 }))  ' @双精度小数型数组<br /> 调试输出 (宏 (“test_plugin”, { “a”, “b”, “c”, “d”, “e” }))  ' @文本型数组<br /> 调试输出 (宏 (“test_plugin”, { [2000年3月12日], [2000年9月26日] }))  ' @日期时间型数组<br /> 调试输出 (宏 (“test_plugin”, { 真, 假 }))  ' @逻辑型数组<br /> ' 调试输出 (宏 (“test_plugin”, { {1,2}, {1,2}, {1,2}, {1,2}, {1,2}}))  ' @字节集数组？！ 谁能告诉我怎么传？<br /> <br /> ' ！！！Step.3<br /> ' ！！！测试出个错<br /> ' 调试输出 (宏 (“test_plugin”, 1, 1))  ' @出个错试试（我们写的宏插件限制了1个参数）<br /> <br /> ' ！！！下面这句话可跳过<br /> ' ！！！参数类型不符合的错我到没想到<br /> <br /> ' ！！！结束()，是为了我方便调试宏插件添加的<br /> 结束 ()

然后呢是输出栏的结果：

1. ★☆WonderWall☆★正在检查并编译内联汇编代码 ... ...
   
2. 正在编译现行程序
   
3. 正在检查重复名称...
   
4. 正在预处理现行程序
   
5. 正在进行名称连接...
   
6. 正在统计需要编译的子程序
   
7. 正在编译...
   
8. ★信息: 编译插件"test_plugin"被载入使用
   
9. 正在生成主程序入口代码
   
10. ★☆WonderWall☆★内联汇编代码编译成功,正在连接程序 ... ...
    
11. 程序代码编译成功
    
12. 正在封装易格式目的代码
    
13. 开始运行被调试程序
    
14. * “------------------------------------------”
    
15. * “Ok，让我们来测试下非数组宏参数的功能如何”
    
16. * 2
    
17. * 2.100000
    
18. * “这是宏插件加上的哦~_文本型”
    
19. * 字节集:6{1,2,3,4,5,111}
    
20. * [2000年4月12日]
    
21. * 假
    
22. * 真
    
23. * “------------------------------------------”
    
24. * “Ok，再来看看数组呢”
    
25. * 字节集:6{1,2,3,4,5,111}
    
26. * 数组:5{1.300000,2.300000,3.300000,4.300000,5.300000}
    
27. * 数组:5{“a_我会告诉你我是小尾巴么！~~”,“b_我会告诉你我是小尾巴么！~~”,“c_我会告诉你我是小尾巴么！~~”,“d_我会告诉你我是小尾巴么！~~”,“e_我会告诉你我是小尾巴么！~~”}
    
28. * 数组:2{[2000年4月12日],[2000年10月26日]}
    
29. * 数组:2{假,真}
    
30. 被调试易程序运行完毕

复制代码

宏插件源码+示范源码： 【2015.04.19】.zip (11.92 KB, 下载次数: 201)

2015-4-19 12:29 上传

点击文件名下载附件

SalHe

源码修正：

  

子程序名	返回值类型	公开	备 注
CalcArgPointer	整数型		计算参数指针
参数名	类 型	参考	可空	数组	备 注
apImmArgs	整数型				宏参数首参数指针.其结构为 IMM_VALUE_WITH_DATA_TYPE
nArgIndex	整数型				参数序号.

返回 (apImmArgs  ＋   (nArgIndex － 1) × 16)

.版本 2<br /> <br /> .子程序 CalcArgPointer, 整数型, , 计算参数指针<br /> .参数 apImmArgs, 整数型, , 宏参数首参数指针.其结构为 IMM_VALUE_WITH_DATA_TYPE<br /> .参数 nArgIndex, 整数型, , 参数序号.<br /> <br /> 返回 (apImmArgs  ＋   (nArgIndex － 1) × 16)

79961565

不错呢，谢谢

tmtony

不错呢，谢谢

yiyi111122

谢谢你了！！！！

xiechangqing

支持开源~！感谢分享

正养堂

谢谢你了！！！！

hipxh

支持开源~！感谢分享

青明

兄弟的贴顶一个

只醉九天

好东西，支持来源