new function `lua_version'

lapi.c

@@ -1,5 +1,5 @@
 /*
-** $Id: lapi.c,v 1.222 2002/11/21 15:16:04 roberto Exp roberto $
+** $Id: lapi.c,v 1.223 2002/11/25 11:16:48 roberto Exp roberto $
 ** Lua API
 ** See Copyright Notice in lua.h
 */
@@ -733,6 +733,11 @@ LUA_API void lua_setgcthreshold (lua_State *L, int newthreshold) {
 */
 
 
+LUA_API const char *lua_version (void) {
+  return LUA_VERSION;
+}
+
+
 LUA_API int lua_error (lua_State *L) {
   lua_lock(L);
   api_checknelems(L, 1);

lua.h

@@ -1,5 +1,5 @@
 /*
-** $Id: lua.h,v 1.165 2002/11/18 11:01:55 roberto Exp roberto $
+** $Id: lua.h,v 1.166 2002/11/25 17:47:13 roberto Exp roberto $
 ** Lua - An Extensible Extension Language
 ** Tecgraf: Computer Graphics Technology Group, PUC-Rio, Brazil
 ** http://www.lua.org	mailto:[email protected]
@@ -215,6 +215,8 @@ LUA_API void  lua_setgcthreshold (lua_State *L, int newthreshold);
 ** miscellaneous functions
 */
 
+LUA_API const char *lua_version (void);
+
 LUA_API int   lua_error (lua_State *L);
 
 LUA_API int   lua_next (lua_State *L, int idx);