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

Go to the documentation of this file.

#include <basix/dynamic.hpp>
#include <basix/routine.hpp>
#include <basix/tuple.hpp>
#include <basix/glue.hpp>

namespace mmx {
  static dynamic
  GLUE_1 (const generic &arg_1) {
    return dynamic (arg_1);
  }
  
  static generic
  GLUE_2 (const dynamic &arg_1) {
    return contents (arg_1);
  }
  
  static dynamic
  GLUE_3 (const routine &arg_1, const tuple<dynamic> &arg_2) {
    return dynamic (arg_1, as_vector (arg_2));
  }
  
  static void
  GLUE_4 (const dynamic &arg_1, const generic &arg_2) {
    assign (arg_1, arg_2);
  }
  
  void
  glue_dynamic () {
    static bool done = false;
    if (done) return;
    done = true;
    define_type<dynamic > (lit ("Dynamic"));
    define ("dynamic", GLUE_1);
    define ("contents", GLUE_2);
    define ("apply", GLUE_3);
    define ("assign", GLUE_4);
  }
}