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
//================================================================================================================
#pragmacomment( 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_DOUBLE0x0002// 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)
{
HWNDhWnd;
charlpText[256] = "";
charlpCaption[256] = "";
UINTuType;

//解析表
_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很象，呃...