helper2416_lua5.2移植_效率测试

lyzhangxiang

helper2416_lua5.2移植_效率测试 [复制链接]

好吧，这几天卡壳了，没什么进展，主要是ucos移植不稳定，问题多多，后面很多无法继续，lwip也不稳定，主要是ucos的问题吧。后面有时间在继续吧，先发点别的。目前是在这个不完善的ucos上面跑的，后面我会搞到raw-os上面去，比较简单的，不太复杂，玩玩很不错的。

给大家一点关于lua的参考网站，不了解的可以了解下，效率比较高的虚拟机，脚本语言，虚拟机也比较有特色，寄存器虚拟机/堆栈虚拟机两个典型分支。
主站:         

1. http://www.lua.org/start.html

复制代码

嵌入式LUA:

1. https://github.com/elua/elua

复制代码

测评：

1. http://blog.csdn.net/tcpipstack/article/details/8259179

复制代码

好了，开始我的移植和测试，主要完成一个timer4用于统计执行效率，移植比较简单，下载源码添加到工程中将lua.c和luac.c屏蔽掉


在loslib.c中实现三个函数原型

1. int system(const char *cmd){
   
2.         return 1;
   
3. }
   
4. 
   
5. time_t time(time_t * data)
   
6. {
   
7.         time_t tm;
   
8.         return tm;
   
9. }
   
10. 
    
11. void exit(int s)
    
12. {
    
13.         s++;
    
14.         while(1);
    
15. }
    

复制代码

大家可以自行实现，后面了解下elua在看需要完善哪些，我这里简单添加，不影响。

lua和c的循环加法效率测试

1. /**
   
2. *******************************************************************************
   
3. * @file       Lua_Efficiency.c
   
4. * @author     camel.shoko
   
5. * @version    v1.1
   
6. * @date       2013/9/27
   
7. * @brief      Lua效率测试文件
   
8. * @copyright  camel.shoko@gmail.com
   
9. *******************************************************************************
   
10. */
    
11. 
    
12. /* Includes ------------------------------------------------------------------*/
    
13. #include <stdio.h>
    
14. #include "platform.h"
    
15. #include "TIMER4.h"
    
16. 
    
17. #include <math.h>
    
18. #include "lua.h"
    
19. #include "lauxlib.h"
    
20. #include "lualib.h"
    
21. 
    
22. #include "ucos_ii.h"
    
23. #include "Lua_Efficiency.h"
    
24. 
    
25. /* Local Variables -----------------------------------------------------------*/
    
26. const char LUA_SCRIPT[] = {
    
27.         "function loop_add(a, b,t)          "
    
28.         "   local sum = 0                   "
    
29.         "   for i = 1, t do          "
    
30.         "       sum = sum + a + b           "
    
31.         "   end                             "
    
32.         "   return sum                      "
    
33.         "end                                "
    
34.         "                                   "
    
35. };
    
36. 
    
37. 
    
38. /* Global Functions ----------------------------------------------------------*/
    
39. 
    
40. /**
    
41. * @brief  c_loop_add
    
42. * @note   C语言循环加
    
43. * @param  none
    
44. * @retval none
    
45. */
    
46. uint32_t c_loop_add(int a,int b,int t)
    
47. {
    
48.         uint32_t result=0,i=0;
    
49.        
    
50.         for (i=0;i<t;i++) {
    
51.                 result = result + a + b;
    
52.         }
    
53.         return result;
    
54. }
    
55. 
    
56. /**
    
57. * @brief  lua_loop_add
    
58. * @note   Lua循环加
    
59. * @param  none
    
60. * @retval none
    
61. */
    
62. int lua_loop_add(lua_State *L, const char *func_name, int x, int y, int t)
    
63. {
    
64.         int sum;
    
65.        
    
66.         /*装载脚本*/
    
67.         lua_getglobal(L, func_name);
    
68.         /* 第一个参数 */
    
69.         lua_pushnumber(L, x);
    
70.         /* 第二个参数 */
    
71.         lua_pushnumber(L, y);
    
72.         /* 第三个参数 */
    
73.         lua_pushnumber(L, t);
    
74.        
    
75.         /* 调用函数,告知有三个参数,一个返回值 */
    
76.         lua_call(L, 3, 1);
    
77.         /* 得到结果 */
    
78.         sum = (int) lua_tointeger(L, -1);
    
79.        
    
80.         lua_pop(L, 1);
    
81.         return sum;
    
82. }
    
83. 
    
84. 
    
85. /**
    
86. * @brief  Lua_Efficiency_Test
    
87. * @note   Lua效率测试
    
88. * @param  none
    
89. * @retval none
    
90. */
    
91. void Lua_Efficiency_Test(void)
    
92. {
    
93.         #define US_PERCENT                                15
    
94.        
    
95.         int sum, i;
    
96.         uint32_t duration = 0;
    
97.         lua_State *L = luaL_newstate();
    
98.        
    
99.         if (L == NULL) {
    
100.                 DEBUG0("Cannot Create State: Not Enough Memory\r\n");
     
101.         }
     
102.        
     
103.         //64kb内存紧张,用luaL_openlibs加载所有模块,会自动退出
     
104.         luaopen_base(L);
     
105.        
     
106.         luaL_dostring(L, LUA_SCRIPT);
     
107.         DEBUG0("LUA Module Init Success\r\n");
     
108.         TIMER4_Init();
     
109.        
     
110.         for (i = 2000; i < 20000; i = i + 2000) {
     
111.                
     
112.                 //计算lua循环加运算的耗时
     
113.                 TIMER4_Start();
     
114.                 sum = lua_loop_add(L, "loop_add", 1, 1, i);
     
115.                 duration = TCNTB4_CFG - TIMER4_Stop();
     
116.                 DEBUG2("--Lua_Cnt %06d   Lua_Sum %06d", i, sum);
     
117.                 DEBUG1(">>Frequency Duration(us): %06d\r\n", (duration*US_PERCENT));
     
118.                
     
119.                 //计算c循环加运算的耗时
     
120.                 TIMER4_Start();
     
121.                 sum = c_loop_add(1, 1, i);
     
122.                 duration = TCNTB4_CFG - TIMER4_Stop();
     
123.                 DEBUG2("--C_Cnt   %06d   C_Sum %06d", i, sum);
     
124.                 DEBUG1(">>Frequency Duration(us): %04d\r\n", (duration*US_PERCENT));
     
125.                
     
126.         }
     
127.         //关闭虚拟机
     
128.         lua_close(L);
     
129. }
     
130. 
     
131. /****************** (C) COPYRIGHT 2013 Camle.shoko ***********END OF FILE******/
     

复制代码

测试结果如下



其实效率还是很不错的，虚拟机这个速度相当快了，恩我使用的luaopen_base，这个是基础库，如果想使用全部的可以使用luaL_openlibs加载所有模块。
之前在M3上面测试过，用的基础模块，RAM比较吃力，在helper2416上面当然没问题了，随便用，应用也是随便做，最好是在实现一个vi类似的交互编辑。我觉得raw-os确实缺少一个脚本语言的虚拟机，当然lua我认为是非常适合的，玩家也多。后面我会弄到raw-os中，也算是一个不错的组件吧。

lyzhangxiang

分享我的timer4驱动程序，注意定时器是16位的，不要溢出了，大家在使用的时候

1. /**
   
2. *******************************************************************************
   
3. * @file       TIMER4.c
   
4. * @author     camel.shoko
   
5. * @version    v1.1
   
6. * @date       2014/05/26
   
7. * @brief      S3C2416 TIMER4驱动
   
8. * @copyright  camel.shoko@gmail.com
   
9. *******************************************************************************
   
10. */
    
11. 
    
12. 
    
13. /* Includes ------------------------------------------------------------------*/
    
14. #include "platform.h"
    
15. #include "irq.h"
    
16. #include "clk_get.h"
    
17. #include "TIMER4.h"
    
18. 
    
19. 
    
20. /* Local Variables -----------------------------------------------------------*/
    
21. volatile int OneSec = 0;
    
22. 
    
23. 
    
24. /* Local Functions -----------------------------------------------------------*/
    
25. 
    
26. /**
    
27. * @brief  TIMER4_ISR_Service
    
28. * @note   TIMER4设置波特率
    
29. * @param  none
    
30. * @retval none
    
31. */
    
32. static void TIMER4_ISR_Service(void)
    
33. {
    
34.         /* 置位清除 */
    
35.         SRCPND_REG |= (0x01<<14);       
    
36.         /* 置位清除 */
    
37.         INTPND_REG |= (0x01<<14);
    
38.        
    
39.         OneSec++;
    
40.         DEBUG0("TIM4");
    
41. }
    
42. 
    
43. 
    
44. /**
    
45. * @brief  TIMER4_ISR_Init
    
46. * @note   TIMER4中断初始化
    
47. * @param  none
    
48. * @retval none
    
49. */
    
50. static void TIMER4_ISR_Init(void)
    
51. {
    
52.         INTMOD_REG                         = 0x00000000;
    
53.         PRIORITY_MODE_REG         = 0x00000000;
    
54.        
    
55.         /* 使能TIMER4中断 */
    
56.         INTMSK_REG &= ~(0x01<<14);               
    
57. }
    
58. 
    
59. 
    
60. /* Global Functions ----------------------------------------------------------*/
    
61. 
    
62. /**
    
63. * @brief  TIMER4_Init
    
64. * @note   TIMER4初始化
    
65. * @param  none
    
66. * @retval none
    
67. */
    
68. void TIMER4_Init(void)
    
69. {
    
70.         /*
    
71.          * TIMER INPUT_CLK = PCLK/{Precaler+1}/{Divider_Value}
    
72.          *
    
73.          * TIMER INPUT_CLK = PCLK/(15+1)/4 = PCLK/64
    
74.          *
    
75.          * TCNTB0_REG = INPUT_CLK/OS_TICKS_PER_SEC = get_PCLK()/(64*OS_TICKS_PER_SEC)
    
76.          */
    
77.        
    
78.        
    
79.         /* 使用TIMER4前,清除相关配置 */
    
80.         TCON_REG  &= ~(0x07<<20);                       
    
81.         TCFG0_REG &= ~(0xFF<<8);               
    
82.         TCFG1_REG &= ~(0x0F<<16);
    
83. 
    
84.         TIMER4_ISR_Init();
    
85. 
    
86.         register_irq(14, TIMER4_ISR_Service);
    
87.        
    
88.         /* TIMER4_Prescaler=255*/
    
89.         TCFG0_REG |= (0xFF<<8);       
    
90.        
    
91.         /* TIMER4_Divider_Value=1/4 */       
    
92.         TCFG1_REG |= (0x01<<16);       
    
93. 
    
94.         TCNTB4_REG = TCNTB4_CFG;
    
95. 
    
96.         /* 更新TCNTB4 */
    
97.         TCON_REG |= (0x02<<20);       
    
98.        
    
99.         /* 手动更新位必须在下次写前清除 */       
    
100.         TCON_REG &= ~(0x02<<20);       
     
101.        
     
102.         /* 自动重装,启动定时器 */       
     
103.         TCON_REG |= (0x05<<20);       
     
104.        
     
105. }
     
106. 
     
107. /**
     
108. * @brief  TIMER4_Start
     
109. * @note   TIMER4启动
     
110. * @param  none
     
111. * @retval none
     
112. */
     
113. void TIMER4_Start(void)
     
114. {
     
115.         TIMER4_Init();
     
116. }
     
117. 
     
118. 
     
119. /**
     
120. * @brief  TIMER4_Stop
     
121. * @note   TIMER4停止
     
122. * @param  none
     
123. * @retval none
     
124. */
     
125. int TIMER4_Stop(void)
     
126. {
     
127.     TCON_REG &= ~(0x1 << 20); //定时器停止
     
128.         return TCNTO4_REG;
     
129. }
     
130. 
     
131. /****************** (C) COPYRIGHT 2014 Camle.shoko ***********END OF FILE******/
     

复制代码

lyzhangxiang

有任何问题大家可以在帖子中提出，大家一起讨论
活跃一点 哈哈

lyzhangxiang

继续贴一个图，在stm32上面运行的效率测试

lyzhangxiang

注意此贴中未采用rtos，仅仅将lua移植到helper2416上，用于验证基础移植和效率测试
后面帖子中有整合到rawos下，代码跟新到oschina的git上面，大家可以下载

caizhiwei

dingyuige~