/* libquvi

 * Copyright (C) 2012  Toni Gundogdu <legatvs@gmail.com>

 *

 * This file is part of libquvi <http://quvi.sourceforge.net/>.

 *

 * This library is free software: you can redistribute it and/or

 * modify it under the terms of the GNU Affero General Public

 * License as published by the Free Software Foundation, either

 * version 3 of the License, or (at your option) any later version.

 *

 * This library is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU Affero General Public License for more details.

 *

 * You should have received a copy of the GNU Affero General

 * Public License along with this library.  If not, see

 * <http://www.gnu.org/licenses/>.

 */

#include "config.h"

#include <lauxlib.h>

#include <glib.h>

#include "quvi.h"

/* -- */

#include "lua/getfield.h"

gpointer l_get_reg_userdata(lua_State *l, const gchar *k)

{

  lua_pushstring(l, k);

  lua_gettable(l, LUA_REGISTRYINDEX);

  if (!lua_isuserdata(l, -1))

    luaL_error(l, "expected to find the key `%s' in LUA_REGISTRYINDEX", k);

  return ((gpointer) lua_touserdata(l, -1));

}

#ifdef _1 /* Unused */

static const gchar *_E =

  "%s: %s: expected to find the key `%s' in the returned table";

#define _pop(ltype, ctype, dval) \

  do { \

    ctype r = dval; \

    lua_pushstring(l ,k); \

    lua_gettable(l, -2); \

    if (!lua_is##ltype(l, -1)) \

      luaL_error(l, _E, script_path, script_func, k); \

    r = lua_to##ltype(l, -1); \

    lua_pop(l, 1); \

    return (r); \

  } while (0)

const gchar *l_getfield_s(lua_State *l, const gchar *k,

                          const gchar *script_path,

                          const gchar *script_func)

{

  _pop(string, const gchar*, NULL);

}

const gdouble l_getfield_n(lua_State *l, const gchar *k,

                           const gchar *script_path,

                           const gchar *script_func)

{

  _pop(number, gdouble, 0);

}

const gboolean l_getfield_b(lua_State *l, const gchar *k,

                            const gchar *script_path,

                            const gchar *script_func)

{

  _pop(boolean, gboolean, FALSE);

}

QuviError l_getfield_table_iter_s(lua_State *l,

                                  const gpointer dst,

                                  const gchar *k,

                                  const gchar *script_path,

                                  const gchar *script_func,

                                  l_callback_getfield_table_iter_s cb)

{

  QuviError rc = QUVI_OK;

  lua_pushstring(l, k);

  lua_gettable(l, -2);

  if (!lua_istable(l, -1))

    {

      luaL_error(l, "%s: %s: expected to find the table `%s'",

                 script_path, script_func, k);

    }

  lua_pushnil(l);

  while (lua_next(l, -2) && rc == QUVI_OK)

    {

      rc = (cb)(dst, lua_tostring(l, -1));

      lua_pop(l, 1);

    }

  lua_pop(l, 1);

  return (rc);

}

#endif /* _1, unused */

/* vim: set ts=2 sw=2 tw=72 expandtab: */