plExternalFunction.h

/*=============================================================================
 * Product        : OpenPL 
 * File           : plExternalFunction.h (before plFormalFunction.h)
 * Author         : Juan-Manuel Ahuactzin
 *
 *=============================================================================
 *     (c) Copyright 2000, Centre National de la Recherche Scientifique,
 *                              all rights reserved
 *=============================================================================
 *
 *------------------------- Description ---------------------------------------
 *   
 *   
 *-----------------------------------------------------------------------------
 */

#ifndef _plExternalFunction_h_
#define _plExternalFunction_h_


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

/*****************************************************************************
 *                           External Classes
 *****************************************************************************/

#include <plExternalMethod.h>

/*****************************************************************************
 *                           Classes Definitions
 *****************************************************************************/


class plExternalFunction : public plObject 
{

protected:

  void Output(ostream &out) const;


  kplFormalFunction *function_at_kernel;
  
public:
  
  plDataValues operator()(const plValues &values) const;

  virtual ~plExternalFunction(){};
  
  plExternalFunction(const plVariablesConjunction &input_params, 
             void (*call_function)(plValues &output_values, 
                       const plValues &input_values));
  
  plExternalFunction(const plVariablesConjunction &output_params, 
             const plVariablesConjunction &input_params, 
             void (*call_function)(plValues &output_values, 
                       const plValues &input_values));

  
  template <class T>
  plExternalFunction(const plVariablesConjunction &input_params,
             T *obj,
             void (T::*method) (plValues &output_values, 
                    const plValues &input_values))
  {
    
    string name;
    
    char cbuff[42] = "AnonymousMethod"; 
    name = string( cbuff );
    
    
    /* create the formal function at kernel level */
    function_at_kernel = new kplFormalMethod<T>(input_params.get_variable_list(),
                 obj, method, name);
    
  }
  
  template <class T>
  plExternalFunction(const plVariablesConjunction &output_params, 
             const plVariablesConjunction &input_params,
             T *obj,
             void (T::*method) (plValues &output_values, 
                    const plValues &input_values))
  {
    
    string name;
    
    /* Construct a name for the function */
    /* TODO Construct a method to do this operation more eficinetly */
    char cbuff[42] = "AnonymousMethod"; 
    name = string( cbuff );
    
    
    /* create the formal function at kernel level */
    function_at_kernel = new kplFormalMethod<T>(output_params.get_variable_list(),
                 input_params.get_variable_list(),
                 obj, method, name);
    
  }
  
  plExternalFunction(const plVariablesConjunction &input_params, 
             void (*call_function)(plValues &output_values, 
                       const plValues &input_values),
             const string &func_name);
  
  plExternalFunction(const plVariablesConjunction &output_params, 
             const plVariablesConjunction &input_params, 
             void (*call_function)(plValues &output_values, 
                       const plValues &input_values),
             const string &func_name);


  template <class T>
  plExternalFunction(const plVariablesConjunction &input_params,
             T *obj,
             void (T::*method)(plValues &output_values, 
                       const plValues &input_values),
             const string &func_name)
  {
    /* create the formal function at kernel level */
    function_at_kernel = 
      new kplFormalMethod<T>(input_params.get_variable_list(),
                 obj, method, func_name );
  }

  template <class T>
  plExternalFunction(const plVariablesConjunction &output_params, 
             const plVariablesConjunction &input_params,
             T *obj,
             void (T::*method)(plValues &output_values, 
                       const plValues &input_values),
             const string &func_name)
  {
    /* create the formal function at kernel level */
    function_at_kernel = 
      new kplFormalMethod<T>(output_params.get_variable_list(),
                 input_params.get_variable_list(),
                 obj, method, func_name );
  }
  
  

  plExternalFunction(const plVariablesConjunction &output_params, 
             const plVariablesConjunction &input_params, 
             void (*call_function)(plValues &output_values, 
                       const plValues &input_values),
             const plVariablesConjunction derived_variable, 
             const plVariablesConjunction under_variables,
             void (*function_derivative)(plValues &output_values, 
                         const plValues &input_values));

  
  template <class T>
  plExternalFunction(const plVariablesConjunction &output_params, 
             const plVariablesConjunction &input_params, 
             T *obj,
             void (T::*method)(plValues output_values, 
                       const plValues &input_values),
             const plVariablesConjunction derived_variable, 
             const plVariablesConjunction under_variables,
             void (T::*deriv_method)(plValues &output_values, 
                         const plValues &input_values))
  {
    string name;
    
    /* Construct a name for the function */
    /* TODO Construct a method to do this operation more eficinetly */
    
    
    char cbuff[42] = "AnonymousMethod"; 
    name = string( cbuff );

    /* create the derivative function */
    kplDerivativeMethod <T>* derivative = 
      new kplDerivativeMethod<T>(derived_variable.get_variable_list,
                 input_params.get_variable_list(),
                 obj, deriv_method );
    
    
    
    /* create the formal function at kernel level */
    function_at_kernel = 
      new kplFormalMethod<T>(output_params.get_variable_list(),
                 input_params.get_variable_list(),
                 obj, method,derivative,name);
  }
  
  plExternalFunction(const plVariablesConjunction &output_params, 
             const plVariablesConjunction &input_params, 
             void (*call_function)(plValues &output_values, 
                       const plValues &input_values),
             const string &func_name,
             const plVariablesConjunction derived_variable, 
             const plVariablesConjunction under_variables,
             void (*function_derivative)(plValues &output_values, 
                         const plValues &input_values));

  template <class T>
  plExternalFunction(const plVariablesConjunction &output_params, 
             const plVariablesConjunction &input_params, 
             T *obj,
             void (T::*method)(plValues &output_values, 
                       const plValues &input_values),
             const string &func_name,
             const plVariablesConjunction derived_variable, 
             const plVariablesConjunction under_variables,
             void (T::*deriv_method)(plValues &output_values, 
                         const plValues &input_values))
    
  {
    /* create the derivative function */
    kplDerivativeMethod<T>* derivative = 
      new kplDerivativeMethod<T>(derived_variable.get_variable_list(),
                 input_params.get_variable_list(),
                 obj, deriv_method );
    
    
    
    /* create the formal function at kernel level */
    function_at_kernel = 
      new kplFormalMethod<T>(output_params.get_variable_list(),
                 input_params.get_variable_list(),
                 obj, method,derivative,func_name);
  }

  // TODO ack for MS C++
  void write_function_at_kernel(ostream &out) const;

  kplFormalFunction* get_function_at_kernel()const {return function_at_kernel;};

  friend class plFunctionalDirac;
  friend class plCndBellShape;
  friend class plCndProbTable;
  friend class plCndNormal;

  void destroy();
 

};


#endif

---