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

Go to the documentation of this file.

#include <basix/vector.hpp>
#include <basix/port.hpp>
#include <basix/literal.hpp>
#include <basix/tuple.hpp>
#include <basix/glue.hpp>

#define is_generic_literal is<literal>
#define literal_apply(f,v) gen (as<generic> (f), v)
#define literal_access(f,v) access (as<generic> (f), v)

namespace mmx {
  static bool
  GLUE_1 (const generic &arg_1) {
    return is_generic_literal (arg_1);
  }
  
  static literal
  GLUE_2 (const string &arg_1) {
    return literal (arg_1);
  }
  
  static string
  GLUE_3 (const literal &arg_1) {
    return *arg_1;
  }
  
  static generic
  GLUE_4 (const literal &arg_1, const tuple<generic> &arg_2) {
    return literal_apply (arg_1, as_vector (arg_2));
  }
  
  static generic
  GLUE_5 (const literal &arg_1, const tuple<generic> &arg_2) {
    return literal_access (arg_1, as_vector (arg_2));
  }
  
  void
  glue_literal () {
    static bool done = false;
    if (done) return;
    done = true;
    call_glue (string ("glue_string"));
    define ("literal?", GLUE_1);
    define ("as_literal", GLUE_2);
    define ("as_string", GLUE_3);
    define (".()", GLUE_4);
    define (".[]", GLUE_5);
  }
}