src/lauxlib.c

   1 /*
   2 ** $Id: lauxlib.c,v 1.12 1998/06/19 16:14:09 roberto Exp $
   3 ** Auxiliary functions for building Lua libraries
   4 ** See Copyright Notice in lua.h
   5 */
   6
   7
   8 #include <stdarg.h>
   9 #include <stdio.h>
  10 #include <string.h>
  11
  12 /* Please Notice: This file uses only the official API of Lua
  13 ** Any function declared here could be written as an application
  14 ** function. With care, these functions can be used by other libraries.
  15 */
  16 #include "lauxlib.h"
  17 #include "lua.h"
  18 #include "luadebug.h"
  19
  20
  21
  22 int luaL_findstring (char *name, char *list[]) {
  23   int i;
  24   for (i=0; list[i]; i++)
  25     if (strcmp(list[i], name) == 0)
  26       return i;
  27   return -1;  /* name not found */
  28 }
  29
  30 void luaL_argerror (int numarg, char *extramsg)
  31 {
  32   char *funcname;
  33   lua_getobjname(lua_stackedfunction(0), &funcname);
  34   if (funcname == NULL)
  35     funcname = "???";
  36   if (extramsg == NULL)
  37     luaL_verror("bad argument #%d to function `%.50s'", numarg, funcname);
  38   else
  39     luaL_verror("bad argument #%d to function `%.50s' (%.100s)",
  40                     numarg, funcname, extramsg);
  41 }
  42
  43 char *luaL_check_lstr (int numArg, long *len)
  44 {
  45   lua_Object o = lua_getparam(numArg);
  46   luaL_arg_check(lua_isstring(o), numArg, "string expected");
  47   if (len) *len = lua_strlen(o);
  48   return lua_getstring(o);
  49 }
  50
  51 char *luaL_opt_lstr (int numArg, char *def, long *len)
  52 {
  53   return (lua_getparam(numArg) == LUA_NOOBJECT) ? def :
  54                               luaL_check_lstr(numArg, len);
  55 }
  56
  57 double luaL_check_number (int numArg)
  58 {
  59   lua_Object o = lua_getparam(numArg);
  60   luaL_arg_check(lua_isnumber(o), numArg, "number expected");
  61   return lua_getnumber(o);
  62 }
  63
  64
  65 double luaL_opt_number (int numArg, double def)
  66 {
  67   return (lua_getparam(numArg) == LUA_NOOBJECT) ? def :
  68                               luaL_check_number(numArg);
  69 }
  70
  71
  72 lua_Object luaL_tablearg (int arg)
  73 {
  74   lua_Object o = lua_getparam(arg);
  75   luaL_arg_check(lua_istable(o), arg, "table expected");
  76   return o;
  77 }
  78
  79 lua_Object luaL_functionarg (int arg)
  80 {
  81   lua_Object o = lua_getparam(arg);
  82   luaL_arg_check(lua_isfunction(o), arg, "function expected");
  83   return o;
  84 }
  85
  86 lua_Object luaL_nonnullarg (int numArg)
  87 {
  88   lua_Object o = lua_getparam(numArg);
  89   luaL_arg_check(o != LUA_NOOBJECT, numArg, "value expected");
  90   return o;
  91 }
  92
  93 void luaL_openlib (struct luaL_reg *l, int n)
  94 {
  95   int i;
  96   lua_open();  /* make sure lua is already open */
  97   for (i=0; i<n; i++)
  98     lua_register(l[i].name, l[i].func);
  99 }
 100
 101
 102 void luaL_verror (char *fmt, ...)
 103 {
 104   char buff[500];
 105   va_list argp;
 106   va_start(argp, fmt);
 107   vsprintf(buff, fmt, argp);
 108   va_end(argp);
 109   lua_error(buff);
 110 }
 111