/Users/mourrain/Devel/mmx/basix/src/primitive.cpp

Go to the documentation of this file.

/******************************************************************************
* MODULE     : primitive.cpp
* DESCRIPTION: Abstract primitives for evaluator
* COPYRIGHT  : (C) 2006  Joris van der Hoeven
*******************************************************************************
* This software falls under the GNU general public license and comes WITHOUT
* ANY WARRANTY WHATSOEVER. See the file $TEXMACS_PATH/LICENSE for more details.
* If you don't have this file, write to the Free Software Foundation, Inc.,
* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
******************************************************************************/

#include <basix/primitive.hpp>
#include <basix/routine.hpp>
namespace mmx {

class basic_primitive_rep: public primitive_rep {
  typedef generic (*function_type) (const generic&);
  function_type fun;
public:
  basic_primitive_rep (const generic& name, function_type fun2):
    primitive_rep (name), fun (fun2) {}
  generic apply (const generic& x) const { return fun (x); }
};

primitive::primitive (const generic& name, generic (*fun) (const generic&)) {
  rep= new basic_primitive_rep (name, fun);
}

class routine_primitive_rep: public primitive_rep {
  routine fun;
public:
  routine_primitive_rep (const routine& fun2):
    primitive_rep (fun2->name), fun (fun2) {}
  generic apply (const generic& x) const {
    return fun->apply (cdr (compound_to_vector (x))); }
};

primitive::primitive (const routine& fun) {
  rep= new routine_primitive_rep (fun);
}

} // namespace mmx