plExternalMethod.h

/*=============================================================================
 * Product        : OpenPL 
 * File           : plExternalMethod.h
 * Author         : Kamel Mekhnacha & Juan Manuel Ahuactzin
 * Creation       : Wed Feb  6 14:07:54 2002
 *
 *=============================================================================
 *     (c) Copyright 2000, Centre National de la Recherche Scientifique,
 *                              all rights reserved
 *=============================================================================
 *
 *------------------------- Description ---------------------------------------
 *   
 *   
 *-----------------------------------------------------------------------------
 */

#ifndef _plExternalMethod_h_
#define _plExternalMethod_h_


#include <plDataValues.h>
#include <plVariablesConjunction.h>
#include <plValues.h>
#include <plExternalFunctionAtKernel.h>

// Defines the Ferivative Function of a Formal Function */
template<class T>
class kplDerivativeMethod :public kplDerivativeFunction{
protected:
  /* Pointer to the object on which the method is called */
  T *user_object;
  
  void (T::*deriv_method)(plValues &output, 
              const plValues &input);
  
public:
  kplDerivativeMethod(list <kplVariable*> der_variable, 
              list <kplVariable*> under_variables,
              T *obj,
              void (T::*method)(plValues &output, 
                    const plValues &input) )
    :kplDerivativeFunction(der_variable, under_variables),
     user_object(obj), deriv_method(method)
  {}

  virtual ~kplDerivativeMethod(){};
  
  void evaluate(plDataValues& o_values, 
        plDataValues *i_values) const
  {
#ifdef PL_PARA_WITH_NEWF

    plValues input_values_copy(*input_values, i_values);
    plValues output_values_copy(*output_values, &o_values);

    (user_object->*deriv_method)(output_values_copy, input_values_copy);

#else
    input_values->set_values_address(i_values);
    output_values->set_values_address(&o_values);
    (user_object->*deriv_method)(*output_values,
                 *input_values);

    //o_values = output_values->get_values();
#endif

  }
};


// A formal Function is a function used to define a Dirac Function */
template<class T>
class kplFormalMethod : public kplFormalFunction {
private:
  
  /* Pointer to the object on which the method is called */
  T *user_object;

  void (T::*user_method)(plValues &output, 
             const plValues &input);

  
public:
  kplFormalMethod(){};
  kplFormalMethod(const list <kplVariable*>& known_params,
          T *obj,
          void (T::*method)(plValues &output, 
                    const plValues &input),
          const string& func_name)
    :kplFormalFunction(known_params, func_name),
     user_object(obj), user_method(method)
  {}
  
  kplFormalMethod(const list <kplVariable*>& search_params, 
          const list <kplVariable*>& known_params,
          T *obj,
          void (T::*method)(plValues &output, 
                    const plValues &input),
          const string& func_name)
    :kplFormalFunction(search_params, known_params, func_name),
     user_object(obj), user_method(method)
  {}
  
  kplFormalMethod(const list <kplVariable*>& search_params, 
          const list <kplVariable*>& known_params,
          T *obj,
          void (T::*method)(plValues &output, 
                    const plValues &input),
          const kplDerivativeMethod<T> *derivative,
          const string& func_name)
    :kplFormalFunction(search_params, known_params, func_name),
     user_object(obj), user_method(method)
  {
    /* insert the sent derivative at the list of derivatives */
    derivatives_list.push_back((kplDerivativeFunction*)derivative);
  }

  virtual ~kplFormalMethod(){};
  
  void evaluate(plDataValues& o_values,
        plDataValues *i_values) const
  {

#ifdef PL_PARA_WITH_NEWF
    
    plValues input_values_copy(*input_values, i_values);
    plValues output_values_copy(*output_values, &o_values);

    (user_object->*user_method)(output_values_copy, input_values_copy);
#else
    input_values->set_values_address(i_values);
    output_values->set_values_address(&o_values);
    (user_object->*user_method)(*output_values, 
                *input_values);

    //o_values = output_values->get_values(); 
#endif
  }

};



#endif

---