realroot_doc 0.1.1
/Users/mourrain/Devel/mmx/realroot/glue/glue_kernel.cpp
Go to the documentation of this file.
00001 
00002 #include <numerix/integer.hpp>
00003 #include <numerix/rational.hpp>
00004 #include <numerix/floating.hpp>
00005 #include <numerix/kernel.hpp>
00006 #include <basix/glue.hpp>
00007 
00008 #define set_of_generic set_of(generic)
00009 #define set_of_double set_of(double)
00010 #define set_of_integer set_of(integer)
00011 #define set_of_rational set_of(rational)
00012 #define set_of_bigfloat set_of(bigfloat)
00013 #define set_of_complex_bigfloat set_of(complex_bigfloat)
00014 
00015 namespace mmx {
00016   void
00017   glue_kernel () {
00018     static bool done = false;
00019     if (done) return;
00020     done = true;
00021     call_glue (string ("glue_integer"));
00022     call_glue (string ("glue_rational"));
00023     call_glue (string ("glue_floating"));
00024     define_type<scalar_set<double> > (lit ("DoubleSet"));
00025     define_type<scalar_set<integer> > (lit ("IntegerSet"));
00026     define_type<scalar_set<rational> > (lit ("RationalSet"));
00027     define_type<scalar_set<floating<> > > (lit ("FloatingSet"));
00028     define_constant<scalar_set<double> > ("DD", set_of_double);
00029     define_constant<scalar_set<integer> > ("ZZ", set_of_integer);
00030     define_constant<scalar_set<rational> > ("QQ", set_of_rational);
00031     define_constant<scalar_set<floating<> > > ("RR", set_of_bigfloat);
00032   }
00033 }