/* libquvi

 * Copyright (C) 2013  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 <curl/curl.h>

#include "quvi.h"

/* -- */

#include "_quvi_s.h"

/* -- */

#include "lua/quvi/opts.h"

#include "lua/def.h"

#include "misc/slst.h"

static gpointer _opt_new(const QuviObjectOption qoo, const gchar *vs,

                         const gdouble vn)

{

  l_quvi_object_opt_t o = g_new0(struct l_quvi_object_opt_s, 1);

  o->value.str = g_strdup(vs);

  o->value.n = vn;

  o->id = qoo;

  return (o);

}

/* Return a single-linked list of options passed with quvi.* function. */

GSList *l_quvi_object_opts_new(lua_State *l, gint index)

{

  l_quvi_object_opt_t o;

  GSList *r;

  gdouble k;

  gint t;

  r = NULL;

  if (!lua_istable(l, index))

    return (NULL);

  lua_pushnil(l);

  while (lua_next(l, LI_KEY))

    {

      if (lua_isnumber(l, LI_KEY))

        {

          k = lua_tonumber(l, LI_KEY);

          t = lua_type(l, LI_VALUE);

          o = NULL;

          switch (t)

            {

            case LUA_TSTRING:

              o = _opt_new(k, lua_tostring(l, LI_VALUE), 0);

              break;

            case LUA_TNUMBER:

              o = _opt_new(k, NULL, lua_tonumber(l, LI_VALUE));

              break;

            case LUA_TBOOLEAN:

              o = _opt_new(k, NULL, (gdouble)

                           (lua_toboolean(l, LI_VALUE) ? TRUE:FALSE) );

              break;

            default:

              g_warning("[%s] ignored: unsupported lua type=0x%x",

                        __func__, t);

              break;

            }

          if (o != NULL)

            r = g_slist_prepend(r, o);

        }

      lua_pop(l, 1);

    }

  return (g_slist_reverse(r));

}

static void _opt_free(gpointer p, gpointer userdata)

{

  l_quvi_object_opt_t o = (l_quvi_object_opt_t) p;

  if (p == NULL)

    return;

  g_free(o->value.str);

  o->value.str = NULL;

  g_free(o);

  o = NULL;

}

void l_quvi_object_opts_free(GSList *p)

{

  m_slist_free_full(p, _opt_free);

}

#ifdef _UNUSED

void l_quvi_object_opts_curl(GSList *opts, _quvi_t q)

{

  l_quvi_object_opt_t o;

  GSList *p;

  if (opts == NULL)

    return;

  if (l_quvi_object_opts_is_set(q->handle.lua, opts,

                                QUVI_OBJECT_OPTION_HTTP_USER_AGENT, &p,

                                NULL, FALSE)

      == TRUE)

    {

      o = (l_quvi_object_opt_t) p->data;

      curl_easy_setopt(q->handle.curl, CURLOPT_USERAGENT, o->value.str);

    }

}

#endif /* _UNUSED */

gboolean l_quvi_object_opts_is_set(lua_State *l, GSList *opts,

                                   const QuviObjectOption qoo, GSList **dst,

                                   const gchar *w,

                                   const gboolean croak_if_error)

{

  *dst = opts;

  while (*dst != NULL)

    {

      l_quvi_object_opt_t o = (l_quvi_object_opt_t) (*dst)->data;

      if (o->id == qoo)

        return (TRUE);

      *dst = g_slist_next(*dst);

    }

  if (croak_if_error == TRUE && w != NULL)

    luaL_error(l, "%s is required", w);

  return (FALSE);

}

void l_quvi_object_opts_chk_given(lua_State *l, GSList *opts,

                                  const gchar *w)

{

  if (opts == NULL)

    luaL_error(l, "expects a table of %s options passed as an arg", w);

}

gboolean l_quvi_object_opts_croak_if_error(lua_State *l, GSList *opts)

{

  GSList *p;

  if (opts == NULL)

    return (TRUE);

  if (l_quvi_object_opts_is_set(l, opts, QUVI_OBJECT_OPTION_CROAK_IF_ERROR,

                                &p, NULL, FALSE)

      == TRUE)

    {

      l_quvi_object_opt_t o = (l_quvi_object_opt_t) p->data;

      return ((o->value.n) != 0 ? TRUE:FALSE);

    }

  return (TRUE);

}

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