path: root/camel/camel-marshal-utils.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/* camel-marshal-utils.c : marshal utils */

/* 
 *
 * Copyright (C) 1999 Bertrand Guiheneuf <Bertrand.Guiheneuf@aful.org> .
 *
 * This program is free software; you can redistribute it and/or 
 * modify it under the terms of the GNU General Public License as 
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * This program 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
 * USA
 */




#include "config.h"
#include "camel-log.h"
#include "camel-marshal-utils.h"
#include "camel-arg-collector.c"


#define NB_OP_CHUNKS 20
static GMemChunk *op_chunk=NULL;
static GStaticMutex op_chunk_mutex = G_STATIC_MUTEX_INIT;

CamelFuncDef *
camel_func_def_new (CamelMarshal marshal, guint n_params, ...)
{   
    CamelFuncDef *func_def;
    va_list args;
    GtkType type;
    int i;
    
    func_def = g_new (CamelFuncDef, 1);
    func_def->marshal = marshal;
    func_def->n_params = n_params;
    func_def->params_type = g_new (GtkType, n_params);

    va_start (args, n_params);  
    for (i=0; i<n_params; i++) {
        type = va_arg (args, GtkType);
        func_def->params_type [i] = type; 
    }
    va_end (args);

    return func_def;
}




static gboolean
_collect_params (GtkArg *params,
         CamelFuncDef *func_def,
         va_list var_args)
{
  GtkArg *last_param;
  int i;
  gboolean failed = FALSE;
  

  for (i=0; 
       i<func_def->n_params; 
       i++, params++)
    {
      gchar *error;

      params->name = NULL;
      params->type = (func_def->params_type) [i];
      CAMEL_ARG_COLLECT_VALUE (params,
                   var_args,
                   error);
      if (error)
    {
      failed = TRUE;
      CAMEL_LOG_FULL_DEBUG ("CamelMarshall::_collect_params(): %s", error);
      g_free (error);
    }
    }
  return (failed);
}



/**
 * camel_marshal_create_op: create an operation 
 * @func_def: function definition object
 * @func: function to call
 * 
 * create a function ready to be executed. The 
 * vari
 * 
 * 
 * Return value: operation ready to be executed
 **/
CamelOp *
camel_marshal_create_op (CamelFuncDef *func_def, CamelFunc func, ...)
{
    GtkArg  *params;
    gboolean error;
    CamelOp *op;
    va_list args;

    g_assert (func_def);

    op = camel_op_new (func_def);
    op->func = func;

    va_start (args, func);
    error = _collect_params (op->params, func_def, args);
    va_end (args);
     
    if (error) {
        camel_op_free (op);
        return NULL;
    } else 
        return (op);
}




/**
 * camel_op_new: return a new CamelOp object 
 * 
 * The obtained object must be destroyed with 
 * camel_op_free ()
 * 
 * Return value: the newly allocated CamelOp object
 **/
CamelOp *
camel_op_new (CamelFuncDef *func_def)
{
    CamelOp *op;

    g_static_mutex_lock (&op_chunk_mutex);
    if (!op_chunk)
        op_chunk = g_mem_chunk_create (CamelOp, 
                           NB_OP_CHUNKS,
                           G_ALLOC_AND_FREE);
    g_static_mutex_unlock (&op_chunk_mutex);

    op = g_chunk_new (CamelOp, op_chunk);
    op->func_def = func_def;
    op->params = g_new (GtkArg, func_def->n_params);
    
    return op;  
}

/**
 * camel_op_free: free a CamelOp object allocated with camel_op_new
 * @op: CamelOp object to free
 * 
 * Free a CamelOp object allocated with camel_op_new ()
 * this routine won't work with CamelOp objects allocated 
 * with other allocators.
 **/
void 
camel_op_free (CamelOp *op)
{
    g_free (op->params);
    g_chunk_free (op, op_chunk);
}


/**
 * camel_op_run: run an operation 
 * @op: the operation object
 * 
 * run an operation 
 * 
 **/
void
camel_op_run (CamelOp *op)
{
    GtkArg  *params;
    gboolean error;
    
    g_assert (op);
    g_assert (op->func_def);
    g_assert (op->params);

    op->func_def->marshal (op->func, op->params);
}




/**
 * camel_op_set_user_data: set the private field
 * @op: operation 
 * @user_data: private field
 * 
 * associate a field to an operation object
 **/
void 
camel_op_set_user_data (CamelOp *op, gpointer user_data)
{
    g_assert (op);
    op->user_data = user_data;
}


/**
 * camel_op_get_user_data: return the private field
 * @op: operation object
 * 
 * return the private field associated to 
 * an operation object.
 * 
 * Return value: 
 **/
gpointer 
camel_op_get_user_data (CamelOp *op)
{
    g_assert (op);
    return op->user_data;
}



/* misc marshaller */


typedef void (*CamelMarshal_NONE__POINTER_INT) (gpointer arg1,
                        gint arg2);
void camel_marshal_NONE__POINTER_INT (CamelFunc func, 
                      GtkArg *args)
{
    CamelMarshal_NONE__POINTER_INT rfunc;
    rfunc = (CamelMarshal_NONE__POINTER_INT) func;
    (* rfunc) (GTK_VALUE_POINTER(args[0]),
           GTK_VALUE_INT(args[1]));
}





typedef void (*CamelMarshal_NONE__POINTER_INT_POINTER) (gpointer arg1,
                            gint arg2,
                            gpointer arg3);
void camel_marshal_NONE__POINTER_INT_POINTER (CamelFunc func, 
                          GtkArg *args)
{
    CamelMarshal_NONE__POINTER_INT_POINTER rfunc;
    rfunc = (CamelMarshal_NONE__POINTER_INT_POINTER) func;
    (* rfunc) (GTK_VALUE_POINTER(args[0]),
           GTK_VALUE_INT(args[1]),
           GTK_VALUE_POINTER(args[2]));
}

typedef void (*CamelMarshal_NONE__POINTER_INT_POINTER_POINTER) (gpointer arg1,
                                gint arg2,
                                gpointer arg3,
                                gpointer arg4);
void camel_marshal_NONE__POINTER_INT_POINTER_POINTER (CamelFunc func, 
                              GtkArg *args)
{
    CamelMarshal_NONE__POINTER_INT_POINTER_POINTER rfunc;
    rfunc = (CamelMarshal_NONE__POINTER_INT_POINTER_POINTER) func;
    (* rfunc) (GTK_VALUE_POINTER(args[0]),
           GTK_VALUE_INT(args[1]),
           GTK_VALUE_POINTER(args[2]),
           GTK_VALUE_POINTER(args[3]));
}


typedef void (*CamelMarshal_NONE__INT) (gint arg1);
void camel_marshal_NONE__INT (CamelFunc func, 
                  GtkArg *args)
{
    CamelMarshal_NONE__INT rfunc;
    rfunc = (CamelMarshal_NONE__INT) func;
    (* rfunc) (GTK_VALUE_INT (args[0]));
}