[grilo-plugins] Revert "lua-factory: change grl.get_options() into the static table"

[Bastien Nocera <hadess src gnome org>]

commit a1379194e5189534c819a02ebd292f3748a45abc
Author: Victor Toso <me victortoso com>
Date:   Tue Mar 8 23:26:22 2016 +0100

    Revert "lua-factory: change grl.get_options() into the static table"
    
    In order to keep the previous API between Lua sources and Lua-Factory.
    
    This reverts commit 2bfcff90d589d4335105a6423616c7de61cf4c71.
    
    After applying this patch, it will break the lua sources due the API
    change.  We are not passing an static table with all operation options
    to the source anymore.  Lua sources should use grl.get_options() and
    grl.get_requested_keys().
    
    The main goal of reverted patch was to provide a table with all options
    for the operation handler.
    
    https://bugzilla.gnome.org/show_bug.cgi?id=763046

 src/lua-factory/grl-lua-common.h             |    5 +-
 src/lua-factory/grl-lua-factory.c            |   23 +-
 src/lua-factory/grl-lua-library-operations.c |    6 +
 src/lua-factory/grl-lua-library.c            |  535 ++++++++++----------------
 4 files changed, 227 insertions(+), 342 deletions(-)
---
diff --git a/src/lua-factory/grl-lua-common.h b/src/lua-factory/grl-lua-common.h
index 15564b0..a79531c 100644
--- a/src/lua-factory/grl-lua-common.h
+++ b/src/lua-factory/grl-lua-common.h
@@ -75,11 +75,14 @@ typedef enum {
 typedef struct _OperationSpec {
   GrlSource *source;
   guint operation_id;
+  GrlOperationOptions *options;
+  GList *keys;
   LuaOperationType op_type;
   union {
     GrlSourceResultCb result;
     GrlSourceResolveCb resolve;
   } cb;
+  gchar *string;
   GrlMedia *media;
   gpointer user_data;
   guint error_code;
@@ -89,8 +92,6 @@ typedef struct _OperationSpec {
 void grl_lua_library_save_goa_data (lua_State *L, gpointer goa_object);
 gpointer grl_lua_library_load_goa_data (lua_State *L);
 
-void grl_lua_library_push_grl_options (lua_State *L, guint operation_id, GrlOperationOptions *options, GList 
*keys);
-
 /* grl-lua-library-operations */
 void grl_lua_operations_init_priv_state (lua_State *L);
 void grl_lua_operations_set_proxy_table (lua_State *L, gint index);
diff --git a/src/lua-factory/grl-lua-factory.c b/src/lua-factory/grl-lua-factory.c
index b078c3c..1f1913b 100644
--- a/src/lua-factory/grl-lua-factory.c
+++ b/src/lua-factory/grl-lua-factory.c
@@ -1520,14 +1520,16 @@ grl_lua_factory_source_search (GrlSource *source,
   os->operation_id = ss->operation_id;
   os->cb.result = ss->callback;
   os->user_data = ss->user_data;
+  os->string = g_strdup (text);
   os->error_code = GRL_CORE_ERROR_SEARCH_FAILED;
+  os->keys = g_list_copy (ss->keys);
+  os->options = grl_operation_options_copy (ss->options);
   os->op_type = LUA_SEARCH;
 
   lua_getglobal (L, LUA_SOURCE_OPERATION[LUA_SEARCH]);
 
   lua_pushstring (L, text);
-  grl_lua_library_push_grl_options (L, ss->operation_id, ss->options, ss->keys);
-  if (!grl_lua_operations_pcall (L, 2, os, &err)) {
+  if (!grl_lua_operations_pcall (L, 1, os, &err)) {
     if (err != NULL) {
       GRL_WARNING ("calling search function failed: %s", err->message);
       g_error_free (err);
@@ -1555,14 +1557,16 @@ grl_lua_factory_source_browse (GrlSource *source,
   os->media = bs->container;
   os->cb.result = bs->callback;
   os->user_data = bs->user_data;
+  os->string = g_strdup (media_id);
   os->error_code = GRL_CORE_ERROR_BROWSE_FAILED;
+  os->keys = g_list_copy (bs->keys);
+  os->options = grl_operation_options_copy (bs->options);
   os->op_type = LUA_BROWSE;
 
   lua_getglobal (L, LUA_SOURCE_OPERATION[LUA_BROWSE]);
 
   lua_pushstring (L, media_id);
-  grl_lua_library_push_grl_options (L, bs->operation_id, bs->options, bs->keys);
-  if (!grl_lua_operations_pcall (L, 2, os, &err)) {
+  if (!grl_lua_operations_pcall (L, 1, os, &err)) {
     if (err != NULL) {
       GRL_WARNING ("calling browse function failed: %s", err->message);
       g_error_free (err);
@@ -1589,14 +1593,16 @@ grl_lua_factory_source_query (GrlSource *source,
   os->operation_id = qs->operation_id;
   os->cb.result = qs->callback;
   os->user_data = qs->user_data;
+  os->string = g_strdup (query);
   os->error_code = GRL_CORE_ERROR_QUERY_FAILED;
+  os->keys = g_list_copy (qs->keys);
+  os->options = grl_operation_options_copy (qs->options);
   os->op_type = LUA_QUERY;
 
   lua_getglobal (L, LUA_SOURCE_OPERATION[LUA_QUERY]);
 
   lua_pushstring (L, query);
-  grl_lua_library_push_grl_options (L, qs->operation_id, qs->options, qs->keys);
-  if (!grl_lua_operations_pcall (L, 2, os, &err)) {
+  if (!grl_lua_operations_pcall (L, 1, os, &err)) {
     if (err != NULL) {
       GRL_WARNING ("calling query function failed: %s", err->message);
       g_error_free (err);
@@ -1622,12 +1628,13 @@ grl_lua_factory_source_resolve (GrlSource *source,
   os->media = rs->media;
   os->user_data = rs->user_data;
   os->error_code = GRL_CORE_ERROR_RESOLVE_FAILED;
+  os->keys = g_list_copy (rs->keys);
+  os->options = grl_operation_options_copy (rs->options);
   os->op_type = LUA_RESOLVE;
 
   lua_getglobal (L, LUA_SOURCE_OPERATION[LUA_RESOLVE]);
 
-  grl_lua_library_push_grl_options (L, rs->operation_id, rs->options, rs->keys);
-  if (!grl_lua_operations_pcall (L, 1, os, &err)) {
+  if (!grl_lua_operations_pcall (L, 0, os, &err)) {
     if (err != NULL) {
       GRL_WARNING ("calling resolve function failed: %s", err->message);
       g_error_free (err);
diff --git a/src/lua-factory/grl-lua-library-operations.c b/src/lua-factory/grl-lua-library-operations.c
index 679c025..961417d 100644
--- a/src/lua-factory/grl-lua-library-operations.c
+++ b/src/lua-factory/grl-lua-library-operations.c
@@ -44,6 +44,12 @@ static OperationSpec * priv_state_current_op_get_op_data (lua_State *L);
 static void
 free_operation_spec (OperationSpec *os)
 {
+  g_clear_pointer (&os->string, g_free);
+  g_clear_object (&os->options);
+
+  if (os->keys)
+    g_list_free (os->keys);
+
   g_slice_free (OperationSpec, os);
 }
 
diff --git a/src/lua-factory/grl-lua-library.c b/src/lua-factory/grl-lua-library.c
index ee748c9..62401fc 100644
--- a/src/lua-factory/grl-lua-library.c
+++ b/src/lua-factory/grl-lua-library.c
@@ -728,6 +728,207 @@ net_wc_new_with_options (lua_State *L,
 
 /* ================== Lua-Library methods ================================== */
 
+/**
+* grl.get_options
+*
+* @option: (string) Name of the option you want (e.g. count, flags).
+* @key: (string) Name of the key when option request it.
+* @return: The option or nil if none;
+*/
+static gint
+grl_l_operation_get_options (lua_State *L)
+{
+  OperationSpec *os;
+  const gchar *option;
+
+  luaL_argcheck (L, lua_isstring (L, 1), 1, "expecting option (string)");
+
+  os = grl_lua_operations_get_current_op (L);
+  g_return_val_if_fail (os != NULL, 0);
+  option = lua_tostring (L, 1);
+
+  if (g_strcmp0 (option, "type") == 0) {
+    const char *type;
+    switch (os->op_type) {
+    case LUA_SEARCH:
+      type = "search";
+      break;
+    case LUA_BROWSE:
+      type = "browse";
+      break;
+    case LUA_QUERY:
+      type = "query";
+      break;
+    case LUA_RESOLVE:
+      type = "resolve";
+      break;
+    default:
+      g_assert_not_reached ();
+    }
+
+    lua_pushstring (L, type);
+    return 1;
+  }
+
+  if (g_strcmp0 (option, "count") == 0) {
+    gint count = grl_operation_options_get_count (os->options);
+
+    lua_pushinteger (L, count);
+    return 1;
+  }
+
+  if (g_strcmp0 (option, "skip") == 0) {
+    guint skip = grl_operation_options_get_skip (os->options);
+
+    lua_pushinteger (L, skip);
+    return 1;
+  }
+
+  if (g_strcmp0 (option, "flags") == 0) {
+    GrlResolutionFlags flags = grl_operation_options_get_resolution_flags (os->options);
+
+    lua_pushinteger (L, (gint) flags);
+    return 1;
+  }
+
+  if (g_strcmp0 (option, "key-filter") == 0) {
+    GrlKeyID key;
+    GValue *value = NULL;
+    const gchar *key_name = NULL;
+    GrlRegistry *registry = grl_registry_get_default ();
+
+    luaL_argcheck (L, lua_isstring (L, 2), 2, "expecting key name");
+    key_name = lua_tostring (L, 2);
+
+    key = grl_registry_lookup_metadata_key (registry, key_name);
+    value = grl_operation_options_get_key_filter (os->options, key);
+    switch (grl_registry_lookup_metadata_key_type (registry, key)) {
+    case G_TYPE_INT:
+      (value) ? (void) lua_pushinteger (L, g_value_get_int (value)) : lua_pushnil (L);
+      break;
+
+    case G_TYPE_FLOAT:
+      (value) ? (void) lua_pushnumber (L, g_value_get_float (value)) : lua_pushnil (L);
+      break;
+
+    case G_TYPE_STRING:
+      (value) ? (void) lua_pushstring (L, g_value_get_string (value)) : lua_pushnil (L);
+      break;
+
+    case G_TYPE_BOOLEAN:
+      (value) ? (void) lua_pushboolean (L, g_value_get_boolean (value)) : lua_pushnil (L);
+      break;
+
+    default:
+      GRL_DEBUG ("'%s' is being ignored as G_TYPE is not being handled.",
+                 key_name);
+    }
+    return 1;
+  }
+
+  if (g_strcmp0 (option, "range-filter") == 0) {
+    GValue *min = NULL;
+    GValue *max = NULL;
+    GrlKeyID key;
+    const gchar *key_name = NULL;
+    GrlRegistry *registry = grl_registry_get_default ();
+
+    luaL_argcheck (L, lua_isstring (L, 2), 2, "expecting key name");
+    key_name = lua_tostring (L, 2);
+
+    key = grl_registry_lookup_metadata_key (registry, key_name);
+    if (key != GRL_METADATA_KEY_INVALID) {
+      grl_operation_options_get_key_range_filter (os->options, key, &min, &max);
+      switch (grl_registry_lookup_metadata_key_type (registry, key)) {
+      case G_TYPE_INT:
+        (min) ? (void) lua_pushinteger (L, g_value_get_int (min)) : lua_pushnil (L);
+        (max) ? (void) lua_pushinteger (L, g_value_get_int (max)) : lua_pushnil (L);
+        break;
+
+      case G_TYPE_FLOAT:
+        (min) ? (void) lua_pushnumber (L, g_value_get_float (min)) : lua_pushnil (L);
+        (max) ? (void) lua_pushnumber (L, g_value_get_float (max)) : lua_pushnil (L);
+        break;
+
+      case G_TYPE_STRING:
+        (min) ? (void) lua_pushstring (L, g_value_get_string (min)) : lua_pushnil (L);
+        (max) ? (void) lua_pushstring (L, g_value_get_string (max)) : lua_pushnil (L);
+        break;
+
+      default:
+        GRL_DEBUG ("'%s' is being ignored as G_TYPE is not being handled.",
+                   key_name);
+      }
+    }
+    return 2;
+  }
+
+  if (g_strcmp0 (option, "operation-id") == 0) {
+    lua_pushinteger (L, (gint) os->operation_id);
+    return 1;
+  }
+
+  if (g_strcmp0 (option, "media-id") == 0 &&
+      os->op_type == LUA_BROWSE) {
+    lua_pushstring (L, os->string);
+    return 1;
+  }
+
+  if (g_strcmp0 (option, "query") == 0 &&
+      os->op_type == LUA_QUERY) {
+    lua_pushstring (L, os->string);
+    return 1;
+  }
+
+  if (g_strcmp0 (option, "search") == 0 &&
+      os->op_type == LUA_SEARCH) {
+    lua_pushstring (L, os->string);
+    return 1;
+  }
+
+  luaL_error (L, "'%s' is not available nor implemented.", option);
+  return 0;
+}
+
+/**
+* grl.get_media_keys
+*
+* @return: array of all requested keys from application (may be empty);
+*/
+static gint
+grl_l_operation_get_keys (lua_State *L)
+{
+  OperationSpec *os;
+  GrlRegistry *registry;
+  GList *it;
+
+  os = grl_lua_operations_get_current_op (L);
+  g_return_val_if_fail (os != NULL, 0);
+
+  registry = grl_registry_get_default ();
+  lua_newtable (L);
+  for (it = os->keys; it != NULL; it = it->next) {
+    GrlKeyID key_id;
+    char *key_name, *ptr;
+
+    key_id = GRLPOINTER_TO_KEYID (it->data);
+    if (key_id == GRL_METADATA_KEY_INVALID)
+      continue;
+
+    key_name = g_strdup (grl_registry_lookup_metadata_key_name (registry, key_id));
+    /* Replace '-' to '_': convenient for the developer */
+    while ((ptr = strstr (key_name, "-")) != NULL) {
+      *ptr = '_';
+    }
+
+    lua_pushstring (L, key_name);
+    lua_pushboolean (L, 1);
+    lua_settable (L, -3);
+    g_free (key_name);
+  }
+  return 1;
+}
+
 static gboolean
 push_grl_media_key (lua_State *L,
                     GrlMedia *media,
@@ -1400,6 +1601,8 @@ gint
 luaopen_grilo (lua_State *L)
 {
   static const luaL_Reg library_fn[] = {
+    {"get_options", &grl_l_operation_get_options},
+    {"get_requested_keys", &grl_l_operation_get_keys},
     {"get_media_keys", &grl_l_media_get_keys},
     {"callback", &grl_l_callback},
     {"fetch", &grl_l_fetch},
@@ -1591,335 +1794,3 @@ grl_lua_library_load_goa_data (lua_State *L)
   return NULL;
 #endif /* GOA_ENABLED */
 }
-
-/**
- * push_operation_requested_keys
- *
- * Pushes the table representing the list of requested
- * keys for the current operation on top of the lua stack.
- *
- * @L: LuaState where the data is stored.
- * @keys: The requested keys of the current operation.
- * @return: Nothing.
- */
-static void
-push_operation_requested_keys (lua_State *L,
-                               GList *keys)
-{
-  GrlRegistry *registry = grl_registry_get_default ();
-  GList *it;
-  gint i = 1;
-
-  lua_newtable (L);
-  for (it = keys; it != NULL; it = it->next) {
-    GrlKeyID key_id;
-    char *key_name, *ptr;
-
-    key_id = GRLPOINTER_TO_KEYID (it->data);
-    if (key_id == GRL_METADATA_KEY_INVALID)
-      continue;
-
-    key_name = g_strdup (grl_registry_lookup_metadata_key_name (registry, key_id));
-    /* Replace '-' to '_': convenient for the developer */
-    while ((ptr = strstr (key_name, "-")) != NULL) {
-      *ptr = '_';
-    }
-
-    lua_pushstring (L, key_name);
-    lua_pushboolean (L, 1);
-    lua_settable (L, -3);
-    g_free (key_name);
-    i++;
-  }
-}
-
-/**
- * push_operation_type_filter
- *
- * Pushes the type filter table into the filters table. The
- * filters table should already be on top of the lua stack.
- *
- * @L: LuaState where the data is stored.
- * @options: The GrlOperationOptions from which to retrieve filter.
- * @return: Nothing.
- */
-static void
-push_operation_type_filter (lua_State *L,
-                            GrlOperationOptions *options)
-{
-  GrlTypeFilter type_filter;
-
-  g_assert (lua_istable (L, -1));
-
-  type_filter = grl_operation_options_get_type_filter (options);
-
-  lua_pushstring (L, "types");
-  lua_newtable (L);
-
-  lua_pushstring (L, "audio");
-  lua_pushboolean (L, (type_filter & GRL_TYPE_FILTER_AUDIO));
-  lua_settable (L, -3);
-  lua_pushstring (L, "video");
-  lua_pushboolean (L, (type_filter & GRL_TYPE_FILTER_VIDEO));
-  lua_settable (L, -3);
-  lua_pushstring (L, "image");
-  lua_pushboolean (L, (type_filter & GRL_TYPE_FILTER_IMAGE));
-  lua_settable (L, -3);
-  lua_settable (L, -3);
-}
-
-/**
- * push_operation_range_filters
- *
- * Pushes the elements of the filters table representing
- * the range filters into the table. The filters table should
- * already be on top of the lua stack.
- *
- * @L: LuaState where the data is stored.
- * @options: The GrlOperationOptions from which to retrieve filters.
- * @return: Nothing.
- */
-static void
-push_operation_range_filters (lua_State *L,
-                              GrlOperationOptions *options)
-{
-  GrlRegistry *registry;
-  GList *range_filters;
-  GList *it;
-
-  g_assert (lua_istable (L, -1));
-
-  registry = grl_registry_get_default ();
-  range_filters = grl_operation_options_get_key_range_filter_list (options);
-
-  for (it = range_filters; it != NULL; it = it->next) {
-    GrlKeyID key_id;
-    gchar *key_name;
-    gchar *ptr;
-    GValue *min = NULL;
-    GValue *max = NULL;
-    gboolean success = TRUE;
-
-    key_id = GRLPOINTER_TO_KEYID (it->data);
-    if (key_id == GRL_METADATA_KEY_INVALID)
-      continue;
-
-    grl_operation_options_get_key_range_filter (options, key_id, &min, &max);
-    key_name = g_strdup (grl_registry_lookup_metadata_key_name (registry, key_id));
-
-    /* Replace '-' to '_': as a convenience for the developer */
-    while ((ptr = strstr (key_name, "-")) != NULL) {
-      *ptr = '_';
-    }
-
-    lua_pushstring (L, key_name);
-    g_free (key_name);
-    lua_newtable (L);
-
-    switch (grl_registry_lookup_metadata_key_type (registry, key_id)) {
-    case G_TYPE_INT:
-      lua_pushstring (L, "min");
-      (min) ? (void) lua_pushinteger (L, g_value_get_int (min)) : lua_pushnil (L);
-      lua_settable (L, -3);
-      lua_pushstring (L, "max");
-      (max) ? (void) lua_pushinteger (L, g_value_get_int (max)) : lua_pushnil (L);
-      lua_settable (L, -3);
-      break;
-
-    case G_TYPE_FLOAT:
-      lua_pushstring (L, "min");
-      (min) ? (void) lua_pushnumber (L, g_value_get_float (min)) : lua_pushnil (L);
-      lua_settable (L, -3);
-      lua_pushstring (L, "max");
-      (max) ? (void) lua_pushnumber (L, g_value_get_float (max)) : lua_pushnil (L);
-      lua_settable (L, -3);
-      break;
-
-    case G_TYPE_STRING:
-      lua_pushstring (L, "min");
-      (min) ? (void) lua_pushstring (L, g_value_get_string (min)) : lua_pushnil (L);
-      lua_settable (L, -3);
-      lua_pushstring (L, "max");
-      (max) ? (void) lua_pushstring (L, g_value_get_string (max)) : lua_pushnil (L);
-      lua_settable (L, -3);
-      break;
-
-    case G_TYPE_INT64:
-      lua_pushstring (L, "min");
-      (min) ? (void) lua_pushinteger (L, g_value_get_int64 (min)) : lua_pushnil (L);
-      lua_settable (L, -3);
-      lua_pushstring (L, "max");
-      (max) ? (void) lua_pushinteger (L, g_value_get_int64 (max)) : lua_pushnil (L);
-      lua_settable (L, -3);
-      break;
-
-    default:
-      if (grl_registry_lookup_metadata_key_type (registry, key_id) == G_TYPE_DATE_TIME) {
-        /* since the value would be used for comparison, and since os.time()
-         * returns unix time in lua, it'd be a good idea to pass g_date_time
-         * as unix time here */
-        GDateTime *date;
-        lua_pushstring (L, "min");
-        if (min) {
-          date = g_value_get_boxed (min);
-          lua_pushinteger (L, g_date_time_to_unix (date));
-        } else {
-          lua_pushnil (L);
-        }
-        lua_settable (L, -3);
-        lua_pushstring (L, "max");
-        if (max) {
-          date = g_value_get_boxed (max);
-          lua_pushinteger (L, g_date_time_to_unix (date));
-        } else {
-          lua_pushnil (L);
-        }
-        lua_settable (L, -3);
-      } else {
-        GRL_DEBUG ("Key %s has unhandled G_TYPE. Lua source will miss this data",
-                   grl_registry_lookup_metadata_key_name (registry, key_id));
-
-        success = FALSE;
-      }
-    }
-
-    if (success) {
-      lua_settable (L, -3);
-    } else {
-      lua_pop (L, 2);
-    }
-  }
-  g_list_free (range_filters);
-}
-
-/**
- * push_operation_filters
- *
- * Pushes the elements of the filters table representing
- * the non-range filters into the table. The filters table
- * should already be on top of the lua stack.
- *
- * @L: LuaState where the data is stored.
- * @options: The GrlOperationOptions from which to retrieve filters.
- * @return: Nothing.
- */
-static void
-push_operation_filters (lua_State *L,
-                        GrlOperationOptions *options)
-{
-  GrlRegistry *registry;
-  GList *filters;
-  GList *it;
-
-  g_assert (lua_istable (L, -1));
-
-  registry = grl_registry_get_default ();
-  filters = grl_operation_options_get_key_filter_list (options);
-
-  for (it = filters; it != NULL; it = it->next) {
-    GrlKeyID key_id;
-    gchar *key_name;
-    gchar *ptr;
-    GValue *value = NULL;
-    gboolean success = TRUE;
-
-    key_id = GRLPOINTER_TO_KEYID (it->data);
-    if (key_id == GRL_METADATA_KEY_INVALID)
-      continue;
-
-    value = grl_operation_options_get_key_filter (options, key_id);
-    key_name = g_strdup (grl_registry_lookup_metadata_key_name (registry, key_id));
-
-    /* Replace '-' to '_': as a convenience for the developers */
-    while ((ptr = strstr (key_name, "-")) != NULL) {
-      *ptr = '_';
-    }
-
-    lua_pushstring (L, key_name);
-    g_free (key_name);
-
-    /* Keep all the filters in tables */
-    lua_newtable (L);
-    lua_pushstring (L, "value");
-
-    switch (grl_registry_lookup_metadata_key_type (registry, key_id)) {
-    case G_TYPE_INT:
-      (value) ? (void) lua_pushinteger (L, g_value_get_int (value)) : lua_pushnil (L);
-      break;
-
-    case G_TYPE_FLOAT:
-      (value) ? (void) lua_pushnumber (L, g_value_get_float (value)) : lua_pushnil (L);
-      break;
-
-    case G_TYPE_STRING:
-      (value) ? (void) lua_pushstring (L, g_value_get_string (value)) : lua_pushnil (L);
-      break;
-
-    case G_TYPE_BOOLEAN:
-      (value) ? (void) lua_pushboolean (L, g_value_get_boolean (value)) : lua_pushnil (L);
-      break;
-
-    case G_TYPE_INT64:
-      (value) ? (void) lua_pushinteger (L, g_value_get_int64 (value)) : lua_pushnil (L);
-      break;
-
-    default:
-      GRL_DEBUG ("'%s' is being ignored as G_TYPE is not being handled.",
-                 grl_registry_lookup_metadata_key_name (registry, key_id));
-      success = FALSE;
-    }
-    if (success) {
-      lua_settable (L, -3);
-      lua_settable (L, -3);
-    } else {
-      lua_pop (L, 3);
-    }
-  }
-  g_list_free (filters);
-}
-
-/**
- * grl_lua_library_push_grl_options
- *
- * Pushes the table representing the various options of the operation
- * on top of the lua stack.
- *
- * @L: LuaState where the data is stored.
- * @opearation_id: id of the current operation
- * @option: The options of the current operation.
- * @key: The requested keys of the current operation.
- * @return: Nothing.
- */
-void
-grl_lua_library_push_grl_options (lua_State *L,
-                                  guint operation_id,
-                                  GrlOperationOptions *options,
-                                  GList *keys)
-{
-  lua_newtable (L);
-
-  lua_pushstring (L, "count");
-  lua_pushinteger (L, grl_operation_options_get_count (options));
-  lua_settable (L, -3);
-
-  lua_pushstring (L, "skip");
-  lua_pushinteger (L, grl_operation_options_get_skip (options));
-  lua_settable (L, -3);
-
-  lua_pushstring (L, "operation_id");
-  lua_pushinteger (L, (gint) operation_id);
-  lua_settable (L, -3);
-
-  lua_pushstring (L, "requested_keys");
-  push_operation_requested_keys(L, keys);
-  lua_settable (L, -3);
-
-  lua_pushstring (L, "filters");
-  lua_newtable (L);
-
-  push_operation_type_filter (L, options);
-  push_operation_range_filters (L, options);
-  push_operation_filters (L, options);
-
-  lua_settable (L, -3);
-}