loadlib.c-Dateireferenz

#include <stdlib.h>
#include <string.h>
#include "lua.h"
#include "lauxlib.h"
#include "lualib.h"

Include-Abhängigkeitsdiagramm für loadlib.c:

gehe zum Quellcode dieser Datei

Makrodefinitionen
#define	loadlib_c
#define	LUA_LIB
#define	LUA_POF   "luaopen_"
#define	LUA_OFSEP   "_"
#define	LIBPREFIX   "LOADLIB: "
#define	POF   LUA_POF
#define	LIB_FAIL   "open"
#define	ERRLIB   1
#define	ERRFUNC   2
#define	setprogdir(L)   ((void)0)
#define	sentinel   ((void *)&sentinel_)
#define	AUXMARK   "\1"

Funktionen
static int	readable (const char *filename)
static const char *	pushnexttemplate (lua_State *L, const char *path)
static const char *	findfile (lua_State *L, const char *name, const char *pname)
static void	loaderror (lua_State *L, const char *filename)
static int	loader_Lua (lua_State *L)
static int	loader_preload (lua_State *L)
static int	ll_require (lua_State *L)
static void	setpath (lua_State *L, const char *fieldname, __attribute__((unused)) const char *envname, const char *def)
LUALIB_API int	luaopen_package (lua_State *L)

Variablen
static const int	sentinel_ = 0
static const luaL_Reg	pk_funcs []
static const luaL_Reg	ll_funcs []
static const lua_CFunction	loaders []

Makro-Dokumentation

#define AUXMARK   "\1"

Definiert in Zeile 596 der Datei loadlib.c.

#define ERRFUNC   2

Definiert in Zeile 40 der Datei loadlib.c.

#define ERRLIB   1

Definiert in Zeile 39 der Datei loadlib.c.

#define LIB_FAIL   "open"

Definiert in Zeile 35 der Datei loadlib.c.

#define LIBPREFIX   "LOADLIB: "

Definiert in Zeile 32 der Datei loadlib.c.

#define loadlib_c

Definiert in Zeile 16 der Datei loadlib.c.

#define LUA_LIB

Definiert in Zeile 17 der Datei loadlib.c.

#define LUA_OFSEP   "_"

Definiert in Zeile 29 der Datei loadlib.c.

#define LUA_POF   "luaopen_"

Definiert in Zeile 26 der Datei loadlib.c.

#define POF   LUA_POF

Definiert in Zeile 34 der Datei loadlib.c.

#define sentinel   ((void *)&sentinel_)

Definiert in Zeile 455 der Datei loadlib.c.

#define setprogdir

(

L)

((void)0)

Definiert in Zeile 42 der Datei loadlib.c.

Dokumentation der Funktionen

static const char* findfile ( lua_State *  L, const char *  name, const char *  pname  )

static

Definiert in Zeile 359 der Datei loadlib.c.

                                                              {
  const char *path;
  name = luaL_gsub(L, name, ".", LUA_DIRSEP);
  lua_getfield(L, LUA_ENVIRONINDEX, pname);
  path = lua_tostring(L, -1);
  if (path == NULL)
    luaL_error(L, LUA_QL("package.%s") " must be a string", pname);
  lua_pushliteral(L, "");  /* error accumulator */
  while ((path = pushnexttemplate(L, path)) != NULL) {
    const char *filename;
    filename = luaL_gsub(L, lua_tostring(L, -1), LUA_PATH_MARK, name);
    lua_remove(L, -2);  /* remove path template */
    if (readable(filename))  /* does file exist and is readable? */
      return filename;  /* return that file name */
    lua_pushfstring(L, "\n\tno file " LUA_QS, filename);
    lua_remove(L, -2);  /* remove file name */
    lua_concat(L, 2);  /* add entry to possible error message */
  }
  return NULL;  /* not found */
}

static int ll_require ( lua_State *  L)

static

Definiert in Zeile 458 der Datei loadlib.c.

                                     {
  const char *name = luaL_checkstring(L, 1);
  int i;
  lua_settop(L, 1);  /* _LOADED table will be at index 2 */
  lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED");
  lua_getfield(L, 2, name);
  if (lua_toboolean(L, -1)) {  /* is it there? */
    if (lua_touserdata(L, -1) == sentinel)  /* check loops */
      luaL_error(L, "loop or previous error loading module " LUA_QS, name);
    return 1;  /* package is already loaded */
  }
  /* else must load it; iterate over available loaders */
  lua_getfield(L, LUA_ENVIRONINDEX, "loaders");
  if (!lua_istable(L, -1))
    luaL_error(L, LUA_QL("package.loaders") " must be a table");
  lua_pushliteral(L, "");  /* error message accumulator */
  for (i=1; ; i++) {
    lua_rawgeti(L, -2, i);  /* get a loader */
    if (lua_isnil(L, -1))
      luaL_error(L, "module " LUA_QS " not found:%s",
                    name, lua_tostring(L, -2));
    lua_pushstring(L, name);
    lua_call(L, 1, 1);  /* call it */
    if (lua_isfunction(L, -1))  /* did it find module? */
      break;  /* module loaded successfully */
    else if (lua_isstring(L, -1))  /* loader returned error message? */
      lua_concat(L, 2);  /* accumulate it */
    else
      lua_pop(L, 1);
  }
  lua_pushlightuserdata(L, sentinel);
  lua_setfield(L, 2, name);  /* _LOADED[name] = sentinel */
  lua_pushstring(L, name);  /* pass name as argument to module */
  lua_call(L, 1, 1);  /* run loaded module */
  if (!lua_isnil(L, -1))  /* non-nil return? */
    lua_setfield(L, 2, name);  /* _LOADED[name] = returned value */
  lua_getfield(L, 2, name);
  if (lua_touserdata(L, -1) == sentinel) {   /* module did not set a value? */
    lua_pushboolean(L, 1);  /* use true as result */
    lua_pushvalue(L, -1);  /* extra copy to be returned */
    lua_setfield(L, 2, name);  /* _LOADED[name] = true */
  }
  return 1;
}

static int loader_Lua ( lua_State *  L)

static

Definiert in Zeile 387 der Datei loadlib.c.

                                     {
  const char *filename;
  const char *name = luaL_checkstring(L, 1);
  filename = findfile(L, name, "path");
  if (filename == NULL) return 1;  /* library not found in this path */
  if (luaL_loadfile(L, filename) != 0)
    loaderror(L, filename);
  return 1;  /* library loaded successfully */
}

static int loader_preload ( lua_State *  L)

static

Definiert in Zeile 442 der Datei loadlib.c.

                                         {
  const char *name = luaL_checkstring(L, 1);
  lua_getfield(L, LUA_ENVIRONINDEX, "preload");
  if (!lua_istable(L, -1))
    luaL_error(L, LUA_QL("package.preload") " must be a table");
  lua_getfield(L, -1, name);
  if (lua_isnil(L, -1))  /* not found? */
    lua_pushfstring(L, "\n\tno field package.preload['%s']", name);
  return 1;
}

static void loaderror ( lua_State *  L, const char *  filename  )

static

Definiert in Zeile 381 der Datei loadlib.c.

                                                           {
  luaL_error(L, "error loading module " LUA_QS " from file " LUA_QS ":\n\t%s",
                lua_tostring(L, 1), filename, lua_tostring(L, -1));
}

LUALIB_API int luaopen_package

(

lua_State *

L)

Definiert in Zeile 637 der Datei loadlib.c.

                                              {
  int i;
#if 0
  /* create new type _LOADLIB */
  luaL_newmetatable(L, "_LOADLIB");
  lua_pushcfunction(L, gctm);
  lua_setfield(L, -2, "__gc");
#endif
  /* create `package' table */
  luaL_register(L, LUA_LOADLIBNAME, pk_funcs);
#if 0
#if defined(LUA_COMPAT_LOADLIB) 
  lua_getfield(L, -1, "loadlib");
  lua_setfield(L, LUA_GLOBALSINDEX, "loadlib");
#endif
#endif
  lua_pushvalue(L, -1);
  lua_replace(L, LUA_ENVIRONINDEX);
  /* create `loaders' table */
  lua_createtable(L, sizeof(loaders)/sizeof(loaders[0]) - 1, 0);
  /* fill it with pre-defined loaders */
  for (i=0; loaders[i] != NULL; i++) {
    lua_pushcfunction(L, loaders[i]);
    lua_rawseti(L, -2, i+1);
  }
  lua_setfield(L, -2, "loaders");  /* put it in field `loaders' */
  setpath(L, "path", LUA_PATH, LUA_PATH_DEFAULT);  /* set field `path' */
  setpath(L, "cpath", LUA_CPATH, LUA_CPATH_DEFAULT); /* set field `cpath' */
  /* store config information */
  lua_pushliteral(L, LUA_DIRSEP "\n" LUA_PATHSEP "\n" LUA_PATH_MARK "\n"
                     LUA_EXECDIR "\n" LUA_IGMARK);
  lua_setfield(L, -2, "config");
  /* set field `loaded' */
  luaL_findtable(L, LUA_REGISTRYINDEX, "_LOADED", 2);
  lua_setfield(L, -2, "loaded");
  /* set field `preload' */
  lua_newtable(L);
  lua_setfield(L, -2, "preload");
  lua_pushvalue(L, LUA_GLOBALSINDEX);
  luaL_register(L, NULL, ll_funcs);  /* open lib into global table */
  lua_pop(L, 1);
  return 1;  /* return 'package' table */
}

static const char* pushnexttemplate ( lua_State *  L, const char *  path  )

static

Definiert in Zeile 348 der Datei loadlib.c.

                                                                     {
  const char *l;
  while (*path == *LUA_PATHSEP) path++;  /* skip separators */
  if (*path == '\0') return NULL;  /* no more templates */
  l = strchr(path, *LUA_PATHSEP);  /* find next separator */
  if (l == NULL) l = path + strlen(path);
  lua_pushlstring(L, path, l - path);  /* template */
  return l;
}

static int readable ( const char *  filename)

static

Definiert in Zeile 335 der Datei loadlib.c.

                                           {
#ifdef HOST_LUA
  FILE *f = fopen(filename, "r");  /* try to open file */
  if (f == NULL) return 0;  /* open failed */
  fclose(f);
#else
  int f = open(filename,O_RDONLY,0777);
  if (f == -1) return 0;  /* open failed */
  close(f);
#endif
  return 1;
}

static void setpath ( lua_State *  L, const char *  fieldname, __attribute__((unused)) const char *  envname, const char *  def  )

static

Definiert in Zeile 598 der Datei loadlib.c.

                                                    {
/* CHDK - no environment vars */
#if defined(HDK_VERSION)
  lua_pushstring(L, def);  /* use default */
#else
  const char *path = getenv(envname);
  if (path == NULL)  /* no environment variable? */
    lua_pushstring(L, def);  /* use default */
  else {
    /* replace ";;" by ";AUXMARK;" and then AUXMARK by default path */
    path = luaL_gsub(L, path, LUA_PATHSEP LUA_PATHSEP,
                              LUA_PATHSEP AUXMARK LUA_PATHSEP);
    luaL_gsub(L, path, AUXMARK, def);
    lua_remove(L, -2);
  }
#endif
  setprogdir(L);
  lua_setfield(L, -2, fieldname);
}

Variablen-Dokumentation

const luaL_Reg ll_funcs[]

static

Initialisierung:

= {

  {"require", ll_require},
  {NULL, NULL}
}

Definiert in Zeile 626 der Datei loadlib.c.

const lua_CFunction loaders[]

static

Initialisierung:

=
  {loader_preload, loader_Lua,  NULL}

Definiert in Zeile 633 der Datei loadlib.c.

const luaL_Reg pk_funcs[]

static

Initialisierung:

= {


  {NULL, NULL}
}

Definiert in Zeile 619 der Datei loadlib.c.

const int sentinel_ = 0

static

Definiert in Zeile 454 der Datei loadlib.c.