rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

new macro LUALIB_API (so the lib can be a separate DLL)

This commit is contained in:
Roberto Ierusalimschy 2000-10-27 14:15:53 -02:00
parent e2b6b7de1b
commit 2cbbf3933a
8 changed files with 62 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
lauxlib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lauxlib.c,v 1.39 2000/10/05 12:14:08 roberto Exp roberto $ ** $Id: lauxlib.c,v 1.40 2000/10/20 16:39:03 roberto Exp roberto $
** Auxiliary functions for building Lua libraries ** Auxiliary functions for building Lua libraries
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -21,7 +21,7 @@
LUA_API int luaL_findstring (const char *name, const char *const list[]) { LUALIB_API int luaL_findstring (const char *name, const char *const list[]) {
int i; int i;
for (i=0; list[i]; i++) for (i=0; list[i]; i++)
if (strcmp(list[i], name) == 0) if (strcmp(list[i], name) == 0)
@ -29,7 +29,7 @@ LUA_API int luaL_findstring (const char *name, const char *const list[]) {
return -1; /* name not found */ return -1; /* name not found */
} }
LUA_API void luaL_argerror (lua_State *L, int narg, const char *extramsg) { LUALIB_API void luaL_argerror (lua_State *L, int narg, const char *extramsg) {
lua_Debug ar; lua_Debug ar;
lua_getstack(L, 0, &ar); lua_getstack(L, 0, &ar);
lua_getinfo(L, "n", &ar); lua_getinfo(L, "n", &ar);
@ -49,25 +49,25 @@ static void type_error (lua_State *L, int narg, int t) {
} }
LUA_API void luaL_checkstack (lua_State *L, int space, const char *mes) { LUALIB_API void luaL_checkstack (lua_State *L, int space, const char *mes) {
if (space > lua_stackspace(L)) if (space > lua_stackspace(L))
luaL_verror(L, "stack overflow (%.30s)", mes); luaL_verror(L, "stack overflow (%.30s)", mes);
} }
LUA_API void luaL_checktype(lua_State *L, int narg, int t) { LUALIB_API void luaL_checktype(lua_State *L, int narg, int t) {
if (lua_type(L, narg) != t) if (lua_type(L, narg) != t)
type_error(L, narg, t); type_error(L, narg, t);
} }
LUA_API void luaL_checkany (lua_State *L, int narg) { LUALIB_API void luaL_checkany (lua_State *L, int narg) {
if (lua_type(L, narg) == LUA_TNONE) if (lua_type(L, narg) == LUA_TNONE)
luaL_argerror(L, narg, "value expected"); luaL_argerror(L, narg, "value expected");
} }
LUA_API const char *luaL_check_lstr (lua_State *L, int narg, size_t *len) { LUALIB_API const char *luaL_check_lstr (lua_State *L, int narg, size_t *len) {
const char *s = lua_tostring(L, narg); const char *s = lua_tostring(L, narg);
if (!s) type_error(L, narg, LUA_TSTRING); if (!s) type_error(L, narg, LUA_TSTRING);
if (len) *len = lua_strlen(L, narg); if (len) *len = lua_strlen(L, narg);
@ -75,7 +75,7 @@ LUA_API const char *luaL_check_lstr (lua_State *L, int narg, size_t *len) {
} }
LUA_API const char *luaL_opt_lstr (lua_State *L, int narg, const char *def, LUALIB_API const char *luaL_opt_lstr (lua_State *L, int narg, const char *def,
size_t *len) { size_t *len) {
if (lua_isnull(L, narg)) { if (lua_isnull(L, narg)) {
if (len) if (len)
@ -86,7 +86,7 @@ LUA_API const char *luaL_opt_lstr (lua_State *L, int narg, const char *def,
} }
LUA_API double luaL_check_number (lua_State *L, int narg) { LUALIB_API double luaL_check_number (lua_State *L, int narg) {
double d = lua_tonumber(L, narg); double d = lua_tonumber(L, narg);
if (d == 0 && !lua_isnumber(L, narg)) /* avoid extra test when d is not 0 */ if (d == 0 && !lua_isnumber(L, narg)) /* avoid extra test when d is not 0 */
type_error(L, narg, LUA_TNUMBER); type_error(L, narg, LUA_TNUMBER);
@ -94,20 +94,20 @@ LUA_API double luaL_check_number (lua_State *L, int narg) {
} }
LUA_API double luaL_opt_number (lua_State *L, int narg, double def) { LUALIB_API double luaL_opt_number (lua_State *L, int narg, double def) {
if (lua_isnull(L, narg)) return def; if (lua_isnull(L, narg)) return def;
else return luaL_check_number(L, narg); else return luaL_check_number(L, narg);
} }
LUA_API void luaL_openlib (lua_State *L, const struct luaL_reg *l, int n) { LUALIB_API void luaL_openlib (lua_State *L, const struct luaL_reg *l, int n) {
int i; int i;
for (i=0; i<n; i++) for (i=0; i<n; i++)
lua_register(L, l[i].name, l[i].func); lua_register(L, l[i].name, l[i].func);
} }
LUA_API void luaL_verror (lua_State *L, const char *fmt, ...) { LUALIB_API void luaL_verror (lua_State *L, const char *fmt, ...) {
char buff[500]; char buff[500];
va_list argp; va_list argp;
va_start(argp, fmt); va_start(argp, fmt);
@ -164,25 +164,25 @@ static void adjuststack (luaL_Buffer *B) {
} }
LUA_API char *luaL_prepbuffer (luaL_Buffer *B) { LUALIB_API char *luaL_prepbuffer (luaL_Buffer *B) {
if (emptybuffer(B)) if (emptybuffer(B))
adjuststack(B); adjuststack(B);
return B->buffer; return B->buffer;
} }
LUA_API void luaL_addlstring (luaL_Buffer *B, const char *s, size_t l) { LUALIB_API void luaL_addlstring (luaL_Buffer *B, const char *s, size_t l) {
while (l--) while (l--)
luaL_putchar(B, *s++); luaL_putchar(B, *s++);
} }
LUA_API void luaL_addstring (luaL_Buffer *B, const char *s) { LUALIB_API void luaL_addstring (luaL_Buffer *B, const char *s) {
luaL_addlstring(B, s, strlen(s)); luaL_addlstring(B, s, strlen(s));
} }
LUA_API void luaL_pushresult (luaL_Buffer *B) { LUALIB_API void luaL_pushresult (luaL_Buffer *B) {
emptybuffer(B); emptybuffer(B);
if (B->level == 0) if (B->level == 0)
lua_pushlstring(B->L, NULL, 0); lua_pushlstring(B->L, NULL, 0);
@ -192,7 +192,7 @@ LUA_API void luaL_pushresult (luaL_Buffer *B) {
} }
LUA_API void luaL_addvalue (luaL_Buffer *B) { LUALIB_API void luaL_addvalue (luaL_Buffer *B) {
lua_State *L = B->L; lua_State *L = B->L;
size_t vl = lua_strlen(L, -1); size_t vl = lua_strlen(L, -1);
if (vl <= bufffree(B)) { /* fit into buffer? */ if (vl <= bufffree(B)) { /* fit into buffer? */
@ -209,7 +209,7 @@ LUA_API void luaL_addvalue (luaL_Buffer *B) {
} }
LUA_API void luaL_buffinit (lua_State *L, luaL_Buffer *B) { LUALIB_API void luaL_buffinit (lua_State *L, luaL_Buffer *B) {
B->L = L; B->L = L;
B->p = B->buffer; B->p = B->buffer;
B->level = 0; B->level = 0;

41
lauxlib.h
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lauxlib.h,v 1.27 2000/10/05 12:14:08 roberto Exp roberto $ ** $Id: lauxlib.h,v 1.28 2000/10/20 16:39:03 roberto Exp roberto $
** Auxiliary functions for building Lua libraries ** Auxiliary functions for building Lua libraries
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -15,26 +15,31 @@
#include "lua.h" #include "lua.h"
#ifndef LUALIB_API
#define LUALIB_API extern
#endif
struct luaL_reg { struct luaL_reg {
const char *name; const char *name;
lua_CFunction func; lua_CFunction func;
}; };
LUA_API void luaL_openlib (lua_State *L, const struct luaL_reg *l, int n); LUALIB_API void luaL_openlib (lua_State *L, const struct luaL_reg *l, int n);
LUA_API void luaL_argerror (lua_State *L, int numarg, const char *extramsg); LUALIB_API void luaL_argerror (lua_State *L, int numarg, const char *extramsg);
LUA_API const char *luaL_check_lstr (lua_State *L, int numArg, size_t *len); LUALIB_API const char *luaL_check_lstr (lua_State *L, int numArg, size_t *len);
LUA_API const char *luaL_opt_lstr (lua_State *L, int numArg, const char *def, LUALIB_API const char *luaL_opt_lstr (lua_State *L, int numArg, const char *def,
size_t *len); size_t *len);
LUA_API double luaL_check_number (lua_State *L, int numArg); LUALIB_API double luaL_check_number (lua_State *L, int numArg);
LUA_API double luaL_opt_number (lua_State *L, int numArg, double def); LUALIB_API double luaL_opt_number (lua_State *L, int numArg, double def);
LUA_API void luaL_checkstack (lua_State *L, int space, const char *msg); LUALIB_API void luaL_checkstack (lua_State *L, int space, const char *msg);
LUA_API void luaL_checktype (lua_State *L, int narg, int t); LUALIB_API void luaL_checktype (lua_State *L, int narg, int t);
LUA_API void luaL_checkany (lua_State *L, int narg); LUALIB_API void luaL_checkany (lua_State *L, int narg);
LUA_API void luaL_verror (lua_State *L, const char *fmt, ...); LUALIB_API void luaL_verror (lua_State *L, const char *fmt, ...);
LUA_API int luaL_findstring (const char *name, const char *const list[]); LUALIB_API int luaL_findstring (const char *name, const char *const list[]);
@ -80,12 +85,12 @@ typedef struct luaL_Buffer {
#define luaL_addsize(B,n) ((B)->p += (n)) #define luaL_addsize(B,n) ((B)->p += (n))
LUA_API void luaL_buffinit (lua_State *L, luaL_Buffer *B); LUALIB_API void luaL_buffinit (lua_State *L, luaL_Buffer *B);
LUA_API char *luaL_prepbuffer (luaL_Buffer *B); LUALIB_API char *luaL_prepbuffer (luaL_Buffer *B);
LUA_API void luaL_addlstring (luaL_Buffer *B, const char *s, size_t l); LUALIB_API void luaL_addlstring (luaL_Buffer *B, const char *s, size_t l);
LUA_API void luaL_addstring (luaL_Buffer *B, const char *s); LUALIB_API void luaL_addstring (luaL_Buffer *B, const char *s);
LUA_API void luaL_addvalue (luaL_Buffer *B); LUALIB_API void luaL_addvalue (luaL_Buffer *B);
LUA_API void luaL_pushresult (luaL_Buffer *B); LUALIB_API void luaL_pushresult (luaL_Buffer *B);
/* }====================================================== */ /* }====================================================== */

4
lbaselib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lbaselib.c,v 1.13 2000/10/20 16:57:42 roberto Exp roberto $ ** $Id: lbaselib.c,v 1.14 2000/10/24 19:19:15 roberto Exp roberto $
** Basic library ** Basic library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -639,7 +639,7 @@ static const struct luaL_reg base_funcs[] = {
LUA_API void lua_baselibopen (lua_State *L) { LUALIB_API void lua_baselibopen (lua_State *L) {
luaL_openl(L, base_funcs); luaL_openl(L, base_funcs);
lua_pushstring(L, LUA_VERSION); lua_pushstring(L, LUA_VERSION);
lua_setglobal(L, "_VERSION"); lua_setglobal(L, "_VERSION");

4
ldblib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ldblib.c,v 1.25 2000/10/26 18:44:26 roberto Exp roberto $ ** $Id: ldblib.c,v 1.26 2000/10/26 19:04:22 roberto Exp roberto $
** Interface from Lua to its debug API ** Interface from Lua to its debug API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -179,7 +179,7 @@ static const struct luaL_reg dblib[] = {
}; };
LUA_API void lua_dblibopen (lua_State *L) { LUALIB_API void lua_dblibopen (lua_State *L) {
luaL_openl(L, dblib); luaL_openl(L, dblib);
} }

4
liolib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: liolib.c,v 1.88 2000/10/26 12:47:05 roberto Exp roberto $ ** $Id: liolib.c,v 1.89 2000/10/26 12:53:55 roberto Exp roberto $
** Standard I/O (and system) library ** Standard I/O (and system) library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -712,7 +712,7 @@ static void openwithcontrol (lua_State *L) {
} }
LUA_API void lua_iolibopen (lua_State *L) { LUALIB_API void lua_iolibopen (lua_State *L) {
luaL_openl(L, iolib); luaL_openl(L, iolib);
openwithcontrol(L); openwithcontrol(L);
} }

4
lmathlib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lmathlib.c,v 1.29 2000/10/20 16:39:03 roberto Exp roberto $ ** $Id: lmathlib.c,v 1.30 2000/10/26 12:47:05 roberto Exp roberto $
** Standard mathematical library ** Standard mathematical library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -228,7 +228,7 @@ static const struct luaL_reg mathlib[] = {
/* /*
** Open math library ** Open math library
*/ */
LUA_API void lua_mathlibopen (lua_State *L) { LUALIB_API void lua_mathlibopen (lua_State *L) {
luaL_openl(L, mathlib); luaL_openl(L, mathlib);
lua_pushcfunction(L, math_pow); lua_pushcfunction(L, math_pow);
lua_settagmethod(L, LUA_TNUMBER, "pow"); lua_settagmethod(L, LUA_TNUMBER, "pow");

4
lstrlib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lstrlib.c,v 1.54 2000/10/05 12:14:08 roberto Exp roberto $ ** $Id: lstrlib.c,v 1.55 2000/10/20 16:39:03 roberto Exp roberto $
** Standard library for string operations and pattern-matching ** Standard library for string operations and pattern-matching
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -616,6 +616,6 @@ static const struct luaL_reg strlib[] = {
/* /*
** Open string library ** Open string library
*/ */
LUA_API void lua_strlibopen (lua_State *L) { LUALIB_API void lua_strlibopen (lua_State *L) {
luaL_openl(L, strlib); luaL_openl(L, strlib);
} }

17
lualib.h
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lualib.h,v 1.12 2000/09/12 13:46:59 roberto Exp roberto $ ** $Id: lualib.h,v 1.13 2000/10/20 16:39:03 roberto Exp roberto $
** Lua standard libraries ** Lua standard libraries
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -11,13 +11,18 @@
#include "lua.h" #include "lua.h"
#ifndef LUALIB_API
#define LUALIB_API extern
#endif
#define LUA_ALERT "_ALERT" #define LUA_ALERT "_ALERT"
LUA_API void lua_baselibopen (lua_State *L); LUALIB_API void lua_baselibopen (lua_State *L);
LUA_API void lua_iolibopen (lua_State *L); LUALIB_API void lua_iolibopen (lua_State *L);
LUA_API void lua_strlibopen (lua_State *L); LUALIB_API void lua_strlibopen (lua_State *L);
LUA_API void lua_mathlibopen (lua_State *L); LUALIB_API void lua_mathlibopen (lua_State *L);
LUA_API void lua_dblibopen (lua_State *L); LUALIB_API void lua_dblibopen (lua_State *L);