lua-win-5.3.4源码以及编译后的exe文件和win10环境配置

/*
** $Id: lapi.cv 2.259 2016/02/29 14:27:14 roberto Exp $
** Lua API
** See Copyright Notice in lua.h
*/

#define lapi_c
#define LUA_CORE

#include “lprefix.h“


#include 
#include 

#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 upvalue */
#define isupvalue（i）		（（i） < LUA_REGISTRYINDEX）

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

#define api_checkvalidindex（lo）  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 n） {
  int res;
  CallInfo *ci = L->ci;
  lua_lock（L）;
  api_check（L n >= 0 “negative ‘n‘“）;
  if （L->stack_last - L->top > n）  /* 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 - n）  /* can grow without overflow? */
      res = 0;  /* no */
    else  /* try to grow stack */
      res = （luaD_rawrunprotected（L &growstack &n） == LUA_OK）;
  }
  if （res && ci->top < L->top + n）
    ci->top = L->top + n;  /* 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

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2017-11-15 11:39  lua-5.3.4
     目录           0  2017-11-15 11:47  lua-5.3.4lua-5.3.4
     目录           0  2017-11-15 11:39  lua-5.3.4lua-5.3.4doc
     文件       29948  2016-12-23 04:29  lua-5.3.4lua-5.3.4doccontents.html
     文件         240  2015-04-03 11:54  lua-5.3.4lua-5.3.4docindex.css
     文件        9893  2016-12-04 20:36  lua-5.3.4lua-5.3.4doclogo.gif
     文件        2192  2016-10-17 23:43  lua-5.3.4lua-5.3.4doclua.1
     文件        2311  2016-02-28 19:34  lua-5.3.4lua-5.3.4doclua.css
     文件        3071  2011-11-17 01:16  lua-5.3.4lua-5.3.4docluac.1
     文件         256  2015-03-11 21:12  lua-5.3.4lua-5.3.4docmanual.css
     文件      327666  2017-01-09 23:30  lua-5.3.4lua-5.3.4docmanual.html
     文件        3774  2006-11-17 03:39  lua-5.3.4lua-5.3.4docosi-certified-72x60.png
     文件       11380  2016-12-23 04:22  lua-5.3.4lua-5.3.4doc
eadme.html
     文件        3273  2016-12-21 00:26  lua-5.3.4lua-5.3.4Makefile
     文件         151  2017-01-13 01:25  lua-5.3.4lua-5.3.4README
     目录           0  2017-11-15 11:39  lua-5.3.4lua-5.3.4src
     文件       31323  2016-02-29 22:27  lua-5.3.4lua-5.3.4srclapi.c
     文件         541  2015-03-07 03:49  lua-5.3.4lua-5.3.4srclapi.h
     文件       30784  2017-11-15 11:34  lua-5.3.4lua-5.3.4srclapi.obj
     文件       30491  2016-12-21 02:37  lua-5.3.4lua-5.3.4srclauxlib.c
     文件        8628  2016-12-06 22:54  lua-5.3.4lua-5.3.4srclauxlib.h
     文件       36874  2017-11-15 11:34  lua-5.3.4lua-5.3.4srclauxlib.obj
     文件       13707  2016-09-06 03:06  lua-5.3.4lua-5.3.4srclbaselib.c
     文件       22233  2017-11-15 11:34  lua-5.3.4lua-5.3.4srclbaselib.obj
     文件        4959  2015-11-12 03:08  lua-5.3.4lua-5.3.4srclbitlib.c
     文件         890  2017-11-15 11:34  lua-5.3.4lua-5.3.4srclbitlib.obj
     文件       34304  2016-12-22 21:08  lua-5.3.4lua-5.3.4srclcode.c
     文件        3250  2016-01-06 00:22  lua-5.3.4lua-5.3.4srclcode.h
     文件       26595  2017-11-15 11:34  lua-5.3.4lua-5.3.4srclcode.obj
     文件        3764  2016-04-12 03:19  lua-5.3.4lua-5.3.4srclcorolib.c
     文件        7722  2017-11-15 11:34  lua-5.3.4lua-5.3.4srclcorolib.obj
............此处省略94个文件信息