Fix. call `join` on gc for attached not joinable thread.

Code refactoring.

1 files changed, 56 insertions, 0 deletions

diff --git a/src/traceback.inc b/src/traceback.inc
new file mode 100644
index 0000000..af2f5a1
--- /dev/null
+++ b/src/traceback.inc
@@ -0,0 +1,56 @@
+/******************************************************************************

+* traceback() function from Lua 5.1/5.2 source.

+* Copyright (C) 1994-2008 Lua.org, PUC-Rio.  All rights reserved.

+*

+* Permission is hereby granted, free of charge, to any person obtaining

+* a copy of this software and associated documentation files (the

+* "Software"), to deal in the Software without restriction, including

+* without limitation the rights to use, copy, modify, merge, publish,

+* distribute, sublicense, and/or sell copies of the Software, and to

+* permit persons to whom the Software is furnished to do so, subject to

+* the following conditions:

+*

+* The above copyright notice and this permission notice shall be

+* included in all copies or substantial portions of the Software.

+*

+* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,

+* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

+* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.

+* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY

+* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,

+* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE

+* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

+******************************************************************************/

+#if !defined(LUA_VERSION_NUM) || (LUA_VERSION_NUM == 501)

+/* from Lua 5.1 */

+static int traceback (lua_State *L) {

+  if (!lua_isstring(L, 1))  /* 'message' not a string? */

+    return 1;  /* keep it intact */

+  lua_getglobal(L, "debug");

+  if (!lua_istable(L, -1)) {

+    lua_pop(L, 1);

+    return 1;

+  }

+  lua_getfield(L, -1, "traceback");

+  if (!lua_isfunction(L, -1)) {

+    lua_pop(L, 2);

+    return 1;

+  }

+  lua_pushvalue(L, 1);  /* pass error message */

+  lua_pushinteger(L, 2);  /* skip this function and traceback */

+  lua_call(L, 2, 1);  /* call debug.traceback */

+  return 1;

+}

+#else

+/* from Lua 5.2 */

+static int traceback (lua_State *L) {

+  const char *msg = lua_tostring(L, 1);

+  if (msg)

+    luaL_traceback(L, L, msg, 1);

+  else if (!lua_isnoneornil(L, 1)) {  /* is there an error object? */

+    if (!luaL_callmeta(L, 1, "__tostring"))  /* try its 'tostring' metamethod */

+      lua_pushliteral(L, "(no error message)");

+  }

+  return 1;

+}

+#endif