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

Go to the documentation of this file.

/******************************************************************************
* MODULE     : compound.cpp
* DESCRIPTION: Compound generic expressions
* COPYRIGHT  : (C) 2005  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/compound.hpp>
namespace mmx {

vector<generic>
compound_to_vector (const generic& g) {
  return as_vector (as<compound> (g));
}

generic
vector_to_compound (const vector<generic>& v) {
  return as<generic> (compound (v));
}

syntactic
flatten (const compound& c) {
  const vector<generic> v= as_vector (c);
  nat i, n= N(v);
  vector<generic> w= fill<generic> (n);
  for (i=0; i<n; i++)
    w[i]= as_generic (flatten (v[i]));
  return as_syntactic (vector_to_compound (w));
}

generic
generic::operator () () const {
  return new generic_concrete_rep<compound> (vec<generic> (*this));
}

generic
generic::operator () (const generic& g1) const {
  return new generic_concrete_rep<compound> (vec<generic> (*this, g1));
}

generic
generic::operator () (const generic& g1, const generic& g2) const {
  return new generic_concrete_rep<compound> (vec<generic> (*this, g1, g2));
}

generic
generic::operator () (const generic& g1, const generic& g2,
                      const generic& g3) const {
  return new generic_concrete_rep<compound> (vec<generic> (*this, g1, g2, g3));
}

generic
gen (const generic& x1, const vector<generic>& v) {
  return as<generic> (compound (cons (x1, v)));
}

generic
gen () {
  return as<generic> (compound (vec<generic> ()));
}

generic
gen (const generic& x1) {
  return as<generic> (compound (vec<generic> (x1)));
}

generic
gen (const generic& x1, const generic& x2) {
  return as<generic> (compound (vec<generic> (x1, x2)));
}

generic
gen (const generic& x1, const string& x2) {
  return as<generic> (compound (vec<generic> (x1, generic (x2))));
}

generic
gen (const generic& x1, const generic& x2, const generic& x3) {
  return as<generic> (compound (vec<generic> (x1, x2, x3)));
}

generic
gen (const generic& x1, const generic& x2,
     const generic& x3, const generic& x4) {
  return as<generic> (compound (vec<generic> (x1, x2, x3, x4)));
}

generic
gen (const generic& x1, const generic& x2,
     const generic& x3, const generic& x4, const generic& x5) {
  return as<generic> (compound (vec<generic> (x1, x2, x3, x4, x5)));
}

generic
gen (const generic& x1, const generic& x2,
     const generic& x3, const generic& x4,
     const generic& x5, const generic& x6) {
  return as<generic> (compound (vec<generic> (x1, x2, x3, x4, x5, x6)));
}

} // namespace mmx