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

Auxiliar functions for building Lua libraries

This commit is contained in:
Roberto Ierusalimschy 1997-09-16 16:25:59 -03:00
parent ff08b0f406
commit c31aa863ac
2 changed files with 17 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
auxlib.c → lauxlib.c
View File

@ -1,25 +1,20 @@
char *rcs_auxlib="$Id: auxlib.c,v 1.4 1997/04/07 14:48:53 roberto Exp roberto $";
/*
** $Id: $
** Auxiliar functions for building Lua libraries
** See Copyright Notice in lua.h
*/
#include <stdio.h>
#include <stdarg.h>
#include <stdio.h>
#include <string.h>
#include "lauxlib.h"
#include "lua.h"
#include "auxlib.h"
#include "luadebug.h"
int luaI_findstring (char *name, char *list[])
{
int i;
for (i=0; list[i]; i++)
if (strcmp(list[i], name) == 0)
return i;
return -1; /* name not found */
}
void luaL_arg_check(int cond, int numarg, char *extramsg)
{
if (!cond) {
@ -28,9 +23,9 @@ void luaL_arg_check(int cond, int numarg, char *extramsg)
if (funcname == NULL)
funcname = "???";
if (extramsg == NULL)
luaL_verror("bad argument #%d to function `%s'", numarg, funcname);
luaL_verror("bad argument #%d to function `%.50s'", numarg, funcname);
else
luaL_verror("bad argument #%d to function `%s' (%s)",
luaL_verror("bad argument #%d to function `%.50s' (%.100s)",
numarg, funcname, extramsg);
}
}
@ -72,7 +67,7 @@ void luaL_openlib (struct luaL_reg *l, int n)
void luaL_verror (char *fmt, ...)
{
char buff[1000];
char buff[500];
va_list argp;
va_start(argp, fmt);
vsprintf(buff, fmt, argp);

13
auxlib.h → lauxlib.h
View File

@ -1,12 +1,17 @@
/*
** $Id: auxlib.h,v 1.2 1997/04/06 14:08:08 roberto Exp roberto $
** $Id: $
** Auxiliar functions for building Lua libraries
** See Copyright Notice in lua.h
*/
#ifndef auxlib_h
#define auxlib_h
#include "lua.h"
struct luaL_reg {
char *name;
lua_CFunction func;
@ -21,10 +26,4 @@ double luaL_opt_number (int numArg, double def);
void luaL_verror (char *fmt, ...);
/* -- private part (only for Lua modules */
int luaI_findstring (char *name, char *list[]);
#endif