Lua学习笔记三

Lua学习笔记三

---

2008.7.14

修正了 main 函数里 注册新Lua函数时候的一个笔误，感谢 mayao11 指出以上错误：）

2008.5.20

修正了 小结 里关于 lua_pop(L,-1)的错误，应该为lua_pop(L,1)，感谢 aslucky  指出以上错误。

---

首先提一下：元旦只放一天假，比较悲惨。不过可以继续研究Lua，也不失为一种幸运。

通过上一节的知识，我们可以实现很多应用了，但是在GUI领域，实在有太多的变量--x,y,z,w,h,bitmap,algi,d1,d2,d3,dp1,dp2,dp3,whatever...，而Lua的栈默认元素上限为20个，所以必须掌握Lua特有的数据类型--表的应用。
本节的目的：在上节的基础上，加入表的应用。侧重点为用表来作为函数参数。

---

请不要嫌我麻烦，这个系列文章是循序渐进式，而不是手册式，所以一定要掌握之前的知识，才可以继续阅读。
另外，请快速阅读pil的语法部分（1-7章），以便对Lua语法有大概的了解，这大概会花费1天的时间。但是不要在for循环和迭代器上花费太多的时间--如果暂时不想过于深入的理解Lua，而只是看懂这些笔记的程度--那些东西会研究的，但不是现在，现在我们只是初心者而已。
OK，这是我最后一次罗嗦这个。

---

又RTFS？！

-------以下是Lua脚本--------
--test.lua
LuaC_MessageBoxEx{ hWnd = nil,
                                            lpText = "Last is ShowMessage! This is real MessageBox!",
                                            lpCaption = "Lua Test",
                                            uType = 0}                                      --0就是MB_OK
---------通过LuaEdit语法测试才出鬼了--------------

//------------以下是test.cpp文件----------------
//================================================================================================================
//           Lua Test Object
//           C++ Source lua_test.cpp
//================================================================================================================
//================================================================================================================
//           Include Files
//================================================================================================================
extern "C"
{
 #include "D://My Documents//Visual Studio 2005//Projects//lua//lua//lua.h"
 #include "D://My Documents//Visual Studio 2005//Projects//lua//lua//lualib.h"
 #include "D://My Documents//Visual Studio 2005//Projects//lua//lua//lauxlib.h"
}

#include <windows.h>
#include <stdio.h>
#include <string>
using namespace std;
//================================================================================================================
//           Libraries
//================================================================================================================
#pragma comment( lib ,"D://My Documents//Visual Studio 2005//Projects//lua//release//lua.lib")
//================================================================================================================
//           Global Variables
//================================================================================================================
lua_State *L;
//================================================================================================================
//           Lua Functions
//================================================================================================================
double f( double x, double y )
{
 double ret;
 lua_getglobal( L, "f");
 lua_pushnumber( L,x);
 lua_pushnumber( L,y);
 lua_call( L, 2, 1);
 //lua_pcall( L, 2, 1, 0);

 ret = lua_tonumber( L, -1);
 //lua_pop( L, 1);
 return ret;
}
//================================================================================================================
//           C/C++ Helper Functions
//================================================================================================================
// 获取t[k](表t中字段k)的值
// 有以下的值
#define GTC_LP             0x0000      // pointer
#define GTC_INT            0x0001      // int
#define GTC_DOUBLE  0x0002      // double
#define GTC_STRING    0x0003      // char
void _lua_getfield( lua_State* L, char* key, void* ret, int type_flags)
{
 lua_pushstring( L, key);
 lua_gettable( L, -2);
 switch( type_flags)
 {
  case GTC_LP:
  {
    ret = (void*)lua_topointer(L,-1);
    break;
  }
  case GTC_INT:
  {
   (*(int*)ret) = (int)lua_tointeger( L, -1);
   break;
  }
  case GTC_DOUBLE:
  {
   (*(double*)ret) = lua_tonumber( L, -1);
   break;
  }
  case GTC_STRING:
  {
   // 此处有隐患，应该阅读lua_tostring()原型之后再来处理
   strcpy( (char*)ret, lua_tostring( L, -1));
   break;
  }
  default:
   break;
 }
 lua_pop( L, 1);
}
//================================================================================================================
//           C/C++ Functions
//================================================================================================================
int LuaC_MessageBox( lua_State *L)
{
 char Message[256] = "";
 int i;

 // 获取参数个数
 int n = lua_gettop(L);

 // 保存全部参数
 for ( i = 1, j = 0; i <= n ; i++)
 {
  if( lua_isstring( L, i))
   strcpy( Message, lua_tostring( L, i));
 }

 // 执行逻辑
 MessageBox( NULL, Message, "Lua Test", MB_OK );

 // 返回值压栈

 // 返回压栈参数的个数
 return 0;
}

int LuaC_MessageBoxEx( lua_State *L)
{
   HWND    hWnd;
   char       lpText[256] = "";
   char       lpCaption[256] = "";
    UINT      uType;

 // 解析表
 _lua_getfield( L, "hWnd",        &hWnd,        GTC_LP);
 _lua_getfield( L, "lpText",       &lpText,       GTC_STRING);
 _lua_getfield( L, "lpCaption", &lpCaption, GTC_STRING);
 _lua_getfield( L, "uType",       &uType,        GTC_INT);

 // 执行逻辑
 MessageBox( hWnd, lpText, lpCaption, uType);

 // 返回值压栈

 // 返回压栈参数的个数
 return 0;
}
//================================================================================================================
//           Main Functions
//================================================================================================================
int main( void)
{
 int error;

 L = lua_open();
 luaopen_base(L);
 luaL_openlibs(L);

  // 注册C/C++函数
  lua_register( L, "LuaC_MessageBox", LuaC_MessageBox);
  lua_register( L, "LuaC_MessageBoxEx", LuaC_MessageBoxEx);

// load the script 
// 加入了错误处理
 if ( (error = luaL_dofile(L, "test.lua")) != 0)
 {
  MessageBox( NULL, "出错啦：执行脚本出错！", "Lua Test", MB_OK );
  return 0;
 }
 
 getchar();
 lua_close( L);
 return 1;
}

 

---

 

如你所见，这2段代码是相当的熟悉，因为我直接使用上次的代码来做的修改。并且我将新添加的部分用黑体标明，以引起你的注意。所有这写新加入的代码，相应的注释里有足够的解释--除了一个帮助器函数：_lua_getfield

这一节新加的代码比较少，但是要说清楚其中的内容就不太容易了。一定要关注我用红色标记出来的部分。

1、首先注意Lua文件中的{}，这是表语法。Lua语法规定，如果（LUA文件中的）函数的参数只有1个参数，并且该参数类型为一张表，就可以使用形如: 函数名{ }的形式。

2、其次是如何解析一张表。在Lua规则里，这样定义读取表元素的协议的：
Lua API 只提供了一个lua_gettable 函数， 他接受table 在栈中的位置为参数，将对应key 值出栈， 返回与key 对应的value 。我们上面的getfield 函数假定table 在栈顶， 因此，lua_pushstring 将key 入栈之后， table 在-2 的位置。返回之前， getfield 会将栈恢复到调用前的状态。(取自PIL 25.1--表操作)

这段话有点含糊不清，实际上Lua取元素的协议是：首先将一个字符串压栈，然后调用lua_gettable。
lua_gettable的实际的工作流程是：以栈顶的字符串(key)为关键字，在栈索引位置( -2)的表(table)中查询该关键字的值(value)，然后将栈顶的key出栈，再将value压栈。

3、最后一个lua_pop( L, 1)的作用就是将这个返回值出栈，以保持栈的原貌。

好好理解上面被标记为粗体的文字，因为这就是表的基本应用的全部--只是基本应用。

最后，我想谈谈为什么不能通过LuaEdit的语法检测。原因很简单：LuaEdit所使用的lua库中不包含我们写的这些个函数的声明---这就是为什么我说LuaEdit跟记事本没什么区别，事实上我除了学习Lua语法的阶段使用了它，现在一直都是用记事本在写脚本。当然，在研究Lua的同时，我也会尝试研究下LuaEdit的使用--因为它长的跟VS2005很象，呃...