开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 模拟服务器 > 查看源码
LuaLib.h
资源名称：SwordOnline.rar　[点击查看]
上传用户：dzyhzl
上传日期：2019-04-29
资源大小：56270k
文件大小：15k
源码类别：

模拟服务器

开发平台：

C/C++

LuaLib.h：源码内容
  1. /*
  2. ** $Id: lua.h,v 1.79 2000/10/31 12:44:07 roberto Exp $
  3. ** Lua - An Extensible Extension Language
  4. ** TeCGraf: Grupo de Tecnologia em Computacao Grafica, PUC-Rio, Brazil
  5. ** e-mail: lua@tecgraf.puc-rio.br
  6. ** www: http://www.tecgraf.puc-rio.br/lua/
  7. ** See Copyright Notice at the end of this file
  8. */
  11. #ifndef lua_h
  12. #define lua_h
  15. /* definition of `size_t' */
  16. #include <stddef.h>
  18. #ifdef __linux
  19. #define LUA_API
  20. #define LUALIB_API
  21. #else
  22. #ifdef _USELUALIB
  23. #ifndef LUA_API
  24. #define LUA_API extern
  25. #define LUALIB_API extern
  26. #endif
  27. #else
  28. #define LUA_API extern __declspec(dllimport)
  29. #define LUALIB_API extern __declspec(dllimport)
  30. #endif
  32. #endif
  34. #ifdef __cplusplus
  35. extern "C" {
  36. #endif 
  38. #define LUA_VERSION "Lua 4.0"
  39. #define LUA_COPYRIGHT "Copyright (C) 1994-2000 TeCGraf, PUC-Rio"
  40. #define LUA_AUTHORS  "W. Celes, R. Ierusalimschy & L. H. de Figueiredo"
  43. /* name of global variable with error handler */
  44. #define LUA_ERRORMESSAGE "_ERRORMESSAGE"
  47. /* pre-defined references */
  48. #define LUA_NOREF (-2)
  49. #define LUA_REFNIL (-1)
  50. #define LUA_REFREGISTRY 0
  52. /* pre-defined tags */
  53. #define LUA_ANYTAG (-1)
  54. #define LUA_NOTAG (-2)
  57. /* option for multiple returns in lua_call */
  58. #define LUA_MULTRET (-1)
  61. /* minimum stack available for a C function */
  62. #define LUA_MINSTACK 20
  65. /* error codes for lua_do* */
  66. #define LUA_ERRRUN 1
  67. #define LUA_ERRFILE 2
  68. #define LUA_ERRSYNTAX 3
  69. #define LUA_ERRMEM 4
  70. #define LUA_ERRERR 5
  73. //##ModelId=3BA83F3A02ED
  74. typedef struct lua_State lua_State;
  76. //##ModelId=3BA83F3A02FD
  77. typedef int (*lua_CFunction) (lua_State *L);
  79. /*
  80. ** types returned by `lua_type'
  81. */
  82. #define LUA_TNONE (-1)
  84. #define LUA_TUSERDATA 0
  85. #define LUA_TNIL 1
  86. #define LUA_TNUMBER 2
  87. #define LUA_TSTRING 3
  88. #define LUA_TTABLE 4
  89. #define LUA_TFUNCTION 5
  93. /*
  94. ** state manipulation
  95. */
  96. LUA_API lua_State *lua_open (int stacksize);
  97. LUA_API void       lua_close (lua_State *L);
  100. /*
  101. ** basic stack manipulation
  102. */
  103. LUA_API int   lua_gettop (lua_State *L);
  104. LUA_API void  lua_settop (lua_State *L, int index);
  105. LUA_API void  lua_pushvalue (lua_State *L, int index);
  106. LUA_API void  lua_remove (lua_State *L, int index);
  107. LUA_API void  lua_insert (lua_State *L, int index);
  108. LUA_API int   lua_stackspace (lua_State *L);
  110. /*
  111. ** debug out functions
  112. */
  113. LUA_API int   lua_setdebugout(const char * , const char *);
  114. LUA_API void lua_outoutmsg(const char * szoutmsg);
  115. LUA_API void lua_outerrmsg(const char * szerrmsg);
  118. /*
  119. ** access functions (stack -> C)
  120. */
  122. LUA_API int            lua_type (lua_State *L, int index);
  123. LUA_API const char    *lua_typename (lua_State *L, int t);
  124. LUA_API int            lua_isnumber (lua_State *L, int index);
  125. LUA_API int            lua_isstring (lua_State *L, int index);
  126. LUA_API int            lua_iscfunction (lua_State *L, int index);
  127. LUA_API int            lua_tag (lua_State *L, int index);
  129. LUA_API int            lua_equal (lua_State *L, int index1, int index2);
  130. LUA_API int            lua_lessthan (lua_State *L, int index1, int index2);
  132. LUA_API double         lua_tonumber (lua_State *L, int index);
  133. LUA_API const char    *lua_tostring (lua_State *L, int index);
  134. LUA_API size_t         lua_strlen (lua_State *L, int index);
  135. LUA_API lua_CFunction  lua_tocfunction (lua_State *L, int index);
  136. LUA_API void       *lua_touserdata (lua_State *L, int index);
  137. LUA_API const void    *lua_topointer (lua_State *L, int index);
  140. /*
  141. ** push functions (C -> stack)
  142. */
  143. LUA_API void  lua_pushnil (lua_State *L);
  144. LUA_API void  lua_pushnumber (lua_State *L, double n);
  145. LUA_API void  lua_pushlstring (lua_State *L, const char *s, size_t len);
  146. LUA_API void  lua_pushstring (lua_State *L, const char *s);
  147. LUA_API void  lua_pushcclosure (lua_State *L, lua_CFunction fn, int n);
  148. LUA_API void  lua_pushusertag (lua_State *L, void *u, int tag);
  151. /*
  152. ** get functions (Lua -> stack)
  153. */
  154. LUA_API void  lua_getglobal (lua_State *L, const char *name);
  155. LUA_API void  lua_gettable (lua_State *L, int index);
  156. LUA_API void  lua_rawget (lua_State *L, int index);
  157. LUA_API void  lua_rawgeti (lua_State *L, int index, int n);
  158. LUA_API void  lua_getglobals (lua_State *L);
  159. LUA_API void  lua_gettagmethod (lua_State *L, int tag, const char *event);
  160. LUA_API int   lua_getref (lua_State *L, int ref);
  161. LUA_API void  lua_newtable (lua_State *L);
  164. /*
  165. ** set functions (stack -> Lua)
  166. */
  167. LUA_API void  lua_setglobal (lua_State *L, const char *name);
  168. LUA_API void  lua_settable (lua_State *L, int index);
  169. LUA_API void  lua_rawset (lua_State *L, int index);
  170. LUA_API void  lua_rawseti (lua_State *L, int index, int n);
  171. LUA_API void  lua_setglobals (lua_State *L);
  172. LUA_API void  lua_settagmethod (lua_State *L, int tag, const char *event);
  173. LUA_API int   lua_ref (lua_State *L, int lock);
  176. /*
  177. ** "do" functions (run Lua code)
  178. */
  179. LUA_API int   lua_call (lua_State *L, int nargs, int nresults);
  180. LUA_API void  lua_rawcall (lua_State *L, int nargs, int nresults);
  181. LUA_API int   lua_dofile (lua_State *L, const char *filename);
  182. LUA_API int   lua_dostring (lua_State *L, const char *str);
  183. LUA_API int   lua_dobuffer (lua_State *L, const char *buff, size_t size, const char *name);
  185. /*
  186. ** Garbage-collection functions
  187. */
  188. LUA_API int   lua_getgcthreshold (lua_State *L);
  189. LUA_API int   lua_getgccount (lua_State *L);
  190. LUA_API void  lua_setgcthreshold (lua_State *L, int newthreshold);
  192. /*
  193. ** miscellaneous functions
  194. */
  195. LUA_API int   lua_newtag (lua_State *L);
  196. LUA_API int   lua_copytagmethods (lua_State *L, int tagto, int tagfrom);
  197. LUA_API void  lua_settag (lua_State *L, int tag);
  199. LUA_API void  lua_error (lua_State *L, const char *s);
  201. LUA_API void  lua_unref (lua_State *L, int ref);
  203. LUA_API int   lua_next (lua_State *L, int index);
  204. LUA_API int   lua_getn (lua_State *L, int index);
  206. LUA_API void  lua_concat (lua_State *L, int n);
  208. LUA_API void *lua_newuserdata (lua_State *L, size_t size);
  209. LUA_API int ldo (int (*f)(lua_State *l, const char *), const char *name) ;
  212. /* 
  213. ** ===============================================================
  214. ** some useful macros
  215. ** ===============================================================
  216. */
  218. #define lua_pop(L,n) lua_settop(L, -(n)-1)
  220. #define lua_register(L,n,f) (lua_pushcfunction(L, f), lua_setglobal(L, n))
  221. #define lua_pushuserdata(L,u) lua_pushusertag(L, u, 0)
  222. #define lua_pushcfunction(L,f) lua_pushcclosure(L, f, 0)
  223. #define lua_clonetag(L,t) lua_copytagmethods(L, lua_newtag(L), (t))
  225. #define lua_isfunction(L,n) (lua_type(L,n) == LUA_TFUNCTION)
  226. #define lua_istable(L,n) (lua_type(L,n) == LUA_TTABLE)
  227. #define lua_isuserdata(L,n) (lua_type(L,n) == LUA_TUSERDATA)
  228. #define lua_isnil(L,n) (lua_type(L,n) == LUA_TNIL)
  229. #define lua_isnull(L,n) (lua_type(L,n) == LUA_TNONE)
  231. #define lua_getregistry(L) lua_getref(L, LUA_REFREGISTRY)
  233. //新加的API
  234. LUA_API int lua_compilebuffer(lua_State *L, const char *buff, size_t size, const char *name);//只对buffer经编绎，并不执行任何函数
  235. LUA_API int lua_compilefile (lua_State *L, const char *filename);//编译从文件流传来的脚本
  236. LUA_API int lua_execute(lua_State *L);//执行经过编绎之后的脚本
  237. LUA_API void lua_gettopindex(lua_State *L , int * pindex);//获得当前的脚本堆栈顶的索引
  240. //BaseLib
  243. //脚本引擎
  244. #define Lua_CFunction lua_CFunction
  245. #define Lua_State lua_State
  246. #define Lua_Create(nSize) lua_open(nSize)
  247. #define Lua_Release(L) lua_close(L)
  248. #define Lua_GetTopIndex(L) lua_gettop(L)
  249. #define Lua_SetTopIndex(L,nIndex) lua_settop(L,nIndex)
  250. #define Lua_PushValue(L,nIndex) lua_pushvalue(L,nIndex)
  251. #define Lua_RemoveValue(L,nIndex) lua_remove(L,nIndex)
  252. #define Lua_InsertValue(L,nIndex) lua_insert(L,nIndex)
  253. #define Lua_GetStackSpace(L) lua_stackspace(L)
  254. #define Lua_GetValueType(L,nIndex) lua_type(L,nIndex)
  255. #define Lua_GetTypeName(L,Tag) lua_typename(L,Tag)
  256. #define Lua_IsNumber(L,nIndex) lua_isnumber(L,nIndex)
  257. #define Lua_IsString(L,nIndex) lua_isstring(L,nIndex)
  258. #define Lua_IsCFunction(L,nIndex) lua_iscfunction(L,nIndex)
  259. #define Lua_IsTable(L,nIndex) lua_istable(L,nIndex)
  260. #define Lua_GetValueTag(L,nIndex) lua_tag(L,nIndex)
  261. #define Lua_IsEqual(L,index1,index2) lua_equal(L,index1,index2)
  262. #define Lua_IsLessThan(L,index1,index2) lua_lessthan(L,index1,index2)
  263. #define Lua_ValueToNumber(L,nIndex) lua_tonumber(L,nIndex)
  264. #define Lua_ValueToString(L,nIndex) lua_tostring(L,nIndex)
  265. #define Lua_GetStrLen(L,nIndex) lua_strlen(L,nIndex)
  266. #define Lua_ValueToCFunction(L,nIndex) lua_tocfunction(L,nIndex)
  267. #define Lua_ValueToUserData(L,nIndex) lua_touserdata(L,nIndex)
  268. #define Lua_ValueToPoint(L,nIndex) lua_topointer(L,nIndex)
  270. /*
  271. ** push functions (C -> stack)
  272. */
  274. #define Lua_PushNil(L) lua_pushnil(L)
  275. #define Lua_PushNumber(L,Number) lua_pushnumber(L,Number)
  276. #define Lua_PushLString(L,LString,Len) lua_pushlstring(L,LString,Len)
  277. #define Lua_PushString(L,String) lua_pushstring(L,String)
  278. #define Lua_PushCClosure(L,Fun,N) lua_pushcclosure(L,Fun,N)
  279. #define Lua_PushUserTag(L,PVoid,Tag) lua_pushusertag(L,PVoid,Tag)
  281. #define Lua_GetGlobal(L,Valuename) lua_getglobal(L,Valuename)
  282. #define Lua_GetTable(L,nIndex) lua_gettable(L,nIndex)
  283. #define Lua_RawGet(L,nIndex) lua_rawget(L,nIndex)
  284. #define Lua_RawGetI(L,nIndex,n) lua_rawgeti(L,nIndex,n)
  285. #define Lua_GetGlobals(L) lua_getglobals(L)
  286. #define Lua_GetTagMethod(L,iTag,cEvent) lua_gettagmethod(L,iTag,cEvent)
  287. #define Lua_GetRef(L,iRef) lua_getref(L,iRef)
  288. #define Lua_NewTable(L) lua_newtable(L)
  291. #define Lua_SetGlobal(L,cName) lua_setglobal(L,cName)
  292. #define Lua_SetTable(L,nIndex) lua_settable(L,nIndex)
  293. #define Lua_RawSet(L,nIndex) lua_rawset(L,nIndex)
  294. #define Lua_RawSetI(L,nIndex,nNum) lua_rawseti(L,nIndex,nNum)
  295. #define Lua_SetGlobals(L) lua_setglobals(L)
  296. #define Lua_SetTagMethod(L,iTag,cEvent) lua_settagmethod(L,iTag,cEvent)
  297. #define Lua_SetRef(L,nLock) lua_ref(L,nLock)
  299. #define Lua_Call(L,nArgs,nResults) lua_call(L,nArgs,nResults)
  300. #define Lua_RawCall(L,nArgs,nResults) lua_rawcall(L,nArgs,nResults)
  301. #define Lua_ExecuteFile(L,cFilename) lua_dofile(L,cFilename)
  302. #define Lua_ExecuteString(L,cString) lua_dostring(L,cString)
  303. #define Lua_ExecuteBuffer(L,pBuff,iSize,cname) lua_dobuffer(L,pBuff,iSize,cname)
  305. #define Lua_GetGCThreshold(L) lua_getgcthreshold(L)
  306. #define Lua_GetGCCount(L) lua_getgccount(L)
  307. #define Lua_SetGCThreshold(L,nThreshold)lua_setgcthreshold(L,nThreshold)
  310. /*
  311. ** miscellaneous functions
  312. */
  314. #define Lua_NewTag(L) lua_newtag(L)
  315. #define Lua_CopyTagMethods(L,nTagTo,nTagFrom) lua_copytagmethods(L,nTagTo,nTagFrom)
  316. #define Lua_SetTag(L,nTag) lua_settag(L,nTag)
  317. #define Lua_Error(L,cError) lua_error(L,cError)u
  318. #define Lua_UnRef(L,nRef) lua_unref(L,nRef)
  319. #define Lua_Next(L,nIndex) lua_next(L,nIndex)
  320. #define Lua_GetN(L,nIndex) lua_getn(L,nIndex)
  321. #define Lua_Concat(L,nNum) lua_concat(L,nNum)
  322. #define Lua_NewUserData(L,nSize) lua_newuserdata(L,nSize)
  325. #define Lua_OpenBaseLib(L)  lua_baselibopen(L)
  326. #define Lua_OpenIOLib(L)  lua_iolibopen(L)
  327. #define Lua_OpenStrLib(L)  lua_strlibopen(L)
  328. #define Lua_OpenMathLib(L)  lua_mathlibopen(L)
  329. #define Lua_OpenDBLib(L)  lua_dblibopen(L)
  332. /* 
  333. ** ===============================================================
  334. ** some useful macros
  335. ** ===============================================================
  336. */
  337. #define Lua_Pop(L,nIndex) lua_pop(L,nIndex)
  338. #define Lua_Register(L,cfname,pFun) lua_register(L,cfname,pFun)
  339. #define Lua_PushUserData(L,UseData) lua_pushuserdata(L,UseData)
  340. #define Lua_PushCFunction(L,pFun) lua_pushcfunction(L,pFun)
  341. #define Lua_CloneTag(L,nTag) lua_clonetag(L,nTag)
  342. #define Lua_GetRegistry(L) lua_getregistry(L)
  345. #define Lua_CompileBuffer(L,pBUFF,nBuffSize,cBname) lua_compilebuffer(L,pBUFF,nBuffSize,cBname)
  346. #define Lua_CompileFile(L,cFilename) lua_compilefile(L,cFilename)
  347. #define Lua_Execute(L) lua_execute(L)
  348. #define Lua_SafeBegin(L,pIndex) lua_gettopindex(L,pIndex)
  349. #define Lua_SafeEnd(L,nIndex) Lua_SetTopIndex(L,nIndex)
  352. LUA_API int Lua_SetTable_StringFromId(Lua_State * L, int nIndex, int Id, const char * szString);
  353. LUA_API int Lua_SetTable_DoubleFromId(Lua_State * L, int nIndex, int Id, double nNumber);
  354. LUA_API int Lua_SetTable_IntFromId(Lua_State * L, int nIndex, int Id, int nNumber);
  355. LUA_API int Lua_SetTable_CFunFromName(Lua_State * L, int nIndex, const char * szMemberName, Lua_CFunction CFun);
  356. LUA_API int Lua_SetTable_CFunFromId(Lua_State * L, int nIndex, int nId, Lua_CFunction CFun);
  357. LUA_API int Lua_SetTable_StringFromName(Lua_State * L, int nIndex, const char * szMemberName, char * szString);
  358. LUA_API int Lua_SetTable_IntFromName(Lua_State * L, int nIndex, const char * szMemberName, int Number);
  359. LUA_API int Lua_SetTable_DoubleFromName(Lua_State * L, int nIndex, const char * szMemberName, double Number);
  360. LUA_API int Lua_GetValuesFromStack(Lua_State * L, char * cFormat , ...);
  362. LUALIB_API void lua_baselibopen (lua_State *L);
  363. LUALIB_API void lua_iolibopen (lua_State *L);
  364. LUALIB_API void lua_strlibopen (lua_State *L);
  365. LUALIB_API void lua_mathlibopen (lua_State *L);
  366. LUALIB_API void lua_dblibopen (lua_State *L);
  369. #ifdef __cplusplus
  370. }
  371. #endif 
  373. #endif
  377. /******************************************************************************
  378. * Copyright (C) 1994-2000 TeCGraf, PUC-Rio.  All rights reserved.
  379. * 
  380. * Permission is hereby granted, without written agreement and without license
  381. * or royalty fees, to use, copy, modify, and distribute this software and its
  382. * documentation for any purpose, including commercial applications, subject to
  383. * the following conditions:
  384. * 
  385. *  - The above copyright notice and this permission notice shall appear in all
  386. *    copies or substantial portions of this software.
  387. * 
  388. *  - The origin of this software must not be misrepresented; you must not
  389. *    claim that you wrote the original software. If you use this software in a
  390. *    product, an acknowledgment in the product documentation would be greatly
  391. *    appreciated (but it is not required).
  392. * 
  393. *  - Altered source versions must be plainly marked as such, and must not be
  394. *    misrepresented as being the original software.
  395. *    
  396. * The authors specifically disclaim any warranties, including, but not limited
  397. * to, the implied warranties of merchantability and fitness for a particular
  398. * purpose.  The software provided hereunder is on an "as is" basis, and the
  399. * authors have no obligation to provide maintenance, support, updates,
  400. * enhancements, or modifications.  In no event shall TeCGraf, PUC-Rio, or the
  401. * authors be held liable to any party for direct, indirect, special,
  402. * incidental, or consequential damages arising out of the use of this software
  403. * and its documentation.
  404. * 
  405. * The Lua language and this implementation have been entirely designed and
  406. * written by Waldemar Celes Filho, Roberto Ierusalimschy and
  407. * Luiz Henrique de Figueiredo at TeCGraf, PUC-Rio.
  408. *
  409. * This implementation contains no third-party code.
  410. ******************************************************************************/