• 大小: 1005KB
    文件类型: .zip
    金币: 1
    下载: 0 次
    发布日期: 2023-08-29
  • 语言: 其他
  • 标签: lua  win  5.3.4  lua.exe  

资源简介

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.4\lua-5.3.4\
     目录           0  2017-11-15 11:39  lua-5.3.4\lua-5.3.4\doc\
     文件       29948  2016-12-23 04:29  lua-5.3.4\lua-5.3.4\doc\contents.html
     文件         240  2015-04-03 11:54  lua-5.3.4\lua-5.3.4\doc\index.css
     文件        9893  2016-12-04 20:36  lua-5.3.4\lua-5.3.4\doc\logo.gif
     文件        2192  2016-10-17 23:43  lua-5.3.4\lua-5.3.4\doc\lua.1
     文件        2311  2016-02-28 19:34  lua-5.3.4\lua-5.3.4\doc\lua.css
     文件        3071  2011-11-17 01:16  lua-5.3.4\lua-5.3.4\doc\luac.1
     文件         256  2015-03-11 21:12  lua-5.3.4\lua-5.3.4\doc\manual.css
     文件      327666  2017-01-09 23:30  lua-5.3.4\lua-5.3.4\doc\manual.html
     文件        3774  2006-11-17 03:39  lua-5.3.4\lua-5.3.4\doc\osi-certified-72x60.png
     文件       11380  2016-12-23 04:22  lua-5.3.4\lua-5.3.4\doc\readme.html
     文件        3273  2016-12-21 00:26  lua-5.3.4\lua-5.3.4\Makefile
     文件         151  2017-01-13 01:25  lua-5.3.4\lua-5.3.4\README
     目录           0  2017-11-15 11:39  lua-5.3.4\lua-5.3.4\src\
     文件       31323  2016-02-29 22:27  lua-5.3.4\lua-5.3.4\src\lapi.c
     文件         541  2015-03-07 03:49  lua-5.3.4\lua-5.3.4\src\lapi.h
     文件       30784  2017-11-15 11:34  lua-5.3.4\lua-5.3.4\src\lapi.obj
     文件       30491  2016-12-21 02:37  lua-5.3.4\lua-5.3.4\src\lauxlib.c
     文件        8628  2016-12-06 22:54  lua-5.3.4\lua-5.3.4\src\lauxlib.h
     文件       36874  2017-11-15 11:34  lua-5.3.4\lua-5.3.4\src\lauxlib.obj
     文件       13707  2016-09-06 03:06  lua-5.3.4\lua-5.3.4\src\lbaselib.c
     文件       22233  2017-11-15 11:34  lua-5.3.4\lua-5.3.4\src\lbaselib.obj
     文件        4959  2015-11-12 03:08  lua-5.3.4\lua-5.3.4\src\lbitlib.c
     文件         890  2017-11-15 11:34  lua-5.3.4\lua-5.3.4\src\lbitlib.obj
     文件       34304  2016-12-22 21:08  lua-5.3.4\lua-5.3.4\src\lcode.c
     文件        3250  2016-01-06 00:22  lua-5.3.4\lua-5.3.4\src\lcode.h
     文件       26595  2017-11-15 11:34  lua-5.3.4\lua-5.3.4\src\lcode.obj
     文件        3764  2016-04-12 03:19  lua-5.3.4\lua-5.3.4\src\lcorolib.c
     文件        7722  2017-11-15 11:34  lua-5.3.4\lua-5.3.4\src\lcorolib.obj
............此处省略94个文件信息

评论

共有 条评论