lfs（LuaFileSystem） 64位dll以及vs工程

lfs.dll 的64位版本，以及其编译vs工程（vs2010）。
其中包含 lua5.1的64位运行库。

/*
** $Id: lapi.cv 2.53 2006/01/10 12:50:00 roberto Exp $
** Lua API
** See Copyright Notice in lua.h
*/


#include 
#include 
#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[] =
  “$Lua: “ LUA_VERSION “ “ LUA_COPYRIGHT “ $\n“
  “$Authors: “ LUA_AUTHORS “ $\n“
  “$URL: www.lua.org $\n“;



#define api_checknelems（L n）	api_check（L （n） <= （L->top - L->base））

#define api_checkvalidindex（L i）	api_check（L （i） != luaO_nilobject）

#define api_incr_top（L）   {api_check（L L->top < L->ci->top）; L->top++;}



static TValue *index2adr （lua_State *L int idx） {
  if （idx > 0） {
    TValue *o = L->base + （idx - 1）;
    api_check（L idx <= L->ci->top - L->base）;
    if （o >= L->top） return cast（TValue * luaO_nilobject）;
    else return o;
  }
  else if （idx > LUA_REGISTRYINDEX） {
    api_check（L idx != 0 && -idx <= L->top - L->base）;
    return L->top + idx;
  }
  else switch （idx） {  /* pseudo-indices */
    case LUA_REGISTRYINDEX: return registry（L）;
    case LUA_ENVIRONINDEX: {
      Closure *func = curr_func（L）;
      sethvalue（L &L->env func->c.env）;
      return &L->env;
    }
    case LUA_GLOBALSINDEX: return gt（L）;
    default: {
      Closure *func = curr_func（L）;
      idx = LUA_GLOBALSINDEX - idx;
      return （idx <= func->c.nupvalues）
                ? &func->c.upvalue[idx-1]
                : cast（TValue * luaO_nilobject）;
    }
  }
}


static Table *getcurrenv （lua_State *L） {
  if （L->ci == L->base_ci）  /* no enclosing function? */
    return hvalue（gt（L））;  /* use global table as environment */
  else {
    Closure *func = curr_func（L）;
    return func->c.env;
  }
}


void luaA_pushobject （lua_State *L const TValue *o） {
  setobj2s（L L->top o）;
  api_incr_top（L）;
}


LUA_API int lua_checkstack （lua_State *L int size） {
  int res;
  lua_lock（L）;
  if （（L->top - L->base + size） > LUAI_MAXCSTACK）
    res = 0;  /* stack overflow */
  else {
    luaD_checkstack（L size）;
    if （L->ci->top < L->top + size）
      L->ci->top = L->top + size;
    res = 1;
  }
  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））;
  api_check（from to->ci->top - to->top >= n）;
  from->top -= n;
  for （i = 0; i < n; i++） {
    setobj2s（to to->top++ from->top + i）;
  }
  lua_unlock（to）;
}


LUA_API lua_CFunction lua_atpanic （lua_State *L lua_CFunction panicf） {
  lua_CFunction old;
  lua_lock（L）;
  old = G（L）->panic;
  G（L）->panic = panicf;
  lua_unlock（L）;
  return old;
}


LUA_API lua_State *lua_newthread （lua_State *L） {
  lua_State *L1;
  lua_lock（L）;
  luaC_checkGC（

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2017-04-08 14:22  LuaFileSystem\
     文件      104448  2017-04-08 14:20  LuaFileSystem\lfs.dll
     目录           0  2017-03-22 23:27  LuaFileSystem\lua51\
     文件        2697  2017-03-22 23:26  LuaFileSystem\lua51\lua51.def
     文件        8502  2017-03-22 22:59  LuaFileSystem\lua51\lua51.vcxproj
     文件        6205  2017-03-22 22:50  LuaFileSystem\lua51\lua51.vcxproj.filters
     文件         143  2017-03-22 22:48  LuaFileSystem\lua51\lua51.vcxproj.user
     目录           0  2017-03-22 21:46  LuaFileSystem\lua51\src_lua51\
     文件       22380  2006-01-10 20:50  LuaFileSystem\lua51\src_lua51\lapi.c
     文件         258  2005-04-26 03:24  LuaFileSystem\lua51\src_lua51\lapi.h
     文件       17230  2006-01-16 20:42  LuaFileSystem\lua51\src_lua51\lauxlib.c
     文件        5747  2005-12-29 23:32  LuaFileSystem\lua51\src_lua51\lauxlib.h
     文件       16654  2006-01-18 19:49  LuaFileSystem\lua51\src_lua51\lbaselib.c
     文件       21164  2005-12-23 00:19  LuaFileSystem\lua51\src_lua51\lcode.c
     文件        2787  2005-11-09 03:44  LuaFileSystem\lua51\src_lua51\lcode.h
     文件       10045  2005-12-29 23:32  LuaFileSystem\lua51\src_lua51\ldblib.c
     文件       15998  2005-12-23 00:19  LuaFileSystem\lua51\src_lua51\ldebug.c
     文件        1057  2005-04-26 03:24  LuaFileSystem\lua51\src_lua51\ldebug.h
     文件       14700  2005-12-23 00:19  LuaFileSystem\lua51\src_lua51\ldo.c
     文件        1893  2005-08-25 00:15  LuaFileSystem\lua51\src_lua51\ldo.h
     文件        3107  2006-02-16 23:53  LuaFileSystem\lua51\src_lua51\ldump.c
     文件        4602  2005-12-23 00:19  LuaFileSystem\lua51\src_lua51\lfunc.c
     文件        1121  2005-04-26 03:24  LuaFileSystem\lua51\src_lua51\lfunc.h
     文件       19967  2005-12-23 00:19  LuaFileSystem\lua51\src_lua51\lgc.c
     文件        3155  2005-08-25 00:15  LuaFileSystem\lua51\src_lua51\lgc.h
     文件         761  2005-12-29 23:32  LuaFileSystem\lua51\src_lua51\linit.c
     文件       13002  2006-01-28 20:59  LuaFileSystem\lua51\src_lua51\liolib.c
     文件       12450  2006-02-07 02:28  LuaFileSystem\lua51\src_lua51\llex.c
     文件        2173  2005-12-07 23:43  LuaFileSystem\lua51\src_lua51\llex.h
     文件        2345  2005-12-28 01:12  LuaFileSystem\lua51\src_lua51\llimits.h
     文件        5827  2005-08-27 01:36  LuaFileSystem\lua51\src_lua51\lmathlib.c
............此处省略113个文件信息