| 527 | |
| 528 | |
| 529 | static void modinit (lua_State *L, const char *modname) { |
| 530 | const char *dot; |
| 531 | lua_pushvalue(L, -1); |
| 532 | lua_setfield(L, -2, "_M"); /* module._M = module */ |
| 533 | lua_pushstring(L, modname); |
| 534 | lua_setfield(L, -2, "_NAME"); |
| 535 | dot = strrchr(modname, '.'); /* look for last dot in module name */ |
| 536 | if (dot == NULL) dot = modname; |
| 537 | else dot++; |
| 538 | /* set _PACKAGE as package name (full module name minus last part) */ |
| 539 | lua_pushlstring(L, modname, dot - modname); |
| 540 | lua_setfield(L, -2, "_PACKAGE"); |
| 541 | } |
| 542 | |
| 543 | |
| 544 | static int ll_module (lua_State *L) { |
no test coverage detected