3

我有一个定期运行 Lua 脚本的应用程序。在脚本中，有时我创建了一个自定义注册的 Lua 函数来检查一些参数并决定 Lua 脚本应该继续还是退出。理想情况下，逻辑不应该是脚本的一部分，我可以考虑使用 Lua 脚本来解决这个问题，但我想知道是否可以在不结束应用程序的情况下停止 Lua 脚本的执行。

我有一个用 Delphi 编写的自定义函数，并使用 Lua 5.1 暴露给 Lua 脚本。Lua 脚本如下所示，Lua 中的脚本使用luaL_loadbuffer.

io.write("Script starting\n");
--Custom Function
ExitIfFound();
io.write("Script continuing\n");

我的自定义函数看起来像这样，下面我提供了我尝试lua_error用来停止脚本的尝试之一......

function ExitIfFound(LuaState: TLuaState): Integer;
var
  s: AnsiString;
begin
  s := 'ExitIfFound ending script, next Lua script line not called';
  lua_pushstring(LuaState, PAnsiString(s));
  lua_error(LuaState);
end;

当我的自定义函数被调用时，我不确定如何在没有任何进一步评估的情况下退出 Lua 脚本。我看过一些关于 Lua 和在 C 中使用setjmpand的帖子longjmp，但我很好奇这些如何翻译 Delphi。

在上面的示例中，当我使用 时lua_error，整个程序在 Windows 执行其典型操作时崩溃，[luarun.exe has stopped working]...

有了这一切，我对将 Lua 集成到 Delphi 还是很陌生，希望我能找到一些更清洁的选择来探索。

4

1 回答 1

1

没有完全中止 Lua 脚本的干净方法。该lua_error函数是发出错误信号的正确方法。调用者有责任捕获错误并将其传播给下一个调用者。

如果你不能依赖调用者配合，那么你可以尝试通过安装调试钩子来施加更多的控制。然后在继续运行脚本之前会咨询宿主程序。但是，脚本仍然可以通过使用pcallto catch any errors 来避免退出。

您的程序中的崩溃可能不仅仅是因为设置了错误。相反，这可能是由于在您的ExitIfFound函数上使用了错误的调用约定。它需要是cdecl，但Delphi的默认，如果你不指定其他任何东西，是注册。使用错误的调用约定会给您带来不可预测的参数值，并可能导致堆栈损坏。如果您在@调用时对函数进行了类型转换或使用了运算符lua_register，那么您可能已经从编译器的类型检查器中隐藏了调用约定不匹配，否则会在编译时提醒您该问题。

当编译为 C++ 时，lua_error将使用异常而不是longjmp，但无论哪种方式，调用者总是会捕获错误。但是，当您的 Delphi 代码使用编译器管理的类型（如string）或异常敏感的结构（如try-finally块）时，异常很重要。在 C 模式下，lua_error调用longjmp直接跳转到由先前调用设置的航路点setjmp。该跳转将跳过任何异常处理程序，例如 Delphi 编译器设置的异常处理程序，以确保finally块运行并清理字符串。

更令人头疼的是，由于编译器在退出函数时会清理字符串，因此您放在 Lua 堆栈上的指针可能在使用时无效；这取决于是否lua_pushstring复制其论点。

于 2012-11-29T00:12:48.803 回答