closure_routine_rep Class Reference

Inheritance diagram for closure_routine_rep:

List of all members.

Public Member Functions

• closure_routine_rep (const evaluator &e, const vector< nat > &s, const generic &a, const generic &b)
• generic apply (const vector< generic > &v) const
• vector< nat > signature () const
• generic function_body () const
• virtual generic apply () const
• virtual generic apply (const generic &g1) const
• virtual generic apply (const generic &g1, const generic &g2) const
• virtual void overload (const routine &fun) const
• virtual bool is_overloaded () const
• virtual vector< routine > meanings () const
• virtual generic function_type () const
• virtual routine clone () const

Public Attributes

• generic name
• MMX_ALLOCATORS int ref_count

---

Detailed Description

Definition at line 355 of file glue_declare.cpp.

---

Constructor & Destructor Documentation

closure_routine_rep	(	const evaluator &	e,
		const vector< nat > &	s,
		const generic &	a,
		const generic &	b
	)			[inline]

Definition at line 361 of file glue_declare.cpp.

00362                                                           :
00363     routine_rep (GEN_CLOSURE), ev (e), sig (s), args (a), body (b) {}
  generic apply (const vector<generic>& v) const {

---

Member Function Documentation

generic apply

(

const vector< generic > &

v

)

const [inline, virtual]

Reimplemented from routine_rep.

Definition at line 364 of file glue_declare.cpp.

References mmx::cdr(), mmx::compound_to_vector(), mmx::current_ev, mmx::eval(), mmx::gen(), mmx::GEN_RETURN, mmx::is_func(), mmx::mmerr, mmx::N(), n, mmx::restore_evaluator(), mmx::select_evaluator(), mmx::trace_push(), and mmx::wrong_nr_args().

                                                 {
    nat i, n= N(args);
    //mmout << "Trace] " << args[0];
    //for (nat i=0; i<N(v); i++) mmout << ", " << v[i];
    //mmout << "\n";
    if (N(v) != n-1) {
      mmerr << "Routine  : " << args[0] << "\n";
      mmerr << "Expected : " << cdr (compound_to_vector (args)) << "\n";
      mmerr << "Arguments: " << v << "\n";
      return wrong_nr_args (gen (args[0], v));
    }
    select_evaluator (base_evaluator (ev));
    for (i=1; i<n; i++) {
      if (sig[i] == 0) current_ev->set (args[i], v[i-1]);
      else {
        //mmout << "Convert " << v[i-1] << " to " << sig[i] << "\n";
        generic r= convert_to (v[i-1], sig[i], args[i]);
        if (is<exception> (r)) {
          restore_evaluator ();
          return trace_push (r, gen (args[0], v));
        }
        current_ev->set (args[i], r);
      }
    }
    generic r= eval (body);
    if (is<exception> (r)) {
      generic msg= *as<exception> (r);
      if (is_func (msg, GEN_RETURN, 1)) r= msg[1];
    }
    if (sig[0] != 0 && !is<exception> (r))
      r= convert_to (r, sig[0], body);
    restore_evaluator ();
    if (is<exception> (r)) return trace_push (r, gen (args[0], v));
    return r;
  }

generic function_body

(

)

const [inline, virtual]

Reimplemented from routine_rep.

Definition at line 400 of file glue_declare.cpp.

References mmx::gen(), and mmx::GEN_MAPSTO.

{ return gen (GEN_MAPSTO, args, body); }

vector<nat> signature

(

)

const [inline, virtual]

Reimplemented from routine_rep.

Definition at line 399 of file glue_declare.cpp.

{ return sig; }

---

The documentation for this class was generated from the following file:

• glue/glue_declare.cpp