** Try to find a load function for module 'modname' at file 'filename'. ** First, change '.' to '_' in 'modname'; then, if 'modname' has ** the form X-Y (that is, it has an "ignore mark"), build a function ** name "luaopen_X" and look for it. (For compatibility, if that ** fails, it also tries "luaopen_Y".) If there is no ignore mark, ** look for a function named "luaopen_modname". */
| 510 | ** look for a function named "luaopen_modname". |
| 511 | */ |
| 512 | static int loadfunc (lua_State *L, const char *filename, const char *modname) { |
| 513 | const char *openfunc; |
| 514 | const char *mark; |
| 515 | modname = luaL_gsub(L, modname, ".", LUA_OFSEP); |
| 516 | mark = strchr(modname, *LUA_IGMARK); |
| 517 | if (mark) { |
| 518 | int stat; |
| 519 | openfunc = lua_pushlstring(L, modname, mark - modname); |
| 520 | openfunc = lua_pushfstring(L, LUA_POF"%s", openfunc); |
| 521 | stat = lookforfunc(L, filename, openfunc); |
| 522 | if (stat != ERRFUNC) return stat; |
| 523 | modname = mark + 1; /* else go ahead and try old-style name */ |
| 524 | } |
| 525 | openfunc = lua_pushfstring(L, LUA_POF"%s", modname); |
| 526 | return lookforfunc(L, filename, openfunc); |
| 527 | } |
| 528 | |
| 529 | |
| 530 | static int searcher_C (lua_State *L) { |
no test coverage detected