src/lua/quvi/opts.c

   1 /* libquvi
   2  * Copyright (C) 2013  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 #include <curl/curl.h>
  26
  27 #include "quvi.h"
  28 /* -- */
  29 #include "_quvi_s.h"
  30 /* -- */
  31 #include "lua/quvi/opts.h"
  32 #include "lua/def.h"
  33 #include "misc/slst.h"
  34
  35 static gpointer _opt_new(const QuviObjectOption qoo, const gchar *vs,
  36                          const gdouble vn)
  37 {
  38   l_quvi_object_opt_t o = g_new0(struct l_quvi_object_opt_s, 1);
  39   o->value.str = g_strdup(vs);
  40   o->value.n = vn;
  41   o->id = qoo;
  42   return (o);
  43 }
  44
  45 /* Return a single-linked list of options passed with quvi.* function. */
  46 GSList *l_quvi_object_opts_new(lua_State *l, gint index)
  47 {
  48   l_quvi_object_opt_t o;
  49   GSList *r;
  50   gdouble k;
  51   gint t;
  52
  53   r = NULL;
  54
  55   if (!lua_istable(l, index))
  56     return (NULL);
  57
  58   lua_pushnil(l);
  59   while (lua_next(l, LI_KEY))
  60     {
  61       if (lua_isnumber(l, LI_KEY))
  62         {
  63           k = lua_tonumber(l, LI_KEY);
  64           t = lua_type(l, LI_VALUE);
  65           o = NULL;
  66
  67           switch (t)
  68             {
  69             case LUA_TSTRING:
  70               o = _opt_new(k, lua_tostring(l, LI_VALUE), 0);
  71               break;
  72             case LUA_TNUMBER:
  73               o = _opt_new(k, NULL, lua_tonumber(l, LI_VALUE));
  74               break;
  75             case LUA_TBOOLEAN:
  76               o = _opt_new(k, NULL, (gdouble)
  77                            (lua_toboolean(l, LI_VALUE) ? TRUE:FALSE) );
  78               break;
  79             default:
  80               g_warning("[%s] ignored: unsupported lua type=0x%x",
  81                         __func__, t);
  82               break;
  83             }
  84
  85           if (o != NULL)
  86             r = g_slist_prepend(r, o);
  87         }
  88       lua_pop(l, 1);
  89     }
  90   return (g_slist_reverse(r));
  91 }
  92
  93 static void _opt_free(gpointer p, gpointer userdata)
  94 {
  95   l_quvi_object_opt_t o = (l_quvi_object_opt_t) p;
  96
  97   if (p == NULL)
  98     return;
  99
 100   g_free(o->value.str);
 101   o->value.str = NULL;
 102
 103   g_free(o);
 104   o = NULL;
 105 }
 106
 107 void l_quvi_object_opts_free(GSList *p)
 108 {
 109   m_slist_free_full(p, _opt_free);
 110 }
 111
 112 #ifdef _UNUSED
 113 void l_quvi_object_opts_curl(GSList *opts, _quvi_t q)
 114 {
 115   l_quvi_object_opt_t o;
 116   GSList *p;
 117
 118   if (opts == NULL)
 119     return;
 120
 121   if (l_quvi_object_opts_is_set(q->handle.lua, opts,
 122                                 QUVI_OBJECT_OPTION_HTTP_USER_AGENT, &p,
 123                                 NULL, FALSE)
 124       == TRUE)
 125     {
 126       o = (l_quvi_object_opt_t) p->data;
 127       curl_easy_setopt(q->handle.curl, CURLOPT_USERAGENT, o->value.str);
 128     }
 129 }
 130 #endif /* _UNUSED */
 131
 132 gboolean l_quvi_object_opts_is_set(lua_State *l, GSList *opts,
 133                                    const QuviObjectOption qoo, GSList **dst,
 134                                    const gchar *w,
 135                                    const gboolean croak_if_error)
 136
 137 {
 138   *dst = opts;
 139   while (*dst != NULL)
 140     {
 141       l_quvi_object_opt_t o = (l_quvi_object_opt_t) (*dst)->data;
 142       if (o->id == qoo)
 143         return (TRUE);
 144       *dst = g_slist_next(*dst);
 145     }
 146
 147   if (croak_if_error == TRUE && w != NULL)
 148     luaL_error(l, "%s is required", w);
 149
 150   return (FALSE);
 151 }
 152
 153 void l_quvi_object_opts_chk_given(lua_State *l, GSList *opts,
 154                                   const gchar *w)
 155 {
 156   if (opts == NULL)
 157     luaL_error(l, "expects a table of %s options passed as an arg", w);
 158 }
 159
 160 gboolean l_quvi_object_opts_croak_if_error(lua_State *l, GSList *opts)
 161 {
 162   GSList *p;
 163
 164   if (opts == NULL)
 165     return (TRUE);
 166
 167   if (l_quvi_object_opts_is_set(l, opts, QUVI_OBJECT_OPTION_CROAK_IF_ERROR,
 168                                 &p, NULL, FALSE)
 169       == TRUE)
 170     {
 171       l_quvi_object_opt_t o = (l_quvi_object_opt_t) p->data;
 172       return ((o->value.n) != 0 ? TRUE:FALSE);
 173     }
 174   return (TRUE);
 175 }
 176
 177 /* vim: set ts=2 sw=2 tw=72 expandtab: */