[beast: 2/10] SFI: remove unused sfi_glue_vcall_*() API

[Tim Janik <timj src gnome org>]

commit c6247f2e7808fcc9b9fe7885bbbd4677061aa6f1
Author: Tim Janik <timj gnu org>
Date:   Sun Oct 8 00:27:59 2017 +0200

    SFI: remove unused sfi_glue_vcall_*() API
    
    Signed-off-by: Tim Janik <timj gnu org>

 sfi/sfiglue.cc |  257 --------------------------------------------------------
 sfi/sfiglue.hh |   36 --------
 2 files changed, 0 insertions(+), 293 deletions(-)
---
diff --git a/sfi/sfiglue.cc b/sfi/sfiglue.cc
index 2252fab..2cc4ae1 100644
--- a/sfi/sfiglue.cc
+++ b/sfi/sfiglue.cc
@@ -332,263 +332,6 @@ sfi_glue_call_valist (const gchar *proc_name,
   return NULL;
 }
 
-void
-sfi_glue_vcall_void (const gchar    *proc_name,
-                    guint8          first_arg_type,
-                    ...)
-{
-  va_list var_args;
-
-  assert_return (proc_name != NULL);
-
-  va_start (var_args, first_arg_type);
-  GValue *rvalue = sfi_glue_call_valist (proc_name, first_arg_type, var_args);
-  va_end (var_args);
-  if (rvalue)
-    sfi_glue_gc_free_now (rvalue, SfiGlueGcFreeFunc (sfi_value_free));
-}
-
-SfiBool
-sfi_glue_vcall_bool (const gchar *proc_name,
-                    guint8       first_arg_type,
-                    ...)
-{
-  va_list var_args;
-  GValue *rvalue;
-  SfiBool retv = FALSE;
-
-  assert_return (proc_name != NULL, FALSE);
-
-  va_start (var_args, first_arg_type);
-  rvalue = sfi_glue_call_valist (proc_name, first_arg_type, var_args);
-  va_end (var_args);
-  if (SFI_VALUE_HOLDS_BOOL (rvalue))
-    retv = sfi_value_get_bool (rvalue);
-  if (rvalue)
-    sfi_glue_gc_free_now (rvalue, SfiGlueGcFreeFunc (sfi_value_free));
-  return retv;
-}
-
-SfiInt
-sfi_glue_vcall_int (const gchar *proc_name,
-                   guint8       first_arg_type,
-                   ...)
-{
-  va_list var_args;
-  GValue *rvalue;
-  SfiInt retv = 0;
-
-  assert_return (proc_name != NULL, 0);
-
-  va_start (var_args, first_arg_type);
-  rvalue = sfi_glue_call_valist (proc_name, first_arg_type, var_args);
-  va_end (var_args);
-  if (SFI_VALUE_HOLDS_INT (rvalue))
-    retv = sfi_value_get_int (rvalue);
-  if (rvalue)
-    sfi_glue_gc_free_now (rvalue, SfiGlueGcFreeFunc (sfi_value_free));
-  return retv;
-}
-
-SfiNum
-sfi_glue_vcall_num (const gchar    *proc_name,
-                   guint8          first_arg_type,
-                   ...)
-{
-  va_list var_args;
-  GValue *rvalue;
-  SfiNum retv = 0;
-
-  assert_return (proc_name != NULL, 0);
-
-  va_start (var_args, first_arg_type);
-  rvalue = sfi_glue_call_valist (proc_name, first_arg_type, var_args);
-  va_end (var_args);
-  if (SFI_VALUE_HOLDS_NUM (rvalue))
-    retv = sfi_value_get_num (rvalue);
-  if (rvalue)
-    sfi_glue_gc_free_now (rvalue, SfiGlueGcFreeFunc (sfi_value_free));
-  return retv;
-}
-
-SfiReal
-sfi_glue_vcall_real (const gchar    *proc_name,
-                    guint8          first_arg_type,
-                    ...)
-{
-  va_list var_args;
-  GValue *rvalue;
-  SfiReal retv = 0;
-
-  assert_return (proc_name != NULL, 0);
-
-  va_start (var_args, first_arg_type);
-  rvalue = sfi_glue_call_valist (proc_name, first_arg_type, var_args);
-  va_end (var_args);
-  if (SFI_VALUE_HOLDS_REAL (rvalue))
-    retv = sfi_value_get_real (rvalue);
-  if (rvalue)
-    sfi_glue_gc_free_now (rvalue, SfiGlueGcFreeFunc (sfi_value_free));
-  return retv;
-}
-
-const gchar*
-sfi_glue_vcall_string (const gchar    *proc_name,
-                      guint8          first_arg_type,
-                      ...)
-{
-  va_list var_args;
-  GValue *rvalue;
-  const char *retv = NULL;
-
-  assert_return (proc_name != NULL, NULL);
-
-  va_start (var_args, first_arg_type);
-  rvalue = sfi_glue_call_valist (proc_name, first_arg_type, var_args);
-  va_end (var_args);
-  if (rvalue)
-    {
-      if (SFI_VALUE_HOLDS_STRING (rvalue))
-       retv = sfi_value_get_string (rvalue);
-    }
-  return retv ? retv : "";
-}
-
-const gchar*
-sfi_glue_vcall_choice (const gchar    *proc_name,
-                      guint8          first_arg_type,
-                      ...)
-{
-  va_list var_args;
-  GValue *rvalue;
-  const char *retv = NULL;
-
-  assert_return (proc_name != NULL, NULL);
-
-  va_start (var_args, first_arg_type);
-  rvalue = sfi_glue_call_valist (proc_name, first_arg_type, var_args);
-  va_end (var_args);
-  if (rvalue)
-    {
-      if (SFI_VALUE_HOLDS_CHOICE (rvalue))
-       retv = sfi_value_get_choice (rvalue);
-    }
-  return retv ? retv : "";
-}
-
-SfiProxy
-sfi_glue_vcall_proxy (const gchar *proc_name,
-                     guint8       first_arg_type,
-                     ...)
-{
-  va_list var_args;
-  GValue *rvalue;
-  SfiProxy retv = 0;
-
-  assert_return (proc_name != NULL, 0);
-
-  va_start (var_args, first_arg_type);
-  rvalue = sfi_glue_call_valist (proc_name, first_arg_type, var_args);
-  va_end (var_args);
-  if (SFI_VALUE_HOLDS_PROXY (rvalue))
-    retv = sfi_value_get_proxy (rvalue);
-  if (rvalue)
-    sfi_glue_gc_free_now (rvalue, SfiGlueGcFreeFunc (sfi_value_free));
-  return retv;
-}
-
-SfiSeq*
-sfi_glue_vcall_seq (const gchar *proc_name,
-                   guint8       first_arg_type,
-                   ...)
-{
-  va_list var_args;
-  GValue *rvalue;
-  SfiSeq *retv = NULL;
-
-  assert_return (proc_name != NULL, NULL);
-
-  va_start (var_args, first_arg_type);
-  rvalue = sfi_glue_call_valist (proc_name, first_arg_type, var_args);
-  va_end (var_args);
-  if (rvalue)
-    {
-      if (SFI_VALUE_HOLDS_SEQ (rvalue))
-       retv = sfi_value_get_seq (rvalue);
-    }
-  if (!retv)
-    {
-      retv = sfi_seq_new ();
-      sfi_glue_gc_add (retv, SfiGlueGcFreeFunc (sfi_seq_unref));
-    }
-  return retv;
-}
-
-SfiRec*
-sfi_glue_vcall_rec (const gchar *proc_name,
-                   guint8       first_arg_type,
-                   ...)
-{
-  va_list var_args;
-  GValue *rvalue;
-  SfiRec *retv = NULL;
-
-  assert_return (proc_name != NULL, NULL);
-
-  va_start (var_args, first_arg_type);
-  rvalue = sfi_glue_call_valist (proc_name, first_arg_type, var_args);
-  va_end (var_args);
-  if (rvalue)
-    {
-      if (SFI_VALUE_HOLDS_REC (rvalue))
-       retv = sfi_value_get_rec (rvalue);
-    }
-  return retv;
-}
-
-SfiFBlock*
-sfi_glue_vcall_fblock (const gchar *proc_name,
-                      guint8       first_arg_type,
-                      ...)
-{
-  va_list var_args;
-  GValue *rvalue;
-
-  assert_return (proc_name != NULL, NULL);
-
-  va_start (var_args, first_arg_type);
-  rvalue = sfi_glue_call_valist (proc_name, first_arg_type, var_args);
-  va_end (var_args);
-  if (rvalue)
-    {
-      if (SFI_VALUE_HOLDS_FBLOCK (rvalue))
-       return sfi_value_get_fblock (rvalue);
-    }
-  return NULL;
-}
-
-SfiBBlock*
-sfi_glue_vcall_bblock (const gchar *proc_name,
-                      guint8       first_arg_type,
-                      ...)
-{
-  va_list var_args;
-  GValue *rvalue;
-
-  assert_return (proc_name != NULL, NULL);
-
-  va_start (var_args, first_arg_type);
-  rvalue = sfi_glue_call_valist (proc_name, first_arg_type, var_args);
-  va_end (var_args);
-  if (rvalue)
-    {
-      if (SFI_VALUE_HOLDS_BBLOCK (rvalue))
-       return sfi_value_get_bblock (rvalue);
-    }
-  return NULL;
-}
-
-
 /* --- Glue utilities --- */
 SfiGlueIFace*
 sfi_glue_iface_new (const gchar *iface_name)
diff --git a/sfi/sfiglue.hh b/sfi/sfiglue.hh
index d8da359..c1e5e9c 100644
--- a/sfi/sfiglue.hh
+++ b/sfi/sfiglue.hh
@@ -50,42 +50,6 @@ GValue*              sfi_glue_call_seq               (const gchar    *proc_name,
 GValue*                sfi_glue_call_valist            (const gchar    *proc_name,
                                                  guint8          first_arg_type,
                                                 va_list         var_args);
-void           sfi_glue_vcall_void             (const gchar    *proc_name,
-                                                guint8          first_arg_type,
-                                                ...);
-SfiBool                sfi_glue_vcall_bool             (const gchar    *proc_name,
-                                                guint8          first_arg_type,
-                                                ...);
-SfiInt         sfi_glue_vcall_int              (const gchar    *proc_name,
-                                                guint8          first_arg_type,
-                                                ...);
-SfiNum         sfi_glue_vcall_num              (const gchar    *proc_name,
-                                                guint8          first_arg_type,
-                                                ...);
-SfiReal                sfi_glue_vcall_real             (const gchar    *proc_name,
-                                                guint8          first_arg_type,
-                                                ...);
-const gchar*   sfi_glue_vcall_string           (const gchar    *proc_name,
-                                                guint8          first_arg_type,
-                                                ...);
-const gchar*   sfi_glue_vcall_choice           (const gchar    *proc_name,
-                                                guint8          first_arg_type,
-                                                ...);
-SfiProxy       sfi_glue_vcall_proxy            (const gchar    *proc_name,
-                                                guint8          first_arg_type,
-                                                ...);
-SfiSeq*                sfi_glue_vcall_seq              (const gchar    *proc_name,
-                                                guint8          first_arg_type,
-                                                ...);
-SfiRec*                sfi_glue_vcall_rec              (const gchar    *proc_name,
-                                                guint8          first_arg_type,
-                                                ...);
-SfiFBlock*     sfi_glue_vcall_fblock           (const gchar    *proc_name,
-                                                guint8          first_arg_type,
-                                                ...);
-SfiBBlock*     sfi_glue_vcall_bblock           (const gchar    *proc_name,
-                                                guint8          first_arg_type,
-                                                ...);
 GValue*                sfi_glue_client_msg             (const gchar    *msg,
                                                 GValue         *value);