332 static int readable (const char *filename) {  in readable()  argument
333   FILE *f = fopen(filename, "r");  /* try to open file */  in readable()
361     const char *filename;  in findfile()  local
362     filename = luaL_gsub(L, lua_tostring(L, -1), LUA_PATH_MARK, name);  in findfile()
364     if (readable(filename))  /* does file exist and is readable? */  in findfile()
365       return filename;  /* return that file name */  in findfile()
366     lua_pushfstring(L, "\n\tno file " LUA_QS, filename);  in findfile()
374 static void loaderror (lua_State *L, const char *filename) {  in loaderror()  argument
376                 lua_tostring(L, 1), filename, lua_tostring(L, -1));  in loaderror()
381   const char *filename;  in loader_Lua()  local
383   filename = findfile(L, name, "path");  in loader_Lua()
384   if (filename == NULL) return 1;  /* library not found in this path */  in loader_Lua()
385   if (luaL_loadfile(L, filename) != 0)  in loader_Lua()
386     loaderror(L, filename);  in loader_Lua()
405   const char *filename = findfile(L, name, "cpath");  in loader_C()  local
406   if (filename == NULL) return 1;  /* library not found in this path */  in loader_C()
408   if (ll_loadfunc(L, filename, funcname) != 0)  in loader_C()
409     loaderror(L, filename);  in loader_C()
416   const char *filename;  in loader_Croot()  local
422   filename = findfile(L, lua_tostring(L, -1), "cpath");  in loader_Croot()
423   if (filename == NULL) return 1;  /* root not found */  in loader_Croot()
425   if ((stat = ll_loadfunc(L, filename, funcname)) != 0) {  in loader_Croot()
426     if (stat != ERRFUNC) loaderror(L, filename);  /* real error */  in loader_Croot()
428                        name, filename);  in loader_Croot()