Lua5.2源码

这是lua最新版源码，并提供了网页界面介绍关于lua给出的API。

/*
** $Id: lapi.cv 2.171.1.1 2013/04/12 18:48:47 roberto Exp $
** Lua API
** See Copyright Notice in lua.h
*/


#include 
#include 

#define lapi_c
#define LUA_CORE

#include “lua.h“

#include “lapi.h“
#include “ldebug.h“
#include “ldo.h“
#include “lfunc.h“
#include “lgc.h“
#include “lmem.h“
#include “lobject.h“
#include “lstate.h“
#include “lstring.h“
#include “ltable.h“
#include “ltm.h“
#include “lundump.h“
#include “lvm.h“



const char lua_ident[] =
  “$LuaVersion: “ LUA_COPYRIGHT “ $“
  “$LuaAuthors: “ LUA_AUTHORS “ $“;


/* value at a non-valid index */
#define NONVALIDVALUE		cast（TValue * luaO_nilobject）

/* corresponding test */
#define isvalid（o）	（（o） != luaO_nilobject）

/* test for pseudo index */
#define ispseudo（i）		（（i） <= LUA_REGISTRYINDEX）

/* test for valid but not pseudo index */
#define isstackindex（i o）	（isvalid（o） && !ispseudo（i））

#define api_checkvalidindex（L o）  api_check（L isvalid（o） “invalid index“）

#define api_checkstackindex（L i o）  \
	api_check（L isstackindex（i o） “index not in the stack“）


static TValue *index2addr （lua_State *L int idx） {
  CallInfo *ci = L->ci;
  if （idx > 0） {
    TValue *o = ci->func + idx;
    api_check（L idx <= ci->top - （ci->func + 1） “unacceptable index“）;
    if （o >= L->top） return NONVALIDVALUE;
    else return o;
  }
  else if （!ispseudo（idx）） {  /* negative index */
    api_check（L idx != 0 && -idx <= L->top - （ci->func + 1） “invalid index“）;
    return L->top + idx;
  }
  else if （idx == LUA_REGISTRYINDEX）
    return &G（L）->l_registry;
  else {  /* upvalues */
    idx = LUA_REGISTRYINDEX - idx;
    api_check（L idx <= MAXUPVAL + 1 “upvalue index too large“）;
    if （ttislcf（ci->func））  /* light C function? */
      return NONVALIDVALUE;  /* it has no upvalues */
    else {
      CClosure *func = clCvalue（ci->func）;
      return （idx <= func->nupvalues） ? &func->upvalue[idx-1] : NONVALIDVALUE;
    }
  }
}


/*
** to be called by ‘lua_checkstack‘ in protected mode to grow stack
** capturing memory errors
*/
static void growstack （lua_State *L void *ud） {
  int size = *（int *）ud;
  luaD_growstack（L size）;
}


LUA_API int lua_checkstack （lua_State *L int size） {
  int res;
  CallInfo *ci = L->ci;
  lua_lock（L）;
  if （L->stack_last - L->top > size）  /* stack large enough? */
    res = 1;  /* yes; check is OK */
  else {  /* no; need to grow stack */
    int inuse = cast_int（L->top - L->stack） + EXTRA_STACK;
    if （inuse > LUAI_MAXSTACK - size）  /* can grow without overflow? */
      res = 0;  /* no */
    else  /* try to grow stack */
      res = （luaD_rawrunprotected（L &growstack &size） == LUA_OK）;
  }
  if （res && ci->top < L->top + size）
    ci->top = L->top + size;  /* adjust frame top */
  lua_unlock（L）;
  return res;
}


LUA_API void lua_xmove （lua_State *from lua_State *to int n） {
  int i;
  if （from == to） return;
  lua_lock（to）;
  api_checknelems（from n）;
  api_check（from G（from） == G（to） “moving among independent states“）;
  api_ch

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2013-11-10 08:49  lua-5.2.3\
     目录           0  2013-11-10 08:58  lua-5.2.3\doc\
     文件       25014  2013-03-12 22:22  lua-5.2.3\doc\contents.html
     文件        4232  2001-10-23 20:39  lua-5.2.3\doc\logo.gif
     文件        2204  2011-11-17 01:16  lua-5.2.3\doc\lua.1
     文件        1491  2013-11-10 08:56  lua-5.2.3\doc\lua.css
     文件        3071  2011-11-17 01:16  lua-5.2.3\doc\luac.1
     文件         414  2013-11-10 08:45  lua-5.2.3\doc\manual.css
     文件      306305  2013-03-21 23:59  lua-5.2.3\doc\manual.html
     文件        3774  2006-11-17 03:39  lua-5.2.3\doc\osi-certified-72x60.png
     文件       12847  2013-11-10 08:39  lua-5.2.3\doc\readme.html
     文件        3274  2013-11-10 08:49  lua-5.2.3\Makefile
     文件         151  2013-11-10 08:49  lua-5.2.3\README
     目录           0  2013-11-11 19:46  lua-5.2.3\src\
     文件       29910  2013-04-13 02:48  lua-5.2.3\src\lapi.c
     文件         545  2013-04-13 02:48  lua-5.2.3\src\lapi.h
     文件       27541  2013-04-13 02:48  lua-5.2.3\src\lauxlib.c
     文件        7344  2013-04-13 02:48  lua-5.2.3\src\lauxlib.h
     文件       12285  2013-04-13 02:48  lua-5.2.3\src\lbaselib.c
     文件        4374  2013-07-10 02:01  lua-5.2.3\src\lbitlib.c
     文件       22404  2013-04-13 02:48  lua-5.2.3\src\lcode.c
     文件        3120  2013-04-13 02:48  lua-5.2.3\src\lcode.h
     文件        3575  2013-04-13 02:48  lua-5.2.3\src\lcorolib.c
     文件        2299  2013-04-13 02:48  lua-5.2.3\src\lctype.c
     文件        1841  2013-04-13 02:48  lua-5.2.3\src\lctype.h
     文件       10081  2013-04-13 02:48  lua-5.2.3\src\ldblib.c
     文件       16088  2013-05-17 00:04  lua-5.2.3\src\ldebug.c
     文件        1087  2013-04-13 02:48  lua-5.2.3\src\ldebug.h
     文件       20751  2013-11-09 02:22  lua-5.2.3\src\ldo.c
     文件        1531  2013-04-13 02:48  lua-5.2.3\src\ldo.h
     文件        3221  2013-04-13 02:48  lua-5.2.3\src\ldump.c
............此处省略43个文件信息