src/lua/getfield.c

   1 /* libquvi
   2  * Copyright (C) 2012  Toni Gundogdu <legatvs@gmail.com>
   3  *
   4  * This file is part of libquvi <http://quvi.sourceforge.net/>.
   5  *
   6  * This library is free software: you can redistribute it and/or
   7  * modify it under the terms of the GNU Affero General Public
   8  * License as published by the Free Software Foundation, either
   9  * version 3 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU Affero General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Affero General
  17  * Public License along with this library.  If not, see
  18  * <http://www.gnu.org/licenses/>.
  19  */
  20
  21 #include "config.h"
  22
  23 #include <lauxlib.h>
  24 #include <glib.h>
  25
  26 #include "quvi.h"
  27 /* -- */
  28 #include "lua/getfield.h"
  29
  30 gpointer l_get_reg_userdata(lua_State *l, const gchar *k)
  31 {
  32   lua_pushstring(l, k);
  33   lua_gettable(l, LUA_REGISTRYINDEX);
  34
  35   if (!lua_isuserdata(l, -1))
  36     luaL_error(l, "expected to find the key `%s' in LUA_REGISTRYINDEX", k);
  37
  38   return ((gpointer) lua_touserdata(l, -1));
  39 }
  40
  41 #ifdef _1 /* Unused */
  42
  43 static const gchar *_E =
  44   "%s: %s: expected to find the key `%s' in the returned table";
  45
  46 #define _pop(ltype, ctype, dval) \
  47   do { \
  48     ctype r = dval; \
  49     lua_pushstring(l ,k); \
  50     lua_gettable(l, -2); \
  51     if (!lua_is##ltype(l, -1)) \
  52       luaL_error(l, _E, script_path, script_func, k); \
  53     r = lua_to##ltype(l, -1); \
  54     lua_pop(l, 1); \
  55     return (r); \
  56   } while (0)
  57
  58 const gchar *l_getfield_s(lua_State *l, const gchar *k,
  59                           const gchar *script_path,
  60                           const gchar *script_func)
  61 {
  62   _pop(string, const gchar*, NULL);
  63 }
  64
  65 const gdouble l_getfield_n(lua_State *l, const gchar *k,
  66                            const gchar *script_path,
  67                            const gchar *script_func)
  68 {
  69   _pop(number, gdouble, 0);
  70 }
  71
  72 const gboolean l_getfield_b(lua_State *l, const gchar *k,
  73                             const gchar *script_path,
  74                             const gchar *script_func)
  75 {
  76   _pop(boolean, gboolean, FALSE);
  77 }
  78
  79 QuviError l_getfield_table_iter_s(lua_State *l,
  80                                   const gpointer dst,
  81                                   const gchar *k,
  82                                   const gchar *script_path,
  83                                   const gchar *script_func,
  84                                   l_callback_getfield_table_iter_s cb)
  85 {
  86   QuviError rc = QUVI_OK;
  87
  88   lua_pushstring(l, k);
  89   lua_gettable(l, -2);
  90
  91   if (!lua_istable(l, -1))
  92     {
  93       luaL_error(l, "%s: %s: expected to find the table `%s'",
  94                  script_path, script_func, k);
  95     }
  96
  97   lua_pushnil(l);
  98
  99   while (lua_next(l, -2) && rc == QUVI_OK)
 100     {
 101       rc = (cb)(dst, lua_tostring(l, -1));
 102       lua_pop(l, 1);
 103     }
 104
 105   lua_pop(l, 1);
 106
 107   return (rc);
 108 }
 109 #endif /* _1, unused */
 110
 111 /* vim: set ts=2 sw=2 tw=72 expandtab: */