/Users/mourrain/Devel/mmx/basix/glue/glue_compound.cpp

Go to the documentation of this file.

#include <basix/vector.hpp>
#include <basix/compound.hpp>
#include <basix/mmx_syntax.hpp>
#include <basix/tuple.hpp>
#include <basix/glue.hpp>

#define is_generic_compound is<compound>
#define compound_size(x) N (as_vector (x))
#define compound_access(x,i) as_vector (x) [i]
#define compound_arguments(x) cdr (as_vector (x))
#define compound_apply(f,v) gen (as<generic> (f), v)

namespace mmx {
  static bool
  GLUE_1 (const generic &arg_1) {
    return is_generic_compound (arg_1);
  }
  
  static compound
  GLUE_2 (const tuple<generic> &arg_1) {
    return compound (as_vector (arg_1));
  }
  
  static compound
  GLUE_3 (const vector<generic> &arg_1) {
    return compound (arg_1);
  }
  
  static vector<generic>
  GLUE_4 (const compound &arg_1) {
    return as_vector (arg_1);
  }
  
  static int
  GLUE_5 (const compound &arg_1) {
    return compound_size (arg_1);
  }
  
  static generic
  GLUE_6 (const compound &arg_1, const int &arg_2) {
    return compound_access (arg_1, arg_2);
  }
  
  static vector<generic>
  GLUE_7 (const compound &arg_1) {
    return as_vector (arg_1);
  }
  
  static vector<generic>
  GLUE_8 (const compound &arg_1) {
    return compound_arguments (arg_1);
  }
  
  static generic
  GLUE_9 (const compound &arg_1, const tuple<generic> &arg_2) {
    return compound_apply (arg_1, as_vector (arg_2));
  }
  
  void
  glue_compound () {
    static bool done = false;
    if (done) return;
    done = true;
    call_glue (string ("glue_vector_generic"));
    define ("compound?", GLUE_1);
    define ("compound", GLUE_2);
    define ("as_compound", GLUE_3);
    define ("as_vector", GLUE_4);
    define ("#", GLUE_5);
    define (".[]", GLUE_6);
    define ("components", GLUE_7);
    define ("arguments", GLUE_8);
    define (".()", GLUE_9);
  }
}