+static int ltoc_value (lua_State *l, /* {{{ */
+ int ds_type, value_t *ret_value)
+{
+ if (!lua_isnumber (l, /* stack pos = */ -1))
+ return (-1);
+
+ if (ds_type == DS_TYPE_GAUGE)
+ ret_value->gauge = (gauge_t) lua_tonumber (l, /* stack pos = */ -1);
+ else if (ds_type == DS_TYPE_DERIVE)
+ ret_value->derive = (derive_t) lua_tointeger (l, /* stack pos = */ -1);
+ else if (ds_type == DS_TYPE_COUNTER)
+ ret_value->counter = (counter_t) lua_tointeger (l, /* stack pos = */ -1);
+ else if (ds_type == DS_TYPE_ABSOLUTE)
+ ret_value->absolute = (absolute_t) lua_tointeger (l, /* stack pos = */ -1);
+ else
+ assert (23 == 42);
+
+ return (0);
+} /* }}} int ltoc_value */
+
+static int ltoc_values (lua_State *l, /* {{{ */
+ const data_set_t *ds,
+ value_t *ret_values)
+{
+ size_t i;
+ int status = 0;
+
+ if (!lua_istable (l, -1))
+ {
+ lua_pop (l, /* nelem = */ 1);
+ return (-1);
+ }
+
+ /* Push initial key */
+ lua_pushnil (l);
+ for (i = 0; i < ((size_t) ds->ds_num); i++)
+ {
+ /* Pops old key and pushed new key and value. */
+ status = lua_next (l, -2);
+ if (status == 0) /* no more elements */
+ break;
+
+ status = ltoc_value (l, ds->ds[i].type, ret_values + i);
+ if (status != 0)
+ {
+ DEBUG ("ltoc_value failed.");
+ break;
+ }
+
+ /* Pop the value */
+ lua_pop (l, /* nelems = */ 1);
+ }
+ /* Pop the key and the table itself */
+ lua_pop (l, /* nelems = */ 2);
+
+ return (status);
+} /* }}} int ltoc_values */
+
+static int ltoc_table_values (lua_State *l, /* {{{ */
+ const data_set_t *ds, value_list_t *vl)
+{
+ int status;
+
+ lua_pushstring (l, "values");
+ lua_gettable (l, -2);
+
+ if (!lua_istable (l, -1))
+ {
+ NOTICE ("lua plugin: ltoc_table_values: The \"values\" member is not a table.");
+ lua_pop (l, /* nelem = */ 1);
+ return (-1);
+ }
+
+ vl->values_len = ds->ds_num;
+ vl->values = calloc ((size_t) vl->values_len, sizeof (*vl->values));
+ if (vl->values == NULL)
+ {
+ ERROR ("lua plugin: calloc failed.");
+ vl->values_len = 0;
+ lua_pop (l, /* nelem = */ 1);
+ return (-1);
+ }
+
+ status = ltoc_values (l, ds, vl->values);
+
+ lua_pop (l, /* nelem = */ 1);
+
+ if (status != 0)
+ {
+ vl->values_len = 0;
+ sfree (vl->values);
+ }
+
+ return (status);
+} /* }}} int ltoc_table_values */
+