亚洲一区二区在线看,欧美精品麻豆,欧美激情精品久久久久久久变态

让wxListCtrl支持子item�~�辑

Kevin Lynx — Tue, 07 Aug 2012 09:09:00 GMT

我��用的wxLua版

google了一下，发

其原理就是获取本信息�?code>wxLua 2.8.7.0 built with wxWidgets 2.8.8�Q�也��是LuaForWindows_v5.1.4-40.exe�q�个安装包里自带的wxLua。我不知道其他wxWidgets版本里wxListCtrl怎样�Q�但我��用的版本里wxListCtrl是不支持�~�辑里面的子item的。在我��用的report模式下，子item也就是特定某一行一列的item�?/p> 现悲剧地需要自己实玎ͼ�主要��是自己昄��一个wxTextCtrl�Q?/p> class="highlight"> id="hvzpftn" class="c1">-- class="c1">-- file: wxListCtrlTextEdit.lua class="c1">-- author: Kevin Lynx class="c1">-- date: 08.06.2012 class="c1">-- class="kd">local EditList = {} class="c1">-- get the column by an abs point class="k">function EditList:getColumn(x) class="kd">local cols = self.listctrl:GetColumnCount() class="kd">local cx = 0 class="k">for i = 0, cols - 1 do class="kd">local w = self.listctrl:GetColumnWidth(i) class="k">if x <= cx + w then return i end class="n">cx = cx + w class="k">end class="k">return -1 class="k">end class="c1">-- when a mouse down, show a text edit control class="k">function EditList:onLeftDown(evt) class="k">if self.editor:IsShown() then class="n">self:closeEditor() class="k">end class="kd">local p = evt:GetPoint() class="kd">local row = evt:GetIndex() class="kd">local col = self:getColumn(p.x) class="kd">local rect = wx.wxListCtrlEx.GetSubItemRect(self.listctrl, row, col) class="n">rect:SetHeight(rect:GetHeight() + 5) -- adjust class="n">self.editor:SetSize(rect) class="n">self.editor:Show() class="n">self.editor:SetValue(wx.wxListCtrlEx.GetItemText(self.listctrl, row, col)) class="n">self.editor:SetFocus() class="n">self.col = col class="n">self.row = row class="k">end class="k">function EditList:closeEditor() class="k">if not self.editor:IsShown() then return end class="n">self.editor:Hide() class="n">self.listctrl:SetItem(self.row, self.col, self.editor:GetValue()) class="k">end class="k">function EditList:initialize() class="n">self.editor = wx.wxTextCtrl(self.listctrl, wx.wxID_ANY, "", wx.wxDefaultPosition, wx.wxDefaultSize, wx.wxTE_PROCESS_ENTER + wx.wxTE_RICH2) class="n">self.editor:Connect(wx.wxEVT_COMMAND_TEXT_ENTER, function () self:closeEditor() end) class="c1">-- not work actually class="n">self.editor:Connect(wx.wxEVT_COMMAND_KILL_FOCUS, function () self:closeEditor() end) class="n">self.editor:Hide() class="k">end class="k">function wx.wxListCtrlTextEdit(listctrl) class="kd">local o = { class="n">listctrl = listctrl, class="n">editor = nil, class="p">} class="kd">local editlist = newObject(o, EditList) class="n">editlist:initialize() class="n">listctrl:Connect(wx.wxEVT_COMMAND_LIST_ITEM_RIGHT_CLICK, function (evt) editlist:onLeftDown(evt) end) class="n">listctrl:Connect(wx.wxEVT_COMMAND_LIST_ITEM_FOCUSED, function () editlist:closeEditor() end) class="k">return listctrl class="k">end 到当前鼠标点击所在的子item位置�Q�然后在此位�|�显�C�Z��个wxEditCtrl卛_��。以上代码需要依赖我之前写的Lua里实现简单的�c?对象中的代码�Q�同时依赖以下针对wxListCtrl的扩展接口：

--
-- file: wxListCtrlExtend.lua
-- author: Kevin Lynx
-- date: 08.07.2012
-- brief: extend some util functions to wx.wxListCtrl
-- 
wx.wxListCtrlEx = {}

function wx.wxListCtrlEx.GetSubItemRect(listctrl, item, col)
    local rect = wx.wxRect()
    listctrl:GetItemRect(item, rect)
    local x = 0
    local w = 0
    for i = 0, col do
        w = listctrl:GetColumnWidth(i)
        x = x + w
    end
    return wx.wxRect(x - w, rect:GetY(), w, rect:GetHeight())
end

function wx.wxListCtrlEx.GetItemText(listctrl, item, col)
    local info = wx.wxListItem()
    info:SetId(item)
    info:SetColumn(col)
    info:SetMask(wx.wxLIST_MASK_TEXT)
    listctrl:GetItem(info)
    return info:GetText()
end

在我看到的wxWidgets官方文档里，其实wxListCtrl已经�?code>GetSubItemRect接口�Q��ƈ且在另一些示例代码里�Q�也看到�?code>GetItemText接口�Q�但是，我��用的版本里没有，所以只好自己写。基于以上，要��用这个可以支持编辑子item的wxListCtrl�Q�可以：

list = wx.wxListCtrlTextEdit(wx.wxListCtrl(dialog, wx.wxID_ANY, wx.wxDefaultPosition, wx.wxDefaultSize, wx.wxLC_REPORT))

也就是通过wx.wxListCtrlTextEdit�q�个函数做下处理�Q�这个函数返回的是本�w�的wxListCtrl。当然更好的方式是��用��承之�cȝ��方式�Q�开发一�U�新的控�Ӟ��但在Lua中，针对usedata�c�d��的扩展貌似只能这样了�?/p>

最好吐槽下�Q�这个控件扩展其实很恶心。本来我打算当编辑控件失�ȝ��点后��隐藏它�Q�但是往�~�辑控�g上注册KILL_FOCUS事�g始终不�v作用�Q�我又打��弄个ESC键盘事�g��L��动取消，但显然wxTextCtrl是不支持键盘事�g的。好吧，凑合用了�?/p>

Kevin Lynx 2012-08-07 17:09 发表评论

tolua的tolua_toxxx�p�d��API设计

Kevin Lynx — Thu, 10 May 2012 07:38:00 GMT

原文链接�Q?a >http://codemacro.com/2012/05/10/tolua-api/

我们使用tolua++手工�l�定c/c++接口到lua中，在绑定的接口实现里，��需要取��Z��入的参数。tolua++中提供了一�p�d��tolua_toxxx函数�Q�例如：

lua_Number tolua_tonumber(lua_State *L, int narg, lua_Number def)
const char *tolua_tostring(lua_State *L, int narg, const char *def)

�q�些函数都有一个def参数。乍一看，�q�些函数使用��h��很简单。传入lua_State�Q�传入参数在栈中的位�|�，然后再传一�?strong>��p�|后返回的默认倹{�?/p>

我重点要说的是这里这�?strong>��p�|�Q�按正常�E�序员的理解�Q�针对lua而言�Q�什么情况下��失败呢�Q�lua语言里函数参数支持不传，此时实参为nil�Q�将nil转换��Z��个c�c�d��必然��p�|�Q�参数类型不正确��不��失败？你传一个user data�Q�c里按数字来取�Q�这也算��p�|�?/p>

�q�么��单的API�q�需要多�U�结什么呢�Q�然后我们浩��荡荡地写了上百个接口，什么tolua_tostring/tolua_tonumber的��用少说也�?00了吧�Q?/p>

然后有一天，服务器宕��Z��Q�空指针:

/* ��p�|�q�回""�Q�还能省�I�指针的判断 */
const char *name = tolua_tostring(L, 1, "");
if (name[0] == '\0') { /* �I�Z����d��判断�?*/
 ...
}

跟踪后发玎ͼ�脚本里传入的是nil�Q�这里的name取出来是NULL�Q�而不�?#8221;“�Q�的地址�Q�。然后吐槽了一下这个API�Q�辛苦地修改了所有类��g��码，增加对空指针的判断。我没有多想�?/p>

故事�l�箋�Q�有一天服务器虽然没宕机，但功能不正常�?

float angle = (float) tolua_tonumber(L, 1, 2 * PI);
...

�q�个意思是�Q�这个函数的参数1默认�?*PI�Q�什么是默认�Q�lua里某函数参数不传�Q�或传nil��是使用默认。因��Z��传的话，�q�个实参本��n��是nil。但�Q�tolua_tonumber的行��Z��是这��L��Q�它的实现真是偷�?

TOLUA_API lua_Number tolua_tonumber (lua_State* L, int narg, lua_Number def)
{
 return lua_gettop(L)<abs(narg) ? def : lua_tonumber(L,narg);
}
TOLUA_API const char* tolua_tostring (lua_State* L, int narg, const char* def)
{
 return lua_gettop(L)<abs(narg) ? def : lua_tostring(L,narg);
}

意思是�Q�只有当你不传的时候，它才�q�回默认��|��否则��׃��l�lua的API来管�Q�而lua�q�些API是不支持应用层的默认参数的，对于lua_tonumber错误时就�q�回0�Q�lua_tostring错误时就�q�回NULL�?/p>

�q�种其行为和其带来的common sense不一致的API设计�Q�实在让��疹{��什么是common sense呢？��像一个UI库里的按钮，我们都知道有click事�g�Q�hover事�g�Q�UI库的文档甚至都不需要解释什么是click什么是hover�Q�因为大家看到这个东西，��有了共识，无需废话�Q�这��是common sense。就像tolua的这些API�Q�非常普通，大家一看都期待在意外情况下你能�q�回def倹{��但它竟然不是。实在不行，你可以模仿lua的check�p�d��函数的实现嘛:

LUALIB_API lua_Number luaL_checknumber (lua_State *L, int narg) {
 lua_Number d = lua_tonumber(L, narg);
 if (d == 0 && !lua_isnumber(L, narg)) /* avoid extra test when d is not 0 */
 tag_error(L, narg, LUA_TNUMBER);
 return d;
}

卻I��Ҏ��不用��L��查栈问题�Q�直接在lua_tonumber之后再做包装��查。何况，lua需要你��L��查栈吗？当你讉K��了栈外的元素�Ӟ��lua会自动返回一个全局帔R��luaO_nilobject:

static TValue *index2adr(lua_State *L, int idx) {
 ...
 if (o >= L->top) return cast(TValue*, luaO_nilobject);
}

另，�E�序悲剧也来源于臆想�?/p>

Kevin Lynx 2012-05-10 15:38 发表评论

Kevin Lynx — Sun, 24 Apr 2011 09:28:00 GMT

传递Lua函数到C/C++中

问题

在Lua中，因为函数也是第一类值，所以会出现将函数作为另一个函数的参数，或者函数作为函数的返回值。这种机制在很多地方都能代码更灵活更简洁，例如:

table.sort(table [,comp])

这里的comp就要求传入一个函数，我们在调用时，大概会有如下形式:

table.sort(t, comp) -- 直接写函数名
table.sort(t, local_comp) -- 某个局部函数
table.sort(t, function (a, b) xxx end ) -- 临时构造一个匿名函数

其中最后一种方式最为灵活，任意时候在需要的时候构造一个匿名函数。这种在Lua自身的环境中使用，自然没有问题。但是，当我们在C/C++中注册一些函数到Lua环境中，而这些函数也需要使用函数参数的时候，问题就出来了。

Lua本身是不支持将Lua函数作为函数参数传入C/C++的，不管这个想要传入的函数是全局的、局部的、或者匿名的（匿名的本质上也算局部的）。一般情况下，我们唯一的交互方式，不是传入一个函数，而是一个全局函数名。C/C++保存这个函数名，在需要回调Lua的时候，就在Lua全局表中找到这个函数（根据函数名），然后再调用之。情况大致如下:

function lua_func () xxx end
cfunc(lua_func) -- wrong
cfunc("lua_func") -- right

我们这回的脚本模块，策划会大量使用需要回调函数的C/C++函数。显然，创建大量的全局函数，先是从写代码的角度看，就是很伤神的。

解决

我们最终需要的方式，大概如下:

cfunc(lua_func) -- ok
cfunc(function () xxx end) -- ok
local xxx = function () xxx end
cfunc(xxx) -- ok

要解决这个问题，我的思路是直接在Lua层做一些包装。因为C/C++那边仅支持传入一个全局函数名（当然不一定得全局的，根据实际情况，可能在其他自己构造的表里也行），也就是一个字符串，所以我的思路就是将Lua函数和一个唯一的字符串做映射。:

function wrap (fn)
    local id = generate_id()
    local fn_s = "__callback_fn"..id
    _G[fn_s] = fn
    return fn_s
end

这个wrap函数，就是将一个函数在全局表里映射到一个字符串上，那么在使用时:

cfunc(wrap(function () xxx end))
cfunc(const char *fn_name, xxx); -- cfunc的原型

cfunc是C/C++方注册进Lua的函数，它的原型很中规中矩，即：只接收一个函数名，一个字符串，如之前所说，C/C++要调用这个回调函数时，就根据这个字符串去查找对应的函数。脚本方在调用时，如果想传入一个匿名函数了，就调用wrap函数包装一下即可。

一个改进

上面的方法有个很严重的问题，在多次调用wrap函数后，将导致全局表也随之膨胀。我们需要想办法在C/C++完成回调后，来清除wrap建立的数据。这个工作当然可以放到C/C++来进行，例如每次发生回调后，就设置下全局表。但这明显是不对的，因为违背了接口的设计原则，这个额外的机制是在Lua里添加的，那么责任也最好由Lua来负。要解决这个问题，就可以使用Lua的metamethods机制。这个机制可以在Lua内部发生特定事件时，让应用层得到通知。这里，我们需要关注__call事件。

Lua中只要有__call metamethod的值，均可被当作函数调用。例如:

ab(1, 2)

这里这个函数调用形式，Lua就会去找ab是否有__call metamethod，如果有，则调用它。这个事实暗示我们，一个table也可以被调用。一个改进的wrap函数如下:

local function create_callback_table (fn, name)
    local t = {}
    t.callback = fn
    setmetatable (t, {__call =  -- 关注__call
        function (func, ...) -- 在t(xx)时，将调用到这个函数
            func.callback (...) -- 真正的回调
            del_callback (name) -- 回调完毕，清除wrap建立的数据
        end })
    return t
end

function wrap (fn)
    local id = generate_func_id() -- 产生唯一的id
    local fn_s = "_callback_fn"..id
    _G[fn_s] = create_callback_table(fn, fn_s) -- _G[fn_s]对应的是一个表
    return fn_s
end

在我们的C/C++程序中，依然如往常一样，先是从_G里取出函数名对应的对象。虽然这个对象现在已经是一个table。然后lua_call。

上面的代码是否会在原有基础上增加不可接受的性能代价？虽然我没有做过实际测试，但是从表明看来，排除meta table在Lua里的代价，也就多了几次Lua函数调用。

最后，感叹一下，Lua里的table及metatable机制，实在非常强大。这种强大不是功能堆砌出来的强大，而是简单东西组合出来的强大。其背后的设计思想，着实让人佩服。

4.26.2011 Update

之前的文中说“Lua本身是不支持将Lua函数作为函数参数传入C/C++的“，这句话严格来说不正确（由某网友评论）。假设函数cfun由c/c++注册，我们是可以编写如下代码的:

cfunc(print) -- 传入Lua函数

但是问题在于，我们无法取出这个函数并保存在c/c++方。Lua提供了一些接口用于取cfunc 的参数，例如luaL_checknumber（封装lua_tonumber）。但没有类似luaL_checkfunction的接口。Lua中的table有同样的问题。究其原因，主要是Lua中的函数没有直接的c/c++数据结构对应。

;; END

Kevin Lynx 2011-04-24 17:28 发表评论

飞秋lua版：luafeiq0.1.0发布

Kevin Lynx — Mon, 31 Jan 2011 08:51:00 GMT

�l�上�ơ捣鼓出�?a href="http://www.shnenglu.com/kevinlynx/archive/2011/01/23/139187.html" target="_blank">飞秋的群聊协�?/a>�?鉴于�q�底没啥事情�?��q��lua写了个简单的协议兼容的IM。本来开始让

另一个同事在iptux的基��上修改的�Q�结果大概是因�ؓiptux的代码不是那么容易修改，��׃��了了之了。这�?/font>

刚发布的luafeiq功能非常��单，仅支持与飞秋�Q�包括大部分兼容IP messager的IM�Q�进行单聊，��?/font>消息�?/font>

收发�Q�简易的消息盒子�Q�暂存未��L��息）。因为选的库都是跨�q�_��的，所以很�Ҏ��的luafeiq也是�?/font>�q�_��的，

最主要的是我想在linux下��用�?/font>

之所以选用lua�Q�一斚w��是想�l�练lua�Q�另一斚w��则是因�ؓ开发效率。前�D�|��间在android下写了些java代码�Q?/font>

用java写代码觉得甚为爽快（当然��不了完��）。这几天写了千把行的lua�Q�也许有3K行，未统计过�Q�，

感觉也不错。综合来��_��q�些高��语言的很多好用的语法�Ҏ��，例如闭包�Q�closure�Q�，垃圾回收�Q�都提高

了不��写代码的速度。当�Ӟ��lua于我而言也算不上完美的语�a�。例如我�l�常因�ؓ变量敲错字母�Q�而在�q�行�?/font>

才暴露nil错误。这也许可以通过诸如IDE之类的工具在写代码的时候就�l�予提示。lua 在遇��C��个符��h��Q?/font>

默认地将其处理�ؓ全局的。关于这个语法特性早有�h提出不爽�Q�只能说大家设计的准则不一栗��（在我�?/font>

��目里，我直接改写了全局变量的metatable�Q�从而防止策划随意定义全局变量�Q?/font>

再来谈谈实现�q�程中的一些琐事。因为飞�U�也��是IP messager协议的兼容实玎ͼ�很多通信除了可以使用

抓包软�g分析外，�q�可以直接通过IP messager的源码来了解。所以，基础通信协议的实现过�E�也比较

��单。飞�U�与飞秋之间发送私聊消息是�l�过加密的。其加密�q�程也不��单，更重要的是，我�ƈ不想��费�?/font>

多时间在�q�上面。后来发现其实可以通过上线消息里某个标志位表明自己不需要加密。这个标志就是消息头

里的option。上�U�广播出�ȝ��消息里一旦表明自�׃��加密�Q�那么以后和飞秋通信也就不需要解密了�?/font>

发送私聊消息时�Q�消息里会携带一个消息ID。这个ID可以通过��L��法生成�Q�例如直接取time的倹{��接收到

�Ҏ��的消息时�Q�需要取��ID�Q�然后加入回应消息。对�Ҏ��到回应消息后�Q�就知道自己发送成功。这个过�E?/font>

��是ip messager在UDP上做的消息可靠验证，�q�程也比较简单�?/font>

��聊消息在之前提到过�Q�是通过UDP多播实现。我们可以接收所有群的消息。如果之前已�l�处于某个群里，

那么一旦你上线后（�q�播上线消息�Q�，你就可以直接在这个群里发�a�。但如果你之前不在这个群里，�?/font>

可以通过多播一个加入群的消息，然后��可以不误��来地在这个群里发�a�。详�l�的消息值和实现都可以从

luafeiq的代码里��d��Q�message_sender.lua�Q��?/font>

在linux下接收windows上的飞秋消息�Q�是需要做字符�~�码转换的。因为luafeiq使用IUP作�ؓUI库，IUP�?/font>

linux下��用GTK作�ؓ底层实现�Q�默认全部是UTF8�~�码。luafeiq里我自己写了个lua库，用于�~�码转换�?/font>

话说IUP作�ؓ一个UI库，�q�是比较不错的。正如其介绍文档里所��_��学习曲线低，基本上看一会文档，��可�?/font>

直接使用了。luafeiq使用的IUP版本臛_��需�?.0以上。当初在linux下�ؓ了安装IUP3.3�Q�基本花�?个小�?/font>

旉��Q�各�U�奇怪的没多大意义的错误信息。后来换�?.2版本�Q�居然一下子��和谐了�Q�无限怨念�?/font>

luafeiq目前攑֜�googlecode的版本，可以说是一个很不负责�Q的版本。早上我才刚把字�W�编码�{换的代码

调试好。今天已�l�请假，安��׃��台电脑，也就��试不了�q�个字符�~�码转换是否真的能正常工作。我�?/font>

windows下dump了些字符�Q�看上去能正常功能。明天得回老家�q�春节，上不了网�Q�烦性就提前发布了�?/font>

luafeiq��目地址�Q?a title="http://code.google.com/p/luafeiq/" >http://code.google.com/p/luafeiq/

Kevin Lynx 2011-01-31 16:51 发表评论

修改tolua++代码支持插入预编译头文�g

Kevin Lynx — Sun, 28 Feb 2010 12:58:00 GMT

tolua++自动生成�l�定代码�Ӟ��不支持插入预�~�译头文件。虽然可以插入直接的C++代码例如
�Q�如$#include xxxx�Q�但插入位置�q�没有位于文件头。对于��用预�~�译头的大型工程而言�Q?br>��其是某个绑定代码依赖了工程里其他很多东西，更万恶的是预�~�译头文仉��居然包含很多
自己写的代码�Ӟ��支持插入预编译头文�g�q�个功能很重要�?

说白了，也就是要让tolua++在生成的代码文�g开头插�?include "stdafx.h"�?

修改代码其实很简单。tolua++分析pkg文�g及生成代码文件其实都是通过lua代码完成的�?br>在src/bin/lua目录下，或者在源代码里toluabind.c里（把对应的lua代码直接以ASCII码�?br>复制了过来）即�ؓ�q�些代码�?

首先修改package.lua里的classPackage::preamble函数�Q�可以看��函数会生成一些代�?br>文�g��_��模仿着卛_��写下如下代码�Q?

if flags['I'] then
output( '#include "..flags['I'] )
end

从上下文代码可以看出flags是个全局变量�Q�保存了命��o行参数�?

然后修改tolua.c代码文�g�Q�让其往lua环境里传入命令行参数�Q?

case 'I':setfield(L,t,"I",argv[++i];break;

本来�Q�这样修改后基本��可以让tolua++支持通过命��o行指定是否插入预�~�译��_��
tolua++ -o test.cpp -H test.h -I stdafx.h test.pkg

不过事情�q��很顺利，通过开启TOLUA_SCRIPT_RUN宏来让tolua++通过src/bin/lua下的lua
代码来完成功能，�l�果后来发现basic.lua��g��有问题。无奈之下，只好用winhex之类的工
��h��修改�q�的package.lua转换为unsigned char B[]�|�于toluabind.c里，卛_��正常处理�?

Kevin Lynx 2010-02-28 20:58 发表评论

Kevin Lynx — Sun, 17 Jan 2010 11:32:00 GMT

很早前在折腾挂�vLUA脚本支持�Ӟ��接触到lua_yield�q�个函数。lua manual中给的解释是�Q?

This function should only be called as the return expression of a C function�?

而这个函��C��般是在一个注册到LUA环境中的C函数里被调用。lua_CFunction要求的原型里
�Q�函数的�q�回值必��返回要�q�回到LUA脚本中的值的个数。也��是��_��在一个不需要挂��L��
lua_CFunction实现里，也就是一个不需要return lua_yield(...的实现里�Q�我应该return
一个返回��g��数�?

但是��Z��么调用lua_yield��必��L��在return表达式里�Q�当时很天真�Q�没��L��IӞ��反正发现
不按照lua manual里说的做��是不行。而且关键是，lua manual��׃��告诉你�ؓ什么�?

最�q�突然就惛_��q�个问题�Q�决定去搞清楚这个问题。侯捯��了，源码面前了无�U�密。我甚至
在看代码之前�Q�还琢磨着LUA是不是操作了堆栈�Q�系�l�堆栈）之类的东�ѝ��结果随便跟了下
代码真的让我很汗颜。有时候�h犯傻了真的是一个悲剧。诺��单的一个问题会被�h搞得很神
�U�：

解释执行调用一个注册进LUA的lua_CFunction是在ldo.c里的luaD_precall函数里，有如�?br>代码�Q?

    n = (*curr_func(L)->c.f)(L); /* do the actual call */
    lua_lock(L);
    if (n < 0) /* yielding? */
      return PCRYIELD;
    else {
      luaD_poscall(L, L->top - n);
      return PCRC;
    }

多的我就不说了，别�h注释写得很清楚了�Q�注册进�ȝ��lua_CFunction如果�q�回值小�?�Q�这
个函数就向上层返回PCRYIELD�Q�从名字��可看出是告诉上层需要YIELD。再扑ֈ�lua_yield�?br>数的实现�Q�恰好该函数��p��?1�?

要再往上层跟，会到lvm.c里luaV_execute函数�Q�看��h��应该��是虚拟机在解释执行指��o�Q?

      case OP_CALL: {
        int b = GETARG_B(i);
        int nresults = GETARG_C(i) - 1;
        if (b != 0) L->top = ra+b; /* else previous instruction set top */
        L->savedpc = pc;
        switch (luaD_precall(L, ra, nresults)) {
          case PCRLUA: {
            nexeccalls++;
            goto reentry; /* restart luaV_execute over new Lua function */
          }
          case PCRC: {
            /* it was a C function (`precall' called it); adjust results */
            if (nresults >= 0) L->top = L->ci->top;
            base = L->base;
            continue;

对于PCRYIELD�q�回��|��直接忽略处理了�?

Kevin Lynx 2010-01-17 19:32 发表评论

Kevin Lynx — Wed, 13 Aug 2008 01:33:00 GMT

摘要: 实现LUA�l�定�? author : Kevin Lynx Preface 当LUA脚本调用我们注册的C函数�Ӟ��我们需要逐个��C��LUA栈里取出调用参数�Q�当函数�q�回�Ӟ��又需要一个一个地往LUA栈压入返回��|��q�且我们注册的函数只能是int()(lua_State*)�c�d��。这很不方便�Q�对于上层程序员来说更不方便�?nbsp; 因此我们要做�?.. 阅读全文

Kevin Lynx 2008-08-13 09:33 发表评论

实现LUA脚本同步处理事�g:LUA的coroutine

Kevin Lynx — Tue, 12 Aug 2008 08:02:00 GMT

author : Kevin Lynx

需�?/strong>

受WOW的媄响，LUA��来��多地被应用于游戏中。脚本被用于游戏中主要用于策划编写游戏规则相兟뀂实际运用中�Q?br>我们会将很多宿主语言函数�l�定到LUA脚本中，使脚本可以更多地控制�E�序�q�行。例如我们可以绑定NPCDialog之类的函�?br>到LUA中，然后�{�划便可以在脚本里控制游戏中弹出的NPC对话框�?br> 我们现在面�͘q�样的需求：对于宿主�E�序而言�Q�某些功能是不能��d��E�序逻辑的（对于游戏�E�序��其如此�Q�，但是�?br>了方便策划，我们又需要让脚本看�v来被��d��了。用NPCDialog举个例子�Q�在脚本中有如下代码 �Q?br>

    ret = NPCDialog( "Hello bitch" )
    if ret == OK then print("OK") end

    对于�{�划而言�Q�NPCDialog应该是阻塞的�Q�除非玩家操作此对话框，点击OK或者关闭，不然该函��C��会返回。而对�?br>宿主�E�序C++而言�Q�我们如何实现这个函数呢�Q?

    static int do_npc_dialog( lua_State *L )
    {
        const char *content = lua_tostring( L, -1 );

        lua_pushnumber( ret );
        return 1;
    }

    昄��Q�该函数不能��d��Q�否则它会阻塞整个游戏线�E�，�q�对于服务器而言是不可行的。但是如果该函数立即�q�回�Q�那
么它�q�没有收集到玩家对于那个对话框的操作�?br>    �l�g��Q�我们要做的是，让脚本感觉某个操作阻塞，但事实上宿主�E�序�q�没有阻塞�?
事�g机制
    一个最��单的实现�Q�对于C�E�序员而言也许也是优美的）�Q�就是��用事件机制。我们将对话框的操作�l�果作�ؓ一个事件�?br>脚本里事实上没有哪个函数是阻塞的。�ؓ了处理一�?#8220;��d��”函数的处理结果，脚本向宿�ȝ��序注册事件处理器�Q�同GUI事�g
处理其实是一��L��Q�，例如脚本可以�q�样�Q?br>

    function onEvent( ret )
        if ret == OK then print("OK") end
    end
    -- register event handler
    SetEventHandler( "onEvent" )
    NPCDialog("Hello bitch")

    宿主�E�序保存事�g处理器onEvent函数名，当玩家操作了对话框后�Q�宿�ȝ��序回调脚本中的onEvent�Q�完成操作�?br>    事实上我�怿�有很多�h��实是这么做的。这样做其实��是把一个顺序执行的代码��，分成了很多块。但是对于sleep
�q�样的脚本调用呢�Q�例如：

    --do job A
    sleep(10)
    --do job B
    sleep(10)
    --do job C


    那么采用事�g机制��可能会把代码分解�ؓ�Q?br>

    function onJobA
        --do job A
        SetEventHandlerB("onJobB")
        sleep(10)
    end
    function onJobB
        --do job B
        SetEventHandlerC("onJobC")
    end
    function onJobC
        --do job C
    end
    -- script starts here
    SetEventHandlerA( "onJobA" )
    sleep(10)

    代码看�v来似乎有炚w��看了�Q�最重要的是它不易编写，�{�划估计会抓狂的。我惻I��对于非专业程序员而言�Q�程序的
��序执行可能理解��h��更�ؓ�Ҏ��?
SOLVE IT
    我们的解��x��案，其实只有一句话�Q�当脚本执行到阻塞操作时�Q�如NPCDialog�Q�，挂�v脚本�Q�当宿主�E�序某个操作�?br>成时�Q�让脚本从之前的挂�v点��l�执行�?br>    �q�不是一�U�假想的功能。我在刚开始实现这个功能之前，以�ؓLUA不支持这个功能。我臆想着如下的操作：
    脚本�Q?br>    ret = NPCDialog("Hello bitch")
    if ret == 0 then print("OK") end
    宿主�E�序�Q?br>

    static int do_npc_dialog( lua_State *L )
    {

        lua_suspend_script( L );

    }

    某个地方某个操作完成了：
    lua_resume_script( L );
    当我实现了这个功能后�Q�我猛然发现�Q�实际情况和我这里想的差不多�Q�有�Ҏ��颜）�?/font>

认识Coroutine

    coroutine是LUA中类似线�E�的东西�Q�但是它其实和fiber更相伹{��也��是��_��它是一�U�非抢占式的�U�程�Q�它的切换取�?br>于�Q务本�w�，也就是取决你�Q�你军_��它们什么时候发生切换。徏议你阅读lua manual了解更多�?br>    coroutine支持的典型操作有�Q�lua_yield, lua_resume�Q�也��是我们需要的挂�v和��l�执行�?br>    lua_State��g��是一个coroutine�Q�或者按照LUA文档中的另一�U�说法，��是一个thread。我�q�里之所以用’��g��‘�?br>因�ؓ我自�׃��无法��定�Q�我只能��_��lua_State看�v来就是一个coroutine�?br>    LUA提供lua_newthread用于手工创徏一个coroutine�Q�然后将新创建的coroutine攄��于堆栈顶�Q�如同其他new出来�?br>对象一栗��网上有帖子说lua_newthread创徏的东西与脚本里调用coroutine.create创徏出来的东西不一��P��但是�Ҏ��?br>的观察来看，他们是一��L��。lua_newthread�q�回一个lua_State对象�Q�所以从�q�里可以看出�Q?#8220;lua_State看�v来就是一�?br>coroutine”。另外，�|�上也有��创徏新的coroutine代�h很大�Q�但是，一个lua_State的代仯��有多大？当然�Q�我没做�q?br>��试�Q�不敢多�a��?br>    lua_yield用于挂�v一个coroutine�Q�不�q�该函数只能用于coroutine内部�Q�看看它的参数就知道了�?br>    lua_resume用于启动一个coroutine�Q�它可以用于coroutine没有�q�行时启动之�Q�也可以用于coroutine挂�v旉��新启�?br>之。lua_resume在两�U�情况下�q�回�Q�coroutine挂�v或者执行完毕，否则lua_resume不返回�?br>    lua_yield和lua_resume对应于脚本函敎ͼ�coroutine.yield和coroutine.resume�Q�徏议你写写脚本�E�序感受下coroutine�Q?br>例如�Q?br>

    function main()
        print("main start")
        coroutine.yield()
        print("main end")
    end
    co=coroutine.create( main );
    coroutine.resume(co)

REALLY SOLVE IT

    你可能会惛_��Q�我们�ؓ脚本定义一个main�Q�然后在宿主�E�序里lua_newthread创徏一个coroutine�Q�然后将main放进去，
当脚本调用宿�ȝ��序的某个’��d��‘操作�Ӟ��宿主�E�序获取��C��前创建的coroutine�Q�然后yield之。当操作完成�Ӟ��再resume
之�?br>    事实上方法是对的�Q�但是没有必要再创徏一个coroutine。如之前所��_��一个lua_State看上��d��是一个coroutine�Q?br>而恰好，我们始终都会有一个lua_State。感觉上�Q�这个lua_State��像是main coroutine。（��像你的�ȝ��E�）
    思�\��是�q�样�Q�因为具体实现时�Q�还是有些问题，所以我�|�列每个步骤的代码�?br>    初始lua_State时如你��^时所做：

    lua_State *L = lua_open();
    luaopen_base( L );

    注册脚本需要的宿主�E�序函数到L里：

    lua_pushcfunction( L, sleep );
    lua_setglobal( L, "my_sleep" );

    载入脚本文�g�q�执行时�E�微有点不同�Q?br>

    luaL_loadfile( L, "test.lua" );
lua_resume( L, 0 ); /**//* 调用resume */

    在你�?#8217;��d��‘函数里需要挂起coroutine�Q?br>

    return lua_yield( L, 0 );

    注意�Q�lua_yield函数非常特别�Q�它必须作�ؓreturn语句被调用，否则会调用失败，具体原因我也不清楚。而在�q�里�Q?br>它作为lua_CFunction的返回��|��会不会引发错误？因�ؓlua_CFunction�U�定�q�回��gؓ该函数对于脚本而言的返回��g��数�?br>实际情况是，我看到的一些例子里都这样安排lua_yield�Q�所以i do what they do�?
    在这个操作完成后�Q�如玩家操作了那个对话框�Q�，宿主�E�序需要唤醒coroutine�Q?br>

    lua_resume( L, 0 );

    大致步骤��p��些。如果你要单独创建新的lua_State�Q�反而会搞得很麻烦，我开始就是那��L��做的�Q��L��实现不了自己
预想中的效果�?
相关下蝲�Q?/strong>
    例子�E�序中，我给了一个sleep实现。脚本程序调用sleep时将被挂��P��宿主�E�序不断��查当前时��_��当时间到�Ӟ��resume
挂�v的coroutine�?a href="http://www.shnenglu.com/Files/kevinlynx/lua_test_coro.rar" target=_blank>下蝲例子

8.13补充

   可能有时候，我们提供�l�脚本的函数需要返回一些值给脚本�Q�例如NPCDialog�q�回操作�l�果�Q�我们只需要在宿主�E�序里lua_resume

之前push�q�回值即可，当然�Q�需要设�|�lua_resume�W�二个参��Cؓ�q�回��g��数�?br>
2.9.2010
    lua_yield( L, nResults )�W�二个参数指定返回给lua_resume的��g��数。如下：

   lua_pushnumber( L, 3 );
   return lua_yield( L, 1 );
..
   int ret = lua_resume( L, 0 );
   if( ret == LUA_YIELD )
   {
         lua_Number r = luaL_checknumber( L, -1 );
   }

Kevin Lynx 2008-08-12 16:02 发表评论