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

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

模拟服务器

开发平台：

C/C++

lua.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 _LIB
  19. #ifndef LUA_API
  20. #define LUA_API extern
  21. #define LUALIB_API extern
  22. #pragma message("LIB")
  23. #endif
  24. #endif
  25. /* mark for all API functions */
  27. #ifdef _USRDLL
  28. #ifdef LUALIBDLL_EXPORTS
  29. #define LUA_API extern  __declspec(dllexport)
  30. #define LUALIB_API extern __declspec(dllexport)
  31. #pragma message("Create LUA dllexport")
  32. #else
  33. #define LUA_API extern __declspec(dllimport)
  34. #define LUALIB_API extern __declspec(dllimport)
  35. #pragma message("Using LUA dllexport")
  36. #endif
  37. #endif
  39. #ifndef LUA_API 
  40. #define LUA_API extern
  41. #define LUALIB_API extern
  42. #pragma message("Default extern")
  43. #endif
  46. #ifdef __cplusplus
  47. extern "C" {
  48. #endif 
  50. #define LUA_VERSION "Lua 4.0"
  51. #define LUA_COPYRIGHT "Copyright (C) 1994-2000 TeCGraf, PUC-Rio"
  52. #define LUA_AUTHORS  "W. Celes, R. Ierusalimschy & L. H. de Figueiredo"
  55. /* name of global variable with error handler */
  56. #define LUA_ERRORMESSAGE "_ERRORMESSAGE"
  59. /* pre-defined references */
  60. #define LUA_NOREF (-2)
  61. #define LUA_REFNIL (-1)
  62. #define LUA_REFREGISTRY 0
  64. /* pre-defined tags */
  65. #define LUA_ANYTAG (-1)
  66. #define LUA_NOTAG (-2)
  69. /* option for multiple returns in lua_call */
  70. #define LUA_MULTRET (-1)
  73. /* minimum stack available for a C function */
  74. #define LUA_MINSTACK 20
  77. /* error codes for lua_do* */
  78. #define LUA_ERRRUN 1
  79. #define LUA_ERRFILE 2
  80. #define LUA_ERRSYNTAX 3
  81. #define LUA_ERRMEM 4
  82. #define LUA_ERRERR 5
  85. //##ModelId=3BA83F3A02ED
  86. typedef struct lua_State lua_State;
  88. //##ModelId=3BA83F3A02FD
  89. typedef int (*lua_CFunction) (lua_State *L);
  91. /*
  92. ** types returned by `lua_type'
  93. */
  94. #define LUA_TNONE (-1)
  96. #define LUA_TUSERDATA 0
  97. #define LUA_TNIL 1
  98. #define LUA_TNUMBER 2
  99. #define LUA_TSTRING 3
  100. #define LUA_TTABLE 4
  101. #define LUA_TFUNCTION 5
  105. /*
  106. ** state manipulation
  107. */
  108. LUA_API lua_State *lua_open (int stacksize);
  109. LUA_API void       lua_close (lua_State *L);
  112. /*
  113. ** basic stack manipulation
  114. */
  115. LUA_API int   lua_gettop (lua_State *L);
  116. LUA_API void  lua_settop (lua_State *L, int index);
  117. LUA_API void  lua_pushvalue (lua_State *L, int index);
  118. LUA_API void  lua_remove (lua_State *L, int index);
  119. LUA_API void  lua_insert (lua_State *L, int index);
  120. LUA_API int   lua_stackspace (lua_State *L);
  122. /*
  123. ** debug out functions
  124. */
  125. LUA_API int   lua_setdebugout(const char * , const char *);
  126. LUA_API void  lua_outoutmsg(const char * szoutmsg);
  127. LUA_API void  lua_outerrmsg(const char * szoutmsg);
  128. /*
  129. ** access functions (stack -> C)
  130. */
  132. LUA_API int            lua_type (lua_State *L, int index);
  133. LUA_API const char    *lua_typename (lua_State *L, int t);
  134. LUA_API int            lua_isnumber (lua_State *L, int index);
  135. LUA_API int            lua_isstring (lua_State *L, int index);
  136. LUA_API int            lua_iscfunction (lua_State *L, int index);
  137. LUA_API int            lua_tag (lua_State *L, int index);
  139. LUA_API int            lua_equal (lua_State *L, int index1, int index2);
  140. LUA_API int            lua_lessthan (lua_State *L, int index1, int index2);
  142. LUA_API double         lua_tonumber (lua_State *L, int index);
  143. LUA_API const char    *lua_tostring (lua_State *L, int index);
  144. LUA_API size_t         lua_strlen (lua_State *L, int index);
  145. LUA_API lua_CFunction  lua_tocfunction (lua_State *L, int index);
  146. LUA_API void       *lua_touserdata (lua_State *L, int index);
  147. LUA_API const void    *lua_topointer (lua_State *L, int index);
  150. /*
  151. ** push functions (C -> stack)
  152. */
  153. LUA_API void  lua_pushnil (lua_State *L);
  154. LUA_API void  lua_pushnumber (lua_State *L, double n);
  155. LUA_API void  lua_pushlstring (lua_State *L, const char *s, size_t len);
  156. LUA_API void  lua_pushstring (lua_State *L, const char *s);
  157. LUA_API void  lua_pushcclosure (lua_State *L, lua_CFunction fn, int n);
  158. LUA_API void  lua_pushusertag (lua_State *L, void *u, int tag);
  161. /*
  162. ** get functions (Lua -> stack)
  163. */
  164. LUA_API void  lua_getglobal (lua_State *L, const char *name);
  165. LUA_API void  lua_gettable (lua_State *L, int index);
  166. LUA_API void  lua_rawget (lua_State *L, int index);
  167. LUA_API void  lua_rawgeti (lua_State *L, int index, int n);
  168. LUA_API void  lua_getglobals (lua_State *L);
  169. LUA_API void  lua_gettagmethod (lua_State *L, int tag, const char *event);
  170. LUA_API int   lua_getref (lua_State *L, int ref);
  171. LUA_API void  lua_newtable (lua_State *L);
  174. /*
  175. ** set functions (stack -> Lua)
  176. */
  177. LUA_API void  lua_setglobal (lua_State *L, const char *name);
  178. LUA_API void  lua_settable (lua_State *L, int index);
  179. LUA_API void  lua_rawset (lua_State *L, int index);
  180. LUA_API void  lua_rawseti (lua_State *L, int index, int n);
  181. LUA_API void  lua_setglobals (lua_State *L);
  182. LUA_API void  lua_settagmethod (lua_State *L, int tag, const char *event);
  183. LUA_API int   lua_ref (lua_State *L, int lock);
  186. /*
  187. ** "do" functions (run Lua code)
  188. */
  189. LUA_API int   lua_call (lua_State *L, int nargs, int nresults);
  190. LUA_API void  lua_rawcall (lua_State *L, int nargs, int nresults);
  191. LUA_API int   lua_dofile (lua_State *L, const char *filename);
  192. LUA_API int   lua_dostring (lua_State *L, const char *str);
  193. LUA_API int   lua_dobuffer (lua_State *L, const char *buff, size_t size, const char *name);
  195. /*
  196. ** Garbage-collection functions
  197. */
  198. LUA_API int   lua_getgcthreshold (lua_State *L);
  199. LUA_API int   lua_getgccount (lua_State *L);
  200. LUA_API void  lua_setgcthreshold (lua_State *L, int newthreshold);
  202. /*
  203. ** miscellaneous functions
  204. */
  205. LUA_API int   lua_newtag (lua_State *L);
  206. LUA_API int   lua_copytagmethods (lua_State *L, int tagto, int tagfrom);
  207. LUA_API void  lua_settag (lua_State *L, int tag);
  209. LUA_API void  lua_error (lua_State *L, const char *s);
  211. LUA_API void  lua_unref (lua_State *L, int ref);
  213. LUA_API int   lua_next (lua_State *L, int index);
  214. LUA_API int   lua_getn (lua_State *L, int index);
  216. LUA_API void  lua_concat (lua_State *L, int n);
  218. LUA_API void *lua_newuserdata (lua_State *L, size_t size);
  219. LUA_API int ldo (int (*f)(lua_State *l, const char *), const char *name) ;
  222. /* 
  223. ** ===============================================================
  224. ** some useful macros
  225. ** ===============================================================
  226. */
  228. #define lua_pop(L,n) lua_settop(L, -(n)-1)
  230. #define lua_register(L,n,f) (lua_pushcfunction(L, f), lua_setglobal(L, n))
  231. #define lua_pushuserdata(L,u) lua_pushusertag(L, u, 0)
  232. #define lua_pushcfunction(L,f) lua_pushcclosure(L, f, 0)
  233. #define lua_clonetag(L,t) lua_copytagmethods(L, lua_newtag(L), (t))
  235. #define lua_isfunction(L,n) (lua_type(L,n) == LUA_TFUNCTION)
  236. #define lua_istable(L,n) (lua_type(L,n) == LUA_TTABLE)
  237. #define lua_isuserdata(L,n) (lua_type(L,n) == LUA_TUSERDATA)
  238. #define lua_isnil(L,n) (lua_type(L,n) == LUA_TNIL)
  239. #define lua_isnull(L,n) (lua_type(L,n) == LUA_TNONE)
  241. #define lua_getregistry(L) lua_getref(L, LUA_REFREGISTRY)
  243. //新加的API
  244. LUA_API int lua_compilebuffer(lua_State *L, const char *buff, size_t size, const char *name);//只对buffer经编绎，并不执行任何函数
  245. LUA_API int lua_compilefile (lua_State *L, const char *filename);//编译从文件流传来的脚本
  246. LUA_API int lua_execute(lua_State *L);//执行经过编绎之后的脚本
  247. LUA_API void lua_gettopindex(lua_State *L , int * pindex);//获得当前的脚本堆栈顶的索引
  250. //BaseLib
  253. //脚本引擎
  254. #define Lua_CFunction lua_CFunction
  255. #define Lua_State lua_State
  256. #define Lua_Create(nSize) lua_open(nSize)
  257. #define Lua_Release(L) lua_close(L)
  258. #define Lua_GetTopIndex(L) lua_gettop(L)
  259. #define Lua_SetTopIndex(L,nIndex) lua_settop(L,nIndex)
  260. #define Lua_PushValue(L,nIndex) lua_pushvalue(L,nIndex)
  261. #define Lua_RemoveValue(L,nIndex) lua_remove(L,nIndex)
  262. #define Lua_InsertValue(L,nIndex) lua_insert(L,nIndex)
  263. #define Lua_GetStackSpace(L) lua_stackspace(L)
  264. #define Lua_GetValueType(L,nIndex) lua_type(L,nIndex)
  265. #define Lua_GetTypeName(L,Tag) lua_typename(L,Tag)
  266. #define Lua_IsNumber(L,nIndex) lua_isnumber(L,nIndex)
  267. #define Lua_IsString(L,nIndex) lua_isstring(L,nIndex)
  268. #define Lua_IsCFunction(L,nIndex) lua_iscfunction(L,nIndex)
  269. #define Lua_IsTable(L,nIndex) lua_istable(L,nIndex)
  270. #define Lua_GetValueTag(L,nIndex) lua_tag(L,nIndex)
  271. #define Lua_IsEqual(L,index1,index2) lua_equal(L,index1,index2)
  272. #define Lua_IsLessThan(L,index1,index2) lua_lessthan(L,index1,index2)
  273. #define Lua_ValueToNumber(L,nIndex) lua_tonumber(L,nIndex)
  274. #define Lua_ValueToString(L,nIndex) lua_tostring(L,nIndex)
  275. #define Lua_GetStrLen(L,nIndex) lua_strlen(L,nIndex)
  276. #define Lua_ValueToCFunction(L,nIndex) lua_tocfunction(L,nIndex)
  277. #define Lua_ValueToUserData(L,nIndex) lua_touserdata(L,nIndex)
  278. #define Lua_ValueToPoint(L,nIndex) lua_topointer(L,nIndex)
  280. /*
  281. ** push functions (C -> stack)
  282. */
  284. #define Lua_PushNil(L) lua_pushnil(L)
  285. #define Lua_PushNumber(L,Number) lua_pushnumber(L,Number)
  286. #define Lua_PushLString(L,LString,Len) lua_pushlstring(L,LString,Len)
  287. #define Lua_PushString(L,String) lua_pushstring(L,String)
  288. #define Lua_PushCClosure(L,Fun,N) lua_pushcclosure(L,Fun,N)
  289. #define Lua_PushUserTag(L,PVoid,Tag) lua_pushusertag(L,PVoid,Tag)
  291. #define Lua_GetGlobal(L,Valuename) lua_getglobal(L,Valuename)
  292. #define Lua_GetTable(L,nIndex) lua_gettable(L,nIndex)
  293. #define Lua_RawGet(L,nIndex) lua_rawget(L,nIndex)
  294. #define Lua_RawGetI(L,nIndex,n) lua_rawgeti(L,nIndex,n)
  295. #define Lua_GetGlobals(L) lua_getglobals(L)
  296. #define Lua_GetTagMethod(L,iTag,cEvent) lua_gettagmethod(L,iTag,cEvent)
  297. #define Lua_GetRef(L,iRef) lua_getref(L,iRef)
  298. #define Lua_NewTable(L) lua_newtable(L)
  301. #define Lua_SetGlobal(L,cName) lua_setglobal(L,cName)
  302. #define Lua_SetTable(L,nIndex) lua_settable(L,nIndex)
  303. #define Lua_RawSet(L,nIndex) lua_rawset(L,nIndex)
  304. #define Lua_RawSetI(L,nIndex,nNum) lua_rawseti(L,nIndex,nNum)
  305. #define Lua_SetGlobals(L) lua_setglobals(L)
  306. #define Lua_SetTagMethod(L,iTag,cEvent) lua_settagmethod(L,iTag,cEvent)
  307. #define Lua_SetRef(L,nLock) lua_ref(L,nLock)
  309. #define Lua_Call(L,nArgs,nResults) lua_call(L,nArgs,nResults)
  310. #define Lua_RawCall(L,nArgs,nResults) lua_rawcall(L,nArgs,nResults)
  311. #define Lua_ExecuteFile(L,cFilename) lua_dofile(L,cFilename)
  312. #define Lua_ExecuteString(L,cString) lua_dostring(L,cString)
  313. #define Lua_ExecuteBuffer(L,pBuff,iSize,cname) lua_dobuffer(L,pBuff,iSize,cname)
  315. #define Lua_GetGCThreshold(L) lua_getgcthreshold(L)
  316. #define Lua_GetGCCount(L) lua_getgccount(L)
  317. #define Lua_SetGCThreshold(L,nThreshold)lua_setgcthreshold(L,nThreshold)
  320. /*
  321. ** miscellaneous functions
  322. */
  324. #define Lua_NewTag(L) lua_newtag(L)
  325. #define Lua_CopyTagMethods(L,nTagTo,nTagFrom) lua_copytagmethods(L,nTagTo,nTagFrom)
  326. #define Lua_SetTag(L,nTag) lua_settag(L,nTag)
  327. #define Lua_Error(L,cError) lua_error(L,cError)u
  328. #define Lua_UnRef(L,nRef) lua_unref(L,nRef)
  329. #define Lua_Next(L,nIndex) lua_next(L,nIndex)
  330. #define Lua_GetN(L,nIndex) lua_getn(L,nIndex)
  331. #define Lua_Concat(L,nNum) lua_concat(L,nNum)
  332. #define Lua_NewUserData(L,nSize) lua_newuserdata(L,nSize)
  335. #define Lua_OpenBaseLib(L)  lua_baselibopen(L)
  336. #define Lua_OpenIOLib(L)  lua_iolibopen(L)
  337. #define Lua_OpenStrLib(L)  lua_strlibopen(L)
  338. #define Lua_OpenMathLib(L)  lua_mathlibopen(L)
  339. #define Lua_OpenDBLib(L)  lua_dblibopen(L)
  342. /* 
  343. ** ===============================================================
  344. ** some useful macros
  345. ** ===============================================================
  346. */
  347. #define Lua_Pop(L,nIndex) lua_pop(L,nIndex)
  348. #define Lua_Register(L,cfname,pFun) lua_register(L,cfname,pFun)
  349. #define Lua_PushUserData(L,UseData) lua_pushuserdata(L,UseData)
  350. #define Lua_PushCFunction(L,pFun) lua_pushcfunction(L,pFun)
  351. #define Lua_CloneTag(L,nTag) lua_clonetag(L,nTag)
  352. #define Lua_GetRegistry(L) lua_getregistry(L)
  355. #define Lua_CompileBuffer(L,pBUFF,nBuffSize,cBname) lua_compilebuffer(L,pBUFF,nBuffSize,cBname)
  356. #define Lua_CompileFile(L,cFilename) lua_compilefile(L,cFilename)
  357. #define Lua_Execute(L) lua_execute(L)
  358. #define Lua_SafeBegin(L,pIndex) lua_gettopindex(L,pIndex)
  359. #define Lua_SafeEnd(L,nIndex) Lua_SetTopIndex(L,nIndex)
  362. LUA_API int Lua_SetTable_StringFromId(Lua_State * L, int nIndex, int Id, const char * szString);
  363. LUA_API int Lua_SetTable_DoubleFromId(Lua_State * L, int nIndex, int Id, double nNumber);
  364. LUA_API int Lua_SetTable_IntFromId(Lua_State * L, int nIndex, int Id, int nNumber);
  365. LUA_API int Lua_SetTable_CFunFromName(Lua_State * L, int nIndex, const char * szMemberName, Lua_CFunction CFun);
  366. LUA_API int Lua_SetTable_CFunFromId(Lua_State * L, int nIndex, int nId, Lua_CFunction CFun);
  367. LUA_API int Lua_SetTable_StringFromName(Lua_State * L, int nIndex, const char * szMemberName, char * szString);
  368. LUA_API int Lua_SetTable_IntFromName(Lua_State * L, int nIndex, const char * szMemberName, int Number);
  369. LUA_API int Lua_SetTable_DoubleFromName(Lua_State * L, int nIndex, const char * szMemberName, double Number);
  370. LUA_API int Lua_GetValuesFromStack(Lua_State * L, char * cFormat , ...);
  372. LUALIB_API void lua_baselibopen (lua_State *L);
  373. LUALIB_API void lua_iolibopen (lua_State *L);
  374. LUALIB_API void lua_strlibopen (lua_State *L);
  375. LUALIB_API void lua_mathlibopen (lua_State *L);
  376. LUALIB_API void lua_dblibopen (lua_State *L);
  379. #ifdef __cplusplus
  380. }
  381. #endif 
  383. #endif
  387. /******************************************************************************
  388. * Copyright (C) 1994-2000 TeCGraf, PUC-Rio.  All rights reserved.
  389. * 
  390. * Permission is hereby granted, without written agreement and without license
  391. * or royalty fees, to use, copy, modify, and distribute this software and its
  392. * documentation for any purpose, including commercial applications, subject to
  393. * the following conditions:
  394. * 
  395. *  - The above copyright notice and this permission notice shall appear in all
  396. *    copies or substantial portions of this software.
  397. * 
  398. *  - The origin of this software must not be misrepresented; you must not
  399. *    claim that you wrote the original software. If you use this software in a
  400. *    product, an acknowledgment in the product documentation would be greatly
  401. *    appreciated (but it is not required).
  402. * 
  403. *  - Altered source versions must be plainly marked as such, and must not be
  404. *    misrepresented as being the original software.
  405. *    
  406. * The authors specifically disclaim any warranties, including, but not limited
  407. * to, the implied warranties of merchantability and fitness for a particular
  408. * purpose.  The software provided hereunder is on an "as is" basis, and the
  409. * authors have no obligation to provide maintenance, support, updates,
  410. * enhancements, or modifications.  In no event shall TeCGraf, PUC-Rio, or the
  411. * authors be held liable to any party for direct, indirect, special,
  412. * incidental, or consequential damages arising out of the use of this software
  413. * and its documentation.
  414. * 
  415. * The Lua language and this implementation have been entirely designed and
  416. * written by Waldemar Celes Filho, Roberto Ierusalimschy and
  417. * Luiz Henrique de Figueiredo at TeCGraf, PUC-Rio.
  418. *
  419. * This implementation contains no third-party code.
  420. ******************************************************************************/