32 #define LUA_IGMARK		"-"
78 ** system-dependent functions
117 ** Macro to convert pointer-to-void* to pointer-to-function. This cast
129   dlclose(lib);  in lsys_unloadlib()
184     luaL_gsub(L, lua_tostring(L, -1), LUA_EXEC_DIR, buff);  in setprogdir()
185     lua_remove(L, -2);  /* remove original string */  in setprogdir()
286   b = lua_toboolean(L, -1);  in noenv()
312       luaL_addlstring(&b, path, dftmark - path);  /* add it */  in setpath()
316     if (dftmark < path + len - 2) {  /* is there a suffix after ';;'? */  in setpath()
318       luaL_addlstring(&b, dftmark + 2, (path + len - 2) - dftmark);  in setpath()
323   lua_setfield(L, -3, fieldname);  /* package[fieldname] = path value */  in setpath()
336   lua_getfield(L, -1, path);  in checkclib()
337   plib = lua_touserdata(L, -1);  /* plib = CLIBS[path] */  in checkclib()
344 ** registry.CLIBS[path] = plib        -- for queries
345 ** registry.CLIBS[#CLIBS + 1] = plib  -- also keep a list of all libraries
350   lua_pushvalue(L, -1);  in addtoclib()
351   lua_setfield(L, -3, path);  /* CLIBS[path] = plib */  in addtoclib()
352   lua_rawseti(L, -2, luaL_len(L, -2) + 1);  /* CLIBS[#CLIBS + 1] = plib */  in addtoclib()
363   for (; n >= 1; n--) {  /* for each handle, in reverse order */  in gctm()
365     lsys_unloadlib(lua_touserdata(L, -1));  in gctm()
417     lua_insert(L, -2);  in ll_loadlib()
442 ** the ending ';' to '\0' to create a zero-terminated string. Return
452     name++;  /* skip it */  in getnextfilename()
487   /* separator is non-empty and appears in 'name'? */  in searchpath()
495   endpathname = pathname + luaL_bufflen(&buff) - 1;  in searchpath()
501   pusherrornotfound(L, lua_tostring(L, -1));  /* create error message */  in searchpath()
514     lua_insert(L, -2);  in ll_searchpath()
525   path = lua_tostring(L, -1);  in findfile()
539                           lua_tostring(L, 1), filename, lua_tostring(L, -1));  in checkload()
555 ** the form X-Y (that is, it has an "ignore mark"), build a function
567     openfunc = lua_pushlstring(L, modname, mark - modname);  in loadfunc()
571     modname = mark + 1;  /* else go ahead and try old-style name */  in loadfunc()
592   lua_pushlstring(L, name, p - name);  in searcher_Croot()
593   filename = findfile(L, lua_tostring(L, -1), "cpath", LUA_CSUBSEP);  in searcher_Croot()
611   if (lua_getfield(L, -1, name) == LUA_TNIL) {  /* not found? */  in searcher_preload()
631     luaL_addstring(&msg, "\n\t");  /* error-message prefix */  in findloader()
636       luaL_error(L, "module '%s' not found:%s", name, lua_tostring(L, -1));  in findloader()
640     if (lua_isfunction(L, -2))  /* did it find a loader? */  in findloader()
642     else if (lua_isstring(L, -2)) {  /* searcher returned error message? */  in findloader()
659   if (lua_toboolean(L, -1))  /* is it there? */  in ll_require()
664   lua_rotate(L, -2, 1);  /* function <-> loader data */  in ll_require()
666   lua_pushvalue(L, -3);  /* loader data is 2nd argument */  in ll_require()
670   if (!lua_isnil(L, -1))  /* non-nil return? */  in ll_require()
676     lua_copy(L, -1, -2);  /* replace loader result */  in ll_require()
679   lua_rotate(L, -2, 1);  /* loader data <-> module result  */  in ll_require()
712   lua_createtable(L, sizeof(searchers)/sizeof(searchers[0]) - 1, 0);  in createsearcherstable()
715     lua_pushvalue(L, -2);  /* set 'package' as upvalue for all searchers */  in createsearcherstable()
717     lua_rawseti(L, -2, i+1);  in createsearcherstable()
719   lua_setfield(L, -2, "searchers");  /* put it in field 'searchers' */  in createsearcherstable()
731   lua_setfield(L, -2, "__gc");  /* set finalizer for CLIBS table */  in createclibstable()
732   lua_setmetatable(L, -2);  in createclibstable()
746   lua_setfield(L, -2, "config");  in luaopen_package()
749   lua_setfield(L, -2, "loaded");  in luaopen_package()
752   lua_setfield(L, -2, "preload");  in luaopen_package()
754   lua_pushvalue(L, -2);  /* set 'package' as upvalue for next lib */  in luaopen_package()