linit.c

絲路server源碼 Silk Road server source

/*
** $Id: linit.c,v 1.14 2005/12/29 15:32:11 roberto Exp $
** Initialization of libraries for PVE.c
** See Copyright Notice in PVE.h
*/


#define linit_c
#define PVE_LIB

#include "PVE.h"

#include "PVElib.h"
#include "lauxlib.h"


static const PVEL_Reg PVElibs[] = {
  {"", PVEopen_base},
  {PVE_LOADLIBNAME, PVEopen_package},
  {PVE_TABLIBNAME, PVEopen_table},
  {PVE_IOLIBNAME, PVEopen_io},
  {PVE_OSLIBNAME, PVEopen_os},
  {PVE_STRLIBNAME, PVEopen_string},
  {PVE_MATHLIBNAME, PVEopen_math},
  {PVE_DBLIBNAME, PVEopen_debug},
  {NULL, NULL}
};


PVELIB_API void PVEL_openlibs (PVE_State *L) {
  const PVEL_Reg *lib = PVElibs;
  for (; lib->func; lib++) {
    PVE_pushcfunction(L, lib->func);
    PVE_pushstring(L, lib->name);
    PVE_call(L, 1, 0);
  }
}